�: PRIVATE
�7
�=&3C00
(
� save 50
2diff=&8000-�
<address=&70
Fcomvec=&F2
Perrstack=&100
Zromnumber=&F4
dworkspace=&DF0
ngsread=&FFC5
xosargs=&FFDA
�osasci=&FFE3
�osword=&FFF1
�oscli=&FFF7
�� pass = 0 � 2 � 2
�P%=�
�
[OPT pass
�BRK
�BRK
�BRK
�JMP service+diff
�OPT �equb(&82)
�%OPT �equb((copyright+diff) � 256)
�BRK


.title

OPT �equs("CYCLES")

.copyright

"BRK

,+OPT �equs("(C) Gordon Horsington 1987")

6BRK

@.service

JPHA

T
CMP #2

^BNE tryfour

hTYA

rSTA workspace,X

|INY

�PLA

�RTS

�.tryfour

�
CMP #4

�BEQ unrecognised

�PLA

�RTS

�.unrecognised

�TXA

�PHA

�TYA

�PHA

�LDX #&FF
.comloop
INX
LDA title+diff,X
&
BEQ found
0LDA (comvec),Y
:INY
DCMP #�(".")
N
BEQ found
X
� #&DF
bCMP title+diff,X
lBEQ comloop
vPLA
�TAY
�PLA
�TAX
�PLA
�RTS
�
.found
�LDA address
�PHA
�LDA address+1
�PHA
�
LDA #0
�TAX
�TAY
JSR osargs
CMP #4 \ Is DFS active?

BNE error
 LDX romnumber
*&LDA workspace,X \ MSB of workspace
4STA address+1
>TAY \ MSB for Osword
HLDX #0 \ LSB of workspace
RSTX address
\LDA #&7D
f!JSR osword \ Read disc cycles
p
LDY #0
z!LDA (address),Y \ Read result
�JSR hexbyte+diff
�LDX #&FF
�.printloop
�INX
�LDA message+diff,X
�BEQ quit
�JSR osasci
�JMP printloop+diff
�	.quit
�PLA
�STA address+1
�PLA
�STA address
PLA
PLA
PLA
$
LDA #0
.RTS
8
.error
BLDA #(wrong+diff) � 256
LSTA address
VLDA #(wrong+diff) � 256
`STA address+1
jLDY #&FF
t.errorloop
~INY
�LDA (address),Y
�STA errstack,Y
�BPL errorloop
�PLA
�STA address+1
�PLA
�STA address
�JMP errstack
�.hexbyte
�PHA
�	LSR A
�	LSR A
	LSR A

	LSR A
JSR nybble+diff
PLA
(.nybble
2
� #&0F
<SED
FCLC
PADC #&90
ZADC #&40
dCLD
nJMP osasci
x.message
�OPT �equs(" Disc cycles")
�OPT �equb(&0D)
�BRK
�
.wrong
�BRK
�BRK
�OPT �equs("DFS not active")
�BRK
�OPT �equb(&FF)
�
.lastbyte
�]
��
�!�'"Save filename = "filename$
� filename$="" �
K$save="SAVE "+filename$+" "+�~(�)+" "+�~(lastbyte)+" FFFF8000 FFFF8000"
X%=save � 256
"Y%=save � 256
,*OPT1,2
6� oscli
@*OPT1,0
J�
Tݤequb(byte)
^?P%=byte
hP%=P%+1
r	=pass
|ݤequw(word)
�?P%=word � 256
�P%?1=word � 256
�P%=P%+2
�	=pass
�ݤequd(double)
�!P%=double
�P%=P%+4
�	=pass
�ݤequs(string$)
�$P%=string$
�P%=P%+�(string$)
�	=pass
�

00000000  0d 00 0a 0e f4 3a 20 50  52 49 56 41 54 45 0d 00  |.....: PRIVATE..|
00000010  14 06 eb 37 0d 00 1e 0b  d3 3d 26 33 43 30 30 0d  |...7.....=&3C00.|
00000020  00 28 0d de 20 73 61 76  65 20 35 30 0d 00 32 10  |.(.. save 50..2.|
00000030  64 69 66 66 3d 26 38 30  30 30 2d 93 0d 00 3c 0f  |diff=&8000-...<.|
00000040  61 64 64 72 65 73 73 3d  26 37 30 0d 00 46 0e 63  |address=&70..F.c|
00000050  6f 6d 76 65 63 3d 26 46  32 0d 00 50 11 65 72 72  |omvec=&F2..P.err|
00000060  73 74 61 63 6b 3d 26 31  30 30 0d 00 5a 11 72 6f  |stack=&100..Z.ro|
00000070  6d 6e 75 6d 62 65 72 3d  26 46 34 0d 00 64 12 77  |mnumber=&F4..d.w|
00000080  6f 72 6b 73 70 61 63 65  3d 26 44 46 30 0d 00 6e  |orkspace=&DF0..n|
00000090  10 67 73 72 65 61 64 3d  26 46 46 43 35 0d 00 78  |.gsread=&FFC5..x|
000000a0  10 6f 73 61 72 67 73 3d  26 46 46 44 41 0d 00 82  |.osargs=&FFDA...|
000000b0  10 6f 73 61 73 63 69 3d  26 46 46 45 33 0d 00 8c  |.osasci=&FFE3...|
000000c0  10 6f 73 77 6f 72 64 3d  26 46 46 46 31 0d 00 96  |.osword=&FFF1...|
000000d0  0f 6f 73 63 6c 69 3d 26  46 46 46 37 0d 00 a0 16  |.oscli=&FFF7....|
000000e0  e3 20 70 61 73 73 20 3d  20 30 20 b8 20 32 20 88  |. pass = 0 . 2 .|
000000f0  20 32 0d 00 aa 08 50 25  3d 93 0d 00 b4 0d 5b 4f  | 2....P%=.....[O|
00000100  50 54 20 70 61 73 73 0d  00 be 07 42 52 4b 0d 00  |PT pass....BRK..|
00000110  c8 07 42 52 4b 0d 00 d2  07 42 52 4b 0d 00 dc 14  |..BRK....BRK....|
00000120  4a 4d 50 20 73 65 72 76  69 63 65 2b 64 69 66 66  |JMP service+diff|
00000130  0d 00 e6 12 4f 50 54 20  a4 65 71 75 62 28 26 38  |....OPT .equb(&8|
00000140  32 29 0d 00 f0 25 4f 50  54 20 a4 65 71 75 62 28  |2)...%OPT .equb(|
00000150  28 63 6f 70 79 72 69 67  68 74 2b 64 69 66 66 29  |(copyright+diff)|
00000160  20 83 20 32 35 36 29 0d  00 fa 07 42 52 4b 0d 01  | . 256)....BRK..|
00000170  04 0a 2e 74 69 74 6c 65  0d 01 0e 17 4f 50 54 20  |...title....OPT |
00000180  a4 65 71 75 73 28 22 43  59 43 4c 45 53 22 29 0d  |.equs("CYCLES").|
00000190  01 18 0e 2e 63 6f 70 79  72 69 67 68 74 0d 01 22  |....copyright.."|
000001a0  07 42 52 4b 0d 01 2c 2b  4f 50 54 20 a4 65 71 75  |.BRK..,+OPT .equ|
000001b0  73 28 22 28 43 29 20 47  6f 72 64 6f 6e 20 48 6f  |s("(C) Gordon Ho|
000001c0  72 73 69 6e 67 74 6f 6e  20 31 39 38 37 22 29 0d  |rsington 1987").|
000001d0  01 36 07 42 52 4b 0d 01  40 0c 2e 73 65 72 76 69  |.6.BRK..@..servi|
000001e0  63 65 0d 01 4a 07 50 48  41 0d 01 54 0a 43 4d 50  |ce..J.PHA..T.CMP|
000001f0  20 23 32 0d 01 5e 0f 42  4e 45 20 74 72 79 66 6f  | #2..^.BNE tryfo|
00000200  75 72 0d 01 68 07 54 59  41 0d 01 72 13 53 54 41  |ur..h.TYA..r.STA|
00000210  20 77 6f 72 6b 73 70 61  63 65 2c 58 0d 01 7c 07  | workspace,X..|.|
00000220  49 4e 59 0d 01 86 07 50  4c 41 0d 01 90 07 52 54  |INY....PLA....RT|
00000230  53 0d 01 9a 0c 2e 74 72  79 66 6f 75 72 0d 01 a4  |S.....tryfour...|
00000240  0a 43 4d 50 20 23 34 0d  01 ae 14 42 45 51 20 75  |.CMP #4....BEQ u|
00000250  6e 72 65 63 6f 67 6e 69  73 65 64 0d 01 b8 07 50  |nrecognised....P|
00000260  4c 41 0d 01 c2 07 52 54  53 0d 01 cc 11 2e 75 6e  |LA....RTS.....un|
00000270  72 65 63 6f 67 6e 69 73  65 64 0d 01 d6 07 54 58  |recognised....TX|
00000280  41 0d 01 e0 07 50 48 41  0d 01 ea 07 54 59 41 0d  |A....PHA....TYA.|
00000290  01 f4 07 50 48 41 0d 01  fe 0c 4c 44 58 20 23 26  |...PHA....LDX #&|
000002a0  46 46 0d 02 08 0c 2e 63  6f 6d 6c 6f 6f 70 0d 02  |FF.....comloop..|
000002b0  12 07 49 4e 58 0d 02 1c  14 4c 44 41 20 74 69 74  |..INX....LDA tit|
000002c0  6c 65 2b 64 69 66 66 2c  58 0d 02 26 0d 42 45 51  |le+diff,X..&.BEQ|
000002d0  20 66 6f 75 6e 64 0d 02  30 12 4c 44 41 20 28 63  | found..0.LDA (c|
000002e0  6f 6d 76 65 63 29 2c 59  0d 02 3a 07 49 4e 59 0d  |omvec),Y..:.INY.|
000002f0  02 44 0f 43 4d 50 20 23  97 28 22 2e 22 29 0d 02  |.D.CMP #.(".")..|
00000300  4e 0d 42 45 51 20 66 6f  75 6e 64 0d 02 58 0a 80  |N.BEQ found..X..|
00000310  20 23 26 44 46 0d 02 62  14 43 4d 50 20 74 69 74  | #&DF..b.CMP tit|
00000320  6c 65 2b 64 69 66 66 2c  58 0d 02 6c 0f 42 45 51  |le+diff,X..l.BEQ|
00000330  20 63 6f 6d 6c 6f 6f 70  0d 02 76 07 50 4c 41 0d  | comloop..v.PLA.|
00000340  02 80 07 54 41 59 0d 02  8a 07 50 4c 41 0d 02 94  |...TAY....PLA...|
00000350  07 54 41 58 0d 02 9e 07  50 4c 41 0d 02 a8 07 52  |.TAX....PLA....R|
00000360  54 53 0d 02 b2 0a 2e 66  6f 75 6e 64 0d 02 bc 0f  |TS.....found....|
00000370  4c 44 41 20 61 64 64 72  65 73 73 0d 02 c6 07 50  |LDA address....P|
00000380  48 41 0d 02 d0 11 4c 44  41 20 61 64 64 72 65 73  |HA....LDA addres|
00000390  73 2b 31 0d 02 da 07 50  48 41 0d 02 e4 0a 4c 44  |s+1....PHA....LD|
000003a0  41 20 23 30 0d 02 ee 07  54 41 58 0d 02 f8 07 54  |A #0....TAX....T|
000003b0  41 59 0d 03 02 0e 4a 53  52 20 6f 73 61 72 67 73  |AY....JSR osargs|
000003c0  0d 03 0c 1b 43 4d 50 20  23 34 20 5c 20 49 73 20  |....CMP #4 \ Is |
000003d0  44 46 53 20 61 63 74 69  76 65 3f 0d 03 16 0d 42  |DFS active?....B|
000003e0  4e 45 20 65 72 72 6f 72  0d 03 20 11 4c 44 58 20  |NE error.. .LDX |
000003f0  72 6f 6d 6e 75 6d 62 65  72 0d 03 2a 26 4c 44 41  |romnumber..*&LDA|
00000400  20 77 6f 72 6b 73 70 61  63 65 2c 58 20 5c 20 4d  | workspace,X \ M|
00000410  53 42 20 6f 66 20 77 6f  72 6b 73 70 61 63 65 0d  |SB of workspace.|
00000420  03 34 11 53 54 41 20 61  64 64 72 65 73 73 2b 31  |.4.STA address+1|
00000430  0d 03 3e 18 54 41 59 20  5c 20 4d 53 42 20 66 6f  |..>.TAY \ MSB fo|
00000440  72 20 4f 73 77 6f 72 64  0d 03 48 1d 4c 44 58 20  |r Osword..H.LDX |
00000450  23 30 20 5c 20 4c 53 42  20 6f 66 20 77 6f 72 6b  |#0 \ LSB of work|
00000460  73 70 61 63 65 0d 03 52  0f 53 54 58 20 61 64 64  |space..R.STX add|
00000470  72 65 73 73 0d 03 5c 0c  4c 44 41 20 23 26 37 44  |ress..\.LDA #&7D|
00000480  0d 03 66 21 4a 53 52 20  6f 73 77 6f 72 64 20 5c  |..f!JSR osword \|
00000490  20 52 65 61 64 20 64 69  73 63 20 63 79 63 6c 65  | Read disc cycle|
000004a0  73 0d 03 70 0a 4c 44 59  20 23 30 0d 03 7a 21 4c  |s..p.LDY #0..z!L|
000004b0  44 41 20 28 61 64 64 72  65 73 73 29 2c 59 20 5c  |DA (address),Y \|
000004c0  20 52 65 61 64 20 72 65  73 75 6c 74 0d 03 84 14  | Read result....|
000004d0  4a 53 52 20 68 65 78 62  79 74 65 2b 64 69 66 66  |JSR hexbyte+diff|
000004e0  0d 03 8e 0c 4c 44 58 20  23 26 46 46 0d 03 98 0e  |....LDX #&FF....|
000004f0  2e 70 72 69 6e 74 6c 6f  6f 70 0d 03 a2 07 49 4e  |.printloop....IN|
00000500  58 0d 03 ac 16 4c 44 41  20 6d 65 73 73 61 67 65  |X....LDA message|
00000510  2b 64 69 66 66 2c 58 0d  03 b6 0c 42 45 51 20 71  |+diff,X....BEQ q|
00000520  75 69 74 0d 03 c0 0e 4a  53 52 20 6f 73 61 73 63  |uit....JSR osasc|
00000530  69 0d 03 ca 16 4a 4d 50  20 70 72 69 6e 74 6c 6f  |i....JMP printlo|
00000540  6f 70 2b 64 69 66 66 0d  03 d4 09 2e 71 75 69 74  |op+diff.....quit|
00000550  0d 03 de 07 50 4c 41 0d  03 e8 11 53 54 41 20 61  |....PLA....STA a|
00000560  64 64 72 65 73 73 2b 31  0d 03 f2 07 50 4c 41 0d  |ddress+1....PLA.|
00000570  03 fc 0f 53 54 41 20 61  64 64 72 65 73 73 0d 04  |...STA address..|
00000580  06 07 50 4c 41 0d 04 10  07 50 4c 41 0d 04 1a 07  |..PLA....PLA....|
00000590  50 4c 41 0d 04 24 0a 4c  44 41 20 23 30 0d 04 2e  |PLA..$.LDA #0...|
000005a0  07 52 54 53 0d 04 38 0a  2e 65 72 72 6f 72 0d 04  |.RTS..8..error..|
000005b0  42 1b 4c 44 41 20 23 28  77 72 6f 6e 67 2b 64 69  |B.LDA #(wrong+di|
000005c0  66 66 29 20 83 20 32 35  36 0d 04 4c 0f 53 54 41  |ff) . 256..L.STA|
000005d0  20 61 64 64 72 65 73 73  0d 04 56 1b 4c 44 41 20  | address..V.LDA |
000005e0  23 28 77 72 6f 6e 67 2b  64 69 66 66 29 20 81 20  |#(wrong+diff) . |
000005f0  32 35 36 0d 04 60 11 53  54 41 20 61 64 64 72 65  |256..`.STA addre|
00000600  73 73 2b 31 0d 04 6a 0c  4c 44 59 20 23 26 46 46  |ss+1..j.LDY #&FF|
00000610  0d 04 74 0e 2e 65 72 72  6f 72 6c 6f 6f 70 0d 04  |..t..errorloop..|
00000620  7e 07 49 4e 59 0d 04 88  13 4c 44 41 20 28 61 64  |~.INY....LDA (ad|
00000630  64 72 65 73 73 29 2c 59  0d 04 92 12 53 54 41 20  |dress),Y....STA |
00000640  65 72 72 73 74 61 63 6b  2c 59 0d 04 9c 11 42 50  |errstack,Y....BP|
00000650  4c 20 65 72 72 6f 72 6c  6f 6f 70 0d 04 a6 07 50  |L errorloop....P|
00000660  4c 41 0d 04 b0 11 53 54  41 20 61 64 64 72 65 73  |LA....STA addres|
00000670  73 2b 31 0d 04 ba 07 50  4c 41 0d 04 c4 0f 53 54  |s+1....PLA....ST|
00000680  41 20 61 64 64 72 65 73  73 0d 04 ce 10 4a 4d 50  |A address....JMP|
00000690  20 65 72 72 73 74 61 63  6b 0d 04 d8 0c 2e 68 65  | errstack.....he|
000006a0  78 62 79 74 65 0d 04 e2  07 50 48 41 0d 04 ec 09  |xbyte....PHA....|
000006b0  4c 53 52 20 41 0d 04 f6  09 4c 53 52 20 41 0d 05  |LSR A....LSR A..|
000006c0  00 09 4c 53 52 20 41 0d  05 0a 09 4c 53 52 20 41  |..LSR A....LSR A|
000006d0  0d 05 14 13 4a 53 52 20  6e 79 62 62 6c 65 2b 64  |....JSR nybble+d|
000006e0  69 66 66 0d 05 1e 07 50  4c 41 0d 05 28 0b 2e 6e  |iff....PLA..(..n|
000006f0  79 62 62 6c 65 0d 05 32  0a 80 20 23 26 30 46 0d  |ybble..2.. #&0F.|
00000700  05 3c 07 53 45 44 0d 05  46 07 43 4c 43 0d 05 50  |.<.SED..F.CLC..P|
00000710  0c 41 44 43 20 23 26 39  30 0d 05 5a 0c 41 44 43  |.ADC #&90..Z.ADC|
00000720  20 23 26 34 30 0d 05 64  07 43 4c 44 0d 05 6e 0e  | #&40..d.CLD..n.|
00000730  4a 4d 50 20 6f 73 61 73  63 69 0d 05 78 0c 2e 6d  |JMP osasci..x..m|
00000740  65 73 73 61 67 65 0d 05  82 1d 4f 50 54 20 a4 65  |essage....OPT .e|
00000750  71 75 73 28 22 20 44 69  73 63 20 63 79 63 6c 65  |qus(" Disc cycle|
00000760  73 22 29 0d 05 8c 12 4f  50 54 20 a4 65 71 75 62  |s")....OPT .equb|
00000770  28 26 30 44 29 0d 05 96  07 42 52 4b 0d 05 a0 0a  |(&0D)....BRK....|
00000780  2e 77 72 6f 6e 67 0d 05  aa 07 42 52 4b 0d 05 b4  |.wrong....BRK...|
00000790  07 42 52 4b 0d 05 be 1f  4f 50 54 20 a4 65 71 75  |.BRK....OPT .equ|
000007a0  73 28 22 44 46 53 20 6e  6f 74 20 61 63 74 69 76  |s("DFS not activ|
000007b0  65 22 29 0d 05 c8 07 42  52 4b 0d 05 d2 12 4f 50  |e")....BRK....OP|
000007c0  54 20 a4 65 71 75 62 28  26 46 46 29 0d 05 dc 0d  |T .equb(&FF)....|
000007d0  2e 6c 61 73 74 62 79 74  65 0d 05 e6 05 5d 0d 05  |.lastbyte....]..|
000007e0  f0 05 ed 0d 05 fa 21 e8  27 22 53 61 76 65 20 66  |......!.'"Save f|
000007f0  69 6c 65 6e 61 6d 65 20  3d 20 22 66 69 6c 65 6e  |ilename = "filen|
00000800  61 6d 65 24 0d 06 04 14  e7 20 66 69 6c 65 6e 61  |ame$..... filena|
00000810  6d 65 24 3d 22 22 20 e0  0d 06 0e 4b 24 73 61 76  |me$="" ....K$sav|
00000820  65 3d 22 53 41 56 45 20  22 2b 66 69 6c 65 6e 61  |e="SAVE "+filena|
00000830  6d 65 24 2b 22 20 22 2b  c3 7e 28 93 29 2b 22 20  |me$+" "+.~(.)+" |
00000840  22 2b c3 7e 28 6c 61 73  74 62 79 74 65 29 2b 22  |"+.~(lastbyte)+"|
00000850  20 46 46 46 46 38 30 30  30 20 46 46 46 46 38 30  | FFFF8000 FFFF80|
00000860  30 30 22 0d 06 18 11 58  25 3d 73 61 76 65 20 83  |00"....X%=save .|
00000870  20 32 35 36 0d 06 22 11  59 25 3d 73 61 76 65 20  | 256..".Y%=save |
00000880  81 20 32 35 36 0d 06 2c  0b 2a 4f 50 54 31 2c 32  |. 256..,.*OPT1,2|
00000890  0d 06 36 0b d6 20 6f 73  63 6c 69 0d 06 40 0b 2a  |..6.. oscli..@.*|
000008a0  4f 50 54 31 2c 30 0d 06  4a 05 e0 0d 06 54 10 dd  |OPT1,0..J....T..|
000008b0  a4 65 71 75 62 28 62 79  74 65 29 0d 06 5e 0c 3f  |.equb(byte)..^.?|
000008c0  50 25 3d 62 79 74 65 0d  06 68 0b 50 25 3d 50 25  |P%=byte..h.P%=P%|
000008d0  2b 31 0d 06 72 09 3d 70  61 73 73 0d 06 7c 10 dd  |+1..r.=pass..|..|
000008e0  a4 65 71 75 77 28 77 6f  72 64 29 0d 06 86 12 3f  |.equw(word)....?|
000008f0  50 25 3d 77 6f 72 64 20  83 20 32 35 36 0d 06 90  |P%=word . 256...|
00000900  13 50 25 3f 31 3d 77 6f  72 64 20 81 20 32 35 36  |.P%?1=word . 256|
00000910  0d 06 9a 0b 50 25 3d 50  25 2b 32 0d 06 a4 09 3d  |....P%=P%+2....=|
00000920  70 61 73 73 0d 06 ae 12  dd a4 65 71 75 64 28 64  |pass......equd(d|
00000930  6f 75 62 6c 65 29 0d 06  b8 0e 21 50 25 3d 64 6f  |ouble)....!P%=do|
00000940  75 62 6c 65 0d 06 c2 0b  50 25 3d 50 25 2b 34 0d  |uble....P%=P%+4.|
00000950  06 cc 09 3d 70 61 73 73  0d 06 d6 13 dd a4 65 71  |...=pass......eq|
00000960  75 73 28 73 74 72 69 6e  67 24 29 0d 06 e0 0f 24  |us(string$)....$|
00000970  50 25 3d 73 74 72 69 6e  67 24 0d 06 ea 14 50 25  |P%=string$....P%|
00000980  3d 50 25 2b a9 28 73 74  72 69 6e 67 24 29 0d 06  |=P%+.(string$)..|
00000990  f4 09 3d 70 61 73 73 0d  ff                       |..=pass..|
00000999