Home » Personal collection » Acorn hard disk » misc » misc2 » shipw4/Arcade/Screen2

shipw4/Arcade/Screen2

This website contains an archive of files for the Acorn Electron, BBC Micro, Acorn Archimedes, Commodore 16 and Commodore 64 computers, which Dominic Ford has rescued from his private collection of floppy disks and cassettes.

Some of these files were originally commercial releases in the 1980s and 1990s, but they are now widely available online. I assume that copyright over them is no longer being asserted. If you own the copyright and would like files to be removed, please contact me.

Tape/disk: Home » Personal collection » Acorn hard disk » misc » misc2
Filename: shipw4/Arcade/Screen2
Read OK:
File size: 0868 bytes
Load address: 0000
Exec address: 0000
Duplicates

There are 4 duplicate copies of this file in the archive:

File contents
   10MODE 6
   20IF PAGE<>&E00 THEN PROCreloc
   30VDU6:HIMEM=&2000:*LOAD BLOCDAT 2000
   40FORpass=0 TO 2 STEP 2
   50P%=&A00
   60[OPT pass
   70.screen LDA#&30:CLC:ADCxscr:STA&71:LDAyscr:ASL A:ASL A:ASL A:ASL A:CLC:ADC&71:STA&71:LDA#&FF:STAyset:.ylop LDA#&FF:STAxset:INCyset
   80.xlop INCxset:LDAypos:PHA:STA&70:PLA:ASL A:ASL A:PHA:CLC:ADC&70:STA&70:PLA:ASL A:ASL A:CLC:ADC&70:STA&70:LDYxset:LDAxdata,Y:TAY:LDA(&70),Y:ROL A:ROL A:ROL A:AND#3:STA&72:INY:LDA(&70),Y:LSR A:LSR A:LSR A:LSR A:AND#12
   90CLC:ADC&72:STA&72:LDAxset:LSR A:TAY:LDAhbdat,Y:TAY:LDA(&70),Y:STA&73:LDAxset:AND#1:BNEbit2:LDA&73:LSR A:ROL A:ROL A:JMPfbgot
  100.bit2 LDA&73:LSR A:ROL A
  110.fbgot AND#1:ASL A:ASL A:ASL A:ASL A:CLC:ADC&72:STA&72
  120LDAxset:ASL A:ASL A:ASL A:ASL A:ASL A:ASL A:STA&70:LDAxset:LSR A:LSR A:CLC:ADC#&30:STA&71:LDAyset:CLC:ADC&71:STA&71:LDAyset:ASL A:ASL A:CLC:ADC&71:STA&71
  130LDA&72:PHA:LSR A:LSR A:CLC:ADC#&20:STA&73:LDA&72:LSR A:ROR A:ROR A:AND#&C0:STA&72:LDY#0
  140.transtop LDA(&70),Y:AND#&C0:CLC:ADC(&72),Y:AND#&3F:STA(&70),Y:INY:CPY#&40:BNEtranstop:LDY#0:PLA:STA(&70),Y:LDA&72:CLC:ADC#&40:STA&72:LDA&70:CLC:ADC#&80:STA&70:LDA&71:ADC#2:STA&71:LDY#0
  150.transbot LDA(&70),Y:AND#&C0:CLC:ADC(&72),Y:AND#&3F:STA(&70),Y:INY:CPY#&40:BNEtransbot
  160LDX#0:LDY#20:.temp INX:BNEtemp:DEY:BNEtemp
  170LDAxset:CMP#9:BEQnexty:JMPxlop
  180.nexty LDAyset:CMP#9:BEQscrend:JMPylop
  190.scrend RTS
  200.xdata EQUB0:EQUB2:EQUB5:EQUB7:EQUB10:EQUB12:EQUB15:EQUB17:EQUB20:EQUB22
  210.hbdat EQUB4:EQUB9:EQUB14:EQUB19:EQUB24
  220.xset EQUB0
  230.yset EQUB0
  240.xscr EQUB0
  250.yscr EQUB0
  260.xpos EQUB0
  270.ypos EQUB0
  280]:NEXT
  290MODE2:VDU23,1,0;0;0;0;
  300CALLscreen:VDU23,1,1,0;0;0;0;
  310REPEAT UNTIL FALSE
  320:
  330DEFPROCreloc
  340HIMEM=&5800:newpage=&E
  350FOR pass=0 TO 2 STEP 2
  360P%=&C00
  370[OPTpass
  380    LDY#0:STY&70:STY&72:LDA#newpage:SEC:SBC&18:STA&74:LDA&18:CMP#newpage:BCCad
  390.sb STA&71:LDA#newpage:STA&73
  400.m1 LDA(&70),Y:STA(&72),Y:INY:BNEm1:INC&71:INC&73:LDX&71:DEX:CPX&03:BCCm1:BCSem
  410.ad LDA&03:STA&71:CLC:ADC&74:STA&73:LDA#0:LDY&02
  420.m2 LDA(&70),Y:STA(&72),Y:DEY:CPY#&FF:BNEm2:DEC&71:DEC&73:LDA&73:CMP#newpage-1:BCSm2
  430.em LDA&13:CLC:ADC&74:STA&13:STA&01:LDA#newpage:STA&18:RTS
  440]
  450NEXT
  460VDU 21
  470OSCLI"KEY 0""CALL&C00|MRUN|F|M""":OSCLI"FX 153,0,128"
  480END
  490ENDPROC

� 6
� �<>&E00 � �reloc
!�6:�=&2000:*LOAD BLOCDAT 2000
(�pass=0 � 2 � 2
2P%=&A00
<
[OPT pass
F�.screen LDA#&30:CLC:ADCxscr:STA&71:LDAyscr:ASL A:ASL A:ASL A:ASL A:CLC:ADC&71:STA&71:LDA#&FF:STAyset:.ylop LDA#&FF:STAxset:INCyset
P�.xlop INCxset:LDAypos:PHA:STA&70:PLA:ASL A:ASL A:PHA:CLC:ADC&70:STA&70:PLA:ASL A:ASL A:CLC:ADC&70:STA&70:LDYxset:LDAxdata,Y:TAY:LDA(&70),Y:ROL A:ROL A:ROL A:�#3:STA&72:INY:LDA(&70),Y:LSR A:LSR A:LSR A:LSR A:�#12
Z~CLC:ADC&72:STA&72:LDAxset:LSR A:TAY:LDAhbdat,Y:TAY:LDA(&70),Y:STA&73:LDAxset:�#1:BNEbit2:LDA&73:LSR A:ROL A:ROL A:JMPfbgot
d.bit2 LDA&73:LSR A:ROL A
n8.fbgot �#1:ASL A:ASL A:ASL A:ASL A:CLC:ADC&72:STA&72
x�LDAxset:ASL A:ASL A:ASL A:ASL A:ASL A:ASL A:STA&70:LDAxset:LSR A:LSR A:CLC:ADC#&30:STA&71:LDAyset:CLC:ADC&71:STA&71:LDAyset:ASL A:ASL A:CLC:ADC&71:STA&71
�YLDA&72:PHA:LSR A:LSR A:CLC:ADC#&20:STA&73:LDA&72:LSR A:ROR A:ROR A:�#&C0:STA&72:LDY#0
��.transtop LDA(&70),Y:�#&C0:CLC:ADC(&72),Y:�#&3F:STA(&70),Y:INY:CPY#&40:BNEtranstop:LDY#0:PLA:STA(&70),Y:LDA&72:CLC:ADC#&40:STA&72:LDA&70:CLC:ADC#&80:STA&70:LDA&71:ADC#2:STA&71:LDY#0
�V.transbot LDA(&70),Y:�#&C0:CLC:ADC(&72),Y:�#&3F:STA(&70),Y:INY:CPY#&40:BNEtransbot
�.LDX#0:LDY#20:.temp INX:BNEtemp:DEY:BNEtemp
�"LDAxset:CMP#9:BEQnexty:JMPxlop
�*.nexty LDAyset:CMP#9:BEQscrend:JMPylop
�.scrend RTS
�L.xdata EQUB0:EQUB2:EQUB5:EQUB7:EQUB10:EQUB12:EQUB15:EQUB17:EQUB20:EQUB22
�+.hbdat EQUB4:EQUB9:EQUB14:EQUB19:EQUB24
�.xset EQUB0
�.yset EQUB0
�.xscr EQUB0
�.yscr EQUB0
.xpos EQUB0
.ypos EQUB0
]:�
"�2:�23,1,0;0;0;0;
,�screen:�23,1,1,0;0;0;0;
6	� � �
@:
J��reloc
T�=&5800:newpage=&E
^� pass=0 � 2 � 2
hP%=&C00
r[OPTpass
|R    LDY#0:STY&70:STY&72:LDA#newpage:SEC:SBC&18:STA&74:LDA&18:CMP#newpage:BCCad
�!.sb STA&71:LDA#newpage:STA&73
�S.m1 LDA(&70),Y:STA(&72),Y:INY:BNEm1:INC&71:INC&73:LDX&71:DEX:CPX&03:BCCm1:BCSem
�4.ad LDA&03:STA&71:CLC:ADC&74:STA&73:LDA#0:LDY&02
�X.m2 LDA(&70),Y:STA(&72),Y:DEY:CPY#&FF:BNEm2:DEC&71:DEC&73:LDA&73:CMP#newpage-1:BCSm2
�>.em LDA&13:CLC:ADC&74:STA&13:STA&01:LDA#newpage:STA&18:RTS
�]
��
�� 21
�1�"KEY 0""CALL&C00|MRUN|F|M""":�"FX 153,0,128"
��
��
�
00000000  0d 00 0a 07 eb 20 36 0d  00 14 16 e7 20 90 3c 3e  |..... 6..... .<>|
00000010  26 45 30 30 20 8c 20 f2  72 65 6c 6f 63 0d 00 1e  |&E00 . .reloc...|
00000020  21 ef 36 3a d3 3d 26 32  30 30 30 3a 2a 4c 4f 41  |!.6:.=&2000:*LOA|
00000030  44 20 42 4c 4f 43 44 41  54 20 32 30 30 30 0d 00  |D BLOCDAT 2000..|
00000040  28 13 e3 70 61 73 73 3d  30 20 b8 20 32 20 88 20  |(..pass=0 . 2 . |
00000050  32 0d 00 32 0b 50 25 3d  26 41 30 30 0d 00 3c 0d  |2..2.P%=&A00..<.|
00000060  5b 4f 50 54 20 70 61 73  73 0d 00 46 86 2e 73 63  |[OPT pass..F..sc|
00000070  72 65 65 6e 20 4c 44 41  23 26 33 30 3a 43 4c 43  |reen LDA#&30:CLC|
00000080  3a 41 44 43 78 73 63 72  3a 53 54 41 26 37 31 3a  |:ADCxscr:STA&71:|
00000090  4c 44 41 79 73 63 72 3a  41 53 4c 20 41 3a 41 53  |LDAyscr:ASL A:AS|
000000a0  4c 20 41 3a 41 53 4c 20  41 3a 41 53 4c 20 41 3a  |L A:ASL A:ASL A:|
000000b0  43 4c 43 3a 41 44 43 26  37 31 3a 53 54 41 26 37  |CLC:ADC&71:STA&7|
000000c0  31 3a 4c 44 41 23 26 46  46 3a 53 54 41 79 73 65  |1:LDA#&FF:STAyse|
000000d0  74 3a 2e 79 6c 6f 70 20  4c 44 41 23 26 46 46 3a  |t:.ylop LDA#&FF:|
000000e0  53 54 41 78 73 65 74 3a  49 4e 43 79 73 65 74 0d  |STAxset:INCyset.|
000000f0  00 50 d7 2e 78 6c 6f 70  20 49 4e 43 78 73 65 74  |.P..xlop INCxset|
00000100  3a 4c 44 41 79 70 6f 73  3a 50 48 41 3a 53 54 41  |:LDAypos:PHA:STA|
00000110  26 37 30 3a 50 4c 41 3a  41 53 4c 20 41 3a 41 53  |&70:PLA:ASL A:AS|
00000120  4c 20 41 3a 50 48 41 3a  43 4c 43 3a 41 44 43 26  |L A:PHA:CLC:ADC&|
00000130  37 30 3a 53 54 41 26 37  30 3a 50 4c 41 3a 41 53  |70:STA&70:PLA:AS|
00000140  4c 20 41 3a 41 53 4c 20  41 3a 43 4c 43 3a 41 44  |L A:ASL A:CLC:AD|
00000150  43 26 37 30 3a 53 54 41  26 37 30 3a 4c 44 59 78  |C&70:STA&70:LDYx|
00000160  73 65 74 3a 4c 44 41 78  64 61 74 61 2c 59 3a 54  |set:LDAxdata,Y:T|
00000170  41 59 3a 4c 44 41 28 26  37 30 29 2c 59 3a 52 4f  |AY:LDA(&70),Y:RO|
00000180  4c 20 41 3a 52 4f 4c 20  41 3a 52 4f 4c 20 41 3a  |L A:ROL A:ROL A:|
00000190  80 23 33 3a 53 54 41 26  37 32 3a 49 4e 59 3a 4c  |.#3:STA&72:INY:L|
000001a0  44 41 28 26 37 30 29 2c  59 3a 4c 53 52 20 41 3a  |DA(&70),Y:LSR A:|
000001b0  4c 53 52 20 41 3a 4c 53  52 20 41 3a 4c 53 52 20  |LSR A:LSR A:LSR |
000001c0  41 3a 80 23 31 32 0d 00  5a 7e 43 4c 43 3a 41 44  |A:.#12..Z~CLC:AD|
000001d0  43 26 37 32 3a 53 54 41  26 37 32 3a 4c 44 41 78  |C&72:STA&72:LDAx|
000001e0  73 65 74 3a 4c 53 52 20  41 3a 54 41 59 3a 4c 44  |set:LSR A:TAY:LD|
000001f0  41 68 62 64 61 74 2c 59  3a 54 41 59 3a 4c 44 41  |Ahbdat,Y:TAY:LDA|
00000200  28 26 37 30 29 2c 59 3a  53 54 41 26 37 33 3a 4c  |(&70),Y:STA&73:L|
00000210  44 41 78 73 65 74 3a 80  23 31 3a 42 4e 45 62 69  |DAxset:.#1:BNEbi|
00000220  74 32 3a 4c 44 41 26 37  33 3a 4c 53 52 20 41 3a  |t2:LDA&73:LSR A:|
00000230  52 4f 4c 20 41 3a 52 4f  4c 20 41 3a 4a 4d 50 66  |ROL A:ROL A:JMPf|
00000240  62 67 6f 74 0d 00 64 1c  2e 62 69 74 32 20 4c 44  |bgot..d..bit2 LD|
00000250  41 26 37 33 3a 4c 53 52  20 41 3a 52 4f 4c 20 41  |A&73:LSR A:ROL A|
00000260  0d 00 6e 38 2e 66 62 67  6f 74 20 80 23 31 3a 41  |..n8.fbgot .#1:A|
00000270  53 4c 20 41 3a 41 53 4c  20 41 3a 41 53 4c 20 41  |SL A:ASL A:ASL A|
00000280  3a 41 53 4c 20 41 3a 43  4c 43 3a 41 44 43 26 37  |:ASL A:CLC:ADC&7|
00000290  32 3a 53 54 41 26 37 32  0d 00 78 9d 4c 44 41 78  |2:STA&72..x.LDAx|
000002a0  73 65 74 3a 41 53 4c 20  41 3a 41 53 4c 20 41 3a  |set:ASL A:ASL A:|
000002b0  41 53 4c 20 41 3a 41 53  4c 20 41 3a 41 53 4c 20  |ASL A:ASL A:ASL |
000002c0  41 3a 41 53 4c 20 41 3a  53 54 41 26 37 30 3a 4c  |A:ASL A:STA&70:L|
000002d0  44 41 78 73 65 74 3a 4c  53 52 20 41 3a 4c 53 52  |DAxset:LSR A:LSR|
000002e0  20 41 3a 43 4c 43 3a 41  44 43 23 26 33 30 3a 53  | A:CLC:ADC#&30:S|
000002f0  54 41 26 37 31 3a 4c 44  41 79 73 65 74 3a 43 4c  |TA&71:LDAyset:CL|
00000300  43 3a 41 44 43 26 37 31  3a 53 54 41 26 37 31 3a  |C:ADC&71:STA&71:|
00000310  4c 44 41 79 73 65 74 3a  41 53 4c 20 41 3a 41 53  |LDAyset:ASL A:AS|
00000320  4c 20 41 3a 43 4c 43 3a  41 44 43 26 37 31 3a 53  |L A:CLC:ADC&71:S|
00000330  54 41 26 37 31 0d 00 82  59 4c 44 41 26 37 32 3a  |TA&71...YLDA&72:|
00000340  50 48 41 3a 4c 53 52 20  41 3a 4c 53 52 20 41 3a  |PHA:LSR A:LSR A:|
00000350  43 4c 43 3a 41 44 43 23  26 32 30 3a 53 54 41 26  |CLC:ADC#&20:STA&|
00000360  37 33 3a 4c 44 41 26 37  32 3a 4c 53 52 20 41 3a  |73:LDA&72:LSR A:|
00000370  52 4f 52 20 41 3a 52 4f  52 20 41 3a 80 23 26 43  |ROR A:ROR A:.#&C|
00000380  30 3a 53 54 41 26 37 32  3a 4c 44 59 23 30 0d 00  |0:STA&72:LDY#0..|
00000390  8c b9 2e 74 72 61 6e 73  74 6f 70 20 4c 44 41 28  |...transtop LDA(|
000003a0  26 37 30 29 2c 59 3a 80  23 26 43 30 3a 43 4c 43  |&70),Y:.#&C0:CLC|
000003b0  3a 41 44 43 28 26 37 32  29 2c 59 3a 80 23 26 33  |:ADC(&72),Y:.#&3|
000003c0  46 3a 53 54 41 28 26 37  30 29 2c 59 3a 49 4e 59  |F:STA(&70),Y:INY|
000003d0  3a 43 50 59 23 26 34 30  3a 42 4e 45 74 72 61 6e  |:CPY#&40:BNEtran|
000003e0  73 74 6f 70 3a 4c 44 59  23 30 3a 50 4c 41 3a 53  |stop:LDY#0:PLA:S|
000003f0  54 41 28 26 37 30 29 2c  59 3a 4c 44 41 26 37 32  |TA(&70),Y:LDA&72|
00000400  3a 43 4c 43 3a 41 44 43  23 26 34 30 3a 53 54 41  |:CLC:ADC#&40:STA|
00000410  26 37 32 3a 4c 44 41 26  37 30 3a 43 4c 43 3a 41  |&72:LDA&70:CLC:A|
00000420  44 43 23 26 38 30 3a 53  54 41 26 37 30 3a 4c 44  |DC#&80:STA&70:LD|
00000430  41 26 37 31 3a 41 44 43  23 32 3a 53 54 41 26 37  |A&71:ADC#2:STA&7|
00000440  31 3a 4c 44 59 23 30 0d  00 96 56 2e 74 72 61 6e  |1:LDY#0...V.tran|
00000450  73 62 6f 74 20 4c 44 41  28 26 37 30 29 2c 59 3a  |sbot LDA(&70),Y:|
00000460  80 23 26 43 30 3a 43 4c  43 3a 41 44 43 28 26 37  |.#&C0:CLC:ADC(&7|
00000470  32 29 2c 59 3a 80 23 26  33 46 3a 53 54 41 28 26  |2),Y:.#&3F:STA(&|
00000480  37 30 29 2c 59 3a 49 4e  59 3a 43 50 59 23 26 34  |70),Y:INY:CPY#&4|
00000490  30 3a 42 4e 45 74 72 61  6e 73 62 6f 74 0d 00 a0  |0:BNEtransbot...|
000004a0  2e 4c 44 58 23 30 3a 4c  44 59 23 32 30 3a 2e 74  |.LDX#0:LDY#20:.t|
000004b0  65 6d 70 20 49 4e 58 3a  42 4e 45 74 65 6d 70 3a  |emp INX:BNEtemp:|
000004c0  44 45 59 3a 42 4e 45 74  65 6d 70 0d 00 aa 22 4c  |DEY:BNEtemp..."L|
000004d0  44 41 78 73 65 74 3a 43  4d 50 23 39 3a 42 45 51  |DAxset:CMP#9:BEQ|
000004e0  6e 65 78 74 79 3a 4a 4d  50 78 6c 6f 70 0d 00 b4  |nexty:JMPxlop...|
000004f0  2a 2e 6e 65 78 74 79 20  4c 44 41 79 73 65 74 3a  |*.nexty LDAyset:|
00000500  43 4d 50 23 39 3a 42 45  51 73 63 72 65 6e 64 3a  |CMP#9:BEQscrend:|
00000510  4a 4d 50 79 6c 6f 70 0d  00 be 0f 2e 73 63 72 65  |JMPylop.....scre|
00000520  6e 64 20 52 54 53 0d 00  c8 4c 2e 78 64 61 74 61  |nd RTS...L.xdata|
00000530  20 45 51 55 42 30 3a 45  51 55 42 32 3a 45 51 55  | EQUB0:EQUB2:EQU|
00000540  42 35 3a 45 51 55 42 37  3a 45 51 55 42 31 30 3a  |B5:EQUB7:EQUB10:|
00000550  45 51 55 42 31 32 3a 45  51 55 42 31 35 3a 45 51  |EQUB12:EQUB15:EQ|
00000560  55 42 31 37 3a 45 51 55  42 32 30 3a 45 51 55 42  |UB17:EQUB20:EQUB|
00000570  32 32 0d 00 d2 2b 2e 68  62 64 61 74 20 45 51 55  |22...+.hbdat EQU|
00000580  42 34 3a 45 51 55 42 39  3a 45 51 55 42 31 34 3a  |B4:EQUB9:EQUB14:|
00000590  45 51 55 42 31 39 3a 45  51 55 42 32 34 0d 00 dc  |EQUB19:EQUB24...|
000005a0  0f 2e 78 73 65 74 20 45  51 55 42 30 0d 00 e6 0f  |..xset EQUB0....|
000005b0  2e 79 73 65 74 20 45 51  55 42 30 0d 00 f0 0f 2e  |.yset EQUB0.....|
000005c0  78 73 63 72 20 45 51 55  42 30 0d 00 fa 0f 2e 79  |xscr EQUB0.....y|
000005d0  73 63 72 20 45 51 55 42  30 0d 01 04 0f 2e 78 70  |scr EQUB0.....xp|
000005e0  6f 73 20 45 51 55 42 30  0d 01 0e 0f 2e 79 70 6f  |os EQUB0.....ypo|
000005f0  73 20 45 51 55 42 30 0d  01 18 07 5d 3a ed 0d 01  |s EQUB0....]:...|
00000600  22 15 eb 32 3a ef 32 33  2c 31 2c 30 3b 30 3b 30  |"..2:.23,1,0;0;0|
00000610  3b 30 3b 0d 01 2c 1c d6  73 63 72 65 65 6e 3a ef  |;0;..,..screen:.|
00000620  32 33 2c 31 2c 31 2c 30  3b 30 3b 30 3b 30 3b 0d  |23,1,1,0;0;0;0;.|
00000630  01 36 09 f5 20 fd 20 a3  0d 01 40 05 3a 0d 01 4a  |.6.. . ...@.:..J|
00000640  0b dd f2 72 65 6c 6f 63  0d 01 54 16 d3 3d 26 35  |...reloc..T..=&5|
00000650  38 30 30 3a 6e 65 77 70  61 67 65 3d 26 45 0d 01  |800:newpage=&E..|
00000660  5e 14 e3 20 70 61 73 73  3d 30 20 b8 20 32 20 88  |^.. pass=0 . 2 .|
00000670  20 32 0d 01 68 0b 50 25  3d 26 43 30 30 0d 01 72  | 2..h.P%=&C00..r|
00000680  0c 5b 4f 50 54 70 61 73  73 0d 01 7c 52 20 20 20  |.[OPTpass..|R   |
00000690  20 4c 44 59 23 30 3a 53  54 59 26 37 30 3a 53 54  | LDY#0:STY&70:ST|
000006a0  59 26 37 32 3a 4c 44 41  23 6e 65 77 70 61 67 65  |Y&72:LDA#newpage|
000006b0  3a 53 45 43 3a 53 42 43  26 31 38 3a 53 54 41 26  |:SEC:SBC&18:STA&|
000006c0  37 34 3a 4c 44 41 26 31  38 3a 43 4d 50 23 6e 65  |74:LDA&18:CMP#ne|
000006d0  77 70 61 67 65 3a 42 43  43 61 64 0d 01 86 21 2e  |wpage:BCCad...!.|
000006e0  73 62 20 53 54 41 26 37  31 3a 4c 44 41 23 6e 65  |sb STA&71:LDA#ne|
000006f0  77 70 61 67 65 3a 53 54  41 26 37 33 0d 01 90 53  |wpage:STA&73...S|
00000700  2e 6d 31 20 4c 44 41 28  26 37 30 29 2c 59 3a 53  |.m1 LDA(&70),Y:S|
00000710  54 41 28 26 37 32 29 2c  59 3a 49 4e 59 3a 42 4e  |TA(&72),Y:INY:BN|
00000720  45 6d 31 3a 49 4e 43 26  37 31 3a 49 4e 43 26 37  |Em1:INC&71:INC&7|
00000730  33 3a 4c 44 58 26 37 31  3a 44 45 58 3a 43 50 58  |3:LDX&71:DEX:CPX|
00000740  26 30 33 3a 42 43 43 6d  31 3a 42 43 53 65 6d 0d  |&03:BCCm1:BCSem.|
00000750  01 9a 34 2e 61 64 20 4c  44 41 26 30 33 3a 53 54  |..4.ad LDA&03:ST|
00000760  41 26 37 31 3a 43 4c 43  3a 41 44 43 26 37 34 3a  |A&71:CLC:ADC&74:|
00000770  53 54 41 26 37 33 3a 4c  44 41 23 30 3a 4c 44 59  |STA&73:LDA#0:LDY|
00000780  26 30 32 0d 01 a4 58 2e  6d 32 20 4c 44 41 28 26  |&02...X.m2 LDA(&|
00000790  37 30 29 2c 59 3a 53 54  41 28 26 37 32 29 2c 59  |70),Y:STA(&72),Y|
000007a0  3a 44 45 59 3a 43 50 59  23 26 46 46 3a 42 4e 45  |:DEY:CPY#&FF:BNE|
000007b0  6d 32 3a 44 45 43 26 37  31 3a 44 45 43 26 37 33  |m2:DEC&71:DEC&73|
000007c0  3a 4c 44 41 26 37 33 3a  43 4d 50 23 6e 65 77 70  |:LDA&73:CMP#newp|
000007d0  61 67 65 2d 31 3a 42 43  53 6d 32 0d 01 ae 3e 2e  |age-1:BCSm2...>.|
000007e0  65 6d 20 4c 44 41 26 31  33 3a 43 4c 43 3a 41 44  |em LDA&13:CLC:AD|
000007f0  43 26 37 34 3a 53 54 41  26 31 33 3a 53 54 41 26  |C&74:STA&13:STA&|
00000800  30 31 3a 4c 44 41 23 6e  65 77 70 61 67 65 3a 53  |01:LDA#newpage:S|
00000810  54 41 26 31 38 3a 52 54  53 0d 01 b8 05 5d 0d 01  |TA&18:RTS....]..|
00000820  c2 05 ed 0d 01 cc 08 ef  20 32 31 0d 01 d6 31 ff  |........ 21...1.|
00000830  22 4b 45 59 20 30 22 22  43 41 4c 4c 26 43 30 30  |"KEY 0""CALL&C00|
00000840  7c 4d 52 55 4e 7c 46 7c  4d 22 22 22 3a ff 22 46  ||MRUN|F|M""":."F|
00000850  58 20 31 35 33 2c 30 2c  31 32 38 22 0d 01 e0 05  |X 153,0,128"....|
00000860  e0 0d 01 ea 05 e1 0d ff                           |........|
00000868