github.com/lisper.cpus-pdp8
1
0
Fork 0
mirror of synced 2026-02-27 01:00:10 +00:00
Code Issues Releases Wiki Activity

cleaned up and compared clean

Browse Source
This commit is contained in:
brad
2010-04-09 16:50:26 +00:00
parent c29cc44271
commit b79074166d
1 changed files with 106 additions and 104 deletions
Download Patch File Download Diff File Expand all files Collapse all files

210
tests/src/MAINDEC-08-D1GB-D.pal
View File

@@ -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