� Screen Loader
� David Acton/Bruce Smith
� BBC B/B+/M/Electron
(!� (c) Acorn User October 1986
2:
<	�vars
F
�assemble
P
�checksum
Z*SAVE Ldpic 2E00 2F35
d�
n:
x� �vars
�osbyte=&FFF4:osfind=&FFCE
�oswrch=&FFEE:osbget=&FFD7
��
�:
�� �assemble
�� pass=0 � 3 � 3
�P%=&2E00
�
[OPT pass
�LDA #&06   
�CLC        
�ADC &F2    
�TAX        
�LDA &F3    

ADC #&00   

TAY        

LDA #&40   

"JSR osfind

,CMP #&00   

6BNE noerror

@BRK

J]

T?P%=&D6:P%=P%+1

^$P%="No Screen File"

hP%=P%+�($P%)

r
[OPT pass

|BRK

�.noerror

�STA &75    

�LDA #&01   

�STA &73    

�LDX #&08   

�JSR subroutine1

�STA &7A    

�LDX #&08   

�JSR subroutine1

�STA &7B    

�LDA #&A0   

�LDX #&55   

�JSR osbyte
TXA        
CMP &7B    
BEQ nochange
&LDA #&16   
0JSR oswrch
:LDA &7B    
DJSR oswrch
NLDX #&09
X
.nextbyte
bLDA buffer,X
lJSR oswrch
vDEX        
�BPL nextbyte
�
.nochange
�LDA #&84   
�LDX #&00   
�LDY #&00   
�JSR osbyte
�STX &7C    
�STY &7D    
�LDX #&0F
�	.loop
�LDA #&13   
�JSR oswrch
�TXA        
PHA        
JSR oswrch
LDX #&04   
 JSR subroutine1
*JSR oswrch
4LDA #&00   
>JSR oswrch
HJSR oswrch
RJSR oswrch
\PLA        
fTAX        
pDEX        
zBPL loop
�LDX #&08   
�JSR subroutine1
�STA &7E    
�LDX #&08   
�JSR subroutine1
�STA &88    
�LDA &7E    
�STA &7F
�	.redo
�JSR swap
�LDA &7F    
�SEC        
�SBC #&01   
STA &70
.rightback
JSR subroutine2
$BCC forward
.LDX &88    
8JSR subroutine1
BSTA &77    
LLDX &7A    
VJSR subroutine1
`STA &78    
jLDY #&00
t.goback
~LDA &78    
�STA (&70),Y
�JSR addmove
�DEC &77    
�BNE goback
�
JMP ahead
�.forward
�LDX &7A    
�JSR subroutine1
�LDY #&00   
�STA (&70),Y
�JSR addmove
�
.ahead
LDA &71    

BPL rightback
DEC &7F    
BEQ carryon
(JMP redo
2.carryon
<LDA #&00   
FLDY &75    
PJMP osfind
Z.subroutine2
dDEC &73    
n
BNE noget
xLDY &75    
�JSR osbget
�STA &74    
�LDA #&08   
�STA &73
�
.noget
�ASL &74    
�RTS
�.subroutine1
�STX &79    
�LDA #&08   
�SEC        
�SBC &79    
�STA &79    
LDA #&00   
STA &76
.nextbit
"JSR subroutine2
,ROR &76    
6DEX        
@BNE nextbit
JLDX &79    
TBEQ return
^.trynext
hCLC        
rROR &76    
|DEX        
�BNE trynext
�.return
�LDA &76
�RTS
�	.swap
�LDA &7C    
�STA &70    
�LDA &7D    
�STA &71    
�RTS
�.addmove
�LDA &70    
�CLC        
ADC &7E    
STA &70    
LDA &71    
&ADC #&00   
0STA &71    
:RTS
D.buffer
N]
X�
b�
l:
v� �checksum
�C%=0
�� X%=&2E00 � &2F32
�
C%=C%+?X%
�� 
�� C%=37790 � �
�� 7
��"Checksum error!"
��
�

00000000  0d 00 0a 13 f4 20 53 63  72 65 65 6e 20 4c 6f 61  |..... Screen Loa|
00000010  64 65 72 0d 00 14 1d f4  20 44 61 76 69 64 20 41  |der..... David A|
00000020  63 74 6f 6e 2f 42 72 75  63 65 20 53 6d 69 74 68  |cton/Bruce Smith|
00000030  0d 00 1e 19 f4 20 42 42  43 20 42 2f 42 2b 2f 4d  |..... BBC B/B+/M|
00000040  2f 45 6c 65 63 74 72 6f  6e 0d 00 28 21 f4 20 28  |/Electron..(!. (|
00000050  63 29 20 41 63 6f 72 6e  20 55 73 65 72 20 4f 63  |c) Acorn User Oc|
00000060  74 6f 62 65 72 20 31 39  38 36 0d 00 32 05 3a 0d  |tober 1986..2.:.|
00000070  00 3c 09 f2 76 61 72 73  0d 00 46 0d f2 61 73 73  |.<..vars..F..ass|
00000080  65 6d 62 6c 65 0d 00 50  0d f2 63 68 65 63 6b 73  |emble..P..checks|
00000090  75 6d 0d 00 5a 19 2a 53  41 56 45 20 4c 64 70 69  |um..Z.*SAVE Ldpi|
000000a0  63 20 32 45 30 30 20 32  46 33 35 0d 00 64 05 e0  |c 2E00 2F35..d..|
000000b0  0d 00 6e 05 3a 0d 00 78  0b dd 20 f2 76 61 72 73  |..n.:..x.. .vars|
000000c0  0d 00 82 1d 6f 73 62 79  74 65 3d 26 46 46 46 34  |....osbyte=&FFF4|
000000d0  3a 6f 73 66 69 6e 64 3d  26 46 46 43 45 0d 00 8c  |:osfind=&FFCE...|
000000e0  1d 6f 73 77 72 63 68 3d  26 46 46 45 45 3a 6f 73  |.oswrch=&FFEE:os|
000000f0  62 67 65 74 3d 26 46 46  44 37 0d 00 96 05 e1 0d  |bget=&FFD7......|
00000100  00 a0 05 3a 0d 00 aa 0f  dd 20 f2 61 73 73 65 6d  |...:..... .assem|
00000110  62 6c 65 0d 00 b4 14 e3  20 70 61 73 73 3d 30 20  |ble..... pass=0 |
00000120  b8 20 33 20 88 20 33 0d  00 be 0c 50 25 3d 26 32  |. 3 . 3....P%=&2|
00000130  45 30 30 0d 00 c8 0d 5b  4f 50 54 20 70 61 73 73  |E00....[OPT pass|
00000140  0d 00 d2 0f 4c 44 41 20  23 26 30 36 20 20 20 0d  |....LDA #&06   .|
00000150  00 dc 0f 43 4c 43 20 20  20 20 20 20 20 20 0d 00  |...CLC        ..|
00000160  e6 0f 41 44 43 20 26 46  32 20 20 20 20 0d 00 f0  |..ADC &F2    ...|
00000170  0f 54 41 58 20 20 20 20  20 20 20 20 0d 00 fa 0f  |.TAX        ....|
00000180  4c 44 41 20 26 46 33 20  20 20 20 0d 01 04 0f 41  |LDA &F3    ....A|
00000190  44 43 20 23 26 30 30 20  20 20 0d 01 0e 0f 54 41  |DC #&00   ....TA|
000001a0  59 20 20 20 20 20 20 20  20 0d 01 18 0f 4c 44 41  |Y        ....LDA|
000001b0  20 23 26 34 30 20 20 20  0d 01 22 0e 4a 53 52 20  | #&40   ..".JSR |
000001c0  6f 73 66 69 6e 64 0d 01  2c 0f 43 4d 50 20 23 26  |osfind..,.CMP #&|
000001d0  30 30 20 20 20 0d 01 36  0f 42 4e 45 20 6e 6f 65  |00   ..6.BNE noe|
000001e0  72 72 6f 72 0d 01 40 07  42 52 4b 0d 01 4a 05 5d  |rror..@.BRK..J.]|
000001f0  0d 01 54 13 3f 50 25 3d  26 44 36 3a 50 25 3d 50  |..T.?P%=&D6:P%=P|
00000200  25 2b 31 0d 01 5e 18 24  50 25 3d 22 4e 6f 20 53  |%+1..^.$P%="No S|
00000210  63 72 65 65 6e 20 46 69  6c 65 22 0d 01 68 10 50  |creen File"..h.P|
00000220  25 3d 50 25 2b a9 28 24  50 25 29 0d 01 72 0d 5b  |%=P%+.($P%)..r.[|
00000230  4f 50 54 20 70 61 73 73  0d 01 7c 07 42 52 4b 0d  |OPT pass..|.BRK.|
00000240  01 86 0c 2e 6e 6f 65 72  72 6f 72 0d 01 90 0f 53  |....noerror....S|
00000250  54 41 20 26 37 35 20 20  20 20 0d 01 9a 0f 4c 44  |TA &75    ....LD|
00000260  41 20 23 26 30 31 20 20  20 0d 01 a4 0f 53 54 41  |A #&01   ....STA|
00000270  20 26 37 33 20 20 20 20  0d 01 ae 0f 4c 44 58 20  | &73    ....LDX |
00000280  23 26 30 38 20 20 20 0d  01 b8 13 4a 53 52 20 73  |#&08   ....JSR s|
00000290  75 62 72 6f 75 74 69 6e  65 31 0d 01 c2 0f 53 54  |ubroutine1....ST|
000002a0  41 20 26 37 41 20 20 20  20 0d 01 cc 0f 4c 44 58  |A &7A    ....LDX|
000002b0  20 23 26 30 38 20 20 20  0d 01 d6 13 4a 53 52 20  | #&08   ....JSR |
000002c0  73 75 62 72 6f 75 74 69  6e 65 31 0d 01 e0 0f 53  |subroutine1....S|
000002d0  54 41 20 26 37 42 20 20  20 20 0d 01 ea 0f 4c 44  |TA &7B    ....LD|
000002e0  41 20 23 26 41 30 20 20  20 0d 01 f4 0f 4c 44 58  |A #&A0   ....LDX|
000002f0  20 23 26 35 35 20 20 20  0d 01 fe 0e 4a 53 52 20  | #&55   ....JSR |
00000300  6f 73 62 79 74 65 0d 02  08 0f 54 58 41 20 20 20  |osbyte....TXA   |
00000310  20 20 20 20 20 0d 02 12  0f 43 4d 50 20 26 37 42  |     ....CMP &7B|
00000320  20 20 20 20 0d 02 1c 10  42 45 51 20 6e 6f 63 68  |    ....BEQ noch|
00000330  61 6e 67 65 0d 02 26 0f  4c 44 41 20 23 26 31 36  |ange..&.LDA #&16|
00000340  20 20 20 0d 02 30 0e 4a  53 52 20 6f 73 77 72 63  |   ..0.JSR oswrc|
00000350  68 0d 02 3a 0f 4c 44 41  20 26 37 42 20 20 20 20  |h..:.LDA &7B    |
00000360  0d 02 44 0e 4a 53 52 20  6f 73 77 72 63 68 0d 02  |..D.JSR oswrch..|
00000370  4e 0c 4c 44 58 20 23 26  30 39 0d 02 58 0d 2e 6e  |N.LDX #&09..X..n|
00000380  65 78 74 62 79 74 65 0d  02 62 10 4c 44 41 20 62  |extbyte..b.LDA b|
00000390  75 66 66 65 72 2c 58 0d  02 6c 0e 4a 53 52 20 6f  |uffer,X..l.JSR o|
000003a0  73 77 72 63 68 0d 02 76  0f 44 45 58 20 20 20 20  |swrch..v.DEX    |
000003b0  20 20 20 20 0d 02 80 10  42 50 4c 20 6e 65 78 74  |    ....BPL next|
000003c0  62 79 74 65 0d 02 8a 0d  2e 6e 6f 63 68 61 6e 67  |byte.....nochang|
000003d0  65 0d 02 94 0f 4c 44 41  20 23 26 38 34 20 20 20  |e....LDA #&84   |
000003e0  0d 02 9e 0f 4c 44 58 20  23 26 30 30 20 20 20 0d  |....LDX #&00   .|
000003f0  02 a8 0f 4c 44 59 20 23  26 30 30 20 20 20 0d 02  |...LDY #&00   ..|
00000400  b2 0e 4a 53 52 20 6f 73  62 79 74 65 0d 02 bc 0f  |..JSR osbyte....|
00000410  53 54 58 20 26 37 43 20  20 20 20 0d 02 c6 0f 53  |STX &7C    ....S|
00000420  54 59 20 26 37 44 20 20  20 20 0d 02 d0 0c 4c 44  |TY &7D    ....LD|
00000430  58 20 23 26 30 46 0d 02  da 09 2e 6c 6f 6f 70 0d  |X #&0F.....loop.|
00000440  02 e4 0f 4c 44 41 20 23  26 31 33 20 20 20 0d 02  |...LDA #&13   ..|
00000450  ee 0e 4a 53 52 20 6f 73  77 72 63 68 0d 02 f8 0f  |..JSR oswrch....|
00000460  54 58 41 20 20 20 20 20  20 20 20 0d 03 02 0f 50  |TXA        ....P|
00000470  48 41 20 20 20 20 20 20  20 20 0d 03 0c 0e 4a 53  |HA        ....JS|
00000480  52 20 6f 73 77 72 63 68  0d 03 16 0f 4c 44 58 20  |R oswrch....LDX |
00000490  23 26 30 34 20 20 20 0d  03 20 13 4a 53 52 20 73  |#&04   .. .JSR s|
000004a0  75 62 72 6f 75 74 69 6e  65 31 0d 03 2a 0e 4a 53  |ubroutine1..*.JS|
000004b0  52 20 6f 73 77 72 63 68  0d 03 34 0f 4c 44 41 20  |R oswrch..4.LDA |
000004c0  23 26 30 30 20 20 20 0d  03 3e 0e 4a 53 52 20 6f  |#&00   ..>.JSR o|
000004d0  73 77 72 63 68 0d 03 48  0e 4a 53 52 20 6f 73 77  |swrch..H.JSR osw|
000004e0  72 63 68 0d 03 52 0e 4a  53 52 20 6f 73 77 72 63  |rch..R.JSR oswrc|
000004f0  68 0d 03 5c 0f 50 4c 41  20 20 20 20 20 20 20 20  |h..\.PLA        |
00000500  0d 03 66 0f 54 41 58 20  20 20 20 20 20 20 20 0d  |..f.TAX        .|
00000510  03 70 0f 44 45 58 20 20  20 20 20 20 20 20 0d 03  |.p.DEX        ..|
00000520  7a 0c 42 50 4c 20 6c 6f  6f 70 0d 03 84 0f 4c 44  |z.BPL loop....LD|
00000530  58 20 23 26 30 38 20 20  20 0d 03 8e 13 4a 53 52  |X #&08   ....JSR|
00000540  20 73 75 62 72 6f 75 74  69 6e 65 31 0d 03 98 0f  | subroutine1....|
00000550  53 54 41 20 26 37 45 20  20 20 20 0d 03 a2 0f 4c  |STA &7E    ....L|
00000560  44 58 20 23 26 30 38 20  20 20 0d 03 ac 13 4a 53  |DX #&08   ....JS|
00000570  52 20 73 75 62 72 6f 75  74 69 6e 65 31 0d 03 b6  |R subroutine1...|
00000580  0f 53 54 41 20 26 38 38  20 20 20 20 0d 03 c0 0f  |.STA &88    ....|
00000590  4c 44 41 20 26 37 45 20  20 20 20 0d 03 ca 0b 53  |LDA &7E    ....S|
000005a0  54 41 20 26 37 46 0d 03  d4 09 2e 72 65 64 6f 0d  |TA &7F.....redo.|
000005b0  03 de 0c 4a 53 52 20 73  77 61 70 0d 03 e8 0f 4c  |...JSR swap....L|
000005c0  44 41 20 26 37 46 20 20  20 20 0d 03 f2 0f 53 45  |DA &7F    ....SE|
000005d0  43 20 20 20 20 20 20 20  20 0d 03 fc 0f 53 42 43  |C        ....SBC|
000005e0  20 23 26 30 31 20 20 20  0d 04 06 0b 53 54 41 20  | #&01   ....STA |
000005f0  26 37 30 0d 04 10 0e 2e  72 69 67 68 74 62 61 63  |&70.....rightbac|
00000600  6b 0d 04 1a 13 4a 53 52  20 73 75 62 72 6f 75 74  |k....JSR subrout|
00000610  69 6e 65 32 0d 04 24 0f  42 43 43 20 66 6f 72 77  |ine2..$.BCC forw|
00000620  61 72 64 0d 04 2e 0f 4c  44 58 20 26 38 38 20 20  |ard....LDX &88  |
00000630  20 20 0d 04 38 13 4a 53  52 20 73 75 62 72 6f 75  |  ..8.JSR subrou|
00000640  74 69 6e 65 31 0d 04 42  0f 53 54 41 20 26 37 37  |tine1..B.STA &77|
00000650  20 20 20 20 0d 04 4c 0f  4c 44 58 20 26 37 41 20  |    ..L.LDX &7A |
00000660  20 20 20 0d 04 56 13 4a  53 52 20 73 75 62 72 6f  |   ..V.JSR subro|
00000670  75 74 69 6e 65 31 0d 04  60 0f 53 54 41 20 26 37  |utine1..`.STA &7|
00000680  38 20 20 20 20 0d 04 6a  0c 4c 44 59 20 23 26 30  |8    ..j.LDY #&0|
00000690  30 0d 04 74 0b 2e 67 6f  62 61 63 6b 0d 04 7e 0f  |0..t..goback..~.|
000006a0  4c 44 41 20 26 37 38 20  20 20 20 0d 04 88 0f 53  |LDA &78    ....S|
000006b0  54 41 20 28 26 37 30 29  2c 59 0d 04 92 0f 4a 53  |TA (&70),Y....JS|
000006c0  52 20 61 64 64 6d 6f 76  65 0d 04 9c 0f 44 45 43  |R addmove....DEC|
000006d0  20 26 37 37 20 20 20 20  0d 04 a6 0e 42 4e 45 20  | &77    ....BNE |
000006e0  67 6f 62 61 63 6b 0d 04  b0 0d 4a 4d 50 20 61 68  |goback....JMP ah|
000006f0  65 61 64 0d 04 ba 0c 2e  66 6f 72 77 61 72 64 0d  |ead.....forward.|
00000700  04 c4 0f 4c 44 58 20 26  37 41 20 20 20 20 0d 04  |...LDX &7A    ..|
00000710  ce 13 4a 53 52 20 73 75  62 72 6f 75 74 69 6e 65  |..JSR subroutine|
00000720  31 0d 04 d8 0f 4c 44 59  20 23 26 30 30 20 20 20  |1....LDY #&00   |
00000730  0d 04 e2 0f 53 54 41 20  28 26 37 30 29 2c 59 0d  |....STA (&70),Y.|
00000740  04 ec 0f 4a 53 52 20 61  64 64 6d 6f 76 65 0d 04  |...JSR addmove..|
00000750  f6 0a 2e 61 68 65 61 64  0d 05 00 0f 4c 44 41 20  |...ahead....LDA |
00000760  26 37 31 20 20 20 20 0d  05 0a 11 42 50 4c 20 72  |&71    ....BPL r|
00000770  69 67 68 74 62 61 63 6b  0d 05 14 0f 44 45 43 20  |ightback....DEC |
00000780  26 37 46 20 20 20 20 0d  05 1e 0f 42 45 51 20 63  |&7F    ....BEQ c|
00000790  61 72 72 79 6f 6e 0d 05  28 0c 4a 4d 50 20 72 65  |arryon..(.JMP re|
000007a0  64 6f 0d 05 32 0c 2e 63  61 72 72 79 6f 6e 0d 05  |do..2..carryon..|
000007b0  3c 0f 4c 44 41 20 23 26  30 30 20 20 20 0d 05 46  |<.LDA #&00   ..F|
000007c0  0f 4c 44 59 20 26 37 35  20 20 20 20 0d 05 50 0e  |.LDY &75    ..P.|
000007d0  4a 4d 50 20 6f 73 66 69  6e 64 0d 05 5a 10 2e 73  |JMP osfind..Z..s|
000007e0  75 62 72 6f 75 74 69 6e  65 32 0d 05 64 0f 44 45  |ubroutine2..d.DE|
000007f0  43 20 26 37 33 20 20 20  20 0d 05 6e 0d 42 4e 45  |C &73    ..n.BNE|
00000800  20 6e 6f 67 65 74 0d 05  78 0f 4c 44 59 20 26 37  | noget..x.LDY &7|
00000810  35 20 20 20 20 0d 05 82  0e 4a 53 52 20 6f 73 62  |5    ....JSR osb|
00000820  67 65 74 0d 05 8c 0f 53  54 41 20 26 37 34 20 20  |get....STA &74  |
00000830  20 20 0d 05 96 0f 4c 44  41 20 23 26 30 38 20 20  |  ....LDA #&08  |
00000840  20 0d 05 a0 0b 53 54 41  20 26 37 33 0d 05 aa 0a  | ....STA &73....|
00000850  2e 6e 6f 67 65 74 0d 05  b4 0f 41 53 4c 20 26 37  |.noget....ASL &7|
00000860  34 20 20 20 20 0d 05 be  07 52 54 53 0d 05 c8 10  |4    ....RTS....|
00000870  2e 73 75 62 72 6f 75 74  69 6e 65 31 0d 05 d2 0f  |.subroutine1....|
00000880  53 54 58 20 26 37 39 20  20 20 20 0d 05 dc 0f 4c  |STX &79    ....L|
00000890  44 41 20 23 26 30 38 20  20 20 0d 05 e6 0f 53 45  |DA #&08   ....SE|
000008a0  43 20 20 20 20 20 20 20  20 0d 05 f0 0f 53 42 43  |C        ....SBC|
000008b0  20 26 37 39 20 20 20 20  0d 05 fa 0f 53 54 41 20  | &79    ....STA |
000008c0  26 37 39 20 20 20 20 0d  06 04 0f 4c 44 41 20 23  |&79    ....LDA #|
000008d0  26 30 30 20 20 20 0d 06  0e 0b 53 54 41 20 26 37  |&00   ....STA &7|
000008e0  36 0d 06 18 0c 2e 6e 65  78 74 62 69 74 0d 06 22  |6.....nextbit.."|
000008f0  13 4a 53 52 20 73 75 62  72 6f 75 74 69 6e 65 32  |.JSR subroutine2|
00000900  0d 06 2c 0f 52 4f 52 20  26 37 36 20 20 20 20 0d  |..,.ROR &76    .|
00000910  06 36 0f 44 45 58 20 20  20 20 20 20 20 20 0d 06  |.6.DEX        ..|
00000920  40 0f 42 4e 45 20 6e 65  78 74 62 69 74 0d 06 4a  |@.BNE nextbit..J|
00000930  0f 4c 44 58 20 26 37 39  20 20 20 20 0d 06 54 0e  |.LDX &79    ..T.|
00000940  42 45 51 20 72 65 74 75  72 6e 0d 06 5e 0c 2e 74  |BEQ return..^..t|
00000950  72 79 6e 65 78 74 0d 06  68 0f 43 4c 43 20 20 20  |rynext..h.CLC   |
00000960  20 20 20 20 20 0d 06 72  0f 52 4f 52 20 26 37 36  |     ..r.ROR &76|
00000970  20 20 20 20 0d 06 7c 0f  44 45 58 20 20 20 20 20  |    ..|.DEX     |
00000980  20 20 20 0d 06 86 0f 42  4e 45 20 74 72 79 6e 65  |   ....BNE tryne|
00000990  78 74 0d 06 90 0b 2e 72  65 74 75 72 6e 0d 06 9a  |xt.....return...|
000009a0  0b 4c 44 41 20 26 37 36  0d 06 a4 07 52 54 53 0d  |.LDA &76....RTS.|
000009b0  06 ae 09 2e 73 77 61 70  0d 06 b8 0f 4c 44 41 20  |....swap....LDA |
000009c0  26 37 43 20 20 20 20 0d  06 c2 0f 53 54 41 20 26  |&7C    ....STA &|
000009d0  37 30 20 20 20 20 0d 06  cc 0f 4c 44 41 20 26 37  |70    ....LDA &7|
000009e0  44 20 20 20 20 0d 06 d6  0f 53 54 41 20 26 37 31  |D    ....STA &71|
000009f0  20 20 20 20 0d 06 e0 07  52 54 53 0d 06 ea 0c 2e  |    ....RTS.....|
00000a00  61 64 64 6d 6f 76 65 0d  06 f4 0f 4c 44 41 20 26  |addmove....LDA &|
00000a10  37 30 20 20 20 20 0d 06  fe 0f 43 4c 43 20 20 20  |70    ....CLC   |
00000a20  20 20 20 20 20 0d 07 08  0f 41 44 43 20 26 37 45  |     ....ADC &7E|
00000a30  20 20 20 20 0d 07 12 0f  53 54 41 20 26 37 30 20  |    ....STA &70 |
00000a40  20 20 20 0d 07 1c 0f 4c  44 41 20 26 37 31 20 20  |   ....LDA &71  |
00000a50  20 20 0d 07 26 0f 41 44  43 20 23 26 30 30 20 20  |  ..&.ADC #&00  |
00000a60  20 0d 07 30 0f 53 54 41  20 26 37 31 20 20 20 20  | ..0.STA &71    |
00000a70  0d 07 3a 07 52 54 53 0d  07 44 0b 2e 62 75 66 66  |..:.RTS..D..buff|
00000a80  65 72 0d 07 4e 05 5d 0d  07 58 05 ed 0d 07 62 05  |er..N.]..X....b.|
00000a90  e1 0d 07 6c 05 3a 0d 07  76 0f dd 20 f2 63 68 65  |...l.:..v.. .che|
00000aa0  63 6b 73 75 6d 0d 07 80  08 43 25 3d 30 0d 07 8a  |cksum....C%=0...|
00000ab0  16 e3 20 58 25 3d 26 32  45 30 30 20 b8 20 26 32  |.. X%=&2E00 . &2|
00000ac0  46 33 32 0d 07 94 0d 43  25 3d 43 25 2b 3f 58 25  |F32....C%=C%+?X%|
00000ad0  0d 07 9e 06 ed 20 0d 07  a8 12 e7 20 43 25 3d 33  |..... ..... C%=3|
00000ae0  37 37 39 30 20 8c 20 e1  0d 07 b2 07 ef 20 37 0d  |7790 . ...... 7.|
00000af0  07 bc 16 f1 22 43 68 65  63 6b 73 75 6d 20 65 72  |...."Checksum er|
00000b00  72 6f 72 21 22 0d 07 c6  05 fa 0d ff              |ror!".......|
00000b0c