$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}