P/PCDsrc

Home » Personal collection » Acorn ADFS disks » Electron_User_Group » EUG_25.ADF » P/PCDsrc

P/PCDsrc

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 ADFS disks » Electron_User_Group » EUG_25.ADF
Filename:	P/PCDsrc
Read OK:	✔
File size:	1BCB bytes
Load address:	FFFF0E00
Exec address:	FFFF8023

Duplicates

There is 1 duplicate copy of this file in the archive:

AEW website » eug » eug_5_25_discs_Eug-25_D-EUG25.dsd » U.PCDSrc
Personal collection » Acorn ADFS disks » Electron_User_Group » EUG_25.ADF » P/PCDsrc

File contents

   10REM ***************************
   20REM Printer Code Setter
   30REM by Richard A. Dimond
   40REM (c) March 1993
   50REM ***************************
   60REM
   70PROCassem
   80PRINT"Saving..."
   90OSCLI"SAVE PCODES "+STR$~code%+" "+STR$~O%+" 8000 8000"
  100END
  110DEFPROCassem
  120DIM code% 2000
  130mem=&70:tmp=&72:ptr=&F2
  140osasci=&FFE3:oswrch=&FFEE:osnewl=&FFE7
  150FORpass=4TO6STEP2
  160P%=&8000:O%=code%
  170[OPTpass
  180.romstrt
  190EQUB0
  200EQUB0
  210EQUB0
  220JMPservice
  230EQUB&82
  240EQUB(copyr-romstrt)
  250EQUB0
  260.title EQUS"Printer Code Setter"
  270EQUB0
  280EQUS"1.00"
  290EQUB&D
  300.copyr EQUB0
  310EQUS"(C) 1993 Richard A. Dimond"
  320EQUB0
  330.service PHP:PHA
  340CMP#4:BEQcommand
  350CMP#9:BEQhelp
  360PLA:PLP:RTS
  370.prt
  380STXmem:STYmem+1
  390.lp1 LDY#0
  400.lp2 LDA(mem),Y
  410CMP#&FF:BEQexit
  420JSRosasci:INY:BNElp2
  430INCmem+1
  440JMPlp1
  450.exit RTS
  460.help
  470TXA:PHA:TYA:PHA
  480LDA(ptr),Y:CMP#13:BEQnonly
  490LDX#&FF:DEY
  500.help1
  510INX:INY
  520LDAhword,X:CMP#13:BEQbhelp
  530LDA(ptr),Y:CMP#ASC".":BEQbhelp
  540AND#&DF:CMPhword,X:BEQhelp1
  550.out
  560PLA:TAY:PLA:TAX:PLA:PLP:RTS
  570.nonly JSRnameonly:JMPout
  580.bhelp LDA#14:JSRoswrch
  590JSRnameonly
  600LDX#hlptxt MOD256
  610LDY#hlptxt DIV256
  620JSRprt:LDA#15:JSRoswrch:JMPout
  630.command 
  640TXA:PHA:TYA:PHA:LDX#0:STYtmp
  650.com1 LDAcoms,X:CMP#&FF:BEQnocom:LDYtmp
  660.com2 LDAcoms,X:BEQgotcom:LDA(ptr),Y:AND#&DF:CMPcoms,X:BNEnextone:INY:INX:BNEcom2
  670.nextone INX:LDAcoms,X:BNEnextone:INX:INX:INX:BNEcom1
  680.gotcom INX:LDAcoms,X:STAmem:LDAcoms+1,X:STAmem+1:JMP(mem)
  690.nocom JMPout
  700.comout PLA:TAY:PLA:TAX:PLA:LDA#0:PLP:RTS
  710.nameonly
  720JSRosnewl
  730LDY#&FF
  740.pname
  750INY:LDAtitle,Y:JSRoswrch:BNEpname
  760JSRosnewl:RTS
  770.hword   EQUS "PCODES"+CHR$13
  780.hlptxt  EQUS "  Commands:"+CHR$13+CHR$13
  790EQUS"*RES  *DRA  *NLQ"+CHR$13+CHR$13
  800EQUS"*PIC  *ELI  *COS  *COF"+CHR$13
  810EQUS"*DHS  *DHF  *DSS  *DSF"+CHR$13
  820EQUS"*EMS  *EMF  *ENS  *ENF"+CHR$13
  830EQUS"*ITS  *ITF  *SPS  *SBS  *SSF"+CHR$13
  840EQUS"*ULS  *ULF"+CHR$13+CHR$13
  850EQUS"*ENG For printing the ` sign"+CHR$13
  860EQUS"*EXP  Expand character set to graphics"+CHR$13+CHR$13
  870EQUS"*LFA  Line feed 1/8"""+CHR$13
  880EQUS"*LFB  Line feed 7/72"""+CHR$13
  890EQUS"*LFC  Line feed 1/6"""+CHR$13+CHR$13
  900EQUS"*CNA  Column 1 at TAB(0)"+CHR$13
  910EQUS"*CNB  Column 2 at TAB(45)"+CHR$13
  920EQUS"*CNC  Column 3 at TAB(90)"+CHR$13
  930EQUS"     All 40 caharcters wide"+CHR$13
  940EQUS"NOTE:"+CHR$13+CHR$13
  950EQUS"   For 2 column printing use"+CHR$13
  960EQUS"      ELITE + DOUBLE STRIKE"+CHR$13
  970EQUS"   For 3 column printing use"+CHR$13
  980EQUS"      CONDENSED + DOUBLE STRIKE"+CHR$13
  990EQUB-1
 1000.coms
 1010EQUS"RES":EQUB0:EQUWres
 1020EQUS"DRA":EQUB0:EQUWdra
 1030EQUS"NLQ":EQUB0:EQUWnlq
 1040EQUS"PIC":EQUB0:EQUWpic
 1050EQUS"ELI":EQUB0:EQUWeli
 1060EQUS"COS":EQUB0:EQUWcos
 1070EQUS"COF":EQUB0:EQUWcof
 1080EQUS"DHS":EQUB0:EQUWdhs
 1090EQUS"DHF":EQUB0:EQUWdhf
 1100EQUS"DSS":EQUB0:EQUWdsf
 1110EQUS"EMS":EQUB0:EQUWems
 1120EQUS"EMF":EQUB0:EQUWemf
 1130EQUS"ENG":EQUB0:EQUWeng
 1140EQUS"ENS":EQUB0:EQUWens
 1150EQUS"ENF":EQUB0:EQUWenf
 1160EQUS"ITS":EQUB0:EQUWits
 1170EQUS"ITF":EQUB0:EQUWitf
 1180EQUS"SPS":EQUB0:EQUWsps
 1190EQUS"SBS":EQUB0:EQUWsbs
 1200EQUS"SSF":EQUB0:EQUWssf
 1210EQUS"ULS":EQUB0:EQUWuls
 1220EQUS"ULF":EQUB0:EQUWulf
 1230EQUS"EXP":EQUB0:EQUWexp
 1240EQUS"LFA":EQUB0:EQUWlfa
 1250EQUS"LFB":EQUB0:EQUWlfb
 1260EQUS"LFC":EQUB0:EQUWlfc
 1270EQUS"CNA":EQUB0:EQUWcna
 1280EQUS"CNB":EQUB0:EQUWcnb
 1290EQUS"CNC":EQUB0:EQUWcnc
 1300EQUB-1
 1310.prtron
 1320LDA#2:JMPoswrch
 1330.prtroff
 1340LDA#3:JMPoswrch
 1350.esc
 1360LDA#1:JSRoswrch
 1370LDA#27:JMPoswrch
 1380.res
 1390JSRprtron
 1400JSResc
 1410LDA#1:JSRoswrch:LDA#64:JSRoswrch
 1420JSRprtroff
 1430JMPcomout
 1440.dra
 1450JSRprtron
 1460JSResc
 1470LDA#1:JSRoswrch:LDA#120:JSRoswrch
 1480LDA#1:JSRoswrch:LDA#0:JSRoswrch
 1490JSRprtroff
 1500JMPcomout
 1510.nlq
 1520JSRprtron
 1530JSResc
 1540LDA#1:JSRoswrch:LDA#120:JSRoswrch
 1550LDA#1:JSRoswrch:LDA#1:JSRoswrch
 1560JSRprtroff
 1570JMPcomout
 1580.pic
 1590JSRprtron
 1600JSResc
 1610LDA#1:JSRoswrch:LDA#80:JSRoswrch
 1620JSRprtroff
 1630JMPcomout
 1640.eli
 1650JSRprtron
 1660JSResc
 1670LDA#1:JSRoswrch:LDA#77:JSRoswrch
 1680JSRprtroff
 1690JMPcomout
 1700.cos
 1710JSRprtron
 1720JSResc
 1730LDA#1:JSRoswrch:LDA#15:JSRoswrch
 1740JSRprtroff
 1750JMPcomout
 1760.cof
 1770JSRprtron
 1780LDA#1:JSRoswrch:LDA#18:JSRoswrch
 1790JSRprtroff
 1800JMPcomout
 1810.dhs
 1820JSRprtron
 1830JSResc
 1840LDA#1:JSRoswrch:LDA#119:JSRoswrch
 1850LDA#1:JSRoswrch:LDA#1:JSRoswrch
 1860JSRprtroff
 1870JMPcomout
 1880.dhf
 1890JSRprtron
 1900JSResc
 1910LDA#1:JSRoswrch:LDA#119:JSRoswrch
 1920LDA#1:JSRoswrch:LDA#0:JSRoswrch
 1930JSRprtroff
 1940JMPcomout
 1950.dss
 1960JSRprtron
 1970JSResc
 1980LDA#1:JSRoswrch:LDA#71:JSRoswrch
 1990JSRprtroff
 2000JMPcomout
 2010.dsf
 2020JSRprtron
 2030JSResc
 2040LDA#1:JSRoswrch:LDA#72:JSRoswrch
 2050JSRprtroff
 2060JMPcomout
 2070.ems
 2080JSRprtron
 2090JSResc
 2100LDA#1:JSRoswrch:LDA#69:JSRoswrch
 2110JSRprtroff
 2120JMPcomout
 2130.emf
 2140JSRprtron
 2150JSResc
 2160LDA#1:JSRoswrch:LDA#70:JSRoswrch
 2170JSRprtroff
 2180JMPcomout
 2190.eng
 2200JSRprtron
 2210JSResc
 2220LDA#1:JSRoswrch:LDA#82:JSRoswrch
 2230LDA#1:JSRoswrch:LDA#3:JSRoswrch
 2240JSRprtroff
 2250JMPcomout
 2260.ens
 2270JSRprtron
 2280JSResc
 2290LDA#1:JSRoswrch:LDA#87:JSRoswrch
 2300LDA#1:JSRoswrch:LDA#1:JSRoswrch
 2310JSRprtroff
 2320JMPcomout
 2330.enf
 2340JSRprtron
 2350JSResc
 2360LDA#1:JSRoswrch:LDA#87:JSRoswrch
 2370LDA#1:JSRoswrch:LDA#0:JSRoswrch
 2380JSRprtroff
 2390JMPcomout
 2400.its
 2410JSRprtron
 2420JSResc
 2430LDA#1:JSRoswrch:LDA#52:JSRoswrch
 2440JSRprtroff
 2450JMPcomout
 2460.itf
 2470JSRprtron
 2480JSResc
 2490LDA#1:JSRoswrch:LDA#53:JSRoswrch
 2500JSRprtroff
 2510JMPcomout
 2520.sps
 2530JSRprtron
 2540JSResc
 2550LDA#1:JSRoswrch:LDA#83:JSRoswrch
 2560LDA#1:JSRoswrch:LDA#0:JSRoswrch
 2570JSRprtroff
 2580JMPcomout
 2590.sbs
 2600JSRprtron
 2610JSResc
 2620LDA#1:JSRoswrch:LDA#83:JSRoswrch
 2630LDA#1:JSRoswrch:LDA#1:JSRoswrch
 2640JSRprtroff
 2650JMPcomout
 2660.ssf
 2670JSRprtron
 2680JSResc
 2690LDA#1:JSRoswrch:LDA#84:JSRoswrch
 2700JSRprtroff
 2710JMPcomout
 2720.uls
 2730JSRprtron
 2740JSResc
 2750LDA#1:JSRoswrch:LDA#45:JSRoswrch
 2760LDA#1:JSRoswrch:LDA#1:JSRoswrch
 2770JSRprtroff
 2780JMPcomout
 2790.ulf
 2800JSRprtron
 2810JSResc
 2820LDA#1:JSRoswrch:LDA#45:JSRoswrch
 2830LDA#1:JSRoswrch:LDA#0:JSRoswrch
 2840JSRprtroff
 2850JMPcomout
 2860.exp
 2870JSRprtron
 2880JSResc
 2890LDA#1:JSRoswrch:LDA#54:JSRoswrch
 2900JSResc
 2910LDA#1:JSRoswrch:LDA#73:JSRoswrch
 2920LDA#1:JSRoswrch:LDA#0:JSRoswrch
 2930JSResc
 2940LDA#1:JSRoswrch:LDA#116:JSRoswrch
 2950LDA#1:JSRoswrch:LDA#1:JSRoswrch
 2960JSRprtroff
 2970JMPcomout
 2980.lfa
 2990JSRprtron
 3000JSResc
 3010LDA#1:JSRoswrch:LDA#48:JSRoswrch
 3020JSRprtroff
 3030JMPcomout
 3040.lfb
 3050JSRprtron
 3060JSResc
 3070LDA#1:JSRoswrch:LDA#49:JSRoswrch
 3080JSRprtroff
 3090JMPcomout
 3100.lfc
 3110JSRprtron
 3120JSResc
 3130LDA#1:JSRoswrch:LDA#50:JSRoswrch
 3140JSRprtroff
 3150JMPcomout
 3160.cna
 3170JSRprtron
 3180JSResc
 3190LDA#1:JSRoswrch:LDA#108:JSRoswrch
 3200LDA#1:JSRoswrch:LDA#0:JSRoswrch
 3210JSResc
 3220LDA#1:JSRoswrch:LDA#81:JSRoswrch
 3230LDA#1:JSRoswrch:LDA#40:JSRoswrch
 3240JSRprtroff
 3250JMPcomout
 3260.cnb
 3270JSRprtron
 3280JSResc
 3290LDA#1:JSRoswrch:LDA#81:JSRoswrch
 3300LDA#1:JSRoswrch:LDA#85:JSRoswrch
 3310JSResc
 3320LDA#1:JSRoswrch:LDA#108:JSRoswrch
 3330LDA#1:JSRoswrch:LDA#45:JSRoswrch
 3340JSRprtroff
 3350JMPcomout
 3360.cnc
 3370JSRprtron
 3380JSResc
 3390LDA#1:JSRoswrch:LDA#81:JSRoswrch
 3400 LDA#1:JSRoswrch:LDA#130:JSRoswrch
 3410JSResc
 3420LDA#1:JSRoswrch:LDA#108:JSRoswrch
 3430LDA#1:JSRoswrch:LDA#90:JSRoswrch
 3440JSRprtroff
 3450JMPcomout
 3460]
 3470NEXT:ENDPROC


!� ***************************
� Printer Code Setter
� by Richard A. Dimond
(� (c) March 1993
2!� ***************************
<�
F
�assem
P�"Saving..."
Z1�"SAVE PCODES "+�~code%+" "+�~O%+" 8000 8000"
d�
n��assem
x� code% 2000
�mem=&70:tmp=&72:ptr=&F2
�*osasci=&FFE3:oswrch=&FFEE:osnewl=&FFE7
��pass=4�6�2
�P%=&8000:O%=code%
�[OPTpass
�.romstrt
�	EQUB0
�	EQUB0
�	EQUB0
�JMPservice
�EQUB&82
�EQUB(copyr-romstrt)
�	EQUB0
$.title EQUS"Printer Code Setter"
	EQUB0
EQUS"1.00"
"
EQUB&D
,.copyr EQUB0
6$EQUS"(C) 1993 Richard A. Dimond"
@	EQUB0
J.service PHP:PHA
TCMP#4:BEQcommand
^CMP#9:BEQhelp
hPLA:PLP:RTS
r.prt
|STXmem:STYmem+1
�.lp1 LDY#0
�.lp2 LDA(mem),Y
�CMP#&FF:BEQexit
�JSRosasci:INY:BNElp2
�INCmem+1
�
JMPlp1
�
.exit RTS
�	.help
�TXA:PHA:TYA:PHA
�LDA(ptr),Y:CMP#13:BEQnonly
�LDX#&FF:DEY
�
.help1
�INX:INY
LDAhword,X:CMP#13:BEQbhelp
 LDA(ptr),Y:CMP#�".":BEQbhelp
�#&DF:CMPhword,X:BEQhelp1
&.out
0PLA:TAY:PLA:TAX:PLA:PLP:RTS
:.nonly JSRnameonly:JMPout
D.bhelp LDA#14:JSRoswrch
NJSRnameonly
XLDX#hlptxt �256
bLDY#hlptxt �256
l"JSRprt:LDA#15:JSRoswrch:JMPout
v
.command 
� TXA:PHA:TYA:PHA:LDX#0:STYtmp
�+.com1 LDAcoms,X:CMP#&FF:BEQnocom:LDYtmp
�S.com2 LDAcoms,X:BEQgotcom:LDA(ptr),Y:�#&DF:CMPcoms,X:BNEnextone:INY:INX:BNEcom2
�9.nextone INX:LDAcoms,X:BNEnextone:INX:INX:INX:BNEcom1
�>.gotcom INX:LDAcoms,X:STAmem:LDAcoms+1,X:STAmem+1:JMP(mem)
�.nocom JMPout
�-.comout PLA:TAY:PLA:TAX:PLA:LDA#0:PLP:RTS
�
.nameonly
�
JSRosnewl
�LDY#&FF
�
.pname
�%INY:LDAtitle,Y:JSRoswrch:BNEpname
�JSRosnewl:RTS
.hword   EQUS "PCODES"+�13
'.hlptxt  EQUS "  Commands:"+�13+�13
"EQUS"*RES  *DRA  *NLQ"+�13+�13
 $EQUS"*PIC  *ELI  *COS  *COF"+�13
*$EQUS"*DHS  *DHF  *DSS  *DSF"+�13
4$EQUS"*EMS  *EMF  *ENS  *ENF"+�13
>*EQUS"*ITS  *ITF  *SPS  *SBS  *SSF"+�13
HEQUS"*ULS  *ULF"+�13+�13
R*EQUS"*ENG For printing the ` sign"+�13
\8EQUS"*EXP  Expand character set to graphics"+�13+�13
f#EQUS"*LFA  Line feed 1/8"""+�13
p$EQUS"*LFB  Line feed 7/72"""+�13
z'EQUS"*LFC  Line feed 1/6"""+�13+�13
�&EQUS"*CNA  Column 1 at TAB(0)"+�13
�'EQUS"*CNB  Column 2 at TAB(45)"+�13
�'EQUS"*CNC  Column 3 at TAB(90)"+�13
�)EQUS"     All 40 caharcters wide"+�13
�EQUS"NOTE:"+�13+�13
�*EQUS"   For 2 column printing use"+�13
�)EQUS"      ELITE + DOUBLE STRIKE"+�13
�*EQUS"   For 3 column printing use"+�13
�-EQUS"      CONDENSED + DOUBLE STRIKE"+�13
�
EQUB-1
�	.coms
�EQUS"RES":EQUB0:EQUWres
�EQUS"DRA":EQUB0:EQUWdra
EQUS"NLQ":EQUB0:EQUWnlq
EQUS"PIC":EQUB0:EQUWpic
EQUS"ELI":EQUB0:EQUWeli
$EQUS"COS":EQUB0:EQUWcos
.EQUS"COF":EQUB0:EQUWcof
8EQUS"DHS":EQUB0:EQUWdhs
BEQUS"DHF":EQUB0:EQUWdhf
LEQUS"DSS":EQUB0:EQUWdsf
VEQUS"EMS":EQUB0:EQUWems
`EQUS"EMF":EQUB0:EQUWemf
jEQUS"ENG":EQUB0:EQUWeng
tEQUS"ENS":EQUB0:EQUWens
~EQUS"ENF":EQUB0:EQUWenf
�EQUS"ITS":EQUB0:EQUWits
�EQUS"ITF":EQUB0:EQUWitf
�EQUS"SPS":EQUB0:EQUWsps
�EQUS"SBS":EQUB0:EQUWsbs
�EQUS"SSF":EQUB0:EQUWssf
�EQUS"ULS":EQUB0:EQUWuls
�EQUS"ULF":EQUB0:EQUWulf
�EQUS"EXP":EQUB0:EQUWexp
�EQUS"LFA":EQUB0:EQUWlfa
�EQUS"LFB":EQUB0:EQUWlfb
�EQUS"LFC":EQUB0:EQUWlfc
�EQUS"CNA":EQUB0:EQUWcna
EQUS"CNB":EQUB0:EQUWcnb

EQUS"CNC":EQUB0:EQUWcnc

EQUB-1
.prtron
(LDA#2:JMPoswrch
2.prtroff
<LDA#3:JMPoswrch
F.esc
PLDA#1:JSRoswrch
ZLDA#27:JMPoswrch
d.res
n
JSRprtron
x
JSResc
�$LDA#1:JSRoswrch:LDA#64:JSRoswrch
�JSRprtroff
�
JMPcomout
�.dra
�
JSRprtron
�
JSResc
�%LDA#1:JSRoswrch:LDA#120:JSRoswrch
�#LDA#1:JSRoswrch:LDA#0:JSRoswrch
�JSRprtroff
�
JMPcomout
�.nlq
�
JSRprtron
�
JSResc
%LDA#1:JSRoswrch:LDA#120:JSRoswrch
#LDA#1:JSRoswrch:LDA#1:JSRoswrch
JSRprtroff
"
JMPcomout
,.pic
6
JSRprtron
@
JSResc
J$LDA#1:JSRoswrch:LDA#80:JSRoswrch
TJSRprtroff
^
JMPcomout
h.eli
r
JSRprtron
|
JSResc
�$LDA#1:JSRoswrch:LDA#77:JSRoswrch
�JSRprtroff
�
JMPcomout
�.cos
�
JSRprtron
�
JSResc
�$LDA#1:JSRoswrch:LDA#15:JSRoswrch
�JSRprtroff
�
JMPcomout
�.cof
�
JSRprtron
�$LDA#1:JSRoswrch:LDA#18:JSRoswrch
�JSRprtroff

JMPcomout
.dhs

JSRprtron
&
JSResc
0%LDA#1:JSRoswrch:LDA#119:JSRoswrch
:#LDA#1:JSRoswrch:LDA#1:JSRoswrch
DJSRprtroff
N
JMPcomout
X.dhf
b
JSRprtron
l
JSResc
v%LDA#1:JSRoswrch:LDA#119:JSRoswrch
�#LDA#1:JSRoswrch:LDA#0:JSRoswrch
�JSRprtroff
�
JMPcomout
�.dss
�
JSRprtron
�
JSResc
�$LDA#1:JSRoswrch:LDA#71:JSRoswrch
�JSRprtroff
�
JMPcomout
�.dsf
�
JSRprtron
�
JSResc
�$LDA#1:JSRoswrch:LDA#72:JSRoswrch
JSRprtroff

JMPcomout
.ems
 
JSRprtron
*
JSResc
4$LDA#1:JSRoswrch:LDA#69:JSRoswrch
>JSRprtroff
H
JMPcomout
R.emf
\
JSRprtron
f
JSResc
p$LDA#1:JSRoswrch:LDA#70:JSRoswrch
zJSRprtroff
�
JMPcomout
�.eng
�
JSRprtron
�
JSResc
�$LDA#1:JSRoswrch:LDA#82:JSRoswrch
�#LDA#1:JSRoswrch:LDA#3:JSRoswrch
�JSRprtroff
�
JMPcomout
�.ens
�
JSRprtron
�
JSResc
�$LDA#1:JSRoswrch:LDA#87:JSRoswrch
�#LDA#1:JSRoswrch:LDA#1:JSRoswrch
	JSRprtroff
	
JMPcomout
	.enf
	$
JSRprtron
	.
JSResc
	8$LDA#1:JSRoswrch:LDA#87:JSRoswrch
	B#LDA#1:JSRoswrch:LDA#0:JSRoswrch
	LJSRprtroff
	V
JMPcomout
	`.its
	j
JSRprtron
	t
JSResc
	~$LDA#1:JSRoswrch:LDA#52:JSRoswrch
	�JSRprtroff
	�
JMPcomout
	�.itf
	�
JSRprtron
	�
JSResc
	�$LDA#1:JSRoswrch:LDA#53:JSRoswrch
	�JSRprtroff
	�
JMPcomout
	�.sps
	�
JSRprtron
	�
JSResc
	�$LDA#1:JSRoswrch:LDA#83:JSRoswrch
#LDA#1:JSRoswrch:LDA#0:JSRoswrch

JSRprtroff

JMPcomout
.sbs
(
JSRprtron
2
JSResc
<$LDA#1:JSRoswrch:LDA#83:JSRoswrch
F#LDA#1:JSRoswrch:LDA#1:JSRoswrch
PJSRprtroff
Z
JMPcomout
d.ssf
n
JSRprtron
x
JSResc
�$LDA#1:JSRoswrch:LDA#84:JSRoswrch
�JSRprtroff
�
JMPcomout
�.uls
�
JSRprtron
�
JSResc
�$LDA#1:JSRoswrch:LDA#45:JSRoswrch
�#LDA#1:JSRoswrch:LDA#1:JSRoswrch
�JSRprtroff
�
JMPcomout
�.ulf
�
JSRprtron
�
JSResc
$LDA#1:JSRoswrch:LDA#45:JSRoswrch
#LDA#1:JSRoswrch:LDA#0:JSRoswrch
JSRprtroff
"
JMPcomout
,.exp
6
JSRprtron
@
JSResc
J$LDA#1:JSRoswrch:LDA#54:JSRoswrch
T
JSResc
^$LDA#1:JSRoswrch:LDA#73:JSRoswrch
h#LDA#1:JSRoswrch:LDA#0:JSRoswrch
r
JSResc
|%LDA#1:JSRoswrch:LDA#116:JSRoswrch
�#LDA#1:JSRoswrch:LDA#1:JSRoswrch
�JSRprtroff
�
JMPcomout
�.lfa
�
JSRprtron
�
JSResc
�$LDA#1:JSRoswrch:LDA#48:JSRoswrch
�JSRprtroff
�
JMPcomout
�.lfb
�
JSRprtron
�
JSResc
�$LDA#1:JSRoswrch:LDA#49:JSRoswrch
JSRprtroff

JMPcomout
.lfc
&
JSRprtron
0
JSResc
:$LDA#1:JSRoswrch:LDA#50:JSRoswrch
DJSRprtroff
N
JMPcomout
X.cna
b
JSRprtron
l
JSResc
v%LDA#1:JSRoswrch:LDA#108:JSRoswrch
�#LDA#1:JSRoswrch:LDA#0:JSRoswrch
�
JSResc
�$LDA#1:JSRoswrch:LDA#81:JSRoswrch
�$LDA#1:JSRoswrch:LDA#40:JSRoswrch
�JSRprtroff
�
JMPcomout
�.cnb
�
JSRprtron
�
JSResc
�$LDA#1:JSRoswrch:LDA#81:JSRoswrch
�$LDA#1:JSRoswrch:LDA#85:JSRoswrch
�
JSResc
�%LDA#1:JSRoswrch:LDA#108:JSRoswrch

$LDA#1:JSRoswrch:LDA#45:JSRoswrch

JSRprtroff


JMPcomout

 .cnc

*
JSRprtron

4
JSResc

>$LDA#1:JSRoswrch:LDA#81:JSRoswrch

H& LDA#1:JSRoswrch:LDA#130:JSRoswrch

R
JSResc

\%LDA#1:JSRoswrch:LDA#108:JSRoswrch

f$LDA#1:JSRoswrch:LDA#90:JSRoswrch

pJSRprtroff

z
JMPcomout

�]

��:�
�

00000000  0d 00 0a 21 f4 20 2a 2a  2a 2a 2a 2a 2a 2a 2a 2a  |...!. **********|
00000010  2a 2a 2a 2a 2a 2a 2a 2a  2a 2a 2a 2a 2a 2a 2a 2a  |****************|
00000020  2a 0d 00 14 19 f4 20 50  72 69 6e 74 65 72 20 43  |*..... Printer C|
00000030  6f 64 65 20 53 65 74 74  65 72 0d 00 1e 1a f4 20  |ode Setter..... |
00000040  62 79 20 52 69 63 68 61  72 64 20 41 2e 20 44 69  |by Richard A. Di|
00000050  6d 6f 6e 64 0d 00 28 14  f4 20 28 63 29 20 4d 61  |mond..(.. (c) Ma|
00000060  72 63 68 20 31 39 39 33  0d 00 32 21 f4 20 2a 2a  |rch 1993..2!. **|
00000070  2a 2a 2a 2a 2a 2a 2a 2a  2a 2a 2a 2a 2a 2a 2a 2a  |****************|
00000080  2a 2a 2a 2a 2a 2a 2a 2a  2a 0d 00 3c 05 f4 0d 00  |*********..<....|
00000090  46 0a f2 61 73 73 65 6d  0d 00 50 10 f1 22 53 61  |F..assem..P.."Sa|
000000a0  76 69 6e 67 2e 2e 2e 22  0d 00 5a 31 ff 22 53 41  |ving..."..Z1."SA|
000000b0  56 45 20 50 43 4f 44 45  53 20 22 2b c3 7e 63 6f  |VE PCODES "+.~co|
000000c0  64 65 25 2b 22 20 22 2b  c3 7e 4f 25 2b 22 20 38  |de%+" "+.~O%+" 8|
000000d0  30 30 30 20 38 30 30 30  22 0d 00 64 05 e0 0d 00  |000 8000"..d....|
000000e0  6e 0b dd f2 61 73 73 65  6d 0d 00 78 10 de 20 63  |n...assem..x.. c|
000000f0  6f 64 65 25 20 32 30 30  30 0d 00 82 1b 6d 65 6d  |ode% 2000....mem|
00000100  3d 26 37 30 3a 74 6d 70  3d 26 37 32 3a 70 74 72  |=&70:tmp=&72:ptr|
00000110  3d 26 46 32 0d 00 8c 2a  6f 73 61 73 63 69 3d 26  |=&F2...*osasci=&|
00000120  46 46 45 33 3a 6f 73 77  72 63 68 3d 26 46 46 45  |FFE3:oswrch=&FFE|
00000130  45 3a 6f 73 6e 65 77 6c  3d 26 46 46 45 37 0d 00  |E:osnewl=&FFE7..|
00000140  96 0f e3 70 61 73 73 3d  34 b8 36 88 32 0d 00 a0  |...pass=4.6.2...|
00000150  15 50 25 3d 26 38 30 30  30 3a 4f 25 3d 63 6f 64  |.P%=&8000:O%=cod|
00000160  65 25 0d 00 aa 0c 5b 4f  50 54 70 61 73 73 0d 00  |e%....[OPTpass..|
00000170  b4 0c 2e 72 6f 6d 73 74  72 74 0d 00 be 09 45 51  |...romstrt....EQ|
00000180  55 42 30 0d 00 c8 09 45  51 55 42 30 0d 00 d2 09  |UB0....EQUB0....|
00000190  45 51 55 42 30 0d 00 dc  0e 4a 4d 50 73 65 72 76  |EQUB0....JMPserv|
000001a0  69 63 65 0d 00 e6 0b 45  51 55 42 26 38 32 0d 00  |ice....EQUB&82..|
000001b0  f0 17 45 51 55 42 28 63  6f 70 79 72 2d 72 6f 6d  |..EQUB(copyr-rom|
000001c0  73 74 72 74 29 0d 00 fa  09 45 51 55 42 30 0d 01  |strt)....EQUB0..|
000001d0  04 24 2e 74 69 74 6c 65  20 45 51 55 53 22 50 72  |.$.title EQUS"Pr|
000001e0  69 6e 74 65 72 20 43 6f  64 65 20 53 65 74 74 65  |inter Code Sette|
000001f0  72 22 0d 01 0e 09 45 51  55 42 30 0d 01 18 0e 45  |r"....EQUB0....E|
00000200  51 55 53 22 31 2e 30 30  22 0d 01 22 0a 45 51 55  |QUS"1.00"..".EQU|
00000210  42 26 44 0d 01 2c 10 2e  63 6f 70 79 72 20 45 51  |B&D..,..copyr EQ|
00000220  55 42 30 0d 01 36 24 45  51 55 53 22 28 43 29 20  |UB0..6$EQUS"(C) |
00000230  31 39 39 33 20 52 69 63  68 61 72 64 20 41 2e 20  |1993 Richard A. |
00000240  44 69 6d 6f 6e 64 22 0d  01 40 09 45 51 55 42 30  |Dimond"..@.EQUB0|
00000250  0d 01 4a 14 2e 73 65 72  76 69 63 65 20 50 48 50  |..J..service PHP|
00000260  3a 50 48 41 0d 01 54 14  43 4d 50 23 34 3a 42 45  |:PHA..T.CMP#4:BE|
00000270  51 63 6f 6d 6d 61 6e 64  0d 01 5e 11 43 4d 50 23  |Qcommand..^.CMP#|
00000280  39 3a 42 45 51 68 65 6c  70 0d 01 68 0f 50 4c 41  |9:BEQhelp..h.PLA|
00000290  3a 50 4c 50 3a 52 54 53  0d 01 72 08 2e 70 72 74  |:PLP:RTS..r..prt|
000002a0  0d 01 7c 13 53 54 58 6d  65 6d 3a 53 54 59 6d 65  |..|.STXmem:STYme|
000002b0  6d 2b 31 0d 01 86 0e 2e  6c 70 31 20 4c 44 59 23  |m+1.....lp1 LDY#|
000002c0  30 0d 01 90 13 2e 6c 70  32 20 4c 44 41 28 6d 65  |0.....lp2 LDA(me|
000002d0  6d 29 2c 59 0d 01 9a 13  43 4d 50 23 26 46 46 3a  |m),Y....CMP#&FF:|
000002e0  42 45 51 65 78 69 74 0d  01 a4 18 4a 53 52 6f 73  |BEQexit....JSRos|
000002f0  61 73 63 69 3a 49 4e 59  3a 42 4e 45 6c 70 32 0d  |asci:INY:BNElp2.|
00000300  01 ae 0c 49 4e 43 6d 65  6d 2b 31 0d 01 b8 0a 4a  |...INCmem+1....J|
00000310  4d 50 6c 70 31 0d 01 c2  0d 2e 65 78 69 74 20 52  |MPlp1.....exit R|
00000320  54 53 0d 01 cc 09 2e 68  65 6c 70 0d 01 d6 13 54  |TS.....help....T|
00000330  58 41 3a 50 48 41 3a 54  59 41 3a 50 48 41 0d 01  |XA:PHA:TYA:PHA..|
00000340  e0 1e 4c 44 41 28 70 74  72 29 2c 59 3a 43 4d 50  |..LDA(ptr),Y:CMP|
00000350  23 31 33 3a 42 45 51 6e  6f 6e 6c 79 0d 01 ea 0f  |#13:BEQnonly....|
00000360  4c 44 58 23 26 46 46 3a  44 45 59 0d 01 f4 0a 2e  |LDX#&FF:DEY.....|
00000370  68 65 6c 70 31 0d 01 fe  0b 49 4e 58 3a 49 4e 59  |help1....INX:INY|
00000380  0d 02 08 1e 4c 44 41 68  77 6f 72 64 2c 58 3a 43  |....LDAhword,X:C|
00000390  4d 50 23 31 33 3a 42 45  51 62 68 65 6c 70 0d 02  |MP#13:BEQbhelp..|
000003a0  12 20 4c 44 41 28 70 74  72 29 2c 59 3a 43 4d 50  |. LDA(ptr),Y:CMP|
000003b0  23 97 22 2e 22 3a 42 45  51 62 68 65 6c 70 0d 02  |#.".":BEQbhelp..|
000003c0  1c 1d 80 23 26 44 46 3a  43 4d 50 68 77 6f 72 64  |...#&DF:CMPhword|
000003d0  2c 58 3a 42 45 51 68 65  6c 70 31 0d 02 26 08 2e  |,X:BEQhelp1..&..|
000003e0  6f 75 74 0d 02 30 1f 50  4c 41 3a 54 41 59 3a 50  |out..0.PLA:TAY:P|
000003f0  4c 41 3a 54 41 58 3a 50  4c 41 3a 50 4c 50 3a 52  |LA:TAX:PLA:PLP:R|
00000400  54 53 0d 02 3a 1d 2e 6e  6f 6e 6c 79 20 4a 53 52  |TS..:..nonly JSR|
00000410  6e 61 6d 65 6f 6e 6c 79  3a 4a 4d 50 6f 75 74 0d  |nameonly:JMPout.|
00000420  02 44 1b 2e 62 68 65 6c  70 20 4c 44 41 23 31 34  |.D..bhelp LDA#14|
00000430  3a 4a 53 52 6f 73 77 72  63 68 0d 02 4e 0f 4a 53  |:JSRoswrch..N.JS|
00000440  52 6e 61 6d 65 6f 6e 6c  79 0d 02 58 13 4c 44 58  |Rnameonly..X.LDX|
00000450  23 68 6c 70 74 78 74 20  83 32 35 36 0d 02 62 13  |#hlptxt .256..b.|
00000460  4c 44 59 23 68 6c 70 74  78 74 20 81 32 35 36 0d  |LDY#hlptxt .256.|
00000470  02 6c 22 4a 53 52 70 72  74 3a 4c 44 41 23 31 35  |.l"JSRprt:LDA#15|
00000480  3a 4a 53 52 6f 73 77 72  63 68 3a 4a 4d 50 6f 75  |:JSRoswrch:JMPou|
00000490  74 0d 02 76 0d 2e 63 6f  6d 6d 61 6e 64 20 0d 02  |t..v..command ..|
000004a0  80 20 54 58 41 3a 50 48  41 3a 54 59 41 3a 50 48  |. TXA:PHA:TYA:PH|
000004b0  41 3a 4c 44 58 23 30 3a  53 54 59 74 6d 70 0d 02  |A:LDX#0:STYtmp..|
000004c0  8a 2b 2e 63 6f 6d 31 20  4c 44 41 63 6f 6d 73 2c  |.+.com1 LDAcoms,|
000004d0  58 3a 43 4d 50 23 26 46  46 3a 42 45 51 6e 6f 63  |X:CMP#&FF:BEQnoc|
000004e0  6f 6d 3a 4c 44 59 74 6d  70 0d 02 94 53 2e 63 6f  |om:LDYtmp...S.co|
000004f0  6d 32 20 4c 44 41 63 6f  6d 73 2c 58 3a 42 45 51  |m2 LDAcoms,X:BEQ|
00000500  67 6f 74 63 6f 6d 3a 4c  44 41 28 70 74 72 29 2c  |gotcom:LDA(ptr),|
00000510  59 3a 80 23 26 44 46 3a  43 4d 50 63 6f 6d 73 2c  |Y:.#&DF:CMPcoms,|
00000520  58 3a 42 4e 45 6e 65 78  74 6f 6e 65 3a 49 4e 59  |X:BNEnextone:INY|
00000530  3a 49 4e 58 3a 42 4e 45  63 6f 6d 32 0d 02 9e 39  |:INX:BNEcom2...9|
00000540  2e 6e 65 78 74 6f 6e 65  20 49 4e 58 3a 4c 44 41  |.nextone INX:LDA|
00000550  63 6f 6d 73 2c 58 3a 42  4e 45 6e 65 78 74 6f 6e  |coms,X:BNEnexton|
00000560  65 3a 49 4e 58 3a 49 4e  58 3a 49 4e 58 3a 42 4e  |e:INX:INX:INX:BN|
00000570  45 63 6f 6d 31 0d 02 a8  3e 2e 67 6f 74 63 6f 6d  |Ecom1...>.gotcom|
00000580  20 49 4e 58 3a 4c 44 41  63 6f 6d 73 2c 58 3a 53  | INX:LDAcoms,X:S|
00000590  54 41 6d 65 6d 3a 4c 44  41 63 6f 6d 73 2b 31 2c  |TAmem:LDAcoms+1,|
000005a0  58 3a 53 54 41 6d 65 6d  2b 31 3a 4a 4d 50 28 6d  |X:STAmem+1:JMP(m|
000005b0  65 6d 29 0d 02 b2 11 2e  6e 6f 63 6f 6d 20 4a 4d  |em).....nocom JM|
000005c0  50 6f 75 74 0d 02 bc 2d  2e 63 6f 6d 6f 75 74 20  |Pout...-.comout |
000005d0  50 4c 41 3a 54 41 59 3a  50 4c 41 3a 54 41 58 3a  |PLA:TAY:PLA:TAX:|
000005e0  50 4c 41 3a 4c 44 41 23  30 3a 50 4c 50 3a 52 54  |PLA:LDA#0:PLP:RT|
000005f0  53 0d 02 c6 0d 2e 6e 61  6d 65 6f 6e 6c 79 0d 02  |S.....nameonly..|
00000600  d0 0d 4a 53 52 6f 73 6e  65 77 6c 0d 02 da 0b 4c  |..JSRosnewl....L|
00000610  44 59 23 26 46 46 0d 02  e4 0a 2e 70 6e 61 6d 65  |DY#&FF.....pname|
00000620  0d 02 ee 25 49 4e 59 3a  4c 44 41 74 69 74 6c 65  |...%INY:LDAtitle|
00000630  2c 59 3a 4a 53 52 6f 73  77 72 63 68 3a 42 4e 45  |,Y:JSRoswrch:BNE|
00000640  70 6e 61 6d 65 0d 02 f8  11 4a 53 52 6f 73 6e 65  |pname....JSRosne|
00000650  77 6c 3a 52 54 53 0d 03  02 1e 2e 68 77 6f 72 64  |wl:RTS.....hword|
00000660  20 20 20 45 51 55 53 20  22 50 43 4f 44 45 53 22  |   EQUS "PCODES"|
00000670  2b bd 31 33 0d 03 0c 27  2e 68 6c 70 74 78 74 20  |+.13...'.hlptxt |
00000680  20 45 51 55 53 20 22 20  20 43 6f 6d 6d 61 6e 64  | EQUS "  Command|
00000690  73 3a 22 2b bd 31 33 2b  bd 31 33 0d 03 16 22 45  |s:"+.13+.13..."E|
000006a0  51 55 53 22 2a 52 45 53  20 20 2a 44 52 41 20 20  |QUS"*RES  *DRA  |
000006b0  2a 4e 4c 51 22 2b bd 31  33 2b bd 31 33 0d 03 20  |*NLQ"+.13+.13.. |
000006c0  24 45 51 55 53 22 2a 50  49 43 20 20 2a 45 4c 49  |$EQUS"*PIC  *ELI|
000006d0  20 20 2a 43 4f 53 20 20  2a 43 4f 46 22 2b bd 31  |  *COS  *COF"+.1|
000006e0  33 0d 03 2a 24 45 51 55  53 22 2a 44 48 53 20 20  |3..*$EQUS"*DHS  |
000006f0  2a 44 48 46 20 20 2a 44  53 53 20 20 2a 44 53 46  |*DHF  *DSS  *DSF|
00000700  22 2b bd 31 33 0d 03 34  24 45 51 55 53 22 2a 45  |"+.13..4$EQUS"*E|
00000710  4d 53 20 20 2a 45 4d 46  20 20 2a 45 4e 53 20 20  |MS  *EMF  *ENS  |
00000720  2a 45 4e 46 22 2b bd 31  33 0d 03 3e 2a 45 51 55  |*ENF"+.13..>*EQU|
00000730  53 22 2a 49 54 53 20 20  2a 49 54 46 20 20 2a 53  |S"*ITS  *ITF  *S|
00000740  50 53 20 20 2a 53 42 53  20 20 2a 53 53 46 22 2b  |PS  *SBS  *SSF"+|
00000750  bd 31 33 0d 03 48 1c 45  51 55 53 22 2a 55 4c 53  |.13..H.EQUS"*ULS|
00000760  20 20 2a 55 4c 46 22 2b  bd 31 33 2b bd 31 33 0d  |  *ULF"+.13+.13.|
00000770  03 52 2a 45 51 55 53 22  2a 45 4e 47 20 46 6f 72  |.R*EQUS"*ENG For|
00000780  20 70 72 69 6e 74 69 6e  67 20 74 68 65 20 60 20  | printing the ` |
00000790  73 69 67 6e 22 2b bd 31  33 0d 03 5c 38 45 51 55  |sign"+.13..\8EQU|
000007a0  53 22 2a 45 58 50 20 20  45 78 70 61 6e 64 20 63  |S"*EXP  Expand c|
000007b0  68 61 72 61 63 74 65 72  20 73 65 74 20 74 6f 20  |haracter set to |
000007c0  67 72 61 70 68 69 63 73  22 2b bd 31 33 2b bd 31  |graphics"+.13+.1|
000007d0  33 0d 03 66 23 45 51 55  53 22 2a 4c 46 41 20 20  |3..f#EQUS"*LFA  |
000007e0  4c 69 6e 65 20 66 65 65  64 20 31 2f 38 22 22 22  |Line feed 1/8"""|
000007f0  2b bd 31 33 0d 03 70 24  45 51 55 53 22 2a 4c 46  |+.13..p$EQUS"*LF|
00000800  42 20 20 4c 69 6e 65 20  66 65 65 64 20 37 2f 37  |B  Line feed 7/7|
00000810  32 22 22 22 2b bd 31 33  0d 03 7a 27 45 51 55 53  |2"""+.13..z'EQUS|
00000820  22 2a 4c 46 43 20 20 4c  69 6e 65 20 66 65 65 64  |"*LFC  Line feed|
00000830  20 31 2f 36 22 22 22 2b  bd 31 33 2b bd 31 33 0d  | 1/6"""+.13+.13.|
00000840  03 84 26 45 51 55 53 22  2a 43 4e 41 20 20 43 6f  |..&EQUS"*CNA  Co|
00000850  6c 75 6d 6e 20 31 20 61  74 20 54 41 42 28 30 29  |lumn 1 at TAB(0)|
00000860  22 2b bd 31 33 0d 03 8e  27 45 51 55 53 22 2a 43  |"+.13...'EQUS"*C|
00000870  4e 42 20 20 43 6f 6c 75  6d 6e 20 32 20 61 74 20  |NB  Column 2 at |
00000880  54 41 42 28 34 35 29 22  2b bd 31 33 0d 03 98 27  |TAB(45)"+.13...'|
00000890  45 51 55 53 22 2a 43 4e  43 20 20 43 6f 6c 75 6d  |EQUS"*CNC  Colum|
000008a0  6e 20 33 20 61 74 20 54  41 42 28 39 30 29 22 2b  |n 3 at TAB(90)"+|
000008b0  bd 31 33 0d 03 a2 29 45  51 55 53 22 20 20 20 20  |.13...)EQUS"    |
000008c0  20 41 6c 6c 20 34 30 20  63 61 68 61 72 63 74 65  | All 40 caharcte|
000008d0  72 73 20 77 69 64 65 22  2b bd 31 33 0d 03 ac 17  |rs wide"+.13....|
000008e0  45 51 55 53 22 4e 4f 54  45 3a 22 2b bd 31 33 2b  |EQUS"NOTE:"+.13+|
000008f0  bd 31 33 0d 03 b6 2a 45  51 55 53 22 20 20 20 46  |.13...*EQUS"   F|
00000900  6f 72 20 32 20 63 6f 6c  75 6d 6e 20 70 72 69 6e  |or 2 column prin|
00000910  74 69 6e 67 20 75 73 65  22 2b bd 31 33 0d 03 c0  |ting use"+.13...|
00000920  29 45 51 55 53 22 20 20  20 20 20 20 45 4c 49 54  |)EQUS"      ELIT|
00000930  45 20 2b 20 44 4f 55 42  4c 45 20 53 54 52 49 4b  |E + DOUBLE STRIK|
00000940  45 22 2b bd 31 33 0d 03  ca 2a 45 51 55 53 22 20  |E"+.13...*EQUS" |
00000950  20 20 46 6f 72 20 33 20  63 6f 6c 75 6d 6e 20 70  |  For 3 column p|
00000960  72 69 6e 74 69 6e 67 20  75 73 65 22 2b bd 31 33  |rinting use"+.13|
00000970  0d 03 d4 2d 45 51 55 53  22 20 20 20 20 20 20 43  |...-EQUS"      C|
00000980  4f 4e 44 45 4e 53 45 44  20 2b 20 44 4f 55 42 4c  |ONDENSED + DOUBL|
00000990  45 20 53 54 52 49 4b 45  22 2b bd 31 33 0d 03 de  |E STRIKE"+.13...|
000009a0  0a 45 51 55 42 2d 31 0d  03 e8 09 2e 63 6f 6d 73  |.EQUB-1.....coms|
000009b0  0d 03 f2 1b 45 51 55 53  22 52 45 53 22 3a 45 51  |....EQUS"RES":EQ|
000009c0  55 42 30 3a 45 51 55 57  72 65 73 0d 03 fc 1b 45  |UB0:EQUWres....E|
000009d0  51 55 53 22 44 52 41 22  3a 45 51 55 42 30 3a 45  |QUS"DRA":EQUB0:E|
000009e0  51 55 57 64 72 61 0d 04  06 1b 45 51 55 53 22 4e  |QUWdra....EQUS"N|
000009f0  4c 51 22 3a 45 51 55 42  30 3a 45 51 55 57 6e 6c  |LQ":EQUB0:EQUWnl|
00000a00  71 0d 04 10 1b 45 51 55  53 22 50 49 43 22 3a 45  |q....EQUS"PIC":E|
00000a10  51 55 42 30 3a 45 51 55  57 70 69 63 0d 04 1a 1b  |QUB0:EQUWpic....|
00000a20  45 51 55 53 22 45 4c 49  22 3a 45 51 55 42 30 3a  |EQUS"ELI":EQUB0:|
00000a30  45 51 55 57 65 6c 69 0d  04 24 1b 45 51 55 53 22  |EQUWeli..$.EQUS"|
00000a40  43 4f 53 22 3a 45 51 55  42 30 3a 45 51 55 57 63  |COS":EQUB0:EQUWc|
00000a50  6f 73 0d 04 2e 1b 45 51  55 53 22 43 4f 46 22 3a  |os....EQUS"COF":|
00000a60  45 51 55 42 30 3a 45 51  55 57 63 6f 66 0d 04 38  |EQUB0:EQUWcof..8|
00000a70  1b 45 51 55 53 22 44 48  53 22 3a 45 51 55 42 30  |.EQUS"DHS":EQUB0|
00000a80  3a 45 51 55 57 64 68 73  0d 04 42 1b 45 51 55 53  |:EQUWdhs..B.EQUS|
00000a90  22 44 48 46 22 3a 45 51  55 42 30 3a 45 51 55 57  |"DHF":EQUB0:EQUW|
00000aa0  64 68 66 0d 04 4c 1b 45  51 55 53 22 44 53 53 22  |dhf..L.EQUS"DSS"|
00000ab0  3a 45 51 55 42 30 3a 45  51 55 57 64 73 66 0d 04  |:EQUB0:EQUWdsf..|
00000ac0  56 1b 45 51 55 53 22 45  4d 53 22 3a 45 51 55 42  |V.EQUS"EMS":EQUB|
00000ad0  30 3a 45 51 55 57 65 6d  73 0d 04 60 1b 45 51 55  |0:EQUWems..`.EQU|
00000ae0  53 22 45 4d 46 22 3a 45  51 55 42 30 3a 45 51 55  |S"EMF":EQUB0:EQU|
00000af0  57 65 6d 66 0d 04 6a 1b  45 51 55 53 22 45 4e 47  |Wemf..j.EQUS"ENG|
00000b00  22 3a 45 51 55 42 30 3a  45 51 55 57 65 6e 67 0d  |":EQUB0:EQUWeng.|
00000b10  04 74 1b 45 51 55 53 22  45 4e 53 22 3a 45 51 55  |.t.EQUS"ENS":EQU|
00000b20  42 30 3a 45 51 55 57 65  6e 73 0d 04 7e 1b 45 51  |B0:EQUWens..~.EQ|
00000b30  55 53 22 45 4e 46 22 3a  45 51 55 42 30 3a 45 51  |US"ENF":EQUB0:EQ|
00000b40  55 57 65 6e 66 0d 04 88  1b 45 51 55 53 22 49 54  |UWenf....EQUS"IT|
00000b50  53 22 3a 45 51 55 42 30  3a 45 51 55 57 69 74 73  |S":EQUB0:EQUWits|
00000b60  0d 04 92 1b 45 51 55 53  22 49 54 46 22 3a 45 51  |....EQUS"ITF":EQ|
00000b70  55 42 30 3a 45 51 55 57  69 74 66 0d 04 9c 1b 45  |UB0:EQUWitf....E|
00000b80  51 55 53 22 53 50 53 22  3a 45 51 55 42 30 3a 45  |QUS"SPS":EQUB0:E|
00000b90  51 55 57 73 70 73 0d 04  a6 1b 45 51 55 53 22 53  |QUWsps....EQUS"S|
00000ba0  42 53 22 3a 45 51 55 42  30 3a 45 51 55 57 73 62  |BS":EQUB0:EQUWsb|
00000bb0  73 0d 04 b0 1b 45 51 55  53 22 53 53 46 22 3a 45  |s....EQUS"SSF":E|
00000bc0  51 55 42 30 3a 45 51 55  57 73 73 66 0d 04 ba 1b  |QUB0:EQUWssf....|
00000bd0  45 51 55 53 22 55 4c 53  22 3a 45 51 55 42 30 3a  |EQUS"ULS":EQUB0:|
00000be0  45 51 55 57 75 6c 73 0d  04 c4 1b 45 51 55 53 22  |EQUWuls....EQUS"|
00000bf0  55 4c 46 22 3a 45 51 55  42 30 3a 45 51 55 57 75  |ULF":EQUB0:EQUWu|
00000c00  6c 66 0d 04 ce 1b 45 51  55 53 22 45 58 50 22 3a  |lf....EQUS"EXP":|
00000c10  45 51 55 42 30 3a 45 51  55 57 65 78 70 0d 04 d8  |EQUB0:EQUWexp...|
00000c20  1b 45 51 55 53 22 4c 46  41 22 3a 45 51 55 42 30  |.EQUS"LFA":EQUB0|
00000c30  3a 45 51 55 57 6c 66 61  0d 04 e2 1b 45 51 55 53  |:EQUWlfa....EQUS|
00000c40  22 4c 46 42 22 3a 45 51  55 42 30 3a 45 51 55 57  |"LFB":EQUB0:EQUW|
00000c50  6c 66 62 0d 04 ec 1b 45  51 55 53 22 4c 46 43 22  |lfb....EQUS"LFC"|
00000c60  3a 45 51 55 42 30 3a 45  51 55 57 6c 66 63 0d 04  |:EQUB0:EQUWlfc..|
00000c70  f6 1b 45 51 55 53 22 43  4e 41 22 3a 45 51 55 42  |..EQUS"CNA":EQUB|
00000c80  30 3a 45 51 55 57 63 6e  61 0d 05 00 1b 45 51 55  |0:EQUWcna....EQU|
00000c90  53 22 43 4e 42 22 3a 45  51 55 42 30 3a 45 51 55  |S"CNB":EQUB0:EQU|
00000ca0  57 63 6e 62 0d 05 0a 1b  45 51 55 53 22 43 4e 43  |Wcnb....EQUS"CNC|
00000cb0  22 3a 45 51 55 42 30 3a  45 51 55 57 63 6e 63 0d  |":EQUB0:EQUWcnc.|
00000cc0  05 14 0a 45 51 55 42 2d  31 0d 05 1e 0b 2e 70 72  |...EQUB-1.....pr|
00000cd0  74 72 6f 6e 0d 05 28 13  4c 44 41 23 32 3a 4a 4d  |tron..(.LDA#2:JM|
00000ce0  50 6f 73 77 72 63 68 0d  05 32 0c 2e 70 72 74 72  |Poswrch..2..prtr|
00000cf0  6f 66 66 0d 05 3c 13 4c  44 41 23 33 3a 4a 4d 50  |off..<.LDA#3:JMP|
00000d00  6f 73 77 72 63 68 0d 05  46 08 2e 65 73 63 0d 05  |oswrch..F..esc..|
00000d10  50 13 4c 44 41 23 31 3a  4a 53 52 6f 73 77 72 63  |P.LDA#1:JSRoswrc|
00000d20  68 0d 05 5a 14 4c 44 41  23 32 37 3a 4a 4d 50 6f  |h..Z.LDA#27:JMPo|
00000d30  73 77 72 63 68 0d 05 64  08 2e 72 65 73 0d 05 6e  |swrch..d..res..n|
00000d40  0d 4a 53 52 70 72 74 72  6f 6e 0d 05 78 0a 4a 53  |.JSRprtron..x.JS|
00000d50  52 65 73 63 0d 05 82 24  4c 44 41 23 31 3a 4a 53  |Resc...$LDA#1:JS|
00000d60  52 6f 73 77 72 63 68 3a  4c 44 41 23 36 34 3a 4a  |Roswrch:LDA#64:J|
00000d70  53 52 6f 73 77 72 63 68  0d 05 8c 0e 4a 53 52 70  |SRoswrch....JSRp|
00000d80  72 74 72 6f 66 66 0d 05  96 0d 4a 4d 50 63 6f 6d  |rtroff....JMPcom|
00000d90  6f 75 74 0d 05 a0 08 2e  64 72 61 0d 05 aa 0d 4a  |out.....dra....J|
00000da0  53 52 70 72 74 72 6f 6e  0d 05 b4 0a 4a 53 52 65  |SRprtron....JSRe|
00000db0  73 63 0d 05 be 25 4c 44  41 23 31 3a 4a 53 52 6f  |sc...%LDA#1:JSRo|
00000dc0  73 77 72 63 68 3a 4c 44  41 23 31 32 30 3a 4a 53  |swrch:LDA#120:JS|
00000dd0  52 6f 73 77 72 63 68 0d  05 c8 23 4c 44 41 23 31  |Roswrch...#LDA#1|
00000de0  3a 4a 53 52 6f 73 77 72  63 68 3a 4c 44 41 23 30  |:JSRoswrch:LDA#0|
00000df0  3a 4a 53 52 6f 73 77 72  63 68 0d 05 d2 0e 4a 53  |:JSRoswrch....JS|
00000e00  52 70 72 74 72 6f 66 66  0d 05 dc 0d 4a 4d 50 63  |Rprtroff....JMPc|
00000e10  6f 6d 6f 75 74 0d 05 e6  08 2e 6e 6c 71 0d 05 f0  |omout.....nlq...|
00000e20  0d 4a 53 52 70 72 74 72  6f 6e 0d 05 fa 0a 4a 53  |.JSRprtron....JS|
00000e30  52 65 73 63 0d 06 04 25  4c 44 41 23 31 3a 4a 53  |Resc...%LDA#1:JS|
00000e40  52 6f 73 77 72 63 68 3a  4c 44 41 23 31 32 30 3a  |Roswrch:LDA#120:|
00000e50  4a 53 52 6f 73 77 72 63  68 0d 06 0e 23 4c 44 41  |JSRoswrch...#LDA|
00000e60  23 31 3a 4a 53 52 6f 73  77 72 63 68 3a 4c 44 41  |#1:JSRoswrch:LDA|
00000e70  23 31 3a 4a 53 52 6f 73  77 72 63 68 0d 06 18 0e  |#1:JSRoswrch....|
00000e80  4a 53 52 70 72 74 72 6f  66 66 0d 06 22 0d 4a 4d  |JSRprtroff..".JM|
00000e90  50 63 6f 6d 6f 75 74 0d  06 2c 08 2e 70 69 63 0d  |Pcomout..,..pic.|
00000ea0  06 36 0d 4a 53 52 70 72  74 72 6f 6e 0d 06 40 0a  |.6.JSRprtron..@.|
00000eb0  4a 53 52 65 73 63 0d 06  4a 24 4c 44 41 23 31 3a  |JSResc..J$LDA#1:|
00000ec0  4a 53 52 6f 73 77 72 63  68 3a 4c 44 41 23 38 30  |JSRoswrch:LDA#80|
00000ed0  3a 4a 53 52 6f 73 77 72  63 68 0d 06 54 0e 4a 53  |:JSRoswrch..T.JS|
00000ee0  52 70 72 74 72 6f 66 66  0d 06 5e 0d 4a 4d 50 63  |Rprtroff..^.JMPc|
00000ef0  6f 6d 6f 75 74 0d 06 68  08 2e 65 6c 69 0d 06 72  |omout..h..eli..r|
00000f00  0d 4a 53 52 70 72 74 72  6f 6e 0d 06 7c 0a 4a 53  |.JSRprtron..|.JS|
00000f10  52 65 73 63 0d 06 86 24  4c 44 41 23 31 3a 4a 53  |Resc...$LDA#1:JS|
00000f20  52 6f 73 77 72 63 68 3a  4c 44 41 23 37 37 3a 4a  |Roswrch:LDA#77:J|
00000f30  53 52 6f 73 77 72 63 68  0d 06 90 0e 4a 53 52 70  |SRoswrch....JSRp|
00000f40  72 74 72 6f 66 66 0d 06  9a 0d 4a 4d 50 63 6f 6d  |rtroff....JMPcom|
00000f50  6f 75 74 0d 06 a4 08 2e  63 6f 73 0d 06 ae 0d 4a  |out.....cos....J|
00000f60  53 52 70 72 74 72 6f 6e  0d 06 b8 0a 4a 53 52 65  |SRprtron....JSRe|
00000f70  73 63 0d 06 c2 24 4c 44  41 23 31 3a 4a 53 52 6f  |sc...$LDA#1:JSRo|
00000f80  73 77 72 63 68 3a 4c 44  41 23 31 35 3a 4a 53 52  |swrch:LDA#15:JSR|
00000f90  6f 73 77 72 63 68 0d 06  cc 0e 4a 53 52 70 72 74  |oswrch....JSRprt|
00000fa0  72 6f 66 66 0d 06 d6 0d  4a 4d 50 63 6f 6d 6f 75  |roff....JMPcomou|
00000fb0  74 0d 06 e0 08 2e 63 6f  66 0d 06 ea 0d 4a 53 52  |t.....cof....JSR|
00000fc0  70 72 74 72 6f 6e 0d 06  f4 24 4c 44 41 23 31 3a  |prtron...$LDA#1:|
00000fd0  4a 53 52 6f 73 77 72 63  68 3a 4c 44 41 23 31 38  |JSRoswrch:LDA#18|
00000fe0  3a 4a 53 52 6f 73 77 72  63 68 0d 06 fe 0e 4a 53  |:JSRoswrch....JS|
00000ff0  52 70 72 74 72 6f 66 66  0d 07 08 0d 4a 4d 50 63  |Rprtroff....JMPc|
00001000  6f 6d 6f 75 74 0d 07 12  08 2e 64 68 73 0d 07 1c  |omout.....dhs...|
00001010  0d 4a 53 52 70 72 74 72  6f 6e 0d 07 26 0a 4a 53  |.JSRprtron..&.JS|
00001020  52 65 73 63 0d 07 30 25  4c 44 41 23 31 3a 4a 53  |Resc..0%LDA#1:JS|
00001030  52 6f 73 77 72 63 68 3a  4c 44 41 23 31 31 39 3a  |Roswrch:LDA#119:|
00001040  4a 53 52 6f 73 77 72 63  68 0d 07 3a 23 4c 44 41  |JSRoswrch..:#LDA|
00001050  23 31 3a 4a 53 52 6f 73  77 72 63 68 3a 4c 44 41  |#1:JSRoswrch:LDA|
00001060  23 31 3a 4a 53 52 6f 73  77 72 63 68 0d 07 44 0e  |#1:JSRoswrch..D.|
00001070  4a 53 52 70 72 74 72 6f  66 66 0d 07 4e 0d 4a 4d  |JSRprtroff..N.JM|
00001080  50 63 6f 6d 6f 75 74 0d  07 58 08 2e 64 68 66 0d  |Pcomout..X..dhf.|
00001090  07 62 0d 4a 53 52 70 72  74 72 6f 6e 0d 07 6c 0a  |.b.JSRprtron..l.|
000010a0  4a 53 52 65 73 63 0d 07  76 25 4c 44 41 23 31 3a  |JSResc..v%LDA#1:|
000010b0  4a 53 52 6f 73 77 72 63  68 3a 4c 44 41 23 31 31  |JSRoswrch:LDA#11|
000010c0  39 3a 4a 53 52 6f 73 77  72 63 68 0d 07 80 23 4c  |9:JSRoswrch...#L|
000010d0  44 41 23 31 3a 4a 53 52  6f 73 77 72 63 68 3a 4c  |DA#1:JSRoswrch:L|
000010e0  44 41 23 30 3a 4a 53 52  6f 73 77 72 63 68 0d 07  |DA#0:JSRoswrch..|
000010f0  8a 0e 4a 53 52 70 72 74  72 6f 66 66 0d 07 94 0d  |..JSRprtroff....|
00001100  4a 4d 50 63 6f 6d 6f 75  74 0d 07 9e 08 2e 64 73  |JMPcomout.....ds|
00001110  73 0d 07 a8 0d 4a 53 52  70 72 74 72 6f 6e 0d 07  |s....JSRprtron..|
00001120  b2 0a 4a 53 52 65 73 63  0d 07 bc 24 4c 44 41 23  |..JSResc...$LDA#|
00001130  31 3a 4a 53 52 6f 73 77  72 63 68 3a 4c 44 41 23  |1:JSRoswrch:LDA#|
00001140  37 31 3a 4a 53 52 6f 73  77 72 63 68 0d 07 c6 0e  |71:JSRoswrch....|
00001150  4a 53 52 70 72 74 72 6f  66 66 0d 07 d0 0d 4a 4d  |JSRprtroff....JM|
00001160  50 63 6f 6d 6f 75 74 0d  07 da 08 2e 64 73 66 0d  |Pcomout.....dsf.|
00001170  07 e4 0d 4a 53 52 70 72  74 72 6f 6e 0d 07 ee 0a  |...JSRprtron....|
00001180  4a 53 52 65 73 63 0d 07  f8 24 4c 44 41 23 31 3a  |JSResc...$LDA#1:|
00001190  4a 53 52 6f 73 77 72 63  68 3a 4c 44 41 23 37 32  |JSRoswrch:LDA#72|
000011a0  3a 4a 53 52 6f 73 77 72  63 68 0d 08 02 0e 4a 53  |:JSRoswrch....JS|
000011b0  52 70 72 74 72 6f 66 66  0d 08 0c 0d 4a 4d 50 63  |Rprtroff....JMPc|
000011c0  6f 6d 6f 75 74 0d 08 16  08 2e 65 6d 73 0d 08 20  |omout.....ems.. |
000011d0  0d 4a 53 52 70 72 74 72  6f 6e 0d 08 2a 0a 4a 53  |.JSRprtron..*.JS|
000011e0  52 65 73 63 0d 08 34 24  4c 44 41 23 31 3a 4a 53  |Resc..4$LDA#1:JS|
000011f0  52 6f 73 77 72 63 68 3a  4c 44 41 23 36 39 3a 4a  |Roswrch:LDA#69:J|
00001200  53 52 6f 73 77 72 63 68  0d 08 3e 0e 4a 53 52 70  |SRoswrch..>.JSRp|
00001210  72 74 72 6f 66 66 0d 08  48 0d 4a 4d 50 63 6f 6d  |rtroff..H.JMPcom|
00001220  6f 75 74 0d 08 52 08 2e  65 6d 66 0d 08 5c 0d 4a  |out..R..emf..\.J|
00001230  53 52 70 72 74 72 6f 6e  0d 08 66 0a 4a 53 52 65  |SRprtron..f.JSRe|
00001240  73 63 0d 08 70 24 4c 44  41 23 31 3a 4a 53 52 6f  |sc..p$LDA#1:JSRo|
00001250  73 77 72 63 68 3a 4c 44  41 23 37 30 3a 4a 53 52  |swrch:LDA#70:JSR|
00001260  6f 73 77 72 63 68 0d 08  7a 0e 4a 53 52 70 72 74  |oswrch..z.JSRprt|
00001270  72 6f 66 66 0d 08 84 0d  4a 4d 50 63 6f 6d 6f 75  |roff....JMPcomou|
00001280  74 0d 08 8e 08 2e 65 6e  67 0d 08 98 0d 4a 53 52  |t.....eng....JSR|
00001290  70 72 74 72 6f 6e 0d 08  a2 0a 4a 53 52 65 73 63  |prtron....JSResc|
000012a0  0d 08 ac 24 4c 44 41 23  31 3a 4a 53 52 6f 73 77  |...$LDA#1:JSRosw|
000012b0  72 63 68 3a 4c 44 41 23  38 32 3a 4a 53 52 6f 73  |rch:LDA#82:JSRos|
000012c0  77 72 63 68 0d 08 b6 23  4c 44 41 23 31 3a 4a 53  |wrch...#LDA#1:JS|
000012d0  52 6f 73 77 72 63 68 3a  4c 44 41 23 33 3a 4a 53  |Roswrch:LDA#3:JS|
000012e0  52 6f 73 77 72 63 68 0d  08 c0 0e 4a 53 52 70 72  |Roswrch....JSRpr|
000012f0  74 72 6f 66 66 0d 08 ca  0d 4a 4d 50 63 6f 6d 6f  |troff....JMPcomo|
00001300  75 74 0d 08 d4 08 2e 65  6e 73 0d 08 de 0d 4a 53  |ut.....ens....JS|
00001310  52 70 72 74 72 6f 6e 0d  08 e8 0a 4a 53 52 65 73  |Rprtron....JSRes|
00001320  63 0d 08 f2 24 4c 44 41  23 31 3a 4a 53 52 6f 73  |c...$LDA#1:JSRos|
00001330  77 72 63 68 3a 4c 44 41  23 38 37 3a 4a 53 52 6f  |wrch:LDA#87:JSRo|
00001340  73 77 72 63 68 0d 08 fc  23 4c 44 41 23 31 3a 4a  |swrch...#LDA#1:J|
00001350  53 52 6f 73 77 72 63 68  3a 4c 44 41 23 31 3a 4a  |SRoswrch:LDA#1:J|
00001360  53 52 6f 73 77 72 63 68  0d 09 06 0e 4a 53 52 70  |SRoswrch....JSRp|
00001370  72 74 72 6f 66 66 0d 09  10 0d 4a 4d 50 63 6f 6d  |rtroff....JMPcom|
00001380  6f 75 74 0d 09 1a 08 2e  65 6e 66 0d 09 24 0d 4a  |out.....enf..$.J|
00001390  53 52 70 72 74 72 6f 6e  0d 09 2e 0a 4a 53 52 65  |SRprtron....JSRe|
000013a0  73 63 0d 09 38 24 4c 44  41 23 31 3a 4a 53 52 6f  |sc..8$LDA#1:JSRo|
000013b0  73 77 72 63 68 3a 4c 44  41 23 38 37 3a 4a 53 52  |swrch:LDA#87:JSR|
000013c0  6f 73 77 72 63 68 0d 09  42 23 4c 44 41 23 31 3a  |oswrch..B#LDA#1:|
000013d0  4a 53 52 6f 73 77 72 63  68 3a 4c 44 41 23 30 3a  |JSRoswrch:LDA#0:|
000013e0  4a 53 52 6f 73 77 72 63  68 0d 09 4c 0e 4a 53 52  |JSRoswrch..L.JSR|
000013f0  70 72 74 72 6f 66 66 0d  09 56 0d 4a 4d 50 63 6f  |prtroff..V.JMPco|
00001400  6d 6f 75 74 0d 09 60 08  2e 69 74 73 0d 09 6a 0d  |mout..`..its..j.|
00001410  4a 53 52 70 72 74 72 6f  6e 0d 09 74 0a 4a 53 52  |JSRprtron..t.JSR|
00001420  65 73 63 0d 09 7e 24 4c  44 41 23 31 3a 4a 53 52  |esc..~$LDA#1:JSR|
00001430  6f 73 77 72 63 68 3a 4c  44 41 23 35 32 3a 4a 53  |oswrch:LDA#52:JS|
00001440  52 6f 73 77 72 63 68 0d  09 88 0e 4a 53 52 70 72  |Roswrch....JSRpr|
00001450  74 72 6f 66 66 0d 09 92  0d 4a 4d 50 63 6f 6d 6f  |troff....JMPcomo|
00001460  75 74 0d 09 9c 08 2e 69  74 66 0d 09 a6 0d 4a 53  |ut.....itf....JS|
00001470  52 70 72 74 72 6f 6e 0d  09 b0 0a 4a 53 52 65 73  |Rprtron....JSRes|
00001480  63 0d 09 ba 24 4c 44 41  23 31 3a 4a 53 52 6f 73  |c...$LDA#1:JSRos|
00001490  77 72 63 68 3a 4c 44 41  23 35 33 3a 4a 53 52 6f  |wrch:LDA#53:JSRo|
000014a0  73 77 72 63 68 0d 09 c4  0e 4a 53 52 70 72 74 72  |swrch....JSRprtr|
000014b0  6f 66 66 0d 09 ce 0d 4a  4d 50 63 6f 6d 6f 75 74  |off....JMPcomout|
000014c0  0d 09 d8 08 2e 73 70 73  0d 09 e2 0d 4a 53 52 70  |.....sps....JSRp|
000014d0  72 74 72 6f 6e 0d 09 ec  0a 4a 53 52 65 73 63 0d  |rtron....JSResc.|
000014e0  09 f6 24 4c 44 41 23 31  3a 4a 53 52 6f 73 77 72  |..$LDA#1:JSRoswr|
000014f0  63 68 3a 4c 44 41 23 38  33 3a 4a 53 52 6f 73 77  |ch:LDA#83:JSRosw|
00001500  72 63 68 0d 0a 00 23 4c  44 41 23 31 3a 4a 53 52  |rch...#LDA#1:JSR|
00001510  6f 73 77 72 63 68 3a 4c  44 41 23 30 3a 4a 53 52  |oswrch:LDA#0:JSR|
00001520  6f 73 77 72 63 68 0d 0a  0a 0e 4a 53 52 70 72 74  |oswrch....JSRprt|
00001530  72 6f 66 66 0d 0a 14 0d  4a 4d 50 63 6f 6d 6f 75  |roff....JMPcomou|
00001540  74 0d 0a 1e 08 2e 73 62  73 0d 0a 28 0d 4a 53 52  |t.....sbs..(.JSR|
00001550  70 72 74 72 6f 6e 0d 0a  32 0a 4a 53 52 65 73 63  |prtron..2.JSResc|
00001560  0d 0a 3c 24 4c 44 41 23  31 3a 4a 53 52 6f 73 77  |..<$LDA#1:JSRosw|
00001570  72 63 68 3a 4c 44 41 23  38 33 3a 4a 53 52 6f 73  |rch:LDA#83:JSRos|
00001580  77 72 63 68 0d 0a 46 23  4c 44 41 23 31 3a 4a 53  |wrch..F#LDA#1:JS|
00001590  52 6f 73 77 72 63 68 3a  4c 44 41 23 31 3a 4a 53  |Roswrch:LDA#1:JS|
000015a0  52 6f 73 77 72 63 68 0d  0a 50 0e 4a 53 52 70 72  |Roswrch..P.JSRpr|
000015b0  74 72 6f 66 66 0d 0a 5a  0d 4a 4d 50 63 6f 6d 6f  |troff..Z.JMPcomo|
000015c0  75 74 0d 0a 64 08 2e 73  73 66 0d 0a 6e 0d 4a 53  |ut..d..ssf..n.JS|
000015d0  52 70 72 74 72 6f 6e 0d  0a 78 0a 4a 53 52 65 73  |Rprtron..x.JSRes|
000015e0  63 0d 0a 82 24 4c 44 41  23 31 3a 4a 53 52 6f 73  |c...$LDA#1:JSRos|
000015f0  77 72 63 68 3a 4c 44 41  23 38 34 3a 4a 53 52 6f  |wrch:LDA#84:JSRo|
00001600  73 77 72 63 68 0d 0a 8c  0e 4a 53 52 70 72 74 72  |swrch....JSRprtr|
00001610  6f 66 66 0d 0a 96 0d 4a  4d 50 63 6f 6d 6f 75 74  |off....JMPcomout|
00001620  0d 0a a0 08 2e 75 6c 73  0d 0a aa 0d 4a 53 52 70  |.....uls....JSRp|
00001630  72 74 72 6f 6e 0d 0a b4  0a 4a 53 52 65 73 63 0d  |rtron....JSResc.|
00001640  0a be 24 4c 44 41 23 31  3a 4a 53 52 6f 73 77 72  |..$LDA#1:JSRoswr|
00001650  63 68 3a 4c 44 41 23 34  35 3a 4a 53 52 6f 73 77  |ch:LDA#45:JSRosw|
00001660  72 63 68 0d 0a c8 23 4c  44 41 23 31 3a 4a 53 52  |rch...#LDA#1:JSR|
00001670  6f 73 77 72 63 68 3a 4c  44 41 23 31 3a 4a 53 52  |oswrch:LDA#1:JSR|
00001680  6f 73 77 72 63 68 0d 0a  d2 0e 4a 53 52 70 72 74  |oswrch....JSRprt|
00001690  72 6f 66 66 0d 0a dc 0d  4a 4d 50 63 6f 6d 6f 75  |roff....JMPcomou|
000016a0  74 0d 0a e6 08 2e 75 6c  66 0d 0a f0 0d 4a 53 52  |t.....ulf....JSR|
000016b0  70 72 74 72 6f 6e 0d 0a  fa 0a 4a 53 52 65 73 63  |prtron....JSResc|
000016c0  0d 0b 04 24 4c 44 41 23  31 3a 4a 53 52 6f 73 77  |...$LDA#1:JSRosw|
000016d0  72 63 68 3a 4c 44 41 23  34 35 3a 4a 53 52 6f 73  |rch:LDA#45:JSRos|
000016e0  77 72 63 68 0d 0b 0e 23  4c 44 41 23 31 3a 4a 53  |wrch...#LDA#1:JS|
000016f0  52 6f 73 77 72 63 68 3a  4c 44 41 23 30 3a 4a 53  |Roswrch:LDA#0:JS|
00001700  52 6f 73 77 72 63 68 0d  0b 18 0e 4a 53 52 70 72  |Roswrch....JSRpr|
00001710  74 72 6f 66 66 0d 0b 22  0d 4a 4d 50 63 6f 6d 6f  |troff..".JMPcomo|
00001720  75 74 0d 0b 2c 08 2e 65  78 70 0d 0b 36 0d 4a 53  |ut..,..exp..6.JS|
00001730  52 70 72 74 72 6f 6e 0d  0b 40 0a 4a 53 52 65 73  |Rprtron..@.JSRes|
00001740  63 0d 0b 4a 24 4c 44 41  23 31 3a 4a 53 52 6f 73  |c..J$LDA#1:JSRos|
00001750  77 72 63 68 3a 4c 44 41  23 35 34 3a 4a 53 52 6f  |wrch:LDA#54:JSRo|
00001760  73 77 72 63 68 0d 0b 54  0a 4a 53 52 65 73 63 0d  |swrch..T.JSResc.|
00001770  0b 5e 24 4c 44 41 23 31  3a 4a 53 52 6f 73 77 72  |.^$LDA#1:JSRoswr|
00001780  63 68 3a 4c 44 41 23 37  33 3a 4a 53 52 6f 73 77  |ch:LDA#73:JSRosw|
00001790  72 63 68 0d 0b 68 23 4c  44 41 23 31 3a 4a 53 52  |rch..h#LDA#1:JSR|
000017a0  6f 73 77 72 63 68 3a 4c  44 41 23 30 3a 4a 53 52  |oswrch:LDA#0:JSR|
000017b0  6f 73 77 72 63 68 0d 0b  72 0a 4a 53 52 65 73 63  |oswrch..r.JSResc|
000017c0  0d 0b 7c 25 4c 44 41 23  31 3a 4a 53 52 6f 73 77  |..|%LDA#1:JSRosw|
000017d0  72 63 68 3a 4c 44 41 23  31 31 36 3a 4a 53 52 6f  |rch:LDA#116:JSRo|
000017e0  73 77 72 63 68 0d 0b 86  23 4c 44 41 23 31 3a 4a  |swrch...#LDA#1:J|
000017f0  53 52 6f 73 77 72 63 68  3a 4c 44 41 23 31 3a 4a  |SRoswrch:LDA#1:J|
00001800  53 52 6f 73 77 72 63 68  0d 0b 90 0e 4a 53 52 70  |SRoswrch....JSRp|
00001810  72 74 72 6f 66 66 0d 0b  9a 0d 4a 4d 50 63 6f 6d  |rtroff....JMPcom|
00001820  6f 75 74 0d 0b a4 08 2e  6c 66 61 0d 0b ae 0d 4a  |out.....lfa....J|
00001830  53 52 70 72 74 72 6f 6e  0d 0b b8 0a 4a 53 52 65  |SRprtron....JSRe|
00001840  73 63 0d 0b c2 24 4c 44  41 23 31 3a 4a 53 52 6f  |sc...$LDA#1:JSRo|
00001850  73 77 72 63 68 3a 4c 44  41 23 34 38 3a 4a 53 52  |swrch:LDA#48:JSR|
00001860  6f 73 77 72 63 68 0d 0b  cc 0e 4a 53 52 70 72 74  |oswrch....JSRprt|
00001870  72 6f 66 66 0d 0b d6 0d  4a 4d 50 63 6f 6d 6f 75  |roff....JMPcomou|
00001880  74 0d 0b e0 08 2e 6c 66  62 0d 0b ea 0d 4a 53 52  |t.....lfb....JSR|
00001890  70 72 74 72 6f 6e 0d 0b  f4 0a 4a 53 52 65 73 63  |prtron....JSResc|
000018a0  0d 0b fe 24 4c 44 41 23  31 3a 4a 53 52 6f 73 77  |...$LDA#1:JSRosw|
000018b0  72 63 68 3a 4c 44 41 23  34 39 3a 4a 53 52 6f 73  |rch:LDA#49:JSRos|
000018c0  77 72 63 68 0d 0c 08 0e  4a 53 52 70 72 74 72 6f  |wrch....JSRprtro|
000018d0  66 66 0d 0c 12 0d 4a 4d  50 63 6f 6d 6f 75 74 0d  |ff....JMPcomout.|
000018e0  0c 1c 08 2e 6c 66 63 0d  0c 26 0d 4a 53 52 70 72  |....lfc..&.JSRpr|
000018f0  74 72 6f 6e 0d 0c 30 0a  4a 53 52 65 73 63 0d 0c  |tron..0.JSResc..|
00001900  3a 24 4c 44 41 23 31 3a  4a 53 52 6f 73 77 72 63  |:$LDA#1:JSRoswrc|
00001910  68 3a 4c 44 41 23 35 30  3a 4a 53 52 6f 73 77 72  |h:LDA#50:JSRoswr|
00001920  63 68 0d 0c 44 0e 4a 53  52 70 72 74 72 6f 66 66  |ch..D.JSRprtroff|
00001930  0d 0c 4e 0d 4a 4d 50 63  6f 6d 6f 75 74 0d 0c 58  |..N.JMPcomout..X|
00001940  08 2e 63 6e 61 0d 0c 62  0d 4a 53 52 70 72 74 72  |..cna..b.JSRprtr|
00001950  6f 6e 0d 0c 6c 0a 4a 53  52 65 73 63 0d 0c 76 25  |on..l.JSResc..v%|
00001960  4c 44 41 23 31 3a 4a 53  52 6f 73 77 72 63 68 3a  |LDA#1:JSRoswrch:|
00001970  4c 44 41 23 31 30 38 3a  4a 53 52 6f 73 77 72 63  |LDA#108:JSRoswrc|
00001980  68 0d 0c 80 23 4c 44 41  23 31 3a 4a 53 52 6f 73  |h...#LDA#1:JSRos|
00001990  77 72 63 68 3a 4c 44 41  23 30 3a 4a 53 52 6f 73  |wrch:LDA#0:JSRos|
000019a0  77 72 63 68 0d 0c 8a 0a  4a 53 52 65 73 63 0d 0c  |wrch....JSResc..|
000019b0  94 24 4c 44 41 23 31 3a  4a 53 52 6f 73 77 72 63  |.$LDA#1:JSRoswrc|
000019c0  68 3a 4c 44 41 23 38 31  3a 4a 53 52 6f 73 77 72  |h:LDA#81:JSRoswr|
000019d0  63 68 0d 0c 9e 24 4c 44  41 23 31 3a 4a 53 52 6f  |ch...$LDA#1:JSRo|
000019e0  73 77 72 63 68 3a 4c 44  41 23 34 30 3a 4a 53 52  |swrch:LDA#40:JSR|
000019f0  6f 73 77 72 63 68 0d 0c  a8 0e 4a 53 52 70 72 74  |oswrch....JSRprt|
00001a00  72 6f 66 66 0d 0c b2 0d  4a 4d 50 63 6f 6d 6f 75  |roff....JMPcomou|
00001a10  74 0d 0c bc 08 2e 63 6e  62 0d 0c c6 0d 4a 53 52  |t.....cnb....JSR|
00001a20  70 72 74 72 6f 6e 0d 0c  d0 0a 4a 53 52 65 73 63  |prtron....JSResc|
00001a30  0d 0c da 24 4c 44 41 23  31 3a 4a 53 52 6f 73 77  |...$LDA#1:JSRosw|
00001a40  72 63 68 3a 4c 44 41 23  38 31 3a 4a 53 52 6f 73  |rch:LDA#81:JSRos|
00001a50  77 72 63 68 0d 0c e4 24  4c 44 41 23 31 3a 4a 53  |wrch...$LDA#1:JS|
00001a60  52 6f 73 77 72 63 68 3a  4c 44 41 23 38 35 3a 4a  |Roswrch:LDA#85:J|
00001a70  53 52 6f 73 77 72 63 68  0d 0c ee 0a 4a 53 52 65  |SRoswrch....JSRe|
00001a80  73 63 0d 0c f8 25 4c 44  41 23 31 3a 4a 53 52 6f  |sc...%LDA#1:JSRo|
00001a90  73 77 72 63 68 3a 4c 44  41 23 31 30 38 3a 4a 53  |swrch:LDA#108:JS|
00001aa0  52 6f 73 77 72 63 68 0d  0d 02 24 4c 44 41 23 31  |Roswrch...$LDA#1|
00001ab0  3a 4a 53 52 6f 73 77 72  63 68 3a 4c 44 41 23 34  |:JSRoswrch:LDA#4|
00001ac0  35 3a 4a 53 52 6f 73 77  72 63 68 0d 0d 0c 0e 4a  |5:JSRoswrch....J|
00001ad0  53 52 70 72 74 72 6f 66  66 0d 0d 16 0d 4a 4d 50  |SRprtroff....JMP|
00001ae0  63 6f 6d 6f 75 74 0d 0d  20 08 2e 63 6e 63 0d 0d  |comout.. ..cnc..|
00001af0  2a 0d 4a 53 52 70 72 74  72 6f 6e 0d 0d 34 0a 4a  |*.JSRprtron..4.J|
00001b00  53 52 65 73 63 0d 0d 3e  24 4c 44 41 23 31 3a 4a  |SResc..>$LDA#1:J|
00001b10  53 52 6f 73 77 72 63 68  3a 4c 44 41 23 38 31 3a  |SRoswrch:LDA#81:|
00001b20  4a 53 52 6f 73 77 72 63  68 0d 0d 48 26 20 4c 44  |JSRoswrch..H& LD|
00001b30  41 23 31 3a 4a 53 52 6f  73 77 72 63 68 3a 4c 44  |A#1:JSRoswrch:LD|
00001b40  41 23 31 33 30 3a 4a 53  52 6f 73 77 72 63 68 0d  |A#130:JSRoswrch.|
00001b50  0d 52 0a 4a 53 52 65 73  63 0d 0d 5c 25 4c 44 41  |.R.JSResc..\%LDA|
00001b60  23 31 3a 4a 53 52 6f 73  77 72 63 68 3a 4c 44 41  |#1:JSRoswrch:LDA|
00001b70  23 31 30 38 3a 4a 53 52  6f 73 77 72 63 68 0d 0d  |#108:JSRoswrch..|
00001b80  66 24 4c 44 41 23 31 3a  4a 53 52 6f 73 77 72 63  |f$LDA#1:JSRoswrc|
00001b90  68 3a 4c 44 41 23 39 30  3a 4a 53 52 6f 73 77 72  |h:LDA#90:JSRoswr|
00001ba0  63 68 0d 0d 70 0e 4a 53  52 70 72 74 72 6f 66 66  |ch..p.JSRprtroff|
00001bb0  0d 0d 7a 0d 4a 4d 50 63  6f 6d 6f 75 74 0d 0d 84  |..z.JMPcomout...|
00001bc0  05 5d 0d 0d 8e 07 ed 3a  e1 0d ff                 |.].....:...|
00001bcb

P/PCDsrc.m0

P/PCDsrc.m1

P/PCDsrc.m2

P/PCDsrc.m4

P/PCDsrc.m5

Our privacy policy is here.
Last updated: 28 Jul 2024, 23:31 UTC
Website designed by .