Compucolor.org – Virtual Media

Listing of file='APP4.DOC;01' on disk='vmedia/asmtut_disk4-sector.ccvf'

### Disk Sector 163 ###
00: 37 00 38 00 08 00 00 00 80 25 01 00 ff ff 00 00   7.8......%......
10: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00   ................
20: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00   ................
30: 00 00 00 00 00 00 00 ff 00 00 00 00 00 00 48 00   ..............H.
40: 0d 0a 41 53 53 45 4d 42 4c 59 20 4c 41 4e 47 55   ..ASSEMBLY LANGU
50: 41 47 45 20 54 55 54 4f 52 49 41 4c 20 53 45 52   AGE TUTORIAL SER
60: 49 45 53 20 20 20 20 41 50 50 45 4e 44 49 58 20   IES    APPENDIX
70: 23 34 0d 0a 0d 0a 48 41 4e 44 59 20 43 41 4c 4c   #4....HANDY CALL
### Disk Sector 164 ###
00: 41 42 4c 45 20 52 4f 4d 20 52 4f 55 54 49 4e 45   ABLE ROM ROUTINE
10: 53 20 46 4f 52 20 55 53 45 20 49 4e 20 41 53 53   S FOR USE IN ASS
20: 45 4d 42 4c 45 52 20 50 52 4f 47 52 41 4d 53 2e   EMBLER PROGRAMS.
30: 0d 0a 0d 0a 4e 41 4d 45 20 20 20 20 20 20 20 20   ....NAME
40: 36 2f 37 38 20 20 20 20 38 2f 37 39 20 20 20 20   6/78    8/79
50: 20 20 20 20 20 20 44 45 53 43 52 49 50 54 49 4f         DESCRIPTIO
60: 4e 2e 20 20 2e 20 20 2e 20 20 0d 0a 0d 0a 52 58   N.  .  .  ....RX
70: 53 45 52 20 20 20 20 20 20 20 30 30 32 30 20 20   SER       0020
### Disk Sector 165 ###
00: 20 20 30 30 32 30 20 20 20 20 20 20 20 20 20 20     0020
10: 52 65 61 64 73 20 61 20 63 68 61 72 61 63 74 65   Reads a characte
20: 72 20 66 72 6f 6d 20 74 68 65 20 73 65 72 69 61   r from the seria
30: 6c 20 6c 69 6e 65 0d 0a 4b 45 59 54 53 54 20 20   l line..KEYTST
40: 20 20 20 20 30 30 32 34 20 20 20 20 30 30 32 34       0024    0024
50: 20 20 20 20 20 20 20 20 20 20 52 65 74 75 72 6e             Return
60: 73 20 77 69 74 68 20 74 68 65 20 5a 20 62 69 74   s with the Z bit
70: 20 69 66 20 74 68 65 72 65 20 69 73 20 61 20 63    if there is a c
### Disk Sector 166 ###
00: 68 61 72 61 63 74 65 72 20 69 6e 20 4b 42 43 48   haracter in KBCH
10: 41 28 38 31 46 45 29 0d 0a 54 58 53 45 52 20 20   A(81FE)..TXSER
20: 20 20 20 20 20 30 30 32 38 20 20 20 20 30 30 32        0028    002
30: 38 20 20 20 20 20 20 20 20 20 20 54 72 61 6e 73   8          Trans
40: 6d 69 74 73 20 61 20 63 68 61 72 61 63 74 65 72   mits a character
50: 20 74 6f 20 74 68 65 20 73 65 72 69 61 6c 20 6c    to the serial l
60: 69 6e 65 0d 0a 42 41 53 4f 55 54 20 20 20 20 20   ine..BASOUT
70: 20 30 30 33 33 20 20 20 20 30 30 33 33 20 20 20    0033    0033
### Disk Sector 167 ###
00: 20 20 20 20 20 20 20 53 65 6e 64 73 20 6f 6e 65          Sends one
10: 20 62 79 74 65 20 74 6f 20 74 68 65 20 73 63 72    byte to the scr
20: 65 65 6e 20 66 72 6f 6d 20 3c 41 3e 0d 0a 42 41   een from <A>..BA
30: 53 49 43 45 20 20 20 20 20 20 30 30 34 36 20 20   SICE      0046
40: 20 20 31 46 32 43 20 20 20 20 20 20 20 20 20 20     1F2C
50: 42 61 73 69 63 20 27 45 27 20 28 52 65 73 65 74   Basic 'E' (Reset
60: 20 42 61 73 69 63 29 0d 0a 46 43 53 20 20 20 20    Basic)..FCS
70: 20 20 20 20 20 32 35 45 43 20 20 20 20 30 41 39        25EC    0A9
### Disk Sector 168 ###
00: 35 20 20 20 20 20 20 20 20 20 20 46 43 53 20 63   5          FCS c
10: 6f 6d 6d 61 6e 64 20 69 6e 74 65 72 70 72 65 74   ommand interpret
20: 65 72 2e 20 20 43 6f 6d 6d 61 6e 64 20 6c 69 6e   er.  Command lin
30: 65 20 61 64 64 72 65 73 73 65 64 20 62 79 20 3c   e addressed by <
40: 48 4c 3e 0d 0a 46 43 53 45 4d 20 20 20 20 20 20   HL>..FCSEM
50: 20 32 36 32 41 20 20 20 20 30 41 44 33 20 20 20    262A    0AD3
60: 20 20 20 20 20 20 20 46 43 53 20 70 6c 75 73 20          FCS plus
70: 45 4d 45 53 53 0d 0a 45 4d 45 53 53 20 20 20 20   EMESS..EMESS
### Disk Sector 169 ###
00: 20 20 20 32 36 32 44 20 20 20 20 30 41 44 36 20      262D    0AD6
10: 20 20 20 20 20 20 20 20 20 46 43 53 20 45 72 72            FCS Err
20: 6f 72 20 6d 65 73 73 61 67 65 20 69 6e 74 65 72   or message inter
30: 70 72 65 74 65 72 0d 0a 52 45 53 45 54 20 20 20   preter..RESET
40: 20 20 20 20 32 36 41 35 20 20 20 20 30 42 34 38       26A5    0B48
50: 20 20 20 20 20 20 20 20 20 20 52 65 73 65 74 20             Reset
60: 64 69 73 6b 20 69 66 20 65 72 72 6f 72 20 66 6f   disk if error fo
70: 75 6e 64 0d 0a 43 4b 45 4e 44 20 20 20 20 20 20   und..CKEND
### Disk Sector 170 ###
00: 20 32 36 45 37 20 20 20 20 30 42 38 41 20 20 20    26E7    0B8A
10: 20 20 20 20 20 20 20 43 68 65 63 6b 20 66 6f 72          Check for
20: 20 65 6e 64 20 6f 66 20 63 6f 6d 6d 61 6e 64 20    end of command
30: 6c 69 6e 65 20 28 30 29 0d 0a 47 45 54 54 4f 20   line (0)..GETTO
40: 20 20 20 20 20 20 32 43 30 43 20 20 20 20 31 30         2C0C    10
50: 34 32 20 20 20 20 20 20 20 20 20 20 43 68 65 63   42          Chec
60: 6b 20 66 6f 72 20 73 74 72 69 6e 67 20 27 54 4f   k for string 'TO
70: 27 20 69 6e 20 43 6f 6d 6d 61 6e 64 20 6c 69 6e   ' in Command lin
### Disk Sector 171 ###
00: 65 20 70 6f 69 6e 74 65 64 20 74 6f 20 62 79 20   e pointed to by
10: 3c 48 4c 3e 0d 0a 4f 50 44 49 52 20 20 20 20 20   <HL>..OPDIR
20: 20 20 32 44 36 30 20 20 20 20 31 31 39 36 20 20     2D60    1196
30: 20 20 20 20 20 20 20 20 4f 70 65 6e 20 44 69 72           Open Dir
40: 65 63 74 6f 72 79 20 66 6f 72 20 61 20 73 63 61   ectory for a sca
50: 6e 0d 0a 47 4e 44 45 20 20 20 20 20 20 20 20 32   n..GNDE        2
60: 44 38 36 20 20 20 20 31 31 42 43 20 20 20 20 20   D86    11BC
70: 20 20 20 20 20 47 65 74 20 6e 65 78 74 20 64 69        Get next di
### Disk Sector 172 ###
00: 72 65 63 74 6f 72 79 20 65 6e 74 72 79 0d 0a 4f   rectory entry..O
10: 50 45 4e 20 20 20 20 20 20 20 20 32 44 41 42 20   PEN        2DAB
20: 20 20 20 31 31 45 31 20 20 20 20 20 20 20 20 20      11E1
30: 20 4f 70 65 6e 20 61 20 46 69 6c 65 20 66 6f 72    Open a File for
40: 20 69 6e 70 75 74 20 6f 72 20 6f 75 74 70 75 74    input or output
50: 0d 0a 52 45 41 44 20 20 20 20 20 20 20 20 32 45   ..READ        2E
60: 41 33 20 20 20 20 31 32 44 39 20 20 20 20 20 20   A3    12D9
70: 20 20 20 20 52 65 61 64 20 66 72 6f 6d 20 61 6e       Read from an
### Disk Sector 173 ###
00: 20 6f 70 65 6e 20 46 69 6c 65 0d 0a 57 52 49 54    open File..WRIT
10: 45 20 20 20 20 20 20 20 32 45 43 43 20 20 20 20   E       2ECC
20: 31 33 30 32 20 20 20 20 20 20 20 20 20 20 57 72   1302          Wr
30: 69 74 65 20 74 6f 20 61 6e 20 6f 70 65 6e 20 46   ite to an open F
40: 69 6c 65 0d 0a 43 4c 4f 53 45 20 20 20 20 20 20   ile..CLOSE
50: 20 32 46 32 36 20 20 20 20 31 33 35 43 20 20 20    2F26    135C
60: 20 20 20 20 20 20 20 46 69 6c 65 20 43 6c 6f 73          File Clos
70: 65 20 72 6f 75 74 69 6e 65 0d 0a 50 44 56 20 20   e routine..PDV
### Disk Sector 174 ###
00: 20 20 20 20 20 20 20 32 46 44 45 20 20 20 20 31          2FDE    1
10: 34 31 34 20 20 20 20 20 20 20 20 20 20 50 61 72   414          Par
20: 73 65 20 44 65 76 69 63 65 20 4e 61 6d 65 0d 0a   se Device Name..
30: 50 46 53 50 43 20 20 20 20 20 20 20 33 30 37 37   PFSPC       3077
40: 20 20 20 20 31 34 41 44 20 20 20 20 20 20 20 20       14AD
50: 20 20 50 61 72 73 65 20 46 69 6c 65 20 53 70 65     Parse File Spe
60: 63 2e 0d 0a 52 57 53 45 51 49 20 20 20 20 20 20   c...RWSEQI
70: 33 30 43 36 20 20 20 20 31 34 46 43 20 20 20 20   30C6    14FC
### Disk Sector 175 ###
00: 20 20 20 20 20 20 52 65 77 69 6e 64 20 27 53 65         Rewind 'Se
10: 71 75 65 6e 74 69 61 6c 20 49 6e 70 75 74 27 20   quential Input'
20: 52 6f 75 74 69 6e 65 0d 0a 49 4e 53 45 51 4f 20   Routine..INSEQO
30: 20 20 20 20 20 33 30 45 37 20 20 20 20 31 35 31        30E7    151
40: 44 20 20 20 20 20 20 20 20 20 20 49 6e 69 74 69   D          Initi
50: 61 6c 69 7a 65 20 27 53 65 71 75 65 6e 74 69 61   alize 'Sequentia
60: 6c 20 4f 75 74 70 75 74 27 20 52 6f 75 74 69 6e   l Output' Routin
70: 65 0d 0a 43 4c 53 45 51 4f 20 20 20 20 20 20 33   e..CLSEQO      3
### Disk Sector 176 ###
00: 31 33 36 20 20 20 20 31 35 36 43 20 20 20 20 20   136    156C
10: 20 20 20 20 20 43 6c 6f 73 65 20 27 53 65 71 75        Close 'Sequ
20: 65 6e 74 69 61 6c 20 4f 75 74 70 75 74 27 20 52   ential Output' R
30: 6f 75 74 69 6e 65 0d 0a 57 42 4c 4b 20 20 20 20   outine..WBLK
40: 20 20 20 20 33 31 37 46 20 20 20 20 31 35 42 35       317F    15B5
50: 20 20 20 20 20 20 20 20 20 20 57 72 69 74 65 20             Write
60: 42 6c 6f 63 6b 20 72 6f 75 74 69 6e 65 0d 0a 52   Block routine..R
70: 42 4c 4b 20 20 20 20 20 20 20 20 33 31 38 32 20   BLK        3182
### Disk Sector 177 ###
00: 20 20 20 31 35 42 38 20 20 20 20 20 20 20 20 20      15B8
10: 20 52 65 61 64 20 42 6c 6f 63 6b 20 72 6f 75 74    Read Block rout
20: 69 6e 65 0d 0a 57 42 4c 4b 49 20 20 20 20 20 20   ine..WBLKI
30: 20 33 31 46 36 20 20 20 20 31 36 32 43 20 20 20    31F6    162C
40: 20 20 20 20 20 20 20 57 72 69 74 65 20 42 6c 6f          Write Blo
50: 63 6b 20 26 20 49 6e 63 72 65 6d 65 6e 74 20 72   ck & Increment r
60: 6f 75 74 69 6e 65 0d 0a 52 42 4c 4b 49 20 20 20   outine..RBLKI
70: 20 20 20 20 33 31 46 39 20 20 20 20 31 36 32 46       31F9    162F
### Disk Sector 178 ###
00: 20 20 20 20 20 20 20 20 20 20 52 65 61 64 20 42             Read B
10: 6c 6f 63 6b 20 26 20 49 6e 63 72 65 6d 65 6e 74   lock & Increment
20: 20 72 6f 75 74 69 6e 65 0d 0a 47 54 42 59 54 20    routine..GTBYT
30: 20 20 20 20 20 20 33 32 32 43 20 20 20 20 31 36         322C    16
40: 36 32 20 20 20 20 20 20 20 20 20 20 52 65 61 64   62          Read
50: 20 53 65 71 75 65 6e 74 69 61 6c 20 62 79 74 65    Sequential byte
60: 73 20 66 72 6f 6d 20 61 6e 20 6f 70 65 6e 20 66   s from an open f
70: 69 6c 65 0d 0a 50 54 42 59 54 20 20 20 20 20 20   ile..PTBYT
### Disk Sector 179 ###
00: 20 33 32 34 41 20 20 20 20 31 36 38 30 20 20 20    324A    1680
10: 20 20 20 20 20 20 20 57 72 69 74 65 20 53 65 71          Write Seq
20: 75 65 6e 74 69 61 6c 20 62 79 74 65 73 20 74 6f   uential bytes to
30: 20 61 6e 20 6f 70 65 6e 20 66 69 6c 65 0d 0a 47    an open file..G
40: 41 52 45 43 20 20 20 20 20 20 20 33 32 35 37 20   AREC       3257
50: 20 20 20 31 36 38 44 20 20 20 20 20 20 20 20 20      168D
60: 20 47 65 74 20 41 53 43 49 49 20 72 65 63 6f 72    Get ASCII recor
70: 64 0d 0a 50 56 52 45 43 20 20 20 20 20 20 20 33   d..PVREC       3
### Disk Sector 180 ###
00: 32 37 42 20 20 20 20 31 36 42 31 20 20 20 20 20   27B    16B1
10: 20 20 20 20 20 50 75 74 20 56 61 72 69 61 62 6c        Put Variabl
20: 65 20 6c 65 6e 67 74 68 20 72 65 63 6f 72 64 0d   e length record.
30: 0a 50 54 52 45 43 20 20 20 20 20 20 20 33 32 38   .PTREC       328
40: 35 20 20 20 20 31 36 42 42 20 20 20 20 20 20 20   5    16BB
50: 20 20 20 50 75 74 20 55 6e 66 6f 72 6d 61 74 74      Put Unformatt
60: 65 64 20 72 65 63 6f 72 64 0d 0a 43 52 4c 46 20   ed record..CRLF
70: 20 20 20 20 20 20 20 33 33 38 42 20 20 20 20 31          338B    1
### Disk Sector 181 ###
00: 37 43 31 20 20 20 20 20 20 20 20 20 20 53 65 6e   7C1          Sen
10: 64 20 3c 43 52 3e 20 26 20 3c 4c 46 3e 20 74 6f   d <CR> & <LF> to
20: 20 6f 75 74 70 75 74 20 64 65 76 69 63 65 20 75    output device u
30: 73 69 6e 67 20 3c 4c 4f 3e 0d 0a 4c 4f 20 20 20   sing <LO>..LO
40: 20 20 20 20 20 20 20 33 33 39 32 20 20 20 20 31          3392    1
50: 37 43 38 20 20 20 20 20 20 20 20 20 20 53 65 6e   7C8          Sen
60: 64 20 61 20 63 68 61 72 61 63 74 65 72 20 74 6f   d a character to
70: 20 6f 75 74 70 75 74 20 64 65 76 69 63 65 0d 0a    output device..
### Disk Sector 182 ###
00: 4c 42 59 54 20 20 20 20 20 20 20 20 33 33 39 42   LBYT        339B
10: 20 20 20 20 31 37 44 31 20 20 20 20 20 20 20 20       17D1
20: 20 20 54 61 6b 65 73 20 74 68 65 20 62 79 74 65     Takes the byte
30: 20 76 61 6c 75 65 20 69 6e 20 3c 41 3e 20 61 6e    value in <A> an
40: 64 20 6c 69 73 74 73 20 69 74 20 61 73 0d 0a 20   d lists it as..
50: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
60: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
70: 20 74 77 6f 20 48 65 78 2e 20 63 68 61 72 61 63    two Hex. charac
### Disk Sector 183 ###
00: 74 65 72 73 20 74 6f 20 74 68 65 20 6f 75 74 70   ters to the outp
10: 75 74 20 64 65 76 69 63 65 0d 0a 42 32 48 45 58   ut device..B2HEX
20: 20 20 20 20 20 20 20 33 33 41 41 20 20 20 20 31          33AA    1
30: 37 45 30 20 20 20 20 20 20 20 20 20 20 43 6f 6e   7E0          Con
40: 76 65 72 74 73 20 6c 6f 77 65 72 20 6e 69 62 62   verts lower nibb
50: 6c 65 20 69 6e 20 3c 41 3e 20 74 6f 20 48 65 78   le in <A> to Hex
60: 2e 20 20 64 69 67 69 74 0d 0a 4f 53 54 52 20 20   .  digit..OSTR
70: 20 20 20 20 20 20 33 33 46 34 20 20 20 20 31 38         33F4    18
### Disk Sector 184 ###
00: 32 41 20 20 20 20 20 20 20 20 20 20 53 65 6e 64   2A          Send
10: 73 20 61 20 73 74 72 69 6e 67 2c 20 74 65 72 6d   s a string, term
20: 69 6e 61 74 65 64 20 62 79 20 32 33 39 20 28 45   inated by 239 (E
30: 46 29 20 61 6e 64 0d 0a 20 20 20 20 20 20 20 20   F) and..
40: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
50: 20 20 20 20 20 20 20 20 20 20 70 6f 69 6e 74 65             pointe
60: 64 20 74 6f 20 62 79 20 3c 48 4c 3e 2c 20 74 6f   d to by <HL>, to
70: 20 6f 75 74 70 75 74 20 64 65 76 69 63 65 0d 0a    output device..
### Disk Sector 185 ###
00: 57 41 54 53 20 20 20 20 20 20 20 20 33 34 31 43   WATS        341C
10: 20 20 20 20 31 38 35 32 20 20 20 20 20 20 20 20       1852
20: 20 20 57 61 69 74 20 72 6f 75 74 69 6e 65 20 6f     Wait routine o
30: 66 20 30 2e 35 20 6d 73 65 63 20 2a 20 3c 41 3e   f 0.5 msec * <A>
40: 0d 0a 57 41 54 4c 20 20 20 20 20 20 20 20 33 34   ..WATL        34
50: 32 39 20 20 20 20 31 38 35 46 20 20 20 20 20 20   29    185F
60: 20 20 20 20 57 61 69 74 20 72 6f 75 74 69 6e 65       Wait routine
70: 20 6f 66 20 32 30 20 6d 73 65 63 20 2a 20 3c 41    of 20 msec * <A
### Disk Sector 186 ###
00: 3e 0d 0a 4d 4f 56 44 48 20 20 20 20 20 20 20 33   >..MOVDH       3
10: 34 33 42 20 20 20 20 31 38 37 31 20 20 20 20 20   43B    1871
20: 20 20 20 20 20 4d 6f 76 65 20 3c 42 3e 20 62 79        Move <B> by
30: 74 65 73 20 66 72 6f 6d 20 3c 48 4c 3e 20 74 6f   tes from <HL> to
40: 20 3c 44 45 3e 0d 0a 4d 4f 56 48 44 20 20 20 20    <DE>..MOVHD
50: 20 20 20 33 34 34 34 20 20 20 20 31 38 37 41 20      3444    187A
60: 20 20 20 20 20 20 20 20 20 4d 6f 76 65 20 3c 42            Move <B
70: 3e 20 62 79 74 65 73 20 66 72 6f 6d 20 3c 44 45   > bytes from <DE
### Disk Sector 187 ###
00: 3e 20 74 6f 20 3c 48 4c 3e 0d 0a 43 4d 50 48 44   > to <HL>..CMPHD
10: 20 20 20 20 20 20 20 33 34 34 44 20 20 20 20 31          344D    1
20: 38 38 33 20 20 20 20 20 20 20 20 20 20 43 6f 6d   883          Com
30: 70 61 72 65 20 66 6f 72 20 3c 48 4c 3e 20 28 3c   pare for <HL> (<
40: 3d 3e 29 20 3c 44 45 3e 2c 20 72 65 74 75 72 6e   =>) <DE>, return
50: 73 20 73 65 74 20 28 63 2c 20 7a 2c 20 30 29 0d   s set (c, z, 0).
60: 0a 43 4d 50 44 48 20 20 20 20 20 20 20 33 34 35   .CMPDH       345
70: 33 20 20 20 20 31 38 38 39 20 20 20 20 20 20 20   3    1889
### Disk Sector 188 ###
00: 20 20 20 44 69 74 74 6f 20 73 77 61 70 70 69 6e      Ditto swappin
10: 67 20 3c 44 45 3e 20 77 69 74 68 20 3c 48 4c 3e   g <DE> with <HL>
20: 0d 0a 53 55 42 48 44 20 20 20 20 20 20 20 33 34   ..SUBHD       34
30: 35 39 20 20 20 20 31 38 38 46 20 20 20 20 20 20   59    188F
40: 20 20 20 20 3c 48 4c 3e 20 6d 69 6e 75 73 20 3c       <HL> minus <
50: 44 45 3e 20 2c 20 72 65 73 75 6c 74 20 69 6e 20   DE> , result in
60: 3c 48 4c 3e 0d 0a 44 49 47 20 20 20 20 20 20 20   <HL>..DIG
70: 20 20 33 34 37 36 20 20 20 20 31 38 41 43 20 20     3476    18AC
### Disk Sector 189 ###
00: 20 20 20 20 20 20 20 20 53 63 61 6e 20 63 6f 6d           Scan com
10: 6d 61 6e 64 20 6c 69 6e 65 20 66 6f 72 20 61 20   mand line for a
20: 64 69 67 69 74 2c 20 43 20 73 65 74 20 69 66 20   digit, C set if
30: 79 65 73 0d 0a 41 44 48 4c 41 20 20 20 20 20 20   yes..ADHLA
40: 20 33 35 31 38 20 20 20 20 31 39 34 45 20 20 20    3518    194E
50: 20 20 20 20 20 20 20 3c 48 4c 3e 20 70 6c 75 73          <HL> plus
60: 20 3c 41 3e 20 69 6e 20 3c 48 4c 3e 0d 0a 41 4e    <A> in <HL>..AN
70: 48 44 20 20 20 20 20 20 20 20 33 35 31 44 20 20   HD        351D
### Disk Sector 190 ###
00: 20 20 31 39 35 33 20 20 20 20 20 20 20 20 20 20     1953
10: 3c 48 4c 3e 20 41 4e 44 20 3c 44 45 3e 2c 20 70   <HL> AND <DE>, p
20: 6c 61 63 65 64 20 69 6e 20 3c 48 4c 3e 2c 20 3c   laced in <HL>, <
30: 44 45 3e 20 70 72 65 73 65 72 76 65 64 0d 0a 4e   DE> preserved..N
40: 45 47 48 20 20 20 20 20 20 20 20 33 35 32 34 20   EGH        3524
50: 20 20 20 31 39 35 41 20 20 20 20 20 20 20 20 20      195A
60: 20 54 77 6f 73 20 63 6f 6d 70 6c 65 6d 65 6e 74    Twos complement
70: 20 6f 66 20 3c 48 4c 3e 20 70 6c 61 63 65 64 20    of <HL> placed
### Disk Sector 191 ###
00: 69 6e 20 3c 48 4c 3e 0d 0a 4e 4f 54 48 20 20 20   in <HL>..NOTH
10: 20 20 20 20 20 33 35 32 35 20 20 20 20 31 39 35        3525    195
20: 42 20 20 20 20 20 20 20 20 20 20 4f 6e 65 73 20   B          Ones
30: 63 6f 6d 70 6c 65 6d 65 6e 74 20 6f 66 20 3c 48   complement of <H
40: 4c 3e 20 70 6c 61 63 65 64 20 69 6e 20 3c 48 4c   L> placed in <HL
50: 3e 0d 0a 4f 52 48 44 20 20 20 20 20 20 20 20 33   >..ORHD        3
60: 35 32 43 20 20 20 20 31 39 36 32 20 20 20 20 20   52C    1962
70: 20 20 20 20 20 3c 48 4c 3e 20 4f 52 20 3c 44 45        <HL> OR <DE
### Disk Sector 192 ###
00: 3e 2c 20 70 6c 61 63 65 64 20 69 6e 20 3c 48 4c   >, placed in <HL
10: 3e 2c 20 3c 44 45 3e 20 70 72 65 73 65 72 76 65   >, <DE> preserve
20: 64 0d 0a 58 4f 52 48 44 20 20 20 20 20 20 20 33   d..XORHD       3
30: 35 33 33 20 20 20 20 31 39 36 39 20 20 20 20 20   533    1969
40: 20 20 20 20 20 3c 48 4c 3e 20 58 4f 52 20 3c 44        <HL> XOR <D
50: 45 3e 2c 20 70 6c 61 63 65 64 20 69 6e 20 3c 48   E>, placed in <H
60: 4c 3e 2c 20 3c 44 45 3e 20 70 72 65 73 65 72 76   L>, <DE> preserv
70: 65 64 0d 0a 53 48 4c 48 44 20 20 20 20 20 20 20   ed..SHLHD
### Disk Sector 193 ###
00: 33 35 33 41 20 20 20 20 31 39 37 30 20 20 20 20   353A    1970
10: 20 20 20 20 20 20 53 68 69 66 74 20 3c 44 45 3e         Shift <DE>
20: 20 6c 65 66 74 20 3c 48 4c 3e 20 74 69 6d 65 73    left <HL> times
30: 20 77 69 74 68 20 7a 65 72 6f 20 66 69 6c 6c 2c    with zero fill,
40: 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20   ..
50: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
60: 20 20 20 20 72 65 73 75 6c 74 20 69 6e 20 3c 48       result in <H
70: 4c 3e 2c 20 3c 44 45 3e 20 6c 6f 73 74 2c 20 3c   L>, <DE> lost, <
### Disk Sector 194 ###
00: 42 43 3e 20 70 72 65 73 65 72 76 65 64 0d 0a 53   BC> preserved..S
10: 48 52 48 44 20 20 20 20 20 20 20 33 35 34 34 20   HRHD       3544
20: 20 20 20 31 39 37 41 20 20 20 20 20 20 20 20 20      197A
30: 20 44 69 74 74 6f 20 62 75 74 20 52 69 67 68 74    Ditto but Right
40: 20 73 68 69 66 74 0d 0a 4d 55 4c 48 44 20 20 20    shift..MULHD
50: 20 20 20 20 33 35 36 32 20 20 20 20 31 39 39 38       3562    1998
60: 20 20 20 20 20 20 20 20 20 20 3c 44 45 3e 2a 3c             <DE>*<
70: 48 4c 3e 2c 20 70 6c 61 63 65 64 20 69 6e 20 3c   HL>, placed in <
### Disk Sector 195 ###
00: 48 4c 3e 2c 20 3c 42 43 3e 20 70 72 65 73 65 72   HL>, <BC> preser
10: 76 65 64 0d 0a 44 49 56 48 44 20 20 20 20 20 20   ved..DIVHD
20: 20 33 35 38 31 20 20 20 20 31 39 42 37 20 20 20    3581    19B7
30: 20 20 20 20 20 20 20 3c 44 45 3e 2f 3c 48 4c 3e          <DE>/<HL>
40: 2c 20 64 69 76 69 64 65 6e 64 20 69 6e 20 3c 48   , dividend in <H
50: 4c 3e 2c 20 72 65 6d 61 69 6e 64 65 72 20 69 6e   L>, remainder in
60: 20 3c 44 45 3e 2c 20 3c 42 43 3e 20 70 72 65 73    <DE>, <BC> pres
70: 65 72 76 65 64 0d 0a 53 41 56 45 20 20 20 20 20   erved..SAVE
### Disk Sector 196 ###
00: 20 20 20 33 46 44 30 20 20 20 20 30 41 32 45 20      3FD0    0A2E
10: 20 20 20 20 20 20 20 20 20 53 61 76 65 20 61 6c            Save al
20: 6c 20 72 65 67 69 73 74 65 72 73 20 6f 6e 20 65   l registers on e
30: 6e 74 72 79 20 74 6f 20 73 75 62 72 6f 75 74 69   ntry to subrouti
40: 6e 65 2e 0d 0a 0d 0c 00 00 00 00 00 00 00 00 00   ne..............
50: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00   ................
60: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00   ................
70: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00   ................