Home » Personal collection » Acorn ADFS disks » Greaseweazled » dfs_box04_disk02b_eug_scripts.adf » CAD/CADNew/BACK/CAD

CAD/CADNew/BACK/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 » Greaseweazled » dfs_box04_disk02b_eug_scripts.adf
Filename: CAD/CADNew/BACK/CAD
Read OK:
File size: 2432 bytes
Load address: FFFF0E00
Exec address: FFFF802B
File contents
   10REM Advanced CAD - Loader
   20REM (C) Dominic Ford 1998
   30:
   40MODE4:PRINT"Initialising...":VDU23,1,0;0;0;0;23,255,&C0,&F0,&FC,&FF,&FF,&FC,&F0,&C0:HIMEM=&5000
   50PROCass:*FX4,1
   60PRINTTAB(0,0)SPC(8);"Welcome to Advanced CAD"'SPC(6);"Written by Dominic Ford 1998"
   70PRINT''"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."
   80PRINT'"Please select: (M)ouse or (K)eyboard"
   90REPEAT k$=GET$:UNTILINSTR("mMkK",k$)>0:IFINSTR("mM",k$)>0THEN?mouse=1:GOTO130
  100PRINT''"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."
  110PRINT'"Please select: (Y)es or (N)o"
  120REPEAT k$=GET$:UNTILINSTR("yYnN",k$)>0:IFINSTR("yY",k$)>0THEN?joyst=1
  130PRINT''"Loading main program..."
  140CHAIN"CAD2"
  150:
  160DEFPROCass
  170oswrch=&FFEE:chip=7:opamp=13
  180FORpass=0TO2STEP2:P%=&5200
  190[OPT pass
  200JMPdraw:JMPwhatover:JMPdelete:JMPgetlink:EQUDpinbase \ Jump table
  210.joyst EQUB0:.mouse EQUB0 \ Input device select
  220.label LDY#0:JSRgetpos:LDX#4:JSRicline:LDA#5:JSRoswrch:ASLA:JSRoswrch:LDY#0:LDA(&72),Y:CMP#chip:BEQfirstline:LDA#10:JSRoswrch:.firstline LDY#8:.dolab LDA(&72),Y:JSRoswrch:INY:TYA:AND#3:BNEdolab
  230CPY#16:BEQendlab:LDA#10:JSRoswrch:LDA#8:JSRoswrch:JSRoswrch:JSRoswrch:JSRoswrch:JMPdolab:.endlab LDA#4:JMPoswrch
  240.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
  250.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
  260.lkend RTS:.dolink LDY#0:JSRgetcoord:LDX#4:JSRicline:JSRgetcoord:LDX#5:JMPicline
  270.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
  280LDY#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
  290AND#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
  300.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
  310LDX#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
  320LDA&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
  330LDA&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
  340LDA&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
  350.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
  360LDA&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
  370LDA&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
  380.icline LDA#25:JSRoswrch:TXA:JSRoswrch:LDA&74:JSRoswrch:LDA&75:JSRoswrch:LDA&76:JSRoswrch:LDA&77:JMPoswrch
  390.drawcomp LDY#0:LDA(&72),Y:CMP#chip:BNEnic:JMPic:.nic CMP#opamp:BNEnotoa:JSRnotoa:LDY#0:LDA#chip
  400.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
  410.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
  420.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
  430.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
  440.checkcomp LDY#1:LDA&70:SEC:SBC(&74),Y:PHA:LDA&71:INY:SBC(&74),Y:BNEnohit:PLA:CMP#64:BCSnohit2:INY:LDA(&74),Y:SEC:SBC&72:PHA:INY:LDA(&74),Y:SBC&73:BNEnohit:PLA:CMP#64:BCSnohit2:LDA&76:STA&77
  450LDA&74:STA&78:LDA&75:STA&79:RTS:.nohit PLA:.nohit2 RTS
  460.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#&52:BNEdelete:DEC&4800
  470LDA#&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
  480LDA&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
  490.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
  500LDA&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
  510.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
  520LDA&73:ADC#0:STA&73:PLA:BNEfwd:DEX:JMPfindlnk:.gotlnk RTS
  530.comps EQUW&0444:EQUW&4048:EQUW&7078:EQUW&74A4:EQUW&FFFF:EQUW&FFFF:EQUW&FFFF:EQUW&FFFF
  540EQUW&0444:EQUW&4048:EQUW&7276:EQUW&8081:EQUW&8788:EQUW&74A4:EQUW&FFFF:EQUW&FFFF
  550EQUW&0646:EQUW&404C:EQUW&6369:EQUW&6686:EQUW&FFFF:EQUW&FFFF:EQUW&FFFF:EQUW&FFFF
  560EQUW&0636:EQUW&303C:EQUW&5359:EQUW&7676:EQUW&9696:EQUW&B0BC:EQUW&D3D9:EQUW&D6F6
  570EQUW&0646:EQUW&404C:EQUW&40A6:EQUW&4CA6:EQUW&A6F6:EQUW&A0AC:EQUW&FFFF:EQUW&FFFF
  580EQUW&0646:EQUW&404C:EQUW&40A6:EQUW&4CA6:EQUW&A6F6:EQUW&A2AA:EQUW&C0A2:EQUW&8CAA
  590EQUW&4044:EQUW&0484:EQUW&1676:EQUW&2868:EQUW&FFFF:EQUW&FFFF:EQUW&FFFF:EQUW&FFFF
  600EQUW&0444:EQUW&0C4C:EQUW&404F:EQUW&40C8:EQUW&5FC8:EQUW&C8F8:EQUW&8084:EQUW&8C8F \ OpAmp Part I
  610EQUW&0424:EQUW&2440:EQUW&4064:EQUW&6480:EQUW&80A4:EQUW&A4C0:EQUW&C0E4:EQUW&E4F4
  620EQUW&0444:EQUW&0C4C:EQUW&404F:EQUW&4082:EQUW&82C7:EQUW&C88D:EQUW&8D4F:EQUW&C7F7
  630EQUW&0646:EQUW&404C:EQUW&40A6:EQUW&4CA6:EQUW&B5C6:EQUW&B7C6:EQUW&C6F6:EQUW&FFFF
  640EQUW&0464:EQUW&0C6C:EQUW&616E:EQUW&4082:EQUW&82C7:EQUW&C88D:EQUW&8D4F:EQUW&C7F7
  650EQUW&0020:EQUW&2022:EQUW&2202:EQUW&0200:EQUW&FFFF:EQUW&FFFF:EQUW&FFFF:EQUW&FFFF
  660EQUW&5979:EQUW&5676:EQUW&6567:EQUW&FFFF:EQUW&FFFF:EQUW&FFFF:EQUW&FFFF:EQUW&FFFF \ OpAmp Part II
  670EQUW&0424:EQUW&2028:EQUW&20E0:EQUW&28E8:EQUW&E0E8:EQUW&E4F4:EQUW&FFFF:EQUW&FFFF
  680EQUW&0424:EQUW&2028:EQUW&20E0:EQUW&28E8:EQUW&E0E8:EQUW&E4F4:EQUW&888F:EQUW&7B9B
  690EQUW&0444:EQUW&44C0:EQUW&C4F4:EQUW&FFFF:EQUW&FFFF:EQUW&FFFF:EQUW&FFFF:EQUW&FFFF
  700EQUW&0848:EQUW&424E:EQUW&46A0:EQUW&49AF:EQUW&7C79:EQUW&7C5C:EQUW&FFFF:EQUW&FFFF
  710EQUW&0848:EQUW&424E:EQUW&46A0:EQUW&49AF:EQUW&6B8B:EQUW&6B6D:EQUW&FFFF:EQUW&FFFF
  720EQUW&0848:EQUW&444C:EQUW&727E:EQUW&74A4:EQUW&A4A0:EQUW&7CAC:EQUW&ACAF:EQUW&FFFF
  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
  871.xsize EQUB10:EQUB10:EQUB8:EQUB15:EQUB15:EQUB15:EQUB8:EQUB31:EQUB15:EQUB15:EQUB15:EQUB15:EQUB2:EQUB15:EQUB15:EQUB15:EQUB15:EQUB10:EQUB10:EQUB10 \ May add one if BCS used
  880]: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:�=&5000
2�ass:*FX4,1
<L�0,0)�(8);"Welcome to Advanced CAD"'�(6);"Written by Dominic Ford 1998"
F��''"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."
P,�'"Please select: (M)ouse or (K)eyboard"
Z5� k$=�:��"mMkK",k$)>0:�"mM",k$)>0�?mouse=1:�tB@
d��''"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."
n$�'"Please select: (Y)es or (N)o"
x/� 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
�3.joyst EQUB0:.mouse EQUB0 \ Input device select
��.label LDY#0:JSRgetpos:LDX#4:JSRicline:LDA#5:JSRoswrch:ASLA:JSRoswrch:LDY#0:LDA(&72),Y:CMP#chip:BEQfirstline:LDA#10:JSRoswrch:.firstline 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
6�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
@�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
J�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
T�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
^�.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
h�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
r�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
|n.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#1:LDA&70:SEC:SBC(&74),Y:PHA:LDA&71:INY:SBC(&74),Y:BNEnohit:PLA:CMP#64:BCSnohit2:INY:LDA(&74),Y:SEC:SBC&72:PHA:INY:LDA(&74),Y:SBC&73:BNEnohit:PLA:CMP#64: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#&52: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
0SEQUW&0636:EQUW&303C:EQUW&5359:EQUW&7676:EQUW&9696:EQUW&B0BC:EQUW&D3D9:EQUW&D6F6
:SEQUW&0646:EQUW&404C:EQUW&40A6:EQUW&4CA6:EQUW&A6F6:EQUW&A0AC:EQUW&FFFF:EQUW&FFFF
DSEQUW&0646:EQUW&404C:EQUW&40A6:EQUW&4CA6:EQUW&A6F6:EQUW&A2AA:EQUW&C0A2:EQUW&8CAA
NSEQUW&4044:EQUW&0484:EQUW&1676:EQUW&2868:EQUW&FFFF:EQUW&FFFF:EQUW&FFFF:EQUW&FFFF
XbEQUW&0444:EQUW&0C4C:EQUW&404F:EQUW&40C8:EQUW&5FC8:EQUW&C8F8:EQUW&8084:EQUW&8C8F \ OpAmp Part I
bSEQUW&0424:EQUW&2440:EQUW&4064:EQUW&6480:EQUW&80A4:EQUW&A4C0:EQUW&C0E4:EQUW&E4F4
lSEQUW&0444:EQUW&0C4C:EQUW&404F:EQUW&4082:EQUW&82C7:EQUW&C88D:EQUW&8D4F:EQUW&C7F7
vSEQUW&0646:EQUW&404C:EQUW&40A6:EQUW&4CA6:EQUW&B5C6:EQUW&B7C6:EQUW&C6F6:EQUW&FFFF
�SEQUW&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
�]: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
g�.xsize EQUB10:EQUB10:EQUB8:EQUB15:EQUB15:EQUB15:EQUB8:EQUB31:EQUB15:EQUB15:EQUB15:EQUB15:EQUB2:EQUB15:EQUB15:EQUB15:EQUB15:EQUB10:EQUB10:EQUB10 \ May add one if BCS used
p	]:�:�
�
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 05 3a 0d 00 28 56 eb  |d 1998....:..(V.|
00000040  34 3a f1 22 49 6e 69 74  69 61 6c 69 73 69 6e 67  |4:."Initialising|
00000050  2e 2e 2e 22 3a ef 32 33  2c 31 2c 30 3b 30 3b 30  |...":.23,1,0;0;0|
00000060  3b 30 3b 32 33 2c 32 35  35 2c 26 43 30 2c 26 46  |;0;23,255,&C0,&F|
00000070  30 2c 26 46 43 2c 26 46  46 2c 26 46 46 2c 26 46  |0,&FC,&FF,&FF,&F|
00000080  43 2c 26 46 30 2c 26 43  30 3a d3 3d 26 35 30 30  |C,&F0,&C0:.=&500|
00000090  30 0d 00 32 0f f2 61 73  73 3a 2a 46 58 34 2c 31  |0..2..ass:*FX4,1|
000000a0  0d 00 3c 4c f1 8a 30 2c  30 29 89 28 38 29 3b 22  |..<L..0,0).(8);"|
000000b0  57 65 6c 63 6f 6d 65 20  74 6f 20 41 64 76 61 6e  |Welcome to Advan|
000000c0  63 65 64 20 43 41 44 22  27 89 28 36 29 3b 22 57  |ced CAD"'.(6);"W|
000000d0  72 69 74 74 65 6e 20 62  79 20 44 6f 6d 69 6e 69  |ritten by Domini|
000000e0  63 20 46 6f 72 64 20 31  39 39 38 22 0d 00 46 bf  |c Ford 1998"..F.|
000000f0  f1 27 27 22 44 6f 20 79  6f 75 20 77 69 73 68 20  |.''"Do you wish |
00000100  74 6f 20 75 73 65 20 61  6e 20 41 4d 58 20 6d 6f  |to use an AMX mo|
00000110  75 73 65 20 77 69 74 68  20 20 20 20 74 68 69 73  |use with    this|
00000120  20 73 6f 66 74 77 61 72  65 3f 20 49 66 20 79 6f  | software? If yo|
00000130  75 20 64 6f 2c 20 79 6f  75 20 77 69 6c 6c 20 62  |u do, you will b|
00000140  65 20 20 20 75 6e 61 62  6c 65 20 74 6f 20 75 73  |e   unable to us|
00000150  65 20 6f 74 68 65 72 20  69 6e 70 75 74 20 64 65  |e other input de|
00000160  76 69 63 65 73 20 77 69  74 68 20 20 69 74 2e 20  |vices with  it. |
00000170  44 6f 20 6e 6f 74 20 61  6e 73 77 65 72 20 79 65  |Do not answer ye|
00000180  73 20 69 66 20 79 6f 75  20 64 6f 20 6e 6f 74 20  |s if you do not |
00000190  68 61 76 65 74 68 65 20  41 4d 58 20 52 4f 4d 20  |havethe AMX ROM |
000001a0  69 6e 73 74 61 6c 6c 65  64 2e 22 0d 00 50 2c f1  |installed."..P,.|
000001b0  27 22 50 6c 65 61 73 65  20 73 65 6c 65 63 74 3a  |'"Please select:|
000001c0  20 28 4d 29 6f 75 73 65  20 6f 72 20 28 4b 29 65  | (M)ouse or (K)e|
000001d0  79 62 6f 61 72 64 22 0d  00 5a 35 f5 20 6b 24 3d  |yboard"..Z5. k$=|
000001e0  be 3a fd a7 22 6d 4d 6b  4b 22 2c 6b 24 29 3e 30  |.:.."mMkK",k$)>0|
000001f0  3a e7 a7 22 6d 4d 22 2c  6b 24 29 3e 30 8c 3f 6d  |:.."mM",k$)>0.?m|
00000200  6f 75 73 65 3d 31 3a e5  8d 74 42 40 0d 00 64 c6  |ouse=1:..tB@..d.|
00000210  f1 27 27 22 44 6f 20 79  6f 75 20 77 69 73 68 20  |.''"Do you wish |
00000220  74 6f 20 75 73 65 20 61  6e 20 61 6e 61 6c 6f 67  |to use an analog|
00000230  75 65 20 6a 6f 79 73 74  69 63 6b 3f 49 66 20 79  |ue joystick?If y|
00000240  6f 75 20 64 6f 2c 20 79  6f 75 20 77 69 6c 6c 20  |ou do, you will |
00000250  73 74 69 6c 6c 20 62 65  20 61 62 6c 65 20 74 6f  |still be able to|
00000260  20 75 73 65 74 68 65 20  6b 65 79 62 6f 61 72 64  | usethe keyboard|
00000270  2c 20 61 6c 74 68 6f 75  67 68 20 61 6e 79 20 6f  |, although any o|
00000280  74 68 65 72 20 64 65 76  69 63 65 73 70 6c 75 67  |ther devicesplug|
00000290  67 65 64 20 69 6e 74 6f  20 74 68 65 20 61 6e 61  |ged into the ana|
000002a0  6c 6f 67 75 65 20 70 6f  72 74 20 6d 61 79 20 20  |logue port may  |
000002b0  20 20 20 20 69 6e 74 65  72 66 65 72 65 20 77 69  |    interfere wi|
000002c0  74 68 20 74 68 69 73 20  73 6f 66 74 77 61 72 65  |th this software|
000002d0  2e 22 0d 00 6e 24 f1 27  22 50 6c 65 61 73 65 20  |."..n$.'"Please |
000002e0  73 65 6c 65 63 74 3a 20  28 59 29 65 73 20 6f 72  |select: (Y)es or|
000002f0  20 28 4e 29 6f 22 0d 00  78 2f f5 20 6b 24 3d be  | (N)o"..x/. k$=.|
00000300  3a fd a7 22 79 59 6e 4e  22 2c 6b 24 29 3e 30 3a  |:.."yYnN",k$)>0:|
00000310  e7 a7 22 79 59 22 2c 6b  24 29 3e 30 8c 3f 6a 6f  |.."yY",k$)>0.?jo|
00000320  79 73 74 3d 31 0d 00 82  20 f1 27 27 22 4c 6f 61  |yst=1... .''"Loa|
00000330  64 69 6e 67 20 6d 61 69  6e 20 70 72 6f 67 72 61  |ding main progra|
00000340  6d 2e 2e 2e 22 0d 00 8c  0b d7 22 43 41 44 32 22  |m..."....."CAD2"|
00000350  0d 00 96 05 3a 0d 00 a0  09 dd f2 61 73 73 0d 00  |....:......ass..|
00000360  aa 20 6f 73 77 72 63 68  3d 26 46 46 45 45 3a 63  |. oswrch=&FFEE:c|
00000370  68 69 70 3d 37 3a 6f 70  61 6d 70 3d 31 33 0d 00  |hip=7:opamp=13..|
00000380  b4 18 e3 70 61 73 73 3d  30 b8 32 88 32 3a 50 25  |...pass=0.2.2:P%|
00000390  3d 26 35 32 30 30 0d 00  be 0d 5b 4f 50 54 20 70  |=&5200....[OPT p|
000003a0  61 73 73 0d 00 c8 45 4a  4d 50 64 72 61 77 3a 4a  |ass...EJMPdraw:J|
000003b0  4d 50 77 68 61 74 6f 76  65 72 3a 4a 4d 50 64 65  |MPwhatover:JMPde|
000003c0  6c 65 74 65 3a 4a 4d 50  67 65 74 6c 69 6e 6b 3a  |lete:JMPgetlink:|
000003d0  45 51 55 44 70 69 6e 62  61 73 65 20 5c 20 4a 75  |EQUDpinbase \ Ju|
000003e0  6d 70 20 74 61 62 6c 65  0d 00 d2 33 2e 6a 6f 79  |mp table...3.joy|
000003f0  73 74 20 45 51 55 42 30  3a 2e 6d 6f 75 73 65 20  |st EQUB0:.mouse |
00000400  45 51 55 42 30 20 5c 20  49 6e 70 75 74 20 64 65  |EQUB0 \ Input de|
00000410  76 69 63 65 20 73 65 6c  65 63 74 0d 00 dc c3 2e  |vice select.....|
00000420  6c 61 62 65 6c 20 4c 44  59 23 30 3a 4a 53 52 67  |label LDY#0:JSRg|
00000430  65 74 70 6f 73 3a 4c 44  58 23 34 3a 4a 53 52 69  |etpos:LDX#4:JSRi|
00000440  63 6c 69 6e 65 3a 4c 44  41 23 35 3a 4a 53 52 6f  |cline:LDA#5:JSRo|
00000450  73 77 72 63 68 3a 41 53  4c 41 3a 4a 53 52 6f 73  |swrch:ASLA:JSRos|
00000460  77 72 63 68 3a 4c 44 59  23 30 3a 4c 44 41 28 26  |wrch:LDY#0:LDA(&|
00000470  37 32 29 2c 59 3a 43 4d  50 23 63 68 69 70 3a 42  |72),Y:CMP#chip:B|
00000480  45 51 66 69 72 73 74 6c  69 6e 65 3a 4c 44 41 23  |EQfirstline:LDA#|
00000490  31 30 3a 4a 53 52 6f 73  77 72 63 68 3a 2e 66 69  |10:JSRoswrch:.fi|
000004a0  72 73 74 6c 69 6e 65 20  4c 44 59 23 38 3a 2e 64  |rstline LDY#8:.d|
000004b0  6f 6c 61 62 20 4c 44 41  28 26 37 32 29 2c 59 3a  |olab LDA(&72),Y:|
000004c0  4a 53 52 6f 73 77 72 63  68 3a 49 4e 59 3a 54 59  |JSRoswrch:INY:TY|
000004d0  41 3a 80 23 33 3a 42 4e  45 64 6f 6c 61 62 0d 00  |A:.#3:BNEdolab..|
000004e0  e6 74 43 50 59 23 31 36  3a 42 45 51 65 6e 64 6c  |.tCPY#16:BEQendl|
000004f0  61 62 3a 4c 44 41 23 31  30 3a 4a 53 52 6f 73 77  |ab:LDA#10:JSRosw|
00000500  72 63 68 3a 4c 44 41 23  38 3a 4a 53 52 6f 73 77  |rch:LDA#8:JSRosw|
00000510  72 63 68 3a 4a 53 52 6f  73 77 72 63 68 3a 4a 53  |rch:JSRoswrch:JS|
00000520  52 6f 73 77 72 63 68 3a  4a 53 52 6f 73 77 72 63  |Roswrch:JSRoswrc|
00000530  68 3a 4a 4d 50 64 6f 6c  61 62 3a 2e 65 6e 64 6c  |h:JMPdolab:.endl|
00000540  61 62 20 4c 44 41 23 34  3a 4a 4d 50 6f 73 77 72  |ab LDA#4:JMPoswr|
00000550  63 68 0d 00 f0 9d 2e 64  72 61 77 20 4c 44 41 23  |ch.....draw LDA#|
00000560  26 31 30 3a 53 54 41 26  37 32 3a 4c 44 41 23 26  |&10:STA&72:LDA#&|
00000570  34 38 3a 53 54 41 26 37  33 3a 4c 44 41 26 34 38  |48:STA&73:LDA&48|
00000580  30 30 3a 2e 64 6c 6f 6f  70 20 42 45 51 64 72 65  |00:.dloop BEQdre|
00000590  6e 64 3a 50 48 41 3a 4a  53 52 64 72 61 77 63 6f  |nd:PHA:JSRdrawco|
000005a0  6d 70 3a 4a 53 52 6c 61  62 65 6c 3a 4c 44 41 26  |mp:JSRlabel:LDA&|
000005b0  37 32 3a 43 4c 43 3a 41  44 43 23 31 36 3a 53 54  |72:CLC:ADC#16:ST|
000005c0  41 26 37 32 3a 4c 44 41  26 37 33 3a 41 44 43 23  |A&72:LDA&73:ADC#|
000005d0  30 3a 53 54 41 26 37 33  3a 50 4c 41 3a 53 45 43  |0:STA&73:PLA:SEC|
000005e0  3a 53 42 43 23 31 3a 4a  4d 50 64 6c 6f 6f 70 0d  |:SBC#1:JMPdloop.|
000005f0  00 fa e1 2e 64 72 65 6e  64 20 4c 44 41 23 26 46  |....drend LDA#&F|
00000600  38 3a 53 54 41 26 37 32  3a 4c 44 41 23 26 34 37  |8:STA&72:LDA#&47|
00000610  3a 53 54 41 26 37 33 3a  4c 44 41 26 34 37 46 43  |:STA&73:LDA&47FC|
00000620  3a 53 54 41 26 38 30 3a  4c 44 41 26 34 37 46 44  |:STA&80:LDA&47FD|
00000630  3a 53 54 41 26 38 31 3a  2e 6c 6c 6f 70 20 4c 44  |:STA&81:.llop LD|
00000640  41 26 38 30 3a 42 4e 45  6e 6f 6c 6c 6e 6b 3a 4c  |A&80:BNEnollnk:L|
00000650  44 41 26 38 31 3a 42 45  51 6c 6b 65 6e 64 3a 2e  |DA&81:BEQlkend:.|
00000660  6e 6f 6c 6c 6e 6b 20 4a  53 52 64 6f 6c 69 6e 6b  |nollnk JSRdolink|
00000670  3a 4c 44 41 26 37 32 3a  53 45 43 3a 53 42 43 23  |:LDA&72:SEC:SBC#|
00000680  34 3a 53 54 41 26 37 32  3a 4c 44 41 26 37 33 3a  |4:STA&72:LDA&73:|
00000690  53 42 43 23 30 3a 53 54  41 26 37 33 3a 4c 44 41  |SBC#0:STA&73:LDA|
000006a0  26 38 30 3a 53 45 43 3a  53 42 43 23 31 3a 53 54  |&80:SEC:SBC#1:ST|
000006b0  41 26 38 30 3a 4c 44 41  26 38 31 3a 53 42 43 23  |A&80:LDA&81:SBC#|
000006c0  30 3a 53 54 41 26 38 31  3a 4a 4d 50 6c 6c 6f 70  |0:STA&81:JMPllop|
000006d0  0d 01 04 54 2e 6c 6b 65  6e 64 20 52 54 53 3a 2e  |...T.lkend RTS:.|
000006e0  64 6f 6c 69 6e 6b 20 4c  44 59 23 30 3a 4a 53 52  |dolink LDY#0:JSR|
000006f0  67 65 74 63 6f 6f 72 64  3a 4c 44 58 23 34 3a 4a  |getcoord:LDX#4:J|
00000700  53 52 69 63 6c 69 6e 65  3a 4a 53 52 67 65 74 63  |SRicline:JSRgetc|
00000710  6f 6f 72 64 3a 4c 44 58  23 35 3a 4a 4d 50 69 63  |oord:LDX#5:JMPic|
00000720  6c 69 6e 65 0d 01 0e 86  2e 67 65 74 63 6f 6f 72  |line.....getcoor|
00000730  64 20 4c 44 41 28 26 37  32 29 2c 59 3a 53 54 41  |d LDA(&72),Y:STA|
00000740  26 37 38 3a 4c 44 41 23  30 3a 53 54 41 26 37 39  |&78:LDA#0:STA&79|
00000750  3a 41 53 4c 26 37 38 3a  52 4f 4c 26 37 39 3a 41  |:ASL&78:ROL&79:A|
00000760  53 4c 26 37 38 3a 52 4f  4c 26 37 39 3a 41 53 4c  |SL&78:ROL&79:ASL|
00000770  26 37 38 3a 52 4f 4c 26  37 39 3a 41 53 4c 26 37  |&78:ROL&79:ASL&7|
00000780  38 3a 52 4f 4c 26 37 39  3a 4c 44 41 26 37 39 3a  |8:ROL&79:LDA&79:|
00000790  43 4c 43 3a 41 44 43 23  26 34 38 3a 53 54 41 26  |CLC:ADC#&48:STA&|
000007a0  37 39 3a 54 59 41 3a 50  48 41 0d 01 18 c0 4c 44  |79:TYA:PHA....LD|
000007b0  59 23 31 3a 4c 44 41 28  26 37 38 29 2c 59 3a 53  |Y#1:LDA(&78),Y:S|
000007c0  54 41 26 37 34 3a 49 4e  59 3a 4c 44 41 28 26 37  |TA&74:INY:LDA(&7|
000007d0  38 29 2c 59 3a 53 54 41  26 37 35 3a 49 4e 59 3a  |8),Y:STA&75:INY:|
000007e0  4c 44 41 28 26 37 38 29  2c 59 3a 53 54 41 26 37  |LDA(&78),Y:STA&7|
000007f0  36 3a 49 4e 59 3a 4c 44  41 28 26 37 38 29 2c 59  |6:INY:LDA(&78),Y|
00000800  3a 53 54 41 26 37 37 3a  4c 44 59 23 30 3a 4c 44  |:STA&77:LDY#0:LD|
00000810  41 28 26 37 38 29 2c 59  3a 4a 53 52 6c 69 6e 6b  |A(&78),Y:JSRlink|
00000820  69 63 3a 41 53 4c 41 3a  41 53 4c 41 3a 53 54 41  |ic:ASLA:ASLA:STA|
00000830  26 37 41 3a 50 4c 41 3a  54 41 59 3a 49 4e 59 3a  |&7A:PLA:TAY:INY:|
00000840  4c 44 41 28 26 37 32 29  2c 59 3a 43 4c 43 3a 41  |LDA(&72),Y:CLC:A|
00000850  44 43 26 37 41 3a 54 41  58 3a 4c 44 41 6c 69 6e  |DC&7A:TAX:LDAlin|
00000860  6b 70 6f 73 2c 58 3a 50  48 41 0d 01 22 88 80 23  |kpos,X:PHA.."..#|
00000870  31 35 3a 41 53 4c 41 3a  41 53 4c 41 3a 53 54 41  |15:ASLA:ASLA:STA|
00000880  26 37 41 3a 4c 44 41 26  37 36 3a 53 45 43 3a 53  |&7A:LDA&76:SEC:S|
00000890  42 43 26 37 41 3a 53 54  41 26 37 36 3a 4c 44 41  |BC&7A:STA&76:LDA|
000008a0  26 37 37 3a 53 42 43 23  30 3a 53 54 41 26 37 37  |&77:SBC#0:STA&77|
000008b0  3a 50 4c 41 3a 4c 53 52  41 3a 4c 53 52 41 3a 80  |:PLA:LSRA:LSRA:.|
000008c0  23 26 33 43 3a 43 4c 43  3a 41 44 43 26 37 34 3a  |#&3C:CLC:ADC&74:|
000008d0  53 54 41 26 37 34 3a 4c  44 41 26 37 35 3a 41 44  |STA&74:LDA&75:AD|
000008e0  43 23 30 3a 53 54 41 26  37 35 3a 49 4e 59 3a 52  |C#0:STA&75:INY:R|
000008f0  54 53 0d 01 2c 75 2e 67  65 74 70 6f 73 20 49 4e  |TS..,u.getpos IN|
00000900  59 3a 4c 44 41 28 26 37  32 29 2c 59 3a 53 54 41  |Y:LDA(&72),Y:STA|
00000910  26 37 34 3a 49 4e 59 3a  4c 44 41 28 26 37 32 29  |&74:INY:LDA(&72)|
00000920  2c 59 3a 53 54 41 26 37  35 3a 49 4e 59 3a 4c 44  |,Y:STA&75:INY:LD|
00000930  41 28 26 37 32 29 2c 59  3a 53 54 41 26 37 36 3a  |A(&72),Y:STA&76:|
00000940  49 4e 59 3a 4c 44 41 28  26 37 32 29 2c 59 3a 53  |INY:LDA(&72),Y:S|
00000950  54 41 26 37 37 3a 52 54  53 3a 2e 69 63 20 4a 53  |TA&77:RTS:.ic JS|
00000960  52 67 65 74 70 6f 73 0d  01 36 a6 4c 44 58 23 34  |Rgetpos..6.LDX#4|
00000970  3a 4a 53 52 69 63 6c 69  6e 65 3a 4c 44 41 26 37  |:JSRicline:LDA&7|
00000980  34 3a 43 4c 43 3a 41 44  43 23 26 38 30 3a 53 54  |4:CLC:ADC#&80:ST|
00000990  41 26 37 34 3a 4c 44 41  26 37 35 3a 41 44 43 23  |A&74:LDA&75:ADC#|
000009a0  30 3a 53 54 41 26 37 35  3a 4c 44 58 23 35 3a 4a  |0:STA&75:LDX#5:J|
000009b0  53 52 69 63 6c 69 6e 65  3a 4c 44 59 23 35 3a 4c  |SRicline:LDY#5:L|
000009c0  44 41 28 26 37 32 29 2c  59 3a 41 53 4c 41 3a 41  |DA(&72),Y:ASLA:A|
000009d0  53 4c 41 3a 41 53 4c 41  3a 53 54 41 26 38 30 3a  |SLA:ASLA:STA&80:|
000009e0  4c 44 41 23 30 3a 52 4f  4c 41 3a 53 54 41 26 38  |LDA#0:ROLA:STA&8|
000009f0  31 3a 41 53 4c 26 38 30  3a 52 4f 4c 26 38 31 3a  |1:ASL&80:ROL&81:|
00000a00  41 53 4c 26 38 30 3a 52  4f 4c 26 38 31 0d 01 40  |ASL&80:ROL&81..@|
00000a10  ad 4c 44 41 26 37 36 3a  50 48 41 3a 53 45 43 3a  |.LDA&76:PHA:SEC:|
00000a20  53 42 43 26 38 30 3a 53  54 41 26 37 36 3a 4c 44  |SBC&80:STA&76:LD|
00000a30  41 26 37 37 3a 50 48 41  3a 53 42 43 26 38 31 3a  |A&77:PHA:SBC&81:|
00000a40  53 54 41 26 37 37 3a 4c  44 58 23 35 3a 4a 53 52  |STA&77:LDX#5:JSR|
00000a50  69 63 6c 69 6e 65 3a 4c  44 41 26 37 34 3a 53 45  |icline:LDA&74:SE|
00000a60  43 3a 53 42 43 23 26 38  30 3a 53 54 41 26 37 34  |C:SBC#&80:STA&74|
00000a70  3a 4c 44 41 26 37 35 3a  53 42 43 23 30 3a 53 54  |:LDA&75:SBC#0:ST|
00000a80  41 26 37 35 3a 4c 44 58  23 35 3a 4a 53 52 69 63  |A&75:LDX#5:JSRic|
00000a90  6c 69 6e 65 3a 50 4c 41  3a 53 54 41 26 37 37 3a  |line:PLA:STA&77:|
00000aa0  50 4c 41 3a 53 54 41 26  37 36 3a 4c 44 58 23 35  |PLA:STA&76:LDX#5|
00000ab0  3a 4a 53 52 69 63 6c 69  6e 65 0d 01 4a b6 4c 44  |:JSRicline..J.LD|
00000ac0  41 26 37 34 3a 43 4c 43  3a 41 44 43 23 26 33 38  |A&74:CLC:ADC#&38|
00000ad0  3a 53 54 41 26 37 34 3a  4c 44 41 26 37 35 3a 41  |:STA&74:LDA&75:A|
00000ae0  44 43 23 30 3a 53 54 41  26 37 35 3a 4c 44 58 23  |DC#0:STA&75:LDX#|
00000af0  34 3a 4a 53 52 69 63 6c  69 6e 65 3a 4c 44 41 26  |4:JSRicline:LDA&|
00000b00  37 36 3a 53 45 43 3a 53  42 43 23 32 34 3a 53 54  |76:SEC:SBC#24:ST|
00000b10  41 26 37 36 3a 4c 44 41  26 37 37 3a 53 42 43 23  |A&76:LDA&77:SBC#|
00000b20  30 3a 53 54 41 26 37 37  3a 4c 44 58 23 35 3a 4a  |0:STA&77:LDX#5:J|
00000b30  53 52 69 63 6c 69 6e 65  3a 4c 44 41 26 37 34 3a  |SRicline:LDA&74:|
00000b40  43 4c 43 3a 41 44 43 23  26 31 30 3a 53 54 41 26  |CLC:ADC#&10:STA&|
00000b50  37 34 3a 4c 44 41 26 37  35 3a 41 44 43 23 30 3a  |74:LDA&75:ADC#0:|
00000b60  53 54 41 26 37 35 3a 4a  53 52 69 63 6c 69 6e 65  |STA&75:JSRicline|
00000b70  0d 01 54 ce 4c 44 41 26  37 36 3a 43 4c 43 3a 41  |..T.LDA&76:CLC:A|
00000b80  44 43 23 32 34 3a 53 54  41 26 37 36 3a 4c 44 41  |DC#24:STA&76:LDA|
00000b90  26 37 37 3a 41 44 43 23  30 3a 53 54 41 26 37 37  |&77:ADC#0:STA&77|
00000ba0  3a 4a 53 52 69 63 6c 69  6e 65 3a 4c 44 41 26 37  |:JSRicline:LDA&7|
00000bb0  34 3a 53 45 43 3a 53 42  43 23 26 34 38 3a 53 54  |4:SEC:SBC#&48:ST|
00000bc0  41 26 37 34 3a 4c 44 41  26 37 35 3a 53 42 43 23  |A&74:LDA&75:SBC#|
00000bd0  30 3a 53 54 41 26 37 35  3a 4c 44 41 26 37 36 3a  |0:STA&75:LDA&76:|
00000be0  53 45 43 3a 53 42 43 23  38 3a 53 54 41 26 37 36  |SEC:SBC#8:STA&76|
00000bf0  3a 4c 44 41 26 37 37 3a  53 42 43 23 30 3a 53 54  |:LDA&77:SBC#0:ST|
00000c00  41 26 37 37 3a 4c 44 41  28 26 37 32 29 2c 59 3a  |A&77:LDA(&72),Y:|
00000c10  2e 70 69 6e 73 20 50 48  41 3a 4a 53 52 64 72 61  |.pins PHA:JSRdra|
00000c20  77 70 69 6e 3a 50 4c 41  3a 53 45 43 3a 53 42 43  |wpin:PLA:SEC:SBC|
00000c30  23 31 3a 42 4e 45 70 69  6e 73 3a 52 54 53 0d 01  |#1:BNEpins:RTS..|
00000c40  5e c9 2e 64 72 61 77 70  69 6e 20 4c 44 58 23 34  |^..drawpin LDX#4|
00000c50  3a 4a 53 52 69 63 6c 69  6e 65 3a 4c 44 41 26 37  |:JSRicline:LDA&7|
00000c60  34 3a 53 45 43 3a 53 42  43 23 26 31 30 3a 53 54  |4:SEC:SBC#&10:ST|
00000c70  41 26 37 34 3a 4c 44 41  26 37 35 3a 53 42 43 23  |A&74:LDA&75:SBC#|
00000c80  30 3a 53 54 41 26 37 35  3a 4c 44 58 23 35 3a 4a  |0:STA&75:LDX#5:J|
00000c90  53 52 69 63 6c 69 6e 65  3a 4c 44 41 26 37 36 3a  |SRicline:LDA&76:|
00000ca0  53 45 43 3a 53 42 43 23  31 36 3a 53 54 41 26 37  |SEC:SBC#16:STA&7|
00000cb0  36 3a 4c 44 41 26 37 37  3a 53 42 43 23 30 3a 53  |6:LDA&77:SBC#0:S|
00000cc0  54 41 26 37 37 3a 4a 53  52 69 63 6c 69 6e 65 3a  |TA&77:JSRicline:|
00000cd0  4c 44 41 26 37 34 3a 43  4c 43 3a 41 44 43 23 26  |LDA&74:CLC:ADC#&|
00000ce0  31 30 3a 53 54 41 26 37  34 3a 4c 44 41 26 37 35  |10:STA&74:LDA&75|
00000cf0  3a 41 44 43 23 30 3a 53  54 41 26 37 35 3a 4a 53  |:ADC#0:STA&75:JS|
00000d00  52 69 63 6c 69 6e 65 0d  01 68 b6 4c 44 41 26 37  |Ricline..h.LDA&7|
00000d10  34 3a 43 4c 43 3a 41 44  43 23 26 38 30 3a 53 54  |4:CLC:ADC#&80:ST|
00000d20  41 26 37 34 3a 4c 44 41  26 37 35 3a 41 44 43 23  |A&74:LDA&75:ADC#|
00000d30  30 3a 53 54 41 26 37 35  3a 4c 44 58 23 34 3a 4a  |0:STA&75:LDX#4:J|
00000d40  53 52 69 63 6c 69 6e 65  3a 4c 44 41 26 37 34 3a  |SRicline:LDA&74:|
00000d50  43 4c 43 3a 41 44 43 23  26 31 30 3a 53 54 41 26  |CLC:ADC#&10:STA&|
00000d60  37 34 3a 4c 44 41 26 37  35 3a 41 44 43 23 30 3a  |74:LDA&75:ADC#0:|
00000d70  53 54 41 26 37 35 3a 4c  44 58 23 35 3a 4a 53 52  |STA&75:LDX#5:JSR|
00000d80  69 63 6c 69 6e 65 3a 4c  44 41 26 37 36 3a 43 4c  |icline:LDA&76:CL|
00000d90  43 3a 41 44 43 23 31 36  3a 53 54 41 26 37 36 3a  |C:ADC#16:STA&76:|
00000da0  4c 44 41 26 37 37 3a 41  44 43 23 30 3a 53 54 41  |LDA&77:ADC#0:STA|
00000db0  26 37 37 3a 4a 53 52 69  63 6c 69 6e 65 0d 01 72  |&77:JSRicline..r|
00000dc0  9b 4c 44 41 26 37 34 3a  53 45 43 3a 53 42 43 23  |.LDA&74:SEC:SBC#|
00000dd0  26 31 30 3a 53 54 41 26  37 34 3a 4c 44 41 26 37  |&10:STA&74:LDA&7|
00000de0  35 3a 53 42 43 23 30 3a  53 54 41 26 37 35 3a 4a  |5:SBC#0:STA&75:J|
00000df0  53 52 69 63 6c 69 6e 65  3a 4c 44 41 26 37 34 3a  |SRicline:LDA&74:|
00000e00  53 45 43 3a 53 42 43 23  26 38 30 3a 53 54 41 26  |SEC:SBC#&80:STA&|
00000e10  37 34 3a 4c 44 41 26 37  35 3a 53 42 43 23 30 3a  |74:LDA&75:SBC#0:|
00000e20  53 54 41 26 37 35 3a 4c  44 41 26 37 36 3a 53 45  |STA&75:LDA&76:SE|
00000e30  43 3a 53 42 43 23 26 32  30 3a 53 54 41 26 37 36  |C:SBC#&20:STA&76|
00000e40  3a 4c 44 41 26 37 37 3a  53 42 43 23 30 3a 53 54  |:LDA&77:SBC#0:ST|
00000e50  41 26 37 37 3a 52 54 53  0d 01 7c 6e 2e 69 63 6c  |A&77:RTS..|n.icl|
00000e60  69 6e 65 20 4c 44 41 23  32 35 3a 4a 53 52 6f 73  |ine LDA#25:JSRos|
00000e70  77 72 63 68 3a 54 58 41  3a 4a 53 52 6f 73 77 72  |wrch:TXA:JSRoswr|
00000e80  63 68 3a 4c 44 41 26 37  34 3a 4a 53 52 6f 73 77  |ch:LDA&74:JSRosw|
00000e90  72 63 68 3a 4c 44 41 26  37 35 3a 4a 53 52 6f 73  |rch:LDA&75:JSRos|
00000ea0  77 72 63 68 3a 4c 44 41  26 37 36 3a 4a 53 52 6f  |wrch:LDA&76:JSRo|
00000eb0  73 77 72 63 68 3a 4c 44  41 26 37 37 3a 4a 4d 50  |swrch:LDA&77:JMP|
00000ec0  6f 73 77 72 63 68 0d 01  86 64 2e 64 72 61 77 63  |oswrch...d.drawc|
00000ed0  6f 6d 70 20 4c 44 59 23  30 3a 4c 44 41 28 26 37  |omp LDY#0:LDA(&7|
00000ee0  32 29 2c 59 3a 43 4d 50  23 63 68 69 70 3a 42 4e  |2),Y:CMP#chip:BN|
00000ef0  45 6e 69 63 3a 4a 4d 50  69 63 3a 2e 6e 69 63 20  |Enic:JMPic:.nic |
00000f00  43 4d 50 23 6f 70 61 6d  70 3a 42 4e 45 6e 6f 74  |CMP#opamp:BNEnot|
00000f10  6f 61 3a 4a 53 52 6e 6f  74 6f 61 3a 4c 44 59 23  |oa:JSRnotoa:LDY#|
00000f20  30 3a 4c 44 41 23 63 68  69 70 0d 01 90 8d 2e 6e  |0:LDA#chip.....n|
00000f30  6f 74 6f 61 20 41 53 4c  20 41 3a 41 53 4c 20 41  |otoa ASL A:ASL A|
00000f40  3a 41 53 4c 20 41 3a 41  53 4c 20 41 3a 53 54 41  |:ASL A:ASL A:STA|
00000f50  26 37 38 3a 4c 44 41 23  30 3a 52 4f 4c 41 3a 53  |&78:LDA#0:ROLA:S|
00000f60  54 41 26 37 39 3a 4c 44  41 26 37 38 3a 43 4c 43  |TA&79:LDA&78:CLC|
00000f70  3a 41 44 43 23 28 63 6f  6d 70 73 20 83 32 35 36  |:ADC#(comps .256|
00000f80  29 3a 53 54 41 26 37 38  3a 4c 44 41 26 37 39 3a  |):STA&78:LDA&79:|
00000f90  41 44 43 23 28 63 6f 6d  70 73 20 81 32 35 36 29  |ADC#(comps .256)|
00000fa0  3a 53 54 41 26 37 39 3a  4a 53 52 67 65 74 70 6f  |:STA&79:JSRgetpo|
00000fb0  73 3a 4c 44 59 23 30 0d  01 9a a7 2e 64 72 61 77  |s:LDY#0.....draw|
00000fc0  6c 69 6e 65 20 4c 44 41  28 26 37 38 29 2c 59 3a  |line LDA(&78),Y:|
00000fd0  43 4d 50 23 32 35 35 3a  42 45 51 65 6e 64 63 6f  |CMP#255:BEQendco|
00000fe0  6d 70 3a 4c 44 41 23 32  35 3a 4a 53 52 6f 73 77  |mp:LDA#25:JSRosw|
00000ff0  72 63 68 3a 4c 44 41 23  34 3a 4a 53 52 6f 73 77  |rch:LDA#4:JSRosw|
00001000  72 63 68 3a 4a 53 52 70  6c 6f 74 3a 49 4e 59 3a  |rch:JSRplot:INY:|
00001010  4c 44 41 23 32 35 3a 4a  53 52 6f 73 77 72 63 68  |LDA#25:JSRoswrch|
00001020  3a 4c 44 41 23 35 3a 4a  53 52 6f 73 77 72 63 68  |:LDA#5:JSRoswrch|
00001030  3a 4a 53 52 70 6c 6f 74  3a 49 4e 59 3a 54 59 41  |:JSRplot:INY:TYA|
00001040  3a 80 23 31 35 3a 42 4e  45 64 72 61 77 6c 69 6e  |:.#15:BNEdrawlin|
00001050  65 3a 2e 65 6e 64 63 6f  6d 70 20 52 54 53 0d 01  |e:.endcomp RTS..|
00001060  a4 b3 2e 70 6c 6f 74 20  4c 44 41 28 26 37 38 29  |...plot LDA(&78)|
00001070  2c 59 3a 4c 53 52 41 3a  4c 53 52 41 3a 80 23 36  |,Y:LSRA:LSRA:.#6|
00001080  30 3a 43 4c 43 3a 41 44  43 26 37 34 3a 50 48 50  |0:CLC:ADC&74:PHP|
00001090  3a 4a 53 52 6f 73 77 72  63 68 3a 50 4c 50 3a 4c  |:JSRoswrch:PLP:L|
000010a0  44 41 26 37 35 3a 41 44  43 23 30 3a 4a 53 52 6f  |DA&75:ADC#0:JSRo|
000010b0  73 77 72 63 68 3a 4c 44  41 28 26 37 38 29 2c 59  |swrch:LDA(&78),Y|
000010c0  3a 80 23 31 35 3a 41 53  4c 41 3a 41 53 4c 41 3a  |:.#15:ASLA:ASLA:|
000010d0  53 54 41 26 37 41 3a 4c  44 41 26 37 36 3a 53 45  |STA&7A:LDA&76:SE|
000010e0  43 3a 53 42 43 26 37 41  3a 50 48 50 3a 4a 53 52  |C:SBC&7A:PHP:JSR|
000010f0  6f 73 77 72 63 68 3a 50  4c 50 3a 4c 44 41 26 37  |oswrch:PLP:LDA&7|
00001100  37 3a 53 42 43 23 30 3a  4a 4d 50 6f 73 77 72 63  |7:SBC#0:JMPoswrc|
00001110  68 0d 01 ae bf 2e 77 68  61 74 6f 76 65 72 20 4c  |h.....whatover L|
00001120  44 41 23 30 3a 53 54 41  26 37 36 3a 53 54 41 26  |DA#0:STA&76:STA&|
00001130  37 37 3a 4c 44 41 23 26  31 30 3a 53 54 41 26 37  |77:LDA#&10:STA&7|
00001140  34 3a 4c 44 41 23 26 34  38 3a 53 54 41 26 37 35  |4:LDA#&48:STA&75|
00001150  3a 4c 44 41 26 34 38 30  30 3a 2e 63 6c 6f 6f 70  |:LDA&4800:.cloop|
00001160  20 42 45 51 63 68 65 6e  64 3a 49 4e 43 26 37 36  | BEQchend:INC&76|
00001170  3a 50 48 41 3a 4a 53 52  63 68 65 63 6b 63 6f 6d  |:PHA:JSRcheckcom|
00001180  70 3a 4c 44 41 26 37 34  3a 43 4c 43 3a 41 44 43  |p:LDA&74:CLC:ADC|
00001190  23 31 36 3a 53 54 41 26  37 34 3a 4c 44 41 26 37  |#16:STA&74:LDA&7|
000011a0  35 3a 41 44 43 23 30 3a  53 54 41 26 37 35 3a 50  |5:ADC#0:STA&75:P|
000011b0  4c 41 3a 53 45 43 3a 53  42 43 23 31 3a 4a 4d 50  |LA:SEC:SBC#1:JMP|
000011c0  63 6c 6f 6f 70 3a 2e 63  68 65 6e 64 20 52 54 53  |cloop:.chend RTS|
000011d0  0d 01 b8 c2 2e 63 68 65  63 6b 63 6f 6d 70 20 4c  |.....checkcomp L|
000011e0  44 59 23 31 3a 4c 44 41  26 37 30 3a 53 45 43 3a  |DY#1:LDA&70:SEC:|
000011f0  53 42 43 28 26 37 34 29  2c 59 3a 50 48 41 3a 4c  |SBC(&74),Y:PHA:L|
00001200  44 41 26 37 31 3a 49 4e  59 3a 53 42 43 28 26 37  |DA&71:INY:SBC(&7|
00001210  34 29 2c 59 3a 42 4e 45  6e 6f 68 69 74 3a 50 4c  |4),Y:BNEnohit:PL|
00001220  41 3a 43 4d 50 23 36 34  3a 42 43 53 6e 6f 68 69  |A:CMP#64:BCSnohi|
00001230  74 32 3a 49 4e 59 3a 4c  44 41 28 26 37 34 29 2c  |t2:INY:LDA(&74),|
00001240  59 3a 53 45 43 3a 53 42  43 26 37 32 3a 50 48 41  |Y:SEC:SBC&72:PHA|
00001250  3a 49 4e 59 3a 4c 44 41  28 26 37 34 29 2c 59 3a  |:INY:LDA(&74),Y:|
00001260  53 42 43 26 37 33 3a 42  4e 45 6e 6f 68 69 74 3a  |SBC&73:BNEnohit:|
00001270  50 4c 41 3a 43 4d 50 23  36 34 3a 42 43 53 6e 6f  |PLA:CMP#64:BCSno|
00001280  68 69 74 32 3a 4c 44 41  26 37 36 3a 53 54 41 26  |hit2:LDA&76:STA&|
00001290  37 37 0d 01 c2 3a 4c 44  41 26 37 34 3a 53 54 41  |77...:LDA&74:STA|
000012a0  26 37 38 3a 4c 44 41 26  37 35 3a 53 54 41 26 37  |&78:LDA&75:STA&7|
000012b0  39 3a 52 54 53 3a 2e 6e  6f 68 69 74 20 50 4c 41  |9:RTS:.nohit PLA|
000012c0  3a 2e 6e 6f 68 69 74 32  20 52 54 53 0d 01 cc 75  |:.nohit2 RTS...u|
000012d0  2e 64 65 6c 65 74 65 20  4c 44 59 23 31 36 3a 4c  |.delete LDY#16:L|
000012e0  44 41 28 26 37 38 29 2c  59 3a 4c 44 59 23 30 3a  |DA(&78),Y:LDY#0:|
000012f0  53 54 41 28 26 37 38 29  2c 59 3a 4c 44 41 26 37  |STA(&78),Y:LDA&7|
00001300  38 3a 43 4c 43 3a 41 44  43 23 31 3a 53 54 41 26  |8:CLC:ADC#1:STA&|
00001310  37 38 3a 4c 44 41 26 37  39 3a 41 44 43 23 30 3a  |78:LDA&79:ADC#0:|
00001320  53 54 41 26 37 39 3a 43  4d 50 23 26 35 32 3a 42  |STA&79:CMP#&52:B|
00001330  4e 45 64 65 6c 65 74 65  3a 44 45 43 26 34 38 30  |NEdelete:DEC&480|
00001340  30 0d 01 d6 99 4c 44 41  23 26 46 38 3a 53 54 41  |0....LDA#&F8:STA|
00001350  26 37 32 3a 53 54 41 26  37 34 3a 4c 44 41 23 26  |&72:STA&74:LDA#&|
00001360  34 37 3a 53 54 41 26 37  33 3a 53 54 41 26 37 35  |47:STA&73:STA&75|
00001370  3a 4c 44 41 26 34 37 46  43 3a 53 54 41 26 38 30  |:LDA&47FC:STA&80|
00001380  3a 4c 44 41 26 34 37 46  44 3a 53 54 41 26 38 31  |:LDA&47FD:STA&81|
00001390  3a 4c 44 41 23 30 3a 53  54 41 26 38 32 3a 53 54  |:LDA#0:STA&82:ST|
000013a0  41 26 38 33 3a 2e 6c 64  65 6c 20 4c 44 41 26 38  |A&83:.ldel LDA&8|
000013b0  30 3a 42 4e 45 63 64 65  6c 3a 4c 44 41 26 38 31  |0:BNEcdel:LDA&81|
000013c0  3a 42 45 51 64 65 6c 6c  6b 3a 2e 63 64 65 6c 20  |:BEQdellk:.cdel |
000013d0  4a 53 52 63 68 65 6c 69  6e 6b 0d 01 e0 8e 4c 44  |JSRchelink....LD|
000013e0  41 26 37 32 3a 53 45 43  3a 53 42 43 23 34 3a 53  |A&72:SEC:SBC#4:S|
000013f0  54 41 26 37 32 3a 4c 44  41 26 37 33 3a 53 42 43  |TA&72:LDA&73:SBC|
00001400  23 30 3a 53 54 41 26 37  33 3a 4c 44 41 26 38 30  |#0:STA&73:LDA&80|
00001410  3a 53 45 43 3a 53 42 43  23 31 3a 53 54 41 26 38  |:SEC:SBC#1:STA&8|
00001420  30 3a 4c 44 41 26 38 31  3a 53 42 43 23 30 3a 53  |0:LDA&81:SBC#0:S|
00001430  54 41 26 38 31 3a 4a 4d  50 6c 64 65 6c 3a 2e 64  |TA&81:JMPldel:.d|
00001440  65 6c 6c 6b 20 4c 44 41  26 38 32 3a 53 54 41 26  |ellk LDA&82:STA&|
00001450  34 37 46 43 3a 4c 44 41  26 38 33 3a 53 54 41 26  |47FC:LDA&83:STA&|
00001460  34 37 46 44 3a 52 54 53  0d 01 ea ea 2e 63 68 65  |47FD:RTS.....che|
00001470  6c 69 6e 6b 20 4c 44 59  23 30 3a 4c 44 41 28 26  |link LDY#0:LDA(&|
00001480  37 32 29 2c 59 3a 43 4d  50 26 37 37 3a 42 45 51  |72),Y:CMP&77:BEQ|
00001490  63 75 74 6c 69 6e 6b 3a  42 43 43 6e 6f 73 75 62  |cutlink:BCCnosub|
000014a0  6c 3a 53 42 43 23 31 3a  2e 6e 6f 73 75 62 6c 20  |l:SBC#1:.nosubl |
000014b0  53 54 41 28 26 37 34 29  2c 59 3a 4c 44 59 23 32  |STA(&74),Y:LDY#2|
000014c0  3a 4c 44 41 28 26 37 32  29 2c 59 3a 43 4d 50 26  |:LDA(&72),Y:CMP&|
000014d0  37 37 3a 42 45 51 63 75  74 6c 69 6e 6b 3a 4c 44  |77:BEQcutlink:LD|
000014e0  59 23 33 3a 4c 44 41 28  26 37 32 29 2c 59 3a 53  |Y#3:LDA(&72),Y:S|
000014f0  54 41 28 26 37 34 29 2c  59 3a 4c 44 59 23 31 3a  |TA(&74),Y:LDY#1:|
00001500  4c 44 41 28 26 37 32 29  2c 59 3a 53 54 41 28 26  |LDA(&72),Y:STA(&|
00001510  37 34 29 2c 59 3a 4c 44  59 23 32 3a 4c 44 41 28  |74),Y:LDY#2:LDA(|
00001520  26 37 32 29 2c 59 3a 43  4d 50 26 37 37 3a 42 43  |&72),Y:CMP&77:BC|
00001530  43 6e 6f 73 75 62 6c 32  3a 53 42 43 23 31 3a 2e  |Cnosubl2:SBC#1:.|
00001540  6e 6f 73 75 62 6c 32 20  53 54 41 28 26 37 34 29  |nosubl2 STA(&74)|
00001550  2c 59 0d 01 f4 68 4c 44  41 26 37 34 3a 53 45 43  |,Y...hLDA&74:SEC|
00001560  3a 53 42 43 23 34 3a 53  54 41 26 37 34 3a 4c 44  |:SBC#4:STA&74:LD|
00001570  41 26 37 35 3a 53 42 43  23 30 3a 53 54 41 26 37  |A&75:SBC#0:STA&7|
00001580  35 3a 4c 44 41 26 38 32  3a 43 4c 43 3a 41 44 43  |5:LDA&82:CLC:ADC|
00001590  23 31 3a 53 54 41 26 38  32 3a 4c 44 41 26 38 33  |#1:STA&82:LDA&83|
000015a0  3a 41 44 43 23 30 3a 53  54 41 26 38 33 3a 2e 63  |:ADC#0:STA&83:.c|
000015b0  75 74 6c 69 6e 6b 20 52  54 53 0d 01 fe 88 2e 67  |utlink RTS.....g|
000015c0  65 74 6c 69 6e 6b 20 4c  44 59 23 30 3a 4c 44 41  |etlink LDY#0:LDA|
000015d0  23 28 6c 69 6e 6b 73 20  83 32 35 36 29 3a 53 54  |#(links .256):ST|
000015e0  41 26 37 32 3a 4c 44 41  23 28 6c 69 6e 6b 73 20  |A&72:LDA#(links |
000015f0  81 32 35 36 29 3a 53 54  41 26 37 33 3a 4c 44 58  |.256):STA&73:LDX|
00001600  26 37 30 3a 2e 66 69 6e  64 6c 6e 6b 20 42 45 51  |&70:.findlnk BEQ|
00001610  67 6f 74 6c 6e 6b 3a 2e  66 77 64 20 4c 44 41 28  |gotlnk:.fwd LDA(|
00001620  26 37 32 29 2c 59 3a 50  48 41 3a 4c 44 41 26 37  |&72),Y:PHA:LDA&7|
00001630  32 3a 43 4c 43 3a 41 44  43 23 31 3a 53 54 41 26  |2:CLC:ADC#1:STA&|
00001640  37 32 0d 02 08 3d 4c 44  41 26 37 33 3a 41 44 43  |72...=LDA&73:ADC|
00001650  23 30 3a 53 54 41 26 37  33 3a 50 4c 41 3a 42 4e  |#0:STA&73:PLA:BN|
00001660  45 66 77 64 3a 44 45 58  3a 4a 4d 50 66 69 6e 64  |Efwd:DEX:JMPfind|
00001670  6c 6e 6b 3a 2e 67 6f 74  6c 6e 6b 20 52 54 53 0d  |lnk:.gotlnk RTS.|
00001680  02 12 5a 2e 63 6f 6d 70  73 20 45 51 55 57 26 30  |..Z.comps EQUW&0|
00001690  34 34 34 3a 45 51 55 57  26 34 30 34 38 3a 45 51  |444:EQUW&4048:EQ|
000016a0  55 57 26 37 30 37 38 3a  45 51 55 57 26 37 34 41  |UW&7078:EQUW&74A|
000016b0  34 3a 45 51 55 57 26 46  46 46 46 3a 45 51 55 57  |4:EQUW&FFFF:EQUW|
000016c0  26 46 46 46 46 3a 45 51  55 57 26 46 46 46 46 3a  |&FFFF:EQUW&FFFF:|
000016d0  45 51 55 57 26 46 46 46  46 0d 02 1c 53 45 51 55  |EQUW&FFFF...SEQU|
000016e0  57 26 30 34 34 34 3a 45  51 55 57 26 34 30 34 38  |W&0444:EQUW&4048|
000016f0  3a 45 51 55 57 26 37 32  37 36 3a 45 51 55 57 26  |:EQUW&7276:EQUW&|
00001700  38 30 38 31 3a 45 51 55  57 26 38 37 38 38 3a 45  |8081:EQUW&8788:E|
00001710  51 55 57 26 37 34 41 34  3a 45 51 55 57 26 46 46  |QUW&74A4:EQUW&FF|
00001720  46 46 3a 45 51 55 57 26  46 46 46 46 0d 02 26 53  |FF:EQUW&FFFF..&S|
00001730  45 51 55 57 26 30 36 34  36 3a 45 51 55 57 26 34  |EQUW&0646:EQUW&4|
00001740  30 34 43 3a 45 51 55 57  26 36 33 36 39 3a 45 51  |04C:EQUW&6369:EQ|
00001750  55 57 26 36 36 38 36 3a  45 51 55 57 26 46 46 46  |UW&6686:EQUW&FFF|
00001760  46 3a 45 51 55 57 26 46  46 46 46 3a 45 51 55 57  |F:EQUW&FFFF:EQUW|
00001770  26 46 46 46 46 3a 45 51  55 57 26 46 46 46 46 0d  |&FFFF:EQUW&FFFF.|
00001780  02 30 53 45 51 55 57 26  30 36 33 36 3a 45 51 55  |.0SEQUW&0636:EQU|
00001790  57 26 33 30 33 43 3a 45  51 55 57 26 35 33 35 39  |W&303C:EQUW&5359|
000017a0  3a 45 51 55 57 26 37 36  37 36 3a 45 51 55 57 26  |:EQUW&7676:EQUW&|
000017b0  39 36 39 36 3a 45 51 55  57 26 42 30 42 43 3a 45  |9696:EQUW&B0BC:E|
000017c0  51 55 57 26 44 33 44 39  3a 45 51 55 57 26 44 36  |QUW&D3D9:EQUW&D6|
000017d0  46 36 0d 02 3a 53 45 51  55 57 26 30 36 34 36 3a  |F6..:SEQUW&0646:|
000017e0  45 51 55 57 26 34 30 34  43 3a 45 51 55 57 26 34  |EQUW&404C:EQUW&4|
000017f0  30 41 36 3a 45 51 55 57  26 34 43 41 36 3a 45 51  |0A6:EQUW&4CA6:EQ|
00001800  55 57 26 41 36 46 36 3a  45 51 55 57 26 41 30 41  |UW&A6F6:EQUW&A0A|
00001810  43 3a 45 51 55 57 26 46  46 46 46 3a 45 51 55 57  |C:EQUW&FFFF:EQUW|
00001820  26 46 46 46 46 0d 02 44  53 45 51 55 57 26 30 36  |&FFFF..DSEQUW&06|
00001830  34 36 3a 45 51 55 57 26  34 30 34 43 3a 45 51 55  |46:EQUW&404C:EQU|
00001840  57 26 34 30 41 36 3a 45  51 55 57 26 34 43 41 36  |W&40A6:EQUW&4CA6|
00001850  3a 45 51 55 57 26 41 36  46 36 3a 45 51 55 57 26  |:EQUW&A6F6:EQUW&|
00001860  41 32 41 41 3a 45 51 55  57 26 43 30 41 32 3a 45  |A2AA:EQUW&C0A2:E|
00001870  51 55 57 26 38 43 41 41  0d 02 4e 53 45 51 55 57  |QUW&8CAA..NSEQUW|
00001880  26 34 30 34 34 3a 45 51  55 57 26 30 34 38 34 3a  |&4044:EQUW&0484:|
00001890  45 51 55 57 26 31 36 37  36 3a 45 51 55 57 26 32  |EQUW&1676:EQUW&2|
000018a0  38 36 38 3a 45 51 55 57  26 46 46 46 46 3a 45 51  |868:EQUW&FFFF:EQ|
000018b0  55 57 26 46 46 46 46 3a  45 51 55 57 26 46 46 46  |UW&FFFF:EQUW&FFF|
000018c0  46 3a 45 51 55 57 26 46  46 46 46 0d 02 58 62 45  |F:EQUW&FFFF..XbE|
000018d0  51 55 57 26 30 34 34 34  3a 45 51 55 57 26 30 43  |QUW&0444:EQUW&0C|
000018e0  34 43 3a 45 51 55 57 26  34 30 34 46 3a 45 51 55  |4C:EQUW&404F:EQU|
000018f0  57 26 34 30 43 38 3a 45  51 55 57 26 35 46 43 38  |W&40C8:EQUW&5FC8|
00001900  3a 45 51 55 57 26 43 38  46 38 3a 45 51 55 57 26  |:EQUW&C8F8:EQUW&|
00001910  38 30 38 34 3a 45 51 55  57 26 38 43 38 46 20 5c  |8084:EQUW&8C8F \|
00001920  20 4f 70 41 6d 70 20 50  61 72 74 20 49 0d 02 62  | OpAmp Part I..b|
00001930  53 45 51 55 57 26 30 34  32 34 3a 45 51 55 57 26  |SEQUW&0424:EQUW&|
00001940  32 34 34 30 3a 45 51 55  57 26 34 30 36 34 3a 45  |2440:EQUW&4064:E|
00001950  51 55 57 26 36 34 38 30  3a 45 51 55 57 26 38 30  |QUW&6480:EQUW&80|
00001960  41 34 3a 45 51 55 57 26  41 34 43 30 3a 45 51 55  |A4:EQUW&A4C0:EQU|
00001970  57 26 43 30 45 34 3a 45  51 55 57 26 45 34 46 34  |W&C0E4:EQUW&E4F4|
00001980  0d 02 6c 53 45 51 55 57  26 30 34 34 34 3a 45 51  |..lSEQUW&0444:EQ|
00001990  55 57 26 30 43 34 43 3a  45 51 55 57 26 34 30 34  |UW&0C4C:EQUW&404|
000019a0  46 3a 45 51 55 57 26 34  30 38 32 3a 45 51 55 57  |F:EQUW&4082:EQUW|
000019b0  26 38 32 43 37 3a 45 51  55 57 26 43 38 38 44 3a  |&82C7:EQUW&C88D:|
000019c0  45 51 55 57 26 38 44 34  46 3a 45 51 55 57 26 43  |EQUW&8D4F:EQUW&C|
000019d0  37 46 37 0d 02 76 53 45  51 55 57 26 30 36 34 36  |7F7..vSEQUW&0646|
000019e0  3a 45 51 55 57 26 34 30  34 43 3a 45 51 55 57 26  |:EQUW&404C:EQUW&|
000019f0  34 30 41 36 3a 45 51 55  57 26 34 43 41 36 3a 45  |40A6:EQUW&4CA6:E|
00001a00  51 55 57 26 42 35 43 36  3a 45 51 55 57 26 42 37  |QUW&B5C6:EQUW&B7|
00001a10  43 36 3a 45 51 55 57 26  43 36 46 36 3a 45 51 55  |C6:EQUW&C6F6:EQU|
00001a20  57 26 46 46 46 46 0d 02  80 53 45 51 55 57 26 30  |W&FFFF...SEQUW&0|
00001a30  34 36 34 3a 45 51 55 57  26 30 43 36 43 3a 45 51  |464:EQUW&0C6C:EQ|
00001a40  55 57 26 36 31 36 45 3a  45 51 55 57 26 34 30 38  |UW&616E:EQUW&408|
00001a50  32 3a 45 51 55 57 26 38  32 43 37 3a 45 51 55 57  |2:EQUW&82C7:EQUW|
00001a60  26 43 38 38 44 3a 45 51  55 57 26 38 44 34 46 3a  |&C88D:EQUW&8D4F:|
00001a70  45 51 55 57 26 43 37 46  37 0d 02 8a 53 45 51 55  |EQUW&C7F7...SEQU|
00001a80  57 26 30 30 32 30 3a 45  51 55 57 26 32 30 32 32  |W&0020:EQUW&2022|
00001a90  3a 45 51 55 57 26 32 32  30 32 3a 45 51 55 57 26  |:EQUW&2202:EQUW&|
00001aa0  30 32 30 30 3a 45 51 55  57 26 46 46 46 46 3a 45  |0200:EQUW&FFFF:E|
00001ab0  51 55 57 26 46 46 46 46  3a 45 51 55 57 26 46 46  |QUW&FFFF:EQUW&FF|
00001ac0  46 46 3a 45 51 55 57 26  46 46 46 46 0d 02 94 63  |FF:EQUW&FFFF...c|
00001ad0  45 51 55 57 26 35 39 37  39 3a 45 51 55 57 26 35  |EQUW&5979:EQUW&5|
00001ae0  36 37 36 3a 45 51 55 57  26 36 35 36 37 3a 45 51  |676:EQUW&6567:EQ|
00001af0  55 57 26 46 46 46 46 3a  45 51 55 57 26 46 46 46  |UW&FFFF:EQUW&FFF|
00001b00  46 3a 45 51 55 57 26 46  46 46 46 3a 45 51 55 57  |F:EQUW&FFFF:EQUW|
00001b10  26 46 46 46 46 3a 45 51  55 57 26 46 46 46 46 20  |&FFFF:EQUW&FFFF |
00001b20  5c 20 4f 70 41 6d 70 20  50 61 72 74 20 49 49 0d  |\ OpAmp Part II.|
00001b30  02 9e 53 45 51 55 57 26  30 34 32 34 3a 45 51 55  |..SEQUW&0424:EQU|
00001b40  57 26 32 30 32 38 3a 45  51 55 57 26 32 30 45 30  |W&2028:EQUW&20E0|
00001b50  3a 45 51 55 57 26 32 38  45 38 3a 45 51 55 57 26  |:EQUW&28E8:EQUW&|
00001b60  45 30 45 38 3a 45 51 55  57 26 45 34 46 34 3a 45  |E0E8:EQUW&E4F4:E|
00001b70  51 55 57 26 46 46 46 46  3a 45 51 55 57 26 46 46  |QUW&FFFF:EQUW&FF|
00001b80  46 46 0d 02 a8 53 45 51  55 57 26 30 34 32 34 3a  |FF...SEQUW&0424:|
00001b90  45 51 55 57 26 32 30 32  38 3a 45 51 55 57 26 32  |EQUW&2028:EQUW&2|
00001ba0  30 45 30 3a 45 51 55 57  26 32 38 45 38 3a 45 51  |0E0:EQUW&28E8:EQ|
00001bb0  55 57 26 45 30 45 38 3a  45 51 55 57 26 45 34 46  |UW&E0E8:EQUW&E4F|
00001bc0  34 3a 45 51 55 57 26 38  38 38 46 3a 45 51 55 57  |4:EQUW&888F:EQUW|
00001bd0  26 37 42 39 42 0d 02 b2  53 45 51 55 57 26 30 34  |&7B9B...SEQUW&04|
00001be0  34 34 3a 45 51 55 57 26  34 34 43 30 3a 45 51 55  |44:EQUW&44C0:EQU|
00001bf0  57 26 43 34 46 34 3a 45  51 55 57 26 46 46 46 46  |W&C4F4:EQUW&FFFF|
00001c00  3a 45 51 55 57 26 46 46  46 46 3a 45 51 55 57 26  |:EQUW&FFFF:EQUW&|
00001c10  46 46 46 46 3a 45 51 55  57 26 46 46 46 46 3a 45  |FFFF:EQUW&FFFF:E|
00001c20  51 55 57 26 46 46 46 46  0d 02 bc 53 45 51 55 57  |QUW&FFFF...SEQUW|
00001c30  26 30 38 34 38 3a 45 51  55 57 26 34 32 34 45 3a  |&0848:EQUW&424E:|
00001c40  45 51 55 57 26 34 36 41  30 3a 45 51 55 57 26 34  |EQUW&46A0:EQUW&4|
00001c50  39 41 46 3a 45 51 55 57  26 37 43 37 39 3a 45 51  |9AF:EQUW&7C79:EQ|
00001c60  55 57 26 37 43 35 43 3a  45 51 55 57 26 46 46 46  |UW&7C5C:EQUW&FFF|
00001c70  46 3a 45 51 55 57 26 46  46 46 46 0d 02 c6 53 45  |F:EQUW&FFFF...SE|
00001c80  51 55 57 26 30 38 34 38  3a 45 51 55 57 26 34 32  |QUW&0848:EQUW&42|
00001c90  34 45 3a 45 51 55 57 26  34 36 41 30 3a 45 51 55  |4E:EQUW&46A0:EQU|
00001ca0  57 26 34 39 41 46 3a 45  51 55 57 26 36 42 38 42  |W&49AF:EQUW&6B8B|
00001cb0  3a 45 51 55 57 26 36 42  36 44 3a 45 51 55 57 26  |:EQUW&6B6D:EQUW&|
00001cc0  46 46 46 46 3a 45 51 55  57 26 46 46 46 46 0d 02  |FFFF:EQUW&FFFF..|
00001cd0  d0 53 45 51 55 57 26 30  38 34 38 3a 45 51 55 57  |.SEQUW&0848:EQUW|
00001ce0  26 34 34 34 43 3a 45 51  55 57 26 37 32 37 45 3a  |&444C:EQUW&727E:|
00001cf0  45 51 55 57 26 37 34 41  34 3a 45 51 55 57 26 41  |EQUW&74A4:EQUW&A|
00001d00  34 41 30 3a 45 51 55 57  26 37 43 41 43 3a 45 51  |4A0:EQUW&7CAC:EQ|
00001d10  55 57 26 41 43 41 46 3a  45 51 55 57 26 46 46 46  |UW&ACAF:EQUW&FFF|
00001d20  46 0d 02 da 16 5d 3a 50  25 3d 26 41 30 30 3a 5b  |F....]:P%=&A00:[|
00001d30  4f 50 54 70 61 73 73 0d  02 e4 9a 2e 6c 69 6e 6b  |OPTpass.....link|
00001d40  73 20 45 51 55 53 22 43  61 70 61 63 74 72 20 4c  |s EQUS"Capactr L|
00001d50  65 66 74 20 20 20 20 52  69 67 68 74 20 20 22 3a  |eft    Right  ":|
00001d60  45 51 55 42 30 3a 45 51  55 53 22 43 61 70 20 28  |EQUB0:EQUS"Cap (|
00001d70  45 29 20 43 61 74 68 6f  64 65 20 41 6e 6f 64 65  |E) Cathode Anode|
00001d80  20 20 22 3a 45 51 55 42  30 3a 45 51 55 53 22 43  |  ":EQUB0:EQUS"C|
00001d90  65 6c 6c 20 20 20 20 43  61 74 68 6f 64 65 20 41  |ell    Cathode A|
00001da0  6e 6f 64 65 20 20 22 3a  45 51 55 42 30 3a 45 51  |node  ":EQUB0:EQ|
00001db0  55 53 22 42 61 74 74 65  72 79 20 43 61 74 68 6f  |US"Battery Catho|
00001dc0  64 65 20 41 6e 6f 64 65  20 20 22 3a 45 51 55 42  |de Anode  ":EQUB|
00001dd0  30 0d 02 ee 9f 45 51 55  53 22 44 69 6f 64 65 20  |0....EQUS"Diode |
00001de0  20 20 43 61 74 68 6f 64  65 20 41 6e 6f 64 65 20  |  Cathode Anode |
00001df0  20 22 3a 45 51 55 42 30  3a 45 51 55 53 22 5a 65  | ":EQUB0:EQUS"Ze|
00001e00  6e 65 72 20 20 20 43 61  74 68 6f 64 65 20 41 6e  |ner   Cathode An|
00001e10  6f 64 65 20 20 22 3a 45  51 55 42 30 3a 45 51 55  |ode  ":EQUB0:EQU|
00001e20  53 22 47 72 6f 75 6e 64  20 20 47 72 6f 75 6e 64  |S"Ground  Ground|
00001e30  20 22 3a 45 51 55 42 30  3a 45 51 55 53 22 49 43  | ":EQUB0:EQUS"IC|
00001e40  20 20 20 20 20 22 3a 45  51 55 42 30 3a 45 51 55  |     ":EQUB0:EQU|
00001e50  53 22 49 6e 64 75 63 74  72 20 4c 65 66 74 20 20  |S"Inductr Left  |
00001e60  20 20 52 69 67 68 74 20  20 22 3a 45 51 55 42 30  |  Right  ":EQUB0|
00001e70  0d 02 f8 9b 45 51 55 53  22 41 4e 44 20 20 20 20  |....EQUS"AND    |
00001e80  20 49 6e 70 75 74 31 20  20 49 6e 70 75 74 32 20  | Input1  Input2 |
00001e90  20 4f 75 74 70 75 74 20  22 3a 45 51 55 42 30 3a  | Output ":EQUB0:|
00001ea0  45 51 55 53 22 4e 4f 54  20 20 20 20 20 49 6e 70  |EQUS"NOT     Inp|
00001eb0  75 74 20 20 20 4f 75 74  70 75 74 20 22 3a 45 51  |ut   Output ":EQ|
00001ec0  55 42 30 3a 45 51 55 53  22 4f 52 20 47 61 74 65  |UB0:EQUS"OR Gate|
00001ed0  20 49 6e 70 75 74 31 20  20 49 6e 70 75 74 32 20  | Input1  Input2 |
00001ee0  20 4f 75 74 70 75 74 20  22 3a 45 51 55 42 30 3a  | Output ":EQUB0:|
00001ef0  45 51 55 53 22 4e 6f 64  65 20 20 20 20 4e 6f 64  |EQUS"Node    Nod|
00001f00  65 20 20 20 22 3a 45 51  55 42 30 0d 03 02 8f 45  |e   ":EQUB0....E|
00001f10  51 55 53 22 4f 70 41 6d  70 20 20 20 56 2b 20 20  |QUS"OpAmp   V+  |
00001f20  20 20 20 20 56 2d 20 20  20 20 20 20 4f 75 74 70  |    V-      Outp|
00001f30  75 74 20 20 2d 49 6e 70  75 74 20 20 2b 49 6e 70  |ut  -Input  +Inp|
00001f40  75 74 20 22 3a 45 51 55  42 30 3a 45 51 55 53 22  |ut ":EQUB0:EQUS"|
00001f50  52 65 73 69 73 74 72 20  4c 65 66 74 20 20 20 20  |Resistr Left    |
00001f60  52 69 67 68 74 20 20 22  3a 45 51 55 42 30 3a 45  |Right  ":EQUB0:E|
00001f70  51 55 53 22 52 65 28 56  61 72 29 20 4c 65 66 74  |QUS"Re(Var) Left|
00001f80  20 20 20 20 43 65 6e 74  72 65 20 20 52 69 67 68  |    Centre  Righ|
00001f90  74 20 20 22 3a 45 51 55  42 30 0d 03 0c ab 45 51  |t  ":EQUB0....EQ|
00001fa0  55 53 22 53 77 69 74 63  68 20 20 4c 65 66 74 20  |US"Switch  Left |
00001fb0  20 20 20 52 69 67 68 74  20 20 22 3a 45 51 55 42  |   Right  ":EQUB|
00001fc0  30 3a 45 51 55 53 22 54  72 28 4e 50 4e 29 20 42  |0:EQUS"Tr(NPN) B|
00001fd0  61 73 65 20 20 20 20 43  6f 6c 65 63 74 72 20 45  |ase    Colectr E|
00001fe0  6d 69 74 74 65 72 22 3a  45 51 55 42 30 3a 45 51  |mitter":EQUB0:EQ|
00001ff0  55 53 22 54 72 28 50 4e  50 29 20 42 61 73 65 20  |US"Tr(PNP) Base |
00002000  20 20 20 43 6f 6c 65 63  74 72 20 45 6d 69 74 74  |   Colectr Emitt|
00002010  65 72 22 3a 45 51 55 42  30 3a 45 51 55 53 22 54  |er":EQUB0:EQUS"T|
00002020  72 28 46 45 54 29 20 47  61 74 65 20 20 20 20 44  |r(FET) Gate    D|
00002030  72 61 69 6e 20 20 20 53  6f 75 72 63 65 20 22 3a  |rain   Source ":|
00002040  45 51 55 42 30 0d 03 16  44 2e 6c 69 6e 6b 70 6f  |EQUB0...D.linkpo|
00002050  73 20 45 51 55 44 26 46  46 46 46 41 34 30 34 3a  |s EQUD&FFFFA404:|
00002060  45 51 55 44 26 46 46 46  46 30 34 41 34 3a 45 51  |EQUD&FFFF04A4:EQ|
00002070  55 44 26 46 46 46 46 30  36 38 36 3a 45 51 55 44  |UD&FFFF0686:EQUD|
00002080  26 46 46 46 46 30 36 46  36 0d 03 20 3b 45 51 55  |&FFFF06F6.. ;EQU|
00002090  44 26 46 46 46 46 30 36  46 36 3a 45 51 55 44 26  |D&FFFF06F6:EQUD&|
000020a0  46 46 46 46 30 36 46 36  3a 45 51 55 44 26 46 46  |FFFF06F6:EQUD&FF|
000020b0  46 46 46 46 34 30 3a 45  51 55 44 26 46 46 46 46  |FFFF40:EQUD&FFFF|
000020c0  46 46 46 46 0d 03 2a 3b  45 51 55 44 26 46 46 46  |FFFF..*;EQUD&FFF|
000020d0  46 46 34 30 34 3a 45 51  55 44 26 46 46 46 37 30  |FF404:EQUD&FFF70|
000020e0  43 30 34 3a 45 51 55 44  26 46 46 46 46 46 36 30  |C04:EQUD&FFFFF60|
000020f0  36 3a 45 51 55 44 26 46  46 46 37 30 43 30 34 0d  |6:EQUD&FFF70C04.|
00002100  03 34 3b 45 51 55 44 26  46 46 46 46 46 46 31 31  |.4;EQUD&FFFFFF11|
00002110  3a 45 51 55 44 26 30 43  46 38 38 46 38 30 3a 45  |:EQUD&0CF88F80:E|
00002120  51 55 44 26 46 46 46 46  46 34 30 34 3a 45 51 55  |QUD&FFFFF404:EQU|
00002130  44 26 46 46 46 34 38 46  30 34 0d 03 3e 3b 45 51  |D&FFF48F04..>;EQ|
00002140  55 44 26 46 46 46 46 46  34 30 34 3a 45 51 55 44  |UD&FFFFF404:EQUD|
00002150  26 46 46 41 46 41 30 30  38 3a 45 51 55 44 26 46  |&FFAFA008:EQUD&F|
00002160  46 41 46 41 30 30 38 3a  45 51 55 44 26 46 46 41  |FAFA008:EQUD&FFA|
00002170  43 41 30 30 38 0d 03 48  4d 2e 70 69 6e 62 61 73  |CA008..HM.pinbas|
00002180  65 20 45 51 55 42 33 3a  45 51 55 42 34 3a 45 51  |e EQUB3:EQUB4:EQ|
00002190  55 42 37 3a 45 51 55 42  38 3a 45 51 55 42 39 3a  |UB7:EQUB8:EQUB9:|
000021a0  45 51 55 42 31 30 3a 45  51 55 42 31 32 3a 45 51  |EQUB10:EQUB12:EQ|
000021b0  55 42 31 34 3a 45 51 55  42 31 36 3a 45 51 55 42  |UB14:EQUB16:EQUB|
000021c0  32 30 0d 03 52 bb 2e 6c  69 6e 6b 69 63 20 43 4d  |20..R..linkic CM|
000021d0  50 23 63 68 69 70 3a 42  45 51 65 69 74 68 65 72  |P#chip:BEQeither|
000021e0  69 63 3a 52 54 53 3a 2e  65 69 74 68 65 72 69 63  |ic:RTS:.eitheric|
000021f0  20 50 4c 41 3a 50 4c 41  3a 50 4c 41 3a 54 41 59  | PLA:PLA:PLA:TAY|
00002200  3a 49 4e 59 3a 54 59 41  3a 50 48 41 3a 4c 44 41  |:INY:TYA:PHA:LDA|
00002210  28 26 37 32 29 2c 59 3a  53 54 41 26 37 41 3a 4c  |(&72),Y:STA&7A:L|
00002220  44 59 23 35 3a 4c 44 41  28 26 37 38 29 2c 59 3a  |DY#5:LDA(&78),Y:|
00002230  43 4d 50 26 37 41 3a 42  43 43 72 69 67 68 74 69  |CMP&7A:BCCrighti|
00002240  63 3a 44 45 43 26 37 41  3a 2e 6c 65 66 74 69 63  |c:DEC&7A:.leftic|
00002250  20 4c 44 41 26 37 34 3a  53 45 43 3a 53 42 43 23  | LDA&74:SEC:SBC#|
00002260  31 36 3a 53 54 41 26 37  34 3a 4c 44 41 26 37 35  |16:STA&74:LDA&75|
00002270  3a 53 42 43 23 30 3a 53  54 41 26 37 35 0d 03 5c  |:SBC#0:STA&75..\|
00002280  a2 4c 44 41 26 37 36 3a  53 45 43 3a 53 42 43 23  |.LDA&76:SEC:SBC#|
00002290  31 36 3a 53 54 41 26 37  36 3a 4c 44 41 26 37 37  |16:STA&76:LDA&77|
000022a0  3a 53 42 43 23 30 3a 53  54 41 26 37 37 3a 4c 44  |:SBC#0:STA&77:LD|
000022b0  58 26 37 41 3a 2e 69 63  64 6c 20 43 50 58 23 30  |X&7A:.icdl CPX#0|
000022c0  3a 42 45 51 67 6f 74 69  63 70 69 6e 3a 4c 44 41  |:BEQgoticpin:LDA|
000022d0  26 37 36 3a 53 45 43 3a  53 42 43 23 33 32 3a 53  |&76:SEC:SBC#32:S|
000022e0  54 41 26 37 36 3a 4c 44  41 26 37 37 3a 53 42 43  |TA&76:LDA&77:SBC|
000022f0  23 30 3a 53 54 41 26 37  37 3a 44 45 58 3a 4a 4d  |#0:STA&77:DEX:JM|
00002300  50 69 63 64 6c 3a 2e 67  6f 74 69 63 70 69 6e 20  |Picdl:.goticpin |
00002310  50 4c 41 3a 54 41 59 3a  49 4e 59 3a 52 54 53 0d  |PLA:TAY:INY:RTS.|
00002320  03 66 5b 2e 72 69 67 68  74 69 63 20 41 53 4c 41  |.f[.rightic ASLA|
00002330  3a 53 45 43 3a 53 42 43  26 37 41 3a 53 54 41 26  |:SEC:SBC&7A:STA&|
00002340  37 41 3a 4c 44 41 26 37  34 3a 43 4c 43 3a 41 44  |7A:LDA&74:CLC:AD|
00002350  43 23 26 41 30 3a 53 54  41 26 37 34 3a 4c 44 41  |C#&A0:STA&74:LDA|
00002360  26 37 35 3a 41 44 43 23  30 3a 53 54 41 26 37 35  |&75:ADC#0:STA&75|
00002370  3a 4a 4d 50 6c 65 66 74  69 63 0d 03 67 ad 2e 78  |:JMPleftic..g..x|
00002380  73 69 7a 65 20 45 51 55  42 31 30 3a 45 51 55 42  |size EQUB10:EQUB|
00002390  31 30 3a 45 51 55 42 38  3a 45 51 55 42 31 35 3a  |10:EQUB8:EQUB15:|
000023a0  45 51 55 42 31 35 3a 45  51 55 42 31 35 3a 45 51  |EQUB15:EQUB15:EQ|
000023b0  55 42 38 3a 45 51 55 42  33 31 3a 45 51 55 42 31  |UB8:EQUB31:EQUB1|
000023c0  35 3a 45 51 55 42 31 35  3a 45 51 55 42 31 35 3a  |5:EQUB15:EQUB15:|
000023d0  45 51 55 42 31 35 3a 45  51 55 42 32 3a 45 51 55  |EQUB15:EQUB2:EQU|
000023e0  42 31 35 3a 45 51 55 42  31 35 3a 45 51 55 42 31  |B15:EQUB15:EQUB1|
000023f0  35 3a 45 51 55 42 31 35  3a 45 51 55 42 31 30 3a  |5:EQUB15:EQUB10:|
00002400  45 51 55 42 31 30 3a 45  51 55 42 31 30 20 5c 20  |EQUB10:EQUB10 \ |
00002410  4d 61 79 20 61 64 64 20  6f 6e 65 20 69 66 20 42  |May add one if B|
00002420  43 53 20 75 73 65 64 0d  03 70 09 5d 3a ed 3a e1  |CS used..p.]:.:.|
00002430  0d ff                                             |..|
00002432
CAD/CADNew/BACK/CAD.m0
CAD/CADNew/BACK/CAD.m1
CAD/CADNew/BACK/CAD.m2
CAD/CADNew/BACK/CAD.m4
CAD/CADNew/BACK/CAD.m5