From b79074166d1d35e822c094880a1877f702c406b7 Mon Sep 17 00:00:00 2001 From: brad Date: Fri, 9 Apr 2010 16:50:26 +0000 Subject: [PATCH] cleaned up and compared clean --- tests/src/MAINDEC-08-D1GB-D.pal | 210 ++++++++++++++++---------------- 1 file changed, 106 insertions(+), 104 deletions(-) diff --git a/tests/src/MAINDEC-08-D1GB-D.pal b/tests/src/MAINDEC-08-D1GB-D.pal index 9642cc4..43e72dd 100755 --- a/tests/src/MAINDEC-08-D1GB-D.pal +++ b/tests/src/MAINDEC-08-D1GB-D.pal @@ -12,13 +12,15 @@ RMF=6244 RIB=6234 *1 / - JMP I 1 + JMP 1 0002 0003 / -JMPI0, JMP I 1 +*20 +/ +JMPI0, JMP I 0 ISZ0, ISZ 0 -XTPLG, TFLG +XTFLG, TFLG XSTKS, NSTKS XRMF, TRMF XRANS, TRANS @@ -38,7 +40,7 @@ KCF1, CIF1-1 XFD, EXFD K1, 1 K7, 7 -K11, 10 +K10, 10 K7777, 7777 K7000, 7000 K7707, 7707 @@ -50,12 +52,12 @@ K7727, 7727 K7717, 7717 K7776, 7776 K7775, 7775 -K7774, 7114 -K1773, 7773 +K7774, 7774 +K7773, 7773 K7772, 7772 K7771, 7771 K7770, 7770 -POINT, ,+2 +POINT, .+2 K7S, .+1 @@ -70,11 +72,11 @@ XTDF, STDF XTDF1, STDF+1 KXFLD, EXFLD KJMP, JMP I 2 - ENTER +KNTR, ENTER K20, 20 -JMP0, JMP I KFLD0 +JMP2, JMP I KFLD0 KFLD0, RTRN -KPTN, E45A+2 +KRTN, E45A+2 XFIB, SFIB /TEST CDF AND RDF @@ -84,10 +86,10 @@ XFIB, SFIB BEGIN, CLA DCA LOOP /LOOP COUNTER / -DF0 CDF 00 /DF 0 +DF0, CDF 00 /DF 0 RDF SNA /SHOULD NOT SKIP - JMP 0F7 + JMP DF7 E1, HLT /ERROR. CDF OR RDF FAILED CLA JMP DF0 /REPEAT @@ -102,7 +104,7 @@ F2, HLT /CDF OR RDF FAILED CLA JMP DF7 / -0K1, ISZ LOOP /CHECK DONE +OK1, ISZ LOOP /CHECK DONE JMP DF0 / CLA @@ -199,14 +201,14 @@ IB0, ION /ENABLE PI SNA JMP IB1 E9, HLT /RIB FAILED - JMP IBO + JMP IB0 / IB1, CDF 10 /DF 1 ION CLA RDF /DF SHOULD BE AFTER A PI SNA - JMP + JMP .+3 E10, HLT JMP IB1 /DF NOT CLEARED, OR NO PI TAD K7776 @@ -282,12 +284,12 @@ E16, HLT /DF NOT 0 AFTER PI E17, HLT /RIB OR SF FAILED JMP IB4 / - CDF 50 /DF5 +IB5, CDF 50 /DF5 ION CLA RDF /DF SHOULD=000 SNA - JMP + JMP .+3 E18, HLT /DF NOT 0 AFTER PI JMP IB5 / @@ -378,7 +380,7 @@ TFLD, CDF 00 TAD DAT CIA /2'S COMP TAD NDF /BETTER BE EQUAL - CLA + SZA CLA JMP E24-1 /ERROR PATH ISZ STKS /ALL WHEN 0 JMP .+4 @@ -410,49 +412,50 @@ E24, HLT /AC=DATA READ. DF INDICATORS /* LOCS. 1, 2, TO = ISZ 0, AND /JMP I 0, RESPECTIVELY. / -xxx1, CDF 00 /SET DF to 000. +IBSF, CDF 00 /SET DF to 000. TAD ISZ0 /ISZ 0 DCA 1 - TAD IMRIO /JMR I 0 + TAD JMPI0 /JMP I 0 DCA 2 / / xx A HLT I dddd EXTENDED FIELDS, / - TAD I XSTRS + JMS I XSTKS TAD KCDF TAD K10 DCA .+1 -xxx1, CDF 10 /FIELD 1 TO START WITH - TAD KH /KHLT = 7402 +HLTS, CDF 10 /FIELD 1 TO START WITH + TAD KHLT /KHLT = 7402 DCA I K1 ISZ STKS /ALL FIELDS WHEN SKP JMP .+3 TAD HLTS - JMP HLTS-8 + JMP HLTS-2 / / CIF TESTS / CDF 000 - KSF - JMS I XTSF /SET TTY FLAG + TSF + JMS I XTFLG /SET TTY FLAG DCA LOOP JMS I XSTKS /READ SR 9-11 / -xxx1, CIF 10 /FIELD 0 +CIF1, CIF 10 /FIELD 0 ION NOP JMP .+1 -xxx3, HLT /ERROR, NO PI OR INHIBIT PI +E25, HLT /ERROR, NO PI OR INHIBIT PI RIB /RETURN FROM LOC.3 TAD K7767 - SMA + CMA SNA CLA /OK IF NO SKIP JMP OKF1 RIB - HLT /I.B. OR S.F FAILED, C(AC)=C(IB) +E26, HLT /I.B. OR S.F FAILED, C(AC)=C(IB) CLA JMP CIF1 /REPEAT + / OKF1, ISZ STKS /ALL FIELDS IF 0 JMP CIF2 @@ -508,8 +511,8 @@ OKF3, ISZ STKS /ALL FIELDS IF 0 CIF4, CIF 40 /FIELD 4 ION NOP - JMP ,+1 -7402 £31, HLT /NO PI OR INHIRIT PI + JMP .+1 + HLT /NO PI OR INHIRIT PI RIB /JMP TO HERE FROM LOC, 3 TAD K7737 CMA @@ -523,7 +526,7 @@ OKF4, ISZ STKS /ALL FIELDS IF 0 JMP CIF5 ISZ LOOP /ALL DONE IF 0 JMP I KCF1 - JMP TRMF [TEST RMF + JMP TRMF /TEST RMF CIF5, CIF 50 /FIELD 5 ION NOP @@ -566,7 +569,7 @@ OKF6, ISZ STKS /SEE IF ALL FIELDS CIF7, CIF 70 /FIELD 7 ION NOP - JMP ,+1 + JMP .+1 E37, HLT /NO PI OR INHIBIT PI RIB /RETURN HERE FROM LOC,3 TAD K7707 @@ -599,16 +602,16 @@ OKF7, ISZ LOOP /DONE IF SKIP TRMF, JMS I XSTKS /READ SR9-11 TAD KCDF /6201 DCA .+6 - TAO .+5 + TAD .+5 TAD K10 DCA .+3 CMA - OCA 10 - CDF 10 + DCA 10 + CDF 00 DCA I 10 /PLACE 0'S IN EACH FIELD FROM TAD 10 /LOC, 0 TO 7777, CMA - CLA + SZA CLA JMP .-4 ISZ STKS JMP TRMF+3 @@ -677,7 +680,7 @@ E41, HLT /AC=C(DF) TAD I K7S CMA SNA CLA /ERROR IF SKIP - JMP CKP0 + JMP CKPC RMF RIB E42, HLT /ERROR RMF AND PI WORKED, BUT @@ -687,7 +690,7 @@ E42, HLT /ERROR RMF AND PI WORKED, BUT CIF 00 JMP I XTDF /BACKUP A PAGE AND REPEAT / -CKRC, TAD KE40 /KE40=ADDRESS OF E40 +CKPC, TAD KE40 /KE40=ADDRESS OF E40 IAC /MAKE E40+1 CIA TAD 0 /COMPARE TO C(0) @@ -734,15 +737,15 @@ E43, HLT /ERROR, ALL WORKED, BUT CDF 00 /RESTORE DF /INCREMENT CDF AND CIF HIT'S AT SUF STSTDFSTDF+1 /TO NEXT FIELD. - TAD I XTDF TDF X0 AT STDF + TAD I XTDF /TDF X0 AT STDF TAD K10 DCA I XTDF TAD I XTDF1 /CIF XP AT STDF TAD K10 - DCA I XTDF11 + DCA I XTDF1 TAD I XTDF1 - DCA EXFD D - ISZ K75 + DCA EXFD + ISZ K7S JMS TRANS /PUT ROUTINE IN NEW JMP I XTDF /TEST NEW FIELD @@ -755,34 +758,35 @@ E43, HLT /ERROR, ALL WORKED, BUT /MEMORY LOCATIONS IN THE TESTED FIELLD, LOCATIONS /0 THRU 11 ARE USED FOR AN ERROR ROUTINE /IN CASE FIELD 0 IS NOT ENTERED AFTER AN -/INTERRUPT, THE EXTENDED FIELD SHOULD BE /ENTERED AT LOCATION E40-1 WHICH CORRESPONDS +/INTERRUPT, THE EXTENDED FIELD SHOULD BE +/ENTERED AT LOCATION E40-1 WHICH CORRESPONDS /TO F40-1 IN FIELD 0. / /EXTENDED FIELD INSTRUCTIONS: / EXFLD, 0 /0 TAD 0 /1 - JMP /IF LOC. 0 NOT :0 PI DIDN'T - SNA /ENTER FIELD 0 + SNA /IF LOC. 0 NOT :0 PI DIDN'T + /ENTER FIELD 0 JMP .+5 /3 -E44, HLT /4, INTERRUPTED TO THIS FIELD - /INSTEAD OF FIELD 0,C(Ac)=c(0)0,C(AC)=C(0) - /WHICH SHOULD BE E40+1 - /IF NOT, CHECK LOC, 7777,IT - /MUST =: 5412 (JMP I12). +E44, HLT /4, INTERRUPTED TO THIS FIELD + /INSTEAD OF FIELD 0,C(Ac)=c(0)0,C(AC)=C(0) + /WHICH SHOULD BE E40+1 + /IF NOT, CHECK LOC, 7777,IT + /MUST =: 5412 (JMP I12). CLA /5 DCA 0 /6 JMP I 20 /7, C(20) :E40 -E45, HLT /10, THE JMP I 12 AT LOC, - /7777 WAS NOT EXECUTED, - /OR INTERRUPT FAILED, IF - /NO INTERRUPT, LOCATION 12 - /NOW CONTAINS 0 INSTEAD - /OF ADDRESS E40, - JMP .-4 /11, REPEAT IN THIS FIELD - E40 /12, AUTO—INDEXS TAUTO-INDEXS - /IN F 0 IF THE JMP I 12 - /WORKS, +E45, HLT /10, THE JMP I 12 AT LOC, + /7777 WAS NOT EXECUTED, + /OR INTERRUPT FAILED, IF + /NO INTERRUPT, LOCATION 12 + /NOW CONTAINS 0 INSTEAD + /OF ADDRESS E40, + JMP .-4 /11, REPEAT IN THIS FIELD + E40 /12, AUTO—INDEXS TAUTO-INDEXS + /IN F 0 IF THE JMP I 12 + /WORKS, /LOCS. 13 TO 17 ARE ALL 0'S / E40 /20, EQUALS E40 IN F0, @@ -857,19 +861,17 @@ TRFLD, CDF 10 /F1 TO START WITH /512 TIMES. / SFIB, TSF /SEE IF FLAG IS SET, - jMS I x11:1_,; /SET IT + JMS I XTFLG /SET IT TAD K7000 /7000 - DCA LIMP - CDF 1E! /DF=FIFLD 1 + DCA LOOP + CDF 10 /DF=FIFLD 1 TAD KHLT /HLT DCA I K7000 /7000, FIELD 1=HLT - CUR 0E7 - TAD J /0F=0 - MP2 - /JMP2=JMP I KFLD0 - DcA I /7000, FIELD 0=JMP I KFLD0 - /KFLDO=LOC, RTRN - TAD KJMP /KJMP=JMP 12 + CDF 00 /DF=0 + TAD JMP2 /JMP2=JMP I KFLD0 + DCA I K7000 /7000, FIELD 0=JMP I KFLD0 + /KFLDO=LOC, RTRN + TAD KJMP /KJMP=JMP 12 DCA 1 TAD KRTN /KRTN=LOC, E45A+2 DCA 2 @@ -878,13 +880,13 @@ SFIB, TSF /SEE IF FLAG IS SET, / ION /ENABLE PI NOP -xxx, HLT /ERROR NO PI +E45A, HLT /ERROR NO PI JMP SFIB /REPEAT TEST / /RETURNS HERE AFTER PI / CLA - CDF 00 /DF=FIELD1 + CDF 10 /DF=FIELD1 CIF 10 /IB=FIELD1 RMF /IB SHOULD=FIELD0 JMP I K7000 /IF SHOULD=FIELD0 @@ -910,16 +912,16 @@ TAUTO, CDF 00 JMS I XSTKS /READ SR 9-11 TAD KCDF /6201 DCA DFN -NEXDF, TAD DFN +NEWDF, TAD DFN TAD K10 /INCREMENT DF - DCA DEN + DCA DFN / / CLEAR ONE FIELD TO 0 / - DMA + CMA DCA 10 DCA 0 /USE LOC, 0 FOR A COUNTER -DF0, CDF 10 /FTELD 1 TO START WITH +DFN, CDF 10 /FTELD 1 TO START WITH DCA I 10 ISZ 0 JMP .-2 @@ -933,7 +935,7 @@ DF0, CDF 10 /FTELD 1 TO START WITH DCA 0 /USE. LOC. 0 AS COUNTER TAD DOAUTO DCA 11 /DESTINATION - TAD DEN /CDF X0 + TAD DFN /CDF X0 DCA .+3 MOVE, CDF 00 TAD I 10 @@ -951,8 +953,8 @@ MOVE, CDF 00 DCA 10 CMA /7777 DCA I 10 - ISZ 0 /10 TO 17 = 7777 WHEN SKIP - JMP .+3 + ISZ 0 /10 TO 17 = 7777 WHEN SKIP + JMP .-3 CMA DCA I K7777 /PUT 7777 IN LOC, 7777 OF EXTENDED RDF /READ D.F. @@ -970,7 +972,7 @@ MOVE, CDF 00 GOTO0, ISZ STKS /DONE ALL WHEN SKIP JMP NEWDF /SETUP FOR NEXT ISZ LOOP /ALL DONE IF SKIP - JMP NEWDF_3 /REPEAT ALL + JMP NEWDF-3 /REPEAT ALL JMP CSR8 /CSR8K SR 8 FILDX, DOAUTO-515 @@ -1017,7 +1019,7 @@ E52, HLT /16 FAILED E53, HLT /17 FAILED CDF 00 /SET DF TO FIELD 0 CIF 00 /SET I.B., TO FIELD 0 - JMP GOTOO /EXIT TO FIELD 0 + JMP GOTO0 /EXIT TO FIELD 0 /END OF TEST ROUTINE / / @@ -1029,7 +1031,7 @@ CSR8, LAS SZA CLA JMP I XMEM /NEXT TEST AND 7 -BELL TAD .-1 +BELL, TAD .-1 TLS /RING BELL TSF JMP .-1 @@ -1081,8 +1083,8 @@ NOMEM, CLA TAD NOFLD /MISSING STACK DCA CDF0S TAD KCDF - TAD NOFLO - DCA CD1S + TAD NOFLD + DCA CDF1S / /NOW SEE IF AN ODD OR EVEN NUMBER IS MISSING / @@ -1100,7 +1102,7 @@ CNSTK, ISZ NOSTAK /DONE ALL MISSING IF SKIP TAD TTB DCA I XELL /RESTORE TLS JMP I XBELL /RING BELL -XOCM, NOMEM+3 +XNOM, NOMEM+3 XELL, BELL+1 XBELL, BELL TTB, TLS @@ -1141,27 +1143,27 @@ E54, HLT /ERROR, AN EXISTING FIELD / /ROUTINE TO READ ALL 1'S / -ALL1, 0 /SET DF TD MISSING FIELD -CDF1S, CDF 00 - CLA CMA - DCA 10 /10 AND 11 USED FOR. ADDRESSING +ALL1, 0 +CDF1S, CDF 00 /SET DF TD MISSING FIELD + CLA CMA + DCA 10 /10 AND 11 USED FOR. ADDRESSING CMA - DCA 11 - DCA 2 /USED AS COUNTER - DCA I 10 /WRITE 0'S - ISZ 2 - JMP .-2 - TAD 111 /READ 1'S FROM NO MEMORY + DCA 11 + DCA 2 /USED AS COUNTER + DCA I 10 /WRITE 0'S + ISZ 2 + JMP .-2 + TAD I 11 /READ 1'S FROM NO MEMORY CMA SNA JMP .+4 - DMA -E57, HLT /7777 NOT READ, C(AC)= DATA - CLA /READ, C(11)- ADORESS, - ISZ 2 - JMP E57-5 - CDF 00 - CIF 00 + CMA +E57, HLT /7777 NOT READ, C(AC)= DATA + CLA /READ, C(11)- ADORESS, + ISZ 2 + JMP E57-5 + CDF 00 + CIF 00 JMP I ALL1 /EXIT / /READ SR9-11