File DISAM.PA (PAL assembler source file)

Directory of image this file is from
This file as a plain text file







*0
	JMP I N200
M3,	-3
BREAK,	204
N200,	200
TALLY,	0
M212,	-212
M7,	-7
TRI,	CORE
INDEX1,	0
INDEX2,	0
NUM2,	0
PLUS,	253
FILE,	.
	306;311;314;305;240;316;301;315;305;272;0
CHARAC,	.+1
NEG,	0
CORE,	0
	0;0;0;0;0;0;0
FLAG,	0
RLF,	0
	CLA CLL
	TAD N215
	JMS PRINT
	TAD N212
	JMS PRINT
	JMP I RLF
N215,	215
N212,	212
PRINT,	0
	TLS
	CLA
	JMP I PRINT
M377,	-377
ERROR,	TAD I .+3
	JMS PRIN
	JMP I N200
	S7
PRIN,	0
	DCA INDEX1
	TAD I INDEX1
	SNA
	JMP I PRIN
	JMS PRINT
	JMP .-4
CHANGE,	BLOCK+3
NUM,	0
BLOCK,	.+1
	0;0;0;0;0
X,	N7770
INFO,	.+1
	0;0
MINUS,	0
WORD4,	0
	0;0
BUF,	0
	DCA STORE
	TAD M4
	DCA COUNT
	TAD STORE
	RAL
OK,	RTL
	RAL
	DCA STORE
	TAD STORE
	AND MASK
	TAD N260
	JMS PRINT
	TAD STORE
	ISZ COUNT
	JMP OK
	CLA CLL
	JMP I BUF
STORE,	0
M4,	-4
COUNT,	0
MASK,	7
N240,	240
N1000,	1000
M240,	-240
SAVE,	0
MASK2,	7000
OPR1,	0
N260,	260
INDRCT,	0
	TAD SAVE
	AND MASK3
	SNA CLA
	JMP I INDRCT
	TAD N311
	JMS PRINT
	TAD N240
	JMS PRINT
	JMP I INDRCT
MASK3,	400
N311,	311
FIND,	0
	DCA CORE
	JMP I .+1
	FIN2
HERE,	TAD SAVE
	AND MASK4
	TAD CORE
	JMS BUF
	JMP I FIND
RETURN,	SUB
MASK4,	177
*200
	CLA CLL
	SRA
	DCA FLAG
	CLL CML RAR
	CLOS
	DUP
	TAD BREAK
	KSB
	JMS RLF
	TAD FILE
	JMS PRIN
	TAD M7
	DCA NEG
	TAD TRI
	DCA CORE
READ,	TAD CHARAC
	KSR
	TAD I CORE
	TAD M212
	SNA
	JMP B
	TAD M3
	SNA CLA
	JMP .-4
	TAD I CORE
	TAD M377
	SNA CLA
	JMP 200
	JMS RLF
	JMP ERROR
POK1,	RT2+5
	320;317;313;305;0
	S1
	STRING
B,	TAD NEG
	SNA CLA
	JMP .+6
	TAD N240
	DCA I CORE
	ISZ CORE
	ISZ NEG
	JMP .-4
	TAD TRI
	IAC
	DCA CORE
	TAD CHANGE
	DCA NUM
	TAD M3
	DCA TALLY
AGAIN,	TAD I CORE
	TAD M240
	CLL RTL;RTL;RTL
	DCA I NUM
	ISZ CORE
	TAD I CORE
	TAD M240
	TAD I NUM
	DCA I NUM
	ISZ CORE
	ISZ NUM
	ISZ TALLY
	JMP AGAIN
GO,	TAD BLOCK
	OPEN
	SZA CLA
	JMP POK1-2
	IAC
	TAD X
	DCA MINUS
	TAD X
	DCA WORD4
	JMS RLF
	TAD I B-1
	JMS PRIN
	JMS I POK1
	JMS RLF
	UND
	TAD INFO
	RFILE
	TAD X
	CMA
	TAD MINUS
	SNA
	JMP 200
	CIA
	DCA MINUS
	TAD WORD4+1
	DCA NUM
	TAD X
	DCA INDEX2
MRI,	TAD NUM
	JMS BUF
	TAD N240
	TLS
	JMS PRINT
	TAD I INDEX2
	DCA SAVE
	TAD SAVE
	JMS BUF
	TAD N240
	TLS
	JMS PRINT
	TAD SAVE
	AND MASK2
	CIA
	DCA OPR1
	DCA NUM2
	TAD RETURN
	DCA INDEX1
COMPAR,	TAD NUM2
	TAD OPR1
	SNA CLA
	JMP .+6
	ISZ INDEX1
	TAD N1000
	TAD NUM2
	DCA NUM2
	JMP COMPAR
	TAD I INDEX1
	DCA RLF
	JMP I RLF
AN1,	TAD I B-2
MAIN,	JMS PRIN
	TAD N240
	JMS PRINT
	JMS INDRCT
	JMS FIND
MAIN2,	JMS RLF
	ISZ MINUS
	SKP
	JMP I N200
	ISZ NUM
	JMP I .+1
SUB,	MRI
	AN1
	TA1
	IS1
	DC1
	JM1
	JM2
	IO1
	MR1
FIN2,	TAD SAVE
	AND N200
	SNA CLA
	JMP HERE
	TAD NUM
	AND MASK5
	DCA CORE
	JMP HERE
MASK5,	7600
TA1,	TAD S2
	JMP I N
IS1,	TAD S3
	JMP I N
DC1,	TAD S4
	JMP I N
JM1,	TAD S5
	JMP I N
JM2,	TAD S6
	JMP I N
N,	MAIN
S1,	.
	301;316;304;0
S2,	.
	324;301;304;0
S3,	.
	311;323;332;0
S4,	.
	304;303;301;0
S5,	.
	312;315;323;0
S6,	.
	312;315;320;0
S7,	.
	305;322;322;317;322;0
	Y
IO1,	TAD INST
	DCA NUM2
	TAD I .-3
	DCA CORE
PHASE,	TAD I NUM2
	SNA
	JMP .+11
	TAD SAVE
	SNA CLA
	JMP .+3
	ISZ CORE
	JMP PHASE
	TAD I CORE
	JMS PRIN
	JMP BACK
	TAD I CORE
	JMS PRIN
	TAD PLUS
	JMS PRINT
	TAD SAVE
	AND IT
	JMS BUF
BACK,	JMP I .+1
	MAIN2
IT,	777
INST,	.
	-6000;-6031;-6032;-6034;-6036;-6400;-6401;-6030;-6041
	-6042;-6044;-6046;-6040;-6011;-6012;-6014;-6010;-6021
	-6022;-6024;-6026;-6020;-6764;-6771;-6772;-6423;-6615

-6411;-6412;-6413;-6414;-6415;-6420;-6421;-6430;-6200

-6440;-6442;-6402;-6422;-6616;-6614;-6603;-6605 -6617;-6600;-6601;-6602;-6604;-6610;-6611;-6612 -6613;-6403;-6417;-6431;-6424;0 Y, .+1 IO2;KS1;KC1;KR1;KR2;KS2;SB1;KS3;TS1;TC1;TP1;TL1;SA1 RS1;RR1;RF1;RR2;PS1;RC1;PP1;PL1;PS2;DTX1;DTS1;DTR1 PEK1;LOG1;UR1;TO1;RC1;DAT1;STM1;TS2;US1;SS1;CK1;AS1 RE1;DU1;CO1;WH1;SI1;RFI1;WF1;AC1;RE2;OP1;CLO1 PRO1;CR1;EX1;RE3;FIN1;UN1;SR1;SE1;POK1 IO2, . 311;317;324 KS1, 0 313;323;306 KC1, 0 313;303;303 KR1, 0 313;322;323 KR2, 0 313;322;302 KS2, 0 313;323;302 SB1, 0 323;302;303 KS3, 0 313;323;322 TS1, 0 324;323;306 TC1, 0 324;303;306 TP1, 0 324;320;303 TL1, 0 324;314;323 SA1, 0 323;301;323 RS1, 0 322;323;306 RR1, 0 322;322;302 RF1, 0 322;306;303 RR2, 0 322;322;323 PS1, 0 320;323;306 PC1, 0 320;303;306 PP1, 0 320;314;323 PL1, 0 320;314;323 PS2, 0 320;323;324 DTX1, 0 304;324;330;301 DTS1, 0 304;324;323;306 DTR1, 0 304;324;322;302 PEK1, 0 320;305;305;313 LOG1, 0 314;317;307;317;325;324 UR1, 0 325;322;324 TO1, 0 324;317;304 RC1, 0 322;303;322 DAT1, 0 304;301;324;305 STM1, 0 323;324;315 TS2, 0 324;323;323 US1, 0 325;323;305 SS1, 0 323;323;327 CK1, 0 303;313;323 AS1, 0 301;323;304 RE1, 0 322;305;314 DU1, 0 304;325;320 CO1, 0 303;317;316 WH1, 0 327;310;317 SI1, 0 323;311;332;305 RFI1, 0 322;306;311;314;305 WF1, 0 327;306;311;314;305 AC1, 0 301;303;324 RE2, 0 322;305;316 OP1, 0 317;320;305;316 CLO1, 0 303;314;317;323 PRO1, 0 320;322;317;324 CR1, 0 303;322;306 EX1, 0 305;330;324 RE3, 0 322;305;304 FIN1, 0 306;311;316;306 UN1, 0 325;316;304 SR1, 0 323;322;301 SE1, 0 323;305;301;0 GROUP1 MR1, TAD SAVE TAD N1000 SNA CLA JMP I ZONE+5 TAD MASK3 DCA BUF TAD M4 DCA TALLY TAD SAVE JMP I MR1-1 IAC DCA PRINT DCA FLAG TAD N200 DCA INDRCT TAD N200 DCA BUF TAD SAVE AND PRINT SZA CLA JMP I ZONE+5 TAD SAVE AND I ZONE+6 SZA CLA JMP .+5 TAD SAVE AND I ZONE+7 SZA CLA JMS I ZONE+2 TAD I ZONE+3 DCA CORE TAD I ZONE+4 DCA RLF TAD SAVE AND I ZONE+7 DCA FLAG ASCII, TAD BUF CLL RAR SZA JMP I .+1 ZON2-1 ZONE, JMP I .+1 MAIN2 UNSKP STP ABC OPR2 N160 N10 S ASCII DCA BUF ZON2, TAD SAVE AND BUF SZA CLA JMP S JMP MEM+11 THERE, ISZ CORE ISZ RLF JMP I .+1 ASCII S, TAD FLAG SNA CLA JMP .+3 TAD I RLF JMP MEM TAD I CORE MEM, JMS PRIN STA TAD 10 CIA TAD CHECK-1 SNA CLA JMP .+3 TAD N240 JMS PRINT ISZ TALLY SKP JMP CHECK JMP THERE NUTH CHECK, ISZ CORE ISZ RLF TAD SAVE AND INDRCT SZA CLA JMP I .+2 JMP I .+2 S THERE UNSKP, 0 TAD SK1 JMS PRIN JMP I UNSKP N10, 10 N160, 160 N5, 5 OPR2, TAD STP-2 JMS PRIN TAD SAVE AND STP-1 SNA JMP I .+7 DCA RLF TAD PLUS JMS PRINT TAD RLF JMS BUF JMP I .+1 MAIN2 OPR3 777 STP, .+1 SM1;SZ1;SN1;NUTH;CL1;OS1;HL1;NUTH ABC, .+1 SP1;SN2;SZ2;NUTH;CL1;OS1;HL1 CL1, NUTH 303;314;301 SM1, 0 323;315;301 SZ1, 0 323;332;301 SN1, 0 323;316;314;0 SK1, . 323;313;320 OS1, 0 317;323;322 HL1, 0 310;314;324 SP1, 0 323;320;301 SN2, 0 323;316;301 SZ2, 0 323;332;314 OPR3, 0 317;320;322;0 0 GROUP1, TAD MASK3 SZA CLA JMP .+4 TAD COBAL-3 JMS PRIN JMP I COBAL-2 TAD SAVE AND BUF SZA CLA JMP I COBAL-1 DCA FLAG IAC DCA INDRCT IAC RAL DCA PRINT TAD SAVE AND PRINT SNA CLA SKP ISZ FLAG TAD COBAL DCA CORE TAD URAN DCA RLF JMP I .+1 ASCII OPR3 MAIN2 MR1+12
COBAL, .+1
CL1;CL2;CM1;CM2;IA1;RA1;RA2;NUTH;NUTH
URAN, .+1 CL1;CL2;CM1;CM2;IA1;RT1;RT2;NUTH
CL2, NUTH 303;314;314 CM1, 0 303;315;301 CM2, 0
303;315;314 RA1, 0 322;301;322 RA2, 0 322;301;314 NUTH, 0 IA1, 0 311;301;303 RT1, 0 322;324;322 RT2, 0 322;324;314;0 0 CLA CLL DCA WORD4+1 KRB DCA BUF TAD BUF TAD M212 SNA JMP I RT2+5 TAD M3 SNA CLA JMP I RT2+5 TAD BUF TAD M377 SNA CLA JMP I ION1 TAD BUF TAD M260 DCA BUF TAD WORD4+1 RAL CLL RTL AND N7770 TAD BUF DCA WORD4+1 JMP RT2+10 STRING, . 301;304;304;322;305;323;323;272;0 ION1, MRI-21 M260, -260 N7770, 7770 $



Feel free to contact me, David Gesswein djg@pdp8online.com with any questions, comments on the web site, or if you have related equipment, documentation, software etc. you are willing to part with.  I am interested in anything PDP-8 related, computers, peripherals used with them, DEC or third party, or documentation. 

PDP-8 Home Page   PDP-8 Site Map   PDP-8 Site Search