$JOB   IAN M CUNNINGHAM EDIT ON DISCAP
EDIT
OPEN DISCAP
L KBM
C /KBM/KBFIX/
L MOVEON
C /,MOVEON//
L .LOC
I 	.IODEV 3,4,5,6
I IDCF=700704
I IDLA=700606
I IDRS=700504
I DBR=703344
I DBK=703304
I IOF=700002
I ISA=705504
I CAF=703302
I TLS=700406
I TSF=700401
I TCF=700402
I IDSI=700601
I IDSP=700701
I IDVE=700501
I IDHE=701001
F TTPNT
D 42
C /	/DECIPH	/
A +2
N
C /302/410320/
N 2
C /304/420320/
N 2
C /322/512132/
N 2
C /323/514320/
N 2
C /307/436132/
N
I 	LAC	(BUFF
I 	DAC	SDATA
I 	LAC	(TREAD+2
I 	JMS	UNPACK
I 	JMP	ECAP
N
D 5
D 30
F RESET
C /2/3/
N
C /323/342650/
N 2
C /WHAT/M3/
N
D 4
F SAVER
D 4
C /	/SAVER	/
N
D 2
F SAVE
N
D
N 2
A 	/ CONFIRM DELETION
N 4
C /1/2/
A 	/ CONFIRM LAST ADDITION
N 4
C /1/4/
F GET
C /1/3/
N
C /305/406400/
N 2
C /WHAT/M3/
N
D 4
L 700601
C /700601/IDSI/
L 700704
C /700704/IDCF/
N
D
L 700606
C /700606/IDLA/
N
D 2
N 2
I UNPACK	XX	/UNPACKS 5/7 ASCII TO 8 BITS
I 	DAC	STORE#	/ ONE CHAR. PER WORD
I FURTH	LAC*	STORE	/ PACKED ADDRESS IN AC
I 	LMQ		/ UNPACKED ADDRESS IN SDATA
I 	CLA!CLL
I 	LLS+7		/ GET FIRST CHAR
I 	ADD	(200	/ ADD EXTRA BITS
I 	DAC*	SDATA	/ STORE & INCREMENT ADDRESS
I 	ISZ	SDATA
I 	SAD	(215	/ IS IT A CARRIAGE RETURN
I 	JMP*	UNPACK	/ FINISHED
I 	CLA
I 	LLS+7		/ GET 2ND CHAR
I 	ADD	(200
I 	DAC*	SDATA
I 	ISZ	SDATA
I 	SAD	(215
I 	JMP*	UNPACK
I 	CLA
I 	LLS+7		/ GET PART OF 3 CHAR
I 	DAC	HOLD#	/STORE TEMP
I 	ISZ	STORE	/ GET NEXT PACKED WORD
I 	LAC*	STORE
I 	LMQ
I 	CLA!CLL
I 	LLS+3		/ GET REST OF 3 CHAR
I 	ADD	HOLD	/GET FIRST PART OF 3 CHAR
I 	ADD	(200
I 	DAC*	SDATA
I 	ISZ	SDATA#
I 	SAD	(215
I 	JMP*	UNPACK
I 	CLA
I 	LLS+7		/ GET 4 CHAR
I 	ADD	(200
I 	DAC*	STORE
I 	ISZ	SDATA
I 	SAD	(215
I 	JMP*	UNPACK
I 	CLA
I 	LLS+7		/ GET 5 CHAR
I 	ADD	(200
I 	DAC*	SDATA
I 	ISZ	SDATA
I 	SAD	(215
I 	JMP*	UNPACK
I 	ISZ	STORE	/ START ON NEXT SET OF 5
I 	JMP	FURTH	/ CHARS
I /
I /
F ECAP
L TTPNT
C /TTPNT/TTPNT#/
L WHAT
C /WHAT/M3/
L WHAT
C /WHAT/M3/
L ALS+6
N 7
I 	JMP	MOVEON
N
D 3
T
F PUNCH
N 4
I /
I MASSGE	XX
I 	.INIT -3,1,START
I PRINT	.WRITE -3,2,SM1,34
I 	CLOSE -3
I 	DZM	PRINT+2
I 	JMP*	MASSGE
I /
F R
F /
N
I BUFF	.BLOCK 20
F START
N 28
D 2
N 2
C /700701/IDSP/
N 4
C /700501/IDVE/
N 4
C /700601/IDSI/
N 4
C /701001/IDHE/
N 2
D 7
P
N
C /700704/IDCF/
N
C /703302/CAF/
N 3
C Q700606QIDLA		/ START DISPLAYQ
I 	SKP
I KBFIX	JMS	LPON
I 	DBK
I 	.READ -2,2,TREAD,34
I READTT	.WAITR -2,TTDISL
I 	.CLOSE -2
I 	JMS	LPOFF
I 	LAC	(400001
I 	ISA		/ RASIE PROIRITY TO LEVEL 7
I 	JMP	DECIPH
I TTDISL	LAW	0
I 	DAC	TIMER1#	/ THIS WAIT LOOP KEEPS I/O
I 	LAW	0	/   AWAY FROM API LEVEL 4 SO
I 	DAC	TIMER2#	/ THAT THE INTERRUPT SYSTEM
I 	NOP		/ WILL WORK
I 	NOP
I 	ISZ	TIMER2
I 	JMP	.-3
I 	ISZ	TIMER1
I 	JMP	.-7
I 	JMP	READTT
I MOVEON	DBK
I 	.INIT 3,1,START
I 	.ENTER 3,FILE
I 	JMP*	DECODE
N
D 10
T
F BELOW
A 	/ RING TELETYPE BELL
N
C /700406/TLS/
N
C /700401/TSF/
N 2
C /700402/TCF/
N 2
C /700704/IDCF/
N
C /700606/IDLA/
I 	700042
I 	DBR
I 	JMP*	0
N
D
I /
I SM1	.ASCII	'     CONFIRM DELETION'<215>
I SM2	.ASCII	'     PUT LP TO ADD TO CONFIRM '
I 	.ASCII	'LAST ADDITION & TYPE S'<215>
I SM3	.ASCII	'     WHAT?'<215>
I SM4	.ASCII	'     PUT LP TO ADD TO CON'
I 	.ASCII	'FIRM LASR ADDITION & TYPE S'<215>
I SM5	.ASCII	'     DISPLAY FILE OVERFLOW'<215>
I SM6	.ASCII	'     MAXIMUM NUMBER OF NODES IS 20'<215>
I SM7	.ASCII	'     NODE OR BRANCH IS NOT INDICATED'<215>
F M1
N
C /SMESS/MERR/
N 2
C /SMESS/MERR/
N 2
C /SMESS/MERR/
N 2
R 	DAC	PRINT+2
I 	DBK
I 	JMS	MASSGE
I 	JMP	KBFIX
F SMESS
N
D 10
I ION	LAC	MODE	/ IF MODE IS DELETE
I 	SAD	(4	/ RESTART DISPLAY
I 	JMP	.+5
I 	LAC	VERTM	/ IF LP AT CONTROL CHAR
I 	TAD	(-61	/ RESTART DISPLAY
I 	SMA
I 	JMP	TMESS-1
I 	LAC	NODET	/ RESTART AT FILE FOR TAGS
I 	IDCF
I 	IDLA
I 	SKP
I 	IDRS		/ CONTINUE DISPLAY OP.
I TMESS	LAC	PRINT+2
I 	SNA
I 	JMP	GOION
I 	LAC	0
I 	DAC	ZERO#
I 	JMS	LPOFF
I 	CAF
I 	700042		/ ION
I 	JMS	MASSGE
I 	IOF
I 	LAC	ZERO
I 	DAC	0
I 	JMS	LPON
I GOION	700042		/ ION
I 	DBR
I 	JMP*	0
F ION
D 49
CLOSE
OPEN DECIPH
L KBM
C /KBM/KBFIX
N 2
C /,MOVEON//
F M14
F EINIT
F PERR
N 6
I 	JMP*	KBFIX
N
D 10
CLOSE
$JOB
MACRO
B_DISCAP
B_DECIPH
$JOB
A NON -5
GLOAD
DISCAP,DECIPH}