)²Â
REM ****** JBOX *******REM VERSION 0.4 1-1987.REM J.BRONZWAER A.C.C.L(REM TEL. 04459  -  19692REM====================<?#23=00;?#24=#82FDIMLL100,KK100,MM100,WW30,CC30,XX30,RR30PF.I=0TO100;LLI=#FFF;KKI=#FFF;MMI=#FFF;N.ZF.I=0TO30;CCI=#FFF;WWI=#FFF;XXI=#FFF;RRI=#FFF;N.dP.$12$15"SOURCE  jbox"';DOP."=";U.C.>=12nP.''"CLEANING SPACE"'';@=0o LOCK 4;?#B800=?#B800&#FDxF.X=#A000TO#AFFCS.4;!X=#FFFFFFFF;N.;Z=#A000‚P.'"PASS1"$21;P=Z+2;GOS.aŒ?#E8=0–P.$6'"PASS2"$21;P=Z+2;GOS.a IF?#E8<>0G.eª?Z=#40;Z?1=#BF´P.$6''"CODE VAN #"&Z" T/M #"&(P-1)'¾P."NOG VRIJ :"(#B000-P)" BYTES"''ÈENDÒeP.$6$7$7$7''"OUT OF RANGE DETECTED"''$3;E.Üaæ[ð\====================ú\interpreteerroutine\====================LDX@#FF:XX0LDY#5E;DEY":XX1INX;INY,:XX2LDA#A032,X;BMIXX4;CMP(#05),Y;BEQXX1;DEX6:XX3INX;LDA#A032,X;BPLXX3;INX;LDA(#05),Y@CMP@#2E;BNEXX0;INY;DEX;BCSXX2J:XX4STA#53;LDA#A033,X;STA#52;STY#03;LDX#04;JMP(#0052)T\^\=================h\tabel statementsr\=================|];T=P$T="BIN";A=1;GOS.tš$T="BIT";A=16;GOS.t¤$T="CAS";A=25;GOS.t¸$T="DAS";A=3;GOS.tÌ$T="FVAR";A=22;GOS.tÖ$T="FZER";A=15;GOS.tà$T="HELP";A=0;GOS.tô$T="HIP";A=12;GOS.tþ$T="HVAR";A=23;GOS.t$T="HXD";A=8;GOS.t $T="INFO";A=4;GOS.t$T="LAB";A=9;GOS.t$T="LIB";A=11;GOS.t&$T="LINE";A=10;GOS.t:$T="MFIND";A=20;GOS.tD$T="PACK";A=19;GOS.tN$T="PLIST";A=5;GOS.tX$T="RAM";A=2;GOS.tb$T="TRACE";A=17;GOS.td$T="TURBO";A=6;GOS.tg$T="USR";A=7;GOS.tl$T="VER";A=24;GOS.tq$T="WP";A=14;GOS.tv$T="#";A=13;GOS.t€?T=#C5;T?1=#58;T=T+2ŠR=T;T=P;P=R;G.c”tT=T+L.T;?T=CCA/256;T?1=CCA;T=T+2;R.žc¨[²\============¼:CC0\**HELP**Æ\============Ð\zp:#90-#92ÚLDA@12;JSR#FFF4;JSR#FFED;JSR#F7D1ä];$P="jbox (V2.0) COMMANDS:";P=P+L.P;!P=#0A0D;P=P+2î$P="---------------------";P=P+L.P;!P=#0A0D0A0D;P=P+4ø[;NOP;JSRLL7;STA#91;STA#92;TAY:LL1LDA#A032,Y;STA#92;CMP@#C5;BNELL2;INYLDA#A032,Y;CMP@#58;BEQLL8;DEY:LL2LDA#92;AND@#F0;CMP@#A0;BNELL3;LDA#90 CMP@#0B;BNELL5;LDA#91;CMP@#02;BEQLL6*CLC;ADC@#01;STA#91;JSRLL7;INY;INY;JMPLL14:LL3LDA#90;CLC;ADC@#01;STA#90;CMP@#0B>BEQLL1;LDA#92;JSR#FFF4;CMP@#20;BNELL4;JMPLL5H:LL4INY;JMPLL1R:LL5LDA@#20;STA#92;JMPLL3\:LL6JSR#FFED;JSRLL7;STA#91;INY;INY;JMPLL1f:LL7LDA@#00;STA#90;RTSp:LL8JSR#FFED;JMPXX18z\Þ\===========è:CC3\**DAS**ò\===========ü\zp:#90-#93JSRXX10;LDA#52;CMP@13;BEQLL15;JSRXX11JSRXX13;LDA@6;JSR#FFF4:LL15LDA#93;CMP#91;BCCLL8;BNELL16$LDA#90;CMP#92;BCCLL16;JMPXX18.:LL16JSRXX17;LDY@#028:LL17LDA(#90),Y;STA#66,Y;DEY;BPLLL17B:LL18INY;STY#0F;LDX@#40L:LL19SEC;LDA#66;SBC#F1F3,Y;SEC;SBC#F210,XVBNELL21;STA#64;STA#65;LDY#F250,X`:LL20ROR#64;ROR#65;DEY;BNELL20;LDY#0FjLDA#F1D5,Y;AND#64;BNELL22;LDA#F1E4,Y;AND#65tBNELL22~:LL21DEX;BNELL19;CPY@#0E;BNELL18;LDY@#00ˆLDX@#11;STY#0F’:LL22LDA#F202,Y;CMP@#0F;BNELL23;LDA@#01œ:LL23AND@#0F;STA#69;STA#00;STX#6A;LDX@#90¦JSR#F7F1;LDY@#00;LDX@#90°:LL24LDA(#90),Y;JSR#F7FA;JSR#FA08º:LL25DEC#69;BPLLL24;LDY#E0;JSR#F99A;LDX#6AÄLDA#F194,X;STA#64;LDA#F154,X;STA#65;LDY@#03Î:LL26LDX@#05Ø:LL27ROL#64;ROL#65;ROLA;DEX;BNELL27âAND@#1F;CLC;ADC@#3F;JSR#FFF4;DEYìBNELL26;JSR#F7FD;LDY@#08;LDX#0F;LDALL39,XöSTA#69:LL28CPY@#06;BNELL33;CPX@#02;BNELL30;LDX@#FF
LDA#67;BMILL29;INX:LL29CLC;ADC#90;STA#67;TXA;ADC#91STA#68;LDX@#02;BNELL31(:LL30LDX#00;BEQLL332:LL31LDA@#23;JSR#FFF4<:LL32LDA#66,X;JSR#F802;DEX;BNELL32F:LL33ASL#69;BCSLL34;LDALL40,Y;JSR#FFE9P:LL34DEY;BPLLL28;PHP;LDX@#02Z:LL35LDA#66,X;CMPLL41,X;BNELL36;DEX;BPLLL35dBMILL37n:LL36PLP;JMPLL15x:LL37JSRXX17;LDY@#00;LDA(#90),Y;BMILL36‚PHA;PHA;LDX@#90;JSR#F7F1;JSR#F7D1;Œ];$P="** ";P=P+L.P;[–LDX@#90;PLA;JSR#F7FA;PLA;CMP@#20 BCCLL38;CMP@#7F;BCSLL38;JSR#FFF4ª:LL38JSR#FFED;JSR#FA08;JMPLL37´:LL39;]¾P!0=#F9FFFEFF;P!4=#7F7FFFCF;P!8=#87B1CFF9ÈP?12=#FF;P?13=#B7;P?14=#F9;P=P+15;[:LL40;]ÒP!0=#2C59410D;P!4=#282C5829;P?8=#40;P=P+9;[Ü:LL41JSR#F7D1;RTSæ\ð\============ú:CC4\**INFO**\============\NOzpLDA@#00;STA#0321;JSRLL93;\zieLIB-statement"LDA#12;JSR#F802;LDA@#00;JSR#F802;JSR#FFED,JSRLL98;\zieLIB-statement6JSR#F7D1;];$P="TDIM: #";P=P+L.P;[;NOP@LDX@#23;JSR#F7F1;JSR#FFEDJJSR#F7D1;];$P="SIZE: ";P=P+L.P;[;NOPTLDA@#00;STA#34;STA#43^LDA#0D;STA#16;SEC;LDA#0E;SBC#12;STA#25;JSR#C589hJSRLL45;JSR#FFED;JSR#F7D1;];$P="FREE: ";P=P+L.P;[;NOPrLDA#12;SBC@#81;BPLLL42;SEC;LDA@#00|SBC#0D;STA#16;LDA@#80;SBC#0E;STA#25;JSRLL43;JMPLL44†:LL42SEC;LDA@#00;SBC#0D;STA#16;LDA@#A0;SBC#0E;STA#25:LL43JSR#C589;JSRLL45š:LL44JMPXX18¤:LL45JSR#F7D1;];$P=" BYTES";P=P+L.P;[;NOP;RTS®\¸\===========Â:CC8\**HEP**Ì\===========Ö\zp:#90-#91àJSRXX10;LDA#52;CMP@13;BEQWW15;JSRXX11;JSRXX13ê:WW15LDX@#90;JSR#F7F1;LDY@#00ô:WW16LDA(#90),Y;JSR#F7FA;INYþCPY@#10;BNEWW16;LDY@#00;JSR#F7FD:WW17LDA(#90),Y;CMP@#7F;BCSWW18;CMP@#20;BCSWW19:WW18LDA@#2E:WW19JSR#FFF4;INY;CPY@#10;BNEWW17;JSR#FFED&:WW20LDX@#90;JSR#FA08;BEQWW22;DEY;BNEWW200:WW21LDY@#01;STA#03;JSRXX17;JMPWW15::WW22JMPXX18D\N\=============X:CC5\**PLIST**b\=============l\zP:#90-#93vJSRXX10;JSRXX11;LDA#90;STA#321;DEC#92;JSRXX13€:WW2LDY@0;STY#93;STY#90;LDA#12;STA#91ŠLDA(#90),Y;CMP@13;BNEWW22”:WW4INY;JSR#FFED;INY;INC#93;JSRXX17žLDA#93;CMP@54;BCCWW6;LDX@12¨:WW5JSR#FFED;DEX;BNEWW5;STX#93²:WW6DEY;BEQWW7;INC#90;BNEWW6¼INC#91;JMPWW6Æ:WW7LDA(#90),Y;CMP@#80;BPLWW22ÐLDX@0;STX#34;STX#43;STA#25ÚINY;TYA;PHA;LDA(#90),Y;STA#16äJSR#C589;PLA;TAYî:WW8INY;LDA(#90),Y;CMP@32;BEQWW8øCMP@13;BEQWW4;CMP@58;BEQWW10;CMP@91BEQWW10;CMP@93;BEQWW10;CMP@#60;BPLWW10LDX#92;CPX@0;BEQWW10:WW9LDA@32;JSR#FFF4;DEX;BNEWW9 :WW10LDA(#90),Y;JSR#FFF4;INY*LDA(#90),Y;CMP@13;BEQWW4;JMPWW104\>\===========H:CC9\**LAB**R\===========\\zp:#90-#92f\ASSEMBLER-LABELSpJSR#FFED;LDA#12;STA#91;LDA@#00;STA#90;LDY@#00z:LL51LDA(#90),Y;CMP@#0D;BEQLL58;LDA(#90),Y;CMP@#3A„BNELL56;CPY@#FF;BNELL52;INC#91Ž:LL52INY;LDA(#90),Y;CMP@#40;BMILL51;CMP@#5B˜BPLLL51;LDA(#90),Y;STA#92;CPY@#FF;BNELL53;INC#91¢:LL53INY;LDA(#90),Y;CMP#92;BNELL51;JSR#FFED¬JSR#C504;LDA#92;JSR#FFF4;JSR#FFF4¶:LL54CPY@#FF;BNELL55;INC#91À:LL55INY;LDA(#90),Y;CMP@#30;BMILL56;CMP@#3AÊBPLLL56;JSR#FFF4;JMPLL54Ô:LL56CPY@#FF;BNELL57;INC#91Þ:LL57INY;JMPLL51è:LL58CPY@#FF;BNELL59;INC#91ò:LL59INY;LDA(#90),Y;CMP@#FF;BNELL56ü\	\BASIC-LABELS	JSR#FFED;JSR#FFED;LDA@#00;LDY@#1A	:LL60STA#0140,Y;DEY;BNELL60;LDA@#61;STA#01	$:LL61JSRXX20;STY#02	.:LL62JSRLL71;INY;LDA(#90),Y;BMILL65;STA#25	8INY;LDA(#90),Y;STA#16;INY;LDA(#90),Y	BCMP#01;BNELL62;AND@#9F;TAX;ORA@#60	LSTA#0140,X;LDX#02;BNELL64;PHA;LDA#07	VCMP@#1E;BCCLL63;JSR#CD54	`:LL63PLA;JSR#CA4C;LDX@#06;STX#0321	jLDA@#00;STA#34;STA#43;JSR#C589	t:LL64INC#02;BNELL62	~:LL65LDA@#23;LDX#02;BEQLL67	ˆCPX@#02;BNELL66;LDA@#20	’:LL66JSR#CA4C;JSR#F379;JSR#F379	œ:LL67INC#01;LDA#01;CMP@#7C;BCCLL61	¦JSR#FFED;JSR#FFED;DEY	°:LL68INY;LDA#0140,Y;BNELL69;TYA;ORA@#40	º:LL69JSR#CA4C;CPY@#1A;BCCLL68;JMPXX18	Ä:LL70INY	Î:LL71LDA(#90),Y;CMP@#0D	ØBNELL70;CPY#13;BCCLL72;STY#13	â:LL72INC#14;BNELL73;INC#15	ì:LL73TYA;CLC;ADC#90	öSTA#90;BCCLL74;INC#91
:LL74LDY@#00;RTS

\
\=============
:CC10\**LINE**
(\=============
2\zp:#90-#91
<JSR#C465;JSRXX20;DEY
F:LL75JSRLL77;INY;LDA(#90),Y;BMILL81
PINY;CMP#24,X;BNELL75;LDA(#90),Y
ZCMP#15,X;BNELL75
dLDA@#23;JSR#FFF4;LDX@#90;JSR#F7F1;JMPXX18
n:LL77INY;LDA(#90),Y;CMP@#0D
xBNELL77;CPY#13;BCCLL78;STY#13
‚:LL78INC#14;BNELL79;INC#15
Œ:LL79TYA;CLC;ADC#90
–STA#90;BCCLL80;INC#91
 :LL80LDY@#00;RTS
ª:LL81;JSR#FD1A;JSR#F7D1;];$P="LINE NOT FOUND !";P=P+L.P
´[;NOP;JMPXX18
¾\
È\============
Ò:CC11\**LIB**
Ü\============
æ\zp:#90-#92
ð\TP+FIRSTLINE
ú:LL83LDA@12;JSR#FFF4;JSR#FFEDJSR#F7D1;];$P="library";P=P+L.P;!P=#0A0D0A0D;P=P+4[;NOP;LDA@#00;STA#90;LDA@#07;STA#91;LDA#12;STA#92:LL84INC#91;BNELL85;JMPLL91":LL85LDY@#00;LDA(#90),Y;CMP@#0D;BNELL84;INY,LDA(#90),Y;CMP@#00;BNELL84;INY;LDA#91;CMP#12;BEQLL826JSR#F7FA;JMPLL86@:LL82LDA#91;JSR#F802;LDA@#3D;JSR#FFF4;LDA#91J:LL86INY;CPY@#1C;BEQLL87;LDA(#90),Y;CMP@#0DTBEQLL87;JSR#FFF4;BNELL86^:LL87JSR#FFED;JMPLL84h\r\PAG:|:LL91JSRLL93;JSR#FFE6;JSR#F87E;BCSLL92;ASLA;ASLA;ASLA;ASLA†STA#13;JSR#FFE6;PHA;JSR#FFED;PLAJSR#F87E;BCSLL92;ADC#13;STA#92š:LL92LDA#92;STA#12;JSRXX20;LDA(#90),Y;CMP@#0D;BEQLL95¤:LL94JSR#F7D1;];$P="NEW";P=P+L.P;[;NOP;JSR#FFED;JMP#C2B6®:LL95;\berekentop¸LDA#12;STA#0E;LDY@0;STY#0D;DEYÂ:LL96INY;LDA(#0D),Y;CMP@#0D;BNELL96;JSR#CDBCÌLDA(#0D),Y;BMILL97;INY;BNELL96Ö:LL97INY;JSR#CDBC;JSRLL98;JMP#C2CAà:LL98JSR#F7D1;];$P="TOP : #";P=P+L.P;[;NOPêLDX@#0D;JSR#F7F1;JSR#FFED;RTSô:LL93JSR#F7D1;];!P=#0A0D;P=P+2þ$P="PAGE: #";P=P+L.P;[;NOP;RTS\\============:CC13\** # **&\============0\NO zp:JSR#C90A;JSR#C4E4;DEY;LDA#52;STA#12;STA#55DLDA(#54),Y;CMP@#0D;BNELL94;JSRLL95;JMP#C2CAN\X\============b:CC12\**HIP**l\============v\zp:#90-#95€JSRXX10;LDA#52;CMP@13;BEQKK0ŠJSRXX11;JSRXX13;LDA@6;JSR#FFF4”:KK0LDX@1;STX#D0ž:KK1JSRKK8;JSR#F7FD;LDA@#3F;JSR#CD0F;LDY@0¨LDA#0100,Y;CMP@#0D;BEQKK4;CMP@ 5E;BEQKK5²CMP@#54;BNEKK2;INY;LDA#0100,Y;BNEKK3¼:KK2LDX@#D2;JSR#F893;LDA#D3;BNEKK1;LDA#D2Æ:KK3LDY@#00;STA(#90),YÐ:KK4LDX@#90;JSR#FA08;BNEKK1;JMPXX18Ú:KK5LDA#90;BNEKK6;DEC#91ä:KK6DEC#90;JMPKK1î:KK7JSR#FFEDø:KK8LDX@#90;JSR#F7F1;JSR#F7FD;LDY@#00:KK9LDA(#90),Y;JSR#F802;JSR#F7FD;INY;CPY#D0BNEKK9;LDY@#00;LDA#D0;STA#CF:KK10JSR#F7FD;LDA(#90),Y;CMP@#7F;BCCKK12 :KK11LDA@#2E*:KK12CMP@#20;BCCKK11;JSR#FFF4;LDA#D0;CMP@#014BEQKK14;LDX@#90;JSR#FA08;BEQKK13;DEC#CF>BEQKK7;BNEKK10H:KK13JSR#FFEDR:KK14RTS\\f\============p:CC7\**USR**z\============JSR#C3C8;JSR#C4E4;LDA#322;LDX#339;LDY#33A;JSR#C2A5;CLD„STA#322;STX#339;STY#33A;JMP#C55BÞ\=============è:CC15\**FZER**ò\=============ü\NOzpLDX@#87:KK31LDA@#00;STA#27FF,X;DEX;BNEKK31;JMP#C2CA\$\============.:CC16\**BIT**8\============B\NOzpLLDA@#00;STA#321VJSR#C78B;JSR#C3CB;LDA#53;JSRKK33;LDA#52;JSRKK33`JSR#F7FD;LDA@#3D;JSR#FFF4;JSR#F7FDjLDA@#23;JSR#FFF4;JMP#C349t:KK33LDX@7;STA#93~:KK34BIT#93;BPLKK35;LDA@#31;BNEKK36ˆ:KK35LDA@#30’:KK36JSR#CA4C;ASL#93;DEX;BPLKK34;JMP#F379œ\¦\=============°:CC19\**PACK**º\=============Ä\zp:#90-#95Î:KK37LDA#12;STA#91;STA#93;LDX@#00;STX#94ØSTX#90;STX#92;LDY@#01â:KK38LDA(#92,X);BPLKK40ì:KK39JSRKK47;JMP#CD9Bö:KK40CMP@#0D;BNEKK42;LDA@#00;STA#94;JSRKK47LDA(#92,X);BMIKK39;JSRKK47;JSRKK47;LDA@#20
STA#95;BNEKK38:KK41JSRKK47;BNEKK38:KK42CMP@#2A;BNEKK43;LDA(#92),Y;CMP@#40;BCCKK44(LDA@#02;STA#94;BNEKK442:KK43CMP@#22;BNEKK45;LDA#94;EOR@#FF;STA#94<:KK44LDA(#92,X)F:KK45INC#94;DEC#94;BNEKK41;CMP@#20;BNEKK41PLDA@#3F;CMP(#92),Y;BCSKK46;CMP#95;BCSKK46;BCCKK41Z:KK46INC#92;BNEKK38;INC#93;BNEKK38d:KK47LDA(#92,X);STA(#90,X);STA#95;INC#90;BNEKK48;INC#91n:KK48INC#92;BNEKK49;INC#93x:KK49RTS‚\Œ\==============–:CC20\**MFIND** \==============ª\zp:#90-#97´JSRXX10;JSRXX11;JSR#C231;JMPKK52¾:KK51JMP#FA7DÈ:KK52LDA@#01;STA#034C;LDA@#40;STA#0331;STA#0367ÒJSR#F876;CMP@#23;BNEKK54;INY;LDX@#94ÜJSR#F893;BEQKK54;LDA#95;BEQKK53;STA#0141;INC#0331æ:KK53LDA#94;STA#0140;INC#0331;JMPKK59ð:KK54CMP@#22;BNEKK56;LDX@#00ú:KK55INC#0331;INY;LDA#0100,Y;STA#0140,X;INXCMP@#0D;BEQKK51;CMP@#22;BNEKK55;DEC#0331CMP@#40;BEQKK51;JMPKK59:KK56SEC;LDA#90;SBC#92;LDA#91;SBC#93;BCSKK51"LDA#020A;STA#96,LDA#020B;STA#976LDA@(KK57&255);STA#20A@LDA@(KK57/256);STA#20BJLDA@21;JSR#FFF4;JMP#F2A1T:KK57LDA#96;STA#020A^LDA#97;STA#020BhLDA@#7F;JSR#FFF4rLDA@06;JSR#FFF4;LDA#00|CMP@#00;BNEKK58;JMP#FA7D†:KK58CMP@#04;BCSKK67:KK59SEC;LDA#0331;SBC#0367;STA#0331;LDA#034CšSTA#D4;LDA#0367;STA#D3¤:KK60LDY@#00;LDA(#90),Y;CMP(#D3),Y;BEQKK63®:KK61LDX@#90;JSR#FA08;BEQKK62;JMPKK60¸:KK62JMPXX18Â:KK63LDA#90;STA#D5;LDA#91;STA#D6Ì:KK64INY;CPY#0331;BEQKK65;LDA(#90),Y;CMP(#D3),YÖBEQKK64;BNEKK61à:KK65LDX@#03;LDA@#20ê:KK66JSR#FFF4;DEX;BNEKK66;JSRXX17;LDA@#23ôJSR#FFF4;LDX@#D5;JSR#F7F1þLDA@#08;JSR#FFF4;JMPKK61:KK67JMPXX18\\============&:CC1\**BIN**0\============:\zp:#90DJSR#C434;LDY#03;DEY;LDX@0;STX#90N:KK75INY;LDA(#05),Y;CMP@#32;BCCKK74;JMP#FA7DX:KK74CPX@#08;BEQKK77;SEC;SBC@#30bBEQKK76;CMP@#01;BNEKK77l:KK76ASL#90;ORA#90;STA#90;INX;JMPKK75v:KK77STY#03;LDA@#23;JSR#FFF4€LDA#90;JSR#F802;JMPXX18\\f\=============p:CC22\**FVAR**z LDX@0;JMPMM16„\-------------Ž:CC23\**HVAR**˜ LDX@70;JMPMM16¢\=============¬\NO zp¶:MM16JSR#FFED;LDY@0À:MM17LDAMM19,X;STA#0100,YÊCMP@#0D;BEQMM18;INX;INY;JMPMM17Ô:MM18JMP#C2D5Þ:MM19;]è REM TEKST FVARò$P="@=0;?8=63;DO?8=?8+1;?#133=?8;P.$37$?8$32$61$32"üP=P+L.P;$P=";FP.%A';U.?8=90;";P=P+L.P$P="@=8;E.";P=P+L.P;!P=#FF0D;P=P+2 REM TEKST HVAR$P="@=8;?8=64;DO?8=?8+1;?#132=?8;P.$?8$32$61$32$35"$P=P+L.P;$P=";P.&A""   "";U.?8=90;P.';E.".P=P+L.P;!P=#FF0D;P=P+2;[;NOP8\B\==============L:CC17\**TRACE**V\==============`\zp:#90-#93j:MM20STY#90;LDX@0;STX#04;JSR#C78B;LDA#34tORA#43;BNEMM24;LDA#16;STA#92;LDA#25;STA#93;JSR#C231~JSRMM40;LDY@0;STY#D4;CMP@#3B;BEQMM21;CMP@#0Dˆ:MM21BNEMM22;ROR#D4;LDA#16;STA#17’LDA#25;STA#26;JSR#C4E4;BCCMM23œ:MM22JSR#C78B;JSR#C4E4¦:MM23JSRMM74;INC#D4;LDA#17;STA#D5;LDA#26;STA#D6°LDA@MM25%256;STA#0204;LDA@MM25/256;STA#0205;LDX#0339ºLDY#033A;LDA@#00;STA#B80B;LDA@#C0;STA#B80EÄLDA@#06;STA#B804;LDA@#00;STA#B805;LDA#0322ÎCLI;JMP(#0092)Ø:MM24BRKâ:MM25SEI;LDA#B80D;STA#B80DìASLA;BPLMM24;STX#DC;STY#DB;PLAöSTA#DD;PLA;STA#DA;PLA;STA#D7PLA;STA#D8;TSX;STX#D9;PHA
LDA#D7;PHA;LDA#DA;PHA;LDA#D4BEQMM29;BPLMM26;ASL#D4;LSR#D4;BCCMM27:MM26LDA#92;CMP#D5;BNEMM27;LDA#93;CMP#D6(BEQMM282:MM27JMPMM37<:MM28DEC#D4F:MM29CLI;JSRMM52;LDX@#00;LDA(#92,X);BNEMM30PLDA#0203;CMP@#C9;BNEMM30;LDA@#40;STA#B80EZRTId:MM30CMP@#40;BNEMM31;JSR#FFED;JMPMM38n:MM31JSR#F7FD;LDY#E0;CPY@#11;BNEMM31;LDX@#04xBNEMM33‚:MM32JSR#F7FDŒ:MM33LDA#D9,X;JSR#F802;DEX;BPLMM32;JSR#FFED–LDA#B80C;AND@#0E;BEQMM34;JSR#FFE3;CMP@#20 BNEMM37;CMP@#1B;BEQMM38ª:MM34JSR#FFE3;CMP@#20;BEQMM37;CMP@#1B;BEQMM38;BNEMM34Ò:MM37LDX#DC;LDY#DB;LDA#D7;STA#92;LDA#D8ÜSTA#93;LDA@#08;STA#B804;LDA@#00;STA#B805æLDA#DD;RTIð:MM38LDA@#40;STA#B80E;JMP#C2CAú:MM39INY:MM40LDA(#05),Y;CMP@32;BEQMM39;STY#03;RTS:MM41LDX@#05:MM42JSR#F7FD;DEX;BNEMM42;RTS":MM43LDA#93;JSR#F802;LDA#92;JSR#F802;LDA@#3A;JSR#FFF4;RTS,:MM44JSRMM43;LDY@06:MM45JSR#F7FD;LDA(#92),Y;JSR#F802;INY@CPY#91;BNEMM45;RTSJ:MM46JSRMM43;JMPMM58T:MM47LDX@#00;LDA(#92,X);TAY;LSRA;BCCMM48^RORA;BCSMM50;CMP@#A2;BEQMM50;AND@#87h:MM48LSRA;TAX;LDAMM70,X;BCCMM49;LSRArLSRA;LSRA;LSRA|:MM49AND@#0F;BNEMM51†:MM50LDY@#80;LDA@#00:MM51TAX;LDAMM71,X;STA#0F;AND@#03;STA#91;RTSš:MM52JSRMM47;TYA;AND@#8F;TAX¤TYA;LDY@#03;CPX@#8A;BEQMM55®:MM53LSRA;BCCMM55;LSRA¸:MM54LSRA;ORA@#20;DEY;BNEMM54;INYÂ:MM55DEY;BNEMM53;PHA;LDA#90;BNEMM46ÌJSRMM44Ö:MM56CPY@#03;BEQMM57;LDX@#03;JSRMM42;INYàBNEMM56ê:MM57JSRMM41;JSR#F7FDô:MM58PLA;TAY;LDA#F155,Y;STA#69;LDA#F195,YþSTA#6A;LDX@#03:MM59LDA@#00;LDY@#05:MM60ASL#6A;ROL#69;ROLA;DEY;BNEMM60ADC@#3F;JSR#FFF4;DEX;BNEMM59;JSR#F7FD&LDX@#06;LDY#91;DEY0:MM61CPX@#03;BEQMM65::MM62ASL#0F;BCCMM63;LDAMM72,X;JSR#FFF4;LDAMM73,XDBEQMM63;JSR#FFF4N:MM63DEX;BNEMM61;RTSX:MM64DEY;BMIMM62;JSR#F802b:MM65LDA#0F;CMP@#E8;LDA(#92),Y;BCCMM64;JSRMM67lTAX;INX;BNEMM66;INYv:MM66TYA;JSR#F802;TXA;JSR#F802€:MM67LDY#93;TAX;BPLMM68;DEYŠ:MM68ADC#92;BCCMM69;INY”:MM69RTSž:MM70;]¨P!0=#2004;P!2=#3054;P!4=#800D;P!6=#9004;P!8=#2203²P!10=#3354;P!12=#800D;P!14=#9004;P!16=#2004;P!18=#3354¼P!20=#800D;P!22=#9004;P!24=#2004;P!26=#3B54;P!28=#800DÆP!30=#9004;P!32=#2200;P!34=#3344;P!36=#C80D;P!38=#0044ÐP!40=#2211;P!42=#3344;P!44=#C80D;P!46=#A944;P!48=#2201ÚP!50=#3344;P!52=#800D;P!54=#9004;P!56=#2201;P!58=#3344äP!60=#800D;P!62=#9004;P!64=#3126;P!66=#9A87îP=P+68;[:MM71;]øP!00=#2201;P!02=#8382;P!04=#0101;P!06=#4E5A;P!08=#9392P!10=#4B87;P!12=#86P=P+13;[:MM72;]P!00=#9E;P!01=#292C;P!03=#402C;P!05=#28 P=P+6;[:MM73;]*P!00=#23;P!01=#00594P!03=#2358;P!05=#0023>P=P+7;[H:MM74JSR#FFED;JSR#F7D1;]R$P="ADDR MNEMONIC     A  X  Y SR SP"\P=P+L.P;[;NOP;JSR#FFED;LDX@30f:MM75LDA@#2D;JSR#FFF4;DEX;BPLMM75;JSR#FFED;RTSp\z\==============„:CC24\**VER**Ž\==============˜\zp:#90-#97¢JSRXX10;JSRXX11;JSRXX12¬:MM76LDY@0;LDA(#90),Y;CMP(#94),Y;BNEMM79¶:MM77LDX@#90;JSR#FA08;BNEMM78;JMPXX19À:MM78LDX@#94;JSR#FA08;JMPMM76Ê:MM79JSRXX17;JSR#F7D1;];$P="NO MATCH AT: ";P=P+L.PÔ[;NOP;JSR#F7FD;LDX@#90;JSR#F7F1;JSR#F7FDÞLDX@#94;JSR#F7F1;JSR#F7FD;LDA(#90),Y;JSR#F802èJSR#F7FD;LDA(#94),Y;JSR#F802;JSR#FFED;JMPMM77L\V\============`:CC25\**CAS**j\============t\NOzp~LDX@#0Fˆ:MM81LDA#FFA2,X;STA#20C,X;DEX;BPLMM81;STA#020C,X’LDA@#EF;STA#0206;LDA@#F8;STA#0207;JMP#C2CAœ\¦\===========°:CC2\**RAM**º\===========Ä\zp:#90-#94ÎJSRXX10;JSRXX11Ø:MM82LDY@0;LDA(#90),Y;STA#94;JSRXX17â LDA@#55;STA(#90),Y;LDA(#90),Y;CMP@#55;BNEMM84ì LDA@#AA;STA(#90),Y;LDA(#90),Y;CMP@#AA;BNEMM84ö LDA#94;STA(#90),Y:MM83 LDX@#90;JSR#FA08;BNEMM82;JSR#FFED;JMPXX19
:MM84 LDA#E0;CMP@27;BCSMM85;LDA@35;JSR#FFF4 LDX@#90;JSR#F7F1;JSR#F7FD;JMPMM83:MM85JSR#FFED;JMPMM84(\2\==================<\ ALGEMENE ROUTINESF\==================P\ inputroutinesZ:XX10JSR#C78B;LDY@#90;JSR#C3CD;LDA@#FF;STA#92;STA#93;RTSd:XX11JSR#C231;JSR#C78B;LDY@#92;JSR#C3CD;LDX@#92;JSR#FA08;RTSn:XX12JSR#C231;JSR#C78B;LDY@#94;JSR#C3CD;RTSx\ printerroutine‚:XX13LDA@#FF;STA#B801;LDA#B801;CMP@#7F;BEQXX14;RTSŒ:XX14JSR#FFED;LDA@7;JSR#FFF4;JSR#FFF4;JSR#F7D1–];$P="PRINTER READY! HARDCOPY Y/N ?";P=P+L.P [;NOP;JSR#FFE3;CMP@89;BEQXX15;JSR#FFED;RTSª:XX15JSR#FFED;LDA@#02;JSR#FFF4;LDA@21;JSR#FFF4;LDX@6´:XX16JSR#FFED;DEX;BNEXX16;RTS¾\ escape-toetsÈ:XX17LDA#B001;AND@#20;BEQXX18;RTSÒ\ stopÜ:XX18LDA@#03;JSR#FFF4;LDA@#06;JSR#FFF4;JSR#FFED;JMP#C2CAæ:XX19JSR#FFED;JSR#F7D1;];$P="READY";P=P+LENP;[;NOP;JMPXX18ð\ lab - lib - lineú:XX20LDA#12;STA#91;LDY@#00;STY#90STY#15;STY#14;STY#13;RTS
 \****TURBO*****:CC6JSR RR0;CMP@1;BEQRR1;CMP@2;BEQRR2":RR3JSR#F7D1;];$P="SYSTEM IS RUNNING IN ";P=P+L.P;[;NOP,LDA#B800;AND@#20;BEQRR4;JSR#F7D1;];$P="FAST";P=P+L.P;[;NOP;JMP RR5;:RR46JSR#F7D1;];$P="SLOW";P=P+L.P;[;NOP;:RR5JSR#F7D1;];$P=" MODE.";P=P+L.P;[@NOP;JSR#FFED;JMP#C575J:RR1LDA#B800;ORA@#20;STA#B800;JMPRR3T:RR2LDA#B800;AND@#DF;STA#B800;JMPRR3^\****WP*****h:CC14JSR RR0;CMP@1;BEQRR6;CMP@2;BEQRR7r:RR8JSR#F7D1;];$P="WRITE PROTECT IS ";P=P+L.P;[;NOP|LDA#B800;AND@#02;BEQRR9;JSR#F7D1;];$P="ON.";P=P+L.P;[;NOP;JMP RR10†:RR9JSR#F7D1;];$P="OFF.";P=P+L.P;[;NOP;:RR10JSR#FFED;JMP#C575:RR6LDA#B800;ORA@#02;STA#B800;JMPRR8š:RR7LDA#B800;AND@#FD;STA#B800;JMPRR8Ÿ\**** READ ON/OFF PARAMETER ****¤:RR0LDY#3;DEY;:RR15;INY;LDA(#05),Y;CMP@#20;BEQRR15®CMP@CH";";BEQRR11;CMP@#0D;BNERR12;:RR11LDA@0;BEQRR14;:RR12¸CMP@CH"O";BNERR11;INY;LDA(#05),Y;CMP@CH"N";BEQRR13;CMP@CH"F";BNERR11ÂINY;LDA(#05),Y;CMP@CH"F";BNERR11;LDA@2;BNERR14Ì:RR13LDA@1Ð:RR14RTSÖ]à RETURNÿÿ