P/CAD

Home » Personal collection » Acorn ADFS disks » Electron_User_Group » EUG_41.ADF » P/CAD

P/CAD

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_41.ADF
Filename:	P/CAD
Read OK:	✔
File size:	2E5A bytes
Load address:	FFFF1D00
Exec address:	FFFF8023

Duplicates

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

Personal collection » Acorn ADFS disks » Electron_User_Group » EUG_41.ADF » P/CAD
Personal collection » Acorn ADFS disks » Greaseweazled » dfs_box04_disk02b_eug_scripts.adf » CAD/CADNew/CAD
Personal collection » Acorn hard disk » zipped_disks » elk06 » eug41/P/CAD

File contents

   10REM Advanced CAD - Loader
   20REM (C) Dominic Ford 1998
   30MODE4:PRINT"Initialising...":VDU23,1,0;0;0;0;23,255,&C0,&F0,&FC,&FF,&FF,&FC,&F0,&C0:HIMEM=&5200
   40PROCass:*FX4,1
   50PRINTTAB(0,0)SPC(8);"Welcome to Advanced CAD"'SPC(6);"Written by Dominic Ford 1998"
   60PRINT''"Do you wish to use an AMX mouse with    this software? If you do, you will be   unable to use other input devices with  it. Do not answer yes if you do not havethe AMX ROM installed."
   70PRINT'"Please select: (M)ouse or (K)eyboard"
   80REPEAT k$=GET$:UNTILINSTR("mMkK",k$)>0:IFINSTR("mM",k$)=0THEN120
   90ONERRORGOTO110
  100SCLI"MOUSE ON":ONERROROFF:?mouse=1:GOTO150
  110ONERROROFF:PRINT''"Error: No AMX Mouse ROM detected"
  120PRINT''"Do you wish to use an analogue joystick?If you do, you will still be able to usethe keyboard, although any other devicesplugged into the analogue port may      interfere with this software."
  130PRINT'"Please select: (Y)es or (N)o"
  140REPEAT k$=GET$:UNTILINSTR("yYnN",k$)>0:IFINSTR("yY",k$)>0THEN?joyst=1
  150PRINT''"Loading main program..."
  160CHAIN"CAD2"
  170DEFPROCass
  180oswrch=&FFEE:chip=7:opamp=13:FORpass=0TO2STEP2:P%=&5200:[OPT pass
  190JMPdraw:JMPwhatover:JMPdelete:JMPgetlink:EQUDpinbase \ Jump table
  200.joyst EQUB0:.mouse EQUB0:EQUDrehair \ Input device select
  210.label LDY#0:JSRgetpos:LDA&76:CLC:ADC#64:STA&76:LDA&77:ADC#0:STA&77:LDX#4:JSRicline:LDA#5:JSRoswrch:LDY#8:.dolab LDA(&72),Y:JSRoswrch:INY:TYA:AND#3:BNEdolab
  220CPY#16:BEQendlab:LDA#10:JSRoswrch:LDA#8:JSRoswrch:JSRoswrch:JSRoswrch:JSRoswrch:JMPdolab:.endlab LDA#4:JMPoswrch
  230.draw LDA#&10:STA&72:LDA#&48:STA&73:LDA&4800:.dloop BEQdrend:PHA:JSRdrawcomp:JSRlabel:LDA&72:CLC:ADC#16:STA&72:LDA&73:ADC#0:STA&73:PLA:SEC:SBC#1:JMPdloop
  240.drend LDA#&F8:STA&72:LDA#&47:STA&73:LDA&47FC:STA&80:LDA&47FD:STA&81:.llop LDA&80:BNEnollnk:LDA&81:BEQlkend:.nollnk JSRdolink:LDA&72:SEC:SBC#4:STA&72:LDA&73:SBC#0:STA&73:LDA&80:SEC:SBC#1:STA&80:LDA&81:SBC#0:STA&81:JMPllop
  250.lkend RTS:.dolink LDY#0:JSRgetcoord:LDX#4:JSRicline:JSRgetcoord:LDX#5:JMPicline
  260.getcoord LDA(&72),Y:STA&78:LDA#0:STA&79:ASL&78:ROL&79:ASL&78:ROL&79:ASL&78:ROL&79:ASL&78:ROL&79:LDA&79:CLC:ADC#&48:STA&79:TYA:PHA
  270LDY#1:LDA(&78),Y:STA&74:INY:LDA(&78),Y:STA&75:INY:LDA(&78),Y:STA&76:INY:LDA(&78),Y:STA&77:LDY#0:LDA(&78),Y:JSRlinkic:ASLA:ASLA:STA&7A:PLA:TAY:INY:LDA(&72),Y:CLC:ADC&7A:TAX:LDAlinkpos,X:PHA
  280AND#15:ASLA:ASLA:STA&7A:LDA&76:SEC:SBC&7A:STA&76:LDA&77:SBC#0:STA&77:PLA:LSRA:LSRA:AND#&3C:CLC:ADC&74:STA&74:LDA&75:ADC#0:STA&75:INY:RTS
  290.getpos INY:LDA(&72),Y:STA&74:INY:LDA(&72),Y:STA&75:INY:LDA(&72),Y:STA&76:INY:LDA(&72),Y:STA&77:RTS:.ic JSRgetpos
  300LDX#4:JSRicline:LDA&74:CLC:ADC#&80:STA&74:LDA&75:ADC#0:STA&75:LDX#5:JSRicline:LDY#5:LDA(&72),Y:ASLA:ASLA:ASLA:STA&80:LDA#0:ROLA:STA&81:ASL&80:ROL&81:ASL&80:ROL&81
  310LDA&76:PHA:SEC:SBC&80:STA&76:LDA&77:PHA:SBC&81:STA&77:LDX#5:JSRicline:LDA&74:SEC:SBC#&80:STA&74:LDA&75:SBC#0:STA&75:LDX#5:JSRicline:PLA:STA&77:PLA:STA&76:LDX#5:JSRicline
  320LDA&74:CLC:ADC#&38:STA&74:LDA&75:ADC#0:STA&75:LDX#4:JSRicline:LDA&76:SEC:SBC#24:STA&76:LDA&77:SBC#0:STA&77:LDX#5:JSRicline:LDA&74:CLC:ADC#&10:STA&74:LDA&75:ADC#0:STA&75:JSRicline
  330LDA&76:CLC:ADC#24:STA&76:LDA&77:ADC#0:STA&77:JSRicline:LDA&74:SEC:SBC#&48:STA&74:LDA&75:SBC#0:STA&75:LDA&76:SEC:SBC#8:STA&76:LDA&77:SBC#0:STA&77:LDA(&72),Y:.pins PHA:JSRdrawpin:PLA:SEC:SBC#1:BNEpins:RTS
  340.drawpin LDX#4:JSRicline:LDA&74:SEC:SBC#&10:STA&74:LDA&75:SBC#0:STA&75:LDX#5:JSRicline:LDA&76:SEC:SBC#16:STA&76:LDA&77:SBC#0:STA&77:JSRicline:LDA&74:CLC:ADC#&10:STA&74:LDA&75:ADC#0:STA&75:JSRicline
  350LDA&74:CLC:ADC#&80:STA&74:LDA&75:ADC#0:STA&75:LDX#4:JSRicline:LDA&74:CLC:ADC#&10:STA&74:LDA&75:ADC#0:STA&75:LDX#5:JSRicline:LDA&76:CLC:ADC#16:STA&76:LDA&77:ADC#0:STA&77:JSRicline
  360LDA&74:SEC:SBC#&10:STA&74:LDA&75:SBC#0:STA&75:JSRicline:LDA&74:SEC:SBC#&80:STA&74:LDA&75:SBC#0:STA&75:LDA&76:SEC:SBC#&20:STA&76:LDA&77:SBC#0:STA&77:RTS
  370.icline LDA#25:JSRoswrch:TXA:JSRoswrch:LDA&74:JSRoswrch:LDA&75:JSRoswrch:LDA&76:JSRoswrch:LDA&77:JMPoswrch
  380.drawcomp LDY#0:LDA(&72),Y:CMP#chip:BNEnic:JMPic:.nic CMP#opamp:BNEnotoa:JSRnotoa:LDY#0:LDA#chip
  390.notoa ASL A:ASL A:ASL A:ASL A:STA&78:LDA#0:ROLA:STA&79:LDA&78:CLC:ADC#(comps MOD256):STA&78:LDA&79:ADC#(comps DIV256):STA&79:JSRgetpos:LDY#0
  400.drawline LDA(&78),Y:CMP#255:BEQendcomp:LDA#25:JSRoswrch:LDA#4:JSRoswrch:JSRplot:INY:LDA#25:JSRoswrch:LDA#5:JSRoswrch:JSRplot:INY:TYA:AND#15:BNEdrawline:.endcomp RTS
  410.plot LDA(&78),Y:LSRA:LSRA:AND#60:CLC:ADC&74:PHP:JSRoswrch:PLP:LDA&75:ADC#0:JSRoswrch:LDA(&78),Y:AND#15:ASLA:ASLA:STA&7A:LDA&76:SEC:SBC&7A:PHP:JSRoswrch:PLP:LDA&77:SBC#0:JMPoswrch
  420.whatover LDA#0:STA&76:STA&77:LDA#&10:STA&74:LDA#&48:STA&75:LDA&4800:.cloop BEQchend:INC&76:PHA:JSRcheckcomp:LDA&74:CLC:ADC#16:STA&74:LDA&75:ADC#0:STA&75:PLA:SEC:SBC#1:JMPcloop:.chend RTS
  430.checkcomp LDY#0:LDA(&74),Y:TAX:LDY#1:LDA&70:SEC:SBC(&74),Y:PHA:LDA&71:INY:SBC(&74),Y:BNEnohit:PLA:LSRA:LSRA:CMPxsize,X:BCSnohit2
  440INY:LDA(&74),Y:SEC:SBC&72:PHA:INY:LDA(&74),Y:SBC&73:BNEnohit:PLA:LSRA:LSRA:CMPysize,X:BCSnohit2:LDA&76:STA&77:LDA&74:STA&78:LDA&75:STA&79:RTS:.nohit PLA:.nohit2 RTS
  450.delete LDY#16:LDA(&78),Y:LDY#0:STA(&78),Y:LDA&78:CLC:ADC#1:STA&78:LDA&79:ADC#0:STA&79:CMP#&50:BNEdelete:DEC&4800
  460LDA#&F8:STA&72:STA&74:LDA#&47:STA&73:STA&75:LDA&47FC:STA&80:LDA&47FD:STA&81:LDA#0:STA&82:STA&83:.ldel LDA&80:BNEcdel:LDA&81:BEQdellk:.cdel JSRchelink
  470LDA&72:SEC:SBC#4:STA&72:LDA&73:SBC#0:STA&73:LDA&80:SEC:SBC#1:STA&80:LDA&81:SBC#0:STA&81:JMPldel:.dellk LDA&82:STA&47FC:LDA&83:STA&47FD:RTS
  480.chelink LDY#0:LDA(&72),Y:CMP&77:BEQcutlink:BCCnosubl:SBC#1:.nosubl STA(&74),Y:LDY#2:LDA(&72),Y:CMP&77:BEQcutlink:LDY#3:LDA(&72),Y:STA(&74),Y:LDY#1:LDA(&72),Y:STA(&74),Y:LDY#2:LDA(&72),Y:CMP&77:BCCnosubl2:SBC#1:.nosubl2 STA(&74),Y
  490LDA&74:SEC:SBC#4:STA&74:LDA&75:SBC#0:STA&75:LDA&82:CLC:ADC#1:STA&82:LDA&83:ADC#0:STA&83:.cutlink RTS
  500.getlink LDY#0:LDA#(links MOD256):STA&72:LDA#(links DIV256):STA&73:LDX&70:.findlnk BEQgotlnk:.fwd LDA(&72),Y:PHA:LDA&72:CLC:ADC#1:STA&72
  510LDA&73:ADC#0:STA&73:PLA:BNEfwd:DEX:JMPfindlnk:.gotlnk RTS
  520.comps EQUW&0444:EQUW&4048:EQUW&7078:EQUW&74A4:EQUW&FFFF:EQUW&FFFF:EQUW&FFFF:EQUW&FFFF
  530EQUW&0444:EQUW&4048:EQUW&7276:EQUW&8081:EQUW&8788:EQUW&74A4:EQUW&FFFF:EQUW&FFFF
  540EQUW&0646:EQUW&404C:EQUW&6369:EQUW&6686:EQUW&FFFF:EQUW&FFFF:EQUW&FFFF:EQUW&FFFF
  550EQUW&0636:EQUW&303C:EQUW&5359:EQUW&7676:EQUW&9696:EQUW&B0BC:EQUW&D3D9:EQUW&D6F6
  560EQUW&0646:EQUW&404C:EQUW&40A6:EQUW&4CA6:EQUW&A6F6:EQUW&A0AC:EQUW&FFFF:EQUW&FFFF
  570EQUW&0646:EQUW&404C:EQUW&40A6:EQUW&4CA6:EQUW&A6F6:EQUW&A2AA:EQUW&C0A2:EQUW&8CAA
  580EQUW&4044:EQUW&0484:EQUW&1676:EQUW&2868:EQUW&FFFF:EQUW&FFFF:EQUW&FFFF:EQUW&FFFF
  590EQUW&0444:EQUW&0C4C:EQUW&404F:EQUW&40C8:EQUW&5FC8:EQUW&C8F8:EQUW&8084:EQUW&8C8F \ OpAmp Part I
  600EQUW&0424:EQUW&2440:EQUW&4064:EQUW&6480:EQUW&80A4:EQUW&A4C0:EQUW&C0E4:EQUW&E4F4
  610EQUW&0444:EQUW&0C4C:EQUW&404F:EQUW&4082:EQUW&82C7:EQUW&C88D:EQUW&8D4F:EQUW&C7F7
  620EQUW&0646:EQUW&404C:EQUW&40A6:EQUW&4CA6:EQUW&B5C6:EQUW&B7C6:EQUW&C6F6:EQUW&FFFF
  630EQUW&0464:EQUW&0C6C:EQUW&616E:EQUW&4082:EQUW&82C7:EQUW&C88D:EQUW&8D4F:EQUW&C7F7
  640EQUW&0020:EQUW&2022:EQUW&2202:EQUW&0200:EQUW&FFFF:EQUW&FFFF:EQUW&FFFF:EQUW&FFFF
  650EQUW&5979:EQUW&5676:EQUW&6567:EQUW&FFFF:EQUW&FFFF:EQUW&FFFF:EQUW&FFFF:EQUW&FFFF \ OpAmp Part II
  660EQUW&0424:EQUW&2028:EQUW&20E0:EQUW&28E8:EQUW&E0E8:EQUW&E4F4:EQUW&FFFF:EQUW&FFFF
  670EQUW&0424:EQUW&2028:EQUW&20E0:EQUW&28E8:EQUW&E0E8:EQUW&E4F4:EQUW&888F:EQUW&7B9B
  680EQUW&0444:EQUW&44C0:EQUW&C4F4:EQUW&FFFF:EQUW&FFFF:EQUW&FFFF:EQUW&FFFF:EQUW&FFFF
  690EQUW&0848:EQUW&424E:EQUW&46A0:EQUW&49AF:EQUW&7C79:EQUW&7C5C:EQUW&FFFF:EQUW&FFFF
  700EQUW&0848:EQUW&424E:EQUW&46A0:EQUW&49AF:EQUW&6B8B:EQUW&6B6D:EQUW&FFFF:EQUW&FFFF
  710EQUW&0848:EQUW&444C:EQUW&727E:EQUW&74A4:EQUW&A4A0:EQUW&7CAC:EQUW&ACAF:EQUW&FFFF
  720.moucur2 PLA:STA&76:PLA:STA&75:PLA:STA&74:JMPnostick
  730]:P%=&A00:[OPTpass
  740.links EQUS"Capactr Left    Right  ":EQUB0:EQUS"Cap (E) Cathode Anode  ":EQUB0:EQUS"Cell    Cathode Anode  ":EQUB0:EQUS"Battery Cathode Anode  ":EQUB0
  750EQUS"Diode   Cathode Anode  ":EQUB0:EQUS"Zener   Cathode Anode  ":EQUB0:EQUS"Ground  Ground ":EQUB0:EQUS"IC     ":EQUB0:EQUS"Inductr Left    Right  ":EQUB0
  760EQUS"AND     Input1  Input2  Output ":EQUB0:EQUS"NOT     Input   Output ":EQUB0:EQUS"OR Gate Input1  Input2  Output ":EQUB0:EQUS"Node    Node   ":EQUB0
  770EQUS"OpAmp   V+      V-      Output  -Input  +Input ":EQUB0:EQUS"Resistr Left    Right  ":EQUB0:EQUS"Re(Var) Left    Centre  Right  ":EQUB0
  780EQUS"Switch  Left    Right  ":EQUB0:EQUS"Tr(NPN) Base    Colectr Emitter":EQUB0:EQUS"Tr(PNP) Base    Colectr Emitter":EQUB0:EQUS"Tr(FET) Gate    Drain   Source ":EQUB0
  790.linkpos EQUD&FFFFA404:EQUD&FFFF04A4:EQUD&FFFF0686:EQUD&FFFF06F6
  800EQUD&FFFF06F6:EQUD&FFFF06F6:EQUD&FFFFFF40:EQUD&FFFFFFFF
  810EQUD&FFFFF404:EQUD&FFF70C04:EQUD&FFFFF606:EQUD&FFF70C04
  820EQUD&FFFFFF11:EQUD&0CF88F80:EQUD&FFFFF404:EQUD&FFF48F04
  830EQUD&FFFFF404:EQUD&FFAFA008:EQUD&FFAFA008:EQUD&FFACA008
  840.pinbase EQUB3:EQUB4:EQUB7:EQUB8:EQUB9:EQUB10:EQUB12:EQUB14:EQUB16:EQUB20
  850.linkic CMP#chip:BEQeitheric:RTS:.eitheric PLA:PLA:PLA:TAY:INY:TYA:PHA:LDA(&72),Y:STA&7A:LDY#5:LDA(&78),Y:CMP&7A:BCCrightic:DEC&7A:.leftic LDA&74:SEC:SBC#16:STA&74:LDA&75:SBC#0:STA&75
  860LDA&76:SEC:SBC#16:STA&76:LDA&77:SBC#0:STA&77:LDX&7A:.icdl CPX#0:BEQgoticpin:LDA&76:SEC:SBC#32:STA&76:LDA&77:SBC#0:STA&77:DEX:JMPicdl:.goticpin PLA:TAY:INY:RTS
  870.rightic ASLA:SEC:SBC&7A:STA&7A:LDA&74:CLC:ADC#&A0:STA&74:LDA&75:ADC#0:STA&75:JMPleftic
  880.xsize EQUB11:EQUB11:EQUB9:EQUB16:EQUB16:EQUB16:EQUB9:EQUB32:EQUB16:EQUB16:EQUB16:EQUB16:EQUB3:EQUB16:EQUB16:EQUB16:EQUB16:EQUB11:EQUB11:EQUB11
  890.ysize EQUB9:EQUB9:EQUB13:EQUB13:EQUB13:EQUB13:EQUB9:EQUB24:EQUB5:EQUB16:EQUB13:EQUB16:EQUB3:EQUB16:EQUB9:EQUB16:EQUB5:EQUB16:EQUB16:EQUB16
  900]:P%=&5000:[OPTpass
  910JMPcursor:JMPhairpin:JMPbox:JSRcopy:JSRbox:JSRcursor:.box JSRcopy:LDX#4:JSRicline
  920LDA&76:SEC:SBC#64:STA&76:LDA&77:SBC#0:STA&77:LDX#5:JSRicline:LDA&74:CLC:ADC#64:STA&74:LDA&75:ADC#0:STA&75:LDX#5:JSRicline:LDA&76:CLC:ADC#64:STA&76:LDA&77:ADC#0:STA&77:LDX#5:JSRicline
  930LDA&74:SEC:SBC#64:STA&74:LDA&75:SBC#0:STA&75:LDX#5:JSRicline:.curend LDA#0:STA&74:STA&75:RTS
  940.moucur LDA&74:PHA:LDA&75:PHA:LDA&76:PHA:LDA#64:LDX#&70:LDY#0:JSR&FFF1:JMPmoucur2
  950.cursor JSRcopy:LDAmouse:BNEmoucur:JMPkeycur:.curback LDA&74:CMP&70:BNErehair:LDA&76:CMP&72:BNErehair:JMPcurend:.rehair NOP:JSRhairpin:JSRhairpin:JMPcurend
  960.hairpin LDA&76:SEC:SBC#20:STA&76:LDA&77:SBC#0:STA&77:LDX#4:JSRicline:LDA&76:CLC:ADC#40:STA&76:LDA&77:ADC#0:STA&77:LDX#5:JSRicline
  970LDA&76:SEC:SBC#20:STA&76:LDA&77:SBC#0:STA&77:LDA&74:SEC:SBC#20:STA&74:LDA&75:SBC#0:STA&75:LDX#4:JSRicline:LDA&74:CLC:ADC#40:STA&74:LDA&75:ADC#0:STA&75:LDX#5:JSRicline:JMPcopy
  980.keycur LDA#4:STA&78:LDX#&FF:JSRkeybyte:BCCnof:LDA#40:STA&78:.nof LDX#&9E:JSRkeybyte:BCCnokl:LDA&70:SBC&78:STA&70:LDA&71:SBC#0:STA&71
  990.nokl LDX#&BD:JSRkeybyte:BCCnokr:LDA&70:CLC:ADC&78:STA&70:LDA&71:ADC#0:STA&71:.nokr LDX#&B7:JSRkeybyte:BCCnoku:LDA&72:CLC:ADC&78:STA&72:LDA&73:ADC#0:STA&73:.noku LDX#&97:JSRkeybyte:BCCnokd:LDA&72:SEC:SBC&78:STA&72:LDA&73:SBC#0:STA&73
 1000.nokd LDAjoyst:BEQnostick:JSRjoycur:.nostick LDA&71:CMP#&FF:BNEnobot:LDA#0:STA&70:STA&71:.nobot LDA&73:CMP#&FF:BNEnolef:LDA#0:STA&72:STA&73
 1010.nolef LDA&71:CMP#5:BNEnorig:LDA#0:STA&70:.norig LDA&73:CMP#3:BCCnotop:LDA&72:CMP#115:BCCnotop:LDA#115:STA&72:.notop JMPcurback
 1020.keybyte LDY#255:LDA#&81:JMP&FFF4:.copy LDA&70:STA&74:LDA&71:STA&75:LDA&72:STA&76:LDA&73:STA&77:RTS
 1030]:P%=&100:[OPTpass
 1040.joycur LDX#1:LDA#&80:JSR&FFF4:CPY#94:BCSnorigj:LDA&70:ADC#4:STA&70:LDA&71:ADC#0:STA&71:.norigj CPY#39:BCSnorigjt:LDA&70:ADC#36:STA&70:LDA&71:ADC#0:STA&71
 1050.norigjt CPY#156:BCCnolefj:LDA&70:SBC#4:STA&70:LDA&71:SBC#0:STA&71:.nolefj CPY#215:BCCnolefjt:LDA&70:SBC#36:STA&70:LDA&71:SBC#0:STA&71:.nolefjt LDX#2:LDA#&80:JSR&FFF4:CPY#94:BCSnoupj
 1060LDA&72:SEC:SBC#4:STA&72:LDA&73:SBC#0:STA&73:.noupj CPY#39:BCSnoupjt:LDA&72:SEC:SBC#36:STA&72:LDA&73:SBC#0:STA&73:.noupjt CPY#156:BCCnodowj:LDA&72:CLC:ADC#4:STA&72:LDA&73:ADC#0:STA&73
 1070.nodowj CPY#215:BCCnodowjt:LDA&72:CLC:ADC#36:STA&72:LDA&73:ADC#0:STA&73:.nodowjt RTS
 1080]:NEXT:ENDPROC


� Advanced CAD - Loader
� (C) Dominic Ford 1998
V�4:�"Initialising...":�23,1,0;0;0;0;23,255,&C0,&F0,&FC,&FF,&FF,&FC,&F0,&C0:�=&5200
(�ass:*FX4,1
2L�0,0)�(8);"Welcome to Advanced CAD"'�(6);"Written by Dominic Ford 1998"
<��''"Do you wish to use an AMX mouse with    this software? If you do, you will be   unable to use other input devices with  it. Do not answer yes if you do not havethe AMX ROM installed."
F,�'"Please select: (M)ouse or (K)eyboard"
P+� k$=�:��"mMkK",k$)>0:�"mM",k$)=0��Dx@
Z��Dn@
d%SCLI"MOUSE ON"::?mouse=1:�tV@
n-:�''"Error: No AMX Mouse ROM detected"
x��''"Do you wish to use an analogue joystick?If you do, you will still be able to usethe keyboard, although any other devicesplugged into the analogue port may      interfere with this software."
�$�'"Please select: (Y)es or (N)o"
�/� k$=�:��"yYnN",k$)>0:�"yY",k$)>0�?joyst=1
� �''"Loading main program..."
��"CAD2"
�	��ass
�?oswrch=&FFEE:chip=7:opamp=13:�pass=0�2�2:P%=&5200:[OPT pass
�EJMPdraw:JMPwhatover:JMPdelete:JMPgetlink:EQUDpinbase \ Jump table
�>.joyst EQUB0:.mouse EQUB0:EQUDrehair \ Input device select
Ҟ.label LDY#0:JSRgetpos:LDA&76:CLC:ADC#64:STA&76:LDA&77:ADC#0:STA&77:LDX#4:JSRicline:LDA#5:JSRoswrch:LDY#8:.dolab LDA(&72),Y:JSRoswrch:INY:TYA:�#3:BNEdolab
�tCPY#16:BEQendlab:LDA#10:JSRoswrch:LDA#8:JSRoswrch:JSRoswrch:JSRoswrch:JSRoswrch:JMPdolab:.endlab LDA#4:JMPoswrch
�.draw LDA#&10:STA&72:LDA#&48:STA&73:LDA&4800:.dloop BEQdrend:PHA:JSRdrawcomp:JSRlabel:LDA&72:CLC:ADC#16:STA&72:LDA&73:ADC#0:STA&73:PLA:SEC:SBC#1:JMPdloop
��.drend LDA#&F8:STA&72:LDA#&47:STA&73:LDA&47FC:STA&80:LDA&47FD:STA&81:.llop LDA&80:BNEnollnk:LDA&81:BEQlkend:.nollnk JSRdolink:LDA&72:SEC:SBC#4:STA&72:LDA&73:SBC#0:STA&73:LDA&80:SEC:SBC#1:STA&80:LDA&81:SBC#0:STA&81:JMPllop
�T.lkend RTS:.dolink LDY#0:JSRgetcoord:LDX#4:JSRicline:JSRgetcoord:LDX#5:JMPicline
�.getcoord LDA(&72),Y:STA&78:LDA#0:STA&79:ASL&78:ROL&79:ASL&78:ROL&79:ASL&78:ROL&79:ASL&78:ROL&79:LDA&79:CLC:ADC#&48:STA&79:TYA:PHA
�LDY#1:LDA(&78),Y:STA&74:INY:LDA(&78),Y:STA&75:INY:LDA(&78),Y:STA&76:INY:LDA(&78),Y:STA&77:LDY#0:LDA(&78),Y:JSRlinkic:ASLA:ASLA:STA&7A:PLA:TAY:INY:LDA(&72),Y:CLC:ADC&7A:TAX:LDAlinkpos,X:PHA
��#15:ASLA:ASLA:STA&7A:LDA&76:SEC:SBC&7A:STA&76:LDA&77:SBC#0:STA&77:PLA:LSRA:LSRA:�#&3C:CLC:ADC&74:STA&74:LDA&75:ADC#0:STA&75:INY:RTS
"u.getpos INY:LDA(&72),Y:STA&74:INY:LDA(&72),Y:STA&75:INY:LDA(&72),Y:STA&76:INY:LDA(&72),Y:STA&77:RTS:.ic JSRgetpos
,�LDX#4:JSRicline:LDA&74:CLC:ADC#&80:STA&74:LDA&75:ADC#0:STA&75:LDX#5:JSRicline:LDY#5:LDA(&72),Y:ASLA:ASLA:ASLA:STA&80:LDA#0:ROLA:STA&81:ASL&80:ROL&81:ASL&80:ROL&81
6�LDA&76:PHA:SEC:SBC&80:STA&76:LDA&77:PHA:SBC&81:STA&77:LDX#5:JSRicline:LDA&74:SEC:SBC#&80:STA&74:LDA&75:SBC#0:STA&75:LDX#5:JSRicline:PLA:STA&77:PLA:STA&76:LDX#5:JSRicline
@�LDA&74:CLC:ADC#&38:STA&74:LDA&75:ADC#0:STA&75:LDX#4:JSRicline:LDA&76:SEC:SBC#24:STA&76:LDA&77:SBC#0:STA&77:LDX#5:JSRicline:LDA&74:CLC:ADC#&10:STA&74:LDA&75:ADC#0:STA&75:JSRicline
J�LDA&76:CLC:ADC#24:STA&76:LDA&77:ADC#0:STA&77:JSRicline:LDA&74:SEC:SBC#&48:STA&74:LDA&75:SBC#0:STA&75:LDA&76:SEC:SBC#8:STA&76:LDA&77:SBC#0:STA&77:LDA(&72),Y:.pins PHA:JSRdrawpin:PLA:SEC:SBC#1:BNEpins:RTS
T�.drawpin LDX#4:JSRicline:LDA&74:SEC:SBC#&10:STA&74:LDA&75:SBC#0:STA&75:LDX#5:JSRicline:LDA&76:SEC:SBC#16:STA&76:LDA&77:SBC#0:STA&77:JSRicline:LDA&74:CLC:ADC#&10:STA&74:LDA&75:ADC#0:STA&75:JSRicline
^�LDA&74:CLC:ADC#&80:STA&74:LDA&75:ADC#0:STA&75:LDX#4:JSRicline:LDA&74:CLC:ADC#&10:STA&74:LDA&75:ADC#0:STA&75:LDX#5:JSRicline:LDA&76:CLC:ADC#16:STA&76:LDA&77:ADC#0:STA&77:JSRicline
h�LDA&74:SEC:SBC#&10:STA&74:LDA&75:SBC#0:STA&75:JSRicline:LDA&74:SEC:SBC#&80:STA&74:LDA&75:SBC#0:STA&75:LDA&76:SEC:SBC#&20:STA&76:LDA&77:SBC#0:STA&77:RTS
rn.icline LDA#25:JSRoswrch:TXA:JSRoswrch:LDA&74:JSRoswrch:LDA&75:JSRoswrch:LDA&76:JSRoswrch:LDA&77:JMPoswrch
|d.drawcomp LDY#0:LDA(&72),Y:CMP#chip:BNEnic:JMPic:.nic CMP#opamp:BNEnotoa:JSRnotoa:LDY#0:LDA#chip
��.notoa ASL A:ASL A:ASL A:ASL A:STA&78:LDA#0:ROLA:STA&79:LDA&78:CLC:ADC#(comps �256):STA&78:LDA&79:ADC#(comps �256):STA&79:JSRgetpos:LDY#0
��.drawline LDA(&78),Y:CMP#255:BEQendcomp:LDA#25:JSRoswrch:LDA#4:JSRoswrch:JSRplot:INY:LDA#25:JSRoswrch:LDA#5:JSRoswrch:JSRplot:INY:TYA:�#15:BNEdrawline:.endcomp RTS
��.plot LDA(&78),Y:LSRA:LSRA:�#60:CLC:ADC&74:PHP:JSRoswrch:PLP:LDA&75:ADC#0:JSRoswrch:LDA(&78),Y:�#15:ASLA:ASLA:STA&7A:LDA&76:SEC:SBC&7A:PHP:JSRoswrch:PLP:LDA&77:SBC#0:JMPoswrch
��.whatover LDA#0:STA&76:STA&77:LDA#&10:STA&74:LDA#&48:STA&75:LDA&4800:.cloop BEQchend:INC&76:PHA:JSRcheckcomp:LDA&74:CLC:ADC#16:STA&74:LDA&75:ADC#0:STA&75:PLA:SEC:SBC#1:JMPcloop:.chend RTS
��.checkcomp LDY#0:LDA(&74),Y:TAX:LDY#1:LDA&70:SEC:SBC(&74),Y:PHA:LDA&71:INY:SBC(&74),Y:BNEnohit:PLA:LSRA:LSRA:CMPxsize,X:BCSnohit2
��INY:LDA(&74),Y:SEC:SBC&72:PHA:INY:LDA(&74),Y:SBC&73:BNEnohit:PLA:LSRA:LSRA:CMPysize,X:BCSnohit2:LDA&76:STA&77:LDA&74:STA&78:LDA&75:STA&79:RTS:.nohit PLA:.nohit2 RTS
�u.delete LDY#16:LDA(&78),Y:LDY#0:STA(&78),Y:LDA&78:CLC:ADC#1:STA&78:LDA&79:ADC#0:STA&79:CMP#&50:BNEdelete:DEC&4800
̙LDA#&F8:STA&72:STA&74:LDA#&47:STA&73:STA&75:LDA&47FC:STA&80:LDA&47FD:STA&81:LDA#0:STA&82:STA&83:.ldel LDA&80:BNEcdel:LDA&81:BEQdellk:.cdel JSRchelink
֎LDA&72:SEC:SBC#4:STA&72:LDA&73:SBC#0:STA&73:LDA&80:SEC:SBC#1:STA&80:LDA&81:SBC#0:STA&81:JMPldel:.dellk LDA&82:STA&47FC:LDA&83:STA&47FD:RTS
��.chelink LDY#0:LDA(&72),Y:CMP&77:BEQcutlink:BCCnosubl:SBC#1:.nosubl STA(&74),Y:LDY#2:LDA(&72),Y:CMP&77:BEQcutlink:LDY#3:LDA(&72),Y:STA(&74),Y:LDY#1:LDA(&72),Y:STA(&74),Y:LDY#2:LDA(&72),Y:CMP&77:BCCnosubl2:SBC#1:.nosubl2 STA(&74),Y
�hLDA&74:SEC:SBC#4:STA&74:LDA&75:SBC#0:STA&75:LDA&82:CLC:ADC#1:STA&82:LDA&83:ADC#0:STA&83:.cutlink RTS
�.getlink LDY#0:LDA#(links �256):STA&72:LDA#(links �256):STA&73:LDX&70:.findlnk BEQgotlnk:.fwd LDA(&72),Y:PHA:LDA&72:CLC:ADC#1:STA&72
�=LDA&73:ADC#0:STA&73:PLA:BNEfwd:DEX:JMPfindlnk:.gotlnk RTS
Z.comps EQUW&0444:EQUW&4048:EQUW&7078:EQUW&74A4:EQUW&FFFF:EQUW&FFFF:EQUW&FFFF:EQUW&FFFF
SEQUW&0444:EQUW&4048:EQUW&7276:EQUW&8081:EQUW&8788:EQUW&74A4:EQUW&FFFF:EQUW&FFFF
SEQUW&0646:EQUW&404C:EQUW&6369:EQUW&6686:EQUW&FFFF:EQUW&FFFF:EQUW&FFFF:EQUW&FFFF
&SEQUW&0636:EQUW&303C:EQUW&5359:EQUW&7676:EQUW&9696:EQUW&B0BC:EQUW&D3D9:EQUW&D6F6
0SEQUW&0646:EQUW&404C:EQUW&40A6:EQUW&4CA6:EQUW&A6F6:EQUW&A0AC:EQUW&FFFF:EQUW&FFFF
:SEQUW&0646:EQUW&404C:EQUW&40A6:EQUW&4CA6:EQUW&A6F6:EQUW&A2AA:EQUW&C0A2:EQUW&8CAA
DSEQUW&4044:EQUW&0484:EQUW&1676:EQUW&2868:EQUW&FFFF:EQUW&FFFF:EQUW&FFFF:EQUW&FFFF
NbEQUW&0444:EQUW&0C4C:EQUW&404F:EQUW&40C8:EQUW&5FC8:EQUW&C8F8:EQUW&8084:EQUW&8C8F \ OpAmp Part I
XSEQUW&0424:EQUW&2440:EQUW&4064:EQUW&6480:EQUW&80A4:EQUW&A4C0:EQUW&C0E4:EQUW&E4F4
bSEQUW&0444:EQUW&0C4C:EQUW&404F:EQUW&4082:EQUW&82C7:EQUW&C88D:EQUW&8D4F:EQUW&C7F7
lSEQUW&0646:EQUW&404C:EQUW&40A6:EQUW&4CA6:EQUW&B5C6:EQUW&B7C6:EQUW&C6F6:EQUW&FFFF
vSEQUW&0464:EQUW&0C6C:EQUW&616E:EQUW&4082:EQUW&82C7:EQUW&C88D:EQUW&8D4F:EQUW&C7F7
�SEQUW&0020:EQUW&2022:EQUW&2202:EQUW&0200:EQUW&FFFF:EQUW&FFFF:EQUW&FFFF:EQUW&FFFF
�cEQUW&5979:EQUW&5676:EQUW&6567:EQUW&FFFF:EQUW&FFFF:EQUW&FFFF:EQUW&FFFF:EQUW&FFFF \ OpAmp Part II
�SEQUW&0424:EQUW&2028:EQUW&20E0:EQUW&28E8:EQUW&E0E8:EQUW&E4F4:EQUW&FFFF:EQUW&FFFF
�SEQUW&0424:EQUW&2028:EQUW&20E0:EQUW&28E8:EQUW&E0E8:EQUW&E4F4:EQUW&888F:EQUW&7B9B
�SEQUW&0444:EQUW&44C0:EQUW&C4F4:EQUW&FFFF:EQUW&FFFF:EQUW&FFFF:EQUW&FFFF:EQUW&FFFF
�SEQUW&0848:EQUW&424E:EQUW&46A0:EQUW&49AF:EQUW&7C79:EQUW&7C5C:EQUW&FFFF:EQUW&FFFF
�SEQUW&0848:EQUW&424E:EQUW&46A0:EQUW&49AF:EQUW&6B8B:EQUW&6B6D:EQUW&FFFF:EQUW&FFFF
�SEQUW&0848:EQUW&444C:EQUW&727E:EQUW&74A4:EQUW&A4A0:EQUW&7CAC:EQUW&ACAF:EQUW&FFFF
�8.moucur2 PLA:STA&76:PLA:STA&75:PLA:STA&74:JMPnostick
�]:P%=&A00:[OPTpass
�.links EQUS"Capactr Left    Right  ":EQUB0:EQUS"Cap (E) Cathode Anode  ":EQUB0:EQUS"Cell    Cathode Anode  ":EQUB0:EQUS"Battery Cathode Anode  ":EQUB0
�EQUS"Diode   Cathode Anode  ":EQUB0:EQUS"Zener   Cathode Anode  ":EQUB0:EQUS"Ground  Ground ":EQUB0:EQUS"IC     ":EQUB0:EQUS"Inductr Left    Right  ":EQUB0
��EQUS"AND     Input1  Input2  Output ":EQUB0:EQUS"NOT     Input   Output ":EQUB0:EQUS"OR Gate Input1  Input2  Output ":EQUB0:EQUS"Node    Node   ":EQUB0
�EQUS"OpAmp   V+      V-      Output  -Input  +Input ":EQUB0:EQUS"Resistr Left    Right  ":EQUB0:EQUS"Re(Var) Left    Centre  Right  ":EQUB0
�EQUS"Switch  Left    Right  ":EQUB0:EQUS"Tr(NPN) Base    Colectr Emitter":EQUB0:EQUS"Tr(PNP) Base    Colectr Emitter":EQUB0:EQUS"Tr(FET) Gate    Drain   Source ":EQUB0
D.linkpos EQUD&FFFFA404:EQUD&FFFF04A4:EQUD&FFFF0686:EQUD&FFFF06F6
 ;EQUD&FFFF06F6:EQUD&FFFF06F6:EQUD&FFFFFF40:EQUD&FFFFFFFF
*;EQUD&FFFFF404:EQUD&FFF70C04:EQUD&FFFFF606:EQUD&FFF70C04
4;EQUD&FFFFFF11:EQUD&0CF88F80:EQUD&FFFFF404:EQUD&FFF48F04
>;EQUD&FFFFF404:EQUD&FFAFA008:EQUD&FFAFA008:EQUD&FFACA008
HM.pinbase EQUB3:EQUB4:EQUB7:EQUB8:EQUB9:EQUB10:EQUB12:EQUB14:EQUB16:EQUB20
R�.linkic CMP#chip:BEQeitheric:RTS:.eitheric PLA:PLA:PLA:TAY:INY:TYA:PHA:LDA(&72),Y:STA&7A:LDY#5:LDA(&78),Y:CMP&7A:BCCrightic:DEC&7A:.leftic LDA&74:SEC:SBC#16:STA&74:LDA&75:SBC#0:STA&75
\�LDA&76:SEC:SBC#16:STA&76:LDA&77:SBC#0:STA&77:LDX&7A:.icdl CPX#0:BEQgoticpin:LDA&76:SEC:SBC#32:STA&76:LDA&77:SBC#0:STA&77:DEX:JMPicdl:.goticpin PLA:TAY:INY:RTS
f[.rightic ASLA:SEC:SBC&7A:STA&7A:LDA&74:CLC:ADC#&A0:STA&74:LDA&75:ADC#0:STA&75:JMPleftic
p�.xsize EQUB11:EQUB11:EQUB9:EQUB16:EQUB16:EQUB16:EQUB9:EQUB32:EQUB16:EQUB16:EQUB16:EQUB16:EQUB3:EQUB16:EQUB16:EQUB16:EQUB16:EQUB11:EQUB11:EQUB11
z�.ysize EQUB9:EQUB9:EQUB13:EQUB13:EQUB13:EQUB13:EQUB9:EQUB24:EQUB5:EQUB16:EQUB13:EQUB16:EQUB3:EQUB16:EQUB9:EQUB16:EQUB5:EQUB16:EQUB16:EQUB16
�]:P%=&5000:[OPTpass
�UJMPcursor:JMPhairpin:JMPbox:JSRcopy:JSRbox:JSRcursor:.box JSRcopy:LDX#4:JSRicline
��LDA&76:SEC:SBC#64:STA&76:LDA&77:SBC#0:STA&77:LDX#5:JSRicline:LDA&74:CLC:ADC#64:STA&74:LDA&75:ADC#0:STA&75:LDX#5:JSRicline:LDA&76:CLC:ADC#64:STA&76:LDA&77:ADC#0:STA&77:LDX#5:JSRicline
�`LDA&74:SEC:SBC#64:STA&74:LDA&75:SBC#0:STA&75:LDX#5:JSRicline:.curend LDA#0:STA&74:STA&75:RTS
�U.moucur LDA&74:PHA:LDA&75:PHA:LDA&76:PHA:LDA#64:LDX#&70:LDY#0:JSR&FFF1:JMPmoucur2
��.cursor JSRcopy:LDAmouse:BNEmoucur:JMPkeycur:.curback LDA&74:CMP&70:BNErehair:LDA&76:CMP&72:BNErehair:JMPcurend:.rehair NOP:JSRhairpin:JSRhairpin:JMPcurend
��.hairpin LDA&76:SEC:SBC#20:STA&76:LDA&77:SBC#0:STA&77:LDX#4:JSRicline:LDA&76:CLC:ADC#40:STA&76:LDA&77:ADC#0:STA&77:LDX#5:JSRicline
ʲLDA&76:SEC:SBC#20:STA&76:LDA&77:SBC#0:STA&77:LDA&74:SEC:SBC#20:STA&74:LDA&75:SBC#0:STA&75:LDX#4:JSRicline:LDA&74:CLC:ADC#40:STA&74:LDA&75:ADC#0:STA&75:LDX#5:JSRicline:JMPcopy
ԉ.keycur LDA#4:STA&78:LDX#&FF:JSRkeybyte:BCCnof:LDA#40:STA&78:.nof LDX#&9E:JSRkeybyte:BCCnokl:LDA&70:SBC&78:STA&70:LDA&71:SBC#0:STA&71
��.nokl LDX#&BD:JSRkeybyte:BCCnokr:LDA&70:CLC:ADC&78:STA&70:LDA&71:ADC#0:STA&71:.nokr LDX#&B7:JSRkeybyte:BCCnoku:LDA&72:CLC:ADC&78:STA&72:LDA&73:ADC#0:STA&73:.noku LDX#&97:JSRkeybyte:BCCnokd:LDA&72:SEC:SBC&78:STA&72:LDA&73:SBC#0:STA&73
�.nokd LDAjoyst:BEQnostick:JSRjoycur:.nostick LDA&71:CMP#&FF:BNEnobot:LDA#0:STA&70:STA&71:.nobot LDA&73:CMP#&FF:BNEnolef:LDA#0:STA&72:STA&73
�.nolef LDA&71:CMP#5:BNEnorig:LDA#0:STA&70:.norig LDA&73:CMP#3:BCCnotop:LDA&72:CMP#115:BCCnotop:LDA#115:STA&72:.notop JMPcurback
�g.keybyte LDY#255:LDA#&81:JMP&FFF4:.copy LDA&70:STA&74:LDA&71:STA&75:LDA&72:STA&76:LDA&73:STA&77:RTS
]:P%=&100:[OPTpass
�.joycur LDX#1:LDA#&80:JSR&FFF4:CPY#94:BCSnorigj:LDA&70:ADC#4:STA&70:LDA&71:ADC#0:STA&71:.norigj CPY#39:BCSnorigjt:LDA&70:ADC#36:STA&70:LDA&71:ADC#0:STA&71
�.norigjt CPY#156:BCCnolefj:LDA&70:SBC#4:STA&70:LDA&71:SBC#0:STA&71:.nolefj CPY#215:BCCnolefjt:LDA&70:SBC#36:STA&70:LDA&71:SBC#0:STA&71:.nolefjt LDX#2:LDA#&80:JSR&FFF4:CPY#94:BCSnoupj
$�LDA&72:SEC:SBC#4:STA&72:LDA&73:SBC#0:STA&73:.noupj CPY#39:BCSnoupjt:LDA&72:SEC:SBC#36:STA&72:LDA&73:SBC#0:STA&73:.noupjt CPY#156:BCCnodowj:LDA&72:CLC:ADC#4:STA&72:LDA&73:ADC#0:STA&73
.X.nodowj CPY#215:BCCnodowjt:LDA&72:CLC:ADC#36:STA&72:LDA&73:ADC#0:STA&73:.nodowjt RTS
8	]:�:�
�

00000000  0d 00 0a 1b f4 20 41 64  76 61 6e 63 65 64 20 43  |..... Advanced C|
00000010  41 44 20 2d 20 4c 6f 61  64 65 72 0d 00 14 1b f4  |AD - Loader.....|
00000020  20 28 43 29 20 44 6f 6d  69 6e 69 63 20 46 6f 72  | (C) Dominic For|
00000030  64 20 31 39 39 38 0d 00  1e 56 eb 34 3a f1 22 49  |d 1998...V.4:."I|
00000040  6e 69 74 69 61 6c 69 73  69 6e 67 2e 2e 2e 22 3a  |nitialising...":|
00000050  ef 32 33 2c 31 2c 30 3b  30 3b 30 3b 30 3b 32 33  |.23,1,0;0;0;0;23|
00000060  2c 32 35 35 2c 26 43 30  2c 26 46 30 2c 26 46 43  |,255,&C0,&F0,&FC|
00000070  2c 26 46 46 2c 26 46 46  2c 26 46 43 2c 26 46 30  |,&FF,&FF,&FC,&F0|
00000080  2c 26 43 30 3a d3 3d 26  35 32 30 30 0d 00 28 0f  |,&C0:.=&5200..(.|
00000090  f2 61 73 73 3a 2a 46 58  34 2c 31 0d 00 32 4c f1  |.ass:*FX4,1..2L.|
000000a0  8a 30 2c 30 29 89 28 38  29 3b 22 57 65 6c 63 6f  |.0,0).(8);"Welco|
000000b0  6d 65 20 74 6f 20 41 64  76 61 6e 63 65 64 20 43  |me to Advanced C|
000000c0  41 44 22 27 89 28 36 29  3b 22 57 72 69 74 74 65  |AD"'.(6);"Writte|
000000d0  6e 20 62 79 20 44 6f 6d  69 6e 69 63 20 46 6f 72  |n by Dominic For|
000000e0  64 20 31 39 39 38 22 0d  00 3c bf f1 27 27 22 44  |d 1998"..<..''"D|
000000f0  6f 20 79 6f 75 20 77 69  73 68 20 74 6f 20 75 73  |o you wish to us|
00000100  65 20 61 6e 20 41 4d 58  20 6d 6f 75 73 65 20 77  |e an AMX mouse w|
00000110  69 74 68 20 20 20 20 74  68 69 73 20 73 6f 66 74  |ith    this soft|
00000120  77 61 72 65 3f 20 49 66  20 79 6f 75 20 64 6f 2c  |ware? If you do,|
00000130  20 79 6f 75 20 77 69 6c  6c 20 62 65 20 20 20 75  | you will be   u|
00000140  6e 61 62 6c 65 20 74 6f  20 75 73 65 20 6f 74 68  |nable to use oth|
00000150  65 72 20 69 6e 70 75 74  20 64 65 76 69 63 65 73  |er input devices|
00000160  20 77 69 74 68 20 20 69  74 2e 20 44 6f 20 6e 6f  | with  it. Do no|
00000170  74 20 61 6e 73 77 65 72  20 79 65 73 20 69 66 20  |t answer yes if |
00000180  79 6f 75 20 64 6f 20 6e  6f 74 20 68 61 76 65 74  |you do not havet|
00000190  68 65 20 41 4d 58 20 52  4f 4d 20 69 6e 73 74 61  |he AMX ROM insta|
000001a0  6c 6c 65 64 2e 22 0d 00  46 2c f1 27 22 50 6c 65  |lled."..F,.'"Ple|
000001b0  61 73 65 20 73 65 6c 65  63 74 3a 20 28 4d 29 6f  |ase select: (M)o|
000001c0  75 73 65 20 6f 72 20 28  4b 29 65 79 62 6f 61 72  |use or (K)eyboar|
000001d0  64 22 0d 00 50 2b f5 20  6b 24 3d be 3a fd a7 22  |d"..P+. k$=.:.."|
000001e0  6d 4d 6b 4b 22 2c 6b 24  29 3e 30 3a e7 a7 22 6d  |mMkK",k$)>0:.."m|
000001f0  4d 22 2c 6b 24 29 3d 30  8c 8d 44 78 40 0d 00 5a  |M",k$)=0..Dx@..Z|
00000200  0b ee 85 e5 8d 44 6e 40  0d 00 64 25 53 43 4c 49  |.....Dn@..d%SCLI|
00000210  22 4d 4f 55 53 45 20 4f  4e 22 3a ee 85 87 3a 3f  |"MOUSE ON":...:?|
00000220  6d 6f 75 73 65 3d 31 3a  e5 8d 74 56 40 0d 00 6e  |mouse=1:..tV@..n|
00000230  2d ee 85 87 3a f1 27 27  22 45 72 72 6f 72 3a 20  |-...:.''"Error: |
00000240  4e 6f 20 41 4d 58 20 4d  6f 75 73 65 20 52 4f 4d  |No AMX Mouse ROM|
00000250  20 64 65 74 65 63 74 65  64 22 0d 00 78 c6 f1 27  | detected"..x..'|
00000260  27 22 44 6f 20 79 6f 75  20 77 69 73 68 20 74 6f  |'"Do you wish to|
00000270  20 75 73 65 20 61 6e 20  61 6e 61 6c 6f 67 75 65  | use an analogue|
00000280  20 6a 6f 79 73 74 69 63  6b 3f 49 66 20 79 6f 75  | joystick?If you|
00000290  20 64 6f 2c 20 79 6f 75  20 77 69 6c 6c 20 73 74  | do, you will st|
000002a0  69 6c 6c 20 62 65 20 61  62 6c 65 20 74 6f 20 75  |ill be able to u|
000002b0  73 65 74 68 65 20 6b 65  79 62 6f 61 72 64 2c 20  |sethe keyboard, |
000002c0  61 6c 74 68 6f 75 67 68  20 61 6e 79 20 6f 74 68  |although any oth|
000002d0  65 72 20 64 65 76 69 63  65 73 70 6c 75 67 67 65  |er devicesplugge|
000002e0  64 20 69 6e 74 6f 20 74  68 65 20 61 6e 61 6c 6f  |d into the analo|
000002f0  67 75 65 20 70 6f 72 74  20 6d 61 79 20 20 20 20  |gue port may    |
00000300  20 20 69 6e 74 65 72 66  65 72 65 20 77 69 74 68  |  interfere with|
00000310  20 74 68 69 73 20 73 6f  66 74 77 61 72 65 2e 22  | this software."|
00000320  0d 00 82 24 f1 27 22 50  6c 65 61 73 65 20 73 65  |...$.'"Please se|
00000330  6c 65 63 74 3a 20 28 59  29 65 73 20 6f 72 20 28  |lect: (Y)es or (|
00000340  4e 29 6f 22 0d 00 8c 2f  f5 20 6b 24 3d be 3a fd  |N)o".../. k$=.:.|
00000350  a7 22 79 59 6e 4e 22 2c  6b 24 29 3e 30 3a e7 a7  |."yYnN",k$)>0:..|
00000360  22 79 59 22 2c 6b 24 29  3e 30 8c 3f 6a 6f 79 73  |"yY",k$)>0.?joys|
00000370  74 3d 31 0d 00 96 20 f1  27 27 22 4c 6f 61 64 69  |t=1... .''"Loadi|
00000380  6e 67 20 6d 61 69 6e 20  70 72 6f 67 72 61 6d 2e  |ng main program.|
00000390  2e 2e 22 0d 00 a0 0b d7  22 43 41 44 32 22 0d 00  |.."....."CAD2"..|
000003a0  aa 09 dd f2 61 73 73 0d  00 b4 3f 6f 73 77 72 63  |....ass...?oswrc|
000003b0  68 3d 26 46 46 45 45 3a  63 68 69 70 3d 37 3a 6f  |h=&FFEE:chip=7:o|
000003c0  70 61 6d 70 3d 31 33 3a  e3 70 61 73 73 3d 30 b8  |pamp=13:.pass=0.|
000003d0  32 88 32 3a 50 25 3d 26  35 32 30 30 3a 5b 4f 50  |2.2:P%=&5200:[OP|
000003e0  54 20 70 61 73 73 0d 00  be 45 4a 4d 50 64 72 61  |T pass...EJMPdra|
000003f0  77 3a 4a 4d 50 77 68 61  74 6f 76 65 72 3a 4a 4d  |w:JMPwhatover:JM|
00000400  50 64 65 6c 65 74 65 3a  4a 4d 50 67 65 74 6c 69  |Pdelete:JMPgetli|
00000410  6e 6b 3a 45 51 55 44 70  69 6e 62 61 73 65 20 5c  |nk:EQUDpinbase \|
00000420  20 4a 75 6d 70 20 74 61  62 6c 65 0d 00 c8 3e 2e  | Jump table...>.|
00000430  6a 6f 79 73 74 20 45 51  55 42 30 3a 2e 6d 6f 75  |joyst EQUB0:.mou|
00000440  73 65 20 45 51 55 42 30  3a 45 51 55 44 72 65 68  |se EQUB0:EQUDreh|
00000450  61 69 72 20 5c 20 49 6e  70 75 74 20 64 65 76 69  |air \ Input devi|
00000460  63 65 20 73 65 6c 65 63  74 0d 00 d2 9e 2e 6c 61  |ce select.....la|
00000470  62 65 6c 20 4c 44 59 23  30 3a 4a 53 52 67 65 74  |bel LDY#0:JSRget|
00000480  70 6f 73 3a 4c 44 41 26  37 36 3a 43 4c 43 3a 41  |pos:LDA&76:CLC:A|
00000490  44 43 23 36 34 3a 53 54  41 26 37 36 3a 4c 44 41  |DC#64:STA&76:LDA|
000004a0  26 37 37 3a 41 44 43 23  30 3a 53 54 41 26 37 37  |&77:ADC#0:STA&77|
000004b0  3a 4c 44 58 23 34 3a 4a  53 52 69 63 6c 69 6e 65  |:LDX#4:JSRicline|
000004c0  3a 4c 44 41 23 35 3a 4a  53 52 6f 73 77 72 63 68  |:LDA#5:JSRoswrch|
000004d0  3a 4c 44 59 23 38 3a 2e  64 6f 6c 61 62 20 4c 44  |:LDY#8:.dolab LD|
000004e0  41 28 26 37 32 29 2c 59  3a 4a 53 52 6f 73 77 72  |A(&72),Y:JSRoswr|
000004f0  63 68 3a 49 4e 59 3a 54  59 41 3a 80 23 33 3a 42  |ch:INY:TYA:.#3:B|
00000500  4e 45 64 6f 6c 61 62 0d  00 dc 74 43 50 59 23 31  |NEdolab...tCPY#1|
00000510  36 3a 42 45 51 65 6e 64  6c 61 62 3a 4c 44 41 23  |6:BEQendlab:LDA#|
00000520  31 30 3a 4a 53 52 6f 73  77 72 63 68 3a 4c 44 41  |10:JSRoswrch:LDA|
00000530  23 38 3a 4a 53 52 6f 73  77 72 63 68 3a 4a 53 52  |#8:JSRoswrch:JSR|
00000540  6f 73 77 72 63 68 3a 4a  53 52 6f 73 77 72 63 68  |oswrch:JSRoswrch|
00000550  3a 4a 53 52 6f 73 77 72  63 68 3a 4a 4d 50 64 6f  |:JSRoswrch:JMPdo|
00000560  6c 61 62 3a 2e 65 6e 64  6c 61 62 20 4c 44 41 23  |lab:.endlab LDA#|
00000570  34 3a 4a 4d 50 6f 73 77  72 63 68 0d 00 e6 9d 2e  |4:JMPoswrch.....|
00000580  64 72 61 77 20 4c 44 41  23 26 31 30 3a 53 54 41  |draw LDA#&10:STA|
00000590  26 37 32 3a 4c 44 41 23  26 34 38 3a 53 54 41 26  |&72:LDA#&48:STA&|
000005a0  37 33 3a 4c 44 41 26 34  38 30 30 3a 2e 64 6c 6f  |73:LDA&4800:.dlo|
000005b0  6f 70 20 42 45 51 64 72  65 6e 64 3a 50 48 41 3a  |op BEQdrend:PHA:|
000005c0  4a 53 52 64 72 61 77 63  6f 6d 70 3a 4a 53 52 6c  |JSRdrawcomp:JSRl|
000005d0  61 62 65 6c 3a 4c 44 41  26 37 32 3a 43 4c 43 3a  |abel:LDA&72:CLC:|
000005e0  41 44 43 23 31 36 3a 53  54 41 26 37 32 3a 4c 44  |ADC#16:STA&72:LD|
000005f0  41 26 37 33 3a 41 44 43  23 30 3a 53 54 41 26 37  |A&73:ADC#0:STA&7|
00000600  33 3a 50 4c 41 3a 53 45  43 3a 53 42 43 23 31 3a  |3:PLA:SEC:SBC#1:|
00000610  4a 4d 50 64 6c 6f 6f 70  0d 00 f0 e1 2e 64 72 65  |JMPdloop.....dre|
00000620  6e 64 20 4c 44 41 23 26  46 38 3a 53 54 41 26 37  |nd LDA#&F8:STA&7|
00000630  32 3a 4c 44 41 23 26 34  37 3a 53 54 41 26 37 33  |2:LDA#&47:STA&73|
00000640  3a 4c 44 41 26 34 37 46  43 3a 53 54 41 26 38 30  |:LDA&47FC:STA&80|
00000650  3a 4c 44 41 26 34 37 46  44 3a 53 54 41 26 38 31  |:LDA&47FD:STA&81|
00000660  3a 2e 6c 6c 6f 70 20 4c  44 41 26 38 30 3a 42 4e  |:.llop LDA&80:BN|
00000670  45 6e 6f 6c 6c 6e 6b 3a  4c 44 41 26 38 31 3a 42  |Enollnk:LDA&81:B|
00000680  45 51 6c 6b 65 6e 64 3a  2e 6e 6f 6c 6c 6e 6b 20  |EQlkend:.nollnk |
00000690  4a 53 52 64 6f 6c 69 6e  6b 3a 4c 44 41 26 37 32  |JSRdolink:LDA&72|
000006a0  3a 53 45 43 3a 53 42 43  23 34 3a 53 54 41 26 37  |:SEC:SBC#4:STA&7|
000006b0  32 3a 4c 44 41 26 37 33  3a 53 42 43 23 30 3a 53  |2:LDA&73:SBC#0:S|
000006c0  54 41 26 37 33 3a 4c 44  41 26 38 30 3a 53 45 43  |TA&73:LDA&80:SEC|
000006d0  3a 53 42 43 23 31 3a 53  54 41 26 38 30 3a 4c 44  |:SBC#1:STA&80:LD|
000006e0  41 26 38 31 3a 53 42 43  23 30 3a 53 54 41 26 38  |A&81:SBC#0:STA&8|
000006f0  31 3a 4a 4d 50 6c 6c 6f  70 0d 00 fa 54 2e 6c 6b  |1:JMPllop...T.lk|
00000700  65 6e 64 20 52 54 53 3a  2e 64 6f 6c 69 6e 6b 20  |end RTS:.dolink |
00000710  4c 44 59 23 30 3a 4a 53  52 67 65 74 63 6f 6f 72  |LDY#0:JSRgetcoor|
00000720  64 3a 4c 44 58 23 34 3a  4a 53 52 69 63 6c 69 6e  |d:LDX#4:JSRiclin|
00000730  65 3a 4a 53 52 67 65 74  63 6f 6f 72 64 3a 4c 44  |e:JSRgetcoord:LD|
00000740  58 23 35 3a 4a 4d 50 69  63 6c 69 6e 65 0d 01 04  |X#5:JMPicline...|
00000750  86 2e 67 65 74 63 6f 6f  72 64 20 4c 44 41 28 26  |..getcoord LDA(&|
00000760  37 32 29 2c 59 3a 53 54  41 26 37 38 3a 4c 44 41  |72),Y:STA&78:LDA|
00000770  23 30 3a 53 54 41 26 37  39 3a 41 53 4c 26 37 38  |#0:STA&79:ASL&78|
00000780  3a 52 4f 4c 26 37 39 3a  41 53 4c 26 37 38 3a 52  |:ROL&79:ASL&78:R|
00000790  4f 4c 26 37 39 3a 41 53  4c 26 37 38 3a 52 4f 4c  |OL&79:ASL&78:ROL|
000007a0  26 37 39 3a 41 53 4c 26  37 38 3a 52 4f 4c 26 37  |&79:ASL&78:ROL&7|
000007b0  39 3a 4c 44 41 26 37 39  3a 43 4c 43 3a 41 44 43  |9:LDA&79:CLC:ADC|
000007c0  23 26 34 38 3a 53 54 41  26 37 39 3a 54 59 41 3a  |#&48:STA&79:TYA:|
000007d0  50 48 41 0d 01 0e c0 4c  44 59 23 31 3a 4c 44 41  |PHA....LDY#1:LDA|
000007e0  28 26 37 38 29 2c 59 3a  53 54 41 26 37 34 3a 49  |(&78),Y:STA&74:I|
000007f0  4e 59 3a 4c 44 41 28 26  37 38 29 2c 59 3a 53 54  |NY:LDA(&78),Y:ST|
00000800  41 26 37 35 3a 49 4e 59  3a 4c 44 41 28 26 37 38  |A&75:INY:LDA(&78|
00000810  29 2c 59 3a 53 54 41 26  37 36 3a 49 4e 59 3a 4c  |),Y:STA&76:INY:L|
00000820  44 41 28 26 37 38 29 2c  59 3a 53 54 41 26 37 37  |DA(&78),Y:STA&77|
00000830  3a 4c 44 59 23 30 3a 4c  44 41 28 26 37 38 29 2c  |:LDY#0:LDA(&78),|
00000840  59 3a 4a 53 52 6c 69 6e  6b 69 63 3a 41 53 4c 41  |Y:JSRlinkic:ASLA|
00000850  3a 41 53 4c 41 3a 53 54  41 26 37 41 3a 50 4c 41  |:ASLA:STA&7A:PLA|
00000860  3a 54 41 59 3a 49 4e 59  3a 4c 44 41 28 26 37 32  |:TAY:INY:LDA(&72|
00000870  29 2c 59 3a 43 4c 43 3a  41 44 43 26 37 41 3a 54  |),Y:CLC:ADC&7A:T|
00000880  41 58 3a 4c 44 41 6c 69  6e 6b 70 6f 73 2c 58 3a  |AX:LDAlinkpos,X:|
00000890  50 48 41 0d 01 18 88 80  23 31 35 3a 41 53 4c 41  |PHA.....#15:ASLA|
000008a0  3a 41 53 4c 41 3a 53 54  41 26 37 41 3a 4c 44 41  |:ASLA:STA&7A:LDA|
000008b0  26 37 36 3a 53 45 43 3a  53 42 43 26 37 41 3a 53  |&76:SEC:SBC&7A:S|
000008c0  54 41 26 37 36 3a 4c 44  41 26 37 37 3a 53 42 43  |TA&76:LDA&77:SBC|
000008d0  23 30 3a 53 54 41 26 37  37 3a 50 4c 41 3a 4c 53  |#0:STA&77:PLA:LS|
000008e0  52 41 3a 4c 53 52 41 3a  80 23 26 33 43 3a 43 4c  |RA:LSRA:.#&3C:CL|
000008f0  43 3a 41 44 43 26 37 34  3a 53 54 41 26 37 34 3a  |C:ADC&74:STA&74:|
00000900  4c 44 41 26 37 35 3a 41  44 43 23 30 3a 53 54 41  |LDA&75:ADC#0:STA|
00000910  26 37 35 3a 49 4e 59 3a  52 54 53 0d 01 22 75 2e  |&75:INY:RTS.."u.|
00000920  67 65 74 70 6f 73 20 49  4e 59 3a 4c 44 41 28 26  |getpos INY:LDA(&|
00000930  37 32 29 2c 59 3a 53 54  41 26 37 34 3a 49 4e 59  |72),Y:STA&74:INY|
00000940  3a 4c 44 41 28 26 37 32  29 2c 59 3a 53 54 41 26  |:LDA(&72),Y:STA&|
00000950  37 35 3a 49 4e 59 3a 4c  44 41 28 26 37 32 29 2c  |75:INY:LDA(&72),|
00000960  59 3a 53 54 41 26 37 36  3a 49 4e 59 3a 4c 44 41  |Y:STA&76:INY:LDA|
00000970  28 26 37 32 29 2c 59 3a  53 54 41 26 37 37 3a 52  |(&72),Y:STA&77:R|
00000980  54 53 3a 2e 69 63 20 4a  53 52 67 65 74 70 6f 73  |TS:.ic JSRgetpos|
00000990  0d 01 2c a6 4c 44 58 23  34 3a 4a 53 52 69 63 6c  |..,.LDX#4:JSRicl|
000009a0  69 6e 65 3a 4c 44 41 26  37 34 3a 43 4c 43 3a 41  |ine:LDA&74:CLC:A|
000009b0  44 43 23 26 38 30 3a 53  54 41 26 37 34 3a 4c 44  |DC#&80:STA&74:LD|
000009c0  41 26 37 35 3a 41 44 43  23 30 3a 53 54 41 26 37  |A&75:ADC#0:STA&7|
000009d0  35 3a 4c 44 58 23 35 3a  4a 53 52 69 63 6c 69 6e  |5:LDX#5:JSRiclin|
000009e0  65 3a 4c 44 59 23 35 3a  4c 44 41 28 26 37 32 29  |e:LDY#5:LDA(&72)|
000009f0  2c 59 3a 41 53 4c 41 3a  41 53 4c 41 3a 41 53 4c  |,Y:ASLA:ASLA:ASL|
00000a00  41 3a 53 54 41 26 38 30  3a 4c 44 41 23 30 3a 52  |A:STA&80:LDA#0:R|
00000a10  4f 4c 41 3a 53 54 41 26  38 31 3a 41 53 4c 26 38  |OLA:STA&81:ASL&8|
00000a20  30 3a 52 4f 4c 26 38 31  3a 41 53 4c 26 38 30 3a  |0:ROL&81:ASL&80:|
00000a30  52 4f 4c 26 38 31 0d 01  36 ad 4c 44 41 26 37 36  |ROL&81..6.LDA&76|
00000a40  3a 50 48 41 3a 53 45 43  3a 53 42 43 26 38 30 3a  |:PHA:SEC:SBC&80:|
00000a50  53 54 41 26 37 36 3a 4c  44 41 26 37 37 3a 50 48  |STA&76:LDA&77:PH|
00000a60  41 3a 53 42 43 26 38 31  3a 53 54 41 26 37 37 3a  |A:SBC&81:STA&77:|
00000a70  4c 44 58 23 35 3a 4a 53  52 69 63 6c 69 6e 65 3a  |LDX#5:JSRicline:|
00000a80  4c 44 41 26 37 34 3a 53  45 43 3a 53 42 43 23 26  |LDA&74:SEC:SBC#&|
00000a90  38 30 3a 53 54 41 26 37  34 3a 4c 44 41 26 37 35  |80:STA&74:LDA&75|
00000aa0  3a 53 42 43 23 30 3a 53  54 41 26 37 35 3a 4c 44  |:SBC#0:STA&75:LD|
00000ab0  58 23 35 3a 4a 53 52 69  63 6c 69 6e 65 3a 50 4c  |X#5:JSRicline:PL|
00000ac0  41 3a 53 54 41 26 37 37  3a 50 4c 41 3a 53 54 41  |A:STA&77:PLA:STA|
00000ad0  26 37 36 3a 4c 44 58 23  35 3a 4a 53 52 69 63 6c  |&76:LDX#5:JSRicl|
00000ae0  69 6e 65 0d 01 40 b6 4c  44 41 26 37 34 3a 43 4c  |ine..@.LDA&74:CL|
00000af0  43 3a 41 44 43 23 26 33  38 3a 53 54 41 26 37 34  |C:ADC#&38:STA&74|
00000b00  3a 4c 44 41 26 37 35 3a  41 44 43 23 30 3a 53 54  |:LDA&75:ADC#0:ST|
00000b10  41 26 37 35 3a 4c 44 58  23 34 3a 4a 53 52 69 63  |A&75:LDX#4:JSRic|
00000b20  6c 69 6e 65 3a 4c 44 41  26 37 36 3a 53 45 43 3a  |line:LDA&76:SEC:|
00000b30  53 42 43 23 32 34 3a 53  54 41 26 37 36 3a 4c 44  |SBC#24:STA&76:LD|
00000b40  41 26 37 37 3a 53 42 43  23 30 3a 53 54 41 26 37  |A&77:SBC#0:STA&7|
00000b50  37 3a 4c 44 58 23 35 3a  4a 53 52 69 63 6c 69 6e  |7:LDX#5:JSRiclin|
00000b60  65 3a 4c 44 41 26 37 34  3a 43 4c 43 3a 41 44 43  |e:LDA&74:CLC:ADC|
00000b70  23 26 31 30 3a 53 54 41  26 37 34 3a 4c 44 41 26  |#&10:STA&74:LDA&|
00000b80  37 35 3a 41 44 43 23 30  3a 53 54 41 26 37 35 3a  |75:ADC#0:STA&75:|
00000b90  4a 53 52 69 63 6c 69 6e  65 0d 01 4a ce 4c 44 41  |JSRicline..J.LDA|
00000ba0  26 37 36 3a 43 4c 43 3a  41 44 43 23 32 34 3a 53  |&76:CLC:ADC#24:S|
00000bb0  54 41 26 37 36 3a 4c 44  41 26 37 37 3a 41 44 43  |TA&76:LDA&77:ADC|
00000bc0  23 30 3a 53 54 41 26 37  37 3a 4a 53 52 69 63 6c  |#0:STA&77:JSRicl|
00000bd0  69 6e 65 3a 4c 44 41 26  37 34 3a 53 45 43 3a 53  |ine:LDA&74:SEC:S|
00000be0  42 43 23 26 34 38 3a 53  54 41 26 37 34 3a 4c 44  |BC#&48:STA&74:LD|
00000bf0  41 26 37 35 3a 53 42 43  23 30 3a 53 54 41 26 37  |A&75:SBC#0:STA&7|
00000c00  35 3a 4c 44 41 26 37 36  3a 53 45 43 3a 53 42 43  |5:LDA&76:SEC:SBC|
00000c10  23 38 3a 53 54 41 26 37  36 3a 4c 44 41 26 37 37  |#8:STA&76:LDA&77|
00000c20  3a 53 42 43 23 30 3a 53  54 41 26 37 37 3a 4c 44  |:SBC#0:STA&77:LD|
00000c30  41 28 26 37 32 29 2c 59  3a 2e 70 69 6e 73 20 50  |A(&72),Y:.pins P|
00000c40  48 41 3a 4a 53 52 64 72  61 77 70 69 6e 3a 50 4c  |HA:JSRdrawpin:PL|
00000c50  41 3a 53 45 43 3a 53 42  43 23 31 3a 42 4e 45 70  |A:SEC:SBC#1:BNEp|
00000c60  69 6e 73 3a 52 54 53 0d  01 54 c9 2e 64 72 61 77  |ins:RTS..T..draw|
00000c70  70 69 6e 20 4c 44 58 23  34 3a 4a 53 52 69 63 6c  |pin LDX#4:JSRicl|
00000c80  69 6e 65 3a 4c 44 41 26  37 34 3a 53 45 43 3a 53  |ine:LDA&74:SEC:S|
00000c90  42 43 23 26 31 30 3a 53  54 41 26 37 34 3a 4c 44  |BC#&10:STA&74:LD|
00000ca0  41 26 37 35 3a 53 42 43  23 30 3a 53 54 41 26 37  |A&75:SBC#0:STA&7|
00000cb0  35 3a 4c 44 58 23 35 3a  4a 53 52 69 63 6c 69 6e  |5:LDX#5:JSRiclin|
00000cc0  65 3a 4c 44 41 26 37 36  3a 53 45 43 3a 53 42 43  |e:LDA&76:SEC:SBC|
00000cd0  23 31 36 3a 53 54 41 26  37 36 3a 4c 44 41 26 37  |#16:STA&76:LDA&7|
00000ce0  37 3a 53 42 43 23 30 3a  53 54 41 26 37 37 3a 4a  |7:SBC#0:STA&77:J|
00000cf0  53 52 69 63 6c 69 6e 65  3a 4c 44 41 26 37 34 3a  |SRicline:LDA&74:|
00000d00  43 4c 43 3a 41 44 43 23  26 31 30 3a 53 54 41 26  |CLC:ADC#&10:STA&|
00000d10  37 34 3a 4c 44 41 26 37  35 3a 41 44 43 23 30 3a  |74:LDA&75:ADC#0:|
00000d20  53 54 41 26 37 35 3a 4a  53 52 69 63 6c 69 6e 65  |STA&75:JSRicline|
00000d30  0d 01 5e b6 4c 44 41 26  37 34 3a 43 4c 43 3a 41  |..^.LDA&74:CLC:A|
00000d40  44 43 23 26 38 30 3a 53  54 41 26 37 34 3a 4c 44  |DC#&80:STA&74:LD|
00000d50  41 26 37 35 3a 41 44 43  23 30 3a 53 54 41 26 37  |A&75:ADC#0:STA&7|
00000d60  35 3a 4c 44 58 23 34 3a  4a 53 52 69 63 6c 69 6e  |5:LDX#4:JSRiclin|
00000d70  65 3a 4c 44 41 26 37 34  3a 43 4c 43 3a 41 44 43  |e:LDA&74:CLC:ADC|
00000d80  23 26 31 30 3a 53 54 41  26 37 34 3a 4c 44 41 26  |#&10:STA&74:LDA&|
00000d90  37 35 3a 41 44 43 23 30  3a 53 54 41 26 37 35 3a  |75:ADC#0:STA&75:|
00000da0  4c 44 58 23 35 3a 4a 53  52 69 63 6c 69 6e 65 3a  |LDX#5:JSRicline:|
00000db0  4c 44 41 26 37 36 3a 43  4c 43 3a 41 44 43 23 31  |LDA&76:CLC:ADC#1|
00000dc0  36 3a 53 54 41 26 37 36  3a 4c 44 41 26 37 37 3a  |6:STA&76:LDA&77:|
00000dd0  41 44 43 23 30 3a 53 54  41 26 37 37 3a 4a 53 52  |ADC#0:STA&77:JSR|
00000de0  69 63 6c 69 6e 65 0d 01  68 9b 4c 44 41 26 37 34  |icline..h.LDA&74|
00000df0  3a 53 45 43 3a 53 42 43  23 26 31 30 3a 53 54 41  |:SEC:SBC#&10:STA|
00000e00  26 37 34 3a 4c 44 41 26  37 35 3a 53 42 43 23 30  |&74:LDA&75:SBC#0|
00000e10  3a 53 54 41 26 37 35 3a  4a 53 52 69 63 6c 69 6e  |:STA&75:JSRiclin|
00000e20  65 3a 4c 44 41 26 37 34  3a 53 45 43 3a 53 42 43  |e:LDA&74:SEC:SBC|
00000e30  23 26 38 30 3a 53 54 41  26 37 34 3a 4c 44 41 26  |#&80:STA&74:LDA&|
00000e40  37 35 3a 53 42 43 23 30  3a 53 54 41 26 37 35 3a  |75:SBC#0:STA&75:|
00000e50  4c 44 41 26 37 36 3a 53  45 43 3a 53 42 43 23 26  |LDA&76:SEC:SBC#&|
00000e60  32 30 3a 53 54 41 26 37  36 3a 4c 44 41 26 37 37  |20:STA&76:LDA&77|
00000e70  3a 53 42 43 23 30 3a 53  54 41 26 37 37 3a 52 54  |:SBC#0:STA&77:RT|
00000e80  53 0d 01 72 6e 2e 69 63  6c 69 6e 65 20 4c 44 41  |S..rn.icline LDA|
00000e90  23 32 35 3a 4a 53 52 6f  73 77 72 63 68 3a 54 58  |#25:JSRoswrch:TX|
00000ea0  41 3a 4a 53 52 6f 73 77  72 63 68 3a 4c 44 41 26  |A:JSRoswrch:LDA&|
00000eb0  37 34 3a 4a 53 52 6f 73  77 72 63 68 3a 4c 44 41  |74:JSRoswrch:LDA|
00000ec0  26 37 35 3a 4a 53 52 6f  73 77 72 63 68 3a 4c 44  |&75:JSRoswrch:LD|
00000ed0  41 26 37 36 3a 4a 53 52  6f 73 77 72 63 68 3a 4c  |A&76:JSRoswrch:L|
00000ee0  44 41 26 37 37 3a 4a 4d  50 6f 73 77 72 63 68 0d  |DA&77:JMPoswrch.|
00000ef0  01 7c 64 2e 64 72 61 77  63 6f 6d 70 20 4c 44 59  |.|d.drawcomp LDY|
00000f00  23 30 3a 4c 44 41 28 26  37 32 29 2c 59 3a 43 4d  |#0:LDA(&72),Y:CM|
00000f10  50 23 63 68 69 70 3a 42  4e 45 6e 69 63 3a 4a 4d  |P#chip:BNEnic:JM|
00000f20  50 69 63 3a 2e 6e 69 63  20 43 4d 50 23 6f 70 61  |Pic:.nic CMP#opa|
00000f30  6d 70 3a 42 4e 45 6e 6f  74 6f 61 3a 4a 53 52 6e  |mp:BNEnotoa:JSRn|
00000f40  6f 74 6f 61 3a 4c 44 59  23 30 3a 4c 44 41 23 63  |otoa:LDY#0:LDA#c|
00000f50  68 69 70 0d 01 86 8d 2e  6e 6f 74 6f 61 20 41 53  |hip.....notoa AS|
00000f60  4c 20 41 3a 41 53 4c 20  41 3a 41 53 4c 20 41 3a  |L A:ASL A:ASL A:|
00000f70  41 53 4c 20 41 3a 53 54  41 26 37 38 3a 4c 44 41  |ASL A:STA&78:LDA|
00000f80  23 30 3a 52 4f 4c 41 3a  53 54 41 26 37 39 3a 4c  |#0:ROLA:STA&79:L|
00000f90  44 41 26 37 38 3a 43 4c  43 3a 41 44 43 23 28 63  |DA&78:CLC:ADC#(c|
00000fa0  6f 6d 70 73 20 83 32 35  36 29 3a 53 54 41 26 37  |omps .256):STA&7|
00000fb0  38 3a 4c 44 41 26 37 39  3a 41 44 43 23 28 63 6f  |8:LDA&79:ADC#(co|
00000fc0  6d 70 73 20 81 32 35 36  29 3a 53 54 41 26 37 39  |mps .256):STA&79|
00000fd0  3a 4a 53 52 67 65 74 70  6f 73 3a 4c 44 59 23 30  |:JSRgetpos:LDY#0|
00000fe0  0d 01 90 a7 2e 64 72 61  77 6c 69 6e 65 20 4c 44  |.....drawline LD|
00000ff0  41 28 26 37 38 29 2c 59  3a 43 4d 50 23 32 35 35  |A(&78),Y:CMP#255|
00001000  3a 42 45 51 65 6e 64 63  6f 6d 70 3a 4c 44 41 23  |:BEQendcomp:LDA#|
00001010  32 35 3a 4a 53 52 6f 73  77 72 63 68 3a 4c 44 41  |25:JSRoswrch:LDA|
00001020  23 34 3a 4a 53 52 6f 73  77 72 63 68 3a 4a 53 52  |#4:JSRoswrch:JSR|
00001030  70 6c 6f 74 3a 49 4e 59  3a 4c 44 41 23 32 35 3a  |plot:INY:LDA#25:|
00001040  4a 53 52 6f 73 77 72 63  68 3a 4c 44 41 23 35 3a  |JSRoswrch:LDA#5:|
00001050  4a 53 52 6f 73 77 72 63  68 3a 4a 53 52 70 6c 6f  |JSRoswrch:JSRplo|
00001060  74 3a 49 4e 59 3a 54 59  41 3a 80 23 31 35 3a 42  |t:INY:TYA:.#15:B|
00001070  4e 45 64 72 61 77 6c 69  6e 65 3a 2e 65 6e 64 63  |NEdrawline:.endc|
00001080  6f 6d 70 20 52 54 53 0d  01 9a b3 2e 70 6c 6f 74  |omp RTS.....plot|
00001090  20 4c 44 41 28 26 37 38  29 2c 59 3a 4c 53 52 41  | LDA(&78),Y:LSRA|
000010a0  3a 4c 53 52 41 3a 80 23  36 30 3a 43 4c 43 3a 41  |:LSRA:.#60:CLC:A|
000010b0  44 43 26 37 34 3a 50 48  50 3a 4a 53 52 6f 73 77  |DC&74:PHP:JSRosw|
000010c0  72 63 68 3a 50 4c 50 3a  4c 44 41 26 37 35 3a 41  |rch:PLP:LDA&75:A|
000010d0  44 43 23 30 3a 4a 53 52  6f 73 77 72 63 68 3a 4c  |DC#0:JSRoswrch:L|
000010e0  44 41 28 26 37 38 29 2c  59 3a 80 23 31 35 3a 41  |DA(&78),Y:.#15:A|
000010f0  53 4c 41 3a 41 53 4c 41  3a 53 54 41 26 37 41 3a  |SLA:ASLA:STA&7A:|
00001100  4c 44 41 26 37 36 3a 53  45 43 3a 53 42 43 26 37  |LDA&76:SEC:SBC&7|
00001110  41 3a 50 48 50 3a 4a 53  52 6f 73 77 72 63 68 3a  |A:PHP:JSRoswrch:|
00001120  50 4c 50 3a 4c 44 41 26  37 37 3a 53 42 43 23 30  |PLP:LDA&77:SBC#0|
00001130  3a 4a 4d 50 6f 73 77 72  63 68 0d 01 a4 bf 2e 77  |:JMPoswrch.....w|
00001140  68 61 74 6f 76 65 72 20  4c 44 41 23 30 3a 53 54  |hatover LDA#0:ST|
00001150  41 26 37 36 3a 53 54 41  26 37 37 3a 4c 44 41 23  |A&76:STA&77:LDA#|
00001160  26 31 30 3a 53 54 41 26  37 34 3a 4c 44 41 23 26  |&10:STA&74:LDA#&|
00001170  34 38 3a 53 54 41 26 37  35 3a 4c 44 41 26 34 38  |48:STA&75:LDA&48|
00001180  30 30 3a 2e 63 6c 6f 6f  70 20 42 45 51 63 68 65  |00:.cloop BEQche|
00001190  6e 64 3a 49 4e 43 26 37  36 3a 50 48 41 3a 4a 53  |nd:INC&76:PHA:JS|
000011a0  52 63 68 65 63 6b 63 6f  6d 70 3a 4c 44 41 26 37  |Rcheckcomp:LDA&7|
000011b0  34 3a 43 4c 43 3a 41 44  43 23 31 36 3a 53 54 41  |4:CLC:ADC#16:STA|
000011c0  26 37 34 3a 4c 44 41 26  37 35 3a 41 44 43 23 30  |&74:LDA&75:ADC#0|
000011d0  3a 53 54 41 26 37 35 3a  50 4c 41 3a 53 45 43 3a  |:STA&75:PLA:SEC:|
000011e0  53 42 43 23 31 3a 4a 4d  50 63 6c 6f 6f 70 3a 2e  |SBC#1:JMPcloop:.|
000011f0  63 68 65 6e 64 20 52 54  53 0d 01 ae 85 2e 63 68  |chend RTS.....ch|
00001200  65 63 6b 63 6f 6d 70 20  4c 44 59 23 30 3a 4c 44  |eckcomp LDY#0:LD|
00001210  41 28 26 37 34 29 2c 59  3a 54 41 58 3a 4c 44 59  |A(&74),Y:TAX:LDY|
00001220  23 31 3a 4c 44 41 26 37  30 3a 53 45 43 3a 53 42  |#1:LDA&70:SEC:SB|
00001230  43 28 26 37 34 29 2c 59  3a 50 48 41 3a 4c 44 41  |C(&74),Y:PHA:LDA|
00001240  26 37 31 3a 49 4e 59 3a  53 42 43 28 26 37 34 29  |&71:INY:SBC(&74)|
00001250  2c 59 3a 42 4e 45 6e 6f  68 69 74 3a 50 4c 41 3a  |,Y:BNEnohit:PLA:|
00001260  4c 53 52 41 3a 4c 53 52  41 3a 43 4d 50 78 73 69  |LSRA:LSRA:CMPxsi|
00001270  7a 65 2c 58 3a 42 43 53  6e 6f 68 69 74 32 0d 01  |ze,X:BCSnohit2..|
00001280  b8 a8 49 4e 59 3a 4c 44  41 28 26 37 34 29 2c 59  |..INY:LDA(&74),Y|
00001290  3a 53 45 43 3a 53 42 43  26 37 32 3a 50 48 41 3a  |:SEC:SBC&72:PHA:|
000012a0  49 4e 59 3a 4c 44 41 28  26 37 34 29 2c 59 3a 53  |INY:LDA(&74),Y:S|
000012b0  42 43 26 37 33 3a 42 4e  45 6e 6f 68 69 74 3a 50  |BC&73:BNEnohit:P|
000012c0  4c 41 3a 4c 53 52 41 3a  4c 53 52 41 3a 43 4d 50  |LA:LSRA:LSRA:CMP|
000012d0  79 73 69 7a 65 2c 58 3a  42 43 53 6e 6f 68 69 74  |ysize,X:BCSnohit|
000012e0  32 3a 4c 44 41 26 37 36  3a 53 54 41 26 37 37 3a  |2:LDA&76:STA&77:|
000012f0  4c 44 41 26 37 34 3a 53  54 41 26 37 38 3a 4c 44  |LDA&74:STA&78:LD|
00001300  41 26 37 35 3a 53 54 41  26 37 39 3a 52 54 53 3a  |A&75:STA&79:RTS:|
00001310  2e 6e 6f 68 69 74 20 50  4c 41 3a 2e 6e 6f 68 69  |.nohit PLA:.nohi|
00001320  74 32 20 52 54 53 0d 01  c2 75 2e 64 65 6c 65 74  |t2 RTS...u.delet|
00001330  65 20 4c 44 59 23 31 36  3a 4c 44 41 28 26 37 38  |e LDY#16:LDA(&78|
00001340  29 2c 59 3a 4c 44 59 23  30 3a 53 54 41 28 26 37  |),Y:LDY#0:STA(&7|
00001350  38 29 2c 59 3a 4c 44 41  26 37 38 3a 43 4c 43 3a  |8),Y:LDA&78:CLC:|
00001360  41 44 43 23 31 3a 53 54  41 26 37 38 3a 4c 44 41  |ADC#1:STA&78:LDA|
00001370  26 37 39 3a 41 44 43 23  30 3a 53 54 41 26 37 39  |&79:ADC#0:STA&79|
00001380  3a 43 4d 50 23 26 35 30  3a 42 4e 45 64 65 6c 65  |:CMP#&50:BNEdele|
00001390  74 65 3a 44 45 43 26 34  38 30 30 0d 01 cc 99 4c  |te:DEC&4800....L|
000013a0  44 41 23 26 46 38 3a 53  54 41 26 37 32 3a 53 54  |DA#&F8:STA&72:ST|
000013b0  41 26 37 34 3a 4c 44 41  23 26 34 37 3a 53 54 41  |A&74:LDA#&47:STA|
000013c0  26 37 33 3a 53 54 41 26  37 35 3a 4c 44 41 26 34  |&73:STA&75:LDA&4|
000013d0  37 46 43 3a 53 54 41 26  38 30 3a 4c 44 41 26 34  |7FC:STA&80:LDA&4|
000013e0  37 46 44 3a 53 54 41 26  38 31 3a 4c 44 41 23 30  |7FD:STA&81:LDA#0|
000013f0  3a 53 54 41 26 38 32 3a  53 54 41 26 38 33 3a 2e  |:STA&82:STA&83:.|
00001400  6c 64 65 6c 20 4c 44 41  26 38 30 3a 42 4e 45 63  |ldel LDA&80:BNEc|
00001410  64 65 6c 3a 4c 44 41 26  38 31 3a 42 45 51 64 65  |del:LDA&81:BEQde|
00001420  6c 6c 6b 3a 2e 63 64 65  6c 20 4a 53 52 63 68 65  |llk:.cdel JSRche|
00001430  6c 69 6e 6b 0d 01 d6 8e  4c 44 41 26 37 32 3a 53  |link....LDA&72:S|
00001440  45 43 3a 53 42 43 23 34  3a 53 54 41 26 37 32 3a  |EC:SBC#4:STA&72:|
00001450  4c 44 41 26 37 33 3a 53  42 43 23 30 3a 53 54 41  |LDA&73:SBC#0:STA|
00001460  26 37 33 3a 4c 44 41 26  38 30 3a 53 45 43 3a 53  |&73:LDA&80:SEC:S|
00001470  42 43 23 31 3a 53 54 41  26 38 30 3a 4c 44 41 26  |BC#1:STA&80:LDA&|
00001480  38 31 3a 53 42 43 23 30  3a 53 54 41 26 38 31 3a  |81:SBC#0:STA&81:|
00001490  4a 4d 50 6c 64 65 6c 3a  2e 64 65 6c 6c 6b 20 4c  |JMPldel:.dellk L|
000014a0  44 41 26 38 32 3a 53 54  41 26 34 37 46 43 3a 4c  |DA&82:STA&47FC:L|
000014b0  44 41 26 38 33 3a 53 54  41 26 34 37 46 44 3a 52  |DA&83:STA&47FD:R|
000014c0  54 53 0d 01 e0 ea 2e 63  68 65 6c 69 6e 6b 20 4c  |TS.....chelink L|
000014d0  44 59 23 30 3a 4c 44 41  28 26 37 32 29 2c 59 3a  |DY#0:LDA(&72),Y:|
000014e0  43 4d 50 26 37 37 3a 42  45 51 63 75 74 6c 69 6e  |CMP&77:BEQcutlin|
000014f0  6b 3a 42 43 43 6e 6f 73  75 62 6c 3a 53 42 43 23  |k:BCCnosubl:SBC#|
00001500  31 3a 2e 6e 6f 73 75 62  6c 20 53 54 41 28 26 37  |1:.nosubl STA(&7|
00001510  34 29 2c 59 3a 4c 44 59  23 32 3a 4c 44 41 28 26  |4),Y:LDY#2:LDA(&|
00001520  37 32 29 2c 59 3a 43 4d  50 26 37 37 3a 42 45 51  |72),Y:CMP&77:BEQ|
00001530  63 75 74 6c 69 6e 6b 3a  4c 44 59 23 33 3a 4c 44  |cutlink:LDY#3:LD|
00001540  41 28 26 37 32 29 2c 59  3a 53 54 41 28 26 37 34  |A(&72),Y:STA(&74|
00001550  29 2c 59 3a 4c 44 59 23  31 3a 4c 44 41 28 26 37  |),Y:LDY#1:LDA(&7|
00001560  32 29 2c 59 3a 53 54 41  28 26 37 34 29 2c 59 3a  |2),Y:STA(&74),Y:|
00001570  4c 44 59 23 32 3a 4c 44  41 28 26 37 32 29 2c 59  |LDY#2:LDA(&72),Y|
00001580  3a 43 4d 50 26 37 37 3a  42 43 43 6e 6f 73 75 62  |:CMP&77:BCCnosub|
00001590  6c 32 3a 53 42 43 23 31  3a 2e 6e 6f 73 75 62 6c  |l2:SBC#1:.nosubl|
000015a0  32 20 53 54 41 28 26 37  34 29 2c 59 0d 01 ea 68  |2 STA(&74),Y...h|
000015b0  4c 44 41 26 37 34 3a 53  45 43 3a 53 42 43 23 34  |LDA&74:SEC:SBC#4|
000015c0  3a 53 54 41 26 37 34 3a  4c 44 41 26 37 35 3a 53  |:STA&74:LDA&75:S|
000015d0  42 43 23 30 3a 53 54 41  26 37 35 3a 4c 44 41 26  |BC#0:STA&75:LDA&|
000015e0  38 32 3a 43 4c 43 3a 41  44 43 23 31 3a 53 54 41  |82:CLC:ADC#1:STA|
000015f0  26 38 32 3a 4c 44 41 26  38 33 3a 41 44 43 23 30  |&82:LDA&83:ADC#0|
00001600  3a 53 54 41 26 38 33 3a  2e 63 75 74 6c 69 6e 6b  |:STA&83:.cutlink|
00001610  20 52 54 53 0d 01 f4 88  2e 67 65 74 6c 69 6e 6b  | RTS.....getlink|
00001620  20 4c 44 59 23 30 3a 4c  44 41 23 28 6c 69 6e 6b  | LDY#0:LDA#(link|
00001630  73 20 83 32 35 36 29 3a  53 54 41 26 37 32 3a 4c  |s .256):STA&72:L|
00001640  44 41 23 28 6c 69 6e 6b  73 20 81 32 35 36 29 3a  |DA#(links .256):|
00001650  53 54 41 26 37 33 3a 4c  44 58 26 37 30 3a 2e 66  |STA&73:LDX&70:.f|
00001660  69 6e 64 6c 6e 6b 20 42  45 51 67 6f 74 6c 6e 6b  |indlnk BEQgotlnk|
00001670  3a 2e 66 77 64 20 4c 44  41 28 26 37 32 29 2c 59  |:.fwd LDA(&72),Y|
00001680  3a 50 48 41 3a 4c 44 41  26 37 32 3a 43 4c 43 3a  |:PHA:LDA&72:CLC:|
00001690  41 44 43 23 31 3a 53 54  41 26 37 32 0d 01 fe 3d  |ADC#1:STA&72...=|
000016a0  4c 44 41 26 37 33 3a 41  44 43 23 30 3a 53 54 41  |LDA&73:ADC#0:STA|
000016b0  26 37 33 3a 50 4c 41 3a  42 4e 45 66 77 64 3a 44  |&73:PLA:BNEfwd:D|
000016c0  45 58 3a 4a 4d 50 66 69  6e 64 6c 6e 6b 3a 2e 67  |EX:JMPfindlnk:.g|
000016d0  6f 74 6c 6e 6b 20 52 54  53 0d 02 08 5a 2e 63 6f  |otlnk RTS...Z.co|
000016e0  6d 70 73 20 45 51 55 57  26 30 34 34 34 3a 45 51  |mps EQUW&0444:EQ|
000016f0  55 57 26 34 30 34 38 3a  45 51 55 57 26 37 30 37  |UW&4048:EQUW&707|
00001700  38 3a 45 51 55 57 26 37  34 41 34 3a 45 51 55 57  |8:EQUW&74A4:EQUW|
00001710  26 46 46 46 46 3a 45 51  55 57 26 46 46 46 46 3a  |&FFFF:EQUW&FFFF:|
00001720  45 51 55 57 26 46 46 46  46 3a 45 51 55 57 26 46  |EQUW&FFFF:EQUW&F|
00001730  46 46 46 0d 02 12 53 45  51 55 57 26 30 34 34 34  |FFF...SEQUW&0444|
00001740  3a 45 51 55 57 26 34 30  34 38 3a 45 51 55 57 26  |:EQUW&4048:EQUW&|
00001750  37 32 37 36 3a 45 51 55  57 26 38 30 38 31 3a 45  |7276:EQUW&8081:E|
00001760  51 55 57 26 38 37 38 38  3a 45 51 55 57 26 37 34  |QUW&8788:EQUW&74|
00001770  41 34 3a 45 51 55 57 26  46 46 46 46 3a 45 51 55  |A4:EQUW&FFFF:EQU|
00001780  57 26 46 46 46 46 0d 02  1c 53 45 51 55 57 26 30  |W&FFFF...SEQUW&0|
00001790  36 34 36 3a 45 51 55 57  26 34 30 34 43 3a 45 51  |646:EQUW&404C:EQ|
000017a0  55 57 26 36 33 36 39 3a  45 51 55 57 26 36 36 38  |UW&6369:EQUW&668|
000017b0  36 3a 45 51 55 57 26 46  46 46 46 3a 45 51 55 57  |6:EQUW&FFFF:EQUW|
000017c0  26 46 46 46 46 3a 45 51  55 57 26 46 46 46 46 3a  |&FFFF:EQUW&FFFF:|
000017d0  45 51 55 57 26 46 46 46  46 0d 02 26 53 45 51 55  |EQUW&FFFF..&SEQU|
000017e0  57 26 30 36 33 36 3a 45  51 55 57 26 33 30 33 43  |W&0636:EQUW&303C|
000017f0  3a 45 51 55 57 26 35 33  35 39 3a 45 51 55 57 26  |:EQUW&5359:EQUW&|
00001800  37 36 37 36 3a 45 51 55  57 26 39 36 39 36 3a 45  |7676:EQUW&9696:E|
00001810  51 55 57 26 42 30 42 43  3a 45 51 55 57 26 44 33  |QUW&B0BC:EQUW&D3|
00001820  44 39 3a 45 51 55 57 26  44 36 46 36 0d 02 30 53  |D9:EQUW&D6F6..0S|
00001830  45 51 55 57 26 30 36 34  36 3a 45 51 55 57 26 34  |EQUW&0646:EQUW&4|
00001840  30 34 43 3a 45 51 55 57  26 34 30 41 36 3a 45 51  |04C:EQUW&40A6:EQ|
00001850  55 57 26 34 43 41 36 3a  45 51 55 57 26 41 36 46  |UW&4CA6:EQUW&A6F|
00001860  36 3a 45 51 55 57 26 41  30 41 43 3a 45 51 55 57  |6:EQUW&A0AC:EQUW|
00001870  26 46 46 46 46 3a 45 51  55 57 26 46 46 46 46 0d  |&FFFF:EQUW&FFFF.|
00001880  02 3a 53 45 51 55 57 26  30 36 34 36 3a 45 51 55  |.:SEQUW&0646:EQU|
00001890  57 26 34 30 34 43 3a 45  51 55 57 26 34 30 41 36  |W&404C:EQUW&40A6|
000018a0  3a 45 51 55 57 26 34 43  41 36 3a 45 51 55 57 26  |:EQUW&4CA6:EQUW&|
000018b0  41 36 46 36 3a 45 51 55  57 26 41 32 41 41 3a 45  |A6F6:EQUW&A2AA:E|
000018c0  51 55 57 26 43 30 41 32  3a 45 51 55 57 26 38 43  |QUW&C0A2:EQUW&8C|
000018d0  41 41 0d 02 44 53 45 51  55 57 26 34 30 34 34 3a  |AA..DSEQUW&4044:|
000018e0  45 51 55 57 26 30 34 38  34 3a 45 51 55 57 26 31  |EQUW&0484:EQUW&1|
000018f0  36 37 36 3a 45 51 55 57  26 32 38 36 38 3a 45 51  |676:EQUW&2868:EQ|
00001900  55 57 26 46 46 46 46 3a  45 51 55 57 26 46 46 46  |UW&FFFF:EQUW&FFF|
00001910  46 3a 45 51 55 57 26 46  46 46 46 3a 45 51 55 57  |F:EQUW&FFFF:EQUW|
00001920  26 46 46 46 46 0d 02 4e  62 45 51 55 57 26 30 34  |&FFFF..NbEQUW&04|
00001930  34 34 3a 45 51 55 57 26  30 43 34 43 3a 45 51 55  |44:EQUW&0C4C:EQU|
00001940  57 26 34 30 34 46 3a 45  51 55 57 26 34 30 43 38  |W&404F:EQUW&40C8|
00001950  3a 45 51 55 57 26 35 46  43 38 3a 45 51 55 57 26  |:EQUW&5FC8:EQUW&|
00001960  43 38 46 38 3a 45 51 55  57 26 38 30 38 34 3a 45  |C8F8:EQUW&8084:E|
00001970  51 55 57 26 38 43 38 46  20 5c 20 4f 70 41 6d 70  |QUW&8C8F \ OpAmp|
00001980  20 50 61 72 74 20 49 0d  02 58 53 45 51 55 57 26  | Part I..XSEQUW&|
00001990  30 34 32 34 3a 45 51 55  57 26 32 34 34 30 3a 45  |0424:EQUW&2440:E|
000019a0  51 55 57 26 34 30 36 34  3a 45 51 55 57 26 36 34  |QUW&4064:EQUW&64|
000019b0  38 30 3a 45 51 55 57 26  38 30 41 34 3a 45 51 55  |80:EQUW&80A4:EQU|
000019c0  57 26 41 34 43 30 3a 45  51 55 57 26 43 30 45 34  |W&A4C0:EQUW&C0E4|
000019d0  3a 45 51 55 57 26 45 34  46 34 0d 02 62 53 45 51  |:EQUW&E4F4..bSEQ|
000019e0  55 57 26 30 34 34 34 3a  45 51 55 57 26 30 43 34  |UW&0444:EQUW&0C4|
000019f0  43 3a 45 51 55 57 26 34  30 34 46 3a 45 51 55 57  |C:EQUW&404F:EQUW|
00001a00  26 34 30 38 32 3a 45 51  55 57 26 38 32 43 37 3a  |&4082:EQUW&82C7:|
00001a10  45 51 55 57 26 43 38 38  44 3a 45 51 55 57 26 38  |EQUW&C88D:EQUW&8|
00001a20  44 34 46 3a 45 51 55 57  26 43 37 46 37 0d 02 6c  |D4F:EQUW&C7F7..l|
00001a30  53 45 51 55 57 26 30 36  34 36 3a 45 51 55 57 26  |SEQUW&0646:EQUW&|
00001a40  34 30 34 43 3a 45 51 55  57 26 34 30 41 36 3a 45  |404C:EQUW&40A6:E|
00001a50  51 55 57 26 34 43 41 36  3a 45 51 55 57 26 42 35  |QUW&4CA6:EQUW&B5|
00001a60  43 36 3a 45 51 55 57 26  42 37 43 36 3a 45 51 55  |C6:EQUW&B7C6:EQU|
00001a70  57 26 43 36 46 36 3a 45  51 55 57 26 46 46 46 46  |W&C6F6:EQUW&FFFF|
00001a80  0d 02 76 53 45 51 55 57  26 30 34 36 34 3a 45 51  |..vSEQUW&0464:EQ|
00001a90  55 57 26 30 43 36 43 3a  45 51 55 57 26 36 31 36  |UW&0C6C:EQUW&616|
00001aa0  45 3a 45 51 55 57 26 34  30 38 32 3a 45 51 55 57  |E:EQUW&4082:EQUW|
00001ab0  26 38 32 43 37 3a 45 51  55 57 26 43 38 38 44 3a  |&82C7:EQUW&C88D:|
00001ac0  45 51 55 57 26 38 44 34  46 3a 45 51 55 57 26 43  |EQUW&8D4F:EQUW&C|
00001ad0  37 46 37 0d 02 80 53 45  51 55 57 26 30 30 32 30  |7F7...SEQUW&0020|
00001ae0  3a 45 51 55 57 26 32 30  32 32 3a 45 51 55 57 26  |:EQUW&2022:EQUW&|
00001af0  32 32 30 32 3a 45 51 55  57 26 30 32 30 30 3a 45  |2202:EQUW&0200:E|
00001b00  51 55 57 26 46 46 46 46  3a 45 51 55 57 26 46 46  |QUW&FFFF:EQUW&FF|
00001b10  46 46 3a 45 51 55 57 26  46 46 46 46 3a 45 51 55  |FF:EQUW&FFFF:EQU|
00001b20  57 26 46 46 46 46 0d 02  8a 63 45 51 55 57 26 35  |W&FFFF...cEQUW&5|
00001b30  39 37 39 3a 45 51 55 57  26 35 36 37 36 3a 45 51  |979:EQUW&5676:EQ|
00001b40  55 57 26 36 35 36 37 3a  45 51 55 57 26 46 46 46  |UW&6567:EQUW&FFF|
00001b50  46 3a 45 51 55 57 26 46  46 46 46 3a 45 51 55 57  |F:EQUW&FFFF:EQUW|
00001b60  26 46 46 46 46 3a 45 51  55 57 26 46 46 46 46 3a  |&FFFF:EQUW&FFFF:|
00001b70  45 51 55 57 26 46 46 46  46 20 5c 20 4f 70 41 6d  |EQUW&FFFF \ OpAm|
00001b80  70 20 50 61 72 74 20 49  49 0d 02 94 53 45 51 55  |p Part II...SEQU|
00001b90  57 26 30 34 32 34 3a 45  51 55 57 26 32 30 32 38  |W&0424:EQUW&2028|
00001ba0  3a 45 51 55 57 26 32 30  45 30 3a 45 51 55 57 26  |:EQUW&20E0:EQUW&|
00001bb0  32 38 45 38 3a 45 51 55  57 26 45 30 45 38 3a 45  |28E8:EQUW&E0E8:E|
00001bc0  51 55 57 26 45 34 46 34  3a 45 51 55 57 26 46 46  |QUW&E4F4:EQUW&FF|
00001bd0  46 46 3a 45 51 55 57 26  46 46 46 46 0d 02 9e 53  |FF:EQUW&FFFF...S|
00001be0  45 51 55 57 26 30 34 32  34 3a 45 51 55 57 26 32  |EQUW&0424:EQUW&2|
00001bf0  30 32 38 3a 45 51 55 57  26 32 30 45 30 3a 45 51  |028:EQUW&20E0:EQ|
00001c00  55 57 26 32 38 45 38 3a  45 51 55 57 26 45 30 45  |UW&28E8:EQUW&E0E|
00001c10  38 3a 45 51 55 57 26 45  34 46 34 3a 45 51 55 57  |8:EQUW&E4F4:EQUW|
00001c20  26 38 38 38 46 3a 45 51  55 57 26 37 42 39 42 0d  |&888F:EQUW&7B9B.|
00001c30  02 a8 53 45 51 55 57 26  30 34 34 34 3a 45 51 55  |..SEQUW&0444:EQU|
00001c40  57 26 34 34 43 30 3a 45  51 55 57 26 43 34 46 34  |W&44C0:EQUW&C4F4|
00001c50  3a 45 51 55 57 26 46 46  46 46 3a 45 51 55 57 26  |:EQUW&FFFF:EQUW&|
00001c60  46 46 46 46 3a 45 51 55  57 26 46 46 46 46 3a 45  |FFFF:EQUW&FFFF:E|
00001c70  51 55 57 26 46 46 46 46  3a 45 51 55 57 26 46 46  |QUW&FFFF:EQUW&FF|
00001c80  46 46 0d 02 b2 53 45 51  55 57 26 30 38 34 38 3a  |FF...SEQUW&0848:|
00001c90  45 51 55 57 26 34 32 34  45 3a 45 51 55 57 26 34  |EQUW&424E:EQUW&4|
00001ca0  36 41 30 3a 45 51 55 57  26 34 39 41 46 3a 45 51  |6A0:EQUW&49AF:EQ|
00001cb0  55 57 26 37 43 37 39 3a  45 51 55 57 26 37 43 35  |UW&7C79:EQUW&7C5|
00001cc0  43 3a 45 51 55 57 26 46  46 46 46 3a 45 51 55 57  |C:EQUW&FFFF:EQUW|
00001cd0  26 46 46 46 46 0d 02 bc  53 45 51 55 57 26 30 38  |&FFFF...SEQUW&08|
00001ce0  34 38 3a 45 51 55 57 26  34 32 34 45 3a 45 51 55  |48:EQUW&424E:EQU|
00001cf0  57 26 34 36 41 30 3a 45  51 55 57 26 34 39 41 46  |W&46A0:EQUW&49AF|
00001d00  3a 45 51 55 57 26 36 42  38 42 3a 45 51 55 57 26  |:EQUW&6B8B:EQUW&|
00001d10  36 42 36 44 3a 45 51 55  57 26 46 46 46 46 3a 45  |6B6D:EQUW&FFFF:E|
00001d20  51 55 57 26 46 46 46 46  0d 02 c6 53 45 51 55 57  |QUW&FFFF...SEQUW|
00001d30  26 30 38 34 38 3a 45 51  55 57 26 34 34 34 43 3a  |&0848:EQUW&444C:|
00001d40  45 51 55 57 26 37 32 37  45 3a 45 51 55 57 26 37  |EQUW&727E:EQUW&7|
00001d50  34 41 34 3a 45 51 55 57  26 41 34 41 30 3a 45 51  |4A4:EQUW&A4A0:EQ|
00001d60  55 57 26 37 43 41 43 3a  45 51 55 57 26 41 43 41  |UW&7CAC:EQUW&ACA|
00001d70  46 3a 45 51 55 57 26 46  46 46 46 0d 02 d0 38 2e  |F:EQUW&FFFF...8.|
00001d80  6d 6f 75 63 75 72 32 20  50 4c 41 3a 53 54 41 26  |moucur2 PLA:STA&|
00001d90  37 36 3a 50 4c 41 3a 53  54 41 26 37 35 3a 50 4c  |76:PLA:STA&75:PL|
00001da0  41 3a 53 54 41 26 37 34  3a 4a 4d 50 6e 6f 73 74  |A:STA&74:JMPnost|
00001db0  69 63 6b 0d 02 da 16 5d  3a 50 25 3d 26 41 30 30  |ick....]:P%=&A00|
00001dc0  3a 5b 4f 50 54 70 61 73  73 0d 02 e4 9a 2e 6c 69  |:[OPTpass.....li|
00001dd0  6e 6b 73 20 45 51 55 53  22 43 61 70 61 63 74 72  |nks EQUS"Capactr|
00001de0  20 4c 65 66 74 20 20 20  20 52 69 67 68 74 20 20  | Left    Right  |
00001df0  22 3a 45 51 55 42 30 3a  45 51 55 53 22 43 61 70  |":EQUB0:EQUS"Cap|
00001e00  20 28 45 29 20 43 61 74  68 6f 64 65 20 41 6e 6f  | (E) Cathode Ano|
00001e10  64 65 20 20 22 3a 45 51  55 42 30 3a 45 51 55 53  |de  ":EQUB0:EQUS|
00001e20  22 43 65 6c 6c 20 20 20  20 43 61 74 68 6f 64 65  |"Cell    Cathode|
00001e30  20 41 6e 6f 64 65 20 20  22 3a 45 51 55 42 30 3a  | Anode  ":EQUB0:|
00001e40  45 51 55 53 22 42 61 74  74 65 72 79 20 43 61 74  |EQUS"Battery Cat|
00001e50  68 6f 64 65 20 41 6e 6f  64 65 20 20 22 3a 45 51  |hode Anode  ":EQ|
00001e60  55 42 30 0d 02 ee 9f 45  51 55 53 22 44 69 6f 64  |UB0....EQUS"Diod|
00001e70  65 20 20 20 43 61 74 68  6f 64 65 20 41 6e 6f 64  |e   Cathode Anod|
00001e80  65 20 20 22 3a 45 51 55  42 30 3a 45 51 55 53 22  |e  ":EQUB0:EQUS"|
00001e90  5a 65 6e 65 72 20 20 20  43 61 74 68 6f 64 65 20  |Zener   Cathode |
00001ea0  41 6e 6f 64 65 20 20 22  3a 45 51 55 42 30 3a 45  |Anode  ":EQUB0:E|
00001eb0  51 55 53 22 47 72 6f 75  6e 64 20 20 47 72 6f 75  |QUS"Ground  Grou|
00001ec0  6e 64 20 22 3a 45 51 55  42 30 3a 45 51 55 53 22  |nd ":EQUB0:EQUS"|
00001ed0  49 43 20 20 20 20 20 22  3a 45 51 55 42 30 3a 45  |IC     ":EQUB0:E|
00001ee0  51 55 53 22 49 6e 64 75  63 74 72 20 4c 65 66 74  |QUS"Inductr Left|
00001ef0  20 20 20 20 52 69 67 68  74 20 20 22 3a 45 51 55  |    Right  ":EQU|
00001f00  42 30 0d 02 f8 9b 45 51  55 53 22 41 4e 44 20 20  |B0....EQUS"AND  |
00001f10  20 20 20 49 6e 70 75 74  31 20 20 49 6e 70 75 74  |   Input1  Input|
00001f20  32 20 20 4f 75 74 70 75  74 20 22 3a 45 51 55 42  |2  Output ":EQUB|
00001f30  30 3a 45 51 55 53 22 4e  4f 54 20 20 20 20 20 49  |0:EQUS"NOT     I|
00001f40  6e 70 75 74 20 20 20 4f  75 74 70 75 74 20 22 3a  |nput   Output ":|
00001f50  45 51 55 42 30 3a 45 51  55 53 22 4f 52 20 47 61  |EQUB0:EQUS"OR Ga|
00001f60  74 65 20 49 6e 70 75 74  31 20 20 49 6e 70 75 74  |te Input1  Input|
00001f70  32 20 20 4f 75 74 70 75  74 20 22 3a 45 51 55 42  |2  Output ":EQUB|
00001f80  30 3a 45 51 55 53 22 4e  6f 64 65 20 20 20 20 4e  |0:EQUS"Node    N|
00001f90  6f 64 65 20 20 20 22 3a  45 51 55 42 30 0d 03 02  |ode   ":EQUB0...|
00001fa0  8f 45 51 55 53 22 4f 70  41 6d 70 20 20 20 56 2b  |.EQUS"OpAmp   V+|
00001fb0  20 20 20 20 20 20 56 2d  20 20 20 20 20 20 4f 75  |      V-      Ou|
00001fc0  74 70 75 74 20 20 2d 49  6e 70 75 74 20 20 2b 49  |tput  -Input  +I|
00001fd0  6e 70 75 74 20 22 3a 45  51 55 42 30 3a 45 51 55  |nput ":EQUB0:EQU|
00001fe0  53 22 52 65 73 69 73 74  72 20 4c 65 66 74 20 20  |S"Resistr Left  |
00001ff0  20 20 52 69 67 68 74 20  20 22 3a 45 51 55 42 30  |  Right  ":EQUB0|
00002000  3a 45 51 55 53 22 52 65  28 56 61 72 29 20 4c 65  |:EQUS"Re(Var) Le|
00002010  66 74 20 20 20 20 43 65  6e 74 72 65 20 20 52 69  |ft    Centre  Ri|
00002020  67 68 74 20 20 22 3a 45  51 55 42 30 0d 03 0c ab  |ght  ":EQUB0....|
00002030  45 51 55 53 22 53 77 69  74 63 68 20 20 4c 65 66  |EQUS"Switch  Lef|
00002040  74 20 20 20 20 52 69 67  68 74 20 20 22 3a 45 51  |t    Right  ":EQ|
00002050  55 42 30 3a 45 51 55 53  22 54 72 28 4e 50 4e 29  |UB0:EQUS"Tr(NPN)|
00002060  20 42 61 73 65 20 20 20  20 43 6f 6c 65 63 74 72  | Base    Colectr|
00002070  20 45 6d 69 74 74 65 72  22 3a 45 51 55 42 30 3a  | Emitter":EQUB0:|
00002080  45 51 55 53 22 54 72 28  50 4e 50 29 20 42 61 73  |EQUS"Tr(PNP) Bas|
00002090  65 20 20 20 20 43 6f 6c  65 63 74 72 20 45 6d 69  |e    Colectr Emi|
000020a0  74 74 65 72 22 3a 45 51  55 42 30 3a 45 51 55 53  |tter":EQUB0:EQUS|
000020b0  22 54 72 28 46 45 54 29  20 47 61 74 65 20 20 20  |"Tr(FET) Gate   |
000020c0  20 44 72 61 69 6e 20 20  20 53 6f 75 72 63 65 20  | Drain   Source |
000020d0  22 3a 45 51 55 42 30 0d  03 16 44 2e 6c 69 6e 6b  |":EQUB0...D.link|
000020e0  70 6f 73 20 45 51 55 44  26 46 46 46 46 41 34 30  |pos EQUD&FFFFA40|
000020f0  34 3a 45 51 55 44 26 46  46 46 46 30 34 41 34 3a  |4:EQUD&FFFF04A4:|
00002100  45 51 55 44 26 46 46 46  46 30 36 38 36 3a 45 51  |EQUD&FFFF0686:EQ|
00002110  55 44 26 46 46 46 46 30  36 46 36 0d 03 20 3b 45  |UD&FFFF06F6.. ;E|
00002120  51 55 44 26 46 46 46 46  30 36 46 36 3a 45 51 55  |QUD&FFFF06F6:EQU|
00002130  44 26 46 46 46 46 30 36  46 36 3a 45 51 55 44 26  |D&FFFF06F6:EQUD&|
00002140  46 46 46 46 46 46 34 30  3a 45 51 55 44 26 46 46  |FFFFFF40:EQUD&FF|
00002150  46 46 46 46 46 46 0d 03  2a 3b 45 51 55 44 26 46  |FFFFFF..*;EQUD&F|
00002160  46 46 46 46 34 30 34 3a  45 51 55 44 26 46 46 46  |FFFF404:EQUD&FFF|
00002170  37 30 43 30 34 3a 45 51  55 44 26 46 46 46 46 46  |70C04:EQUD&FFFFF|
00002180  36 30 36 3a 45 51 55 44  26 46 46 46 37 30 43 30  |606:EQUD&FFF70C0|
00002190  34 0d 03 34 3b 45 51 55  44 26 46 46 46 46 46 46  |4..4;EQUD&FFFFFF|
000021a0  31 31 3a 45 51 55 44 26  30 43 46 38 38 46 38 30  |11:EQUD&0CF88F80|
000021b0  3a 45 51 55 44 26 46 46  46 46 46 34 30 34 3a 45  |:EQUD&FFFFF404:E|
000021c0  51 55 44 26 46 46 46 34  38 46 30 34 0d 03 3e 3b  |QUD&FFF48F04..>;|
000021d0  45 51 55 44 26 46 46 46  46 46 34 30 34 3a 45 51  |EQUD&FFFFF404:EQ|
000021e0  55 44 26 46 46 41 46 41  30 30 38 3a 45 51 55 44  |UD&FFAFA008:EQUD|
000021f0  26 46 46 41 46 41 30 30  38 3a 45 51 55 44 26 46  |&FFAFA008:EQUD&F|
00002200  46 41 43 41 30 30 38 0d  03 48 4d 2e 70 69 6e 62  |FACA008..HM.pinb|
00002210  61 73 65 20 45 51 55 42  33 3a 45 51 55 42 34 3a  |ase EQUB3:EQUB4:|
00002220  45 51 55 42 37 3a 45 51  55 42 38 3a 45 51 55 42  |EQUB7:EQUB8:EQUB|
00002230  39 3a 45 51 55 42 31 30  3a 45 51 55 42 31 32 3a  |9:EQUB10:EQUB12:|
00002240  45 51 55 42 31 34 3a 45  51 55 42 31 36 3a 45 51  |EQUB14:EQUB16:EQ|
00002250  55 42 32 30 0d 03 52 bb  2e 6c 69 6e 6b 69 63 20  |UB20..R..linkic |
00002260  43 4d 50 23 63 68 69 70  3a 42 45 51 65 69 74 68  |CMP#chip:BEQeith|
00002270  65 72 69 63 3a 52 54 53  3a 2e 65 69 74 68 65 72  |eric:RTS:.either|
00002280  69 63 20 50 4c 41 3a 50  4c 41 3a 50 4c 41 3a 54  |ic PLA:PLA:PLA:T|
00002290  41 59 3a 49 4e 59 3a 54  59 41 3a 50 48 41 3a 4c  |AY:INY:TYA:PHA:L|
000022a0  44 41 28 26 37 32 29 2c  59 3a 53 54 41 26 37 41  |DA(&72),Y:STA&7A|
000022b0  3a 4c 44 59 23 35 3a 4c  44 41 28 26 37 38 29 2c  |:LDY#5:LDA(&78),|
000022c0  59 3a 43 4d 50 26 37 41  3a 42 43 43 72 69 67 68  |Y:CMP&7A:BCCrigh|
000022d0  74 69 63 3a 44 45 43 26  37 41 3a 2e 6c 65 66 74  |tic:DEC&7A:.left|
000022e0  69 63 20 4c 44 41 26 37  34 3a 53 45 43 3a 53 42  |ic LDA&74:SEC:SB|
000022f0  43 23 31 36 3a 53 54 41  26 37 34 3a 4c 44 41 26  |C#16:STA&74:LDA&|
00002300  37 35 3a 53 42 43 23 30  3a 53 54 41 26 37 35 0d  |75:SBC#0:STA&75.|
00002310  03 5c a2 4c 44 41 26 37  36 3a 53 45 43 3a 53 42  |.\.LDA&76:SEC:SB|
00002320  43 23 31 36 3a 53 54 41  26 37 36 3a 4c 44 41 26  |C#16:STA&76:LDA&|
00002330  37 37 3a 53 42 43 23 30  3a 53 54 41 26 37 37 3a  |77:SBC#0:STA&77:|
00002340  4c 44 58 26 37 41 3a 2e  69 63 64 6c 20 43 50 58  |LDX&7A:.icdl CPX|
00002350  23 30 3a 42 45 51 67 6f  74 69 63 70 69 6e 3a 4c  |#0:BEQgoticpin:L|
00002360  44 41 26 37 36 3a 53 45  43 3a 53 42 43 23 33 32  |DA&76:SEC:SBC#32|
00002370  3a 53 54 41 26 37 36 3a  4c 44 41 26 37 37 3a 53  |:STA&76:LDA&77:S|
00002380  42 43 23 30 3a 53 54 41  26 37 37 3a 44 45 58 3a  |BC#0:STA&77:DEX:|
00002390  4a 4d 50 69 63 64 6c 3a  2e 67 6f 74 69 63 70 69  |JMPicdl:.goticpi|
000023a0  6e 20 50 4c 41 3a 54 41  59 3a 49 4e 59 3a 52 54  |n PLA:TAY:INY:RT|
000023b0  53 0d 03 66 5b 2e 72 69  67 68 74 69 63 20 41 53  |S..f[.rightic AS|
000023c0  4c 41 3a 53 45 43 3a 53  42 43 26 37 41 3a 53 54  |LA:SEC:SBC&7A:ST|
000023d0  41 26 37 41 3a 4c 44 41  26 37 34 3a 43 4c 43 3a  |A&7A:LDA&74:CLC:|
000023e0  41 44 43 23 26 41 30 3a  53 54 41 26 37 34 3a 4c  |ADC#&A0:STA&74:L|
000023f0  44 41 26 37 35 3a 41 44  43 23 30 3a 53 54 41 26  |DA&75:ADC#0:STA&|
00002400  37 35 3a 4a 4d 50 6c 65  66 74 69 63 0d 03 70 93  |75:JMPleftic..p.|
00002410  2e 78 73 69 7a 65 20 45  51 55 42 31 31 3a 45 51  |.xsize EQUB11:EQ|
00002420  55 42 31 31 3a 45 51 55  42 39 3a 45 51 55 42 31  |UB11:EQUB9:EQUB1|
00002430  36 3a 45 51 55 42 31 36  3a 45 51 55 42 31 36 3a  |6:EQUB16:EQUB16:|
00002440  45 51 55 42 39 3a 45 51  55 42 33 32 3a 45 51 55  |EQUB9:EQUB32:EQU|
00002450  42 31 36 3a 45 51 55 42  31 36 3a 45 51 55 42 31  |B16:EQUB16:EQUB1|
00002460  36 3a 45 51 55 42 31 36  3a 45 51 55 42 33 3a 45  |6:EQUB16:EQUB3:E|
00002470  51 55 42 31 36 3a 45 51  55 42 31 36 3a 45 51 55  |QUB16:EQUB16:EQU|
00002480  42 31 36 3a 45 51 55 42  31 36 3a 45 51 55 42 31  |B16:EQUB16:EQUB1|
00002490  31 3a 45 51 55 42 31 31  3a 45 51 55 42 31 31 0d  |1:EQUB11:EQUB11.|
000024a0  03 7a 8f 2e 79 73 69 7a  65 20 45 51 55 42 39 3a  |.z..ysize EQUB9:|
000024b0  45 51 55 42 39 3a 45 51  55 42 31 33 3a 45 51 55  |EQUB9:EQUB13:EQU|
000024c0  42 31 33 3a 45 51 55 42  31 33 3a 45 51 55 42 31  |B13:EQUB13:EQUB1|
000024d0  33 3a 45 51 55 42 39 3a  45 51 55 42 32 34 3a 45  |3:EQUB9:EQUB24:E|
000024e0  51 55 42 35 3a 45 51 55  42 31 36 3a 45 51 55 42  |QUB5:EQUB16:EQUB|
000024f0  31 33 3a 45 51 55 42 31  36 3a 45 51 55 42 33 3a  |13:EQUB16:EQUB3:|
00002500  45 51 55 42 31 36 3a 45  51 55 42 39 3a 45 51 55  |EQUB16:EQUB9:EQU|
00002510  42 31 36 3a 45 51 55 42  35 3a 45 51 55 42 31 36  |B16:EQUB5:EQUB16|
00002520  3a 45 51 55 42 31 36 3a  45 51 55 42 31 36 0d 03  |:EQUB16:EQUB16..|
00002530  84 17 5d 3a 50 25 3d 26  35 30 30 30 3a 5b 4f 50  |..]:P%=&5000:[OP|
00002540  54 70 61 73 73 0d 03 8e  55 4a 4d 50 63 75 72 73  |Tpass...UJMPcurs|
00002550  6f 72 3a 4a 4d 50 68 61  69 72 70 69 6e 3a 4a 4d  |or:JMPhairpin:JM|
00002560  50 62 6f 78 3a 4a 53 52  63 6f 70 79 3a 4a 53 52  |Pbox:JSRcopy:JSR|
00002570  62 6f 78 3a 4a 53 52 63  75 72 73 6f 72 3a 2e 62  |box:JSRcursor:.b|
00002580  6f 78 20 4a 53 52 63 6f  70 79 3a 4c 44 58 23 34  |ox JSRcopy:LDX#4|
00002590  3a 4a 53 52 69 63 6c 69  6e 65 0d 03 98 ba 4c 44  |:JSRicline....LD|
000025a0  41 26 37 36 3a 53 45 43  3a 53 42 43 23 36 34 3a  |A&76:SEC:SBC#64:|
000025b0  53 54 41 26 37 36 3a 4c  44 41 26 37 37 3a 53 42  |STA&76:LDA&77:SB|
000025c0  43 23 30 3a 53 54 41 26  37 37 3a 4c 44 58 23 35  |C#0:STA&77:LDX#5|
000025d0  3a 4a 53 52 69 63 6c 69  6e 65 3a 4c 44 41 26 37  |:JSRicline:LDA&7|
000025e0  34 3a 43 4c 43 3a 41 44  43 23 36 34 3a 53 54 41  |4:CLC:ADC#64:STA|
000025f0  26 37 34 3a 4c 44 41 26  37 35 3a 41 44 43 23 30  |&74:LDA&75:ADC#0|
00002600  3a 53 54 41 26 37 35 3a  4c 44 58 23 35 3a 4a 53  |:STA&75:LDX#5:JS|
00002610  52 69 63 6c 69 6e 65 3a  4c 44 41 26 37 36 3a 43  |Ricline:LDA&76:C|
00002620  4c 43 3a 41 44 43 23 36  34 3a 53 54 41 26 37 36  |LC:ADC#64:STA&76|
00002630  3a 4c 44 41 26 37 37 3a  41 44 43 23 30 3a 53 54  |:LDA&77:ADC#0:ST|
00002640  41 26 37 37 3a 4c 44 58  23 35 3a 4a 53 52 69 63  |A&77:LDX#5:JSRic|
00002650  6c 69 6e 65 0d 03 a2 60  4c 44 41 26 37 34 3a 53  |line...`LDA&74:S|
00002660  45 43 3a 53 42 43 23 36  34 3a 53 54 41 26 37 34  |EC:SBC#64:STA&74|
00002670  3a 4c 44 41 26 37 35 3a  53 42 43 23 30 3a 53 54  |:LDA&75:SBC#0:ST|
00002680  41 26 37 35 3a 4c 44 58  23 35 3a 4a 53 52 69 63  |A&75:LDX#5:JSRic|
00002690  6c 69 6e 65 3a 2e 63 75  72 65 6e 64 20 4c 44 41  |line:.curend LDA|
000026a0  23 30 3a 53 54 41 26 37  34 3a 53 54 41 26 37 35  |#0:STA&74:STA&75|
000026b0  3a 52 54 53 0d 03 ac 55  2e 6d 6f 75 63 75 72 20  |:RTS...U.moucur |
000026c0  4c 44 41 26 37 34 3a 50  48 41 3a 4c 44 41 26 37  |LDA&74:PHA:LDA&7|
000026d0  35 3a 50 48 41 3a 4c 44  41 26 37 36 3a 50 48 41  |5:PHA:LDA&76:PHA|
000026e0  3a 4c 44 41 23 36 34 3a  4c 44 58 23 26 37 30 3a  |:LDA#64:LDX#&70:|
000026f0  4c 44 59 23 30 3a 4a 53  52 26 46 46 46 31 3a 4a  |LDY#0:JSR&FFF1:J|
00002700  4d 50 6d 6f 75 63 75 72  32 0d 03 b6 9f 2e 63 75  |MPmoucur2.....cu|
00002710  72 73 6f 72 20 4a 53 52  63 6f 70 79 3a 4c 44 41  |rsor JSRcopy:LDA|
00002720  6d 6f 75 73 65 3a 42 4e  45 6d 6f 75 63 75 72 3a  |mouse:BNEmoucur:|
00002730  4a 4d 50 6b 65 79 63 75  72 3a 2e 63 75 72 62 61  |JMPkeycur:.curba|
00002740  63 6b 20 4c 44 41 26 37  34 3a 43 4d 50 26 37 30  |ck LDA&74:CMP&70|
00002750  3a 42 4e 45 72 65 68 61  69 72 3a 4c 44 41 26 37  |:BNErehair:LDA&7|
00002760  36 3a 43 4d 50 26 37 32  3a 42 4e 45 72 65 68 61  |6:CMP&72:BNEreha|
00002770  69 72 3a 4a 4d 50 63 75  72 65 6e 64 3a 2e 72 65  |ir:JMPcurend:.re|
00002780  68 61 69 72 20 4e 4f 50  3a 4a 53 52 68 61 69 72  |hair NOP:JSRhair|
00002790  70 69 6e 3a 4a 53 52 68  61 69 72 70 69 6e 3a 4a  |pin:JSRhairpin:J|
000027a0  4d 50 63 75 72 65 6e 64  0d 03 c0 86 2e 68 61 69  |MPcurend.....hai|
000027b0  72 70 69 6e 20 4c 44 41  26 37 36 3a 53 45 43 3a  |rpin LDA&76:SEC:|
000027c0  53 42 43 23 32 30 3a 53  54 41 26 37 36 3a 4c 44  |SBC#20:STA&76:LD|
000027d0  41 26 37 37 3a 53 42 43  23 30 3a 53 54 41 26 37  |A&77:SBC#0:STA&7|
000027e0  37 3a 4c 44 58 23 34 3a  4a 53 52 69 63 6c 69 6e  |7:LDX#4:JSRiclin|
000027f0  65 3a 4c 44 41 26 37 36  3a 43 4c 43 3a 41 44 43  |e:LDA&76:CLC:ADC|
00002800  23 34 30 3a 53 54 41 26  37 36 3a 4c 44 41 26 37  |#40:STA&76:LDA&7|
00002810  37 3a 41 44 43 23 30 3a  53 54 41 26 37 37 3a 4c  |7:ADC#0:STA&77:L|
00002820  44 58 23 35 3a 4a 53 52  69 63 6c 69 6e 65 0d 03  |DX#5:JSRicline..|
00002830  ca b2 4c 44 41 26 37 36  3a 53 45 43 3a 53 42 43  |..LDA&76:SEC:SBC|
00002840  23 32 30 3a 53 54 41 26  37 36 3a 4c 44 41 26 37  |#20:STA&76:LDA&7|
00002850  37 3a 53 42 43 23 30 3a  53 54 41 26 37 37 3a 4c  |7:SBC#0:STA&77:L|
00002860  44 41 26 37 34 3a 53 45  43 3a 53 42 43 23 32 30  |DA&74:SEC:SBC#20|
00002870  3a 53 54 41 26 37 34 3a  4c 44 41 26 37 35 3a 53  |:STA&74:LDA&75:S|
00002880  42 43 23 30 3a 53 54 41  26 37 35 3a 4c 44 58 23  |BC#0:STA&75:LDX#|
00002890  34 3a 4a 53 52 69 63 6c  69 6e 65 3a 4c 44 41 26  |4:JSRicline:LDA&|
000028a0  37 34 3a 43 4c 43 3a 41  44 43 23 34 30 3a 53 54  |74:CLC:ADC#40:ST|
000028b0  41 26 37 34 3a 4c 44 41  26 37 35 3a 41 44 43 23  |A&74:LDA&75:ADC#|
000028c0  30 3a 53 54 41 26 37 35  3a 4c 44 58 23 35 3a 4a  |0:STA&75:LDX#5:J|
000028d0  53 52 69 63 6c 69 6e 65  3a 4a 4d 50 63 6f 70 79  |SRicline:JMPcopy|
000028e0  0d 03 d4 89 2e 6b 65 79  63 75 72 20 4c 44 41 23  |.....keycur LDA#|
000028f0  34 3a 53 54 41 26 37 38  3a 4c 44 58 23 26 46 46  |4:STA&78:LDX#&FF|
00002900  3a 4a 53 52 6b 65 79 62  79 74 65 3a 42 43 43 6e  |:JSRkeybyte:BCCn|
00002910  6f 66 3a 4c 44 41 23 34  30 3a 53 54 41 26 37 38  |of:LDA#40:STA&78|
00002920  3a 2e 6e 6f 66 20 4c 44  58 23 26 39 45 3a 4a 53  |:.nof LDX#&9E:JS|
00002930  52 6b 65 79 62 79 74 65  3a 42 43 43 6e 6f 6b 6c  |Rkeybyte:BCCnokl|
00002940  3a 4c 44 41 26 37 30 3a  53 42 43 26 37 38 3a 53  |:LDA&70:SBC&78:S|
00002950  54 41 26 37 30 3a 4c 44  41 26 37 31 3a 53 42 43  |TA&70:LDA&71:SBC|
00002960  23 30 3a 53 54 41 26 37  31 0d 03 de ed 2e 6e 6f  |#0:STA&71.....no|
00002970  6b 6c 20 4c 44 58 23 26  42 44 3a 4a 53 52 6b 65  |kl LDX#&BD:JSRke|
00002980  79 62 79 74 65 3a 42 43  43 6e 6f 6b 72 3a 4c 44  |ybyte:BCCnokr:LD|
00002990  41 26 37 30 3a 43 4c 43  3a 41 44 43 26 37 38 3a  |A&70:CLC:ADC&78:|
000029a0  53 54 41 26 37 30 3a 4c  44 41 26 37 31 3a 41 44  |STA&70:LDA&71:AD|
000029b0  43 23 30 3a 53 54 41 26  37 31 3a 2e 6e 6f 6b 72  |C#0:STA&71:.nokr|
000029c0  20 4c 44 58 23 26 42 37  3a 4a 53 52 6b 65 79 62  | LDX#&B7:JSRkeyb|
000029d0  79 74 65 3a 42 43 43 6e  6f 6b 75 3a 4c 44 41 26  |yte:BCCnoku:LDA&|
000029e0  37 32 3a 43 4c 43 3a 41  44 43 26 37 38 3a 53 54  |72:CLC:ADC&78:ST|
000029f0  41 26 37 32 3a 4c 44 41  26 37 33 3a 41 44 43 23  |A&72:LDA&73:ADC#|
00002a00  30 3a 53 54 41 26 37 33  3a 2e 6e 6f 6b 75 20 4c  |0:STA&73:.noku L|
00002a10  44 58 23 26 39 37 3a 4a  53 52 6b 65 79 62 79 74  |DX#&97:JSRkeybyt|
00002a20  65 3a 42 43 43 6e 6f 6b  64 3a 4c 44 41 26 37 32  |e:BCCnokd:LDA&72|
00002a30  3a 53 45 43 3a 53 42 43  26 37 38 3a 53 54 41 26  |:SEC:SBC&78:STA&|
00002a40  37 32 3a 4c 44 41 26 37  33 3a 53 42 43 23 30 3a  |72:LDA&73:SBC#0:|
00002a50  53 54 41 26 37 33 0d 03  e8 8f 2e 6e 6f 6b 64 20  |STA&73.....nokd |
00002a60  4c 44 41 6a 6f 79 73 74  3a 42 45 51 6e 6f 73 74  |LDAjoyst:BEQnost|
00002a70  69 63 6b 3a 4a 53 52 6a  6f 79 63 75 72 3a 2e 6e  |ick:JSRjoycur:.n|
00002a80  6f 73 74 69 63 6b 20 4c  44 41 26 37 31 3a 43 4d  |ostick LDA&71:CM|
00002a90  50 23 26 46 46 3a 42 4e  45 6e 6f 62 6f 74 3a 4c  |P#&FF:BNEnobot:L|
00002aa0  44 41 23 30 3a 53 54 41  26 37 30 3a 53 54 41 26  |DA#0:STA&70:STA&|
00002ab0  37 31 3a 2e 6e 6f 62 6f  74 20 4c 44 41 26 37 33  |71:.nobot LDA&73|
00002ac0  3a 43 4d 50 23 26 46 46  3a 42 4e 45 6e 6f 6c 65  |:CMP#&FF:BNEnole|
00002ad0  66 3a 4c 44 41 23 30 3a  53 54 41 26 37 32 3a 53  |f:LDA#0:STA&72:S|
00002ae0  54 41 26 37 33 0d 03 f2  83 2e 6e 6f 6c 65 66 20  |TA&73.....nolef |
00002af0  4c 44 41 26 37 31 3a 43  4d 50 23 35 3a 42 4e 45  |LDA&71:CMP#5:BNE|
00002b00  6e 6f 72 69 67 3a 4c 44  41 23 30 3a 53 54 41 26  |norig:LDA#0:STA&|
00002b10  37 30 3a 2e 6e 6f 72 69  67 20 4c 44 41 26 37 33  |70:.norig LDA&73|
00002b20  3a 43 4d 50 23 33 3a 42  43 43 6e 6f 74 6f 70 3a  |:CMP#3:BCCnotop:|
00002b30  4c 44 41 26 37 32 3a 43  4d 50 23 31 31 35 3a 42  |LDA&72:CMP#115:B|
00002b40  43 43 6e 6f 74 6f 70 3a  4c 44 41 23 31 31 35 3a  |CCnotop:LDA#115:|
00002b50  53 54 41 26 37 32 3a 2e  6e 6f 74 6f 70 20 4a 4d  |STA&72:.notop JM|
00002b60  50 63 75 72 62 61 63 6b  0d 03 fc 67 2e 6b 65 79  |Pcurback...g.key|
00002b70  62 79 74 65 20 4c 44 59  23 32 35 35 3a 4c 44 41  |byte LDY#255:LDA|
00002b80  23 26 38 31 3a 4a 4d 50  26 46 46 46 34 3a 2e 63  |#&81:JMP&FFF4:.c|
00002b90  6f 70 79 20 4c 44 41 26  37 30 3a 53 54 41 26 37  |opy LDA&70:STA&7|
00002ba0  34 3a 4c 44 41 26 37 31  3a 53 54 41 26 37 35 3a  |4:LDA&71:STA&75:|
00002bb0  4c 44 41 26 37 32 3a 53  54 41 26 37 36 3a 4c 44  |LDA&72:STA&76:LD|
00002bc0  41 26 37 33 3a 53 54 41  26 37 37 3a 52 54 53 0d  |A&73:STA&77:RTS.|
00002bd0  04 06 16 5d 3a 50 25 3d  26 31 30 30 3a 5b 4f 50  |...]:P%=&100:[OP|
00002be0  54 70 61 73 73 0d 04 10  9e 2e 6a 6f 79 63 75 72  |Tpass.....joycur|
00002bf0  20 4c 44 58 23 31 3a 4c  44 41 23 26 38 30 3a 4a  | LDX#1:LDA#&80:J|
00002c00  53 52 26 46 46 46 34 3a  43 50 59 23 39 34 3a 42  |SR&FFF4:CPY#94:B|
00002c10  43 53 6e 6f 72 69 67 6a  3a 4c 44 41 26 37 30 3a  |CSnorigj:LDA&70:|
00002c20  41 44 43 23 34 3a 53 54  41 26 37 30 3a 4c 44 41  |ADC#4:STA&70:LDA|
00002c30  26 37 31 3a 41 44 43 23  30 3a 53 54 41 26 37 31  |&71:ADC#0:STA&71|
00002c40  3a 2e 6e 6f 72 69 67 6a  20 43 50 59 23 33 39 3a  |:.norigj CPY#39:|
00002c50  42 43 53 6e 6f 72 69 67  6a 74 3a 4c 44 41 26 37  |BCSnorigjt:LDA&7|
00002c60  30 3a 41 44 43 23 33 36  3a 53 54 41 26 37 30 3a  |0:ADC#36:STA&70:|
00002c70  4c 44 41 26 37 31 3a 41  44 43 23 30 3a 53 54 41  |LDA&71:ADC#0:STA|
00002c80  26 37 31 0d 04 1a ba 2e  6e 6f 72 69 67 6a 74 20  |&71.....norigjt |
00002c90  43 50 59 23 31 35 36 3a  42 43 43 6e 6f 6c 65 66  |CPY#156:BCCnolef|
00002ca0  6a 3a 4c 44 41 26 37 30  3a 53 42 43 23 34 3a 53  |j:LDA&70:SBC#4:S|
00002cb0  54 41 26 37 30 3a 4c 44  41 26 37 31 3a 53 42 43  |TA&70:LDA&71:SBC|
00002cc0  23 30 3a 53 54 41 26 37  31 3a 2e 6e 6f 6c 65 66  |#0:STA&71:.nolef|
00002cd0  6a 20 43 50 59 23 32 31  35 3a 42 43 43 6e 6f 6c  |j CPY#215:BCCnol|
00002ce0  65 66 6a 74 3a 4c 44 41  26 37 30 3a 53 42 43 23  |efjt:LDA&70:SBC#|
00002cf0  33 36 3a 53 54 41 26 37  30 3a 4c 44 41 26 37 31  |36:STA&70:LDA&71|
00002d00  3a 53 42 43 23 30 3a 53  54 41 26 37 31 3a 2e 6e  |:SBC#0:STA&71:.n|
00002d10  6f 6c 65 66 6a 74 20 4c  44 58 23 32 3a 4c 44 41  |olefjt LDX#2:LDA|
00002d20  23 26 38 30 3a 4a 53 52  26 46 46 46 34 3a 43 50  |#&80:JSR&FFF4:CP|
00002d30  59 23 39 34 3a 42 43 53  6e 6f 75 70 6a 0d 04 24  |Y#94:BCSnoupj..$|
00002d40  ba 4c 44 41 26 37 32 3a  53 45 43 3a 53 42 43 23  |.LDA&72:SEC:SBC#|
00002d50  34 3a 53 54 41 26 37 32  3a 4c 44 41 26 37 33 3a  |4:STA&72:LDA&73:|
00002d60  53 42 43 23 30 3a 53 54  41 26 37 33 3a 2e 6e 6f  |SBC#0:STA&73:.no|
00002d70  75 70 6a 20 43 50 59 23  33 39 3a 42 43 53 6e 6f  |upj CPY#39:BCSno|
00002d80  75 70 6a 74 3a 4c 44 41  26 37 32 3a 53 45 43 3a  |upjt:LDA&72:SEC:|
00002d90  53 42 43 23 33 36 3a 53  54 41 26 37 32 3a 4c 44  |SBC#36:STA&72:LD|
00002da0  41 26 37 33 3a 53 42 43  23 30 3a 53 54 41 26 37  |A&73:SBC#0:STA&7|
00002db0  33 3a 2e 6e 6f 75 70 6a  74 20 43 50 59 23 31 35  |3:.noupjt CPY#15|
00002dc0  36 3a 42 43 43 6e 6f 64  6f 77 6a 3a 4c 44 41 26  |6:BCCnodowj:LDA&|
00002dd0  37 32 3a 43 4c 43 3a 41  44 43 23 34 3a 53 54 41  |72:CLC:ADC#4:STA|
00002de0  26 37 32 3a 4c 44 41 26  37 33 3a 41 44 43 23 30  |&72:LDA&73:ADC#0|
00002df0  3a 53 54 41 26 37 33 0d  04 2e 58 2e 6e 6f 64 6f  |:STA&73...X.nodo|
00002e00  77 6a 20 43 50 59 23 32  31 35 3a 42 43 43 6e 6f  |wj CPY#215:BCCno|
00002e10  64 6f 77 6a 74 3a 4c 44  41 26 37 32 3a 43 4c 43  |dowjt:LDA&72:CLC|
00002e20  3a 41 44 43 23 33 36 3a  53 54 41 26 37 32 3a 4c  |:ADC#36:STA&72:L|
00002e30  44 41 26 37 33 3a 41 44  43 23 30 3a 53 54 41 26  |DA&73:ADC#0:STA&|
00002e40  37 33 3a 2e 6e 6f 64 6f  77 6a 74 20 52 54 53 0d  |73:.nodowjt RTS.|
00002e50  04 38 09 5d 3a ed 3a e1  0d ff                    |.8.]:.:...|
00002e5a

P/CAD.m0

P/CAD.m1

P/CAD.m2

P/CAD.m4

P/CAD.m5

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