�: OSBYTE
�7
�=&3C00
(
� save 50
2diff=&8000-�
<accumulator=&EF
Fxregister=&F0
Pyregister=&F1
Zrompoint=&F6
dtable=&2A1
nosrdrm=&FFB9
xosasci=&FFE3
�osnewl=&FFE7
�osbyte=&FFF4
�oscli=&FFF7
�� pass = 0 � 2 � 2
�P%=�
�
[OPT pass
�BRK
�BRK
�BRK
�JMP service+diff
�OPT �equb(&82)
�%OPT �equb((copyright+diff) � 256)
�BRK

OPT �equs("OSBYTE")

.copyright

BRK

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

,BRK

6.service

@PHA

J
CMP #7

TBEQ newosbyte

^	.exit

hPLA

rRTS

|.newosbyte

�LDA accumulator

�CMP #100

�BNE exit

�LDX xregister

�CPX #&10

�BCS checkyreg

�
LDA #0

�STA table,X

�.checkyreg

�LDY yregister

�BEQ out

�.romlist

�JSR romnames+diff
.out
LDX xregister
LDY yregister
&PLA
0
LDA #0
:RTS
D
.romnames
NJSR osnewl
XLDA #&F
bPHA
l.romloop
vTAY
�LDA table,Y
�BEQ nothere
�TYA
�JSR decimal+diff
�LDA #�(" ")
�JSR osasci
�LDA #&8
�STA rompoint
�LDA #&80
�STA rompoint+1
�
.readloop
�INC rompoint
�BEQ newline
PLA
PHA
TAY
 JSR osrdrm
*CMP #�(" ")
4BCC newline
>JSR osasci
HJMP readloop+diff
R.newline
\JSR osnewl
f.nothere
pPLA
zSEC
�
SBC #1
�PHA
�BPL romloop
�PLA
�JMP osnewl
�.decimal
�SED
�CLC
�
ADC #0
�CLD
�PHA
�	LSR A
�	LSR A
	LSR A
	LSR A
JSR nibble+diff
$PLA
.	� #&F
8.nibble
BCLC
LADC #�("0")
VJMP osasci
`
.lastbyte
j]
t�
~!�'"Save filename = "filename$
�� filename$="" �
�K$save="SAVE "+filename$+" "+�~(�)+" "+�~(lastbyte)+" FFFF8000 FFFF8000"
�X%=save � 256
�Y%=save � 256
�*OPT1,2
�� oscli
�*OPT1,0
��
�ݤequb(byte)
�?P%=byte
�P%=P%+1
�	=pass
ݤequw(word)

?P%=word � 256
P%?1=word � 256
P%=P%+2
(	=pass
2ݤequd(double)
<!P%=double
FP%=P%+4
P	=pass
Zݤequs(string$)
d$P%=string$
nP%=P%+�(string$)
x	=pass
�

00000000  0d 00 0a 0d f4 3a 20 4f  53 42 59 54 45 0d 00 14  |.....: OSBYTE...|
00000010  06 eb 37 0d 00 1e 0b d3  3d 26 33 43 30 30 0d 00  |..7.....=&3C00..|
00000020  28 0d de 20 73 61 76 65  20 35 30 0d 00 32 10 64  |(.. save 50..2.d|
00000030  69 66 66 3d 26 38 30 30  30 2d 93 0d 00 3c 13 61  |iff=&8000-...<.a|
00000040  63 63 75 6d 75 6c 61 74  6f 72 3d 26 45 46 0d 00  |ccumulator=&EF..|
00000050  46 11 78 72 65 67 69 73  74 65 72 3d 26 46 30 0d  |F.xregister=&F0.|
00000060  00 50 11 79 72 65 67 69  73 74 65 72 3d 26 46 31  |.P.yregister=&F1|
00000070  0d 00 5a 10 72 6f 6d 70  6f 69 6e 74 3d 26 46 36  |..Z.rompoint=&F6|
00000080  0d 00 64 0e 74 61 62 6c  65 3d 26 32 41 31 0d 00  |..d.table=&2A1..|
00000090  6e 10 6f 73 72 64 72 6d  3d 26 46 46 42 39 0d 00  |n.osrdrm=&FFB9..|
000000a0  78 10 6f 73 61 73 63 69  3d 26 46 46 45 33 0d 00  |x.osasci=&FFE3..|
000000b0  82 10 6f 73 6e 65 77 6c  3d 26 46 46 45 37 0d 00  |..osnewl=&FFE7..|
000000c0  8c 10 6f 73 62 79 74 65  3d 26 46 46 46 34 0d 00  |..osbyte=&FFF4..|
000000d0  96 0f 6f 73 63 6c 69 3d  26 46 46 46 37 0d 00 a0  |..oscli=&FFF7...|
000000e0  16 e3 20 70 61 73 73 20  3d 20 30 20 b8 20 32 20  |.. pass = 0 . 2 |
000000f0  88 20 32 0d 00 aa 08 50  25 3d 93 0d 00 b4 0d 5b  |. 2....P%=.....[|
00000100  4f 50 54 20 70 61 73 73  0d 00 be 07 42 52 4b 0d  |OPT pass....BRK.|
00000110  00 c8 07 42 52 4b 0d 00  d2 07 42 52 4b 0d 00 dc  |...BRK....BRK...|
00000120  14 4a 4d 50 20 73 65 72  76 69 63 65 2b 64 69 66  |.JMP service+dif|
00000130  66 0d 00 e6 12 4f 50 54  20 a4 65 71 75 62 28 26  |f....OPT .equb(&|
00000140  38 32 29 0d 00 f0 25 4f  50 54 20 a4 65 71 75 62  |82)...%OPT .equb|
00000150  28 28 63 6f 70 79 72 69  67 68 74 2b 64 69 66 66  |((copyright+diff|
00000160  29 20 83 20 32 35 36 29  0d 00 fa 07 42 52 4b 0d  |) . 256)....BRK.|
00000170  01 04 17 4f 50 54 20 a4  65 71 75 73 28 22 4f 53  |...OPT .equs("OS|
00000180  42 59 54 45 22 29 0d 01  0e 0e 2e 63 6f 70 79 72  |BYTE").....copyr|
00000190  69 67 68 74 0d 01 18 07  42 52 4b 0d 01 22 2b 4f  |ight....BRK.."+O|
000001a0  50 54 20 a4 65 71 75 73  28 22 28 43 29 20 47 6f  |PT .equs("(C) Go|
000001b0  72 64 6f 6e 20 48 6f 72  73 69 6e 67 74 6f 6e 20  |rdon Horsington |
000001c0  31 39 38 37 22 29 0d 01  2c 07 42 52 4b 0d 01 36  |1987")..,.BRK..6|
000001d0  0c 2e 73 65 72 76 69 63  65 0d 01 40 07 50 48 41  |..service..@.PHA|
000001e0  0d 01 4a 0a 43 4d 50 20  23 37 0d 01 54 11 42 45  |..J.CMP #7..T.BE|
000001f0  51 20 6e 65 77 6f 73 62  79 74 65 0d 01 5e 09 2e  |Q newosbyte..^..|
00000200  65 78 69 74 0d 01 68 07  50 4c 41 0d 01 72 07 52  |exit..h.PLA..r.R|
00000210  54 53 0d 01 7c 0e 2e 6e  65 77 6f 73 62 79 74 65  |TS..|..newosbyte|
00000220  0d 01 86 13 4c 44 41 20  61 63 63 75 6d 75 6c 61  |....LDA accumula|
00000230  74 6f 72 0d 01 90 0c 43  4d 50 20 23 31 30 30 0d  |tor....CMP #100.|
00000240  01 9a 0c 42 4e 45 20 65  78 69 74 0d 01 a4 11 4c  |...BNE exit....L|
00000250  44 58 20 78 72 65 67 69  73 74 65 72 0d 01 ae 0c  |DX xregister....|
00000260  43 50 58 20 23 26 31 30  0d 01 b8 11 42 43 53 20  |CPX #&10....BCS |
00000270  63 68 65 63 6b 79 72 65  67 0d 01 c2 0a 4c 44 41  |checkyreg....LDA|
00000280  20 23 30 0d 01 cc 0f 53  54 41 20 74 61 62 6c 65  | #0....STA table|
00000290  2c 58 0d 01 d6 0e 2e 63  68 65 63 6b 79 72 65 67  |,X.....checkyreg|
000002a0  0d 01 e0 11 4c 44 59 20  79 72 65 67 69 73 74 65  |....LDY yregiste|
000002b0  72 0d 01 ea 0b 42 45 51  20 6f 75 74 0d 01 f4 0c  |r....BEQ out....|
000002c0  2e 72 6f 6d 6c 69 73 74  0d 01 fe 15 4a 53 52 20  |.romlist....JSR |
000002d0  72 6f 6d 6e 61 6d 65 73  2b 64 69 66 66 0d 02 08  |romnames+diff...|
000002e0  08 2e 6f 75 74 0d 02 12  11 4c 44 58 20 78 72 65  |..out....LDX xre|
000002f0  67 69 73 74 65 72 0d 02  1c 11 4c 44 59 20 79 72  |gister....LDY yr|
00000300  65 67 69 73 74 65 72 0d  02 26 07 50 4c 41 0d 02  |egister..&.PLA..|
00000310  30 0a 4c 44 41 20 23 30  0d 02 3a 07 52 54 53 0d  |0.LDA #0..:.RTS.|
00000320  02 44 0d 2e 72 6f 6d 6e  61 6d 65 73 0d 02 4e 0e  |.D..romnames..N.|
00000330  4a 53 52 20 6f 73 6e 65  77 6c 0d 02 58 0b 4c 44  |JSR osnewl..X.LD|
00000340  41 20 23 26 46 0d 02 62  07 50 48 41 0d 02 6c 0c  |A #&F..b.PHA..l.|
00000350  2e 72 6f 6d 6c 6f 6f 70  0d 02 76 07 54 41 59 0d  |.romloop..v.TAY.|
00000360  02 80 0f 4c 44 41 20 74  61 62 6c 65 2c 59 0d 02  |...LDA table,Y..|
00000370  8a 0f 42 45 51 20 6e 6f  74 68 65 72 65 0d 02 94  |..BEQ nothere...|
00000380  07 54 59 41 0d 02 9e 14  4a 53 52 20 64 65 63 69  |.TYA....JSR deci|
00000390  6d 61 6c 2b 64 69 66 66  0d 02 a8 0f 4c 44 41 20  |mal+diff....LDA |
000003a0  23 97 28 22 20 22 29 0d  02 b2 0e 4a 53 52 20 6f  |#.(" ")....JSR o|
000003b0  73 61 73 63 69 0d 02 bc  0b 4c 44 41 20 23 26 38  |sasci....LDA #&8|
000003c0  0d 02 c6 10 53 54 41 20  72 6f 6d 70 6f 69 6e 74  |....STA rompoint|
000003d0  0d 02 d0 0c 4c 44 41 20  23 26 38 30 0d 02 da 12  |....LDA #&80....|
000003e0  53 54 41 20 72 6f 6d 70  6f 69 6e 74 2b 31 0d 02  |STA rompoint+1..|
000003f0  e4 0d 2e 72 65 61 64 6c  6f 6f 70 0d 02 ee 10 49  |...readloop....I|
00000400  4e 43 20 72 6f 6d 70 6f  69 6e 74 0d 02 f8 0f 42  |NC rompoint....B|
00000410  45 51 20 6e 65 77 6c 69  6e 65 0d 03 02 07 50 4c  |EQ newline....PL|
00000420  41 0d 03 0c 07 50 48 41  0d 03 16 07 54 41 59 0d  |A....PHA....TAY.|
00000430  03 20 0e 4a 53 52 20 6f  73 72 64 72 6d 0d 03 2a  |. .JSR osrdrm..*|
00000440  0f 43 4d 50 20 23 97 28  22 20 22 29 0d 03 34 0f  |.CMP #.(" ")..4.|
00000450  42 43 43 20 6e 65 77 6c  69 6e 65 0d 03 3e 0e 4a  |BCC newline..>.J|
00000460  53 52 20 6f 73 61 73 63  69 0d 03 48 15 4a 4d 50  |SR osasci..H.JMP|
00000470  20 72 65 61 64 6c 6f 6f  70 2b 64 69 66 66 0d 03  | readloop+diff..|
00000480  52 0c 2e 6e 65 77 6c 69  6e 65 0d 03 5c 0e 4a 53  |R..newline..\.JS|
00000490  52 20 6f 73 6e 65 77 6c  0d 03 66 0c 2e 6e 6f 74  |R osnewl..f..not|
000004a0  68 65 72 65 0d 03 70 07  50 4c 41 0d 03 7a 07 53  |here..p.PLA..z.S|
000004b0  45 43 0d 03 84 0a 53 42  43 20 23 31 0d 03 8e 07  |EC....SBC #1....|
000004c0  50 48 41 0d 03 98 0f 42  50 4c 20 72 6f 6d 6c 6f  |PHA....BPL romlo|
000004d0  6f 70 0d 03 a2 07 50 4c  41 0d 03 ac 0e 4a 4d 50  |op....PLA....JMP|
000004e0  20 6f 73 6e 65 77 6c 0d  03 b6 0c 2e 64 65 63 69  | osnewl.....deci|
000004f0  6d 61 6c 0d 03 c0 07 53  45 44 0d 03 ca 07 43 4c  |mal....SED....CL|
00000500  43 0d 03 d4 0a 41 44 43  20 23 30 0d 03 de 07 43  |C....ADC #0....C|
00000510  4c 44 0d 03 e8 07 50 48  41 0d 03 f2 09 4c 53 52  |LD....PHA....LSR|
00000520  20 41 0d 03 fc 09 4c 53  52 20 41 0d 04 06 09 4c  | A....LSR A....L|
00000530  53 52 20 41 0d 04 10 09  4c 53 52 20 41 0d 04 1a  |SR A....LSR A...|
00000540  13 4a 53 52 20 6e 69 62  62 6c 65 2b 64 69 66 66  |.JSR nibble+diff|
00000550  0d 04 24 07 50 4c 41 0d  04 2e 09 80 20 23 26 46  |..$.PLA..... #&F|
00000560  0d 04 38 0b 2e 6e 69 62  62 6c 65 0d 04 42 07 43  |..8..nibble..B.C|
00000570  4c 43 0d 04 4c 0f 41 44  43 20 23 97 28 22 30 22  |LC..L.ADC #.("0"|
00000580  29 0d 04 56 0e 4a 4d 50  20 6f 73 61 73 63 69 0d  |)..V.JMP osasci.|
00000590  04 60 0d 2e 6c 61 73 74  62 79 74 65 0d 04 6a 05  |.`..lastbyte..j.|
000005a0  5d 0d 04 74 05 ed 0d 04  7e 21 e8 27 22 53 61 76  |]..t....~!.'"Sav|
000005b0  65 20 66 69 6c 65 6e 61  6d 65 20 3d 20 22 66 69  |e filename = "fi|
000005c0  6c 65 6e 61 6d 65 24 0d  04 88 14 e7 20 66 69 6c  |lename$..... fil|
000005d0  65 6e 61 6d 65 24 3d 22  22 20 e0 0d 04 92 4b 24  |ename$="" ....K$|
000005e0  73 61 76 65 3d 22 53 41  56 45 20 22 2b 66 69 6c  |save="SAVE "+fil|
000005f0  65 6e 61 6d 65 24 2b 22  20 22 2b c3 7e 28 93 29  |ename$+" "+.~(.)|
00000600  2b 22 20 22 2b c3 7e 28  6c 61 73 74 62 79 74 65  |+" "+.~(lastbyte|
00000610  29 2b 22 20 46 46 46 46  38 30 30 30 20 46 46 46  |)+" FFFF8000 FFF|
00000620  46 38 30 30 30 22 0d 04  9c 11 58 25 3d 73 61 76  |F8000"....X%=sav|
00000630  65 20 83 20 32 35 36 0d  04 a6 11 59 25 3d 73 61  |e . 256....Y%=sa|
00000640  76 65 20 81 20 32 35 36  0d 04 b0 0b 2a 4f 50 54  |ve . 256....*OPT|
00000650  31 2c 32 0d 04 ba 0b d6  20 6f 73 63 6c 69 0d 04  |1,2..... oscli..|
00000660  c4 0b 2a 4f 50 54 31 2c  30 0d 04 ce 05 e0 0d 04  |..*OPT1,0.......|
00000670  d8 10 dd a4 65 71 75 62  28 62 79 74 65 29 0d 04  |....equb(byte)..|
00000680  e2 0c 3f 50 25 3d 62 79  74 65 0d 04 ec 0b 50 25  |..?P%=byte....P%|
00000690  3d 50 25 2b 31 0d 04 f6  09 3d 70 61 73 73 0d 05  |=P%+1....=pass..|
000006a0  00 10 dd a4 65 71 75 77  28 77 6f 72 64 29 0d 05  |....equw(word)..|
000006b0  0a 12 3f 50 25 3d 77 6f  72 64 20 83 20 32 35 36  |..?P%=word . 256|
000006c0  0d 05 14 13 50 25 3f 31  3d 77 6f 72 64 20 81 20  |....P%?1=word . |
000006d0  32 35 36 0d 05 1e 0b 50  25 3d 50 25 2b 32 0d 05  |256....P%=P%+2..|
000006e0  28 09 3d 70 61 73 73 0d  05 32 12 dd a4 65 71 75  |(.=pass..2...equ|
000006f0  64 28 64 6f 75 62 6c 65  29 0d 05 3c 0e 21 50 25  |d(double)..<.!P%|
00000700  3d 64 6f 75 62 6c 65 0d  05 46 0b 50 25 3d 50 25  |=double..F.P%=P%|
00000710  2b 34 0d 05 50 09 3d 70  61 73 73 0d 05 5a 13 dd  |+4..P.=pass..Z..|
00000720  a4 65 71 75 73 28 73 74  72 69 6e 67 24 29 0d 05  |.equs(string$)..|
00000730  64 0f 24 50 25 3d 73 74  72 69 6e 67 24 0d 05 6e  |d.$P%=string$..n|
00000740  14 50 25 3d 50 25 2b a9  28 73 74 72 69 6e 67 24  |.P%=P%+.(string$|
00000750  29 0d 05 78 09 3d 70 61  73 73 0d ff              |)..x.=pass..|
0000075c