�" Service ROM Header V1.0
"�" By The Welder/Faith^Darkage
 �" (C)2000 Faith Productions
(*�Q%500:�I%=4�6�2:P%=&8000:O%=Q%:[OPTI%
2\
<\ ** Rom Header **
F\
P�.rom EQUW0:EQUB0:JMPsvs:EQUB&82:EQUB(cgh-rom):EQUB1:.tit EQUS"TESTROM":EQUB0:EQUS"1.00":EQUB&D:.cgh EQUB0:EQUS"(C)2000 ROM Software":EQUB0
Z\
d\ ** Command Data **
n\
x.cdt
�.cm1 EQUS"  CMDONE":EQUB&D
�;.cm2 EQUS"  NEXTCMD (<Parameters or arguments)>":EQUB&D
�9.cm3 EQUS"  LASTCMD <More required arguments>":EQUB&D
�.cde
�\
�\ ** Service Entry **
�\
�x.svs STA&70:STX&71:STY&72:JSRrec:LDA&70:LDX&71:LDY&72:RTS:.rec CMP#4:BEQdcm:CMP#9:BEQdhp:RTS:.dcm JMPcmd:.dhp JMPhlp
�\
�\ ** Command Structure **
�\
�.hcs EQUB7-1:EQUWtit
�^.cms EQUB3-1:EQUB6-1:EQUWcm1+2:EQUWep1:EQUB7-1:EQUWcm2+2:EQUWep2:EQUB7-1:EQUWcm3+2:EQUWep3

\

\ ** Jump Array **

\

"-.ep1 JMPcall1:.ep2 JMPcall2:.ep3 JMPcall3

,\

6\ ** Help Interpreter **

@\

J�.hlp TYA:CLC:ADC&F2:STA&73:LDA&F3:ADC#0:STA&74:LDAhcs+1:STA&75:LDAhcs+2:STA&76:LDY#0:LDA(&73),Y:CMP#&D:BEQpcl:LDYhcs:.hl1 LDA(&73),Y:�#&DF:CMP(&75),Y:BNEnoh:DEY:BPLhl1:JSRpcl:LDX#0:.hl2 LDAcdt,X:JSR&FFE3:INX:CPX#(cde-cdt):BNEhl2

Tb.noh RTS:.pcl JSR&FFE7:LDY#0:.hl3 LDA(&75),Y:BNElgv:LDA#32:.lgv JSR&FFE3:INY:CMP#&D:BNEhl3:RTS

^\

h\ ** Command Interpreter **

r\

|�.cmd TYA:CLC:ADC&F2:STA&73:LDA&F3:ADC#0:STA&74:LDAcms:STA&75:LDX#0:.cl1 LDAcms+2,X:STA&76:LDAcms+3,X:STA&77:LDYcms+1,X:.cl2 LDA(&73),Y:�#&DF:CMP(&76),Y:BNEncm:DEY:BPLcl2:LDA#0:STA&70:JMP(cms+4,X):.ncm TXA:CLC:ADC#5:TAX:DEC&75

�BPLcl1:RTS

�\

�!\ ** Example Command Calls **

�\

��.call1 LDX#msg1 �256:LDY#msg1 �256:JMPprn:.call2 LDX#msg2 �256:LDY#msg2 �256:JMPprn:.call3 LDX#msg3 �256:LDY#msg3 �256:.prn STX&73:STY&74:LDY#0:.lp LDA(&73),Y:BEQend:JSR&FFEE:INY:BNElp:INC&74:JMPlp:.end JMP&FFE7

�\

�\ ** Test Text Messages **

�\

֊.msg1 EQUS"Wow! Command 1 is working!":EQUB0:.msg2 EQUS"Wow! Command 2 is working!":EQUB0:.msg3 EQUS"Wow! Command 3 is working!":EQUB0

�/]:�:�"SAVE Rom "+�~Q%+" "+�~O%+" D9CD 8000"
�

00000000  0d 00 0a 1e f4 22 20 53  65 72 76 69 63 65 20 52  |....." Service R|
00000010  4f 4d 20 48 65 61 64 65  72 20 56 31 2e 30 0d 00  |OM Header V1.0..|
00000020  14 22 f4 22 20 42 79 20  54 68 65 20 57 65 6c 64  |."." By The Weld|
00000030  65 72 2f 46 61 69 74 68  5e 44 61 72 6b 61 67 65  |er/Faith^Darkage|
00000040  0d 00 1e 20 f4 22 20 28  43 29 32 30 30 30 20 46  |... ." (C)2000 F|
00000050  61 69 74 68 20 50 72 6f  64 75 63 74 69 6f 6e 73  |aith Productions|
00000060  0d 00 28 2a de 51 25 35  30 30 3a e3 49 25 3d 34  |..(*.Q%500:.I%=4|
00000070  b8 36 88 32 3a 50 25 3d  26 38 30 30 30 3a 4f 25  |.6.2:P%=&8000:O%|
00000080  3d 51 25 3a 5b 4f 50 54  49 25 0d 00 32 05 5c 0d  |=Q%:[OPTI%..2.\.|
00000090  00 3c 16 5c 20 2a 2a 20  52 6f 6d 20 48 65 61 64  |.<.\ ** Rom Head|
000000a0  65 72 20 2a 2a 0d 00 46  05 5c 0d 00 50 8e 2e 72  |er **..F.\..P..r|
000000b0  6f 6d 20 45 51 55 57 30  3a 45 51 55 42 30 3a 4a  |om EQUW0:EQUB0:J|
000000c0  4d 50 73 76 73 3a 45 51  55 42 26 38 32 3a 45 51  |MPsvs:EQUB&82:EQ|
000000d0  55 42 28 63 67 68 2d 72  6f 6d 29 3a 45 51 55 42  |UB(cgh-rom):EQUB|
000000e0  31 3a 2e 74 69 74 20 45  51 55 53 22 54 45 53 54  |1:.tit EQUS"TEST|
000000f0  52 4f 4d 22 3a 45 51 55  42 30 3a 45 51 55 53 22  |ROM":EQUB0:EQUS"|
00000100  31 2e 30 30 22 3a 45 51  55 42 26 44 3a 2e 63 67  |1.00":EQUB&D:.cg|
00000110  68 20 45 51 55 42 30 3a  45 51 55 53 22 28 43 29  |h EQUB0:EQUS"(C)|
00000120  32 30 30 30 20 52 4f 4d  20 53 6f 66 74 77 61 72  |2000 ROM Softwar|
00000130  65 22 3a 45 51 55 42 30  0d 00 5a 05 5c 0d 00 64  |e":EQUB0..Z.\..d|
00000140  18 5c 20 2a 2a 20 43 6f  6d 6d 61 6e 64 20 44 61  |.\ ** Command Da|
00000150  74 61 20 2a 2a 0d 00 6e  05 5c 0d 00 78 08 2e 63  |ta **..n.\..x..c|
00000160  64 74 0d 00 82 1e 2e 63  6d 31 20 45 51 55 53 22  |dt.....cm1 EQUS"|
00000170  20 20 43 4d 44 4f 4e 45  22 3a 45 51 55 42 26 44  |  CMDONE":EQUB&D|
00000180  0d 00 8c 3b 2e 63 6d 32  20 45 51 55 53 22 20 20  |...;.cm2 EQUS"  |
00000190  4e 45 58 54 43 4d 44 20  28 3c 50 61 72 61 6d 65  |NEXTCMD (<Parame|
000001a0  74 65 72 73 20 6f 72 20  61 72 67 75 6d 65 6e 74  |ters or argument|
000001b0  73 29 3e 22 3a 45 51 55  42 26 44 0d 00 96 39 2e  |s)>":EQUB&D...9.|
000001c0  63 6d 33 20 45 51 55 53  22 20 20 4c 41 53 54 43  |cm3 EQUS"  LASTC|
000001d0  4d 44 20 3c 4d 6f 72 65  20 72 65 71 75 69 72 65  |MD <More require|
000001e0  64 20 61 72 67 75 6d 65  6e 74 73 3e 22 3a 45 51  |d arguments>":EQ|
000001f0  55 42 26 44 0d 00 a0 08  2e 63 64 65 0d 00 aa 05  |UB&D.....cde....|
00000200  5c 0d 00 b4 19 5c 20 2a  2a 20 53 65 72 76 69 63  |\....\ ** Servic|
00000210  65 20 45 6e 74 72 79 20  2a 2a 0d 00 be 05 5c 0d  |e Entry **....\.|
00000220  00 c8 78 2e 73 76 73 20  53 54 41 26 37 30 3a 53  |..x.svs STA&70:S|
00000230  54 58 26 37 31 3a 53 54  59 26 37 32 3a 4a 53 52  |TX&71:STY&72:JSR|
00000240  72 65 63 3a 4c 44 41 26  37 30 3a 4c 44 58 26 37  |rec:LDA&70:LDX&7|
00000250  31 3a 4c 44 59 26 37 32  3a 52 54 53 3a 2e 72 65  |1:LDY&72:RTS:.re|
00000260  63 20 43 4d 50 23 34 3a  42 45 51 64 63 6d 3a 43  |c CMP#4:BEQdcm:C|
00000270  4d 50 23 39 3a 42 45 51  64 68 70 3a 52 54 53 3a  |MP#9:BEQdhp:RTS:|
00000280  2e 64 63 6d 20 4a 4d 50  63 6d 64 3a 2e 64 68 70  |.dcm JMPcmd:.dhp|
00000290  20 4a 4d 50 68 6c 70 0d  00 d2 05 5c 0d 00 dc 1d  | JMPhlp....\....|
000002a0  5c 20 2a 2a 20 43 6f 6d  6d 61 6e 64 20 53 74 72  |\ ** Command Str|
000002b0  75 63 74 75 72 65 20 2a  2a 0d 00 e6 05 5c 0d 00  |ucture **....\..|
000002c0  f0 18 2e 68 63 73 20 45  51 55 42 37 2d 31 3a 45  |...hcs EQUB7-1:E|
000002d0  51 55 57 74 69 74 0d 00  fa 5e 2e 63 6d 73 20 45  |QUWtit...^.cms E|
000002e0  51 55 42 33 2d 31 3a 45  51 55 42 36 2d 31 3a 45  |QUB3-1:EQUB6-1:E|
000002f0  51 55 57 63 6d 31 2b 32  3a 45 51 55 57 65 70 31  |QUWcm1+2:EQUWep1|
00000300  3a 45 51 55 42 37 2d 31  3a 45 51 55 57 63 6d 32  |:EQUB7-1:EQUWcm2|
00000310  2b 32 3a 45 51 55 57 65  70 32 3a 45 51 55 42 37  |+2:EQUWep2:EQUB7|
00000320  2d 31 3a 45 51 55 57 63  6d 33 2b 32 3a 45 51 55  |-1:EQUWcm3+2:EQU|
00000330  57 65 70 33 0d 01 04 05  5c 0d 01 0e 16 5c 20 2a  |Wep3....\....\ *|
00000340  2a 20 4a 75 6d 70 20 41  72 72 61 79 20 2a 2a 0d  |* Jump Array **.|
00000350  01 18 05 5c 0d 01 22 2d  2e 65 70 31 20 4a 4d 50  |...\.."-.ep1 JMP|
00000360  63 61 6c 6c 31 3a 2e 65  70 32 20 4a 4d 50 63 61  |call1:.ep2 JMPca|
00000370  6c 6c 32 3a 2e 65 70 33  20 4a 4d 50 63 61 6c 6c  |ll2:.ep3 JMPcall|
00000380  33 0d 01 2c 05 5c 0d 01  36 1c 5c 20 2a 2a 20 48  |3..,.\..6.\ ** H|
00000390  65 6c 70 20 49 6e 74 65  72 70 72 65 74 65 72 20  |elp Interpreter |
000003a0  2a 2a 0d 01 40 05 5c 0d  01 4a e8 2e 68 6c 70 20  |**..@.\..J..hlp |
000003b0  54 59 41 3a 43 4c 43 3a  41 44 43 26 46 32 3a 53  |TYA:CLC:ADC&F2:S|
000003c0  54 41 26 37 33 3a 4c 44  41 26 46 33 3a 41 44 43  |TA&73:LDA&F3:ADC|
000003d0  23 30 3a 53 54 41 26 37  34 3a 4c 44 41 68 63 73  |#0:STA&74:LDAhcs|
000003e0  2b 31 3a 53 54 41 26 37  35 3a 4c 44 41 68 63 73  |+1:STA&75:LDAhcs|
000003f0  2b 32 3a 53 54 41 26 37  36 3a 4c 44 59 23 30 3a  |+2:STA&76:LDY#0:|
00000400  4c 44 41 28 26 37 33 29  2c 59 3a 43 4d 50 23 26  |LDA(&73),Y:CMP#&|
00000410  44 3a 42 45 51 70 63 6c  3a 4c 44 59 68 63 73 3a  |D:BEQpcl:LDYhcs:|
00000420  2e 68 6c 31 20 4c 44 41  28 26 37 33 29 2c 59 3a  |.hl1 LDA(&73),Y:|
00000430  80 23 26 44 46 3a 43 4d  50 28 26 37 35 29 2c 59  |.#&DF:CMP(&75),Y|
00000440  3a 42 4e 45 6e 6f 68 3a  44 45 59 3a 42 50 4c 68  |:BNEnoh:DEY:BPLh|
00000450  6c 31 3a 4a 53 52 70 63  6c 3a 4c 44 58 23 30 3a  |l1:JSRpcl:LDX#0:|
00000460  2e 68 6c 32 20 4c 44 41  63 64 74 2c 58 3a 4a 53  |.hl2 LDAcdt,X:JS|
00000470  52 26 46 46 45 33 3a 49  4e 58 3a 43 50 58 23 28  |R&FFE3:INX:CPX#(|
00000480  63 64 65 2d 63 64 74 29  3a 42 4e 45 68 6c 32 0d  |cde-cdt):BNEhl2.|
00000490  01 54 62 2e 6e 6f 68 20  52 54 53 3a 2e 70 63 6c  |.Tb.noh RTS:.pcl|
000004a0  20 4a 53 52 26 46 46 45  37 3a 4c 44 59 23 30 3a  | JSR&FFE7:LDY#0:|
000004b0  2e 68 6c 33 20 4c 44 41  28 26 37 35 29 2c 59 3a  |.hl3 LDA(&75),Y:|
000004c0  42 4e 45 6c 67 76 3a 4c  44 41 23 33 32 3a 2e 6c  |BNElgv:LDA#32:.l|
000004d0  67 76 20 4a 53 52 26 46  46 45 33 3a 49 4e 59 3a  |gv JSR&FFE3:INY:|
000004e0  43 4d 50 23 26 44 3a 42  4e 45 68 6c 33 3a 52 54  |CMP#&D:BNEhl3:RT|
000004f0  53 0d 01 5e 05 5c 0d 01  68 1f 5c 20 2a 2a 20 43  |S..^.\..h.\ ** C|
00000500  6f 6d 6d 61 6e 64 20 49  6e 74 65 72 70 72 65 74  |ommand Interpret|
00000510  65 72 20 2a 2a 0d 01 72  05 5c 0d 01 7c e5 2e 63  |er **..r.\..|..c|
00000520  6d 64 20 54 59 41 3a 43  4c 43 3a 41 44 43 26 46  |md TYA:CLC:ADC&F|
00000530  32 3a 53 54 41 26 37 33  3a 4c 44 41 26 46 33 3a  |2:STA&73:LDA&F3:|
00000540  41 44 43 23 30 3a 53 54  41 26 37 34 3a 4c 44 41  |ADC#0:STA&74:LDA|
00000550  63 6d 73 3a 53 54 41 26  37 35 3a 4c 44 58 23 30  |cms:STA&75:LDX#0|
00000560  3a 2e 63 6c 31 20 4c 44  41 63 6d 73 2b 32 2c 58  |:.cl1 LDAcms+2,X|
00000570  3a 53 54 41 26 37 36 3a  4c 44 41 63 6d 73 2b 33  |:STA&76:LDAcms+3|
00000580  2c 58 3a 53 54 41 26 37  37 3a 4c 44 59 63 6d 73  |,X:STA&77:LDYcms|
00000590  2b 31 2c 58 3a 2e 63 6c  32 20 4c 44 41 28 26 37  |+1,X:.cl2 LDA(&7|
000005a0  33 29 2c 59 3a 80 23 26  44 46 3a 43 4d 50 28 26  |3),Y:.#&DF:CMP(&|
000005b0  37 36 29 2c 59 3a 42 4e  45 6e 63 6d 3a 44 45 59  |76),Y:BNEncm:DEY|
000005c0  3a 42 50 4c 63 6c 32 3a  4c 44 41 23 30 3a 53 54  |:BPLcl2:LDA#0:ST|
000005d0  41 26 37 30 3a 4a 4d 50  28 63 6d 73 2b 34 2c 58  |A&70:JMP(cms+4,X|
000005e0  29 3a 2e 6e 63 6d 20 54  58 41 3a 43 4c 43 3a 41  |):.ncm TXA:CLC:A|
000005f0  44 43 23 35 3a 54 41 58  3a 44 45 43 26 37 35 0d  |DC#5:TAX:DEC&75.|
00000600  01 86 0e 42 50 4c 63 6c  31 3a 52 54 53 0d 01 90  |...BPLcl1:RTS...|
00000610  05 5c 0d 01 9a 21 5c 20  2a 2a 20 45 78 61 6d 70  |.\...!\ ** Examp|
00000620  6c 65 20 43 6f 6d 6d 61  6e 64 20 43 61 6c 6c 73  |le Command Calls|
00000630  20 2a 2a 0d 01 a4 05 5c  0d 01 ae d7 2e 63 61 6c  | **....\.....cal|
00000640  6c 31 20 4c 44 58 23 6d  73 67 31 20 83 32 35 36  |l1 LDX#msg1 .256|
00000650  3a 4c 44 59 23 6d 73 67  31 20 81 32 35 36 3a 4a  |:LDY#msg1 .256:J|
00000660  4d 50 70 72 6e 3a 2e 63  61 6c 6c 32 20 4c 44 58  |MPprn:.call2 LDX|
00000670  23 6d 73 67 32 20 83 32  35 36 3a 4c 44 59 23 6d  |#msg2 .256:LDY#m|
00000680  73 67 32 20 81 32 35 36  3a 4a 4d 50 70 72 6e 3a  |sg2 .256:JMPprn:|
00000690  2e 63 61 6c 6c 33 20 4c  44 58 23 6d 73 67 33 20  |.call3 LDX#msg3 |
000006a0  83 32 35 36 3a 4c 44 59  23 6d 73 67 33 20 81 32  |.256:LDY#msg3 .2|
000006b0  35 36 3a 2e 70 72 6e 20  53 54 58 26 37 33 3a 53  |56:.prn STX&73:S|
000006c0  54 59 26 37 34 3a 4c 44  59 23 30 3a 2e 6c 70 20  |TY&74:LDY#0:.lp |
000006d0  4c 44 41 28 26 37 33 29  2c 59 3a 42 45 51 65 6e  |LDA(&73),Y:BEQen|
000006e0  64 3a 4a 53 52 26 46 46  45 45 3a 49 4e 59 3a 42  |d:JSR&FFEE:INY:B|
000006f0  4e 45 6c 70 3a 49 4e 43  26 37 34 3a 4a 4d 50 6c  |NElp:INC&74:JMPl|
00000700  70 3a 2e 65 6e 64 20 4a  4d 50 26 46 46 45 37 0d  |p:.end JMP&FFE7.|
00000710  01 b8 05 5c 0d 01 c2 1e  5c 20 2a 2a 20 54 65 73  |...\....\ ** Tes|
00000720  74 20 54 65 78 74 20 4d  65 73 73 61 67 65 73 20  |t Text Messages |
00000730  2a 2a 0d 01 cc 05 5c 0d  01 d6 8a 2e 6d 73 67 31  |**....\.....msg1|
00000740  20 45 51 55 53 22 57 6f  77 21 20 43 6f 6d 6d 61  | EQUS"Wow! Comma|
00000750  6e 64 20 31 20 69 73 20  77 6f 72 6b 69 6e 67 21  |nd 1 is working!|
00000760  22 3a 45 51 55 42 30 3a  2e 6d 73 67 32 20 45 51  |":EQUB0:.msg2 EQ|
00000770  55 53 22 57 6f 77 21 20  43 6f 6d 6d 61 6e 64 20  |US"Wow! Command |
00000780  32 20 69 73 20 77 6f 72  6b 69 6e 67 21 22 3a 45  |2 is working!":E|
00000790  51 55 42 30 3a 2e 6d 73  67 33 20 45 51 55 53 22  |QUB0:.msg3 EQUS"|
000007a0  57 6f 77 21 20 43 6f 6d  6d 61 6e 64 20 33 20 69  |Wow! Command 3 i|
000007b0  73 20 77 6f 72 6b 69 6e  67 21 22 3a 45 51 55 42  |s working!":EQUB|
000007c0  30 0d 01 e0 2f 5d 3a ed  3a ff 22 53 41 56 45 20  |0.../]:.:."SAVE |
000007d0  52 6f 6d 20 22 2b c3 7e  51 25 2b 22 20 22 2b c3  |Rom "+.~Q%+" "+.|
000007e0  7e 4f 25 2b 22 20 44 39  43 44 20 38 30 30 30 22  |~O%+" D9CD 8000"|
000007f0  0d ff                                             |..|
000007f2