github.com/rcornwell.ctss
1
0
Fork 0
mirror of https://github.com/rcornwell/ctss.git synced 2026-01-12 00:02:48 +00:00
Code Issues Projects Releases Wiki Activity
rcornwell.ctss/original/sadaem
Richard Cornwell c610c1cfe3 Added start of IBSYS build system. 
Added original listing files for reference.
2016-09-27 22:42:50 -04:00

25682 lines
1.8 MiB
Raw Permalink Blame History

PHASE1 BCD 02/09/69 0528.0 63509 00000
PH1 BCD 02/09/69 0525.2 13533 00000
1 PHASE 1 OF THE DAEMON DISK/DRUM RELOAD D.A. ANDERSON 01/28/68 01/28/69 915.7 PAGE 1
EXTERN SETIO,FS.TST,EXIT
EXTERN UPDMFD,ATTACH,ALLOT,SETFIL
EXTERN TAPFIL,MOUNT,VERIFY,UMOUNT
EXTERN OPEN,BUFFER,TRFILE,RDWAIT,WRWAIT,CLOSE
EXTERN UPDATE,RESETF,CHFILE,DELFIL,FERRTN,FSTATE
EXTERN INITTF,OPENDF,RDF,TERMTF
EXTERN GETLSG,ASKOPR,PRNTER
EXTERN DPRINT,FOUT
M CALL MACRO NAME,LIST
TSX NAME,4
IRP LIST
PTH LIST
IRP
CALL END
ARGS MACRO LIST
IRP LIST
PTH LIST
IRP
ARGS END
1 PHASE 1 OF THE DAEMON DISK/DRUM RELOAD D.A. ANDERSON 01/28/68 01/28/69 915.7 PAGE 2
00000 622563314660 SETIO
00001 266233636263 FS.TST
00002 256731636060 EXIT
00003 644724442624 UPDMFD
00004 216363212330 ATTACH
00005 214343466360 ALLOT
00006 622563263143 SETFIL
00007 632147263143 TAPFIL
00010 444664456360 MOUNT
00011 652551312670 VERIFY
00012 644446644563 UMOUNT
00013 464725456060 OPEN
00014 226426262551 BUFFER
00015 635126314325 TRFILE
00016 512466213163 RDWAIT
00017 665166213163 WRWAIT
00020 234346622560 CLOSE
00021 644724216325 UPDATE
00022 512562256326 RESETF
00023 233026314325 CHFILE
00024 242543263143 DELFIL
00025 262551516345 FERRTN
00026 266263216325 FSTATE
00027 314531636326 INITTF
00030 464725452426 OPENDF
00031 512426606060 RDF
00032 632551446326 TERMTF
00033 272563436227 GETLSG
00034 216242464751 ASKOPR
00035 475145632551 PRNTER
00036 244751314563 DPRINT
00037 264664636060 FOUT
00040 0000 00 0 00041 HTR *+1 WAIT FOR OPERATOR TO CATCH UP
NOW INITIALIZE COMMON
00041 0600 00 0 75042 STZ ABANTP DON'T ABANDON TAPE YET
00042 -0500 00 0 03410 CAL =2
00043 0602 00 0 75041 SLW NOCHAN ASSUME TWO-CHANNEL LOAD
00044 -0500 00 0 03441 CAL =H C0056
00045 0602 00 0 75040 SLW DU THE DAEMON IS C56 99999
00046 -0500 00 0 03440 CAL =H 99999
00047 0602 00 0 75037 SLW DP
00050 -0500 00 0 03432 CAL =H.LOAD. SET PRIMARY NAME
00051 0602 00 0 75036 SLW LFNA FOR A-CHANNEL FILE
00052 0602 00 0 75020 SLW BFNA AND B-CHANNEL COPY.
00053 -0500 00 0 03433 CAL =H.TAPE. ALSO
00054 0602 00 0 75035 SLW LFNB SECONDARY
00055 -0500 00 0 03430 CAL =HB.COPY FILE
00056 0602 00 0 75017 SLW BFNB NAMES.
00057 0500 00 0 03414 CLA =11 USE LOGICAL UNIT NUMBER
00060 0601 00 0 75016 STO AUN 11 ON CHANNEL A,
00061 0400 00 0 03407 ADD =1
1 PHASE 1 OF THE DAEMON DISK/DRUM RELOAD D.A. ANDERSON 01/28/68 01/28/69 915.7 PAGE 3
00062 0601 00 0 75015 STO BUN 12 ON B.
00063 0774 00 4 00004 AXT 4,4
00064 -0500 00 4 03110 CAL NFTID+4,4 MOVE NFT ID IN
00065 0602 00 4 75014 SLW LABEL+4,4 AS TAPE LABEL.
00066 2 00001 4 00064 TIX *-2,4,1
00067 0600 00 0 02175 STZ CHANGE WE HAVEN'T DONE ANYTHING YET.
00070 0760 00 0 00016 EAXM KEEP THE FILE SYSTEM HAPPY
00071 CALL SETIO(=99999) START F.S. WITH AUTHOR DAEMON
00073 -0500 00 0 01417 CAL PANIC IN CASE OF FIRE ...
00074 0602 00 0 00034 SLW 28
00075 0074 00 4 00025 TSX FERRTN,4 SET UP FOR UNEXPECTED ERRORS
00076 0 00000 0 01707 UNXERR
00077 CALL UPDMFD(DU,DP,*) MAKE SURE DAEMON IN M.F.D.
00103 CALL ATTACH(DU,DP,FATAL) THIS HAD BETTER WORK.
00107 CALL ALLOT(=3,=32767,=-0,FATAL) SAME HERE
00114 -0625 60 0 00001 STL* FS.TST NOW BECOME GOD
00115 0074 00 4 00036 TSX DPRINT,4
00116 0 00000 0 00003 3
00117 3 00004 0 03127 PTH BEGIN,,4
$1 BEGIN PHASE1 RELOAD.
00120 0760 00 0 00161 SWT 1 SHOULD WE CLEAN UP FIRST.Q.
00121 0020 00 0 00123 TRA *+2 NO.
00122 0020 00 0 01666 TRA 2CLNUP YES.
00123 0600 00 0 02176 NEWTAP STZ NOLSMF RESET FLAG FOR NO FINAL M.F.D.
GET RID OF ANY OLD TAPE FILES,
00124 CALL CHFILE(LFNA,LFNB,=1,=-0,=-0,*)
00133 CALL DELFIL(LFNA,LFNB,*)
00137 CALL CHFILE(BFNA,BFNB,=1,=-0,=-0,*)
00146 CALL DELFIL(BFNA,BFNB,*)
AND CREATE SOME NEW ONES.
00152 CALL TAPFIL(LFNA,LFNB,AUN,=1,FATAL)
00160 CALL TAPFIL(BFNA,BFNB,BUN,=1,FATAL)
GET TAPES UP
00166 CALL MOUNT(=1,AUN(LSTNFT,,LLSNFT)FATAL)
00173 0774 00 2 00012 AXT 10,2 TRY TO VERIFY FOR A WHILE.
00174 VER.A CALL VERIFY(AUN(LABEL,,4)NVER.A,CODE)
00201 0074 00 4 00033 TSX GETLSG,4 CHECK OPTIONS
00202 0534 00 4 75041 LXA NOCHAN,4
00203 -3 00001 4 00211 TXL NO.B,4,1 SKIP IF ONE-CHANNEL LOAD
00204 CALL MOUNT(=2,BUN(LSTCPY,,LLSCPY)FATAL)
00211 NO.B CALL INITTF(ABANDN) CHECK TAPES, SPACE TO 1ST FILE
00213 CALL ATTACH(MFD,FILE,FATAL) GO TO M.F.D. AND MAKE SURE
00217 CALL ALLOT(=1,=32767,=-0,FATAL) WE HAVE SOME ELBOW ROOM.
00224 CALL OPNDF1(BADMF1,ABANDN) GET PREAMBLE FOR 1ST FILE
00227 -0500 00 0 75021 CAL PREAM
00230 0322 00 0 02217 ERA MFD THIS SHOULD BE M.F.D. (FILE)
1 PHASE 1 OF THE DAEMON DISK/DRUM RELOAD D.A. ANDERSON 01/28/68 01/28/69 915.7 PAGE 4
00231 -0100 00 0 00312 TNZ NOMFD1 ISN'T. COMPLAIN.
00232 -0500 00 0 75022 CAL PREAM+1
00233 0322 00 0 02220 ERA FILE
00234 -0100 00 0 00312 TNZ NOMFD1 GRUMBLE, GRUMBLE, ...
00235 0074 00 4 02135 TSX RDF1,4
00236 2 02173 0 02200 PTW ENT,,C3
00237 ARGS (BADMF1,NOMFD1,CODE,ABANDN) SKIP QUOTAS
00243 0074 00 4 02135 MFD1LP TSX RDF1,4
00244 2 02174 0 02200 PTW ENT,,C7
00245 ARGS (BADMF1,ENDMF1,CODE,ABANDN) GET MFD ENTRY
00251 -0500 00 0 02201 CAL ENT+1
00252 -0340 00 0 02220 LAS FILE IF PROG IS (FILE)
00253 0020 00 0 00255 TRA *+2
00254 0020 00 0 00243 TRA MFD1LP IGNORE THIS ENTRY
00255 -0501 00 0 02200 ORA ENT ALSO IF PROB AND
00256 0100 00 0 00243 TZE MFD1LP PROG ARE BOTH ZERO.
00257 CALL FSTATE(ENT,ENT+1,(TEMP,,8)NOTIN1,CODE)
00265 0441 00 0 02210 LDI TEMP+1 ALREADY IN.
00266 0054 00 000200 RFT 200 IS HE 200 MODE.Q.
00267 0020 00 0 00477 TRA INMFD1 YES. OK.
00270 0074 00 1 00370 TSX LOAD.Q,1 NO. WHAT DO WE DO WITH HIM.Q.
00271 ARGS (ENT,ENT+1,ENT+2,ENT+3)
00275 0 00000 0 00243 MFD1LP IGNORE HIM, OR
00276 0020 00 0 00243 TRA MFD1LP LOAD HIM.
00277 -0520 00 0 75014 BADMF1 NZT TEOF ERROR OR END OF FILE.Q.
00300 0020 00 0 00305 TRA BD1MF1 ERROR.
00301 0074 00 4 00036 TSX DPRINT,4
00302 0 00000 0 00003 3
00303 3 00012 0 03133 PTH NCMPL1,,10 COMPLAIN,
$0END OF LOAD FILE ENCOUNTERED WHILE READING INITIAL M.F.D.
00304 0020 00 0 01453 TRA ABAND1 THEN FLUSH THESE TAPES.
00305 0074 00 4 00036 BD1MF1 TSX DPRINT,4
00306 0 00000 0 00003 3
00307 3 00005 0 03145 PTH UNRD1,,5 M.F.D. UNREADABLE
$0INITIAL M.F.D. IS UNREADABLE.
00310 -0774 00 3 00552 AXC UFD1LP,3 SET 'CONTINUE' RETURN,
00311 0020 00 0 00316 TRA ASKOP2 AND BUG AN OPERATOR.
00312 -0774 00 3 00555 NOMFD1 AXC UF1LP1,3 HAVE PREAMBLE, ISN'T M.F.D.
00313 0074 00 4 00036 TSX DPRINT,4
00314 0 00000 0 00003 3
00315 3 00006 0 03152 PTH NOMF1M,,6
$0NO INITIAL M.F.D. IN THIS FILE.
00316 -0520 00 0 02175 ASKOP2 NZT CHANGE HAS ANYTHING BEEN CHANGED.Q.
00317 0020 00 0 00361 TRA ASKOP3 NO. DON'T OFFER TO CLEAN UP.
00320 0074 00 4 00034 TSX ASKOPR,4 WHAT DO WE DO NOW.Q.
00321 3 00004 0 03160 PTH IGNERR,,4 1) IGNORE THE PROBLEM
00322 3 00001 0 00331 PTH CONT1,,CTINUE
00323 3 00002 0 03164 PTH CLEAN,,2 2) CLEAN UP THE MESS
00324 3 00002 0 00360 PTH 1CLNUP,,PAUSE
00325 3 00005 0 03166 PTH NWLOAD,,5 3) START NEW LOAD FILE.
1 PHASE 1 OF THE DAEMON DISK/DRUM RELOAD D.A. ANDERSON 01/28/68 01/28/69 915.7 PAGE 5
00326 3 00003 0 00335 PTH NWLOD1,,CHLDFL
00327 3 00002 0 03173 PTH GIVUP,,2 4) QUIT
00330 3 00004 0 01700 PTH QUIT,,STOPLD
00331 0074 00 4 00036 CONT1 TSX DPRINT,4
00332 0 00000 0 00003 3
00333 3 00002 0 03175 PTH GOMES,,2
$ PROCEEDING.
00334 0020 00 3 00000 TRA 0,3
00335 0074 00 4 00032 NWLOD1 TSX TERMTF,4 FINISH THE OLD LOAD FILE
00336 0074 00 2 01713 TSX RESET,2 CLOSE ALL FILES
00337 0074 00 4 00036 NEWLOD TSX DPRINT,4 HERE TO START NEW TAPE
00340 0 00000 0 00003 3
00341 3 00004 0 03177 PTH NEWLDF,,4
$0STARTING NEW LOAD FILE.
00342 CALL UPDMFD(DU,DP,*)
00346 CALL ATTACH(DU,DP,FATAL) RE-ATTACH TO DAEMON
00352 CALL ALLOT(=3,=32767,=0,FATAL)
00357 0020 00 0 00123 TRA NEWTAP AND RESTART PHASE1.
00360 0074 00 1 01467 1CLNUP TSX CLNUP,1
00361 0074 00 4 00034 ASKOP3 TSX ASKOPR,4 HERE WE GO AGAIN.
00362 3 00004 0 03160 PTH IGNERR,,4 1) IGNORE THE PROBLEM
00363 3 00001 0 00331 PTH CONT1,,CTINUE
00364 3 00005 0 03166 PTH NWLOAD,,5 2) START NEW LOAD FILE
00365 3 00003 0 00335 PTH NWLOD1,,CHLDFL
00366 3 00002 0 03173 PTH GIVUP,,2 3) QUIT
00367 3 00004 0 01700 PTH QUIT,,STOPLD
00370 0054 00 000040 LOAD.Q RFT 40 IS THE IGNORE BIT ON.Q.
00371 0020 60 1 00005 TRA* 5,1 YES.
00372 -0625 00 0 02175 STL CHANGE THINGS WILL HAVE BEEN TWITCHED.
00373 0500 60 1 00001 CLA* 1,1 GET PROB PROG OF
00374 0560 60 1 00002 LDQ* 2,1 QUESTIONABLE DIRECTORY
00375 -0603 00 0 00473 DST LDQNAM
00376 0500 60 1 00003 CLA* 3,1 ALSO DLM AND DLU
00377 0560 60 1 00004 LDQ* 4,1
00400 -0603 00 0 00475 DST LDQNAM+2
00401 -0500 00 0 00473 CAL LDQNAM IS THIS 'DU DP'.Q.
00402 0322 00 0 75040 ERA DU
00403 -0100 00 0 00407 TNZ *+4 NO.
00404 -0500 00 0 00474 CAL LDQNAM+1 MAYBE
00405 0322 00 0 75037 ERA DP
00406 0100 00 0 00416 TZE NOLOD1 YES. IGNORE HIM.
00407 0760 00 0 00164 SWT 4 ARE WE IGNORING EVERYONE.Q.
00410 0020 00 0 00436 TRA LDQUES NO. BOTHER THE OPERATOR.
00411 0074 00 4 00036 NOLOAD TSX DPRINT,4
00412 0 00000 0 00001 1
00413 ARGS (1BL(LDQNAM,,2)(IN1,,7))
$ ************ ALREADY IN M.F.D., CHANGED TO 144 MODE.
00416 NOLOD1 CALL CHFILE(LDQNAM,LDQNAM+1,=O144,=-0,=-0,IN1ERR)
00425 CALL SETFIL(LDQNAM,LDQNAM+1,TEMP+6,TEMP+7,=-0,=-0,IN1ERR)
00435 0020 60 1 00005 TRA* 5,1
1 PHASE 1 OF THE DAEMON DISK/DRUM RELOAD D.A. ANDERSON 01/28/68 01/28/69 915.7 PAGE 6
00436 0074 00 4 00036 LDQUES TSX DPRINT,4
00437 0 00000 0 00002 2
00440 ARGS (1BL(LDQNAM,,2)(IN1,,3))
$ ************ ALREADY IN M.F.D.
00443 0074 00 4 00034 TSX ASKOPR,4 WHAT DO WE DO NOW.Q.
00444 3 00002 0 03212 PTH LODHM,,2 1) LOAD HIM.
00445 3 00001 0 00457 PTH LODHIM,,CTINUE
00446 3 00004 0 03214 PTH DONTLD,,4 2) IGNORE HIM.
00447 3 00003 0 00411 PTH NOLOAD,,CHLDFL
00450 0074 00 4 00035 IN1ERR TSX PRNTER,4 ERROR. COMPLAIN.
00451 0074 00 2 01720 TSX RSUFD,2 THEN FLUSH BAD DIRECTORY
00452 ARGS (LDQNAM,LDQNAM+1,LDQNAM+2,LDQNAM+3)
00456 0020 00 1 00006 TRA 6,1
00457 0074 00 4 00036 LODHIM TSX DPRINT,4
00460 0 00000 0 00001 1
00461 ARGS (1BL(LDQNAM,,2)(IN1,,3)(WILOAD,,4))
$ ************ ALREADY IN M.F.D., WILL BE RE-LOADED.
00465 0074 00 2 01720 LODHM1 TSX RSUFD,2 MAKE HIM 344 MODE, ZERO LENGTH.
00466 ARGS (LDQNAM,LDQNAM+1,LDQNAM+2,LDQNAM+3)
00472 0020 00 1 00006 TRA 6,1
00473 LDQNAM BSS 4
00477 INMFD1 CALL OCRBC(TEMP+1)
00501 -0501 00 0 03437 ORA =O575757000000
00502 0602 00 0 02207 SLW TEMP
00503 0074 00 4 00036 TSX DPRINT,4
00504 0 00000 0 00001 1
00505 ARGS (1BL(ENT,,2)(INMES1,,3)TEMP)
$ ************ FOUND WITH MODE ******
00511 0056 00 000040 RNT 040 IF LOADED PROPERLY,
00512 0020 00 0 00243 TRA MFD1LP GO AWAY.
00513 0074 00 2 01720 TSX RSUFD,2 OTHERWISE, RESET HIM.
00514 ARGS (ENT,ENT+1,ENT+2,ENT+3)
00520 -0625 00 0 02175 STL CHANGE THINGS HAVE BEEN CHANGED.
00521 0020 00 0 00243 TRA MFD1LP
00522 0534 00 4 02177 NOTIN1 LXA CODE,4 ANY ERROR EXCEPT
00523 1 77775 4 00524 TXI *+1,4,-3 'FILE NOT FOUND'
00524 3 00000 4 01674 TXH FATAL,4,0 IS CONSIDERED FATAL.
00525 0074 00 4 00036 TSX DPRINT,4
00526 0 00000 0 00001 1
00527 ARGS (1BL(ENT,,2)(NSRTD,,4)) INFORM THE WORLD
$ ************ INSERTED IN M.F.D.
00532 CALL ATTACH(MFD,FILE,FATAL) TO KEEP THE MFD IN ORDER
00536 CALL SETFIL(ENT,ENT+1,ENT+2,ENT+3,=O344,=1) INSERT HIM
00545 -0625 00 0 02175 STL CHANGE REMEMBER THAT WE'VE TWITCHED THINGS.
00546 0020 00 0 00243 TRA MFD1LP GET SOME MORE
00547 0074 00 4 00036 ENDMF1 TSX DPRINT,4
00550 0 00000 0 00003 3
00551 3 00004 0 03233 PTH BUILT,,4
$0 M.F.D. CONSTRUCTED.
1 PHASE 1 OF THE DAEMON DISK/DRUM RELOAD D.A. ANDERSON 01/28/68 01/28/69 915.7 PAGE 7
00552 UFD1LP CALL OPNDF1(TAPERR,ABANDN) GET PREAMBLE FOR NEXT FILE
00555 -0500 00 0 75026 UF1LP1 CAL PREAM+5 IS THIS A U.F.D. Q.
00556 0322 00 0 03443 ERA =HUSER F
00557 -0100 00 0 01067 TNZ MFD.Q IT IS IF WORDS 6 THRU
00560 -0500 00 0 75027 CAL PREAM+6 8 OF THE PREAMBLE ARE
00561 0322 00 0 03431 ERA =HILE DI 'USER FILE DIRECTRY'
00562 -0100 00 0 01067 TNZ MFD.Q NOT A U.F.D. MAYBE IS FINAL M.F.D.
00563 0074 00 4 00036 TSX DPRINT,4
00564 0 00000 0 00001 1
00565 ARGS (1BL(PREAM,,2)1BL(PREAM+5,,3))
00571 CALL FSTATE(PREAM,PREAM+1(TEMP,,8)NOTIN2,CODE) DOES HE EXIST.
00577 0441 00 0 02210 LDI TEMP+1 GET MODE OF FILE
00600 0054 00 000200 RFT 200 IS 'RELOAD' BIT ON.Q.
00601 0020 00 0 00610 TRA LDHM YES. LOAD HIM.
00602 0074 00 1 00370 TSX LOAD.Q,1 NO. WHAT NOW.Q.
00603 ARGS (PREAM,PREAM+1,PREAM+2,PREAM+8)
00607 0 00000 0 00552 UFD1LP IGNORE HIM.
00610 -0500 00 0 75023 LDHM CAL PREAM+2 IS THE TAPE FILE NEWER.Q.
00611 -0340 00 0 02215 LAS TEMP+6
00612 0020 00 0 00615 TRA *+3 YES. USE IT.
00613 0520 00 0 02207 ZET TEMP USE IT IF SAME DATE AND OLD U.F.D. EMPTY
00614 0020 00 0 00552 TRA UFD1LP NO. TRY AGAIN.
00615 0074 00 4 02135 NTIN.2 TSX RDF1,4
00616 2 02173 0 02200 PTW ENT,,C3
00617 ARGS (TAPER1,UF1BAD,CODE,ABANDN) GET QUOTAS
00623 -0500 00 0 03421 CAL =O77777 SAVE ONLY ALLOTTED
00624 0320 00 0 02200 ANS ENT FOR DRUM
00625 0320 00 0 02201 ANS ENT+1 AND DISK.
00626 CALL CHFILE(PREAM,PREAM+1,=O344,=-0,=-0,UF1BD,CODE)
00636 UF1LP2 CALL OPEN(=HW,PREAM,PREAM+1,=O344,=1,UF1BD1)
00645 CALL TRFILE(PREAM,PREAM+1,=0,UF1BD1) REMOVE OLD U.F.D.
00652 CALL BUFFER(PREAM,PREAM+1(B1,,432)UF1BD1)
00657 CALL WRWAIT(PREAM,PREAM+1,=0(ENT,,3)=-0,=-0,UF1BD1) QUOTAS
00667 0074 00 4 02135 UFD2LP TSX RDF1,4
00670 2 02174 0 02200 PTW ENT,,C7
00671 ARGS (TAPER2,ENDUF1,CODE,ABANDN) READ U.F.D.
00675 -0500 00 0 02200 CAL ENT IF NAME1 AND
00676 -0501 00 0 02201 ORA ENT+1 NAME2 ARE BOTH ZERO,
00677 0100 00 0 00667 TZE UFD2LP IGNORE THIS ENTRY.
00700 -0500 00 0 02204 CAL ENT+4 GET DEVICE
00701 0771 00 0 00017 ARS 15 FOR THIS
00702 -0320 00 0 03413 ANA =7 FILE AND
00703 0734 00 4 00000 PAX ,4 SKIP IF
00704 -3 00000 4 00717 TXL WR.UFD,4,0 NOT DISK
00705 3 00002 4 00717 TXH WR.UFD,4,2 OR DRUM.
00706 -0534 00 4 02205 LXD ENT+5,4 IF FILE IS ZERO-LENGTH,
00707 -3 00000 4 00717 TXL WR.UFD,4,0 DON'T CHANGE ENTRY.
00710 0441 00 0 02204 LDI ENT+4
00711 -0055 00 400000 SIL 400000 ADD '200' MODE BIT
00712 -0057 00 001777 RIL 001777 AND RESET 'ILOCK'
00713 0604 00 0 02204 STI ENT+4
00714 -0500 00 0 03422 CAL =O100000 RESET SWR AND MAKE ZERO-LENGTH
00715 0602 00 0 02205 SLW ENT+5
00716 0600 00 0 02206 STZ ENT+6 CLEAR TRACK POINTERS
1 PHASE 1 OF THE DAEMON DISK/DRUM RELOAD D.A. ANDERSON 01/28/68 01/28/69 915.7 PAGE 8
00717 WR.UFD CALL WRWAIT(PREAM,PREAM+1,=0(ENT,,7)=-0,=-0,UF1BD1)
00727 0020 00 0 00667 TRA UFD2LP AND GO BACK FOR MORE.
00730 0520 00 0 75014 TAPERR ZET TEOF ERROR OR END OF LOAD FILE.Q.
00731 0020 00 0 00751 TRA ENDTP2 END OF LOAD FILE.
00732 0074 00 4 00036 TSX DPRINT,4
00733 0 00000 0 00004 4
00734 ARGS (1BL(PREAM,,2)1BL(PREAM+5,,2)(UNRDBL,,2))
$ ************ ************ UNREADABLE.
00741 0020 00 0 00552 TRA UFD1LP TRY FOR NEXT ONE.
00742 0520 00 0 75014 TAPER1 ZET TEOF ERROR OR END OF LOAD FILE.Q.
00743 0020 00 0 00751 TRA ENDTP2 END OF LOAD FILE.
00744 0074 00 4 00036 TSX DPRINT,4
00745 0 00000 0 00004 4
00746 ARGS ((UNRUFD,,4)(PREAM,,2))
$ UNREADABLE U.F.D. FOR ************
00750 0020 00 0 00552 TRA UFD1LP TRY THE NEXT.
00751 0074 00 4 00036 ENDTP2 TSX DPRINT,4
00752 0 00000 0 00003 3
00753 ARGS ((NDTP2M,,6)(PREAM,,2)1BL(PREAM+5,,2))
$0END OF LOAD FILE ENCOUNTERED IN ************ ************
00757 0074 00 4 00036 NO2MFD TSX DPRINT,4
00760 0 00000 0 00003 3
00761 3 00006 0 03253 PTH NOMFD2,,6
$ NO FINAL M.F.D. IN THIS LOAD FILE.
00762 -0625 00 0 02176 STL NOLSMF SET FLAG TO SAVE '200' MODE UFD'S
00763 -0774 00 3 01247 AXC ENDMF2,3 SET UP 'CONTINUE' RETURN,
00764 0020 00 0 00316 TRA ASKOP2 THEN WAKE UP THE OPERATOR.
00765 0520 00 0 75014 TAPER2 ZET TEOF ERROR OR END OF LOAD FILE.Q.
00766 0020 00 0 00774 TRA TAPND2 END OF LOAD FILE.
00767 0074 00 4 00036 TSX DPRINT,4
00770 0 00000 0 00004 4
00771 ARGS ((UNRUFD,,4)(PREAM,,2))
$ UNREADABLE U.F.D. FOR ************
00773 0020 00 0 01002 TRA TAPR2A
00774 0074 00 4 00036 TAPND2 TSX DPRINT,4
00775 0 00000 0 00003 3
00776 ARGS ((NDTP2M,,6)(PREAM,,2)1BL(PREAM+5,,2))
$0END OF LOAD FILE ENCOUNTERED IN ************ ************
01002 TAPR2A CALL CLOSE(PREAM,PREAM+1) CLOSE AND RESET PARTIAL
01005 0074 00 2 01720 TSX RSUFD,2 U.F.D., ZERO DATES TO LOAD NEXT TIME.
01006 ARGS (PREAM,PREAM+1,=0,=0)
01012 -0520 00 0 75014 NZT TEOF
01013 0020 00 0 00552 TRA UFD1LP IF ERROR, GO FOR NEXT.
01014 0020 00 0 00757 TRA NO2MFD COMPLAIN ABOUT MISSING M.F.D.
01015 0074 00 4 00036 UF1BAD TSX DPRINT,4
01016 0 00000 0 00003 3
01017 ARGS (ZNULLS(PREAM,,2)(SHUFD,,6))
$0************ IS LESS THAN THREE WORDS LONG.
01022 0020 00 0 00552 TRA UFD1LP
1 PHASE 1 OF THE DAEMON DISK/DRUM RELOAD D.A. ANDERSON 01/28/68 01/28/69 915.7 PAGE 9
01023 -0500 00 0 02177 UF1BD CAL CODE IF PROBLEM IS
01024 0402 00 0 03412 SUB =4 'FILE NOT FOUND'
01025 0100 00 0 00636 TZE UF1LP2 IGNORE ERROR.
01026 0074 00 4 00035 UF1BD1 TSX PRNTER,4 COMMENT ABOUT ERROR
01027 CALL CLOSE(PREAM,PREAM+1) CLOSE THE FILE,
01032 0074 00 2 01720 TSX RSUFD,2 AND RESET IT.
01033 ARGS (PREAM,PREAM+1,=0,=0)
01037 0020 00 0 00552 TRA UFD1LP GO FOR NEXT.
01040 0534 00 4 02177 NOTIN2 LXA CODE,4
01041 1 77775 4 01042 TXI *+1,4,-3
01042 3 00000 4 01674 TXH FATAL,4,0
01043 0074 00 4 00036 TSX DPRINT,4
01044 0 00000 0 00001 1
01045 ARGS (1BL(PREAM,,2)(NSRTD,,4))
$ ************ INSERTED IN M.F.D.
01050 0020 00 0 00615 TRA NTIN.2
01051 ENDUF1 CALL CLOSE(PREAM,PREAM+1,UF1BD1) END OF U.F.D.
01055 CALL CHFILE(PREAM,PREAM+1,=O304) INDICATE SUCCESSFUL LOAD.
01061 CALL SETFIL(PREAM,PREAM+1,PREAM+2,PREAM+8) SET FILE STATUS
01066 0020 00 0 00552 TRA UFD1LP
01067 0074 00 4 00036 MFD.Q TSX DPRINT,4
01070 0 00000 0 00001 1
01071 ARGS (1BL(PREAM,,2)1BL(PREAM+5,,2))
01075 -0500 00 0 75021 CAL PREAM IS THIS THE FINAL M.F.D. Q.
01076 0322 00 0 02217 ERA MFD
01077 -0100 00 0 00552 TNZ UFD1LP NOPE.
01100 -0500 00 0 75022 CAL PREAM+1 THERE IS STILL HOPE ...
01101 0322 00 0 02220 ERA FILE
01102 -0100 00 0 00552 TNZ UFD1LP OH, WELL ...
01103 0074 00 4 00036 TSX DPRINT,4
01104 0 00000 0 00003 3
01105 3 00004 0 03267 PTH MFD2,,4
$0PROCESSING FINAL M.F.D.
01106 0074 00 4 02135 TSX RDF1,4
01107 2 02173 0 02200 PTW ENT,,C3
01110 ARGS (MF2BAD,NOMF2,CODE,ABANDN) SKIP QUOTAS
01114 -0625 00 0 01246 STL BADUFR SET RETURN FOR BAD U.F.D.
01115 0074 00 4 02135 MFD2LP TSX RDF1,4
01116 2 02174 0 02200 PTW ENT,,C7
01117 ARGS (MF2BAD,ENDMF2,CODE,ABANDN) GET MFD ENTRY
01123 -0500 00 0 02200 CAL ENT
01124 -0501 00 0 02201 ORA ENT+1
01125 0100 00 0 01115 TZE MFD2LP IGNORE ZERO ENTRIES
01126 CALL FSTATE(ENT,ENT+1(TEMP,,2)NOTIN3,CODE) IS HE HERE.Q.
01134 -0520 00 0 02207 NZT TEMP IF HE IS ZERO LENGTH,
01135 0020 00 0 01226 TRA BADUFD COMPLAIN AND DELETE HIM.
01136 0441 00 0 02210 LDI TEMP+1 GET MODE.
01137 0056 00 000200 RNT 200 DID WE INSERT HIM.Q.
01140 0020 00 0 01115 TRA MFD2LP NO. IGNORE HIM.
1 PHASE 1 OF THE DAEMON DISK/DRUM RELOAD D.A. ANDERSON 01/28/68 01/28/69 915.7 PAGE 10
01141 0054 00 000040 RFT 040 HAS HE BEEN LOADED.Q.
01142 0020 00 0 01226 TRA BADUFD NO. COMPLAIN.
01143 CALL CHFILE(ENT,ENT+1,=O144,=-0,=-0,BADUF1) YES. RESET MODE
01152 CALL SETFIL(ENT,ENT+1,ENT+2,ENT+3,=-0,=-0,BADUF1) AND DATE
01162 0020 00 0 01115 TRA MFD2LP NOW FOR NEXT ENTRY
01163 0074 00 4 00036 NOMF2 TSX DPRINT,4
01164 0 00000 0 00003 3
01165 ARGS (ZNULLS(2MFD,,2)(SHUFD,,6))
$0FINAL M.F.D. IS LESS THAN THREE WORDS LONG.
01170 -0625 00 0 02176 STL NOLSMF SET FLAG TO KEEP '200' MODE UFD'S
01171 -0774 00 3 01247 AXC ENDMF2,3 SET 'CONTINUE' RETURN,
01172 0020 00 0 00316 TRA ASKOP2 AND BOTHER THE OPERATOR.
01173 0520 00 0 75014 MF2BAD ZET TEOF END OF LOAD FILE OR ERROR.Q.
01174 0020 00 0 01203 TRA MF2BD1 END OF LOAD FILE.
01175 0074 00 4 00036 TSX DPRINT,4
01176 0 00000 0 00003 3
01177 3 00005 0 03273 PTH UNRMF2,,5
$ FINAL M.F.D. IS UNREADABLE.
01200 -0625 00 0 02176 STL NOLSMF SET FLAG IN CASE OF 'CONTINUE'
01201 -0774 00 3 01247 AXC ENDMF2,3
01202 0020 00 0 00316 TRA ASKOP2
01203 0074 00 4 00036 MF2BD1 TSX DPRINT,4
01204 0 00000 0 00003 3
01205 ARGS ((NDTP2M,,6)(2MFD,,2))
$0END OF LOAD FILE ENCOUNTERED IN FINAL M.F.D.
01207 -0625 00 0 02176 STL NOLSMF
01210 -0774 00 3 01247 AXC ENDMF2,3
01211 0020 00 0 00316 TRA ASKOP2
01212 0534 00 4 02177 NOTIN3 LXA CODE,4 ANY ERROR EXCEPT
01213 1 77775 4 01214 TXI *+1,4,-3 'FILE NOT FOUND'
01214 3 00000 4 01674 TXH FATAL,4,0 IS FATAL.
01215 0074 00 4 00036 TSX DPRINT,4
01216 0 00000 0 00003 3
01217 ARGS ((NOUFD,,4)(ENT,,2))
$ NO U.F.D. FOUND FOR ************
01221 0020 00 0 01115 TRA MFD2LP
01222 0074 00 4 00035 BADUF1 TSX PRNTER,4
01223 0020 00 0 01232 TRA BADUF2
01224 -0056 00 100000 CKLOD3 LNT 100000 IS IT PROPERLY LOADED
01225 0020 00 0 01341 TRA STMOD3 YES, FIX IT UP.
01226 0074 00 4 00036 BADUFD TSX DPRINT,4
01227 0 00000 0 00003 3
01230 ARGS ((NOPROP,,5)(ENT,,2))
$ PROPER U.F.D. NOT FOUND FOR ************
01232 0074 00 4 00036 BADUF2 TSX DPRINT,4
01233 0 00000 0 00003 3
01234 ARGS (1BL(ENT,,2)(DELMF,,4))
$ ************ DELETED FROM M.F.D.
01237 CALL CHFILE(ENT,ENT+1,=1)
1 PHASE 1 OF THE DAEMON DISK/DRUM RELOAD D.A. ANDERSON 01/28/68 01/28/69 915.7 PAGE 11
01243 CALL DELFIL(ENT,ENT+1) REMOVE BAD U.F.D.
01246 0020 00 0 00000 BADUFR TRA **
01247 0074 00 4 00036 ENDMF2 TSX DPRINT,4
01250 0 00000 0 00003 3
01251 3 00003 0 03315 PTH LOADED,,3
$0ALL USERS LOADED.
01252 0074 00 4 00032 TSX TERMTF,4 CLOSE AND UNMOUNT TAPE FILES
01253 0074 00 4 00021 TSX UPDATE,4 ENSURE THAT DISK/DRUM HAS UP-TO-DATE M.F.D.
01254 CALL OPEN(=HR,MFD,FILE,=-0,=-0,FATAL) SCAN MFD FOR BAD
01263 CALL BUFFER(MFD,FILE(B1,,432)FATAL)
01270 CALL RDWAIT(MFD,FILE,=0(ENT,,3)MFDBAD,CODE,FATAL)
01300 -0625 00 0 01246 STL BADUFR SET RETURN FOR BAD U.F.D.
01301 MFD3LP CALL RDWAIT(MFD,FILE,=0(ENT,,7)ENDMF3,CODE,FATAL)
01311 -0500 00 0 02201 CAL ENT+1
01312 -0340 00 0 02220 LAS FILE IF PROG IS (FILE),
01313 0020 00 0 01315 TRA *+2
01314 0020 00 0 01365 TRA MFD3PR IGNORE THIS ENTRY.
01315 -0501 00 0 02200 ORA ENT
01316 0100 00 0 01365 TZE MFD3PR ALSO IF PROB AND PROG ARE BOTH ZERO.
01317 -0500 00 0 02205 CAL ENT+5 GET LENGTH
01320 -0320 00 0 03426 ANA =O77777000000 IS IT ZERO
01321 0100 00 0 01226 TZE BADUFD YES, COMPLAIN.
01322 0441 00 0 02204 LDI ENT+4 GET MODE
01323 -0056 00 400000 LNT 400000 DID WE LOAD HIM.Q.
01324 0020 00 0 01376 TRA RSET40 NO. RESET 40 BIT, IF ON.
01325 0520 00 0 02176 ZET NOLSMF IF NO FINAL TAPE M.F.D.,
01326 0020 00 0 01224 TRA CKLOD3 DON'T COMPLAIN.
01327 0074 00 4 00036 TSX DPRINT,4
01330 0 00000 0 00005 5
01331 ARGS (1BL(ENT,,2)(NTINMF,,5))
$ ************ NOT IN FINAL TAPE M.F.D.
01334 0441 00 0 02204 LDI ENT+4
01335 -0054 00 100000 LFT 100000 IF IMPROPERLY LOADED,
01336 0020 00 0 01226 TRA BADUFD COMPLAIN ABOUT IT.
01337 0760 00 0 00163 SWT 3 OR IF SW3 NOT DOWN,
01340 0020 00 0 01232 TRA BADUF2 DELETE IT.
01341 -0500 00 0 02203 STMOD3 CAL ENT+3 GET DLU FROM MFD ENTRY
01342 -0320 00 0 03445 ANA =O777777000000 WITHOUT AUTHOR, PLEASE.
01343 -0100 00 0 01345 TNZ *+2 IF IT'S ZERO,
01344 -0500 00 0 02223 CAL DLU.DM USE DUMMY DATE-LAST-USED.
01345 0602 00 0 02203 SLW ENT+3 IN ANY CASE, RESET AUTHOR.
01346 CALL CHFILE(ENT,ENT+1,=O104,=-0,=-0,BADUF1) KEEP HIM.
01355 CALL SETFIL(ENT,ENT+1,ENT+2,ENT+3,=-0,=-0,BADUF1)
01365 0074 00 4 00036 MFD3PR TSX DPRINT,4
01366 0 00000 0 00001 1
01367 ARGS (1BL(ENT,,2))
01371 0020 00 0 01301 TRA MFD3LP
01372 0074 00 4 00036 MFDBAD TSX DPRINT,4
01373 0 00000 0 00003 3
01374 3 00007 0 03325 PTH SH3MFD,,7
$0DISK M.F.D. IS LESS THAN THREE WORDS LONG.
1 PHASE 1 OF THE DAEMON DISK/DRUM RELOAD D.A. ANDERSON 01/28/68 01/28/69 915.7 PAGE 12
01375 0020 00 0 01675 TRA FATAL1
01376 -0054 00 100000 RSET40 LFT 100000 IS 40 BIT ON.Q.
01377 0020 00 0 01341 TRA STMOD3 YES. JUST RESET IT.
01400 0074 00 4 00036 TSX DPRINT,4 NO. COMMENT.
01401 0 00000 0 00001 1
01402 3 00002 0 03334 PTH OLDENT,,2
01403 0020 00 0 01341 TRA STMOD3
01404 ENDMF3 CALL CLOSE(MFD,FILE,FATAL) ALL DONE
01410 0074 00 4 00036 TSX DPRINT,4
01411 0 00000 0 00003 3
01412 3 00003 0 03336 PTH ALLDON,,3 TELL THE WORLD
$0PHASE1 COMPLETE.
01413 0074 00 2 01713 TSX RESET,2 CLOSE ALL FILES
01414 0074 00 4 00037 TSX FOUT,4 FINISH WRITING A3.
01415 0074 00 4 00002 TSX EXIT,4 GO FINISH UP IN F.S.
01416 0000 00 0 01416 HTR *
01417 0021 00 0 01420 PANIC TTR *+1 HERE FOR PANIC CLOSE-OUT
01420 0074 00 4 00036 TSX DPRINT,4
01421 0 00000 0 00003 3
01422 3 00003 0 03341 PTH PANICM,,3 ANNOUNCE PRESENCE
$0PANIC CLOSE-OUT.
01423 0074 00 2 01713 TSX RESET,2 CLOSE ALL FILES
01424 CALL UMOUNT(=HALL(*,,0))
01427 0074 00 4 00037 TSX FOUT,4
01430 0074 00 4 00002 TSX EXIT,4
01431 0000 00 0 01431 HTR *
01432 0074 00 4 00035 NVER.A TSX PRNTER,4 'A' TAPE DOES NOT VERIFY.
01433 0500 00 0 02177 CLA CODE
01434 0402 00 0 03413 SUB =7 IS IT AN 'INCORRECT LABEL' ERROR.Q.
01435 -0100 00 0 01443 TNZ A.BAD
01436 2 00002 2 00174 TIX VER.A,2,2 YES. RETRY 5 TIMES.
01437 CALL UMOUNT(AUN(NOTNFT,,5)) HOPELESS. TAKE IT DOWN,
01442 0020 00 0 01456 TRA ASKOP AND ASK WHAT TO DO NEXT.
01443 2 00001 2 00174 A.BAD TIX VER.A,2,1 RETRY 10 TIMES.
01444 CALL UMOUNT(AUN(BADTAP,,5))
01447 0020 00 0 01456 TRA ASKOP
01450 0074 00 4 00036 ABANDN TSX DPRINT,4
01451 0 00000 0 00003 3
01452 3 00004 0 03356 PTH ABAND,,4 HERE TO ABANDON TAPE.
$0ABANDONING CURRENT NFT.
01453 0074 00 4 00032 ABAND1 TSX TERMTF,4 CLOSE OUT TAPE FILES,
01454 0074 00 2 01713 TSX RESET,2 CLOSE ALL FILES
01455 0600 00 0 75042 STZ ABANTP RESET ABANDON SWITCH
01456 -0520 00 0 02175 ASKOP NZT CHANGE HAVE WE (EVER) CHANGED ANYTHING.Q.
01457 0020 00 0 01667 TRA ASKOP1 NO. DON'T OFFER TO CLEAN UP.
01460 0074 00 4 00034 TSX ASKOPR,4 WHAT DO WE DO NOW.Q.
01461 3 00005 0 03166 PTH NWLOAD,,5 1) START NEW TAPE FILE.
01462 3 00003 0 00337 PTH NEWLOD,,CHLDFL
01463 3 00002 0 03164 PTH CLEAN,,2 2) CLEAN UP, THEN REPEAT OPTIONS.
1 PHASE 1 OF THE DAEMON DISK/DRUM RELOAD D.A. ANDERSON 01/28/68 01/28/69 915.7 PAGE 13
01464 3 00002 0 01666 PTH 2CLNUP,,PAUSE
01465 3 00002 0 03173 PTH GIVUP,,2 3) QUIT (WITH NO CLEAN-UP)
01466 3 00004 0 01700 PTH QUIT,,STOPLD
01467 0074 00 4 00036 CLNUP TSX DPRINT,4 HERE TO CLEAN UP MESS.
01470 0 00000 0 00003 3
01471 3 00003 0 03362 PTH CLENP,,3
$0BEGIN CLEAN-UP.
01472 CALL ATTACH(MFD,FILE,FATAL)
01476 0074 00 4 00021 TSX UPDATE,4 UPDATE THE DISK/DRUM
01477 CALL OPEN(=HR,MFD,FILE,=-0,=-0,FATAL) GET MFD
01506 CALL BUFFER(MFD,FILE(B1,,432)FATAL)
01513 CALL RDWAIT(MFD,FILE,=0(ENT,,3)MFEOFC,CODE,FATAL)
01523 CLNUP1 CALL RDWAIT(MFD,FILE,=0(ENT,,7)CMFEOF,CODE,FATAL)
01533 -0500 00 0 02204 CAL ENT+4 GET MODE
01534 0771 00 0 00034 ARS 28 BY ITSELF
01535 0602 00 0 02207 SLW TEMP
01536 CALL OCRBC(TEMP) INTO OCTAL
01540 -0501 00 0 03442 ORA =H 000 WITH LEADING BLANKS
01541 0602 00 0 02207 SLW TEMP FOR PRINTING.
01542 -0500 00 0 02201 CAL ENT+1 IF PROG
01543 -0340 00 0 02220 LAS FILE IS '(FILE)'
01544 0020 00 0 01546 TRA *+2
01545 0020 00 0 01625 TRA CLNUP4 SKIP THIS ENTRY
01546 -0501 00 0 02200 ORA ENT ALSO SKIP IF PROB
01547 0100 00 0 01625 TZE CLNUP4 AND PROG ARE BOTH ZERO.
01550 0441 00 0 02204 LDI ENT+4 GET MODE
01551 -0056 00 400000 LNT 400000 IS THE 200 BIT ON.Q.
01552 0020 00 0 01556 TRA CLNUP2 NO. JUST CHANGE HIM TO 104 MODE.
01553 -0056 00 100000 LNT 100000 IF THE 40 BIT IS ON
01554 0760 00 0 00163 SWT 3 OR SW3 IS UP,
01555 0020 00 0 01603 TRA CLNUP3 DELETE THIS ENTRY.
01556 0074 00 4 00036 CLNUP2 TSX DPRINT,4 MAKE HIM 104 MODE.
01557 0 00000 0 00001 1
01560 ARGS (1BL(ENT,,2)TEMP)
01563 CALL CHFILE(ENT,ENT+1,=O104,=-0,=-0,CLBAD)
01572 CALL SETFIL(ENT,ENT+1,ENT+2,ENT+3,=-0,=-0,CLBAD) RESET DATES
01602 0020 00 0 01523 TRA CLNUP1 GO BACK FOR THE NEXT ONE.
01603 0074 00 4 00036 CLNUP3 TSX DPRINT,4
01604 0 00000 0 00001 1
01605 ARGS (1BL(ENT,,2)TEMP(CDELMS,,2))
01611 CALL CHFILE(ENT,ENT+1,=1,=-0,=-0,CLBAD)
01620 CALL DELFIL(ENT,ENT+1,CLBAD) DELETE HIM.
01624 0020 00 0 01523 TRA CLNUP1
01625 0074 00 4 00036 CLNUP4 TSX DPRINT,4
01626 0 00000 0 00001 1
01627 ARGS (1BL(ENT,,2)TEMP)
01632 0020 00 0 01523 TRA CLNUP1
01633 0074 00 4 00035 CLBAD TSX PRNTER,4 ERROR, COMPLAIN.
01634 0074 00 4 00036 TSX DPRINT,4
01635 0 00000 0 00001 1
01636 ARGS (1BL(ENT,,2)(DELMF,,4))
$ ************ DELETED FROM M.F.D.
01641 CALL CHFILE(ENT,ENT+1,=1)
1 PHASE 1 OF THE DAEMON DISK/DRUM RELOAD D.A. ANDERSON 01/28/68 01/28/69 915.7 PAGE 14
01645 CALL DELFIL(ENT,ENT+1)
01650 0020 00 0 01523 TRA CLNUP1
01651 0074 00 4 00036 MFEOFC TSX DPRINT,4
01652 0 00000 0 00003 3
01653 3 00006 0 03367 PTH SHRTM1,,6
$0M.F.D. LESS THAN 3 WORDS LONG.
01654 0020 00 0 01675 TRA FATAL1
01655 CMFEOF CALL CLOSE(MFD,FILE,FATAL) MESS ALL GONE.
01661 0600 00 0 02175 STZ CHANGE FORGET THAT WE EVER CHANGED ANYTHING
01662 0074 00 4 00036 TSX DPRINT,4
01663 0 00000 0 00003 3
01664 3 00004 0 03375 PTH DONCLN,,4
$0CLEAN-UP FINISHED.
01665 0020 00 1 00001 TRA 1,1
01666 0074 00 1 01467 2CLNUP TSX CLNUP,1
01667 0074 00 4 00034 ASKOP1 TSX ASKOPR,4 WHAT NOW.Q.
01670 3 00005 0 03166 PTH NWLOAD,,5 1) START NEW LOAD FILE
01671 3 00003 0 00337 PTH NEWLOD,,CHLDFL
01672 3 00002 0 03173 PTH GIVUP,,2 2) QUIT
01673 3 00004 0 01700 PTH QUIT,,STOPLD
01674 0074 00 4 00035 FATAL TSX PRNTER,4 FATAL FILE SYSTEM ERROR. COMPLAIN.
01675 0074 00 4 00036 FATAL1 TSX DPRINT,4
01676 0 00000 0 00003 3
01677 3 00005 0 03401 PTH FATERR,,5 ... AND AGAIN.
$ FATAL ERROR IN PHASE1 RELOAD.
01700 0074 00 2 01713 QUIT TSX RESET,2 HERE TO QUIT, CLOSE ALL FILES.
01701 CALL UMOUNT(=HALL(*,,0)) UNMOUNT ANY TAPES.
01704 0074 00 4 00037 TSX FOUT,4 FINISH WRITING A3
01705 0074 00 4 00002 TSX EXIT,4 AND CLOSE OUT FILE SYSTEM.
01706 0000 00 0 01706 HTR *
01707 0634 00 4 01711 UNXERR SXA *+2,4 UNEXPECTED FILE SYSTEM ERROR
01710 0074 00 4 00035 TSX PRNTER,4 COMPLAIN ABOUT IT,
01711 0774 00 4 00000 AXT **,4
01712 0020 00 4 00001 TRA 1,4 THEN BLUNDER ON.
01713 RESET CALL CLOSE(=HALL,=-0)
01716 0074 00 4 00022 TSX RESETF,4
01717 0020 00 2 00001 TRA 1,2
01720 0500 60 2 00001 RSUFD CLA* 1,2 GET NAME1
01721 0560 60 2 00002 LDQ* 2,2 AND NAME2
01722 -0603 00 0 02110 DST RSUFD1 OF U.F.D. TO RESET
01723 0500 60 2 00003 CLA* 3,2 ALSO DLM/TLM
01724 0560 60 2 00004 LDQ* 4,2 AND DLU/AUTHOR
01725 -0603 00 0 02112 DST RSUFD3 TO RESET IT TO.
01726 CALL CHFILE(RSUFD1,RSUFD2,=O344,=-0,=-0,RSUFDR)
01735 CALL OPEN(=HRW,RSUFD1,RSUFD2,=-0,=-0,RSUFDR)
01744 CALL ATTACH(RSUFD1,RSUFD2,RSUFDR)
01750 CALL BUFFER(RSUFD1,RSUFD2(B1,,432)RSUFDR)
01755 CALL RDWAIT(RSUFD1,RSUFD2,=1(TEMP,,3)RSUFDY,=-0,RSUFDR)
1 PHASE 1 OF THE DAEMON DISK/DRUM RELOAD D.A. ANDERSON 01/28/68 01/28/69 915.7 PAGE 15
01765 -0500 00 0 02207 CAL TEMP
01766 -0501 00 0 02210 ORA TEMP+1
01767 -0320 00 0 03426 ANA =O77777000000
01770 0100 00 0 02032 TZE RSUFDY
01771 RSUFDX CALL RDWAIT(RSUFD1,RSUFD2,=0(TEMP,,7)RSUFDY,=-0,RSUFDR)
02001 -0500 00 0 02207 CAL TEMP
02002 -0501 00 0 02210 ORA TEMP+1
02003 0100 00 0 01771 TZE RSUFDX
02004 -0500 00 0 02213 CAL TEMP+4
02005 -0320 00 0 03425 ANA =O700000
02006 0100 00 0 01771 TZE RSUFDX
02007 0402 00 0 03423 SUB =O300000
02010 0100 00 0 01771 TZE RSUFDX
02011 -0500 00 0 02214 CAL TEMP+5
02012 -0320 00 0 03426 ANA =O77777000000
02013 0100 00 0 01771 TZE RSUFDX
02014 CALL CHFILE(TEMP,TEMP+1,=1,=-0,=-0,RSUFX1)
02023 CALL DELFIL(TEMP,TEMP+1,RSUFX1)
02027 0020 00 0 01771 TRA RSUFDX
02030 0074 00 4 00035 RSUFX1 TSX PRNTER,4
02031 0020 00 0 01771 TRA RSUFDX
02032 RSUFDY CALL TRFILE(RSUFD1,RSUFD2,=0,RSUFDR)
02037 CALL CLOSE(RSUFD1,RSUFD2,RSUFDR)
02043 CALL ATTACH(MFD,FILE,FATAL)
02047 CALL SETFIL(RSUFD1,RSUFD2,RSUFD3,RSUFD4,=-0,=-0,RSUFDR)
02057 0020 00 2 00005 TRA 5,2
02060 0074 00 4 00035 RSUFDR TSX PRNTER,4 ERROR, COMPLAIN.
02061 CALL CLOSE(RSUFD1,RSUFD2,*)
02065 CALL ATTACH(MFD,FILE,FATAL)
02071 CALL CHFILE(RSUFD1,RSUFD2,=1)
02075 CALL DELFIL(RSUFD1,RSUFD2)
02100 CALL SETFIL(RSUFD1,RSUFD2,RSUFD3,RSUFD4,=O344,=1)
02107 0020 00 2 00005 TRA 5,2
02110 0 00000 0 00000 RSUFD1
02111 0 00000 0 00000 RSUFD2
02112 0 00000 0 00000 RSUFD3
02113 0 00000 0 00000 RSUFD4
02114 0560 60 4 00001 OCRBC LDQ* 1,4 OCTAL TO BCD CONVERSION
02115 -0773 00 0 00022 RQL 18 OF RIGHT-HALF WORD
02116 -0754 00 0 00000 ZAC
02117 -0763 00 0 00003 LGL 3 QUICK-AND-DIRTY VERSION.
02120 0767 00 0 00003 ALS 3
02121 -0763 00 0 00003 LGL 3
02122 0767 00 0 00003 ALS 3
02123 -0763 00 0 00003 LGL 3
02124 0767 00 0 00003 ALS 3
02125 -0763 00 0 00003 LGL 3
02126 0767 00 0 00003 ALS 3
02127 -0763 00 0 00003 LGL 3
02130 0767 00 0 00003 ALS 3
02131 -0763 00 0 00003 LGL 3
02132 0020 00 4 00001 TRA 1,4
1 PHASE 1 OF THE DAEMON DISK/DRUM RELOAD D.A. ANDERSON 01/28/68 01/28/69 915.7 PAGE 16
02133 0600 00 0 02171 OPNDF1 STZ EOFSW1 NO END-OF-LOGICAL-FILE YET.
02134 0020 00 0 00030 TRA OPENDF GO TO EXTERNAL ROUTINE.
02135 -0520 00 0 02171 RDF1 NZT EOFSW1 IS THERE A REMEMBERED EOF.Q.
02136 0020 00 0 02141 TRA RDF1A NO.
02137 0600 60 4 00004 STZ* 4,4 YES. ALWAYS ZERO WORD COUNT
02140 0020 60 4 00003 TRA* 3,4 TAKE EOF RETURN
02141 0634 00 4 02156 RDF1A SXA RDFX4,4 SAVE RETURN
02142 -0500 00 4 00001 CAL 1,4 USE CALLER'S
02143 0602 00 0 02151 SLW RDFTSX+1 ARRAY,
02144 -0500 00 4 00002 CAL 2,4
02145 0602 00 0 02152 SLW RDFTSX+2 ERROR RETURN, AND
02146 -0500 00 4 00005 CAL 5,4
02147 0602 00 0 02155 SLW RDFTSX+5 'ABANDON TAPE' RETURN
02150 0074 00 4 00031 RDFTSX TSX RDF,4
02151 2 00000 0 00000 PTW **,,**
02152 ARGS (**,RDFEOF,EOFCT1,**)
02156 0774 00 4 00000 RDFX4 AXT **,4 IF NORMAL RETURN,
02157 0020 00 4 00006 TRA 6,4 RETURN TO CALLER.
02160 -0625 00 0 02171 RDFEOF STL EOFSW1 END-OF-LOGICAL-FILE RETURN TAKEN.
02161 -0535 00 4 02151 LDC RDFTSX+1,4
02162 0500 00 4 00000 CLA ,4 GET NUMBER OF WORDS TO TRANSMIT
02163 0402 00 0 02172 SUB EOFCT1 SAME AS EOF WORD COUNT.Q.
02164 0100 00 0 02156 TZE RDFX4 YES. SAVE EOF RETURN FOR NEXT CALL.
02165 0534 00 4 02156 LXA RDFX4,4 NO. RESTORE XR4,
02166 0500 00 0 02172 CLA EOFCT1 GET EOF WORD COUNT,
02167 0602 60 4 00004 SLW* 4,4 AND GIVE TO USER
02170 0020 60 4 00003 TRA* 3,4 TAKE EOF RETURN.
02171 0 00000 0 00000 EOFSW1
02172 0 00000 0 00000 EOFCT1
1 PHASE 1 OF THE DAEMON DISK/DRUM RELOAD D.A. ANDERSON 01/28/68 01/28/69 915.7 PAGE 17
02173 +000000000003 C3 DEC 3
02174 +000000000007 C7 DEC 7
02175 0 00000 0 00000 CHANGE
02176 0 00000 0 00000 NOLSMF
02177 0 00000 0 00000 CODE
02200 ENT BSS 7
02207 TEMP BSS 8
02217 443326332433 MFD BCI 1,M.F.D.
02220 742631432534 FILE BCI 1,(FILE)
02221 -205757575757 1BL OCT 605757575757
02222 +005757575757 ZNULLS OCT 005757575757
02223 103634000000 DLU.DM VFD 9/67,4/12,5/28 DUMMY DATE-LAST-USED
02224 B1 BSS 432
03104 602351252163 NFTID BCI 4, CREATED-FILE DUMP TAPE
03110 604446644563 LSTNFT BCI 9, MOUNT LATEST NFT FOR PHASE1 OF THE DAEMON RELOAD.
00011 LLSNFT EQU *-LSTNFT
03121 604446644563 LSTCPY BCI 6, MOUNT B-CHANNEL COPY OF LATEST NFT.
00006 LLSCPY EQU *-LSTCPY
03127 016060602225 BEGIN BCI 4,1 BEGIN PHASE1 RELOAD.
03133 002545246046 NCMPL1 BCI 5,0END OF LOAD FILE ENCOUNTERED
03140 663031432560 BCI 5,WHILE READING INITIAL M.F.D.
03145 003145316331 UNRD1 BCI 5,0INITIAL M.F.D. IS UNREADABLE.
03152 004546603145 NOMF1M BCI 6,0NO INITIAL M.F.D. IN THIS FILE.
03160 606346602346 IGNERR BCI 4, TO CONTINUE RELOAD
03164 606346602343 CLEAN BCI 2, TO CLEAN UP
03166 606346606263 NWLOAD BCI 5, TO START A NEW LOAD FILE
03173 606346605064 GIVUP BCI 2, TO QUIT
03175 604751462325 GOMES BCI 2, PROCEEDING.
03177 006263215163 NEWLDF BCI 4,0STARTING NEW LOAD FILE.
03203 602143512521 IN1 BCI 7, ALREADY IN M.F.D., CHANGED TO 144 MODE.
03212 606346604346 LODHM BCI 2, TO LOAD HIM
03214 606346604325 DONTLD BCI 4, TO LEAVE HIM ALONE
03220 736066314343 WILOAD BCI 4,, WILL BE RE-LOADED.
03224 602646644524 INMES1 BCI 3, FOUND WITH MODE
03227 603145622551 NSRTD BCI 4, INSERTED IN M.F.D.
03233 006044332633 BUILT BCI 4,0 M.F.D. CONSTRUCTED.
03237 606445512521 UNRDBL BCI 2, UNREADABLE.
03241 606445512521 UNRUFD BCI 4, UNREADABLE U.F.D. FOR
03245 002545246046 NDTP2M BCI 6,0END OF LOAD FILE ENCOUNTERED IN
03253 604546602631 NOMFD2 BCI 6, NO FINAL M.F.D. IN THIS LOAD FILE.
03261 603162604325 SHUFD BCI 6, IS LESS THAN THREE WORDS LONG.
03267 004751462325 MFD2 BCI 2,0PROCESSING
03271 263145214360 2MFD BCI 2,FINAL M.F.D.
03273 602631452143 UNRMF2 BCI 5, FINAL M.F.D. IS UNREADABLE.
03300 604546606433 NOUFD BCI 3, NO U.F.D. FOUND F
03303 -065160575757 OCT 465160575757 'OR '
03304 604751464725 NOPROP BCI 5, PROPER U.F.D. NOT FOUND FOR
03311 602425432563 DELMF BCI 4, DELETED FROM M.F.D.
03315 002143436064 LOADED BCI 3,0ALL USERS LOADED.
03320 604546636031 NTINMF BCI 5, NOT IN FINAL TAPE M.F.D.
03325 002431624260 SH3MFD BCI 7,0DISK M.F.D. IS LESS THAN THREE WORDS LONG.
03334 604643246025 OLDENT BCI 2, OLD ENTRY -
1 PHASE 1 OF THE DAEMON DISK/DRUM RELOAD D.A. ANDERSON 01/28/68 01/28/69 915.7 PAGE 18
03336 004730216225 ALLDON BCI 3,0PHASE1 COMPLETE.
03341 004721453123 PANICM BCI 3,0PANIC CLOSE-OUT.
03344 602140233021 NOTNFT BCI 5, A-CHANNEL TAPE IS NOT AN NFT.
03351 602140233021 BADTAP BCI 5, A-CHANNEL TAPE IS UNREADABLE.
03356 002122214524 ABAND BCI 4,0ABANDONING CURRENT NFT.
03362 002225273145 CLENP BCI 3,0BEGIN CLEAN-UP.
03365 602425432563 CDELMS BCI 2, DELETED.
03367 004433263324 SHRTM1 BCI 6,0M.F.D. LESS THAN 3 WORDS LONG.
03375 002343252145 DONCLN BCI 4,0CLEAN-UP FINISHED.
03401 002621632143 FATERR BCI 5,0FATAL ERROR IN PHASE1 RELOAD.
INSERT BCMEQB
*
* - - - - - - - - - - - - - - - - - -
* COMMON AND EQUIVALENCE FOR SECONDARY STORAGE LOAD
* (TIME-SHARING VERSION)
* - - - - - - - - - - - - - - - - - -
*
075045 DEMKEY BOOL 75045 CORE A LOCATION FOR DAEMON KEY SETTING
*
000017 BASE BOOL 17 KEY CODE BASE
000001 CTINUE BOOL 1 KEY CODE TO CONTINUE WITH PROGRAM,NO CHANGE
000002 PAUSE BOOL 2 KEY CODE TO WAIT 60 SECS.
000003 CHLDFL BOOL 3 KEY CODE TO USE DIFFERENT LOAD FILE
000004 STOPLD BOOL 4 KEY CODE TO STOP LOADING, START DUMPING
000005 ABANKY BOOL 5 KEY CODE TO ABANDON LOAD TAPE FILE
000006 SWCHAN BOOL 6 KEY CODE TO GO FROM 1 OR 2 TO 2 OR 1 CHANS.
000007 LSREEL BOOL 7 KEY CODE TO INDICATE LAST REEL OF LOAD FILE
000010 CHREEL BOOL 10 KEY CODE TO CORRECT REEL ORDER ERROR
77777 NEWCOM EQU -1 TOP OF MEMORY
077461 OLDCOM BOOL 77461 OLD TOP OF COMMON
77462 COMRLC EQU OLDCOM-NEWCOM RELOCATION FACTOR
77777 COMMON COMRLC RELOCATE COMMON
01355 UF EQU 32767/2-DEMKEY/2 LENGTH OF USER LIST
77777 UFL COMMON 2*UF USER FILE LIST (1ST PARTS OF FILE NAMES)
75044 COMMON 1 INSERT DUMMY IF NECESSARY
75043 COMMON 1 DEMKEY CELL IN NON-CTSS VERSION
75043 KEYVAL COMMON 1
75042 ABANTP COMMON 1 ABANDON TAPE FILE INDICATOR
75041 NOCHAN COMMON 1 NO. OF CHANNELS BEING READ (1 OR 2)
75040 DU COMMON 1 PROBLEM NO. OF DUMP/LOAD PACKAGE
75037 DP COMMON 1 PROGRAMMER NO. OF DITTO.
75036 LFNA COMMON 1 LOAD TAPE FILE NAME (PART 1)
75035 LFNB COMMON 1 ,, ,, ,, ,, (PART 2)
75021 COMMON 11 DUMPED FILE'S PREAMBLE FROM DUMP TAPE
75021 PREAM COMMON 1 DUMPED FILE'S DUMP TAPE PREAMBLE 1ST WORD
75020 BFNA COMMON 1 CHANNEL B LOAD TAPE FILE NAME (PART 1)
75017 BFNB COMMON 1 CHANNEL B LOAD TAPE FILE NAME (PART 2)
75016 AUN COMMON 1 CHANNEL A UNIT NO.
75015 BUN COMMON 1 CHANNEL B UNIT NO.
75014 TEOF COMMON 1 TAPE EOF INDICATOR/WORD COUNT
75010 COMMON 3 LABEL OF TAPE FILE CURRENTLY BEING LOADED
75010 LABEL COMMON 1 LABEL OF TAPE FILE DITTO. 1ST WORD
75007 X COMMON 1 TAPE FILE POINTER
END
1 PHASE 1 OF THE DAEMON DISK/DRUM RELOAD D.A. ANDERSON 01/28/68 01/28/69 915.7 PAGE 1
POST PROCESSOR ASSEMBLY DATA
75006 IS THE LAST LOCATION NOT USED BY THIS PROGRAM
3446 IS THE FIRST LOCATION NOT USED BY THIS PROGRAM
0REFERENCES TO DEFINED SYMBOLS
75007 X 3406
2224 B1 655, 1266, 1511, 1753
2173 C3 236, 616, 1107
2174 C7 244, 670, 1116
75037 DP 47, 101, 105, 344, 350, 405, 3406
75040 DU 45, 100, 104, 343, 347, 402, 3406
1355 UF 3406
2221 1BL 413, 440, 461, 505, 527, 565, 567, 734, 736, 755, 1000, 1045, 1071, 1073, 1234, 1331, 1367
1560, 1605, 1627, 1636
75016 AUN 60, 155, 170, 175, 1440, 1445, 3406
75015 BUN 62, 163, 206, 3406
2200 ENT 236, 244, 251, 255, 260, 261, 271, 272, 273, 274, 506, 514, 515, 516, 517, 530, 537
540, 541, 542, 616, 624, 625, 663, 670, 675, 676, 700, 706, 710, 713, 715, 716, 723
1107, 1116, 1123, 1124, 1127, 1130, 1144, 1145, 1153, 1154, 1155, 1156, 1220, 1231, 1235, 1240, 1241
1244, 1245, 1274, 1305, 1311, 1315, 1317, 1322, 1332, 1334, 1341, 1345, 1347, 1350, 1356, 1357, 1360
1361, 1370, 1517, 1527, 1533, 1542, 1546, 1550, 1561, 1564, 1565, 1573, 1574, 1575, 1576, 1606, 1612
1613, 1621, 1622, 1630, 1637, 1642, 1643, 1646, 1647
3203 IN1 415, 442, 463
2217 MFD 214, 230, 533, 1076, 1256, 1264, 1271, 1302, 1405, 1473, 1501, 1507, 1514, 1524, 1656, 2044, 2066
31 RDF 2150
77777 UFL 3406
3271 2MFD 1166, 1206
17 BASE 3406
75020 BFNA 52, 140, 147, 161, 3406
75017 BFNB 56, 141, 150, 162, 3406
2177 CODE 200, 241, 247, 264, 522, 576, 621, 635, 673, 1023, 1040, 1112, 1121, 1133, 1212, 1276, 1307
1433, 1521, 1531
2 EXIT 1415, 1430, 1705
2220 FILE 215, 233, 252, 534, 1101, 1257, 1265, 1272, 1303, 1312, 1406, 1474, 1502, 1510, 1515, 1525, 1543
1657, 2045, 2067
37 FOUT 1414, 1427, 1704
610 LDHM 601
75036 LFNA 51, 125, 134, 153, 3406
75035 LFNB 54, 126, 135, 154, 3406
3267 MFD2 1105
211 NO.B 203
13 OPEN 636, 1254, 1477, 1735
1700 QUIT 330, 367, 1466, 1673
2135 RDF1 235, 243, 615, 667, 1106, 1115
2207 TEMP 262, 265, 430, 431, 500, 502, 510, 574, 577, 611, 613, 1131, 1134, 1136, 1535, 1537, 1541
1562, 1607, 1631, 1761, 1765, 1766, 1775, 2001, 2002, 2004, 2011, 2015, 2016, 2024, 2025
75014 TEOF 277, 730, 742, 765, 1012, 1173, 3406
3356 ABAND 1452
1443 A.BAD 1435
5 ALLOT 107, 217, 352
1456 ASKOP 1442, 1447
3127 BEGIN 117
3233 BUILT 551
1633 CLBAD 1571, 1601, 1617, 1623
3164 CLEAN 323, 1463
1 PHASE 1 OF THE DAEMON DISK/DRUM RELOAD D.A. ANDERSON 01/28/68 01/28/69 915.7 PAGE 2
POST PROCESSOR ASSEMBLY DATA
3362 CLENP 1471
1467 CLNUP 360, 1666
20 CLOSE 1002, 1027, 1051, 1404, 1655, 1713, 2037, 2061
331 CONT1 322, 363
3311 DELMF 1236, 1640
1674 FATAL 106, 113, 157, 165, 172, 210, 216, 223, 351, 356, 524, 535, 1042, 1214, 1262, 1267, 1277
1310, 1407, 1475, 1505, 1512, 1522, 1532, 1660, 2046, 2070
3173 GIVUP 327, 366, 1465, 1672
3175 GOMES 333
75010 LABEL 65, 176, 3406
3212 LODHM 444
1067 MFD.Q 557, 562
10 MOUNT 166, 204
3104 NFTID 64
1163 NOMF2 1111
3300 NOUFD 1217
3227 NSRTD 531, 1047
2114 OCRBC 477, 1536
1417 PANIC 73
2 PAUSE 324, 1464, 3406
75021 PREAM 227, 232, 555, 560, 566, 570, 572, 573, 603, 604, 605, 606, 610, 627, 630, 640, 641
646, 647, 653, 654, 660, 661, 720, 721, 735, 737, 747, 754, 756, 772, 777, 1001, 1003
1004, 1006, 1007, 1020, 1030, 1031, 1033, 1034, 1046, 1052, 1053, 1056, 1057, 1062, 1063, 1064, 1065
1072, 1074, 1075, 1100, 3406
2141 RDF1A 2136
2156 RDFX4 2141, 2164, 2165
1713 RESET 336, 1413, 1423, 1454, 1700
1720 RSUFD 451, 465, 513, 1005, 1032
0 SETIO 71
3261 SHUFD 1021, 1167
1023 UF1BD 634
3145 UNRD1 307
174 VER.A 1436, 1443
360 1CLNUP 324
1666 2CLNUP 122, 1464
1453 ABAND1 304
1450 ABANDN 212, 226, 242, 250, 554, 622, 674, 1113, 1122
5 ABANKY 3406
75042 ABANTP 41, 1455, 3406
3336 ALLDON 1412
1667 ASKOP1 1457
316 ASKOP2 311, 764, 1172, 1202, 1211
361 ASKOP3 317
34 ASKOPR 320, 361, 443, 1460, 1667
4 ATTACH 103, 213, 346, 532, 1472, 1744, 2043, 2065
277 BADMF1 225, 237, 245
3351 BADTAP 1446
1222 BADUF1 1151, 1161, 1354, 1364
1232 BADUF2 1223, 1340
1226 BADUFD 1135, 1142, 1321, 1336
1246 BADUFR 1114, 1300
305 BD1MF1 300
14 BUFFER 652, 1263, 1506, 1750
3365 CDELMS 1610
2175 CHANGE 67, 316, 372, 520, 545, 1456, 1661
1 PHASE 1 OF THE DAEMON DISK/DRUM RELOAD D.A. ANDERSON 01/28/68 01/28/69 915.7 PAGE 3
POST PROCESSOR ASSEMBLY DATA
23 CHFILE 124, 137, 416, 626, 1055, 1143, 1237, 1346, 1563, 1611, 1641, 1726, 2014, 2071
3 CHLDFL 326, 365, 447, 1462, 1671, 3406
10 CHREEL 3406
1224 CKLOD3 1326
1523 CLNUP1 1602, 1624, 1632, 1650
1556 CLNUP2 1552
1603 CLNUP3 1555
1625 CLNUP4 1545, 1547
1655 CMFEOF 1530
77462 COMRLC 3406
1 CTINUE 322, 363, 445, 3406
24 DELFIL 133, 146, 1243, 1620, 1645, 2023, 2075
75045 DEMKEY 3406
2223 DLU.DM 1344
3375 DONCLN 1664
3214 DONTLD 446
36 DPRINT 115, 301, 305, 313, 331, 337, 411, 436, 457, 503, 525, 547, 563, 732, 744, 751, 757
767, 774, 1015, 1043, 1067, 1103, 1163, 1175, 1203, 1215, 1226, 1232, 1247, 1327, 1365, 1372, 1400
1410, 1420, 1450, 1467, 1556, 1603, 1625, 1634, 1651, 1662, 1675
547 ENDMF1 246
1247 ENDMF2 763, 1120, 1171, 1201, 1210
1404 ENDMF3 1306
751 ENDTP2 731, 743
1051 ENDUF1 672
2172 EOFCT1 2154, 2163, 2166
2171 EOFSW1 2133, 2135, 2160
1675 FATAL1 1375, 1654
3401 FATERR 1677
25 FERRTN 75
1 FS.TST 114
26 FSTATE 257, 571, 1126
33 GETLSG 201
3160 IGNERR 321, 362
450 IN1ERR 424, 434
27 INITTF 211
3224 INMES1 507
477 INMFD1 267
75043 KEYVAL 3406
473 LDQNAM 375, 400, 401, 404, 414, 417, 420, 426, 427, 441, 452, 453, 454, 455, 462, 466, 467
470, 471
436 LDQUES 410
6 LLSCPY 207, 3127
11 LLSNFT 171, 3121
3315 LOADED 1251
370 LOAD.Q 270, 602
457 LODHIM 445
465 LODHM1
7 LSREEL 3406
3121 LSTCPY 207, 3127
3110 LSTNFT 171, 3121
1173 MF2BAD 1110, 1117
1203 MF2BD1 1174
243 MFD1LP 254, 256, 275, 276, 512, 521, 546
1115 MFD2LP 1125, 1140, 1162, 1221
1301 MFD3LP 1371
1 PHASE 1 OF THE DAEMON DISK/DRUM RELOAD D.A. ANDERSON 01/28/68 01/28/69 915.7 PAGE 4
POST PROCESSOR ASSEMBLY DATA
1365 MFD3PR 1314, 1316
1372 MFDBAD 1275
1651 MFEOFC 1520
3133 NCMPL1 303
3245 NDTP2M 753, 776, 1205
77777 NEWCOM 3406
3177 NEWLDF 341
337 NEWLOD 1462, 1671
123 NEWTAP 357
757 NO2MFD 1014
75041 NOCHAN 43, 202, 3406
411 NOLOAD 447
416 NOLOD1 406
2176 NOLSMF 123, 762, 1170, 1200, 1207, 1325
3152 NOMF1M 315
312 NOMFD1 231, 234, 240
3253 NOMFD2 761
3304 NOPROP 1230
522 NOTIN1 263
1040 NOTIN2 575
1212 NOTIN3 1132
3344 NOTNFT 1441
615 NTIN.2 1050
3320 NTINMF 1333
1432 NVER.A 177
3166 NWLOAD 325, 364, 1461, 1670
335 NWLOD1 326, 365
77461 OLDCOM 3406
3334 OLDENT 1402
30 OPENDF 2134
2133 OPNDF1 224, 552
3341 PANICM 1422
35 PRNTER 450, 1026, 1222, 1432, 1633, 1674, 1710, 2030, 2060
2160 RDFEOF 2153
2150 RDFTSX 2143, 2145, 2147, 2161
16 RDWAIT 1270, 1301, 1513, 1523, 1755, 1771
22 RESETF 1716
1376 RSET40 1324
2110 RSUFD1 1722, 1727, 1737, 1745, 1751, 1756, 1772, 2033, 2040, 2050, 2062, 2072, 2076, 2101
2111 RSUFD2 1730, 1740, 1746, 1752, 1757, 1773, 2034, 2041, 2051, 2063, 2073, 2077, 2102
2112 RSUFD3 1725, 2052, 2103
2113 RSUFD4 2053, 2104
2060 RSUFDR 1734, 1743, 1747, 1754, 1764, 2000, 2036, 2042, 2056
1771 RSUFDX 2003, 2006, 2010, 2013, 2027, 2031
2032 RSUFDY 1762, 1770, 1776
2030 RSUFX1 2022, 2026
6 SETFIL 425, 536, 1061, 1152, 1355, 1572, 2047, 2100
3325 SH3MFD 1374
3367 SHRTM1 1653
1341 STMOD3 1225, 1377, 1403
4 STOPLD 330, 367, 1466, 1673, 3406
6 SWCHAN 3406
742 TAPER1 617
765 TAPER2 671
730 TAPERR 553
1 PHASE 1 OF THE DAEMON DISK/DRUM RELOAD D.A. ANDERSON 01/28/68 01/28/69 915.7 PAGE 5
POST PROCESSOR ASSEMBLY DATA
7 TAPFIL 152, 160
774 TAPND2 766
1002 TAPR2A 773
32 TERMTF 335, 1252, 1453
15 TRFILE 645, 2032
1015 UF1BAD 620
1026 UF1BD1 644, 651, 656, 666, 726, 1054
555 UF1LP1 312
636 UF1LP2 1025
552 UFD1LP 310, 607, 614, 741, 750, 1013, 1022, 1037, 1066, 1077, 1102
667 UFD2LP 677, 727
12 UMOUNT 1424, 1437, 1444, 1701
3237 UNRDBL 740
3273 UNRMF2 1177
3241 UNRUFD 746, 771
1707 UNXERR 76
21 UPDATE 1253, 1476
3 UPDMFD 77, 342
11 VERIFY 174
3220 WILOAD 464
717 WR.UFD 704, 705, 707
17 WRWAIT 657, 717
2222 ZNULLS 1017, 1165
0 NO ERROR IN ABOVE ASSEMBLY.
LIORDE BCD 09/19/68 1941.5 8076 00000
1 'OPEN' DUMPED FILE/READ N WORDS FROM DUMPED FILE...M.J.BAILEY,1/31/65 PAGE 1
* (TIME-SHARING VERSION)
*
00013 ENTRY OPENDF
00166 ENTRY RDF
*
EXTERN NLREC,GETLSG
EXTERN RDWAIT
EXTERN IODIAG,RDFILE,FWAIT
EXTERN WRFLX
*
INSERT BMCRSC
*
* ZERO-IZE A THROUGH A+X-1
*
CLEAR MACRO A,X
AXT X,1
STZ A+X,1
TIX *-1,1,1
CLEAR END
*
* MOVE X WORDS FROM A ET SEQ TO B ET SEQ
*
MOVE MACRO X,A,B
AXT X,1
CAL A+X,1
SLW B+X,1
TIX *-2,1,1
MOVE END
*
* PRINT ONE LINE COMMENT
*
PRLINE MACRO COMNT,NWC,LOC
TSX WRFLX,4
LOC,,NWC
RMT
LOC BCI NWC,COMNT
RMT
PRLINE END
*
*
* EXECUTE INST. IN CORE A
*
*
EXEC MACRO OPC,ADD
TSX $GETA,7
OPC ADD
EXEC END
*
* GET KEY SETTING VIA SUPERVISOR, SET ABANTP, NOCHAN IF APPROPRIATE
*
GETSIG MACRO
TSX GETLSG,4
GETSIG END
*
* TEST WHETHER 2ND TAPE COPY IS NEEDED, IF NOT GO TO SKIP
*
1 'OPEN' DUMPED FILE/READ N WORDS FROM DUMPED FILE...M.J.BAILEY,1/31/65 PAGE 2
SKIFNB MACRO SKIP
CLA NOCHAN
SUB =1
TZE SKIP
SKIFNB END
*
* PRINT AN N-WORD MESSAGE FROM MESSGE
*
PRM MACRO MESSGE,N
TSX WRFLX,4
MESSGE,,N
PRM END
*
* COMPARE 2 SETS OF N CONSECUTIVE WORDS IN A ETC., AND B ETC. ,
* AND IF THEY DO NOT ALL MATCH, GO TO NF, OR OTHERWISE CONTINUE.
*
CMPWDS MACRO N,A,B,NF
AXT N,1
CAL A+N,1
LAS B+N,1
TRA NF
TRA *+2
TRA NF
TIX *-5,1,1
CMPWDS END
*
* WAIT FOR I/O ON FILE (A,B) TO END, GO TO E IF ERROR OCCURRED
*
WAIT MACRO A,B,E
TSX FWAIT,4
PTH A
PTH B
PTH E
WAIT END
*
* CLOSE THE FILE (A,B)
*
CLOSE MACRO A,B
TSX CLOSE,4
PTH A
PTH B
CLOSE END
*
*
* - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
* 'OPEN' NEXT DUMPED FILE -- SKIP TO NEXT (READABLE) FILE,
* READ ITS PREAMBLE, AND ITS FIRST LOGICAL RECORD.
* - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
*
00000 454351252360 NLREC
00001 272563436227 GETLSG
00002 512466213163 RDWAIT
00003 314624312127 IODIAG
00004 512426314325 RDFILE
00005 266621316360 FWAIT
1 'OPEN' DUMPED FILE/READ N WORDS FROM DUMPED FILE...M.J.BAILEY,1/31/65 PAGE 3
00006 665126436760 WRFLX
00007 475145632551 PRNTER
00010 636263254626 TSTEOF
00013 0634 00 1 00156 OPENDF SXA X1,1
00014 0634 00 2 00155 SXA X2,2
00015 0634 00 3 00154 SXA X3,3
00016 0634 00 4 00153 SXA X4,4
00017 0600 00 0 00633 STZ M
00020 0600 00 0 75014 STZ TEOF
00021 0500 00 0 00627 CLA LEOROP
00022 0621 00 0 00526 STA ABNADD
00023 0074 00 4 00001 TSX GETLSG,4 IS OPERATOR'S TAPE FILE ABANDON
00024 0500 00 0 75042 CLA ABANTP KEY CODE SETTING ON
00025 0100 00 0 00031 TZE *+4 SKIP IF NOT
00026 0074 00 4 00006 TSX WRFLX,4
00027 0 00010 0 00615 MESL,,8
00030 0020 00 0 00526 TRA EORABN IF SO OBEY IT
00031 0500 00 0 75007 CLA X
00032 0402 00 0 00574 SUB PHYSRC
00033 -0120 00 0 00161 TMI ERTN ERROR IF PTR SET BEFORE 1ST FILE,SKIP
00034 0100 00 0 00122 TZE OQ SKIP IF FILE IS 1ST ON LOAD TAPE
*
* - - - - - - - - - - - - - - - - - - - - - - - - - - -
* FIND START OF NEXT LOGICAL RECORD
* - - - - - - - - - - - - - - - - - - - - - - - - - - -
*
00035 0500 00 0 00401 CLA SOME
00036 -0120 00 0 00057 TMI JUMP
*
00037 0500 00 0 75007 CLA X
00040 0400 00 0 00401 ADD SOME
00041 0601 00 0 75007 STO X
00042 0601 00 0 00604 STO Y
00043 0020 00 0 00051 TRA *+6
00044 FL EQU *
00044 0074 00 4 00001 FLA TSX GETLSG,4
00045 0500 00 0 75007 CLA X
00046 0400 00 0 00574 ADD PHYSRC
00047 0601 00 0 75007 STO X X POINTS AT NEXT PHYSICAL RECORD
00050 0601 00 0 00604 STO Y SO DOES Y
*
00051 0074 00 4 00414 FLAB TSX BREAD,4 READ 12 WORDS FROM POSTN Y
TD 00052 3 00000 0 00556 TXH OPREAM
TD 00053 3 00000 0 04123 TXH =12
00054 0020 00 0 00044 TRA FLA UNREAD, MOVE TO NEXT PHYSICAL REC.
00055 0020 00 0 00044 TRA FLA READ ERROR, MOVE TO NEXT PHYS. REC.
00056 0020 00 0 00160 TRA REOF REAL EOF EXIT
*
00057 0500 00 0 00570 JUMP CLA OPREAM+10
00060 0100 00 0 00044 TZE FL
00061 0074 00 4 00000 TSX NLREC,4
00062 3 00000 0 04120 PTH =0
00063 3 00000 0 04120 PTH =0
00064 3 00000 0 00570 PTH OPREAM+10
1 'OPEN' DUMPED FILE/READ N WORDS FROM DUMPED FILE...M.J.BAILEY,1/31/65 PAGE 4
00065 3 00000 0 00573 PTH LTPBF
00066 3 00000 0 04123 PTH =12
00067 3 00000 0 00574 PTH PHYSRC
00070 3 00000 0 00575 PTH NFLR
00071 3 00000 0 00576 PTH NLAST
00072 0600 00 0 00601 STZ TEMP
00073 -0500 00 0 00571 CAL OPREAM+11
00074 0621 00 0 00601 STA TEMP
00075 0771 00 0 00022 ARS 18
00076 0621 00 0 00577 STA IREC
00077 0500 00 0 00575 CLA NFLR
00100 0520 00 0 00576 ZET NLAST
00101 0400 00 0 04121 ADD =1
00102 0601 00 0 00600 STO NREC
00103 0402 00 0 00601 SUB TEMP
00104 -0100 00 0 00044 TNZ FL
*
00105 0500 00 0 00577 CLA IREC O.K.
00106 0402 00 0 00600 SUB NREC
00107 0100 00 0 00111 TZE *+2
00110 0120 00 0 00044 TPL FL SKIP IF IREC .GR. NREC, PREAMBLE INVALID
*
00111 0500 00 0 00577 CLA IREC THIS IS A LOGICAL RECORD
00112 0402 00 0 04121 SUB =1
00113 -0100 00 0 00044 TNZ FL SPACE DOWN TO NEXT FILE IF NOT 1ST LOG.REC.
*
00114 MOVE 12,OPREAM,PREAM THIS IS 1ST LOG.REC. IN FILE,AND WE WISH
00114 0774 00 1 00014 AXT 12,1 .001
00115 -0500 00 1 00572 CAL OPREAM+12,1 .001
00116 0602 00 1 75035 SLW PREAM+12,1 .001
00117 2 00001 1 00115 TIX *-2,1,1 .001
00120 0500 00 0 00570 CLA OPREAM+10
00121 0020 00 0 00130 TRA OQC
*
* - - - - - - - - - - - - - - - - - - - - - - - - -
* READ PREAMBLE OF 1ST DUMPED FILE OF LOAD FILE
* - - - - - - - - - - - - - - - - - - - - - - - - -
*
00122 0500 00 0 75007 OQ CLA X
00123 0400 00 0 04121 ADD =1
00124 0601 00 0 75007 STO X
00125 0601 00 0 00604 STO Y
00126 0600 00 0 00401 STZ SOME
00127 0020 00 0 00051 TRA FLAB
*
*
00130 0601 00 0 00625 OQC STO DWC
00131 0500 00 0 75007 CLA X
00132 0400 00 0 04123 ADD =12
00133 0601 00 0 00604 STO Y Y=X+12
00134 0500 00 0 00577 CLA IREC
00135 0402 00 0 00600 SUB NREC
00136 -0120 00 0 00141 TMI *+3
00137 0500 00 0 00625 CLA DWC (TRAILING ZEROS NOT INCLUDED IF
00140 0020 00 0 00142 TRA *+2 NOT A FULL LOGICAL RECORD)
00141 0500 00 0 00573 CLA LTPBF
1 'OPEN' DUMPED FILE/READ N WORDS FROM DUMPED FILE...M.J.BAILEY,1/31/65 PAGE 5
00142 0601 00 0 00626 STO RWC DATA WORD COUNT FOR LOGICAL RECORD
00143 0074 00 4 00001 TSX GETLSG,4
00144 0074 00 4 00365 TSX GSOME,4
*
* READ IN THE DATA WORDS OF THE 1ST LOGICAL RECORD OF FILE
*
*
00145 0074 00 4 00443 TSX AREAD,4 READ IN RWC WORDS FROMPOSTN Y (=X+12)
TD 00146 3 00000 0 00634 TXH WBF
TD 00147 3 00000 0 00626 TXH RWC
00150 0020 00 0 00161 TRA ERTN UNREAD, ERROR, SKIP
00151 0020 00 0 00161 TRA ERTN READ ERROR, SKIP
00152 0020 00 0 00160 TRA REOF TAPE EOF - SKIP
* - - - - - - - - - - - - - - - - - - - - -
* RESTORE AND RETURN FROM OPENDF
* - - - - - - - - - - - - - - - - - - - - -
*
00153 0774 00 4 00000 X4 AXT **,4
00154 0774 00 3 00000 X3 AXT **,3
00155 0774 00 2 00000 X2 AXT **,2
00156 0774 00 1 00000 X1 AXT **,1
00157 0020 00 4 00003 TRA 3,4 RETURN TO CALLER
*
00160 -0625 00 0 75014 REOF STL TEOF TAPE EOF RETURN
00161 0534 00 4 00153 ERTN LXA X4,4 ERROR RETURN
00162 0534 00 3 00154 IX3 LXA X3,3
00163 0534 00 2 00155 LXA X2,2
00164 0534 00 1 00156 LXA X1,1
00165 0020 60 4 00001 TRA* 1,4
*
* - - - - - - - - - - - - - - - - - - - - - - - - - - -
* READ FROM DUMPED FILE ON TAPE N WORDS INTO ANAME ETC.
* - - - - - - - - - - - - - - - - - - - - - - - - - - -
*
00166 0634 00 1 00270 RDF SXA DX1,1
00167 0634 00 2 00267 SXA DX2,2
00170 0634 00 3 00266 SXA DX3,3
00171 0634 00 4 00265 SXA DX4,4
00172 0074 00 4 00001 TSX GETLSG,4
00173 0600 00 0 75014 STZ TEOF
00174 0534 00 4 00265 LXA DX4,4
00175 0500 00 4 00001 CLA 1,4
00176 0621 00 0 00245 STA RFF ANAME
00177 0771 00 0 00022 ARS 18 ADDRESS OF N
00200 0621 00 0 00212 STA RFA
00201 0621 00 0 00215 STA RFB
00202 0500 00 0 00630 CLA LEORRD
00203 0621 00 0 00526 STA ABNADD
00204 0500 00 0 75042 CLA ABANTP TEST FOR OPRTR REQUESTED TAPE FILE ABANDON
00205 0100 00 0 00211 TZE *+4 SKIP IF NOT
00206 0074 00 4 00006 TSX WRFLX,4
00207 0 00010 0 00615 MESL,,8
00210 0020 00 0 00526 TRA EORABN IF SO, SKIP
*
* ENSURE THAT ONLY AS MANY WORDS AS ARE
* LEFT IN THE DUMPED FILE GET READ.
1 'OPEN' DUMPED FILE/READ N WORDS FROM DUMPED FILE...M.J.BAILEY,1/31/65 PAGE 6
*
00211 0502 00 0 00625 CLS DWC NO. WDS. LEFT IN FILE
00212 0400 00 0 00000 RFA ADD ** (N)
00213 0100 00 0 00220 TZE RFC
00214 0120 00 0 00220 TPL RFC SKIP IF N LARGER THAN NO. WORDS IN FILE
00215 0500 00 0 00000 RFB CLA ** (N)
00216 0600 60 4 00004 STZ* 4,4 NO END TO FILE THIS TIME
00217 0020 00 0 00222 TRA RFD SKIP
00220 0500 00 0 00625 RFC CLA DWC NO. OF WORDS LEFT IN FILE, IS
00221 0601 60 4 00004 STO* 4,4 END (DUMPED) FILE WORD COUNT, AND
00222 0734 00 3 00000 RFD PAX 0,3 NO. OF WORDS TO BE RETURNED BY RDF
00223 0601 00 0 00572 STO NW1
00224 -0520 00 0 00626 NZT RWC
00225 0020 00 0 00274 TRA RFH SKIP IF NOTHING LEFT IN BUFFER
*
* MOVE UP TO A LOGICAL RECORD FULL OF WORDS TO CALLER'S AREA
*
00226 0502 00 0 00626 RFDA CLS RWC NO. OF WORDS LAST READ FROM LOGICAL REC.
00227 0400 00 0 00572 ADD NW1
00230 0120 00 0 00233 TPL *+3 SKIP IF NO. WORDS TO BE READ IS BIGGER
00231 0500 00 0 00572 CLA NW1 TOTAL NO. WORDS LEFT TO BE READ SMALLER
00232 0020 00 0 00234 TRA *+2 SKIP TO MOVE THAT NO. ONLY
00233 0500 00 0 00626 CLA RWC ELSE USE NO. OF WORDS IN LOG. REC.
00234 0601 00 0 00632 STO T SET NO. WORDS TO BE MOVED , = T
00235 0734 00 1 00000 PAX 0,1
00236 0400 00 0 00245 ADD RFF ANAME+........
00237 0621 00 0 00245 STA RFF ANAME+........+T
00240 0500 00 0 00632 CLA T T
00241 0400 00 0 00631 ADD LWBF WBF
00242 0400 00 0 00633 ADD M M
00243 0621 00 0 00244 STA RFE WBF+M+T
*
00244 0500 00 1 00000 RFE CLA **,1 (WBF+M+T)
00245 0601 00 1 00000 RFF STO **,1 (ANAME + SUM OF ALL T'S)
00246 2 00001 1 00244 TIX RFE,1,1
*
* DECREASE NO. WORDS LEFT IN FILE AND IN LOG. REC. BUFFER AND NO.
* STILL NEEDED TO BE READ
*
00247 0500 00 0 00625 CLA DWC
00250 0402 00 0 00632 SUB T
00251 0601 00 0 00625 STO DWC
00252 0500 00 0 00633 CLA M
00253 0400 00 0 00632 ADD T
00254 0601 00 0 00633 STO M
00255 0500 00 0 00626 CLA RWC
00256 0402 00 0 00632 SUB T
00257 0601 00 0 00626 STO RWC
00260 0500 00 0 00572 CLA NW1
00261 0402 00 0 00632 SUB T
00262 0601 00 0 00572 STO NW1
00263 -0100 00 0 00274 TNZ RFH SKIP IF MORE WORDS NEEDED
*
* - - - - - - - - - - - - - -
* NORMAL RETURN FROM RDF
* - - - - - - - - - - - - - -
1 'OPEN' DUMPED FILE/READ N WORDS FROM DUMPED FILE...M.J.BAILEY,1/31/65 PAGE 7
*
00264 0074 00 4 00001 TSX GETLSG,4
00265 0774 00 4 00000 DX4 AXT **,4
00266 0774 00 3 00000 DX3 AXT **,3
00267 0774 00 2 00000 DX2 AXT **,2
00270 0774 00 1 00000 DX1 AXT **,1
00271 0520 60 4 00004 ZET* 4,4 TEST E.O.F. WORD COUNT
00272 0020 60 4 00003 TRA* 3,4 EOF (IN DUMPED FILE) RETURN, IF NON-ZERO
00273 0020 00 4 00006 TRA 6,4 NORMAL RETURN IF ZERO
*
* READ IN ANOTHER LOGICAL RECORD FULL
*
00274 0074 00 4 00001 RFH TSX GETLSG,4
00275 0500 00 0 00577 CLA IREC
00276 0400 00 0 04121 ADD =1
00277 0601 00 0 00577 STO IREC INDEX OF NEXT LOGICAL RECORD
00300 0402 00 0 00600 SUB NREC LAST LOG. RE. NO.
00301 -0120 00 0 00304 TMI *+3 SKIP IF NOT LAST LOG. REC.
00302 0500 00 0 00625 CLA DWC LAST ONE, GET NO. WORDS LEFT IN FILE
00303 0020 00 0 00305 TRA *+2 SKIP
00304 0500 00 0 00573 CLA LTPBF NOT LAST, GET SIZE OF A LOG. REC.
00305 0601 00 0 00626 STO RWC FOR NO. OF DATA WORDS TO BE READ
00306 0600 00 0 00633 STZ M
00307 0074 00 4 00365 TSX GSOME,4
*
00310 0500 00 0 75007 RFHA CLA X
00311 0400 00 0 00603 ADD LLR
00312 0601 00 0 00604 STO Y MOVE Y TO START OF NEXT LOG. REC.
00313 0601 00 0 75007 STO X
*
00314 MOVE 12,OPREAM,PRPR
00314 0774 00 1 00014 AXT 12,1 .001
00315 -0500 00 1 00572 CAL OPREAM+12,1 .001
00316 0602 00 1 00556 SLW PRPR+12,1 .001
00317 2 00001 1 00315 TIX *-2,1,1 .001
00320 0074 00 4 00414 TSX BREAD,4 READ PREAMBLE OF NEXT LOG. REC.
TD 00321 3 00000 0 00556 TXH OPREAM AFTER MOVING 2ND COPY DOWN
TD 00322 3 00000 0 04123 TXH =12 TO X, AND SETTING X=Y.
00323 0020 00 0 00357 TRA DIX4 NOTHING READ
00324 0020 00 0 00357 TRA DIX4 READ ERROR
00325 0020 00 0 00356 TRA DIX47 TAPE EOF
*
00326 CMPWDS 11,OPREAM,PRPR,BADFIL
00326 0774 00 1 00013 AXT 11,1 .001
00327 -0500 00 1 00571 CAL OPREAM+11,1 .001
00330 -0340 00 1 00555 LAS PRPR+11,1 .001
00331 0020 00 0 00352 TRA BADFIL .001
00332 0020 00 0 00334 TRA *+2 .001
00333 0020 00 0 00352 TRA BADFIL .001
00334 2 00001 1 00327 TIX *-5,1,1 .001
*
00335 0500 00 0 00571 CLA OPREAM+11
00336 0402 00 0 00555 SUB PRPR+11
00337 0100 00 0 00310 TZE RFHA IGNORE LOG.REC. IF SAME NO. AS LAST
*
00340 0500 00 0 75007 RFI CLA X
1 'OPEN' DUMPED FILE/READ N WORDS FROM DUMPED FILE...M.J.BAILEY,1/31/65 PAGE 8
00341 0400 00 0 04123 ADD =12
00342 0601 00 0 00604 STO Y Y=X+12
*
00343 0074 00 4 00443 TSX AREAD,4 READ IN RWC DATA WORDS FROM
TD 00344 3 00000 0 00634 TXH WBF POSTN. Y = X+12 OF TAPE FILE
TD 00345 3 00000 0 00626 TXH RWC
00346 0020 00 0 00357 TRA DIX4
00347 0020 00 0 00357 TRA DIX4
00350 0020 00 0 00356 TRA DIX47
*
00351 0020 00 0 00226 TRA RFDA RETURN TO MOVE WORDS FROM BUFFER
*
00352 0500 00 0 00401 BADFIL CLA SOME
00353 -0760 00 0 00003 SSM
00354 0601 00 0 00401 STO SOME
00355 0020 00 0 00357 TRA DIX4
*
* ERROR RETURN FROM RDF
*
00356 -0625 00 0 75014 DIX47 STL TEOF
00357 0074 00 4 00001 DIX4 TSX GETLSG,4
00360 0534 00 4 00265 LXA DX4,4
00361 0534 00 3 00266 DIX3 LXA DX3,3
00362 0534 00 2 00267 LXA DX2,2
00363 0534 00 1 00270 LXA DX1,1
00364 0020 60 4 00002 TRA* 2,4
*
00365 0774 00 1 00001 GSOME AXT 1,1
00366 0500 00 0 00626 CLA RWC
00367 0400 00 0 04123 ADD =12
00370 0402 00 0 04124 SUB =432
00371 -0120 00 0 00374 TMI *+3
00372 0100 00 0 00374 TZE *+2
00373 1 00001 1 00370 TXI *-3,1,1
00374 0754 00 1 00000 PXA ,1
00375 0131 00 0 00000 XCA
00376 0200 00 0 04124 MPY =432
00377 -0600 00 0 00401 STQ SOME
00400 0020 00 4 00001 TRA 1,4
*
00401 0 00000 0 00000 SOME PZE
*
* - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
* BASIC READ - SKIP 2ND COPY DOWN TO X, SET X=Y, READ FROM MAIN
* COPY, POSITION Y, INTO (1,4), A NO. OF WORDS GIVEN BY (2,4).
* - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
*
00402 0634 00 4 00410 CHERR SXA CH4,4
00403 0074 00 4 00003 TSX IODIAG,4
00404 3 00007 0 00533 TXH ERAY,,7
00405 -0500 00 0 00536 CAL ERAY+3
00406 0402 00 0 04122 SUB =6
00407 0100 00 0 00412 TZE ANYEOF
00410 0774 00 4 00000 CH4 AXT **,4
00411 0020 00 4 00002 TRA 2,4
00412 0534 00 4 00410 ANYEOF LXA CH4,4
1 'OPEN' DUMPED FILE/READ N WORDS FROM DUMPED FILE...M.J.BAILEY,1/31/65 PAGE 9
00413 0020 60 4 00001 TRA* 1,4
*
*
00414 0634 00 4 00504 BREAD SXA BRX4,4
00415 0500 00 4 00001 CLA 1,4
00416 0621 00 0 00455 STA BRE
00417 0621 00 0 00500 STA BRI
00420 0500 60 4 00002 CLA* 2,4
00421 0601 00 0 00605 STO NWORDS
00422 SKIFNB AREADA SKIP IF NO 2ND TAPE COPY
00422 0500 00 0 75041 CLA NOCHAN .001
00423 0402 00 0 04121 SUB =1 .001
00424 0100 00 0 00451 TZE AREADA .001
*
00425 0074 00 4 00004 TSX RDFILE,4
00426 3 00000 0 75020 PTH BFNA
00427 3 00000 0 75017 PTH BFNB
00430 3 00000 0 75007 PTH X
00431 3 00001 0 00601 PTH TEMP,,1
00432 3 00000 0 00515 PTH BRM
00433 3 00000 0 00601 PTH TEMP
00434 3 00000 0 00436 PTH BRB
00435 0020 00 0 00451 TRA AREADA
*
00436 0074 00 4 00402 BRB TSX CHERR,4
TD 00437 3 00000 0 00515 TXH BRM
00440 PRM MESK,7
00440 0074 00 4 00006 TSX WRFLX,4 .001
00441 0 00007 0 00606 MESK,,7 .001
00442 0020 00 0 00451 TRA AREADA
*
* READ FROM MAIN COPY, POSITION Y, INTO (1,4) ET SEQ, (2,4) WORDS
*
00443 0634 00 4 00504 AREAD SXA BRX4,4
00444 0500 00 4 00001 CLA 1,4
00445 0621 00 0 00455 STA BRE
00446 0621 00 0 00500 STA BRI
00447 0500 60 4 00002 CLA* 2,4
00450 0601 00 0 00605 STO NWORDS
00451 0074 00 4 00002 AREADA TSX RDWAIT,4
TD 00452 3 00000 0 75036 TXH LFNA
TD 00453 3 00000 0 75035 TXH LFNB
TD 00454 3 00000 0 00604 TXH Y
00455 2 00605 0 00000 BRE TIX **,,NWORDS
TD 00456 3 00000 0 00515 TXH BRM
TD 00457 3 00000 0 75014 TXH TEOF
TD 00460 3 00000 0 00463 TXH BRF
00461 0074 00 4 00001 TSX GETLSG,4
00462 0020 00 0 00504 TRA BRX4
*
00463 0074 00 4 00402 BRF TSX CHERR,4
TD 00464 3 00000 0 00515 TXH BRM
*
* ERROR, TRY TO READ FROM SECONDARY COPY INSTEAD OF MAIN ONE
*
00465 SKIFNB BRK SKIP IF NO 2ND TAPE COPY
1 'OPEN' DUMPED FILE/READ N WORDS FROM DUMPED FILE...M.J.BAILEY,1/31/65 PAGE 10
00465 0500 00 0 75041 CLA NOCHAN .001
00466 0402 00 0 04121 SUB =1 .001
00467 0100 00 0 00510 TZE BRK .001
00470 0074 00 4 00005 TSX FWAIT,4 WAIT ON I/O.
TD 00471 3 00000 0 75020 TXH BFNA
TD 00472 3 00000 0 75017 TXH BFNB
TD 00473 3 00000 0 00474 TXH *+1
00474 0074 00 4 00002 TSX RDWAIT,4
TD 00475 3 00000 0 75020 TXH BFNA
TD 00476 3 00000 0 75017 TXH BFNB
TD 00477 3 00000 0 00604 TXH Y
00500 2 00605 0 00000 BRI TIX **,,NWORDS
TD 00501 3 00000 0 00515 TXH BRM
TD 00502 3 00000 0 75014 TXH TEOF
TD 00503 3 00000 0 00506 TXH BRJ
00504 0774 00 4 00000 BRX4 AXT **,4
00505 0020 00 4 00006 TRA 6,4
*
00506 0074 00 4 00402 BRJ TSX CHERR,4
TD 00507 3 00000 0 00515 TXH BRM
00510 0074 00 4 00007 BRK TSX $PRNTER,4
00511 0534 00 4 00504 LXA BRX4,4
00512 0020 00 4 00004 TRA 4,4
*
00513 0534 00 4 00504 BRLA LXA BRX4,4
00514 0020 00 4 00005 TRA 5,4
*
00515 0074 00 4 00010 BRM TSX $TSTEOF,4 END OF REEL
00516 0020 00 0 00526 TRA ABNADD ABANDON TAPE FILE
00517 0020 00 0 00521 TRA *+2 ERROR
00520 0020 00 0 00513 TRA BRLA END OF FILE (LAST REEL)
00521 0500 00 0 00574 CLA PHYSRC END OF REEL, REELS CHANGED
00522 0400 00 0 04121 ADD =1
00523 0601 00 0 75007 STO X
00524 0601 00 0 00604 STO Y
00525 0020 00 0 00451 TRA AREADA
*
00526 EORABN EQU *
00526 0020 00 0 00000 ABNADD TRA ** (OPENDF OR RDF RETURN)
*
00527 0534 00 4 00153 EORAB1 LXA X4,4 OPENDF RETURN
00530 1 77777 4 00162 TXI IX3,4,-1 GO RETURN VIA (2,4)
*
00531 0534 00 4 00265 EORAB2 LXA DX4,4 RDF RETURN
00532 1 77775 4 00361 TXI DIX3,4,-3 GO RETURN VIA (5,4)
*
* - - - - - - - - - - - - - - - - - - - - - - - - - - - -
* CONSTANTS, VARIABLES, ETC.
* - - - - - - - - - - - - - - - - - - - - - - - - - - - -
*
00533 ERAY BSS 7
00542 PRPR BSS 12
00556 OPREAM BSS 12
00572 0 00000 0 00000 NW1 PZE
00573 0 00000 0 03264 LTPBF PZE 4*432-12
00574 0 00000 0 00660 PHYSRC PZE 432
1 'OPEN' DUMPED FILE/READ N WORDS FROM DUMPED FILE...M.J.BAILEY,1/31/65 PAGE 11
00575 0 00000 0 00000 NFLR PZE
00576 0 00000 0 00000 NLAST PZE
00577 0 00000 0 00000 IREC PZE
00600 0 00000 0 00000 NREC PZE
00601 TEMP BSS 2
00603 0 00000 0 03300 LLR PZE 4*432
00604 0 00000 0 00000 Y PZE
00605 0 00000 0 00000 NWORDS PZE
00606 606225234645 MESK BCI 7, SECONDARY COPY NOT MOVED DOWN THIS TIME.
00615 606321472560 MESL BCI 8, TAPE FILE WILL BE ABANDONED, PUT KEY UP AGAIN.
00625 0 00000 0 00000 DWC PZE
00626 0 00000 0 00000 RWC PZE
00627 0 00000 0 00527 LEOROP PZE EORAB1
00630 0 00000 0 00531 LEORRD PZE EORAB2
00631 0 00000 0 00634 LWBF PZE WBF
00632 0 00000 0 00000 T PZE
00633 0 00000 0 00000 M PZE
00634 WBF BSS 4*432-12
INSERT BCMEQB
*
* - - - - - - - - - - - - - - - - - -
* COMMON AND EQUIVALENCE FOR SECONDARY STORAGE LOAD
* (TIME-SHARING VERSION)
* - - - - - - - - - - - - - - - - - -
*
075045 DEMKEY BOOL 75045 CORE A LOCATION FOR DAEMON KEY SETTING
*
000017 BASE BOOL 17 KEY CODE BASE
000001 CTINUE BOOL 1 KEY CODE TO CONTINUE WITH PROGRAM,NO CHANGE
000002 PAUSE BOOL 2 KEY CODE TO WAIT 60 SECS.
000003 CHLDFL BOOL 3 KEY CODE TO USE DIFFERENT LOAD FILE
000004 STOPLD BOOL 4 KEY CODE TO STOP LOADING, START DUMPING
000005 ABANKY BOOL 5 KEY CODE TO ABANDON LOAD TAPE FILE
000006 SWCHAN BOOL 6 KEY CODE TO GO FROM 1 OR 2 TO 2 OR 1 CHANS.
000007 LSREEL BOOL 7 KEY CODE TO INDICATE LAST REEL OF LOAD FILE
000010 CHREEL BOOL 10 KEY CODE TO CORRECT REEL ORDER ERROR
77777 NEWCOM EQU -1 TOP OF MEMORY
077461 OLDCOM BOOL 77461 OLD TOP OF COMMON
77462 COMRLC EQU OLDCOM-NEWCOM RELOCATION FACTOR
77777 COMMON COMRLC RELOCATE COMMON
01355 UF EQU 32767/2-DEMKEY/2 LENGTH OF USER LIST
77777 UFL COMMON 2*UF USER FILE LIST (1ST PARTS OF FILE NAMES)
75044 COMMON 1 INSERT DUMMY IF NECESSARY
75043 COMMON 1 DEMKEY CELL IN NON-CTSS VERSION
75043 KEYVAL COMMON 1
75042 ABANTP COMMON 1 ABANDON TAPE FILE INDICATOR
75041 NOCHAN COMMON 1 NO. OF CHANNELS BEING READ (1 OR 2)
75040 DU COMMON 1 PROBLEM NO. OF DUMP/LOAD PACKAGE
75037 DP COMMON 1 PROGRAMMER NO. OF DITTO.
75036 LFNA COMMON 1 LOAD TAPE FILE NAME (PART 1)
75035 LFNB COMMON 1 ,, ,, ,, ,, (PART 2)
75021 COMMON 11 DUMPED FILE'S PREAMBLE FROM DUMP TAPE
75021 PREAM COMMON 1 DUMPED FILE'S DUMP TAPE PREAMBLE 1ST WORD
75020 BFNA COMMON 1 CHANNEL B LOAD TAPE FILE NAME (PART 1)
75017 BFNB COMMON 1 CHANNEL B LOAD TAPE FILE NAME (PART 2)
75016 AUN COMMON 1 CHANNEL A UNIT NO.
1 'OPEN' DUMPED FILE/READ N WORDS FROM DUMPED FILE...M.J.BAILEY,1/31/65 PAGE 12
75015 BUN COMMON 1 CHANNEL B UNIT NO.
75014 TEOF COMMON 1 TAPE EOF INDICATOR/WORD COUNT
75010 COMMON 3 LABEL OF TAPE FILE CURRENTLY BEING LOADED
75010 LABEL COMMON 1 LABEL OF TAPE FILE DITTO. 1ST WORD
75007 X COMMON 1 TAPE FILE POINTER
END
1 'OPEN' DUMPED FILE/READ N WORDS FROM DUMPED FILE...M.J.BAILEY,1/31/65 PAGE 1
POST PROCESSOR ASSEMBLY DATA
75006 IS THE LAST LOCATION NOT USED BY THIS PROGRAM
4125 IS THE FIRST LOCATION NOT USED BY THIS PROGRAM
0REFERENCES TO DEFINED SYMBOLS
633 M 17, 242, 252, 254, 306
632 T 234, 240, 250, 253, 256, 261
75007 X 31, 37, 41, 45, 47, 122, 124, 131, 310, 313, 340, 430, 523, 4120
604 Y 42, 50, 125, 133, 312, 342, 454, 477, 524
75037 DP 4120
75040 DU 4120
44 FL 44, 60, 104, 110, 113
122 OQ 34
1355 UF 4120
156 X1 13, 164
155 X2 14, 163
154 X3 15, 162
153 X4 16, 161, 527
75016 AUN 4120
436 BRB 434
455 BRE 416, 445
463 BRF 460
500 BRI 417, 446
506 BRJ 503
510 BRK 467
515 BRM 432, 437, 456, 464, 501, 507
75015 BUN 4120
410 CH4 402, 412
625 DWC 130, 137, 211, 220, 247, 251, 302
270 DX1 166, 363
267 DX2 167, 362
266 DX3 170, 361
265 DX4 171, 174, 360, 531
44 FLA 54, 55
162 IX3 530
603 LLR 311
572 NW1 223, 227, 231, 260, 262
130 OQC 121
166 RDF 0
212 RFA 200
215 RFB 201
220 RFC 213, 214
222 RFD 217
244 RFE 243, 246
245 RFF 176, 236, 237
274 RFH 225, 263
340 RFI
626 RWC 142, 147, 224, 226, 233, 255, 257, 305, 345, 366
77777 UFL 4120
634 WBF 146, 344, 631
17 BASE 4120
75020 BFNA 426, 471, 475, 4120
75017 BFNB 427, 472, 476, 4120
513 BRLA 520
504 BRX4 414, 443, 462, 511, 513
1 'OPEN' DUMPED FILE/READ N WORDS FROM DUMPED FILE...M.J.BAILEY,1/31/65 PAGE 2
POST PROCESSOR ASSEMBLY DATA
361 DIX3 532
357 DIX4 323, 324, 346, 347, 355
533 ERAY 404, 405
161 ERTN 33, 150, 151
51 FLAB 127
577 IREC 76, 105, 111, 134, 275, 277
57 JUMP 36
75036 LFNA 452, 4120
75035 LFNB 453, 4120
631 LWBF 241
606 MESK 441
615 MESL 27, 207
575 NFLR 70, 77
600 NREC 102, 106, 135, 300
542 PRPR 316, 330, 336
160 REOF 56, 152
226 RFDA 351
310 RFHA 337
401 SOME 35, 40, 126, 352, 354, 377
601 TEMP 72, 74, 103, 431, 433
75014 TEOF 20, 160, 173, 356, 457, 502, 4120
443 AREAD 145, 343
414 BREAD 51, 320
402 CHERR 436, 463, 506
356 DIX47 325, 350
5 FWAIT 470
365 GSOME 144, 307
75010 LABEL 4120
573 LTPBF 65, 141, 304
576 NLAST 71, 100
0 NLREC 61
2 PAUSE 4120
75021 PREAM 116, 4120
6 WRFLX 26, 206, 440
5 ABANKY 4120
75042 ABANTP 24, 204, 4120
526 ABNADD 22, 203, 516
412 ANYEOF 407
451 AREADA 424, 435, 442, 525
352 BADFIL 331, 333
3 CHLDFL 4120
10 CHREEL 4120
77462 COMRLC 4120
1 CTINUE 4120
75045 DEMKEY 4120
527 EORAB1 627
531 EORAB2 630
526 EORABN 30, 210, 526
1 GETLSG 23, 44, 143, 172, 264, 274, 357, 461
3 IODIAG 403
75043 KEYVAL 4120
627 LEOROP 21
630 LEORRD 202
7 LSREEL 4120
77777 NEWCOM 4120
1 'OPEN' DUMPED FILE/READ N WORDS FROM DUMPED FILE...M.J.BAILEY,1/31/65 PAGE 3
POST PROCESSOR ASSEMBLY DATA
75041 NOCHAN 422, 465, 4120
605 NWORDS 421, 450, 455, 500
77461 OLDCOM 4120
13 OPENDF 0
556 OPREAM 52, 57, 64, 73, 115, 120, 315, 321, 327, 335
574 PHYSRC 32, 46, 67, 521
7 PRNTER 510
4 RDFILE 425
2 RDWAIT 451, 474
4 STOPLD 4120
6 SWCHAN 4120
10 TSTEOF 515
0 NO ERROR IN ABOVE ASSEMBLY.
LINTTB BCD 09/19/68 1941.6 12458 00000
1 INITIATE AND TERMINATE DUMP TAPE FILE READS.....M.J.BAILEY..1/31/65 PAGE 1
* (TIME-SHARING VERSION)
*
00022 ENTRY INITTF
00403 ENTRY TERMTF
00437 ENTRY TSTEOF
*
EXTERN GETLSG,IOBDT
EXTERN ATTACH
EXTERN ATTNAM
EXTERN RDWAIT,FWAIT
EXTERN VERIFY,BUFFER,OPEN,SLEEP
EXTERN MOUNT,UMOUNT,CLOSE,WRFLX
*
INSERT BMCRSC
*
* ZERO-IZE A THROUGH A+X-1
*
CLEAR MACRO A,X
AXT X,1
STZ A+X,1
TIX *-1,1,1
CLEAR END
*
* MOVE X WORDS FROM A ET SEQ TO B ET SEQ
*
MOVE MACRO X,A,B
AXT X,1
CAL A+X,1
SLW B+X,1
TIX *-2,1,1
MOVE END
*
* PRINT ONE LINE COMMENT
*
PRLINE MACRO COMNT,NWC,LOC
TSX WRFLX,4
LOC,,NWC
RMT
LOC BCI NWC,COMNT
RMT
PRLINE END
*
*
* EXECUTE INST. IN CORE A
*
*
EXEC MACRO OPC,ADD
TSX $GETA,7
OPC ADD
EXEC END
*
* GET KEY SETTING VIA SUPERVISOR, SET ABANTP, NOCHAN IF APPROPRIATE
*
GETSIG MACRO
TSX GETLSG,4
GETSIG END
1 INITIATE AND TERMINATE DUMP TAPE FILE READS.....M.J.BAILEY..1/31/65 PAGE 2
*
* TEST WHETHER 2ND TAPE COPY IS NEEDED, IF NOT GO TO SKIP
*
SKIFNB MACRO SKIP
CLA NOCHAN
SUB =1
TZE SKIP
SKIFNB END
*
* PRINT AN N-WORD MESSAGE FROM MESSGE
*
PRM MACRO MESSGE,N
TSX WRFLX,4
MESSGE,,N
PRM END
*
* COMPARE 2 SETS OF N CONSECUTIVE WORDS IN A ETC., AND B ETC. ,
* AND IF THEY DO NOT ALL MATCH, GO TO NF, OR OTHERWISE CONTINUE.
*
CMPWDS MACRO N,A,B,NF
AXT N,1
CAL A+N,1
LAS B+N,1
TRA NF
TRA *+2
TRA NF
TIX *-5,1,1
CMPWDS END
*
* WAIT FOR I/O ON FILE (A,B) TO END, GO TO E IF ERROR OCCURRED
*
WAIT MACRO A,B,E
TSX FWAIT,4
PTH A
PTH B
PTH E
WAIT END
*
* CLOSE THE FILE (A,B)
*
CLOSE MACRO A,B
TSX CLOSE,4
PTH A
PTH B
CLOSE END
*
* - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
* INITIATE DUMP TAPE FILE READ (OPEN, AND READ I.D
* LABELS FROM BOTH COPIES, AND CHECK THEY MATCH)
* - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
*
00000 272563436227 GETLSG
00001 314622246360 IOBDT
00002 216363212330 ATTACH
00003 216363452144 ATTNAM
1 INITIATE AND TERMINATE DUMP TAPE FILE READS.....M.J.BAILEY..1/31/65 PAGE 3
00004 512466213163 RDWAIT
00005 266621316360 FWAIT
00006 652551312670 VERIFY
00007 226426262551 BUFFER
00010 464725456060 OPEN
00011 624325254760 SLEEP
00012 444664456360 MOUNT
00013 644446644563 UMOUNT
00014 234346622560 CLOSE
00015 665126436760 WRFLX
00016 475145632551 PRNTER
00017 216242464751 ASKOPR
00022 0634 00 1 00401 INITTF SXA X1,1
00023 0634 00 2 00400 SXA X2,2
00024 0634 00 3 00377 SXA X3,3
00025 0634 00 4 00376 SXA X4,4
00026 0074 00 4 00000 TSX GETLSG,4
00027 SKIFNB IA SKIP IF ONLY ONE TAPE COPY
00027 0500 00 0 75041 CLA NOCHAN .001
00030 0402 00 0 03265 SUB =1 .001
00031 0100 00 0 00077 TZE IA .001
*
* VERIFY THAT 2ND CHANNEL HAS CORRECT DUPLICATE MOUNTED
*
00032 0774 00 2 00012 AXT 10,2
00033 0074 00 4 00006 CHCKBA TSX VERIFY,4
TD 00034 3 00000 0 75015 TXH BUN
00035 3 00004 0 75010 TXH LABEL,,4
TD 00036 3 00000 0 00041 TXH CHCKBB ERROR
TD 00037 3 00000 0 01014 TXH ERCODE
00040 0020 00 0 00077 TRA IA SKIP IF OTHER CHANNEL O.K.
*
00041 0074 00 4 00016 CHCKBB TSX $PRNTER,4
00042 0500 00 0 01014 CLA ERCODE
00043 0402 00 0 03267 SUB =7
00044 -0100 00 0 00070 TNZ CHCKBD SKIP IF NOT INCORRECT-LABEL ERROR
00045 2 00002 2 00033 TIX CHCKBA,2,2 TRY 5 TIMES IF LABEL IS INCORRECT
*
00046 0074 00 4 00013 WRONGB TSX UMOUNT,4 IF STILL WRONG UNMOUNT THIS TAPE
TD 00047 3 00000 0 75015 TXH BUN
00050 2 01103 0 01067 TIX WRNGT2,,LWT2
00051 0074 00 4 00017 CHCKBC TSX $ASKOPR,4
00052 3 00006 0 01035 PTH MESC,,6
00053 3 00001 0 00063 PTH CONT,,CTINUE
00054 3 00006 0 01043 PTH MESD,,6
00055 3 00003 0 00075 PTH QUITFL,,CHLDFL
00056 3 00006 0 01051 PTH MESE,,6
00057 3 00002 0 00060 PTH REST,,PAUSE
*
00060 -0500 00 0 03271 REST CAL =45
00061 0074 00 4 00011 TSX SLEEP,4
00062 0020 00 0 00051 TRA CHCKBC
00063 0074 00 4 00012 CONT TSX MOUNT,4 MOUNT ANOTHER ON 2ND CHANNEL
TD 00064 3 00000 0 03266 TXH =2
1 INITIATE AND TERMINATE DUMP TAPE FILE READS.....M.J.BAILEY..1/31/65 PAGE 4
TD 00065 3 00000 0 75015 TXH BUN
00066 2 01113 0 01104 TIX RMT2,,LRMT2
00067 0020 00 0 00032 TRA CHCKBA-1 AND RE-VERIFY
*
00070 2 00001 2 00033 CHCKBD TIX CHCKBA,2,1 TRY 10 TIMES IF SOME OTHER ERROR
00071 0074 00 4 00013 TSX UMOUNT,4 THEN UNMOUNT THIS TAPE
TD 00072 3 00000 0 75015 TXH BUN
00073 2 01132 0 01114 TIX BADT2,,LBT2
00074 0020 00 0 00051 TRA CHCKBC THEN GO STOP TO SEE WHAT NEXT
*
00075 QUITFL EQU * TO ABANDON THIS TAPE FILE,
00075 0534 00 4 00376 ABEXT LXA X4,4
00076 1 00001 4 00377 TXI X3,4,1 THEN GO EXIT VIA 1,4
*
* OPEN TAPE FILE 1ST COPY AND READ ITS I.D.
*
00077 0774 00 2 00012 IA AXT 10,2
00100 0074 00 4 00010 IAA TSX OPEN,4
TD 00101 3 00000 0 01013 TXH R
TD 00102 3 00000 0 75036 TXH LFNA
TD 00103 3 00000 0 75035 TXH LFNB
TD 00104 3 00000 0 03273 TXH =-0
TD 00105 3 00000 0 03273 TXH =-0
TD 00106 3 00000 0 00162 TXH ID ERROR
*
00107 0074 00 4 00007 TSX BUFFER,4 ASSIGN BUFFERS
TD 00110 3 00000 0 75036 TXH LFNA
TD 00111 3 00000 0 75035 TXH LFNB
00112 2 01015 0 01410 TIX IB1,,LIB
00113 -0500 00 0 03265 CAL =1
00114 0602 00 0 75007 SLW X
*
00115 0774 00 3 00066 AXT RECSIZ/8,3
00116 0074 00 4 00004 IB TSX RDWAIT,4 READ I.D. RECORD LABEL
TD 00117 3 00000 0 75036 TXH LFNA
TD 00120 3 00000 0 75035 TXH LFNB
TD 00121 3 00000 0 75007 TXH X
00122 3 00010 0 02270 TXH WBF,,8
TD 00123 3 00000 0 00200 TXH IE EOF, ERROR
TD 00124 3 00000 0 75014 TXH TEOF
TD 00125 3 00000 0 00136 TXH IC
00126 0074 00 4 00000 TSX GETLSG,4
00127 0600 00 0 01012 STZ IDERR I.D. LABEL READ O.K., SKIP TO DO 2ND COPY
00130 MOVE 8,WBF,TAPEID
00130 0774 00 1 00010 AXT 8,1 .001
00131 -0500 00 1 02300 CAL WBF+8,1 .001
00132 0602 00 1 02324 SLW TAPEID+8,1 .001
00133 2 00001 1 00131 TIX *-2,1,1 .001
00134 0600 00 0 02324 STZ TAPEID+8
00135 0020 00 0 00206 TRA IG
*
00136 0074 00 4 00016 IC TSX $PRNTER,4 READ ERROR
00137 0500 00 0 75007 CLA X
00140 0400 00 0 03270 ADD =8
00141 0601 00 0 75007 STO X
00142 2 00001 3 00116 TIX IB,3,1 TRY AGAIN AT NEXT REPETITION OF LABEL
1 INITIATE AND TERMINATE DUMP TAPE FILE READS.....M.J.BAILEY..1/31/65 PAGE 5
00143 PRM MESA,8 I.D. IS UNREAD,
00143 0074 00 4 00015 TSX WRFLX,4 .001
00144 0 00010 0 01020 MESA,,8 .001
00145 0074 00 4 00017 BACK TSX $ASKOPR,4
00146 3 00006 0 01035 PTH MESC,,6
00147 3 00001 0 00157 PTH CONT1,,CTINUE
00150 3 00006 0 01043 PTH MESD,,6
00151 3 00003 0 00075 PTH QUITFL,,CHLDFL
00152 3 00006 0 01051 PTH MESE,,6
00153 3 00002 0 00154 PTH REST1,,PAUSE
*
00154 -0500 00 0 03271 REST1 CAL =45
00155 0074 00 4 00011 TSX SLEEP,4
00156 0020 00 0 00145 TRA BACK
*
00157 0500 00 0 03265 CONT1 CLA =1 OR CONTINUE WITHOUT CHECKING I.D.'S
00160 0601 00 0 01012 STO IDERR
00161 0020 00 0 00206 TRA IG
*
00162 ID PRM MESB,5 ERROR OPENING FILE
00162 0074 00 4 00015 TSX WRFLX,4 .001
00163 0 00005 0 01030 MESB,,5 .001
00164 0074 00 4 00016 TSX $PRNTER,4
00165 2 00001 2 00100 IDA TIX IAA,2,1 TRY 10 TIMES TO OPEN
00166 0074 00 4 00017 BACK1 TSX $ASKOPR,4
00167 3 00006 0 01035 PTH MESC,,6
00170 3 00001 0 00077 PTH IA,,CTINUE
00171 3 00006 0 01043 PTH MESD,,6
00172 3 00003 0 00075 PTH QUITFL,,CHLDFL
00173 3 00006 0 01051 PTH MESE,,6
00174 3 00002 0 00175 PTH REST2,,PAUSE
*
00175 -0500 00 0 03271 REST2 CAL =45
00176 0074 00 4 00011 TSX SLEEP,4
00177 0020 00 0 00166 TRA BACK1
*
00200 IE PRM MESF,8 EOF IN WRONG PLACE
00200 0074 00 4 00015 TSX WRFLX,4 .001
00201 0 00010 0 01057 MESF,,8 .001
00202 CLOSE LFNA,LFNB
00202 0074 00 4 00014 TSX CLOSE,4 .001
00203 3 00000 0 75036 PTH LFNA .001
00204 3 00000 0 75035 PTH LFNB .001
00205 0020 00 0 00165 TRA IDA TRY TEN TIMES TO NOT GET ONE
*
*
* OPEN TAPE FILE 2ND COPY, READ ITS I.D. LABEL
*
00206 IG SKIFNB IS
00206 0500 00 0 75041 CLA NOCHAN .001
00207 0402 00 0 03265 SUB =1 .001
00210 0100 00 0 00350 TZE IS .001
00211 0774 00 2 00012 AXT 10,2
00212 0074 00 4 00010 IH TSX OPEN,4
TD 00213 3 00000 0 01013 TXH R
TD 00214 3 00000 0 75020 TXH BFNA
1 INITIATE AND TERMINATE DUMP TAPE FILE READS.....M.J.BAILEY..1/31/65 PAGE 6
TD 00215 3 00000 0 75017 TXH BFNB
TD 00216 3 00000 0 03273 TXH =-0
TD 00217 3 00000 0 03273 TXH =-0
TD 00220 3 00000 0 00272 TXH IK ERROR
*
00221 0074 00 4 00007 TSX BUFFER,4 ASSIGN BUFFER
TD 00222 3 00000 0 75020 TXH BFNA
TD 00223 3 00000 0 75017 TXH BFNB
00224 2 01015 0 02325 TIX IB2,,LIB
00225 -0500 00 0 03265 CAL =1
00226 0602 00 0 75007 SLW X
*
00227 0774 00 3 00066 AXT RECSIZ/8,3
00230 0074 00 4 00004 II TSX RDWAIT,4 READ I.D. RECORD LABEL
TD 00231 3 00000 0 75020 TXH BFNA
TD 00232 3 00000 0 75017 TXH BFNB
TD 00233 3 00000 0 75007 TXH X
00234 2 01017 0 02300 TIX WBF+8,,L8
TD 00235 3 00000 0 00310 TXH IM EOF, ERROR
TD 00236 3 00000 0 75014 TXH TEOF
TD 00237 3 00000 0 00243 TXH IJ
00240 -0520 00 0 01012 NZT IDERR I.D. READ O.K.
00241 0020 00 0 00320 TRA IO SKIP TO COMPARE IF BOTH READ
00242 0020 00 0 00342 TRA IR OR CARRY ON WITH NO CHECK
*
00243 0074 00 4 00016 IJ TSX $PRNTER,4
00244 0500 00 0 75007 CLA X
00245 0400 00 0 03270 ADD =8
00246 0601 00 0 75007 STO X
00247 2 00001 3 00230 TIX II,3,1 TRY TO READ AGAIN AT REPETITION OF LABEL
00250 -0500 00 0 03275 CAL =H ON 2N
00251 0602 00 0 01022 SLW MESA+2
00252 -0500 00 0 03272 CAL =HD COPY
00253 0602 00 0 01023 SLW MESA+3
00254 PRM MESA,8
00254 0074 00 4 00015 TSX WRFLX,4 .001
00255 0 00010 0 01020 MESA,,8 .001
00256 0520 00 0 01012 ZET IDERR
00257 0020 00 0 00075 TRA QUITFL ABANDON BOTH TAPES IF NO I.D.'S READ
00260 0074 00 4 00017 BACK2 TSX $ASKOPR,4
00261 3 00006 0 01035 PTH MESC,,6
00262 3 00001 0 00342 PTH IR,,CTINUE
00263 3 00006 0 01043 PTH MESD,,6
00264 3 00003 0 00075 PTH QUITFL,,CHLDFL
00265 3 00006 0 01051 PTH MESE,,6
00266 3 00002 0 00267 PTH REST3,,PAUSE
*
00267 -0500 00 0 03271 REST3 CAL =45
00270 0074 00 4 00011 TSX SLEEP,4
00271 0020 00 0 00260 TRA BACK2
*
*
00272 IK PRM MESB,5
00272 0074 00 4 00015 TSX WRFLX,4 .001
00273 0 00005 0 01030 MESB,,5 .001
00274 0074 00 4 00016 TSX $PRNTER,4
1 INITIATE AND TERMINATE DUMP TAPE FILE READS.....M.J.BAILEY..1/31/65 PAGE 7
00275 2 00001 2 00212 IL TIX IH,2,1 TRY 10 TIMES TO OPEN
00276 0074 00 4 00017 BACK3 TSX $ASKOPR,4
00277 3 00006 0 01035 PTH MESC,,6
00300 3 00001 0 00206 PTH IG,,CTINUE
00301 3 00006 0 01043 PTH MESD,,6
00302 3 00003 0 00075 PTH QUITFL,,CHLDFL
00303 3 00006 0 01051 PTH MESE,,6
00304 3 00002 0 00305 PTH REST4,,PAUSE
*
00305 -0500 00 0 03271 REST4 CAL =45
00306 0074 00 4 00011 TSX SLEEP,4
00307 0020 00 0 00276 TRA BACK3
*
*
00310 -0500 00 0 03274 IM CAL =H 2ND T
00311 0602 00 0 01064 SLW MESF+5
00312 PRM MESF,8
00312 0074 00 4 00015 TSX WRFLX,4 .001
00313 0 00010 0 01057 MESF,,8 .001
00314 CLOSE BFNA,BFNB
00314 0074 00 4 00014 TSX CLOSE,4 .001
00315 3 00000 0 75020 PTH BFNA .001
00316 3 00000 0 75017 PTH BFNB .001
00317 0020 00 0 00275 TRA IL GO RE-OPEN,READ AGAIN (10 TIMES)
*
*
* COMPARE I.D. LABELS ON BOTH COPIES
*
00320 IO CMPWDS 8,WBF,WBF+8,IP
00320 0774 00 1 00010 AXT 8,1 .001
00321 -0500 00 1 02300 CAL WBF+8,1 .001
00322 -0340 00 1 02310 LAS WBF+8+8,1 .001
00323 0020 00 0 00330 TRA IP .001
00324 0020 00 0 00326 TRA *+2 .001
00325 0020 00 0 00330 TRA IP .001
00326 2 00001 1 00321 TIX *-5,1,1 .001
00327 0020 00 0 00337 TRA IQ SKIP IF COMPARISON O.K.
00330 IP CLOSE LFNA,LFNB WRONG TAPE ON 2ND CHANNEL
00330 0074 00 4 00014 TSX CLOSE,4 .001
00331 3 00000 0 75036 PTH LFNA .001
00332 3 00000 0 75035 PTH LFNB .001
00333 CLOSE BFNA,BFNB
00333 0074 00 4 00014 TSX CLOSE,4 .001
00334 3 00000 0 75020 PTH BFNA .001
00335 3 00000 0 75017 PTH BFNB .001
00336 0020 00 0 00046 TRA WRONGB GO REMOUNT AT LEAST 2ND COPY
*
* PRINT I.D. LABEL AND SET FILE POINTER AT START OF 1ST DUMPED FILE
*
00337 IQ PRM MESG,9 BOTH LABELS READ O.K.,PRINT MESSAGE
00337 0074 00 4 00015 TSX WRFLX,4 .001
00340 0 00011 0 01152 MESG,,9 .001
00341 0020 00 0 00350 TRA IS SKIP
00342 -0520 00 0 01012 IR NZT IDERR SEE WHICH LABEL WAS READ
00343 0020 00 0 00350 TRA IS SKIP IF IT WAS 1ST COPY
00344 MOVE 8,WBF+8,WBF 2ND COPY, MOVE IT DOWN
1 INITIATE AND TERMINATE DUMP TAPE FILE READS.....M.J.BAILEY..1/31/65 PAGE 8
00344 0774 00 1 00010 AXT 8,1 .001
00345 -0500 00 1 02310 CAL WBF+8+8,1 .001
00346 0602 00 1 02300 SLW WBF+8,1 .001
00347 2 00001 1 00345 TIX *-2,1,1 .001
00350 IS PRM MESH,7 PRINT MESSAGE
00350 0074 00 4 00015 TSX WRFLX,4 .001
00351 0 00007 0 01163 MESH,,7 .001
00352 PRM WBF,4
00352 0074 00 4 00015 TSX WRFLX,4 .001
00353 0 00004 0 02270 WBF,,4 .001
00354 0074 00 4 00000 TSX GETLSG,4
00355 -0500 00 0 02274 CAL WBF+4
00356 0602 00 0 01200 SLW MESI+6
00357 -0500 00 0 02275 CAL WBF+5
00360 0602 00 0 01202 SLW MESI+8
00361 PRM MESI,9 PRINT DATE/TIME DUMPING ON IT BEGAN
00361 0074 00 4 00015 TSX WRFLX,4 .001
00362 0 00011 0 01172 MESI,,9 .001
00363 -0500 00 0 02277 CAL WBF+7
00364 0100 00 0 00374 TZE IT SKIP IF NO END OF DUMP 'DAY'
00365 0074 00 4 00001 TSX IOBDT,4
00366 0602 00 0 01210 SLW MESJ+5
00367 -0600 00 0 01212 STQ MESJ+7
00370 PRM MESJ,8 PRINT END OF DUMP 'DAY'
00370 0074 00 4 00015 TSX WRFLX,4 .001
00371 0 00010 0 01203 MESJ,,8 .001
00372 PRM MESK,5
00372 0074 00 4 00015 TSX WRFLX,4 .001
00373 0 00005 0 01213 MESK,,5 .001
*
00374 0774 00 1 00660 IT AXT RECSIZ,1
00375 0634 00 1 75007 SXA X,1 SET FILE POINTER TO START OF 1ST FILE
*
00376 0774 00 4 00000 X4 AXT **,4
00377 0774 00 3 00000 X3 AXT **,3
00400 0774 00 2 00000 X2 AXT **,2
00401 0774 00 1 00000 X1 AXT **,1
00402 0020 00 4 00002 TRA 2,4
*
* - - - - - - - - - - - - - - - - - - - - -
* TERMINATE DUMP TAPE FILES
* - - - - - - - - - - - - - - - - - - - - -
*
00403 0634 00 4 00435 TERMTF SXA TX4,4
00404 0074 00 4 00000 TSX GETLSG,4
00405 PRM MESL,7
00405 0074 00 4 00015 TSX WRFLX,4 .001
00406 0 00007 0 01220 MESL,,7 .001
00407 0074 00 4 00005 TSX FWAIT,4
TD 00410 3 00000 0 75036 TXH LFNA
TD 00411 3 00000 0 75035 TXH LFNB
TD 00412 3 00000 0 00413 TXH *+1
00413 CLOSE LFNA,LFNB
00413 0074 00 4 00014 TSX CLOSE,4 .001
00414 3 00000 0 75036 PTH LFNA .001
00415 3 00000 0 75035 PTH LFNB .001
1 INITIATE AND TERMINATE DUMP TAPE FILE READS.....M.J.BAILEY..1/31/65 PAGE 9
TD 00416 3 00000 0 00417 TXH *+1
00417 0074 00 4 00005 TSX FWAIT,4
TD 00420 3 00000 0 75020 TXH BFNA
TD 00421 3 00000 0 75017 TXH BFNB
TD 00422 3 00000 0 00423 TXH *+1
00423 CLOSE BFNA,BFNB
00423 0074 00 4 00014 TSX CLOSE,4 .001
00424 3 00000 0 75020 PTH BFNA .001
00425 3 00000 0 75017 PTH BFNB .001
TD 00426 3 00000 0 00427 TXH *+1
00427 0074 00 4 00013 TSX UMOUNT,4
TD 00430 3 00000 0 75016 TXH AUN
00431 2 01141 0 01133 TIX UMA,,LUMA
00432 0074 00 4 00013 TSX UMOUNT,4
TD 00433 3 00000 0 75015 TXH BUN
00434 2 01151 0 01142 TIX UMB,,LUMB
00435 0774 00 4 00000 TX4 AXT **,4
00436 0020 00 4 00001 TRA 1,4
*
* - - - - - - - - - - - - - - - - - - - - - - - - - - - -
* TEST FOR END OF TAPE-FILE, IF NOT CHANGE REELS
* - - - - - - - - - - - - - - - - - - - - - - - - - - - -
*
00437 0634 00 1 00401 TSTEOF SXA X1,1
00440 0634 00 2 00400 SXA X2,2
00441 0634 00 3 00377 SXA X3,3
00442 0634 00 4 00376 SXA X4,4
00443 PRLINE ( END OF REEL ON RELOAD TAPE FILE.),6
00443 0074 00 4 00015 TSX WRFLX,4 .001
00444 0 00006 0 03205 ..001,,6 .001
RMT .001
..001 BCI 6, END OF REEL ON RELOAD TAPE FILE. .001
RMT .001
00445 0074 00 4 00017 TSX $ASKOPR,4
00446 3 00010 0 01323 PTH MESM,,8
00447 3 00007 0 00452 PTH EOTF,,LSREEL
00450 3 00010 0 01333 PTH MESN,,8
00451 3 00001 0 00454 PTH TB1,,CTINUE
*
00452 0534 00 4 00376 EOTF LXA X4,4 LAST REEL OF TAPE LOAD-FILE
00453 1 00001 4 00746 TXI TV,4,1 GO EXIT VIA 3,4
*
00454 0074 00 4 00003 TB1 TSX ATTNAM,4
00455 3 00002 0 01010 PTH NM,,2
00456 0074 00 4 00002 TSX ATTACH,4
00457 3 00000 0 75040 PTH DU
00460 3 00000 0 75037 PTH DP
*
*
00461 0074 00 4 00005 TB TSX FWAIT,4 JUST TO CATCH ERRORS.
TD 00462 3 00000 0 75036 TXH LFNA
TD 00463 3 00000 0 75035 TXH LFNB
TD 00464 3 00000 0 00465 TXH *+1
00465 CLOSE LFNA,LFNB CHANGE REELS
00465 0074 00 4 00014 TSX CLOSE,4 .001
00466 3 00000 0 75036 PTH LFNA .001
1 INITIATE AND TERMINATE DUMP TAPE FILE READS.....M.J.BAILEY..1/31/65 PAGE 10
00467 3 00000 0 75035 PTH LFNB .001
TD 00470 3 00000 0 00471 TXH *+1
00471 0074 00 4 00005 TSX FWAIT,4
TD 00472 3 00000 0 75020 TXH BFNA
TD 00473 3 00000 0 75017 TXH BFNB
TD 00474 3 00000 0 00475 TXH *+1
00475 CLOSE BFNA,BFNB
00475 0074 00 4 00014 TSX CLOSE,4 .001
00476 3 00000 0 75020 PTH BFNA .001
00477 3 00000 0 75017 PTH BFNB .001
TD 00500 3 00000 0 00501 TXH *+1
00501 0074 00 4 00013 TSX UMOUNT,4 UNMOUNT 'A' REEL
TD 00502 3 00000 0 75016 TXH AUN
00503 2 01236 0 01227 TIX UMRA,,LUMRA
00504 0074 00 4 00013 TSX UMOUNT,4
TD 00505 3 00000 0 75015 TXH BUN UNMOUNT 'B' REEL TOO. ***
00506 2 01246 0 01237 TIX UMRB,,LUMRB
TD 00507 3 00000 0 00510 TXH *+1 NULL ERROR RETURN, IN CASE NO B COPY.
*
00510 0074 00 4 00012 TD TSX MOUNT,4 MOUNT NEW 'A' REEL
TD 00511 3 00000 0 03265 TXH =1
TD 00512 3 00000 0 75016 TXH AUN
00513 2 01257 0 01247 TIX MRA,,LMRA
00514 0774 00 2 00003 AXT 3,2
00515 0074 00 4 00006 TE TSX VERIFY,4 CHECK I/O SYSTEM LABEL
TD 00516 3 00000 0 75016 TXH AUN
00517 2 01016 0 75010 TIX LABEL,,L4
TD 00520 3 00000 0 00523 TXH TF
TD 00521 3 00000 0 01014 TXH ERCODE
00522 0020 00 0 00545 TRA TH SKIP IF O.K.
*
00523 0074 00 4 00016 TF TSX $PRNTER,4 VERIFICATION ERROR
00524 0500 00 0 01014 CLA ERCODE
00525 0402 00 0 03267 SUB =7
00526 0100 00 0 00530 TZE TG
00527 2 00001 2 00515 TIX TE,2,1
00530 0074 00 4 00013 TG TSX UMOUNT,4
TD 00531 3 00000 0 75016 TXH AUN
00532 2 01305 0 01271 TIX WRA,,LWRA
00533 0074 00 4 00017 BACK5 TSX $ASKOPR,4
00534 3 00006 0 01035 PTH MESC,,6
00535 3 00001 0 00510 PTH TD,,CTINUE
00536 3 00006 0 01043 PTH MESD,,6
00537 3 00003 0 00075 PTH ABEXT,,CHLDFL
00540 3 00006 0 01051 PTH MESE,,6
00541 3 00002 0 00542 PTH REST5,,PAUSE
*
00542 -0500 00 0 03271 REST5 CAL =45
00543 0074 00 4 00011 TSX SLEEP,4
00544 0020 00 0 00533 TRA BACK5
*
00545 0074 00 4 00010 TH TSX OPEN,4
TD 00546 3 00000 0 01013 TXH R
TD 00547 3 00000 0 75036 TXH LFNA
TD 00550 3 00000 0 75035 TXH LFNB
TD 00551 3 00000 0 03273 TXH =-0
1 INITIATE AND TERMINATE DUMP TAPE FILE READS.....M.J.BAILEY..1/31/65 PAGE 11
TD 00552 3 00000 0 03273 TXH =-0
TD 00553 3 00000 0 00752 TXH TW ERROR
00554 0074 00 4 00007 TSX BUFFER,4
TD 00555 3 00000 0 75036 TXH LFNA
TD 00556 3 00000 0 75035 TXH LFNB
00557 2 01015 0 01410 TIX IB1,,LIB
*
00560 0074 00 4 00004 TSX RDWAIT,4 CHECK DAEMON'S TAPE I.D.
TD 00561 3 00000 0 75036 TXH LFNA
TD 00562 3 00000 0 75035 TXH LFNB
TD 00563 3 00000 0 03265 TXH =1
00564 2 01376 0 01377 TIX IDBF,,L9
TD 00565 3 00000 0 00760 TXH TX EOF, ERROR
TD 00566 3 00000 0 01375 TXH JK
TD 00567 3 00000 0 00752 TXH TW ERROR
*
00570 CMPWDS 8,IDBF,TAPEID,THA
00570 0774 00 1 00010 AXT 8,1 .001
00571 -0500 00 1 01407 CAL IDBF+8,1 .001
00572 -0340 00 1 02324 LAS TAPEID+8,1 .001
00573 0020 00 0 00600 TRA THA .001
00574 0020 00 0 00576 TRA *+2 .001
00575 0020 00 0 00600 TRA THA .001
00576 2 00001 1 00571 TIX *-5,1,1 .001
00577 0020 00 0 00604 TRA THB
00600 THA CLOSE LFNA,LFNB
00600 0074 00 4 00014 TSX CLOSE,4 .001
00601 3 00000 0 75036 PTH LFNA .001
00602 3 00000 0 75035 PTH LFNB .001
00603 0020 00 0 00530 TRA TG
*
00604 0500 00 0 01407 THB CLA IDBF+8 O.K., NOW CHECK REEL NO.
00605 0402 00 0 03265 SUB =1
00606 0402 00 0 02324 SUB TAPEID+8
00607 0100 00 0 00624 TZE TJ SKIP IF REEL ALL O.K.
00610 PRLINE ( REEL ORDER ERROR ON CHANNEL A.),6
00610 0074 00 4 00015 TSX WRFLX,4 .001
00611 0 00006 0 03213 ..002,,6 .001
RMT .001
..002 BCI 6, REEL ORDER ERROR ON CHANNEL A. .001
RMT .001
00612 0074 00 4 00017 TI TSX $ASKOPR,4
00613 3 00011 0 01354 PTH MESQ,,9
00614 3 00001 0 00621 PTH TJA,,CTINUE
00615 3 00010 0 01043 PTH MESD,,8
00616 3 00003 0 00075 PTH ABEXT,,CHLDFL
00617 3 00006 0 01365 PTH MESR,,6
00620 3 00010 0 00461 PTH TB,,CHREEL
*
00621 0500 00 0 01407 TJA CLA IDBF+8
00622 0601 00 0 02324 STO TAPEID+8
00623 0020 00 0 00627 TRA TJAX
*
00624 0500 00 0 02324 TJ CLA TAPEID+8 INCREMENT REEL NO.
00625 0400 00 0 03265 ADD =1
00626 0601 00 0 02324 STO TAPEID+8
1 INITIATE AND TERMINATE DUMP TAPE FILE READS.....M.J.BAILEY..1/31/65 PAGE 12
00627 TJAX SKIFNB TU
00627 0500 00 0 75041 CLA NOCHAN .001
00630 0402 00 0 03265 SUB =1 .001
00631 0100 00 0 00742 TZE TU .001
*
00632 TK SYN * (MOVED UMOUNT FOR B.COPY UP)
*
00632 0074 00 4 00012 TL TSX MOUNT,4 MOUNT NEW 'B' REEL
TD 00633 3 00000 0 03266 TXH =2
TD 00634 3 00000 0 75015 TXH BUN
00635 2 01270 0 01260 TIX MRB,,LMRB
00636 0774 00 2 00003 AXT 3,2
00637 0074 00 4 00006 TM TSX VERIFY,4 CHECK I/O SYSTEM LABEL
TD 00640 3 00000 0 75015 TXH BUN
00641 2 01016 0 75010 TIX LABEL,,L4
TD 00642 3 00000 0 00645 TXH TN
TD 00643 3 00000 0 01014 TXH ERCODE
00644 0020 00 0 00667 TRA TP SKIP IF O.K.
*
00645 0074 00 4 00016 TN TSX $PRNTER,4 VERIFICATION ERROR
00646 0500 00 0 01014 CLA ERCODE
00647 0402 00 0 03267 SUB =7
00650 0100 00 0 00652 TZE TO
00651 2 00001 2 00637 TIX TM,2,1
00652 0074 00 4 00013 TO TSX UMOUNT,4
TD 00653 3 00000 0 75015 TXH BUN
00654 2 01322 0 01306 TIX WRB,,LWRB
00655 0074 00 4 00017 BACK6 TSX $ASKOPR,4
00656 3 00006 0 01035 PTH MESC,,6
00657 3 00001 0 00632 PTH TL,,CTINUE
00660 3 00006 0 01043 PTH MESD,,6
00661 3 00003 0 00075 PTH QUITFL,,CHLDFL
00662 3 00006 0 01051 PTH MESE,,6
00663 3 00002 0 00664 PTH REST6,,PAUSE
*
00664 -0500 00 0 03271 REST6 CAL =45
00665 0074 00 4 00011 TSX SLEEP,4
00666 0020 00 0 00655 TRA BACK6
*
00667 0074 00 4 00010 TP TSX OPEN,4
TD 00670 3 00000 0 01013 TXH R
TD 00671 3 00000 0 75020 TXH BFNA
TD 00672 3 00000 0 75017 TXH BFNB
TD 00673 3 00000 0 03273 TXH =-0
TD 00674 3 00000 0 03273 TXH =-0
TD 00675 3 00000 0 00763 TXH TY ERROR
00676 0074 00 4 00007 TSX BUFFER,4
TD 00677 3 00000 0 75020 TXH BFNA
TD 00700 3 00000 0 75017 TXH BFNB
00701 2 01015 0 02325 TIX IB2,,LIB
*
00702 0074 00 4 00004 TSX RDWAIT,4 CHECK DAEMON I.D. LABEL
TD 00703 3 00000 0 75020 TXH BFNA
TD 00704 3 00000 0 75017 TXH BFNB
TD 00705 3 00000 0 03265 TXH =1
00706 3 00011 0 01377 TXH IDBF,,9
1 INITIATE AND TERMINATE DUMP TAPE FILE READS.....M.J.BAILEY..1/31/65 PAGE 13
TD 00707 3 00000 0 00771 TXH TZ EOF,ERROR
TD 00710 3 00000 0 01375 TXH JK
TD 00711 3 00000 0 00763 TXH TY ERROR
00712 CMPWDS 8,IDBF,TAPEID,TR
00712 0774 00 1 00010 AXT 8,1 .001
00713 -0500 00 1 01407 CAL IDBF+8,1 .001
00714 -0340 00 1 02324 LAS TAPEID+8,1 .001
00715 0020 00 0 00722 TRA TR .001
00716 0020 00 0 00720 TRA *+2 .001
00717 0020 00 0 00722 TRA TR .001
00720 2 00001 1 00713 TIX *-5,1,1 .001
00721 0020 00 0 00726 TRA TS
00722 TR CLOSE BFNA,BFNB
00722 0074 00 4 00014 TSX CLOSE,4 .001
00723 3 00000 0 75020 PTH BFNA .001
00724 3 00000 0 75017 PTH BFNB .001
00725 0020 00 0 00652 TRA TO
*
00726 0500 00 0 01407 TS CLA IDBF+8 NOW CHECK REEL NO.
00727 0402 00 0 02324 SUB TAPEID+8
00730 0100 00 0 00742 TZE TU SKIP IF REEL O.K.
00731 PRLINE ( POSSIBLE REEL ORDER ERROR ON CHANNEL B.),8
00731 0074 00 4 00015 TSX WRFLX,4 .001
00732 0 00010 0 03221 ..003,,8 .001
RMT .001
..003 BCI 8, POSSIBLE REEL ORDER ERROR ON CHANNEL B. .001
RMT .001
00733 0074 00 4 00017 TT TSX $ASKOPR,4
00734 3 00011 0 01354 PTH MESQ,,9
00735 3 00001 0 00742 PTH TU,,CTINUE
00736 3 00010 0 01365 PTH MESR,,8
00737 3 00010 0 00632 PTH TK,,CHREEL
00740 3 00006 0 01043 PTH MESD,,6
00741 3 00003 0 00075 PTH QUITFL,,CHLDFL
*
00742 0074 00 4 00002 TU TSX ATTACH,4
00743 3 00000 0 01010 PTH NM
00744 3 00000 0 01011 PTH NM+1
00745 0534 00 4 00376 LXA X4,4
00746 0534 00 3 00377 TV LXA X3,3
00747 0534 00 2 00400 LXA X2,2
00750 0534 00 1 00401 LXA X1,1
00751 0020 00 4 00004 TRA 4,4 EXIT
*
00752 0074 00 4 00016 TW TSX $PRNTER,4
00753 PRLINE ( ERROR AT START OF NEW REEL ON CHANNEL A.),7
00753 0074 00 4 00015 TSX WRFLX,4 .001
00754 0 00007 0 03231 ..004,,7 .001
RMT .001
..004 BCI 7, ERROR AT START OF NEW REEL ON CHANNEL A. .001
RMT .001
00755 TWA PRM MESP,9
00755 0074 00 4 00015 TSX WRFLX,4 .001
00756 0 00011 0 01343 MESP,,9 .001
00757 0020 00 0 00612 TRA TI
*
1 INITIATE AND TERMINATE DUMP TAPE FILE READS.....M.J.BAILEY..1/31/65 PAGE 14
00760 TX PRLINE ( EOF AT START OF NEW REEL ON CHANNEL A.),7
00760 0074 00 4 00015 TSX WRFLX,4 .001
00761 0 00007 0 03240 ..005,,7 .001
RMT .001
..005 BCI 7, EOF AT START OF NEW REEL ON CHANNEL A. .001
RMT .001
00762 0020 00 0 00755 TRA TWA
*
00763 0074 00 4 00016 TY TSX $PRNTER,4
00764 PRLINE ( ERROR AT START OF NEW REEL ON CHANNEL B.),7
00764 0074 00 4 00015 TSX WRFLX,4 .001
00765 0 00007 0 03247 ..006,,7 .001
RMT .001
..006 BCI 7, ERROR AT START OF NEW REEL ON CHANNEL B. .001
RMT .001
00766 TYA PRM MESP,9
00766 0074 00 4 00015 TSX WRFLX,4 .001
00767 0 00011 0 01343 MESP,,9 .001
00770 0020 00 0 00733 TRA TT
*
00771 TZ PRLINE ( EOF AT START OF NEW REEL ON CHANNEL B.),7
00771 0074 00 4 00015 TSX WRFLX,4 .001
00772 0 00007 0 03256 ..007,,7 .001
RMT .001
..007 BCI 7, EOF AT START OF NEW REEL ON CHANNEL B. .001
RMT .001
00773 0020 00 0 00766 TRA TYA
*
* - - - - - - - - - - - - - - - - - - - - -
* CONSTANTS AND VARIABLES
* - - - - - - - - - - - - - - - - - - - - -
*
00774 PBF BSS 12
01010 NM BSS 2
01012 0 00000 0 00000 IDERR PZE
01013 516060606060 R BCI 1,R
01014 0 00000 0 00000 ERCODE PZE
01015 0 00000 0 00660 LIB PZE RECSIZ
01016 0 00000 0 00004 L4 PZE 4
01017 0 00000 0 00010 L8 PZE 8
01020 603133243360 MESA BCI 8, I.D. RECORD ON 1ST COPY OF TAPE FILE IS UNREAD.
01030 602551514651 MESB BCI 5, ERROR OPENING DUMP TAPE FILE.
01035 606346602346 MESC BCI 6, TO CONTINUE WITH THIS LOAD FILE,
01043 606346606462 MESD BCI 6, TO USE DIFFERENT LOAD FILE, OR
01051 606346606264 MESE BCI 6, TO SUSPEND LOADING FOR 1 MIN..
01057 602545246046 MESF BCI 8, END OF FILE IN WRONG PLACE ON 1ST TAPE COPY.
01067 314523465151 WRNGT2 BCI 9,INCORRECT TAPE MOUNTED AS 2ND COPY OF LOAD FILE.
01100 604743252162 BCI 3, PLEASE REMOVE IT.
01103 0 00000 0 00014 LWT2 PZE *-WRNGT2
01104 604446644563 RMT2 BCI 7, MOUNT ANOTHER TAPE ON THE 2ND CHANNEL.
01113 0 00000 0 00007 LRMT2 PZE *-RMT2
01114 600245246023 BADT2 BCI 8, 2ND COPY OF LOAD FILE UNREAD AFTER 10 TRIES TO
01124 652551312670 BCI 6,VERIFY ITS I.D.. PLEASE REMOVE IT.
01132 0 00000 0 00016 LBT2 PZE *-BADT2
01133 606445444664 UMA BCI 6, UNMOUNT TAPE FILE ON MAIN CHANNEL.
01141 0 00000 0 00006 LUMA PZE *-UMA
1 INITIATE AND TERMINATE DUMP TAPE FILE READS.....M.J.BAILEY..1/31/65 PAGE 15
01142 606445444664 UMB BCI 7, UNMOUNT TAPE FILE ON SECONDARY CHANNEL.
01151 0 00000 0 00007 LUMB PZE *-UMB
01152 603133243360 MESG BCI 9, I.D. LABELS ON BOTH COPIES OF NEW LOAD FILE MATCH O.K.
01163 602464444760 MESH BCI 7, DUMP TAPE FILE STARTING TO LOAD IS A
01172 602464444731 MESI BCI 9, DUMPING ON THIS TAPE FILE BEGAN AT ON
01203 604546602631 MESJ BCI 8, NO FILE CREATED LATER THAN ON
01213 603162602464 MESK BCI 5, IS DUMPED ON THIS TAPE FILE.
01220 604346212431 MESL BCI 7, LOADING FINISHED FROM THIS TAPE FILE
01227 605125444665 UMRA BCI 7, REMOVE CHANNEL A REEL OF RELOAD FILE.
01236 0 00000 0 00007 LUMRA PZE *-UMRA
01237 605125444665 UMRB BCI 7, REMOVE CHANNEL B REEL OF RELOAD FILE.
01246 0 00000 0 00007 LUMRB PZE *-UMRB
01247 604446644563 MRA BCI 8, MOUNT ANOTHER REEL OF RELOAD FILE ON CHANNEL A
01257 0 00000 0 00010 LMRA PZE *-MRA
01260 604446644563 MRB BCI 8, MOUNT ANOTHER REEL OF RELOAD FILE ON CHANNEL B
01270 0 00000 0 00010 LMRB PZE *-MRB
01271 606651464527 WRA BCI 8, WRONG REEL MOUNTED ON CHANNEL A FOR RELOAD, NOT
01301 602225434645 BCI 4, BELONGING TO THIS SET.
01305 0 00000 0 00014 LWRA PZE *-WRA
01306 606651464527 WRB BCI 8, WRONG REEL MOUNTED ON CHANNEL B FOR RELOAD, NOT
01316 602225434645 BCI 4, BELONGING TO THIS SET.
01322 0 00000 0 00014 LWRB PZE *-WRB
01323 603126606330 MESM BCI 8, IF THIS WAS LAST REEL OF THIS RELOAD FILE, OR
01333 603126606330 MESN BCI 8, IF THERE IS ANOTHER REEL TO THIS RELOAD FILE
01343 512525436045 MESP BCI 9,REEL NO. UNCHECKED, FUTURE REEL NO. ERRORS COULD OCCUR
01354 606346605125 MESQ BCI 9, TO RESUME RE-LOADING WITH THIS REEL NEVERTHELESS
01365 603126607046 MESR BCI 8, IF YOU WISH TO CHANGE THIS REEL FOR ANOTHER
01375 0 00000 0 00000 JK PZE
01376 0 00000 0 00011 L9 PZE 9
01377 IDBF BSS 9
00660 RECSIZ EQU 432
01410 IB1 BSS 432
02270 WBF BSS 20
02314 TAPEID BSS 9
02325 IB2 BSS 432
*
INSERT BCMEQB
*
* - - - - - - - - - - - - - - - - - -
* COMMON AND EQUIVALENCE FOR SECONDARY STORAGE LOAD
* (TIME-SHARING VERSION)
* - - - - - - - - - - - - - - - - - -
*
075045 DEMKEY BOOL 75045 CORE A LOCATION FOR DAEMON KEY SETTING
*
000017 BASE BOOL 17 KEY CODE BASE
000001 CTINUE BOOL 1 KEY CODE TO CONTINUE WITH PROGRAM,NO CHANGE
000002 PAUSE BOOL 2 KEY CODE TO WAIT 60 SECS.
000003 CHLDFL BOOL 3 KEY CODE TO USE DIFFERENT LOAD FILE
000004 STOPLD BOOL 4 KEY CODE TO STOP LOADING, START DUMPING
000005 ABANKY BOOL 5 KEY CODE TO ABANDON LOAD TAPE FILE
000006 SWCHAN BOOL 6 KEY CODE TO GO FROM 1 OR 2 TO 2 OR 1 CHANS.
000007 LSREEL BOOL 7 KEY CODE TO INDICATE LAST REEL OF LOAD FILE
000010 CHREEL BOOL 10 KEY CODE TO CORRECT REEL ORDER ERROR
77777 NEWCOM EQU -1 TOP OF MEMORY
077461 OLDCOM BOOL 77461 OLD TOP OF COMMON
1 INITIATE AND TERMINATE DUMP TAPE FILE READS.....M.J.BAILEY..1/31/65 PAGE 16
77462 COMRLC EQU OLDCOM-NEWCOM RELOCATION FACTOR
77777 COMMON COMRLC RELOCATE COMMON
01355 UF EQU 32767/2-DEMKEY/2 LENGTH OF USER LIST
77777 UFL COMMON 2*UF USER FILE LIST (1ST PARTS OF FILE NAMES)
75044 COMMON 1 INSERT DUMMY IF NECESSARY
75043 COMMON 1 DEMKEY CELL IN NON-CTSS VERSION
75043 KEYVAL COMMON 1
75042 ABANTP COMMON 1 ABANDON TAPE FILE INDICATOR
75041 NOCHAN COMMON 1 NO. OF CHANNELS BEING READ (1 OR 2)
75040 DU COMMON 1 PROBLEM NO. OF DUMP/LOAD PACKAGE
75037 DP COMMON 1 PROGRAMMER NO. OF DITTO.
75036 LFNA COMMON 1 LOAD TAPE FILE NAME (PART 1)
75035 LFNB COMMON 1 ,, ,, ,, ,, (PART 2)
75021 COMMON 11 DUMPED FILE'S PREAMBLE FROM DUMP TAPE
75021 PREAM COMMON 1 DUMPED FILE'S DUMP TAPE PREAMBLE 1ST WORD
75020 BFNA COMMON 1 CHANNEL B LOAD TAPE FILE NAME (PART 1)
75017 BFNB COMMON 1 CHANNEL B LOAD TAPE FILE NAME (PART 2)
75016 AUN COMMON 1 CHANNEL A UNIT NO.
75015 BUN COMMON 1 CHANNEL B UNIT NO.
75014 TEOF COMMON 1 TAPE EOF INDICATOR/WORD COUNT
75010 COMMON 3 LABEL OF TAPE FILE CURRENTLY BEING LOADED
75010 LABEL COMMON 1 LABEL OF TAPE FILE DITTO. 1ST WORD
75007 X COMMON 1 TAPE FILE POINTER
END
REMOTE SEQUENCES
03205 602545246046 ..001 BCI 6, END OF REEL ON RELOAD TAPE FILE. .001
03213 605125254360 ..002 BCI 6, REEL ORDER ERROR ON CHANNEL A. .001
03221 604746626231 ..003 BCI 8, POSSIBLE REEL ORDER ERROR ON CHANNEL B. .001
03231 602551514651 ..004 BCI 7, ERROR AT START OF NEW REEL ON CHANNEL A. .001
03240 602546266021 ..005 BCI 7, EOF AT START OF NEW REEL ON CHANNEL A. .001
03247 602551514651 ..006 BCI 7, ERROR AT START OF NEW REEL ON CHANNEL B. .001
03256 602546266021 ..007 BCI 7, EOF AT START OF NEW REEL ON CHANNEL B. .001
1 INITIATE AND TERMINATE DUMP TAPE FILE READS.....M.J.BAILEY..1/31/65 PAGE 1
POST PROCESSOR ASSEMBLY DATA
75006 IS THE LAST LOCATION NOT USED BY THIS PROGRAM
3276 IS THE FIRST LOCATION NOT USED BY THIS PROGRAM
0REFERENCES TO DEFINED SYMBOLS
1013 R 101, 213, 546, 670
75007 X 114, 121, 137, 141, 226, 233, 244, 246, 375, 3205
75037 DP 460, 3205
75040 DU 457, 3205
77 IA 31, 40, 170
116 IB 142
136 IC 125
162 ID 106
200 IE 123
206 IG 135, 161, 300
212 IH 275
230 II 247
243 IJ 237
272 IK 220
275 IL 317
310 IM 235
320 IO 241
330 IP 323, 325
337 IQ 327
342 IR 242, 262
350 IS 210, 341, 343
374 IT 364
1375 JK 566, 710
1016 L4 517, 641
1017 L8 234
1376 L9 564
1010 NM 455, 743, 744
461 TB 620
510 TD 535
515 TE 527
523 TF 520
530 TG 526, 603
545 TH 522
612 TI 757
624 TJ 607
632 TK 632, 737
632 TL 657
637 TM 651
645 TN 642
652 TO 650, 725
667 TP 644
722 TR 715, 717
726 TS 721
733 TT 770
742 TU 631, 730, 735
746 TV 453
752 TW 553, 567
760 TX 565
763 TY 675, 711
771 TZ 707
1 INITIATE AND TERMINATE DUMP TAPE FILE READS.....M.J.BAILEY..1/31/65 PAGE 2
POST PROCESSOR ASSEMBLY DATA
1355 UF 3205
401 X1 22, 437, 750
400 X2 23, 440, 747
377 X3 24, 76, 441, 746
376 X4 25, 75, 442, 452, 745
75016 AUN 430, 502, 512, 516, 531, 3205
75015 BUN 34, 47, 65, 72, 433, 505, 634, 640, 653, 3205
100 IAA 165
1410 IB1 112, 557
2325 IB2 224, 701
165 IDA 205
1015 LIB 112, 224, 557, 701
1247 MRA 513, 1257
1260 MRB 635, 1270
774 PBF
454 TB1 451
600 THA 573, 575
604 THB 577
621 TJA 614
755 TWA 762
435 TX4 403
766 TYA 773
77777 UFL 3205
1133 UMA 431, 1141
1142 UMB 434, 1151
2270 WBF 122, 131, 234, 321, 322, 345, 346, 353, 355, 357, 363
1271 WRA 532, 1305
1306 WRB 654, 1322
145 BACK 156
17 BASE 3205
75020 BFNA 214, 222, 231, 315, 334, 420, 424, 472, 476, 671, 677, 703, 723, 3205
75017 BFNB 215, 223, 232, 316, 335, 421, 425, 473, 477, 672, 700, 704, 724, 3205
63 CONT 53
452 EOTF 447
1377 IDBF 564, 571, 604, 621, 706, 713, 726
1132 LBT2 73
75036 LFNA 102, 110, 117, 203, 331, 410, 414, 462, 466, 547, 555, 561, 601, 3205
75035 LFNB 103, 111, 120, 204, 332, 411, 415, 463, 467, 550, 556, 562, 602, 3205
1257 LMRA 513
1270 LMRB 635
1141 LUMA 431
1151 LUMB 434
1305 LWRA 532
1322 LWRB 654
1103 LWT2 50
1020 MESA 144, 251, 253, 255
1030 MESB 163, 273
1035 MESC 52, 146, 167, 261, 277, 534, 656
1043 MESD 54, 150, 171, 263, 301, 536, 615, 660, 740
1051 MESE 56, 152, 173, 265, 303, 540, 662
1057 MESF 201, 311, 313
1152 MESG 340
1163 MESH 351
1172 MESI 356, 360, 362
1203 MESJ 366, 367, 371
1 INITIATE AND TERMINATE DUMP TAPE FILE READS.....M.J.BAILEY..1/31/65 PAGE 3
POST PROCESSOR ASSEMBLY DATA
1213 MESK 373
1220 MESL 406
1323 MESM 446
1333 MESN 450
1343 MESP 756, 767
1354 MESQ 613, 734
1365 MESR 617, 736
10 OPEN 100, 212, 545, 667
60 REST 57
1104 RMT2 66, 1113
75014 TEOF 124, 236, 3205
627 TJAX 623
1227 UMRA 503, 1236
1237 UMRB 506, 1246
75 ABEXT 537, 616
166 BACK1 177
260 BACK2 271
276 BACK3 307
533 BACK5 544
655 BACK6 666
1114 BADT2 73, 1132
14 CLOSE 202, 314, 330, 333, 413, 423, 465, 475, 600, 722
157 CONT1 147
5 FWAIT 407, 417, 461, 471
1012 IDERR 127, 160, 240, 256, 342
1 IOBDT 365
3205 ..001 444
3213 ..002 611
3221 ..003 732
3231 ..004 754
3240 ..005 761
3247 ..006 765
3256 ..007 772
75010 LABEL 35, 517, 641, 3205
1113 LRMT2 66
1236 LUMRA 503
1246 LUMRB 506
12 MOUNT 63, 510, 632
2 PAUSE 57, 153, 174, 266, 304, 541, 663, 3205
75021 PREAM 3205
154 REST1 153
175 REST2 174
267 REST3 266
305 REST4 304
542 REST5 541
664 REST6 663
11 SLEEP 61, 155, 176, 270, 306, 543, 665
15 WRFLX 143, 162, 200, 254, 272, 312, 337, 350, 352, 361, 370, 372, 405, 443, 610, 731, 753
755, 760, 764, 766, 771
5 ABANKY 3205
75042 ABANTP 3205
17 ASKOPR 51, 145, 166, 260, 276, 445, 533, 612, 655, 733
2 ATTACH 456, 742
3 ATTNAM 454
7 BUFFER 107, 221, 554, 676
1 INITIATE AND TERMINATE DUMP TAPE FILE READS.....M.J.BAILEY..1/31/65 PAGE 4
POST PROCESSOR ASSEMBLY DATA
33 CHCKBA 45, 67, 70
41 CHCKBB 36
51 CHCKBC 62, 74
70 CHCKBD 44
3 CHLDFL 55, 151, 172, 264, 302, 537, 616, 661, 741, 3205
10 CHREEL 620, 737, 3205
77462 COMRLC 3205
1 CTINUE 53, 147, 170, 262, 300, 451, 535, 614, 657, 735, 3205
75045 DEMKEY 3205
1014 ERCODE 37, 42, 521, 524, 643, 646
0 GETLSG 26, 126, 354, 404
22 INITTF 0
75043 KEYVAL 3205
7 LSREEL 447, 3205
77777 NEWCOM 3205
75041 NOCHAN 27, 206, 627, 3205
77461 OLDCOM 3205
16 PRNTER 41, 136, 164, 243, 274, 523, 645, 752, 763
75 QUITFL 55, 75, 151, 172, 257, 264, 302, 661, 741
4 RDWAIT 116, 230, 560, 702
660 RECSIZ 115, 227, 374, 1015, 1410
4 STOPLD 3205
6 SWCHAN 3205
2314 TAPEID 132, 134, 572, 606, 622, 624, 626, 714, 727
403 TERMTF 0
437 TSTEOF 0
13 UMOUNT 46, 71, 427, 432, 501, 504, 530, 652
6 VERIFY 33, 515, 637
1067 WRNGT2 50, 1103
46 WRONGB 336
0 NO ERROR IN ABOVE ASSEMBLY.
LRFLDC BCD 09/19/68 1941.6 1348 00000
1 READ NEXT ENTRY FROM DISK U.F.D. FILE....M.J.BAILEY,2/5/65 PAGE 1
* (TIME-SHARING VERSION)
*
00003 ENTRY GETLSG GET LOADER SIGNALS FROM KEYS VIA CORE A
*
*
* - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
* GET KEY SETTINGS VIA CORE A, POSSIBLY SET LOADER SWITCHES
* - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
*
TRANSFER VECTOR
00000 272563216060 GETA
LINKAGE DIRECTOR
00001 000000000000
00002 272563436227
00003 0634 00 1 00030 GETLSG SXA GGX,1
00004 0074 00 7 00000 TSX $GETA,7
00005 0560 00 0 75045 LDQ DEMKEY
00006 -0600 00 0 75043 STQ KEYVAL
00007 0074 00 7 00000 TSX $GETA,7
00010 0600 00 0 75045 STZ DEMKEY
00011 0774 00 1 00005 AXT ABANKY,1
00012 0754 00 1 00000 PXA 0,1
00013 0402 00 0 75043 SUB KEYVAL
00014 -0100 00 0 00017 TNZ GGA
00015 -0625 00 0 75042 STL ABANTP
00016 0020 00 0 00030 TRA GGX
00017 0774 00 1 00006 GGA AXT SWCHAN,1
00020 0754 00 1 00000 PXA 0,1
00021 0402 00 0 75043 SUB KEYVAL
00022 -0100 00 0 00030 TNZ GGX
00023 0534 00 1 75041 LXA NOCHAN,1
00024 1 00001 1 00025 TXI *+1,1,1
00025 -3 00002 1 00027 TXL GGB,1,2
00026 0774 00 1 00001 AXT 1,1
00027 0634 00 1 75041 GGB SXA NOCHAN,1
00030 0774 00 1 00000 GGX AXT **,1
00031 0020 00 4 00001 TRA 1,4
*
INSERT BCMEQB
*
* - - - - - - - - - - - - - - - - - -
* COMMON AND EQUIVALENCE FOR SECONDARY STORAGE LOAD
* (TIME-SHARING VERSION)
* - - - - - - - - - - - - - - - - - -
*
075045 DEMKEY BOOL 75045 CORE A LOCATION FOR DAEMON KEY SETTING
*
000017 BASE BOOL 17 KEY CODE BASE
000001 CTINUE BOOL 1 KEY CODE TO CONTINUE WITH PROGRAM,NO CHANGE
000002 PAUSE BOOL 2 KEY CODE TO WAIT 60 SECS.
000003 CHLDFL BOOL 3 KEY CODE TO USE DIFFERENT LOAD FILE
000004 STOPLD BOOL 4 KEY CODE TO STOP LOADING, START DUMPING
000005 ABANKY BOOL 5 KEY CODE TO ABANDON LOAD TAPE FILE
1 READ NEXT ENTRY FROM DISK U.F.D. FILE....M.J.BAILEY,2/5/65 PAGE 2
000006 SWCHAN BOOL 6 KEY CODE TO GO FROM 1 OR 2 TO 2 OR 1 CHANS.
000007 LSREEL BOOL 7 KEY CODE TO INDICATE LAST REEL OF LOAD FILE
000010 CHREEL BOOL 10 KEY CODE TO CORRECT REEL ORDER ERROR
77777 NEWCOM EQU -1 TOP OF MEMORY
077461 OLDCOM BOOL 77461 OLD TOP OF COMMON
77462 COMRLC EQU OLDCOM-NEWCOM RELOCATION FACTOR
77777 COMMON COMRLC RELOCATE COMMON
01355 UF EQU 32767/2-DEMKEY/2 LENGTH OF USER LIST
77777 UFL COMMON 2*UF USER FILE LIST (1ST PARTS OF FILE NAMES)
75044 COMMON 1 INSERT DUMMY IF NECESSARY
75043 COMMON 1 DEMKEY CELL IN NON-CTSS VERSION
75043 KEYVAL COMMON 1
75042 ABANTP COMMON 1 ABANDON TAPE FILE INDICATOR
75041 NOCHAN COMMON 1 NO. OF CHANNELS BEING READ (1 OR 2)
75040 DU COMMON 1 PROBLEM NO. OF DUMP/LOAD PACKAGE
75037 DP COMMON 1 PROGRAMMER NO. OF DITTO.
75036 LFNA COMMON 1 LOAD TAPE FILE NAME (PART 1)
75035 LFNB COMMON 1 ,, ,, ,, ,, (PART 2)
75021 COMMON 11 DUMPED FILE'S PREAMBLE FROM DUMP TAPE
75021 PREAM COMMON 1 DUMPED FILE'S DUMP TAPE PREAMBLE 1ST WORD
75020 BFNA COMMON 1 CHANNEL B LOAD TAPE FILE NAME (PART 1)
75017 BFNB COMMON 1 CHANNEL B LOAD TAPE FILE NAME (PART 2)
75016 AUN COMMON 1 CHANNEL A UNIT NO.
75015 BUN COMMON 1 CHANNEL B UNIT NO.
75014 TEOF COMMON 1 TAPE EOF INDICATOR/WORD COUNT
75010 COMMON 3 LABEL OF TAPE FILE CURRENTLY BEING LOADED
75010 LABEL COMMON 1 LABEL OF TAPE FILE DITTO. 1ST WORD
75007 X COMMON 1 TAPE FILE POINTER
END
1 READ NEXT ENTRY FROM DISK U.F.D. FILE....M.J.BAILEY,2/5/65 PAGE 1
POST PROCESSOR ASSEMBLY DATA
75006 IS THE LAST LOCATION NOT USED BY THIS PROGRAM
32 IS THE FIRST LOCATION NOT USED BY THIS PROGRAM
0REFERENCES TO DEFINED SYMBOLS
75007 X 32
75037 DP 32
75040 DU 32
1355 UF 32
75016 AUN 32
75015 BUN 32
17 GGA 14
27 GGB 25
30 GGX 3, 16, 22
77777 UFL 32
17 BASE 32
75020 BFNA 32
75017 BFNB 32
0 GETA 4, 7
75036 LFNA 32
75035 LFNB 32
75014 TEOF 32
75010 LABEL 32
2 PAUSE 32
75021 PREAM 32
5 ABANKY 11, 32
75042 ABANTP 15, 32
3 CHLDFL 32
10 CHREEL 32
77462 COMRLC 32
1 CTINUE 32
75045 DEMKEY 5, 10, 32
3 GETLSG 0
75043 KEYVAL 6, 13, 21, 32
7 LSREEL 32
77777 NEWCOM 32
75041 NOCHAN 23, 27, 32
77461 OLDCOM 32
4 STOPLD 32
6 SWCHAN 17, 32
0 NO ERROR IN ABOVE ASSEMBLY.
ASKOPR BCD 09/19/68 1941.6 1876 00000
1 SUBROUTINE TO TALK TO OPERATOR AND CONVERSE UNTIL WE GET AN ANSWER PAGE 1
*
*
00006 ENTRY ASKOPR
*
*
TRANSFER VECTOR
00000 272563216060 GETA
00001 475123462425 PRCODE
00002 624325254760 SLEEP
00003 272563436227 GETLSG
LINKAGE DIRECTOR
00004 000000000000
00005 216242464751
00006 0634 00 1 00064 ASKOPR SXA ASK1,1
00007 0634 00 2 00065 SXA ASK2,2
00010 0634 00 3 00066 SXA ASK3,3
00011 0634 00 4 00067 SXA ASK4,4
00012 0634 00 7 00070 SXA ASK7,7
00013 0074 00 7 00000 TSX $GETA,7
00014 0600 00 0 75045 STZ DEMKEY
00015 0754 00 4 00000 PXA ,4
00016 0734 00 2 00000 PAX ,2
00017 0774 00 1 00000 AXT 0,1
00020 -0500 00 2 00001 MORMES CAL 1,2
00021 0602 00 0 00031 SLW MESS+1
00022 0074 00 4 00100 TSX CKOP,4
TD 00023 3 00000 0 00034 TXH SNOOZE
00024 -0500 00 2 00002 CAL 2,2
00025 -0734 00 3 00000 PDX ,3
00026 0634 00 3 00030 SXA MESS,3
00027 0074 00 4 00001 TSX $PRCODE,4
00030 3 00000 0 00000 MESS PTH **
00031 3 00000 0 00000 PTH **,,**
00032 1 00002 1 00033 TXI *+1,1,2
00033 1 77776 2 00020 TXI MORMES,2,-2
00034 -3 00000 1 00072 SNOOZE TXL ABORT,1,0
00035 -0500 00 0 00105 CAL =15
00036 0074 00 4 00002 TSX $SLEEP,4
00037 -0634 00 1 00040 SXD *+1,1
00040 1 00000 2 00041 TXI *+1,2,**
00041 0074 00 4 00003 TSX $GETLSG,4
00042 0774 00 1 00000 AXT 0,1
00043 -0500 00 2 00001 NOMTCH CAL 1,2
00044 0074 00 4 00100 TSX CKOP,4
00045 3 00000 0 00061 PTH REPTMS
00046 -0500 00 2 00002 CAL 2,2
00047 0621 00 0 00071 STA TRAFER
00050 -0734 00 3 00000 PDX ,3
00051 0074 00 4 00100 TSX CKOP,4
TD 00052 3 00000 0 00061 TXH REPTMS
00053 -0754 00 0 00000 ZAC
00054 0754 00 3 00000 PXA ,3
00055 0402 00 0 75043 SUB KEYVAL
1 SUBROUTINE TO TALK TO OPERATOR AND CONVERSE UNTIL WE GET AN ANSWER PAGE 2
00056 0100 00 0 00064 TZE FOUND
00057 1 00002 1 00060 TXI *+1,1,2
00060 1 77776 2 00043 TXI NOMTCH,2,-2
00061 -3 00000 1 00072 REPTMS TXL ABORT,1,0
00062 -0634 00 1 00063 SXD *+1,1
00063 1 00000 2 00017 TXI MORMES-1,2,**
*
00064 FOUND EQU *
00064 0774 00 1 00000 ASK1 AXT **,1
00065 0774 00 2 00000 ASK2 AXT **,2
00066 0774 00 3 00000 ASK3 AXT **,3
00067 0774 00 4 00000 ASK4 AXT **,4
00070 0774 00 7 00000 ASK7 AXT **,7
00071 0020 00 0 00000 TRAFER TRA **
*
*
00072 0534 00 4 00067 ABORT LXA ASK4,4
00073 0534 00 3 00066 LXA ASK3,3
00074 0534 00 2 00065 LXA ASK2,2
00075 0534 00 1 00064 LXA ASK1,1
00076 0534 00 7 00070 LXA ASK7,7
00077 0020 00 4 00001 TRA 1,4
*
00100 -0320 00 0 00107 CKOP ANA =O700000000000
00101 -0340 00 0 00106 LAS =O300000000000
00102 0020 60 4 00001 TRA* 1,4
00103 0020 00 4 00002 TRA 2,4
00104 0020 60 4 00001 TRA* 1,4
*
INSERT BCMEQB
*
* - - - - - - - - - - - - - - - - - -
* COMMON AND EQUIVALENCE FOR SECONDARY STORAGE LOAD
* (TIME-SHARING VERSION)
* - - - - - - - - - - - - - - - - - -
*
075045 DEMKEY BOOL 75045 CORE A LOCATION FOR DAEMON KEY SETTING
*
000017 BASE BOOL 17 KEY CODE BASE
000001 CTINUE BOOL 1 KEY CODE TO CONTINUE WITH PROGRAM,NO CHANGE
000002 PAUSE BOOL 2 KEY CODE TO WAIT 60 SECS.
000003 CHLDFL BOOL 3 KEY CODE TO USE DIFFERENT LOAD FILE
000004 STOPLD BOOL 4 KEY CODE TO STOP LOADING, START DUMPING
000005 ABANKY BOOL 5 KEY CODE TO ABANDON LOAD TAPE FILE
000006 SWCHAN BOOL 6 KEY CODE TO GO FROM 1 OR 2 TO 2 OR 1 CHANS.
000007 LSREEL BOOL 7 KEY CODE TO INDICATE LAST REEL OF LOAD FILE
000010 CHREEL BOOL 10 KEY CODE TO CORRECT REEL ORDER ERROR
77777 NEWCOM EQU -1 TOP OF MEMORY
077461 OLDCOM BOOL 77461 OLD TOP OF COMMON
77462 COMRLC EQU OLDCOM-NEWCOM RELOCATION FACTOR
77777 COMMON COMRLC RELOCATE COMMON
01355 UF EQU 32767/2-DEMKEY/2 LENGTH OF USER LIST
77777 UFL COMMON 2*UF USER FILE LIST (1ST PARTS OF FILE NAMES)
75044 COMMON 1 INSERT DUMMY IF NECESSARY
75043 COMMON 1 DEMKEY CELL IN NON-CTSS VERSION
75043 KEYVAL COMMON 1
1 SUBROUTINE TO TALK TO OPERATOR AND CONVERSE UNTIL WE GET AN ANSWER PAGE 3
75042 ABANTP COMMON 1 ABANDON TAPE FILE INDICATOR
75041 NOCHAN COMMON 1 NO. OF CHANNELS BEING READ (1 OR 2)
75040 DU COMMON 1 PROBLEM NO. OF DUMP/LOAD PACKAGE
75037 DP COMMON 1 PROGRAMMER NO. OF DITTO.
75036 LFNA COMMON 1 LOAD TAPE FILE NAME (PART 1)
75035 LFNB COMMON 1 ,, ,, ,, ,, (PART 2)
75021 COMMON 11 DUMPED FILE'S PREAMBLE FROM DUMP TAPE
75021 PREAM COMMON 1 DUMPED FILE'S DUMP TAPE PREAMBLE 1ST WORD
75020 BFNA COMMON 1 CHANNEL B LOAD TAPE FILE NAME (PART 1)
75017 BFNB COMMON 1 CHANNEL B LOAD TAPE FILE NAME (PART 2)
75016 AUN COMMON 1 CHANNEL A UNIT NO.
75015 BUN COMMON 1 CHANNEL B UNIT NO.
75014 TEOF COMMON 1 TAPE EOF INDICATOR/WORD COUNT
75010 COMMON 3 LABEL OF TAPE FILE CURRENTLY BEING LOADED
75010 LABEL COMMON 1 LABEL OF TAPE FILE DITTO. 1ST WORD
75007 X COMMON 1 TAPE FILE POINTER
END
LITERALS
00105 000000000017
00106 300000000000
00107 700000000000
1 SUBROUTINE TO TALK TO OPERATOR AND CONVERSE UNTIL WE GET AN ANSWER PAGE 1
POST PROCESSOR ASSEMBLY DATA
75006 IS THE LAST LOCATION NOT USED BY THIS PROGRAM
110 IS THE FIRST LOCATION NOT USED BY THIS PROGRAM
0REFERENCES TO DEFINED SYMBOLS
75007 X 105
75037 DP 105
75040 DU 105
1355 UF 105
75016 AUN 105
75015 BUN 105
77777 UFL 105
64 ASK1 6, 75
65 ASK2 7, 74
66 ASK3 10, 73
67 ASK4 11, 72
70 ASK7 12, 76
17 BASE 105
75020 BFNA 105
75017 BFNB 105
100 CKOP 22, 44, 51
0 GETA 13
75036 LFNA 105
75035 LFNB 105
30 MESS 21, 26
75014 TEOF 105
72 ABORT 34, 61
64 FOUND 56, 64
75010 LABEL 105
2 PAUSE 105
75021 PREAM 105
2 SLEEP 36
5 ABANKY 105
75042 ABANTP 105
6 ASKOPR 0
3 CHLDFL 105
10 CHREEL 105
77462 COMRLC 105
1 CTINUE 105
75045 DEMKEY 14, 105
3 GETLSG 41
75043 KEYVAL 55, 105
7 LSREEL 105
20 MORMES 33, 63
77777 NEWCOM 105
75041 NOCHAN 105
43 NOMTCH 60
77461 OLDCOM 105
1 PRCODE 27
61 REPTMS 45, 52
34 SNOOZE 23
4 STOPLD 105
6 SWCHAN 105
71 TRAFER 47
1 SUBROUTINE TO TALK TO OPERATOR AND CONVERSE UNTIL WE GET AN ANSWER PAGE 2
POST PROCESSOR ASSEMBLY DATA
0 NO ERROR IN ABOVE ASSEMBLY.
GETA1 BCD 09/19/68 1941.6 223 00000
1 PAGE 1
COMPATIBILITY PACKAGE FOR STAND-ALONE DAAEMON
BINARY CARD NO. GETA1000
00002 ENTRY NGETA
00002 ENTRY GETA
LINKAGE DIRECTOR
BINARY CARD NO. GETA1001
00000 000000000000
00001 452725632160
00002 NGETA EQU *
00002 0522 00 7 00001 GETA XEC 1,7 EXECUTE INSTRUCTION
00003 0020 00 7 00002 TRA 2,7 RETURN
END
1 PAGE 1
POST PROCESSOR ASSEMBLY DATA
4 IS THE FIRST LOCATION NOT USED BY THIS PROGRAM
0REFERENCES TO DEFINED SYMBOLS
2 GETA 0
2 NGETA 0, 2
0 NO ERROR IN ABOVE ASSEMBLY.
SLEEP BCD 09/19/68 1941.7 404 00000
1 PAGE 1
STAND-ALONE WRITE AROUND FOR SLEEP
BINARY CARD NO. SLEEP000
00003 ENTRY SLEEP
EXTERN GETIME
TRANSFER VECTOR
BINARY CARD NO. SLEEP001
00000 272563314425 GETIME
LINKAGE DIRECTOR
00001 000000000000
00002 624325254760
00003 0634 00 4 00017 SLEEP SXA IR4,4
00004 0131 00 0 00000 XCA
00005 0200 00 0 00022 MPY =60
00006 -0600 00 0 00021 STQ OUTIME
00007 0074 00 4 00000 TSX GETIME,4
00010 0400 00 0 00021 ADD OUTIME
00011 0601 00 0 00021 STO OUTIME
00012 0074 00 4 00000 TEST TSX GETIME,4
00013 0340 00 0 00021 CAS OUTIME
00014 0020 00 0 00017 TRA SCRAM
00015 0020 00 0 00017 TRA SCRAM
00016 0020 00 0 00012 TRA TEST
00017 IR4 EQU *
00017 0774 00 4 00000 SCRAM AXT **,4
00020 0020 00 4 00001 TRA 1,4
00021 0 00000 0 00000 OUTIME PZE
END
LITERALS
00022 000000000074
1 PAGE 1
POST PROCESSOR ASSEMBLY DATA
23 IS THE FIRST LOCATION NOT USED BY THIS PROGRAM
0REFERENCES TO DEFINED SYMBOLS
17 IR4 3, 17
12 TEST 16
17 SCRAM 14, 15
3 SLEEP 0
0 GETIME 7, 12
21 OUTIME 6, 10, 11, 13
0 NO ERROR IN ABOVE ASSEMBLY.
NLREC BCD 09/19/68 1941.8 1447 00000
1 MAD PROGRAM LISTING ... ... ... FILE NLREC MAD 09/19/68 1924.3
-
EXTERNAL FUNCTION (NRECS,IRC,LRC,LTRC,LPREAM,LPHYS,NFLR,NLAST *001 000001
1 ) *001 000002
ENTRY TO NLREC . *002 000003
NWDS=(NRECS-1)*IRC+LRC *003 000004
NFLR=NWDS/LTRC *004 000005
NLEFT=XMOD .( NWDS,LTRC) *005 000006
WHENEVER (NLEFT) .LE. 0, TRANSFER TO QQ0004 *006 000007
MLPH = NLEFT + LPREAM *007 000017
REM = MLPH - (MLPH/LPHYS)*LPHYS *008 000027
NLAST=(MLPH/LPHYS+(REM/REM))*LPHYS *009 000037
TRANSFER TO QQ0005 *010 000047
QQ0004 NLAST=0 *011 000057
QQ0005 FUNCTION RETURN *012 000067
INTEGER NWDS , NRECS , IRC , LRC *013 000077
INTEGER NFLR , LTRC , NLEFT , XMOD *014 000087
INTEGER NLAST , LPREAM, LPHYS *015 000097
INTEGER MLPH, REM *016 000107
END OF FUNCTION *017 000117
1MAD PROGRAM,TYPE NOV 1963 (ALL NUMBERS ARE OCTAL)
0TOTAL LOCATIONS 00143 TRANSFER VECTOR LENGTH 00002 PROGRAM BEGINS 00014
0 PROGRAM IS AN EXTERNAL FUNCTION. THE FOLLOWING ARE ENTRIES
NLREC 00015 0
0VARIABLE STORAGE (A=ARRAY,C=COMMON,E=ERASABLE,DIGIT=MODE)
MLPH 00005 1 NWDS 00007 1 QQ0004 00003 4 QQ0005 00004 4 REM 00010 1
NLEFT 00006 1
0FUNCTION DICTIONARY
EXIT 00000 0 XMOD 00001 1
0ABSOLUTE CONSTANTS
00011 +000000000000 00012 +000000000001 00013 +233000000000
0STATEMENT DICTIONARY
00003 TXL -300101000077 00004 TXL -300102000101
0PROGRAM
EXTERNAL FUNCTION (NRECS,IRC,LRC,LTRC,LPREAM,LPHYS,NFLR,NLAST 001 000001
1) 001 000002
ENTRY TO NLREC . 002 000003
00014 TRA +0 02000 0 00017 00015 SXA +0 63400 2 00103 00016 TSX +0 07400 2 00103
NWDS=(NRECS-1)*IRC+LRC 003 000004
00017 CLA +0 50000 0 00024 00020 SUB +0 40200 0 00012 00021 XCA +0 13100 0 00000 00022 MPY +0 20000 0 00024
00023 XCA +0 13100 0 00000 00024 ADD +0 40000 0 00024 00025 STO +0 60100 0 00007
NFLR=NWDS/LTRC 004 000005
00026 LDQ +0 56000 0 00007 00027 PXD -0 75400 0 00000 00030 LLS +0 76300 0 00000 00031 DVP +0 22100 0 00024
00032 STQ -0 60000 0 00024
NLEFT=XMOD .( NWDS,LTRC) 005 000006
00033 TSX +0 07400 4 00001 00034 TXH +3 00000 0 00007 00035 TXH +3 00000 0 00024 00036 STO +0 60100 0 00006
WHENEVER (NLEFT) .LE. 0, TRANSFER TO QQ0004 006 000007
00037 CLA +0 50000 0 00006 00040 SUB +0 40200 0 00011 00041 TZE +0 10000 0 00043 00042 TPL +0 12000 0 00044
00043 TRA +0 02000 0 00003
MLPH = NLEFT + LPREAM 007 000017
00044 CLA +0 50000 0 00006 00045 ADD +0 40000 0 00024 00046 STO +0 60100 0 00005
REM = MLPH - (MLPH/LPHYS)*LPHYS 008 000027
00047 LDQ +0 56000 0 00005 00050 PXD -0 75400 0 00000 00051 LLS +0 76300 0 00000 00052 DVP +0 22100 0 00024
00053 MPY +0 20000 0 00024 00054 XCA +0 13100 0 00000 00055 CHS +0 76000 0 00002 00056 ADD +0 40000 0 00005
00057 STO +0 60100 0 00010
NLAST=(MLPH/LPHYS+(REM/REM))*LPHYS 009 000037
00060 LDQ +0 56000 0 00010 00061 PXD -0 75400 0 00000 00062 LLS +0 76300 0 00000 00063 DVP +0 22100 0 00010
00064 STQ -0 60000 0 00140 00065 LDQ +0 56000 0 00005 00066 PXD -0 75400 0 00000 00067 LLS +0 76300 0 00000
00070 DVP +0 22100 0 00024 00071 XCA +0 13100 0 00000 00072 ADD +0 40000 0 00140 00073 XCA +0 13100 0 00000
00074 MPY +0 20000 0 00024 00075 STQ -0 60000 0 00024
TRANSFER TO QQ0005 010 000047
00076 TRA +0 02000 0 00004
QQ0004 NLAST=0 011 000057
00077 CLA +0 50000 0 00011 00100 STO +0 60100 0 00024
QQ0005 FUNCTION RETURN 012 000067
00101 TRA +0 02000 0 00134
INTEGER NWDS , NRECS , IRC , LRC 013 000077
INTEGER NFLR , LTRC , NLEFT , XMOD 014 000087
INTEGER NLAST , LPREAM, LPHYS 015 000097
INTEGER MLPH, REM 016 000107
END OF FUNCTION 017 000117
00102 TSX +0 07400 4 00000 00103 TXH +3 00000 0 00000 00104 SXD -0 63400 1 00103 00105 SXA +0 63400 4 00134
00106 CLA +0 50000 4 00001 00107 STA +0 62100 0 00017 00110 CLA +0 50000 4 00002 00111 STA +0 62100 0 00022
00112 CLA +0 50000 4 00003 00113 STA +0 62100 0 00024 00114 CLA +0 50000 4 00004 00115 STA +0 62100 0 00031
00116 STO +0 60100 0 00035 00117 CLA +0 50000 4 00005 00120 STA +0 62100 0 00045 00121 CLA +0 50000 4 00006
00122 STA +0 62100 0 00052 00123 STA +0 62100 0 00053 00124 STA +0 62100 0 00070 00125 STA +0 62100 0 00074
00126 CLA +0 50000 4 00007 00127 STA +0 62100 0 00032 00130 CLA +0 50000 4 00010 00131 STA +0 62100 0 00075
00132 STA +0 62100 0 00100 00133 TRA +0 02000 2 00001 00134 AXT +0 77400 4 00000 00135 LXA +0 53400 2 00103
00136 LXD -0 53400 1 00103 00137 TRA +0 02000 4 00001
PRCODE BCD 09/19/68 1941.9 591 00000
1 PAGE 1
00003 ENTRY PRCODE
EXTERN WRFLX
TRANSFER VECTOR
00000 665126436760 WRFLX
LINKAGE DIRECTOR
00001 000000000000
00002 475123462425
00003 0634 00 1 00042 PRCODE SXA P1,1
00004 0634 00 4 00043 SXA P4,4
00005 -0500 00 4 00001 CAL 1,4
00006 0400 00 0 00063 ADD =O17
00007 0322 00 0 00064 ERA =O506060600000
00010 -0765 00 0 00014 LGR 12
00011 -0773 00 0 00006 RQL 6
00012 0774 00 1 00002 AXT 2,1
00013 0767 00 0 00003 ALS 3
00014 -0763 00 0 00003 LGL 3
00015 2 00001 1 00013 TIX *-2,1,1
00016 0602 00 0 00047 SLW MESX+2
00017 -0500 00 4 00002 CAL 2,4
00020 -0734 00 1 00000 PDX ,1
00021 -0634 00 1 00030 SXD INC,1
00022 -0634 00 1 00031 SXD INC+1,1
00023 0634 00 1 00034 SXA INC+4,1
00024 1 00003 1 00025 TXI *+1,1,3
00025 -0634 00 1 00041 SXD PRNT,1
00026 0734 00 1 00000 PAX ,1
00027 0774 00 4 00050 AXT MESX+3,4
00030 1 00000 1 00031 INC TXI *+1,1,**
00031 1 00000 4 00032 TXI *+1,4,**
00032 0634 00 1 00035 SXA FROM,1
00033 0634 00 4 00036 SXA TO,4
00034 0774 00 1 00000 AXT **,1
00035 -0500 00 1 00000 FROM CAL **,1
00036 0602 00 1 00000 TO SLW **,1
00037 2 00001 1 00035 TIX *-2,1,1
00040 0074 00 4 00000 TSX WRFLX,4
00041 0 00000 0 00045 PRNT MESX,,**
00042 0774 00 1 00000 P1 AXT **,1
00043 0774 00 4 00000 P4 AXT **,4
00044 0020 00 4 00003 TRA 3,4
*
00045 622563604225 MESX BCI 2,SET KEY CODE
00046 706023462425
00047 BSS 12
END
LITERALS
00063 000000000017
00064 506060600000
1 PAGE 1
POST PROCESSOR ASSEMBLY DATA
65 IS THE FIRST LOCATION NOT USED BY THIS PROGRAM
0REFERENCES TO DEFINED SYMBOLS
42 P1 3
43 P4 4
36 TO 33
30 INC 21, 22, 23
35 FROM 32
45 MESX 16, 27, 41
41 PRNT 25
0 WRFLX 40
3 PRCODE 0
0 NO ERROR IN ABOVE ASSEMBLY.
IOB BCD 09/19/68 1941.9 1314 00000
1 CONVERT I/O SYSTEM DATE/TIME TO BCD.....M.J.BAILEY,12/11/64 PAGE 1
* (EXTRACTED FROM GDT FOR LOADER USE)
*
00002 ENTRY IOBDT
*
* CONVERT I/O SYSTEM DATE/TIME FROM LAC TO BCD TIME AND DATE --
* HHMM.M (TIME) IN AC, MMDDYY (DATE) IN MQ
*
LINKAGE DIRECTOR
00000 000000000000
00001 314622246360
00002 -0130 00 0 00000 IOBDT XCL
T 00003 -0754 00 0 00000 PXD
00004 -0763 00 0 00011 LGL 9 YEAR IN AC
00005 -0600 00 0 00122 STQ GDTD
00006 -0130 00 0 00000 XCL YEAR IN MQ
T 00007 -0754 00 0 00000 PXD
00010 0221 00 0 00124 DVP =10 TENS DIGIT OF YEAR IN MQ, UNITS IN AC
00011 -0320 00 0 00125 ANA =O17
00012 0602 00 0 00117 SLW DATE. '00000Y' OF DATE
00013 -0130 00 0 00000 XCL
00014 -0320 00 0 00125 ANA =O17
00015 0767 00 0 00006 ALS 6
00016 -0602 00 0 00117 ORS DATE. '0000YY' OF DATE
00017 0560 00 0 00122 LDQ GDTD
T 00020 -0754 00 0 00000 PXD
00021 -0763 00 0 00004 LGL 4 MONTH IN AC
00022 0601 00 0 00123 STO GDTM
00023 0402 00 0 00124 SUB =10
00024 -0120 00 0 00030 TMI IBA
00025 0601 00 0 00123 STO GDTM SAVE UNITS DIGIT OF MONTH
00026 0500 00 0 00131 CLA =O100
00027 0020 00 0 00031 TRA *+2
T 00030 -0754 00 0 00000 IBA PXD
00031 0400 00 0 00123 ADD GDTM
00032 0767 00 0 00030 ALS 24 'MM0000'
00033 -0602 00 0 00117 ORS DATE. 'MM00YY' OF DATE
T 00034 -0754 00 0 00000 PXD
00035 -0763 00 0 00005 LGL 5 DAY IN AC
00036 -0600 00 0 00122 STQ GDTD SAVE THE TIME
00037 -0130 00 0 00000 XCL DAY IN MQ
T 00040 -0754 00 0 00000 PXD
00041 0221 00 0 00124 DVP =10 TENS DIGIT OF DAY IN MQ, UNITS IN AC
00042 -0773 00 0 00006 RQL 6
00043 -0600 00 0 00123 STQ GDTM STORE '0000D0'
00044 0400 00 0 00123 ADD GDTM '0000DD' IN AC
00045 0767 00 0 00014 ALS 12 '00DD00' IN AC
00046 -0602 00 0 00117 ORS DATE. 'MMDDYY' OF DATE
00047 -0500 00 0 00122 CAL GDTD TIME
00050 0771 00 0 00022 ARS 18
00051 -0130 00 0 00000 XCL TIME IN SECS. IN MQ
00052 0200 00 0 00130 MPY =60 GET TIME IN 1/60TH'S SEC. IN MQ
00053 0634 00 4 00101 SXA TPWATX,4
*
00054 -0754 00 0 00000 BCA ZAC
1 CONVERT I/O SYSTEM DATE/TIME TO BCD.....M.J.BAILEY,12/11/64 PAGE 2
00055 0221 00 0 00133 DVP =216000 FIND HOUR
00056 0601 00 0 00121 STO MIN. SAVE REMAINDER (MINUTES)
00057 0074 00 4 00103 TSX BINBCD,4 CONVERT HOURS TO BCD
00060 -0765 00 0 00006 LGR 6
00061 -0100 00 0 00063 TNZ *+2
00062 -0500 00 0 00127 CAL =O60 REPLACE LEADING ZERO WITH BLANK
00063 -0763 00 0 00006 LGL 6
00064 0767 00 0 00030 ALS 24 LEAVE ROOM FOR MINUTE
00065 0602 00 0 00120 SLW HOUR. SAVE HOUR
00066 0560 00 0 00121 LDQ MIN. MINUTE
00067 -0754 00 0 00000 ZAC
00070 0221 00 0 00132 DVP =360 FIND NO. OF TENTHS OF MINUTES
00071 0074 00 4 00103 TSX BINBCD,4 CONVERT TO BCD
00072 -0765 00 0 00006 LGR 6 TENTHS TO MQ
00073 0767 00 0 00014 ALS 12
00074 -0602 00 0 00120 ORS HOUR. ADD MINUTE TO HOUR
00075 -0500 00 0 00126 CAL =H00000. PRECEDE TENTHS WITH .
00076 -0763 00 0 00006 LGL 6 BRING BACK TENTHS
00077 -0501 00 0 00120 ORA HOUR. HHMM.M IN LOGICAL AC
00100 0560 00 0 00117 LDQ DATE. DATE TO MQ
00101 0774 00 4 00000 TPWATX AXT **,4
00102 0020 00 4 00001 TRA 1,4
00103 0634 00 4 00114 BINBCD SXA BNBCDX,4 BINARY TO BCD CONVERTER
00104 0600 00 0 00116 STZ TPLIN.
00105 0774 00 4 00044 AXT 36,4
00106 -0754 00 0 00000 BNBCD1 ZAC CONVERT INTEGER TO BCD
00107 0221 00 0 00124 DVP =10 ..
00110 0767 00 4 00044 ALS 36,4 ..
00111 -0602 00 0 00116 ORS TPLIN. ..
00112 2 00006 4 00106 TIX BNBCD1,4,6 ..
00113 -0500 00 0 00116 CAL TPLIN.
00114 0774 00 4 00000 BNBCDX AXT **,4
00115 0020 00 4 00001 TRA 1,4
00116 0 00000 0 00000 TPLIN. PZE TEMPORARY
00117 606060606060 DATE. BCI 1,
00120 606060606060 HOUR. BCI 1,
00121 0 00000 0 00000 MIN. PZE
00122 0 00000 0 00000 GDTD PZE
00123 0 00000 0 00000 GDTM PZE
END
LITERALS
00124 000000000012
00125 000000000017
00126 000000000033
00127 000000000060
00130 000000000074
00131 000000000100
00132 000000000550
00133 000000645700
1 CONVERT I/O SYSTEM DATE/TIME TO BCD.....M.J.BAILEY,12/11/64 PAGE 1
POST PROCESSOR ASSEMBLY DATA
134 IS THE FIRST LOCATION NOT USED BY THIS PROGRAM
0REFERENCES TO DEFINED SYMBOLS
54 BCA
30 IBA 24
122 GDTD 5, 17, 36, 47
123 GDTM 22, 25, 31, 43, 44
121 MIN. 56, 66
117 DATE. 12, 16, 33, 46, 100
120 HOUR. 65, 74, 77
2 IOBDT 0
103 BINBCD 57, 71
106 BNBCD1 112
114 BNBCDX 103
116 TPLIN. 104, 111, 113
101 TPWATX 53
0 NO ERROR IN ABOVE ASSEMBLY.
XMOD BCD 09/19/68 1941.9 267 00000
1 XMOD REMAINDERING ARG1(MOD ARG2) PAGE 1
* CALLING SEQUENCE TSX XMOD,4
* TXH ARG1(FIXED)
* TXH ARG2(FIXED)
* 3,4 RETURN
* FUNCTION FIXED
00002 ENTRY XMOD
LINKAGE DIRECTOR
00000 000000000000
00001 674446246060
00002 0760 00 0 00000 XMOD CLM
00003 0560 60 4 00001 LDQ* 1,4
A 00004 0763 00 0 00000 LLS SIGN OF MQ TO AC
00005 0221 60 4 00002 DVP* 2,4
00006 0020 00 4 00003 TRA 3,4
FUNCTION IN ARITHMETIC AC FIXED
END
1 XMOD REMAINDERING ARG1(MOD ARG2) PAGE 1
POST PROCESSOR ASSEMBLY DATA
7 IS THE FIRST LOCATION NOT USED BY THIS PROGRAM
0REFERENCES TO DEFINED SYMBOLS
2 XMOD 0
0 NO ERROR IN ABOVE ASSEMBLY.
DPRT1B BCD 09/19/68 1941.9 4520 00000
1 DPRINT - 06/08/68 D.A. ANDERSON PAGE 1
GENERAL ON-LINE/OFF-LINE PRINT ROUTINE
* TSX DPRINT,4
* PZE 'MODE' OR PTH =MODE
* (LIST)
*
* (LIST) IS ANY SEQUENCE OF -
* PZE ADR,TAG
* EFA ADR,TAG
* PTH ADR
* PTH ADR,,'N'
* PTW ADR,,=N
*
* IF 1,4 WAS 'PZE' ARRAYS ARE STORED FORWARD, IF 'PTH' THEY
* ARE STORED BACKWARD. IF 1,4 NEITHER 'PZE' OR 'PTH', CONTROL
* IS IMMEDIATELY RETURNED TO 1,4.
*
* DPRINT REMOVES ILLEGAL CHARACTERS, INTERPRETS TABS AND CARRIAGE
* RETURNS, CONVERTS COLONS TO PERIODS, AND INSERTS A BLANK BEFORE
* ANY LINE WHOSE FIRST CHARACTER IS NOT A VALID CARRIAGE CONTROL
* CHARACTER.
*
* MODE BITS - 1. WRITE A3, IF SW5 DOWN PRINT ON-LINE
* 2. PRINT ON-LINE
* 4. WRITE A3, IF SW6 NOT DOWN PRINT ON-LINE
*
* THE MAIN PROGRAM MUST CALL '.FOUT' BEFORE EXITING.
00004 ENTRY DPRINT
EXTERN PRNT,SPRNT
TRANSFER VECTOR
00000 475145636060 PRNT
00001 624751456360 SPRNT
LINKAGE DIRECTOR
00002 000000000000
00003 244751314563
00026 LINELN EQU 22 MAX. LENGTH OF PRINTING LINE
1 DPRINT - 06/08/68 D.A. ANDERSON PAGE 2
GENERAL ON-LINE/OFF-LINE PRINT ROUTINE
00004 0636 00 1 00035 DPRINT SCA XR1,1 SAVE XR'S
00005 0636 00 2 00034 SCA XR2,2 (COMPLEMENTED FOR EFFECTIVE ADDRESSING)
00006 0636 00 4 00032 SCA XR4,4
00007 0760 00 0 00016 EAXM JUST IN CASE
00010 0636 00 3 00033 SCA XR3,3
00011 0636 00 5 00031 SCA XR5,5
00012 0636 00 6 00030 SCA XR6,6
00013 0636 00 7 00027 SCA XR7,7
00014 0604 00 0 00306 STI SI ALSO INDICATORS
00015 1 77777 4 00016 TXI *+1,4,-1 BUMP XR4
00016 0636 00 4 00036 SCA RETURN,4 AND SAVE AS RETURN
00017 -0500 00 4 00000 CAL 0,4 GET MODE OR POINTER TO IT
00020 0774 00 1 00001 AXT 1,1 ASSUME FAP ARRAYS
00021 0621 00 0 00307 STA MODE AND MODE.
00022 -0320 00 0 00347 ANA =O777777700000 SAVE ALL BUT ADDRESS
00023 0100 00 0 00042 TZE FAP CALLING PROG. IS FAP IF 'PZE'
00024 0322 00 0 00345 ERA =O300000000000
00025 0100 00 0 00037 TZE MAD MAD IF 'PTH'
00026 0441 00 0 00306 EGRETS LDI SI OTHERWISE, IGNORE CALL.
00027 -0774 00 7 00000 XR7 AXC **,7
00030 -0774 00 6 00000 XR6 AXC **,6
00031 -0774 00 5 00000 XR5 AXC **,5
00032 -0774 00 4 00000 XR4 AXC **,4
00033 -0774 00 3 00000 XR3 AXC **,3
00034 -0774 00 2 00000 XR2 AXC **,2
00035 -0774 00 1 00000 XR1 AXC **,1
00036 0020 00 0 00000 RETURN TRA ** RETURN BEYOND CALLING SEQUENCE
00037 0774 00 1 77777 MAD AXT -1,1 MAD ARRAYS ARE STORED BACKWARD
00040 -0500 60 0 00307 CAL* MODE PICK UP INDIRECTLY SPECIFIED
00041 0621 00 0 00307 STA MODE MODE, AND SAVE IT.
00042 -0636 00 1 00140 FAP SCD INCRMT,1 SET ARRAY INCREMENT
00043 0774 00 1 00000 AXT 0,1 CURRENT INPUT WORD IS EMPTY
00044 0774 00 2 00000 AXT 0,2 AND SO IS CURRENT INPUT BLOCK.
00045 0774 00 7 00026 NEWLIN AXT LINELN,7 NEXT OUTPUT TO 1ST WORD OF BUFFER
00046 -0774 00 6 00036 AXC 30,6 AND FIRST CHAR. OF WORD
00047 0600 00 7 00337 STZ LINE+LINELN,7 CLEAR OUTPUT WORD
00050 0774 00 5 00000 AXT 0,5 ZERO CHARACTERS IN LINE SO FAR
1 DPRINT - 06/08/68 D.A. ANDERSON PAGE 3
GENERAL ON-LINE/OFF-LINE PRINT ROUTINE
00051 -2 00001 1 00137 LOOP TNX NXTWRD,1,1 ANYTHING LEFT IN CURRENT WORD.Q.
00052 -0754 00 0 00000 NEWRD ZAC YES.
00053 -0763 00 0 00004 LGL 4 USE THE HIGH-ORDER FOUR
00054 0737 00 4 00000 PAC ,4 BITS FOR ADDRESS MODIFICATION
00055 -0754 00 0 00000 ZAC
00056 -0763 00 0 00002 LGL 2 AND THE LAST TWO
00057 0602 00 0 00310 SLW TEMP (MULTIPLIED BY 9)
00060 0767 00 0 00003 ALS 3 FOR A SHIFT COUNT
00061 0400 00 0 00310 ADD TEMP
00062 0402 00 0 00342 SUB =27 (TO MAKE TABLE PRETTY)
00063 0621 00 0 00065 STA *+2
00064 -0500 00 4 00265 CAL CHRTBL,4 PICK UP EQUIVALENCE FROM TABLE
00065 0771 00 0 00000 ARS ** GET APPROPRIATE 9-BIT CHUNK
00066 0044 00 0 00000 PAI TO INDICATORS FOR TESTING
00067 0054 00 000100 RFT ILLEGL IS THIS CODE PRINTABLE.Q.
00070 0020 00 0 00051 TRA LOOP NO. IGNORE IT.
00071 0054 00 000400 RFT CONTRL IS IT A CONTROL CHARACTER.Q.
00072 0020 00 0 00106 TRA CNTRL YES. GO PROCESS IT.
00073 3 00000 5 00103 TXH PUTCHR,5,0 IS THIS THE 1ST CHAR. FOR THIS LINE.Q.
00074 0056 00 000200 RNT CRGCTL YES. VALID CARRIAGE CONTROL.Q.
00075 -0500 00 0 00343 CAL =O60 NO. SUBSTITUTE A BLANK
00076 0074 00 4 00207 TSX STC,4 STORE THE CHARACTER
00077 0 00000 0 00077 * CAN'T BE FULL ON 1ST CHAR.
00100 -0046 00 0 00000 PIA RESTORE CHAR. FROM SI
00101 0054 00 000200 RFT CRGCTL VALID CONTROL.Q.
00102 -0500 00 0 00343 CAL =O60 YES. SUBSTITUTE BLANK.
00103 0074 00 4 00207 PUTCHR TSX STC,4 STORE CHAR. FROM AC30-35.
00104 0 00000 0 00051 LOOP LINE TOO LONG. IGNORE FURTHER INPUT.
00105 0020 00 0 00051 TRA LOOP GET NEXT CHARACTER
00106 -0320 00 0 00344 CNTRL ANA =O77 GET CONTROL CODE
00107 0737 00 4 00000 PAC ,4 INTO XR4
00110 -3 77775 4 00051 TXL LOOP,4,-NCTRL-1 CALL IT ILLEGAL IF CODE TOO LARGE
00111 0020 60 4 00111 TRA* *,4 GO TO CONTROL FUNCTION
00112 0 00000 0 00114 CTRL1 CR NEW LINE
00113 0 00000 0 00120 TAB TABULATE
00002 NCTRL EQU *-CTRL1
00114 -0600 00 0 00305 CR STQ MQ SAVE PARTIAL INPUT WORD
00115 0074 00 4 00224 TSX OUTPUT,4 PRINT THIS LINE
00116 0560 00 0 00305 LDQ MQ RESTORE INPUT
00117 0020 00 0 00045 TRA NEWLIN AND START A NEW LINE.
00120 0634 00 3 00135 TAB SXA TX3,3 WE NEED ONE MORE THAN WE HAVE
00121 3 00000 5 00124 TXH *+3,5,0 IF FIRST CHAR.
00122 0774 00 3 00013 AXT 11,3 GIVE TEN SPACES PLUS
00123 0020 00 0 00131 TRA TABOUT ONE FOR CARRIAGE CONTROL
00124 0754 00 5 00000 PXA ,5 GET CURRENT LINE LENGTH
00125 0402 00 0 00337 SUB =1 MINUS ONE FOR CARRIAGE CONTROL
00126 0402 00 0 00341 SUB =10 THIS GIVES '10-X.MOD.10' WITHOUT
00127 0120 00 0 00126 TPL *-1 CLOBBERING THE MQ.
00130 0734 00 3 00000 PAX ,3 NO. SPACES NEEDED INTO XR3
00131 -0500 00 0 00343 TABOUT CAL =O60
00132 0074 00 4 00207 TSX STC,4 STORE A BLANK
00133 0 00000 0 00135 *+2 IGNORE FURTHER INPUT IF WE OVERFLOW
1 DPRINT - 06/08/68 D.A. ANDERSON PAGE 4
GENERAL ON-LINE/OFF-LINE PRINT ROUTINE
00134 2 00001 3 00131 TIX TABOUT,3,1 CONTINUE UNTIL TAB STOP REACHED
00135 0774 00 3 00000 TX3 AXT **,3
00136 0020 00 0 00051 TRA LOOP THEN GO FOR NEXT CHAR.
1 DPRINT - 06/08/68 D.A. ANDERSON PAGE 5
GENERAL ON-LINE/OFF-LINE PRINT ROUTINE
00137 -2 00001 2 00144 NXTWRD TNX NXTBLK,2,1 ANYTHING LEFT IN THIS BLOCK.Q.
00140 1 00000 3 00141 INCRMT TXI *+1,3,** YES. MOVE TO NEXT WORD (MAD +1, FAP -1)
00141 0560 00 3 00000 START LDQ 0,3 GET NEW INPUT WORD
00142 0774 00 1 00006 AXT 6,1 RESET INPUT CHARACTER COUNT
00143 0020 00 0 00052 TRA NEWRD AND RETURN.
00144 0535 00 4 00036 NXTBLK LAC RETURN,4 NEED NEW INPUT BLOCK
00145 1 77777 4 00146 TXI *+1,4,-1 BUMP CALLING SEQUENCE POINTER
00146 0636 00 4 00036 SCA RETURN,4
00147 0500 00 4 00000 CLA 0,4 AND GET NEXT (POSSIBLE) ARGUMENT
00150 -0120 00 0 00204 TMI FINISH END OF CALLING SEQ. IF PREFIX MINUS
00151 0044 00 0 00000 PAI SAVE WORD FOR TESTING
00152 0737 00 3 00000 PAC ,3 SAVE ADDRESS
00153 0771 00 0 00017 ARS 15 ISOLATE PREFIX
00154 -0734 00 4 00000 PDX ,4 FOR TESTING
00155 -3 00000 4 00170 TXL EFARG,4,0 PZE OR EFA (MAYBE)
00156 -3 00001 4 00204 TXL FINISH,4,1 DON'T RECOGNIZE PON
00157 0054 00 700000 RFT 700000 PTH OR PTW. IS TAG ZERO.Q.
00160 0020 00 0 00204 TRA FINISH NO. END OF CALLING SEQUENCE
00161 0771 00 0 00003 ARS 3 YES. GET DECREMENT
00162 3 00002 4 00166 TXH *+4,4,2 PTH OR PTW.Q.
00163 0737 00 4 00000 PAC ,4 PTW. MUST GO INDIRECT.
00164 -0500 00 4 00000 CAL 0,4 GET COUNT
00165 0100 00 0 00144 TZE NXTBLK IGNORE PTW WITH ZERO COUNT
00166 0734 00 2 00000 PAX ,2 PUT COUNT IN INDEX
00167 0020 00 0 00141 TRA START AND START PROCESSING BLOCK.
00170 -0054 00 777777 EFARG LFT / CHECK FOR PZE OR EFA
00171 -0051 00 076100 IIL 076100 NOT PZE, INVERT EFA BITS
00172 -0054 00 777777 LFT / ZERO FOR PZE OR EFA, NOT ELSE.
00173 0020 00 0 00204 TRA FINISH END OF CALLING SEQUENCE
00174 -0320 00 0 00340 ANA =7 ISOLATE TAG FROM POSSIBLE GARBAGE
00175 0100 00 0 00202 TZE *+5 NO MODIFICATION IF ZERO
00176 0734 00 4 00000 PAX ,4
00177 0756 00 3 00000 PCA ,3 GET ADDRESS AND ADD
00200 0401 00 4 00036 ADM RETURN,4 MINUS CALLER'S XR VALUE.
00201 0737 00 3 00000 PAC ,3 BACK TO INDEX
00202 0774 00 2 00001 AXT 1,2 BLOCK COUNT OF ONE.
00203 0020 00 0 00141 TRA START PROCESS THIS WORD.
00204 -3 00000 5 00026 FINISH TXL EGRETS,5,0 IGNORE A NULL LINE
00205 0074 00 4 00224 TSX OUTPUT,4 PRINT LAST LINE
00206 0020 00 0 00026 TRA EGRETS AND EXIT TO CALLING PROGRAM.
1 DPRINT - 06/08/68 D.A. ANDERSON PAGE 6
GENERAL ON-LINE/OFF-LINE PRINT ROUTINE
00207 3 00203 5 00211 STC TXH *+2,5,6*LINELN-1 IS THIS LINE FULL.Q.
00210 1 00001 5 00212 TXI *+2,5,1 NO. BUMP CHAR. COUNT
00211 0020 60 4 00001 TRA* 1,4 YES. TAKE FULL RETURN.
00212 -0320 00 0 00344 ANA =O77 REMOVE POSSIBLE GARBAGE
00213 0767 00 6 00000 ALS ,6 SHIFT CHAR. TO POSITION
00214 -0602 00 7 00337 ORS LINE+LINELN,7 AND INSERT IN OUTPUT.
00215 -3 77734 6 00217 TXL *+2,6,-36 IS THIS WORD FULL.Q.
00216 1 00006 6 00223 TXI *+5,6,6 NO. BUMP SHIFT COUNT.
00217 2 00001 7 00221 TIX *+2,7,1 YES. IS OUTPUT BUFFER FULL.Q.
00220 0020 60 4 00001 TRA* 1,4 YES. GIVE FULL RETURN.
00221 0600 00 7 00337 STZ LINE+LINELN,7 NO. CLEAR NEXT OUTPUT WORD.
00222 -0774 00 6 00036 AXC 30,6 RESET SHIFT COUNT
00223 0020 00 4 00002 TRA 2,4 AND EXIT.
00224 0634 00 4 00257 OUTPUT SXA OX4,4 SAVE RETURN
00225 3 00203 5 00236 TXH OUTP1,5,6*LINELN-1 IS LINE FULL.Q.
00226 -3 00000 5 00232 TXL *+4,5,0 NO. IS LINE EMPTY.Q.
00227 3 77742 6 00232 TXH *+3,6,-30 NO. IS THIS WORD EMPTY.Q.
00230 -3 00000 6 00232 TXL *+2,6,0 ..
00231 1 00001 7 00236 TXI OUTP1,7,1 YES. DON'T BLANK PAD.
00232 -0500 00 0 00343 CAL =O60 GET A BLANK IN THE AC
00233 0560 00 0 00346 LDQ =H AND MORE IN THE MQ
00234 -0763 00 6 00000 LGL ,6 SHIFT TO POSITION
00235 -0602 00 7 00337 ORS LINE+LINELN,7 AND INSERT IN THE OUTPUT.
00236 1 77751 7 00237 OUTP1 TXI *+1,7,-LINELN-1 GET MINUS WORD COUNT FOR LINE
00237 0441 00 0 00307 LDI MODE GET PRINT MODE
00240 0054 00 000001 RFT 1 IF WRITING ON TAPE
00241 0760 00 0 00165 SWT 5 AND SWITCH 5 IS DOWN,
00242 0020 00 0 00244 TRA *+2 ALSO PRINT ON-LINE.
00243 0055 00 000002 SIR 2
00244 0760 00 0 00166 SWT 6 IF SWITCH 6 IS NOT DOWN
00245 0056 00 000004 RNT 4 AND MODE FOUR IS SPECIFIED,
00246 0020 00 0 00250 TRA *+2 PRINT IT ON-LINE TOO.
00247 0055 00 000002 SIR 2
00250 0056 00 000002 RNT 2 SHOULD WE PRINT IT.Q.
00251 0020 00 0 00255 TRA *+4 NO. SKIP.
00252 -0636 00 7 00254 SCD *+2,7 YES. INSERT WORD COUNT
00253 0074 00 4 00000 TSX PRNT,4 AND GO PRINT.
00254 0 00000 0 00311 LINE,,**
00255 0054 00 000005 RFT 5 SHOULD WE WRITE TAPE.Q.
00256 0020 00 0 00261 TRA *+3 YES.
00257 0774 00 4 00000 OX4 AXT **,4 NO. EXIT
00260 0020 00 4 00001 TRA 1,4
00261 -0636 00 7 00263 SCD *+2,7 INSERT WORD COUNT
00262 0074 00 4 00001 TSX SPRNT,4 AND WRITE A3.
00263 0 00000 0 00311 LINE,,**
00264 0020 00 0 00257 TRA OX4 ALL DONE
1 DPRINT - 06/08/68 D.A. ANDERSON PAGE 7
GENERAL ON-LINE/OFF-LINE PRINT ROUTINE
CHRTBL VFD O9/000+CRGCTL, 0
ETC O9/001+CRGCTL, 1
ETC O9/002+CRGCTL, 2
00265 200201202203 ETC O9/003+CRGCTL 3
VFD O9/004+CRGCTL, 4
ETC O9/005+CRGCTL, 5
ETC O9/006, 6
00266 204205006007 ETC O9/007 7
VFD O9/010, 8
ETC O9/011, 9
ETC O9/ILLEGL,
00267 010011100013 ETC O9/013 =
VFD O9/014, '
ETC O9/ILLEGL,
ETC O9/ILLEGL,
00270 014100100100 ETC O9/ILLEGL
VFD O9/020+CRGCTL, +
ETC O9/021, A
ETC O9/022, B
00271 220021022023 ETC O9/023 C
VFD O9/024, D
ETC O9/025, E
ETC O9/026, F
00272 024025026027 ETC O9/027 G
VFD O9/030, H
ETC O9/031, I
ETC O9/ILLEGL,
00273 030031100033 ETC O9/033 .
VFD O9/034, )
ETC O9/033, COLON
ETC O9/ILLEGL,
00274 034033100100 ETC O9/ILLEGL
VFD O9/040+CRGCTL, -
ETC O9/041, J
ETC O9/042, K
00275 240041042043 ETC O9/043 L
VFD O9/044, M
ETC O9/045, N
ETC O9/046, O
00276 044045046047 ETC O9/047 P
VFD O9/050, Q
ETC O9/051, R
ETC O9/ILLEGL,
00277 050051100053 ETC O9/053 $
VFD O9/054, *
ETC O9/1+CONTRL, CARRIAGE RETURN
ETC O9/ILLEGL,
00300 054401100100 ETC O9/ILLEGL NULL
VFD O9/060+CRGCTL, SPACE
ETC O9/061+CRGCTL, /
ETC O9/062+CRGCTL, S
00301 260261262263 ETC O9/063+CRGCTL T
VFD O9/064, U
ETC O9/065, V
ETC O9/066, W
1 DPRINT - 06/08/68 D.A. ANDERSON PAGE 8
GENERAL ON-LINE/OFF-LINE PRINT ROUTINE
00302 064065066067 ETC O9/067 X
VFD O9/070, Y
ETC O9/071, Z
ETC O9/2+CONTRL, TAB
00303 070071402073 ETC O9/073
VFD O9/074, (
ETC O9/ILLEGL,
ETC O9/ILLEGL,
00304 074100100100 ETC O9/ILLEGL
000400 CONTRL BOOL 400 CONTROL CODE
000200 CRGCTL BOOL 200 VALID CARRIAGE CONTROL CODE
000100 ILLEGL BOOL 100 NON-PRINTING CHARACTER
00305 0 00000 0 00000 MQ
00306 0 00000 0 00000 SI
00307 0 00000 0 00000 MODE
00310 0 00000 0 00000 TEMP
00311 LINE BSS LINELN
END
LITERALS
00337 000000000001
00340 000000000007
00341 000000000012
00342 000000000033
00343 000000000060
00344 000000000077
00345 300000000000
00346 606060606060
00347 777777700000
1 DPRINT - 06/08/68 D.A. ANDERSON PAGE 1
POST PROCESSOR ASSEMBLY DATA
350 IS THE FIRST LOCATION NOT USED BY THIS PROGRAM
0REFERENCES TO DEFINED SYMBOLS
114 CR 112
305 MQ 114, 116
306 SI 14, 26
42 FAP 23
37 MAD 25
257 OX4 224, 264
207 STC 76, 103, 132
120 TAB 113
135 TX3 120
35 XR1 4
34 XR2 5
33 XR3 10
32 XR4 6
31 XR5 11
30 XR6 12
27 XR7 13
311 LINE 47, 214, 221, 235, 254, 263
51 LOOP 70, 104, 105, 110, 136
307 MODE 21, 40, 41, 237
0 PRNT 253
310 TEMP 57, 61
106 CNTRL 72
112 CTRL1 114
170 EFARG 155
2 NCTRL 110, 114
52 NEWRD 143
236 OUTP1 225, 231
1 SPRNT 262
141 START 167, 203
265 CHRTBL 64
400 CONTRL 71, 300, 303, 305
200 CRGCTL 74, 101, 265, 266, 271, 275, 301, 305
4 DPRINT 0
26 EGRETS 204, 206
204 FINISH 150, 156, 160, 173
100 ILLEGL 67, 267, 270, 273, 274, 277, 300, 304, 305
140 INCRMT 42
26 LINELN 4, 45, 47, 207, 214, 221, 225, 235, 236, 311
45 NEWLIN 117
144 NXTBLK 137, 165
137 NXTWRD 51
224 OUTPUT 115, 205
103 PUTCHR 73
36 RETURN 16, 144, 146, 200
131 TABOUT 123, 134
0 NO ERROR IN ABOVE ASSEMBLY.
IOA1C BCD 09/19/68 1942.0 16810 00000
1 PAGE 1
00004 ENTRY SPRNT TO WRITE OFF-LINE LISTING TAPE
00056 ENTRY SPRNI SET OUTPUT TAPE NUMBER FOR SPRNT
00415 ENTRY DPNCH WRITE BCD CARD IMAGES ON PUNCH TAPE
00420 ENTRY BPNCH WRITE BINARY CARD IMAGES ON PUNCH TAPE
00523 ENTRY RDTAP READ A RECORD FROM ANY TAPE
00606 ENTRY WRTAP WRITE A STRING OF RECORDS ON ANY TAPE
01247 ENTRY RCARD READ ON-LINE BCD CARDS
01567 ENTRY RWTAP UNLOAD A TAPE
01571 ENTRY CLTAP CLOSE AN OUTPUT TAPE
01630 ENTRY FOUT TO COMPLETE AND CHECK ALL I/O
01671 ENTRY RDYTST TO ENSURE THAT A TAPE IS READY
01667 ENTRY WRTST TO ENSURE THAT A TAPE IS READY AND WRITABLE
02024 ENTRY PRNT TO PRINT ON THE ON-LINE PRINTER
CALLING SEQUENCES ..
TO PRINT A BCD STRING WITH CARRIAGE CONTROL ..
TSX $SPRNT,4 CALL OFF-LINE PRINT
PZE STRING,,'N' ..
SPRNT WRITES THE 'N'-WORD BCD STRING BEGINNING AT
'STRING' ONTO THE F.M.S. LISTING TAPE 'P'. OUTPUT
IS PACKED AT A MAXIMUM OF 'NBUFF' WORDS PER RECORD,
WITH 'RCDMK' AS THE 1401 RECORD MARK CHARACTER.
TO TELL SPRNT WHAT TAPE TO WRITE ON
TSX $SPRNI,4
PFX TAPENO,TAG
ANY WAITING OUTPUT WILL BE WRITTEN ON THE OLD
OUTPUT TAPE, AND CHECKED. THEN SPRNT WILL BE
RE-INITIALIZED TO WRITE ON THE SPECIFIED TAPE.
TO WRITE BCD CARD IMAGES ..
TSX $DPNCH,4
PFX CARD,,'N'
FOR 'N' .GE. 14, THE 14 WORDS STARTING AT 'CARD' WILL
BE WRITTEN ON THE PUNCH TAPE IN BCD MODE.
IF 'N' .L. 14, THE RECORD WILL BE FILLED
TO 14 WORDS WITH BLANKS.
TO WRITE BINARY CARD IMAGES ..
TSX $BPNCH,4
PFX CARD,,'N'
FOR 'N' .GE. 28, THE 28 WORDS STARTING AT 'CARD' WILL
BE WRITTEN ON THE PUNCH TAPE IN BINARY MODE.
IF 'N' .L. 28, THE RECORD WILL BE FILLED
TO 28 WORDS WITH ZEROS.
1 PAGE 2
TO READ FROM ANY TAPE ..
TSX $RDTAP,4
PFX TAPENO,TAG
PAR REDUN,,EOF
OPN LOC,,N
PREVIOUS I/O ON THE SPECIFIED CHANNEL WILL
BE CHECKED, THEN (IF THE ARGUMENTS AT 2,4 AND 3,4
ARE SPECIFIED, ONE RECORD WILL BE READ FROM THE
SPECIFIED TAPE. IF, WHEN A LATER CALL TO RDTAP
CAUSES THIS READ TO BE CHECKED, THE RECORD IS
UNREADABLE AFTER 10 TRIES, RDTAP WILL 'TSX REDUN,4'.
RETURNING TO '1,4' WILL ACCEPT THE RECORD AS READ,
RETURNING TO '2,4' WILL TRY TO READ THE RECORD 10
MORE TIMES. IF AN END-OF-FILE IS DETECTED, RDTAP
WILL 'TSX EOF,4'. A RETURN TO '1,4' WILL READ THE
RECORD FOLLOWING THE END-OF-FILE MARK, A RETURN
TO '2,4' WILL FORGET THE SELECT (IF THE WAITING
SELECT IS FOR THE SAME TAPE, IT WILL BE IGNORED).
TO WRITE ON ANY TAPE ..
TSX $WRTAP,4
PFX TAPENO,TAG
-PAR EOT-
OPN BUFF1,,N1
...
OPN BUFFN,,NN
'PFX' MAY BE 'PZE', 'EFA', OR 'PAR'. FOR 'PZE',
'TAPENO,TAG' IS EVALUATED AND USED LITERALLY FOR THE
TAPE ADDRESS, FOR 'EFA', THE CONTENTS OF 'TAPENO,TAG'
IS USED, FOR 'PAR', 'TAG' MUST BE 0 AND THE CONTENTS
OF 'TAPENO' IS USED. ZERO OR MORE RECORDS WILL BE
WRITTEN ON THE TAPE, ONE RECORD FOR EACH ARRAY
SPECIFIED. 'OPN' MAY BE EITHER 'PAR' OR 'BLK'.
IF 'BLK', THE COUNT IS SPECIFIED INDIRECTLY.
IF '2,4 IS 'PAR EOT,0,0', WRTAP WILL
'TSX EOT,4' IF THE END-OF TAPE MARK IS PASSED.
TO READ ON-LINE BCD CARDS
TSX $RCARD,4
OPN BUFF,,N
OPN BADCRD,,EOF
IF 'N' IS GREATER THAN 12, THE BUFFER WILL BE
FILLED WITH BLANKS. 'RCARD' WILL RETURN AS SOON
AS THE I/O HAS BEEN STARTED. AN END-OF-FILE
CONDITION WILL CAUSE A 'TSX EOF,4'. A RETURN TO '1,4'
WILL READ ANOTHER CARD, TO '2,4' WILL FORGET THE
READ (IF ANOTHER CALL TO 'RCARD' IS WAITING, IT
WILL BE IGNORED). IF AN ILLEGAL BCD CHARACTER IS
FOUND IN THE CARD, 'RCARD' WILL 'TSX BADCRD,4'.
A '1,4' RETURN WILL READ THE NEXT CARD INSTEAD,
1 PAGE 3
A '2,4' RETURN WILL ACCEPT THE CARD AS IS. IF
ANY ARGUMENTS WERE NOT SPECFIED, 'RCARD' WILL
NOT READ A NEW CARD, BUT ONLY CHECK THE
PREVIOUS READ.
TO UNLOAD A TAPE ..
TSX $RWTAP,4
PFX TAPENO,TAG
THE SPECIFIED TAPE WILL BE REWOUND AND UNLOADED.
TO CLOSE AN OUTPUT TAPE ..
TSX $CLTAP,4
PFX TAPENO,TAG
5 END-OF-FILE MARKS WILL BE WRITTEN ON THE SPECIFIED
TAPE, THEN IT WILL BE REWOUND AND UNLOADED.
TO COMPLETE AND CHECK TAPE I/O
TSX $FOUT,4 ..
TO ENSURE THAT A TAPE IS READY
TSX $RDYTST,4
PFX TAPENO,TAG
TO ENSURE THAT A TAPE IS READY AND WRITABLE
TSX $WRTST,4
PFX TAPENO,TAG
TO PRINT A MESSAGE ON-LINE ..
TSX $PRNT,4 CALL ON-LINE PRINT
PFX STRING,T,N
PFX=PZE, T=0, NO SPACING OR HALT.
PFX=PZE, T NON-0, NO STOP BUT SPACE 5 LINES.
PFX=MZE, PRINT, SPACE 5 LINES, LIGHT UP CONSOLE,
AND HALT (HTR 2,4).
'N' MUST BE LESS THAN 20 - EXTRA WORDS IGNORED.
PARAMETERS VARIABLE AT ASSEMBLY TIME ..
EXTERN SELECT,CHECK
00000 622543252363 SELECT
00001 233025234260 CHECK
1 PAGE 4
00000 MEM EQU 0 MEMORY FLAG (0 FOR A, 1 FOR B)
01203 P TAPENO A3 F.M.S. LISTING OUTPUT TAPE
02224 Q TAPENO B4B F.M.S. PUNCH OUTPUT TAPE (BINARY MODE)
02204 R TAPENO B4 F.M.S. PUNCH OUTPUT TAPE (DECIMAL MODE)
00150 NBUFF EQU 104 MAXIMUM RECORD SIZE ACCEPTED BY 1401
000072 RCDMK BOOL 72 1401 RECORD MARK
00002 NCHNLS EQU 2 NUMBER OF TAPE CHANNELS
0761 01 1 60000 EFA OPSYN NOP
3 00001 1 60000 PAR OPSYN PTH
2 00001 1 60000 BLK OPSYN PTW
1 PAGE 5
SPRNT, BUFFERED OFF-LINE OUTPUT TAPE ROUTINE
00004 0634 00 1 00036 SPRNT SXA SPRX1,1 SAVE INDEX REGISTERS
00005 0634 00 2 00037 SXA SPRX2,2 ..
00006 0634 00 4 00040 SXA SPRX4,4 ..
00007 -0500 00 4 00001 CAL 1,4 PICK UP CONTROL WORD
00010 -0734 00 1 00000 PDX ,1 MOVE COUNT TO INDEX REG. 1
00011 -3 00000 1 00036 TXL SPRX1,1,0 EXIT IF COUNT FIELD IS ZERO.
00012 0754 00 1 00000 PXA ,1 OTHERWISE, FORM 'FIRST' + 'N'
00013 0361 00 4 00001 ACL 1,4 ..
00014 0621 00 0 00030 STA PKUP AND SAVE FOR STRING MOVING
00015 -0634 00 1 00017 SXD INCMT,1 SAVE TO INCREMENT COUNT OF BUFFER
00016 -0534 00 2 00072 LXD CURBUF,2 PICK UP WORD COUNT OF CURRENT BUFFER
00017 1 00000 2 00020 INCMT TXI *+1,2,** INCREMENT BY 'N'
00020 -3 00150 2 00023 TXL MOVE,2,NBUFF WILL THIS OVERFLOW CURRENT BUFFER
00021 0074 00 4 00042 TSX WRIT1,4 YES, INITIATE WRITE ON CURRENT BUFFER
00022 -0534 00 2 00017 LXD INCMT,2 AND INITIALIZE WORD COUNT FOR NEW BUFFER
00023 0754 00 2 00000 MOVE PXA ,2 SET UP TO COPY STRING INTO CURRENT BUFFER
00024 0361 00 0 00072 ACL CURBUF ..
00025 0621 00 0 00031 STA COPY ..
00026 1 00001 2 00027 TXI *+1,2,1 ADD 1 TO TOTAL COUNT FOR RECORD MARKER
00027 -0634 00 2 00072 SXD CURBUF,2 ..
00030 -0500 00 1 00000 PKUP CAL **,1 NOW MOVE BCD STRING TO OUTPUT BUFFER
00031 0602 00 1 00000 COPY SLW **,1 ..
00032 2 00001 1 00030 TIX PKUP,1,1 ..
00033 0774 00 1 00000 AXT 0,1 ADD RECORD MARKER TO BUFFER
00034 -0500 00 0 00071 CAL RCDMKR ..
00035 0602 60 0 00031 SLW* COPY ..
00036 0774 00 1 00000 SPRX1 AXT **,1 RESTORE INDEX REGISTERS
00037 0774 00 2 00000 SPRX2 AXT **,2 ..
00040 0774 00 4 00000 SPRX4 AXT **,4 ..
00041 0020 00 4 00002 TRA 2,4 AND RETURN TO CALLING PROGRAM
00042 0634 00 4 00054 WRIT1 SXA WR1X4,4 SAVE RETURN
00043 -0500 00 0 00072 CAL CURBUF PICK UP CURRENT BUFFER POINTER
00044 0402 00 0 02275 SUB =O1000000 SUBTRACT 1 FROM WORD COUNT
00045 0560 00 0 00053 LDQ IOBUF IN ORDER TO DELETE LAST RECORD MARKER
00046 0602 00 0 00053 SLW IOBUF AND EXCHANGE BUFFER POINTERS
00047 -0600 00 0 00072 STQ CURBUF ..
00050 -0634 00 0 00072 ZSD CURBUF INITIALIZE WORD COUNT IN NEW 'CURBUF'
00051 0074 00 4 00606 TSX WRTAP,4 WRITE I/O BUFFER
00052 0 00000 0 01203 SPRNTP P ONTO OUTPUT TAPE
00053 3 00000 0 00244 IOBUF PAR BUFF2,,** ..
00054 0774 00 4 00000 WR1X4 AXT **,4 RESTORE RETURN
00055 0020 00 4 00001 TRA 1,4 AND RETURN TO CONTINUE MAIN PROGRAM
00056 0634 00 4 00064 SPRNI SXA SPIX4,4 SAVE RETURN
00057 -0534 00 4 00072 LXD CURBUF,4 IS CURRENT OUTPUT BUFFER EMPTY
00060 -3 00000 4 00062 TXL *+2,4,0 ..
00061 0074 00 4 00042 TSX WRIT1,4 NO. WRITE IT OUT
00062 0074 00 4 00606 TSX WRTAP,4 IN ANY CASE, CHECK PREVIOUS OUTPUT
00063 0761 00 0 00052 EFA SPRNTP ..
00064 0774 00 4 00000 SPIX4 AXT **,4 RESTORE RETURN
00065 0634 00 4 01646 SXA TPNX4,4 TO GIVE IT TO TAPENO.
00066 0074 00 4 01644 TSX TAPENO,4 GET NEW TAPE ADDRESS
1 PAGE 6
SPRNT, BUFFERED OFF-LINE OUTPUT TAPE ROUTINE
00067 0621 00 0 00052 STA SPRNTP AND SAVE FOR SPRNT
00070 0020 00 0 01667 TRA WRTST THEN GO CHECK IF TAPE WRITEBLE
00071 606060606072 RCDMKR VFD O30/6060606060,6/RCDMK
00072 3 00000 0 00073 CURBUF PAR BUFF1,,** POINTER TO CURRENT BUFFER FOR SPRNT
00073 BUFF1 BSS NBUFF+1 BUFFERS FOR SPRNT
00244 BUFF2 BSS NBUFF+1 ..
1 PAGE 7
DPNCH AND BPNCH, WRITE CARD IMAGES FOR PUNCHING
00415 0634 00 2 00454 DPNCH SXA PUX2,2 SAVE CALLER'S XR2
00416 0774 00 2 00000 AXT 0,2 AND SET INDEX FOR DPUNCH
00417 0020 00 0 00422 TRA PUNCH JOIN COMMON CODE
00420 0634 00 2 00454 BPNCH SXA PUX2,2 SAVE CALLER'S XR2
00421 0774 00 2 00001 AXT 1,2 AND SET INDEX FOR BPUNCH
00422 0634 00 4 00453 PUNCH SXA PUX4,4 SAVE RETURN
00423 0634 00 1 00455 SXA PUX1,1 ..
00424 -0500 00 4 00001 CAL 1,4 GET INPUT POINTER
00425 -0734 00 1 00000 PDX ,1 COUNT TO XR1
00426 0754 00 1 00000 PXA ,1 AND BACK TO ADDRESS
00427 0401 00 4 00001 ADM 1,4 FORM 'FIRST+N'
00430 0621 00 0 00435 STA PLOOP AND SAVE FOR MOVE
00431 0074 00 4 00606 TSX WRTAP,4 FORCE CHECKING OF PREVIOUS I/O
00432 0761 00 0 00451 EFA PTPAD1 BEFORE CLOBBERING BUFFER.
00433 0522 00 2 00460 XEC PBUFL,2 GET RECORD LENGTH FOR THIS TYPE IN XR4
00434 -3 00000 1 00441 TXL PFILL,1,0 IF NO INPUT, SKIP TO PAD BUFFER
00435 -0500 00 1 00000 PLOOP CAL **,1 MOVE A WORD
00436 0602 00 4 00523 SLW BUFF,4 INTO BUFFER
00437 -2 00001 4 00444 TNX PFILLD,4,1 SKIP OUT IF BUFFER FILLED
00440 2 00001 1 00435 TIX PLOOP,1,1 IF NO MORE INPUT,
00441 -0500 00 2 00462 PFILL CAL PFILLR,2 PAD BUFFER WITH THE
00442 0602 00 4 00523 SLW BUFF,4 FILLER WORD FOR THIS TYPE.
00443 2 00001 4 00442 TIX *-1,4,1 FILL ENTIRE BUFFER.
00444 -0500 00 2 00464 PFILLD CAL PNTR,2 GET BUFFER POINTER FOR
00445 0602 00 0 00452 SLW PIOCOM THIS TYPE INTO WRITE CALL
00446 -0500 00 2 00466 CAL PTPAD,2 ALSO SELECT ADDRESS.
00447 0602 00 0 00451 SLW PTPAD1 ..
00450 0074 00 4 00606 TSX WRTAP,4 CALL WRITE ROUTINE
00451 0 00000 0 00000 PTPAD1 PZE ** SELECT ADDRESS
00452 3 00000 0 00000 PIOCOM PAR **,,** POINTER TO DATA
00453 0774 00 4 00000 PUX4 AXT **,4 ALL DONE, RESTORE XR'S
00454 0774 00 2 00000 PUX2 AXT **,2 ..
00455 0774 00 1 00000 PUX1 AXT **,1 ..
00456 0020 00 4 00002 TRA 2,4 AND RETURN TO CALLER
00457 0774 00 4 00034 AXT 28,4 RECORD LENGTHS FOR BINARY
00460 0774 00 4 00016 PBUFL AXT 14,4 AND BCD PUNCHING.
00461 +000000000000 OCT 0 FILLER WORDS FOR BINARY
00462 606060606060 PFILLR BCI 1, AND BCD CARD IMAGES.
00463 3 00034 0 00467 PAR BUFF-28,,28 DATA POINTERS FOR BINARY
00464 3 00016 0 00505 PNTR PAR BUFF-14,,14 AND BCD CARD IMAGES.
00465 0 00000 0 02224 Q SELECT ADDRESSES FOR BINARY
00466 0 00000 0 02204 PTPAD R AND BCD PUNCHING.
00523 BUFF BES 28 BUFFER FOR CARD IMAGES
1 PAGE 8
RDTAP, ROUTINE TO READ FROM ANY TAPE
00523 0634 00 4 01646 RDTAP SXA TPNX4,4 GIVE CALLER'S XR4 TO TAPENO
00524 0074 00 4 01644 TSX TAPENO,4 AND GET SELECT ADDRESS
00525 0621 00 0 00600 STA READ SAVE TAPE ADDRESS
00526 0634 00 4 00602 SXA RDX4,4 AND INDEX REGISTERS
00527 0634 00 2 00603 SXA RDX2,2 ..
00530 0634 00 1 00604 SXA RDX1,1 ..
00531 1 77776 4 00532 TXI *+1,4,-2 FORM RETURN ADDRESS
00532 0636 00 4 00605 SCA RDRTN,4 AND SAVE IT
00533 0771 00 0 00011 ARS 9 ISOLATE CHANNEL NUMBER
00534 0737 00 1 00000 PAC ,1 ..
00535 -3 77775 1 00602 TXL RDX4,1,-NCHNLS-1 SKIP OUT IF 0 OR .G. NCHNLS
00536 0074 00 4 00717 TSX CHEK,4 CHECK PREVIOUS I/O ON THIS CHANNEL
00537 -0500 00 0 01176 CAL FORGET MUST THIS CALL BE IGNORED
00540 0100 00 0 00543 TZE *+3 NO, NOT A CHANCE
00541 0322 00 0 00600 ERA READ MAYBE, IF THIS IS THE TAPE
00542 0100 00 0 00602 TZE RDX4 YES, FLUSH READ FOR THIS TAPE.
00543 -0625 00 1 01244 STL READFL,1 INDICATE THIS IS A CALL TO READ
00544 0534 00 4 00602 LXA RDX4,4 DID CALLER WANT TO READ, OR ONLY CHECK
00545 -0500 00 4 00002 CAL 2,4 ..
00546 0602 00 1 01240 SLW ERROR,1 SAVE POSSIBLE REDUNDANCY AND EOF RETURNS
00547 -0320 00 0 01163 ANA PT ..
00550 0322 00 0 01167 ERA PAR ..
00551 -0100 00 0 00603 TNZ RDX2 EXIT TO 2,4 IF NOT SPECIFIED
00552 -0500 00 4 00003 CAL 3,4 GET POSSIBLE RECORD POINTER
00553 0621 00 1 01230 STA CKIOCM,1 ..
00554 0622 00 1 01230 STD CKIOCM,1 ..
00555 -0737 00 2 00000 PDC ,2 SAVE DECREMENT IN CASE OF 'BLK'
00556 -0320 00 0 01163 ANA PT ..
00557 0322 00 0 01167 ERA PAR ..
00560 0100 00 0 00566 TZE RDTAP1 OK IF 'PAR'
00561 0322 00 0 01170 ERA 2XOR3 TRY FOR 'BLK'
00562 -0100 00 0 00603 TNZ RDX2 NOPE, EXIT.
00563 -0500 00 2 00000 CAL 0,2 GET INDIRECTLY SPECIFIED COUNT
00564 0767 00 0 00022 ALS 18 ..
00565 0622 00 1 01230 STD CKIOCM,1 INTO I/O COMMAND
00566 -0625 00 1 01242 RDTAP1 STL BUSY,1 CHANNEL NOW BUSY
00567 -0500 00 0 00605 CAL RDRTN BUMP RETURN LOC. PAST ARGUMENTS
00570 0400 00 0 02270 ADD =2 ..
00571 0621 00 0 00605 STA RDRTN ..
00572 -0500 00 0 00600 CAL READ SAVE READ SELECT
00573 0602 00 1 01226 SLW CKSEL,1 FOR CHEK
00574 0621 00 1 01232 STA CKBSR,1 SET UP ASSORTED ADDRESSES
00575 0621 00 1 01234 STA CKWEF,1 ..
00576 0621 00 1 01236 STA CKRUN,1 ..
00577 0074 00 4 00000 TSX SELECT,4 (COMPATIBILITY)
00600 0762 00 0 00000 READ RDS ** START UP I/O
00601 0522 00 1 01220 XEC RCHX,1 ..
00602 0774 00 4 00000 RDX4 AXT **,4 AND RETURN TO CALLER
00603 0774 00 2 00000 RDX2 AXT **,2 ..
00604 0774 00 1 00000 RDX1 AXT **,1 ..
00605 0020 00 0 00000 RDRTN TRA ** ..
1 PAGE 9
WRTAP, ROUTINE TO WRITE RECORDS ON ANY TAPE
00606 0634 00 4 01646 WRTAP SXA TPNX4,4 GIVE CALLER'S XR4 TO TAPENO
00607 0074 00 4 01644 TSX TAPENO,4 AND GET TAPE ADDRESS
00610 0621 00 0 00651 STA WRITE SAVE NEW SELECT ADDRESS
00611 0634 00 4 00707 SXA WRTX4,4 AND INDEX REGISTERS
00612 0634 00 2 00710 SXA WRTX2,2 ..
00613 0634 00 1 00711 SXA WRTX1,1 ..
00614 1 77776 4 00615 TXI *+1,4,-2 CURRENT RETURN IS TO 2,4
00615 0636 00 4 00712 SCA RETURN,4 ..
00616 0771 00 0 00011 ARS 9 ISOLATE CHANNEL NUMBER
00617 0737 00 1 00000 PAC ,1 PUT IN XR
00620 -3 77775 1 00707 TXL WRTX4,1,-NCHNLS-1 SKIP OUT IF 0 OR .G. NCHNLS
00621 0074 00 4 00717 TSX CHEK,4 CHECK PREVIOUS I/O ON THIS CHANNEL (IF ANY)
00622 -0500 00 0 01176 CAL FORGET MUST WE IGNORE THIS CALL
00623 0100 00 0 00626 TZE *+3 NO.
00624 0322 00 0 00651 ERA WRITE MAYBE, CHECK FURTHER
00625 0100 00 0 00707 TZE WRTX4 YES, THIS WAS THE TAPE
00626 0600 00 1 01244 STZ READFL,1 INDICATE WRITE CALL
00627 0560 00 1 01220 LDQ RCHX,1 GET 'RCH' FOR THIS CHANNEL
00630 -0620 00 0 00652 SLQ WRITE+1 AND SET UP WRITE SEQUENCE.
00631 -0500 60 0 00712 CAL* RETURN CHECK FOR 'EOT' RETURN
00632 0602 00 1 01240 SLW ERROR,1 SAVE FOR CHECK
00633 0322 00 0 01167 ERA PAR MUST BE 'PAR' WITH ZERO DECREMENT
00634 -0320 00 0 01165 ANA PDT ..
00635 -0100 00 0 00642 TNZ *+5 ..
00636 -0500 00 0 00712 CAL RETURN IT WAS THERE,
00637 0400 00 0 02267 ADD =1 BUMP RETURN
00640 0621 00 0 00712 STA RETURN ..
00641 0020 00 0 00643 TRA *+2 ..
00642 0600 00 1 01240 STZ ERROR,1 NOT THERE, RESET FLAG
00643 0074 00 4 00667 TSX NXARG,4 GET FIRST COMMAND INTO 'IOCOM'
00644 -0500 00 0 00651 CAL WRITE TELL CHEK ABOUT THIS WRITE
00645 0621 00 1 01232 STA CKBSR,1 ..
00646 0621 00 1 01234 STA CKWEF,1 ..
00647 0621 00 1 01236 STA CKRUN,1 ..
00650 0074 00 4 00000 WRIT TSX SELECT,4 (COMPATIBILITY)
00651 0766 00 0 00000 WRITE WRS ** SELECT THE TAPE
00652 0540 00 0 01171 RCHA IOCOM AND INITIATE I/O
00653 -0500 00 0 00651 CAL WRITE TELL CHEK ABOUT THIS WRITE
00654 0602 00 1 01226 SLW CKSEL,1 ..
00655 -0500 00 0 01171 CAL IOCOM ALSO SAVE I/O COMMAND
00656 0602 00 1 01230 SLW CKIOCM,1 ..
00657 -0625 00 1 01242 STL BUSY,1 CHANNEL IS NOW BUSY
00660 0074 00 4 00667 GTNXT TSX NXARG,4 IS THERE ANOTHER ARGUMENT
00661 0074 00 4 00717 TSX CHEK,4 YES, CHECK PREVIOUS I/O
00662 -0500 00 0 01176 CAL FORGET MUST THIS CALL BE FORGOTTEN
00663 0100 00 0 00666 TZE *+3 NO.
00664 0322 00 0 00651 ERA WRITE MAYBE
00665 0100 00 0 00707 TZE WRTX4 YES, THIS IS THE TAPE
00666 0020 00 0 00650 TRA WRIT THEN GO WRITE SOME MORE.
00667 -0500 60 0 00712 NXARG CAL* RETURN GET NEXT (POSSSIBLE) ARGUMENT
00670 0621 00 0 01171 STA IOCOM SAVE ADDRESS AND
00671 0622 00 0 01171 STD IOCOM DECREMENT FOR I/O COMMAND
00672 -0737 00 2 00000 PDC ,2 GET DECREMENT IN CASE OF 'BLK'
1 PAGE 10
WRTAP, ROUTINE TO WRITE RECORDS ON ANY TAPE
00673 -0320 00 0 01163 ANA PT KEEP ONLY PREFIX AND TAG FOR TESTING
00674 0322 00 0 01167 ERA PAR IS IT 'PAR'
00675 0100 00 0 00703 TZE ISNXT YES, OK AS IS
00676 0322 00 0 01170 ERA 2XOR3 HOW ABOUT 'BLK'
00677 -0100 00 0 00707 TNZ WRTX4 NOPE, END AF ARGUMENT LIST
00700 -0500 00 2 00000 CAL 0,2 YES, GET INDIRECTLY SPECIFIED COUNT
00701 0767 00 0 00022 ALS 18 INTO DECREMENT
00702 0622 00 0 01171 STD IOCOM OF I/O COMMAND.
00703 -0500 00 0 00712 ISNXT CAL RETURN THIS IS AN ARGUMENT,
00704 0400 00 0 02267 ADD =1 SO INCREMENT THE RETURN LOCATION.
00705 0621 00 0 00712 STA RETURN ..
00706 0020 00 4 00001 TRA 1,4 BACK TO CALLER
00707 0774 00 4 00000 WRTX4 AXT **,4 RESTORE XR'S
00710 0774 00 2 00000 WRTX2 AXT **,2 ..
00711 0774 00 1 00000 WRTX1 AXT **,1 ..
00712 0020 00 0 00000 RETURN TRA ** AND RETURN AFTER LAST ARG.
1 PAGE 11
CHEK, ROUTINE TO CHECK PREVIOUS I/O
00713 0500 00 0 00755 CHK CLA CHKX4 SPECIAL CALL TO CHEK,
00714 0560 00 0 00756 LDQ CHKX2 DON'T CLOBBER SAVED INDEX REGISTERS
00715 -0603 00 0 00766 DST CHKSVX ..
00716 -0625 00 0 01175 STL LATERS REMEMBER ERRORS, DON'T PROCESS THEM
00717 -0500 00 1 01242 CHEK CAL BUSY,1 IS THIS CHANNEL WORKING
00720 0100 00 0 00757 TZE NDCHK NO, IGNORE THIS CALL.
00721 0634 00 4 00755 SXA CHKX4,4 SAVE RETURN
00722 0634 00 2 00756 SXA CHKX2,2 ..
00723 0600 00 0 01176 STZ FORGET DON'T LOSE A SELECT UNNECESSARILY
00724 0600 00 1 01242 STZ BUSY,1 RESET BUSY FLAG
00725 -0734 00 4 00000 PDX ,4 GET ERROR FLAGS (IF ANY)
00726 0600 00 0 01174 STZ EOTFL (NO END OF TAPE YET)
00727 0020 00 4 00736 TRA CHEK1,4 AND PROCESS WAITING ERRORS
00730 0020 00 0 01460 TRA RDREOF
00731 0020 00 0 01444 TRA BADCRD
00732 0020 00 0 01331 TRA CHKRDR ..
00733 0020 00 0 01102 TRA ENDTP1 ..
00734 0020 00 0 01063 TRA EOF1 ..
00735 0020 00 0 01003 TRA REDUN1 ..
00736 0600 00 0 01172 CHEK1 STZ ERRFL NO REDUNDANCY
00737 0600 00 0 01173 STZ EOFFL OR EOF YET.
00740 0774 00 2 00012 AXT 10,2 TRY 10 TIMES TO WRITE
00741 0636 00 1 00743 CHEK2 SCA *+2,1 SET CHANNEL TO WAIT ON AND
00742 0074 00 4 00001 TSX CHECK,4 WAIT AND CHECK WRITE
00743 0 00000 0 00000 ** ON CHANNEL 'N'
00744 0 00000 0 01172 ERRFL FLAG FOR REDUNDANCY
00745 0 00000 0 01173 EOFFL AND EOF
00746 0 00000 0 01174 EOTFL AND EOT
00747 0520 00 0 01172 ZET ERRFL WAS THERE A REDUNDANCY
00750 0020 00 0 00770 TRA REDUN YES, GO PROCESS IT
00751 0520 00 0 01173 ZET EOFFL HOW ABOUT END-OF-FILE
00752 0020 00 0 01061 TRA EOF YES, WORRY ABOUT IT
00753 0520 00 0 01174 ETTST ZET EOTFL NO. ARE WE OUT OF TAPE
00754 0074 00 2 01100 TSX ENDTAP,2 YES. GO CLOSE THIS TAPE
00755 0774 00 4 00000 CHKX4 AXT **,4 RESTORE RETURN AND
00756 0774 00 2 00000 CHKX2 AXT **,2 ..
00757 -0520 00 0 01175 NDCHK NZT LATERS RESTORE SAVED REGISTERS
00760 0020 00 4 00001 TRA 1,4 NO, GO BACK TO CALLER
00761 0500 00 0 00766 CLA CHKSVX YES
00762 0560 00 0 00767 LDQ CHKSVX+1 ..
00763 -0603 00 0 00755 DST CHKX4 ..
00764 0600 00 0 01175 STZ LATERS RESET FLAG
00765 0020 00 4 00001 TRA 1,4 ..
00766 CHKSVX BSS 2
00770 -2 00001 2 01003 REDUN TNX REDUN1,2,1 REDUNDANCY, IS THIS THE 10TH
00771 0074 00 4 00000 REDUNX TSX SELECT,4 NO, BACKSPACE OVER IT
00772 0020 00 0 00777 TRA RDNX1 NAD TRY AGAIN
00773 0761 00 0 00000 NOP
00774 0600 00 0 01172 RDNX1R STZ ERRFL RESET REDUNDANCY
00775 0600 00 0 01173 STZ EOFFL AND EOF FLAGS
1 PAGE 12
CHEK, ROUTINE TO CHECK PREVIOUS I/O
00776 0020 00 0 00741 TRA CHEK2 AND GO TO RE-CHECK
00777 0522 00 1 01232 RDNX1 XEC CKBSR,1
01000 0522 00 1 01226 XEC CKSEL,1
01001 0522 00 1 01220 XEC RCHX,1
01002 0020 00 0 00774 TRA RDNX1R
01003 -0520 00 0 01175 REDUN1 NZT LATERS 10 ERRORS, SHOULD WE SAVE CONDITION
01004 0020 00 0 01010 TRA *+4 NO, PROCESS IT NOW
01005 -0500 00 0 02275 CAL =O1000000 YES, ERROR TYPE 1
01006 0622 00 1 01242 STD BUSY,1 SAVE FLAGS FOR NEXT CALL
01007 0020 00 0 00755 TRA CHKX4 AND EXIT
01010 0520 00 1 01244 ZET READFL,1 IS THIS A READ CALL
01011 0020 00 0 01034 TRA REDUN2 YES, GO TELL CALLER ABOUT ERROR
01012 0074 00 4 00000 TSX SELECT,4
01013 0522 00 1 01232 XEC CKBSR,1 NO, BACKSPACE OVER RECORD
01014 0522 00 1 01226 XEC CKSEL,1 AND TRY TO ERASE
01015 0600 00 0 01172 STZ ERRFL RESET REDUNDANCIES
01016 0636 00 1 01020 SCA *+2,1 SET CHANNEL NUMBER AND
01017 0074 00 4 00001 TSX CHECK,4 WAIT UNTIL DONE
01020 0 00000 0 00000 ** ..
01021 0 00000 0 01172 ERRFL ..
01022 0 00000 0 01173 EOFFL ..
01023 0 00000 0 01174 EOTFL ..
01024 0520 00 0 01172 ZET ERRFL WAS THERE A BAD SPOT
01025 0020 00 0 01043 TRA BADSPT YES.
01026 0520 00 0 01174 ZET EOTFL ARE WE OUT OF TAPE
01027 0074 00 2 01100 TSX ENDTAP,2 YES, CLOSE THIS TAPE
01030 0074 00 4 00000 RETRY TSX SELECT,4
01031 0522 00 1 01226 XEC CKSEL,1 TRY 10 TIMES ON NEW AREA
01032 0522 00 1 01220 XEC RCHX,1 ..
01033 0020 00 0 00736 TRA CHEK1
01034 -0500 00 1 01240 REDUN2 CAL ERROR,1 10 REDUNDANCIES READING,
01035 0737 00 2 00000 PAC ,2 GET CALLER'S REDUNDANCY RETURN
01036 -0774 00 4 01037 AXC *+1,4 SIMULATE 'TSX'
01037 0020 00 2 00000 TRA 0,2 ..
01040 0020 00 0 00755 TRA CHKX4 '1,4' RETURN, IGNORE ERROR
01041 0774 00 2 00012 AXT 10,2 '2,4' RETURN, TRY 10 MORE TIMES
01042 0020 00 0 00771 TRA REDUNX ..
01043 0074 00 4 00000 BADSPT TSX SELECT,4
01044 0522 00 1 01232 XEC CKBSR,1 BAD SPOT, BACK UP OVER IT
01045 0761 00 0 00000 NOP
01046 0074 00 4 01151 TSX TAPNAM,4 GET BCD NAME FOR THIS SELECT ADDRESS
01047 0 00000 1 01226 CKSEL,1 ..
01050 0767 00 0 00022 ALS 18 SHIFT TO POSITION
01051 0622 00 0 01202 STD BADTP+3 AND INSERT IN ERROR COMMENT.
01052 0074 00 4 02024 TSX PRNT,4 COMPLAIN ON-LINE
01053 0 00004 0 01177 PZE BADTP,,BADTPL ..
01054 0074 00 4 01127 TSX CLOSE,4 CLOSE OUT THIS TAPE
01055 0074 00 4 00000 TSX SELECT,4
01056 0522 00 1 01226 XEC CKSEL,1 NEW TAPE IS UP, HERE WE GO AGAIN
01057 0522 00 1 01220 XEC RCHX,1 ..
1 PAGE 13
CHEK, ROUTINE TO CHECK PREVIOUS I/O
01060 0020 00 0 00736 TRA CHEK1 TRY 10 TIMES AGAIN
01061 -0520 00 1 01244 EOF NZT READFL,1 END-OF-FILE, ARE WE READING
01062 0020 00 0 00753 TRA ETTST NO, IGNORE IT (IMPOSSIBLE)
01063 -0520 00 0 01175 EOF1 NZT LATERS YES, SHALL WE SAVE IT
01064 0020 00 0 01070 TRA *+4 NO, DO IT NOW
01065 -0500 00 0 02276 CAL =O2000000 ERROR TYPE 2
01066 0622 00 1 01242 STD BUSY,1 SAVE FOR NEXT CALL
01067 0020 00 0 00755 TRA CHKX4 AND EXIT
01070 -0500 00 1 01240 CAL ERROR,1 GET CALLER'S EOF RETURN
01071 -0737 00 2 00000 PDC ,2 ..
01072 -0774 00 4 01073 AXC *+1,4 SIMULATE A 'TSX'
01073 0020 00 2 00000 TRA 0,2 ..
01074 0020 00 0 01030 TRA RETRY '1,4' RETURN, READ NEXT RECORD INSTEAD
01075 -0500 00 1 01226 CAL CKSEL,1 '2,4' RETURN, KILL REQUEST
01076 0602 00 0 01176 SLW FORGET FOR THIS TAPE
01077 0020 00 0 00755 TRA CHKX4 AND RETURN TO CALLER
01100 0520 00 1 01244 ENDTAP ZET READFL,1 END OF TAPE, ARE WE READING
01101 0020 00 2 00001 TRA 1,2 YES, IGNORE (IMPOSSIBLE)
01102 -0520 00 0 01175 ENDTP1 NZT LATERS NO, MUST WE SAVE IT
01103 0020 00 0 01107 TRA *+4 NO, PROCESS IT
01104 -0500 00 0 02277 CAL =O3000000 ERROR TYPE 3
01105 0622 00 1 01242 STD BUSY,1 SAVE FOR LATER
01106 0020 00 0 00755 TRA CHKX4 AND EXIT
01107 -0500 00 1 01240 CAL ERROR,1 DID CALLER GIVE 'EOT' RETURN
01110 -0100 00 0 01120 TNZ GIVEOT YES, USE IT
01111 0074 00 4 01151 TSX TAPNAM,4 GET BCD NAME
01112 0 00000 1 01226 CKSEL,1 ..
01113 0621 00 0 01210 STA ENDTP+5 AND INSERT IN COMMENT
01114 0074 00 4 02024 TSX PRNT,4 COMMENT ON-LINE
01115 0 00007 0 01203 PZE ENDTP,,ENDTPL ..
01116 0074 00 4 01127 TSX CLOSE,4 CLOSE OUT THIS TAPE
01117 0020 00 2 00001 TRA 1,2 NEW TAPE IS UP, EXIT.
01120 0737 00 2 00000 GIVEOT PAC ,2 SIMULATE A 'TSX'
01121 -0774 00 4 01122 AXC *+1,4 ..
01122 0020 00 2 00000 TRA 0,2 ..
01123 0020 00 0 01030 TRA RETRY '1,4' RETURN, RETRY
01124 -0500 00 1 01226 CAL CKSEL,1 '2,4' RETURN, KILL REQUEST
01125 0602 00 0 01176 SLW FORGET FOR THIS TAPE
01126 0020 00 0 00755 TRA CHKX4 ..
01127 0634 00 4 01142 CLOSE SXA CLSX4,4 HERE TO CLOSE OUT TAPE
01130 0074 00 4 00000 TSX SELECT,4
01131 0020 00 0 01144 TRA CLOS1
01132 -0774 00 4 01130 CLOS1R AXC *-2,4 (IN CASE RUNNING FOREGROUND)
01133 0600 00 0 01172 STZ ERRFL
01134 0600 00 0 01173 STZ EOFFL
01135 0600 00 0 01174 STZ EOTFL
01136 0074 00 4 02024 TSX PRNT,4 ASK OPERATOR TO CHANGE TAPES
01137 -0 00007 0 01212 MZE NEWTP,,NEWTPL ..
01140 0074 00 4 01667 TSX WRTST,4 START PRESSED, MAKE SURE TAPE IS WRITABLE
1 PAGE 14
CHEK, ROUTINE TO CHECK PREVIOUS I/O
01141 0761 00 1 01226 EFA CKSEL,1 (CONTAINS TAPE ADDRESS)
01142 0774 00 4 00000 CLSX4 AXT **,4 TAPE IS READY, RESTORE RETURN
01143 0020 00 4 00001 TRA 1,4 AND GO BACK TO CALLER
01144 0774 00 4 00005 CLOS1 AXT 5,4 WRITE 5 END-OF-FILE MARKS
01145 0522 00 1 01234 XEC CKWEF,1 ..
01146 2 00001 4 01145 TIX *-1,4,1 ..
01147 0522 00 1 01236 XEC CKRUN,1 UNLOAD THE TAPE
01150 0020 00 0 01132 TRA CLOS1R
01151 -0500 60 4 00001 TAPNAM CAL* 1,4 PICK UP TAPE ADDRESS
01152 -0320 00 0 02273 ANA =O17 ISOLATE TAPE NUMBER
01153 -0340 00 0 02272 LAS =10 IF IT IS 10,
01154 0761 00 0 00000 NOP ..
01155 -0754 00 0 00000 ZAC MAKE IT ZERO
01156 -0765 00 0 00006 LGR 6 SAVE IN MQ
01157 0756 00 1 00000 PCA ,1 GET CHANNEL NUMBER
01160 0400 00 0 02274 ADD =O20 PLUS OCTAL 20 FOR BCD CHANNEL NAME
01161 -0763 00 0 00006 LGL 6 APPEND TAPE NUMBER
01162 0020 00 4 00002 TRA 2,4 RETURN TO CALLER
01163 -3 00000 7 00000 PT SVN 0,-1,0
01164 -3 77777 0 00000 PD SVN 0,0,-1
01165 -3 77777 7 00000 PDT SVN 0,-1,-1
01166 0761 00 0 00000 EFA EFA
01167 3 00000 0 00000 PAR PAR
01170 1 00000 0 00000 2XOR3 PON
01171 3 00000 0 00000 IOCOM IORT **,,** SKELETON I/O COMMAND
01172 0 00000 0 00000 ERRFL
01173 0 00000 0 00000 EOFFL
01174 0 00000 0 00000 EOTFL
01175 0 00000 0 00000 LATERS
01176 0 00000 0 00000 FORGET
01177 606022212460 BADTP BCI 4, BAD SPOT ON TAPE .
00004 BADTPL EQU *-BADTP
01203 606025452460 ENDTP BCI 7, END OF TAPE SENSED WRITING TAPE .
00007 ENDTPL EQU *-ENDTP
01212 606023302145 NEWTP BCI 7, CHANGE TAPES AND PRESS START TO CONTINUE.
00007 NEWTPL EQU *-NEWTP
CHNLS MACRO OP,VAR
IRP OP
CHNLS1 OP'X,OP(A,B,C,D,E,F,G,H)(VAR)
IRP
CHNLS END
CHNLS1 MACRO LOC,OP1,OP2,VAR
LOC EQU *-1
IRP OP2
OP1'OP2 VAR
1 PAGE 15
CHEK, ROUTINE TO CHECK PREVIOUS I/O
IRP
ORG LOC+NCHNLS+1
CHNLS1 END
01221 CHNLS RCH(CKIOCM,1)
01223 CHNLS (TCO,RDC)(0)
N 01233 0760 00 0 07352 RDCG 0 .002
N 01234 0760 00 0 10352 RDCH 0 .002
01226 CKSEL EQU *-1
01227 DUP 1,NCHNLS
01227 0 00000 0 00000 PZE
01230 CKIOCM EQU *-1
01231 DUP 1,NCHNLS
01231 3 00000 0 00000 IORT **,,**
01232 CKBSR EQU *-1
01233 DUP 1,NCHNLS
01233 0764 00 0 00200 BSR **
01234 CKWEF EQU *-1
01235 DUP 1,NCHNLS
01235 0770 00 0 00200 WEF **
01236 CKRUN EQU *-1
01237 DUP 1,NCHNLS
01237 -0772 00 0 00200 RUN **
01240 ERROR EQU *-1
01241 DUP 1,NCHNLS
01241 0 00000 0 00000 **,,**
01242 BUSY EQU *-1
01243 DUP 1,NCHNLS
01243 0 00000 0 00000 0
01244 READFL EQU *-1
01245 DUP 1,NCHNLS
01245 0 00000 0 00000 **
1 PAGE 16
RCARD, READ ON-LINE BCD CARDS
01247 0634 00 4 01322 RCARD SXA RC4,4 SAVE REGISTERS
01250 0634 00 2 01323 SXA RC2,2 ..
01251 0634 00 1 01324 SXA RC1,1 ..
01252 1 77777 4 01253 TXI *+1,4,-1 AND SET RETURN
01253 0636 00 4 01325 SCA RCDRT,4
01254 -0774 00 1 00001 AXC 1,1 SET UP AND
01255 0074 00 4 00717 TSX CHEK,4 CHECK CHANNEL 'A'
01256 -0500 00 0 01176 CAL FORGET SHOULD WE IGNORE THIS CALL
01257 0100 00 0 01262 TZE *+3 NO.
01260 0322 00 0 01316 ERA RCD MAYBE
01261 0100 00 0 01322 TZE RC4 YES, GO AWAY
01262 0522 00 0 01322 XEC RC4 RESTORE XR4
01263 -0500 00 4 00001 CAL 1,4
01264 -0737 00 2 00000 PDC ,2
01265 0636 00 2 01352 SCA RCDLN,2
01266 0400 00 0 02271 ADD =6
01267 0621 00 0 01565 STA OUTPUT-2
01270 0400 00 0 02271 ADD =6
01271 0621 00 0 01566 STA OUTPUT-1
01272 -0320 00 0 01163 ANA PT
01273 0322 00 0 01167 ERA PAR
01274 0100 00 0 01301 TZE *+5
01275 0322 00 0 01170 ERA 2XOR3
01276 -0100 00 0 01322 TNZ RC4
01277 -0500 00 2 00000 CAL 0,2
01300 0621 00 0 01352 STA RCDLN
01301 -0500 00 4 00002 CAL 2,4
01302 0602 00 1 01240 SLW ERROR,1
01303 -0320 00 0 01163 ANA PT
01304 0322 00 0 01167 ERA PAR
01305 0100 00 0 01310 TZE *+3
01306 0322 00 0 01170 ERA 2XOR3
01307 -0100 00 0 01322 TNZ RC4
01310 -0500 00 0 01325 CAL RCDRT
01311 0400 00 0 02270 ADD =2
01312 0621 00 0 01325 STA RCDRT
01313 -0500 00 0 02300 CAL =O4000000
01314 0602 00 1 01242 SLW BUSY,1 SHOW BUSY WITH CARD READER
01315 0074 00 4 00000 TSX SELECT,4
01316 0762 00 0 01321 RCD RCDA
01317 0540 00 0 01475 RCHA RDCARD
01320 -0500 00 0 01316 CAL RCD
01321 0602 00 1 01226 SLW CKSEL,1
01322 0774 00 4 00000 RC4 AXT **,4
01323 0774 00 2 00000 RC2 AXT **,2
01324 0774 00 1 00000 RC1 AXT **,1
01325 0020 00 0 00000 RCDRT TRA **
01326 0074 00 4 00000 REREAD TSX SELECT,4
01327 0762 00 0 01321 RCDA
01330 0540 00 0 01475 RCHA RDCARD
01331 0600 00 0 01173 CHKRDR STZ EOFFL CHECK THE ON-LINE READER
01332 0074 00 4 00001 TSX CHECK,4 WAIT UNTIL DONE
01333 0 00000 0 00001 1
1 PAGE 17
RCARD, READ ON-LINE BCD CARDS
01334 0 00000 0 01172 ERRFL REDUNDANCY IS IMPOSSIBLE
01335 0 00000 0 01173 EOFFL REMEMBER EOF
01336 0 00000 0 01174 EOTFL END-OF-TAPE IS IMPOSSIBLE
01337 0520 00 0 01173 ZET EOFFL WAS THERE AN EOF
01340 0020 00 0 01460 TRA RDREOF YES, PROCESS IT
01341 0604 00 0 01530 STI RCDSI
01342 0634 00 3 01436 SXA RC3,3
01343 0774 00 3 00000 AXT 0,3
01344 0600 00 0 01531 STZ RCDMTM
01345 3 00000 1 01351 TXH *+4,1,0
01346 -0625 00 0 01531 STL RCDMTM
01347 0760 00 0 00016 LMTM
01350 0634 00 3 01436 SXA RC3,3
01351 0634 00 5 01437 SXA RC5,5
01352 0774 00 5 00000 RCDLN AXT **,5 GET BUFFER LENGTH
01353 -3 00000 5 01435 TXL RCDRST,5,0
01354 0774 00 2 00002 AXT 2,2 CHECK FOR ILLEGAL CHARS. IN INPUT
01355 0441 60 0 01536 VLDTS LDI* 3ROW
01356 0444 60 0 01537 OFT* 4ROW
01357 0020 00 0 01444 TRA BADCRD
01360 0442 60 0 01537 OSI* 4ROW
01361 0442 60 0 01540 OSI* 8ROW
01362 0774 00 1 00006 AXT 6,1
01363 0444 60 1 01547 OFT* ROWS,1
01364 0020 00 0 01444 TRA BADCRD
01365 0442 60 1 01547 OSI* ROWS,1
01366 2 00001 1 01363 TIX *-3,1,1
01367 -0046 00 0 00000 PIA
01370 0441 60 0 01533 LDI* 12ROW
01371 0444 60 0 01534 OFT* 11ROW
01372 0020 00 0 01444 TRA BADCRD
01373 0442 60 0 01534 OSI* 11ROW
01374 0444 60 0 01535 OFT* ZROW
01375 0020 00 0 01444 TRA BADCRD
01376 0043 00 0 00000 OAI
01377 0440 00 0 01532 IIS FENCE
01400 0604 60 0 01547 STI* ROWS
01401 2 00001 2 01355 TIX VLDTS,2,1
01402 0774 00 2 00002 AXT 2,2 NOW CONVERT TO BCD
01403 0774 00 3 00006 NXT36 AXT 6,3
01404 0774 00 1 00014 NXT6 AXT 12,1
01405 0441 00 0 02266 LDI =0
01406 -0754 00 0 00000 NXROW ZAC
01407 0560 60 1 01547 LDQ* ROWS,1
01410 0774 00 4 00006 AXT 6,4
01411 0767 00 0 00006 NXCLM ALS 6
01412 0162 00 0 01414 TQP *+2
01413 -0501 00 1 01564 ORA DIGIT,1
01414 -0773 00 0 00001 RQL 1
01415 2 00001 4 01411 TIX NXCLM,4,1
01416 -0600 60 1 01547 STQ* ROWS,1
01417 -3 00000 1 01424 TXL INVERT,1,0
1 PAGE 18
RCARD, READ ON-LINE BCD CARDS
01420 0043 00 0 00000 OAI
01421 2 00001 1 01406 TIX NXROW,1,1
01422 0774 00 1 00000 AXT 0,1
01423 0020 00 0 01406 TRA NXROW
01424 0041 00 0 00000 INVERT IIA
01425 0604 60 2 01567 STI* OUTPUT,2
01426 -2 00001 5 01435 TNX RCDRST,5,1
01427 2 00001 3 01404 TIX NXT6,3,1
01430 2 00001 2 01403 TIX NXT36,2,1
01431 -0500 00 0 02305 CAL =H
01432 1 77777 3 01433 TXI *+1,3,-1
01433 0602 60 2 01567 SLW* OUTPUT,2
01434 2 00001 5 01432 TIX *-2,5,1
01435 0441 00 0 01530 RCDRST LDI RCDSI
01436 0774 00 3 00000 RC3 AXT **,3
01437 0774 00 5 00000 RC5 AXT **,5
01440 -0774 00 1 00001 AXC 1,1
01441 0520 00 0 01531 ZET RCDMTM
01442 -0760 00 0 00016 EMTM
01443 0020 00 0 00755 TRA CHKX4 RETURN TO CALLER
01444 -0774 00 1 00001 BADCRD AXC 1,1
01445 -0520 00 0 01175 NZT LATERS SHOULD WE LEAVE THIS TILL LATER
01446 0020 00 0 01452 TRA *+4 NO.
01447 -0500 00 0 02301 CAL =O5000000 YES.
01450 0602 00 1 01242 SLW BUSY,1
01451 0020 00 0 00755 TRA CHKX4
01452 -0500 00 1 01240 CAL ERROR,1
01453 0737 00 2 00000 PAC ,2
01454 -0774 00 4 01455 AXC *+1,4
01455 0020 00 2 00000 TRA 0,2
01456 0020 00 0 01326 TRA REREAD '1,4' RETURN, READ NEXT INSTEAD
01457 0020 00 0 01402 TRA NXT36-1 '2,4' RETURN, ACCEPT AS IS
01460 -0520 00 0 01175 RDREOF NZT LATERS IGNORE FOR NOW.Q.
01461 0020 00 0 01465 TRA *+4 NO
01462 0500 00 0 02302 CLA =O6000000 YES
01463 0602 00 1 01242 SLW BUSY,1
01464 0020 00 0 00755 TRA CHKX4
01465 -0500 00 1 01240 CAL ERROR,1 GET CALLER'S EOF RETURN
01466 -0737 00 2 00000 PDC ,2 ..
01467 -0774 00 4 01470 AXC *+1,4 SIMULATE A 'TSX'
01470 0020 00 2 00000 TRA 0,2 ..
01471 0020 00 0 01326 TRA REREAD '1,4' RETURN, READ ANOTHER CARD
01472 0500 00 1 01226 CLA CKSEL,1 '2,4' RETURN, FORGET IT
01473 0602 00 0 01176 SLW FORGET
01474 0020 00 0 00755 TRA CHKX4 AND RETURN
1 PAGE 19
RCARD, READ ON-LINE BCD CARDS
01475 -1 00030 0 01476 RDCARD IOCT RCRDBF,,24
01476 RCRDBF BSS 24
01526 NVRMSK BSS 2
01530 0 00000 0 00000 RCDSI
01531 0 00000 0 00000 RCDMTM
01532 -377777777777 FENCE OCT 777777777777
01533 0 00000 2 01526 12ROW RCRDBF+24,2
01534 0 00000 2 01524 11ROW RCRDBF+22,2
01535 0 00000 2 01522 ZROW RCRDBF+20,2
01536 0 00000 2 01514 3ROW RCRDBF+14,2
01537 0 00000 2 01512 4ROW RCRDBF+12,2
01540 0 00000 2 01502 8ROW RCRDBF+4,2
01541 0 00000 2 01520 RCRDBF+18,2
01542 0 00000 2 01516 RCRDBF+16,2
01543 0 00000 2 01510 RCRDBF+10,2
01544 0 00000 2 01506 RCRDBF+8,2
01545 0 00000 2 01504 RCRDBF+6,2
01546 0 00000 2 01500 RCRDBF+2,2
01547 0 00000 2 01530 ROWS NVRMSK+2,2
01550 +000000000020 OCT 20,40,60,3,4,10,1,2,5,6,7,11
01564 +000000000060 DIGIT OCT 60
01565 0 00000 3 00000 **,3
01566 0 00000 3 00006 **+6,3
01567 OUTPUT BSS 0
1 PAGE 20
CLTAP AND RWTAP, CLOSE AND UNLOAD TAPES
01567 0600 00 0 01627 RWTAP STZ CLOSF HERE TO JUST UNLOAD, DON'T WRITE EOF'S
01570 0020 00 0 01572 TRA *+2
01571 -0625 00 0 01627 CLTAP STL CLOSF HERE TO CLOSE TAPE, PUT EOF'S ON IT
01572 0634 00 4 01646 SXA TPNX4,4 GIVE CALLER'S XR4 TO TAPENO
01573 0074 00 4 01644 TSX TAPENO,4 AND GET TAPE ADDRESS
01574 0634 00 4 01615 SXA UNLX4,4 SAVE REGISTERS
01575 0634 00 1 01616 SXA UNLX1,1 ..
01576 0621 00 0 01625 STA CLSRUN SAVE TAPE ADDRESS
01577 0621 00 0 01623 STA CLSWEF IN USEFUL PLACES
01600 0771 00 0 00011 ARS 9 ISOLATE CHANNEL NUMBER
01601 0737 00 1 00000 PAC ,1 ..
01602 -3 77775 1 01615 TXL UNLX4,1,-NCHNLS-1 EXIT IF 0 OR .G. NCHNLS
01603 0074 00 4 00713 TSX CHK,4 FREE UP THIS CHANNEL
01604 0074 00 4 00000 TSX SELECT,4
01605 0020 00 0 01620 TRA CLS1
01606 -0774 00 4 01604 CLS1R AXC *-2,4
01607 0636 00 1 01611 SCA *+2,1 RESET ANY LEFTOVER FLAGS
01610 0074 00 4 00001 TSX CHECK,4 ..
01611 0 00000 0 00000 ** ..
01612 0 00000 0 01627 CLOSF
01613 0 00000 0 01627 CLOSF
01614 0 00000 0 01627 CLOSF
01615 0774 00 4 00000 UNLX4 AXT **,4 RESTORE REGISTERS
01616 0774 00 1 00000 UNLX1 AXT **,1 ..
01617 0020 00 4 00002 TRA 2,4 AND RETURN
01620 -0520 00 0 01627 CLS1 NZT CLOSF SHOULD WE WRITE EOF'S
01621 0020 00 0 01625 TRA CLSRUN NO
01622 0774 00 4 00005 AXT 5,4 5 END-OF-FILE'S
01623 0770 00 0 00200 CLSWEF WEF ** ..
01624 2 00001 4 01623 TIX *-1,4,1 ..
01625 -0772 00 0 00200 CLSRUN RUN ** NOW UNLOAD IT
01626 0020 00 0 01606 TRA CLS1R
01627 0 00000 0 00000 CLOSF
1 PAGE 21
FOUT, ROUTINE TO COMPLETE AND CHECK ALL I/O
01630 0634 00 1 01642 FOUT SXA FOUX1,1 SAVE INDEX REGISTERS
01631 0634 00 4 01641 SXA FOUX4,4 ..
01632 -0534 00 4 00072 LXD CURBUF,4 GET WORD COUNT OF CURRENT BUFFER IN SPRNT
01633 -3 00000 4 01635 TXL *+2,4,0 IS IT EMPTY
01634 0074 00 4 00042 TSX WRIT1,4 NO. WRITE IT OUT.
01635 -0774 00 1 00002 AXC NCHNLS,1 GET NUMBER OF TAPE CHANNELS
01636 0074 00 4 00717 TSX CHEK,4 CHECK I/O ON EACH CHANNEL
01637 1 00001 1 01640 TXI *+1,1,1 ADVANCE TO NEXT CHANNEL
01640 3 00000 1 01636 TXH *-2,1,0 GET THEM ALL
01641 0774 00 4 00000 FOUX4 AXT **,4 RESTORE INDEX'S
01642 0774 00 1 00000 FOUX1 AXT **,1 ..
01643 0020 00 4 00001 TRA 1,4 AND RETURN TO CALLER
1 PAGE 22
TAPENO, ROUTINE TO PICK UP TAPE ADDRESS
01644 1 77777 4 01645 TAPENO TXI *+1,4,-1 GET RETURN LOCATION
01645 0636 00 4 01666 SCA TPNR,4 AND SAVE IT
01646 0774 00 4 00000 TPNX4 AXT **,4 RESTORE OLD XR4
01647 -0500 00 4 00001 CAL 1,4 IF THE WORD AT '1,4' IS
01650 -0320 00 0 01164 ANA PD A 'PZE', SELECT ADDRESS IS
01651 0100 00 0 01662 TZE LITAPN SPECIFIED LITERALLY WITH INDEXING,
01652 0322 00 0 01166 ERA EFA OR IF 'EFA',
01653 0100 00 0 01660 TZE EFARG INDIRECTLY WITH INDEXING,
01654 -0500 00 4 00001 CAL 1,4 OR IF IT IS A 'PAR'
01655 -0320 00 0 01165 ANA PDT INDIRECTLY WITHOUT INDEXING.
01656 0322 00 0 01167 ERA PAR OTHERWISE THIS CALL IS INVALID,
01657 -0100 00 4 00001 TNZ 1,4 RETURN TO CALLER AT 1,4.
01660 -0500 60 4 00001 EFARG CAL* 1,4 'EFA' OR 'PAR', GET SELECT ADDRESS
01661 0020 00 0 01666 TRA TPNR AND JOIN MAIN ROUTINE.
01662 -0500 00 4 00001 LITAPN CAL 1,4 'PZE', COMPUTE EFFECTIVE ADDRESS
01663 0625 00 0 01664 STT *+1 ..
01664 0756 00 0 00000 PCA ,** ..
01665 0401 00 4 00001 ADM 1,4 USE THIS FOR SELECT ADDRESS
01666 0020 00 0 00000 TPNR TRA ** ..
1 PAGE 23
RDYTST AND WRTST, ENSURE THAT A TAPE IS READY
01667 -0625 00 0 02021 WRTST STL WRTS REMEMBER TO CHECK WRITABILITY
01670 0020 00 0 01672 TRA *+2
01671 0600 00 0 02021 RDYTST STZ WRTS DON'T TRY TO WRITE ON IT
01672 0634 00 4 01646 SXA TPNX4,4 ..
01673 0074 00 4 01644 TSX TAPENO,4 GET ADDRESS OF TAPE TO CHECK
01674 0634 00 4 01727 SXA RDYX4,4 ..
01675 0634 00 1 01730 SXA RDYX1,1 ..
01676 0621 00 0 01732 STA RDY1 SET UP TAPE CALLS
01677 0621 00 0 01742 STA RDY2 ..
01700 0621 00 0 01747 STA RDY3 ..
01701 0771 00 0 00011 ARS 9 GET CHANNEL NUMBER
01702 0737 00 1 00000 PAC ,1 ..
01703 -3 77775 1 01727 TXL RDYX4,1,-NCHNLS-1 EXIT IF 0 OR .G. NCHNLS
01704 0074 00 4 00713 TSX CHK,4 FREE UP THE CHANNEL
01705 0560 00 1 01222 LDQ TCOX,1 SET UP TEST LOCATIONS
01706 -0620 00 0 01736 SLQ RDY1.5 ..
01707 -0620 00 0 01746 SLQ RDY2.5 ..
01710 0600 00 0 02022 RDY STZ NTRDY CLEAR SOME FLAGS
01711 0600 00 0 02023 STZ NWRT
01712 0074 00 4 00000 TSX SELECT,4
01713 0020 00 0 01732 TRA RDY1
01714 -0774 00 4 01712 RDYO1 AXC *-2,4 RESTORE XR4 IN CASE RUNNING FOREGROUND
01715 0520 00 0 02022 ZET NTRDY WAS IT READY
01716 0020 00 0 01754 TRA NOTRDY NO, COMPLAIN
01717 0520 00 0 02023 ZET NWRT AND WRITEABLE
01720 0020 00 0 01765 TRA ISPROT GRUMBLE, GRUMBLE ...
01721 0636 00 1 01723 SCA *+2,1 TAPE OK,
01722 0074 00 4 00001 TSX CHECK,4 CLAER INDICATORS ON THIS CHANNEL
01723 0 00000 0 00000 **
01724 0 00000 0 02021 WRTS
01725 0 00000 0 02021 WRTS
01726 0 00000 0 02021 WRTS
01727 0774 00 4 00000 RDYX4 AXT **,4 RESTORE REGISTERS
01730 0774 00 1 00000 RDYX1 AXT **,1 ..
01731 0020 00 4 00002 TRA 2,4 AND RETURN TO CALLER
01732 0764 00 0 00200 RDY1 BSR ** SEE IF TAPE IS READY, TRY TO BACKSPACE IT
01733 0774 00 4 00036 AXT BSRTIM,4 WAIT ENOUGH CYCLES FOR THE CHANNEL
01734 2 00001 4 01734 TIX *,4,1 TO HAVE GIVEN CONTRLO TO THE DRIVE
01735 -0774 00 4 02022 AXC NTRDY,4 SET FLAG TO USE
01736 0060 00 0 01751 RDY1.5 TCOA NR IS THE CHANNEL STILL RUNNING
01737 0522 00 1 01224 XEC RDCX,1 NO, ITS READY, RESET IT BEFORE IT MOVES
01740 -0520 00 0 02021 NZT WRTS SHOULD WE TRY WRITING
01741 0020 00 0 01714 TRA RDYO1 NO, GO AWAY
01742 0770 00 0 00200 RDY2 WEF ** NOW TRY WRITING ON IT
01743 0774 00 4 72460 AXT WEFTIM,4 WAIT LONG ENOUGH FOR THE
01744 2 00001 4 01744 TIX *,4,1 OPERATION TO TERMINATE
01745 -0774 00 4 02023 AXC NWRT,4 SET FLAG TO USE
01746 0060 00 0 01751 RDY2.5 TCOA NR IS IT STILL RUNNING
01747 0764 00 0 00200 RDY3 BSR ** NO, ITS WRITEABLE, BACKSPACE OVER EOF
01750 0020 00 0 01714 TRA RDYO1 AND EXIT
1 PAGE 24
RDYTST AND WRTST, ENSURE THAT A TAPE IS READY
01751 0522 00 1 01224 NR XEC RDCX,1 RESET HANGING SELECT
01752 -0625 00 4 00000 STL 0,4 AND SET FLAG
01753 0020 00 0 01714 TRA RDYO1 THEN RETURN
01754 0074 00 4 01151 NOTRDY TSX TAPNAM,4 GET BCD TAPE NAME
01755 0 00000 0 01732 RDY1 ..
01756 0767 00 0 00022 ALS 18 SHIFT TO POSITION
01757 0622 00 0 01777 STD NTRDYM+1 AND INSERT IN COMMENT
01760 0074 00 4 02024 TSX PRNT,4 COMPLAIN ON-LINE
01761 0 00004 0 01776 PZE NTRDYM,,NTRDYL ..
01762 0074 00 4 02024 TSX PRNT,4 ..
01763 -0 00010 0 02011 MZE RDYMS,,RDYMSL ..
01764 0020 00 0 01710 TRA RDY START PRESSED, TRY AGAIN.
01765 0074 00 4 01151 ISPROT TSX TAPNAM,4 GET BCD TAPE NAME
01766 0 00000 0 01732 RDY1 ..
01767 0767 00 0 00022 ALS 18 SHIFT TO POSITION
01770 0622 00 0 02003 STD ISPRT+1 AND INSERT IN COMMENT
01771 0074 00 4 02024 TSX PRNT,4 COMPLAIN ON-LINE
01772 0 00007 0 02002 PZE ISPRT,,ISPRTL ..
01773 0074 00 4 02024 TSX PRNT,4 ..
01774 -0 00010 0 02011 MZE RDYMS,,RDYMSL ..
01775 0020 00 0 01710 TRA RDY THEY CLAIM IT'S OK, GO CHECK
00036 BSRTIM EQU 30 CYCLES TO WAIT FOR BSR TO CLEAR CHANNEL
72460 WEFTIM EQU 30000 CYCLES TO WAIT FOR WEF TO TERMINATE
01776 606063214725 NTRDYM BCI 4, TAPE IS NOT READY.
00004 NTRDYL EQU *-NTRDYM
02002 606063214725 ISPRT BCI 7, TAPE IS PROTECTED. INSERT A RING,
00007 ISPRTL EQU *-ISPRT
02011 606051252124 RDYMS BCI 8, READY THE TAPE AND PRESS START TO CONTINUE.
00010 RDYMSL EQU *-RDYMS
02021 0 00000 0 00000 WRTS FLAG FOR WRITEABLE TEST
02022 0 00000 0 00000 NTRDY
02023 0 00000 0 00000 NWRT
1 PAGE 25
PRNT, ON-LINE PRINT ROUTINE
02024 0634 00 4 02153 PRNT SXA PRTX4,4 SAVE INDEX REGISTERS
02025 0634 00 2 02154 SXA PRTX2,2 ..
02026 0634 00 1 02155 SXA PRTX1,1 ..
02027 -0774 00 1 00001 AXC 1,1 SET FOR CHANNEL 'A'
02030 0074 00 4 00713 TSX CHK,4 AND CALL CHEK ROUTINE
02031 0522 00 0 02153 XEC PRTX4 RESTORE XR4
02032 -0500 00 4 00001 CAL 1,4 GET CONTROL WORD
02033 0625 00 0 02177 STT TAG SPACING CONTROL
02034 -0734 00 2 00000 PDX ,2 DECREMENT IS 'N'
02035 -3 00000 2 02153 TXL PRTX4,2,0 EXIT IF WORD COUNT IS ZERO.
02036 -3 00024 2 02040 TXL *+2,2,20 IF GREATER THAN 20,
02037 0774 00 2 00024 AXT 20,2 PRINT FIRST 20 WORDS ONLY
02040 0754 00 2 00000 PXA ,2 MOVE N TO AC
02041 0361 00 4 00001 ACL 1,4 FORM FIRST + N
02042 0621 00 0 02120 STA PRNT12 SAVE FOR CARD IMAGE ALGORITHM
02043 -0754 00 0 00000 ZAC CLEAR AC
02044 0522 00 0 02120 XEC PRNT12 AND MOVE FIRST WORD TO MQ
02045 -0763 00 0 00006 LGL 6 IF CARRIAGE CONTROL CHARACTER
02046 -0340 00 0 02267 LAS =1 IS GREATER THAN 1,
02047 -0500 00 0 02270 CAL =2 ASSUME SINGLE SPACE
02050 0761 00 0 00000 NOP ..
02051 0737 00 4 00000 PAC ,4 MOVE CARRIAGE CONTROL INDEX
02052 -0500 00 4 02201 CAL CCLST,4 INSERT CARRIAGE CONTROL
02053 0602 00 0 02150 SLW PSPRA FOR SENSING AFTER PRINTER SELECT
02054 -0500 00 0 02303 CAL =O200000000000 COLUMN MARKER--IGNORE FIRST CHARACTER
02055 0774 00 4 00005 AXT 5,4 COUNT 5 CHARACTERS FOR FIRST WORD
02056 0774 00 1 00030 PRNT1 AXT 24,1 COUNT 24 WORDS IN CARD IMAGE
02057 0600 00 1 02236 STZ CDIM+24,1 WIPE OUT 24 WORDS
02060 2 00001 1 02057 TIX *-1,1,1 IN CARD IMAGE BUFFER
02061 0774 00 1 00002 AXT 2,1 SET HALF MARKER TO LEFT HALF
02062 -0634 00 1 02111 PRNT2 SXD PRNT9,1 SAVE HALF MARKER
02063 0634 00 2 02115 PRNT3 SXA PRNT11,2 SAVE CURRENT N
02064 0602 00 0 02200 PRNT4 SLW PTEMP SAVE COLUMN MARKER
02065 -0754 00 0 00000 ZAC CLEAR AC, AND
02066 -0763 00 0 00006 LGL 6 GET NEXT CHARACTER
02067 0767 00 0 00001 ALS 1 DOUBLE VALUE,
02070 0734 00 2 00000 PAX ,2 MOVE TO XR2
02071 -0500 00 0 02200 CAL PTEMP RESTORE COLUMN MARKER
02072 -3 00022 2 02111 TXL PRNT9,2,18 IF NUMBER, SKIP ZONE CHECKING
02073 -3 00137 2 02077 PRNT5 TXL PRNT6,2,95 IF CHARACTER HAS ZERO ZONE,
02074 -3 00140 2 02113 TXL PRNT10,2,96 AND IS NOT BLANK,
02075 -0602 00 1 02232 ORS CDIM+20,1 SET BIT FOR ZERO ZONE,
02076 1 77640 2 02105 TXI PRNT8,2,-96 REMOVE ZONE, AND TRANSFER
02077 -3 00077 2 02102 PRNT6 TXL PRNT7,2,63 IF CHARACTER HAS ELEVEN ZONE,
02100 -0602 00 1 02234 ORS CDIM+22,1 SET BIT FOR ELEVEN ZONE,
02101 1 77700 2 02105 TXI PRNT8,2,-64 REMOVE ZONE, AND TRANSFER
02102 -3 00037 2 02105 PRNT7 TXL PRNT8,2,31 IF CHARACTER HAS TWELVE ZONE,
02103 -0602 00 1 02236 ORS CDIM+24,1 SET BIT FOR TWELVE ZONE,
02104 1 77740 2 02105 TXI PRNT8,2,-32 AND REMOVE ZONE
02105 -3 00022 2 02110 PRNT8 TXL *+3,2,18 IF NOT A NUMBER,
02106 -0602 00 1 02212 ORS CDIM+4,1 SET BIT FOR EIGHT ZONE
02107 1 77760 2 02110 TXI *+1,2,-16 AND REMOVE EIGHT ZONE
02110 -3 00000 2 02113 TXL PRNT10,2,0 IF NOT ZERO,
1 PAGE 26
PRNT, ON-LINE PRINT ROUTINE
02111 1 00000 2 02112 PRNT9 TXI *+1,2,- NUMBER, MARK LEFT OR RIGHT HALF
02112 -0602 00 2 02232 ORS CDIM+20,2 AND SET ZONE BIT OF NUMBER
02113 0771 00 0 00001 PRNT10 ARS 1 FINISHED THIS COLUMN, SHIFT FOR NEXT
02114 2 00001 4 02064 TIX PRNT4,4,1 COUNT CHARACTERS IN THIS WORD
02115 0774 00 2 00000 PRNT11 AXT -,2 FINISHED THIS WORD, RESTORE N
02116 1 77777 2 02117 TXI *+1,2,-1 SUBTRACT 1
02117 -3 00000 2 02125 TXL PRNT13,2,0 IF NOT LAST WORD,
02120 0560 00 2 00000 PRNT12 LDQ -,2 GET NEXT WORD
02121 0774 00 4 00006 AXT 6,4 COUNT 6 CHARACTERS FOR NEXT WORD
02122 -0100 00 0 02063 TNZ PRNT3 IF AC IS ZERO,
02123 -0500 00 0 02304 CAL =O400000000000 SET COLUMN MARKER TO FIRST COLUMN
02124 2 00001 1 02062 TIX PRNT2,1,1 OF NEXT HALF
02125 0074 00 4 00001 PRNT13 TSX CHECK,4 WHEN CHANNEL A IS FREE,
02126 0 00000 0 00001 1
02127 0 00000 0 02200 PTEMP
02130 0 00000 0 02200 PTEMP
02131 0 00000 0 02200 PTEMP
02132 0774 00 1 00030 AXT 24,1 MOVE 24 WORDS
02133 -0500 00 1 02236 CAL CDIM+24,1 FROM CARD IMAGE BUFFER
02134 0602 00 1 02266 SLW PBUFF+24,1 TO PRINT BUFFER
02135 2 00001 1 02133 TIX *-2,1,1 ..
02136 0074 00 4 00000 TSX SELECT,4
02137 0020 00 0 02147 TRA PRNT14
02140 0761 00 0 00000 NOP
02141 -3 00000 2 02153 PRNT15 TXL PRTX4,2,0 IF LAST WORD NOT WRITTEN,
02142 -0500 00 0 02204 CAL NOSPC INSERT NON-SPACING CONTROL
02143 0602 00 0 02150 SLW PSPRA FOR RIGHT-48 CHARACTERS
02144 -0500 00 0 02304 CAL =O400000000000 SET COLUMN MARKER TO FIRST COLUMN
02145 0774 00 4 00006 AXT 6,4
02146 0020 00 0 02056 TRA PRNT1 RETURN TO FORM CARD IMAGE FOR RIGHT-48
02147 0766 00 0 01361 PRNT14 WPRA WRITE-SELECT PRINTER
02150 0761 00 0 00000 PSPRA NOP SENSE PRINTER FOR CARRIAGE CONTROL
02151 0540 00 0 02205 RCHA PRCOM AND LOAD I/O COMMAND
02152 0020 00 0 02141 TRA PRNT15
02153 0774 00 4 00000 PRTX4 AXT -,4 RESTORE INDEX REGISTERS
02154 0774 00 2 00000 PRTX2 AXT -,2 ..
02155 0774 00 1 00000 PRTX1 AXT -,1 ..
02156 0500 00 4 00001 CLA 1,4 GET CONTROL WORD
02157 -0520 00 0 02177 NZT TAG IF TAG IS 0,
02160 0120 00 4 00002 TPL 2,4 RETURN IF PREFIX IS PZE
02161 0074 00 4 00000 TSX SELECT,4
02162 0020 00 0 02173 TRA PRNT16
02163 0761 00 0 00000 NOP
02164 0522 00 0 02153 PRNT17 XEC PRTX4
02165 0500 00 4 00001 CLA 1,4
02166 0120 00 4 00002 TPL 2,4 IF PREFIX IS MZE,
02167 0760 00 0 00000 CLM LIGHT UP AC
02170 0760 00 0 00006 COM ..
02171 0560 00 0 02306 LDQ =O777777777777 LIGHT UP MQ
02172 0000 00 4 00002 HTR 2,4 HALT COMPUTER
1 PAGE 27
PRNT, ON-LINE PRINT ROUTINE
02173 0766 00 0 01361 PRNT16 WPRA WRITE-SELECT PRINTER
02174 0760 00 0 01364 SPRA 4 SPACE PRINTER
02175 0760 00 0 01363 SPRA 3 ABOUT 1/10 PAGE
02176 0020 00 0 02164 TRA PRNT17
02177 0 00000 0 00000 TAG PZE 0 STORAGE FOR CONTROL WORD TAG
02200 0 00000 0 00000 PTEMP PZE 0 CURRENT COLUMN MARKER
02201 0760 00 0 01364 CCLST SPRA 4 CARRIAGE CONTROL. 0=DOUBLE SPACE
02202 0760 00 0 01361 SPRA 1 CARRIAGE CONTROL. 1=NEW PAGE
02203 0761 00 0 00000 NOP CARRIAGE CONTROL. 2=SINGLE SPACE
02204 0760 00 0 01371 NOSPC SPRA 9 NON-SPACING CARRIAGE CONTROL
1 PAGE 28
I/O COMMANDS AND OTHER MISCELLANEOUS STORAGE
02205 0 00030 0 02236 PRCOM IOCD PBUFF,,24 I/O COMMAND FOR PRINTER
02206 CDIM BSS 24 AREA FOR CARD IMAGE FORMATION
02236 PBUFF BSS 24 BUFFER BETWEEN CARD IMAGE AND PRINTER
END
LITERALS
02266 000000000000
02267 000000000001
02270 000000000002
02271 000000000006
02272 000000000012
02273 000000000017
02274 000000000020
02275 000001000000
02276 000002000000
02277 000003000000
02300 000004000000
02301 000005000000
02302 000006000000
02303 200000000000
02304 400000000000
02305 606060606060
02306 777777777777
1 PAGE 1
POST PROCESSOR ASSEMBLY DATA
2307 IS THE FIRST LOCATION NOT USED BY THIS PROGRAM
0REFERENCES TO DEFINED SYMBOLS
1203 P 4, 52
2224 Q 4, 465
2204 R 4, 466
1751 NR 1736, 1746
1164 PD 1650
1163 PT 547, 556, 673, 1272, 1303
713 CHK 1603, 1704, 2030
1166 EFA 1652
1061 EOF 752
0 MEM 4
1167 PAR 550, 557, 633, 674, 1273, 1304, 1656
1165 PDT 634, 1655
1324 RC1 1251
1323 RC2 1250
1436 RC3 1342, 1350
1322 RC4 1247, 1261, 1262, 1276, 1307
1437 RC5 1351
1316 RCD 1260, 1320
1710 RDY 1764, 1775
2177 TAG 2033, 2157
1536 3ROW 1355
1537 4ROW 1356, 1360
1540 8ROW 1361
523 BUFF 436, 442, 463, 464
1242 BUSY 566, 657, 717, 724, 1006, 1066, 1105, 1243, 1314, 1450, 1463
2206 CDIM 2057, 2075, 2100, 2103, 2106, 2112, 2133
717 CHEK 536, 621, 661, 1255, 1636
1620 CLS1 1605
31 COPY 25, 35
1063 EOF1 734
1630 FOUT 0
23 MOVE 20
2023 NWRT 1711, 1717, 1745
1404 NXT6 1427
30 PKUP 14, 32
464 PNTR 444
2024 PRNT 0, 1052, 1114, 1136, 1760, 1762, 1771, 1773
455 PUX1 423
454 PUX2 415, 420
453 PUX4 422
1220 RCHX 601, 627, 1001, 1032, 1057, 1221, 1223
1224 RDCX 1225, 1227, 1737, 1751
604 RDX1 530
603 RDX2 527, 551, 562
602 RDX4 526, 535, 542, 544
1732 RDY1 1676, 1713, 1755, 1766
1742 RDY2 1677
1747 RDY3 1700
600 READ 525, 541, 572
1547 ROWS 1363, 1365, 1400, 1407, 1416
1222 TCOX 1223, 1225, 1705
1 PAGE 2
POST PROCESSOR ASSEMBLY DATA
1666 TPNR 1645, 1661
650 WRIT 666
2021 WRTS 1667, 1671, 1724, 1725, 1726, 1740
1535 ZROW 1374
1534 11ROW 1371, 1373
1533 12ROW 1370
1170 2XOR3 561, 676, 1275, 1306
1177 BADTP 1051, 1053, 1203
420 BPNCH 0
73 BUFF1 72
244 BUFF2 53
2201 CCLST 2052
1 CHECK 742, 1017, 1332, 1610, 1722, 2125
736 CHEK1 727, 1033, 1060
741 CHEK2 776
756 CHKX2 714, 722
755 CHKX4 713, 721, 763, 1007, 1040, 1067, 1077, 1106, 1126, 1443, 1451, 1464, 1474
1232 CKBSR 574, 645, 777, 1013, 1044, 1233
1236 CKRUN 576, 647, 1147, 1237
1226 CKSEL 573, 654, 1000, 1014, 1031, 1047, 1056, 1075, 1112, 1124, 1141, 1227, 1321, 1472
1234 CKWEF 575, 646, 1145, 1235
1144 CLOS1 1131
1127 CLOSE 1054, 1116
1627 CLOSF 1567, 1571, 1612, 1613, 1614, 1620
1606 CLS1R 1626
1142 CLSX4 1127
1571 CLTAP 0
1564 DIGIT 1413
415 DPNCH 0
1660 EFARG 1653
1203 ENDTP 1113, 1115, 1212
1173 EOFFL 737, 745, 751, 775, 1022, 1134, 1331, 1335, 1337
1174 EOTFL 726, 746, 753, 1023, 1026, 1135, 1336
1172 ERRFL 736, 744, 747, 774, 1015, 1021, 1024, 1133, 1334
1240 ERROR 546, 632, 642, 1034, 1070, 1107, 1241, 1302, 1452, 1465
753 ETTST 1062
1532 FENCE 1377
1642 FOUX1 1630
1641 FOUX4 1631
660 GTNXT
17 INCMT 15, 22
53 IOBUF 45, 46
1171 IOCOM 652, 655, 670, 671, 702
703 ISNXT 675
2002 ISPRT 1770, 1772, 2011
150 NBUFF 4, 20, 73, 244
757 NDCHK 720
1212 NEWTP 1137, 1221
2204 NOSPC 2142
2022 NTRDY 1710, 1715, 1735
667 NXARG 643, 660
1411 NXCLM 1415
1406 NXROW 1421, 1423
1403 NXT36 1430, 1457
2236 PBUFF 2134, 2205
1 PAGE 3
POST PROCESSOR ASSEMBLY DATA
460 PBUFL 433
441 PFILL 434
435 PLOOP 430, 440
2205 PRCOM 2151
2056 PRNT1 2146
2062 PRNT2 2124
2063 PRNT3 2122
2064 PRNT4 2114
2073 PRNT5
2077 PRNT6 2073
2102 PRNT7 2077
2105 PRNT8 2076, 2101, 2102, 2104
2111 PRNT9 2062, 2072
2155 PRTX1 2026
2154 PRTX2 2025
2153 PRTX4 2024, 2031, 2035, 2141, 2164
2150 PSPRA 2053, 2143
2200 PTEMP 2064, 2071, 2127, 2130, 2131
466 PTPAD 446
422 PUNCH 417
1247 RCARD 0
1352 RCDLN 1265, 1300
72 RCDMK 4, 71
1325 RCDRT 1253, 1310, 1312
1530 RCDSI 1341, 1435
777 RDNX1 772
605 RDRTN 532, 567, 571
523 RDTAP 0
2011 RDYMS 1763, 1774, 2021
1714 RDYO1 1741, 1750, 1753
1730 RDYX1 1675
1727 RDYX4 1674, 1703
770 REDUN 750
1030 RETRY 1074, 1123
1567 RWTAP 0
64 SPIX4 56
56 SPRNI 0
4 SPRNT 0
36 SPRX1 4, 11
37 SPRX2 5
40 SPRX4 6
1646 TPNX4 65, 523, 606, 1572, 1672
1616 UNLX1 1575
1615 UNLX4 1574, 1602
1355 VLDTS 1401
54 WR1X4 42
42 WRIT1 21, 61, 1634
651 WRITE 610, 624, 630, 644, 653, 664
606 WRTAP 0, 51, 62, 431, 450
1667 WRTST 0, 70, 1140
711 WRTX1 613
710 WRTX2 612
707 WRTX4 611, 620, 625, 665, 677
1444 BADCRD 731, 1357, 1364, 1372, 1375
1043 BADSPT 1025
1 PAGE 4
POST PROCESSOR ASSEMBLY DATA
4 BADTPL 1053, 1203
36 BSRTIM 1733, 1776
1331 CHKRDR 732
766 CHKSVX 715, 761, 762
1230 CKIOCM 553, 554, 565, 656, 1221, 1222, 1223, 1224, 1225, 1226, 1227, 1230, 1231
1132 CLOS1R 1150
1625 CLSRUN 1576, 1621
1623 CLSWEF 1577
72 CURBUF 16, 24, 27, 43, 47, 50, 57, 1632
1100 ENDTAP 754, 1027
1102 ENDTP1 733
7 ENDTPL 1115, 1212
1176 FORGET 537, 622, 662, 723, 1076, 1125, 1256, 1473
1120 GIVEOT 1110
1424 INVERT 1417
1765 ISPROT 1720
7 ISPRTL 1772, 2011
1175 LATERS 716, 757, 764, 1003, 1063, 1102, 1445, 1460
1662 LITAPN 1651
2 NCHNLS 4, 535, 620, 1223, 1225, 1227, 1231, 1233, 1235, 1237, 1241, 1243, 1245, 1602, 1635, 1703
7 NEWTPL 1137, 1221
1754 NOTRDY 1716
4 NTRDYL 1761, 2002
1776 NTRDYM 1757, 1761, 2002
1526 NVRMSK 1547
1567 OUTPUT 1267, 1271, 1425, 1433
444 PFILLD 437
462 PFILLR 441
452 PIOCOM 445
2113 PRNT10 2074, 2110
2115 PRNT11 2063
2120 PRNT12 2042, 2044
2125 PRNT13 2117
2147 PRNT14 2137
2141 PRNT15 2152
2173 PRNT16 2162
2164 PRNT17 2176
451 PTPAD1 432, 447
71 RCDMKR 34
1531 RCDMTM 1344, 1346, 1441
1435 RCDRST 1353, 1426
1476 RCRDBF 1475, 1533, 1534, 1535, 1536, 1537, 1540, 1541, 1542, 1543, 1544, 1545, 1546
1475 RDCARD 1317, 1330
774 RDNX1R 1002
1460 RDREOF 730, 1340
566 RDTAP1 560
1736 RDY1.5 1706
1746 RDY2.5 1707
10 RDYMSL 1763, 1774, 2021
1671 RDYTST 0
1244 READFL 543, 626, 1010, 1061, 1100, 1245
1003 REDUN1 735, 770
1034 REDUN2 1011
771 REDUNX 1042
1326 REREAD 1456, 1471
1 PAGE 5
POST PROCESSOR ASSEMBLY DATA
712 RETURN 615, 631, 636, 640, 667, 703, 705
0 SELECT 577, 650, 771, 1012, 1030, 1043, 1055, 1130, 1315, 1326, 1604, 1712, 2136, 2161
52 SPRNTP 63, 67
1644 TAPENO 66, 524, 607, 1573, 1673
1151 TAPNAM 1046, 1111, 1754, 1765
72460 WEFTIM 1743, 1776
0 NO ERROR IN ABOVE ASSEMBLY.
FSSEL BCD 09/19/68 1942.0 446 00000
1 IOPAC AND F.S. VERSIONS OF 'SELECT' AND 'CHECK' FOR IOA** AND IOB** PAGE 1
00003 ENTRY SELECT
00004 ENTRY CHECK
TRANSFER VECTOR
00000 634766213163 TPWAIT
LINKAGE DIRECTOR
00001 000000000000
00002 622543252363
00003 0020 00 4 00001 SELECT TRA 1,4
00004 0634 00 4 00020 CHECK SXA XR4,4
00005 0634 00 2 00021 SXA XR2,2
00006 0534 00 2 00020 LXA XR4,2
00007 -0500 00 2 00001 CAL 1,2
00010 0602 00 0 00012 SLW *+2
00011 0074 00 4 00000 AGAIN TSX $TPWAIT,4
00012 0 00000 0 00000 **
00013 0020 00 0 00023 TRA REDUN
00014 0020 00 0 00025 TRA EOF
00015 0535 00 4 00012 LAC *-3,4
00016 0522 00 4 00026 XEC ETTX,4
00017 -0625 60 2 00004 STL* 4,2
00020 0774 00 4 00000 XR4 AXT **,4
00021 0774 00 2 00000 XR2 AXT **,2
00022 0020 00 4 00005 TRA 5,4
00023 -0625 60 2 00002 REDUN STL* 2,2
00024 0020 00 0 00011 TRA AGAIN
00025 -0625 60 2 00003 EOF STL* 3,2
00026 0020 00 0 00011 TRA AGAIN
00026 ETTX EQU *-1
00027 -0760 00 0 01000 ETTA
00030 -0760 00 0 02000 ETTB
END
1 IOPAC AND F.S. VERSIONS OF 'SELECT' AND 'CHECK' FOR IOA** AND IOB** PAGE 1
POST PROCESSOR ASSEMBLY DATA
31 IS THE FIRST LOCATION NOT USED BY THIS PROGRAM
0REFERENCES TO DEFINED SYMBOLS
25 EOF 14
21 XR2 5
20 XR4 4, 6
26 ETTX 16, 27
11 AGAIN 24, 26
4 CHECK 0
23 REDUN 13
3 SELECT 0
0 TPWAIT 11
0 NO ERROR IN ABOVE ASSEMBLY.
PHASE2 BCD 02/09/69 0528.2 44448 00000
SMAINC BCD 01/10/68 1513.9 5990 00000
1 LOAD SECONDARY STORAGE FROM DUMP TAPES (PRIOR TO TIME-SHARING) PAGE 1
*
EXTERN UPDMFD,ATTACH,TAPFIL,MOUNT,VERIFY
EXTERN SETIO,WRFLX,PRNTER,FERRTN,TILOCK
EXTERN UMOUNT,ALLOT,ATTACH,CLOSE,CHFILE
EXTERN INITTF,OPENDF
EXTERN LTFILE,TERMTF,UPDATE
EXTERN SETFIL,GETLSG,DELFIL,GTDYTM
*
INSERT BMCRSC
*
* ZERO-IZE A THROUGH A+X-1
*
CLEAR MACRO A,X
AXT X,1
STZ A+X,1
TIX *-1,1,1
CLEAR END
*
* MOVE X WORDS FROM A ET SEQ TO B ET SEQ
*
MOVE MACRO X,A,B
AXT X,1
CAL A+X,1
SLW B+X,1
TIX *-2,1,1
MOVE END
*
* PRINT ONE LINE COMMENT
*
PRLINE MACRO COMNT,NWC,LOC
TSX WRFLX,4
LOC,,NWC
RMT
LOC BCI NWC,COMNT
RMT
PRLINE END
*
*
* EXECUTE INST. IN CORE A
*
*
EXEC MACRO OPC,ADD
TSX $GETA,7
OPC ADD
EXEC END
*
* GET KEY SETTING VIA SUPERVISOR, SET ABANTP, NOCHAN IF APPROPRIATE
*
GETSIG MACRO
TSX GETLSG,4
GETSIG END
*
* TEST WHETHER 2ND TAPE COPY IS NEEDED, IF NOT GO TO SKIP
*
SKIFNB MACRO SKIP
CLA NOCHAN
1 LOAD SECONDARY STORAGE FROM DUMP TAPES (PRIOR TO TIME-SHARING) PAGE 2
SUB =1
TZE SKIP
SKIFNB END
*
* PRINT AN N-WORD MESSAGE FROM MESSGE
*
PRM MACRO MESSGE,N
TSX WRFLX,4
MESSGE,,N
PRM END
*
* COMPARE 2 SETS OF N CONSECUTIVE WORDS IN A ETC., AND B ETC. ,
* AND IF THEY DO NOT ALL MATCH, GO TO NF, OR OTHERWISE CONTINUE.
*
CMPWDS MACRO N,A,B,NF
AXT N,1
CAL A+N,1
LAS B+N,1
TRA NF
TRA *+2
TRA NF
TIX *-5,1,1
CMPWDS END
*
* WAIT FOR I/O ON FILE (A,B) TO END, GO TO E IF ERROR OCCURRED
*
WAIT MACRO A,B,E
TSX FWAIT,4
PTH A
PTH B
PTH E
WAIT END
*
* CLOSE THE FILE (A,B)
*
CLOSE MACRO A,B
TSX CLOSE,4
PTH A
PTH B
CLOSE END
*
*
* - - - - - - - - - - - - - - - - - - - - - -
* INITIALIZE I/O SYSTEM AND VARIABLES
* - - - - - - - - - - - - - - - - - - - - - - -
*
00000 644724442624 UPDMFD
00001 216363212330 ATTACH
00002 632147263143 TAPFIL
00003 444664456360 MOUNT
00004 652551312670 VERIFY
00005 622563314660 SETIO
00006 665126436760 WRFLX
00007 475145632551 PRNTER
00010 262551516345 FERRTN
1 LOAD SECONDARY STORAGE FROM DUMP TAPES (PRIOR TO TIME-SHARING) PAGE 3
00011 633143462342 TILOCK
00012 644446644563 UMOUNT
00013 214343466360 ALLOT
00014 234346622560 CLOSE
00015 233026314325 CHFILE
00016 314531636326 INITTF
00017 464725452426 OPENDF
00020 436326314325 LTFILE
00021 632551446326 TERMTF
00022 644724216325 UPDATE
00023 622563263143 SETFIL
00024 272563436227 GETLSG
00025 242543263143 DELFIL
00026 276324706344 GTDYTM
00027 314651622563 IORSET
00030 314626314531 IOFINI
00031 256731636060 EXIT
00032 216242464751 ASKOPR
00033 512523214760 RECAP
00034 433145426060 LINK
00035 0000 00 0 00036 HTR *+1
00036 0760 00 0 00016 LMTM
00037 -0500 00 0 00531 CAL =H C0056
00040 0602 00 0 75040 SLW DU
00041 -0500 00 0 00530 CAL =H 99999
00042 0602 00 0 75037 SLW DP
00043 -0500 00 0 00524 CAL =H.LOAD.
00044 0602 00 0 75036 SLW LFNA
00045 -0500 00 0 00525 CAL =H.TAPE.
00046 0602 00 0 75035 SLW LFNB
00047 0500 00 0 00524 CLA =H.LOAD.
00050 0602 00 0 75020 SLW BFNA
00051 0500 00 0 00521 CLA =HB.COPY
00052 0602 00 0 75017 SLW BFNB
*
00053 0074 00 4 00005 TSX SETIO,4 INITIALIZE I/O SYSTEM FOR INDEPENDENT USE
00054 0 00000 0 00517 PZE =99999
00055 0500 00 0 00101 CLA PEXIT
00056 0601 00 0 00034 STO 28
*
00057 0074 00 4 00000 TSX UPDMFD,4 PUT DUMP/LOAD PACKAGE 'AUTHOR' IN M.F.D.
TD 00060 3 00000 0 75040 TXH DU
TD 00061 3 00000 0 75037 TXH DP
TD 00062 3 00000 0 00063 TXH *+1
00063 0074 00 4 00001 TSX ATTACH,4
TD 00064 3 00000 0 75040 TXH DU
TD 00065 3 00000 0 75037 TXH DP
00066 0774 00 1 00003 AXT 3,1
00067 0634 00 1 00414 SXA DEVICE,1
00070 0074 00 4 00013 TSX ALLOT,4
TD 00071 3 00000 0 00414 TXH DEVICE
TD 00072 3 00000 0 00516 TXH =32767
00073 2 00001 1 00067 TIX *-4,1,1
*
00074 0074 00 4 00010 TSX FERRTN,4 SET TRANSFER ADDRESS FOR UNSPECIFIED
1 LOAD SECONDARY STORAGE FROM DUMP TAPES (PRIOR TO TIME-SHARING) PAGE 4
00075 0 00000 0 00114 PZE ELOC I/O SYSTEM ERROR RETURNS
00076 0074 00 4 00011 TSX TILOCK,4 NO TRAP GO DORMANT IF EVER READ-
00077 0 00000 0 00510 PZE =0 INTERLOCKED FROM A USER'S FILE.
00100 0020 00 0 00124 TRA LEH
*
00101 0021 00 0 00102 PEXIT TTR *+1
00102 0074 00 4 00027 TSX $IORSET,4
00103 0074 00 4 00014 TSX CLOSE,4
TD 00104 3 00000 0 00520 TXH =HALL
TD 00105 3 00000 0 00526 TXH =-0
TD 00106 3 00000 0 00107 TXH *+1
00107 0074 00 4 00012 TSX UMOUNT,4
TD 00110 3 00000 0 00520 TXH =HALL
00111 2 00445 0 00441 TIX LMES,,LLMES
00112 0074 00 4 00030 TSX $IOFINI,4
00113 0020 00 0 00031 TRA $EXIT
*
00114 0634 00 4 00120 ELOC SXA ELOC4,4 UNSPECIFIED I/O SYSTEM ERROR OCCURRED
00115 0074 00 4 00006 TSX WRFLX,4
00116 0 00014 0 00451 MESX,,12
00117 0074 00 4 00007 TSX PRNTER,4
00120 0774 00 4 00000 ELOC4 AXT **,4
00121 0020 00 4 00001 TRA 1,4 RETURN TO I/O SYSTEM CALLER
*
* - - - - - - - - - - - - - - - - - - -
* LOAD ALL TAPE FILES BUT THE FIRST
* - - - - - - - - - - - - - - - - - - -
*
00122 0074 00 4 00021 LEG TSX TERMTF,4 CLOSE,UNMOUNT BOTH COPIES OF LOAD TAPE FILE
00123 0600 00 0 75042 STZ ABANTP SO WE CAN LOAD OTHER TAPES. ***
*
00124 0074 00 4 00032 LEH TSX $ASKOPR,4
00125 3 00011 0 00366 PTH MSSPLD,,9
00126 3 00004 0 00275 PTH LEUB,,STOPLD
00127 3 00003 0 00446 PTH MESEY,,3
00130 3 00001 0 00131 PTH *+1,,CTINUE
00131 0500 00 0 00514 CLA =11 (11 AND 12)
00132 0601 00 0 75016 STO AUN CHANNEL A UNIT NO.
00133 0400 00 0 00511 ADD =1
00134 0601 00 0 75015 STO BUN CHANNEL B UNIT NO.
*
00135 0074 00 4 00155 TSX DELTAP,4
00136 0074 00 4 00002 TSX TAPFIL,4 DECLARE LOAD TAPE FILE TO BE UNIT AUN
TD 00137 3 00000 0 75036 TXH LFNA
TD 00140 3 00000 0 75035 TXH LFNB
TD 00141 3 00000 0 75016 TXH AUN
TD 00142 3 00000 0 00511 TXH =1
00143 0074 00 4 00002 TSX TAPFIL,4 DECLARE CHANNEL B LOAD FILE TO BE UNIT BUN
TD 00144 3 00000 0 75020 TXH BFNA
TD 00145 3 00000 0 75017 TXH BFNB
TD 00146 3 00000 0 75015 TXH BUN
TD 00147 3 00000 0 00511 TXH =1
*
00150 0074 00 4 00003 LEI TSX MOUNT,4
TD 00151 3 00000 0 00511 TXH =1
TD 00152 3 00000 0 75016 TXH AUN
1 LOAD SECONDARY STORAGE FROM DUMP TAPES (PRIOR TO TIME-SHARING) PAGE 5
00153 2 00427 0 00417 TIX MTP,,LMTP
00154 0020 00 0 00206 TRA DAMN
00155 0634 00 4 00204 DELTAP SXA DLTP,4
00156 0074 00 4 00015 TSX CHFILE,4
TD 00157 3 00000 0 75036 TXH LFNA
TD 00160 3 00000 0 75035 TXH LFNB
TD 00161 3 00000 0 00510 TXH =0
TD 00162 3 00000 0 00526 TXH =-0
TD 00163 3 00000 0 00526 TXH =-0
TD 00164 3 00000 0 00165 TXH *+1
00165 0074 00 4 00025 TSX DELFIL,4
TD 00166 3 00000 0 75036 TXH LFNA
TD 00167 3 00000 0 75035 TXH LFNB
TD 00170 3 00000 0 00171 TXH *+1
00171 0074 00 4 00015 TSX CHFILE,4
TD 00172 3 00000 0 75020 TXH BFNA
TD 00173 3 00000 0 75017 TXH BFNB
TD 00174 3 00000 0 00510 TXH =0
TD 00175 3 00000 0 00526 TXH =-0
TD 00176 3 00000 0 00526 TXH =-0
TD 00177 3 00000 0 00200 TXH *+1
00200 0074 00 4 00025 TSX DELFIL,4
TD 00201 3 00000 0 75020 TXH BFNA
TD 00202 3 00000 0 75017 TXH BFNB
TD 00203 3 00000 0 00204 TXH *+1
00204 0774 00 4 00000 DLTP AXT **,4
00205 0020 00 4 00001 TRA 1,4
*
* VERIFY NEXT TAPE FILE
*
00206 DAMN MOVE 4,NFTID,LABEL
00206 0774 00 1 00004 AXT 4,1 .001
00207 -0500 00 1 00356 CAL NFTID+4,1 .001
00210 0602 00 1 75014 SLW LABEL+4,1 .001
00211 2 00001 1 00207 TIX *-2,1,1 .001
00212 0074 00 4 00004 TSX VERIFY,4 CHECK MOUNTED TAPE
TD 00213 3 00000 0 75016 TXH AUN
00214 3 00004 0 75010 TXH LABEL,,4
TD 00215 3 00000 0 00217 TXH LEK TRANSFER IF NOT A NEW FILE TAPE
00216 0020 00 0 00253 TRA LEP SKIP IF NO UDT'S LOADED YET
*
00217 LEK MOVE 4,SDTID,LABEL
00217 0774 00 1 00004 AXT 4,1 .001
00220 -0500 00 1 00362 CAL SDTID+4,1 .001
00221 0602 00 1 75014 SLW LABEL+4,1 .001
00222 2 00001 1 00220 TIX *-2,1,1 .001
00223 0074 00 4 00004 TSX VERIFY,4 CHECK MOUNTED TAPE
TD 00224 3 00000 0 75016 TXH AUN
00225 3 00004 0 75010 TXH LABEL,,4
TD 00226 3 00000 0 00230 TXH LEM TRANSFER IF NOT SYSTEM FILES TAPE
00227 0020 00 0 00253 TRA LEP SKIP IF SYSTEM FILES NOT PREVIOUSLY MOUNTED
*
00230 LEM MOVE 4,UDTID,LABEL
00230 0774 00 1 00004 AXT 4,1 .001
00231 -0500 00 1 00366 CAL UDTID+4,1 .001
00232 0602 00 1 75014 SLW LABEL+4,1 .001
1 LOAD SECONDARY STORAGE FROM DUMP TAPES (PRIOR TO TIME-SHARING) PAGE 6
00233 2 00001 1 00231 TIX *-2,1,1 .001
00234 0074 00 4 00004 TSX VERIFY,4 CHECK MOUNTED TAPE
TD 00235 3 00000 0 75016 TXH AUN
00236 3 00004 0 75010 TXH LABEL,,4
TD 00237 3 00000 0 00242 TXH LEMA TRANSFER IF UNUSUAL CONDITION
TD 00240 3 00000 0 00415 TXH TEMP TYPE
00241 0020 00 0 00253 TRA LEP SKIP IF VERIFY O.K.
*
00242 0500 00 0 00415 LEMA CLA TEMP
00243 0402 00 0 00513 SUB =7
00244 0100 00 0 00247 TZE LEO SKIP IF WRONG TAPE
00245 0074 00 4 00007 TSX PRNTER,4 OTHER ERROR, TRY AGAIN
00246 0020 00 0 00150 TRA LEI
*
*
00247 0074 00 4 00012 LEO TSX UMOUNT,4 WRONG TAPE - HAVE IT TAKEN OFF
TD 00250 3 00000 0 75016 TXH AUN
00251 2 00413 0 00377 TIX WRNGTP,,LWG
00252 0020 00 0 00150 TRA LEI
*
* START READING NEXT TAPE FILE AND SKIP OVER 1ST MFD ON IT
*
00253 0074 00 4 00024 LEP TSX GETLSG,4
00254 SKIFNB LEIB
00254 0500 00 0 75041 CLA NOCHAN .001
00255 0402 00 0 00511 SUB =1 .001
00256 0100 00 0 00263 TZE LEIB .001
00257 0074 00 4 00003 TSX MOUNT,4
TD 00260 3 00000 0 00512 TXH =2
TD 00261 3 00000 0 75015 TXH BUN
00262 2 00440 0 00430 TIX MTPB,,LMTPB
00263 0074 00 4 00016 LEIB TSX INITTF,4 OPEN NEXT LOAD TAPE FILE, SPACE OVER AND
00264 0020 00 0 00122 TRA LEG ABANDON TAPE FILE RETURN
*
00265 0074 00 4 00017 TSX OPENDF,4 INIT'LIZE READ FROM 1ST DUMPED FILE ON TAPE
TD 00266 3 00000 0 00270 TXH LERA READ ERROR
TD 00267 3 00000 0 00122 TXH LEG ABANDON TAPE FILE
*
* LOAD BODY OF THIS DUMP TAPE FILE
* DOWN TO M.F.D. AT END OF TAPE.
*
*
00270 0074 00 4 00020 LERA TSX LTFILE,4 SKIP 1ST MFD, LOAD DOWN TO MFD AT END/TAPE
00271 0074 00 4 00001 TSX ATTACH,4
00272 3 00000 0 75040 PTH DU
00273 3 00000 0 75037 PTH DP
00274 0020 00 0 00122 TRA LEG RETURN FOR NEXT FILE
*
*
00275 0074 00 4 00032 LEUB TSX $ASKOPR,4
00276 3 00006 0 00344 PTH MESCAP,,6
00277 3 00003 0 00307 PTH LEU,,CACODE
00300 3 00003 0 00446 PTH MESEY,,3
00301 3 00001 0 00302 PTH *+1,,CTINUE
00302 0074 00 4 00033 TSX $RECAP,4
00303 0074 00 4 00001 TSX ATTACH,4
1 LOAD SECONDARY STORAGE FROM DUMP TAPES (PRIOR TO TIME-SHARING) PAGE 7
00304 3 00000 0 75040 PTH DU
00305 3 00000 0 75037 PTH DP
00306 0020 00 0 00321 TRA LEU2
00307 0074 00 4 00001 LEU TSX ATTACH,4
TD 00310 3 00000 0 75040 TXH DU
TD 00311 3 00000 0 75037 TXH DP
00312 0074 00 4 00026 TSX GTDYTM,4 GET DATE, TIME NOW. ***
00313 0602 00 0 00415 SLW DAYTIM SAVE IT. ***
00314 0074 00 4 00023 TSX SETFIL,4
TD 00315 3 00000 0 00527 TXH =HRESTOR
TD 00316 3 00000 0 00523 TXH =HFILE.1
TD 00317 3 00000 0 00415 TXH DAYTIM
TD 00320 3 00000 0 00415 TXH DAYTIM
00321 LEU2 PRLINE ( LOADING WILL NOW BE SUSPENDED TO START UP CTSS.),8
00321 0074 00 4 00006 TSX WRFLX,4 .001
00322 0 00010 0 00500 ..001,,8 .001
RMT .001
..001 BCI 8, LOADING WILL NOW BE SUSPENDED TO START UP CTSS. .001
RMT .001
*
00323 0534 00 1 00477 LXA NLINKS,1
00324 -0500 00 1 00477 LINKUP CAL NLINKS,1
00325 0602 00 0 00415 SLW LNAM1
00326 -0500 00 1 00500 CAL NLINKS+1,1
00327 0602 00 0 00416 SLW LNAM2
00330 0074 00 4 00034 TSX $LINK,4
00331 3 00000 0 00415 PTH LNAM1
00332 3 00000 0 00416 PTH LNAM2
00333 3 00000 0 00532 PTH =H M1416
00334 3 00000 0 00522 PTH =HCMFL01
00335 3 00000 0 00526 PTH =-0
00336 3 00000 0 00526 PTH =-0
00337 3 00000 0 00515 PTH =O104
00340 1 77776 1 00341 TXI *+1,1,-2
00341 3 00000 1 00324 TXH LINKUP,1,**
00342 0074 00 4 00022 TSX UPDATE,4 UPDATE DAEMON'S FILES
00343 0074 00 4 00031 TSX $EXIT,4 GO START UP CTSS
*
* - - - - - - - - - - - - - - - - - - - -
* CONSTANTS, VARIABLES, ETC.
* - - - - - - - - - - - - - - - - - - - -
*
00344 603126602363 MESCAP BCI 6, IF CTSS RELOADING WILL FOLLOW
000003 CACODE BOOL 3
00352 602351252163 NFTID BCI 4, CREATED-FILE DUMP TAPE
00356 606270626325 SDTID BCI 4, SYSTEM-FILES DUMP TAPE
00362 606462255162 UDTID BCI 4, USERS'-FILES DUMP TAPE
00366 606346606263 MSSPLD BCI 9, TO STOP LOADING, AND START UP CTSS
00377 603144472551 WRNGTP BCI 8, IMPERMISSIBLE REEL MOUNTED FOR DISK RELOAD
00407 604743252162 BCI 4, PLEASE TAKE IT OFF
00413 0 00000 0 00014 LWG PZE *-WRNGTP
00414 0 00000 0 00000 DEVICE PZE
00415 TEMP BSS 2
00415 DAYTIM SYN TEMP ***
00417 605125212470 MTP BCI 8, READY THE 1ST REEL OF THE NEXT DUMP TAPE FILE.
00427 0 00000 0 00010 LMTP PZE *-MTP
1 LOAD SECONDARY STORAGE FROM DUMP TAPES (PRIOR TO TIME-SHARING) PAGE 8
00430 605125212470 MTPB BCI 8, READY THE DUPLICATE COPY ON THE OTHER CHANNEL.
00440 0 00000 0 00010 LMTPB PZE *-MTPB
00441 604721453123 LMES BCI 4, PANIC UNMOUNT AND CLOSE
00445 0 00000 0 00004 LLMES PZE *-LMES
00446 604663302551 MESEY BCI 3, OTHERWISE, NOW.
00451 606445256747 MESX BCI 9, UNEXPECTED AND/OR NON-CRUCIAL I/O SYSTEM ERROR RETURN
00462 736066303123 BCI 3,, WHICH IS IGNORED
00415 LNAM1 EQU TEMP
00416 LNAM2 EQU TEMP+1
*
00465 242125440521 LINKS BCI 2,DAEM5A SAVED
00467 246224644447 BCI 2,DSDUMP SAVED
00471 246243462124 BCI 2,DSLOAD SAVED
00473 602551514651 BCI 2, ERRORRELOAD
00475 645127254563 BCI 2,URGENTTRIEVE
00477 0 00000 0 00012 NLINKS PZE *-LINKS
*
INSERT BCMEQB
*
* - - - - - - - - - - - - - - - - - -
* COMMON AND EQUIVALENCE FOR SECONDARY STORAGE LOAD
* (TIME-SHARING VERSION)
* - - - - - - - - - - - - - - - - - -
*
075045 DEMKEY BOOL 75045 CORE A LOCATION FOR DAEMON KEY SETTING
*
000017 BASE BOOL 17 KEY CODE BASE
000001 CTINUE BOOL 1 KEY CODE TO CONTINUE WITH PROGRAM,NO CHANGE
000002 PAUSE BOOL 2 KEY CODE TO WAIT 60 SECS.
000003 CHLDFL BOOL 3 KEY CODE TO USE DIFFERENT LOAD FILE
000004 STOPLD BOOL 4 KEY CODE TO STOP LOADING, START DUMPING
000005 ABANKY BOOL 5 KEY CODE TO ABANDON LOAD TAPE FILE
000006 SWCHAN BOOL 6 KEY CODE TO GO FROM 1 OR 2 TO 2 OR 1 CHANS.
000007 LSREEL BOOL 7 KEY CODE TO INDICATE LAST REEL OF LOAD FILE
000010 CHREEL BOOL 10 KEY CODE TO CORRECT REEL ORDER ERROR
77777 NEWCOM EQU -1 TOP OF MEMORY
077461 OLDCOM BOOL 77461 OLD TOP OF COMMON
77462 COMRLC EQU OLDCOM-NEWCOM RELOCATION FACTOR
77777 COMMON COMRLC RELOCATE COMMON
01355 UF EQU 32767/2-DEMKEY/2 LENGTH OF USER LIST
77777 UFL COMMON 2*UF USER FILE LIST (1ST PARTS OF FILE NAMES)
75044 COMMON 1 INSERT DUMMY IF NECESSARY
75043 COMMON 1 DEMKEY CELL IN NON-CTSS VERSION
75043 KEYVAL COMMON 1
75042 ABANTP COMMON 1 ABANDON TAPE FILE INDICATOR
75041 NOCHAN COMMON 1 NO. OF CHANNELS BEING READ (1 OR 2)
75040 DU COMMON 1 PROBLEM NO. OF DUMP/LOAD PACKAGE
75037 DP COMMON 1 PROGRAMMER NO. OF DITTO.
75036 LFNA COMMON 1 LOAD TAPE FILE NAME (PART 1)
75035 LFNB COMMON 1 ,, ,, ,, ,, (PART 2)
75021 COMMON 11 DUMPED FILE'S PREAMBLE FROM DUMP TAPE
75021 PREAM COMMON 1 DUMPED FILE'S DUMP TAPE PREAMBLE 1ST WORD
75020 BFNA COMMON 1 CHANNEL B LOAD TAPE FILE NAME (PART 1)
75017 BFNB COMMON 1 CHANNEL B LOAD TAPE FILE NAME (PART 2)
75016 AUN COMMON 1 CHANNEL A UNIT NO.
75015 BUN COMMON 1 CHANNEL B UNIT NO.
1 LOAD SECONDARY STORAGE FROM DUMP TAPES (PRIOR TO TIME-SHARING) PAGE 9
75014 TEOF COMMON 1 TAPE EOF INDICATOR/WORD COUNT
75010 COMMON 3 LABEL OF TAPE FILE CURRENTLY BEING LOADED
75010 LABEL COMMON 1 LABEL OF TAPE FILE DITTO. 1ST WORD
75007 X COMMON 1 TAPE FILE POINTER
END
REMOTE SEQUENCES
00500 604346212431 ..001 BCI 8, LOADING WILL NOW BE SUSPENDED TO START UP CTSS. .001
1 LOAD SECONDARY STORAGE FROM DUMP TAPES (PRIOR TO TIME-SHARING) PAGE 1
POST PROCESSOR ASSEMBLY DATA
75006 IS THE LAST LOCATION NOT USED BY THIS PROGRAM
533 IS THE FIRST LOCATION NOT USED BY THIS PROGRAM
0REFERENCES TO DEFINED SYMBOLS
75007 X 500
75037 DP 42, 61, 65, 273, 305, 311, 500
75040 DU 40, 60, 64, 272, 304, 310, 500
1355 UF 500
75016 AUN 132, 141, 152, 213, 224, 235, 250, 500
75015 BUN 134, 146, 261, 500
122 LEG 264, 267, 274
124 LEH 100
150 LEI 246, 252
217 LEK 215
230 LEM 226
247 LEO 244
253 LEP 216, 227, 241
307 LEU 277
413 LWG 251
417 MTP 153, 427
77777 UFL 500
17 BASE 500
75020 BFNA 50, 144, 172, 201, 500
75017 BFNB 52, 145, 173, 202, 500
206 DAMN 154
204 DLTP 155
114 ELOC 75
31 EXIT 113, 343
263 LEIB 256
242 LEMA 237
270 LERA 266
321 LEU2 306
275 LEUB 126
75036 LFNA 44, 137, 157, 166, 500
75035 LFNB 46, 140, 160, 167, 500
34 LINK 330
441 LMES 111, 445
427 LMTP 153
451 MESX 116
430 MTPB 262, 440
415 TEMP 240, 242, 417, 465
75014 TEOF 500
13 ALLOT 70
14 CLOSE 103
120 ELOC4 114
500 ..001 322
75010 LABEL 210, 214, 221, 225, 232, 236, 500
465 LINKS 477
445 LLMES 111
440 LMTPB 262
415 LNAM1 325, 331, 465
416 LNAM2 327, 332, 465
446 MESEY 127, 300
3 MOUNT 150, 257
1 LOAD SECONDARY STORAGE FROM DUMP TAPES (PRIOR TO TIME-SHARING) PAGE 2
POST PROCESSOR ASSEMBLY DATA
352 NFTID 207
2 PAUSE 500
101 PEXIT 55
75021 PREAM 500
33 RECAP 302
356 SDTID 220
5 SETIO 53
362 UDTID 231
6 WRFLX 115, 321
5 ABANKY 500
75042 ABANTP 123, 500
32 ASKOPR 124, 275
1 ATTACH 63, 271, 303, 307
3 CACODE 277, 352
15 CHFILE 156, 171
3 CHLDFL 500
10 CHREEL 500
77462 COMRLC 500
1 CTINUE 130, 301, 500
415 DAYTIM 313, 317, 320, 417
25 DELFIL 165, 200
155 DELTAP 135
75045 DEMKEY 500
414 DEVICE 67, 71
10 FERRTN 74
24 GETLSG 253
26 GTDYTM 312
16 INITTF 263
30 IOFINI 112
27 IORSET 102
75043 KEYVAL 500
324 LINKUP 341
7 LSREEL 500
20 LTFILE 270
344 MESCAP 276
366 MSSPLD 125
77777 NEWCOM 500
477 NLINKS 323, 324, 326
75041 NOCHAN 254, 500
77461 OLDCOM 500
17 OPENDF 265
7 PRNTER 117, 245
23 SETFIL 314
4 STOPLD 126, 500
6 SWCHAN 500
2 TAPFIL 136, 143
21 TERMTF 122
11 TILOCK 76
12 UMOUNT 107, 247
22 UPDATE 342
0 UPDMFD 57
4 VERIFY 212, 223, 234
377 WRNGTP 251, 413
1 LOAD SECONDARY STORAGE FROM DUMP TAPES (PRIOR TO TIME-SHARING) PAGE 3
POST PROCESSOR ASSEMBLY DATA
0 NO ERROR IN ABOVE ASSEMBLY.
SLDTFC BCD 01/25/68 2055.9 6427 00000
1 LOAD MAIN BODY OF DUMP TAPE FILE BETWEEN MFDS...M.J.BAILEY,2/1/65 PAGE 1
* (TIME-SHARING VERSION)
*
00021 ENTRY LTFILE
*
EXTERN OPENDF,RDF,GETLSG
EXTERN TRFILE
EXTERN ATTACH,BUFFER,FWAIT,FSTATE
EXTERN OPEN,CLOSE,WRFILE,SETFIL
EXTERN WRFLX,CHFILE
*
INSERT BMCRSC
*
* ZERO-IZE A THROUGH A+X-1
*
CLEAR MACRO A,X
AXT X,1
STZ A+X,1
TIX *-1,1,1
CLEAR END
*
* MOVE X WORDS FROM A ET SEQ TO B ET SEQ
*
MOVE MACRO X,A,B
AXT X,1
CAL A+X,1
SLW B+X,1
TIX *-2,1,1
MOVE END
*
* PRINT ONE LINE COMMENT
*
PRLINE MACRO COMNT,NWC,LOC
TSX WRFLX,4
LOC,,NWC
RMT
LOC BCI NWC,COMNT
RMT
PRLINE END
*
*
* EXECUTE INST. IN CORE A
*
*
EXEC MACRO OPC,ADD
TSX $GETA,7
OPC ADD
EXEC END
*
* GET KEY SETTING VIA SUPERVISOR, SET ABANTP, NOCHAN IF APPROPRIATE
*
GETSIG MACRO
TSX GETLSG,4
GETSIG END
*
* TEST WHETHER 2ND TAPE COPY IS NEEDED, IF NOT GO TO SKIP
*
1 LOAD MAIN BODY OF DUMP TAPE FILE BETWEEN MFDS...M.J.BAILEY,2/1/65 PAGE 2
SKIFNB MACRO SKIP
CLA NOCHAN
SUB =1
TZE SKIP
SKIFNB END
*
* PRINT AN N-WORD MESSAGE FROM MESSGE
*
PRM MACRO MESSGE,N
TSX WRFLX,4
MESSGE,,N
PRM END
*
* COMPARE 2 SETS OF N CONSECUTIVE WORDS IN A ETC., AND B ETC. ,
* AND IF THEY DO NOT ALL MATCH, GO TO NF, OR OTHERWISE CONTINUE.
*
CMPWDS MACRO N,A,B,NF
AXT N,1
CAL A+N,1
LAS B+N,1
TRA NF
TRA *+2
TRA NF
TIX *-5,1,1
CMPWDS END
*
* WAIT FOR I/O ON FILE (A,B) TO END, GO TO E IF ERROR OCCURRED
*
WAIT MACRO A,B,E
TSX FWAIT,4
PTH A
PTH B
PTH E
WAIT END
*
* CLOSE THE FILE (A,B)
*
CLOSE MACRO A,B
TSX CLOSE,4
PTH A
PTH B
CLOSE END
*
*
* - - - - - - - - - - - - - - - - - - - - - -
* INITIALIZE AND GET PREAMBLE OF UFD FILE OF 1ST USER ON TAPE
* - - - - - - - - - - - - - - - - - - - - - -
*
00000 464725452426 OPENDF
00001 512426606060 RDF
00002 272563436227 GETLSG
00003 635126314325 TRFILE
00004 216363212330 ATTACH
00005 226426262551 BUFFER
00006 266621316360 FWAIT
1 LOAD MAIN BODY OF DUMP TAPE FILE BETWEEN MFDS...M.J.BAILEY,2/1/65 PAGE 3
00007 266263216325 FSTATE
00010 464725456060 OPEN
00011 234346622560 CLOSE
00012 665126314325 WRFILE
00013 622563263143 SETFIL
00014 665126436760 WRFLX
00015 233026314325 CHFILE
00016 475145632551 PRNTER
00021 0634 00 1 00077 LTFILE SXA X1,1
00022 0634 00 2 00076 SXA X2,2
00023 0634 00 3 00075 SXA X3,3
00024 0634 00 4 00074 SXA X4,4
*
00025 0600 00 0 00365 STZ LUSER
00026 0600 00 0 00366 STZ LUSER+1
*
* - - - - - - - - - - - - - - - - - - - - -
* EXAMINE NEXT DUMPED FILE ON TAPE
* - - - - - - - - - - - - - - - - - - - - -
*
00027 XTA CLEAR PREAM,12
00027 0774 00 1 00014 AXT 12,1 .001
00030 0600 00 1 75035 STZ PREAM+12,1 .001
00031 2 00001 1 00030 TIX *-1,1,1 .001
00032 0074 00 4 00000 TSX OPENDF,4 INITIALIZE READING FROM NEXT DUMPED FILE
TD 00033 3 00000 0 00036 TXH XTC (ERROR ADDRESS)
TD 00034 3 00000 0 00074 TXH ABANTF ABANDON TAPE FILE
00035 0020 00 0 00041 TRA XTD SKIP TO SEE WHAT KIND OF FILE IT IS
*
00036 0520 00 0 75014 XTC ZET TEOF
00037 0020 00 0 00074 TRA ABANTF
00040 0020 00 0 00300 TRA ZTQB
*
00041 0760 00 0 00166 XTD SWT 6
00042 0020 00 0 00055 TRA XTDD
00043 MOVE 2,PREAM,SEE
00043 0774 00 1 00002 AXT 2,1 .001
00044 -0500 00 1 75023 CAL PREAM+2,1 .001
00045 0602 00 1 00371 SLW SEE+2,1 .001
00046 2 00001 1 00044 TIX *-2,1,1 .001
00047 MOVE 2,PREAM+5,SEE+2
00047 0774 00 1 00002 AXT 2,1 .001
00050 -0500 00 1 75030 CAL PREAM+5+2,1 .001
00051 0602 00 1 00373 SLW SEE+2+2,1 .001
00052 2 00001 1 00050 TIX *-2,1,1 .001
00053 PRM SEE,4
00053 0074 00 4 00014 TSX WRFLX,4 .001
00054 0 00004 0 00367 SEE,,4 .001
*
00055 XTDD CMPWDS 3,UFDNAM,PREAM+5,XTE
00055 0774 00 1 00003 AXT 3,1 .001
00056 -0500 00 1 00376 CAL UFDNAM+3,1 .001
00057 -0340 00 1 75031 LAS PREAM+5+3,1 .001
00060 0020 00 0 00065 TRA XTE .001
1 LOAD MAIN BODY OF DUMP TAPE FILE BETWEEN MFDS...M.J.BAILEY,2/1/65 PAGE 4
00061 0020 00 0 00063 TRA *+2 .001
00062 0020 00 0 00065 TRA XTE .001
00063 2 00001 1 00056 TIX *-5,1,1 .001
00064 0020 00 0 00027 TRA XTA
*
00065 XTE CMPWDS 2,MFDNAM,PREAM,ZTA
00065 0774 00 1 00002 AXT 2,1 .001
00066 -0500 00 1 00413 CAL MFDNAM+2,1 .001
00067 -0340 00 1 75023 LAS PREAM+2,1 .001
00070 0020 00 0 00101 TRA ZTA .001
00071 0020 00 0 00073 TRA *+2 .001
00072 0020 00 0 00101 TRA ZTA .001
00073 2 00001 1 00066 TIX *-5,1,1 .001
*
* RETURN TO CALLER IF NEXT FILE IS MFD FILE
*
00074 ABANTF EQU *
00074 0774 00 4 00000 X4 AXT **,4
00075 0774 00 3 00000 X3 AXT **,3
00076 0774 00 2 00000 X2 AXT **,2
00077 0774 00 1 00000 X1 AXT **,1
00100 0020 00 4 00001 TRA 1,4
*
* - - - - - - - - - - - - - - - - - - - -
* PROCESS REGULAR FILE (NOT MFD OR UFD)
* - - - - - - - - - - - - - - - - - - - -
*
00101 0074 00 4 00002 ZTA TSX GETLSG,4
00102 CMPWDS 2,LUSER,PREAM,NOSAME
00102 0774 00 1 00002 AXT 2,1 .001
00103 -0500 00 1 00367 CAL LUSER+2,1 .001
00104 -0340 00 1 75023 LAS PREAM+2,1 .001
00105 0020 00 0 00112 TRA NOSAME .001
00106 0020 00 0 00110 TRA *+2 .001
00107 0020 00 0 00112 TRA NOSAME .001
00110 2 00001 1 00103 TIX *-5,1,1 .001
00111 0020 00 0 00122 TRA SAME
00112 NOSAME MOVE 2,PREAM,LUSER
00112 0774 00 1 00002 AXT 2,1 .001
00113 -0500 00 1 75023 CAL PREAM+2,1 .001
00114 0602 00 1 00367 SLW LUSER+2,1 .001
00115 2 00001 1 00113 TIX *-2,1,1 .001
00116 0074 00 4 00004 TSX ATTACH,4
TD 00117 3 00000 0 75021 TXH PREAM
TD 00120 3 00000 0 75022 TXH PREAM+1
TD 00121 3 00000 0 00027 TXH XTA
*
00122 0074 00 4 00007 SAME TSX FSTATE,4
TD 00123 3 00000 0 75026 TXH PREAM+5
TD 00124 3 00000 0 75027 TXH PREAM+6
00125 3 00007 0 00401 TXH STAT,,7
TD 00126 3 00000 0 00027 TXH XTA
*
00127 0500 00 0 00404 CLA STAT+3
00130 0402 00 0 10060 SUB =3
00131 0100 00 0 00027 TZE XTA
1 LOAD MAIN BODY OF DUMP TAPE FILE BETWEEN MFDS...M.J.BAILEY,2/1/65 PAGE 5
00132 0500 00 0 00402 CLA STAT+1
00133 -0120 00 0 00027 TMI XTA
00134 -0320 00 0 10062 ANA =O200
00135 0100 00 0 00027 TZE XTA
00136 0500 00 0 75023 CLA PREAM+2
00137 0402 00 0 00407 SUB STAT+6
00140 -0120 00 0 00027 TMI XTA
00141 0500 00 0 00401 CLA STAT
00142 -0100 00 0 00300 TNZ ZTQB
00143 -0520 00 0 75033 NZT PREAM+10
00144 0020 00 0 00322 TRA CLANUP
*
00145 -0754 00 0 00000 ZAC
00146 0560 00 0 75032 LDQ PREAM+9
00147 -0763 00 0 00010 LGL 8
00150 0602 00 0 00377 SLW TEMP+1
*
00151 0074 00 4 00010 OPAGIN TSX OPEN,4
TD 00152 3 00000 0 01277 TXH W
TD 00153 3 00000 0 75026 TXH PREAM+5
TD 00154 3 00000 0 75027 TXH PREAM+6
TD 00155 3 00000 0 10063 TXH =-0
TD 00156 3 00000 0 10063 TXH =-0
TD 00157 3 00000 0 00242 TXH ZTQB1
TD 00160 3 00000 0 00410 TXH ZTCODE
*
*
00161 0074 00 4 00005 TSX BUFFER,4
TD 00162 3 00000 0 75026 TXH PREAM+5 ASSIGN INTERNAL BUFFERS FOR WRITE
TD 00163 3 00000 0 75027 TXH PREAM+6
00164 2 00413 0 00414 TIX DBUF,,LDBUF
TD 00165 3 00000 0 00260 TXH ZTQ (ERROR)
*
00166 0774 00 3 00000 AXT 0,3
00167 0500 00 0 01274 CLA LTPB
00170 0601 00 0 00376 STO TEMP
00171 0774 00 2 00000 AXT 0,2
*
* READ-WRITE LOOP (DOUBLE BUFFERS)
*
00172 1 00001 2 00173 ZTM TXI *+1,2,1 SWITCH BUFFERS
00173 -3 00001 2 00175 TXL *+2,2,1
00174 0774 00 2 00000 AXT 0,2
00175 0500 00 2 01276 CLA TBADR+1,2
00176 0621 00 0 00201 STA ZTN
00177 0621 00 0 00216 STA ZTO
*
00200 0074 00 4 00001 TSX RDF,4 READ BUFFER FULL FROM DUMP TAPE
00201 2 01274 0 00000 ZTN TIX **,,LTPB
TD 00202 3 00000 0 00262 TXH ZTQA READ ERROR
TD 00203 3 00000 0 00236 TXH ZTP EOF
TD 00204 3 00000 0 01300 TXH EOFCT EOF WORD COUNT
TD 00205 3 00000 0 00221 TXH ABANCL ABANDON TAPE FILE
*
00206 0074 00 4 00006 ZTNA TSX FWAIT,4 WAIT FOR PREVIOUS WRITE TO END
TD 00207 3 00000 0 75026 TXH PREAM+5
1 LOAD MAIN BODY OF DUMP TAPE FILE BETWEEN MFDS...M.J.BAILEY,2/1/65 PAGE 6
TD 00210 3 00000 0 75027 TXH PREAM+6
TD 00211 3 00000 0 00260 TXH ZTQ ERROR ON PREVIOUS WRITE
*
00212 0074 00 4 00012 TSX WRFILE,4 START WRITING BUFFER FULL ON DISK/DRUM
TD 00213 3 00000 0 75026 TXH PREAM+5
TD 00214 3 00000 0 75027 TXH PREAM+6
TD 00215 3 00000 0 10056 TXH =0
00216 2 00376 0 00000 ZTO TIX **,,TEMP
*
00217 -3 00000 3 00172 TXL ZTM,3,0 RETURN TO READ MORE IF NO EOF YET
00220 0020 00 0 00314 TRA ZTS FINISHED, GO CLOSE LOAD FILE
00221 0074 00 4 00003 ABANCL TSX TRFILE,4
TD 00222 3 00000 0 75026 TXH PREAM+5
TD 00223 3 00000 0 75027 TXH PREAM+6
TD 00224 3 00000 0 10056 TXH =0
00225 0074 00 4 00011 TSX CLOSE,4
TD 00226 3 00000 0 75026 TXH PREAM+5
TD 00227 3 00000 0 75027 TXH PREAM+6
00230 0074 00 4 00013 TSX SETFIL,4 RESET DATE/TIME CREATED SO
TD 00231 3 00000 0 75026 TXH PREAM+5 FILE CAN BE LOADED AGAIN LATER.
TD 00232 3 00000 0 75027 TXH PREAM+6
TD 00233 3 00000 0 75030 TXH PREAM+7
TD 00234 3 00000 0 75031 TXH PREAM+8
00235 0020 00 0 00074 TRA ABANTF
*
*
00236 0534 00 3 01300 ZTP LXA EOFCT,3 EOF
00237 0634 00 3 00376 SXA TEMP,3
00240 3 00000 3 00206 TXH ZTNA,3,0 GO WRITE LAST PART BUFFER FULL, IF ANY
00241 0020 00 0 00314 TRA ZTS NO MORE, GO CLOSE LOAD FILE
*
* OPEN ERROR TRY CHANGING MODE
*
00242 0074 00 4 00002 ZTQB1 TSX GETLSG,4
00243 0500 00 0 00410 CLA ZTCODE
00244 0402 00 0 10061 SUB =15
00245 -0100 00 0 00300 TNZ ZTQB
00246 0074 00 4 00015 TSX CHFILE,4
00247 3 00000 0 75026 PTH PREAM+5
00250 3 00000 0 75027 PTH PREAM+6
00251 3 00000 0 10057 PTH =1
00252 3 00000 0 10063 PTH =-0
00253 3 00000 0 10063 PTH =-0
00254 3 00000 0 00300 PTH ZTQB
00255 -0500 00 0 10057 CAL =1
00256 -0602 00 0 00377 ORS TEMP+1
00257 0020 00 0 00151 TRA OPAGIN
*
* PROCESS ERRORS LOADING DUMPED FILE
*
00260 0074 00 4 00016 ZTQ TSX $PRNTER,4 UNEXPECTED I/O SYSTEM RETURN
00261 0020 00 0 00264 TRA ZTRA
00262 0500 00 0 75014 ZTQA CLA TEOF
00263 -0100 00 0 00221 TNZ ABANCL SKIP IF EOF ON TAPE
00264 0074 00 4 00003 ZTRA TSX TRFILE,4 RESET FILE LENGTH.
00265 3 00000 0 75026 PTH PREAM+5
1 LOAD MAIN BODY OF DUMP TAPE FILE BETWEEN MFDS...M.J.BAILEY,2/1/65 PAGE 7
00266 3 00000 0 75027 PTH PREAM+6
00267 3 00000 0 10056 PTH =0
00270 0074 00 4 00011 TSX CLOSE,4 CLOSE FILE.
TD 00271 3 00000 0 75026 TXH PREAM+5
TD 00272 3 00000 0 75027 TXH PREAM+6
00273 0074 00 4 00013 TSX SETFIL,4 NOW RESET DATE/TIME CREATED,
TD 00274 3 00000 0 75026 TXH PREAM+5 SO THAT WE CAN TRY TO LOAD
TD 00275 3 00000 0 75027 TXH PREAM+6 IT AGAIN LATER. **********
TD 00276 3 00000 0 75030 TXH PREAM+7
TD 00277 3 00000 0 75031 TXH PREAM+8
00300 ZTQB MOVE 2,PREAM,ERMES+3
00300 0774 00 1 00002 AXT 2,1 .001
00301 -0500 00 1 75023 CAL PREAM+2,1 .001
00302 0602 00 1 00362 SLW ERMES+3+2,1 .001
00303 2 00001 1 00301 TIX *-2,1,1 .001
00304 MOVE 2,PREAM+5,ERMES+5
00304 0774 00 1 00002 AXT 2,1 .001
00305 -0500 00 1 75030 CAL PREAM+5+2,1 .001
00306 0602 00 1 00364 SLW ERMES+5+2,1 .001
00307 2 00001 1 00305 TIX *-2,1,1 .001
00310 0074 00 4 00014 TSX WRFLX,4
00311 0 00010 0 00355 ERMES,,8
00312 0074 00 4 00016 TSX $PRNTER,4
00313 0020 00 0 00027 TRA XTA GO FOR NEXT DUMPED FILE
*
* - - - - - - - - - - - - - - - - - - - -
* SET UFD ENTRY FOR FILE JUST READ, FREE IT FOR USE
* IF IT WAS ONE DEFINITELY TO BE LOADED
* - - - - - - - - - - - - - - - - - - - -
*
00314 0074 00 4 00006 ZTS TSX FWAIT,4 WAIT FOR WRITE TO END
TD 00315 3 00000 0 75026 TXH PREAM+5
TD 00316 3 00000 0 75027 TXH PREAM+6
00317 0074 00 4 00011 TSX CLOSE,4
TD 00320 3 00000 0 75026 TXH PREAM+5
TD 00321 3 00000 0 75027 TXH PREAM+6
00322 0074 00 4 00015 CLANUP TSX CHFILE,4 DE-PROTECT, THEN . . . . .
TD 00323 3 00000 0 75026 TXH PREAM+5
TD 00324 3 00000 0 75027 TXH PREAM+6
TD 00325 3 00000 0 00377 TXH TEMP+1
TD 00326 3 00000 0 10063 TXH =-0
TD 00327 3 00000 0 10063 TXH =-0
TD 00330 3 00000 0 00332 TXH ZTSA UNUSUAL CONDITION TRANSFER
00331 0020 00 0 00333 TRA ZTSB SKIP IF O.K.
00332 0074 00 4 00016 ZTSA TSX $PRNTER,4 ERROR, PRINT MESSAGE
*
00333 0074 00 4 00013 ZTSB TSX SETFIL,4 SET ITS DATES, TIME, AUTHOR, AS
TD 00334 3 00000 0 75026 TXH PREAM+5 IN PREAMBLE OF DUMPED VERSION JUST READ
TD 00335 3 00000 0 75027 TXH PREAM+6
TD 00336 3 00000 0 75030 TXH PREAM+7
TD 00337 3 00000 0 75031 TXH PREAM+8
00340 0760 00 0 00165 SWT 5
00341 0020 00 0 00027 TRA XTA
00342 MOVE 2,PREAM,MEST+1
00342 0774 00 1 00002 AXT 2,1 .001
00343 -0500 00 1 75023 CAL PREAM+2,1 .001
1 LOAD MAIN BODY OF DUMP TAPE FILE BETWEEN MFDS...M.J.BAILEY,2/1/65 PAGE 8
00344 0602 00 1 01304 SLW MEST+1+2,1 .001
00345 2 00001 1 00343 TIX *-2,1,1 .001
00346 MOVE 2,PREAM+5,MEST+3
00346 0774 00 1 00002 AXT 2,1 .001
00347 -0500 00 1 75030 CAL PREAM+5+2,1 .001
00350 0602 00 1 01306 SLW MEST+3+2,1 .001
00351 2 00001 1 00347 TIX *-2,1,1 .001
00352 0074 00 4 00014 TSX WRFLX,4
00353 0 00005 0 01301 MEST,,5
00354 0020 00 0 00027 TRA XTA GO LOOK AT NEXT DUMPED FILE
*
* - - - - - - - - - - - - - - - - - -
*
* - - - - - - - - - - - -
* CONSTANTS, VARIABLES, ETC.
* - - - - - - - - - - - -
*
00355 602631432560 ERMES BCI 8, FILE NOT LOADED
00365 LUSER BSS 2
00367 SEE BSS 4
00373 646225516026 UFDNAM BCI 3,USER FILE DIRECTRY
00376 TEMP BSS 3
00401 STAT BSS 7
00410 ZTCODE BSS 1
00411 443326332433 MFDNAM BCI 2,M.F.D.(FILE)
00413 0 00000 0 00660 LDBUF PZE 432
00414 DBUF BSS 432
01274 0 00000 0 03264 LTPB PZE 4*432-12
01275 0 00000 0 01306 TBADR PZE TPB
01276 0 00000 0 04572 PZE TPB2
01277 666060606060 W BCI 1,W
01300 0 00000 0 00000 EOFCT PZE
01301 434621242524 MEST BCI 5,LOADED
01306 TPB BSS 4*432-12
04572 TPB2 BSS 4*432-12
*
INSERT BCMEQB
*
* - - - - - - - - - - - - - - - - - -
* COMMON AND EQUIVALENCE FOR SECONDARY STORAGE LOAD
* (TIME-SHARING VERSION)
* - - - - - - - - - - - - - - - - - -
*
075045 DEMKEY BOOL 75045 CORE A LOCATION FOR DAEMON KEY SETTING
*
000017 BASE BOOL 17 KEY CODE BASE
000001 CTINUE BOOL 1 KEY CODE TO CONTINUE WITH PROGRAM,NO CHANGE
000002 PAUSE BOOL 2 KEY CODE TO WAIT 60 SECS.
000003 CHLDFL BOOL 3 KEY CODE TO USE DIFFERENT LOAD FILE
000004 STOPLD BOOL 4 KEY CODE TO STOP LOADING, START DUMPING
000005 ABANKY BOOL 5 KEY CODE TO ABANDON LOAD TAPE FILE
000006 SWCHAN BOOL 6 KEY CODE TO GO FROM 1 OR 2 TO 2 OR 1 CHANS.
000007 LSREEL BOOL 7 KEY CODE TO INDICATE LAST REEL OF LOAD FILE
000010 CHREEL BOOL 10 KEY CODE TO CORRECT REEL ORDER ERROR
77777 NEWCOM EQU -1 TOP OF MEMORY
077461 OLDCOM BOOL 77461 OLD TOP OF COMMON
1 LOAD MAIN BODY OF DUMP TAPE FILE BETWEEN MFDS...M.J.BAILEY,2/1/65 PAGE 9
77462 COMRLC EQU OLDCOM-NEWCOM RELOCATION FACTOR
77777 COMMON COMRLC RELOCATE COMMON
01355 UF EQU 32767/2-DEMKEY/2 LENGTH OF USER LIST
77777 UFL COMMON 2*UF USER FILE LIST (1ST PARTS OF FILE NAMES)
75044 COMMON 1 INSERT DUMMY IF NECESSARY
75043 COMMON 1 DEMKEY CELL IN NON-CTSS VERSION
75043 KEYVAL COMMON 1
75042 ABANTP COMMON 1 ABANDON TAPE FILE INDICATOR
75041 NOCHAN COMMON 1 NO. OF CHANNELS BEING READ (1 OR 2)
75040 DU COMMON 1 PROBLEM NO. OF DUMP/LOAD PACKAGE
75037 DP COMMON 1 PROGRAMMER NO. OF DITTO.
75036 LFNA COMMON 1 LOAD TAPE FILE NAME (PART 1)
75035 LFNB COMMON 1 ,, ,, ,, ,, (PART 2)
75021 COMMON 11 DUMPED FILE'S PREAMBLE FROM DUMP TAPE
75021 PREAM COMMON 1 DUMPED FILE'S DUMP TAPE PREAMBLE 1ST WORD
75020 BFNA COMMON 1 CHANNEL B LOAD TAPE FILE NAME (PART 1)
75017 BFNB COMMON 1 CHANNEL B LOAD TAPE FILE NAME (PART 2)
75016 AUN COMMON 1 CHANNEL A UNIT NO.
75015 BUN COMMON 1 CHANNEL B UNIT NO.
75014 TEOF COMMON 1 TAPE EOF INDICATOR/WORD COUNT
75010 COMMON 3 LABEL OF TAPE FILE CURRENTLY BEING LOADED
75010 LABEL COMMON 1 LABEL OF TAPE FILE DITTO. 1ST WORD
75007 X COMMON 1 TAPE FILE POINTER
END
1 LOAD MAIN BODY OF DUMP TAPE FILE BETWEEN MFDS...M.J.BAILEY,2/1/65 PAGE 1
POST PROCESSOR ASSEMBLY DATA
75006 IS THE LAST LOCATION NOT USED BY THIS PROGRAM
10064 IS THE FIRST LOCATION NOT USED BY THIS PROGRAM
0REFERENCES TO DEFINED SYMBOLS
1277 W 152
75007 X 10056
75037 DP 10056
75040 DU 10056
1355 UF 10056
77 X1 21
76 X2 22
75 X3 23
74 X4 24
75016 AUN 10056
75015 BUN 10056
1 RDF 200
367 SEE 45, 51, 54
1306 TPB 1275
77777 UFL 10056
27 XTA 64, 121, 126, 131, 133, 135, 140, 313, 341, 354
36 XTC 33
41 XTD 35
65 XTE 60, 62
101 ZTA 70, 72
172 ZTM 217
201 ZTN 176
216 ZTO 177
236 ZTP 203
260 ZTQ 165, 211
314 ZTS 220, 241
17 BASE 10056
75020 BFNA 10056
75017 BFNB 10056
414 DBUF 164
75036 LFNA 10056
75035 LFNB 10056
1274 LTPB 167, 201
1301 MEST 344, 350, 353
10 OPEN 151
122 SAME 111
401 STAT 125, 127, 132, 137, 141
376 TEMP 150, 170, 216, 237, 256, 325
75014 TEOF 36, 262,10056
4572 TPB2 1276
55 XTDD 42
206 ZTNA 240
262 ZTQA 202
300 ZTQB 40, 142, 245, 254
264 ZTRA 261
332 ZTSA 330
333 ZTSB 331
11 CLOSE 225, 270, 317
1300 EOFCT 204, 236
355 ERMES 302, 306, 311
1 LOAD MAIN BODY OF DUMP TAPE FILE BETWEEN MFDS...M.J.BAILEY,2/1/65 PAGE 2
POST PROCESSOR ASSEMBLY DATA
6 FWAIT 206, 314
75010 LABEL 10056
413 LDBUF 164
365 LUSER 25, 26, 103, 114
2 PAUSE 10056
75021 PREAM 30, 44, 50, 57, 67, 104, 113, 117, 120, 123, 124, 136, 143, 146, 153, 154, 162
163, 207, 210, 213, 214, 222, 223, 226, 227, 231, 232, 233, 234, 247, 250, 265, 266
271, 272, 274, 275, 276, 277, 301, 305, 315, 316, 320, 321, 323, 324, 334, 335, 336
337, 343, 347,10056
1275 TBADR 175
14 WRFLX 53, 310, 352
242 ZTQB1 157
221 ABANCL 205, 263
5 ABANKY 10056
74 ABANTF 34, 37, 74, 235
75042 ABANTP 10056
4 ATTACH 116
5 BUFFER 161
15 CHFILE 246, 322
3 CHLDFL 10056
10 CHREEL 10056
322 CLANUP 144
77462 COMRLC 10056
1 CTINUE 10056
75045 DEMKEY 10056
7 FSTATE 122
2 GETLSG 101, 242
75043 KEYVAL 10056
7 LSREEL 10056
21 LTFILE 0
411 MFDNAM 66
77777 NEWCOM 10056
75041 NOCHAN 10056
112 NOSAME 105, 107
77461 OLDCOM 10056
151 OPAGIN 257
0 OPENDF 32
16 PRNTER 260, 312, 332
13 SETFIL 230, 273, 333
4 STOPLD 10056
6 SWCHAN 10056
3 TRFILE 221, 264
373 UFDNAM 56
12 WRFILE 212
410 ZTCODE 160, 243
0 NO ERROR IN ABOVE ASSEMBLY.
LIORDE BCD 01/10/68 1513.9 8076 00000
1 'OPEN' DUMPED FILE/READ N WORDS FROM DUMPED FILE...M.J.BAILEY,1/31/65 PAGE 1
* (TIME-SHARING VERSION)
*
00013 ENTRY OPENDF
00166 ENTRY RDF
*
EXTERN NLREC,GETLSG
EXTERN RDWAIT
EXTERN IODIAG,RDFILE,FWAIT
EXTERN WRFLX
*
INSERT BMCRSC
*
* ZERO-IZE A THROUGH A+X-1
*
CLEAR MACRO A,X
AXT X,1
STZ A+X,1
TIX *-1,1,1
CLEAR END
*
* MOVE X WORDS FROM A ET SEQ TO B ET SEQ
*
MOVE MACRO X,A,B
AXT X,1
CAL A+X,1
SLW B+X,1
TIX *-2,1,1
MOVE END
*
* PRINT ONE LINE COMMENT
*
PRLINE MACRO COMNT,NWC,LOC
TSX WRFLX,4
LOC,,NWC
RMT
LOC BCI NWC,COMNT
RMT
PRLINE END
*
*
* EXECUTE INST. IN CORE A
*
*
EXEC MACRO OPC,ADD
TSX $GETA,7
OPC ADD
EXEC END
*
* GET KEY SETTING VIA SUPERVISOR, SET ABANTP, NOCHAN IF APPROPRIATE
*
GETSIG MACRO
TSX GETLSG,4
GETSIG END
*
* TEST WHETHER 2ND TAPE COPY IS NEEDED, IF NOT GO TO SKIP
*
1 'OPEN' DUMPED FILE/READ N WORDS FROM DUMPED FILE...M.J.BAILEY,1/31/65 PAGE 2
SKIFNB MACRO SKIP
CLA NOCHAN
SUB =1
TZE SKIP
SKIFNB END
*
* PRINT AN N-WORD MESSAGE FROM MESSGE
*
PRM MACRO MESSGE,N
TSX WRFLX,4
MESSGE,,N
PRM END
*
* COMPARE 2 SETS OF N CONSECUTIVE WORDS IN A ETC., AND B ETC. ,
* AND IF THEY DO NOT ALL MATCH, GO TO NF, OR OTHERWISE CONTINUE.
*
CMPWDS MACRO N,A,B,NF
AXT N,1
CAL A+N,1
LAS B+N,1
TRA NF
TRA *+2
TRA NF
TIX *-5,1,1
CMPWDS END
*
* WAIT FOR I/O ON FILE (A,B) TO END, GO TO E IF ERROR OCCURRED
*
WAIT MACRO A,B,E
TSX FWAIT,4
PTH A
PTH B
PTH E
WAIT END
*
* CLOSE THE FILE (A,B)
*
CLOSE MACRO A,B
TSX CLOSE,4
PTH A
PTH B
CLOSE END
*
*
* - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
* 'OPEN' NEXT DUMPED FILE -- SKIP TO NEXT (READABLE) FILE,
* READ ITS PREAMBLE, AND ITS FIRST LOGICAL RECORD.
* - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
*
00000 454351252360 NLREC
00001 272563436227 GETLSG
00002 512466213163 RDWAIT
00003 314624312127 IODIAG
00004 512426314325 RDFILE
00005 266621316360 FWAIT
1 'OPEN' DUMPED FILE/READ N WORDS FROM DUMPED FILE...M.J.BAILEY,1/31/65 PAGE 3
00006 665126436760 WRFLX
00007 475145632551 PRNTER
00010 636263254626 TSTEOF
00013 0634 00 1 00156 OPENDF SXA X1,1
00014 0634 00 2 00155 SXA X2,2
00015 0634 00 3 00154 SXA X3,3
00016 0634 00 4 00153 SXA X4,4
00017 0600 00 0 00633 STZ M
00020 0600 00 0 75014 STZ TEOF
00021 0500 00 0 00627 CLA LEOROP
00022 0621 00 0 00526 STA ABNADD
00023 0074 00 4 00001 TSX GETLSG,4 IS OPERATOR'S TAPE FILE ABANDON
00024 0500 00 0 75042 CLA ABANTP KEY CODE SETTING ON
00025 0100 00 0 00031 TZE *+4 SKIP IF NOT
00026 0074 00 4 00006 TSX WRFLX,4
00027 0 00010 0 00615 MESL,,8
00030 0020 00 0 00526 TRA EORABN IF SO OBEY IT
00031 0500 00 0 75007 CLA X
00032 0402 00 0 00574 SUB PHYSRC
00033 -0120 00 0 00161 TMI ERTN ERROR IF PTR SET BEFORE 1ST FILE,SKIP
00034 0100 00 0 00122 TZE OQ SKIP IF FILE IS 1ST ON LOAD TAPE
*
* - - - - - - - - - - - - - - - - - - - - - - - - - - -
* FIND START OF NEXT LOGICAL RECORD
* - - - - - - - - - - - - - - - - - - - - - - - - - - -
*
00035 0500 00 0 00401 CLA SOME
00036 -0120 00 0 00057 TMI JUMP
*
00037 0500 00 0 75007 CLA X
00040 0400 00 0 00401 ADD SOME
00041 0601 00 0 75007 STO X
00042 0601 00 0 00604 STO Y
00043 0020 00 0 00051 TRA *+6
00044 FL EQU *
00044 0074 00 4 00001 FLA TSX GETLSG,4
00045 0500 00 0 75007 CLA X
00046 0400 00 0 00574 ADD PHYSRC
00047 0601 00 0 75007 STO X X POINTS AT NEXT PHYSICAL RECORD
00050 0601 00 0 00604 STO Y SO DOES Y
*
00051 0074 00 4 00414 FLAB TSX BREAD,4 READ 12 WORDS FROM POSTN Y
TD 00052 3 00000 0 00556 TXH OPREAM
TD 00053 3 00000 0 04123 TXH =12
00054 0020 00 0 00044 TRA FLA UNREAD, MOVE TO NEXT PHYSICAL REC.
00055 0020 00 0 00044 TRA FLA READ ERROR, MOVE TO NEXT PHYS. REC.
00056 0020 00 0 00160 TRA REOF REAL EOF EXIT
*
00057 0500 00 0 00570 JUMP CLA OPREAM+10
00060 0100 00 0 00044 TZE FL
00061 0074 00 4 00000 TSX NLREC,4
00062 3 00000 0 04120 PTH =0
00063 3 00000 0 04120 PTH =0
00064 3 00000 0 00570 PTH OPREAM+10
1 'OPEN' DUMPED FILE/READ N WORDS FROM DUMPED FILE...M.J.BAILEY,1/31/65 PAGE 4
00065 3 00000 0 00573 PTH LTPBF
00066 3 00000 0 04123 PTH =12
00067 3 00000 0 00574 PTH PHYSRC
00070 3 00000 0 00575 PTH NFLR
00071 3 00000 0 00576 PTH NLAST
00072 0600 00 0 00601 STZ TEMP
00073 -0500 00 0 00571 CAL OPREAM+11
00074 0621 00 0 00601 STA TEMP
00075 0771 00 0 00022 ARS 18
00076 0621 00 0 00577 STA IREC
00077 0500 00 0 00575 CLA NFLR
00100 0520 00 0 00576 ZET NLAST
00101 0400 00 0 04121 ADD =1
00102 0601 00 0 00600 STO NREC
00103 0402 00 0 00601 SUB TEMP
00104 -0100 00 0 00044 TNZ FL
*
00105 0500 00 0 00577 CLA IREC O.K.
00106 0402 00 0 00600 SUB NREC
00107 0100 00 0 00111 TZE *+2
00110 0120 00 0 00044 TPL FL SKIP IF IREC .GR. NREC, PREAMBLE INVALID
*
00111 0500 00 0 00577 CLA IREC THIS IS A LOGICAL RECORD
00112 0402 00 0 04121 SUB =1
00113 -0100 00 0 00044 TNZ FL SPACE DOWN TO NEXT FILE IF NOT 1ST LOG.REC.
*
00114 MOVE 12,OPREAM,PREAM THIS IS 1ST LOG.REC. IN FILE,AND WE WISH
00114 0774 00 1 00014 AXT 12,1 .001
00115 -0500 00 1 00572 CAL OPREAM+12,1 .001
00116 0602 00 1 75035 SLW PREAM+12,1 .001
00117 2 00001 1 00115 TIX *-2,1,1 .001
00120 0500 00 0 00570 CLA OPREAM+10
00121 0020 00 0 00130 TRA OQC
*
* - - - - - - - - - - - - - - - - - - - - - - - - -
* READ PREAMBLE OF 1ST DUMPED FILE OF LOAD FILE
* - - - - - - - - - - - - - - - - - - - - - - - - -
*
00122 0500 00 0 75007 OQ CLA X
00123 0400 00 0 04121 ADD =1
00124 0601 00 0 75007 STO X
00125 0601 00 0 00604 STO Y
00126 0600 00 0 00401 STZ SOME
00127 0020 00 0 00051 TRA FLAB
*
*
00130 0601 00 0 00625 OQC STO DWC
00131 0500 00 0 75007 CLA X
00132 0400 00 0 04123 ADD =12
00133 0601 00 0 00604 STO Y Y=X+12
00134 0500 00 0 00577 CLA IREC
00135 0402 00 0 00600 SUB NREC
00136 -0120 00 0 00141 TMI *+3
00137 0500 00 0 00625 CLA DWC (TRAILING ZEROS NOT INCLUDED IF
00140 0020 00 0 00142 TRA *+2 NOT A FULL LOGICAL RECORD)
00141 0500 00 0 00573 CLA LTPBF
1 'OPEN' DUMPED FILE/READ N WORDS FROM DUMPED FILE...M.J.BAILEY,1/31/65 PAGE 5
00142 0601 00 0 00626 STO RWC DATA WORD COUNT FOR LOGICAL RECORD
00143 0074 00 4 00001 TSX GETLSG,4
00144 0074 00 4 00365 TSX GSOME,4
*
* READ IN THE DATA WORDS OF THE 1ST LOGICAL RECORD OF FILE
*
*
00145 0074 00 4 00443 TSX AREAD,4 READ IN RWC WORDS FROMPOSTN Y (=X+12)
TD 00146 3 00000 0 00634 TXH WBF
TD 00147 3 00000 0 00626 TXH RWC
00150 0020 00 0 00161 TRA ERTN UNREAD, ERROR, SKIP
00151 0020 00 0 00161 TRA ERTN READ ERROR, SKIP
00152 0020 00 0 00160 TRA REOF TAPE EOF - SKIP
* - - - - - - - - - - - - - - - - - - - - -
* RESTORE AND RETURN FROM OPENDF
* - - - - - - - - - - - - - - - - - - - - -
*
00153 0774 00 4 00000 X4 AXT **,4
00154 0774 00 3 00000 X3 AXT **,3
00155 0774 00 2 00000 X2 AXT **,2
00156 0774 00 1 00000 X1 AXT **,1
00157 0020 00 4 00003 TRA 3,4 RETURN TO CALLER
*
00160 -0625 00 0 75014 REOF STL TEOF TAPE EOF RETURN
00161 0534 00 4 00153 ERTN LXA X4,4 ERROR RETURN
00162 0534 00 3 00154 IX3 LXA X3,3
00163 0534 00 2 00155 LXA X2,2
00164 0534 00 1 00156 LXA X1,1
00165 0020 60 4 00001 TRA* 1,4
*
* - - - - - - - - - - - - - - - - - - - - - - - - - - -
* READ FROM DUMPED FILE ON TAPE N WORDS INTO ANAME ETC.
* - - - - - - - - - - - - - - - - - - - - - - - - - - -
*
00166 0634 00 1 00270 RDF SXA DX1,1
00167 0634 00 2 00267 SXA DX2,2
00170 0634 00 3 00266 SXA DX3,3
00171 0634 00 4 00265 SXA DX4,4
00172 0074 00 4 00001 TSX GETLSG,4
00173 0600 00 0 75014 STZ TEOF
00174 0534 00 4 00265 LXA DX4,4
00175 0500 00 4 00001 CLA 1,4
00176 0621 00 0 00245 STA RFF ANAME
00177 0771 00 0 00022 ARS 18 ADDRESS OF N
00200 0621 00 0 00212 STA RFA
00201 0621 00 0 00215 STA RFB
00202 0500 00 0 00630 CLA LEORRD
00203 0621 00 0 00526 STA ABNADD
00204 0500 00 0 75042 CLA ABANTP TEST FOR OPRTR REQUESTED TAPE FILE ABANDON
00205 0100 00 0 00211 TZE *+4 SKIP IF NOT
00206 0074 00 4 00006 TSX WRFLX,4
00207 0 00010 0 00615 MESL,,8
00210 0020 00 0 00526 TRA EORABN IF SO, SKIP
*
* ENSURE THAT ONLY AS MANY WORDS AS ARE
* LEFT IN THE DUMPED FILE GET READ.
1 'OPEN' DUMPED FILE/READ N WORDS FROM DUMPED FILE...M.J.BAILEY,1/31/65 PAGE 6
*
00211 0502 00 0 00625 CLS DWC NO. WDS. LEFT IN FILE
00212 0400 00 0 00000 RFA ADD ** (N)
00213 0100 00 0 00220 TZE RFC
00214 0120 00 0 00220 TPL RFC SKIP IF N LARGER THAN NO. WORDS IN FILE
00215 0500 00 0 00000 RFB CLA ** (N)
00216 0600 60 4 00004 STZ* 4,4 NO END TO FILE THIS TIME
00217 0020 00 0 00222 TRA RFD SKIP
00220 0500 00 0 00625 RFC CLA DWC NO. OF WORDS LEFT IN FILE, IS
00221 0601 60 4 00004 STO* 4,4 END (DUMPED) FILE WORD COUNT, AND
00222 0734 00 3 00000 RFD PAX 0,3 NO. OF WORDS TO BE RETURNED BY RDF
00223 0601 00 0 00572 STO NW1
00224 -0520 00 0 00626 NZT RWC
00225 0020 00 0 00274 TRA RFH SKIP IF NOTHING LEFT IN BUFFER
*
* MOVE UP TO A LOGICAL RECORD FULL OF WORDS TO CALLER'S AREA
*
00226 0502 00 0 00626 RFDA CLS RWC NO. OF WORDS LAST READ FROM LOGICAL REC.
00227 0400 00 0 00572 ADD NW1
00230 0120 00 0 00233 TPL *+3 SKIP IF NO. WORDS TO BE READ IS BIGGER
00231 0500 00 0 00572 CLA NW1 TOTAL NO. WORDS LEFT TO BE READ SMALLER
00232 0020 00 0 00234 TRA *+2 SKIP TO MOVE THAT NO. ONLY
00233 0500 00 0 00626 CLA RWC ELSE USE NO. OF WORDS IN LOG. REC.
00234 0601 00 0 00632 STO T SET NO. WORDS TO BE MOVED , = T
00235 0734 00 1 00000 PAX 0,1
00236 0400 00 0 00245 ADD RFF ANAME+........
00237 0621 00 0 00245 STA RFF ANAME+........+T
00240 0500 00 0 00632 CLA T T
00241 0400 00 0 00631 ADD LWBF WBF
00242 0400 00 0 00633 ADD M M
00243 0621 00 0 00244 STA RFE WBF+M+T
*
00244 0500 00 1 00000 RFE CLA **,1 (WBF+M+T)
00245 0601 00 1 00000 RFF STO **,1 (ANAME + SUM OF ALL T'S)
00246 2 00001 1 00244 TIX RFE,1,1
*
* DECREASE NO. WORDS LEFT IN FILE AND IN LOG. REC. BUFFER AND NO.
* STILL NEEDED TO BE READ
*
00247 0500 00 0 00625 CLA DWC
00250 0402 00 0 00632 SUB T
00251 0601 00 0 00625 STO DWC
00252 0500 00 0 00633 CLA M
00253 0400 00 0 00632 ADD T
00254 0601 00 0 00633 STO M
00255 0500 00 0 00626 CLA RWC
00256 0402 00 0 00632 SUB T
00257 0601 00 0 00626 STO RWC
00260 0500 00 0 00572 CLA NW1
00261 0402 00 0 00632 SUB T
00262 0601 00 0 00572 STO NW1
00263 -0100 00 0 00274 TNZ RFH SKIP IF MORE WORDS NEEDED
*
* - - - - - - - - - - - - - -
* NORMAL RETURN FROM RDF
* - - - - - - - - - - - - - -
1 'OPEN' DUMPED FILE/READ N WORDS FROM DUMPED FILE...M.J.BAILEY,1/31/65 PAGE 7
*
00264 0074 00 4 00001 TSX GETLSG,4
00265 0774 00 4 00000 DX4 AXT **,4
00266 0774 00 3 00000 DX3 AXT **,3
00267 0774 00 2 00000 DX2 AXT **,2
00270 0774 00 1 00000 DX1 AXT **,1
00271 0520 60 4 00004 ZET* 4,4 TEST E.O.F. WORD COUNT
00272 0020 60 4 00003 TRA* 3,4 EOF (IN DUMPED FILE) RETURN, IF NON-ZERO
00273 0020 00 4 00006 TRA 6,4 NORMAL RETURN IF ZERO
*
* READ IN ANOTHER LOGICAL RECORD FULL
*
00274 0074 00 4 00001 RFH TSX GETLSG,4
00275 0500 00 0 00577 CLA IREC
00276 0400 00 0 04121 ADD =1
00277 0601 00 0 00577 STO IREC INDEX OF NEXT LOGICAL RECORD
00300 0402 00 0 00600 SUB NREC LAST LOG. RE. NO.
00301 -0120 00 0 00304 TMI *+3 SKIP IF NOT LAST LOG. REC.
00302 0500 00 0 00625 CLA DWC LAST ONE, GET NO. WORDS LEFT IN FILE
00303 0020 00 0 00305 TRA *+2 SKIP
00304 0500 00 0 00573 CLA LTPBF NOT LAST, GET SIZE OF A LOG. REC.
00305 0601 00 0 00626 STO RWC FOR NO. OF DATA WORDS TO BE READ
00306 0600 00 0 00633 STZ M
00307 0074 00 4 00365 TSX GSOME,4
*
00310 0500 00 0 75007 RFHA CLA X
00311 0400 00 0 00603 ADD LLR
00312 0601 00 0 00604 STO Y MOVE Y TO START OF NEXT LOG. REC.
00313 0601 00 0 75007 STO X
*
00314 MOVE 12,OPREAM,PRPR
00314 0774 00 1 00014 AXT 12,1 .001
00315 -0500 00 1 00572 CAL OPREAM+12,1 .001
00316 0602 00 1 00556 SLW PRPR+12,1 .001
00317 2 00001 1 00315 TIX *-2,1,1 .001
00320 0074 00 4 00414 TSX BREAD,4 READ PREAMBLE OF NEXT LOG. REC.
TD 00321 3 00000 0 00556 TXH OPREAM AFTER MOVING 2ND COPY DOWN
TD 00322 3 00000 0 04123 TXH =12 TO X, AND SETTING X=Y.
00323 0020 00 0 00357 TRA DIX4 NOTHING READ
00324 0020 00 0 00357 TRA DIX4 READ ERROR
00325 0020 00 0 00356 TRA DIX47 TAPE EOF
*
00326 CMPWDS 11,OPREAM,PRPR,BADFIL
00326 0774 00 1 00013 AXT 11,1 .001
00327 -0500 00 1 00571 CAL OPREAM+11,1 .001
00330 -0340 00 1 00555 LAS PRPR+11,1 .001
00331 0020 00 0 00352 TRA BADFIL .001
00332 0020 00 0 00334 TRA *+2 .001
00333 0020 00 0 00352 TRA BADFIL .001
00334 2 00001 1 00327 TIX *-5,1,1 .001
*
00335 0500 00 0 00571 CLA OPREAM+11
00336 0402 00 0 00555 SUB PRPR+11
00337 0100 00 0 00310 TZE RFHA IGNORE LOG.REC. IF SAME NO. AS LAST
*
00340 0500 00 0 75007 RFI CLA X
1 'OPEN' DUMPED FILE/READ N WORDS FROM DUMPED FILE...M.J.BAILEY,1/31/65 PAGE 8
00341 0400 00 0 04123 ADD =12
00342 0601 00 0 00604 STO Y Y=X+12
*
00343 0074 00 4 00443 TSX AREAD,4 READ IN RWC DATA WORDS FROM
TD 00344 3 00000 0 00634 TXH WBF POSTN. Y = X+12 OF TAPE FILE
TD 00345 3 00000 0 00626 TXH RWC
00346 0020 00 0 00357 TRA DIX4
00347 0020 00 0 00357 TRA DIX4
00350 0020 00 0 00356 TRA DIX47
*
00351 0020 00 0 00226 TRA RFDA RETURN TO MOVE WORDS FROM BUFFER
*
00352 0500 00 0 00401 BADFIL CLA SOME
00353 -0760 00 0 00003 SSM
00354 0601 00 0 00401 STO SOME
00355 0020 00 0 00357 TRA DIX4
*
* ERROR RETURN FROM RDF
*
00356 -0625 00 0 75014 DIX47 STL TEOF
00357 0074 00 4 00001 DIX4 TSX GETLSG,4
00360 0534 00 4 00265 LXA DX4,4
00361 0534 00 3 00266 DIX3 LXA DX3,3
00362 0534 00 2 00267 LXA DX2,2
00363 0534 00 1 00270 LXA DX1,1
00364 0020 60 4 00002 TRA* 2,4
*
00365 0774 00 1 00001 GSOME AXT 1,1
00366 0500 00 0 00626 CLA RWC
00367 0400 00 0 04123 ADD =12
00370 0402 00 0 04124 SUB =432
00371 -0120 00 0 00374 TMI *+3
00372 0100 00 0 00374 TZE *+2
00373 1 00001 1 00370 TXI *-3,1,1
00374 0754 00 1 00000 PXA ,1
00375 0131 00 0 00000 XCA
00376 0200 00 0 04124 MPY =432
00377 -0600 00 0 00401 STQ SOME
00400 0020 00 4 00001 TRA 1,4
*
00401 0 00000 0 00000 SOME PZE
*
* - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
* BASIC READ - SKIP 2ND COPY DOWN TO X, SET X=Y, READ FROM MAIN
* COPY, POSITION Y, INTO (1,4), A NO. OF WORDS GIVEN BY (2,4).
* - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
*
00402 0634 00 4 00410 CHERR SXA CH4,4
00403 0074 00 4 00003 TSX IODIAG,4
00404 3 00007 0 00533 TXH ERAY,,7
00405 -0500 00 0 00536 CAL ERAY+3
00406 0402 00 0 04122 SUB =6
00407 0100 00 0 00412 TZE ANYEOF
00410 0774 00 4 00000 CH4 AXT **,4
00411 0020 00 4 00002 TRA 2,4
00412 0534 00 4 00410 ANYEOF LXA CH4,4
1 'OPEN' DUMPED FILE/READ N WORDS FROM DUMPED FILE...M.J.BAILEY,1/31/65 PAGE 9
00413 0020 60 4 00001 TRA* 1,4
*
*
00414 0634 00 4 00504 BREAD SXA BRX4,4
00415 0500 00 4 00001 CLA 1,4
00416 0621 00 0 00455 STA BRE
00417 0621 00 0 00500 STA BRI
00420 0500 60 4 00002 CLA* 2,4
00421 0601 00 0 00605 STO NWORDS
00422 SKIFNB AREADA SKIP IF NO 2ND TAPE COPY
00422 0500 00 0 75041 CLA NOCHAN .001
00423 0402 00 0 04121 SUB =1 .001
00424 0100 00 0 00451 TZE AREADA .001
*
00425 0074 00 4 00004 TSX RDFILE,4
00426 3 00000 0 75020 PTH BFNA
00427 3 00000 0 75017 PTH BFNB
00430 3 00000 0 75007 PTH X
00431 3 00001 0 00601 PTH TEMP,,1
00432 3 00000 0 00515 PTH BRM
00433 3 00000 0 00601 PTH TEMP
00434 3 00000 0 00436 PTH BRB
00435 0020 00 0 00451 TRA AREADA
*
00436 0074 00 4 00402 BRB TSX CHERR,4
TD 00437 3 00000 0 00515 TXH BRM
00440 PRM MESK,7
00440 0074 00 4 00006 TSX WRFLX,4 .001
00441 0 00007 0 00606 MESK,,7 .001
00442 0020 00 0 00451 TRA AREADA
*
* READ FROM MAIN COPY, POSITION Y, INTO (1,4) ET SEQ, (2,4) WORDS
*
00443 0634 00 4 00504 AREAD SXA BRX4,4
00444 0500 00 4 00001 CLA 1,4
00445 0621 00 0 00455 STA BRE
00446 0621 00 0 00500 STA BRI
00447 0500 60 4 00002 CLA* 2,4
00450 0601 00 0 00605 STO NWORDS
00451 0074 00 4 00002 AREADA TSX RDWAIT,4
TD 00452 3 00000 0 75036 TXH LFNA
TD 00453 3 00000 0 75035 TXH LFNB
TD 00454 3 00000 0 00604 TXH Y
00455 2 00605 0 00000 BRE TIX **,,NWORDS
TD 00456 3 00000 0 00515 TXH BRM
TD 00457 3 00000 0 75014 TXH TEOF
TD 00460 3 00000 0 00463 TXH BRF
00461 0074 00 4 00001 TSX GETLSG,4
00462 0020 00 0 00504 TRA BRX4
*
00463 0074 00 4 00402 BRF TSX CHERR,4
TD 00464 3 00000 0 00515 TXH BRM
*
* ERROR, TRY TO READ FROM SECONDARY COPY INSTEAD OF MAIN ONE
*
00465 SKIFNB BRK SKIP IF NO 2ND TAPE COPY
1 'OPEN' DUMPED FILE/READ N WORDS FROM DUMPED FILE...M.J.BAILEY,1/31/65 PAGE 10
00465 0500 00 0 75041 CLA NOCHAN .001
00466 0402 00 0 04121 SUB =1 .001
00467 0100 00 0 00510 TZE BRK .001
00470 0074 00 4 00005 TSX FWAIT,4 WAIT ON I/O.
TD 00471 3 00000 0 75020 TXH BFNA
TD 00472 3 00000 0 75017 TXH BFNB
TD 00473 3 00000 0 00474 TXH *+1
00474 0074 00 4 00002 TSX RDWAIT,4
TD 00475 3 00000 0 75020 TXH BFNA
TD 00476 3 00000 0 75017 TXH BFNB
TD 00477 3 00000 0 00604 TXH Y
00500 2 00605 0 00000 BRI TIX **,,NWORDS
TD 00501 3 00000 0 00515 TXH BRM
TD 00502 3 00000 0 75014 TXH TEOF
TD 00503 3 00000 0 00506 TXH BRJ
00504 0774 00 4 00000 BRX4 AXT **,4
00505 0020 00 4 00006 TRA 6,4
*
00506 0074 00 4 00402 BRJ TSX CHERR,4
TD 00507 3 00000 0 00515 TXH BRM
00510 0074 00 4 00007 BRK TSX $PRNTER,4
00511 0534 00 4 00504 LXA BRX4,4
00512 0020 00 4 00004 TRA 4,4
*
00513 0534 00 4 00504 BRLA LXA BRX4,4
00514 0020 00 4 00005 TRA 5,4
*
00515 0074 00 4 00010 BRM TSX $TSTEOF,4 END OF REEL
00516 0020 00 0 00526 TRA ABNADD ABANDON TAPE FILE
00517 0020 00 0 00521 TRA *+2 ERROR
00520 0020 00 0 00513 TRA BRLA END OF FILE (LAST REEL)
00521 0500 00 0 00574 CLA PHYSRC END OF REEL, REELS CHANGED
00522 0400 00 0 04121 ADD =1
00523 0601 00 0 75007 STO X
00524 0601 00 0 00604 STO Y
00525 0020 00 0 00451 TRA AREADA
*
00526 EORABN EQU *
00526 0020 00 0 00000 ABNADD TRA ** (OPENDF OR RDF RETURN)
*
00527 0534 00 4 00153 EORAB1 LXA X4,4 OPENDF RETURN
00530 1 77777 4 00162 TXI IX3,4,-1 GO RETURN VIA (2,4)
*
00531 0534 00 4 00265 EORAB2 LXA DX4,4 RDF RETURN
00532 1 77775 4 00361 TXI DIX3,4,-3 GO RETURN VIA (5,4)
*
* - - - - - - - - - - - - - - - - - - - - - - - - - - - -
* CONSTANTS, VARIABLES, ETC.
* - - - - - - - - - - - - - - - - - - - - - - - - - - - -
*
00533 ERAY BSS 7
00542 PRPR BSS 12
00556 OPREAM BSS 12
00572 0 00000 0 00000 NW1 PZE
00573 0 00000 0 03264 LTPBF PZE 4*432-12
00574 0 00000 0 00660 PHYSRC PZE 432
1 'OPEN' DUMPED FILE/READ N WORDS FROM DUMPED FILE...M.J.BAILEY,1/31/65 PAGE 11
00575 0 00000 0 00000 NFLR PZE
00576 0 00000 0 00000 NLAST PZE
00577 0 00000 0 00000 IREC PZE
00600 0 00000 0 00000 NREC PZE
00601 TEMP BSS 2
00603 0 00000 0 03300 LLR PZE 4*432
00604 0 00000 0 00000 Y PZE
00605 0 00000 0 00000 NWORDS PZE
00606 606225234645 MESK BCI 7, SECONDARY COPY NOT MOVED DOWN THIS TIME.
00615 606321472560 MESL BCI 8, TAPE FILE WILL BE ABANDONED, PUT KEY UP AGAIN.
00625 0 00000 0 00000 DWC PZE
00626 0 00000 0 00000 RWC PZE
00627 0 00000 0 00527 LEOROP PZE EORAB1
00630 0 00000 0 00531 LEORRD PZE EORAB2
00631 0 00000 0 00634 LWBF PZE WBF
00632 0 00000 0 00000 T PZE
00633 0 00000 0 00000 M PZE
00634 WBF BSS 4*432-12
INSERT BCMEQB
*
* - - - - - - - - - - - - - - - - - -
* COMMON AND EQUIVALENCE FOR SECONDARY STORAGE LOAD
* (TIME-SHARING VERSION)
* - - - - - - - - - - - - - - - - - -
*
075045 DEMKEY BOOL 75045 CORE A LOCATION FOR DAEMON KEY SETTING
*
000017 BASE BOOL 17 KEY CODE BASE
000001 CTINUE BOOL 1 KEY CODE TO CONTINUE WITH PROGRAM,NO CHANGE
000002 PAUSE BOOL 2 KEY CODE TO WAIT 60 SECS.
000003 CHLDFL BOOL 3 KEY CODE TO USE DIFFERENT LOAD FILE
000004 STOPLD BOOL 4 KEY CODE TO STOP LOADING, START DUMPING
000005 ABANKY BOOL 5 KEY CODE TO ABANDON LOAD TAPE FILE
000006 SWCHAN BOOL 6 KEY CODE TO GO FROM 1 OR 2 TO 2 OR 1 CHANS.
000007 LSREEL BOOL 7 KEY CODE TO INDICATE LAST REEL OF LOAD FILE
000010 CHREEL BOOL 10 KEY CODE TO CORRECT REEL ORDER ERROR
77777 NEWCOM EQU -1 TOP OF MEMORY
077461 OLDCOM BOOL 77461 OLD TOP OF COMMON
77462 COMRLC EQU OLDCOM-NEWCOM RELOCATION FACTOR
77777 COMMON COMRLC RELOCATE COMMON
01355 UF EQU 32767/2-DEMKEY/2 LENGTH OF USER LIST
77777 UFL COMMON 2*UF USER FILE LIST (1ST PARTS OF FILE NAMES)
75044 COMMON 1 INSERT DUMMY IF NECESSARY
75043 COMMON 1 DEMKEY CELL IN NON-CTSS VERSION
75043 KEYVAL COMMON 1
75042 ABANTP COMMON 1 ABANDON TAPE FILE INDICATOR
75041 NOCHAN COMMON 1 NO. OF CHANNELS BEING READ (1 OR 2)
75040 DU COMMON 1 PROBLEM NO. OF DUMP/LOAD PACKAGE
75037 DP COMMON 1 PROGRAMMER NO. OF DITTO.
75036 LFNA COMMON 1 LOAD TAPE FILE NAME (PART 1)
75035 LFNB COMMON 1 ,, ,, ,, ,, (PART 2)
75021 COMMON 11 DUMPED FILE'S PREAMBLE FROM DUMP TAPE
75021 PREAM COMMON 1 DUMPED FILE'S DUMP TAPE PREAMBLE 1ST WORD
75020 BFNA COMMON 1 CHANNEL B LOAD TAPE FILE NAME (PART 1)
75017 BFNB COMMON 1 CHANNEL B LOAD TAPE FILE NAME (PART 2)
75016 AUN COMMON 1 CHANNEL A UNIT NO.
1 'OPEN' DUMPED FILE/READ N WORDS FROM DUMPED FILE...M.J.BAILEY,1/31/65 PAGE 12
75015 BUN COMMON 1 CHANNEL B UNIT NO.
75014 TEOF COMMON 1 TAPE EOF INDICATOR/WORD COUNT
75010 COMMON 3 LABEL OF TAPE FILE CURRENTLY BEING LOADED
75010 LABEL COMMON 1 LABEL OF TAPE FILE DITTO. 1ST WORD
75007 X COMMON 1 TAPE FILE POINTER
END
1 'OPEN' DUMPED FILE/READ N WORDS FROM DUMPED FILE...M.J.BAILEY,1/31/65 PAGE 1
POST PROCESSOR ASSEMBLY DATA
75006 IS THE LAST LOCATION NOT USED BY THIS PROGRAM
4125 IS THE FIRST LOCATION NOT USED BY THIS PROGRAM
0REFERENCES TO DEFINED SYMBOLS
633 M 17, 242, 252, 254, 306
632 T 234, 240, 250, 253, 256, 261
75007 X 31, 37, 41, 45, 47, 122, 124, 131, 310, 313, 340, 430, 523, 4120
604 Y 42, 50, 125, 133, 312, 342, 454, 477, 524
75037 DP 4120
75040 DU 4120
44 FL 44, 60, 104, 110, 113
122 OQ 34
1355 UF 4120
156 X1 13, 164
155 X2 14, 163
154 X3 15, 162
153 X4 16, 161, 527
75016 AUN 4120
436 BRB 434
455 BRE 416, 445
463 BRF 460
500 BRI 417, 446
506 BRJ 503
510 BRK 467
515 BRM 432, 437, 456, 464, 501, 507
75015 BUN 4120
410 CH4 402, 412
625 DWC 130, 137, 211, 220, 247, 251, 302
270 DX1 166, 363
267 DX2 167, 362
266 DX3 170, 361
265 DX4 171, 174, 360, 531
44 FLA 54, 55
162 IX3 530
603 LLR 311
572 NW1 223, 227, 231, 260, 262
130 OQC 121
166 RDF 0
212 RFA 200
215 RFB 201
220 RFC 213, 214
222 RFD 217
244 RFE 243, 246
245 RFF 176, 236, 237
274 RFH 225, 263
340 RFI
626 RWC 142, 147, 224, 226, 233, 255, 257, 305, 345, 366
77777 UFL 4120
634 WBF 146, 344, 631
17 BASE 4120
75020 BFNA 426, 471, 475, 4120
75017 BFNB 427, 472, 476, 4120
513 BRLA 520
504 BRX4 414, 443, 462, 511, 513
1 'OPEN' DUMPED FILE/READ N WORDS FROM DUMPED FILE...M.J.BAILEY,1/31/65 PAGE 2
POST PROCESSOR ASSEMBLY DATA
361 DIX3 532
357 DIX4 323, 324, 346, 347, 355
533 ERAY 404, 405
161 ERTN 33, 150, 151
51 FLAB 127
577 IREC 76, 105, 111, 134, 275, 277
57 JUMP 36
75036 LFNA 452, 4120
75035 LFNB 453, 4120
631 LWBF 241
606 MESK 441
615 MESL 27, 207
575 NFLR 70, 77
600 NREC 102, 106, 135, 300
542 PRPR 316, 330, 336
160 REOF 56, 152
226 RFDA 351
310 RFHA 337
401 SOME 35, 40, 126, 352, 354, 377
601 TEMP 72, 74, 103, 431, 433
75014 TEOF 20, 160, 173, 356, 457, 502, 4120
443 AREAD 145, 343
414 BREAD 51, 320
402 CHERR 436, 463, 506
356 DIX47 325, 350
5 FWAIT 470
365 GSOME 144, 307
75010 LABEL 4120
573 LTPBF 65, 141, 304
576 NLAST 71, 100
0 NLREC 61
2 PAUSE 4120
75021 PREAM 116, 4120
6 WRFLX 26, 206, 440
5 ABANKY 4120
75042 ABANTP 24, 204, 4120
526 ABNADD 22, 203, 516
412 ANYEOF 407
451 AREADA 424, 435, 442, 525
352 BADFIL 331, 333
3 CHLDFL 4120
10 CHREEL 4120
77462 COMRLC 4120
1 CTINUE 4120
75045 DEMKEY 4120
527 EORAB1 627
531 EORAB2 630
526 EORABN 30, 210, 526
1 GETLSG 23, 44, 143, 172, 264, 274, 357, 461
3 IODIAG 403
75043 KEYVAL 4120
627 LEOROP 21
630 LEORRD 202
7 LSREEL 4120
77777 NEWCOM 4120
1 'OPEN' DUMPED FILE/READ N WORDS FROM DUMPED FILE...M.J.BAILEY,1/31/65 PAGE 3
POST PROCESSOR ASSEMBLY DATA
75041 NOCHAN 422, 465, 4120
605 NWORDS 421, 450, 455, 500
77461 OLDCOM 4120
13 OPENDF 0
556 OPREAM 52, 57, 64, 73, 115, 120, 315, 321, 327, 335
574 PHYSRC 32, 46, 67, 521
7 PRNTER 510
4 RDFILE 425
2 RDWAIT 451, 474
4 STOPLD 4120
6 SWCHAN 4120
10 TSTEOF 515
0 NO ERROR IN ABOVE ASSEMBLY.
LINTTB BCD 01/12/68 1016.3 12458 00000
1 INITIATE AND TERMINATE DUMP TAPE FILE READS.....M.J.BAILEY..1/31/65 PAGE 1
* (TIME-SHARING VERSION)
*
00022 ENTRY INITTF
00403 ENTRY TERMTF
00437 ENTRY TSTEOF
*
EXTERN GETLSG,IOBDT
EXTERN ATTACH
EXTERN ATTNAM
EXTERN RDWAIT,FWAIT
EXTERN VERIFY,BUFFER,OPEN,SLEEP
EXTERN MOUNT,UMOUNT,CLOSE,WRFLX
*
INSERT BMCRSC
*
* ZERO-IZE A THROUGH A+X-1
*
CLEAR MACRO A,X
AXT X,1
STZ A+X,1
TIX *-1,1,1
CLEAR END
*
* MOVE X WORDS FROM A ET SEQ TO B ET SEQ
*
MOVE MACRO X,A,B
AXT X,1
CAL A+X,1
SLW B+X,1
TIX *-2,1,1
MOVE END
*
* PRINT ONE LINE COMMENT
*
PRLINE MACRO COMNT,NWC,LOC
TSX WRFLX,4
LOC,,NWC
RMT
LOC BCI NWC,COMNT
RMT
PRLINE END
*
*
* EXECUTE INST. IN CORE A
*
*
EXEC MACRO OPC,ADD
TSX $GETA,7
OPC ADD
EXEC END
*
* GET KEY SETTING VIA SUPERVISOR, SET ABANTP, NOCHAN IF APPROPRIATE
*
GETSIG MACRO
TSX GETLSG,4
GETSIG END
1 INITIATE AND TERMINATE DUMP TAPE FILE READS.....M.J.BAILEY..1/31/65 PAGE 2
*
* TEST WHETHER 2ND TAPE COPY IS NEEDED, IF NOT GO TO SKIP
*
SKIFNB MACRO SKIP
CLA NOCHAN
SUB =1
TZE SKIP
SKIFNB END
*
* PRINT AN N-WORD MESSAGE FROM MESSGE
*
PRM MACRO MESSGE,N
TSX WRFLX,4
MESSGE,,N
PRM END
*
* COMPARE 2 SETS OF N CONSECUTIVE WORDS IN A ETC., AND B ETC. ,
* AND IF THEY DO NOT ALL MATCH, GO TO NF, OR OTHERWISE CONTINUE.
*
CMPWDS MACRO N,A,B,NF
AXT N,1
CAL A+N,1
LAS B+N,1
TRA NF
TRA *+2
TRA NF
TIX *-5,1,1
CMPWDS END
*
* WAIT FOR I/O ON FILE (A,B) TO END, GO TO E IF ERROR OCCURRED
*
WAIT MACRO A,B,E
TSX FWAIT,4
PTH A
PTH B
PTH E
WAIT END
*
* CLOSE THE FILE (A,B)
*
CLOSE MACRO A,B
TSX CLOSE,4
PTH A
PTH B
CLOSE END
*
* - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
* INITIATE DUMP TAPE FILE READ (OPEN, AND READ I.D
* LABELS FROM BOTH COPIES, AND CHECK THEY MATCH)
* - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
*
00000 272563436227 GETLSG
00001 314622246360 IOBDT
00002 216363212330 ATTACH
00003 216363452144 ATTNAM
1 INITIATE AND TERMINATE DUMP TAPE FILE READS.....M.J.BAILEY..1/31/65 PAGE 3
00004 512466213163 RDWAIT
00005 266621316360 FWAIT
00006 652551312670 VERIFY
00007 226426262551 BUFFER
00010 464725456060 OPEN
00011 624325254760 SLEEP
00012 444664456360 MOUNT
00013 644446644563 UMOUNT
00014 234346622560 CLOSE
00015 665126436760 WRFLX
00016 475145632551 PRNTER
00017 216242464751 ASKOPR
00022 0634 00 1 00401 INITTF SXA X1,1
00023 0634 00 2 00400 SXA X2,2
00024 0634 00 3 00377 SXA X3,3
00025 0634 00 4 00376 SXA X4,4
00026 0074 00 4 00000 TSX GETLSG,4
00027 SKIFNB IA SKIP IF ONLY ONE TAPE COPY
00027 0500 00 0 75041 CLA NOCHAN .001
00030 0402 00 0 03265 SUB =1 .001
00031 0100 00 0 00077 TZE IA .001
*
* VERIFY THAT 2ND CHANNEL HAS CORRECT DUPLICATE MOUNTED
*
00032 0774 00 2 00012 AXT 10,2
00033 0074 00 4 00006 CHCKBA TSX VERIFY,4
TD 00034 3 00000 0 75015 TXH BUN
00035 3 00004 0 75010 TXH LABEL,,4
TD 00036 3 00000 0 00041 TXH CHCKBB ERROR
TD 00037 3 00000 0 01014 TXH ERCODE
00040 0020 00 0 00077 TRA IA SKIP IF OTHER CHANNEL O.K.
*
00041 0074 00 4 00016 CHCKBB TSX $PRNTER,4
00042 0500 00 0 01014 CLA ERCODE
00043 0402 00 0 03267 SUB =7
00044 -0100 00 0 00070 TNZ CHCKBD SKIP IF NOT INCORRECT-LABEL ERROR
00045 2 00002 2 00033 TIX CHCKBA,2,2 TRY 5 TIMES IF LABEL IS INCORRECT
*
00046 0074 00 4 00013 WRONGB TSX UMOUNT,4 IF STILL WRONG UNMOUNT THIS TAPE
TD 00047 3 00000 0 75015 TXH BUN
00050 2 01103 0 01067 TIX WRNGT2,,LWT2
00051 0074 00 4 00017 CHCKBC TSX $ASKOPR,4
00052 3 00006 0 01035 PTH MESC,,6
00053 3 00001 0 00063 PTH CONT,,CTINUE
00054 3 00006 0 01043 PTH MESD,,6
00055 3 00003 0 00075 PTH QUITFL,,CHLDFL
00056 3 00006 0 01051 PTH MESE,,6
00057 3 00002 0 00060 PTH REST,,PAUSE
*
00060 -0500 00 0 03271 REST CAL =45
00061 0074 00 4 00011 TSX SLEEP,4
00062 0020 00 0 00051 TRA CHCKBC
00063 0074 00 4 00012 CONT TSX MOUNT,4 MOUNT ANOTHER ON 2ND CHANNEL
TD 00064 3 00000 0 03266 TXH =2
1 INITIATE AND TERMINATE DUMP TAPE FILE READS.....M.J.BAILEY..1/31/65 PAGE 4
TD 00065 3 00000 0 75015 TXH BUN
00066 2 01113 0 01104 TIX RMT2,,LRMT2
00067 0020 00 0 00032 TRA CHCKBA-1 AND RE-VERIFY
*
00070 2 00001 2 00033 CHCKBD TIX CHCKBA,2,1 TRY 10 TIMES IF SOME OTHER ERROR
00071 0074 00 4 00013 TSX UMOUNT,4 THEN UNMOUNT THIS TAPE
TD 00072 3 00000 0 75015 TXH BUN
00073 2 01132 0 01114 TIX BADT2,,LBT2
00074 0020 00 0 00051 TRA CHCKBC THEN GO STOP TO SEE WHAT NEXT
*
00075 QUITFL EQU * TO ABANDON THIS TAPE FILE,
00075 0534 00 4 00376 ABEXT LXA X4,4
00076 1 00001 4 00377 TXI X3,4,1 THEN GO EXIT VIA 1,4
*
* OPEN TAPE FILE 1ST COPY AND READ ITS I.D.
*
00077 0774 00 2 00012 IA AXT 10,2
00100 0074 00 4 00010 IAA TSX OPEN,4
TD 00101 3 00000 0 01013 TXH R
TD 00102 3 00000 0 75036 TXH LFNA
TD 00103 3 00000 0 75035 TXH LFNB
TD 00104 3 00000 0 03273 TXH =-0
TD 00105 3 00000 0 03273 TXH =-0
TD 00106 3 00000 0 00162 TXH ID ERROR
*
00107 0074 00 4 00007 TSX BUFFER,4 ASSIGN BUFFERS
TD 00110 3 00000 0 75036 TXH LFNA
TD 00111 3 00000 0 75035 TXH LFNB
00112 2 01015 0 01410 TIX IB1,,LIB
00113 -0500 00 0 03265 CAL =1
00114 0602 00 0 75007 SLW X
*
00115 0774 00 3 00066 AXT RECSIZ/8,3
00116 0074 00 4 00004 IB TSX RDWAIT,4 READ I.D. RECORD LABEL
TD 00117 3 00000 0 75036 TXH LFNA
TD 00120 3 00000 0 75035 TXH LFNB
TD 00121 3 00000 0 75007 TXH X
00122 3 00010 0 02270 TXH WBF,,8
TD 00123 3 00000 0 00200 TXH IE EOF, ERROR
TD 00124 3 00000 0 75014 TXH TEOF
TD 00125 3 00000 0 00136 TXH IC
00126 0074 00 4 00000 TSX GETLSG,4
00127 0600 00 0 01012 STZ IDERR I.D. LABEL READ O.K., SKIP TO DO 2ND COPY
00130 MOVE 8,WBF,TAPEID
00130 0774 00 1 00010 AXT 8,1 .001
00131 -0500 00 1 02300 CAL WBF+8,1 .001
00132 0602 00 1 02324 SLW TAPEID+8,1 .001
00133 2 00001 1 00131 TIX *-2,1,1 .001
00134 0600 00 0 02324 STZ TAPEID+8
00135 0020 00 0 00206 TRA IG
*
00136 0074 00 4 00016 IC TSX $PRNTER,4 READ ERROR
00137 0500 00 0 75007 CLA X
00140 0400 00 0 03270 ADD =8
00141 0601 00 0 75007 STO X
00142 2 00001 3 00116 TIX IB,3,1 TRY AGAIN AT NEXT REPETITION OF LABEL
1 INITIATE AND TERMINATE DUMP TAPE FILE READS.....M.J.BAILEY..1/31/65 PAGE 5
00143 PRM MESA,8 I.D. IS UNREAD,
00143 0074 00 4 00015 TSX WRFLX,4 .001
00144 0 00010 0 01020 MESA,,8 .001
00145 0074 00 4 00017 BACK TSX $ASKOPR,4
00146 3 00006 0 01035 PTH MESC,,6
00147 3 00001 0 00157 PTH CONT1,,CTINUE
00150 3 00006 0 01043 PTH MESD,,6
00151 3 00003 0 00075 PTH QUITFL,,CHLDFL
00152 3 00006 0 01051 PTH MESE,,6
00153 3 00002 0 00154 PTH REST1,,PAUSE
*
00154 -0500 00 0 03271 REST1 CAL =45
00155 0074 00 4 00011 TSX SLEEP,4
00156 0020 00 0 00145 TRA BACK
*
00157 0500 00 0 03265 CONT1 CLA =1 OR CONTINUE WITHOUT CHECKING I.D.'S
00160 0601 00 0 01012 STO IDERR
00161 0020 00 0 00206 TRA IG
*
00162 ID PRM MESB,5 ERROR OPENING FILE
00162 0074 00 4 00015 TSX WRFLX,4 .001
00163 0 00005 0 01030 MESB,,5 .001
00164 0074 00 4 00016 TSX $PRNTER,4
00165 2 00001 2 00100 IDA TIX IAA,2,1 TRY 10 TIMES TO OPEN
00166 0074 00 4 00017 BACK1 TSX $ASKOPR,4
00167 3 00006 0 01035 PTH MESC,,6
00170 3 00001 0 00077 PTH IA,,CTINUE
00171 3 00006 0 01043 PTH MESD,,6
00172 3 00003 0 00075 PTH QUITFL,,CHLDFL
00173 3 00006 0 01051 PTH MESE,,6
00174 3 00002 0 00175 PTH REST2,,PAUSE
*
00175 -0500 00 0 03271 REST2 CAL =45
00176 0074 00 4 00011 TSX SLEEP,4
00177 0020 00 0 00166 TRA BACK1
*
00200 IE PRM MESF,8 EOF IN WRONG PLACE
00200 0074 00 4 00015 TSX WRFLX,4 .001
00201 0 00010 0 01057 MESF,,8 .001
00202 CLOSE LFNA,LFNB
00202 0074 00 4 00014 TSX CLOSE,4 .001
00203 3 00000 0 75036 PTH LFNA .001
00204 3 00000 0 75035 PTH LFNB .001
00205 0020 00 0 00165 TRA IDA TRY TEN TIMES TO NOT GET ONE
*
*
* OPEN TAPE FILE 2ND COPY, READ ITS I.D. LABEL
*
00206 IG SKIFNB IS
00206 0500 00 0 75041 CLA NOCHAN .001
00207 0402 00 0 03265 SUB =1 .001
00210 0100 00 0 00350 TZE IS .001
00211 0774 00 2 00012 AXT 10,2
00212 0074 00 4 00010 IH TSX OPEN,4
TD 00213 3 00000 0 01013 TXH R
TD 00214 3 00000 0 75020 TXH BFNA
1 INITIATE AND TERMINATE DUMP TAPE FILE READS.....M.J.BAILEY..1/31/65 PAGE 6
TD 00215 3 00000 0 75017 TXH BFNB
TD 00216 3 00000 0 03273 TXH =-0
TD 00217 3 00000 0 03273 TXH =-0
TD 00220 3 00000 0 00272 TXH IK ERROR
*
00221 0074 00 4 00007 TSX BUFFER,4 ASSIGN BUFFER
TD 00222 3 00000 0 75020 TXH BFNA
TD 00223 3 00000 0 75017 TXH BFNB
00224 2 01015 0 02325 TIX IB2,,LIB
00225 -0500 00 0 03265 CAL =1
00226 0602 00 0 75007 SLW X
*
00227 0774 00 3 00066 AXT RECSIZ/8,3
00230 0074 00 4 00004 II TSX RDWAIT,4 READ I.D. RECORD LABEL
TD 00231 3 00000 0 75020 TXH BFNA
TD 00232 3 00000 0 75017 TXH BFNB
TD 00233 3 00000 0 75007 TXH X
00234 2 01017 0 02300 TIX WBF+8,,L8
TD 00235 3 00000 0 00310 TXH IM EOF, ERROR
TD 00236 3 00000 0 75014 TXH TEOF
TD 00237 3 00000 0 00243 TXH IJ
00240 -0520 00 0 01012 NZT IDERR I.D. READ O.K.
00241 0020 00 0 00320 TRA IO SKIP TO COMPARE IF BOTH READ
00242 0020 00 0 00342 TRA IR OR CARRY ON WITH NO CHECK
*
00243 0074 00 4 00016 IJ TSX $PRNTER,4
00244 0500 00 0 75007 CLA X
00245 0400 00 0 03270 ADD =8
00246 0601 00 0 75007 STO X
00247 2 00001 3 00230 TIX II,3,1 TRY TO READ AGAIN AT REPETITION OF LABEL
00250 -0500 00 0 03275 CAL =H ON 2N
00251 0602 00 0 01022 SLW MESA+2
00252 -0500 00 0 03272 CAL =HD COPY
00253 0602 00 0 01023 SLW MESA+3
00254 PRM MESA,8
00254 0074 00 4 00015 TSX WRFLX,4 .001
00255 0 00010 0 01020 MESA,,8 .001
00256 0520 00 0 01012 ZET IDERR
00257 0020 00 0 00075 TRA QUITFL ABANDON BOTH TAPES IF NO I.D.'S READ
00260 0074 00 4 00017 BACK2 TSX $ASKOPR,4
00261 3 00006 0 01035 PTH MESC,,6
00262 3 00001 0 00342 PTH IR,,CTINUE
00263 3 00006 0 01043 PTH MESD,,6
00264 3 00003 0 00075 PTH QUITFL,,CHLDFL
00265 3 00006 0 01051 PTH MESE,,6
00266 3 00002 0 00267 PTH REST3,,PAUSE
*
00267 -0500 00 0 03271 REST3 CAL =45
00270 0074 00 4 00011 TSX SLEEP,4
00271 0020 00 0 00260 TRA BACK2
*
*
00272 IK PRM MESB,5
00272 0074 00 4 00015 TSX WRFLX,4 .001
00273 0 00005 0 01030 MESB,,5 .001
00274 0074 00 4 00016 TSX $PRNTER,4
1 INITIATE AND TERMINATE DUMP TAPE FILE READS.....M.J.BAILEY..1/31/65 PAGE 7
00275 2 00001 2 00212 IL TIX IH,2,1 TRY 10 TIMES TO OPEN
00276 0074 00 4 00017 BACK3 TSX $ASKOPR,4
00277 3 00006 0 01035 PTH MESC,,6
00300 3 00001 0 00206 PTH IG,,CTINUE
00301 3 00006 0 01043 PTH MESD,,6
00302 3 00003 0 00075 PTH QUITFL,,CHLDFL
00303 3 00006 0 01051 PTH MESE,,6
00304 3 00002 0 00305 PTH REST4,,PAUSE
*
00305 -0500 00 0 03271 REST4 CAL =45
00306 0074 00 4 00011 TSX SLEEP,4
00307 0020 00 0 00276 TRA BACK3
*
*
00310 -0500 00 0 03274 IM CAL =H 2ND T
00311 0602 00 0 01064 SLW MESF+5
00312 PRM MESF,8
00312 0074 00 4 00015 TSX WRFLX,4 .001
00313 0 00010 0 01057 MESF,,8 .001
00314 CLOSE BFNA,BFNB
00314 0074 00 4 00014 TSX CLOSE,4 .001
00315 3 00000 0 75020 PTH BFNA .001
00316 3 00000 0 75017 PTH BFNB .001
00317 0020 00 0 00275 TRA IL GO RE-OPEN,READ AGAIN (10 TIMES)
*
*
* COMPARE I.D. LABELS ON BOTH COPIES
*
00320 IO CMPWDS 8,WBF,WBF+8,IP
00320 0774 00 1 00010 AXT 8,1 .001
00321 -0500 00 1 02300 CAL WBF+8,1 .001
00322 -0340 00 1 02310 LAS WBF+8+8,1 .001
00323 0020 00 0 00330 TRA IP .001
00324 0020 00 0 00326 TRA *+2 .001
00325 0020 00 0 00330 TRA IP .001
00326 2 00001 1 00321 TIX *-5,1,1 .001
00327 0020 00 0 00337 TRA IQ SKIP IF COMPARISON O.K.
00330 IP CLOSE LFNA,LFNB WRONG TAPE ON 2ND CHANNEL
00330 0074 00 4 00014 TSX CLOSE,4 .001
00331 3 00000 0 75036 PTH LFNA .001
00332 3 00000 0 75035 PTH LFNB .001
00333 CLOSE BFNA,BFNB
00333 0074 00 4 00014 TSX CLOSE,4 .001
00334 3 00000 0 75020 PTH BFNA .001
00335 3 00000 0 75017 PTH BFNB .001
00336 0020 00 0 00046 TRA WRONGB GO REMOUNT AT LEAST 2ND COPY
*
* PRINT I.D. LABEL AND SET FILE POINTER AT START OF 1ST DUMPED FILE
*
00337 IQ PRM MESG,9 BOTH LABELS READ O.K.,PRINT MESSAGE
00337 0074 00 4 00015 TSX WRFLX,4 .001
00340 0 00011 0 01152 MESG,,9 .001
00341 0020 00 0 00350 TRA IS SKIP
00342 -0520 00 0 01012 IR NZT IDERR SEE WHICH LABEL WAS READ
00343 0020 00 0 00350 TRA IS SKIP IF IT WAS 1ST COPY
00344 MOVE 8,WBF+8,WBF 2ND COPY, MOVE IT DOWN
1 INITIATE AND TERMINATE DUMP TAPE FILE READS.....M.J.BAILEY..1/31/65 PAGE 8
00344 0774 00 1 00010 AXT 8,1 .001
00345 -0500 00 1 02310 CAL WBF+8+8,1 .001
00346 0602 00 1 02300 SLW WBF+8,1 .001
00347 2 00001 1 00345 TIX *-2,1,1 .001
00350 IS PRM MESH,7 PRINT MESSAGE
00350 0074 00 4 00015 TSX WRFLX,4 .001
00351 0 00007 0 01163 MESH,,7 .001
00352 PRM WBF,4
00352 0074 00 4 00015 TSX WRFLX,4 .001
00353 0 00004 0 02270 WBF,,4 .001
00354 0074 00 4 00000 TSX GETLSG,4
00355 -0500 00 0 02274 CAL WBF+4
00356 0602 00 0 01200 SLW MESI+6
00357 -0500 00 0 02275 CAL WBF+5
00360 0602 00 0 01202 SLW MESI+8
00361 PRM MESI,9 PRINT DATE/TIME DUMPING ON IT BEGAN
00361 0074 00 4 00015 TSX WRFLX,4 .001
00362 0 00011 0 01172 MESI,,9 .001
00363 -0500 00 0 02277 CAL WBF+7
00364 0100 00 0 00374 TZE IT SKIP IF NO END OF DUMP 'DAY'
00365 0074 00 4 00001 TSX IOBDT,4
00366 0602 00 0 01210 SLW MESJ+5
00367 -0600 00 0 01212 STQ MESJ+7
00370 PRM MESJ,8 PRINT END OF DUMP 'DAY'
00370 0074 00 4 00015 TSX WRFLX,4 .001
00371 0 00010 0 01203 MESJ,,8 .001
00372 PRM MESK,5
00372 0074 00 4 00015 TSX WRFLX,4 .001
00373 0 00005 0 01213 MESK,,5 .001
*
00374 0774 00 1 00660 IT AXT RECSIZ,1
00375 0634 00 1 75007 SXA X,1 SET FILE POINTER TO START OF 1ST FILE
*
00376 0774 00 4 00000 X4 AXT **,4
00377 0774 00 3 00000 X3 AXT **,3
00400 0774 00 2 00000 X2 AXT **,2
00401 0774 00 1 00000 X1 AXT **,1
00402 0020 00 4 00002 TRA 2,4
*
* - - - - - - - - - - - - - - - - - - - - -
* TERMINATE DUMP TAPE FILES
* - - - - - - - - - - - - - - - - - - - - -
*
00403 0634 00 4 00435 TERMTF SXA TX4,4
00404 0074 00 4 00000 TSX GETLSG,4
00405 PRM MESL,7
00405 0074 00 4 00015 TSX WRFLX,4 .001
00406 0 00007 0 01220 MESL,,7 .001
00407 0074 00 4 00005 TSX FWAIT,4
TD 00410 3 00000 0 75036 TXH LFNA
TD 00411 3 00000 0 75035 TXH LFNB
TD 00412 3 00000 0 00413 TXH *+1
00413 CLOSE LFNA,LFNB
00413 0074 00 4 00014 TSX CLOSE,4 .001
00414 3 00000 0 75036 PTH LFNA .001
00415 3 00000 0 75035 PTH LFNB .001
1 INITIATE AND TERMINATE DUMP TAPE FILE READS.....M.J.BAILEY..1/31/65 PAGE 9
TD 00416 3 00000 0 00417 TXH *+1
00417 0074 00 4 00005 TSX FWAIT,4
TD 00420 3 00000 0 75020 TXH BFNA
TD 00421 3 00000 0 75017 TXH BFNB
TD 00422 3 00000 0 00423 TXH *+1
00423 CLOSE BFNA,BFNB
00423 0074 00 4 00014 TSX CLOSE,4 .001
00424 3 00000 0 75020 PTH BFNA .001
00425 3 00000 0 75017 PTH BFNB .001
TD 00426 3 00000 0 00427 TXH *+1
00427 0074 00 4 00013 TSX UMOUNT,4
TD 00430 3 00000 0 75016 TXH AUN
00431 2 01141 0 01133 TIX UMA,,LUMA
00432 0074 00 4 00013 TSX UMOUNT,4
TD 00433 3 00000 0 75015 TXH BUN
00434 2 01151 0 01142 TIX UMB,,LUMB
00435 0774 00 4 00000 TX4 AXT **,4
00436 0020 00 4 00001 TRA 1,4
*
* - - - - - - - - - - - - - - - - - - - - - - - - - - - -
* TEST FOR END OF TAPE-FILE, IF NOT CHANGE REELS
* - - - - - - - - - - - - - - - - - - - - - - - - - - - -
*
00437 0634 00 1 00401 TSTEOF SXA X1,1
00440 0634 00 2 00400 SXA X2,2
00441 0634 00 3 00377 SXA X3,3
00442 0634 00 4 00376 SXA X4,4
00443 PRLINE ( END OF REEL ON RELOAD TAPE FILE.),6
00443 0074 00 4 00015 TSX WRFLX,4 .001
00444 0 00006 0 03205 ..001,,6 .001
RMT .001
..001 BCI 6, END OF REEL ON RELOAD TAPE FILE. .001
RMT .001
00445 0074 00 4 00017 TSX $ASKOPR,4
00446 3 00010 0 01323 PTH MESM,,8
00447 3 00007 0 00452 PTH EOTF,,LSREEL
00450 3 00010 0 01333 PTH MESN,,8
00451 3 00001 0 00454 PTH TB1,,CTINUE
*
00452 0534 00 4 00376 EOTF LXA X4,4 LAST REEL OF TAPE LOAD-FILE
00453 1 00001 4 00746 TXI TV,4,1 GO EXIT VIA 3,4
*
00454 0074 00 4 00003 TB1 TSX ATTNAM,4
00455 3 00002 0 01010 PTH NM,,2
00456 0074 00 4 00002 TSX ATTACH,4
00457 3 00000 0 75040 PTH DU
00460 3 00000 0 75037 PTH DP
*
*
00461 0074 00 4 00005 TB TSX FWAIT,4 JUST TO CATCH ERRORS.
TD 00462 3 00000 0 75036 TXH LFNA
TD 00463 3 00000 0 75035 TXH LFNB
TD 00464 3 00000 0 00465 TXH *+1
00465 CLOSE LFNA,LFNB CHANGE REELS
00465 0074 00 4 00014 TSX CLOSE,4 .001
00466 3 00000 0 75036 PTH LFNA .001
1 INITIATE AND TERMINATE DUMP TAPE FILE READS.....M.J.BAILEY..1/31/65 PAGE 10
00467 3 00000 0 75035 PTH LFNB .001
TD 00470 3 00000 0 00471 TXH *+1
00471 0074 00 4 00005 TSX FWAIT,4
TD 00472 3 00000 0 75020 TXH BFNA
TD 00473 3 00000 0 75017 TXH BFNB
TD 00474 3 00000 0 00475 TXH *+1
00475 CLOSE BFNA,BFNB
00475 0074 00 4 00014 TSX CLOSE,4 .001
00476 3 00000 0 75020 PTH BFNA .001
00477 3 00000 0 75017 PTH BFNB .001
TD 00500 3 00000 0 00501 TXH *+1
00501 0074 00 4 00013 TSX UMOUNT,4 UNMOUNT 'A' REEL
TD 00502 3 00000 0 75016 TXH AUN
00503 2 01236 0 01227 TIX UMRA,,LUMRA
00504 0074 00 4 00013 TSX UMOUNT,4
TD 00505 3 00000 0 75015 TXH BUN UNMOUNT 'B' REEL TOO. ***
00506 2 01246 0 01237 TIX UMRB,,LUMRB
TD 00507 3 00000 0 00510 TXH *+1 NULL ERROR RETURN, IN CASE NO B COPY.
*
00510 0074 00 4 00012 TD TSX MOUNT,4 MOUNT NEW 'A' REEL
TD 00511 3 00000 0 03265 TXH =1
TD 00512 3 00000 0 75016 TXH AUN
00513 2 01257 0 01247 TIX MRA,,LMRA
00514 0774 00 2 00003 AXT 3,2
00515 0074 00 4 00006 TE TSX VERIFY,4 CHECK I/O SYSTEM LABEL
TD 00516 3 00000 0 75016 TXH AUN
00517 2 01016 0 75010 TIX LABEL,,L4
TD 00520 3 00000 0 00523 TXH TF
TD 00521 3 00000 0 01014 TXH ERCODE
00522 0020 00 0 00545 TRA TH SKIP IF O.K.
*
00523 0074 00 4 00016 TF TSX $PRNTER,4 VERIFICATION ERROR
00524 0500 00 0 01014 CLA ERCODE
00525 0402 00 0 03267 SUB =7
00526 0100 00 0 00530 TZE TG
00527 2 00001 2 00515 TIX TE,2,1
00530 0074 00 4 00013 TG TSX UMOUNT,4
TD 00531 3 00000 0 75016 TXH AUN
00532 2 01305 0 01271 TIX WRA,,LWRA
00533 0074 00 4 00017 BACK5 TSX $ASKOPR,4
00534 3 00006 0 01035 PTH MESC,,6
00535 3 00001 0 00510 PTH TD,,CTINUE
00536 3 00006 0 01043 PTH MESD,,6
00537 3 00003 0 00075 PTH ABEXT,,CHLDFL
00540 3 00006 0 01051 PTH MESE,,6
00541 3 00002 0 00542 PTH REST5,,PAUSE
*
00542 -0500 00 0 03271 REST5 CAL =45
00543 0074 00 4 00011 TSX SLEEP,4
00544 0020 00 0 00533 TRA BACK5
*
00545 0074 00 4 00010 TH TSX OPEN,4
TD 00546 3 00000 0 01013 TXH R
TD 00547 3 00000 0 75036 TXH LFNA
TD 00550 3 00000 0 75035 TXH LFNB
TD 00551 3 00000 0 03273 TXH =-0
1 INITIATE AND TERMINATE DUMP TAPE FILE READS.....M.J.BAILEY..1/31/65 PAGE 11
TD 00552 3 00000 0 03273 TXH =-0
TD 00553 3 00000 0 00752 TXH TW ERROR
00554 0074 00 4 00007 TSX BUFFER,4
TD 00555 3 00000 0 75036 TXH LFNA
TD 00556 3 00000 0 75035 TXH LFNB
00557 2 01015 0 01410 TIX IB1,,LIB
*
00560 0074 00 4 00004 TSX RDWAIT,4 CHECK DAEMON'S TAPE I.D.
TD 00561 3 00000 0 75036 TXH LFNA
TD 00562 3 00000 0 75035 TXH LFNB
TD 00563 3 00000 0 03265 TXH =1
00564 2 01376 0 01377 TIX IDBF,,L9
TD 00565 3 00000 0 00760 TXH TX EOF, ERROR
TD 00566 3 00000 0 01375 TXH JK
TD 00567 3 00000 0 00752 TXH TW ERROR
*
00570 CMPWDS 8,IDBF,TAPEID,THA
00570 0774 00 1 00010 AXT 8,1 .001
00571 -0500 00 1 01407 CAL IDBF+8,1 .001
00572 -0340 00 1 02324 LAS TAPEID+8,1 .001
00573 0020 00 0 00600 TRA THA .001
00574 0020 00 0 00576 TRA *+2 .001
00575 0020 00 0 00600 TRA THA .001
00576 2 00001 1 00571 TIX *-5,1,1 .001
00577 0020 00 0 00604 TRA THB
00600 THA CLOSE LFNA,LFNB
00600 0074 00 4 00014 TSX CLOSE,4 .001
00601 3 00000 0 75036 PTH LFNA .001
00602 3 00000 0 75035 PTH LFNB .001
00603 0020 00 0 00530 TRA TG
*
00604 0500 00 0 01407 THB CLA IDBF+8 O.K., NOW CHECK REEL NO.
00605 0402 00 0 03265 SUB =1
00606 0402 00 0 02324 SUB TAPEID+8
00607 0100 00 0 00624 TZE TJ SKIP IF REEL ALL O.K.
00610 PRLINE ( REEL ORDER ERROR ON CHANNEL A.),6
00610 0074 00 4 00015 TSX WRFLX,4 .001
00611 0 00006 0 03213 ..002,,6 .001
RMT .001
..002 BCI 6, REEL ORDER ERROR ON CHANNEL A. .001
RMT .001
00612 0074 00 4 00017 TI TSX $ASKOPR,4
00613 3 00011 0 01354 PTH MESQ,,9
00614 3 00001 0 00621 PTH TJA,,CTINUE
00615 3 00010 0 01043 PTH MESD,,8
00616 3 00003 0 00075 PTH ABEXT,,CHLDFL
00617 3 00006 0 01365 PTH MESR,,6
00620 3 00010 0 00461 PTH TB,,CHREEL
*
00621 0500 00 0 01407 TJA CLA IDBF+8
00622 0601 00 0 02324 STO TAPEID+8
00623 0020 00 0 00627 TRA TJAX
*
00624 0500 00 0 02324 TJ CLA TAPEID+8 INCREMENT REEL NO.
00625 0400 00 0 03265 ADD =1
00626 0601 00 0 02324 STO TAPEID+8
1 INITIATE AND TERMINATE DUMP TAPE FILE READS.....M.J.BAILEY..1/31/65 PAGE 12
00627 TJAX SKIFNB TU
00627 0500 00 0 75041 CLA NOCHAN .001
00630 0402 00 0 03265 SUB =1 .001
00631 0100 00 0 00742 TZE TU .001
*
00632 TK SYN * (MOVED UMOUNT FOR B.COPY UP)
*
00632 0074 00 4 00012 TL TSX MOUNT,4 MOUNT NEW 'B' REEL
TD 00633 3 00000 0 03266 TXH =2
TD 00634 3 00000 0 75015 TXH BUN
00635 2 01270 0 01260 TIX MRB,,LMRB
00636 0774 00 2 00003 AXT 3,2
00637 0074 00 4 00006 TM TSX VERIFY,4 CHECK I/O SYSTEM LABEL
TD 00640 3 00000 0 75015 TXH BUN
00641 2 01016 0 75010 TIX LABEL,,L4
TD 00642 3 00000 0 00645 TXH TN
TD 00643 3 00000 0 01014 TXH ERCODE
00644 0020 00 0 00667 TRA TP SKIP IF O.K.
*
00645 0074 00 4 00016 TN TSX $PRNTER,4 VERIFICATION ERROR
00646 0500 00 0 01014 CLA ERCODE
00647 0402 00 0 03267 SUB =7
00650 0100 00 0 00652 TZE TO
00651 2 00001 2 00637 TIX TM,2,1
00652 0074 00 4 00013 TO TSX UMOUNT,4
TD 00653 3 00000 0 75015 TXH BUN
00654 2 01322 0 01306 TIX WRB,,LWRB
00655 0074 00 4 00017 BACK6 TSX $ASKOPR,4
00656 3 00006 0 01035 PTH MESC,,6
00657 3 00001 0 00632 PTH TL,,CTINUE
00660 3 00006 0 01043 PTH MESD,,6
00661 3 00003 0 00075 PTH QUITFL,,CHLDFL
00662 3 00006 0 01051 PTH MESE,,6
00663 3 00002 0 00664 PTH REST6,,PAUSE
*
00664 -0500 00 0 03271 REST6 CAL =45
00665 0074 00 4 00011 TSX SLEEP,4
00666 0020 00 0 00655 TRA BACK6
*
00667 0074 00 4 00010 TP TSX OPEN,4
TD 00670 3 00000 0 01013 TXH R
TD 00671 3 00000 0 75020 TXH BFNA
TD 00672 3 00000 0 75017 TXH BFNB
TD 00673 3 00000 0 03273 TXH =-0
TD 00674 3 00000 0 03273 TXH =-0
TD 00675 3 00000 0 00763 TXH TY ERROR
00676 0074 00 4 00007 TSX BUFFER,4
TD 00677 3 00000 0 75020 TXH BFNA
TD 00700 3 00000 0 75017 TXH BFNB
00701 2 01015 0 02325 TIX IB2,,LIB
*
00702 0074 00 4 00004 TSX RDWAIT,4 CHECK DAEMON I.D. LABEL
TD 00703 3 00000 0 75020 TXH BFNA
TD 00704 3 00000 0 75017 TXH BFNB
TD 00705 3 00000 0 03265 TXH =1
00706 3 00011 0 01377 TXH IDBF,,9
1 INITIATE AND TERMINATE DUMP TAPE FILE READS.....M.J.BAILEY..1/31/65 PAGE 13
TD 00707 3 00000 0 00771 TXH TZ EOF,ERROR
TD 00710 3 00000 0 01375 TXH JK
TD 00711 3 00000 0 00763 TXH TY ERROR
00712 CMPWDS 8,IDBF,TAPEID,TR
00712 0774 00 1 00010 AXT 8,1 .001
00713 -0500 00 1 01407 CAL IDBF+8,1 .001
00714 -0340 00 1 02324 LAS TAPEID+8,1 .001
00715 0020 00 0 00722 TRA TR .001
00716 0020 00 0 00720 TRA *+2 .001
00717 0020 00 0 00722 TRA TR .001
00720 2 00001 1 00713 TIX *-5,1,1 .001
00721 0020 00 0 00726 TRA TS
00722 TR CLOSE BFNA,BFNB
00722 0074 00 4 00014 TSX CLOSE,4 .001
00723 3 00000 0 75020 PTH BFNA .001
00724 3 00000 0 75017 PTH BFNB .001
00725 0020 00 0 00652 TRA TO
*
00726 0500 00 0 01407 TS CLA IDBF+8 NOW CHECK REEL NO.
00727 0402 00 0 02324 SUB TAPEID+8
00730 0100 00 0 00742 TZE TU SKIP IF REEL O.K.
00731 PRLINE ( POSSIBLE REEL ORDER ERROR ON CHANNEL B.),8
00731 0074 00 4 00015 TSX WRFLX,4 .001
00732 0 00010 0 03221 ..003,,8 .001
RMT .001
..003 BCI 8, POSSIBLE REEL ORDER ERROR ON CHANNEL B. .001
RMT .001
00733 0074 00 4 00017 TT TSX $ASKOPR,4
00734 3 00011 0 01354 PTH MESQ,,9
00735 3 00001 0 00742 PTH TU,,CTINUE
00736 3 00010 0 01365 PTH MESR,,8
00737 3 00010 0 00632 PTH TK,,CHREEL
00740 3 00006 0 01043 PTH MESD,,6
00741 3 00003 0 00075 PTH QUITFL,,CHLDFL
*
00742 0074 00 4 00002 TU TSX ATTACH,4
00743 3 00000 0 01010 PTH NM
00744 3 00000 0 01011 PTH NM+1
00745 0534 00 4 00376 LXA X4,4
00746 0534 00 3 00377 TV LXA X3,3
00747 0534 00 2 00400 LXA X2,2
00750 0534 00 1 00401 LXA X1,1
00751 0020 00 4 00004 TRA 4,4 EXIT
*
00752 0074 00 4 00016 TW TSX $PRNTER,4
00753 PRLINE ( ERROR AT START OF NEW REEL ON CHANNEL A.),7
00753 0074 00 4 00015 TSX WRFLX,4 .001
00754 0 00007 0 03231 ..004,,7 .001
RMT .001
..004 BCI 7, ERROR AT START OF NEW REEL ON CHANNEL A. .001
RMT .001
00755 TWA PRM MESP,9
00755 0074 00 4 00015 TSX WRFLX,4 .001
00756 0 00011 0 01343 MESP,,9 .001
00757 0020 00 0 00612 TRA TI
*
1 INITIATE AND TERMINATE DUMP TAPE FILE READS.....M.J.BAILEY..1/31/65 PAGE 14
00760 TX PRLINE ( EOF AT START OF NEW REEL ON CHANNEL A.),7
00760 0074 00 4 00015 TSX WRFLX,4 .001
00761 0 00007 0 03240 ..005,,7 .001
RMT .001
..005 BCI 7, EOF AT START OF NEW REEL ON CHANNEL A. .001
RMT .001
00762 0020 00 0 00755 TRA TWA
*
00763 0074 00 4 00016 TY TSX $PRNTER,4
00764 PRLINE ( ERROR AT START OF NEW REEL ON CHANNEL B.),7
00764 0074 00 4 00015 TSX WRFLX,4 .001
00765 0 00007 0 03247 ..006,,7 .001
RMT .001
..006 BCI 7, ERROR AT START OF NEW REEL ON CHANNEL B. .001
RMT .001
00766 TYA PRM MESP,9
00766 0074 00 4 00015 TSX WRFLX,4 .001
00767 0 00011 0 01343 MESP,,9 .001
00770 0020 00 0 00733 TRA TT
*
00771 TZ PRLINE ( EOF AT START OF NEW REEL ON CHANNEL B.),7
00771 0074 00 4 00015 TSX WRFLX,4 .001
00772 0 00007 0 03256 ..007,,7 .001
RMT .001
..007 BCI 7, EOF AT START OF NEW REEL ON CHANNEL B. .001
RMT .001
00773 0020 00 0 00766 TRA TYA
*
* - - - - - - - - - - - - - - - - - - - - -
* CONSTANTS AND VARIABLES
* - - - - - - - - - - - - - - - - - - - - -
*
00774 PBF BSS 12
01010 NM BSS 2
01012 0 00000 0 00000 IDERR PZE
01013 516060606060 R BCI 1,R
01014 0 00000 0 00000 ERCODE PZE
01015 0 00000 0 00660 LIB PZE RECSIZ
01016 0 00000 0 00004 L4 PZE 4
01017 0 00000 0 00010 L8 PZE 8
01020 603133243360 MESA BCI 8, I.D. RECORD ON 1ST COPY OF TAPE FILE IS UNREAD.
01030 602551514651 MESB BCI 5, ERROR OPENING DUMP TAPE FILE.
01035 606346602346 MESC BCI 6, TO CONTINUE WITH THIS LOAD FILE,
01043 606346606462 MESD BCI 6, TO USE DIFFERENT LOAD FILE, OR
01051 606346606264 MESE BCI 6, TO SUSPEND LOADING FOR 1 MIN..
01057 602545246046 MESF BCI 8, END OF FILE IN WRONG PLACE ON 1ST TAPE COPY.
01067 314523465151 WRNGT2 BCI 9,INCORRECT TAPE MOUNTED AS 2ND COPY OF LOAD FILE.
01100 604743252162 BCI 3, PLEASE REMOVE IT.
01103 0 00000 0 00014 LWT2 PZE *-WRNGT2
01104 604446644563 RMT2 BCI 7, MOUNT ANOTHER TAPE ON THE 2ND CHANNEL.
01113 0 00000 0 00007 LRMT2 PZE *-RMT2
01114 600245246023 BADT2 BCI 8, 2ND COPY OF LOAD FILE UNREAD AFTER 10 TRIES TO
01124 652551312670 BCI 6,VERIFY ITS I.D.. PLEASE REMOVE IT.
01132 0 00000 0 00016 LBT2 PZE *-BADT2
01133 606445444664 UMA BCI 6, UNMOUNT TAPE FILE ON MAIN CHANNEL.
01141 0 00000 0 00006 LUMA PZE *-UMA
1 INITIATE AND TERMINATE DUMP TAPE FILE READS.....M.J.BAILEY..1/31/65 PAGE 15
01142 606445444664 UMB BCI 7, UNMOUNT TAPE FILE ON SECONDARY CHANNEL.
01151 0 00000 0 00007 LUMB PZE *-UMB
01152 603133243360 MESG BCI 9, I.D. LABELS ON BOTH COPIES OF NEW LOAD FILE MATCH O.K.
01163 602464444760 MESH BCI 7, DUMP TAPE FILE STARTING TO LOAD IS A
01172 602464444731 MESI BCI 9, DUMPING ON THIS TAPE FILE BEGAN AT ON
01203 604546602631 MESJ BCI 8, NO FILE CREATED LATER THAN ON
01213 603162602464 MESK BCI 5, IS DUMPED ON THIS TAPE FILE.
01220 604346212431 MESL BCI 7, LOADING FINISHED FROM THIS TAPE FILE
01227 605125444665 UMRA BCI 7, REMOVE CHANNEL A REEL OF RELOAD FILE.
01236 0 00000 0 00007 LUMRA PZE *-UMRA
01237 605125444665 UMRB BCI 7, REMOVE CHANNEL B REEL OF RELOAD FILE.
01246 0 00000 0 00007 LUMRB PZE *-UMRB
01247 604446644563 MRA BCI 8, MOUNT ANOTHER REEL OF RELOAD FILE ON CHANNEL A
01257 0 00000 0 00010 LMRA PZE *-MRA
01260 604446644563 MRB BCI 8, MOUNT ANOTHER REEL OF RELOAD FILE ON CHANNEL B
01270 0 00000 0 00010 LMRB PZE *-MRB
01271 606651464527 WRA BCI 8, WRONG REEL MOUNTED ON CHANNEL A FOR RELOAD, NOT
01301 602225434645 BCI 4, BELONGING TO THIS SET.
01305 0 00000 0 00014 LWRA PZE *-WRA
01306 606651464527 WRB BCI 8, WRONG REEL MOUNTED ON CHANNEL B FOR RELOAD, NOT
01316 602225434645 BCI 4, BELONGING TO THIS SET.
01322 0 00000 0 00014 LWRB PZE *-WRB
01323 603126606330 MESM BCI 8, IF THIS WAS LAST REEL OF THIS RELOAD FILE, OR
01333 603126606330 MESN BCI 8, IF THERE IS ANOTHER REEL TO THIS RELOAD FILE
01343 512525436045 MESP BCI 9,REEL NO. UNCHECKED, FUTURE REEL NO. ERRORS COULD OCCUR
01354 606346605125 MESQ BCI 9, TO RESUME RE-LOADING WITH THIS REEL NEVERTHELESS
01365 603126607046 MESR BCI 8, IF YOU WISH TO CHANGE THIS REEL FOR ANOTHER
01375 0 00000 0 00000 JK PZE
01376 0 00000 0 00011 L9 PZE 9
01377 IDBF BSS 9
00660 RECSIZ EQU 432
01410 IB1 BSS 432
02270 WBF BSS 20
02314 TAPEID BSS 9
02325 IB2 BSS 432
*
INSERT BCMEQB
*
* - - - - - - - - - - - - - - - - - -
* COMMON AND EQUIVALENCE FOR SECONDARY STORAGE LOAD
* (TIME-SHARING VERSION)
* - - - - - - - - - - - - - - - - - -
*
075045 DEMKEY BOOL 75045 CORE A LOCATION FOR DAEMON KEY SETTING
*
000017 BASE BOOL 17 KEY CODE BASE
000001 CTINUE BOOL 1 KEY CODE TO CONTINUE WITH PROGRAM,NO CHANGE
000002 PAUSE BOOL 2 KEY CODE TO WAIT 60 SECS.
000003 CHLDFL BOOL 3 KEY CODE TO USE DIFFERENT LOAD FILE
000004 STOPLD BOOL 4 KEY CODE TO STOP LOADING, START DUMPING
000005 ABANKY BOOL 5 KEY CODE TO ABANDON LOAD TAPE FILE
000006 SWCHAN BOOL 6 KEY CODE TO GO FROM 1 OR 2 TO 2 OR 1 CHANS.
000007 LSREEL BOOL 7 KEY CODE TO INDICATE LAST REEL OF LOAD FILE
000010 CHREEL BOOL 10 KEY CODE TO CORRECT REEL ORDER ERROR
77777 NEWCOM EQU -1 TOP OF MEMORY
077461 OLDCOM BOOL 77461 OLD TOP OF COMMON
1 INITIATE AND TERMINATE DUMP TAPE FILE READS.....M.J.BAILEY..1/31/65 PAGE 16
77462 COMRLC EQU OLDCOM-NEWCOM RELOCATION FACTOR
77777 COMMON COMRLC RELOCATE COMMON
01355 UF EQU 32767/2-DEMKEY/2 LENGTH OF USER LIST
77777 UFL COMMON 2*UF USER FILE LIST (1ST PARTS OF FILE NAMES)
75044 COMMON 1 INSERT DUMMY IF NECESSARY
75043 COMMON 1 DEMKEY CELL IN NON-CTSS VERSION
75043 KEYVAL COMMON 1
75042 ABANTP COMMON 1 ABANDON TAPE FILE INDICATOR
75041 NOCHAN COMMON 1 NO. OF CHANNELS BEING READ (1 OR 2)
75040 DU COMMON 1 PROBLEM NO. OF DUMP/LOAD PACKAGE
75037 DP COMMON 1 PROGRAMMER NO. OF DITTO.
75036 LFNA COMMON 1 LOAD TAPE FILE NAME (PART 1)
75035 LFNB COMMON 1 ,, ,, ,, ,, (PART 2)
75021 COMMON 11 DUMPED FILE'S PREAMBLE FROM DUMP TAPE
75021 PREAM COMMON 1 DUMPED FILE'S DUMP TAPE PREAMBLE 1ST WORD
75020 BFNA COMMON 1 CHANNEL B LOAD TAPE FILE NAME (PART 1)
75017 BFNB COMMON 1 CHANNEL B LOAD TAPE FILE NAME (PART 2)
75016 AUN COMMON 1 CHANNEL A UNIT NO.
75015 BUN COMMON 1 CHANNEL B UNIT NO.
75014 TEOF COMMON 1 TAPE EOF INDICATOR/WORD COUNT
75010 COMMON 3 LABEL OF TAPE FILE CURRENTLY BEING LOADED
75010 LABEL COMMON 1 LABEL OF TAPE FILE DITTO. 1ST WORD
75007 X COMMON 1 TAPE FILE POINTER
END
REMOTE SEQUENCES
03205 602545246046 ..001 BCI 6, END OF REEL ON RELOAD TAPE FILE. .001
03213 605125254360 ..002 BCI 6, REEL ORDER ERROR ON CHANNEL A. .001
03221 604746626231 ..003 BCI 8, POSSIBLE REEL ORDER ERROR ON CHANNEL B. .001
03231 602551514651 ..004 BCI 7, ERROR AT START OF NEW REEL ON CHANNEL A. .001
03240 602546266021 ..005 BCI 7, EOF AT START OF NEW REEL ON CHANNEL A. .001
03247 602551514651 ..006 BCI 7, ERROR AT START OF NEW REEL ON CHANNEL B. .001
03256 602546266021 ..007 BCI 7, EOF AT START OF NEW REEL ON CHANNEL B. .001
1 INITIATE AND TERMINATE DUMP TAPE FILE READS.....M.J.BAILEY..1/31/65 PAGE 1
POST PROCESSOR ASSEMBLY DATA
75006 IS THE LAST LOCATION NOT USED BY THIS PROGRAM
3276 IS THE FIRST LOCATION NOT USED BY THIS PROGRAM
0REFERENCES TO DEFINED SYMBOLS
1013 R 101, 213, 546, 670
75007 X 114, 121, 137, 141, 226, 233, 244, 246, 375, 3205
75037 DP 460, 3205
75040 DU 457, 3205
77 IA 31, 40, 170
116 IB 142
136 IC 125
162 ID 106
200 IE 123
206 IG 135, 161, 300
212 IH 275
230 II 247
243 IJ 237
272 IK 220
275 IL 317
310 IM 235
320 IO 241
330 IP 323, 325
337 IQ 327
342 IR 242, 262
350 IS 210, 341, 343
374 IT 364
1375 JK 566, 710
1016 L4 517, 641
1017 L8 234
1376 L9 564
1010 NM 455, 743, 744
461 TB 620
510 TD 535
515 TE 527
523 TF 520
530 TG 526, 603
545 TH 522
612 TI 757
624 TJ 607
632 TK 632, 737
632 TL 657
637 TM 651
645 TN 642
652 TO 650, 725
667 TP 644
722 TR 715, 717
726 TS 721
733 TT 770
742 TU 631, 730, 735
746 TV 453
752 TW 553, 567
760 TX 565
763 TY 675, 711
771 TZ 707
1 INITIATE AND TERMINATE DUMP TAPE FILE READS.....M.J.BAILEY..1/31/65 PAGE 2
POST PROCESSOR ASSEMBLY DATA
1355 UF 3205
401 X1 22, 437, 750
400 X2 23, 440, 747
377 X3 24, 76, 441, 746
376 X4 25, 75, 442, 452, 745
75016 AUN 430, 502, 512, 516, 531, 3205
75015 BUN 34, 47, 65, 72, 433, 505, 634, 640, 653, 3205
100 IAA 165
1410 IB1 112, 557
2325 IB2 224, 701
165 IDA 205
1015 LIB 112, 224, 557, 701
1247 MRA 513, 1257
1260 MRB 635, 1270
774 PBF
454 TB1 451
600 THA 573, 575
604 THB 577
621 TJA 614
755 TWA 762
435 TX4 403
766 TYA 773
77777 UFL 3205
1133 UMA 431, 1141
1142 UMB 434, 1151
2270 WBF 122, 131, 234, 321, 322, 345, 346, 353, 355, 357, 363
1271 WRA 532, 1305
1306 WRB 654, 1322
145 BACK 156
17 BASE 3205
75020 BFNA 214, 222, 231, 315, 334, 420, 424, 472, 476, 671, 677, 703, 723, 3205
75017 BFNB 215, 223, 232, 316, 335, 421, 425, 473, 477, 672, 700, 704, 724, 3205
63 CONT 53
452 EOTF 447
1377 IDBF 564, 571, 604, 621, 706, 713, 726
1132 LBT2 73
75036 LFNA 102, 110, 117, 203, 331, 410, 414, 462, 466, 547, 555, 561, 601, 3205
75035 LFNB 103, 111, 120, 204, 332, 411, 415, 463, 467, 550, 556, 562, 602, 3205
1257 LMRA 513
1270 LMRB 635
1141 LUMA 431
1151 LUMB 434
1305 LWRA 532
1322 LWRB 654
1103 LWT2 50
1020 MESA 144, 251, 253, 255
1030 MESB 163, 273
1035 MESC 52, 146, 167, 261, 277, 534, 656
1043 MESD 54, 150, 171, 263, 301, 536, 615, 660, 740
1051 MESE 56, 152, 173, 265, 303, 540, 662
1057 MESF 201, 311, 313
1152 MESG 340
1163 MESH 351
1172 MESI 356, 360, 362
1203 MESJ 366, 367, 371
1 INITIATE AND TERMINATE DUMP TAPE FILE READS.....M.J.BAILEY..1/31/65 PAGE 3
POST PROCESSOR ASSEMBLY DATA
1213 MESK 373
1220 MESL 406
1323 MESM 446
1333 MESN 450
1343 MESP 756, 767
1354 MESQ 613, 734
1365 MESR 617, 736
10 OPEN 100, 212, 545, 667
60 REST 57
1104 RMT2 66, 1113
75014 TEOF 124, 236, 3205
627 TJAX 623
1227 UMRA 503, 1236
1237 UMRB 506, 1246
75 ABEXT 537, 616
166 BACK1 177
260 BACK2 271
276 BACK3 307
533 BACK5 544
655 BACK6 666
1114 BADT2 73, 1132
14 CLOSE 202, 314, 330, 333, 413, 423, 465, 475, 600, 722
157 CONT1 147
5 FWAIT 407, 417, 461, 471
1012 IDERR 127, 160, 240, 256, 342
1 IOBDT 365
3205 ..001 444
3213 ..002 611
3221 ..003 732
3231 ..004 754
3240 ..005 761
3247 ..006 765
3256 ..007 772
75010 LABEL 35, 517, 641, 3205
1113 LRMT2 66
1236 LUMRA 503
1246 LUMRB 506
12 MOUNT 63, 510, 632
2 PAUSE 57, 153, 174, 266, 304, 541, 663, 3205
75021 PREAM 3205
154 REST1 153
175 REST2 174
267 REST3 266
305 REST4 304
542 REST5 541
664 REST6 663
11 SLEEP 61, 155, 176, 270, 306, 543, 665
15 WRFLX 143, 162, 200, 254, 272, 312, 337, 350, 352, 361, 370, 372, 405, 443, 610, 731, 753
755, 760, 764, 766, 771
5 ABANKY 3205
75042 ABANTP 3205
17 ASKOPR 51, 145, 166, 260, 276, 445, 533, 612, 655, 733
2 ATTACH 456, 742
3 ATTNAM 454
7 BUFFER 107, 221, 554, 676
1 INITIATE AND TERMINATE DUMP TAPE FILE READS.....M.J.BAILEY..1/31/65 PAGE 4
POST PROCESSOR ASSEMBLY DATA
33 CHCKBA 45, 67, 70
41 CHCKBB 36
51 CHCKBC 62, 74
70 CHCKBD 44
3 CHLDFL 55, 151, 172, 264, 302, 537, 616, 661, 741, 3205
10 CHREEL 620, 737, 3205
77462 COMRLC 3205
1 CTINUE 53, 147, 170, 262, 300, 451, 535, 614, 657, 735, 3205
75045 DEMKEY 3205
1014 ERCODE 37, 42, 521, 524, 643, 646
0 GETLSG 26, 126, 354, 404
22 INITTF 0
75043 KEYVAL 3205
7 LSREEL 447, 3205
77777 NEWCOM 3205
75041 NOCHAN 27, 206, 627, 3205
77461 OLDCOM 3205
16 PRNTER 41, 136, 164, 243, 274, 523, 645, 752, 763
75 QUITFL 55, 75, 151, 172, 257, 264, 302, 661, 741
4 RDWAIT 116, 230, 560, 702
660 RECSIZ 115, 227, 374, 1015, 1410
4 STOPLD 3205
6 SWCHAN 3205
2314 TAPEID 132, 134, 572, 606, 622, 624, 626, 714, 727
403 TERMTF 0
437 TSTEOF 0
13 UMOUNT 46, 71, 427, 432, 501, 504, 530, 652
6 VERIFY 33, 515, 637
1067 WRNGT2 50, 1103
46 WRONGB 336
0 NO ERROR IN ABOVE ASSEMBLY.
LRFLDC BCD 01/10/68 1514.1 1348 00000
1 READ NEXT ENTRY FROM DISK U.F.D. FILE....M.J.BAILEY,2/5/65 PAGE 1
* (TIME-SHARING VERSION)
*
00003 ENTRY GETLSG GET LOADER SIGNALS FROM KEYS VIA CORE A
*
*
* - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
* GET KEY SETTINGS VIA CORE A, POSSIBLY SET LOADER SWITCHES
* - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
*
TRANSFER VECTOR
00000 272563216060 GETA
LINKAGE DIRECTOR
00001 000000000000
00002 272563436227
00003 0634 00 1 00030 GETLSG SXA GGX,1
00004 0074 00 7 00000 TSX $GETA,7
00005 0560 00 0 75045 LDQ DEMKEY
00006 -0600 00 0 75043 STQ KEYVAL
00007 0074 00 7 00000 TSX $GETA,7
00010 0600 00 0 75045 STZ DEMKEY
00011 0774 00 1 00005 AXT ABANKY,1
00012 0754 00 1 00000 PXA 0,1
00013 0402 00 0 75043 SUB KEYVAL
00014 -0100 00 0 00017 TNZ GGA
00015 -0625 00 0 75042 STL ABANTP
00016 0020 00 0 00030 TRA GGX
00017 0774 00 1 00006 GGA AXT SWCHAN,1
00020 0754 00 1 00000 PXA 0,1
00021 0402 00 0 75043 SUB KEYVAL
00022 -0100 00 0 00030 TNZ GGX
00023 0534 00 1 75041 LXA NOCHAN,1
00024 1 00001 1 00025 TXI *+1,1,1
00025 -3 00002 1 00027 TXL GGB,1,2
00026 0774 00 1 00001 AXT 1,1
00027 0634 00 1 75041 GGB SXA NOCHAN,1
00030 0774 00 1 00000 GGX AXT **,1
00031 0020 00 4 00001 TRA 1,4
*
INSERT BCMEQB
*
* - - - - - - - - - - - - - - - - - -
* COMMON AND EQUIVALENCE FOR SECONDARY STORAGE LOAD
* (TIME-SHARING VERSION)
* - - - - - - - - - - - - - - - - - -
*
075045 DEMKEY BOOL 75045 CORE A LOCATION FOR DAEMON KEY SETTING
*
000017 BASE BOOL 17 KEY CODE BASE
000001 CTINUE BOOL 1 KEY CODE TO CONTINUE WITH PROGRAM,NO CHANGE
000002 PAUSE BOOL 2 KEY CODE TO WAIT 60 SECS.
000003 CHLDFL BOOL 3 KEY CODE TO USE DIFFERENT LOAD FILE
000004 STOPLD BOOL 4 KEY CODE TO STOP LOADING, START DUMPING
000005 ABANKY BOOL 5 KEY CODE TO ABANDON LOAD TAPE FILE
1 READ NEXT ENTRY FROM DISK U.F.D. FILE....M.J.BAILEY,2/5/65 PAGE 2
000006 SWCHAN BOOL 6 KEY CODE TO GO FROM 1 OR 2 TO 2 OR 1 CHANS.
000007 LSREEL BOOL 7 KEY CODE TO INDICATE LAST REEL OF LOAD FILE
000010 CHREEL BOOL 10 KEY CODE TO CORRECT REEL ORDER ERROR
77777 NEWCOM EQU -1 TOP OF MEMORY
077461 OLDCOM BOOL 77461 OLD TOP OF COMMON
77462 COMRLC EQU OLDCOM-NEWCOM RELOCATION FACTOR
77777 COMMON COMRLC RELOCATE COMMON
01355 UF EQU 32767/2-DEMKEY/2 LENGTH OF USER LIST
77777 UFL COMMON 2*UF USER FILE LIST (1ST PARTS OF FILE NAMES)
75044 COMMON 1 INSERT DUMMY IF NECESSARY
75043 COMMON 1 DEMKEY CELL IN NON-CTSS VERSION
75043 KEYVAL COMMON 1
75042 ABANTP COMMON 1 ABANDON TAPE FILE INDICATOR
75041 NOCHAN COMMON 1 NO. OF CHANNELS BEING READ (1 OR 2)
75040 DU COMMON 1 PROBLEM NO. OF DUMP/LOAD PACKAGE
75037 DP COMMON 1 PROGRAMMER NO. OF DITTO.
75036 LFNA COMMON 1 LOAD TAPE FILE NAME (PART 1)
75035 LFNB COMMON 1 ,, ,, ,, ,, (PART 2)
75021 COMMON 11 DUMPED FILE'S PREAMBLE FROM DUMP TAPE
75021 PREAM COMMON 1 DUMPED FILE'S DUMP TAPE PREAMBLE 1ST WORD
75020 BFNA COMMON 1 CHANNEL B LOAD TAPE FILE NAME (PART 1)
75017 BFNB COMMON 1 CHANNEL B LOAD TAPE FILE NAME (PART 2)
75016 AUN COMMON 1 CHANNEL A UNIT NO.
75015 BUN COMMON 1 CHANNEL B UNIT NO.
75014 TEOF COMMON 1 TAPE EOF INDICATOR/WORD COUNT
75010 COMMON 3 LABEL OF TAPE FILE CURRENTLY BEING LOADED
75010 LABEL COMMON 1 LABEL OF TAPE FILE DITTO. 1ST WORD
75007 X COMMON 1 TAPE FILE POINTER
END
1 READ NEXT ENTRY FROM DISK U.F.D. FILE....M.J.BAILEY,2/5/65 PAGE 1
POST PROCESSOR ASSEMBLY DATA
75006 IS THE LAST LOCATION NOT USED BY THIS PROGRAM
32 IS THE FIRST LOCATION NOT USED BY THIS PROGRAM
0REFERENCES TO DEFINED SYMBOLS
75007 X 32
75037 DP 32
75040 DU 32
1355 UF 32
75016 AUN 32
75015 BUN 32
17 GGA 14
27 GGB 25
30 GGX 3, 16, 22
77777 UFL 32
17 BASE 32
75020 BFNA 32
75017 BFNB 32
0 GETA 4, 7
75036 LFNA 32
75035 LFNB 32
75014 TEOF 32
75010 LABEL 32
2 PAUSE 32
75021 PREAM 32
5 ABANKY 11, 32
75042 ABANTP 15, 32
3 CHLDFL 32
10 CHREEL 32
77462 COMRLC 32
1 CTINUE 32
75045 DEMKEY 5, 10, 32
3 GETLSG 0
75043 KEYVAL 6, 13, 21, 32
7 LSREEL 32
77777 NEWCOM 32
75041 NOCHAN 23, 27, 32
77461 OLDCOM 32
4 STOPLD 32
6 SWCHAN 17, 32
0 NO ERROR IN ABOVE ASSEMBLY.
ASKOPR BCD 01/10/68 1514.1 1876 00000
1 SUBROUTINE TO TALK TO OPERATOR AND CONVERSE UNTIL WE GET AN ANSWER PAGE 1
*
*
00006 ENTRY ASKOPR
*
*
TRANSFER VECTOR
00000 272563216060 GETA
00001 475123462425 PRCODE
00002 624325254760 SLEEP
00003 272563436227 GETLSG
LINKAGE DIRECTOR
00004 000000000000
00005 216242464751
00006 0634 00 1 00064 ASKOPR SXA ASK1,1
00007 0634 00 2 00065 SXA ASK2,2
00010 0634 00 3 00066 SXA ASK3,3
00011 0634 00 4 00067 SXA ASK4,4
00012 0634 00 7 00070 SXA ASK7,7
00013 0074 00 7 00000 TSX $GETA,7
00014 0600 00 0 75045 STZ DEMKEY
00015 0754 00 4 00000 PXA ,4
00016 0734 00 2 00000 PAX ,2
00017 0774 00 1 00000 AXT 0,1
00020 -0500 00 2 00001 MORMES CAL 1,2
00021 0602 00 0 00031 SLW MESS+1
00022 0074 00 4 00100 TSX CKOP,4
TD 00023 3 00000 0 00034 TXH SNOOZE
00024 -0500 00 2 00002 CAL 2,2
00025 -0734 00 3 00000 PDX ,3
00026 0634 00 3 00030 SXA MESS,3
00027 0074 00 4 00001 TSX $PRCODE,4
00030 3 00000 0 00000 MESS PTH **
00031 3 00000 0 00000 PTH **,,**
00032 1 00002 1 00033 TXI *+1,1,2
00033 1 77776 2 00020 TXI MORMES,2,-2
00034 -3 00000 1 00072 SNOOZE TXL ABORT,1,0
00035 -0500 00 0 00105 CAL =15
00036 0074 00 4 00002 TSX $SLEEP,4
00037 -0634 00 1 00040 SXD *+1,1
00040 1 00000 2 00041 TXI *+1,2,**
00041 0074 00 4 00003 TSX $GETLSG,4
00042 0774 00 1 00000 AXT 0,1
00043 -0500 00 2 00001 NOMTCH CAL 1,2
00044 0074 00 4 00100 TSX CKOP,4
00045 3 00000 0 00061 PTH REPTMS
00046 -0500 00 2 00002 CAL 2,2
00047 0621 00 0 00071 STA TRAFER
00050 -0734 00 3 00000 PDX ,3
00051 0074 00 4 00100 TSX CKOP,4
TD 00052 3 00000 0 00061 TXH REPTMS
00053 -0754 00 0 00000 ZAC
00054 0754 00 3 00000 PXA ,3
00055 0402 00 0 75043 SUB KEYVAL
1 SUBROUTINE TO TALK TO OPERATOR AND CONVERSE UNTIL WE GET AN ANSWER PAGE 2
00056 0100 00 0 00064 TZE FOUND
00057 1 00002 1 00060 TXI *+1,1,2
00060 1 77776 2 00043 TXI NOMTCH,2,-2
00061 -3 00000 1 00072 REPTMS TXL ABORT,1,0
00062 -0634 00 1 00063 SXD *+1,1
00063 1 00000 2 00017 TXI MORMES-1,2,**
*
00064 FOUND EQU *
00064 0774 00 1 00000 ASK1 AXT **,1
00065 0774 00 2 00000 ASK2 AXT **,2
00066 0774 00 3 00000 ASK3 AXT **,3
00067 0774 00 4 00000 ASK4 AXT **,4
00070 0774 00 7 00000 ASK7 AXT **,7
00071 0020 00 0 00000 TRAFER TRA **
*
*
00072 0534 00 4 00067 ABORT LXA ASK4,4
00073 0534 00 3 00066 LXA ASK3,3
00074 0534 00 2 00065 LXA ASK2,2
00075 0534 00 1 00064 LXA ASK1,1
00076 0534 00 7 00070 LXA ASK7,7
00077 0020 00 4 00001 TRA 1,4
*
00100 -0320 00 0 00107 CKOP ANA =O700000000000
00101 -0340 00 0 00106 LAS =O300000000000
00102 0020 60 4 00001 TRA* 1,4
00103 0020 00 4 00002 TRA 2,4
00104 0020 60 4 00001 TRA* 1,4
*
INSERT BCMEQB
*
* - - - - - - - - - - - - - - - - - -
* COMMON AND EQUIVALENCE FOR SECONDARY STORAGE LOAD
* (TIME-SHARING VERSION)
* - - - - - - - - - - - - - - - - - -
*
075045 DEMKEY BOOL 75045 CORE A LOCATION FOR DAEMON KEY SETTING
*
000017 BASE BOOL 17 KEY CODE BASE
000001 CTINUE BOOL 1 KEY CODE TO CONTINUE WITH PROGRAM,NO CHANGE
000002 PAUSE BOOL 2 KEY CODE TO WAIT 60 SECS.
000003 CHLDFL BOOL 3 KEY CODE TO USE DIFFERENT LOAD FILE
000004 STOPLD BOOL 4 KEY CODE TO STOP LOADING, START DUMPING
000005 ABANKY BOOL 5 KEY CODE TO ABANDON LOAD TAPE FILE
000006 SWCHAN BOOL 6 KEY CODE TO GO FROM 1 OR 2 TO 2 OR 1 CHANS.
000007 LSREEL BOOL 7 KEY CODE TO INDICATE LAST REEL OF LOAD FILE
000010 CHREEL BOOL 10 KEY CODE TO CORRECT REEL ORDER ERROR
77777 NEWCOM EQU -1 TOP OF MEMORY
077461 OLDCOM BOOL 77461 OLD TOP OF COMMON
77462 COMRLC EQU OLDCOM-NEWCOM RELOCATION FACTOR
77777 COMMON COMRLC RELOCATE COMMON
01355 UF EQU 32767/2-DEMKEY/2 LENGTH OF USER LIST
77777 UFL COMMON 2*UF USER FILE LIST (1ST PARTS OF FILE NAMES)
75044 COMMON 1 INSERT DUMMY IF NECESSARY
75043 COMMON 1 DEMKEY CELL IN NON-CTSS VERSION
75043 KEYVAL COMMON 1
1 SUBROUTINE TO TALK TO OPERATOR AND CONVERSE UNTIL WE GET AN ANSWER PAGE 3
75042 ABANTP COMMON 1 ABANDON TAPE FILE INDICATOR
75041 NOCHAN COMMON 1 NO. OF CHANNELS BEING READ (1 OR 2)
75040 DU COMMON 1 PROBLEM NO. OF DUMP/LOAD PACKAGE
75037 DP COMMON 1 PROGRAMMER NO. OF DITTO.
75036 LFNA COMMON 1 LOAD TAPE FILE NAME (PART 1)
75035 LFNB COMMON 1 ,, ,, ,, ,, (PART 2)
75021 COMMON 11 DUMPED FILE'S PREAMBLE FROM DUMP TAPE
75021 PREAM COMMON 1 DUMPED FILE'S DUMP TAPE PREAMBLE 1ST WORD
75020 BFNA COMMON 1 CHANNEL B LOAD TAPE FILE NAME (PART 1)
75017 BFNB COMMON 1 CHANNEL B LOAD TAPE FILE NAME (PART 2)
75016 AUN COMMON 1 CHANNEL A UNIT NO.
75015 BUN COMMON 1 CHANNEL B UNIT NO.
75014 TEOF COMMON 1 TAPE EOF INDICATOR/WORD COUNT
75010 COMMON 3 LABEL OF TAPE FILE CURRENTLY BEING LOADED
75010 LABEL COMMON 1 LABEL OF TAPE FILE DITTO. 1ST WORD
75007 X COMMON 1 TAPE FILE POINTER
END
LITERALS
00105 000000000017
00106 300000000000
00107 700000000000
1 SUBROUTINE TO TALK TO OPERATOR AND CONVERSE UNTIL WE GET AN ANSWER PAGE 1
POST PROCESSOR ASSEMBLY DATA
75006 IS THE LAST LOCATION NOT USED BY THIS PROGRAM
110 IS THE FIRST LOCATION NOT USED BY THIS PROGRAM
0REFERENCES TO DEFINED SYMBOLS
75007 X 105
75037 DP 105
75040 DU 105
1355 UF 105
75016 AUN 105
75015 BUN 105
77777 UFL 105
64 ASK1 6, 75
65 ASK2 7, 74
66 ASK3 10, 73
67 ASK4 11, 72
70 ASK7 12, 76
17 BASE 105
75020 BFNA 105
75017 BFNB 105
100 CKOP 22, 44, 51
0 GETA 13
75036 LFNA 105
75035 LFNB 105
30 MESS 21, 26
75014 TEOF 105
72 ABORT 34, 61
64 FOUND 56, 64
75010 LABEL 105
2 PAUSE 105
75021 PREAM 105
2 SLEEP 36
5 ABANKY 105
75042 ABANTP 105
6 ASKOPR 0
3 CHLDFL 105
10 CHREEL 105
77462 COMRLC 105
1 CTINUE 105
75045 DEMKEY 14, 105
3 GETLSG 41
75043 KEYVAL 55, 105
7 LSREEL 105
20 MORMES 33, 63
77777 NEWCOM 105
75041 NOCHAN 105
43 NOMTCH 60
77461 OLDCOM 105
1 PRCODE 27
61 REPTMS 45, 52
34 SNOOZE 23
4 STOPLD 105
6 SWCHAN 105
71 TRAFER 47
1 SUBROUTINE TO TALK TO OPERATOR AND CONVERSE UNTIL WE GET AN ANSWER PAGE 2
POST PROCESSOR ASSEMBLY DATA
0 NO ERROR IN ABOVE ASSEMBLY.
SLEEP BCD 01/10/68 1514.2 404 00000
1 PAGE 1
STAND-ALONE WRITE AROUND FOR SLEEP
BINARY CARD NO. SLEEP000
00003 ENTRY SLEEP
EXTERN GETIME
TRANSFER VECTOR
BINARY CARD NO. SLEEP001
00000 272563314425 GETIME
LINKAGE DIRECTOR
00001 000000000000
00002 624325254760
00003 0634 00 4 00017 SLEEP SXA IR4,4
00004 0131 00 0 00000 XCA
00005 0200 00 0 00022 MPY =60
00006 -0600 00 0 00021 STQ OUTIME
00007 0074 00 4 00000 TSX GETIME,4
00010 0400 00 0 00021 ADD OUTIME
00011 0601 00 0 00021 STO OUTIME
00012 0074 00 4 00000 TEST TSX GETIME,4
00013 0340 00 0 00021 CAS OUTIME
00014 0020 00 0 00017 TRA SCRAM
00015 0020 00 0 00017 TRA SCRAM
00016 0020 00 0 00012 TRA TEST
00017 IR4 EQU *
00017 0774 00 4 00000 SCRAM AXT **,4
00020 0020 00 4 00001 TRA 1,4
00021 0 00000 0 00000 OUTIME PZE
END
LITERALS
00022 000000000074
1 PAGE 1
POST PROCESSOR ASSEMBLY DATA
23 IS THE FIRST LOCATION NOT USED BY THIS PROGRAM
0REFERENCES TO DEFINED SYMBOLS
17 IR4 3, 17
12 TEST 16
17 SCRAM 14, 15
3 SLEEP 0
0 GETIME 7, 12
21 OUTIME 6, 10, 11, 13
0 NO ERROR IN ABOVE ASSEMBLY.
GETA1 BCD 01/10/68 1514.2 223 00000
1 PAGE 1
COMPATIBILITY PACKAGE FOR STAND-ALONE DAAEMON
BINARY CARD NO. GETA1000
00002 ENTRY NGETA
00002 ENTRY GETA
LINKAGE DIRECTOR
BINARY CARD NO. GETA1001
00000 000000000000
00001 452725632160
00002 NGETA EQU *
00002 0522 00 7 00001 GETA XEC 1,7 EXECUTE INSTRUCTION
00003 0020 00 7 00002 TRA 2,7 RETURN
END
1 PAGE 1
POST PROCESSOR ASSEMBLY DATA
4 IS THE FIRST LOCATION NOT USED BY THIS PROGRAM
0REFERENCES TO DEFINED SYMBOLS
2 GETA 0
2 NGETA 0, 2
0 NO ERROR IN ABOVE ASSEMBLY.
NLREC BCD 01/10/68 1514.8 1447 00000
1 MAD PROGRAM LISTING ... ... ... FILE NLREC MAD 01/10/68 1443.5
-
EXTERNAL FUNCTION (NRECS,IRC,LRC,LTRC,LPREAM,LPHYS,NFLR,NLAST *001 000001
1 ) *001 000002
ENTRY TO NLREC . *002 000003
NWDS=(NRECS-1)*IRC+LRC *003 000004
NFLR=NWDS/LTRC *004 000005
NLEFT=XMOD .( NWDS,LTRC) *005 000006
WHENEVER (NLEFT) .LE. 0, TRANSFER TO QQ0004 *006 000007
MLPH = NLEFT + LPREAM *007 000017
REM = MLPH - (MLPH/LPHYS)*LPHYS *008 000027
NLAST=(MLPH/LPHYS+(REM/REM))*LPHYS *009 000037
TRANSFER TO QQ0005 *010 000047
QQ0004 NLAST=0 *011 000057
QQ0005 FUNCTION RETURN *012 000067
INTEGER NWDS , NRECS , IRC , LRC *013 000077
INTEGER NFLR , LTRC , NLEFT , XMOD *014 000087
INTEGER NLAST , LPREAM, LPHYS *015 000097
INTEGER MLPH, REM *016 000107
END OF FUNCTION *017 000117
1MAD PROGRAM,TYPE NOV 1963 (ALL NUMBERS ARE OCTAL)
0TOTAL LOCATIONS 00143 TRANSFER VECTOR LENGTH 00002 PROGRAM BEGINS 00014
0 PROGRAM IS AN EXTERNAL FUNCTION. THE FOLLOWING ARE ENTRIES
NLREC 00015 0
0VARIABLE STORAGE (A=ARRAY,C=COMMON,E=ERASABLE,DIGIT=MODE)
MLPH 00005 1 NWDS 00007 1 QQ0004 00003 4 QQ0005 00004 4 REM 00010 1
NLEFT 00006 1
0FUNCTION DICTIONARY
EXIT 00000 0 XMOD 00001 1
0ABSOLUTE CONSTANTS
00011 +000000000000 00012 +000000000001 00013 +233000000000
0STATEMENT DICTIONARY
00003 TXL -300101000077 00004 TXL -300102000101
0PROGRAM
EXTERNAL FUNCTION (NRECS,IRC,LRC,LTRC,LPREAM,LPHYS,NFLR,NLAST 001 000001
1) 001 000002
ENTRY TO NLREC . 002 000003
00014 TRA +0 02000 0 00017 00015 SXA +0 63400 2 00103 00016 TSX +0 07400 2 00103
NWDS=(NRECS-1)*IRC+LRC 003 000004
00017 CLA +0 50000 0 00024 00020 SUB +0 40200 0 00012 00021 XCA +0 13100 0 00000 00022 MPY +0 20000 0 00024
00023 XCA +0 13100 0 00000 00024 ADD +0 40000 0 00024 00025 STO +0 60100 0 00007
NFLR=NWDS/LTRC 004 000005
00026 LDQ +0 56000 0 00007 00027 PXD -0 75400 0 00000 00030 LLS +0 76300 0 00000 00031 DVP +0 22100 0 00024
00032 STQ -0 60000 0 00024
NLEFT=XMOD .( NWDS,LTRC) 005 000006
00033 TSX +0 07400 4 00001 00034 TXH +3 00000 0 00007 00035 TXH +3 00000 0 00024 00036 STO +0 60100 0 00006
WHENEVER (NLEFT) .LE. 0, TRANSFER TO QQ0004 006 000007
00037 CLA +0 50000 0 00006 00040 SUB +0 40200 0 00011 00041 TZE +0 10000 0 00043 00042 TPL +0 12000 0 00044
00043 TRA +0 02000 0 00003
MLPH = NLEFT + LPREAM 007 000017
00044 CLA +0 50000 0 00006 00045 ADD +0 40000 0 00024 00046 STO +0 60100 0 00005
REM = MLPH - (MLPH/LPHYS)*LPHYS 008 000027
00047 LDQ +0 56000 0 00005 00050 PXD -0 75400 0 00000 00051 LLS +0 76300 0 00000 00052 DVP +0 22100 0 00024
00053 MPY +0 20000 0 00024 00054 XCA +0 13100 0 00000 00055 CHS +0 76000 0 00002 00056 ADD +0 40000 0 00005
00057 STO +0 60100 0 00010
NLAST=(MLPH/LPHYS+(REM/REM))*LPHYS 009 000037
00060 LDQ +0 56000 0 00010 00061 PXD -0 75400 0 00000 00062 LLS +0 76300 0 00000 00063 DVP +0 22100 0 00010
00064 STQ -0 60000 0 00140 00065 LDQ +0 56000 0 00005 00066 PXD -0 75400 0 00000 00067 LLS +0 76300 0 00000
00070 DVP +0 22100 0 00024 00071 XCA +0 13100 0 00000 00072 ADD +0 40000 0 00140 00073 XCA +0 13100 0 00000
00074 MPY +0 20000 0 00024 00075 STQ -0 60000 0 00024
TRANSFER TO QQ0005 010 000047
00076 TRA +0 02000 0 00004
QQ0004 NLAST=0 011 000057
00077 CLA +0 50000 0 00011 00100 STO +0 60100 0 00024
QQ0005 FUNCTION RETURN 012 000067
00101 TRA +0 02000 0 00134
INTEGER NWDS , NRECS , IRC , LRC 013 000077
INTEGER NFLR , LTRC , NLEFT , XMOD 014 000087
INTEGER NLAST , LPREAM, LPHYS 015 000097
INTEGER MLPH, REM 016 000107
END OF FUNCTION 017 000117
00102 TSX +0 07400 4 00000 00103 TXH +3 00000 0 00000 00104 SXD -0 63400 1 00103 00105 SXA +0 63400 4 00134
00106 CLA +0 50000 4 00001 00107 STA +0 62100 0 00017 00110 CLA +0 50000 4 00002 00111 STA +0 62100 0 00022
00112 CLA +0 50000 4 00003 00113 STA +0 62100 0 00024 00114 CLA +0 50000 4 00004 00115 STA +0 62100 0 00031
00116 STO +0 60100 0 00035 00117 CLA +0 50000 4 00005 00120 STA +0 62100 0 00045 00121 CLA +0 50000 4 00006
00122 STA +0 62100 0 00052 00123 STA +0 62100 0 00053 00124 STA +0 62100 0 00070 00125 STA +0 62100 0 00074
00126 CLA +0 50000 4 00007 00127 STA +0 62100 0 00032 00130 CLA +0 50000 4 00010 00131 STA +0 62100 0 00075
00132 STA +0 62100 0 00100 00133 TRA +0 02000 2 00001 00134 AXT +0 77400 4 00000 00135 LXA +0 53400 2 00103
00136 LXD -0 53400 1 00103 00137 TRA +0 02000 4 00001
PRCODE BCD 01/10/68 1514.8 591 00000
1 PAGE 1
00003 ENTRY PRCODE
EXTERN WRFLX
TRANSFER VECTOR
00000 665126436760 WRFLX
LINKAGE DIRECTOR
00001 000000000000
00002 475123462425
00003 0634 00 1 00042 PRCODE SXA P1,1
00004 0634 00 4 00043 SXA P4,4
00005 -0500 00 4 00001 CAL 1,4
00006 0400 00 0 00063 ADD =O17
00007 0322 00 0 00064 ERA =O506060600000
00010 -0765 00 0 00014 LGR 12
00011 -0773 00 0 00006 RQL 6
00012 0774 00 1 00002 AXT 2,1
00013 0767 00 0 00003 ALS 3
00014 -0763 00 0 00003 LGL 3
00015 2 00001 1 00013 TIX *-2,1,1
00016 0602 00 0 00047 SLW MESX+2
00017 -0500 00 4 00002 CAL 2,4
00020 -0734 00 1 00000 PDX ,1
00021 -0634 00 1 00030 SXD INC,1
00022 -0634 00 1 00031 SXD INC+1,1
00023 0634 00 1 00034 SXA INC+4,1
00024 1 00003 1 00025 TXI *+1,1,3
00025 -0634 00 1 00041 SXD PRNT,1
00026 0734 00 1 00000 PAX ,1
00027 0774 00 4 00050 AXT MESX+3,4
00030 1 00000 1 00031 INC TXI *+1,1,**
00031 1 00000 4 00032 TXI *+1,4,**
00032 0634 00 1 00035 SXA FROM,1
00033 0634 00 4 00036 SXA TO,4
00034 0774 00 1 00000 AXT **,1
00035 -0500 00 1 00000 FROM CAL **,1
00036 0602 00 1 00000 TO SLW **,1
00037 2 00001 1 00035 TIX *-2,1,1
00040 0074 00 4 00000 TSX WRFLX,4
00041 0 00000 0 00045 PRNT MESX,,**
00042 0774 00 1 00000 P1 AXT **,1
00043 0774 00 4 00000 P4 AXT **,4
00044 0020 00 4 00003 TRA 3,4
*
00045 622563604225 MESX BCI 2,SET KEY CODE
00046 706023462425
00047 BSS 12
END
LITERALS
00063 000000000017
00064 506060600000
1 PAGE 1
POST PROCESSOR ASSEMBLY DATA
65 IS THE FIRST LOCATION NOT USED BY THIS PROGRAM
0REFERENCES TO DEFINED SYMBOLS
42 P1 3
43 P4 4
36 TO 33
30 INC 21, 22, 23
35 FROM 32
45 MESX 16, 27, 41
41 PRNT 25
0 WRFLX 40
3 PRCODE 0
0 NO ERROR IN ABOVE ASSEMBLY.
IOB BCD 01/10/68 1514.8 1314 00000
1 CONVERT I/O SYSTEM DATE/TIME TO BCD.....M.J.BAILEY,12/11/64 PAGE 1
* (EXTRACTED FROM GDT FOR LOADER USE)
*
00002 ENTRY IOBDT
*
* CONVERT I/O SYSTEM DATE/TIME FROM LAC TO BCD TIME AND DATE --
* HHMM.M (TIME) IN AC, MMDDYY (DATE) IN MQ
*
LINKAGE DIRECTOR
00000 000000000000
00001 314622246360
00002 -0130 00 0 00000 IOBDT XCL
T 00003 -0754 00 0 00000 PXD
00004 -0763 00 0 00011 LGL 9 YEAR IN AC
00005 -0600 00 0 00122 STQ GDTD
00006 -0130 00 0 00000 XCL YEAR IN MQ
T 00007 -0754 00 0 00000 PXD
00010 0221 00 0 00124 DVP =10 TENS DIGIT OF YEAR IN MQ, UNITS IN AC
00011 -0320 00 0 00125 ANA =O17
00012 0602 00 0 00117 SLW DATE. '00000Y' OF DATE
00013 -0130 00 0 00000 XCL
00014 -0320 00 0 00125 ANA =O17
00015 0767 00 0 00006 ALS 6
00016 -0602 00 0 00117 ORS DATE. '0000YY' OF DATE
00017 0560 00 0 00122 LDQ GDTD
T 00020 -0754 00 0 00000 PXD
00021 -0763 00 0 00004 LGL 4 MONTH IN AC
00022 0601 00 0 00123 STO GDTM
00023 0402 00 0 00124 SUB =10
00024 -0120 00 0 00030 TMI IBA
00025 0601 00 0 00123 STO GDTM SAVE UNITS DIGIT OF MONTH
00026 0500 00 0 00131 CLA =O100
00027 0020 00 0 00031 TRA *+2
T 00030 -0754 00 0 00000 IBA PXD
00031 0400 00 0 00123 ADD GDTM
00032 0767 00 0 00030 ALS 24 'MM0000'
00033 -0602 00 0 00117 ORS DATE. 'MM00YY' OF DATE
T 00034 -0754 00 0 00000 PXD
00035 -0763 00 0 00005 LGL 5 DAY IN AC
00036 -0600 00 0 00122 STQ GDTD SAVE THE TIME
00037 -0130 00 0 00000 XCL DAY IN MQ
T 00040 -0754 00 0 00000 PXD
00041 0221 00 0 00124 DVP =10 TENS DIGIT OF DAY IN MQ, UNITS IN AC
00042 -0773 00 0 00006 RQL 6
00043 -0600 00 0 00123 STQ GDTM STORE '0000D0'
00044 0400 00 0 00123 ADD GDTM '0000DD' IN AC
00045 0767 00 0 00014 ALS 12 '00DD00' IN AC
00046 -0602 00 0 00117 ORS DATE. 'MMDDYY' OF DATE
00047 -0500 00 0 00122 CAL GDTD TIME
00050 0771 00 0 00022 ARS 18
00051 -0130 00 0 00000 XCL TIME IN SECS. IN MQ
00052 0200 00 0 00130 MPY =60 GET TIME IN 1/60TH'S SEC. IN MQ
00053 0634 00 4 00101 SXA TPWATX,4
*
00054 -0754 00 0 00000 BCA ZAC
1 CONVERT I/O SYSTEM DATE/TIME TO BCD.....M.J.BAILEY,12/11/64 PAGE 2
00055 0221 00 0 00133 DVP =216000 FIND HOUR
00056 0601 00 0 00121 STO MIN. SAVE REMAINDER (MINUTES)
00057 0074 00 4 00103 TSX BINBCD,4 CONVERT HOURS TO BCD
00060 -0765 00 0 00006 LGR 6
00061 -0100 00 0 00063 TNZ *+2
00062 -0500 00 0 00127 CAL =O60 REPLACE LEADING ZERO WITH BLANK
00063 -0763 00 0 00006 LGL 6
00064 0767 00 0 00030 ALS 24 LEAVE ROOM FOR MINUTE
00065 0602 00 0 00120 SLW HOUR. SAVE HOUR
00066 0560 00 0 00121 LDQ MIN. MINUTE
00067 -0754 00 0 00000 ZAC
00070 0221 00 0 00132 DVP =360 FIND NO. OF TENTHS OF MINUTES
00071 0074 00 4 00103 TSX BINBCD,4 CONVERT TO BCD
00072 -0765 00 0 00006 LGR 6 TENTHS TO MQ
00073 0767 00 0 00014 ALS 12
00074 -0602 00 0 00120 ORS HOUR. ADD MINUTE TO HOUR
00075 -0500 00 0 00126 CAL =H00000. PRECEDE TENTHS WITH .
00076 -0763 00 0 00006 LGL 6 BRING BACK TENTHS
00077 -0501 00 0 00120 ORA HOUR. HHMM.M IN LOGICAL AC
00100 0560 00 0 00117 LDQ DATE. DATE TO MQ
00101 0774 00 4 00000 TPWATX AXT **,4
00102 0020 00 4 00001 TRA 1,4
00103 0634 00 4 00114 BINBCD SXA BNBCDX,4 BINARY TO BCD CONVERTER
00104 0600 00 0 00116 STZ TPLIN.
00105 0774 00 4 00044 AXT 36,4
00106 -0754 00 0 00000 BNBCD1 ZAC CONVERT INTEGER TO BCD
00107 0221 00 0 00124 DVP =10 ..
00110 0767 00 4 00044 ALS 36,4 ..
00111 -0602 00 0 00116 ORS TPLIN. ..
00112 2 00006 4 00106 TIX BNBCD1,4,6 ..
00113 -0500 00 0 00116 CAL TPLIN.
00114 0774 00 4 00000 BNBCDX AXT **,4
00115 0020 00 4 00001 TRA 1,4
00116 0 00000 0 00000 TPLIN. PZE TEMPORARY
00117 606060606060 DATE. BCI 1,
00120 606060606060 HOUR. BCI 1,
00121 0 00000 0 00000 MIN. PZE
00122 0 00000 0 00000 GDTD PZE
00123 0 00000 0 00000 GDTM PZE
END
LITERALS
00124 000000000012
00125 000000000017
00126 000000000033
00127 000000000060
00130 000000000074
00131 000000000100
00132 000000000550
00133 000000645700
1 CONVERT I/O SYSTEM DATE/TIME TO BCD.....M.J.BAILEY,12/11/64 PAGE 1
POST PROCESSOR ASSEMBLY DATA
134 IS THE FIRST LOCATION NOT USED BY THIS PROGRAM
0REFERENCES TO DEFINED SYMBOLS
54 BCA
30 IBA 24
122 GDTD 5, 17, 36, 47
123 GDTM 22, 25, 31, 43, 44
121 MIN. 56, 66
117 DATE. 12, 16, 33, 46, 100
120 HOUR. 65, 74, 77
2 IOBDT 0
103 BINBCD 57, 71
106 BNBCD1 112
114 BNBCDX 103
116 TPLIN. 104, 111, 113
101 TPWATX 53
0 NO ERROR IN ABOVE ASSEMBLY.
XMOD BCD 01/10/68 1514.8 267 00000
1 XMOD REMAINDERING ARG1(MOD ARG2) PAGE 1
* CALLING SEQUENCE TSX XMOD,4
* TXH ARG1(FIXED)
* TXH ARG2(FIXED)
* 3,4 RETURN
* FUNCTION FIXED
00002 ENTRY XMOD
LINKAGE DIRECTOR
00000 000000000000
00001 674446246060
00002 0760 00 0 00000 XMOD CLM
00003 0560 60 4 00001 LDQ* 1,4
A 00004 0763 00 0 00000 LLS SIGN OF MQ TO AC
00005 0221 60 4 00002 DVP* 2,4
00006 0020 00 4 00003 TRA 3,4
FUNCTION IN ARITHMETIC AC FIXED
END
1 XMOD REMAINDERING ARG1(MOD ARG2) PAGE 1
POST PROCESSOR ASSEMBLY DATA
7 IS THE FIRST LOCATION NOT USED BY THIS PROGRAM
0REFERENCES TO DEFINED SYMBOLS
2 XMOD 0
0 NO ERROR IN ABOVE ASSEMBLY.
CRECAP BCD 01/10/68 1514.8 3845 00000
1 MAD PROGRAM LISTING ... ... ... FILE CRECAP MAD 01/10/68 1447.6
-
EXTERNAL FUNCTION *001 LM00001
NORMAL MODE IS INTEGER *002 LM00002
DIMENSION ENTRY(7),USER(7) *003 LM00003
DIMENSION BUFF1(432),BUFF2(432) *004 LM00004
EQUIVALENCE (N1,ENTRY(7)),(N2,ENTRY(6)),(PB,USER(7)),(PG,USER(6)) *005 LM00005
EQUIVALENCE (MODE,ENTRY(3)),(NORECS,ENTRY(2)),(DEVICE,ENTRY(3)) *006 LM00006
VECTOR VALUES MFD=$M.F.D.$ *007 LM00007
VECTOR VALUES UFD=$U.F.D.$ *008 LM00008
VECTOR VALUES FILE=$(FILE)$ *009 LM00009
VECTOR VALUES SYSTEM=$ C0056$ *010 LM00010
VECTOR VALUES DAEMON=$ 99999$ *011 LM00011
VECTOR VALUES URGENT=$URGENT$ *012 LM00012
VECTOR VALUES MAIL=$ MAIL$ *013 LM00013
VECTOR VALUES POST=$ POST$ *014 LM00014
VECTOR VALUES ERROR=$ ERROR$ *015 LM00015
VECTOR VALUES RELOAD=$RELOAD$ *016 LM00016
VECTOR VALUES MZE=-0 *017 LM00017
VECTOR VALUES R=432 *018 LM00018
ENTRY TO RECAP. *019 LM00019
ATTACH.(MFD,FILE,WOOPS) *020 LM00020
OPEN.($R$,UFD,FILE,MZE,MZE,WOOPS) *021 LM00021
BUFFER.(UFD,FILE,BUFF1(432)...432,WOOPS) *022 LM00022
RDWAIT.(UFD,FILE,0,ENTRY(3)...3,MEOF,EOFCT,WOOPS) *023 LM00023
READM RDWAIT.(UFD,FILE,0,USER(7)...7,MEOF,EOFCT,WOOPS) *024 LM00024
WHENEVER ((PB.V.PG).E.0).OR.(PG.E.FILE), TRANSFER TO READM *025 LM00025
OPEN.($R$,PB,PG,MZE,MZE,WOOPS) *026 LM00026
BUFFER.(PB,PG,BUFF2(432)...432,WOOPS) *027 LM00027
RDWAIT.(PB,PG,0,ENTRY(3)...3,UEOF,EOFCT,WOOPS) *028 LM00028
READU RDWAIT.(PB,PG,0,ENTRY(7)...7,UEOF,EOFCT,WOOPS) *029 LM00029
WHENEVER ((N1.V.N2).E.0), TRANSFER TO READU *030 LM00030
WHENEVER (DEVICE.A.7K5).E.0, TRANSFER TO READU *031 LM00031
WHENEVER (MODE.L.0).AND.((NORECS.A.77777K6).E.0) *032 LM00032
ATTACH.(PB,PG,LKERR2) *033 LM00033
UNLINK.(URGENT,MAIL,NOMAIL) *034 LM00034
NOMAIL UNLINK.(URGENT,POST,NOPOST) *035 LM00035
NOPOST CONTINUE *036 LM00036
LINK.(URGENT,MAIL,SYSTEM,DAEMON, *037 LM00037
1 ERROR,RELOAD,104K,LKERR1) *037 LM00038
TRANSFER TO UEOF *038 LM00039
LKERR1 LINK.(URGENT,POST,SYSTEM,DAEMON, *039 LM00040
1 ERROR,RELOAD,104K,LKERR2) *039 LM00041
TRANSFER TO UEOF *040 LM00042
LKERR2 PRNTER. *041 LM00043
TRANSFER TO UEOF *042 LM00044
END OF CONDITIONAL *043 LM00045
TRANSFER TO READU *044 LM00046
UEOF ATTACH.(MFD,FILE,WOOPS) *045 LM00047
CLOSE.(PB,PG,NERR1) *046 LM00048
NERR1 TRANSFER TO READM *047 LM00049
MEOF CLOSE.(UFD,FILE,NERR2) *048 LM00050
NERR2 FUNCTION RETURN *049 LM00051
WOOPS PRNTER. *050 LM00052
CLOSE.($ALL$,MZE,NERR3) *051 LM00053
NERR3 FUNCTION RETURN *052 LM00054
END OF FUNCTION *053 LM00055
1MAD PROGRAM,TYPE NOV 1963 (ALL NUMBERS ARE OCTAL)
0TOTAL LOCATIONS 02104 TRANSFER VECTOR LENGTH 00011 PROGRAM BEGINS 01640
0 PROGRAM IS AN EXTERNAL FUNCTION. THE FOLLOWING ARE ENTRIES
RECAP 01641 0
0VARIABLE STORAGE (A=ARRAY,C=COMMON,E=ERASABLE,DIGIT=MODE)
BUFF1 00726 A 1 LKERR1 00032 4 N1 00012 1 NORECS 00017 1 R 01621 A 1
BUFF2 01607 A 1 LKERR2 00033 4 N2 00013 1 PB 00022 1 SYSTEM 01622 A 1
DAEMON 01610 A 1 MAIL 01614 A 1 NERR1 00035 4 PG 00023 1 UEOF 00044 4
DEVICE 00016 1 MEOF 00034 4 NERR2 00036 4 POST 01617 A 1 UFD 01623 A 1
ENTRY 00021 A 1 MFD 01615 A 1 NERR3 00037 4 READM 00042 4 URGENT 01624 A 1
EOFCT 01611 1 MODE 00016 1 NOMAIL 00040 4 READU 00043 4 USER 00031 A 1
ERROR 01612 A 1 MZE 01616 A 1 NOPOST 00041 4 RELOAD 01620 A 1 WOOPS 00045 4
FILE 01613 A 1
0FUNCTION DICTIONARY
ATTACH 00000 1 BUFFER 00001 1 CLOSE 00002 1 EXIT 00003 1 LINK 00004 1
OPEN 00005 1 PRNTER 00006 1 RDWAIT 00007 1 UNLINK 00010 1
0ABSOLUTE CONSTANTS
01635 +214343606060 01631 +000000000104 01634 +077777000000 01633 +000000700000 01630 +000000000007
01627 +000000000003 01625 +000000000000 01632 +000000000660 01637 -116060606060 01626 +000000000001
01636 +233000000000
0STATEMENT DICTIONARY
00032 TXL -302040002027 00033 TXL -302042002041 00034 TXL -302061002055 00035 TXL -302055002054
00036 TXL -302062002061 00037 TXL -302070002067 00040 TXL -302015002011 00041 TXL -302015002015
00042 TXL -301703001673 00043 TXL -301751001741 00044 TXL -302050002044 00045 TXL -302063002062
0PROGRAM
EXTERNAL FUNCTION 001 LM00001
N'R 002 LM00002
D'N ENTRY(7),USER(7) 003 LM00003
D'N BUFF1(432),BUFF2(432) 004 LM00004
E'E (N1,ENTRY(7)),(N2,ENTRY(6)),(PB,USER(7)),(PG,USER(6)) 005 LM00005
E'E (MODE,ENTRY(3)),(NORECS,ENTRY(2)),(DEVICE,ENTRY(3)) 006 LM00006
V'S MFD=$M.F.D.$ 007 LM00007
01615 -0 43326 3 32433
V'S UFD=$U.F.D.$ 008 LM00008
01623 -2 43326 3 32433
V'S FILE=$(FILE)$ 009 LM00009
01613 -3 42631 4 32534
V'S SYSTEM=$ C0056$ 010 LM00010
01622 -2 02300 0 00506
V'S DAEMON=$ 99999$ 011 LM00011
01610 -2 01111 1 11111
V'S URGENT=$URGENT$ 012 LM00012
01624 -2 45127 2 54563
V'S MAIL=$ MAIL$ 013 LM00013
01614 -2 06044 2 13143
V'S POST=$ POST$ 014 LM00014
01617 -2 06047 4 66263
V'S ERROR=$ ERROR$ 015 LM00015
01612 -2 02551 5 14651
V'S RELOAD=$RELOAD$ 016 LM00016
01620 -1 12543 4 62124
V'S MZE=-0 017 LM00017
01616 -0 00000 0 00000
V'S R=432 018 LM00018
01621 +0 00000 0 00660
E'O RECAP. 019 LM00019
01640 TRA +0 02000 0 01643 01641 SXA +0 63400 2 02071 01642 TSX +0 07400 2 02071
ATTACH.(MFD,FILE,WOOPS) 020 LM00020
01643 TSX +0 07400 4 00000 01644 TXH +3 00000 0 01615 01645 TXH +3 00000 0 01613 01646 TXH +3 00000 0 00045
OPEN.($R$,UFD,FILE,MZE,MZE,WOOPS) 021 LM00021
01647 TSX +0 07400 4 00005 01650 TXH +3 00000 0 01637 01651 TXH +3 00000 0 01623 01652 TXH +3 00000 0 01613
01653 TXH +3 00000 0 01616 01654 TXH +3 00000 0 01616 01655 TXH +3 00000 0 00045
BUFFER.(UFD,FILE,BUFF1(432)...432,WOOPS) 022 LM00022
01656 TSX +0 07400 4 00001 01657 TXH +3 00000 0 01623 01660 TXH +3 00000 0 01613 01661 TIX +2 01632 0 00046
01662 TXH +3 00000 0 00045
RDWAIT.(UFD,FILE,0,ENTRY(3)...3,MEOF,EOFCT,WOOPS) 023 LM00023
01663 TSX +0 07400 4 00007 01664 TXH +3 00000 0 01623 01665 TXH +3 00000 0 01613 01666 TXH +3 00000 0 01625
01667 TIX +2 01627 0 00016 01670 TXH +3 00000 0 00034 01671 TXH +3 00000 0 01611 01672 TXH +3 00000 0 00045
READM RDWAIT.(UFD,FILE,0,USER(7)...7,MEOF,EOFCT,WOOPS) 024 LM00024
01673 TSX +0 07400 4 00007 01674 TXH +3 00000 0 01623 01675 TXH +3 00000 0 01613 01676 TXH +3 00000 0 01625
01677 TIX +2 01630 0 00022 01700 TXH +3 00000 0 00034 01701 TXH +3 00000 0 01611 01702 TXH +3 00000 0 00045
W'R ((PB.V.PG).E.0).OR.(PG.E.FILE), T'O READM 025 LM00025
01703 CLA +0 50000 0 00023 01704 SUB +0 40200 0 01613 01705 TZE +0 10000 0 01714 01706 CAL -0 50000 0 00022
01707 ORA -0 50100 0 00023 01710 SLW +0 60200 0 02101 01711 CLA +0 50000 0 02101 01712 SUB +0 40200 0 01625
01713 TNZ -0 10000 0 01715 01714 TRA +0 02000 0 00042
OPEN.($R$,PB,PG,MZE,MZE,WOOPS) 026 LM00026
01715 TSX +0 07400 4 00005 01716 TXH +3 00000 0 01637 01717 TXH +3 00000 0 00022 01720 TXH +3 00000 0 00023
01721 TXH +3 00000 0 01616 01722 TXH +3 00000 0 01616 01723 TXH +3 00000 0 00045
BUFFER.(PB,PG,BUFF2(432)...432,WOOPS) 027 LM00027
01724 TSX +0 07400 4 00001 01725 TXH +3 00000 0 00022 01726 TXH +3 00000 0 00023 01727 TIX +2 01632 0 00727
01730 TXH +3 00000 0 00045
RDWAIT.(PB,PG,0,ENTRY(3)...3,UEOF,EOFCT,WOOPS) 028 LM00028
01731 TSX +0 07400 4 00007 01732 TXH +3 00000 0 00022 01733 TXH +3 00000 0 00023 01734 TXH +3 00000 0 01625
01735 TIX +2 01627 0 00016 01736 TXH +3 00000 0 00044 01737 TXH +3 00000 0 01611 01740 TXH +3 00000 0 00045
READU RDWAIT.(PB,PG,0,ENTRY(7)...7,UEOF,EOFCT,WOOPS) 029 LM00029
01741 TSX +0 07400 4 00007 01742 TXH +3 00000 0 00022 01743 TXH +3 00000 0 00023 01744 TXH +3 00000 0 01625
01745 TIX +2 01630 0 00012 01746 TXH +3 00000 0 00044 01747 TXH +3 00000 0 01611 01750 TXH +3 00000 0 00045
W'R ((N1.V.N2).E.0), T'O READU 030 LM00030
01751 CAL -0 50000 0 00012 01752 ORA -0 50100 0 00013 01753 SLW +0 60200 0 02101 01754 CLA +0 50000 0 02101
01755 SUB +0 40200 0 01625 01756 TNZ -0 10000 0 01760 01757 TRA +0 02000 0 00043
W'R (DEVICE.A.7K5).E.0, T'O READU 031 LM00031
01760 CAL -0 50000 0 00016 01761 ANA -0 32000 0 01633 01762 SLW +0 60200 0 02101 01763 CLA +0 50000 0 02101
01764 SUB +0 40200 0 01625 01765 TNZ -0 10000 0 01767 01766 TRA +0 02000 0 00043
W'R (MODE.L.0).AND.((NORECS.A.77777K6).E.0) 032 LM00032
01767 CAL -0 50000 0 00017 01770 ANA -0 32000 0 01634 01771 SLW +0 60200 0 02101 01772 CLA +0 50000 0 02101
01773 SUB +0 40200 0 01625 01774 TNZ -0 10000 0 02043 01775 CLA +0 50000 0 00016 01776 SUB +0 40200 0 01625
01777 TZE +0 10000 0 02043 02000 TPL +0 12000 0 02043
ATTACH.(PB,PG,LKERR2) 033 LM00033
02001 TSX +0 07400 4 00000 02002 TXH +3 00000 0 00022 02003 TXH +3 00000 0 00023 02004 TXH +3 00000 0 00033
UNLINK.(URGENT,MAIL,NOMAIL) 034 LM00034
02005 TSX +0 07400 4 00010 02006 TXH +3 00000 0 01624 02007 TXH +3 00000 0 01614 02010 TXH +3 00000 0 00040
NOMAIL UNLINK.(URGENT,POST,NOPOST) 035 LM00035
02011 TSX +0 07400 4 00010 02012 TXH +3 00000 0 01624 02013 TXH +3 00000 0 01617 02014 TXH +3 00000 0 00041
NOPOST CONTINUE 036 LM00036
LINK.(URGENT,MAIL,SYSTEM,DAEMON, 037 LM00037
1 ERROR,RELOAD,104K,LKERR1) 037 LM00038
02015 TSX +0 07400 4 00004 02016 TXH +3 00000 0 01624 02017 TXH +3 00000 0 01614 02020 TXH +3 00000 0 01622
02021 TXH +3 00000 0 01610 02022 TXH +3 00000 0 01612 02023 TXH +3 00000 0 01620 02024 TXH +3 00000 0 01631
02025 TXH +3 00000 0 00032
T'O UEOF 038 LM00039
02026 TRA +0 02000 0 00044
LKERR1 LINK.(URGENT,POST,SYSTEM,DAEMON, 039 LM00040
1 ERROR,RELOAD,104K,LKERR2) 039 LM00041
02027 TSX +0 07400 4 00004 02030 TXH +3 00000 0 01624 02031 TXH +3 00000 0 01617 02032 TXH +3 00000 0 01622
02033 TXH +3 00000 0 01610 02034 TXH +3 00000 0 01612 02035 TXH +3 00000 0 01620 02036 TXH +3 00000 0 01631
02037 TXH +3 00000 0 00033
T'O UEOF 040 LM00042
02040 TRA +0 02000 0 00044
LKERR2 PRNTER. 041 LM00043
02041 TSX +0 07400 4 00006
T'O UEOF 042 LM00044
02042 TRA +0 02000 0 00044
E'L 043 LM00045
T'O READU 044 LM00046
02043 TRA +0 02000 0 00043
UEOF ATTACH.(MFD,FILE,WOOPS) 045 LM00047
02044 TSX +0 07400 4 00000 02045 TXH +3 00000 0 01615 02046 TXH +3 00000 0 01613 02047 TXH +3 00000 0 00045
CLOSE.(PB,PG,NERR1) 046 LM00048
02050 TSX +0 07400 4 00002 02051 TXH +3 00000 0 00022 02052 TXH +3 00000 0 00023 02053 TXH +3 00000 0 00035
NERR1 T'O READM 047 LM00049
02054 TRA +0 02000 0 00042
MEOF CLOSE.(UFD,FILE,NERR2) 048 LM00050
02055 TSX +0 07400 4 00002 02056 TXH +3 00000 0 01623 02057 TXH +3 00000 0 01613 02060 TXH +3 00000 0 00036
NERR2 F'N 049 LM00051
02061 TRA +0 02000 0 02075
WOOPS PRNTER. 050 LM00052
02062 TSX +0 07400 4 00006
CLOSE.($ALL$,MZE,NERR3) 051 LM00053
02063 TSX +0 07400 4 00002 02064 TXH +3 00000 0 01635 02065 TXH +3 00000 0 01616 02066 TXH +3 00000 0 00037
NERR3 F'N 052 LM00054
02067 TRA +0 02000 0 02075
E'N 053 LM00055
02070 TSX +0 07400 4 00003 02071 TXH +3 00000 0 00000 02072 SXD -0 63400 1 02071 02073 SXA +0 63400 4 02075
02074 TRA +0 02000 2 00001 02075 AXT +0 77400 4 00000 02076 LXA +0 53400 2 02071 02077 LXD -0 53400 1 02071
02100 TRA +0 02000 4 00001
SADUMP BCD 02/09/69 0528.4 94613 00000
SADPMN BCD 05/28/67 1807.1 12888 00000
1 INCREMENTAL NEW FILES DUMP AND COMPLETE DUMP...M.J.BAILEY,12/31/64 PAGE 1
* (MAIN PROGRAM)
EXTERN FSTATE,DELFIL,ATTACH
EXTERN BUFFER
EXTERN OPEN,CLOSE,WRFLX
EXTERN UMOUNT,FERRTN,TILOCK
EXTERN CHFILE,ALLOT
*
INSERT DMCRSA
*
* MACRO TO WRITE N WORDS FROM ARRAY ET SEQ ONTO ALREADY OPENED
* SECONDARY STORAGE FILE (NAME1,NAME2) AND WAIT UNTIL TRANSMITTED.
*
WSSF MACRO ARRAY,N,NAME1,NAME2
TSX ATTACH,4 RE-ATTACH TO DUMPER'S FILES
TXH DMPUSR
TXH DMPRGR
TSX WRFILE,4 WRITE
TXH NAME1 ONTO (NAME1,
TXH NAME2 NAME2)
TXH =0 AT POSITION WHERE LAST CEASED
TIX ARRAY,,N FROM ARRAY THROUGH ARRAY+N-1
TSX FWAIT,4 WAIT
TXH NAME1
TXH NAME2
WSSF END
*
* ZERO-IZE A THROUGH A+X-1
*
CLEAR MACRO A,X
AXT X,1
STZ A+X,1
TIX *-1,1,1
CLEAR END
*
* MOVE X WORDS FROM A ET SEQ TO B ET SEQ
*
MOVE MACRO X,A,B
AXT X,1
CAL A+X,1
SLW B+X,1
TIX *-2,1,1
MOVE END
*
* PRINT ONE LINE, CLEAR BUFFER
*
PRBUFF MACRO BUFF,NWDS
SXA *+3,4
TSX WRFLX,4
BUFF,,NWDS
AXT **,4
CLEAR BUFF,NWDS
PRBUFF END
*
* PRINT STANDARD BEGINNING TO DUMPER ERROR MESSAGE
*
BGNERM MACRO TYPE
1 INCREMENTAL NEW FILES DUMP AND COMPLETE DUMP...M.J.BAILEY,12/31/64 PAGE 2
SXA *+3,4
TSX $BERM,4
PZE TYPE
AXT **,4
BGNERM END
*
* PRINT ONE LINE COMMENT
*
PRLINE MACRO COMNT,NWC,N,WORD1,WORD2,LOC
IFF 0,NWC,0
MOVE NWC,LOC,PBF
IFF N-2,N,1
CAL WORD1
IFF N-2,N,1
SLW PBF+NWC
IFF 1,N,2
CAL WORD2
IFF 1,N,2
SLW PBF+NWC+1
PRBUFF PBF,NWC+N
RMT
LOC BCI NWC,COMNT
RMT
PRLINE END
*
* PRINT ONE LINE MESSAGE
*
PRMESS MACRO MESNAM,N,ADR1,ADR2
TSX $PRLINE,4
BCI 1,MESNAM
IFF N,N,N
TXH ADR1
IFF N,N,N
TXH ADR2
PRMESS END
*
* MACRO TO OPEN FILE (X,Y) OF USER (A,B) FOR READING
* AND ASSIGN BUFFER F OF LENGTH L TO I/O SYSTEM FOR THAT PURPOSE.
* ( ERR IS TRANSFER ADDRESS FOR ERROR RETURN )
*
RDOPEN MACRO X,Y,A,B,F,L,ERR
TSX ATTACH,4 ATTACH TO USER (A,B)
TXH A
TXH B
TSX OPEN,4 OPEN FILE (X,Y) FOR READING
TXH R
TXH X
TXH Y
TXH =0
TXH =0
TXH ERR (TRANSFER ADDRESS FOR ERROR)
TSX BUFFER,4 ASSIGN L WORDS OF BUFFER F TO (X,Y)
TXH X
TXH Y
TIX F,,L
RDOPEN END
1 INCREMENTAL NEW FILES DUMP AND COMPLETE DUMP...M.J.BAILEY,12/31/64 PAGE 3
*
* PRINT ERROR CODE, END MESSAGE
*
ERTN MACRO ADRERR
SXA *+2,4
TSX $ERREND,4
AXT **,4
TRA ADRERR
ERTN END
*
* ASK OPERATOR TO SET KEY CODE DC IF HE WANTS
* ACTION GIVEN BY N-WORD MESSAGE M
*
PRCODE MACRO DC,M,N
TSX $PRCODE,4
TXH DC
TXH M,,N
PRCODE END
*
* TEST LAST KEY SETTING VIA SUPERVISOR, GO TO JUMP IF IT IS CODE
*
TESTKY MACRO CODE,JUMP
TSX $NGETA,7
LDQ DEMKEY
STQ KEYVAL
AXT CODE,1
PXA 0,1
SUB KEYVAL
TZE JUMP
TESTKY END
*
* SET UP LOGICAL TAPE RECORD WRITING
*
LOGREC MACRO X
CLA LTPBF
SUB =12
STO TEMP
CAL X+4
ANA =O77777
STO RCOUNT
TSX $NLREC,4
TXH NORECS
TXH RCOUNT
TXH LCOUNT
TXH TEMP
TXH =12
TXH PHYSRC
TXH NFLR
TXH NLAST
LOGREC END
*
*
ATTACH MACRO A,B
TSX ATTACH,4
TXH A
TXH B
1 INCREMENTAL NEW FILES DUMP AND COMPLETE DUMP...M.J.BAILEY,12/31/64 PAGE 4
ATTACH END
*
* PRINT ERROR MESSAGE AND INTERROGATE KEYS
*
PRERR MACRO
TSX $PRNTER,4
TSX $GDSIG,4
PRERR END
*
*
*
* . . . . . . . . . . . . . . . . . . . .
* START OF MAIN PROGRAM
* . . . . . . . . . . . . . . . . . . . .
*
TRANSFER VECTOR
00000 266263216325 FSTATE
00001 242543263143 DELFIL
00002 216363212330 ATTACH
00003 226426262551 BUFFER
00004 464725456060 OPEN
00005 234346622560 CLOSE
00006 665126436760 WRFLX
00007 644446644563 UMOUNT
00010 262551516345 FERRTN
00011 633143462342 TILOCK
00012 233026314325 CHFILE
00013 214343466360 ALLOT
00014 622563314660 SETIO
00015 244225706060 DKEY
00016 314651622563 IORSET
00017 314626314531 IOFINI
00020 256731636060 EXIT
00021 475145632551 PRNTER
00022 245162634651 DRSTOR
00023 622165442147 SAVMAP
00024 272462312760 GDSIG
00025 622426606060 SDF
00026 624426606060 SMF
00027 664430606060 WMH
00030 246362216525 DTSAVE
00031 272463606060 GDT
00032 244447263143 DMPFIL
00033 626422242170 SUBDAY
00034 246462510160 DUSR1
00035 254426606060 EMF
00036 244426606060 DMF
00037 242370234325 DCYCLE
00040 222551446060 BERM
00041 255151254524 ERREND
00042 0000 00 0 00043 HTR *+1
00043 0074 00 4 00014 TSX $SETIO,4
TD 00044 3 00000 0 01711 TXH =99999
00045 0760 00 0 00016 LMTM
1 INCREMENTAL NEW FILES DUMP AND COMPLETE DUMP...M.J.BAILEY,12/31/64 PAGE 5
00046 -0500 00 0 00101 CAL PEXIT
00047 0602 00 0 00034 SLW 28
00050 -0754 00 0 00000 ZAC
00051 0621 60 0 00015 STA* $DKEY
00052 -0500 00 0 01724 CAL =H 99999
00053 0602 00 0 62726 SLW DMPRGR
00054 -0500 00 0 01725 CAL =H C0056
00055 0602 00 0 62727 SLW DMPUSR
00056 0074 00 4 00002 TSX ATTACH,4
TD 00057 3 00000 0 62727 TXH DU
TD 00060 3 00000 0 62726 TXH DP
00061 0074 00 4 00013 TSX ALLOT,4
TD 00062 3 00000 0 01702 TXH =1
TD 00063 3 00000 0 01710 TXH =O77777
00064 0074 00 4 00013 TSX ALLOT,4
TD 00065 3 00000 0 01703 TXH =2
TD 00066 3 00000 0 01710 TXH =O77777
00067 0074 00 4 00013 TSX ALLOT,4
TD 00070 3 00000 0 01704 TXH =3
TD 00071 3 00000 0 01710 TXH =O77777
00072 0600 00 0 01521 STZ UDTSW
00073 0600 00 0 01517 STZ NODEL
00074 0500 00 0 01705 CLA =4
00075 0601 00 0 62725 STO MFD1W
00076 0074 00 4 00010 TSX FERRTN,4 SET ADDRESS FOR UNSPECIFIED
00077 0 00000 0 00114 PZE ELOC I/O SYSTEM ERROR RETURN
00100 0020 00 0 00135 TRA D3
*
00101 0021 00 0 00102 PEXIT TTR *+1
00102 0074 00 4 00016 TSX $IORSET,4
00103 0074 00 4 00005 TSX CLOSE,4
TD 00104 3 00000 0 01712 TXH =HALL
TD 00105 3 00000 0 01722 TXH =-0
TD 00106 3 00000 0 00107 TXH *+1
00107 0074 00 4 00007 TSX UMOUNT,4
TD 00110 3 00000 0 01712 TXH =HALL
00111 2 01636 0 01624 TIX ALLMES,,LALMES
00112 0074 00 4 00017 TSX $IOFINI,4
00113 0020 00 0 00020 TRA $EXIT
*
00114 0634 00 4 00133 ELOC SXA ELOC4,4 UNSPECIFIED ERROR RETURN FROM I/O SYSTEM
00115 0634 00 1 00132 SXA ELOC1,1
00116 MOVE 9,MESX,PBF
00116 0774 00 1 00011 AXT 9,1 .001
00117 -0500 00 1 00633 CAL MESX+9,1 .001
00120 0602 00 1 64537 SLW PBF+9,1 .001
00121 2 00001 1 00117 TIX *-2,1,1 .001
00122 PRBUFF PBF,9
00122 0634 00 4 00125 SXA *+3,4 .001
00123 0074 00 4 00006 TSX WRFLX,4 .001
00124 0 00011 0 64526 PBF,,9 .001
00125 0774 00 4 00000 AXT **,4 .001
00126 CLEAR PBF,9 .001
00126 0774 00 1 00011 AXT 9,1 .002
00127 0600 00 1 64537 STZ PBF+9,1 .002
00130 2 00001 1 00127 TIX *-1,1,1 .002
1 INCREMENTAL NEW FILES DUMP AND COMPLETE DUMP...M.J.BAILEY,12/31/64 PAGE 6
00131 0074 00 4 00021 TSX $PRNTER,4
00132 0774 00 1 00000 ELOC1 AXT **,1
00133 0774 00 4 00000 ELOC4 AXT **,4
00134 0020 00 4 00001 TRA 1,4
*
00135 0074 00 4 00011 D3 TSX TILOCK,4 SET ADDRESS FOR UNEXPECTED READ-INTERLOCK
00136 0 00000 0 00140 PZE ILOC
00137 0020 00 0 00160 TRA D4 SKIP
*
00140 0634 00 4 00156 ILOC SXA ILOC4,4 READ INTERLOCK TRAP
00141 0634 00 1 00155 SXA ILOC1,1
00142 PRLINE ( UNEXPECTED READ INTERLOCK TRAP IN DUMPER.),7,0
00142 MOVE 7,..003,PBF .001
00142 0774 00 1 00007 AXT 7,1 .002
00143 -0500 00 1 01671 CAL ..003+7,1 .002
00144 0602 00 1 64535 SLW PBF+7,1 .002
00145 2 00001 1 00143 TIX *-2,1,1 .002
00146 PRBUFF PBF,7+0 .001
00146 0634 00 4 00151 SXA *+3,4 .002
00147 0074 00 4 00006 TSX WRFLX,4 .002
00150 0 00007 0 64526 PBF,,7+0 .002
00151 0774 00 4 00000 AXT **,4 .002
00152 CLEAR PBF,7+0 .002
00152 0774 00 1 00007 AXT 7+0,1 .003
00153 0600 00 1 64535 STZ PBF+7+0,1 .003
00154 2 00001 1 00153 TIX *-1,1,1 .003
RMT .001
..003 BCI 7, UNEXPECTED READ INTERLOCK TRAP IN DUMPER. .001
RMT .001
00155 0774 00 1 00000 ILOC1 AXT **,1
00156 0774 00 4 00000 ILOC4 AXT **,4
00157 0020 00 4 00001 TRA 1,4 BLUNDER ON
*
00160 -0500 00 0 01721 D4 CAL =H.DUMP.
00161 0602 00 0 62723 SLW NFN1
00162 0602 00 0 62721 SLW NFN2
00163 -0500 00 0 01717 CAL =HFILE.1
00164 0602 00 0 62724 SLW NFN1+1
00165 -0500 00 0 01720 CAL =HFILE.2
00166 0602 00 0 62722 SLW NFN2+1
*
00167 0074 00 4 00005 TSX CLOSE,4
TD 00170 3 00000 0 01712 TXH =HALL
00171 0074 00 4 00007 TSX UMOUNT,4
TD 00172 3 00000 0 01712 TXH =HALL
00173 2 01636 0 01624 TIX ALLMES,,LALMES
00174 0074 00 4 00000 TSX FSTATE,4
TD 00175 3 00000 0 01716 TXH =HDRSTOR
TD 00176 3 00000 0 01717 TXH =HFILE.1
00177 3 00001 0 01520 TXH TEMP,,1
TD 00200 3 00000 0 00202 TXH *+2
00201 0020 00 0 00211 TRA RSTORE
00202 0074 00 4 00000 TSX FSTATE,4
TD 00203 3 00000 0 01716 TXH =HDRSTOR
TD 00204 3 00000 0 01720 TXH =HFILE.2
00205 3 00001 0 01520 TXH TEMP,,1
1 INCREMENTAL NEW FILES DUMP AND COMPLETE DUMP...M.J.BAILEY,12/31/64 PAGE 7
TD 00206 3 00000 0 00210 TXH *+2
00207 0020 00 0 00211 TRA RSTORE
00210 0020 00 0 00230 TRA CDUMP
00211 0074 00 4 00022 RSTORE TSX $DRSTOR,4
00212 0020 00 0 00211 TRA *-1
00213 0520 00 0 60255 ZET ODAWN
00214 -0625 00 0 01517 STL NODEL
00215 -0500 00 0 60266 CAL CDSW
00216 0100 00 0 00230 TZE CDUMP
00217 0500 00 0 60262 CLA TFOSW
00220 0100 00 0 00230 TZE CDUMP
00221 0402 00 0 01702 SUB =1
00222 -0100 00 0 00224 TNZ *+2
00223 0020 00 0 00230 TRA CDUMP
00224 -0625 00 0 01521 STL UDTSW
00225 0074 00 4 00023 TSX $SAVMAP,4
TD 00226 3 00000 0 01701 TXH =0
00227 0020 00 0 00366 TRA UDTPAT
*
* . . . . . . . . . . . . . . . . . .
*
*
* . . . . . . . . . . . . . . . . . .
* START COMPLETE DUMP OF SYSTEM AND CURRENT USER FILES
* . . . . . . . . . . . . . . . . . .
*
*
* MAKE NEW LIST OF SYSTEM FILE OWNER NAMES (EXEMPT FROM USER FILE DUMP)
*
00230 0600 00 0 62735 CDUMP STZ MFDEOF
00231 0600 00 0 60262 STZ TFOSW
00232 -0625 00 0 60266 STL CDSW SET COMPLETE-DUMP SWITCH
00233 0074 00 4 00024 TSX $GDSIG,4
00234 0534 00 1 01534 LXA SYSFL,1 2*(NO. OF SYSTEM FILE USER NAMES)
00235 3 00014 1 00557 TXH ERRCD1,1,2*NX ERROR IF IT IS .GR. SPACE ALLOCATED
00236 0634 00 1 77441 SXA NXMPT,1 SAVE NO. USERS EXEMPT FROM USER FILE DUMP
00237 -0500 00 1 01534 CDB CAL SYSFL,1 PROBLEM NO. OF SYSTEM FILE USER NAME
00240 0602 00 1 77456 SLW EXEMPT+1,1
00241 -0500 00 1 01535 CAL SYSFL+1,1 PROG. NO. OF SYSTEM FILE USER NAME
00242 0602 00 1 77457 SLW EXEMPT+2,1
00243 2 00002 1 00237 TIX CDB,1,2
*
* OPEN SYSTEM-FILES-'COMPLETE'-DUMP TAPE FILES, WRITE I.D. RECORDS
*
00244 0600 00 0 70062 STZ TPBUF+7 NO END OF 'DAY' IN I.D. RECORD
00245 MOVE 4,SDTID,TAPEID
00245 0774 00 1 00004 AXT 4,1 .001
00246 -0500 00 1 01541 CAL SDTID+4,1 .001
00247 0602 00 1 60250 SLW TAPEID+4,1 .001
00250 2 00001 1 00246 TIX *-2,1,1 .001
00251 0074 00 4 00025 TSX $SDF,4
00252 2 01556 0 01541 TIX SSDMES,,LSSDMS (MESSAGE FOR START OF SYSTEM-FILE DUMP)
*
* INITIATE, THEN WRITE HEADING FOR, SYSTEM FILE DUMP TAPE MAP FILE
*
00253 0074 00 4 00026 TSX $SMF,4 INITIATE MAP FILE FOR SYSTEM-FILE DUMP TAPE
1 INCREMENTAL NEW FILES DUMP AND COMPLETE DUMP...M.J.BAILEY,12/31/64 PAGE 8
00254 0074 00 4 00027 TSX $WMH,4 WRITE MAP FILE HEADING
TD 00255 3 00000 0 01726 TXH =HSYSTEM (FOR SYSTEM FILE DUMP)
00256 0074 00 4 00030 TSX $DTSAVE,4 SAVE DUMPER TABLES ETC.
00257 0761 00 0 00000 NOP
*
* DUMP M.F.D. FILE
*
00260 0074 00 4 00031 TSX $GDT,4
00261 0602 00 0 60263 SLW TCYCLE
00262 -0500 00 0 01523 CAL UFDNAM
00263 0602 00 0 62741 SLW UFDENT
00264 -0500 00 0 01524 CAL UFDNAM+1
00265 0602 00 0 62742 SLW UFDENT+1
00266 0602 00 0 64511 SLW MFDENT+1
00267 -0500 00 0 01525 CAL MFDNAM
00270 0602 00 0 64510 SLW MFDENT
00271 0074 00 4 00032 TSX $DMPFIL,4
*
* . . . . . . . . . . . . . . . . . . . . . . .
* START COMPLETE-SYSTEM-FILE DUMPING, FILE USER NAME BY FILE USER NAME
* . . . . . . . . . . . . . . . . . . . . . . .
*
00272 0074 00 4 00031 TSX $GDT,4 CURRENT DATE/TIME TEMP LABLE
00273 -0320 00 0 01730 ANA =O777777000000 DATE TO-DAY
00274 0602 00 0 73353 SLW TND SET TND
00275 0602 00 0 60256 SLW TNDSAV SAVE TND (= TIME OF START OF TO-DAY)
00276 0074 00 4 00030 TSX $DTSAVE,4 SAVE DUMPER TABLES ETC.
00277 0761 00 0 00000 NOP
00300 -0500 00 0 60256 CAL TNDSAV
00301 0074 00 4 00033 TSX $SUBDAY,4
TD 00302 3 00000 0 01515 TXH LNCD
00303 0602 00 0 62737 SLW TLD TLD=START OF 'CURRENT' FILE PERIOD
00304 0602 00 0 60257 SLW TCP SAVE IT (= TO-DAY - NCD DAYS)
00305 0074 00 4 00031 TSX $GDT,4
00306 0602 00 0 60263 SLW TCYCLE SET TIME OF THIS LAST CYCLE ON TAPE
00307 0602 00 0 73354 SLW FLUSH FORCE FLUSH DUMP
00310 0534 00 1 01534 LXA SYSFL,1 NO. SYSTEM FILE USER/OWNERS
*
00311 0074 00 4 00030 CDC TSX $DTSAVE,4 SAVE DUMPER TABLES ETC.
00312 0761 00 0 00000 NOP
00313 -0500 00 1 01534 CAL SYSFL,1
00314 0602 00 0 64510 SLW MFDENT PROB. NO. OF NEXT SYSTEM FILE USER NAME
00315 -0500 00 1 01535 CAL SYSFL+1,1
00316 0602 00 0 64511 SLW MFDENT+1 PROG. NO. OF NEXT SYSTEM FILE USER NAME
*
00317 0074 00 4 00034 TSX $DUSR1,4 DUMP THIS USER
*
00320 0020 00 0 00602 TRA ERRCD2 (END OF DAY RETURN - IMPOSSIBLE)
00321 0020 00 0 00612 TRA ERRCD3 ERROR RETURN - UFD FILE UNREADABLE
00322 0074 00 4 00024 TSX $GDSIG,4
00323 1 77776 1 00324 TXI *+1,1,-2
00324 3 00000 1 00311 CDD TXH CDC,1,** RETURN FOR NEXT SYSTEM FILE USER
*
* DAEMON SELF DUMP (NO U.F.D.)
*
*
1 INCREMENTAL NEW FILES DUMP AND COMPLETE DUMP...M.J.BAILEY,12/31/64 PAGE 9
* DUMP M.F.D. FILE
*
00325 -0500 00 0 01523 CAL UFDNAM
00326 0602 00 0 62741 SLW UFDENT
00327 -0500 00 0 01524 CAL UFDNAM+1
00330 0602 00 0 62742 SLW UFDENT+1
00331 0602 00 0 64511 SLW MFDENT+1
00332 -0500 00 0 01525 CAL MFDNAM
00333 0602 00 0 64510 SLW MFDENT
00334 0074 00 4 00032 TSX $DMPFIL,4
*
* TERMINATE MAP FILE, DUMP IT, COPY IT ON TO THE
* PRINT OUTPUT TAPE TAPE, AND CLOSE DUMP TAPE FILES
*
00335 0074 00 4 00035 TSX $EMF,4 END MAP FILE
TD 00336 3 00000 0 01701 TXH =0
00337 0074 00 4 00036 TSX $DMF,4 DUMP MAP FILE, COPY ONTO PRINT TAPE
00340 0074 00 4 00002 TSX ATTACH,4
TD 00341 3 00000 0 62727 TXH DMPUSR
TD 00342 3 00000 0 62726 TXH DMPRGR
*
00343 0074 00 4 00030 TSX $DTSAVE,4 SAVE DUMPER TABLES ETC.
00344 0761 00 0 00000 NOP
00345 0074 00 4 00005 TSX CLOSE,4 CLOSE COMPLETE SYSTEM DUMP TAPE FILES
TD 00346 3 00000 0 62723 TXH NFN1
TD 00347 3 00000 0 62724 TXH NFN1+1
00350 0074 00 4 00005 TSX CLOSE,4
TD 00351 3 00000 0 62721 TXH NFN2
TD 00352 3 00000 0 62722 TXH NFN2+1
00353 0074 00 4 00007 TSX UMOUNT,4 HAVE OPERATOR DISMOUNT REEL
TD 00354 3 00000 0 01706 TXH =11 FROM UNIT 11 (DUMP TAPE COPY 1)
00355 2 01601 0 01557 TIX ESDMES,,LESDMS AND GIVE END OF DUMP MESSAGE
00356 0074 00 4 00007 TSX UMOUNT,4 REPEAT FOR UNIT 12 (DUMP TAPE COPY 2)
TD 00357 3 00000 0 01707 TXH =12
00360 2 01601 0 01557 TIX ESDMES,,LESDMS
00361 0074 00 4 00024 TSX $GDSIG,4
00362 0074 00 4 00030 TSX $DTSAVE,4
00363 0761 00 0 00000 NOP
00364 0074 00 4 00030 TSX $DTSAVE,4
00365 0761 00 0 00000 NOP
*
* OPEN USER-FILES-'COMPLETE'-DUMP TAPE FILES, WRITE I.D. RECORD ON EACH
*
00366 0600 00 0 70062 UDTPAT STZ TPBUF+7 (NO END OF DAY IN THIS I.D. RECORD)
00367 MOVE 4,UFDTID,TAPEID
00367 0774 00 1 00004 AXT 4,1 .001
00370 -0500 00 1 01606 CAL UFDTID+4,1 .001
00371 0602 00 1 60250 SLW TAPEID+4,1 .001
00372 2 00001 1 00370 TIX *-2,1,1 .001
00373 0074 00 4 00025 TSX $SDF,4
00374 2 01623 0 01606 TIX SUDMES,,LSUDMS (MESSAGE FOR START OF USERS' FILES DUMP)
*
* INITIATE, AND WRITE HEADING FOR, USERS'-FILES DUMP TAPE MAP FILE
*
00375 0074 00 4 00026 TSX $SMF,4 INITIATE MAP FILE
00376 0074 00 4 00027 TSX $WMH,4 WRITE MAP HEADING
1 INCREMENTAL NEW FILES DUMP AND COMPLETE DUMP...M.J.BAILEY,12/31/64 PAGE 10
TD 00377 3 00000 0 01727 TXH =HUSERS' (FOR USERS'-FILES-DUMP TAPE FILE)
00400 0074 00 4 00024 TSX $GDSIG,4
*
* DUMP M.F.D. FILE
*
00401 -0500 00 0 62737 CAL TLD
00402 0602 00 0 01522 SLW TTLD
00403 0074 00 4 00031 TSX $GDT,4
00404 0602 00 0 60263 SLW TCYCLE
00405 -0500 00 0 01523 CAL UFDNAM
00406 0602 00 0 62741 SLW UFDENT
00407 -0500 00 0 01524 CAL UFDNAM+1
00410 0602 00 0 62742 SLW UFDENT+1
00411 0602 00 0 64511 SLW MFDENT+1
00412 -0500 00 0 01525 CAL MFDNAM
00413 0602 00 0 64510 SLW MFDENT
00414 0074 00 4 00032 TSX $DMPFIL,4
00415 0074 00 4 00502 TSX OPNMFD,4
00416 0500 00 0 01521 CLA UDTSW
00417 0100 00 0 00424 TZE AUTOM
00420 0600 00 0 01521 STZ UDTSW
00421 -0500 00 0 01522 CAL TTLD
00422 0602 00 0 62737 SLW TLD
* TZE CDF2
00423 0020 00 0 00431 TRA CDF
*
* . . . . . . . . . . . . . . . . . . . . .
* START COMPLETE CURRENT USER FILE DUMPING, IN
* GROUPS ACCORDING TO MOST RECENT USE.
* . . . . . . . . . . . . . . . . . . . . .
*
00424 0074 00 4 00031 AUTOM TSX $GDT,4
00425 0602 00 0 60263 SLW TCYCLE SET TIME OF THIS LAST CYCLE ON DUMP TAPE FI
00426 0602 00 0 62720 SLW TNDSW ENSURE TND WILL BE TAKEN AS A CONSTANT
* CAL TNDSAV RESTORE TND = START OF TOMORROW
* TSX $ADDDAY,4
* TSX $ADDDAY,4
* SLW TND
* CAL TNDSAV
* TRA *+2
**
*CDE SLW TND SET TND
* TSX $SUBDAY,4
* TXH LDINC
* SLW TLD TLD=TND-DINC
* SUB TCP
* TPL *+3 SKIP IF TLD .GE. TCP
* CAL TCP TLD LESS THAN TCP,
* SLW TLD SET TLD=TCP
00427 0074 00 4 00030 TSX $DTSAVE,4 SAVE DUMPER TABLES ETC.
00430 0761 00 0 00000 NOP
*
00431 0074 00 4 00037 CDF TSX $DCYCLE,4 PERFORM DUMP CYCLE, DUMPING ALL FILES WHOSE
00432 0761 00 0 00000 NOP DATE LAST USED IS BETWEEN TLD AND TND, WITH
SOME EXEMPT USERS.
00433 0761 00 0 00000 NOP (END OF DAY RETURN - IMPOSSIBLE)
1 INCREMENTAL NEW FILES DUMP AND COMPLETE DUMP...M.J.BAILEY,12/31/64 PAGE 11
*
* CLA TLD
* SUB TCP
* TZE *+3 ALMOST FINISHED IF TLD=TCP
* CAL TLD SETTING TND = TLD,
* TRA CDE RETURN FOR NEXT MOST RECENTLY USED FILES
* CAL TLD
* SLW TND
* STZ TLD
**
* TSX $DTSAVE,4
* NOP
*CDF2 TSX $DCYCLE,4 TO DUMP ALL TIME
* NOP
* NOP
*
* DUMP M.F.D. FILE
*
00434 0074 00 4 00520 TSX CLSMFD,4
00435 -0500 00 0 01523 CAL UFDNAM
00436 0602 00 0 62741 SLW UFDENT
00437 -0500 00 0 01524 CAL UFDNAM+1
00440 0602 00 0 62742 SLW UFDENT+1
00441 0602 00 0 64511 SLW MFDENT+1
00442 -0500 00 0 01525 CAL MFDNAM
00443 0602 00 0 64510 SLW MFDENT
00444 0074 00 4 00032 TSX $DMPFIL,4
*
* TERMINATE MAP FILE,DUMP IT, COPY IT ON TO THE PRINT
* OUTPUT TAPE, CLOSE THE USER-DUMP FILES.
*
00445 0074 00 4 00035 TSX $EMF,4 END MAP FILE
TD 00446 3 00000 0 01701 TXH =0
00447 0074 00 4 00036 TSX $DMF,4 DUMP MAP FILE, COPY TO PRINT TAPE
00450 0074 00 4 00002 TSX ATTACH,4
TD 00451 3 00000 0 62727 TXH DMPUSR
TD 00452 3 00000 0 62726 TXH DMPRGR
*
00453 0074 00 4 00030 TSX $DTSAVE,4
00454 0761 00 0 00000 NOP
00455 0074 00 4 00005 TSX CLOSE,4 CLOSE USERS'-FILES DUMP TAPE FILES
TD 00456 3 00000 0 62723 TXH NFN1
TD 00457 3 00000 0 62724 TXH NFN1+1
00460 0074 00 4 00005 TSX CLOSE,4
TD 00461 3 00000 0 62721 TXH NFN2
TD 00462 3 00000 0 62722 TXH NFN2+1
00463 0074 00 4 00024 TSX $GDSIG,4
00464 0074 00 4 00007 TSX UMOUNT,4 HAVE OPERATOR DISMOUNT REEL
TD 00465 3 00000 0 01706 TXH =11 FROM UNIT 11 (DUMP TAPE COPY 1)
00466 2 01661 0 01637 TIX EUDMES,,LEUDMS AND GIVE END OF DUMP MESSAGE
00467 0074 00 4 00007 TSX UMOUNT,4 REPEAT FOR UNIT 12 (DUMP TAPE COPY 2)
TD 00470 3 00000 0 01707 TXH =12
00471 2 01661 0 01637 TIX EUDMES,,LEUDMS
00472 0600 00 0 60262 QUIT STZ TFOSW
00473 0074 00 4 00030 TSX $DTSAVE,4
00474 0761 00 0 00000 NOP
1 INCREMENTAL NEW FILES DUMP AND COMPLETE DUMP...M.J.BAILEY,12/31/64 PAGE 12
00475 0074 00 4 00030 TSX $DTSAVE,4
00476 0761 00 0 00000 NOP
00477 0520 00 0 01517 ZET NODEL
00500 0074 00 4 00020 TSX $EXIT,4
00501 0020 00 0 00530 TRA DAMMIT
*
00502 0634 00 4 00516 OPNMFD SXA O4,4
00503 0074 00 4 00002 TSX ATTACH,4
TD 00504 3 00000 0 01525 TXH MFDNAM
TD 00505 3 00000 0 01524 TXH UFDNAM+1
00506 0074 00 4 00004 TSX OPEN,4
TD 00507 3 00000 0 01723 TXH =HR
TD 00510 3 00000 0 01525 TXH MFDNAM
TD 00511 3 00000 0 01524 TXH UFDNAM+1
00512 0074 00 4 00003 TSX BUFFER,4
TD 00513 3 00000 0 01525 TXH MFDNAM
TD 00514 3 00000 0 01524 TXH UFDNAM+1
00515 3 00660 0 00633 TXH IOBUF3,,432
00516 0774 00 4 00000 O4 AXT **,4
00517 0020 00 4 00001 TRA 1,4
*
00520 0634 00 4 00516 CLSMFD SXA O4,4
00521 0074 00 4 00002 TSX ATTACH,4
TD 00522 3 00000 0 01525 TXH MFDNAM
TD 00523 3 00000 0 01524 TXH UFDNAM+1
00524 0074 00 4 00005 TSX CLOSE,4
TD 00525 3 00000 0 01525 TXH MFDNAM
TD 00526 3 00000 0 01524 TXH UFDNAM+1
00527 0020 00 0 00516 TRA O4
00530 0074 00 4 00012 DAMMIT TSX CHFILE,4
TD 00531 3 00000 0 01716 TXH =HDRSTOR
TD 00532 3 00000 0 01717 TXH =HFILE.1
TD 00533 3 00000 0 01701 TXH =0
TD 00534 3 00000 0 01722 TXH =-0
TD 00535 3 00000 0 01722 TXH =-0
TD 00536 3 00000 0 00537 TXH *+1
00537 0074 00 4 00001 TSX DELFIL,4
TD 00540 3 00000 0 01716 TXH =HDRSTOR
TD 00541 3 00000 0 01717 TXH =HFILE.1
TD 00542 3 00000 0 00543 TXH *+1
00543 0074 00 4 00012 TSX CHFILE,4
TD 00544 3 00000 0 01716 TXH =HDRSTOR
TD 00545 3 00000 0 01720 TXH =HFILE.2
TD 00546 3 00000 0 01701 TXH =0
TD 00547 3 00000 0 01722 TXH =-0
TD 00550 3 00000 0 01722 TXH =-0
TD 00551 3 00000 0 00552 TXH *+1
00552 0074 00 4 00001 TSX DELFIL,4
TD 00553 3 00000 0 01716 TXH =HDRSTOR
TD 00554 3 00000 0 01720 TXH =HFILE.2
TD 00555 3 00000 0 00556 TXH *+1
00556 0074 00 4 00020 TSX $EXIT,4
*
* . . . . . . . . . . . . . . . . . . . .
* ERROR FIX-UP SECTION
* . . . . . . . . . . . . . . . . . . . .
1 INCREMENTAL NEW FILES DUMP AND COMPLETE DUMP...M.J.BAILEY,12/31/64 PAGE 13
*
00557 ERRCD1 BGNERM =HCD01 EXEMPT USER ARRAY TOO SMALL
00557 0634 00 4 00562 SXA *+3,4 .001
00560 0074 00 4 00040 TSX $BERM,4 .001
00561 0 00000 0 01713 PZE =HCD01 .001
00562 0774 00 4 00000 AXT **,4 .001
00563 PRLINE ( COMPLETE DUMP HAS TO BE ABANDONED. RE-ASSEMBLE.),8,0
00563 MOVE 8,..006,PBF .001
00563 0774 00 1 00010 AXT 8,1 .002
00564 -0500 00 1 01701 CAL ..006+8,1 .002
00565 0602 00 1 64536 SLW PBF+8,1 .002
00566 2 00001 1 00564 TIX *-2,1,1 .002
00567 PRBUFF PBF,8+0 .001
00567 0634 00 4 00572 SXA *+3,4 .002
00570 0074 00 4 00006 TSX WRFLX,4 .002
00571 0 00010 0 64526 PBF,,8+0 .002
00572 0774 00 4 00000 AXT **,4 .002
00573 CLEAR PBF,8+0 .002
00573 0774 00 1 00010 AXT 8+0,1 .003
00574 0600 00 1 64536 STZ PBF+8+0,1 .003
00575 2 00001 1 00574 TIX *-1,1,1 .003
RMT .001
..006 BCI 8, COMPLETE DUMP HAS TO BE ABANDONED. RE-ASSEMBLE. .001
RMT .001
00576 ERTN QUIT ABANDON COMPLETE DUMP
00576 0634 00 4 00600 SXA *+2,4 .001
00577 0074 00 4 00041 TSX $ERREND,4 .001
00600 0774 00 4 00000 AXT **,4 .001
00601 0020 00 0 00472 TRA QUIT .001
*
00602 ERRCD2 BGNERM =HCD02 'IMPOSSIBLE' END OF DAY RETURN FROM DUSR
00602 0634 00 4 00605 SXA *+3,4 .001
00603 0074 00 4 00040 TSX $BERM,4 .001
00604 0 00000 0 01714 PZE =HCD02 .001
00605 0774 00 4 00000 AXT **,4 .001
00606 ERTN CDD-1 MOVE TO NEXT SYSTEM FILE OWNER/USER
00606 0634 00 4 00610 SXA *+2,4 .001
00607 0074 00 4 00041 TSX $ERREND,4 .001
00610 0774 00 4 00000 AXT **,4 .001
00611 0020 00 0 00323 TRA CDD-1 .001
*
00612 ERRCD3 BGNERM =HCD03 UFD FILE READING ERROR
00612 0634 00 4 00615 SXA *+3,4 .001
00613 0074 00 4 00040 TSX $BERM,4 .001
00614 0 00000 0 01715 PZE =HCD03 .001
00615 0774 00 4 00000 AXT **,4 .001
00616 ERTN CDD-1 MOVE TO NEXT SYSTEM FILE OWNER/USER
00616 0634 00 4 00620 SXA *+2,4 .001
00617 0074 00 4 00041 TSX $ERREND,4 .001
00620 0774 00 4 00000 AXT **,4 .001
00621 0020 00 0 00323 TRA CDD-1 .001
*
* . . . . . . . . . . . . . . . . . . . .
* CONSTANTS, VARIABLES, ETC.
* . . . . . . . . . . . . . . . . . . . .
*
1 INCREMENTAL NEW FILES DUMP AND COMPLETE DUMP...M.J.BAILEY,12/31/64 PAGE 14
00622 606445256747 MESX BCI 9, UNEXPECTED AND/OR NON-CRUCIAL I/O SYSTEM ERROR RETURN
00623 252363252460
00624 214524614651
00625 604546454023
00626 516423312143
00627 603161466062
00630 706263254460
00631 255151465160
00632 512563645145
00633 IOBUF3 BSS 432
01513 0 00000 0 00000 DAUTH PZE
01514 +000000200660 MDDVC OCT 000000200660
01515 0 00000 0 00030 LNCD PZE NCD
01516 0 00000 0 00014 LDINC PZE DINC
01517 0 00000 0 00000 NODEL PZE
01520 0 00000 0 00000 TEMP PZE
01521 0 00000 0 00000 UDTSW PZE
01522 0 00000 0 00000 TTLD PZE
01523 643326332433 UFDNAM BCI 2,U.F.D.(FILE)
01524 742631432534
01525 443326332433 MFDNAM BCI 1,M.F.D.
01526 604401040106 SFA BCI 2, M1416CMFL01
01527 234426430001
01530 604401040106 BCI 2, M1416CMFL02
01531 234426430002
01532 604401040106 BCI 2, M1416CMFL05
01533 234426430005
01534 0 00000 0 00006 SYSFL PZE *-SFA
01535 606270626325 SDTID BCI 4, SYSTEM-FILES DUMP TAPE
01536 444026314325
01537 626024644447
01540 606321472560
01541 606270626325 SSDMES BCI 7, SYSTEM-FILE COMPLETE DUMP BEGINNING.
01542 444026314325
01543 602346444743
01544 256325602464
01545 444760222527
01546 314545314527
01547 336060606060
01550 604525666051 BCI 6, NEW REELS SHOULD BE MOUNTED.
01551 252543626062
01552 304664432460
01553 222560444664
01554 456325243360
01555 606060606060
01556 0 00000 0 00015 LSSDMS PZE *-SSDMES
01557 602545246046 ESDMES BCI 6, END OF SYSTEM-FILE COMPLETE DUMP.
01560 266062706263
01561 254440263143
01562 256023464447
01563 432563256024
01564 644447336060
01565 605125444665 BCI 8, REMOVE AND SAVE BOTH COPIES OF THIS DUMP TAPE,
01566 256021452460
01567 622165256022
01570 466330602346
1 INCREMENTAL NEW FILES DUMP AND COMPLETE DUMP...M.J.BAILEY,12/31/64 PAGE 15
01571 473125626046
01572 266063303162
01573 602464444760
01574 632147257360
01575 602162606246 BCI 4, AS SOON AS POSSIBLE.
01576 464560216260
01577 474662623122
01600 432533606060
01601 0 00000 0 00022 LESDMS PZE *-ESDMES
01602 606462255162 UFDTID BCI 4, USERS'-FILES DUMP TAPE
01603 144026314325
01604 626024644447
01605 606321472560
01606 646225514026 SUDMES BCI 7,USER-FILE COMPLETE DUMP BEGINNING.
01607 314325602346
01610 444743256325
01611 602464444760
01612 222527314545
01613 314527336060
01614 606060606060
01615 604525666051 BCI 6, NEW REELS SHOULD BE MOUNTED.
01616 252543626062
01617 304664432460
01620 222560444664
01621 456325243360
01622 606060606060
01623 0 00000 0 00015 LSUDMS PZE *-SUDMES
01624 604721453123 ALLMES BCI 3, PANIC UNMOUNT,
01625 606445444664
01626 456373606060
01627 602464444760 BCI 7, DUMP MAP NOT DUMPED ON THESE TAPES
01630 442147604546
01631 636024644447
01632 252460464560
01633 633025622560
01634 632147256260
01635 606060606060
01636 0 00000 0 00012 LALMES PZE *-ALLMES
01637 602545246046 EUDMES BCI 6, END OF USERS'-FILES COMPLETE DUMP.
01640 266064622551
01641 621440263143
01642 256260234644
01643 474325632560
01644 246444473360
01645 605125444665 BCI 8, REMOVE AND SAVE BOTH COPIES OF THIS DUMP TAPE,
01646 256021452460
01647 622165256022
01650 466330602346
01651 473125626046
01652 266063303162
01653 602464444760
01654 632147257360
01655 602162606246 BCI 4, AS SOON AS POSSIBLE.
01656 464560216260
01657 474662623122
01660 432533606060
1 INCREMENTAL NEW FILES DUMP AND COMPLETE DUMP...M.J.BAILEY,12/31/64 PAGE 16
01661 0 00000 0 00022 LEUDMS PZE *-EUDMES
INSERT DCMEQB
*
* . . . . . . . . . . . . . . . . . .
* COMMON AND EQUIVALENCE FOR GENERAL DUMP PROGRAM
* . . . . . . . . . . . . . . . . . .
*
075032 DEMKEY BOOL 75032 CORE A LOCATION FOR DAEMON'S KEY SETTING
075105 SYSTIM BOOL 75105 CORE A LOCATION FOR SYSTEM TIME
075104 SYSDAT BOOL 75104 CORE A LOCATION FOR SYSTEM INIT. DATE
076147 RCODE BOOL 76147 CORE A LOCATION FOR RESTRICTION CODE VECTOR
075040 AUTOND BOOL 75040 CORE A AUTOMATIC LOGOUT INDICATOR
075052 NUSERS BOOL 75052 CORE A LOGGED-IN USER COUNT
076426 PROBN BOOL 76426 CORE A PROBNO ARRAY
076362 PROGN BOOL 76362 CORE A PROGNO ARRAY
075113 PB BOOL 75113 CORE A GUARANTEED PERCENTAGE VECTOR BASE
000043 N BOOL 43 CORE A MAX. NO. OF USERS (SIZE OF PROBN)
*
000017 BASE BOOL 17 KEY CODE BASE
000001 I BOOL 1 KEY CODE TO START INCREMENTAL DUMP
000002 PAUSE BOOL 2 KEY CODE TO WAIT FOR 1 MIN.
000003 C BOOL 3 KEY CODE TO DO COMPLETE DUMP
000004 AK BOOL 4 KEY CODE FOR IMPENDING AUTOLOGOUT
000005 ENFLSH BOOL 5 KEY CODE TO ENTER FLUSH MODE
000006 LVFLSH BOOL 6 KEY CODE TO LEAVE FLUSH MODE
000007 ENDTAP BOOL 7 KEY CODE TO TERMINATE DUMP TAPE FILE
000010 INT BOOL 10 SIMULATE INTERRUPT
00660 RECSIZ EQU 432 TAPE RECORD SIZE
00006 NX EQU 6 MAX. NO. OF SYSTEM FILE OWNERS
00030 NCD EQU 24 MAX. NO. 'DAYS' NON-USE OF CURRENT FILES
00014 DINC EQU 12 NO. DAYS OF 'RECENCY' INCREMENT (C.DUMP)
01274 U EQU 700 MAX. NO. USERS IN MFD USER LIST
03300 TBSIZ EQU 4*RECSIZ TAPE BUFFER SIZE
00007 ERYSIZ EQU 7 I/O SYSTEM ERROR ARRAY SIZE
00014 ERCODA EQU 12 'OPEN' ERROR CODE FOR FILE NOT FOUND
00016 ERCODB EQU 14 'OPEN' ERROR CODE RQSTD. DEVICE UNAVBLE
00660 NW EQU 432 SIZE OF SECONDARY I/O FILE BUFFERS
00001 LSDRUM EQU 1 I/O SYSTEM DEVICE CODE FOR L.S.DRUM
00002 DISK EQU 2 I/O SYSTEM DEVICE CODE FOR DISK
00003 TAPE EQU 3 I/O SYSTEM DEVICE CODE FOR TAPE
00010 NHOUR EQU 8 NO. OF HOURS IN A 'DAY'
77461 KEYVAL COMMON 1 LAST KEY SETTING READ FROM SUPERVISOR
77460 FLSHSW COMMON 1 FLUSH MODE SWITCH
77457 ENTPSW COMMON 1 OPERATOR-REQUESTED-END-TAPE INDICATOR
77456 NMFDU COMMON 1 NO. USERS CURRENTLY IN LIST
77455 EXEMPT COMMON 2*NX LIST OF SYSTEM FILE OWNERS
77441 NXMPT COMMON 1 NO. FILE USERS EXEMPT FROM DUMP IN DCYCLE
77440 DTLD COMMON U TIME LAST DUMPED FOR EACH USER
76144 PROGNO COMMON U PROGRAMMER NO. OF EACH USER
74650 PROBNO COMMON U PROBLEM NO. OF EACH USER
73354 FLUSH COMMON 1 NON-ZERO INDICATES FLUSH MODE IS FORCED
73353 TND COMMON 1 TIME OF NEXT DUMP FOR CURRENT USER
70053 COMMON TBSIZ-1 TAPE BUFFER
70053 TPBUF COMMON 1 TAPE BUFFER 1ST WORD
64553 COMMON TBSIZ-1 2ND TAPE BUFFER
64553 TPBUF2 COMMON 1 2ND TAPE BUFFER, 1ST WORD
1 INCREMENTAL NEW FILES DUMP AND COMPLETE DUMP...M.J.BAILEY,12/31/64 PAGE 17
64544 COMMON ERYSIZ-1 ERROR ARRAY
64544 ERAY COMMON 1 ERROR ARRAY 1ST WORD
64526 COMMON 13 PRINT BUFFER
64526 PBF COMMON 1 PRINT BUFFER 1ST WORD
64510 COMMON 13 MFD ENTRY BUFFER
64510 MFDENT COMMON 1 MFD ENTRY BUFFER 1ST WORD
63630 COMMON NW-1 SECONDARY I/0 FILE BUFFER
63630 IOBUF COMMON 1 SECONDARY IO BUFFER 1ST WORD
62750 COMMON NW-1 SECONDARY I/O FILE BUFFER
62750 IOBUF2 COMMON 1 SECONDARY I/O BUFFER 1ST WORD
62747 UFDEOF COMMON 1 ZERO INDICATES EOF IN UFD FILE
62741 COMMON 5 PARTIAL UFD ENTRY BUFFER
62741 UFDENT COMMON 1 PARTIAL UFD ENTRY BUFFER 1ST WORD
62740 MFDC COMMON 1 NEXT WORD TO BE READ FROM MFD FILE
62737 TLD COMMON 1 TIME LAST DUMP OF USER CURRENTLY DUMPING
62736 UFDC COMMON 1 NEXT UNREAD POS. OF UFDFILE (NORMALLY ZERO)
62735 MFDEOF COMMON 1 ZERO INDICATES EOF IN MFD FILE
62734 EOFCT COMMON 1 NO. OF WORDS READ BEFORE AN EOF
62733 FEOF COMMON 1 ZERO INDICATES EOF IN A USER FILE
62732 EOFCTA COMMON 1 NO. OF WORDS BEFORE AN EOF
62731 DMPSW COMMON 1 NON-ZERO INDICATES A FILE HAS BEEN DUMPED
62730 DAWN COMMON 1 TIME OF START OF 'DAY'
62727 DMPUSR COMMON 1 PROBLEM NO. OF DUMP/LOAD PACKAGE
62726 DMPRGR COMMON 1 PROGRAMMER NO. OF DITTO.
62727 DU EQU DMPUSR
62726 DP EQU DMPRGR
62725 MFD1W COMMON 1 NO. OF 1ST GOOD WORD IN MFD AND UFD FILES
62723 COMMON 1 2ND PART OF DUMP TAPE FILE (COPY 1) NAME
62723 NFN1 COMMON 1 1ST PART OF DUMP TAPE FILE (COPY 1) NAME
62721 COMMON 1 2ND PART OF DUMP TAPE FILE (COPY 2) NAME
62721 NFN2 COMMON 1 1ST PART OF DUMP TAPE FILE (COPY 2) NAME
62720 TNDSW COMMON 1 INDICATES TIME OF THIS DUMP CURRENT OR NO
62040 COMMON RECSIZ-1 INTERNAL TAPE BUFFER
62040 ITB1 COMMON 1 ,, ,, ,, 1ST WORD
61160 COMMON RECSIZ-1 INTERNAL TAPE BUFFER
61160 ITB2 COMMON 1 ,, ,, ,, 1ST WORD
61157 DUSK COMMON 1 TIME OF END OF CURRENT 'DAY'
61156 ENDSW COMMON 1 IF 1, NORMAL END-OF-DAY,ELSE OPERATOR ONE
60276 COMMON NW-1 INTERNAL BUFFER FOR 'MAP' FILE
60276 IMP COMMON 1 ,, ,, ,, ,, ,, 1ST WORD
60267 COMMON 6 'MAP' FILE LINE PARAMETER ARRAY
60267 ARGLST COMMON 1 ,, ,, ,, ,, ,, 1ST WORD
60266 CDSW COMMON 1 NON-ZERO DURING COMPLETE DUMP,ELSE ZERO
60265 DATE COMMON 1 DATE THE DUMP NOW IN PROGRESS BEGAN
60264 TIME COMMON 1 TIME DUMP NOW IN PROGRESS BEGAN
60263 TCYCLE COMMON 1 'TIME' OF LAST CYCLE ON DUMP TAPE FILE
60262 TFOSW COMMON 1 NON-ZERO IF DUMP TAPE FILE IS OPEN
60261 ALOG COMMON 1 NON-ZERO IF AUTOLOGOUT ON
60260 SW1 COMMON 1
60257 TCP COMMON 1
60256 TNDSAV COMMON 1
60255 ODAWN COMMON 1 TIME OF START OF PREVIOUS 'DAY'
60244 COMMON 8 TAPE LABEL
60244 TAPEID COMMON 1 TAPE LABEL 1ST WORD
60243 SKELSW COMMON 1
60254 REELNO EQU TAPEID+8
1 INCREMENTAL NEW FILES DUMP AND COMPLETE DUMP...M.J.BAILEY,12/31/64 PAGE 18
END
REMOTE SEQUENCES
01662 606445256747 ..003 BCI 7, UNEXPECTED READ INTERLOCK TRAP IN DUMPER. .001
01663 252363252460
01664 512521246031
01665 456325514346
01666 234260635121
01667 476031456024
01670 644447255133
01671 602346444743 ..006 BCI 8, COMPLETE DUMP HAS TO BE ABANDONED. RE-ASSEMBLE. .001
01672 256325602464
01673 444760302162
01674 606346602225
01675 602122214524
01676 464525243360
01677 512540216262
01700 254422432533
LITERALS
01701 000000000000
01702 000000000001
01703 000000000002
01704 000000000003
01705 000000000004
01706 000000000013
01707 000000000014
01710 000000077777
01711 000000303237
01712 214343606060
01713 232400016060
01714 232400026060
01715 232400036060
01716 245162634651
01717 263143253301
01720 263143253302
01721 332464444733
01722 400000000000
01723 516060606060
01724 601111111111
01725 602300000506
01726 627062632544
01727 646225516214
01730 777777000000
1 INCREMENTAL NEW FILES DUMP AND COMPLETE DUMP...M.J.BAILEY,12/31/64 PAGE 1
POST PROCESSOR ASSEMBLY DATA
60242 IS THE LAST LOCATION NOT USED BY THIS PROGRAM
1731 IS THE FIRST LOCATION NOT USED BY THIS PROGRAM
0REFERENCES TO DEFINED SYMBOLS
3 C 1662
1 I 1662
43 N 1662
1274 U 1662
4 AK 1662
135 D3 100
160 D4 137
62726 DP 60, 1662
62727 DU 57, 1662
660 NW 1662
6 NX 235, 1662
516 O4 502, 520, 527
75113 PB 1662
237 CDB 243
311 CDC 324
324 CDD 611, 621
431 CDF 423
36 DMF 337, 447
35 EMF 335, 445
31 GDT 260, 272, 305, 403, 424
60276 IMP 1662
10 INT 1662
30 NCD 1515, 1662
64526 PBF 120, 124, 127, 144, 150, 153, 565, 571, 574, 1662
25 SDF 251, 373
1526 SFA 1534
26 SMF 253, 375
60260 SW1 1662
60257 TCP 304, 1662
62737 TLD 303, 401, 422, 1662
73353 TND 274, 1662
27 WMH 254, 376
60261 ALOG 1662
17 BASE 1662
40 BERM 560, 603, 613
60266 CDSW 215, 232, 1662
60265 DATE 1662
62730 DAWN 1662
14 DINC 1516, 1662
2 DISK 1662
15 DKEY 51
77440 DTLD 1662
61157 DUSK 1662
114 ELOC 77
64544 ERAY 1662
20 EXIT 113, 500, 556
62733 FEOF 1662
140 ILOC 136
62040 ITB1 1662
61160 ITB2 1662
1 INCREMENTAL NEW FILES DUMP AND COMPLETE DUMP...M.J.BAILEY,12/31/64 PAGE 2
POST PROCESSOR ASSEMBLY DATA
1515 LNCD 302
622 MESX 117
62740 MFDC 1662
62723 NFN1 161, 164, 346, 347, 456, 457, 1662
62721 NFN2 162, 166, 351, 352, 461, 462, 1662
4 OPEN 506
472 QUIT 601
3 TAPE 1662
1520 TEMP 177, 205
60264 TIME 1662
1522 TTLD 402, 421
62736 UFDC 1662
13 ALLOT 61, 64, 67
424 AUTOM 417
230 CDUMP 210, 216, 220, 223
5 CLOSE 103, 167, 345, 350, 455, 460, 524
1513 DAUTH
62731 DMPSW 1662
34 DUSR1 317
132 ELOC1 115
133 ELOC4 114
61156 ENDSW 1662
62734 EOFCT 1662
73354 FLUSH 307, 1662
24 GDSIG 233, 322, 361, 400, 463
155 ILOC1 141
156 ILOC4 140
63630 IOBUF 1662
1662 ..003 143
1671 ..006 564
1516 LDINC
1514 MDDVC
62725 MFD1W 75, 1662
10 NHOUR 1662
77456 NMFDU 1662
1517 NODEL 73, 214, 477
77441 NXMPT 236, 1662
60255 ODAWN 213, 1662
2 PAUSE 1662
101 PEXIT 46
76426 PROBN 1662
76362 PROGN 1662
76147 RCODE 1662
1535 SDTID 246
14 SETIO 43
1534 SYSFL 234, 237, 241, 310, 313, 315
3300 TBSIZ 1662
60262 TFOSW 217, 231, 472, 1662
62720 TNDSW 426, 1662
70053 TPBUF 244, 366, 1662
1521 UDTSW 72, 224, 416, 420
6 WRFLX 123, 147, 570
1624 ALLMES 111, 173, 1636
60267 ARGLST 1662
2 ATTACH 56, 340, 450, 503, 521
1 INCREMENTAL NEW FILES DUMP AND COMPLETE DUMP...M.J.BAILEY,12/31/64 PAGE 3
POST PROCESSOR ASSEMBLY DATA
75040 AUTOND 1662
3 BUFFER 512
12 CHFILE 530, 543
520 CLSMFD 434
530 DAMMIT 501
37 DCYCLE 431
1 DELFIL 537, 552
75032 DEMKEY 1662
32 DMPFIL 271, 334, 414, 444
62726 DMPRGR 53, 342, 452, 1662
62727 DMPUSR 55, 341, 451, 1662
22 DRSTOR 211
30 DTSAVE 256, 276, 311, 343, 362, 364, 427, 453, 473, 475
7 ENDTAP 1662
5 ENFLSH 1662
77457 ENTPSW 1662
62732 EOFCTA 1662
14 ERCODA 1662
16 ERCODB 1662
557 ERRCD1 235
602 ERRCD2 320
612 ERRCD3 321
41 ERREND 577, 607, 617
7 ERYSIZ 1662
1557 ESDMES 355, 360, 1601
1637 EUDMES 466, 471, 1661
77455 EXEMPT 240, 242, 1662
10 FERRTN 76
77460 FLSHSW 1662
0 FSTATE 174, 202
62750 IOBUF2 1662
633 IOBUF3 515
17 IOFINI 112
16 IORSET 102
77461 KEYVAL 1662
1636 LALMES 111, 173
1601 LESDMS 355, 360
1661 LEUDMS 466, 471
1 LSDRUM 1662
1556 LSSDMS 252
1623 LSUDMS 374
6 LVFLSH 1662
64510 MFDENT 266, 270, 314, 316, 331, 333, 411, 413, 441, 443, 1662
62735 MFDEOF 230, 1662
1525 MFDNAM 267, 332, 412, 442, 504, 510, 513, 522, 525
75052 NUSERS 1662
502 OPNMFD 415
21 PRNTER 131
74650 PROBNO 1662
76144 PROGNO 1662
660 RECSIZ 1662
60254 REELNO 1662
211 RSTORE 201, 207
23 SAVMAP 225
60243 SKELSW 1662
1 INCREMENTAL NEW FILES DUMP AND COMPLETE DUMP...M.J.BAILEY,12/31/64 PAGE 4
POST PROCESSOR ASSEMBLY DATA
1541 SSDMES 252, 1556
33 SUBDAY 301
1606 SUDMES 374, 1623
75104 SYSDAT 1662
75105 SYSTIM 1662
60244 TAPEID 247, 371, 1662
60263 TCYCLE 261, 306, 404, 425, 1662
11 TILOCK 135
60256 TNDSAV 275, 300, 1662
64553 TPBUF2 1662
366 UDTPAT 227
62741 UFDENT 263, 265, 326, 330, 406, 410, 436, 440, 1662
62747 UFDEOF 1662
1523 UFDNAM 262, 264, 325, 327, 405, 407, 435, 437, 505, 511, 514, 523, 526
1602 UFDTID 370
7 UMOUNT 107, 171, 353, 356, 464, 467
0 NO ERROR IN ABOVE ASSEMBLY.
SDCYCA BCD 05/28/67 1807.1 3568 00000
1 SUBROUTINE TO PERFORM ONE GENERAL DUMP CYCLE....M.J.BAILEY,11/30/64 PAGE 1
*
00005 ENTRY DCYCLE
*
* . . . . . . . . . . . . . . . . . . . .
* INITIALIZATION OF GENERAL DUMP CYCLE
* . . . . . . . . . . . . . . . . . . . .
*
TRANSFER VECTOR
00000 512444262460 RDMFD
00001 246462516760 DUSRX
00002 246362216525 DTSAVE
LINKAGE DIRECTOR
00003 000000000000
00004 242370234325
00005 0500 00 0 62735 DCYCLE CLA MFDEOF ENSURE MFD FILE READ STARTING AT
00006 -0100 00 0 00012 TNZ *+4
00007 0500 00 0 62725 CLA MFD1W
00010 0601 00 0 62740 STO MFDC 1ST GOOD WORD
00011 0601 00 0 62735 STO MFDEOF SET MFD FILE EOF INDICATOR NON-ZERO
00012 0634 00 1 00064 SXA NXY,1
00013 0634 00 2 00065 SXA NXZ,2
00014 0634 00 7 00066 SXA NXZZ,7
00015 0634 00 4 00020 SXA DCYC4,4
*
* . . . . . . . . . . . . . . . . . . . .
* START OF DUMP CYCLE
* . . . . . . . . . . . . . . . . . . . .
*
*
* READ NEXT USER'S ENTRY FROM MFD
*
00016 0074 00 4 00000 NXUSR TSX $RDMFD,4 READ NEXT USER'S MFD ENTRY INTO MFDENT
00017 0020 00 0 00061 TRA NXIB ERROR RETURN, GO TO NEXT USER
00020 0774 00 4 00000 DCYC4 AXT **,4
*
00021 0534 00 1 00100 LXA NALDXM,1 IS THIS USER EXEMPT FROM ALL DUMPS
00022 -0500 00 0 64510 CAL MFDENT
00023 -0340 00 1 00100 ZA LAS NALDXM,1
00024 0020 00 0 00026 TRA ZB
00025 0020 00 0 00030 TRA ZC
00026 2 00002 1 00023 ZB TIX ZA,1,2
00027 0020 00 0 00036 TRA ZD
00030 -0500 00 0 64511 ZC CAL MFDENT+1
00031 -0340 00 1 00101 LAS NALDXM+1,1
00032 0020 00 0 00034 TRA *+2
00033 0020 00 0 00061 TRA NXIB YES, EXEMPT, GO TO NEXT USER
00034 -0500 00 0 64510 CAL MFDENT
00035 0020 00 0 00026 TRA ZB
*
* CHECK WHETHER THIS USER IS EXEMPT FROM THIS DUMP
*
00036 0534 00 1 77441 ZD LXA NXMPT,1
00037 -0500 00 0 64510 CAL MFDENT USER PROBNO.
1 SUBROUTINE TO PERFORM ONE GENERAL DUMP CYCLE....M.J.BAILEY,11/30/64 PAGE 2
00040 -0340 00 1 77456 NXA LAS EXEMPT+1,1 IS IT THAT OF NEXT EXEMPT USER
00041 0020 00 0 00043 TRA NXB NO, HE IS NOT THIS EXEMPT USER
00042 0020 00 0 00045 TRA *+3 COULD BE, HIS PROBLEM NO. MATCHES
00043 2 00002 1 00040 NXB TIX NXA,1,2 NO, GO TRY NEXT EXEMPT USER PROBNO
00044 0020 00 0 00053 TRA NXBB THIS USER NOT EXEMPT, GO DUMP HIM
00045 -0500 00 0 64511 CAL MFDENT+1 PROB. NO. MATCHES, LOOK AT HIS PROG. NO.
00046 -0340 00 1 77457 LAS EXEMPT+2,1
00047 0020 00 0 00051 TRA *+2 NO MATCH
00050 0020 00 0 00061 TRA NXIB YES, HE IS EXEMPT, GO TO NEXT USER
00051 -0500 00 0 64510 CAL MFDENT NO, HE IS NOT THIS EXEMPT USER,
00052 0020 00 0 00043 TRA NXB GO BACK TO TRY NEXT
*
* UPDATE THE USER'S FILE DIRECTORY
*
00053 0074 00 4 00001 NXBB TSX $DUSRX,4
00054 0020 00 0 00056 TRA NXBC ('IMPOSSBCLE')
00055 0020 00 0 00056 TRA NXBC ERROR RETURN
00056 0774 00 1 00003 NXBC AXT 3,1 NORMAL RETURN
00057 0074 00 4 00002 TSX $DTSAVE,4 SAVE USER LIST ETC. ON DISK
00060 2 00001 1 00057 TIX *-1,1,1 ERROR RETURN, TRY UP TO 3 TIMES
00061 0520 00 0 62735 NXIB ZET MFDEOF
00062 0020 00 0 00016 TRA NXUSR NO, RETURN FOR NEXT
*
00063 0534 00 4 00020 LXA DCYC4,4 YES, PREPARE TO RETURN TO CALLER
00064 0774 00 1 00000 NXY AXT **,1
00065 0774 00 2 00000 NXZ AXT **,2
00066 0774 00 7 00000 NXZZ AXT **,7
00067 0020 00 4 00003 TRA 3,4 RETURN TO CALLER
*
* CONSTANTS, VARIABLES, ETC.
*
00070 443326332433 ALLDXM BCI 2,M.F.D.(FILE)
00071 742631432534
00072 245164446463 BCI 2,DRUMUT(FILE)
00073 742631432534
00074 243162426463 BCI 2,DISKUT(FILE)
00075 742631432534
00076 602300000506 BCI 2, C0056 99999
00077 601111111111
T 00100 -0754 00 0 00010 NALDXM PXD *-ALLDXM
INSERT DCMEQB
*
* . . . . . . . . . . . . . . . . . .
* COMMON AND EQUIVALENCE FOR GENERAL DUMP PROGRAM
* . . . . . . . . . . . . . . . . . .
*
075032 DEMKEY BOOL 75032 CORE A LOCATION FOR DAEMON'S KEY SETTING
075105 SYSTIM BOOL 75105 CORE A LOCATION FOR SYSTEM TIME
075104 SYSDAT BOOL 75104 CORE A LOCATION FOR SYSTEM INIT. DATE
076147 RCODE BOOL 76147 CORE A LOCATION FOR RESTRICTION CODE VECTOR
075040 AUTOND BOOL 75040 CORE A AUTOMATIC LOGOUT INDICATOR
075052 NUSERS BOOL 75052 CORE A LOGGED-IN USER COUNT
076426 PROBN BOOL 76426 CORE A PROBNO ARRAY
076362 PROGN BOOL 76362 CORE A PROGNO ARRAY
075113 PB BOOL 75113 CORE A GUARANTEED PERCENTAGE VECTOR BASE
000043 N BOOL 43 CORE A MAX. NO. OF USERS (SIZE OF PROBN)
1 SUBROUTINE TO PERFORM ONE GENERAL DUMP CYCLE....M.J.BAILEY,11/30/64 PAGE 3
*
000017 BASE BOOL 17 KEY CODE BASE
000001 I BOOL 1 KEY CODE TO START INCREMENTAL DUMP
000002 PAUSE BOOL 2 KEY CODE TO WAIT FOR 1 MIN.
000003 C BOOL 3 KEY CODE TO DO COMPLETE DUMP
000004 AK BOOL 4 KEY CODE FOR IMPENDING AUTOLOGOUT
000005 ENFLSH BOOL 5 KEY CODE TO ENTER FLUSH MODE
000006 LVFLSH BOOL 6 KEY CODE TO LEAVE FLUSH MODE
000007 ENDTAP BOOL 7 KEY CODE TO TERMINATE DUMP TAPE FILE
000010 INT BOOL 10 SIMULATE INTERRUPT
00660 RECSIZ EQU 432 TAPE RECORD SIZE
00006 NX EQU 6 MAX. NO. OF SYSTEM FILE OWNERS
00030 NCD EQU 24 MAX. NO. 'DAYS' NON-USE OF CURRENT FILES
00014 DINC EQU 12 NO. DAYS OF 'RECENCY' INCREMENT (C.DUMP)
01274 U EQU 700 MAX. NO. USERS IN MFD USER LIST
03300 TBSIZ EQU 4*RECSIZ TAPE BUFFER SIZE
00007 ERYSIZ EQU 7 I/O SYSTEM ERROR ARRAY SIZE
00014 ERCODA EQU 12 'OPEN' ERROR CODE FOR FILE NOT FOUND
00016 ERCODB EQU 14 'OPEN' ERROR CODE RQSTD. DEVICE UNAVBLE
00660 NW EQU 432 SIZE OF SECONDARY I/O FILE BUFFERS
00001 LSDRUM EQU 1 I/O SYSTEM DEVICE CODE FOR L.S.DRUM
00002 DISK EQU 2 I/O SYSTEM DEVICE CODE FOR DISK
00003 TAPE EQU 3 I/O SYSTEM DEVICE CODE FOR TAPE
00010 NHOUR EQU 8 NO. OF HOURS IN A 'DAY'
77461 KEYVAL COMMON 1 LAST KEY SETTING READ FROM SUPERVISOR
77460 FLSHSW COMMON 1 FLUSH MODE SWITCH
77457 ENTPSW COMMON 1 OPERATOR-REQUESTED-END-TAPE INDICATOR
77456 NMFDU COMMON 1 NO. USERS CURRENTLY IN LIST
77455 EXEMPT COMMON 2*NX LIST OF SYSTEM FILE OWNERS
77441 NXMPT COMMON 1 NO. FILE USERS EXEMPT FROM DUMP IN DCYCLE
77440 DTLD COMMON U TIME LAST DUMPED FOR EACH USER
76144 PROGNO COMMON U PROGRAMMER NO. OF EACH USER
74650 PROBNO COMMON U PROBLEM NO. OF EACH USER
73354 FLUSH COMMON 1 NON-ZERO INDICATES FLUSH MODE IS FORCED
73353 TND COMMON 1 TIME OF NEXT DUMP FOR CURRENT USER
70053 COMMON TBSIZ-1 TAPE BUFFER
70053 TPBUF COMMON 1 TAPE BUFFER 1ST WORD
64553 COMMON TBSIZ-1 2ND TAPE BUFFER
64553 TPBUF2 COMMON 1 2ND TAPE BUFFER, 1ST WORD
64544 COMMON ERYSIZ-1 ERROR ARRAY
64544 ERAY COMMON 1 ERROR ARRAY 1ST WORD
64526 COMMON 13 PRINT BUFFER
64526 PBF COMMON 1 PRINT BUFFER 1ST WORD
64510 COMMON 13 MFD ENTRY BUFFER
64510 MFDENT COMMON 1 MFD ENTRY BUFFER 1ST WORD
63630 COMMON NW-1 SECONDARY I/0 FILE BUFFER
63630 IOBUF COMMON 1 SECONDARY IO BUFFER 1ST WORD
62750 COMMON NW-1 SECONDARY I/O FILE BUFFER
62750 IOBUF2 COMMON 1 SECONDARY I/O BUFFER 1ST WORD
62747 UFDEOF COMMON 1 ZERO INDICATES EOF IN UFD FILE
62741 COMMON 5 PARTIAL UFD ENTRY BUFFER
62741 UFDENT COMMON 1 PARTIAL UFD ENTRY BUFFER 1ST WORD
62740 MFDC COMMON 1 NEXT WORD TO BE READ FROM MFD FILE
62737 TLD COMMON 1 TIME LAST DUMP OF USER CURRENTLY DUMPING
62736 UFDC COMMON 1 NEXT UNREAD POS. OF UFDFILE (NORMALLY ZERO)
62735 MFDEOF COMMON 1 ZERO INDICATES EOF IN MFD FILE
1 SUBROUTINE TO PERFORM ONE GENERAL DUMP CYCLE....M.J.BAILEY,11/30/64 PAGE 4
62734 EOFCT COMMON 1 NO. OF WORDS READ BEFORE AN EOF
62733 FEOF COMMON 1 ZERO INDICATES EOF IN A USER FILE
62732 EOFCTA COMMON 1 NO. OF WORDS BEFORE AN EOF
62731 DMPSW COMMON 1 NON-ZERO INDICATES A FILE HAS BEEN DUMPED
62730 DAWN COMMON 1 TIME OF START OF 'DAY'
62727 DMPUSR COMMON 1 PROBLEM NO. OF DUMP/LOAD PACKAGE
62726 DMPRGR COMMON 1 PROGRAMMER NO. OF DITTO.
62727 DU EQU DMPUSR
62726 DP EQU DMPRGR
62725 MFD1W COMMON 1 NO. OF 1ST GOOD WORD IN MFD AND UFD FILES
62723 COMMON 1 2ND PART OF DUMP TAPE FILE (COPY 1) NAME
62723 NFN1 COMMON 1 1ST PART OF DUMP TAPE FILE (COPY 1) NAME
62721 COMMON 1 2ND PART OF DUMP TAPE FILE (COPY 2) NAME
62721 NFN2 COMMON 1 1ST PART OF DUMP TAPE FILE (COPY 2) NAME
62720 TNDSW COMMON 1 INDICATES TIME OF THIS DUMP CURRENT OR NO
62040 COMMON RECSIZ-1 INTERNAL TAPE BUFFER
62040 ITB1 COMMON 1 ,, ,, ,, 1ST WORD
61160 COMMON RECSIZ-1 INTERNAL TAPE BUFFER
61160 ITB2 COMMON 1 ,, ,, ,, 1ST WORD
61157 DUSK COMMON 1 TIME OF END OF CURRENT 'DAY'
61156 ENDSW COMMON 1 IF 1, NORMAL END-OF-DAY,ELSE OPERATOR ONE
60276 COMMON NW-1 INTERNAL BUFFER FOR 'MAP' FILE
60276 IMP COMMON 1 ,, ,, ,, ,, ,, 1ST WORD
60267 COMMON 6 'MAP' FILE LINE PARAMETER ARRAY
60267 ARGLST COMMON 1 ,, ,, ,, ,, ,, 1ST WORD
60266 CDSW COMMON 1 NON-ZERO DURING COMPLETE DUMP,ELSE ZERO
60265 DATE COMMON 1 DATE THE DUMP NOW IN PROGRESS BEGAN
60264 TIME COMMON 1 TIME DUMP NOW IN PROGRESS BEGAN
60263 TCYCLE COMMON 1 'TIME' OF LAST CYCLE ON DUMP TAPE FILE
60262 TFOSW COMMON 1 NON-ZERO IF DUMP TAPE FILE IS OPEN
60261 ALOG COMMON 1 NON-ZERO IF AUTOLOGOUT ON
60260 SW1 COMMON 1
60257 TCP COMMON 1
60256 TNDSAV COMMON 1
60255 ODAWN COMMON 1 TIME OF START OF PREVIOUS 'DAY'
60244 COMMON 8 TAPE LABEL
60244 TAPEID COMMON 1 TAPE LABEL 1ST WORD
60243 SKELSW COMMON 1
60254 REELNO EQU TAPEID+8
END
1 SUBROUTINE TO PERFORM ONE GENERAL DUMP CYCLE....M.J.BAILEY,11/30/64 PAGE 1
POST PROCESSOR ASSEMBLY DATA
60242 IS THE LAST LOCATION NOT USED BY THIS PROGRAM
101 IS THE FIRST LOCATION NOT USED BY THIS PROGRAM
0REFERENCES TO DEFINED SYMBOLS
3 C 101
1 I 101
43 N 101
1274 U 101
4 AK 101
62726 DP 101
62727 DU 101
660 NW 101
6 NX 101
75113 PB 101
23 ZA 26
26 ZB 24, 35
30 ZC 25
36 ZD 27
60276 IMP 101
10 INT 101
30 NCD 101
40 NXA 43
43 NXB 41, 52
64 NXY 12
65 NXZ 13
64526 PBF 101
60260 SW1 101
60257 TCP 101
62737 TLD 101
73353 TND 101
60261 ALOG 101
17 BASE 101
60266 CDSW 101
60265 DATE 101
62730 DAWN 101
14 DINC 101
2 DISK 101
77440 DTLD 101
61157 DUSK 101
64544 ERAY 101
62733 FEOF 101
62040 ITB1 101
61160 ITB2 101
62740 MFDC 10, 101
62723 NFN1 101
62721 NFN2 101
53 NXBB 44
56 NXBC 54, 55
61 NXIB 17, 33, 50
66 NXZZ 14
3 TAPE 101
60264 TIME 101
62736 UFDC 101
20 DCYC4 15, 63
1 SUBROUTINE TO PERFORM ONE GENERAL DUMP CYCLE....M.J.BAILEY,11/30/64 PAGE 2
POST PROCESSOR ASSEMBLY DATA
62731 DMPSW 101
1 DUSRX 53
61156 ENDSW 101
62734 EOFCT 101
73354 FLUSH 101
63630 IOBUF 101
62725 MFD1W 7, 101
10 NHOUR 101
77456 NMFDU 101
77441 NXMPT 36, 101
16 NXUSR 62
60255 ODAWN 101
2 PAUSE 101
76426 PROBN 101
76362 PROGN 101
76147 RCODE 101
0 RDMFD 16
3300 TBSIZ 101
60262 TFOSW 101
62720 TNDSW 101
70053 TPBUF 101
70 ALLDXM 100
60267 ARGLST 101
75040 AUTOND 101
5 DCYCLE 0
75032 DEMKEY 101
62726 DMPRGR 101
62727 DMPUSR 101
2 DTSAVE 57
7 ENDTAP 101
5 ENFLSH 101
77457 ENTPSW 101
62732 EOFCTA 101
14 ERCODA 101
16 ERCODB 101
7 ERYSIZ 101
77455 EXEMPT 40, 46, 101
77460 FLSHSW 101
62750 IOBUF2 101
77461 KEYVAL 101
1 LSDRUM 101
6 LVFLSH 101
64510 MFDENT 22, 30, 34, 37, 45, 51, 101
62735 MFDEOF 5, 11, 61, 101
100 NALDXM 21, 23, 31
75052 NUSERS 101
74650 PROBNO 101
76144 PROGNO 101
660 RECSIZ 101
60254 REELNO 101
60243 SKELSW 101
75104 SYSDAT 101
75105 SYSTIM 101
60244 TAPEID 101
60263 TCYCLE 101
1 SUBROUTINE TO PERFORM ONE GENERAL DUMP CYCLE....M.J.BAILEY,11/30/64 PAGE 3
POST PROCESSOR ASSEMBLY DATA
60256 TNDSAV 101
64553 TPBUF2 101
62741 UFDENT 101
62747 UFDEOF 101
0 NO ERROR IN ABOVE ASSEMBLY.
DPUSRB BCD 05/28/67 1807.1 18388 00000
1 SUBROUTINE TO DUMP ONE USER'S FILES....M.J.BAILEY,11/30/64 PAGE 1
*
* DUSR DUMPS THOSE OF THE USER DEFINED BY THE PARTIAL MFD ENTRY
* CONTAINED IN COMMON LOCATIONS MFDENT THROUGH MFDENT+6.
* FILES WHOSE DATE/TIME LAST MODIFIED IS T, WILL BE DUMPED, WHERE
* TLD IS LESS THAN OR EQUALS T AND T IS LESS THAN TND. TLD AND TND
* ARE ALSO ALREADY SET IN COMMON.
* DURING COMPLETE DUMPS, T IS TAKEN AS THE TIME LAST USED FOR EACH
* FILE.
* ONLY FILES ON DISK AND LOW-SPEED DRUM ARE CURRENTLY DUMPED.
* TEMPORARY FILES ARE NOT DUMPED.
*
* CALLING SEQUENCE - TSX $DUSR,4
* (END-OF-DAY RETURN)
* (ERROR RETURN)
* (NORMAL RETURN)
*
*
00221 ENTRY DUSR DUMP ONE USER'S FILES
00215 ENTRY DMPUFD
00217 ENTRY DUSRX
00113 ENTRY DMNDMP
00150 ENTRY DUSR1 DUMP FILES OF USER WHOSE MFD ENTRY UNREAD
00120 ENTRY DMPFIL DUMP SPECIAL FILE
EXTERN ATTACH,TILOCK,OPEN,BUFFER,FWAIT,CLOSE
EXTERN DELFIL
EXTERN WRFILE,WRFLX,CHFILE,FSTATE,SETFIL
*
INSERT DMCRSA
*
* MACRO TO WRITE N WORDS FROM ARRAY ET SEQ ONTO ALREADY OPENED
* SECONDARY STORAGE FILE (NAME1,NAME2) AND WAIT UNTIL TRANSMITTED.
*
WSSF MACRO ARRAY,N,NAME1,NAME2
TSX ATTACH,4 RE-ATTACH TO DUMPER'S FILES
TXH DMPUSR
TXH DMPRGR
TSX WRFILE,4 WRITE
TXH NAME1 ONTO (NAME1,
TXH NAME2 NAME2)
TXH =0 AT POSITION WHERE LAST CEASED
TIX ARRAY,,N FROM ARRAY THROUGH ARRAY+N-1
TSX FWAIT,4 WAIT
TXH NAME1
TXH NAME2
WSSF END
*
* ZERO-IZE A THROUGH A+X-1
*
CLEAR MACRO A,X
AXT X,1
STZ A+X,1
TIX *-1,1,1
CLEAR END
*
* MOVE X WORDS FROM A ET SEQ TO B ET SEQ
*
1 SUBROUTINE TO DUMP ONE USER'S FILES....M.J.BAILEY,11/30/64 PAGE 2
MOVE MACRO X,A,B
AXT X,1
CAL A+X,1
SLW B+X,1
TIX *-2,1,1
MOVE END
*
* PRINT ONE LINE, CLEAR BUFFER
*
PRBUFF MACRO BUFF,NWDS
SXA *+3,4
TSX WRFLX,4
BUFF,,NWDS
AXT **,4
CLEAR BUFF,NWDS
PRBUFF END
*
* PRINT STANDARD BEGINNING TO DUMPER ERROR MESSAGE
*
BGNERM MACRO TYPE
SXA *+3,4
TSX $BERM,4
PZE TYPE
AXT **,4
BGNERM END
*
* PRINT ONE LINE COMMENT
*
PRLINE MACRO COMNT,NWC,N,WORD1,WORD2,LOC
IFF 0,NWC,0
MOVE NWC,LOC,PBF
IFF N-2,N,1
CAL WORD1
IFF N-2,N,1
SLW PBF+NWC
IFF 1,N,2
CAL WORD2
IFF 1,N,2
SLW PBF+NWC+1
PRBUFF PBF,NWC+N
RMT
LOC BCI NWC,COMNT
RMT
PRLINE END
*
* PRINT ONE LINE MESSAGE
*
PRMESS MACRO MESNAM,N,ADR1,ADR2
TSX $PRLINE,4
BCI 1,MESNAM
IFF N,N,N
TXH ADR1
IFF N,N,N
TXH ADR2
PRMESS END
*
1 SUBROUTINE TO DUMP ONE USER'S FILES....M.J.BAILEY,11/30/64 PAGE 3
* MACRO TO OPEN FILE (X,Y) OF USER (A,B) FOR READING
* AND ASSIGN BUFFER F OF LENGTH L TO I/O SYSTEM FOR THAT PURPOSE.
* ( ERR IS TRANSFER ADDRESS FOR ERROR RETURN )
*
RDOPEN MACRO X,Y,A,B,F,L,ERR
TSX ATTACH,4 ATTACH TO USER (A,B)
TXH A
TXH B
TSX OPEN,4 OPEN FILE (X,Y) FOR READING
TXH R
TXH X
TXH Y
TXH =0
TXH =0
TXH ERR (TRANSFER ADDRESS FOR ERROR)
TSX BUFFER,4 ASSIGN L WORDS OF BUFFER F TO (X,Y)
TXH X
TXH Y
TIX F,,L
RDOPEN END
*
* PRINT ERROR CODE, END MESSAGE
*
ERTN MACRO ADRERR
SXA *+2,4
TSX $ERREND,4
AXT **,4
TRA ADRERR
ERTN END
*
* ASK OPERATOR TO SET KEY CODE DC IF HE WANTS
* ACTION GIVEN BY N-WORD MESSAGE M
*
PRCODE MACRO DC,M,N
TSX $PRCODE,4
TXH DC
TXH M,,N
PRCODE END
*
* TEST LAST KEY SETTING VIA SUPERVISOR, GO TO JUMP IF IT IS CODE
*
TESTKY MACRO CODE,JUMP
TSX $NGETA,7
LDQ DEMKEY
STQ KEYVAL
AXT CODE,1
PXA 0,1
SUB KEYVAL
TZE JUMP
TESTKY END
*
* SET UP LOGICAL TAPE RECORD WRITING
*
LOGREC MACRO X
CLA LTPBF
SUB =12
1 SUBROUTINE TO DUMP ONE USER'S FILES....M.J.BAILEY,11/30/64 PAGE 4
STO TEMP
CAL X+4
ANA =O77777
STO RCOUNT
TSX $NLREC,4
TXH NORECS
TXH RCOUNT
TXH LCOUNT
TXH TEMP
TXH =12
TXH PHYSRC
TXH NFLR
TXH NLAST
LOGREC END
*
*
ATTACH MACRO A,B
TSX ATTACH,4
TXH A
TXH B
ATTACH END
*
* PRINT ERROR MESSAGE AND INTERROGATE KEYS
*
PRERR MACRO
TSX $PRNTER,4
TSX $GDSIG,4
PRERR END
*
*
* . . . . . . . . . . . . . . . . . . . .
* TRANSFER VECTOR, CONSTANTS, VARIABLES,
* . . . . . . . . . . . . . . . . . . . .
*
TRANSFER VECTOR
00000 216363212330 ATTACH
00001 633143462342 TILOCK
00002 464725456060 OPEN
00003 226426262551 BUFFER
00004 266621316360 FWAIT
00005 234346622560 CLOSE
00006 242543263143 DELFIL
00007 665126314325 WRFILE
00010 665126436760 WRFLX
00011 233026314325 CHFILE
00012 266263216325 FSTATE
00013 622563263143 SETFIL
00014 272463606060 GDT
00015 272462312760 GDSIG
00016 454351252360 NLREC
00017 512464262460 RDUFD
00020 665145266060 WRNF
00021 442147433145 MAPLIN
00022 312545642624 IENUFD
00023 254563642624 ENTUFD
1 SUBROUTINE TO DUMP ONE USER'S FILES....M.J.BAILEY,11/30/64 PAGE 5
00024 512426606060 RDF
00025 222551446060 BERM
00026 234223462425 CKCODE
00027 255151254524 ERREND
LINKAGE DIRECTOR
00030 000000000000
00031 246462516060
00032 643326332433 UFDNAM BCI 2,U.F.D.(FILE)
00033 742631432534
00034 516060606060 R BCI 1,R
00035 0 00000 0 00000 TEMP PZE TEMPORARY
00036 646225516026 UFDID BCI 3,USER FILE DIRECTRY
00037 314325602431
00040 512523635170
00041 606270626325 ERSTAT BCI 5, SYSTEM OR MACHINE ERROR.
00042 446046516044
00043 212330314525
00044 602551514651
00045 336060606060
00046 0 00000 0 00000 EMPTSW PZE
00047 0 00000 0 03300 LTPBF PZE TBSIZ SIZE OF TAPE BUFFER
00050 0 00000 0 00660 LBUF PZE NW
00051 0 00000 0 00660 LBUF2 PZE NW
00052 0 00000 0 00000 RCOUNT PZE ** NO. WORDS/PHYS. REC. OF FILE BEING DUMPED
00053 0 00000 0 00000 NORECS PZE ** NO. PHYSICAL RECS. IN FILE BEING DUMPED
00054 0 00000 0 00000 LCOUNT PZE ** NO. WPRDS IN LAST PHYSICAL RECORD
00055 0 00000 0 00000 NFLR PZE **
00056 0 00000 0 00000 NLAST PZE **
00057 0 00000 0 00660 PHYSRC PZE RECSIZ
00060 443326332433 MFDNAM BCI 1,M.F.D.
00061 0 00000 0 00000 STATUS PZE
00062 Y BSS 8
00072 0 00000 0 00007 L7 PZE 7
00073 0 00000 0 00000 ALLSW PZE **
00074 0 00000 0 64553 PZE TPBUF2
00075 0 00000 0 70053 TBA1 PZE TPBUF
00076 0 00000 0 64566 PZE TPBUF2+11
00077 0 00000 0 70066 TBA2 PZE TPBUF+11
00100 0 00000 0 70053 PZE TPBUF2+TBSIZ
00101 0 00000 0 73353 TBA3 PZE TPBUF+TBSIZ
00102 0 00000 0 00000 FLFL PZE **
00103 A BSS 8
*
* ENTRY TO DUMP DAEMON'S FILES
*
00113 -0500 60 4 00001 DMNDMP CAL* 1,4
00114 0602 00 0 62744 SLW UFDENT+3
00115 -0500 60 4 00002 CAL* 2,4
00116 0602 00 0 62745 SLW UFDENT+4
00117 0020 00 0 00123 TRA DMPFIL+3
*
* . . . . . . . . . . . . . . . . . . . .
* ENTRY TO DUMP THE SPECIAL FILE (MFDENT,MFDENT+1,UFDENT,UFDENT+1)
* . . . . . . . . . . . . . . . . . . . .
1 SUBROUTINE TO DUMP ONE USER'S FILES....M.J.BAILEY,11/30/64 PAGE 6
*
00120 0600 00 0 62744 DMPFIL STZ UFDENT+3
00121 0600 00 0 62745 STZ UFDENT+4
00122 1 00002 4 00123 TXI *+1,4,2
00123 0634 00 1 01016 SXA DU1,1
00124 0634 00 2 01017 SXA DU2,2
00125 0634 00 4 01020 SXA DU4,4
00126 0500 00 0 60263 CLA TCYCLE (TIME OF LAST DUMP CYCLEON THIS TAPE)
00127 0601 00 0 64512 STO MFDENT+2 FIX THINGS SO THAT CODING
00130 0600 00 0 62747 STZ UFDEOF MAY BE USED TO DUMP A SINGLE FILE
00131 0600 00 0 62737 STZ TLD
00132 0074 00 4 00014 TSX $GDT,4 (CURRENT DATE/TIME)
00133 0602 00 0 62743 SLW UFDENT+2
00134 -0500 00 0 64510 CAL MFDENT PREPARE PARAMETERS FOR DUMP TAPE 'MAP' LINE
00135 0602 00 0 60267 SLW ARGLST
00136 -0500 00 0 62741 CAL UFDENT
00137 0602 00 0 60271 SLW ARGLST+2
00140 -0500 00 0 64511 CAL MFDENT+1
00141 0602 00 0 60270 SLW ARGLST+1
00142 -0500 00 0 62742 CAL UFDENT+1
00143 0602 00 0 60272 SLW ARGLST+3
00144 0600 00 0 60273 STZ ARGLST+4
00145 0600 00 0 60274 STZ ARGLST+5
00146 0600 00 0 60275 STZ ARGLST+6
00147 0020 00 0 00531 TRA NXLB
*
* . . . . . . . . . . . . . . . . . . . . .
* ENTRY TO DUMP A USER'S FILES WHOSE MFD
* ENTRY HAS NOT BEEN READ (AS IN COMPLETE SYSTEM FILE DUMP)
* . . . . . . . . . . . . . . . . . . . . .
*
00150 0634 00 1 01016 DUSR1 SXA DU1,1
00151 0634 00 2 01017 SXA DU2,2
00152 0634 00 4 01020 SXA DU4,4
00153 RDOPEN UFDNAM,UFDNAM+1,MFDENT,MFDENT+1,IOBUF,LBUF,ERRA
00153 0074 00 4 00000 TSX ATTACH,4 .001
TD 00154 3 00000 0 64510 TXH MFDENT .001
TD 00155 3 00000 0 64511 TXH MFDENT+1 .001
00156 0074 00 4 00002 TSX OPEN,4 .001
TD 00157 3 00000 0 00034 TXH R .001
TD 00160 3 00000 0 00032 TXH UFDNAM .001
TD 00161 3 00000 0 00033 TXH UFDNAM+1 .001
TD 00162 3 00000 0 01340 TXH =0 .001
TD 00163 3 00000 0 01340 TXH =0 .001
TD 00164 3 00000 0 01022 TXH ERRA .001
00165 0074 00 4 00003 TSX BUFFER,4 .001
TD 00166 3 00000 0 00032 TXH UFDNAM .001
TD 00167 3 00000 0 00033 TXH UFDNAM+1 .001
00170 2 00050 0 63630 TIX IOBUF,,LBUF .001
00171 0600 00 0 64513 STZ MFDENT+3
00172 0600 00 0 64514 STZ MFDENT+4
00173 0074 00 4 00012 TSX FSTATE,4
TD 00174 3 00000 0 00032 TXH UFDNAM
TD 00175 3 00000 0 00033 TXH UFDNAM+1
00176 3 00010 0 00062 TXH Y,,8
00177 -0500 00 0 00070 CAL Y+6 TIME LAST WRITTEN OF THIS USER
1 SUBROUTINE TO DUMP ONE USER'S FILES....M.J.BAILEY,11/30/64 PAGE 7
00200 0602 00 0 64512 SLW MFDENT+2
00201 -0500 00 0 00071 CAL Y+7
00202 0602 00 0 64513 SLW MFDENT+3
00203 -0500 00 0 00062 CAL Y
00204 0602 00 0 64515 SLW MFDENT+5
00205 0602 00 0 00054 SLW LCOUNT
00206 0402 00 0 01342 SUB =3
00207 -0100 00 0 00211 TNZ *+2
00210 -0625 00 0 00046 STL EMPTSW
00211 0500 00 0 01341 CLA =1
00212 0601 00 0 00053 STO NORECS
00213 0601 00 0 00073 STO ALLSW
00214 0020 00 0 00271 TRA NXI
*
* . . . . . . . . . . . . . . . . . . . . . .
* ENTRY TO DUMP ONE USER'S FILES
* . . . . . . . . . . . . . . . . . . . . . .
*
00215 -0625 00 0 00046 DMPUFD STL EMPTSW
00216 0020 00 0 00221 TRA DUSR
00217 -0625 00 0 00073 DUSRX STL ALLSW
00220 0020 00 0 00222 TRA *+2
00221 0600 00 0 00073 DUSR STZ ALLSW
00222 0634 00 1 01016 SXA DU1,1
00223 0634 00 2 01017 SXA DU2,2
00224 0634 00 4 01020 SXA DU4,4
00225 0600 00 0 00054 STZ LCOUNT
00226 -0500 00 0 64515 CAL MFDENT+5
00227 -0320 00 0 01350 ANA =O77777077777
00230 -0340 00 0 01347 LAS =O1000003
00231 0020 00 0 00233 TRA *+2
00232 -0625 00 0 00046 STL EMPTSW
00233 0621 00 0 00054 STA LCOUNT
00234 0771 00 0 00022 ARS 18
00235 0621 00 0 00053 STA NORECS
00236 -0500 00 0 64514 CAL MFDENT+4
00237 0621 00 0 00052 STA RCOUNT
00240 0500 00 0 00053 CLA NORECS
00241 0402 00 0 01341 SUB =1
00242 0100 00 0 00246 TZE OQD
00243 0131 00 0 00000 XCA
00244 0200 00 0 00052 MPY RCOUNT
00245 0131 00 0 00000 XCA
00246 0400 00 0 00054 OQD ADD LCOUNT
00247 0601 00 0 00054 STO LCOUNT
00250 0601 00 0 64515 STO MFDENT+5
00251 0500 00 0 01341 CLA =1
00252 0601 00 0 00053 STO NORECS
*
* INITIALIZE THE USER'S U.F.D. FILE FOR READING
*
00253 RDOPEN UFDNAM,UFDNAM+1,MFDENT,MFDENT+1,IOBUF,LBUF,ERRA
00253 0074 00 4 00000 TSX ATTACH,4 .001
TD 00254 3 00000 0 64510 TXH MFDENT .001
TD 00255 3 00000 0 64511 TXH MFDENT+1 .001
00256 0074 00 4 00002 TSX OPEN,4 .001
1 SUBROUTINE TO DUMP ONE USER'S FILES....M.J.BAILEY,11/30/64 PAGE 8
TD 00257 3 00000 0 00034 TXH R .001
TD 00260 3 00000 0 00032 TXH UFDNAM .001
TD 00261 3 00000 0 00033 TXH UFDNAM+1 .001
TD 00262 3 00000 0 01340 TXH =0 .001
TD 00263 3 00000 0 01340 TXH =0 .001
TD 00264 3 00000 0 01022 TXH ERRA .001
00265 0074 00 4 00003 TSX BUFFER,4 .001
TD 00266 3 00000 0 00032 TXH UFDNAM .001
TD 00267 3 00000 0 00033 TXH UFDNAM+1 .001
00270 2 00050 0 63630 TIX IOBUF,,LBUF .001
00271 0500 00 0 01341 NXI CLA =1 INITIALIZE READING FROM UFD FILE
00272 0601 00 0 62736 STO UFDC
00273 0601 00 0 62747 STO UFDEOF ZERO UFDEOF INDICATES EOF IN UFD FILE
00274 CLEAR TPBUF,TBSIZ CLEAR OUT TAPE FILE BUFFER
00274 0774 00 1 03300 AXT TBSIZ,1 .001
00275 0600 00 1 73353 STZ TPBUF+TBSIZ,1 .001
00276 2 00001 1 00275 TIX *-1,1,1 .001
00277 0760 00 0 00165 SWT 5
00300 0020 00 0 00303 TRA *+3
00301 0074 00 4 00010 TSX WRFLX,4
00302 0 00002 0 64510 MFDENT,,2
*
* INITIALIZE THE WRITING OF OUR COPY OF THE U.F.D. FILE
*
00303 0074 00 4 00015 TSX $GDSIG,4
*
* PREPARE DUMP TAPE PREAMBLE FOR DUMPED UFD FILE
*
00304 0774 00 1 00003 AXT 3,1 PREPARE 11 WORDS OF DUMP TAPE PREAMBLE
00305 -0500 00 1 64513 CAL MFDENT+3,1 1ST 3 WDS OF THIS MFD ENTRY IN WORDS 1,2,3
00306 0602 00 1 70056 SLW TPBUF+3,1 .
00307 -0500 00 1 64516 CAL MFDENT+6,1 NEXT 3 TO WORDS 9,10,11
00310 0602 00 1 70066 SLW TPBUF+11,1 .
00311 -0500 00 1 00041 CAL UFDID+3,1 LABEL IN WORDS 6,7,8
00312 0602 00 1 70063 SLW TPBUF+8,1 .
00313 2 00001 1 00305 TIX *-6,1,1
00314 -0500 00 0 62737 CAL TLD TLD(I) IN WORD 4
00315 0602 00 0 70056 SLW TPBUF+3 .
00316 -0500 00 0 73353 CAL TND TND IN WORD 5
00317 0602 00 0 70057 SLW TPBUF+4 .
*
* FIND NO. OF FULL LOGICAL RECORDS (NFLR), AND NO. OF WORDS
* TO BE WRITTEN IN LAST LOGICAL RECORD (NLAST), OF UFD FILE
*
00320 LOGREC MFDENT
00320 0500 00 0 00047 CLA LTPBF .001
00321 0402 00 0 01344 SUB =12 .001
00322 0601 00 0 00035 STO TEMP .001
00323 -0500 00 0 64514 CAL MFDENT+4 .001
00324 -0320 00 0 01346 ANA =O77777 .001
00325 0601 00 0 00052 STO RCOUNT .001
00326 0074 00 4 00016 TSX $NLREC,4 .001
TD 00327 3 00000 0 00053 TXH NORECS .001
TD 00330 3 00000 0 00052 TXH RCOUNT .001
TD 00331 3 00000 0 00054 TXH LCOUNT .001
TD 00332 3 00000 0 00035 TXH TEMP .001
1 SUBROUTINE TO DUMP ONE USER'S FILES....M.J.BAILEY,11/30/64 PAGE 9
TD 00333 3 00000 0 01344 TXH =12 .001
TD 00334 3 00000 0 00057 TXH PHYSRC .001
TD 00335 3 00000 0 00055 TXH NFLR .001
TD 00336 3 00000 0 00056 TXH NLAST .001
00337 0534 00 2 00055 LXA NFLR,2
00340 -0634 00 2 00366 SXD NXIC,2 NO. OF FULL LOGICAL RECORDS
00341 0520 00 0 00056 ZET NLAST
00342 1 00001 2 00343 TXI *+1,2,1 ADD 1 IF PARTIAL RECORD AT END
00343 0634 00 2 70066 SXA TPBUF+11,2 NO. LOGICAL RECS. TO 12TH PREAMBLE WORD
00344 0774 00 2 00001 AXT 1,2 1ST RECORD NO. IS 1
00345 -0520 00 0 00055 NZT NFLR
00346 0020 00 0 00371 TRA NXJ SKIP IF NO FULL RECORDS
*
* . . . . . . . . . . . . . . . . . . . .
* READ, COPY ON DRUM OR DISK, AND DUMP, THIS UFD FILE
* . . . . . . . . . . . . . . . . . . . .
*
00347 -0634 00 2 70066 NXIB SXD TPBUF+11,2 RECORD NO. TO 12TH PREAMBLE WORD
00350 CLEAR TPBUF+12,TBSIZ-12
00350 0774 00 1 03264 AXT TBSIZ-12,1 .001
00351 0600 00 1 73353 STZ TPBUF+12+TBSIZ-12,1 .001
00352 2 00001 1 00351 TIX *-1,1,1 .001
00353 -0520 00 0 62747 NZT UFDEOF
00354 0020 00 0 00361 TRA *+5 SKIP IF UFD EOF EARLY DUE TO DELETIONS
00355 0074 00 4 00017 TSX $RDUFD,4 FILL UP BUFFER FROM UFD
TD 00356 3 00000 0 70067 TXH TPBUF+12
TD 00357 3 00000 0 00035 TXH TEMP
00360 0020 00 0 01265 TRA NXR ERROR RETURN, ABANDON THIS USER
00361 0074 00 4 00020 TSX $WRNF,4
TD 00362 3 00000 0 70053 TXH TPBUF
TD 00363 3 00000 0 00047 TXH LTPBF
00364 0074 00 4 00015 TSX $GDSIG,4
00365 1 00001 2 00366 TXI *+1,2,1 INCREMENT RECORD NO. BY 1
00366 -3 00000 2 00347 NXIC TXL NXIB,2,** GO BACK FOR NEXT BUFFER FULL
*
00367 -0520 00 0 00056 NZT NLAST NOW WRITE PARTIAL RECORD
00370 0020 00 0 00407 TRA NXK SKIP IF NO PARTIAL RECORD
00371 -0634 00 2 70066 NXJ SXD TPBUF+11,2 RECORD NO. TO 12TH PREAMBLE WORD
00372 CLEAR TPBUF+12,TBSIZ-12
00372 0774 00 1 03264 AXT TBSIZ-12,1 .001
00373 0600 00 1 73353 STZ TPBUF+12+TBSIZ-12,1 .001
00374 2 00001 1 00373 TIX *-1,1,1 .001
00375 -0520 00 0 62747 NZT UFDEOF
00376 0020 00 0 00403 TRA *+5 SKIP IF EOF ALREADY DUE TO DELETIONS
00377 0074 00 4 00017 TSX $RDUFD,4 READ LAST PART OF UFD FILE
TD 00400 3 00000 0 70067 TXH TPBUF+12
TD 00401 3 00000 0 00035 TXH TEMP
00402 0020 00 0 01265 TRA NXR ERROR RETURN, ABANDON THIS USER
00403 0074 00 4 00020 TSX $WRNF,4
TD 00404 3 00000 0 70053 TXH TPBUF
TD 00405 3 00000 0 00056 TXH NLAST
00406 0074 00 4 00015 TSX $GDSIG,4
*
*
* RECORD DUMPING OF THIS UFD FILE, ON DUMP TAPE MAP FILE
*
1 SUBROUTINE TO DUMP ONE USER'S FILES....M.J.BAILEY,11/30/64 PAGE 10
00407 -0500 00 0 64510 NXK CAL MFDENT
00410 0602 00 0 60267 SLW ARGLST
00411 -0500 00 0 64511 CAL MFDENT+1
00412 0602 00 0 60270 SLW ARGLST+1
00413 -0500 00 0 00032 CAL UFDNAM
00414 0602 00 0 60271 SLW ARGLST+2
00415 -0500 00 0 00033 CAL UFDNAM+1
00416 0602 00 0 60272 SLW ARGLST+3
00417 -0500 00 0 64512 CAL MFDENT+2
00420 0602 00 0 60273 SLW ARGLST+4
00421 0520 00 0 60266 ZET CDSW
00422 0020 00 0 00430 TRA NXKA
00423 -0500 00 0 62737 CAL TLD
00424 0602 00 0 60274 SLW ARGLST+5
00425 -0500 00 0 73353 CAL TND
00426 0602 00 0 60275 SLW ARGLST+6
00427 0020 00 0 00434 TRA *+5
00430 -0500 00 0 64513 NXKA CAL MFDENT+3
00431 -0320 00 0 01356 ANA =O777777000000
00432 0602 00 0 60274 SLW ARGLST+5
00433 0600 00 0 60275 STZ ARGLST+6
00434 0074 00 4 00021 TSX $MAPLIN,4
*
* INITIALIZE USER'S UFD FILE FOR READING
*
00435 -0500 00 0 00046 CAL EMPTSW
00436 0100 00 0 00441 TZE *+3
00437 0600 00 0 00046 STZ EMPTSW
00440 0020 00 0 01012 TRA DU111
00441 0074 00 4 00022 TSX $IENUFD,4 INITIATE READING FOR ENTUFD ROUTINE
00442 0020 00 0 01265 TRA NXR TROUBLE WITH READING, SKIP TO FIX UP
*
* . . . . . . . . . . . . . . . . . . .
* START DUMP USER FILE LOOP
* . . . . . . . . . . . . . . . . . . .
*
00443 0074 00 4 00023 NXFILE TSX $ENTUFD,4 GET UFD ENTRY FOR NEXT FILE IN UFDENT
00444 0020 00 0 01265 TRA NXR READING TROUBLE IN OUR COPY OF UFD
00445 -0500 00 0 62741 CAL UFDENT
00446 -0520 00 0 62742 NZT UFDENT+1
00447 0100 00 0 01007 TZE NXQ IGNORE UFD ENTRY IF ALL ZEROS
00450 -0340 00 0 00032 LAS UFDNAM
00451 0020 00 0 00460 TRA NXFLA O.K. IF NOT UFD FILE
00452 0020 00 0 00454 TRA *+2
00453 0020 00 0 00460 TRA NXFLA OK NOT UFD FILE
00454 -0500 00 0 62742 CAL UFDENT+1
00455 -0340 00 0 00033 LAS UFDNAM+1
00456 0020 00 0 00460 TRA NXFLA OK NOT UFD FILE
00457 0020 00 0 01007 TRA NXQ DO NOT DUMP IF UFD FILE
*
* CHECK THAT FILE HAS A TIME T SUCH THAT (TLD .LE. T .L. TND),
* ALSO THAT IT IS ON DISK OR DRUM, AND IS NOT TEMPORARY.
* (IF WRITE-ONLY, TEMPORARILY CHANGE ITS MODE.)
*
00460 0520 00 0 00073 NXFLA ZET ALLSW
00461 0020 00 0 00476 TRA NXFLAA SKIP TIME CRITERIA IF SYSTEMFILE DUMP
1 SUBROUTINE TO DUMP ONE USER'S FILES....M.J.BAILEY,11/30/64 PAGE 11
00462 -0500 00 0 62743 CAL UFDENT+2 TIME LAST MODIFIED
00463 -0520 00 0 60266 NZT CDSW
00464 0020 00 0 00467 TRA *+3 IF INCR. DUMP T =TIME LAST MODIFIED
00465 -0500 00 0 62744 CAL UFDENT+3 IF COMPLETE DUMP T = TIME LAST USED
00466 -0320 00 0 01356 ANA =O777777000000
00467 0602 00 0 00035 SLW TEMP
00470 0500 00 0 00035 CLA TEMP GET DATE/TIME FILE LAST MODIFIED OR USED, T
00471 0402 00 0 73353 SUB TND COMPARE WITH DATE/TIME OF THIS DUMP, TND
00472 0120 00 0 01007 TPL NXQ T .GE. TND, DON'T DUMP, GO FOR NEXT FILE
00473 0500 00 0 00035 CLA TEMP GET T AGAIN
00474 0402 00 0 62737 SUB TLD COMPARE WITH DATE/TIME OF USER'S LAST DUMP
00475 -0120 00 0 01007 TMI NXQ T .LESS. TLD, DON'T DUMP, GO FOR NEXT FILE
00476 -0500 00 0 62745 NXFLAA CAL UFDENT+4 CHECK DEVICE ON WHICH FILE RESIDES
00477 0771 00 0 00017 ARS 15
00500 -0320 00 0 01343 ANA =O7
00501 0734 00 1 00000 PAX 0,1
00502 -3 00000 1 00504 TXL *+2,1,LSDRUM-1
00503 -3 00001 1 00506 TXL NXFDMP,1,LSDRUM SKIP TO DUMP IF FILE ON L.S.DRUM
00504 -3 00001 1 01007 TXL NXQ,1,DISK-1 DON'T DUMP IF NOT ON DISK OR L.S. DRUM
00505 3 00002 1 01007 TXH NXQ,1,DISK .
*
(AT THIS POINT FURTHER CRITERIA FOR DUMPING MAY BE APPLIED)
*
*
00506 -0500 00 0 64510 NXFDMP CAL MFDENT
00507 0602 00 0 60267 SLW ARGLST SET UP PARAMETERS FOR DUMP TAPE 'MAP' LINE
00510 -0500 00 0 64511 CAL MFDENT+1
00511 0602 00 0 60270 SLW ARGLST+1
00512 MOVE 3,UFDENT,ARGLST+2
00512 0774 00 1 00003 AXT 3,1 .001
00513 -0500 00 1 62744 CAL UFDENT+3,1 .001
00514 0602 00 1 60274 SLW ARGLST+2+3,1 .001
00515 2 00001 1 00513 TIX *-2,1,1 .001
00516 0520 00 0 60266 ZET CDSW
00517 0020 00 0 00525 TRA NXFDB SKIP IF COMPLETE DUMP
00520 -0500 00 0 62737 CAL TLD
00521 0602 00 0 60274 SLW ARGLST+5
00522 -0500 00 0 73353 CAL TND
00523 0602 00 0 60275 SLW ARGLST+6
00524 0020 00 0 00531 TRA *+5
00525 -0500 00 0 62744 NXFDB CAL UFDENT+3
00526 -0320 00 0 01356 ANA =O777777000000
00527 0602 00 0 60274 SLW ARGLST+5 DATE LAST MODIFIED
00530 0600 00 0 60275 STZ ARGLST+6
*
* INITIALIZE FILE TO BE DUMPED FOR READING
*
00531 0074 00 4 00001 NXLB TSX TILOCK,4 SET READ INTERLOCK TRAP TRANSFER
00532 0 00000 0 01005 PZE NXPA (FORGET THIS FILE IF INTERLOCKED)
00533 0621 00 0 00774 STA NXPD SAVE PREVIOUS INTERLOCK TRANSFER ADDRESS
00534 0621 00 0 01006 STA NXPE
00535 0074 00 4 00015 TSX $GDSIG,4 GET KEYS, SET SWITCHES
00536 -0500 00 0 00034 CAL R
00537 0560 00 0 62745 LDQ UFDENT+4
1 SUBROUTINE TO DUMP ONE USER'S FILES....M.J.BAILEY,11/30/64 PAGE 12
00540 -0773 00 0 00007 RQL 7
00541 0162 00 0 00543 TQP *+2
00542 -0500 00 0 01355 CAL =HRW
00543 0602 00 0 00061 SLW STATUS
00544 0074 00 4 00000 TSX ATTACH,4
TD 00545 3 00000 0 64510 TXH MFDENT
TD 00546 3 00000 0 64511 TXH MFDENT+1
00547 0074 00 4 00002 TSX OPEN,4
TD 00550 3 00000 0 00061 TXH STATUS
TD 00551 3 00000 0 62741 TXH UFDENT
TD 00552 3 00000 0 62742 TXH UFDENT+1
TD 00553 3 00000 0 01340 TXH =0
TD 00554 3 00000 0 01340 TXH =0
TD 00555 3 00000 0 01145 TXH ERRG
00556 0074 00 4 00003 TSX BUFFER,4
TD 00557 3 00000 0 62741 TXH UFDENT
TD 00560 3 00000 0 62742 TXH UFDENT+1
00561 2 00051 0 62750 TIX IOBUF2,,LBUF2
00562 0074 00 4 00012 TSX FSTATE,4
TD 00563 3 00000 0 62741 TXH UFDENT
TD 00564 3 00000 0 62742 TXH UFDENT+1
00565 3 00010 0 00103 TXH A,,8 IN A
00566 -0500 00 0 00103 CAL A 'LCOUNT'=A
00567 0602 00 0 62746 SLW UFDENT+5
00570 0602 00 0 00054 SLW LCOUNT
00571 0500 00 0 01341 CLA =1
00572 0601 00 0 00053 STO NORECS
00573 0500 00 0 00573 CLA *
00574 0601 00 0 62733 STO FEOF ZERO FEOF INDICATES EOF IN THIS FILE
00575 CLEAR TPBUF,TBSIZ CLEAR DUMP TAPE BUFFER
00575 0774 00 1 03300 AXT TBSIZ,1 .001
00576 0600 00 1 73353 STZ TPBUF+TBSIZ,1 .001
00577 2 00001 1 00576 TIX *-1,1,1 .001
*
* PREPARE DUMP TAPE PREAMBLE FOR THIS FILE
*
00600 0760 00 0 00166 SWT 6 TEST FOR PRINT OF FILE NAME
00601 0020 00 0 00604 TRA *+3 NO PRINT, SKIP
00602 0074 00 4 00010 TSX WRFLX,4 PRINT IT
00603 0 00002 0 62741 PZE UFDENT,,2 ..
00604 MOVE 3,MFDENT,TPBUF PREPARE 11 WORDS OF DUMP TAPE PREAMBLE
00604 0774 00 1 00003 AXT 3,1 .001
00605 -0500 00 1 64513 CAL MFDENT+3,1 .001
00606 0602 00 1 70056 SLW TPBUF+3,1 .001
00607 2 00001 1 00605 TIX *-2,1,1 .001
00610 MOVE 3,MFDENT,TPBUF2 SAME FOR OTHER BUFFER
00610 0774 00 1 00003 AXT 3,1 .001
00611 -0500 00 1 64513 CAL MFDENT+3,1 .001
00612 0602 00 1 64556 SLW TPBUF2+3,1 .001
00613 2 00001 1 00611 TIX *-2,1,1 .001
00614 -0500 00 0 62737 CAL TLD DUMPED COPY OF THIS FILE, CONSISTING
00615 0602 00 0 70056 SLW TPBUF+3 OF 1ST 3 WORDS OF MFD ENTRY IN WORDS 1-3
00616 0602 00 0 64556 SLW TPBUF2+3
00617 -0500 00 0 73353 CAL TND AND TLD IN WORD 4,
00620 0602 00 0 70057 SLW TPBUF+4 TND IN WORD 5,
00621 0602 00 0 64557 SLW TPBUF2+4
1 SUBROUTINE TO DUMP ONE USER'S FILES....M.J.BAILEY,11/30/64 PAGE 13
00622 MOVE 6,UFDENT,TPBUF+5 AND UFD ENTRY IN WORDS 6-11.
00622 0774 00 1 00006 AXT 6,1 .001
00623 -0500 00 1 62747 CAL UFDENT+6,1 .001
00624 0602 00 1 70066 SLW TPBUF+5+6,1 .001
00625 2 00001 1 00623 TIX *-2,1,1 .001
00626 MOVE 6,UFDENT,TPBUF2+5
00626 0774 00 1 00006 AXT 6,1 .001
00627 -0500 00 1 62747 CAL UFDENT+6,1 .001
00630 0602 00 1 64566 SLW TPBUF2+5+6,1 .001
00631 2 00001 1 00627 TIX *-2,1,1 .001
*
* FIND NO. OF FULL LENGTH RECORDS (NFLR) AND NO. OF
* WORDS TO BE WRITTEN IN LAST LOGICAL RECORD (NLAST)
* OF THIS NEXT FILE.
*
00632 LOGREC UFDENT
00632 0500 00 0 00047 CLA LTPBF .001
00633 0402 00 0 01344 SUB =12 .001
00634 0601 00 0 00035 STO TEMP .001
00635 -0500 00 0 62745 CAL UFDENT+4 .001
00636 -0320 00 0 01346 ANA =O77777 .001
00637 0601 00 0 00052 STO RCOUNT .001
00640 0074 00 4 00016 TSX $NLREC,4 .001
TD 00641 3 00000 0 00053 TXH NORECS .001
TD 00642 3 00000 0 00052 TXH RCOUNT .001
TD 00643 3 00000 0 00054 TXH LCOUNT .001
TD 00644 3 00000 0 00035 TXH TEMP .001
TD 00645 3 00000 0 01344 TXH =12 .001
TD 00646 3 00000 0 00057 TXH PHYSRC .001
TD 00647 3 00000 0 00055 TXH NFLR .001
TD 00650 3 00000 0 00056 TXH NLAST .001
00651 0534 00 2 00055 LXA NFLR,2
00652 -0634 00 2 00727 SXD NXN,2 NO. OF FULL LENGTH RECS.
00653 0520 00 0 00055 ZET NFLR
00654 0020 00 0 00663 TRA *+7
00655 0520 00 0 00056 ZET NLAST
00656 0020 00 0 00664 TRA *+6
00657 0774 00 2 00001 AXT 1,2
00660 -0500 00 0 00057 CAL PHYSRC
00661 0602 00 0 00056 SLW NLAST
00662 0020 00 0 00665 TRA *+3
00663 0520 00 0 00056 ZET NLAST
00664 1 00001 2 00665 TXI *+1,2,1 ADD 1 IF A PARTIAL REC. AT END
00665 0634 00 2 70066 SXA TPBUF+11,2 NO. OF LOGICAL RECS. TO 12TH PREAMBLE WORD
00666 0634 00 2 64566 SXA TPBUF2+11,2
00667 0774 00 2 00001 AXT 1,2 1ST RECORD NO. IS 1
00670 0634 00 2 00102 SXA FLFL,2 INITIALIZE BUFFER SWITCH
00671 -0520 00 0 00055 NZT NFLR
00672 0020 00 0 00732 TRA NXP SKIP IF NO FULL RECORDS
*
* . . . . . . . . . . . . . . . . . . . .
* READ AND DUMP THIS USER FILE
* . . . . . . . . . . . . . . . . . . . .
*
00673 0534 00 1 00102 NXM LXA FLFL,1 SWITCH TO ALTERNATE BUFFER ADDRESS
00674 1 00001 1 00675 TXI *+1,1,1
1 SUBROUTINE TO DUMP ONE USER'S FILES....M.J.BAILEY,11/30/64 PAGE 14
00675 -3 00001 1 00677 TXL *+2,1,1
00676 0774 00 1 00000 AXT 0,1
00677 0634 00 1 00102 SXA FLFL,1
00700 0500 00 1 00075 CLA TBA1,1
00701 0621 00 0 00723 STA NXM4
00702 0500 00 1 00077 CLA TBA2,1
00703 0621 00 0 00710 STA NXM1
00704 0400 00 0 01341 ADD =1
00705 0621 00 0 00715 STA NXM3
00706 0500 00 1 00101 CLA TBA3,1
00707 0621 00 0 00712 STA NXM2
00710 -0634 00 2 00000 NXM1 SXD **,2 SET LOGICAL REC. NO. IN PREAMBLE
00711 0774 00 1 03264 AXT TBSIZ-12,1 CLEAR BULK OF BUFFER
00712 0600 00 1 00000 NXM2 STZ **,1
00713 2 00001 1 00712 TIX NXM2,1,1
00714 0074 00 4 00024 TSX $RDF,4 FILL UP BUFFER FROM THIS FILE
TD 00715 3 00000 0 00000 NXM3 TXH **
TD 00716 3 00000 0 00035 TXH TEMP
00717 0020 00 0 00764 TRA NXPB ERROR RETURN, MOVE TO NEXT FILE
00720 -0520 00 0 62733 NZT FEOF
00721 0020 00 0 01166 TRA ERRL EOF IN WRONG PLACE
00722 0074 00 4 00020 NXMA TSX $WRNF,4 WRITE OUT BUFFER FULL OF THIS FILE
TD 00723 3 00000 0 00000 NXM4 TXH ** ( A LOGICAL REC.) ONTO DUMP TAPE
TD 00724 3 00000 0 00047 TXH LTPBF
00725 0074 00 4 00015 TSX $GDSIG,4
00726 1 00001 2 00727 TXI *+1,2,1
00727 -3 00000 2 00673 NXN TXL NXM,2,** GO BACK FOR NEXT RECORD/BUFFER-FULL,IF ANY
*
00730 -0520 00 0 00056 NZT NLAST NOW WRITE PARTIAL LOGICAL RECORD
00731 0020 00 0 00763 TRA NXPBG SKIP IF NO PARTIAL LOGICAL RECORD
00732 0534 00 1 00102 NXP LXA FLFL,1 SWITCH TO ALTERNATE BUFFER ADDRESS
00733 1 00001 1 00734 TXI *+1,1,1
00734 -3 00001 1 00736 TXL *+2,1,1
00735 0774 00 1 00000 AXT 0,1
00736 0500 00 1 00075 CLA TBA1,1
00737 0621 00 0 00761 STA NXP4
00740 0500 00 1 00077 CLA TBA2,1
00741 0621 00 0 00746 STA NXP1
00742 0400 00 0 01341 ADD =1
00743 0621 00 0 00753 STA NXP3
00744 0500 00 1 00101 CLA TBA3,1
00745 0621 00 0 00750 STA NXP2
00746 -0634 00 2 00000 NXP1 SXD **,2 SET LOGICAL REC. NO. IN PREAMBLE
00747 0774 00 1 03264 AXT TBSIZ-12,1 CLEAR BULK OF BUFFER
00750 0600 00 1 00000 NXP2 STZ **,1
00751 2 00001 1 00750 TIX NXP2,1,1
00752 0074 00 4 00024 TSX $RDF,4 READ LAST PART OF FILE
TD 00753 3 00000 0 00000 NXP3 TXH **
TD 00754 3 00000 0 00035 TXH TEMP
00755 0020 00 0 00764 TRA NXPB ERROR RETURN, MOVE TO NEXT FILE
00756 0520 00 0 62733 ZET FEOF
00757 0020 00 0 01252 TRA ERRM EOF NOT WHERE IT SHOULD BE, ERROR
00760 0074 00 4 00020 NXNA TSX $WRNF,4 WRITE OUT REMAINDER OF FILE
TD 00761 3 00000 0 00000 NXP4 TXH **
TD 00762 3 00000 0 00056 TXH NLAST
*
1 SUBROUTINE TO DUMP ONE USER'S FILES....M.J.BAILEY,11/30/64 PAGE 15
* CLOSE THIS FILE, RECORD ITS BEING DUMPED,RESTORE ITS MODE
*
00763 0074 00 4 00021 NXPBG TSX $MAPLIN,4 WRITE LINE ON DUMPTP 'MAP' FOR THIS FILE
00764 0074 00 4 00000 NXPB TSX ATTACH,4 YES, CLOSE THIS FILE,
TD 00765 3 00000 0 64510 TXH MFDENT WHICH IS NOW COMPLETELY (OR PARTLY) DUMPED
TD 00766 3 00000 0 64511 TXH MFDENT+1 .
00767 0074 00 4 00005 TSX CLOSE,4 .
TD 00770 3 00000 0 62741 TXH UFDENT .
TD 00771 3 00000 0 62742 TXH UFDENT+1 .
00772 0600 00 0 62731 STZ DMPSW INDICATE SOMETHING GOT DUMPED
00773 0074 00 4 00001 TSX TILOCK,4 ENSURE READ-INTERLOCK TRAP ADDRESS RESTORED
00774 0 00000 0 00000 NXPD PZE **
00775 0074 00 4 00013 TSX SETFIL,4 RESTORE USERS FILE STATUS
TD 00776 3 00000 0 62741 TXH UFDENT
TD 00777 3 00000 0 62742 TXH UFDENT+1
TD 01000 3 00000 0 00111 TXH A+6
TD 01001 3 00000 0 00112 TXH A+7
TD 01002 3 00000 0 00104 TXH A+1
TD 01003 3 00000 0 00106 TXH A+3
01004 0020 00 0 01007 TRA NXQ
01005 0074 00 4 00001 NXPA TSX TILOCK,4
01006 0 00000 0 00000 NXPE PZE **
*
* END OF DUMP FILE LOOP
*
01007 0074 00 4 00015 NXQ TSX $GDSIG,4
01010 0520 00 0 62747 ZET UFDEOF WAS THIS LAST UFD ENTRY (AS DETECTED
BY ENTUFD), I.E. WAS THIS LAST FILE
01011 0020 00 0 00443 TRA NXFILE NO, GO BACK TO DUMP NEXT FILE
01012 0074 00 4 00005 DU111 TSX CLOSE,4 YES, CLOSE OUR COPY OF UFD
TD 01013 3 00000 0 00032 TXH UFDNAM
TD 01014 3 00000 0 00033 TXH UFDNAM+1
TD 01015 3 00000 0 01016 TXH *+1
*
01016 0774 00 1 00000 DU1 AXT **,1
01017 0774 00 2 00000 DU2 AXT **,2
01020 0774 00 4 00000 DU4 AXT **,4
01021 0020 00 4 00003 TRA 3,4
*
* . . . . . . . . . . . . . . . . . . . .
* ERROR FIX-UP SECTION FOR CREATED-FILE DUMPER
* . . . . . . . . . . . . . . . . . . . .
*
01022 ERRA BGNERM =HA TROUBLE OPENING UFD FILE
01022 0634 00 4 01025 SXA *+3,4 .001
01023 0074 00 4 00025 TSX $BERM,4 .001
01024 0 00000 0 01351 PZE =HA .001
01025 0774 00 4 00000 AXT **,4 .001
01026 0074 00 4 00026 TSX $CKCODE,4
01027 464725456060 BCI 1,OPEN
01030 0 00000 0 00014 PZE ERCODA
01031 0 00000 0 01060 PZE ERRA1 (TRANSFER IF NOT THE ERROR WE ARE SEEKING)
01032 PRLINE ( U.F.D. FILE NOT FOUND FOR FOLLOWING USER, ),8,0
01032 MOVE 8,..003,PBF .001
01032 0774 00 1 00010 AXT 8,1 .002
01033 -0500 00 1 01304 CAL ..003+8,1 .002
1 SUBROUTINE TO DUMP ONE USER'S FILES....M.J.BAILEY,11/30/64 PAGE 16
01034 0602 00 1 64536 SLW PBF+8,1 .002
01035 2 00001 1 01033 TIX *-2,1,1 .002
01036 PRBUFF PBF,8+0 .001
01036 0634 00 4 01041 SXA *+3,4 .002
01037 0074 00 4 00010 TSX WRFLX,4 .002
01040 0 00010 0 64526 PBF,,8+0 .002
01041 0774 00 4 00000 AXT **,4 .002
01042 CLEAR PBF,8+0 .002
01042 0774 00 1 00010 AXT 8+0,1 .003
01043 0600 00 1 64536 STZ PBF+8+0,1 .003
01044 2 00001 1 01043 TIX *-1,1,1 .003
RMT .001
..003 BCI 8, U.F.D. FILE NOT FOUND FOR FOLLOWING USER, .001
RMT .001
01045 PRLINE ( WHO IS IN M.F.D. - ),4,0
01045 MOVE 4,..006,PBF .001
01045 0774 00 1 00004 AXT 4,1 .002
01046 -0500 00 1 01310 CAL ..006+4,1 .002
01047 0602 00 1 64532 SLW PBF+4,1 .002
01050 2 00001 1 01046 TIX *-2,1,1 .002
01051 PRBUFF PBF,4+0 .001
01051 0634 00 4 01054 SXA *+3,4 .002
01052 0074 00 4 00010 TSX WRFLX,4 .002
01053 0 00004 0 64526 PBF,,4+0 .002
01054 0774 00 4 00000 AXT **,4 .002
01055 CLEAR PBF,4+0 .002
01055 0774 00 1 00004 AXT 4+0,1 .003
01056 0600 00 1 64532 STZ PBF+4+0,1 .003
01057 2 00001 1 01056 TIX *-1,1,1 .003
RMT .001
..006 BCI 4, WHO IS IN M.F.D. - .001
RMT .001
01060 ERRA1 PRLINE ( PROBLEM NO. ),6,1,MFDENT
01060 MOVE 6,..008,PBF .001
01060 0774 00 1 00006 AXT 6,1 .002
01061 -0500 00 1 01316 CAL ..008+6,1 .002
01062 0602 00 1 64534 SLW PBF+6,1 .002
01063 2 00001 1 01061 TIX *-2,1,1 .002
01064 -0500 00 0 64510 CAL MFDENT .001
01065 0602 00 0 64534 SLW PBF+6 .001
01066 PRBUFF PBF,6+1 .001
01066 0634 00 4 01071 SXA *+3,4 .002
01067 0074 00 4 00010 TSX WRFLX,4 .002
01070 0 00007 0 64526 PBF,,6+1 .002
01071 0774 00 4 00000 AXT **,4 .002
01072 CLEAR PBF,6+1 .002
01072 0774 00 1 00007 AXT 6+1,1 .003
01073 0600 00 1 64535 STZ PBF+6+1,1 .003
01074 2 00001 1 01073 TIX *-1,1,1 .003
RMT .001
..008 BCI 6, PROBLEM NO. .001
RMT .001
01075 PRLINE ( PROGRAMMER NO. ),6,1,MFDENT+1
01075 MOVE 6,..010,PBF .001
01075 0774 00 1 00006 AXT 6,1 .002
01076 -0500 00 1 01324 CAL ..010+6,1 .002
1 SUBROUTINE TO DUMP ONE USER'S FILES....M.J.BAILEY,11/30/64 PAGE 17
01077 0602 00 1 64534 SLW PBF+6,1 .002
01100 2 00001 1 01076 TIX *-2,1,1 .002
01101 -0500 00 0 64511 CAL MFDENT+1 .001
01102 0602 00 0 64534 SLW PBF+6 .001
01103 PRBUFF PBF,6+1 .001
01103 0634 00 4 01106 SXA *+3,4 .002
01104 0074 00 4 00010 TSX WRFLX,4 .002
01105 0 00007 0 64526 PBF,,6+1 .002
01106 0774 00 4 00000 AXT **,4 .002
01107 CLEAR PBF,6+1 .002
01107 0774 00 1 00007 AXT 6+1,1 .003
01110 0600 00 1 64535 STZ PBF+6+1,1 .003
01111 2 00001 1 01110 TIX *-1,1,1 .003
RMT .001
..010 BCI 6, PROGRAMMER NO. .001
RMT .001
01112 PRLINE ( ABANDONING THIS USER IN THE CURRENT DUMP CYCLE.),8,0
01112 MOVE 8,..013,PBF .001
01112 0774 00 1 00010 AXT 8,1 .002
01113 -0500 00 1 01334 CAL ..013+8,1 .002
01114 0602 00 1 64536 SLW PBF+8,1 .002
01115 2 00001 1 01113 TIX *-2,1,1 .002
01116 PRBUFF PBF,8+0 .001
01116 0634 00 4 01121 SXA *+3,4 .002
01117 0074 00 4 00010 TSX WRFLX,4 .002
01120 0 00010 0 64526 PBF,,8+0 .002
01121 0774 00 4 00000 AXT **,4 .002
01122 CLEAR PBF,8+0 .002
01122 0774 00 1 00010 AXT 8+0,1 .003
01123 0600 00 1 64536 STZ PBF+8+0,1 .003
01124 2 00001 1 01123 TIX *-1,1,1 .003
RMT .001
..013 BCI 8, ABANDONING THIS USER IN THE CURRENT DUMP CYCLE. .001
RMT .001
01125 ERRA2 MOVE 5,ERSTAT,PBF
01125 0774 00 1 00005 AXT 5,1 .001
01126 -0500 00 1 00046 CAL ERSTAT+5,1 .001
01127 0602 00 1 64533 SLW PBF+5,1 .001
01130 2 00001 1 01126 TIX *-2,1,1 .001
01131 PRBUFF PBF,5
01131 0634 00 4 01134 SXA *+3,4 .001
01132 0074 00 4 00010 TSX WRFLX,4 .001
01133 0 00005 0 64526 PBF,,5 .001
01134 0774 00 4 00000 AXT **,4 .001
01135 CLEAR PBF,5 .001
01135 0774 00 1 00005 AXT 5,1 .002
01136 0600 00 1 64533 STZ PBF+5,1 .002
01137 2 00001 1 01136 TIX *-1,1,1 .002
01140 0020 00 0 01265 TRA NXR GO TO ERROR RETURN
01141 ERRA3 ERTN NXR PRINT COMMON MESSAGE THEN GO TO NXX
01141 0634 00 4 01143 SXA *+2,4 .001
01142 0074 00 4 00027 TSX $ERREND,4 .001
01143 0774 00 4 00000 AXT **,4 .001
01144 0020 00 0 01265 TRA NXR .001
1 SUBROUTINE TO DUMP ONE USER'S FILES....M.J.BAILEY,11/30/64 PAGE 18
*
*
01145 0074 00 4 00026 ERRG TSX $CKCODE,4
01146 464725456060 BCI 1,OPEN
01147 0 00000 0 01345 PZE =O15
01150 0 00000 0 01005 PZE NXPA
01151 0074 00 4 00026 TSX $CKCODE,4 ERROR OPENING FILE TO BE DUMPED
01152 464725456060 BCI 1,OPEN
01153 0 00000 0 00014 PZE ERCODA
01154 0 00000 0 01156 PZE ERRG1
01155 0020 00 0 01005 TRA NXPA IF USER FILE NOT FOUND, MOVE TO NEXT
01156 ERRG1 BGNERM =HG SOME OTHER ERROR
01156 0634 00 4 01161 SXA *+3,4 .001
01157 0074 00 4 00025 TSX $BERM,4 .001
01160 0 00000 0 01352 PZE =HG .001
01161 0774 00 4 00000 AXT **,4 .001
01162 ERTN NXPA PRINT COMMON MESSAGE, MOVE TO NEXT FILE
01162 0634 00 4 01164 SXA *+2,4 .001
01163 0074 00 4 00027 TSX $ERREND,4 .001
01164 0774 00 4 00000 AXT **,4 .001
01165 0020 00 0 01005 TRA NXPA .001
*
01166 0500 00 0 64510 ERRL CLA MFDENT
01167 0402 00 0 00060 SUB MFDNAM
01170 -0100 00 0 01174 TNZ ERRLA
01171 0500 00 0 64511 CLA MFDENT+1
01172 0402 00 0 00033 SUB UFDNAM+1
01173 0100 00 0 00722 TZE NXMA NO ERROR IF FILE IS MFD FILE
01174 ERRLA BGNERM =HL
01174 0634 00 4 01177 SXA *+3,4 .001
01175 0074 00 4 00025 TSX $BERM,4 .001
01176 0 00000 0 01353 PZE =HL .001
01177 0774 00 4 00000 AXT **,4 .001
01200 ERRL1 PRLINE (IN FILE - ),2,2,UFDENT,UFDENT+1
01200 MOVE 2,..014,PBF .001
01200 0774 00 1 00002 AXT 2,1 .002
01201 -0500 00 1 01336 CAL ..014+2,1 .002
01202 0602 00 1 64530 SLW PBF+2,1 .002
01203 2 00001 1 01201 TIX *-2,1,1 .002
01204 -0500 00 0 62741 CAL UFDENT .001
01205 0602 00 0 64530 SLW PBF+2 .001
01206 -0500 00 0 62742 CAL UFDENT+1 .001
01207 0602 00 0 64531 SLW PBF+2+1 .001
01210 PRBUFF PBF,2+2 .001
01210 0634 00 4 01213 SXA *+3,4 .002
01211 0074 00 4 00010 TSX WRFLX,4 .002
01212 0 00004 0 64526 PBF,,2+2 .002
01213 0774 00 4 00000 AXT **,4 .002
01214 CLEAR PBF,2+2 .002
01214 0774 00 1 00004 AXT 2+2,1 .003
01215 0600 00 1 64532 STZ PBF+2+2,1 .003
01216 2 00001 1 01215 TIX *-1,1,1 .003
RMT .001
..014 BCI 2,IN FILE - .001
1 SUBROUTINE TO DUMP ONE USER'S FILES....M.J.BAILEY,11/30/64 PAGE 19
RMT .001
01217 PRLINE (OF USER - ),2,2,MFDENT,MFDENT+1
01217 MOVE 2,..015,PBF .001
01217 0774 00 1 00002 AXT 2,1 .002
01220 -0500 00 1 01340 CAL ..015+2,1 .002
01221 0602 00 1 64530 SLW PBF+2,1 .002
01222 2 00001 1 01220 TIX *-2,1,1 .002
01223 -0500 00 0 64510 CAL MFDENT .001
01224 0602 00 0 64530 SLW PBF+2 .001
01225 -0500 00 0 64511 CAL MFDENT+1 .001
01226 0602 00 0 64531 SLW PBF+2+1 .001
01227 PRBUFF PBF,2+2 .001
01227 0634 00 4 01232 SXA *+3,4 .002
01230 0074 00 4 00010 TSX WRFLX,4 .002
01231 0 00004 0 64526 PBF,,2+2 .002
01232 0774 00 4 00000 AXT **,4 .002
01233 CLEAR PBF,2+2 .002
01233 0774 00 1 00004 AXT 2+2,1 .003
01234 0600 00 1 64532 STZ PBF+2+2,1 .003
01235 2 00001 1 01234 TIX *-1,1,1 .003
RMT .001
..015 BCI 2,OF USER - .001
RMT .001
01236 MOVE 5,ERSTAT,PBF
01236 0774 00 1 00005 AXT 5,1 .001
01237 -0500 00 1 00046 CAL ERSTAT+5,1 .001
01240 0602 00 1 64533 SLW PBF+5,1 .001
01241 2 00001 1 01237 TIX *-2,1,1 .001
01242 PRBUFF PBF,5
01242 0634 00 4 01245 SXA *+3,4 .001
01243 0074 00 4 00010 TSX WRFLX,4 .001
01244 0 00005 0 64526 PBF,,5 .001
01245 0774 00 4 00000 AXT **,4 .001
01246 CLEAR PBF,5 .001
01246 0774 00 1 00005 AXT 5,1 .002
01247 0600 00 1 64533 STZ PBF+5,1 .002
01250 2 00001 1 01247 TIX *-1,1,1 .002
01251 0020 00 0 00764 TRA NXPB
*
01252 0500 00 0 64510 ERRM CLA MFDENT
01253 0402 00 0 00060 SUB MFDNAM
01254 -0100 00 0 01260 TNZ ERRMA
01255 0500 00 0 64511 CLA MFDENT+1
01256 0402 00 0 00033 SUB UFDNAM+1
01257 0100 00 0 00760 TZE NXNA NO ERROR IF FILE IS MFD FILE
01260 ERRMA BGNERM =HM
01260 0634 00 4 01263 SXA *+3,4 .001
01261 0074 00 4 00025 TSX $BERM,4 .001
01262 0 00000 0 01354 PZE =HM .001
01263 0774 00 4 00000 AXT **,4 .001
01264 0020 00 0 01200 TRA ERRL1
*
01265 0074 00 4 00005 NXR TSX CLOSE,4 CLOSE U.F.D. FILE
TD 01266 3 00000 0 00032 TXH UFDNAM
TD 01267 3 00000 0 00033 TXH UFDNAM+1
01270 0534 00 4 01020 LXA DU4,4 SET UP RETURN TO (2,4), ERROR RETURN
1 SUBROUTINE TO DUMP ONE USER'S FILES....M.J.BAILEY,11/30/64 PAGE 20
01271 1 00001 4 01272 TXI *+1,4,1
01272 0634 00 4 01020 SXA DU4,4
01273 0020 00 0 01016 TRA DU1 GO EXIT
*
INSERT DCMEQB
*
* . . . . . . . . . . . . . . . . . .
* COMMON AND EQUIVALENCE FOR GENERAL DUMP PROGRAM
* . . . . . . . . . . . . . . . . . .
*
075032 DEMKEY BOOL 75032 CORE A LOCATION FOR DAEMON'S KEY SETTING
075105 SYSTIM BOOL 75105 CORE A LOCATION FOR SYSTEM TIME
075104 SYSDAT BOOL 75104 CORE A LOCATION FOR SYSTEM INIT. DATE
076147 RCODE BOOL 76147 CORE A LOCATION FOR RESTRICTION CODE VECTOR
075040 AUTOND BOOL 75040 CORE A AUTOMATIC LOGOUT INDICATOR
075052 NUSERS BOOL 75052 CORE A LOGGED-IN USER COUNT
076426 PROBN BOOL 76426 CORE A PROBNO ARRAY
076362 PROGN BOOL 76362 CORE A PROGNO ARRAY
075113 PB BOOL 75113 CORE A GUARANTEED PERCENTAGE VECTOR BASE
000043 N BOOL 43 CORE A MAX. NO. OF USERS (SIZE OF PROBN)
*
000017 BASE BOOL 17 KEY CODE BASE
000001 I BOOL 1 KEY CODE TO START INCREMENTAL DUMP
000002 PAUSE BOOL 2 KEY CODE TO WAIT FOR 1 MIN.
000003 C BOOL 3 KEY CODE TO DO COMPLETE DUMP
000004 AK BOOL 4 KEY CODE FOR IMPENDING AUTOLOGOUT
000005 ENFLSH BOOL 5 KEY CODE TO ENTER FLUSH MODE
000006 LVFLSH BOOL 6 KEY CODE TO LEAVE FLUSH MODE
000007 ENDTAP BOOL 7 KEY CODE TO TERMINATE DUMP TAPE FILE
000010 INT BOOL 10 SIMULATE INTERRUPT
00660 RECSIZ EQU 432 TAPE RECORD SIZE
00006 NX EQU 6 MAX. NO. OF SYSTEM FILE OWNERS
00030 NCD EQU 24 MAX. NO. 'DAYS' NON-USE OF CURRENT FILES
00014 DINC EQU 12 NO. DAYS OF 'RECENCY' INCREMENT (C.DUMP)
01274 U EQU 700 MAX. NO. USERS IN MFD USER LIST
03300 TBSIZ EQU 4*RECSIZ TAPE BUFFER SIZE
00007 ERYSIZ EQU 7 I/O SYSTEM ERROR ARRAY SIZE
00014 ERCODA EQU 12 'OPEN' ERROR CODE FOR FILE NOT FOUND
00016 ERCODB EQU 14 'OPEN' ERROR CODE RQSTD. DEVICE UNAVBLE
00660 NW EQU 432 SIZE OF SECONDARY I/O FILE BUFFERS
00001 LSDRUM EQU 1 I/O SYSTEM DEVICE CODE FOR L.S.DRUM
00002 DISK EQU 2 I/O SYSTEM DEVICE CODE FOR DISK
00003 TAPE EQU 3 I/O SYSTEM DEVICE CODE FOR TAPE
00010 NHOUR EQU 8 NO. OF HOURS IN A 'DAY'
77461 KEYVAL COMMON 1 LAST KEY SETTING READ FROM SUPERVISOR
77460 FLSHSW COMMON 1 FLUSH MODE SWITCH
77457 ENTPSW COMMON 1 OPERATOR-REQUESTED-END-TAPE INDICATOR
77456 NMFDU COMMON 1 NO. USERS CURRENTLY IN LIST
77455 EXEMPT COMMON 2*NX LIST OF SYSTEM FILE OWNERS
77441 NXMPT COMMON 1 NO. FILE USERS EXEMPT FROM DUMP IN DCYCLE
77440 DTLD COMMON U TIME LAST DUMPED FOR EACH USER
76144 PROGNO COMMON U PROGRAMMER NO. OF EACH USER
74650 PROBNO COMMON U PROBLEM NO. OF EACH USER
73354 FLUSH COMMON 1 NON-ZERO INDICATES FLUSH MODE IS FORCED
73353 TND COMMON 1 TIME OF NEXT DUMP FOR CURRENT USER
70053 COMMON TBSIZ-1 TAPE BUFFER
1 SUBROUTINE TO DUMP ONE USER'S FILES....M.J.BAILEY,11/30/64 PAGE 21
70053 TPBUF COMMON 1 TAPE BUFFER 1ST WORD
64553 COMMON TBSIZ-1 2ND TAPE BUFFER
64553 TPBUF2 COMMON 1 2ND TAPE BUFFER, 1ST WORD
64544 COMMON ERYSIZ-1 ERROR ARRAY
64544 ERAY COMMON 1 ERROR ARRAY 1ST WORD
64526 COMMON 13 PRINT BUFFER
64526 PBF COMMON 1 PRINT BUFFER 1ST WORD
64510 COMMON 13 MFD ENTRY BUFFER
64510 MFDENT COMMON 1 MFD ENTRY BUFFER 1ST WORD
63630 COMMON NW-1 SECONDARY I/0 FILE BUFFER
63630 IOBUF COMMON 1 SECONDARY IO BUFFER 1ST WORD
62750 COMMON NW-1 SECONDARY I/O FILE BUFFER
62750 IOBUF2 COMMON 1 SECONDARY I/O BUFFER 1ST WORD
62747 UFDEOF COMMON 1 ZERO INDICATES EOF IN UFD FILE
62741 COMMON 5 PARTIAL UFD ENTRY BUFFER
62741 UFDENT COMMON 1 PARTIAL UFD ENTRY BUFFER 1ST WORD
62740 MFDC COMMON 1 NEXT WORD TO BE READ FROM MFD FILE
62737 TLD COMMON 1 TIME LAST DUMP OF USER CURRENTLY DUMPING
62736 UFDC COMMON 1 NEXT UNREAD POS. OF UFDFILE (NORMALLY ZERO)
62735 MFDEOF COMMON 1 ZERO INDICATES EOF IN MFD FILE
62734 EOFCT COMMON 1 NO. OF WORDS READ BEFORE AN EOF
62733 FEOF COMMON 1 ZERO INDICATES EOF IN A USER FILE
62732 EOFCTA COMMON 1 NO. OF WORDS BEFORE AN EOF
62731 DMPSW COMMON 1 NON-ZERO INDICATES A FILE HAS BEEN DUMPED
62730 DAWN COMMON 1 TIME OF START OF 'DAY'
62727 DMPUSR COMMON 1 PROBLEM NO. OF DUMP/LOAD PACKAGE
62726 DMPRGR COMMON 1 PROGRAMMER NO. OF DITTO.
62727 DU EQU DMPUSR
62726 DP EQU DMPRGR
62725 MFD1W COMMON 1 NO. OF 1ST GOOD WORD IN MFD AND UFD FILES
62723 COMMON 1 2ND PART OF DUMP TAPE FILE (COPY 1) NAME
62723 NFN1 COMMON 1 1ST PART OF DUMP TAPE FILE (COPY 1) NAME
62721 COMMON 1 2ND PART OF DUMP TAPE FILE (COPY 2) NAME
62721 NFN2 COMMON 1 1ST PART OF DUMP TAPE FILE (COPY 2) NAME
62720 TNDSW COMMON 1 INDICATES TIME OF THIS DUMP CURRENT OR NO
62040 COMMON RECSIZ-1 INTERNAL TAPE BUFFER
62040 ITB1 COMMON 1 ,, ,, ,, 1ST WORD
61160 COMMON RECSIZ-1 INTERNAL TAPE BUFFER
61160 ITB2 COMMON 1 ,, ,, ,, 1ST WORD
61157 DUSK COMMON 1 TIME OF END OF CURRENT 'DAY'
61156 ENDSW COMMON 1 IF 1, NORMAL END-OF-DAY,ELSE OPERATOR ONE
60276 COMMON NW-1 INTERNAL BUFFER FOR 'MAP' FILE
60276 IMP COMMON 1 ,, ,, ,, ,, ,, 1ST WORD
60267 COMMON 6 'MAP' FILE LINE PARAMETER ARRAY
60267 ARGLST COMMON 1 ,, ,, ,, ,, ,, 1ST WORD
60266 CDSW COMMON 1 NON-ZERO DURING COMPLETE DUMP,ELSE ZERO
60265 DATE COMMON 1 DATE THE DUMP NOW IN PROGRESS BEGAN
60264 TIME COMMON 1 TIME DUMP NOW IN PROGRESS BEGAN
60263 TCYCLE COMMON 1 'TIME' OF LAST CYCLE ON DUMP TAPE FILE
60262 TFOSW COMMON 1 NON-ZERO IF DUMP TAPE FILE IS OPEN
60261 ALOG COMMON 1 NON-ZERO IF AUTOLOGOUT ON
60260 SW1 COMMON 1
60257 TCP COMMON 1
60256 TNDSAV COMMON 1
60255 ODAWN COMMON 1 TIME OF START OF PREVIOUS 'DAY'
60244 COMMON 8 TAPE LABEL
1 SUBROUTINE TO DUMP ONE USER'S FILES....M.J.BAILEY,11/30/64 PAGE 22
60244 TAPEID COMMON 1 TAPE LABEL 1ST WORD
60243 SKELSW COMMON 1
60254 REELNO EQU TAPEID+8
END
REMOTE SEQUENCES
01274 606433263324 ..003 BCI 8, U.F.D. FILE NOT FOUND FOR FOLLOWING USER, .001
01275 336026314325
01276 604546636026
01277 466445246026
01300 465160264643
01301 434666314527
01302 606462255173
01303 606060606060
01304 606630466031 ..006 BCI 4, WHO IS IN M.F.D. - .001
01305 626031456044
01306 332633243360
01307 406060606060
01310 606060606060 ..008 BCI 6, PROBLEM NO. .001
01311 606060606060
01312 606060606060
01313 606060606060
01314 475146224325
01315 446045463360
01316 606060606060 ..010 BCI 6, PROGRAMMER NO. .001
01317 606060606060
01320 606060606060
01321 606060475146
01322 275121444425
01323 516045463360
01324 602122214524 ..013 BCI 8, ABANDONING THIS USER IN THE CURRENT DUMP CYCLE. .001
01325 464531452760
01326 633031626064
01327 622551603145
01330 606330256023
01331 645151254563
01332 602464444760
01333 237023432533
01334 314560263143 ..014 BCI 2,IN FILE - .001
01335 256040606060
01336 462660646225 ..015 BCI 2,OF USER - .001
01337 516040606060
LITERALS
01340 000000000000
01341 000000000001
01342 000000000003
01343 000000000007
01344 000000000014
01345 000000000015
01346 000000077777
01347 000001000003
01350 077777077777
01351 216060606060
01352 276060606060
01353 436060606060
01354 446060606060
1 SUBROUTINE TO DUMP ONE USER'S FILES....M.J.BAILEY,11/30/64 PAGE 23
01355 516660606060
01356 777777000000
1 SUBROUTINE TO DUMP ONE USER'S FILES....M.J.BAILEY,11/30/64 PAGE 1
POST PROCESSOR ASSEMBLY DATA
60242 IS THE LAST LOCATION NOT USED BY THIS PROGRAM
1357 IS THE FIRST LOCATION NOT USED BY THIS PROGRAM
0REFERENCES TO DEFINED SYMBOLS
103 A 565, 566, 1000, 1001, 1002, 1003
3 C 1274
1 I 1274
43 N 1274
34 R 157, 257, 536
1274 U 1274
62 Y 176, 177, 201, 203
4 AK 1274
62726 DP 1274
62727 DU 1274
72 L7
660 NW 50, 51, 1274
6 NX 1274
75113 PB 1274
1016 DU1 123, 150, 222, 1273
1017 DU2 124, 151, 223
1020 DU4 125, 152, 224, 1270, 1272
14 GDT 132
60276 IMP 1274
10 INT 1274
30 NCD 1274
271 NXI 214
371 NXJ 346
407 NXK 370
673 NXM 727
727 NXN 652
732 NXP 672
1007 NXQ 447, 457, 472, 475, 504, 505, 1004
1265 NXR 360, 402, 442, 444, 1140, 1144
246 OQD 242
64526 PBF 1034, 1040, 1043, 1047, 1053, 1056, 1062, 1065, 1070, 1073, 1077, 1102, 1105, 1110, 1114, 1120, 1123
1127, 1133, 1136, 1202, 1205, 1207, 1212, 1215, 1221, 1224, 1226, 1231, 1234, 1240, 1244, 1247, 1274
24 RDF 714, 752
60260 SW1 1274
60257 TCP 1274
62737 TLD 131, 314, 423, 474, 520, 614, 1274
73353 TND 316, 425, 471, 522, 617, 1274
60261 ALOG 1274
17 BASE 1274
25 BERM 1023, 1157, 1175, 1261
60266 CDSW 421, 463, 516, 1274
60265 DATE 1274
62730 DAWN 1274
14 DINC 1274
2 DISK 504, 505, 1274
77440 DTLD 1274
61157 DUSK 1274
221 DUSR 0, 216
64544 ERAY 1274
1022 ERRA 164, 264
1 SUBROUTINE TO DUMP ONE USER'S FILES....M.J.BAILEY,11/30/64 PAGE 2
POST PROCESSOR ASSEMBLY DATA
1145 ERRG 555
1166 ERRL 721
1252 ERRM 757
62733 FEOF 574, 720, 756, 1274
102 FLFL 670, 673, 677, 732
62040 ITB1 1274
61160 ITB2 1274
50 LBUF 170, 270
62740 MFDC 1274
55 NFLR 335, 337, 345, 647, 651, 653, 671
62723 NFN1 1274
62721 NFN2 1274
347 NXIB 366
366 NXIC 340
430 NXKA 422
531 NXLB 147
710 NXM1 703
712 NXM2 707, 713
715 NXM3 705
723 NXM4 701
722 NXMA 1173
760 NXNA 1257
746 NXP1 741
750 NXP2 745, 751
753 NXP3 743
761 NXP4 737
1005 NXPA 532, 1150, 1155, 1165
764 NXPB 717, 755, 1251
774 NXPD 533
1006 NXPE 534
2 OPEN 156, 256, 547
3 TAPE 1274
75 TBA1 700, 736
77 TBA2 702, 740
101 TBA3 706, 744
35 TEMP 322, 332, 357, 401, 467, 470, 473, 634, 644, 716, 754
60264 TIME 1274
62736 UFDC 272, 1274
20 WRNF 361, 403, 722, 760
73 ALLSW 213, 217, 221, 460
5 CLOSE 767, 1012, 1265
62731 DMPSW 772, 1274
1012 DU111 440
150 DUSR1 0
217 DUSRX 0
61156 ENDSW 1274
62734 EOFCT 1274
1060 ERRA1 1031
1125 ERRA2
1141 ERRA3
1156 ERRG1 1154
1200 ERRL1 1264
1174 ERRLA 1170
1260 ERRMA 1254
73354 FLUSH 1274
1 SUBROUTINE TO DUMP ONE USER'S FILES....M.J.BAILEY,11/30/64 PAGE 3
POST PROCESSOR ASSEMBLY DATA
4 FWAIT
15 GDSIG 303, 364, 406, 535, 725, 1007
63630 IOBUF 170, 270, 1274
1274 ..003 1033
1304 ..006 1046
1310 ..008 1061
1316 ..010 1076
1324 ..013 1113
1334 ..014 1201
1336 ..015 1220
51 LBUF2 561
47 LTPBF 320, 363, 632, 724
62725 MFD1W 1274
10 NHOUR 1274
56 NLAST 336, 341, 367, 405, 650, 655, 661, 663, 730, 762
16 NLREC 326, 640
77456 NMFDU 1274
525 NXFDB 517
460 NXFLA 451, 453, 456
77441 NXMPT 1274
763 NXPBG 731
60255 ODAWN 1274
2 PAUSE 1274
76426 PROBN 1274
76362 PROGN 1274
76147 RCODE 1274
17 RDUFD 355, 377
3300 TBSIZ 47, 100, 101, 274, 275, 350, 351, 372, 373, 575, 576, 711, 747, 1274
60262 TFOSW 1274
62720 TNDSW 1274
70053 TPBUF 75, 77, 101, 275, 306, 310, 312, 315, 317, 343, 347, 351, 356, 362, 371, 373, 400
404, 576, 606, 615, 620, 624, 665, 1274
36 UFDID 311
10 WRFLX 301, 602, 1037, 1052, 1067, 1104, 1117, 1132, 1211, 1230, 1243
60267 ARGLST 135, 137, 141, 143, 144, 145, 146, 410, 412, 414, 416, 420, 424, 426, 432, 433, 507
511, 514, 521, 523, 527, 530, 1274
0 ATTACH 153, 253, 544, 764
75040 AUTOND 1274
3 BUFFER 165, 265, 556
11 CHFILE
26 CKCODE 1026, 1145, 1151
6 DELFIL
75032 DEMKEY 1274
113 DMNDMP 0
120 DMPFIL 0, 117
62726 DMPRGR 1274
215 DMPUFD 0
62727 DMPUSR 1274
46 EMPTSW 210, 215, 232, 435, 437
7 ENDTAP 1274
5 ENFLSH 1274
77457 ENTPSW 1274
23 ENTUFD 443
62732 EOFCTA 1274
14 ERCODA 1030, 1153, 1274
1 SUBROUTINE TO DUMP ONE USER'S FILES....M.J.BAILEY,11/30/64 PAGE 4
POST PROCESSOR ASSEMBLY DATA
16 ERCODB 1274
27 ERREND 1142, 1163
41 ERSTAT 1126, 1237
7 ERYSIZ 1274
77455 EXEMPT 1274
77460 FLSHSW 1274
12 FSTATE 173, 562
22 IENUFD 441
62750 IOBUF2 561, 1274
77461 KEYVAL 1274
54 LCOUNT 205, 225, 233, 246, 247, 331, 570, 643
1 LSDRUM 502, 503, 1274
6 LVFLSH 1274
21 MAPLIN 434, 763
64510 MFDENT 127, 134, 140, 154, 155, 171, 172, 200, 202, 204, 226, 236, 250, 254, 255, 302, 305
307, 323, 407, 411, 417, 430, 506, 510, 545, 546, 605, 611, 765, 766, 1064, 1101, 1166
1171, 1223, 1225, 1252, 1255, 1274
62735 MFDEOF 1274
60 MFDNAM 1167, 1253
53 NORECS 212, 235, 240, 252, 327, 572, 641
75052 NUSERS 1274
506 NXFDMP 503
443 NXFILE 1011
476 NXFLAA 461
57 PHYSRC 334, 646, 660
74650 PROBNO 1274
76144 PROGNO 1274
52 RCOUNT 237, 244, 325, 330, 637, 642
660 RECSIZ 57, 1274
60254 REELNO 1274
13 SETFIL 775
60243 SKELSW 1274
61 STATUS 543, 550
75104 SYSDAT 1274
75105 SYSTIM 1274
60244 TAPEID 1274
60263 TCYCLE 126, 1274
1 TILOCK 531, 773, 1005
60256 TNDSAV 1274
64553 TPBUF2 74, 76, 100, 612, 616, 621, 630, 666, 1274
62741 UFDENT 114, 116, 120, 121, 133, 136, 142, 445, 446, 454, 462, 465, 476, 513, 525, 537, 551
552, 557, 560, 563, 564, 567, 603, 623, 627, 635, 770, 771, 776, 777, 1204, 1206, 1274
62747 UFDEOF 130, 273, 353, 375, 1010, 1274
32 UFDNAM 160, 161, 166, 167, 174, 175, 260, 261, 266, 267, 413, 415, 450, 455, 1013, 1014, 1172
1256, 1266, 1267
7 WRFILE
0 NO ERROR IN ABOVE ASSEMBLY.
DDPFLB BCD 05/28/67 1807.1 4567 00000
1 START DUMP TAPE FILE.....M.J.BAILEY,12/15/64 PAGE 1
*
00020 ENTRY SDF
*
EXTERN BUFFER,ATTACH,CHFILE,TAPFIL
EXTERN MOUNT,LABEL,OPEN,DELFIL
TRANSFER VECTOR
00000 226426262551 BUFFER
00001 216363212330 ATTACH
00002 233026314325 CHFILE
00003 632147263143 TAPFIL
00004 444664456360 MOUNT
00005 432122254360 LABEL
00006 464725456060 OPEN
00007 242543263143 DELFIL
00010 272462312760 GDSIG
00011 222324246344 BCDDTM
00012 272463606060 GDT
00013 665145266060 WRNF
00014 222551446060 BERM
00015 255151254524 ERREND
LINKAGE DIRECTOR
00016 000000000000
00017 622426606060
00020 0634 00 1 00205 SDF SXA SDY,1
00021 0634 00 4 00206 SXA SDZ,4
00022 0600 00 0 60254 STZ REELNO
00023 0500 00 4 00001 CLA 1,4 ADDRESS OF TAPE-MOUNT MESSAGE
00024 0601 00 0 00055 STO SDFA
00025 0601 00 0 00105 STO SDFC
*
00026 0074 00 4 00010 TSX $GDSIG,4
00027 0074 00 4 00001 TSX ATTACH,4
TD 00030 3 00000 0 62727 TXH DMPUSR
TD 00031 3 00000 0 62726 TXH DMPRGR
00032 0074 00 4 00002 TSX CHFILE,4 DE-PROTECT OLD DUMP TAPE FILE (COPY 1)
TD 00033 3 00000 0 62723 TXH NFN1
TD 00034 3 00000 0 62724 TXH NFN1+1
TD 00035 3 00000 0 00231 TXH =O0
TD 00036 3 00000 0 00237 TXH =-0
TD 00037 3 00000 0 00237 TXH =-0
TD 00040 3 00000 0 00041 TXH *+1
00041 0074 00 4 00007 TSX DELFIL,4 DELETE IT
TD 00042 3 00000 0 62723 TXH NFN1
TD 00043 3 00000 0 62724 TXH NFN1+1
TD 00044 3 00000 0 00045 TXH *+1
00045 0074 00 4 00003 TSX TAPFIL,4 DECLARE UNIT 11,FILE 1, TO BE
TD 00046 3 00000 0 62723 TXH NFN1 DUMP FILE COPY 1
TD 00047 3 00000 0 62724 TXH NFN1+1
TD 00050 3 00000 0 00234 TXH =11
TD 00051 3 00000 0 00231 TXH =0
00052 0074 00 4 00004 TSX MOUNT,4 ASK OPERATOR FOR REEL
TD 00053 3 00000 0 00232 TXH =1 ON CHANNEL A
TD 00054 3 00000 0 00234 TXH =11 ON UNIT 11,GIVE HIM MESSAGE
1 START DUMP TAPE FILE.....M.J.BAILEY,12/15/64 PAGE 2
00055 2 00000 0 00000 SDFA TIX **,,**
00056 0074 00 4 00005 TSX LABEL,4 GIVE I/O SYSTEM TAPE LABEL
TD 00057 3 00000 0 00234 TXH =11
00060 2 00225 0 60244 TIX TAPEID,,L4
TD 00061 3 00000 0 00052 TXH *-7
*
00062 0074 00 4 00002 TSX CHFILE,4 DE-PROTECT OLD DUMP TAPE FILE (COPY 2)
TD 00063 3 00000 0 62721 TXH NFN2
TD 00064 3 00000 0 62722 TXH NFN2+1
TD 00065 3 00000 0 00231 TXH =O0
TD 00066 3 00000 0 00237 TXH =-0
TD 00067 3 00000 0 00237 TXH =-0
TD 00070 3 00000 0 00071 TXH *+1
00071 0074 00 4 00007 TSX DELFIL,4 DELETE IT
TD 00072 3 00000 0 62721 TXH NFN2
TD 00073 3 00000 0 62722 TXH NFN2+1
TD 00074 3 00000 0 00075 TXH *+1
00075 0074 00 4 00003 TSX TAPFIL,4 DECLARE UNIT 12,FILE 1, TO BE
TD 00076 3 00000 0 62721 TXH NFN2 DUMP FILE COPY 2
TD 00077 3 00000 0 62722 TXH NFN2+1
TD 00100 3 00000 0 00235 TXH =12
TD 00101 3 00000 0 00231 TXH =0
00102 0074 00 4 00004 TSX MOUNT,4 ASK OPERATOR FOR REEL
TD 00103 3 00000 0 00233 TXH =2 ON CHANNEL B
TD 00104 3 00000 0 00235 TXH =12 ON UNIT 12, GIVE HIM MESSAGE
00105 2 00000 0 00000 SDFC TIX **,,**
00106 0074 00 4 00005 TSX LABEL,4 GIVE I/O SYSTEM TAPE LABEL
TD 00107 3 00000 0 00235 TXH =12
00110 2 00225 0 60244 TIX TAPEID,,L4
TD 00111 3 00000 0 00102 TXH *-7
*
* OPEN DUMP TAPE FILES
*
00112 0074 00 4 00006 IDNA TSX OPEN,4 NOW, OPEN DUMP TAPE FILES
TD 00113 3 00000 0 00221 TXH W
TD 00114 3 00000 0 62723 TXH NFN1
TD 00115 3 00000 0 62724 TXH NFN1+1
TD 00116 3 00000 0 00236 TXH =O120
TD 00117 3 00000 0 00220 TXH LTAPE
TD 00120 3 00000 0 00210 TXH ERRID4
00121 0074 00 4 00000 IDO TSX BUFFER,4
TD 00122 3 00000 0 62723 TXH NFN1
TD 00123 3 00000 0 62724 TXH NFN1+1
00124 2 00222 0 62040 TIX ITB1,,LITB1
00125 0074 00 4 00006 IDOA TSX OPEN,4
TD 00126 3 00000 0 00221 TXH W
TD 00127 3 00000 0 62721 TXH NFN2
TD 00130 3 00000 0 62722 TXH NFN2+1
TD 00131 3 00000 0 00236 TXH =O120
TD 00132 3 00000 0 00220 TXH LTAPE
TD 00133 3 00000 0 00214 TXH ERRID5
00134 0074 00 4 00000 IDP TSX BUFFER,4
TD 00135 3 00000 0 62721 TXH NFN2
TD 00136 3 00000 0 62722 TXH NFN2+1
00137 2 00223 0 61160 TIX ITB2,,LITB2
00140 0500 00 0 60262 CLA TFOSW
1 START DUMP TAPE FILE.....M.J.BAILEY,12/15/64 PAGE 3
00141 0400 00 0 00232 ADD =1
00142 0601 00 0 60262 STO TFOSW
*
* PREPARE THEN WRITE TAPE I.D. RECORD
*
00143 0774 00 1 00650 AXT RECSIZ-8,1
00144 0600 00 1 70733 STZ TPBUF+RECSIZ,1 CLEAR ALL BUT BOTTOM OF BUFFER
00145 2 00001 1 00144 TIX *-1,1,1
00146 0774 00 1 00004 AXT 4,1
00147 -0500 00 1 60250 IDX CAL TAPEID+4,1 STORE HEADER LABEL IN BUFFER
00150 0602 00 1 70057 SLW TPBUF+4,1
00151 2 00001 1 00147 TIX IDX,1,1
00152 0074 00 4 00011 TSX $BCDDTM,4 CURRENT DATE/TIME
00153 0602 00 0 70057 SLW TPBUF+4 TIME (HHMM.M IN BCD)
00154 0602 00 0 60264 SLW TIME SAVE TIME DUMPING STARTED
00155 -0600 00 0 70060 STQ TPBUF+5 DATE (MMDDYY IN BCD)
00156 -0600 00 0 60265 STQ DATE SAVE DATE DUMPING STARTED
00157 0074 00 4 00012 TSX $GDT,4 I/O SYSTEM FORM CURRENT DATE/TIME
00160 0602 00 0 70061 SLW TPBUF+6
00161 0774 00 1 00004 AXT 4,1
00162 -0500 00 1 70063 CAL TPBUF+8,1
00163 0602 00 1 60254 SLW TAPEID+8,1
00164 2 00001 1 00162 TIX *-2,1,1
00165 -0500 00 0 00224 CAL LRSIZ
00166 0771 00 0 00003 ARS 3 RECSIZ/8 (INTEGER)
00167 0402 00 0 00232 SUB =1 RECSIZ/8-1
00170 0767 00 0 00003 ALS 3 (RECSIZ/8-1)*8
00171 0734 00 4 00000 PAX 0,4
00172 -0760 00 0 00016 EMTM
00173 0774 00 1 00000 AXT 0,1 REPEAT THE 8 I.D. WORDS
00174 -0500 00 1 70062 CAL TPBUF+7,1 THROUGHOUT THE FIRST PHYSICAL RECORD
00175 0602 00 5 70742 SLW TPBUF+RECSIZ/8*8+7,5
00176 1 00001 1 00177 TXI *+1,1,1
00177 -3 00007 1 00174 TXL *-3,1,7
00200 2 00010 4 00173 TIX *-5,4,8
00201 0760 00 0 00016 LMTM
*
00202 0074 00 4 00013 TSX $WRNF,4 WRITE DUMP TAPE(S) ID RECORD
TD 00203 3 00000 0 70053 TXH TPBUF
TD 00204 3 00000 0 00224 TXH LRSIZ
*
00205 0774 00 1 00000 SDY AXT **,1
00206 0774 00 4 00000 SDZ AXT **,4
00207 0020 00 4 00002 TRA 2,4
*
00210 0074 00 4 00014 ERRID4 TSX $BERM,4 PRINT STANDARD MESSAGE
00211 0 00000 0 00240 PZE =HSDF01
00212 0074 00 4 00015 TSX $ERREND,4
00213 0020 00 0 00112 TRA IDNA TRY AGAIN
*
00214 0074 00 4 00014 ERRID5 TSX $BERM,4 PRINT STANDARD MESSAGE
00215 0 00000 0 00241 PZE =HSDF02
00216 0074 00 4 00015 TSX $ERREND,4
00217 0020 00 0 00125 TRA IDOA TRY AGAIN
*
* CONSTANTS, VARIABLES, ETC.
1 START DUMP TAPE FILE.....M.J.BAILEY,12/15/64 PAGE 4
*
00220 0 00000 0 00003 LTAPE PZE TAPE
00221 666060606060 W BCI 1,W
00222 0 00000 0 01540 LITB1 PZE 2*RECSIZ
00223 0 00000 0 01540 LITB2 PZE 2*RECSIZ
00224 0 00000 0 00660 LRSIZ PZE RECSIZ
00225 0 00000 0 00004 L4 PZE 4
00226 643326332433 UFDNAM BCI 2,U.F.D.(FILE)
00227 742631432534
00230 443326332433 MFDNAM BCI 1,M.F.D.
INSERT DCMEQB
*
* . . . . . . . . . . . . . . . . . .
* COMMON AND EQUIVALENCE FOR GENERAL DUMP PROGRAM
* . . . . . . . . . . . . . . . . . .
*
075032 DEMKEY BOOL 75032 CORE A LOCATION FOR DAEMON'S KEY SETTING
075105 SYSTIM BOOL 75105 CORE A LOCATION FOR SYSTEM TIME
075104 SYSDAT BOOL 75104 CORE A LOCATION FOR SYSTEM INIT. DATE
076147 RCODE BOOL 76147 CORE A LOCATION FOR RESTRICTION CODE VECTOR
075040 AUTOND BOOL 75040 CORE A AUTOMATIC LOGOUT INDICATOR
075052 NUSERS BOOL 75052 CORE A LOGGED-IN USER COUNT
076426 PROBN BOOL 76426 CORE A PROBNO ARRAY
076362 PROGN BOOL 76362 CORE A PROGNO ARRAY
075113 PB BOOL 75113 CORE A GUARANTEED PERCENTAGE VECTOR BASE
000043 N BOOL 43 CORE A MAX. NO. OF USERS (SIZE OF PROBN)
*
000017 BASE BOOL 17 KEY CODE BASE
000001 I BOOL 1 KEY CODE TO START INCREMENTAL DUMP
000002 PAUSE BOOL 2 KEY CODE TO WAIT FOR 1 MIN.
000003 C BOOL 3 KEY CODE TO DO COMPLETE DUMP
000004 AK BOOL 4 KEY CODE FOR IMPENDING AUTOLOGOUT
000005 ENFLSH BOOL 5 KEY CODE TO ENTER FLUSH MODE
000006 LVFLSH BOOL 6 KEY CODE TO LEAVE FLUSH MODE
000007 ENDTAP BOOL 7 KEY CODE TO TERMINATE DUMP TAPE FILE
000010 INT BOOL 10 SIMULATE INTERRUPT
00660 RECSIZ EQU 432 TAPE RECORD SIZE
00006 NX EQU 6 MAX. NO. OF SYSTEM FILE OWNERS
00030 NCD EQU 24 MAX. NO. 'DAYS' NON-USE OF CURRENT FILES
00014 DINC EQU 12 NO. DAYS OF 'RECENCY' INCREMENT (C.DUMP)
01274 U EQU 700 MAX. NO. USERS IN MFD USER LIST
03300 TBSIZ EQU 4*RECSIZ TAPE BUFFER SIZE
00007 ERYSIZ EQU 7 I/O SYSTEM ERROR ARRAY SIZE
00014 ERCODA EQU 12 'OPEN' ERROR CODE FOR FILE NOT FOUND
00016 ERCODB EQU 14 'OPEN' ERROR CODE RQSTD. DEVICE UNAVBLE
00660 NW EQU 432 SIZE OF SECONDARY I/O FILE BUFFERS
00001 LSDRUM EQU 1 I/O SYSTEM DEVICE CODE FOR L.S.DRUM
00002 DISK EQU 2 I/O SYSTEM DEVICE CODE FOR DISK
00003 TAPE EQU 3 I/O SYSTEM DEVICE CODE FOR TAPE
00010 NHOUR EQU 8 NO. OF HOURS IN A 'DAY'
77461 KEYVAL COMMON 1 LAST KEY SETTING READ FROM SUPERVISOR
77460 FLSHSW COMMON 1 FLUSH MODE SWITCH
77457 ENTPSW COMMON 1 OPERATOR-REQUESTED-END-TAPE INDICATOR
77456 NMFDU COMMON 1 NO. USERS CURRENTLY IN LIST
77455 EXEMPT COMMON 2*NX LIST OF SYSTEM FILE OWNERS
77441 NXMPT COMMON 1 NO. FILE USERS EXEMPT FROM DUMP IN DCYCLE
1 START DUMP TAPE FILE.....M.J.BAILEY,12/15/64 PAGE 5
77440 DTLD COMMON U TIME LAST DUMPED FOR EACH USER
76144 PROGNO COMMON U PROGRAMMER NO. OF EACH USER
74650 PROBNO COMMON U PROBLEM NO. OF EACH USER
73354 FLUSH COMMON 1 NON-ZERO INDICATES FLUSH MODE IS FORCED
73353 TND COMMON 1 TIME OF NEXT DUMP FOR CURRENT USER
70053 COMMON TBSIZ-1 TAPE BUFFER
70053 TPBUF COMMON 1 TAPE BUFFER 1ST WORD
64553 COMMON TBSIZ-1 2ND TAPE BUFFER
64553 TPBUF2 COMMON 1 2ND TAPE BUFFER, 1ST WORD
64544 COMMON ERYSIZ-1 ERROR ARRAY
64544 ERAY COMMON 1 ERROR ARRAY 1ST WORD
64526 COMMON 13 PRINT BUFFER
64526 PBF COMMON 1 PRINT BUFFER 1ST WORD
64510 COMMON 13 MFD ENTRY BUFFER
64510 MFDENT COMMON 1 MFD ENTRY BUFFER 1ST WORD
63630 COMMON NW-1 SECONDARY I/0 FILE BUFFER
63630 IOBUF COMMON 1 SECONDARY IO BUFFER 1ST WORD
62750 COMMON NW-1 SECONDARY I/O FILE BUFFER
62750 IOBUF2 COMMON 1 SECONDARY I/O BUFFER 1ST WORD
62747 UFDEOF COMMON 1 ZERO INDICATES EOF IN UFD FILE
62741 COMMON 5 PARTIAL UFD ENTRY BUFFER
62741 UFDENT COMMON 1 PARTIAL UFD ENTRY BUFFER 1ST WORD
62740 MFDC COMMON 1 NEXT WORD TO BE READ FROM MFD FILE
62737 TLD COMMON 1 TIME LAST DUMP OF USER CURRENTLY DUMPING
62736 UFDC COMMON 1 NEXT UNREAD POS. OF UFDFILE (NORMALLY ZERO)
62735 MFDEOF COMMON 1 ZERO INDICATES EOF IN MFD FILE
62734 EOFCT COMMON 1 NO. OF WORDS READ BEFORE AN EOF
62733 FEOF COMMON 1 ZERO INDICATES EOF IN A USER FILE
62732 EOFCTA COMMON 1 NO. OF WORDS BEFORE AN EOF
62731 DMPSW COMMON 1 NON-ZERO INDICATES A FILE HAS BEEN DUMPED
62730 DAWN COMMON 1 TIME OF START OF 'DAY'
62727 DMPUSR COMMON 1 PROBLEM NO. OF DUMP/LOAD PACKAGE
62726 DMPRGR COMMON 1 PROGRAMMER NO. OF DITTO.
62727 DU EQU DMPUSR
62726 DP EQU DMPRGR
62725 MFD1W COMMON 1 NO. OF 1ST GOOD WORD IN MFD AND UFD FILES
62723 COMMON 1 2ND PART OF DUMP TAPE FILE (COPY 1) NAME
62723 NFN1 COMMON 1 1ST PART OF DUMP TAPE FILE (COPY 1) NAME
62721 COMMON 1 2ND PART OF DUMP TAPE FILE (COPY 2) NAME
62721 NFN2 COMMON 1 1ST PART OF DUMP TAPE FILE (COPY 2) NAME
62720 TNDSW COMMON 1 INDICATES TIME OF THIS DUMP CURRENT OR NO
62040 COMMON RECSIZ-1 INTERNAL TAPE BUFFER
62040 ITB1 COMMON 1 ,, ,, ,, 1ST WORD
61160 COMMON RECSIZ-1 INTERNAL TAPE BUFFER
61160 ITB2 COMMON 1 ,, ,, ,, 1ST WORD
61157 DUSK COMMON 1 TIME OF END OF CURRENT 'DAY'
61156 ENDSW COMMON 1 IF 1, NORMAL END-OF-DAY,ELSE OPERATOR ONE
60276 COMMON NW-1 INTERNAL BUFFER FOR 'MAP' FILE
60276 IMP COMMON 1 ,, ,, ,, ,, ,, 1ST WORD
60267 COMMON 6 'MAP' FILE LINE PARAMETER ARRAY
60267 ARGLST COMMON 1 ,, ,, ,, ,, ,, 1ST WORD
60266 CDSW COMMON 1 NON-ZERO DURING COMPLETE DUMP,ELSE ZERO
60265 DATE COMMON 1 DATE THE DUMP NOW IN PROGRESS BEGAN
60264 TIME COMMON 1 TIME DUMP NOW IN PROGRESS BEGAN
60263 TCYCLE COMMON 1 'TIME' OF LAST CYCLE ON DUMP TAPE FILE
60262 TFOSW COMMON 1 NON-ZERO IF DUMP TAPE FILE IS OPEN
1 START DUMP TAPE FILE.....M.J.BAILEY,12/15/64 PAGE 6
60261 ALOG COMMON 1 NON-ZERO IF AUTOLOGOUT ON
60260 SW1 COMMON 1
60257 TCP COMMON 1
60256 TNDSAV COMMON 1
60255 ODAWN COMMON 1 TIME OF START OF PREVIOUS 'DAY'
60244 COMMON 8 TAPE LABEL
60244 TAPEID COMMON 1 TAPE LABEL 1ST WORD
60243 SKELSW COMMON 1
60254 REELNO EQU TAPEID+8
END
LITERALS
00231 000000000000
00232 000000000001
00233 000000000002
00234 000000000013
00235 000000000014
00236 000000000120
00237 400000000000
00240 622426000160
00241 622426000260
1 START DUMP TAPE FILE.....M.J.BAILEY,12/15/64 PAGE 1
POST PROCESSOR ASSEMBLY DATA
60242 IS THE LAST LOCATION NOT USED BY THIS PROGRAM
242 IS THE FIRST LOCATION NOT USED BY THIS PROGRAM
0REFERENCES TO DEFINED SYMBOLS
3 C 231
1 I 231
43 N 231
1274 U 231
221 W 113, 126
4 AK 231
62726 DP 231
62727 DU 231
225 L4 60, 110
660 NW 231
6 NX 231
75113 PB 231
12 GDT 157
121 IDO
134 IDP
147 IDX 151
60276 IMP 231
10 INT 231
30 NCD 231
64526 PBF 231
20 SDF 0
205 SDY 20
206 SDZ 21
60260 SW1 231
60257 TCP 231
62737 TLD 231
73353 TND 231
60261 ALOG 231
17 BASE 231
14 BERM 210, 214
60266 CDSW 231
60265 DATE 156, 231
62730 DAWN 231
14 DINC 231
2 DISK 231
77440 DTLD 231
61157 DUSK 231
64544 ERAY 231
62733 FEOF 231
112 IDNA 213
125 IDOA 217
62040 ITB1 124, 231
61160 ITB2 137, 231
62740 MFDC 231
62723 NFN1 33, 34, 42, 43, 46, 47, 114, 115, 122, 123, 231
62721 NFN2 63, 64, 72, 73, 76, 77, 127, 130, 135, 136, 231
6 OPEN 112, 125
55 SDFA 24
105 SDFC 25
3 TAPE 220, 231
1 START DUMP TAPE FILE.....M.J.BAILEY,12/15/64 PAGE 2
POST PROCESSOR ASSEMBLY DATA
60264 TIME 154, 231
62736 UFDC 231
13 WRNF 202
62731 DMPSW 231
61156 ENDSW 231
62734 EOFCT 231
73354 FLUSH 231
10 GDSIG 26
63630 IOBUF 231
5 LABEL 56, 106
222 LITB1 124
223 LITB2 137
224 LRSIZ 165, 204
220 LTAPE 117, 132
62725 MFD1W 231
4 MOUNT 52, 102
10 NHOUR 231
77456 NMFDU 231
77441 NXMPT 231
60255 ODAWN 231
2 PAUSE 231
76426 PROBN 231
76362 PROGN 231
76147 RCODE 231
3300 TBSIZ 231
60262 TFOSW 140, 142, 231
62720 TNDSW 231
70053 TPBUF 144, 150, 153, 155, 160, 162, 174, 175, 203, 231
60267 ARGLST 231
1 ATTACH 27
75040 AUTOND 231
11 BCDDTM 152
0 BUFFER 121, 134
2 CHFILE 32, 62
7 DELFIL 41, 71
75032 DEMKEY 231
62726 DMPRGR 31, 231
62727 DMPUSR 30, 231
7 ENDTAP 231
5 ENFLSH 231
77457 ENTPSW 231
62732 EOFCTA 231
14 ERCODA 231
16 ERCODB 231
15 ERREND 212, 216
210 ERRID4 120
214 ERRID5 133
7 ERYSIZ 231
77455 EXEMPT 231
77460 FLSHSW 231
62750 IOBUF2 231
77461 KEYVAL 231
1 LSDRUM 231
6 LVFLSH 231
64510 MFDENT 231
1 START DUMP TAPE FILE.....M.J.BAILEY,12/15/64 PAGE 3
POST PROCESSOR ASSEMBLY DATA
62735 MFDEOF 231
230 MFDNAM
75052 NUSERS 231
74650 PROBNO 231
76144 PROGNO 231
660 RECSIZ 143, 144, 175, 222, 223, 224, 231
60254 REELNO 22, 231
60243 SKELSW 231
75104 SYSDAT 231
75105 SYSTIM 231
60244 TAPEID 60, 110, 147, 163, 231
3 TAPFIL 45, 75
60263 TCYCLE 231
60256 TNDSAV 231
64553 TPBUF2 231
62741 UFDENT 231
62747 UFDEOF 231
226 UFDNAM
0 NO ERROR IN ABOVE ASSEMBLY.
DDMAPB BCD 05/28/67 1807.1 9503 00000
1 DUMP TAPE FILE 'MAP' PREPARATION ROUTINES....M.J.BAILEY,12/15/64 PAGE 1
*
00022 ENTRY MAPLIN WRITE 1 MAP LINE (ALL DUMPS)
*
00455 ENTRY SAVMAP
*
00275 ENTRY SMF START MAP FILE (ALL DUMPS)
*
00330 ENTRY WMH WRITE MAP HEADING (NOT FOR NEW-FILE DUMP)
*
00362 ENTRY EMF END MAP FILE (ALL DUMPS)
*
00476 ENTRY DMF DUMP AND REMOTE PRINT MAP FILE (ALL DUMPS)
*
EXTERN CHFILE,DELFIL,OPEN,BUFFER,CLOSE,TILOCK
EXTERN FWAIT,WRFILE,ATTACH,FSTATE
*
*
* WRITE ONE LINE IN TAPE 'MAP' FILE TO RECORD THE DUMPING OF A FILE
*
TRANSFER VECTOR
00000 233026314325 CHFILE
00001 242543263143 DELFIL
00002 464725456060 OPEN
00003 226426262551 BUFFER
00004 234346622560 CLOSE
00005 633143462342 TILOCK
00006 266621316360 FWAIT
00007 665126314325 WRFILE
00010 216363212330 ATTACH
00011 266263216325 FSTATE
00012 272463606060 GDT
00013 272462312760 GDSIG
00014 314622246360 IOBDT
00015 222324246344 BCDDTM
00016 244447263143 DMPFIL
00017 475145632551 PRNTER
LINKAGE DIRECTOR
00020 000000000000
00021 442147433145
00022 0634 00 4 00246 MAPLIN SXA MPG,4
00023 0634 00 2 00244 SXA MPF,2
00024 0634 00 1 00243 SXA MPE,1
00025 -0500 00 0 60267 CAL ARGLST SEE IF FILE TO BE RECORDED IS MAP ITSELF
00026 -0340 00 0 62727 LAS DMPUSR .
00027 0020 00 0 00050 TRA MPA .
00030 0020 00 0 00032 TRA *+2 .
00031 0020 00 0 00050 TRA MPA .
00032 -0500 00 0 60270 CAL ARGLST+1 .
00033 -0340 00 0 62726 LAS DMPRGR .
00034 0020 00 0 00050 TRA MPA .
00035 0020 00 0 00037 TRA *+2 .
00036 0020 00 0 00050 TRA MPA .
1 DUMP TAPE FILE 'MAP' PREPARATION ROUTINES....M.J.BAILEY,12/15/64 PAGE 2
00037 -0500 00 0 60271 CAL ARGLST+2 .
00040 -0340 00 0 01040 LAS MAP1 .
00041 0020 00 0 00050 TRA MPA .
00042 0020 00 0 00044 TRA *+2 .
00043 0020 00 0 00050 TRA MPA .
00044 -0500 00 0 60272 CAL ARGLST+3 .
00045 -0340 00 0 01041 LAS MAP2 .
00046 0020 00 0 00050 TRA MPA .
00047 0020 00 4 00001 TRA 1,4 EXIT IF MAP FILE ITSELF WAS TO BE RECORDED
*
00050 0074 00 4 00010 MPA TSX ATTACH,4
TD 00051 3 00000 0 62727 TXH DMPUSR
TD 00052 3 00000 0 62726 TXH DMPRGR
00053 0534 00 1 01043 LXA COUNT,1
00054 2 00001 1 00250 TIX MWAIT,1,1
00055 0074 00 4 00004 TSX CLOSE,4
TD 00056 3 00000 0 01040 TXH MAP1
TD 00057 3 00000 0 01041 TXH MAP2
00060 0074 00 4 00312 TSX SMF2,4
00061 0774 00 1 00031 AXT 25,1
00062 0634 00 1 01043 NOCLOS SXA COUNT,1
*
00063 0774 00 1 00021 AXT 17,1 CLEAR LINE BUFFER
00064 0600 00 1 01073 STZ T+18,1
00065 2 00001 1 00064 TIX *-1,1,1
00066 -0500 00 0 01106 CAL =O777777000021
00067 0602 00 0 01051 SLW T SET LINE-MARKED BCD CONTROL WORD IN LINE
*
00070 0074 00 4 00012 TSX $GDT,4 GET I/O SYSTEM FORM CURRENT DATE/TIME
00071 0074 00 2 00254 TSX DT,2 CONVERT IT TO '0 MM/DD/YY HHMM.M' IN TEMP
00072 0560 00 0 01046 LDQ TEMP PACK AND STORE CURRENT DATE/TIME IN LINE
00073 -0763 00 0 00014 LGL 12
T 00074 -0754 00 0 00000 PXD
00075 -0763 00 0 00030 LGL 24
00076 0560 00 0 01047 LDQ TEMP+1
00077 -0763 00 0 00006 LGL 6
00100 0602 00 0 01052 SLW T+1
00101 -0763 00 0 00036 LGL 30
00102 0560 00 0 01050 LDQ TEMP+2
00103 -0763 00 0 00006 LGL 6
00104 0602 00 0 01053 SLW T+2
00105 -0763 00 0 00036 LGL 30
00106 0767 00 0 00006 ALS 6
00107 -0501 00 0 01075 ORA =O60
00110 0602 00 0 01054 SLW T+3
*
00111 0560 00 0 60267 LDQ ARGLST GET FILE'S USER PROB. NO.
00112 -0500 00 0 01042 CAL BLANKS AND PACK AND STORE IT IN LINE BUFFER
00113 -0763 00 0 00022 LGL 18
00114 0602 00 0 01055 SLW T+4
00115 -0763 00 0 00022 LGL 18
00116 0767 00 0 00006 ALS 6
00117 -0501 00 0 01075 ORA =O60
*
00120 0560 00 0 60270 LDQ ARGLST+1 FILE'S USER PROGRAMMER NO.
00121 -0763 00 0 00014 LGL 12 PACK AND STORE IT IN LINE BUFFER
1 DUMP TAPE FILE 'MAP' PREPARATION ROUTINES....M.J.BAILEY,12/15/64 PAGE 3
00122 0602 00 0 01056 SLW T+5
00123 -0763 00 0 00030 LGL 24
00124 0560 00 0 01042 LDQ BLANKS
00125 -0763 00 0 00014 LGL 12
00126 0602 00 0 01057 SLW T+6
*
00127 -0500 00 0 60271 CAL ARGLST+2 GET FILE'S 1ST NAME
00130 0602 00 0 01060 SLW T+7 STORE IN LINE BUFFER
00131 -0500 00 0 01075 CAL =O60
*
00132 0560 00 0 60272 LDQ ARGLST+3 PACK AND STORE FILE'S 2ND NAME
00133 -0763 00 0 00036 LGL 30
00134 0602 00 0 01061 SLW T+8
00135 -0763 00 0 00006 LGL 6
00136 0602 00 0 01044 SLW HOLD HOLD LAST CHAR. OF FILE NAME
*
00137 -0500 00 0 60273 CAL ARGLST+4 GET DATE/TIME FILE LAST MODIFIED
00140 -0100 00 0 00146 TNZ MPB
00141 -0500 00 0 01042 CAL BLANKS BLANKS IF DATE/TIME ZERO
00142 0602 00 0 01046 SLW TEMP
00143 0602 00 0 01047 SLW TEMP+1
00144 0602 00 0 01050 SLW TEMP+2
00145 0020 00 0 00147 TRA *+2
00146 0074 00 2 00254 MPB TSX DT,2 CONVERT DATE/TIME FILE LAST MODIFIED TO BCD
00147 0560 00 0 01046 LDQ TEMP PACK AND STORE IT IN LINE BUFFER
00150 -0763 00 0 00006 LGL 6
T 00151 -0754 00 0 00000 PXD
00152 -0500 00 0 01044 CAL HOLD
00153 -0763 00 0 00036 LGL 30
00154 0602 00 0 01062 SLW T+9
00155 -0500 00 0 01047 CAL TEMP+1
00156 0602 00 0 01063 SLW T+10
00157 -0500 00 0 01050 CAL TEMP+2
00160 0602 00 0 01064 SLW T+11
*
00161 -0500 00 0 60274 CAL ARGLST+5 GET DATE/TIME USER LAST DUMPED
00162 -0100 00 0 00170 TNZ MPC
00163 -0500 00 0 01042 CAL BLANKS BLANKS IF DATE/TIME ZERO
00164 0602 00 0 01046 SLW TEMP
00165 0602 00 0 01047 SLW TEMP+1
00166 0602 00 0 01050 SLW TEMP+2
00167 0020 00 0 00171 TRA *+2
00170 0074 00 2 00254 MPC TSX DT,2 CONVERT DATE/TIME USER LAST DUMPED TO BCD
00171 0560 00 0 01046 LDQ TEMP AND PACK AND STORE IT IN LINE BUFFER
00172 -0763 00 0 00006 LGL 6
00173 -0500 00 0 01042 CAL BLANKS
00174 -0763 00 0 00030 LGL 24
00175 0602 00 0 01065 SLW T+12
00176 -0763 00 0 00006 LGL 6
00177 0560 00 0 01047 LDQ TEMP+1
00200 -0763 00 0 00036 LGL 30
00201 0602 00 0 01066 SLW T+13
00202 -0763 00 0 00006 LGL 6
00203 -0520 00 0 60266 NZT CDSW
00204 0020 00 0 00207 TRA *+3 SKIP IF INCREMENTAL DUMP
00205 0560 00 0 01042 LDQ BLANKS IF COMPLETE DUMP ARGLST+5 IS
1 DUMP TAPE FILE 'MAP' PREPARATION ROUTINES....M.J.BAILEY,12/15/64 PAGE 4
00206 0020 00 0 00210 TRA *+2 DATE FILE LAST USED (NO TIME)
00207 0560 00 0 01050 LDQ TEMP+2
00210 -0763 00 0 00036 LGL 30
00211 0602 00 0 01067 SLW T+14
00212 -0763 00 0 00006 LGL 6
00213 0602 00 0 01044 SLW HOLD HOLD LAST CHAR. OF DATE/TIME LAST DUMPED
*
00214 -0500 00 0 60275 CAL ARGLST+6 GET DATE/TIME OF THIS DUMP
00215 -0100 00 0 00223 TNZ MPD
00216 -0500 00 0 01042 CAL BLANKS BLANKS IF DATE/TIME ZERO
00217 0602 00 0 01046 SLW TEMP
00220 0602 00 0 01047 SLW TEMP+1
00221 0602 00 0 01050 SLW TEMP+2
00222 0020 00 0 00224 TRA *+2
00223 0074 00 2 00254 MPD TSX DT,2 CONVERT DATE/TIME OF THIS DUMP TO BCD
00224 0560 00 0 01046 LDQ TEMP AND PACK AND STORE IT IN LINE BUFFER
00225 -0763 00 0 00006 LGL 6
T 00226 -0754 00 0 00000 PXD
00227 -0500 00 0 01044 CAL HOLD
00230 -0763 00 0 00036 LGL 30
00231 0602 00 0 01070 SLW T+15
00232 -0500 00 0 01047 CAL TEMP+1
00233 0602 00 0 01071 SLW T+16
00234 -0500 00 0 01050 CAL TEMP+2
00235 0602 00 0 01072 SLW T+17
*
00236 0074 00 4 00007 TSX WRFILE,4 WRITE LINE FROM BUFFER ONTO DISK FILE
TD 00237 3 00000 0 01040 TXH MAP1
TD 00240 3 00000 0 01041 TXH MAP2
TD 00241 3 00000 0 01073 TXH =0
00242 2 01045 0 01051 TIX T,,L18
*
00243 0774 00 1 00000 MPE AXT **,1
00244 0774 00 2 00000 MPF AXT **,2
00245 0074 00 4 00013 TSX $GDSIG,4
00246 0774 00 4 00000 MPG AXT **,4
00247 0020 00 4 00001 TRA 1,4 RETURN TO CALLER
*
00250 0074 00 4 00006 MWAIT TSX FWAIT,4
TD 00251 3 00000 0 01040 TXH MAP1
TD 00252 3 00000 0 01041 TXH MAP2
00253 0020 00 0 00062 TRA NOCLOS
*
* CONVERT I/O SYSTEM FORM DATE/TIME TO
* '0 MM/DD/YY HHMM.M' IN BCD,
* AND STORE IN TEMP,TEMP+1,TEMP+2.
*
00254 0074 00 4 00014 DT TSX $IOBDT,4 CONVERT I/O SYSTEM DATE/TIME
00255 0602 00 0 01050 SLW TEMP+2 TO HHMM.M IN AC AND MMDDYY IN MQ
00256 -0500 00 0 01101 CAL =O006060
00257 -0763 00 0 00014 LGL 12
00260 0767 00 0 00006 ALS 6
00261 -0501 00 0 01076 ORA =O61
00262 0602 00 0 01046 SLW TEMP '0 MM/' TO TEMP
T 00263 -0754 00 0 00000 PXD
00264 -0763 00 0 00014 LGL 12
1 DUMP TAPE FILE 'MAP' PREPARATION ROUTINES....M.J.BAILEY,12/15/64 PAGE 5
00265 0767 00 0 00006 ALS 6
00266 -0501 00 0 01076 ORA =O61
00267 -0763 00 0 00014 LGL 12
00270 0767 00 0 00006 ALS 6
00271 -0501 00 0 01075 ORA =O60
00272 0602 00 0 01047 SLW TEMP+1 'DD/YY ' TO TEMP+1
T 00273 -0754 00 0 00000 PXD
00274 0020 00 2 00001 TRA 1,2
*
* INITIATE MAP FILE
*
00275 0634 00 4 00326 SMF SXA SMF4,4
00276 0074 00 4 00000 TSX CHFILE,4
TD 00277 3 00000 0 01040 TXH MAP1
TD 00300 3 00000 0 01041 TXH MAP2
TD 00301 3 00000 0 01073 TXH =O0 DE-PROTECT OLD 'MAP' FILE
TD 00302 3 00000 0 01102 TXH =-0
TD 00303 3 00000 0 01102 TXH =-0
TD 00304 3 00000 0 00305 TXH *+1
*
00305 0074 00 4 00001 TSX DELFIL,4 DELETE IT
TD 00306 3 00000 0 01040 TXH MAP1
TD 00307 3 00000 0 01041 TXH MAP2
TD 00310 3 00000 0 00311 TXH *+1
00311 0020 00 0 00313 TRA *+2
00312 0634 00 4 00326 SMF2 SXA SMF4,4
*
00313 0074 00 4 00002 TSX OPEN,4 OPEN NEW MAP FILE
TD 00314 3 00000 0 00626 TXH W
TD 00315 3 00000 0 01040 TXH MAP1
TD 00316 3 00000 0 01041 TXH MAP2
TD 00317 3 00000 0 01100 TXH =O130 (MODE PROTECTED,PRIVATE)
TD 00320 3 00000 0 00630 TXH LDSK
00321 0074 00 4 00003 TSX BUFFER,4 ASSIGN INTERNAL BUFFERS
TD 00322 3 00000 0 01040 TXH MAP1
TD 00323 3 00000 0 01041 TXH MAP2
00324 2 00627 0 60276 TIX IMP,,LIMP
00325 0074 00 4 00013 TSX $GDSIG,4
00326 0774 00 4 00000 SMF4 AXT **,4
00327 0020 00 4 00001 TRA 1,4
*
* WRITE HEADING FOR MAP OF SYSTEM FILE COMPLETE DUMP AND
* FOR MAP OF USER FILE COMPLETE DUMP TAPES.
*
00330 0634 00 4 00360 WMH SXA WMH4,4
00331 -0500 60 4 00001 CAL* 1,4 STATE WHICH SET OF FILES BEING DUMPED
00332 0602 00 0 00701 SLW CMA (SYSTEM OR USERS')
00333 -0500 00 0 60264 CAL TIME STORE TIME DUMPING STARTED
00334 0602 00 0 00717 SLW CMB
00335 0560 00 0 60265 LDQ DATE STORE DATE DUMPING STARTED
00336 -0500 00 0 01107 CAL =O777777770000
00337 0320 00 0 00720 ANS CMC
T 00340 -0754 00 0 00000 PXD
00341 -0763 00 0 00014 LGL 12
00342 -0602 00 0 00720 ORS CMC STORE MONTH DIGITS OF DATE DUMPING STARTED
00343 -0500 00 0 01105 CAL =O770000770000
1 DUMP TAPE FILE 'MAP' PREPARATION ROUTINES....M.J.BAILEY,12/15/64 PAGE 6
00344 0320 00 0 00721 ANS CMD
T 00345 -0754 00 0 00000 PXD
00346 -0763 00 0 00014 LGL 12
00347 0767 00 0 00006 ALS 6
00350 -0763 00 0 00014 LGL 12
00351 -0602 00 0 00721 ORS CMD STORE DAY,YEAR DIGITS OF DATE DUMP STARTED
*
00352 0074 00 4 00007 TSX WRFILE,4 WRITE HEADING ON MAP FILE
TD 00353 3 00000 0 01040 TXH MAP1
TD 00354 3 00000 0 01041 TXH MAP2 (WHICH IS LINE-MARKED BCD)
TD 00355 3 00000 0 01073 TXH =0
00356 2 01001 0 00645 TIX CDMHED,,LCMHD
00357 0074 00 4 00013 TSX $GDSIG,4
00360 0774 00 4 00000 WMH4 AXT **,4
00361 0020 00 4 00002 TRA 2,4
*
* END 'MAP' FILE
*
00362 0634 00 4 00453 EMF SXA EMF4,4
00363 0500 00 4 00001 CLA 1,4 SET ADDRESS OF THE POSITION OF DATE/TIME
00364 -0520 60 4 00001 NZT* 1,4 DUMPING ENDED IN HEADING OF MAP
00365 0500 00 0 01020 CLA AMPINS
00366 0621 00 0 00445 STA EMF1
*
00367 0074 00 4 00015 TSX $BCDDTM,4 GET CURRENT DATE/TIME FOR 'MAP' HEADING
00370 0602 00 0 01014 SLW MPINS STORE TIME DUMPING FINISHED
00371 -0500 00 0 01107 CAL =O777777770000
00372 0320 00 0 01015 ANS MPINS+1
T 00373 -0754 00 0 00000 PXD
00374 -0763 00 0 00014 LGL 12
00375 -0602 00 0 01015 ORS MPINS+1 STORE 1ST PART OF DATE DUMPING ENDED
00376 -0500 00 0 01105 CAL =O770000770000
00377 0320 00 0 01016 ANS MPINS+2
T 00400 -0754 00 0 00000 PXD
00401 -0763 00 0 00014 LGL 12
00402 0767 00 0 00006 ALS 6
00403 -0763 00 0 00014 LGL 12
00404 -0602 00 0 01016 ORS MPINS+2 STORE 2ND PART OF DATE DUMPING ENDED
*
00405 0074 00 4 00010 TSX ATTACH,4
TD 00406 3 00000 0 62727 TXH DMPUSR
TD 00407 3 00000 0 62726 TXH DMPRGR
00410 0074 00 4 00006 TSX FWAIT,4 WAIT FOR PREVIOUS 'MAP' FILE WRITE TO END
TD 00411 3 00000 0 01040 TXH MAP1
TD 00412 3 00000 0 01041 TXH MAP2
00413 0074 00 4 00007 TSX WRFILE,4 WRITE MAP TAIL ENDING
TD 00414 3 00000 0 01040 TXH MAP1
TD 00415 3 00000 0 01041 TXH MAP2
TD 00416 3 00000 0 01073 TXH =0
00417 2 01013 0 01002 FAKOUT TIX MAPTL,,LMTL
00420 0074 00 4 00006 TSX FWAIT,4 WAIT FOR IT
TD 00421 3 00000 0 01040 TXH MAP1
TD 00422 3 00000 0 01041 TXH MAP2
00423 0074 00 4 00004 TSX CLOSE,4
TD 00424 3 00000 0 01040 TXH MAP1
TD 00425 3 00000 0 01041 TXH MAP2
1 DUMP TAPE FILE 'MAP' PREPARATION ROUTINES....M.J.BAILEY,12/15/64 PAGE 7
00426 0074 00 4 00000 TSX CHFILE,4
TD 00427 3 00000 0 01040 TXH MAP1
TD 00430 3 00000 0 01041 TXH MAP2
TD 00431 3 00000 0 01077 TXH =O120
00432 0074 00 4 00002 TSX OPEN,4
TD 00433 3 00000 0 00626 TXH W
TD 00434 3 00000 0 01040 TXH MAP1
TD 00435 3 00000 0 01041 TXH MAP2
00436 0074 00 4 00003 TSX BUFFER,4
TD 00437 3 00000 0 01040 TXH MAP1
TD 00440 3 00000 0 01041 TXH MAP2
00441 3 00627 0 60276 TXH IMP,,LIMP
*
00442 0074 00 4 00007 TSX WRFILE,4 INSERT DATE/TIME DUMPING ENDED
TD 00443 3 00000 0 01040 TXH MAP1 INTO HEADING OF MAP
TD 00444 3 00000 0 01041 TXH MAP2
TD 00445 3 00000 0 00000 EMF1 TXH **
00446 3 00003 0 01014 TXH MPINS,,3
00447 0074 00 4 00004 TSX CLOSE,4 CLOSE IT
TD 00450 3 00000 0 01040 TXH MAP1
TD 00451 3 00000 0 01041 TXH MAP2
*
00452 0074 00 4 00013 TSX $GDSIG,4
00453 0774 00 4 00000 EMF4 AXT **,4
00454 0020 00 4 00002 TRA 2,4 RETURN TO CALLER
*
* ENTRY TO SAVE MAP AFTER MACHINE FAILURE
*
00455 0634 00 4 00472 SAVMAP SXA S4,4
00456 -0500 00 4 00001 CAL 1,4
00457 0621 00 0 00466 STA S4-4
00460 0074 00 4 00312 TSX SMF2,4
00461 -0500 00 0 00417 CAL FAKOUT
00462 0602 00 0 00474 SLW FSAVE
00463 -0500 00 0 00475 CAL ICT
00464 0602 00 0 00417 SLW FAKOUT
00465 0074 00 4 00362 TSX EMF,4
TD 00466 3 00000 0 00000 TXH **
00467 -0500 00 0 00474 CAL FSAVE
00470 0602 00 0 00417 SLW FAKOUT
00471 0074 00 4 00516 TSX DMF2,4
00472 0774 00 4 00000 S4 AXT **,4
00473 0020 00 4 00001 TRA 1,4
*
00474 0 00000 0 00000 FSAVE PZE
00475 2 00644 0 00631 ICT TIX FLM,,LFLM
*
* DUMP MAP FILE AND COPY IT ON TO PRINT OUTPUT TAPE
*
00476 0634 00 4 00576 DMF SXA DMF4,4
00477 0634 00 1 00577 SXA DMF1,1
00500 0074 00 4 00000 TSX CHFILE,4
TD 00501 3 00000 0 01040 TXH MAP1 MAKE IT PERMANENT MODE IN
TD 00502 3 00000 0 01041 TXH MAP2 ORDER TO DUMP IT
TD 00503 3 00000 0 01077 TXH =O120
00504 -0500 00 0 01040 CAL MAP1 MAP FILE'S NAMES
1 DUMP TAPE FILE 'MAP' PREPARATION ROUTINES....M.J.BAILEY,12/15/64 PAGE 8
00505 0602 00 0 62741 SLW UFDENT
00506 -0500 00 0 01041 CAL MAP2
00507 0602 00 0 62742 SLW UFDENT+1
00510 -0500 00 0 62727 CAL DMPUSR DUMP PROGRAM'S U.F.D. NAMES
00511 0602 00 0 64510 SLW MFDENT
00512 -0500 00 0 62726 CAL DMPRGR
00513 0602 00 0 64511 SLW MFDENT+1
00514 0074 00 4 00016 TSX $DMPFIL,4 DUMP MAP FILE
00515 0020 00 0 00520 TRA *+3
*
00516 0634 00 4 00576 DMF2 SXA DMF4,4
00517 0634 00 1 00577 SXA DMF1,1
00520 0074 00 4 00015 TSX $BCDDTM,4 CURRENT BCD DATE TIME
00521 -0600 00 0 01023 STQ PRM5 DATE WILL BE 1ST PART OF NEW MAP FILE NAME
00522 0602 00 0 01025 SLW PRM6 TIME ,, ,, 2ND ,, ,, ,, ,, ,, ,,
00523 0074 00 4 00000 TSX CHFILE,4 CHANGE NAME OF MAP FILE FOR PRINTING
TD 00524 3 00000 0 01040 TXH MAP1
TD 00525 3 00000 0 01041 TXH MAP2
TD 00526 3 00000 0 01073 TXH =0 REGULAR PERMANENT MODE
TD 00527 3 00000 0 01023 TXH PRM5
TD 00530 3 00000 0 01025 TXH PRM6
*
00531 0774 00 1 00003 AXT 3,1
00532 0074 00 4 00005 TSX TILOCK,4
00533 0 00000 0 00535 PZE ORQFS
00534 0621 00 0 00574 STA DMFC
00535 0074 00 4 00011 ORQFS TSX FSTATE,4
TD 00536 3 00000 0 01103 TXH =HOUTPUT
TD 00537 3 00000 0 01104 TXH =HRQUEST
00540 3 00002 0 00606 TXH A,,2
TD 00541 3 00000 0 00550 TXH DMFA
00542 -0500 00 0 00607 CAL A+1
00543 -0320 00 0 01074 ANA =1
00544 -0100 00 0 00601 TNZ DELRQS
00545 -0500 00 0 00607 CAL A+1
00546 -0320 00 0 00616 ANA SMODE
00547 -0100 00 0 00535 TNZ ORQFS
00550 0074 00 4 00002 DMFA TSX OPEN,4 MAKE PRINT OUTPUT REQUEST FOR MAP
TD 00551 3 00000 0 00626 TXH W
TD 00552 3 00000 0 01103 TXH =HOUTPUT
TD 00553 3 00000 0 01104 TXH =HRQUEST
TD 00554 3 00000 0 01073 TXH =0
TD 00555 3 00000 0 00630 TXH LDSK
00556 0074 00 4 00003 TSX BUFFER,4
TD 00557 3 00000 0 01103 TXH =HOUTPUT
TD 00560 3 00000 0 01104 TXH =HRQUEST
00561 2 00627 0 60276 TIX IMP,,LIMP
00562 0074 00 4 00007 TSX WRFILE,4
TD 00563 3 00000 0 01103 TXH =HOUTPUT
TD 00564 3 00000 0 01104 TXH =HRQUEST
TD 00565 3 00000 0 01073 TXH =0
00566 2 01037 0 01021 TIX PRM1,,L14
00567 0074 00 4 00004 TSX CLOSE,4
TD 00570 3 00000 0 01103 TXH =HOUTPUT
TD 00571 3 00000 0 01104 TXH =HRQUEST
TD 00572 3 00000 0 00617 TXH ERR
1 DUMP TAPE FILE 'MAP' PREPARATION ROUTINES....M.J.BAILEY,12/15/64 PAGE 9
00573 0074 00 4 00005 DMFB TSX TILOCK,4
00574 0 00000 0 00000 DMFC PZE **
*
00575 0074 00 4 00013 TSX $GDSIG,4
00576 0774 00 4 00000 DMF4 AXT **,4
00577 0774 00 1 00000 DMF1 AXT **,1
00600 0020 00 4 00001 TRA 1,4 RETURN TO CALLER
00601 0074 00 4 00001 DELRQS TSX DELFIL,4
TD 00602 3 00000 0 01103 TXH =HOUTPUT
TD 00603 3 00000 0 01104 TXH =HRQUEST
TD 00604 3 00000 0 00605 TXH *+1
00605 0020 00 0 00550 TRA DMFA
*
00606 A BSS 8
00616 +000000000124 SMODE OCT 124
*
*
00617 0074 00 4 00017 ERR TSX $PRNTER,4
00620 0074 00 4 00013 TSX $GDSIG,4
00621 0074 00 4 00004 TSX CLOSE,4
TD 00622 3 00000 0 01103 TXH =HOUTPUT
TD 00623 3 00000 0 01104 TXH =HRQUEST
00624 2 00001 1 00550 TIX DMFA,1,1
00625 0020 00 0 00573 TRA DMFB
*
00626 666060606060 W BCI 1,W
00627 0 00000 0 00660 LIMP PZE NW
00630 0 00000 0 00002 LDSK PZE DISK
*
00631 -377777000001 FLM OCT 777777000001
00632 606060606060 BCI 1,
00633 -377777000001 OCT 777777000001
00634 606060606060 BCI 1,
00635 -377777000006 OCT 777777000006
00636 006060606060 BCI 6,0 END OF MAP (INCOMPLETE TAPE)
00637 254524604626
00640 604421476074
00641 314523464447
00642 432563256063
00643 214725346060
00644 0 00000 0 00013 LFLM PZE *-FLM
*
00645 -377777000016 CDMHED OCT 777777000016
00646 016060606060 BCI 7,1
00647 606060606060
00650 606060606060
00651 606060606060
00652 606060606060
00653 606060606060
00654 606060606060
00655 604421476046 BCI 7, MAP OF THE CONTENTS OF THE DUMP TAPE FILE
00656 266063302560
00657 234645632545
00660 636260462660
00661 633025602464
00662 444760632147
1 DUMP TAPE FILE 'MAP' PREPARATION ROUTINES....M.J.BAILEY,12/15/64 PAGE 10
00663 256026314325
00664 -377777000017 OCT 777777000017
00665 006060606060 BCI 7,0
00666 606060606060
00667 606060606060
00670 606060606060
00671 606060606060
00672 606060606060
00673 606060606060
00674 602646516063 BCI 5, FOR THE COMPLETE DUMP OF THE
00675 302560234644
00676 474325632560
00677 246444476046
00700 266063302560
00701 606060606060 CMA BCI 3, FILES,
00702 602631432562
00703 736060606060
00704 -377777000015 OCT 777777000015
00705 006060606060 BCI 7,0
00706 606060606060
00707 606060606060
00710 606060606060
00711 606060606060
00712 606060606060
00713 606060606060
00714 606630312330 BCI 3, WHICH STARTED AT
00715 606263215163
00716 252460216360
00717 606060606060 CMB BCI 1,
00720 604645606060 CMC BCI 1, ON
00721 616060616060 CMD BCI 1,/ /
00722 -377777000016 OCT 777777000016
00723 006060606060 BCI 7,0
00724 606060606060
00725 606060606060
00726 606060606060
00727 606060606060
00730 606060606060
00731 606060606060
00732 606021452460 BCI 3, AND FINISHED AT
00733 263145316230
00734 252460216360
00735 606060606060 CME BCI 1,
00736 604645606060 BCI 1, ON
00737 616060616060 BCI 2,/ / .
00740 336060606060
00741 -377777000017 OCT 777777000017
00742 006060606331 BCI 9,0 TIME DUMPED USER FILE DATE
00743 442560246444
00744 472524606060
00745 606060606060
00746 606462255160
00747 606060606060
00750 606060602631
00751 432560606060
00752 606024216325
1 DUMP TAPE FILE 'MAP' PREPARATION ROUTINES....M.J.BAILEY,12/15/64 PAGE 11
00753 616331442560 BCI 6,/TIME OF FILE WHEN LAST USED
00754 462660263143
00755 256060606066
00756 302545604321
00757 626360646225
00760 246060606060
00761 -377777000017 OCT 777777000017
00762 606060604040 BCI 9, ----------- ---- ---- ----
00763 404040404040
00764 404040606060
00765 606060606060
00766 604040404060
00767 606060606060
00770 606060604040
00771 404060606060
00772 606040404040
00773 404040404040 BCI 6,------------- --------------
00774 404040404040
00775 406060606040
00776 404040404040
00777 404040404040
01000 406060606060
01001 0 00000 0 00134 LCMHD PZE *-CDMHED
01002 -377777000001 MAPTL OCT 777777000001
01003 606060606060 BCI 1,
01004 -377777000001 OCT 777777000001
01005 606060606060 BCI 1,
01006 -377777000004 OCT 777777000004
01007 006060606060 BCI 4,0 END OF MAP.
01010 606060602545
01011 246046266044
01012 214733606060
01013 0 00000 0 00011 LMTL PZE *-MAPTL
01014 606060606060 MPINS BCI 3, ON / /
01015 604645606060
01016 616060616060
01017 0 00000 0 00071 IMPINS PZE CME-CDMHED+1
01020 0 00000 0 01017 AMPINS PZE IMPINS
*
01021 475145242543 PRM1 BCI 1,PRNDEL
01022 606060606060 BCI 1,
01023 606060606060 PRM5 BCI 1, MAP FILE OUTPUT REQUEST NAME PART 1
01024 606060606060 BCI 1,
01025 606060606060 PRM6 BCI 1, MAP FILE OUTPUT REQUEST NAME PART 2
01026 606060606060 BCI 7,
01027 606060606060
01030 606060606060
01031 606060606060
01032 606060606060
01033 606060606060
01034 606060606060
01035 602300000506 BCI 2, C0056 99999
01036 601111111111
01037 0 00000 0 00016 L14 PZE 14
*
01040 246444476347 MAP1 BCI 1,DUMPTP
1 DUMP TAPE FILE 'MAP' PREPARATION ROUTINES....M.J.BAILEY,12/15/64 PAGE 12
01041 601444214714 MAP2 BCI 1, 'MAP'
01042 606060606060 BLANKS BCI 1,
01043 0 00000 0 00031 COUNT PZE 25
01044 0 00000 0 00000 HOLD PZE
01045 0 00000 0 00022 L18 PZE 18
01046 TEMP BSS 3
01051 T BSS 18
*
INSERT DCMEQB
*
* . . . . . . . . . . . . . . . . . .
* COMMON AND EQUIVALENCE FOR GENERAL DUMP PROGRAM
* . . . . . . . . . . . . . . . . . .
*
075032 DEMKEY BOOL 75032 CORE A LOCATION FOR DAEMON'S KEY SETTING
075105 SYSTIM BOOL 75105 CORE A LOCATION FOR SYSTEM TIME
075104 SYSDAT BOOL 75104 CORE A LOCATION FOR SYSTEM INIT. DATE
076147 RCODE BOOL 76147 CORE A LOCATION FOR RESTRICTION CODE VECTOR
075040 AUTOND BOOL 75040 CORE A AUTOMATIC LOGOUT INDICATOR
075052 NUSERS BOOL 75052 CORE A LOGGED-IN USER COUNT
076426 PROBN BOOL 76426 CORE A PROBNO ARRAY
076362 PROGN BOOL 76362 CORE A PROGNO ARRAY
075113 PB BOOL 75113 CORE A GUARANTEED PERCENTAGE VECTOR BASE
000043 N BOOL 43 CORE A MAX. NO. OF USERS (SIZE OF PROBN)
*
000017 BASE BOOL 17 KEY CODE BASE
000001 I BOOL 1 KEY CODE TO START INCREMENTAL DUMP
000002 PAUSE BOOL 2 KEY CODE TO WAIT FOR 1 MIN.
000003 C BOOL 3 KEY CODE TO DO COMPLETE DUMP
000004 AK BOOL 4 KEY CODE FOR IMPENDING AUTOLOGOUT
000005 ENFLSH BOOL 5 KEY CODE TO ENTER FLUSH MODE
000006 LVFLSH BOOL 6 KEY CODE TO LEAVE FLUSH MODE
000007 ENDTAP BOOL 7 KEY CODE TO TERMINATE DUMP TAPE FILE
000010 INT BOOL 10 SIMULATE INTERRUPT
00660 RECSIZ EQU 432 TAPE RECORD SIZE
00006 NX EQU 6 MAX. NO. OF SYSTEM FILE OWNERS
00030 NCD EQU 24 MAX. NO. 'DAYS' NON-USE OF CURRENT FILES
00014 DINC EQU 12 NO. DAYS OF 'RECENCY' INCREMENT (C.DUMP)
01274 U EQU 700 MAX. NO. USERS IN MFD USER LIST
03300 TBSIZ EQU 4*RECSIZ TAPE BUFFER SIZE
00007 ERYSIZ EQU 7 I/O SYSTEM ERROR ARRAY SIZE
00014 ERCODA EQU 12 'OPEN' ERROR CODE FOR FILE NOT FOUND
00016 ERCODB EQU 14 'OPEN' ERROR CODE RQSTD. DEVICE UNAVBLE
00660 NW EQU 432 SIZE OF SECONDARY I/O FILE BUFFERS
00001 LSDRUM EQU 1 I/O SYSTEM DEVICE CODE FOR L.S.DRUM
00002 DISK EQU 2 I/O SYSTEM DEVICE CODE FOR DISK
00003 TAPE EQU 3 I/O SYSTEM DEVICE CODE FOR TAPE
00010 NHOUR EQU 8 NO. OF HOURS IN A 'DAY'
77461 KEYVAL COMMON 1 LAST KEY SETTING READ FROM SUPERVISOR
77460 FLSHSW COMMON 1 FLUSH MODE SWITCH
77457 ENTPSW COMMON 1 OPERATOR-REQUESTED-END-TAPE INDICATOR
77456 NMFDU COMMON 1 NO. USERS CURRENTLY IN LIST
77455 EXEMPT COMMON 2*NX LIST OF SYSTEM FILE OWNERS
77441 NXMPT COMMON 1 NO. FILE USERS EXEMPT FROM DUMP IN DCYCLE
77440 DTLD COMMON U TIME LAST DUMPED FOR EACH USER
76144 PROGNO COMMON U PROGRAMMER NO. OF EACH USER
1 DUMP TAPE FILE 'MAP' PREPARATION ROUTINES....M.J.BAILEY,12/15/64 PAGE 13
74650 PROBNO COMMON U PROBLEM NO. OF EACH USER
73354 FLUSH COMMON 1 NON-ZERO INDICATES FLUSH MODE IS FORCED
73353 TND COMMON 1 TIME OF NEXT DUMP FOR CURRENT USER
70053 COMMON TBSIZ-1 TAPE BUFFER
70053 TPBUF COMMON 1 TAPE BUFFER 1ST WORD
64553 COMMON TBSIZ-1 2ND TAPE BUFFER
64553 TPBUF2 COMMON 1 2ND TAPE BUFFER, 1ST WORD
64544 COMMON ERYSIZ-1 ERROR ARRAY
64544 ERAY COMMON 1 ERROR ARRAY 1ST WORD
64526 COMMON 13 PRINT BUFFER
64526 PBF COMMON 1 PRINT BUFFER 1ST WORD
64510 COMMON 13 MFD ENTRY BUFFER
64510 MFDENT COMMON 1 MFD ENTRY BUFFER 1ST WORD
63630 COMMON NW-1 SECONDARY I/0 FILE BUFFER
63630 IOBUF COMMON 1 SECONDARY IO BUFFER 1ST WORD
62750 COMMON NW-1 SECONDARY I/O FILE BUFFER
62750 IOBUF2 COMMON 1 SECONDARY I/O BUFFER 1ST WORD
62747 UFDEOF COMMON 1 ZERO INDICATES EOF IN UFD FILE
62741 COMMON 5 PARTIAL UFD ENTRY BUFFER
62741 UFDENT COMMON 1 PARTIAL UFD ENTRY BUFFER 1ST WORD
62740 MFDC COMMON 1 NEXT WORD TO BE READ FROM MFD FILE
62737 TLD COMMON 1 TIME LAST DUMP OF USER CURRENTLY DUMPING
62736 UFDC COMMON 1 NEXT UNREAD POS. OF UFDFILE (NORMALLY ZERO)
62735 MFDEOF COMMON 1 ZERO INDICATES EOF IN MFD FILE
62734 EOFCT COMMON 1 NO. OF WORDS READ BEFORE AN EOF
62733 FEOF COMMON 1 ZERO INDICATES EOF IN A USER FILE
62732 EOFCTA COMMON 1 NO. OF WORDS BEFORE AN EOF
62731 DMPSW COMMON 1 NON-ZERO INDICATES A FILE HAS BEEN DUMPED
62730 DAWN COMMON 1 TIME OF START OF 'DAY'
62727 DMPUSR COMMON 1 PROBLEM NO. OF DUMP/LOAD PACKAGE
62726 DMPRGR COMMON 1 PROGRAMMER NO. OF DITTO.
62727 DU EQU DMPUSR
62726 DP EQU DMPRGR
62725 MFD1W COMMON 1 NO. OF 1ST GOOD WORD IN MFD AND UFD FILES
62723 COMMON 1 2ND PART OF DUMP TAPE FILE (COPY 1) NAME
62723 NFN1 COMMON 1 1ST PART OF DUMP TAPE FILE (COPY 1) NAME
62721 COMMON 1 2ND PART OF DUMP TAPE FILE (COPY 2) NAME
62721 NFN2 COMMON 1 1ST PART OF DUMP TAPE FILE (COPY 2) NAME
62720 TNDSW COMMON 1 INDICATES TIME OF THIS DUMP CURRENT OR NO
62040 COMMON RECSIZ-1 INTERNAL TAPE BUFFER
62040 ITB1 COMMON 1 ,, ,, ,, 1ST WORD
61160 COMMON RECSIZ-1 INTERNAL TAPE BUFFER
61160 ITB2 COMMON 1 ,, ,, ,, 1ST WORD
61157 DUSK COMMON 1 TIME OF END OF CURRENT 'DAY'
61156 ENDSW COMMON 1 IF 1, NORMAL END-OF-DAY,ELSE OPERATOR ONE
60276 COMMON NW-1 INTERNAL BUFFER FOR 'MAP' FILE
60276 IMP COMMON 1 ,, ,, ,, ,, ,, 1ST WORD
60267 COMMON 6 'MAP' FILE LINE PARAMETER ARRAY
60267 ARGLST COMMON 1 ,, ,, ,, ,, ,, 1ST WORD
60266 CDSW COMMON 1 NON-ZERO DURING COMPLETE DUMP,ELSE ZERO
60265 DATE COMMON 1 DATE THE DUMP NOW IN PROGRESS BEGAN
60264 TIME COMMON 1 TIME DUMP NOW IN PROGRESS BEGAN
60263 TCYCLE COMMON 1 'TIME' OF LAST CYCLE ON DUMP TAPE FILE
60262 TFOSW COMMON 1 NON-ZERO IF DUMP TAPE FILE IS OPEN
60261 ALOG COMMON 1 NON-ZERO IF AUTOLOGOUT ON
60260 SW1 COMMON 1
1 DUMP TAPE FILE 'MAP' PREPARATION ROUTINES....M.J.BAILEY,12/15/64 PAGE 14
60257 TCP COMMON 1
60256 TNDSAV COMMON 1
60255 ODAWN COMMON 1 TIME OF START OF PREVIOUS 'DAY'
60244 COMMON 8 TAPE LABEL
60244 TAPEID COMMON 1 TAPE LABEL 1ST WORD
60243 SKELSW COMMON 1
60254 REELNO EQU TAPEID+8
END
LITERALS
01073 000000000000
01074 000000000001
01075 000000000060
01076 000000000061
01077 000000000120
01100 000000000130
01101 000000006060
01102 400000000000
01103 466463476463
01104 515064256263
01105 770000770000
01106 777777000021
01107 777777770000
1 DUMP TAPE FILE 'MAP' PREPARATION ROUTINES....M.J.BAILEY,12/15/64 PAGE 1
POST PROCESSOR ASSEMBLY DATA
60242 IS THE LAST LOCATION NOT USED BY THIS PROGRAM
1110 IS THE FIRST LOCATION NOT USED BY THIS PROGRAM
0REFERENCES TO DEFINED SYMBOLS
606 A 540, 542, 545
3 C 1073
1 I 1073
43 N 1073
1051 T 64, 67, 100, 104, 110, 114, 122, 126, 130, 134, 154, 156, 160, 175, 201, 211, 231
233, 235, 242
1274 U 1073
626 W 314, 433, 551
4 AK 1073
62726 DP 1073
254 DT 71, 146, 170, 223
62727 DU 1073
660 NW 627, 1073
6 NX 1073
75113 PB 1073
472 S4 455, 457
701 CMA 332
717 CMB 334
720 CMC 337, 342
721 CMD 344, 351
735 CME 1017
476 DMF 0
362 EMF 0, 465
617 ERR 572
631 FLM 475, 644
12 GDT 70
475 ICT 463
60276 IMP 324, 441, 561, 1073
10 INT 1073
1037 L14 566
1045 L18 242
50 MPA 27, 31, 34, 36, 41, 43, 46
146 MPB 140
170 MPC 162
223 MPD 215
243 MPE 24
244 MPF 23
246 MPG 22
30 NCD 1073
64526 PBF 1073
275 SMF 0
60260 SW1 1073
60257 TCP 1073
62737 TLD 1073
73353 TND 1073
330 WMH 0
60261 ALOG 1073
17 BASE 1073
60266 CDSW 203, 1073
60265 DATE 335, 1073
1 DUMP TAPE FILE 'MAP' PREPARATION ROUTINES....M.J.BAILEY,12/15/64 PAGE 2
POST PROCESSOR ASSEMBLY DATA
62730 DAWN 1073
14 DINC 1073
2 DISK 630, 1073
577 DMF1 477, 517
516 DMF2 471
576 DMF4 476, 516
550 DMFA 541, 605, 624
573 DMFB 625
574 DMFC 534
77440 DTLD 1073
61157 DUSK 1073
445 EMF1 366
453 EMF4 362
64544 ERAY 1073
62733 FEOF 1073
1044 HOLD 136, 152, 213, 227
62040 ITB1 1073
61160 ITB2 1073
630 LDSK 320, 555
644 LFLM 475
627 LIMP 324, 441, 561
1013 LMTL 417
1040 MAP1 40, 56, 237, 251, 277, 306, 315, 322, 353, 411, 414, 421, 424, 427, 434, 437, 443
450, 501, 504, 524
1041 MAP2 45, 57, 240, 252, 300, 307, 316, 323, 354, 412, 415, 422, 425, 430, 435, 440, 444
451, 502, 506, 525
62740 MFDC 1073
62723 NFN1 1073
62721 NFN2 1073
2 OPEN 313, 432, 550
1021 PRM1 566
1023 PRM5 521, 527
1025 PRM6 522, 530
312 SMF2 60, 460
326 SMF4 275, 312
3 TAPE 1073
1046 TEMP 72, 76, 102, 142, 143, 144, 147, 155, 157, 164, 165, 166, 171, 177, 207, 217, 220
221, 224, 232, 234, 255, 262, 272
60264 TIME 333, 1073
62736 UFDC 1073
360 WMH4 330
4 CLOSE 55, 423, 447, 567, 621
1043 COUNT 53, 62
62731 DMPSW 1073
61156 ENDSW 1073
62734 EOFCT 1073
73354 FLUSH 1073
474 FSAVE 462, 467
6 FWAIT 250, 410, 420
13 GDSIG 245, 325, 357, 452, 575, 620
14 IOBDT 254
63630 IOBUF 1073
1001 LCMHD 356
1002 MAPTL 417, 1013
62725 MFD1W 1073
1 DUMP TAPE FILE 'MAP' PREPARATION ROUTINES....M.J.BAILEY,12/15/64 PAGE 3
POST PROCESSOR ASSEMBLY DATA
1014 MPINS 370, 372, 375, 377, 404, 446
250 MWAIT 54
10 NHOUR 1073
77456 NMFDU 1073
77441 NXMPT 1073
60255 ODAWN 1073
535 ORQFS 533, 547
2 PAUSE 1073
76426 PROBN 1073
76362 PROGN 1073
76147 RCODE 1073
616 SMODE 546
3300 TBSIZ 1073
60262 TFOSW 1073
62720 TNDSW 1073
70053 TPBUF 1073
1020 AMPINS 365
60267 ARGLST 25, 32, 37, 44, 111, 120, 127, 132, 137, 161, 214, 1073
10 ATTACH 50, 405
75040 AUTOND 1073
15 BCDDTM 367, 520
1042 BLANKS 112, 124, 141, 163, 173, 205, 216
3 BUFFER 321, 436, 556
645 CDMHED 356, 1001, 1017
0 CHFILE 276, 426, 500, 523
1 DELFIL 305, 601
601 DELRQS 544
75032 DEMKEY 1073
16 DMPFIL 514
62726 DMPRGR 33, 52, 407, 512, 1073
62727 DMPUSR 26, 51, 406, 510, 1073
7 ENDTAP 1073
5 ENFLSH 1073
77457 ENTPSW 1073
62732 EOFCTA 1073
14 ERCODA 1073
16 ERCODB 1073
7 ERYSIZ 1073
77455 EXEMPT 1073
417 FAKOUT 461, 464, 470
77460 FLSHSW 1073
11 FSTATE 535
1017 IMPINS 1020
62750 IOBUF2 1073
77461 KEYVAL 1073
1 LSDRUM 1073
6 LVFLSH 1073
22 MAPLIN 0
64510 MFDENT 511, 513, 1073
62735 MFDEOF 1073
62 NOCLOS 253
75052 NUSERS 1073
17 PRNTER 617
74650 PROBNO 1073
76144 PROGNO 1073
1 DUMP TAPE FILE 'MAP' PREPARATION ROUTINES....M.J.BAILEY,12/15/64 PAGE 4
POST PROCESSOR ASSEMBLY DATA
660 RECSIZ 1073
60254 REELNO 1073
455 SAVMAP 0
60243 SKELSW 1073
75104 SYSDAT 1073
75105 SYSTIM 1073
60244 TAPEID 1073
60263 TCYCLE 1073
5 TILOCK 532, 573
60256 TNDSAV 1073
64553 TPBUF2 1073
62741 UFDENT 505, 507, 1073
62747 UFDEOF 1073
7 WRFILE 236, 352, 413, 442, 562
0 NO ERROR IN ABOVE ASSEMBLY.
DFIOMB BCD 05/28/67 1807.1 21034 00000
1 MISCELLANEOUS FILE READ/WRITE ROUTINES....M.J.BAILEY,11/15/64 PAGE 1
*
00741 ENTRY RDMFD READ MFD ENTRY
01070 ENTRY NRDUFD
01101 ENTRY RDUFD READ PORTION OF UFD
01245 ENTRY WRNF WRITE DUMP TAPE
06035 ENTRY RDF READ PORTION OF A USER FILE
06161 ENTRY IENUFD INITIALIZE UFD ENTRY READ
06173 ENTRY ENTUFD READ UFD ENTRY FROM UFD COPY
*
EXTERN ATTACH,DELFIL,TAPFIL,OPEN,BUFFER
EXTERN RDFILE,FWAIT,CLOSE,WRFILE,WRFLX,MOUNT
EXTERN UMOUNT,LABEL,IODIAG
INSERT DMCRSA
*
* MACRO TO WRITE N WORDS FROM ARRAY ET SEQ ONTO ALREADY OPENED
* SECONDARY STORAGE FILE (NAME1,NAME2) AND WAIT UNTIL TRANSMITTED.
*
WSSF MACRO ARRAY,N,NAME1,NAME2
TSX ATTACH,4 RE-ATTACH TO DUMPER'S FILES
TXH DMPUSR
TXH DMPRGR
TSX WRFILE,4 WRITE
TXH NAME1 ONTO (NAME1,
TXH NAME2 NAME2)
TXH =0 AT POSITION WHERE LAST CEASED
TIX ARRAY,,N FROM ARRAY THROUGH ARRAY+N-1
TSX FWAIT,4 WAIT
TXH NAME1
TXH NAME2
WSSF END
*
* ZERO-IZE A THROUGH A+X-1
*
CLEAR MACRO A,X
AXT X,1
STZ A+X,1
TIX *-1,1,1
CLEAR END
*
* MOVE X WORDS FROM A ET SEQ TO B ET SEQ
*
MOVE MACRO X,A,B
AXT X,1
CAL A+X,1
SLW B+X,1
TIX *-2,1,1
MOVE END
*
* PRINT ONE LINE, CLEAR BUFFER
*
PRBUFF MACRO BUFF,NWDS
SXA *+3,4
TSX WRFLX,4
BUFF,,NWDS
AXT **,4
CLEAR BUFF,NWDS
1 MISCELLANEOUS FILE READ/WRITE ROUTINES....M.J.BAILEY,11/15/64 PAGE 2
PRBUFF END
*
* PRINT STANDARD BEGINNING TO DUMPER ERROR MESSAGE
*
BGNERM MACRO TYPE
SXA *+3,4
TSX $BERM,4
PZE TYPE
AXT **,4
BGNERM END
*
* PRINT ONE LINE COMMENT
*
PRLINE MACRO COMNT,NWC,N,WORD1,WORD2,LOC
IFF 0,NWC,0
MOVE NWC,LOC,PBF
IFF N-2,N,1
CAL WORD1
IFF N-2,N,1
SLW PBF+NWC
IFF 1,N,2
CAL WORD2
IFF 1,N,2
SLW PBF+NWC+1
PRBUFF PBF,NWC+N
RMT
LOC BCI NWC,COMNT
RMT
PRLINE END
*
* PRINT ONE LINE MESSAGE
*
PRMESS MACRO MESNAM,N,ADR1,ADR2
TSX $PRLINE,4
BCI 1,MESNAM
IFF N,N,N
TXH ADR1
IFF N,N,N
TXH ADR2
PRMESS END
*
* MACRO TO OPEN FILE (X,Y) OF USER (A,B) FOR READING
* AND ASSIGN BUFFER F OF LENGTH L TO I/O SYSTEM FOR THAT PURPOSE.
* ( ERR IS TRANSFER ADDRESS FOR ERROR RETURN )
*
RDOPEN MACRO X,Y,A,B,F,L,ERR
TSX ATTACH,4 ATTACH TO USER (A,B)
TXH A
TXH B
TSX OPEN,4 OPEN FILE (X,Y) FOR READING
TXH R
TXH X
TXH Y
TXH =0
TXH =0
TXH ERR (TRANSFER ADDRESS FOR ERROR)
1 MISCELLANEOUS FILE READ/WRITE ROUTINES....M.J.BAILEY,11/15/64 PAGE 3
TSX BUFFER,4 ASSIGN L WORDS OF BUFFER F TO (X,Y)
TXH X
TXH Y
TIX F,,L
RDOPEN END
*
* PRINT ERROR CODE, END MESSAGE
*
ERTN MACRO ADRERR
SXA *+2,4
TSX $ERREND,4
AXT **,4
TRA ADRERR
ERTN END
*
* ASK OPERATOR TO SET KEY CODE DC IF HE WANTS
* ACTION GIVEN BY N-WORD MESSAGE M
*
PRCODE MACRO DC,M,N
TSX $PRCODE,4
TXH DC
TXH M,,N
PRCODE END
*
* TEST LAST KEY SETTING VIA SUPERVISOR, GO TO JUMP IF IT IS CODE
*
TESTKY MACRO CODE,JUMP
TSX $NGETA,7
LDQ DEMKEY
STQ KEYVAL
AXT CODE,1
PXA 0,1
SUB KEYVAL
TZE JUMP
TESTKY END
*
* SET UP LOGICAL TAPE RECORD WRITING
*
LOGREC MACRO X
CLA LTPBF
SUB =12
STO TEMP
CAL X+4
ANA =O77777
STO RCOUNT
TSX $NLREC,4
TXH NORECS
TXH RCOUNT
TXH LCOUNT
TXH TEMP
TXH =12
TXH PHYSRC
TXH NFLR
TXH NLAST
LOGREC END
*
1 MISCELLANEOUS FILE READ/WRITE ROUTINES....M.J.BAILEY,11/15/64 PAGE 4
*
ATTACH MACRO A,B
TSX ATTACH,4
TXH A
TXH B
ATTACH END
*
* PRINT ERROR MESSAGE AND INTERROGATE KEYS
*
PRERR MACRO
TSX $PRNTER,4
TSX $GDSIG,4
PRERR END
*
*
* . . . . . . . . . . . . . . . . . . . .
* TRANSFER VECTOR, CONSTANTS, VARIABLES
* FOR GENERAL DUMP ROUTINE
* . . . . . . . . . . . . . . . . . . . .
*
TRANSFER VECTOR
00000 216363212330 ATTACH
00001 242543263143 DELFIL
00002 632147263143 TAPFIL
00003 464725456060 OPEN
00004 226426262551 BUFFER
00005 512426314325 RDFILE
00006 266621316360 FWAIT
00007 234346622560 CLOSE
00010 665126314325 WRFILE
00011 665126436760 WRFLX
00012 444664456360 MOUNT
00013 644446644563 UMOUNT
00014 432122254360 LABEL
00015 314624312127 IODIAG
00016 272462312760 GDSIG
00017 222551446060 BERM
00020 255151254524 ERREND
00021 475145632551 PRNTER
LINKAGE DIRECTOR
00022 000000000000
00023 512444262460
00024 0 00000 0 00660 LITB1 PZE RECSIZ
00025 0 00000 0 00660 LITB2 PZE RECSIZ
00026 0 00000 0 00004 L4 PZE 4
00027 0 00000 0 00007 L7 PZE 7
00030 0 00000 0 00660 LBUF PZE NW
00031 0 00000 0 00003 LTAPE PZE TAPE
00032 666060606060 W BCI 1,W
00033 236451456333 OURUFD BCI 2,CURNT.UFDFIL
00034 642624263143
00035 0 00000 0 00033 OURADD PZE OURUFD
00036 0 00000 0 00042 THRADD PZE UFDNAM
1 MISCELLANEOUS FILE READ/WRITE ROUTINES....M.J.BAILEY,11/15/64 PAGE 5
00037 0761 00 0 00000 NOP NOP
00040 0020 00 0 01124 TRA TRA BOTH+4
00041 443326332433 MFDNAM BCI 1,M.F.D.
00042 643326332433 UFDNAM BCI 2,U.F.D.(FILE)
00043 742631432534
00044 516060606060 R BCI 1,R
00045 606270626325 ERSTAT BCI 5, SYSTEM OR MACHINE ERROR.
00046 446046516044
00047 212330314525
00050 602551514651
00051 336060606060
00052 0 00000 0 00000 CFDC PZE ** UBUF POINTER TO START OF NEXT UFD ENTRY
00053 0 00000 0 00000 CFDEOF PZE ** ZERO INDICATES EOF IN OUR COPY OF UFD
00054 0 00000 0 00000 SW PZE ** SWITCH
00660 UBSIZ EQU 432
00055 UBUF BSS UBSIZ
00735 0 00000 0 00660 LUBSIZ PZE UBSIZ
00736 0 00000 0 00062 UBADR PZE UBUF+5
00737 0 00000 0 00000 EOFCTB PZE ** NO. OF WORDS BEFORE AN EOF IN UFD COPY
00740 0 00000 0 00010 L8 PZE 8
*
* . . . . . . . . . . . . . . . . . . . . . . . . . . . .
* READ NEXT M.F.D. ENTRY INTO MFDENT ET SEQ
* . . . . . . . . . . . . . . . . . . . . . . . . . . . .
*
00741 0634 00 4 00767 RDMFD SXA RMB,4
*
00742 0074 00 4 00016 TSX $GDSIG,4
00743 0074 00 4 00000 TSX ATTACH,4 RE-ATTACH TO USER CALLED 'M.F.D. FILE'
TD 00744 3 00000 0 00041 TXH MFDNAM
TD 00745 3 00000 0 00043 TXH UFDNAM+1
*
*
00746 0074 00 4 00005 ZENT TSX RDFILE,4 READ 14 WORDS FROM START OF NEXT MFD ENTRY
TD 00747 3 00000 0 00041 TXH MFDNAM
TD 00750 3 00000 0 00043 TXH UFDNAM+1
TD 00751 3 00000 0 62740 TXH MFDC WHICH STARTS AT MFDC'TH WORD IN MFD FILE
00752 2 00740 0 64510 TIX MFDENT,,L8 INTO MFDENT.
TD 00753 3 00000 0 00771 TXH RMC EOF TRANSFER
TD 00754 3 00000 0 62734 TXH EOFCT
*
00755 0074 00 4 00006 RMA TSX FWAIT,4 WAIT UNTIL TRANSMISSION COMPLETE
TD 00756 3 00000 0 00041 TXH MFDNAM
TD 00757 3 00000 0 00043 TXH UFDNAM+1 .
TD 00760 3 00000 0 01045 TXH ERRD (ERROR TRANSFER ADDRESS)
*
00761 0500 00 0 06556 CLA =1 P
00762 0400 00 0 62740 ADD MFDC MFDC+P
00763 0400 00 0 06562 ADD =6 MFDC+6+P
00764 0601 00 0 62740 STO MFDC MFDC=MFDC+6+P
00765 -0520 00 0 64510 NZT MFDENT
00766 0020 00 0 00746 TRA ZENT
*
00767 0774 00 4 00000 RMB AXT **,4
00770 0020 00 4 00002 TRA 2,4 RETURN TO CALLER
*
1 MISCELLANEOUS FILE READ/WRITE ROUTINES....M.J.BAILEY,11/15/64 PAGE 6
00771 0600 00 0 62735 RMC STZ MFDEOF INDICATE EOF IN MFD FILE
00772 0534 00 4 62734 LXA EOFCT,4
00773 3 00005 4 00755 TXH RMA,4,5 CONTINUE IF AT LEAST 6 WDS READ BEFORE EOF
*
00774 BGNERM =HRMFD01 OTHERWISE, ERROR
00774 0634 00 4 00777 SXA *+3,4 .001
00775 0074 00 4 00017 TSX $BERM,4 .001
00776 0 00000 0 06577 PZE =HRMFD01 .001
00777 0774 00 4 00000 AXT **,4 .001
01000 PRLINE ( M.F.D. READING ERROR - 5 OR LESS WORDS ),7,0
01000 MOVE 7,..003,PBF .001
01000 0774 00 1 00007 AXT 7,1 .002
01001 -0500 00 1 06414 CAL ..003+7,1 .002
01002 0602 00 1 64535 SLW PBF+7,1 .002
01003 2 00001 1 01001 TIX *-2,1,1 .002
01004 PRBUFF PBF,7+0 .001
01004 0634 00 4 01007 SXA *+3,4 .002
01005 0074 00 4 00011 TSX WRFLX,4 .002
01006 0 00007 0 64526 PBF,,7+0 .002
01007 0774 00 4 00000 AXT **,4 .002
01010 CLEAR PBF,7+0 .002
01010 0774 00 1 00007 AXT 7+0,1 .003
01011 0600 00 1 64535 STZ PBF+7+0,1 .003
01012 2 00001 1 01011 TIX *-1,1,1 .003
RMT .001
..003 BCI 7, M.F.D. READING ERROR - 5 OR LESS WORDS .001
RMT .001
01013 PRLINE ( PICKED UP BEFORE END OF FILE IN M.F.D. ),7,0
01013 MOVE 7,..006,PBF .001
01013 0774 00 1 00007 AXT 7,1 .002
01014 -0500 00 1 06423 CAL ..006+7,1 .002
01015 0602 00 1 64535 SLW PBF+7,1 .002
01016 2 00001 1 01014 TIX *-2,1,1 .002
01017 PRBUFF PBF,7+0 .001
01017 0634 00 4 01022 SXA *+3,4 .002
01020 0074 00 4 00011 TSX WRFLX,4 .002
01021 0 00007 0 64526 PBF,,7+0 .002
01022 0774 00 4 00000 AXT **,4 .002
01023 CLEAR PBF,7+0 .002
01023 0774 00 1 00007 AXT 7+0,1 .003
01024 0600 00 1 64535 STZ PBF+7+0,1 .003
01025 2 00001 1 01024 TIX *-1,1,1 .003
RMT .001
..006 BCI 7, PICKED UP BEFORE END OF FILE IN M.F.D. .001
RMT .001
01026 RMD MOVE 5,ERSTAT,PBF
01026 0774 00 1 00005 AXT 5,1 .001
01027 -0500 00 1 00052 CAL ERSTAT+5,1 .001
01030 0602 00 1 64533 SLW PBF+5,1 .001
01031 2 00001 1 01027 TIX *-2,1,1 .001
01032 PRBUFF PBF,5
01032 0634 00 4 01035 SXA *+3,4 .001
01033 0074 00 4 00011 TSX WRFLX,4 .001
01034 0 00005 0 64526 PBF,,5 .001
01035 0774 00 4 00000 AXT **,4 .001
01036 CLEAR PBF,5 .001
1 MISCELLANEOUS FILE READ/WRITE ROUTINES....M.J.BAILEY,11/15/64 PAGE 7
01036 0774 00 1 00005 AXT 5,1 .002
01037 0600 00 1 64533 STZ PBF+5,1 .002
01040 2 00001 1 01037 TIX *-1,1,1 .002
01041 0534 00 4 00767 LXA RMB,4 SET UP ERROR RETURN - TO (1,4)
01042 1 00001 4 01043 TXI *+1,4,1
01043 0634 00 4 00767 SXA RMB,4
01044 0020 00 0 00767 TRA RMB
*
01045 ERRD BGNERM =HD TROUBLE READING MFD IN RMFD
01045 0634 00 4 01050 SXA *+3,4 .001
01046 0074 00 4 00017 TSX $BERM,4 .001
01047 0 00000 0 06573 PZE =HD .001
01050 0774 00 4 00000 AXT **,4 .001
01051 PRLINE ( ERROR READING M.F.D. FILE.),5,0
01051 MOVE 5,..009,PBF .001
01051 0774 00 1 00005 AXT 5,1 .002
01052 -0500 00 1 06430 CAL ..009+5,1 .002
01053 0602 00 1 64533 SLW PBF+5,1 .002
01054 2 00001 1 01052 TIX *-2,1,1 .002
01055 PRBUFF PBF,5+0 .001
01055 0634 00 4 01060 SXA *+3,4 .002
01056 0074 00 4 00011 TSX WRFLX,4 .002
01057 0 00005 0 64526 PBF,,5+0 .002
01060 0774 00 4 00000 AXT **,4 .002
01061 CLEAR PBF,5+0 .002
01061 0774 00 1 00005 AXT 5+0,1 .003
01062 0600 00 1 64533 STZ PBF+5+0,1 .003
01063 2 00001 1 01062 TIX *-1,1,1 .003
RMT .001
..009 BCI 5, ERROR READING M.F.D. FILE. .001
RMT .001
01064 ERTN RMD PRINT COMMON MESSAGE, RETURN VIA (1,4)
01064 0634 00 4 01066 SXA *+2,4 .001
01065 0074 00 4 00020 TSX $ERREND,4 .001
01066 0774 00 4 00000 AXT **,4 .001
01067 0020 00 0 01026 TRA RMD .001
*
* . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .
* READ N WORDS, FROM NEXT UNREAD POSITION OF THE ALREADY OPENED
* UFD FILE OF THE USER GIVEN IN BCD IN MFDENT AND MFDENT+1,
* INTO ARRAY THROUGH ARRAY+N-1. IF AN EOF IS MET, EOFCT IS SET
* TO THE NO. OF WORDS READ IMMEDIATELY BEFORE THE EOF, AND
* UFDEOF IS SET TO ZERO.
*
* CALLING SEQUENCE - TSX RDUFD,4
* TXH ARRAY
* TXH N
* (ERROR RETURN)
* (NORMAL RETURN)
* . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .
*
01070 -0500 00 0 00040 NRDUFD CAL TRA
01071 0602 00 0 01120 SLW BOTH
01072 -0500 00 0 00035 CAL OURADD
01073 0621 00 0 01125 STA RUA-3
1 MISCELLANEOUS FILE READ/WRITE ROUTINES....M.J.BAILEY,11/15/64 PAGE 8
01074 0621 00 0 01134 STA RUC+1
01075 0400 00 0 06556 ADD =1
01076 0621 00 0 01126 STA RUA-2
01077 0621 00 0 01135 STA RUC+2
01100 0020 00 0 01111 TRA RDUFD+8
01101 -0500 00 0 00037 RDUFD CAL NOP
01102 0602 00 0 01120 SLW BOTH
01103 -0500 00 0 00036 CAL THRADD
01104 0621 00 0 01125 STA RUA-3
01105 0621 00 0 01134 STA RUC+1
01106 0400 00 0 06556 ADD =1
01107 0621 00 0 01126 STA RUA-2
01110 0621 00 0 01135 STA RUC+2
01111 0634 00 4 01140 SXA RUD,4
01112 0500 00 4 00001 CLA 1,4
01113 0621 00 0 01130 STA RUA ARRAY ADDRESS
01114 0500 00 4 00002 CLA 2,4
01115 0767 00 0 00022 ALS 18
01116 0622 00 0 01130 STD RUA ADDRESS OF N
*
01117 0074 00 4 00016 TSX $GDSIG,4
01120 0 00000 0 00000 BOTH PZE
01121 0074 00 4 00000 TSX ATTACH,4 RE-ATTACH TO APPROPRIATE USER
TD 01122 3 00000 0 64510 TXH MFDENT
TD 01123 3 00000 0 64511 TXH MFDENT+1
*
01124 0074 00 4 00005 TSX RDFILE,4 READ N WORDS FROM
TD 01125 3 00000 0 00000 TXH ** 'U.F.D. FILE'
TD 01126 3 00000 0 00000 TXH **
TD 01127 3 00000 0 62736 TXH UFDC STARTING AT THE NEXT UNREAD POSTN.
01130 2 00000 0 00000 RUA TIX **,,** INTO ARRAY THROUGH ARRAY+N-1
TD 01131 3 00000 0 01142 TXH RUE EOF TRANSFER
TD 01132 3 00000 0 62734 TXH EOFCT
*
01133 0074 00 4 00006 RUC TSX FWAIT,4 WAIT UNTIL TRANSMISSION COMPLETE
TD 01134 3 00000 0 00000 TXH **
TD 01135 3 00000 0 00000 TXH **
TD 01136 3 00000 0 01144 TXH ERRC (ERROR TRANSFER)
*
01137 0600 00 0 62736 STZ UFDC
01140 0774 00 4 00000 RUD AXT **,4
01141 0020 00 4 00004 RUDA TRA 4,4 RETURN TO CALLER
*
01142 0600 00 0 62747 RUE STZ UFDEOF INDICATE END OF FILE
01143 0020 00 0 01133 TRA RUC RETURN TO WAIT FOR COMPLETION
*
01144 ERRC BGNERM =HC TROUBLE READING UFD FILE
01144 0634 00 4 01147 SXA *+3,4 .001
01145 0074 00 4 00017 TSX $BERM,4 .001
01146 0 00000 0 06570 PZE =HC .001
01147 0774 00 4 00000 AXT **,4 .001
01150 PRLINE ( ERROR READING U.F.D. FILE OF FOLLOWING USER - ),8,0
01150 MOVE 8,..012,PBF .001
01150 0774 00 1 00010 AXT 8,1 .002
01151 -0500 00 1 06440 CAL ..012+8,1 .002
01152 0602 00 1 64536 SLW PBF+8,1 .002
1 MISCELLANEOUS FILE READ/WRITE ROUTINES....M.J.BAILEY,11/15/64 PAGE 9
01153 2 00001 1 01151 TIX *-2,1,1 .002
01154 PRBUFF PBF,8+0 .001
01154 0634 00 4 01157 SXA *+3,4 .002
01155 0074 00 4 00011 TSX WRFLX,4 .002
01156 0 00010 0 64526 PBF,,8+0 .002
01157 0774 00 4 00000 AXT **,4 .002
01160 CLEAR PBF,8+0 .002
01160 0774 00 1 00010 AXT 8+0,1 .003
01161 0600 00 1 64536 STZ PBF+8+0,1 .003
01162 2 00001 1 01161 TIX *-1,1,1 .003
RMT .001
..012 BCI 8, ERROR READING U.F.D. FILE OF FOLLOWING USER - .001
RMT .001
01163 PRLINE ( PROBLEM NO. ),6,1,MFDENT
01163 MOVE 6,..014,PBF .001
01163 0774 00 1 00006 AXT 6,1 .002
01164 -0500 00 1 06446 CAL ..014+6,1 .002
01165 0602 00 1 64534 SLW PBF+6,1 .002
01166 2 00001 1 01164 TIX *-2,1,1 .002
01167 -0500 00 0 64510 CAL MFDENT .001
01170 0602 00 0 64534 SLW PBF+6 .001
01171 PRBUFF PBF,6+1 .001
01171 0634 00 4 01174 SXA *+3,4 .002
01172 0074 00 4 00011 TSX WRFLX,4 .002
01173 0 00007 0 64526 PBF,,6+1 .002
01174 0774 00 4 00000 AXT **,4 .002
01175 CLEAR PBF,6+1 .002
01175 0774 00 1 00007 AXT 6+1,1 .003
01176 0600 00 1 64535 STZ PBF+6+1,1 .003
01177 2 00001 1 01176 TIX *-1,1,1 .003
RMT .001
..014 BCI 6, PROBLEM NO. .001
RMT .001
01200 PRLINE ( PROGRAMMER NO. ),6,1,MFDENT+1
01200 MOVE 6,..016,PBF .001
01200 0774 00 1 00006 AXT 6,1 .002
01201 -0500 00 1 06454 CAL ..016+6,1 .002
01202 0602 00 1 64534 SLW PBF+6,1 .002
01203 2 00001 1 01201 TIX *-2,1,1 .002
01204 -0500 00 0 64511 CAL MFDENT+1 .001
01205 0602 00 0 64534 SLW PBF+6 .001
01206 PRBUFF PBF,6+1 .001
01206 0634 00 4 01211 SXA *+3,4 .002
01207 0074 00 4 00011 TSX WRFLX,4 .002
01210 0 00007 0 64526 PBF,,6+1 .002
01211 0774 00 4 00000 AXT **,4 .002
01212 CLEAR PBF,6+1 .002
01212 0774 00 1 00007 AXT 6+1,1 .003
01213 0600 00 1 64535 STZ PBF+6+1,1 .003
01214 2 00001 1 01213 TIX *-1,1,1 .003
RMT .001
..016 BCI 6, PROGRAMMER NO. .001
RMT .001
01215 PRLINE ( ABANDONING THIS USER IN THE CURRENT DUMP CYCLE.),8,0
01215 MOVE 8,..019,PBF .001
01215 0774 00 1 00010 AXT 8,1 .002
1 MISCELLANEOUS FILE READ/WRITE ROUTINES....M.J.BAILEY,11/15/64 PAGE 10
01216 -0500 00 1 06464 CAL ..019+8,1 .002
01217 0602 00 1 64536 SLW PBF+8,1 .002
01220 2 00001 1 01216 TIX *-2,1,1 .002
01221 PRBUFF PBF,8+0 .001
01221 0634 00 4 01224 SXA *+3,4 .002
01222 0074 00 4 00011 TSX WRFLX,4 .002
01223 0 00010 0 64526 PBF,,8+0 .002
01224 0774 00 4 00000 AXT **,4 .002
01225 CLEAR PBF,8+0 .002
01225 0774 00 1 00010 AXT 8+0,1 .003
01226 0600 00 1 64536 STZ PBF+8+0,1 .003
01227 2 00001 1 01226 TIX *-1,1,1 .003
RMT .001
..019 BCI 8, ABANDONING THIS USER IN THE CURRENT DUMP CYCLE. .001
RMT .001
01230 MOVE 5,ERSTAT,PBF
01230 0774 00 1 00005 AXT 5,1 .001
01231 -0500 00 1 00052 CAL ERSTAT+5,1 .001
01232 0602 00 1 64533 SLW PBF+5,1 .001
01233 2 00001 1 01231 TIX *-2,1,1 .001
01234 PRBUFF PBF,5
01234 0634 00 4 01237 SXA *+3,4 .001
01235 0074 00 4 00011 TSX WRFLX,4 .001
01236 0 00005 0 64526 PBF,,5 .001
01237 0774 00 4 00000 AXT **,4 .001
01240 CLEAR PBF,5 .001
01240 0774 00 1 00005 AXT 5,1 .002
01241 0600 00 1 64533 STZ PBF+5,1 .002
01242 2 00001 1 01241 TIX *-1,1,1 .002
01243 0534 00 4 01140 LXA RUD,4
01244 1 00001 4 01141 TXI RUDA,4,1 GO TAKE ERROR EXIT (3,4)
*
* . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .
* WRITE N WORDS FROM ARRAY THROUGH ARRAY+N-1 ONTO THE DUMP
* PROGRAM'S ALREADY OPENED DUPLICATE DUMP TAPE FILES (CALLED
* 'NEW FILES1' AND 'NEW FILES2'), STARTING AT THE PLACE
* WHERE WRITING LAST STOPPED.
* CALLING SEQUENCE - TSX WRNF,4
* TXH ARRAY
* TXH N
* . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .
*
01245 0634 00 4 01326 WRNF SXA WNJ,4
01246 0634 00 1 01325 SXA WNI,1
01247 0500 00 4 00001 CLA 1,4 ADDRESS OF NEW MATERIAL
01250 0621 00 0 01273 STA WNC
01251 0500 00 4 00002 CLA 2,4 LENGTH OF NEW MATERIAL
01252 0621 00 0 01270 STA WNB
*
01253 0074 00 4 00016 TSX $GDSIG,4
01254 0074 00 4 00000 TSX ATTACH,4 RE-ATTACH TO DAEMON
TD 01255 3 00000 0 62727 TXH DU
TD 01256 3 00000 0 62726 TXH DP
*
01257 0600 00 0 05732 WNA STZ WSW
1 MISCELLANEOUS FILE READ/WRITE ROUTINES....M.J.BAILEY,11/15/64 PAGE 11
01260 0074 00 4 00006 TSX FWAIT,4 WAIT FOR PREVIOUS WRITE
TD 01261 3 00000 0 62723 TXH NFN1
TD 01262 3 00000 0 62724 TXH NFN1+1
TD 01263 3 00000 0 01330 TXH WNK ERROR DURING PREVIOUS WRITE
01264 0074 00 4 00006 TSX FWAIT,4 WAIT FOR PREVIOUS WRITE
TD 01265 3 00000 0 62721 TXH NFN2
TD 01266 3 00000 0 62722 TXH NFN2+1
TD 01267 3 00000 0 01330 TXH WNK ERROR DURING PREVIOUS WRITE
*
01270 0535 00 1 00000 WNB LAC **,1 O.K., MOVE NEW MATERIAL TO OUR BUFFER
01271 -0634 00 1 01276 SXD WND,1
01272 0774 00 1 00000 AXT 0,1
01273 -0500 00 1 00000 WNC CAL **,1
01274 0602 00 1 01551 SLW FBUF,1
01275 1 77777 1 01276 TXI *+1,1,-1
01276 3 00000 1 01273 WND TXH WNC,1,**
01277 -0500 00 0 01270 CAL WNB
01300 0621 00 0 01301 STA *+1
01301 -0500 00 0 00000 CAL **
01302 0767 00 0 00022 ALS 18
01303 0622 00 0 01311 STD WNF
01304 0622 00 0 01320 STD WNH
*
01305 0074 00 4 00010 WNE TSX WRFILE,4 INITIATE WRITE FROM OUR BUFFER
TD 01306 3 00000 0 62723 TXH NFN1
TD 01307 3 00000 0 62724 TXH NFN1+1
TD 01310 3 00000 0 06555 TXH =0
01311 3 00000 0 01551 WNF TXH FBUF,,**
TD 01312 3 00000 0 01312 TXH *
TD 01313 3 00000 0 01313 TXH *
01314 0074 00 4 00010 WNG TSX WRFILE,4
TD 01315 3 00000 0 62721 TXH NFN2
TD 01316 3 00000 0 62722 TXH NFN2+1
TD 01317 3 00000 0 06555 TXH =0
01320 3 00000 0 01551 WNH TXH FBUF,,**
TD 01321 3 00000 0 01321 TXH *
TD 01322 3 00000 0 01322 TXH *
01323 0520 00 0 05732 ZET WSW
01324 0020 00 0 01257 TRA WNA GO WAIT FOR IT IF A RE-WRITE
*
01325 0774 00 1 00000 WNI AXT **,1
01326 0774 00 4 00000 WNJ AXT **,4
01327 0020 00 4 00003 TRA 3,4 EXIT
*
01330 0500 00 0 01330 WNK CLA * ERROR DURING (NOW-COMPLETED) WRITE
01331 0601 00 0 05732 STO WSW
01332 0074 00 4 00015 TSX IODIAG,4
01333 2 00027 0 64544 TIX ERAY,,L7
01334 -0500 00 0 06575 CAL =HFWAIT
01335 -0340 00 0 64545 LAS ERAY+1
01336 0020 00 0 01347 TRA WNL
01337 0020 00 0 01341 TRA *+2
01340 0020 00 0 01347 TRA WNL
01341 0500 00 0 64546 CLA ERAY+2
01342 0402 00 0 06561 SUB =5
01343 -0100 00 0 01347 TNZ WNL
1 MISCELLANEOUS FILE READ/WRITE ROUTINES....M.J.BAILEY,11/15/64 PAGE 12
01344 0500 00 0 64547 CLA ERAY+3
01345 0402 00 0 06562 SUB =6
01346 0100 00 0 01352 TZE WNM SKIP IF END-OF-REEL
01347 WNL PRERR
01347 0074 00 4 00021 TSX $PRNTER,4 .001
01350 0074 00 4 00016 TSX $GDSIG,4 .001
01351 0020 00 0 01305 TRA WNE TRY AGAIN IF NOT END OF REEL
*
01352 WNM PRLINE ( END OF REEL ON DUMP TAPE FILE.),6,0
01352 MOVE 6,..022,PBF .001
01352 0774 00 1 00006 AXT 6,1 .002
01353 -0500 00 1 06472 CAL ..022+6,1 .002
01354 0602 00 1 64534 SLW PBF+6,1 .002
01355 2 00001 1 01353 TIX *-2,1,1 .002
01356 PRBUFF PBF,6+0 .001
01356 0634 00 4 01361 SXA *+3,4 .002
01357 0074 00 4 00011 TSX WRFLX,4 .002
01360 0 00006 0 64526 PBF,,6+0 .002
01361 0774 00 4 00000 AXT **,4 .002
01362 CLEAR PBF,6+0 .002
01362 0774 00 1 00006 AXT 6+0,1 .003
01363 0600 00 1 64534 STZ PBF+6+0,1 .003
01364 2 00001 1 01363 TIX *-1,1,1 .003
RMT .001
..022 BCI 6, END OF REEL ON DUMP TAPE FILE. .001
RMT .001
01365 0074 00 4 00007 TSX CLOSE,4
TD 01366 3 00000 0 62723 TXH NFN1
TD 01367 3 00000 0 62724 TXH NFN1+1
TD 01370 3 00000 0 01365 TXH *-3
01371 0074 00 4 00007 TSX CLOSE,4
TD 01372 3 00000 0 62721 TXH NFN2
TD 01373 3 00000 0 62722 TXH NFN2+1
TD 01374 3 00000 0 01371 TXH *-3
01375 0074 00 4 00013 TSX UMOUNT,4
TD 01376 3 00000 0 06564 TXH =11
01377 2 05764 0 05755 TIX MESA,,LMESA
01400 0074 00 4 00013 TSX UMOUNT,4
TD 01401 3 00000 0 06565 TXH =12
01402 2 05774 0 05765 TIX MESB,,LMESB
*
01403 0500 00 0 60254 CLA REELNO
01404 0400 00 0 06557 ADD =2
01405 0074 00 4 06015 TSX BINBCD,4
01406 -0501 00 0 06601 ORA =H 00
01407 0602 00 0 05753 SLW REEL+3
*
01410 0074 00 4 00010 TSX WRFILE,4 INDICATE END OF REEL ON MAP
TD 01411 3 00000 0 06574 TXH =HDUMPTP
TD 01412 3 00000 0 06600 TXH =H 'MAP'
TD 01413 3 00000 0 06555 TXH =0
01414 2 05754 0 05733 TIX EREELM,,LREELM
01415 0074 00 4 01417 TSX PATCH1,4
01416 0020 00 0 01305 TRA WNE
*
01417 0634 00 4 01547 PATCH1 SXA PXR4,4
1 MISCELLANEOUS FILE READ/WRITE ROUTINES....M.J.BAILEY,11/15/64 PAGE 13
01420 0074 00 4 00001 TSX DELFIL,4
TD 01421 3 00000 0 62723 TXH NFN1
TD 01422 3 00000 0 62724 TXH NFN1+1
TD 01423 3 00000 0 01424 TXH *+1
01424 0074 00 4 00002 TSX TAPFIL,4
TD 01425 3 00000 0 62723 TXH NFN1
TD 01426 3 00000 0 62724 TXH NFN1+1
TD 01427 3 00000 0 06564 TXH =11
TD 01430 3 00000 0 06555 TXH =0
01431 0074 00 4 00012 TSX MOUNT,4 MOUNT AND LABEL NEW REELS
TD 01432 3 00000 0 06556 TXH =1
TD 01433 3 00000 0 06564 TXH =11
01434 2 06004 0 05775 TIX MESC,,LMESC
01435 0074 00 4 00014 TSX LABEL,4
TD 01436 3 00000 0 06564 TXH =11
01437 2 00026 0 60244 TIX TAPEID,,L4
TD 01440 3 00000 0 01431 TXH *-7
01441 0074 00 4 00001 TSX DELFIL,4
TD 01442 3 00000 0 62721 TXH NFN2
TD 01443 3 00000 0 62722 TXH NFN2+1
TD 01444 3 00000 0 01445 TXH *+1
01445 0074 00 4 00002 TSX TAPFIL,4
TD 01446 3 00000 0 62721 TXH NFN2
TD 01447 3 00000 0 62722 TXH NFN2+1
TD 01450 3 00000 0 06565 TXH =12
TD 01451 3 00000 0 06555 TXH =0
01452 0074 00 4 00012 TSX MOUNT,4
TD 01453 3 00000 0 06557 TXH =2
TD 01454 3 00000 0 06565 TXH =12
01455 2 06014 0 06005 TIX MESD,,LMESD
01456 0074 00 4 00014 TSX LABEL,4
TD 01457 3 00000 0 06565 TXH =12
01460 2 00026 0 60244 TIX TAPEID,,L4
TD 01461 3 00000 0 01452 TXH *-7
*
01462 0074 00 4 00003 WNN TSX OPEN,4 RE-OPEN DUMP TAPE FILES
TD 01463 3 00000 0 00032 TXH W
TD 01464 3 00000 0 62723 TXH NFN1
TD 01465 3 00000 0 62724 TXH NFN1+1
TD 01466 3 00000 0 06567 TXH =O120
TD 01467 3 00000 0 00031 TXH LTAPE
TD 01470 3 00000 0 01472 TXH *+2
01471 0020 00 0 01475 TRA WNO
01472 PRERR
01472 0074 00 4 00021 TSX $PRNTER,4 .001
01473 0074 00 4 00016 TSX $GDSIG,4 .001
01474 0020 00 0 01462 TRA WNN
01475 0074 00 4 00003 WNO TSX OPEN,4
TD 01476 3 00000 0 00032 TXH W
TD 01477 3 00000 0 62721 TXH NFN2
TD 01500 3 00000 0 62722 TXH NFN2+1
TD 01501 3 00000 0 06567 TXH =O120
TD 01502 3 00000 0 00031 TXH LTAPE
TD 01503 3 00000 0 01505 TXH *+2
01504 0020 00 0 01510 TRA WNP
01505 PRERR
1 MISCELLANEOUS FILE READ/WRITE ROUTINES....M.J.BAILEY,11/15/64 PAGE 14
01505 0074 00 4 00021 TSX $PRNTER,4 .001
01506 0074 00 4 00016 TSX $GDSIG,4 .001
01507 0020 00 0 01475 TRA WNO
*
01510 0074 00 4 00004 WNP TSX BUFFER,4
TD 01511 3 00000 0 62723 TXH NFN1
TD 01512 3 00000 0 62724 TXH NFN1+1
01513 2 00024 0 62040 TIX ITB1,,LITB1
01514 0074 00 4 00004 TSX BUFFER,4
TD 01515 3 00000 0 62721 TXH NFN2
TD 01516 3 00000 0 62722 TXH NFN2+1
01517 2 00025 0 61160 TIX ITB2,,LITB2
*
01520 0500 00 0 60254 CLA REELNO
01521 0400 00 0 06556 ADD =1
01522 0601 00 0 60254 STO REELNO
01523 MOVE 9,TAPEID,PHBUF
01523 0774 00 1 00011 AXT 9,1 .001
01524 -0500 00 1 60255 CAL TAPEID+9,1 .001
01525 0602 00 1 05062 SLW PHBUF+9,1 .001
01526 2 00001 1 01524 TIX *-2,1,1 .001
01527 0074 00 4 00010 TSX WRFILE,4 WRITE DAEMON I.D. LABEL RECORD
TD 01530 3 00000 0 62723 TXH NFN1
TD 01531 3 00000 0 62724 TXH NFN1+1
TD 01532 3 00000 0 06555 TXH =0
01533 2 05731 0 05051 TIX PHBUF,,LPHSIZ
01534 0074 00 4 00010 TSX WRFILE,4
TD 01535 3 00000 0 62721 TXH NFN2
TD 01536 3 00000 0 62722 TXH NFN2+1
TD 01537 3 00000 0 06555 TXH =0
01540 2 05731 0 05051 TIX PHBUF,,LPHSIZ
01541 0074 00 4 00006 TSX FWAIT,4
TD 01542 3 00000 0 62723 TXH NFN1
TD 01543 3 00000 0 62724 TXH NFN1+1
01544 0074 00 4 00006 TSX FWAIT,4
TD 01545 3 00000 0 62721 TXH NFN2
TD 01546 3 00000 0 62722 TXH NFN2+1
01547 0774 00 4 00000 PXR4 AXT **,4
01550 0020 00 4 00001 TRA 1,4
*
00660 RECSZ EQU 432
01551 FBUF BSS 4*RECSZ
05051 PHBUF BSS RECSZ
05731 0 00000 0 00660 LPHSIZ PZE RECSZ
05732 0 00000 0 00000 WSW PZE
05733 -377777000013 EREELM OCT 777777000013
05734 006060606060 BCI 7,0
05735 606060606060
05736 606060606060
05737 606060606060
05740 606060606060
05741 606060606060
05742 606060606060
05743 545454607460 BCI 4,*** ( END OF REEL ) ***
05744 254524604626
05745 605125254360
1 MISCELLANEOUS FILE READ/WRITE ROUTINES....M.J.BAILEY,11/15/64 PAGE 15
05746 346054545460
05747 -377777000004 OCT 777777000004
05750 016060606060 REEL BCI 4,1 REEL NUMBER
05751 512525436045
05752 644422255160
05753 606060606060
05754 0 00000 0 00021 LREELM PZE *-EREELM
05755 606445444664 MESA BCI 7, UNMOUNT DUMP TAPE REEL ON CHANNEL A.
05756 456360246444
05757 476063214725
05760 605125254360
05761 464560233021
05762 454525436021
05763 336060606060
05764 0 00000 0 00007 LMESA PZE *-MESA
05765 606445444664 MESB BCI 7, UNMOUNT DUMP TAPE REEL ON CHANNEL B.
05766 456360246444
05767 476063214725
05770 605125254360
05771 464560233021
05772 454525436022
05773 336060606060
05774 0 00000 0 00007 LMESB PZE *-MESB
05775 604446644563 MESC BCI 7, MOUNT FRESH REEL ON CHANNEL A FOR DUMPER.
05776 602651256230
05777 605125254360
06000 464560233021
06001 454525436021
06002 602646516024
06003 644447255133
06004 0 00000 0 00007 LMESC PZE *-MESC
06005 604446644563 MESD BCI 7, MOUNT FRESH REEL ON CHANNEL B FOR DUMPER.
06006 602651256230
06007 605125254360
06010 464560233021
06011 454525436022
06012 602646516024
06013 644447255133
06014 0 00000 0 00007 LMESD PZE *-MESD
06015 0634 00 4 06033 BINBCD SXA B4,4
06016 0634 00 1 06032 SXA B1,1
06017 0774 00 1 00000 AXT 0,1
06020 -0320 00 0 06566 ANA =O77
06021 0402 00 0 06563 SUB =10
06022 0120 00 0 06024 TPL *+2
06023 0020 00 0 06026 TRA *+3
06024 1 00001 1 06025 TXI *+1,1,1
06025 0020 00 0 06021 TRA *-4
06026 0400 00 0 06563 ADD =10
06027 -0765 00 0 00006 LGR 6
06030 0754 00 1 00000 PXA ,1
06031 -0763 00 0 00006 LGL 6
06032 0774 00 1 00000 B1 AXT **,1
06033 0774 00 4 00000 B4 AXT **,4
06034 0020 00 4 00001 TRA 1,4
*
1 MISCELLANEOUS FILE READ/WRITE ROUTINES....M.J.BAILEY,11/15/64 PAGE 16
* . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .
* READ N WORDS FROM NEXT UNREAD POSITION OF THE ALREADY OPENED
* FILE (UFDENT,UFDENT+1) OF USER (MFDENT,MFDENT+1) INTO ARRAY
* THROUGH ARRAY+N-1. IF AN EOF IS MET, EOFCTA IS SET TO NO. OF
* WORDS READBEFORE IT, AND FEOF IS SET TO ZERO.
*
* CALLING SEQUENCE - TSX RDF,4
* TXH ARRAY
* TXH N
* (ERROR RETURN)
* (NORMAL RETURN)
* . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .
*
06035 0634 00 4 06063 RDF SXA RDD,4
06036 0500 00 4 00001 CLA 1,4
06037 0621 00 0 06053 STA RDA (ARRAY)
06040 0500 00 4 00002 CLA 2,4
06041 0767 00 0 00022 ALS 18
06042 0622 00 0 06053 STD RDA (N)
*
06043 0074 00 4 00016 TSX $GDSIG,4
06044 0074 00 4 00000 TSX ATTACH,4 ATTACH TO USER CURRENTLY BEING DUMPED
TD 06045 3 00000 0 64510 TXH MFDENT
TD 06046 3 00000 0 64511 TXH MFDENT+1
*
06047 0074 00 4 00005 TSX RDFILE,4 READ N WORDS FROM FILE CURRENTLY
TD 06050 3 00000 0 62741 TXH UFDENT BEING DUMPED
TD 06051 3 00000 0 62742 TXH UFDENT+1
TD 06052 3 00000 0 06555 TXH =0 FROM NEXT UNREAD POSITION IN IT,
06053 2 00000 0 00000 RDA TIX **,,** INTO ARRAY THROUGH ARRAY+N-1
TD 06054 3 00000 0 06065 TXH RDE END OF FILE TRANSFER ADDRESS
TD 06055 3 00000 0 62732 TXH EOFCTA
TD 06056 3 00000 0 06067 TXH ERRH (ERROR TRANSFER ADDRESS)
*
06057 0074 00 4 00006 RDC TSX FWAIT,4 WAIT UNTIL READING COMPLETE
TD 06060 3 00000 0 62741 TXH UFDENT .
TD 06061 3 00000 0 62742 TXH UFDENT+1 .
TD 06062 3 00000 0 06067 TXH ERRH
*
06063 0774 00 4 00000 RDD AXT **,4
06064 0020 00 4 00004 RDDA TRA 4,4 RETURN TO CALLER
*
06065 0600 00 0 62733 RDE STZ FEOF INDICATE END OF FILE OCCURRED
06066 0020 00 0 06057 TRA RDC RETURN TO WAIT FOR COMPLETION
*
06067 ERRH BGNERM =HH TROUBLE READING A FILE TO BE DUMPED
06067 0634 00 4 06072 SXA *+3,4 .001
06070 0074 00 4 00017 TSX $BERM,4 .001
06071 0 00000 0 06576 PZE =HH .001
06072 0774 00 4 00000 AXT **,4 .001
06073 PRLINE ( ERROR READING THE FOLLOWING FILE - ),7,2,UFDENT,U
ETC FDENT+1
06073 MOVE 7,..023,PBF .001
06073 0774 00 1 00007 AXT 7,1 .002
06074 -0500 00 1 06501 CAL ..023+7,1 .002
06075 0602 00 1 64535 SLW PBF+7,1 .002
1 MISCELLANEOUS FILE READ/WRITE ROUTINES....M.J.BAILEY,11/15/64 PAGE 17
06076 2 00001 1 06074 TIX *-2,1,1 .002
06077 -0500 00 0 62741 CAL UFDENT .001
06100 0602 00 0 64535 SLW PBF+7 .001
06101 -0500 00 0 62742 CAL UFDENT+1 .001
06102 0602 00 0 64536 SLW PBF+7+1 .001
06103 PRBUFF PBF,7+2 .001
06103 0634 00 4 06106 SXA *+3,4 .002
06104 0074 00 4 00011 TSX WRFLX,4 .002
06105 0 00011 0 64526 PBF,,7+2 .002
06106 0774 00 4 00000 AXT **,4 .002
06107 CLEAR PBF,7+2 .002
06107 0774 00 1 00011 AXT 7+2,1 .003
06110 0600 00 1 64537 STZ PBF+7+2,1 .003
06111 2 00001 1 06110 TIX *-1,1,1 .003
RMT .001
..023 BCI 7, ERROR READING THE FOLLOWING FILE - .001
RMT .001
06112 PRLINE ( IT BELONGS TO - ),3,2,MFDENT,MFDENT+1
06112 MOVE 3,..024,PBF .001
06112 0774 00 1 00003 AXT 3,1 .002
06113 -0500 00 1 06504 CAL ..024+3,1 .002
06114 0602 00 1 64531 SLW PBF+3,1 .002
06115 2 00001 1 06113 TIX *-2,1,1 .002
06116 -0500 00 0 64510 CAL MFDENT .001
06117 0602 00 0 64531 SLW PBF+3 .001
06120 -0500 00 0 64511 CAL MFDENT+1 .001
06121 0602 00 0 64532 SLW PBF+3+1 .001
06122 PRBUFF PBF,3+2 .001
06122 0634 00 4 06125 SXA *+3,4 .002
06123 0074 00 4 00011 TSX WRFLX,4 .002
06124 0 00005 0 64526 PBF,,3+2 .002
06125 0774 00 4 00000 AXT **,4 .002
06126 CLEAR PBF,3+2 .002
06126 0774 00 1 00005 AXT 3+2,1 .003
06127 0600 00 1 64533 STZ PBF+3+2,1 .003
06130 2 00001 1 06127 TIX *-1,1,1 .003
RMT .001
..024 BCI 3, IT BELONGS TO - .001
RMT .001
06131 PRLINE ( MOVING ON TO HIS NEXT FILE. ),5,0
06131 MOVE 5,..027,PBF .001
06131 0774 00 1 00005 AXT 5,1 .002
06132 -0500 00 1 06511 CAL ..027+5,1 .002
06133 0602 00 1 64533 SLW PBF+5,1 .002
06134 2 00001 1 06132 TIX *-2,1,1 .002
06135 PRBUFF PBF,5+0 .001
06135 0634 00 4 06140 SXA *+3,4 .002
06136 0074 00 4 00011 TSX WRFLX,4 .002
06137 0 00005 0 64526 PBF,,5+0 .002
06140 0774 00 4 00000 AXT **,4 .002
06141 CLEAR PBF,5+0 .002
06141 0774 00 1 00005 AXT 5+0,1 .003
06142 0600 00 1 64533 STZ PBF+5+0,1 .003
06143 2 00001 1 06142 TIX *-1,1,1 .003
RMT .001
..027 BCI 5, MOVING ON TO HIS NEXT FILE. .001
1 MISCELLANEOUS FILE READ/WRITE ROUTINES....M.J.BAILEY,11/15/64 PAGE 18
RMT .001
06144 MOVE 5,ERSTAT,PBF
06144 0774 00 1 00005 AXT 5,1 .001
06145 -0500 00 1 00052 CAL ERSTAT+5,1 .001
06146 0602 00 1 64533 SLW PBF+5,1 .001
06147 2 00001 1 06145 TIX *-2,1,1 .001
06150 PRBUFF PBF,5
06150 0634 00 4 06153 SXA *+3,4 .001
06151 0074 00 4 00011 TSX WRFLX,4 .001
06152 0 00005 0 64526 PBF,,5 .001
06153 0774 00 4 00000 AXT **,4 .001
06154 CLEAR PBF,5 .001
06154 0774 00 1 00005 AXT 5,1 .002
06155 0600 00 1 64533 STZ PBF+5,1 .002
06156 2 00001 1 06155 TIX *-1,1,1 .002
06157 0534 00 4 06063 LXA RDD,4
06160 1 00001 4 06064 TXI RDDA,4,1 GO TAKE ERROR EXIT (3,4)
*
* . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .
* READ NEXT U.F.D. ENTRY FROM BUFFER UBUF INTO UFDENT THROUGH UFDENT+5
* (WHEN UBUF IS EMPTIED, REFILL IT FROM OUR COPY OF UFD FILE)
*
* CALLING SEQUENCES - 1. TO INITIALISE, TSX IENUFD,4
* (ERROR RETURN)
* (NORMAL RETURN)
*
* 2. NORMAL ENTRY, TSX ENTUFD,4
* (ERROR RETURN)
* (NORMAL RETURN)
* . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .
*
06161 0500 00 0 06161 IENUFD CLA * ZERO CFDEOF INDICATES PHYSICAL EOF
06162 0601 00 0 00053 STO CFDEOF HAS OCCURRED IN OUR COPY OF CURRENT UFD.
06163 0601 00 0 62747 STO UFDEOF ZERO UFDEOF INDICATES LAST ENTRY BEEN READ
06164 0601 00 0 00054 STO SW SET SWITCH NON-ZERO
06165 0500 00 0 06560 CLA =4 UFDC POINTS TO NEXT UNREAD ENTRY IN
06166 0601 00 0 62736 STO UFDC OUR COPY OF THE UFD FILE
06167 0634 00 1 06221 SXA EUD,1
06170 0634 00 2 06222 SXA EUE,2
06171 0634 00 4 06220 SXA EUCA,4
06172 0020 00 0 06230 TRA EUG
*
* NORMAL ENTRY
*
06173 0634 00 1 06221 ENTUFD SXA EUD,1
06174 0634 00 2 06222 SXA EUE,2
06175 0634 00 4 06220 SXA EUCA,4
06176 0500 00 0 00736 CLA UBADR PREPARE ADDRESS
06177 0400 00 0 00052 ADD CFDC OF 6TH WORD OF
06200 0621 00 0 06202 STA EUA NEXT UFD ENTRY IN UBUF
06201 0774 00 1 00006 AXT 6,1
06202 0500 00 1 00000 EUA CLA **,1 MOVE 1ST 6 WORDS OF UFD ENTRY FROM
06203 0601 00 1 62747 STO UFDENT+6,1 UBUF+CFDC-1 ET SEQ TO UFDENT ET SEQ
06204 2 00001 1 06202 TIX EUA,1,1
*
1 MISCELLANEOUS FILE READ/WRITE ROUTINES....M.J.BAILEY,11/15/64 PAGE 19
06205 0500 00 0 06556 EUB CLA =1 P
06206 0400 00 0 06562 ADD =6 6+P
06207 0400 00 0 00052 ADD CFDC CFDC+6+P
06210 0601 00 0 00052 STO CFDC UPDATE CFDC BY (6+P) FOR NEXT TIME
*
06211 -0520 00 0 00053 NZT CFDEOF HAS PHYSICAL EOF OCCURRED IN UFD FILE
06212 0020 00 0 06253 TRA EUJ YES, SKIP
06213 0500 00 0 00735 CLA LUBSIZ NO, SEE IF AT LEAST 6 WORDS LEFT IN UBUF
06214 0402 00 0 06561 SUB =5 FOR NEXT TIME
06215 0402 00 0 00052 SUB CFDC
06216 -0120 00 0 06224 TMI EUF NO, SKIP IF CFDC .GR. (LUBSIZ-5)
06217 0600 00 0 00054 EUC STZ SW O.K., CFDC .LE. (LUBSIZ-5), ZEROISE SWITCH
06220 0774 00 4 00000 EUCA AXT **,4
06221 0774 00 1 00000 EUD AXT **,1
06222 0774 00 2 00000 EUE AXT **,2
06223 0020 00 4 00002 TRA 2,4 RETURN TO CALLER
*
06224 0500 00 0 62736 EUF CLA UFDC LESS THAN 6 WORDS LEFT IN UBUF, PREPARE
06225 0400 00 0 00052 ADD CFDC TO REFILL IT - UPDATE PHYSICAL
06226 0402 00 0 06556 SUB =1 FILE POINTER.
06227 0601 00 0 62736 STO UFDC
*
06230 0500 00 0 06556 EUG CLA =1 RESET CFDC TO 1
06231 0601 00 0 00052 STO CFDC
06232 0074 00 4 00016 TSX $GDSIG,4
06233 0074 00 4 00000 TSX ATTACH,4
TD 06234 3 00000 0 64510 TXH MFDENT
TD 06235 3 00000 0 64511 TXH MFDENT+1
06236 0074 00 4 00005 TSX RDFILE,4 REFILL UBUF FROM OUR COPY OF UFD FILE
TD 06237 3 00000 0 00042 TXH UFDNAM
TD 06240 3 00000 0 00043 TXH UFDNAM+1
TD 06241 3 00000 0 62736 TXH UFDC
06242 2 00735 0 00055 TIX UBUF,,LUBSIZ
TD 06243 3 00000 0 06252 TXH EUI EOF TRANSFER ADDRESS
TD 06244 3 00000 0 00737 TXH EOFCTB
06245 0074 00 4 00006 EUH TSX FWAIT,4 WAIT UNTIL TRANSMISSION COMPLETION
TD 06246 3 00000 0 00042 TXH UFDNAM
TD 06247 3 00000 0 00043 TXH UFDNAM+1
TD 06250 3 00000 0 06403 TXH EUM ERROR
06251 0020 00 0 06217 TRA EUC WAIT SOME MORE
*
06252 0600 00 0 00053 EUI STZ CFDEOF EOF
06253 0500 00 0 00737 EUJ CLA EOFCTB PHYSICAL EOF HAS BEEN DETECTED IN UFD FILE
06254 0402 00 0 06561 SUB =5 ARE THERE ENOUGH WORDS LEFT IN IT
06255 0402 00 0 00052 SUB CFDC FOR ANOTHER ENTRY
06256 0120 00 0 06245 TPL EUH CFDC .LESS. EOFCT-5, ENOUGH LEFT, GO EXIT
06257 0400 00 0 06562 ADD =6 NO, NO MORE ENTRIES, CHECK THAT
06260 -0100 00 0 06271 TNZ EUK CFDC=EOFCT+1 . ERROR IF NOT, SKIP
06261 0600 00 0 62747 STZ UFDEOF INDICATE THIS WAS LAST ENTRY
06262 -0520 00 0 00054 NZT SW FILE WAS EMPTY IF SWITCH STILL NON-ZERO
06263 0020 00 0 06245 TRA EUH IT WAS NOT EMPTY, GO EXIT
ERROR TREATMENT
06264 BGNERM =HCUFD01
06264 0634 00 4 06267 SXA *+3,4 .001
06265 0074 00 4 00017 TSX $BERM,4 .001
06266 0 00000 0 06571 PZE =HCUFD01 .001
1 MISCELLANEOUS FILE READ/WRITE ROUTINES....M.J.BAILEY,11/15/64 PAGE 20
06267 0774 00 4 00000 AXT **,4 .001
06270 0020 00 0 06275 TRA EUL
06271 EUK BGNERM =HCUFD02
06271 0634 00 4 06274 SXA *+3,4 .001
06272 0074 00 4 00017 TSX $BERM,4 .001
06273 0 00000 0 06572 PZE =HCUFD02 .001
06274 0774 00 4 00000 AXT **,4 .001
06275 EUL PRLINE ( E.O.F. DETECTED IN WRONG PLACE IN DUMP PROGRAM'S COPY),
ETC 9,0
06275 MOVE 9,..030,PBF .001
06275 0774 00 1 00011 AXT 9,1 .002
06276 -0500 00 1 06522 CAL ..030+9,1 .002
06277 0602 00 1 64537 SLW PBF+9,1 .002
06300 2 00001 1 06276 TIX *-2,1,1 .002
06301 PRBUFF PBF,9+0 .001
06301 0634 00 4 06304 SXA *+3,4 .002
06302 0074 00 4 00011 TSX WRFLX,4 .002
06303 0 00011 0 64526 PBF,,9+0 .002
06304 0774 00 4 00000 AXT **,4 .002
06305 CLEAR PBF,9+0 .002
06305 0774 00 1 00011 AXT 9+0,1 .003
06306 0600 00 1 64537 STZ PBF+9+0,1 .003
06307 2 00001 1 06306 TIX *-1,1,1 .003
RMT .001
..030 BCI 9, E.O.F. DETECTED IN WRONG PLACE IN DUMP PROGRAM'S COPY .001
RMT .001
06310 PRLINE ( OF THE U.F.D. FOR THE FOLLOWING USER - ),7,0
06310 MOVE 7,..033,PBF .001
06310 0774 00 1 00007 AXT 7,1 .002
06311 -0500 00 1 06531 CAL ..033+7,1 .002
06312 0602 00 1 64535 SLW PBF+7,1 .002
06313 2 00001 1 06311 TIX *-2,1,1 .002
06314 PRBUFF PBF,7+0 .001
06314 0634 00 4 06317 SXA *+3,4 .002
06315 0074 00 4 00011 TSX WRFLX,4 .002
06316 0 00007 0 64526 PBF,,7+0 .002
06317 0774 00 4 00000 AXT **,4 .002
06320 CLEAR PBF,7+0 .002
06320 0774 00 1 00007 AXT 7+0,1 .003
06321 0600 00 1 64535 STZ PBF+7+0,1 .003
06322 2 00001 1 06321 TIX *-1,1,1 .003
RMT .001
..033 BCI 7, OF THE U.F.D. FOR THE FOLLOWING USER - .001
RMT .001
06323 PRLINE ( PROBLEM NO. ),6,1,MFDENT
06323 MOVE 6,..035,PBF .001
06323 0774 00 1 00006 AXT 6,1 .002
06324 -0500 00 1 06537 CAL ..035+6,1 .002
06325 0602 00 1 64534 SLW PBF+6,1 .002
06326 2 00001 1 06324 TIX *-2,1,1 .002
06327 -0500 00 0 64510 CAL MFDENT .001
06330 0602 00 0 64534 SLW PBF+6 .001
06331 PRBUFF PBF,6+1 .001
06331 0634 00 4 06334 SXA *+3,4 .002
06332 0074 00 4 00011 TSX WRFLX,4 .002
06333 0 00007 0 64526 PBF,,6+1 .002
1 MISCELLANEOUS FILE READ/WRITE ROUTINES....M.J.BAILEY,11/15/64 PAGE 21
06334 0774 00 4 00000 AXT **,4 .002
06335 CLEAR PBF,6+1 .002
06335 0774 00 1 00007 AXT 6+1,1 .003
06336 0600 00 1 64535 STZ PBF+6+1,1 .003
06337 2 00001 1 06336 TIX *-1,1,1 .003
RMT .001
..035 BCI 6, PROBLEM NO. .001
RMT .001
06340 PRLINE ( PROGRAMMER NO. ),6,1,MFDENT+1
06340 MOVE 6,..037,PBF .001
06340 0774 00 1 00006 AXT 6,1 .002
06341 -0500 00 1 06545 CAL ..037+6,1 .002
06342 0602 00 1 64534 SLW PBF+6,1 .002
06343 2 00001 1 06341 TIX *-2,1,1 .002
06344 -0500 00 0 64511 CAL MFDENT+1 .001
06345 0602 00 0 64534 SLW PBF+6 .001
06346 PRBUFF PBF,6+1 .001
06346 0634 00 4 06351 SXA *+3,4 .002
06347 0074 00 4 00011 TSX WRFLX,4 .002
06350 0 00007 0 64526 PBF,,6+1 .002
06351 0774 00 4 00000 AXT **,4 .002
06352 CLEAR PBF,6+1 .002
06352 0774 00 1 00007 AXT 6+1,1 .003
06353 0600 00 1 64535 STZ PBF+6+1,1 .003
06354 2 00001 1 06353 TIX *-1,1,1 .003
RMT .001
..037 BCI 6, PROGRAMMER NO. .001
RMT .001
06355 PRLINE ( ABANDONING THIS USER IN THE CURRENT DUMP CYCLE.),8,0
06355 MOVE 8,..040,PBF .001
06355 0774 00 1 00010 AXT 8,1 .002
06356 -0500 00 1 06555 CAL ..040+8,1 .002
06357 0602 00 1 64536 SLW PBF+8,1 .002
06360 2 00001 1 06356 TIX *-2,1,1 .002
06361 PRBUFF PBF,8+0 .001
06361 0634 00 4 06364 SXA *+3,4 .002
06362 0074 00 4 00011 TSX WRFLX,4 .002
06363 0 00010 0 64526 PBF,,8+0 .002
06364 0774 00 4 00000 AXT **,4 .002
06365 CLEAR PBF,8+0 .002
06365 0774 00 1 00010 AXT 8+0,1 .003
06366 0600 00 1 64536 STZ PBF+8+0,1 .003
06367 2 00001 1 06366 TIX *-1,1,1 .003
RMT .001
..040 BCI 8, ABANDONING THIS USER IN THE CURRENT DUMP CYCLE. .001
RMT .001
06370 MOVE 5,ERSTAT,PBF
06370 0774 00 1 00005 AXT 5,1 .001
06371 -0500 00 1 00052 CAL ERSTAT+5,1 .001
06372 0602 00 1 64533 SLW PBF+5,1 .001
06373 2 00001 1 06371 TIX *-2,1,1 .001
06374 PRBUFF PBF,5
06374 0634 00 4 06377 SXA *+3,4 .001
06375 0074 00 4 00011 TSX WRFLX,4 .001
06376 0 00005 0 64526 PBF,,5 .001
06377 0774 00 4 00000 AXT **,4 .001
1 MISCELLANEOUS FILE READ/WRITE ROUTINES....M.J.BAILEY,11/15/64 PAGE 22
06400 CLEAR PBF,5 .001
06400 0774 00 1 00005 AXT 5,1 .002
06401 0600 00 1 64533 STZ PBF+5,1 .002
06402 2 00001 1 06401 TIX *-1,1,1 .002
06403 0534 00 4 06220 EUM LXA EUCA,4
06404 1 00001 4 06221 TXI EUD,4,1
*
INSERT DCMEQB
*
* . . . . . . . . . . . . . . . . . .
* COMMON AND EQUIVALENCE FOR GENERAL DUMP PROGRAM
* . . . . . . . . . . . . . . . . . .
*
075032 DEMKEY BOOL 75032 CORE A LOCATION FOR DAEMON'S KEY SETTING
075105 SYSTIM BOOL 75105 CORE A LOCATION FOR SYSTEM TIME
075104 SYSDAT BOOL 75104 CORE A LOCATION FOR SYSTEM INIT. DATE
076147 RCODE BOOL 76147 CORE A LOCATION FOR RESTRICTION CODE VECTOR
075040 AUTOND BOOL 75040 CORE A AUTOMATIC LOGOUT INDICATOR
075052 NUSERS BOOL 75052 CORE A LOGGED-IN USER COUNT
076426 PROBN BOOL 76426 CORE A PROBNO ARRAY
076362 PROGN BOOL 76362 CORE A PROGNO ARRAY
075113 PB BOOL 75113 CORE A GUARANTEED PERCENTAGE VECTOR BASE
000043 N BOOL 43 CORE A MAX. NO. OF USERS (SIZE OF PROBN)
*
000017 BASE BOOL 17 KEY CODE BASE
000001 I BOOL 1 KEY CODE TO START INCREMENTAL DUMP
000002 PAUSE BOOL 2 KEY CODE TO WAIT FOR 1 MIN.
000003 C BOOL 3 KEY CODE TO DO COMPLETE DUMP
000004 AK BOOL 4 KEY CODE FOR IMPENDING AUTOLOGOUT
000005 ENFLSH BOOL 5 KEY CODE TO ENTER FLUSH MODE
000006 LVFLSH BOOL 6 KEY CODE TO LEAVE FLUSH MODE
000007 ENDTAP BOOL 7 KEY CODE TO TERMINATE DUMP TAPE FILE
000010 INT BOOL 10 SIMULATE INTERRUPT
00660 RECSIZ EQU 432 TAPE RECORD SIZE
00006 NX EQU 6 MAX. NO. OF SYSTEM FILE OWNERS
00030 NCD EQU 24 MAX. NO. 'DAYS' NON-USE OF CURRENT FILES
00014 DINC EQU 12 NO. DAYS OF 'RECENCY' INCREMENT (C.DUMP)
01274 U EQU 700 MAX. NO. USERS IN MFD USER LIST
03300 TBSIZ EQU 4*RECSIZ TAPE BUFFER SIZE
00007 ERYSIZ EQU 7 I/O SYSTEM ERROR ARRAY SIZE
00014 ERCODA EQU 12 'OPEN' ERROR CODE FOR FILE NOT FOUND
00016 ERCODB EQU 14 'OPEN' ERROR CODE RQSTD. DEVICE UNAVBLE
00660 NW EQU 432 SIZE OF SECONDARY I/O FILE BUFFERS
00001 LSDRUM EQU 1 I/O SYSTEM DEVICE CODE FOR L.S.DRUM
00002 DISK EQU 2 I/O SYSTEM DEVICE CODE FOR DISK
00003 TAPE EQU 3 I/O SYSTEM DEVICE CODE FOR TAPE
00010 NHOUR EQU 8 NO. OF HOURS IN A 'DAY'
77461 KEYVAL COMMON 1 LAST KEY SETTING READ FROM SUPERVISOR
77460 FLSHSW COMMON 1 FLUSH MODE SWITCH
77457 ENTPSW COMMON 1 OPERATOR-REQUESTED-END-TAPE INDICATOR
77456 NMFDU COMMON 1 NO. USERS CURRENTLY IN LIST
77455 EXEMPT COMMON 2*NX LIST OF SYSTEM FILE OWNERS
77441 NXMPT COMMON 1 NO. FILE USERS EXEMPT FROM DUMP IN DCYCLE
77440 DTLD COMMON U TIME LAST DUMPED FOR EACH USER
76144 PROGNO COMMON U PROGRAMMER NO. OF EACH USER
74650 PROBNO COMMON U PROBLEM NO. OF EACH USER
1 MISCELLANEOUS FILE READ/WRITE ROUTINES....M.J.BAILEY,11/15/64 PAGE 23
73354 FLUSH COMMON 1 NON-ZERO INDICATES FLUSH MODE IS FORCED
73353 TND COMMON 1 TIME OF NEXT DUMP FOR CURRENT USER
70053 COMMON TBSIZ-1 TAPE BUFFER
70053 TPBUF COMMON 1 TAPE BUFFER 1ST WORD
64553 COMMON TBSIZ-1 2ND TAPE BUFFER
64553 TPBUF2 COMMON 1 2ND TAPE BUFFER, 1ST WORD
64544 COMMON ERYSIZ-1 ERROR ARRAY
64544 ERAY COMMON 1 ERROR ARRAY 1ST WORD
64526 COMMON 13 PRINT BUFFER
64526 PBF COMMON 1 PRINT BUFFER 1ST WORD
64510 COMMON 13 MFD ENTRY BUFFER
64510 MFDENT COMMON 1 MFD ENTRY BUFFER 1ST WORD
63630 COMMON NW-1 SECONDARY I/0 FILE BUFFER
63630 IOBUF COMMON 1 SECONDARY IO BUFFER 1ST WORD
62750 COMMON NW-1 SECONDARY I/O FILE BUFFER
62750 IOBUF2 COMMON 1 SECONDARY I/O BUFFER 1ST WORD
62747 UFDEOF COMMON 1 ZERO INDICATES EOF IN UFD FILE
62741 COMMON 5 PARTIAL UFD ENTRY BUFFER
62741 UFDENT COMMON 1 PARTIAL UFD ENTRY BUFFER 1ST WORD
62740 MFDC COMMON 1 NEXT WORD TO BE READ FROM MFD FILE
62737 TLD COMMON 1 TIME LAST DUMP OF USER CURRENTLY DUMPING
62736 UFDC COMMON 1 NEXT UNREAD POS. OF UFDFILE (NORMALLY ZERO)
62735 MFDEOF COMMON 1 ZERO INDICATES EOF IN MFD FILE
62734 EOFCT COMMON 1 NO. OF WORDS READ BEFORE AN EOF
62733 FEOF COMMON 1 ZERO INDICATES EOF IN A USER FILE
62732 EOFCTA COMMON 1 NO. OF WORDS BEFORE AN EOF
62731 DMPSW COMMON 1 NON-ZERO INDICATES A FILE HAS BEEN DUMPED
62730 DAWN COMMON 1 TIME OF START OF 'DAY'
62727 DMPUSR COMMON 1 PROBLEM NO. OF DUMP/LOAD PACKAGE
62726 DMPRGR COMMON 1 PROGRAMMER NO. OF DITTO.
62727 DU EQU DMPUSR
62726 DP EQU DMPRGR
62725 MFD1W COMMON 1 NO. OF 1ST GOOD WORD IN MFD AND UFD FILES
62723 COMMON 1 2ND PART OF DUMP TAPE FILE (COPY 1) NAME
62723 NFN1 COMMON 1 1ST PART OF DUMP TAPE FILE (COPY 1) NAME
62721 COMMON 1 2ND PART OF DUMP TAPE FILE (COPY 2) NAME
62721 NFN2 COMMON 1 1ST PART OF DUMP TAPE FILE (COPY 2) NAME
62720 TNDSW COMMON 1 INDICATES TIME OF THIS DUMP CURRENT OR NO
62040 COMMON RECSIZ-1 INTERNAL TAPE BUFFER
62040 ITB1 COMMON 1 ,, ,, ,, 1ST WORD
61160 COMMON RECSIZ-1 INTERNAL TAPE BUFFER
61160 ITB2 COMMON 1 ,, ,, ,, 1ST WORD
61157 DUSK COMMON 1 TIME OF END OF CURRENT 'DAY'
61156 ENDSW COMMON 1 IF 1, NORMAL END-OF-DAY,ELSE OPERATOR ONE
60276 COMMON NW-1 INTERNAL BUFFER FOR 'MAP' FILE
60276 IMP COMMON 1 ,, ,, ,, ,, ,, 1ST WORD
60267 COMMON 6 'MAP' FILE LINE PARAMETER ARRAY
60267 ARGLST COMMON 1 ,, ,, ,, ,, ,, 1ST WORD
60266 CDSW COMMON 1 NON-ZERO DURING COMPLETE DUMP,ELSE ZERO
60265 DATE COMMON 1 DATE THE DUMP NOW IN PROGRESS BEGAN
60264 TIME COMMON 1 TIME DUMP NOW IN PROGRESS BEGAN
60263 TCYCLE COMMON 1 'TIME' OF LAST CYCLE ON DUMP TAPE FILE
60262 TFOSW COMMON 1 NON-ZERO IF DUMP TAPE FILE IS OPEN
60261 ALOG COMMON 1 NON-ZERO IF AUTOLOGOUT ON
60260 SW1 COMMON 1
60257 TCP COMMON 1
1 MISCELLANEOUS FILE READ/WRITE ROUTINES....M.J.BAILEY,11/15/64 PAGE 24
60256 TNDSAV COMMON 1
60255 ODAWN COMMON 1 TIME OF START OF PREVIOUS 'DAY'
60244 COMMON 8 TAPE LABEL
60244 TAPEID COMMON 1 TAPE LABEL 1ST WORD
60243 SKELSW COMMON 1
60254 REELNO EQU TAPEID+8
END
REMOTE SEQUENCES
06405 604433263324 ..003 BCI 7, M.F.D. READING ERROR - 5 OR LESS WORDS .001
06406 336051252124
06407 314527602551
06410 514651604060
06411 056046516043
06412 256262606646
06413 512462606060
06414 604731234225 ..006 BCI 7, PICKED UP BEFORE END OF FILE IN M.F.D. .001
06415 246064476022
06416 252646512560
06417 254524604626
06420 602631432560
06421 314560443326
06422 332433606060
06423 602551514651 ..009 BCI 5, ERROR READING M.F.D. FILE. .001
06424 605125212431
06425 452760443326
06426 332433602631
06427 432533606060
06430 602551514651 ..012 BCI 8, ERROR READING U.F.D. FILE OF FOLLOWING USER - .001
06431 605125212431
06432 452760643326
06433 332433602631
06434 432560462660
06435 264643434666
06436 314527606462
06437 255160406060
06440 606060606060 ..014 BCI 6, PROBLEM NO. .001
06441 606060606060
06442 606060606060
06443 606060606060
06444 475146224325
06445 446045463360
06446 606060606060 ..016 BCI 6, PROGRAMMER NO. .001
06447 606060606060
06450 606060606060
06451 606060475146
06452 275121444425
06453 516045463360
06454 602122214524 ..019 BCI 8, ABANDONING THIS USER IN THE CURRENT DUMP CYCLE. .001
06455 464531452760
06456 633031626064
06457 622551603145
06460 606330256023
06461 645151254563
06462 602464444760
06463 237023432533
06464 602545246046 ..022 BCI 6, END OF REEL ON DUMP TAPE FILE. .001
1 MISCELLANEOUS FILE READ/WRITE ROUTINES....M.J.BAILEY,11/15/64 PAGE 25
06465 266051252543
06466 604645602464
06467 444760632147
06470 256026314325
06471 336060606060
06472 602551514651 ..023 BCI 7, ERROR READING THE FOLLOWING FILE - .001
06473 605125212431
06474 452760633025
06475 602646434346
06476 663145276026
06477 314325606040
06500 606060606060
06501 603163602225 ..024 BCI 3, IT BELONGS TO - .001
06502 434645276260
06503 634660406060
06504 604446653145 ..027 BCI 5, MOVING ON TO HIS NEXT FILE. .001
06505 276046456063
06506 466030316260
06507 452567636026
06510 314325336060
06511 602533463326 ..030 BCI 9, E.O.F. DETECTED IN WRONG PLACE IN DUMP PROGRAMS COPY .001
06512 336024256325
06513 236325246031
06514 456066514645
06515 276047432123
06516 256031456024
06517 644447604751
06520 462751214462
06521 602346477060
06522 606046266063 ..033 BCI 7, OF THE U.F.D. FOR THE FOLLOWING USER - .001
06523 302560643326
06524 332433602646
06525 516063302560
06526 264643434666
06527 314527606462
06530 255160406060
06531 606060606060 ..035 BCI 6, PROBLEM NO. .001
06532 606060606060
06533 606060606060
06534 606060606060
06535 475146224325
06536 446045463360
06537 606060606060 ..037 BCI 6, PROGRAMMER NO. .001
06540 606060606060
06541 606060606060
06542 606060475146
06543 275121444425
06544 516045463360
06545 602122214524 ..040 BCI 8, ABANDONING THIS USER IN THE CURRENT DUMP CYCLE. .001
06546 464531452760
06547 633031626064
06550 622551603145
06551 606330256023
06552 645151254563
06553 602464444760
06554 237023432533
1 MISCELLANEOUS FILE READ/WRITE ROUTINES....M.J.BAILEY,11/15/64 PAGE 26
LITERALS
06555 000000000000
06556 000000000001
06557 000000000002
06560 000000000004
06561 000000000005
06562 000000000006
06563 000000000012
06564 000000000013
06565 000000000014
06566 000000000077
06567 000000000120
06570 236060606060
06571 236426240001
06572 236426240002
06573 246060606060
06574 246444476347
06575 266621316360
06576 306060606060
06577 514426240001
06600 601444214714
06601 606060600000
1 MISCELLANEOUS FILE READ/WRITE ROUTINES....M.J.BAILEY,11/15/64 PAGE 1
POST PROCESSOR ASSEMBLY DATA
60242 IS THE LAST LOCATION NOT USED BY THIS PROGRAM
6602 IS THE FIRST LOCATION NOT USED BY THIS PROGRAM
0REFERENCES TO DEFINED SYMBOLS
3 C 6405
1 I 6405
43 N 6405
44 R
1274 U 6405
32 W 1463, 1476
4 AK 6405
6032 B1 6016
6033 B4 6015
62726 DP 1256, 6405
62727 DU 1255, 6405
26 L4 1437, 1460
27 L7 1333
740 L8 752
660 NW 30, 6405
6 NX 6405
75113 PB 6405
54 SW 6164, 6217, 6262
6202 EUA 6200, 6204
6205 EUB
6217 EUC 6251
6221 EUD 6167, 6173, 6404
6222 EUE 6170, 6174
6224 EUF 6216
6230 EUG 6172
6245 EUH 6256, 6263
6252 EUI 6243
6253 EUJ 6212
6271 EUK 6260
6275 EUL 6270
6403 EUM 6250
60276 IMP 6405
10 INT 6405
30 NCD 6405
37 NOP 1101
64526 PBF 1002, 1006, 1011, 1015, 1021, 1024, 1030, 1034, 1037, 1053, 1057, 1062, 1152, 1156, 1161, 1165, 1170
1173, 1176, 1202, 1205, 1210, 1213, 1217, 1223, 1226, 1232, 1236, 1241, 1354, 1360, 1363, 6075, 6100
6102, 6105, 6110, 6114, 6117, 6121, 6124, 6127, 6133, 6137, 6142, 6146, 6152, 6155, 6277, 6303, 6306
6312, 6316, 6321, 6325, 6330, 6333, 6336, 6342, 6345, 6350, 6353, 6357, 6363, 6366, 6372, 6376, 6401
6405
6053 RDA 6037, 6042
6057 RDC 6066
6063 RDD 6035, 6157
6065 RDE 6054
6035 RDF 0
755 RMA 773
767 RMB 741, 1041, 1043, 1044
771 RMC 753
1026 RMD 1067
1130 RUA 1073, 1076, 1104, 1107, 1113, 1116
1 MISCELLANEOUS FILE READ/WRITE ROUTINES....M.J.BAILEY,11/15/64 PAGE 2
POST PROCESSOR ASSEMBLY DATA
1133 RUC 1074, 1077, 1105, 1110, 1143
1140 RUD 1111, 1243
1142 RUE 1131
60260 SW1 6405
60257 TCP 6405
62737 TLD 6405
73353 TND 6405
40 TRA 1070
1257 WNA 1324
1270 WNB 1252, 1277
1273 WNC 1250, 1276
1276 WND 1271
1305 WNE 1351, 1416
1311 WNF 1303
1314 WNG
1320 WNH 1304
1325 WNI 1246
1326 WNJ 1245
1330 WNK 1263, 1267
1347 WNL 1336, 1340, 1343
1352 WNM 1346
1462 WNN 1474
1475 WNO 1471, 1507
1510 WNP 1504
5732 WSW 1257, 1323, 1331
60261 ALOG 6405
17 BASE 6405
17 BERM 775, 1046, 1145, 6070, 6265, 6272
1120 BOTH 40, 1071, 1102
60266 CDSW 6405
52 CFDC 6177, 6207, 6210, 6215, 6225, 6231, 6255
60265 DATE 6405
62730 DAWN 6405
14 DINC 6405
2 DISK 6405
77440 DTLD 6405
61157 DUSK 6405
64544 ERAY 1333, 1335, 1341, 1344, 6405
1144 ERRC 1136
1045 ERRD 760
6067 ERRH 6056, 6062
6220 EUCA 6171, 6175, 6403
1551 FBUF 1274, 1311, 1320
62733 FEOF 6065, 6405
62040 ITB1 1513, 6405
61160 ITB2 1517, 6405
30 LBUF
5755 MESA 1377, 5764
5765 MESB 1402, 5774
5775 MESC 1434, 6004
6005 MESD 1455, 6014
62740 MFDC 751, 762, 764, 6405
62723 NFN1 1261, 1262, 1306, 1307, 1366, 1367, 1421, 1422, 1425, 1426, 1464, 1465, 1511, 1512, 1530, 1531, 1542
1543, 6405
62721 NFN2 1265, 1266, 1315, 1316, 1372, 1373, 1442, 1443, 1446, 1447, 1477, 1500, 1515, 1516, 1535, 1536, 1545
1 MISCELLANEOUS FILE READ/WRITE ROUTINES....M.J.BAILEY,11/15/64 PAGE 3
POST PROCESSOR ASSEMBLY DATA
1546, 6405
3 OPEN 1462, 1475
1547 PXR4 1417
6064 RDDA 6160
5750 REEL 1407
1141 RUDA 1244
3 TAPE 31, 6405
60264 TIME 6405
55 UBUF 736, 6242
62736 UFDC 1127, 1137, 6166, 6224, 6227, 6241, 6405
1245 WRNF 0
746 ZENT 766
7 CLOSE 1365, 1371
62731 DMPSW 6405
61156 ENDSW 6405
62734 EOFCT 754, 772, 1132, 6405
73354 FLUSH 6405
6 FWAIT 755, 1133, 1260, 1264, 1541, 1544, 6057, 6245
16 GDSIG 742, 1117, 1253, 1350, 1473, 1506, 6043, 6232
63630 IOBUF 6405
6405 ..003 1001
6414 ..006 1014
6423 ..009 1052
6430 ..012 1151
6440 ..014 1164
6446 ..016 1201
6454 ..019 1216
6464 ..022 1353
6472 ..023 6074
6501 ..024 6113
6504 ..027 6132
6511 ..030 6276
6522 ..033 6311
6531 ..035 6324
6537 ..037 6341
6545 ..040 6356
14 LABEL 1435, 1456
24 LITB1 1513
25 LITB2 1517
5764 LMESA 1377
5774 LMESB 1402
6004 LMESC 1434
6014 LMESD 1455
31 LTAPE 1467, 1502
62725 MFD1W 6405
12 MOUNT 1431, 1452
10 NHOUR 6405
77456 NMFDU 6405
77441 NXMPT 6405
60255 ODAWN 6405
2 PAUSE 6405
5051 PHBUF 1525, 1533, 1540
76426 PROBN 6405
76362 PROGN 6405
76147 RCODE 6405
1 MISCELLANEOUS FILE READ/WRITE ROUTINES....M.J.BAILEY,11/15/64 PAGE 4
POST PROCESSOR ASSEMBLY DATA
741 RDMFD 0
1101 RDUFD 0, 1100
660 RECSZ 1551, 5051, 5731
3300 TBSIZ 6405
60262 TFOSW 6405
62720 TNDSW 6405
70053 TPBUF 6405
736 UBADR 6176
660 UBSIZ 55, 735
11 WRFLX 1005, 1020, 1033, 1056, 1155, 1172, 1207, 1222, 1235, 1357, 6104, 6123, 6136, 6151, 6302, 6315, 6332
6347, 6362, 6375
60267 ARGLST 6405
0 ATTACH 743, 1121, 1254, 6044, 6233
75040 AUTOND 6405
6015 BINBCD 1405
4 BUFFER 1510, 1514
53 CFDEOF 6162, 6211, 6252
1 DELFIL 1420, 1441
75032 DEMKEY 6405
62726 DMPRGR 6405
62727 DMPUSR 6405
7 ENDTAP 6405
5 ENFLSH 6405
77457 ENTPSW 6405
6173 ENTUFD 0
62732 EOFCTA 6055, 6405
737 EOFCTB 6244, 6253
14 ERCODA 6405
16 ERCODB 6405
5733 EREELM 1414, 5754
20 ERREND 1065
45 ERSTAT 1027, 1231, 6145, 6371
7 ERYSIZ 6405
77455 EXEMPT 6405
77460 FLSHSW 6405
6161 IENUFD 0
62750 IOBUF2 6405
15 IODIAG 1332
77461 KEYVAL 6405
5731 LPHSIZ 1533, 1540
5754 LREELM 1414
1 LSDRUM 6405
735 LUBSIZ 6213, 6242
6 LVFLSH 6405
64510 MFDENT 752, 765, 1122, 1123, 1167, 1204, 6045, 6046, 6116, 6120, 6234, 6235, 6327, 6344, 6405
62735 MFDEOF 771, 6405
41 MFDNAM 744, 747, 756
1070 NRDUFD 0
75052 NUSERS 6405
35 OURADD 1072
33 OURUFD 35
1417 PATCH1 1415
21 PRNTER 1347, 1472, 1505
74650 PROBNO 6405
76144 PROGNO 6405
1 MISCELLANEOUS FILE READ/WRITE ROUTINES....M.J.BAILEY,11/15/64 PAGE 5
POST PROCESSOR ASSEMBLY DATA
5 RDFILE 746, 1124, 6047, 6236
660 RECSIZ 24, 25, 6405
60254 REELNO 1403, 1520, 1522, 6405
60243 SKELSW 6405
75104 SYSDAT 6405
75105 SYSTIM 6405
60244 TAPEID 1437, 1460, 1524, 6405
2 TAPFIL 1424, 1445
60263 TCYCLE 6405
36 THRADD 1103
60256 TNDSAV 6405
64553 TPBUF2 6405
62741 UFDENT 6050, 6051, 6060, 6061, 6077, 6101, 6203, 6405
62747 UFDEOF 1142, 6163, 6261, 6405
42 UFDNAM 36, 745, 750, 757, 6237, 6240, 6246, 6247
13 UMOUNT 1375, 1400
10 WRFILE 1305, 1314, 1410, 1527, 1534
0 NO ERROR IN ABOVE ASSEMBLY.
DERAZB BCD 05/28/67 1807.1 7362 00000
1 ROUTINES FOR GENERAL ERROR PROCESSING....M.J.BAILEY,11/1/64 PAGE 1
*
*
00005 ENTRY CKCODE CHECK FOR A PARTICULAR ERROR
00022 ENTRY BERM PRINT STANDARD BEGINNING TO ERROR MESSAGE
00064 ENTRY ERREND PRINT ERROR CODE AND TERMINATE MESSAGE
*
EXTERN WRFLX,IODIAG
*
INSERT DMCRSA
*
* MACRO TO WRITE N WORDS FROM ARRAY ET SEQ ONTO ALREADY OPENED
* SECONDARY STORAGE FILE (NAME1,NAME2) AND WAIT UNTIL TRANSMITTED.
*
WSSF MACRO ARRAY,N,NAME1,NAME2
TSX ATTACH,4 RE-ATTACH TO DUMPER'S FILES
TXH DMPUSR
TXH DMPRGR
TSX WRFILE,4 WRITE
TXH NAME1 ONTO (NAME1,
TXH NAME2 NAME2)
TXH =0 AT POSITION WHERE LAST CEASED
TIX ARRAY,,N FROM ARRAY THROUGH ARRAY+N-1
TSX FWAIT,4 WAIT
TXH NAME1
TXH NAME2
WSSF END
*
* ZERO-IZE A THROUGH A+X-1
*
CLEAR MACRO A,X
AXT X,1
STZ A+X,1
TIX *-1,1,1
CLEAR END
*
* MOVE X WORDS FROM A ET SEQ TO B ET SEQ
*
MOVE MACRO X,A,B
AXT X,1
CAL A+X,1
SLW B+X,1
TIX *-2,1,1
MOVE END
*
* PRINT ONE LINE, CLEAR BUFFER
*
PRBUFF MACRO BUFF,NWDS
SXA *+3,4
TSX WRFLX,4
BUFF,,NWDS
AXT **,4
CLEAR BUFF,NWDS
PRBUFF END
*
* PRINT STANDARD BEGINNING TO DUMPER ERROR MESSAGE
*
1 ROUTINES FOR GENERAL ERROR PROCESSING....M.J.BAILEY,11/1/64 PAGE 2
BGNERM MACRO TYPE
SXA *+3,4
TSX $BERM,4
PZE TYPE
AXT **,4
BGNERM END
*
* PRINT ONE LINE COMMENT
*
PRLINE MACRO COMNT,NWC,N,WORD1,WORD2,LOC
IFF 0,NWC,0
MOVE NWC,LOC,PBF
IFF N-2,N,1
CAL WORD1
IFF N-2,N,1
SLW PBF+NWC
IFF 1,N,2
CAL WORD2
IFF 1,N,2
SLW PBF+NWC+1
PRBUFF PBF,NWC+N
RMT
LOC BCI NWC,COMNT
RMT
PRLINE END
*
* PRINT ONE LINE MESSAGE
*
PRMESS MACRO MESNAM,N,ADR1,ADR2
TSX $PRLINE,4
BCI 1,MESNAM
IFF N,N,N
TXH ADR1
IFF N,N,N
TXH ADR2
PRMESS END
*
* MACRO TO OPEN FILE (X,Y) OF USER (A,B) FOR READING
* AND ASSIGN BUFFER F OF LENGTH L TO I/O SYSTEM FOR THAT PURPOSE.
* ( ERR IS TRANSFER ADDRESS FOR ERROR RETURN )
*
RDOPEN MACRO X,Y,A,B,F,L,ERR
TSX ATTACH,4 ATTACH TO USER (A,B)
TXH A
TXH B
TSX OPEN,4 OPEN FILE (X,Y) FOR READING
TXH R
TXH X
TXH Y
TXH =0
TXH =0
TXH ERR (TRANSFER ADDRESS FOR ERROR)
TSX BUFFER,4 ASSIGN L WORDS OF BUFFER F TO (X,Y)
TXH X
TXH Y
TIX F,,L
1 ROUTINES FOR GENERAL ERROR PROCESSING....M.J.BAILEY,11/1/64 PAGE 3
RDOPEN END
*
* PRINT ERROR CODE, END MESSAGE
*
ERTN MACRO ADRERR
SXA *+2,4
TSX $ERREND,4
AXT **,4
TRA ADRERR
ERTN END
*
* ASK OPERATOR TO SET KEY CODE DC IF HE WANTS
* ACTION GIVEN BY N-WORD MESSAGE M
*
PRCODE MACRO DC,M,N
TSX $PRCODE,4
TXH DC
TXH M,,N
PRCODE END
*
* TEST LAST KEY SETTING VIA SUPERVISOR, GO TO JUMP IF IT IS CODE
*
TESTKY MACRO CODE,JUMP
TSX $NGETA,7
LDQ DEMKEY
STQ KEYVAL
AXT CODE,1
PXA 0,1
SUB KEYVAL
TZE JUMP
TESTKY END
*
* SET UP LOGICAL TAPE RECORD WRITING
*
LOGREC MACRO X
CLA LTPBF
SUB =12
STO TEMP
CAL X+4
ANA =O77777
STO RCOUNT
TSX $NLREC,4
TXH NORECS
TXH RCOUNT
TXH LCOUNT
TXH TEMP
TXH =12
TXH PHYSRC
TXH NFLR
TXH NLAST
LOGREC END
*
*
ATTACH MACRO A,B
TSX ATTACH,4
TXH A
1 ROUTINES FOR GENERAL ERROR PROCESSING....M.J.BAILEY,11/1/64 PAGE 4
TXH B
ATTACH END
*
* PRINT ERROR MESSAGE AND INTERROGATE KEYS
*
PRERR MACRO
TSX $PRNTER,4
TSX $GDSIG,4
PRERR END
*
*
* . . . . . . . . . . . . . . . . . . . . .
* CHECK FOR OCCURRENCE OF I/O SYSTEM ERROR DEFINED BY
* THE ERROR CODE GIVEN BY (2,4), IN THE I/O SYSTEM ENTRY
* GIVEN BY (1,4). IF IT HAS OCCURRED, RETURN TO (4,4),
* OTHERWISE TRANSFER TO LOCATION CONTAINED IN (3,4).
* . . . . . . . . . . . . . . . . . . . . .
*
TRANSFER VECTOR
00000 665126436760 WRFLX
00001 314624312127 IODIAG
00002 222324246344 BCDDTM
LINKAGE DIRECTOR
00003 000000000000
00004 234223462425
00005 0634 00 4 00010 CKCODE SXA *+3,4
00006 0074 00 4 00001 TSX IODIAG,4
00007 2 00214 0 64544 TIX ERAY,,LERAY
00010 0774 00 4 00000 AXT **,4
00011 -0500 00 4 00001 CAL 1,4 (NAME OF OFFENDING I/O SYSTEM ENTRY)
00012 -0340 00 0 64545 LAS ERAY+1
00013 0020 60 4 00003 TRA* 3,4 NO MATCH, EXIT
00014 0020 00 0 00016 TRA *+2
00015 0020 60 4 00003 TRA* 3,4 NO MATCH, EXIT
00016 0500 00 0 64546 CLA ERAY+2
00017 0402 00 4 00002 SUB 2,4 (ERROR CODE)
00020 0100 00 4 00004 TZE 4,4 SUCCESSFUL MATCH,EXIT
00021 0020 60 4 00003 TRA* 3,4 NO MATCH, EXIT
*
* . . . . . . . . . . . . . . . . . . . . . . .
* PRINT STANDARD BEGINNING TO ERROR MESSAGE, WITH CURRENT DATE/TIME
* . . . . . . . . . . . . . . . . . . . . . . .
*
00022 0634 00 1 00061 BERM SXA BMX1,1
00023 0634 00 4 00062 SXA BMX4,4
00024 MOVE 6,ERRHD,PBF
00024 0774 00 1 00006 AXT 6,1 .001
00025 -0500 00 1 00214 CAL ERRHD+6,1 .001
00026 0602 00 1 64534 SLW PBF+6,1 .001
00027 2 00001 1 00025 TIX *-2,1,1 .001
00030 -0500 60 4 00001 CAL* 1,4
00031 0602 00 0 64534 SLW PBF+6
00032 -0500 00 0 00226 CAL =H
1 ROUTINES FOR GENERAL ERROR PROCESSING....M.J.BAILEY,11/1/64 PAGE 5
00033 0602 00 0 64535 SLW PBF+7
00034 0074 00 4 00002 TSX $BCDDTM,4
00035 0602 00 0 64536 SLW PBF+8
00036 -0500 00 0 00226 CAL =H
00037 0602 00 0 64537 SLW PBF+9
00040 -0763 00 0 00014 LGL 12
00041 0767 00 0 00006 ALS 6
00042 -0501 00 0 00223 ORA =H00000/
00043 -0763 00 0 00014 LGL 12
00044 0767 00 0 00006 ALS 6
00045 -0501 00 0 00223 ORA =H00000/
00046 0602 00 0 64540 SLW PBF+10
00047 -0130 00 0 00000 XCL
00050 -0501 00 0 00224 ORA =H00
00051 0602 00 0 64541 SLW PBF+11
00052 PRBUFF PBF,12
00052 0634 00 4 00055 SXA *+3,4 .001
00053 0074 00 4 00000 TSX WRFLX,4 .001
00054 0 00014 0 64526 PBF,,12 .001
00055 0774 00 4 00000 AXT **,4 .001
00056 CLEAR PBF,12 .001
00056 0774 00 1 00014 AXT 12,1 .002
00057 0600 00 1 64542 STZ PBF+12,1 .002
00060 2 00001 1 00057 TIX *-1,1,1 .002
00061 0774 00 1 00000 BMX1 AXT **,1
00062 0774 00 4 00000 BMX4 AXT **,4
00063 0020 00 4 00002 TRA 2,4
*
* . . . . . . . . . . . . . . . . . . . . . .
* PRINT ERROR CODE AND STANDARD ERROR MESSAGE ENDING
* . . . . . . . . . . . . . . . . . . . . . .
*
00064 0634 00 4 00175 ERREND SXA ERND4,4
00065 0634 00 1 00176 SXA ERND1,1
00066 0074 00 4 00001 TSX IODIAG,4
00067 2 00214 0 64544 TIX ERAY,,LERAY
00070 -0500 00 0 64546 CAL ERAY+2
00071 -0765 00 0 00003 LGR 3
00072 0767 00 0 00003 ALS 3
00073 -0763 00 0 00003 LGL 3
00074 0560 00 0 00225 LDQ =H OCT
00075 -0763 00 0 00030 LGL 24
00076 0602 00 0 00200 SLW ERTEMP
00077 PRLINE ( CODE ),1,2,ERAY+1,ERTEMP
00077 MOVE 1,..001,PBF .001
00077 0774 00 1 00001 AXT 1,1 .002
00100 -0500 00 1 00216 CAL ..001+1,1 .002
00101 0602 00 1 64527 SLW PBF+1,1 .002
00102 2 00001 1 00100 TIX *-2,1,1 .002
00103 -0500 00 0 64545 CAL ERAY+1 .001
00104 0602 00 0 64527 SLW PBF+1 .001
00105 -0500 00 0 00200 CAL ERTEMP .001
00106 0602 00 0 64530 SLW PBF+1+1 .001
00107 PRBUFF PBF,1+2 .001
00107 0634 00 4 00112 SXA *+3,4 .002
00110 0074 00 4 00000 TSX WRFLX,4 .002
1 ROUTINES FOR GENERAL ERROR PROCESSING....M.J.BAILEY,11/1/64 PAGE 6
00111 0 00003 0 64526 PBF,,1+2 .002
00112 0774 00 4 00000 AXT **,4 .002
00113 CLEAR PBF,1+2 .002
00113 0774 00 1 00003 AXT 1+2,1 .003
00114 0600 00 1 64531 STZ PBF+1+2,1 .003
00115 2 00001 1 00114 TIX *-1,1,1 .003
RMT .001
..001 BCI 1, CODE .001
RMT .001
00116 -0500 00 0 64547 CAL ERAY+3 I/O ERROR TYPE
00117 0100 00 0 00143 TZE ERA SKIP IF NOT I/O ERROR
00120 -0765 00 0 00003 LGR 3
00121 0767 00 0 00003 ALS 3
00122 -0763 00 0 00003 LGL 3
00123 0560 00 0 00225 LDQ =H OCT
00124 -0763 00 0 00030 LGL 24
00125 0602 00 0 00200 SLW ERTEMP
00126 PRLINE ( I/O ERROR TYPE ),3,1,ERTEMP
00126 MOVE 3,..003,PBF .001
00126 0774 00 1 00003 AXT 3,1 .002
00127 -0500 00 1 00221 CAL ..003+3,1 .002
00130 0602 00 1 64531 SLW PBF+3,1 .002
00131 2 00001 1 00127 TIX *-2,1,1 .002
00132 -0500 00 0 00200 CAL ERTEMP .001
00133 0602 00 0 64531 SLW PBF+3 .001
00134 PRBUFF PBF,3+1 .001
00134 0634 00 4 00137 SXA *+3,4 .002
00135 0074 00 4 00000 TSX WRFLX,4 .002
00136 0 00004 0 64526 PBF,,3+1 .002
00137 0774 00 4 00000 AXT **,4 .002
00140 CLEAR PBF,3+1 .002
00140 0774 00 1 00004 AXT 3+1,1 .003
00141 0600 00 1 64532 STZ PBF+3+1,1 .003
00142 2 00001 1 00141 TIX *-1,1,1 .003
RMT .001
..003 BCI 3, I/O ERROR TYPE .001
RMT .001
00143 ERA PRLINE ( FILE NAME ),2,2,ERAY+4,ERAY+5
00143 MOVE 2,..004,PBF .001
00143 0774 00 1 00002 AXT 2,1 .002
00144 -0500 00 1 00223 CAL ..004+2,1 .002
00145 0602 00 1 64530 SLW PBF+2,1 .002
00146 2 00001 1 00144 TIX *-2,1,1 .002
00147 -0500 00 0 64550 CAL ERAY+4 .001
00150 0602 00 0 64530 SLW PBF+2 .001
00151 -0500 00 0 64551 CAL ERAY+5 .001
00152 0602 00 0 64531 SLW PBF+2+1 .001
00153 PRBUFF PBF,2+2 .001
00153 0634 00 4 00156 SXA *+3,4 .002
00154 0074 00 4 00000 TSX WRFLX,4 .002
00155 0 00004 0 64526 PBF,,2+2 .002
00156 0774 00 4 00000 AXT **,4 .002
00157 CLEAR PBF,2+2 .002
00157 0774 00 1 00004 AXT 2+2,1 .003
00160 0600 00 1 64532 STZ PBF+2+2,1 .003
00161 2 00001 1 00160 TIX *-1,1,1 .003
1 ROUTINES FOR GENERAL ERROR PROCESSING....M.J.BAILEY,11/1/64 PAGE 7
RMT .001
..004 BCI 2, FILE NAME .001
RMT .001
00162 MOVE 5,ERSTAT,PBF
00162 0774 00 1 00005 AXT 5,1 .001
00163 -0500 00 1 00206 CAL ERSTAT+5,1 .001
00164 0602 00 1 64533 SLW PBF+5,1 .001
00165 2 00001 1 00163 TIX *-2,1,1 .001
00166 PRBUFF PBF,5
00166 0634 00 4 00171 SXA *+3,4 .001
00167 0074 00 4 00000 TSX WRFLX,4 .001
00170 0 00005 0 64526 PBF,,5 .001
00171 0774 00 4 00000 AXT **,4 .001
00172 CLEAR PBF,5 .001
00172 0774 00 1 00005 AXT 5,1 .002
00173 0600 00 1 64533 STZ PBF+5,1 .002
00174 2 00001 1 00173 TIX *-1,1,1 .002
00175 0774 00 4 00000 ERND4 AXT **,4
00176 0774 00 1 00000 ERND1 AXT **,1
00177 0020 00 4 00001 TRA 1,4
00200 0 00000 0 00000 ERTEMP PZE
*
00201 606270626325 ERSTAT BCI 5, SYSTEM OR MACHINE ERROR.
00202 446046516044
00203 212330314525
00204 602551514651
00205 336060606060
00206 606027254525 ERRHD BCI 6, GENERAL DUMP PROGRAM ERROR, TYPE
00207 512143602464
00210 444760475146
00211 275121446025
00212 515146517360
00213 637047256060
00214 0 00000 0 00007 LERAY PZE ERYSIZ SIZE OF ERROR ARRAY
*
INSERT DCMEQB
*
* . . . . . . . . . . . . . . . . . .
* COMMON AND EQUIVALENCE FOR GENERAL DUMP PROGRAM
* . . . . . . . . . . . . . . . . . .
*
075032 DEMKEY BOOL 75032 CORE A LOCATION FOR DAEMON'S KEY SETTING
075105 SYSTIM BOOL 75105 CORE A LOCATION FOR SYSTEM TIME
075104 SYSDAT BOOL 75104 CORE A LOCATION FOR SYSTEM INIT. DATE
076147 RCODE BOOL 76147 CORE A LOCATION FOR RESTRICTION CODE VECTOR
075040 AUTOND BOOL 75040 CORE A AUTOMATIC LOGOUT INDICATOR
075052 NUSERS BOOL 75052 CORE A LOGGED-IN USER COUNT
076426 PROBN BOOL 76426 CORE A PROBNO ARRAY
076362 PROGN BOOL 76362 CORE A PROGNO ARRAY
075113 PB BOOL 75113 CORE A GUARANTEED PERCENTAGE VECTOR BASE
000043 N BOOL 43 CORE A MAX. NO. OF USERS (SIZE OF PROBN)
*
000017 BASE BOOL 17 KEY CODE BASE
000001 I BOOL 1 KEY CODE TO START INCREMENTAL DUMP
000002 PAUSE BOOL 2 KEY CODE TO WAIT FOR 1 MIN.
000003 C BOOL 3 KEY CODE TO DO COMPLETE DUMP
1 ROUTINES FOR GENERAL ERROR PROCESSING....M.J.BAILEY,11/1/64 PAGE 8
000004 AK BOOL 4 KEY CODE FOR IMPENDING AUTOLOGOUT
000005 ENFLSH BOOL 5 KEY CODE TO ENTER FLUSH MODE
000006 LVFLSH BOOL 6 KEY CODE TO LEAVE FLUSH MODE
000007 ENDTAP BOOL 7 KEY CODE TO TERMINATE DUMP TAPE FILE
000010 INT BOOL 10 SIMULATE INTERRUPT
00660 RECSIZ EQU 432 TAPE RECORD SIZE
00006 NX EQU 6 MAX. NO. OF SYSTEM FILE OWNERS
00030 NCD EQU 24 MAX. NO. 'DAYS' NON-USE OF CURRENT FILES
00014 DINC EQU 12 NO. DAYS OF 'RECENCY' INCREMENT (C.DUMP)
01274 U EQU 700 MAX. NO. USERS IN MFD USER LIST
03300 TBSIZ EQU 4*RECSIZ TAPE BUFFER SIZE
00007 ERYSIZ EQU 7 I/O SYSTEM ERROR ARRAY SIZE
00014 ERCODA EQU 12 'OPEN' ERROR CODE FOR FILE NOT FOUND
00016 ERCODB EQU 14 'OPEN' ERROR CODE RQSTD. DEVICE UNAVBLE
00660 NW EQU 432 SIZE OF SECONDARY I/O FILE BUFFERS
00001 LSDRUM EQU 1 I/O SYSTEM DEVICE CODE FOR L.S.DRUM
00002 DISK EQU 2 I/O SYSTEM DEVICE CODE FOR DISK
00003 TAPE EQU 3 I/O SYSTEM DEVICE CODE FOR TAPE
00010 NHOUR EQU 8 NO. OF HOURS IN A 'DAY'
77461 KEYVAL COMMON 1 LAST KEY SETTING READ FROM SUPERVISOR
77460 FLSHSW COMMON 1 FLUSH MODE SWITCH
77457 ENTPSW COMMON 1 OPERATOR-REQUESTED-END-TAPE INDICATOR
77456 NMFDU COMMON 1 NO. USERS CURRENTLY IN LIST
77455 EXEMPT COMMON 2*NX LIST OF SYSTEM FILE OWNERS
77441 NXMPT COMMON 1 NO. FILE USERS EXEMPT FROM DUMP IN DCYCLE
77440 DTLD COMMON U TIME LAST DUMPED FOR EACH USER
76144 PROGNO COMMON U PROGRAMMER NO. OF EACH USER
74650 PROBNO COMMON U PROBLEM NO. OF EACH USER
73354 FLUSH COMMON 1 NON-ZERO INDICATES FLUSH MODE IS FORCED
73353 TND COMMON 1 TIME OF NEXT DUMP FOR CURRENT USER
70053 COMMON TBSIZ-1 TAPE BUFFER
70053 TPBUF COMMON 1 TAPE BUFFER 1ST WORD
64553 COMMON TBSIZ-1 2ND TAPE BUFFER
64553 TPBUF2 COMMON 1 2ND TAPE BUFFER, 1ST WORD
64544 COMMON ERYSIZ-1 ERROR ARRAY
64544 ERAY COMMON 1 ERROR ARRAY 1ST WORD
64526 COMMON 13 PRINT BUFFER
64526 PBF COMMON 1 PRINT BUFFER 1ST WORD
64510 COMMON 13 MFD ENTRY BUFFER
64510 MFDENT COMMON 1 MFD ENTRY BUFFER 1ST WORD
63630 COMMON NW-1 SECONDARY I/0 FILE BUFFER
63630 IOBUF COMMON 1 SECONDARY IO BUFFER 1ST WORD
62750 COMMON NW-1 SECONDARY I/O FILE BUFFER
62750 IOBUF2 COMMON 1 SECONDARY I/O BUFFER 1ST WORD
62747 UFDEOF COMMON 1 ZERO INDICATES EOF IN UFD FILE
62741 COMMON 5 PARTIAL UFD ENTRY BUFFER
62741 UFDENT COMMON 1 PARTIAL UFD ENTRY BUFFER 1ST WORD
62740 MFDC COMMON 1 NEXT WORD TO BE READ FROM MFD FILE
62737 TLD COMMON 1 TIME LAST DUMP OF USER CURRENTLY DUMPING
62736 UFDC COMMON 1 NEXT UNREAD POS. OF UFDFILE (NORMALLY ZERO)
62735 MFDEOF COMMON 1 ZERO INDICATES EOF IN MFD FILE
62734 EOFCT COMMON 1 NO. OF WORDS READ BEFORE AN EOF
62733 FEOF COMMON 1 ZERO INDICATES EOF IN A USER FILE
62732 EOFCTA COMMON 1 NO. OF WORDS BEFORE AN EOF
62731 DMPSW COMMON 1 NON-ZERO INDICATES A FILE HAS BEEN DUMPED
62730 DAWN COMMON 1 TIME OF START OF 'DAY'
1 ROUTINES FOR GENERAL ERROR PROCESSING....M.J.BAILEY,11/1/64 PAGE 9
62727 DMPUSR COMMON 1 PROBLEM NO. OF DUMP/LOAD PACKAGE
62726 DMPRGR COMMON 1 PROGRAMMER NO. OF DITTO.
62727 DU EQU DMPUSR
62726 DP EQU DMPRGR
62725 MFD1W COMMON 1 NO. OF 1ST GOOD WORD IN MFD AND UFD FILES
62723 COMMON 1 2ND PART OF DUMP TAPE FILE (COPY 1) NAME
62723 NFN1 COMMON 1 1ST PART OF DUMP TAPE FILE (COPY 1) NAME
62721 COMMON 1 2ND PART OF DUMP TAPE FILE (COPY 2) NAME
62721 NFN2 COMMON 1 1ST PART OF DUMP TAPE FILE (COPY 2) NAME
62720 TNDSW COMMON 1 INDICATES TIME OF THIS DUMP CURRENT OR NO
62040 COMMON RECSIZ-1 INTERNAL TAPE BUFFER
62040 ITB1 COMMON 1 ,, ,, ,, 1ST WORD
61160 COMMON RECSIZ-1 INTERNAL TAPE BUFFER
61160 ITB2 COMMON 1 ,, ,, ,, 1ST WORD
61157 DUSK COMMON 1 TIME OF END OF CURRENT 'DAY'
61156 ENDSW COMMON 1 IF 1, NORMAL END-OF-DAY,ELSE OPERATOR ONE
60276 COMMON NW-1 INTERNAL BUFFER FOR 'MAP' FILE
60276 IMP COMMON 1 ,, ,, ,, ,, ,, 1ST WORD
60267 COMMON 6 'MAP' FILE LINE PARAMETER ARRAY
60267 ARGLST COMMON 1 ,, ,, ,, ,, ,, 1ST WORD
60266 CDSW COMMON 1 NON-ZERO DURING COMPLETE DUMP,ELSE ZERO
60265 DATE COMMON 1 DATE THE DUMP NOW IN PROGRESS BEGAN
60264 TIME COMMON 1 TIME DUMP NOW IN PROGRESS BEGAN
60263 TCYCLE COMMON 1 'TIME' OF LAST CYCLE ON DUMP TAPE FILE
60262 TFOSW COMMON 1 NON-ZERO IF DUMP TAPE FILE IS OPEN
60261 ALOG COMMON 1 NON-ZERO IF AUTOLOGOUT ON
60260 SW1 COMMON 1
60257 TCP COMMON 1
60256 TNDSAV COMMON 1
60255 ODAWN COMMON 1 TIME OF START OF PREVIOUS 'DAY'
60244 COMMON 8 TAPE LABEL
60244 TAPEID COMMON 1 TAPE LABEL 1ST WORD
60243 SKELSW COMMON 1
60254 REELNO EQU TAPEID+8
END
REMOTE SEQUENCES
00215 602346242560 ..001 BCI 1, CODE .001
00216 603161466025 ..003 BCI 3, I/O ERROR TYPE .001
00217 515146516063
00220 704725606060
00221 602631432560 ..004 BCI 2, FILE NAME .001
00222 452144256060
LITERALS
00223 000000000061
00224 000060606060
00225 604623636060
00226 606060606060
1 ROUTINES FOR GENERAL ERROR PROCESSING....M.J.BAILEY,11/1/64 PAGE 1
POST PROCESSOR ASSEMBLY DATA
60242 IS THE LAST LOCATION NOT USED BY THIS PROGRAM
227 IS THE FIRST LOCATION NOT USED BY THIS PROGRAM
0REFERENCES TO DEFINED SYMBOLS
3 C 215
1 I 215
43 N 215
1274 U 215
4 AK 215
62726 DP 215
62727 DU 215
660 NW 215
6 NX 215
75113 PB 215
143 ERA 117
60276 IMP 215
10 INT 215
30 NCD 215
64526 PBF 26, 31, 33, 35, 37, 46, 51, 54, 57, 101, 104, 106, 111, 114, 130, 133, 136
141, 145, 150, 152, 155, 160, 164, 170, 173, 215
60260 SW1 215
60257 TCP 215
62737 TLD 215
73353 TND 215
60261 ALOG 215
17 BASE 215
22 BERM 0
61 BMX1 22
62 BMX4 23
60266 CDSW 215
60265 DATE 215
62730 DAWN 215
14 DINC 215
2 DISK 215
77440 DTLD 215
61157 DUSK 215
64544 ERAY 7, 12, 16, 67, 70, 103, 116, 147, 151, 215
62733 FEOF 215
62040 ITB1 215
61160 ITB2 215
62740 MFDC 215
62723 NFN1 215
62721 NFN2 215
3 TAPE 215
60264 TIME 215
62736 UFDC 215
62731 DMPSW 215
61156 ENDSW 215
62734 EOFCT 215
176 ERND1 65
175 ERND4 64
206 ERRHD 25
73354 FLUSH 215
63630 IOBUF 215
1 ROUTINES FOR GENERAL ERROR PROCESSING....M.J.BAILEY,11/1/64 PAGE 2
POST PROCESSOR ASSEMBLY DATA
215 ..001 100
216 ..003 127
221 ..004 144
214 LERAY 7, 67
62725 MFD1W 215
10 NHOUR 215
77456 NMFDU 215
77441 NXMPT 215
60255 ODAWN 215
2 PAUSE 215
76426 PROBN 215
76362 PROGN 215
76147 RCODE 215
3300 TBSIZ 215
60262 TFOSW 215
62720 TNDSW 215
70053 TPBUF 215
0 WRFLX 53, 110, 135, 154, 167
60267 ARGLST 215
75040 AUTOND 215
2 BCDDTM 34
5 CKCODE 0
75032 DEMKEY 215
62726 DMPRGR 215
62727 DMPUSR 215
7 ENDTAP 215
5 ENFLSH 215
77457 ENTPSW 215
62732 EOFCTA 215
14 ERCODA 215
16 ERCODB 215
64 ERREND 0
201 ERSTAT 163
200 ERTEMP 76, 105, 125, 132
7 ERYSIZ 214, 215
77455 EXEMPT 215
77460 FLSHSW 215
62750 IOBUF2 215
1 IODIAG 6, 66
77461 KEYVAL 215
1 LSDRUM 215
6 LVFLSH 215
64510 MFDENT 215
62735 MFDEOF 215
75052 NUSERS 215
74650 PROBNO 215
76144 PROGNO 215
660 RECSIZ 215
60254 REELNO 215
60243 SKELSW 215
75104 SYSDAT 215
75105 SYSTIM 215
60244 TAPEID 215
60263 TCYCLE 215
60256 TNDSAV 215
1 ROUTINES FOR GENERAL ERROR PROCESSING....M.J.BAILEY,11/1/64 PAGE 3
POST PROCESSOR ASSEMBLY DATA
64553 TPBUF2 215
62741 UFDENT 215
62747 UFDEOF 215
0 NO ERROR IN ABOVE ASSEMBLY.
SDKSTA BCD 05/28/67 1807.1 239 00000
1 DUMMY REFER TO CORE A AND GET OPERATORS SIGNALS PAGE 1
*
00002 ENTRY GETA
00002 ENTRY NGETA
00004 ENTRY GDSIG
*
*
*
LINKAGE DIRECTOR
00000 000000000000
00001 272563216060
00002 GETA EQU *
00002 0522 00 7 00001 NGETA XEC 1,7
00003 0020 00 7 00002 TRA 2,7
*
00004 0020 00 4 00001 GDSIG TRA 1,4
END
1 DUMMY REFER TO CORE A AND GET OPERATORS SIGNALS PAGE 1
POST PROCESSOR ASSEMBLY DATA
5 IS THE FIRST LOCATION NOT USED BY THIS PROGRAM
0REFERENCES TO DEFINED SYMBOLS
2 GETA 0, 2
4 GDSIG 0
2 NGETA 0
0 NO ERROR IN ABOVE ASSEMBLY.
DRSTRB BCD 05/28/67 1810.9 6362 00000
1 WRITE OR READ RESTORE FILE FOR DISK DUMPER....M.J.BAILEY,2/15/65 PAGE 1
*
00020 ENTRY DTSAVE WRITE RESTORE FILE TO SAVE DUMP TABLES ETC.
00217 ENTRY DRSTOR RELOAD RESTORE FILE TO RESUME DUMPING
*
EXTERN ATTACH,CHFILE,DELFIL,OPEN,BUFFER,WRFILE
EXTERN FWAIT,CLOSE,FSTATE,RDFILE,WRFLX
*
* WRITE RESTORE FILE FOR DUMPER TABLES AND VALUES
*
TRANSFER VECTOR
00000 216363212330 ATTACH
00001 233026314325 CHFILE
00002 242543263143 DELFIL
00003 464725456060 OPEN
00004 226426262551 BUFFER
00005 665126314325 WRFILE
00006 266621316360 FWAIT
00007 234346622560 CLOSE
00010 266263216325 FSTATE
00011 512426314325 RDFILE
00012 665126436760 WRFLX
00013 314622246360 IOBDT
00014 475145632551 PRNTER
00015 272462312760 GDSIG
LINKAGE DIRECTOR
00016 000000000000
00017 246362216525
00020 0634 00 4 00213 DTSAVE SXA X4,4
00021 0634 00 1 00214 SXA X1,1
00022 0760 00 0 00164 SWT 4
00023 0020 00 0 00032 TRA *+7
00024 -0500 00 0 60255 CAL ODAWN
00025 0074 00 4 00013 TSX $IOBDT,4
00026 0602 00 0 00443 SLW T
00027 -0600 00 0 00444 STQ T+1
00030 0074 00 4 00012 TSX $WRFLX,4
00031 0 00002 0 00443 T,,2
00032 0774 00 1 00031 AXT 25,1
00033 0500 00 0 00436 CLA SFNO INCREASE SAVE FILE NO.
00034 0400 00 0 00504 ADD =1
00035 0601 00 0 00436 STO SFNO
00036 0760 00 0 00001 LBT SELECT ALTERNATE COPY FOR REWRITE
00037 0020 00 0 00042 TRA *+3
00040 0500 00 0 00440 CLA NAME1
00041 0020 00 0 00043 TRA *+2
00042 0500 00 0 00441 CLA NAME2
00043 0601 00 0 00442 STO B
*
00044 0500 00 0 00436 CLA SFNO SET UP MISCELLANEOUS VARIABLES FOR WRITING
00045 0601 00 0 00443 STO T
00046 0500 00 0 77456 CLA NMFDU
00047 0601 00 0 00444 STO T+1
00050 0500 00 0 60262 CLA TFOSW
1 WRITE OR READ RESTORE FILE FOR DISK DUMPER....M.J.BAILEY,2/15/65 PAGE 2
00051 0601 00 0 00445 STO T+2
00052 0500 00 0 62730 CLA DAWN
00053 0601 00 0 00446 STO T+3
00054 0500 00 0 60266 CLA CDSW
00055 0601 00 0 00447 STO T+4
00056 0500 00 0 60260 CLA SW1
00057 0601 00 0 00450 STO T+5
00060 0500 00 0 73353 CLA TND
00061 0601 00 0 00451 STO T+6
00062 0500 00 0 62737 CLA TLD
00063 0601 00 0 00452 STO T+7
00064 0500 00 0 60256 CLA TNDSAV
00065 0601 00 0 00453 STO T+8
00066 0500 00 0 60257 CLA TCP
00067 0601 00 0 00454 STO T+9
00070 0500 00 0 61156 CLA ENDSW
00071 0601 00 0 00455 STO T+10
00072 0500 00 0 61157 CLA DUSK
00073 0601 00 0 00456 STO T+11
00074 0500 00 0 60255 CLA ODAWN
00075 0601 00 0 00457 STO T+12
00076 0500 00 0 62740 CLA MFDC
00077 0601 00 0 00460 STO T+13
00100 0500 00 0 62735 CLA MFDEOF
00101 0601 00 0 00461 STO T+14
00102 0500 00 0 77457 CLA ENTPSW
00103 0601 00 0 00462 STO T+15
00104 0500 00 0 60243 CLA SKELSW
00105 0601 00 0 00463 STO T+16
*
00106 0074 00 4 00000 TSX ATTACH,4
TD 00107 3 00000 0 62727 TXH DU
TD 00110 3 00000 0 62726 TXH DP
00111 0500 00 0 00436 CLA SFNO
00112 0402 00 0 00506 SUB =3
00113 -0120 00 0 00127 TMI LA SKIP IF THIS IS FIRST OR SECOND SAVE
00114 0074 00 4 00001 TSX CHFILE,4
TD 00115 3 00000 0 00437 TXH A
TD 00116 3 00000 0 00442 TXH B
TD 00117 3 00000 0 00503 TXH =O0
TD 00120 3 00000 0 00510 TXH =-0
TD 00121 3 00000 0 00510 TXH =-0
TD 00122 3 00000 0 00123 TXH *+1
00123 0074 00 4 00002 TSX DELFIL,4 DELETE OLD COPY
TD 00124 3 00000 0 00437 TXH A
TD 00125 3 00000 0 00442 TXH B
TD 00126 3 00000 0 00127 TXH *+1
*
00127 0074 00 4 00003 LA TSX OPEN,4 OPEN NEW ONE
TD 00130 3 00000 0 00512 TXH =HW
TD 00131 3 00000 0 00437 TXH A
TD 00132 3 00000 0 00442 TXH B
TD 00133 3 00000 0 00507 TXH =O120
TD 00134 3 00000 0 00505 TXH =2
TD 00135 3 00000 0 00173 TXH ERRA
00136 0074 00 4 00004 LB TSX BUFFER,4
1 WRITE OR READ RESTORE FILE FOR DISK DUMPER....M.J.BAILEY,2/15/65 PAGE 3
TD 00137 3 00000 0 00437 TXH A
TD 00140 3 00000 0 00442 TXH B
00141 2 00465 0 63630 TIX IOBUF,,LBUF
TD 00142 3 00000 0 00200 TXH ERRB
*
00143 0074 00 4 00005 LC TSX WRFILE,4 WRITE MISCELLANEOUS VARIABLES
TD 00144 3 00000 0 00437 TXH A
TD 00145 3 00000 0 00442 TXH B
TD 00146 3 00000 0 00504 TXH =1
00147 2 00464 0 00443 TIX T,,NXW
TD 00150 3 00000 0 00153 TXH *+3
TD 00151 3 00000 0 00466 TXH TEMP
TD 00152 3 00000 0 00207 TXH ERRC
00153 0074 00 4 00005 TSX WRFILE,4 WRITE TUFD/G
TD 00154 3 00000 0 00437 TXH A
TD 00155 3 00000 0 00442 TXH B
TD 00156 3 00000 0 00467 TXH NXWT
00157 2 00470 0 73355 TIX PROBNO+1-U,,LTLDFL
TD 00160 3 00000 0 00163 TXH *+3
TD 00161 3 00000 0 00466 TXH TEMP
TD 00162 3 00000 0 00207 TXH ERRC
00163 0074 00 4 00006 TSX FWAIT,4
TD 00164 3 00000 0 00437 TXH A
TD 00165 3 00000 0 00442 TXH B
TD 00166 3 00000 0 00207 TXH ERRC
*
00167 0074 00 4 00007 TSX CLOSE,4
TD 00170 3 00000 0 00437 TXH A
TD 00171 3 00000 0 00442 TXH B
00172 0020 00 0 00213 TRA X4
*
00173 0074 00 4 00014 ERRA TSX $PRNTER,4
00174 0074 00 4 00015 TSX $GDSIG,4
00175 2 00001 1 00127 TIX LA,1,1
00176 0534 00 4 00213 EREX LXA X4,4
00177 1 00001 4 00214 TXI X1,4,1 EXIT VIA 1,4
00200 0074 00 4 00014 ERRB TSX $PRNTER,4
00201 0074 00 4 00015 TSX $GDSIG,4
00202 2 00001 1 00136 TIX LB,1,1
00203 0074 00 4 00007 ERCLEX TSX CLOSE,4
TD 00204 3 00000 0 00437 TXH A
TD 00205 3 00000 0 00442 TXH B
00206 0020 00 0 00176 TRA EREX
00207 0074 00 4 00014 ERRC TSX $PRNTER,4
00210 0074 00 4 00015 TSX $GDSIG,4
00211 2 00001 1 00143 TIX LC,1,1
00212 0020 00 0 00203 TRA ERCLEX
*
00213 0774 00 4 00000 X4 AXT **,4
00214 0774 00 1 00000 X1 AXT **,1
00215 0600 00 0 00442 STZ B INDICATE SAVE PERFORMED LAST
00216 0020 00 4 00002 TRA 2,4
*
* READ RESTORE FILE, TO BE ABLE TO RESUME LOADING
*
00217 0634 00 4 00432 DRSTOR SXA RX4,4
1 WRITE OR READ RESTORE FILE FOR DISK DUMPER....M.J.BAILEY,2/15/65 PAGE 4
00220 0634 00 1 00434 SXA RX1,1
00221 0760 00 0 00164 SWT 4
00222 0020 00 0 00231 TRA *+7
00223 -0500 00 0 60255 CAL ODAWN
00224 0074 00 4 00013 TSX $IOBDT,4
00225 0602 00 0 00443 SLW T
00226 -0600 00 0 00444 STQ T+1
00227 0074 00 4 00012 TSX $WRFLX,4
00230 0 00002 0 00443 T,,2
00231 0074 00 4 00000 TSX ATTACH,4
TD 00232 3 00000 0 62727 TXH DU
TD 00233 3 00000 0 62726 TXH DP
00234 -0500 00 0 00442 CAL B
00235 0100 00 0 00242 TZE RA SKIP IF RESTORE O.K. LAST CALL
00236 -0340 00 0 00440 LAS NAME1 IF NOT, BE SURE TO USE OTHER COPY NOW
00237 0020 00 0 00261 TRA RBA
00240 0020 00 0 00257 TRA RB
00241 0020 00 0 00261 TRA RBA
00242 0074 00 4 00010 RA TSX FSTATE,4
TD 00243 3 00000 0 00437 TXH A
TD 00244 3 00000 0 00440 TXH NAME1
00245 2 00471 0 00443 TIX T,,L7
TD 00246 3 00000 0 00257 TXH RB
00247 0074 00 4 00010 TSX FSTATE,4
TD 00250 3 00000 0 00437 TXH A
TD 00251 3 00000 0 00441 TXH NAME2
00252 2 00471 0 00442 TIX T-1,,L7
TD 00253 3 00000 0 00376 TXH ERRD
00254 0500 00 0 00451 CLA T+6 SEE WHICH COPY IS THE LATEST
00255 0402 00 0 00450 SUB T+5
00256 0120 00 0 00261 TPL *+3
00257 0500 00 0 00441 RB CLA NAME2
00260 0020 00 0 00262 TRA *+2
00261 0500 00 0 00440 RBA CLA NAME1
00262 0601 00 0 00442 STO B SET NAME OF LATEST OF THE 2 COPIES
*
00263 0774 00 1 00005 AXT 5,1
00264 0074 00 4 00003 RC TSX OPEN,4
TD 00265 3 00000 0 00511 TXH =HR
TD 00266 3 00000 0 00437 TXH A
TD 00267 3 00000 0 00442 TXH B
TD 00270 3 00000 0 00510 TXH =-0
TD 00271 3 00000 0 00510 TXH =-0
TD 00272 3 00000 0 00403 TXH ERRE
00273 0074 00 4 00004 RD TSX BUFFER,4
TD 00274 3 00000 0 00437 TXH A
TD 00275 3 00000 0 00442 TXH B
00276 2 00465 0 63630 TIX IOBUF,,LBUF
TD 00277 3 00000 0 00407 TXH ERRF
*
00300 0074 00 4 00011 RE TSX RDFILE,4 READ MISCELLANEOUS VARIABLES
TD 00301 3 00000 0 00437 TXH A
TD 00302 3 00000 0 00442 TXH B
TD 00303 3 00000 0 00504 TXH =1
00304 2 00464 0 00443 TIX T,,NXW
TD 00305 3 00000 0 00416 TXH ERRG
1 WRITE OR READ RESTORE FILE FOR DISK DUMPER....M.J.BAILEY,2/15/65 PAGE 5
TD 00306 3 00000 0 00466 TXH TEMP
TD 00307 3 00000 0 00426 TXH ERRH
00310 0074 00 4 00011 RG TSX RDFILE,4 READ TUFD/G TABLE
TD 00311 3 00000 0 00437 TXH A
TD 00312 3 00000 0 00442 TXH B
TD 00313 3 00000 0 00467 TXH NXWT
00314 2 00470 0 73355 TIX PROBNO+1-U,,LTLDFL
TD 00315 3 00000 0 00321 TXH RH
TD 00316 3 00000 0 00466 TXH TEMP
TD 00317 3 00000 0 00426 TXH ERRH
00320 0020 00 0 00324 TRA RI
00321 0500 00 0 00466 RH CLA TEMP
00322 0402 00 0 00464 SUB NXW
00323 -0100 00 0 00416 TNZ ERRG
00324 0074 00 4 00006 RI TSX FWAIT,4
TD 00325 3 00000 0 00437 TXH A
TD 00326 3 00000 0 00442 TXH B
TD 00327 3 00000 0 00426 TXH ERRH
*
00330 0500 00 0 00443 RJ CLA T RESTORE MISCELLANEOUS VARIABLES
00331 0601 00 0 00436 STO SFNO
00332 0500 00 0 00444 CLA T+1
00333 0601 00 0 77456 STO NMFDU
00334 0500 00 0 00445 CLA T+2
00335 0601 00 0 60262 STO TFOSW
00336 0500 00 0 00446 CLA T+3
00337 0601 00 0 62730 STO DAWN
00340 0500 00 0 00447 CLA T+4
00341 0601 00 0 60266 STO CDSW
00342 0500 00 0 00450 CLA T+5
00343 0601 00 0 60260 STO SW1
00344 0500 00 0 00451 CLA T+6
00345 0601 00 0 73353 STO TND
00346 0500 00 0 00452 CLA T+7
00347 0601 00 0 62737 STO TLD
00350 0500 00 0 00453 CLA T+8
00351 0601 00 0 60256 STO TNDSAV
00352 0500 00 0 00454 CLA T+9
00353 0601 00 0 60257 STO TCP
00354 0500 00 0 00455 CLA T+10
00355 0601 00 0 61156 STO ENDSW
00356 0500 00 0 00456 CLA T+11
00357 0601 00 0 61157 STO DUSK
00360 0500 00 0 00457 CLA T+12
00361 0601 00 0 60255 STO ODAWN
00362 0500 00 0 00460 CLA T+13
00363 0601 00 0 62740 STO MFDC
00364 0500 00 0 00461 CLA T+14
00365 0601 00 0 62735 STO MFDEOF
00366 0500 00 0 00462 CLA T+15
00367 0601 00 0 77457 STO ENTPSW
00370 0500 00 0 00463 CLA T+16
00371 0601 00 0 60243 STO SKELSW
*
00372 0074 00 4 00007 TSX CLOSE,4
TD 00373 3 00000 0 00437 TXH A
1 WRITE OR READ RESTORE FILE FOR DISK DUMPER....M.J.BAILEY,2/15/65 PAGE 6
TD 00374 3 00000 0 00442 TXH B
00375 0020 00 0 00432 TRA RX4
*
00376 0074 00 4 00014 ERRD TSX $PRNTER,4
00377 0074 00 4 00015 TSX $GDSIG,4
00400 2 00001 1 00242 TIX RA,1,1
00401 0534 00 4 00432 ERXR LXA RX4,4
00402 1 00001 4 00434 TXI RX1,4,1 EXIT VIA 1,4 -- ERROR
00403 0074 00 4 00014 ERRE TSX $PRNTER,4
00404 0074 00 4 00015 TSX $GDSIG,4
00405 2 00001 1 00264 TIX RC,1,1
00406 0020 00 0 00401 TRA ERXR
00407 0074 00 4 00014 ERRF TSX $PRNTER,4
00410 0074 00 4 00015 TSX $GDSIG,4
00411 2 00001 1 00273 TIX RD,1,1
00412 0074 00 4 00007 ERCLXR TSX CLOSE,4
TD 00413 3 00000 0 00437 TXH A
TD 00414 3 00000 0 00442 TXH B
00415 0020 00 0 00401 TRA ERXR
00416 0074 00 4 00006 ERRG TSX FWAIT,4
TD 00417 3 00000 0 00437 TXH A
TD 00420 3 00000 0 00442 TXH B
TD 00421 3 00000 0 00426 TXH ERRH
00422 0074 00 4 00012 TSX WRFLX,4
00423 0 00011 0 00472 MESA,,9
00424 2 00001 1 00300 TIX RE,1,1
00425 0020 00 0 00330 TRA RJ
00426 0074 00 4 00014 ERRH TSX PRNTER,4
00427 0074 00 4 00015 TSX $GDSIG,4
00430 2 00001 1 00300 ERRH1 TIX RE,1,1
00431 0020 00 0 00412 TRA ERCLXR
*
00432 0774 00 4 00000 RX4 AXT **,4
00433 0600 00 0 00442 STZ B INDICATE RESTORE O.K.
00434 0774 00 1 00000 RX1 AXT **,1
00435 0020 00 4 00002 TRA 2,4
*
* CONSTANTS, VARIABLES, ETC.
*
00021 XW EQU 17
00436 0 00000 0 00000 SFNO PZE
00437 245162634651 A BCI 1,DRSTOR
00440 263143253301 NAME1 BCI 1,FILE.1
00441 263143253302 NAME2 BCI 1,FILE.2
00442 606060606060 B BCI 1,
00443 T BSS XW
00464 0 00000 0 00021 NXW PZE XW
00465 0 00000 0 00660 LBUF PZE NW
00466 0 00000 0 00000 TEMP PZE
00467 0 00000 0 00022 NXWT PZE XW+1
00470 0 00000 0 04101 LTLDFL PZE 3*U+2*NX+1
00471 0 00000 0 00007 L7 PZE 7
00472 602533463326 MESA BCI 9, E.O.F. IN WRONG PLACE ON DISK LOADER 'RESTORE FILE'.
00473 336031456066
00474 514645276047
00475 432123256046
1 WRITE OR READ RESTORE FILE FOR DISK DUMPER....M.J.BAILEY,2/15/65 PAGE 7
00476 456024316242
00477 604346212425
00500 516014512562
00501 634651256026
00502 314325143360
*
INSERT DCMEQB
*
* . . . . . . . . . . . . . . . . . .
* COMMON AND EQUIVALENCE FOR GENERAL DUMP PROGRAM
* . . . . . . . . . . . . . . . . . .
*
075032 DEMKEY BOOL 75032 CORE A LOCATION FOR DAEMON'S KEY SETTING
075105 SYSTIM BOOL 75105 CORE A LOCATION FOR SYSTEM TIME
075104 SYSDAT BOOL 75104 CORE A LOCATION FOR SYSTEM INIT. DATE
076147 RCODE BOOL 76147 CORE A LOCATION FOR RESTRICTION CODE VECTOR
075040 AUTOND BOOL 75040 CORE A AUTOMATIC LOGOUT INDICATOR
075052 NUSERS BOOL 75052 CORE A LOGGED-IN USER COUNT
076426 PROBN BOOL 76426 CORE A PROBNO ARRAY
076362 PROGN BOOL 76362 CORE A PROGNO ARRAY
075113 PB BOOL 75113 CORE A GUARANTEED PERCENTAGE VECTOR BASE
000043 N BOOL 43 CORE A MAX. NO. OF USERS (SIZE OF PROBN)
*
000017 BASE BOOL 17 KEY CODE BASE
000001 I BOOL 1 KEY CODE TO START INCREMENTAL DUMP
000002 PAUSE BOOL 2 KEY CODE TO WAIT FOR 1 MIN.
000003 C BOOL 3 KEY CODE TO DO COMPLETE DUMP
000004 AK BOOL 4 KEY CODE FOR IMPENDING AUTOLOGOUT
000005 ENFLSH BOOL 5 KEY CODE TO ENTER FLUSH MODE
000006 LVFLSH BOOL 6 KEY CODE TO LEAVE FLUSH MODE
000007 ENDTAP BOOL 7 KEY CODE TO TERMINATE DUMP TAPE FILE
000010 INT BOOL 10 SIMULATE INTERRUPT
00660 RECSIZ EQU 432 TAPE RECORD SIZE
00006 NX EQU 6 MAX. NO. OF SYSTEM FILE OWNERS
00030 NCD EQU 24 MAX. NO. 'DAYS' NON-USE OF CURRENT FILES
00014 DINC EQU 12 NO. DAYS OF 'RECENCY' INCREMENT (C.DUMP)
01274 U EQU 700 MAX. NO. USERS IN MFD USER LIST
03300 TBSIZ EQU 4*RECSIZ TAPE BUFFER SIZE
00007 ERYSIZ EQU 7 I/O SYSTEM ERROR ARRAY SIZE
00014 ERCODA EQU 12 'OPEN' ERROR CODE FOR FILE NOT FOUND
00016 ERCODB EQU 14 'OPEN' ERROR CODE RQSTD. DEVICE UNAVBLE
00660 NW EQU 432 SIZE OF SECONDARY I/O FILE BUFFERS
00001 LSDRUM EQU 1 I/O SYSTEM DEVICE CODE FOR L.S.DRUM
00002 DISK EQU 2 I/O SYSTEM DEVICE CODE FOR DISK
00003 TAPE EQU 3 I/O SYSTEM DEVICE CODE FOR TAPE
00010 NHOUR EQU 8 NO. OF HOURS IN A 'DAY'
77461 KEYVAL COMMON 1 LAST KEY SETTING READ FROM SUPERVISOR
77460 FLSHSW COMMON 1 FLUSH MODE SWITCH
77457 ENTPSW COMMON 1 OPERATOR-REQUESTED-END-TAPE INDICATOR
77456 NMFDU COMMON 1 NO. USERS CURRENTLY IN LIST
77455 EXEMPT COMMON 2*NX LIST OF SYSTEM FILE OWNERS
77441 NXMPT COMMON 1 NO. FILE USERS EXEMPT FROM DUMP IN DCYCLE
77440 DTLD COMMON U TIME LAST DUMPED FOR EACH USER
76144 PROGNO COMMON U PROGRAMMER NO. OF EACH USER
74650 PROBNO COMMON U PROBLEM NO. OF EACH USER
73354 FLUSH COMMON 1 NON-ZERO INDICATES FLUSH MODE IS FORCED
1 WRITE OR READ RESTORE FILE FOR DISK DUMPER....M.J.BAILEY,2/15/65 PAGE 8
73353 TND COMMON 1 TIME OF NEXT DUMP FOR CURRENT USER
70053 COMMON TBSIZ-1 TAPE BUFFER
70053 TPBUF COMMON 1 TAPE BUFFER 1ST WORD
64553 COMMON TBSIZ-1 2ND TAPE BUFFER
64553 TPBUF2 COMMON 1 2ND TAPE BUFFER, 1ST WORD
64544 COMMON ERYSIZ-1 ERROR ARRAY
64544 ERAY COMMON 1 ERROR ARRAY 1ST WORD
64526 COMMON 13 PRINT BUFFER
64526 PBF COMMON 1 PRINT BUFFER 1ST WORD
64510 COMMON 13 MFD ENTRY BUFFER
64510 MFDENT COMMON 1 MFD ENTRY BUFFER 1ST WORD
63630 COMMON NW-1 SECONDARY I/0 FILE BUFFER
63630 IOBUF COMMON 1 SECONDARY IO BUFFER 1ST WORD
62750 COMMON NW-1 SECONDARY I/O FILE BUFFER
62750 IOBUF2 COMMON 1 SECONDARY I/O BUFFER 1ST WORD
62747 UFDEOF COMMON 1 ZERO INDICATES EOF IN UFD FILE
62741 COMMON 5 PARTIAL UFD ENTRY BUFFER
62741 UFDENT COMMON 1 PARTIAL UFD ENTRY BUFFER 1ST WORD
62740 MFDC COMMON 1 NEXT WORD TO BE READ FROM MFD FILE
62737 TLD COMMON 1 TIME LAST DUMP OF USER CURRENTLY DUMPING
62736 UFDC COMMON 1 NEXT UNREAD POS. OF UFDFILE (NORMALLY ZERO)
62735 MFDEOF COMMON 1 ZERO INDICATES EOF IN MFD FILE
62734 EOFCT COMMON 1 NO. OF WORDS READ BEFORE AN EOF
62733 FEOF COMMON 1 ZERO INDICATES EOF IN A USER FILE
62732 EOFCTA COMMON 1 NO. OF WORDS BEFORE AN EOF
62731 DMPSW COMMON 1 NON-ZERO INDICATES A FILE HAS BEEN DUMPED
62730 DAWN COMMON 1 TIME OF START OF 'DAY'
62727 DMPUSR COMMON 1 PROBLEM NO. OF DUMP/LOAD PACKAGE
62726 DMPRGR COMMON 1 PROGRAMMER NO. OF DITTO.
62727 DU EQU DMPUSR
62726 DP EQU DMPRGR
62725 MFD1W COMMON 1 NO. OF 1ST GOOD WORD IN MFD AND UFD FILES
62723 COMMON 1 2ND PART OF DUMP TAPE FILE (COPY 1) NAME
62723 NFN1 COMMON 1 1ST PART OF DUMP TAPE FILE (COPY 1) NAME
62721 COMMON 1 2ND PART OF DUMP TAPE FILE (COPY 2) NAME
62721 NFN2 COMMON 1 1ST PART OF DUMP TAPE FILE (COPY 2) NAME
62720 TNDSW COMMON 1 INDICATES TIME OF THIS DUMP CURRENT OR NO
62040 COMMON RECSIZ-1 INTERNAL TAPE BUFFER
62040 ITB1 COMMON 1 ,, ,, ,, 1ST WORD
61160 COMMON RECSIZ-1 INTERNAL TAPE BUFFER
61160 ITB2 COMMON 1 ,, ,, ,, 1ST WORD
61157 DUSK COMMON 1 TIME OF END OF CURRENT 'DAY'
61156 ENDSW COMMON 1 IF 1, NORMAL END-OF-DAY,ELSE OPERATOR ONE
60276 COMMON NW-1 INTERNAL BUFFER FOR 'MAP' FILE
60276 IMP COMMON 1 ,, ,, ,, ,, ,, 1ST WORD
60267 COMMON 6 'MAP' FILE LINE PARAMETER ARRAY
60267 ARGLST COMMON 1 ,, ,, ,, ,, ,, 1ST WORD
60266 CDSW COMMON 1 NON-ZERO DURING COMPLETE DUMP,ELSE ZERO
60265 DATE COMMON 1 DATE THE DUMP NOW IN PROGRESS BEGAN
60264 TIME COMMON 1 TIME DUMP NOW IN PROGRESS BEGAN
60263 TCYCLE COMMON 1 'TIME' OF LAST CYCLE ON DUMP TAPE FILE
60262 TFOSW COMMON 1 NON-ZERO IF DUMP TAPE FILE IS OPEN
60261 ALOG COMMON 1 NON-ZERO IF AUTOLOGOUT ON
60260 SW1 COMMON 1
60257 TCP COMMON 1
60256 TNDSAV COMMON 1
1 WRITE OR READ RESTORE FILE FOR DISK DUMPER....M.J.BAILEY,2/15/65 PAGE 9
60255 ODAWN COMMON 1 TIME OF START OF PREVIOUS 'DAY'
60244 COMMON 8 TAPE LABEL
60244 TAPEID COMMON 1 TAPE LABEL 1ST WORD
60243 SKELSW COMMON 1
60254 REELNO EQU TAPEID+8
END
LITERALS
00503 000000000000
00504 000000000001
00505 000000000002
00506 000000000003
00507 000000000120
00510 400000000000
00511 516060606060
00512 666060606060
1 WRITE OR READ RESTORE FILE FOR DISK DUMPER....M.J.BAILEY,2/15/65 PAGE 1
POST PROCESSOR ASSEMBLY DATA
60242 IS THE LAST LOCATION NOT USED BY THIS PROGRAM
513 IS THE FIRST LOCATION NOT USED BY THIS PROGRAM
0REFERENCES TO DEFINED SYMBOLS
437 A 115, 124, 131, 137, 144, 154, 164, 170, 204, 243, 250, 266, 274, 301, 311, 325, 373
413, 417
442 B 43, 116, 125, 132, 140, 145, 155, 165, 171, 205, 215, 234, 262, 267, 275, 302, 312
326, 374, 414, 420, 433
3 C 503
1 I 503
43 N 503
443 T 26, 27, 31, 45, 47, 51, 53, 55, 57, 61, 63, 65, 67, 71, 73, 75, 77
101, 103, 105, 147, 225, 226, 230, 245, 252, 254, 255, 304, 330, 332, 334, 336, 340
342, 344, 346, 350, 352, 354, 356, 360, 362, 364, 366, 370
1274 U 157, 314, 470, 503
4 AK 503
62726 DP 110, 233, 503
62727 DU 107, 232, 503
471 L7 245, 252
127 LA 113, 175
136 LB 202
143 LC 211
660 NW 465, 503
6 NX 470, 503
75113 PB 503
242 RA 235, 400
257 RB 240, 246
264 RC 405
273 RD 411
300 RE 424, 430
310 RG
321 RH 315
324 RI 320
330 RJ 425
214 X1 21, 177
213 X4 20, 172, 176
21 XW 436, 443, 464, 467
60276 IMP 503
10 INT 503
30 NCD 503
464 NXW 147, 304, 322
64526 PBF 503
261 RBA 237, 241
434 RX1 220, 402
432 RX4 217, 375, 401
60260 SW1 56, 343, 503
60257 TCP 66, 353, 503
62737 TLD 62, 347, 503
73353 TND 60, 345, 503
60261 ALOG 503
17 BASE 503
60266 CDSW 54, 341, 503
60265 DATE 503
62730 DAWN 52, 337, 503
1 WRITE OR READ RESTORE FILE FOR DISK DUMPER....M.J.BAILEY,2/15/65 PAGE 2
POST PROCESSOR ASSEMBLY DATA
14 DINC 503
2 DISK 503
77440 DTLD 503
61157 DUSK 72, 357, 503
64544 ERAY 503
176 EREX 206
173 ERRA 135
200 ERRB 142
207 ERRC 152, 162, 166
376 ERRD 253
403 ERRE 272
407 ERRF 277
416 ERRG 305, 323
426 ERRH 307, 317, 327, 421
401 ERXR 406, 415
62733 FEOF 503
62040 ITB1 503
61160 ITB2 503
465 LBUF 141, 276
472 MESA 423
62740 MFDC 76, 363, 503
62723 NFN1 503
62721 NFN2 503
467 NXWT 156, 313
3 OPEN 127, 264
436 SFNO 33, 35, 44, 111, 331
3 TAPE 503
466 TEMP 151, 161, 306, 316, 321
60264 TIME 503
62736 UFDC 503
7 CLOSE 167, 203, 372, 412
62731 DMPSW 503
61156 ENDSW 70, 355, 503
62734 EOFCT 503
430 ERRH1
73354 FLUSH 503
6 FWAIT 163, 324, 416
15 GDSIG 174, 201, 210, 377, 404, 410, 427
13 IOBDT 25, 224
63630 IOBUF 141, 276, 503
62725 MFD1W 503
440 NAME1 40, 236, 244, 261
441 NAME2 42, 251, 257
10 NHOUR 503
77456 NMFDU 46, 333, 503
77441 NXMPT 503
60255 ODAWN 24, 74, 223, 361, 503
2 PAUSE 503
76426 PROBN 503
76362 PROGN 503
76147 RCODE 503
3300 TBSIZ 503
60262 TFOSW 50, 335, 503
62720 TNDSW 503
70053 TPBUF 503
1 WRITE OR READ RESTORE FILE FOR DISK DUMPER....M.J.BAILEY,2/15/65 PAGE 3
POST PROCESSOR ASSEMBLY DATA
12 WRFLX 30, 227, 422
60267 ARGLST 503
0 ATTACH 106, 231
75040 AUTOND 503
4 BUFFER 136, 273
1 CHFILE 114
2 DELFIL 123
75032 DEMKEY 503
62726 DMPRGR 503
62727 DMPUSR 503
217 DRSTOR 0
20 DTSAVE 0
7 ENDTAP 503
5 ENFLSH 503
77457 ENTPSW 102, 367, 503
62732 EOFCTA 503
203 ERCLEX 212
412 ERCLXR 431
14 ERCODA 503
16 ERCODB 503
7 ERYSIZ 503
77455 EXEMPT 503
77460 FLSHSW 503
10 FSTATE 242, 247
62750 IOBUF2 503
77461 KEYVAL 503
1 LSDRUM 503
470 LTLDFL 157, 314
6 LVFLSH 503
64510 MFDENT 503
62735 MFDEOF 100, 365, 503
75052 NUSERS 503
14 PRNTER 173, 200, 207, 376, 403, 407, 426
74650 PROBNO 157, 314, 503
76144 PROGNO 503
11 RDFILE 300, 310
660 RECSIZ 503
60254 REELNO 503
60243 SKELSW 104, 371, 503
75104 SYSDAT 503
75105 SYSTIM 503
60244 TAPEID 503
60263 TCYCLE 503
60256 TNDSAV 64, 351, 503
64553 TPBUF2 503
62741 UFDENT 503
62747 UFDEOF 503
5 WRFILE 143, 153
0 NO ERROR IN ABOVE ASSEMBLY.
DGDTMA BCD 05/28/67 1810.9 3968 00000
1 GENERAL DATE/TIME MANIPULATION ROUTINES PAGE 1
*
00007 ENTRY GDT
00005 ENTRY GDTSYS
00056 ENTRY BCDDTM (ENTRY-PT. FOR BCD TIME IN AC DATE IN MQ)
00134 ENTRY ADDTIM ADD TO I/O SYSTEM DATE/TIME
00132 ENTRY ADDDAY ADD 1 DAY TO I/O SYSTEM DATE/TIME IN LAC
00247 ENTRY SUBDAY SUBTRACT N DAYS FROM DITTO IN LOGICAL AC
00130 ENTRY CNVDT CONVERT TO I/O SYSTEM DATE/TIME
00274 ENTRY IOBDT CONVERT FROM I/O SYSTEM TO BCD
*
EXTERN GETIME
*
* RETURN CURRENT DATE AND TIME IN I/O SYSTEM FORM IN AC
* (VIA GETIME)
* FORMAT -
* BITS S,1-8 (YEAR-400)MODULO(500)
* BITS 9-12 MONTH
* BITS 13-17 DAY
* BITS 18-35 NO. OF SECS. ELAPSED SINCE MIDNIGHT
*
TRANSFER VECTOR
00000 272563314425 GETIME
00001 622563416443 SETJUL
00002 622563314663 SETIOT
LINKAGE DIRECTOR
00003 000000000000
00004 272463606060
00005 0634 00 4 00033 GDTSYS SXA GDTA,4
00006 0020 00 0 00011 TRA *+3
00007 0634 00 4 00033 GDT SXA GDTA,4
00010 0074 00 4 00000 TSX GETIME,4
00011 0602 00 0 00037 SLW GDTM SAVE TIME FROM AC
00012 0634 00 1 00034 SXA GDTB,1
00013 0074 00 4 00040 TSX TWODIG,4 GET MONTH (4 BITS) FROM BCD 'MMDDYY' IN MQ
00014 0767 00 0 00005 ALS 5
00015 0602 00 0 00036 SLW GDTD
00016 0074 00 4 00040 TSX TWODIG,4 GET DAY (5 BITS) FROM BCD 'DDYY' IN MQ
00017 -0320 00 0 00354 ANA =O37
00020 -0602 00 0 00036 ORS GDTD MONTH (4 BITS),DAY (5 BITS) IN GDTD
00021 0074 00 4 00040 TSX TWODIG,4 GET YEAR (9 BITS) FROM BCD 'YY' IN MQ
00022 -0320 00 0 00361 ANA =O777
00023 0767 00 0 00011 ALS 9
00024 -0602 00 0 00036 ORS GDTD YEAR (9 BITS),MONTH(4),DAY(5) IN GDTD
T 00025 -0754 00 0 00000 PXD
00026 0560 00 0 00037 LDQ GDTM TIME IS IN 1/60THS OF A SEC.
1 GENERAL DATE/TIME MANIPULATION ROUTINES PAGE 2
00027 0220 00 0 00356 DVH =60 GET IT IN SECONDS
00030 -0763 00 0 00022 LGL 18 TIME IN SECS. IN MQ LEFT-HALF
00031 -0500 00 0 00036 CAL GDTD
00032 -0763 00 0 00022 LGL 18 YEAR,MONTH,DAY,TIME IN LOGICAL AC
00033 0774 00 4 00000 GDTA AXT **,4
00034 0774 00 1 00000 GDTB AXT **,1
00035 0020 00 4 00001 TRA 1,4 RETURN
*
00036 0 00000 0 00000 GDTD PZE **
00037 0 00000 0 00000 GDTM PZE **
*
T 00040 -0754 00 0 00000 TWODIG PXD CONVERT 1ST 2 DIGITS OF BCD MQ
TO BINARY IN AC ADDRESS
00041 0600 00 0 00055 STZ TENS
00042 -0763 00 0 00006 LGL 6 1ST DIGIT
00043 0100 00 0 00052 TZE *+7
00044 0734 00 1 00000 PAX 0,1
T 00045 -0754 00 0 00000 PXD
00046 0400 00 0 00350 ADD =10
00047 2 00001 1 00046 TIX *-1,1,1
00050 0602 00 0 00055 SLW TENS TENS DIGIT X 10
T 00051 -0754 00 0 00000 PXD
00052 -0763 00 0 00006 LGL 6 UNITS DIGIT
00053 0400 00 0 00055 ADD TENS ADD 10 X TENS DIGIT TO UNITS DIGIT
00054 0020 00 4 00001 TRA 1,4 RETURN TO CALLER
00055 0 00000 0 00000 TENS PZE **
*
* ENTRY TO RETURN TIME IN AC IN BCD AS HHMM.M
* AND DATE IN MQ AS MMDDYY VIA GETIME.
*
00056 0634 00 4 00107 BCDDTM SXA TPWATX,4
00057 0074 00 4 00000 TSX GETIME,4 TIME IN 1/60TH'S OF SEC. IN AC
00060 0131 00 0 00000 XCA TIME TO MQ, DATE TO AC
00061 0601 00 0 00125 STO DATE. SAVE DATE
00062 -0754 00 0 00000 BCA ZAC
00063 0221 00 0 00362 DVP =216000 FIND HOUR
00064 0601 00 0 00127 STO MIN. SAVE REMAINDER (MINUTES)
00065 0074 00 4 00111 TSX BINBCD,4 CONVERT HOURS TO BCD
00066 -0765 00 0 00006 LGR 6
00067 -0100 00 0 00071 TNZ *+2
00070 -0500 00 0 00355 CAL =O60 REPLACE LEADING ZERO WITH BLANK
00071 -0763 00 0 00006 LGL 6
00072 0767 00 0 00030 ALS 24 LEAVE ROOM FOR MINUTE
00073 0602 00 0 00126 SLW HOUR. SAVE HOUR
00074 0560 00 0 00127 LDQ MIN. MINUTE
00075 -0754 00 0 00000 ZAC
00076 0221 00 0 00360 DVP =360 FIND NO. OF TENTHS OF MINUTES
00077 0074 00 4 00111 TSX BINBCD,4 CONVERT TO BCD
00100 -0765 00 0 00006 LGR 6 TENTHS TO MQ
00101 0767 00 0 00014 ALS 12
00102 -0602 00 0 00126 ORS HOUR. ADD MINUTE TO HOUR
00103 -0500 00 0 00353 CAL =H00000. PRECEDE TENTHS WITH .
00104 -0763 00 0 00006 LGL 6 BRING BACK TENTHS
00105 -0501 00 0 00126 ORA HOUR. HHMM.M IN LOGICAL AC
00106 0560 00 0 00125 LDQ DATE. DATE TO MQ
00107 0774 00 4 00000 TPWATX AXT **,4
1 GENERAL DATE/TIME MANIPULATION ROUTINES PAGE 3
00110 0020 00 4 00001 TRA 1,4
00111 0634 00 4 00122 BINBCD SXA BNBCDX,4 BINARY TO BCD CONVERTER
00112 0600 00 0 00124 STZ TPLIN.
00113 0774 00 4 00044 AXT 36,4
00114 -0754 00 0 00000 BNBCD1 ZAC CONVERT INTEGER TO BCD
00115 0221 00 0 00350 DVP =10 ..
00116 0767 00 4 00044 ALS 36,4 ..
00117 -0602 00 0 00124 ORS TPLIN. ..
00120 2 00006 4 00114 TIX BNBCD1,4,6 ..
00121 -0500 00 0 00124 CAL TPLIN.
00122 0774 00 4 00000 BNBCDX AXT **,4
00123 0020 00 4 00001 TRA 1,4
00124 0 00000 0 00000 TPLIN. PZE TEMPORARY
00125 606060606060 DATE. BCI 1,
00126 606060606060 HOUR. BCI 1,
00127 0 00000 0 00000 MIN. PZE
*
* ENTRY TO CONVERT TIME IN 1/60THS SEC. IN LAC, AND DATE (MMDDYY)
* IN BCD IN MQ, TO DATE/TIME IN I/OSYSTEM FORM IN LAC.
*
00130 0634 00 4 00033 CNVDT SXA GDTA,4
00131 0020 00 0 00011 TRA GDT+2
*
* TO ADD 1 DAY TO THE I/O SYSTEM DATE/TIME IN THE LOGICAL AC
*
00132 0602 00 0 00036 ADDDAY SLW GDTD
00133 1 00001 4 00152 TXI ADDATE+2,4,1 (RETURN TO 1,4)
*
* TO ADD A NUMBER OF SECONDS CONTAINED IN (1,4) TO THE I/O SYSTEM
* TYPE DATE/TIME IN THE LOGICAL AC, AND RETURN THE RESULTING I/O
* SYSTEM DATE/TIME TO THE LOGICAL AC.
* THE ADDEND MUST BE LESS THAN 24 HOURS.
* (AN INCORRECT RESULT WILL BE OBTAINED AT TURN OF CENTURY)
*
00134 0630 00 0 00036 ADDTIM STP GDTD
00135 0622 00 0 00036 STD GDTD SAVE DATE
00136 -0320 00 0 00363 ANA =O777777
00137 0760 00 0 00003 SSP
00140 0400 60 4 00001 ADD* 1,4
00141 0621 00 0 00036 STA GDTD
00142 0625 00 0 00036 STT GDTD SAVE NEW TIME
00143 0402 00 0 00230 SUB DAYSEC
00144 0120 00 0 00150 TPL ADDATE SKIP IF NOW PAST MIDNIGHT
00145 0100 00 0 00150 TZE ADDATE SKIP IF NOW MIDNIGHT
00146 -0500 00 0 00036 CAL GDTD SAME DATE
00147 0020 00 4 00002 TRA 2,4 RETURN
*
00150 0621 00 0 00036 ADDATE STA GDTD
00151 0625 00 0 00036 STT GDTD NEW TIME = EXCESS OVER MIDNIGHT
00152 0560 00 0 00036 LDQ GDTD PREPARE TO INCREMENT DATE
T 00153 -0754 00 0 00000 PXD
00154 -0763 00 0 00011 LGL 9
00155 0601 00 0 00231 STO YEAR SAVE YEAR
T 00156 -0754 00 0 00000 PXD
00157 -0763 00 0 00004 LGL 4
1 GENERAL DATE/TIME MANIPULATION ROUTINES PAGE 4
00160 0601 00 0 00232 STO MONTH SAVE MONTH
00161 0634 00 1 00226 SXA ADE,1
00162 0734 00 1 00000 PAX 0,1 MONTH IN IR1
00163 -3 00001 1 00174 TXL ADA,1,1 SKIP IF NOT FEB.
00164 3 00002 1 00174 TXH ADA,1,2 SKIP IF NOT FEB.
*
00165 -0500 00 0 00231 CAL YEAR ITS FEB., IS IT LEAP YEAR
00166 -0765 00 0 00002 LGR 2
T 00167 -0754 00 0 00000 PXD
00170 -0763 00 0 00002 LGL 2
00171 -0100 00 0 00174 TNZ ADA NOT LEAP YEAR, SKIP
00172 0774 00 1 00035 AXT 29,1 FEB. AND LEAP YEAR, LAST DAY IS 29
00173 0020 00 0 00176 TRA ADB SKIP
00174 -0500 00 1 00247 ADA CAL MT+1,1 NOT FEB.,LEAP YEAR,GET LAST DAY OF MONTH
00175 0734 00 1 00000 PAX 0,1
00176 -0634 00 1 00203 ADB SXD ADC,1 NO. OF LAST DAY OF MONTH TO DECREMENT
T 00177 -0754 00 0 00000 PXD
00200 -0763 00 0 00005 LGL 5 DAY
00201 0734 00 1 00000 PAX 0,1 IN IR1
00202 1 00001 1 00203 TXI *+1,1,1 DAY+1
00203 -3 00000 1 00216 ADC TXL ADD,1,** SKIP IF NO MONTH CHANGE NEEDED
*
00204 0774 00 1 00001 AXT 1,1 CHANGE OF MONTH,NEW DAY IS 1ST
00205 0500 00 0 00232 CLA MONTH
00206 0400 00 0 00347 ADD =1
00207 0601 00 0 00232 STO MONTH MONTH=MONTH+1
00210 0402 00 0 00351 SUB =13
00211 -0120 00 0 00216 TMI ADD SKIP IF NO YEAR CHANGE NEEDED
*
00212 0500 00 0 00347 CLA =1 CHANGE OF YEAR,NEW MONTH IS 1ST
00213 0601 00 0 00232 STO MONTH
00214 0400 00 0 00231 ADD YEAR ADD 1 TO YEAR
00215 0601 00 0 00231 STO YEAR
*
00216 -0754 00 1 00000 ADD PXD 0,1 DAY
00217 0622 00 0 00036 STD GDTD
00220 0630 00 0 00036 STP GDTD PACK AND SAVE DAY WITH TIME
00221 -0500 00 0 00231 CAL YEAR
00222 0767 00 0 00004 ALS 4 9-BIT YEAR,
00223 -0501 00 0 00232 ORA MONTH AND 4-BIT MONTH TO LOGICAL AC
00224 0767 00 0 00027 ALS 23
00225 -0501 00 0 00036 ORA GDTD YEAR,MONTH,DAY,TIME IN LOGICAL AC
00226 0774 00 1 00000 ADE AXT **,1
00227 0020 00 4 00002 TRA 2,4 RETURN
*
00230 +000000250600 DAYSEC OCT 250600 NO. OF SECS. IN A DAY
00231 0 00000 0 00000 YEAR PZE **
00232 0 00000 0 00000 MONTH PZE **
00233 0 00000 0 00037 PZE 31 DECEMBER
00234 0 00000 0 00036 PZE 30 NOVEMBER
00235 0 00000 0 00037 PZE 31 OCTOBER
00236 0 00000 0 00036 PZE 30 SEPTEMBER
00237 0 00000 0 00037 PZE 31 AUGUST
00240 0 00000 0 00037 PZE 31 JULY
00241 0 00000 0 00036 PZE 30 JUNE
00242 0 00000 0 00037 PZE 31 MAY
1 GENERAL DATE/TIME MANIPULATION ROUTINES PAGE 5
00243 0 00000 0 00036 PZE 30 APRIL
00244 0 00000 0 00037 PZE 31 MARCH
00245 0 00000 0 00034 PZE 28 FEBRUARY
00246 0 00000 0 00037 MT PZE 31 JANUARY
*
* SUBTRACT THE NO. OF DAYS CONTAINED IN (1,4) FROM
* THE I/O SYSTEM DATE/TIME IN THE LOGICAL AC.
*
00247 0634 00 1 00270 SUBDAY SXA SBDY1,1
00250 0634 00 4 00271 SXA SBDY4,4
00251 0602 00 0 00036 SLW GDTD
00252 0500 60 4 00001 CLA* 1,4
00253 0734 00 1 00000 PAX 0,1 NO. OF DAYS IN IR1
00254 0074 00 4 00001 TSX $SETJUL,4 CONVERT AC TO JULIAN-TYPE DATE/TIME
TD 00255 3 00000 0 00036 TXH GDTD
TD 00256 3 00000 0 00273 TXH JULIAN
00257 0500 00 0 00273 CLA JULIAN
00260 -3 00000 1 00263 TXL *+3,1,0
00261 0402 00 0 00230 SUB DAYSEC SUBTRACT DAYS
00262 2 00001 1 00261 TIX *-1,1,1
00263 0601 00 0 00273 STO JULIAN
00264 0074 00 4 00002 TSX $SETIOT,4 CONVERT RESULT TO I/O SYSTEM FORM
TD 00265 3 00000 0 00036 TXH GDTD
TD 00266 3 00000 0 00273 TXH JULIAN
00267 -0500 00 0 00036 CAL GDTD
00270 0774 00 1 00000 SBDY1 AXT **,1
00271 0774 00 4 00000 SBDY4 AXT **,4
00272 0020 00 4 00002 TRA 2,4 RETURN TO CALLER
00273 0 00000 0 00000 JULIAN PZE
*
* CONVERT I/O SYSTEM DATE/TIME FROM LAC TO BCD TIME AND DATE --
* HHMM.M (TIME) IN AC, MMDDYY (DATE) IN MQ
*
00274 -0130 00 0 00000 IOBDT XCL
T 00275 -0754 00 0 00000 PXD
00276 -0763 00 0 00011 LGL 9 YEAR IN AC
00277 -0600 00 0 00036 STQ GDTD
00300 -0130 00 0 00000 XCL YEAR IN MQ
T 00301 -0754 00 0 00000 PXD
00302 0221 00 0 00350 DVP =10 TENS DIGIT OF YEAR IN MQ, UNITS IN AC
00303 -0320 00 0 00352 ANA =O17
00304 0602 00 0 00125 SLW DATE. '00000Y' OF DATE
00305 -0130 00 0 00000 XCL
00306 -0320 00 0 00352 ANA =O17
00307 0767 00 0 00006 ALS 6
00310 -0602 00 0 00125 ORS DATE. '0000YY' OF DATE
00311 0560 00 0 00036 LDQ GDTD
T 00312 -0754 00 0 00000 PXD
00313 -0763 00 0 00004 LGL 4 MONTH IN AC
00314 0601 00 0 00037 STO GDTM
00315 0402 00 0 00350 SUB =10
00316 -0120 00 0 00322 TMI IBA
00317 0601 00 0 00037 STO GDTM SAVE UNITS DIGIT OF MONTH
00320 0500 00 0 00357 CLA =O100
00321 0020 00 0 00323 TRA *+2
T 00322 -0754 00 0 00000 IBA PXD
1 GENERAL DATE/TIME MANIPULATION ROUTINES PAGE 6
00323 0400 00 0 00037 ADD GDTM
00324 0767 00 0 00030 ALS 24 'MM0000'
00325 -0602 00 0 00125 ORS DATE. 'MM00YY' OF DATE
T 00326 -0754 00 0 00000 PXD
00327 -0763 00 0 00005 LGL 5 DAY IN AC
00330 -0600 00 0 00036 STQ GDTD SAVE THE TIME
00331 -0130 00 0 00000 XCL DAY IN MQ
T 00332 -0754 00 0 00000 PXD
00333 0221 00 0 00350 DVP =10 TENS DIGIT OF DAY IN MQ, UNITS IN AC
00334 -0773 00 0 00006 RQL 6
00335 -0600 00 0 00037 STQ GDTM STORE '0000D0'
00336 0400 00 0 00037 ADD GDTM '0000DD' IN AC
00337 0767 00 0 00014 ALS 12 '00DD00' IN AC
00340 -0602 00 0 00125 ORS DATE. 'MMDDYY' OF DATE
00341 -0500 00 0 00036 CAL GDTD TIME
00342 0771 00 0 00022 ARS 18
00343 -0130 00 0 00000 XCL TIME IN SECS. IN MQ
00344 0200 00 0 00356 MPY =60 GET TIME IN 1/60TH'S SEC. IN MQ
00345 0634 00 4 00107 SXA TPWATX,4
00346 0020 00 0 00062 TRA BCA GO FINISH TIME CONVERSION TO BCD 'HHMM.M'
*
END
LITERALS
00347 000000000001
00350 000000000012
00351 000000000015
00352 000000000017
00353 000000000033
00354 000000000037
00355 000000000060
00356 000000000074
00357 000000000100
00360 000000000550
00361 000000000777
00362 000000645700
00363 000000777777
1 GENERAL DATE/TIME MANIPULATION ROUTINES PAGE 1
POST PROCESSOR ASSEMBLY DATA
364 IS THE FIRST LOCATION NOT USED BY THIS PROGRAM
0REFERENCES TO DEFINED SYMBOLS
246 MT 174
174 ADA 163, 164, 171
176 ADB 173
203 ADC 176
216 ADD 203, 211
226 ADE 161
62 BCA 346
7 GDT 0, 131
322 IBA 316
33 GDTA 5, 7, 130
34 GDTB 12
36 GDTD 15, 20, 24, 31, 132, 134, 135, 141, 142, 146, 150, 151, 152, 217, 220, 225, 251
255, 265, 267, 277, 311, 330, 341
37 GDTM 11, 26, 314, 317, 323, 335, 336
127 MIN. 64, 74
55 TENS 41, 50, 53
231 YEAR 155, 165, 214, 215, 221
130 CNVDT 0
125 DATE. 61, 106, 304, 310, 325, 340
126 HOUR. 73, 102, 105
274 IOBDT 0
232 MONTH 160, 205, 207, 213, 223
270 SBDY1 247
271 SBDY4 250
150 ADDATE 133, 144, 145
132 ADDDAY 0
134 ADDTIM 0
56 BCDDTM 0
111 BINBCD 65, 77
114 BNBCD1 120
122 BNBCDX 111
230 DAYSEC 143, 261
5 GDTSYS 0
0 GETIME 10, 57
273 JULIAN 256, 257, 263, 266
2 SETIOT 264
1 SETJUL 254
247 SUBDAY 0
124 TPLIN. 112, 117, 121
107 TPWATX 56, 345
40 TWODIG 13, 16, 21
0 NO ERROR IN ABOVE ASSEMBLY.
PRCODE BCD 05/28/67 1810.9 591 00000
1 PAGE 1
00003 ENTRY PRCODE
EXTERN WRFLX
TRANSFER VECTOR
00000 665126436760 WRFLX
LINKAGE DIRECTOR
00001 000000000000
00002 475123462425
00003 0634 00 1 00042 PRCODE SXA P1,1
00004 0634 00 4 00043 SXA P4,4
00005 -0500 00 4 00001 CAL 1,4
00006 0400 00 0 00063 ADD =O17
00007 0322 00 0 00064 ERA =O506060600000
00010 -0765 00 0 00014 LGR 12
00011 -0773 00 0 00006 RQL 6
00012 0774 00 1 00002 AXT 2,1
00013 0767 00 0 00003 ALS 3
00014 -0763 00 0 00003 LGL 3
00015 2 00001 1 00013 TIX *-2,1,1
00016 0602 00 0 00047 SLW MESX+2
00017 -0500 00 4 00002 CAL 2,4
00020 -0734 00 1 00000 PDX ,1
00021 -0634 00 1 00030 SXD INC,1
00022 -0634 00 1 00031 SXD INC+1,1
00023 0634 00 1 00034 SXA INC+4,1
00024 1 00003 1 00025 TXI *+1,1,3
00025 -0634 00 1 00041 SXD PRNT,1
00026 0734 00 1 00000 PAX ,1
00027 0774 00 4 00050 AXT MESX+3,4
00030 1 00000 1 00031 INC TXI *+1,1,**
00031 1 00000 4 00032 TXI *+1,4,**
00032 0634 00 1 00035 SXA FROM,1
00033 0634 00 4 00036 SXA TO,4
00034 0774 00 1 00000 AXT **,1
00035 -0500 00 1 00000 FROM CAL **,1
00036 0602 00 1 00000 TO SLW **,1
00037 2 00001 1 00035 TIX *-2,1,1
00040 0074 00 4 00000 TSX WRFLX,4
00041 0 00000 0 00045 PRNT MESX,,**
00042 0774 00 1 00000 P1 AXT **,1
00043 0774 00 4 00000 P4 AXT **,4
00044 0020 00 4 00003 TRA 3,4
*
00045 622563604225 MESX BCI 2,SET KEY CODE
00046 706023462425
00047 BSS 12
END
LITERALS
00063 000000000017
00064 506060600000
1 PAGE 1
POST PROCESSOR ASSEMBLY DATA
65 IS THE FIRST LOCATION NOT USED BY THIS PROGRAM
0REFERENCES TO DEFINED SYMBOLS
42 P1 3
43 P4 4
36 TO 33
30 INC 21, 22, 23
35 FROM 32
45 MESX 16, 27, 41
41 PRNT 25
0 WRFLX 40
3 PRCODE 0
0 NO ERROR IN ABOVE ASSEMBLY.
SETTIM BCD 05/28/67 1810.9 4233 00000
1 MAD PROGRAM LISTING ... ... ... FILE SETTIM MAD 05/28/67 1730.4
-
...SUBROUTINE TO SET UP JULIAN TIME FROM I/O SYSTEM TIME 000010
...AND VICE-VERSA 000020
... 000030
EXTERNAL FUNCTION ( IOSTIM, JULIAN ) *001 000040
000050
INSERT FILE DEFINE *002 000060
DEFINE BINARY OPERATOR .X., PRECEDENCE SAME AS = *003 00010
MODE STRUCTURE 0 .X. 0 TO 0 *004 00020
CLA A *005 00030
LDQ B *006 00040
STQ A *007 00050
STO B *008 00060
OUT Z *009 00070
END *010 00080
00090
MODE STRUCTURE 1 .X. 1 TO 1, SAME SEQUENCE AS 0 .X. 0 *011 00100
MODE STRUCTURE 2 .X. 2 TO 2, SAME SEQUENCE AS 0 .X. 0 *012 00110
MODE STRUCTURE 3 .X. 3 TO 3, SAME SEQUENCE AS 0 .X. 0 *013 00120
MODE STRUCTURE 4 .X. 4 TO 4, SAME SEQUENCE AS 0 .X. 0 *014 00130
00140
00150
DEFINE BINARY OPERATOR .R., PRECEDENCE SAME AS .RS. *015 00160
MODE STRUCTURE 1 .R. 1 TO 1 *016 00170
JMP *+1,LA,*+3 *017 00180
SLW T *018 00190
JMP *+10 *019 00200
JMP *+3,AT,*+1 *020 00210
JMP *+7,AC,*+1 *021 00220
JMP *+4,MQ,*+7 *022 00230
JMP *+1,AC,*+7 *023 00240
LRS 35 *024 00250
JMP *+6 *025 00260
STQ T *026 00270
JMP *+2 *027 00280
STO T *028 00290
LDQ A *029 00300
PXD *030 00310
DVP B *031 00320
OUT AC *032 00330
END *033 00340
00350
00360
00370
00380
*002 000070
ENTRY TO SETJUL. *034 000080
...THIS ENTRY SETS JULIAN FROM IOSTIM. 000090
... 000100
YR = ( IOSTIM .A. 777K9 ) .RS. 27 *035 000110
MTH = ( IOSTIM .A. 74K7 ) .RS. 23 *036 000120
DAY = ( IOSTIM .A. 37K6 ) .RS. 18 *037 000130
SEC = ( IOSTIM .A. 777777K ) *038 000140
... 000150
WHENEVER ( YR .R. 4 ) .E. 0 .AND. MTH .G. 2 *039 000160
JULIAN = 1 *040 000170
OTHERWISE *041 000180
JULIAN = 0 *042 000190
END OF CONDITIONAL *043 000200
... 000210
WHENEVER MTH .G. 12 .OR. DAY .G. 365+JULIAN .OR. SEC .G. 86400, *044 000220
1 FUNCTION RETURN 0 *044 000230
YR = YR-65 *045 000240
JULIAN = (YR*YRXX) + (JDAYTB(MTH)+DAY+JULIAN)*DAYXX + SEC *046 000250
FUNCTION RETURN JULIAN *047 000260
... 000270
ENTRY TO SETIOT. *048 000280
...THIS ENTRY SETS IOSTIM FROM JULIAN 000290
... 000300
YR = JULIAN/YRXX *049 000310
DAY = (JULIAN-YRXX*YR)/ DAYXX *050 000320
SEC = JULIAN .R. (YR*YRXX + DAY*DAYXX) *051 000330
YR = YR + 65 *052 000340
... 000350
WHENEVER DAY .G. 366 .OR. SEC .G. 86400, FUNCTION RETURN 0 *053 000360
SETS1 THROUGH SETS1, FOR MTH = 1, 1, JDAYTB(MTH+1) .GE. DAY *054 000370
WHENEVER MTH .L. 0 .OR. MTH .G. 12, FUNCTION RETURN 0 *055 000380
DAY = DAY - JDAYTB(MTH) *056 000400
IOSTIM = (YR .LS. 27) .V. (MTH .LS. 23) .V. (DAY .LS. 18) .V. *057 000410
1 SEC *057 000420
FUNCTION RETURN IOSTIM *058 000430
... 000440
... 000450
INTEGER YR,MTH,DAY,SEC,JULIAN,IOSTIM,YRXX,DAYXX,JDAYTB *059 000460
DIMENSION JDAYTB(13) *060 000500
VECTOR VALUES YRXX = 31536000 *061 000510
VECTOR VALUES DAYXX = 86400 *062 000520
VECTOR VALUES JDAYTB =0,0,31,59,90,120,151,181,212,243,273,304,334,365 *063 000530
END OF FUNCTION *064 000540
MODE STRUCTURE 0 .X. 0 TO 0 004 00020
(THE NUMERIC FORM OF THE OPERATOR-MODE ARGUMENT IS 11100 )
MODE STRUCTURE 1 .X. 1 TO 1, SAME SEQUENCE AS 0 .X. 0 011 00100
(THE NUMERIC FORM OF THE OPERATOR-MODE ARGUMENT IS 11111 )
MODE STRUCTURE 2 .X. 2 TO 2, SAME SEQUENCE AS 0 .X. 0 012 00110
(THE NUMERIC FORM OF THE OPERATOR-MODE ARGUMENT IS 11122 )
MODE STRUCTURE 3 .X. 3 TO 3, SAME SEQUENCE AS 0 .X. 0 013 00120
(THE NUMERIC FORM OF THE OPERATOR-MODE ARGUMENT IS 11133 )
MODE STRUCTURE 4 .X. 4 TO 4, SAME SEQUENCE AS 0 .X. 0 014 00130
(THE NUMERIC FORM OF THE OPERATOR-MODE ARGUMENT IS 11144 )
MODE STRUCTURE 1 .R. 1 TO 1 016 00170
(THE NUMERIC FORM OF THE OPERATOR-MODE ARGUMENT IS 11211 )
1MAD PROGRAM,TYPE NOV 1963 (ALL NUMBERS ARE OCTAL)
0TOTAL LOCATIONS 00354 TRANSFER VECTOR LENGTH 00001 PROGRAM BEGINS 00047
0 PROGRAM IS AN EXTERNAL FUNCTION. THE FOLLOWING ARE ENTRIES
SETIOT 00166 0 SETJUL 00050 0
0VARIABLE STORAGE (A=ARRAY,C=COMMON,E=ERASABLE,DIGIT=MODE)
DAY 00002 1 JDAYTB 00021 A 1 SEC 00023 1 YR 00024 1 YRXX 00025 A 1
DAYXX 00003 A 1 MTH 00022 1 SETS1 00001 4
0FUNCTION DICTIONARY
EXIT 00000 0
0ABSOLUTE CONSTANTS
00040 +000000000556 00036 +000000000101 00032 +000000000014 00037 +000000000555 00041 +000000250600
00026 +000000000000 00031 +000000000004 00030 +000000000002 00042 +000000777777 00033 +000000000022
00043 +000037000000 00034 +000000000027 00044 +000740000000 00035 +000000000033 00046 -377000000000
00027 +000000000001 00045 +233000000000
0PROGRAM
EXTERNAL FUNCTION ( IOSTIM, JULIAN ) 001 000040
INSERT FILE DEFINE 002 000060
DEFINE BINARY OPERATOR .X., PRECEDENCE SAME AS = 003 00010
MODE STRUCTURE 0 .X. 0 TO 0 004 00020
MODE STRUCTURE 1 .X. 1 TO 1, SAME SEQUENCE AS 0 .X. 0 011 00100
MODE STRUCTURE 2 .X. 2 TO 2, SAME SEQUENCE AS 0 .X. 0 012 00110
MODE STRUCTURE 3 .X. 3 TO 3, SAME SEQUENCE AS 0 .X. 0 013 00120
MODE STRUCTURE 4 .X. 4 TO 4, SAME SEQUENCE AS 0 .X. 0 014 00130
DEFINE BINARY OPERATOR .R., PRECEDENCE SAME AS .RS. 015 00160
MODE STRUCTURE 1 .R. 1 TO 1 016 00170
ENTRY TO SETJUL. 034 000080
00047 TRA +0 02000 0 00052 00050 SXA +0 63400 2 00317 00051 TSX +0 07400 2 00317
YR = ( IOSTIM .A. 777K9 ) .RS. 27 035 000110
00052 CAL -0 50000 0 00024 00053 ANA -0 32000 0 00046 00054 SLW +0 60200 0 00350 00055 CAL -0 50000 0 00035
00056 STA +0 62100 0 00060 00057 CAL -0 50000 0 00350 00060 LGR -0 76500 0 00000 00061 SLW +0 60200 0 00024
MTH = ( IOSTIM .A. 74K7 ) .RS. 23 036 000120
00062 CAL -0 50000 0 00024 00063 ANA -0 32000 0 00044 00064 SLW +0 60200 0 00350 00065 CAL -0 50000 0 00034
00066 STA +0 62100 0 00070 00067 CAL -0 50000 0 00350 00070 LGR -0 76500 0 00000 00071 SLW +0 60200 0 00022
DAY = ( IOSTIM .A. 37K6 ) .RS. 18 037 000130
00072 CAL -0 50000 0 00024 00073 ANA -0 32000 0 00043 00074 SLW +0 60200 0 00350 00075 CAL -0 50000 0 00033
00076 STA +0 62100 0 00100 00077 CAL -0 50000 0 00350 00100 LGR -0 76500 0 00000 00101 SLW +0 60200 0 00002
SEC = ( IOSTIM .A. 777777K ) 038 000140
00102 CAL -0 50000 0 00024 00103 ANA -0 32000 0 00042 00104 SLW +0 60200 0 00023
W'R ( YR .R. 4 ) .E. 0 .AND. MTH .G. 2 039 000160
00105 CLA +0 50000 0 00022 00106 SUB +0 40200 0 00030 00107 TZE +0 10000 0 00121 00110 TMI -0 12000 0 00121
00111 LDQ +0 56000 0 00024 00112 PXD -0 75400 0 00000 00113 DVP +0 22100 0 00031 00114 SUB +0 40200 0 00026
00115 TNZ -0 10000 0 00121
JULIAN = 1 040 000170
00116 CLA +0 50000 0 00027 00117 STO +0 60100 0 00024
O'E 041 000180
00120 TRA +0 02000 0 00123
JULIAN = 0 042 000190
00121 CLA +0 50000 0 00026 00122 STO +0 60100 0 00024
E'L 043 000200
W'R MTH .G. 12 .OR. DAY .G. 365+JULIAN .OR. SEC .G. 86400, 044 000220
1 FUNCTION RETURN 0 044 000230
00123 CLA +0 50000 0 00023 00124 SUB +0 40200 0 00041 00125 TZE +0 10000 0 00127 00126 TPL +0 12000 0 00141
00127 CLA +0 50000 0 00037 00130 ADD +0 40000 0 00024 00131 CHS +0 76000 0 00002 00132 ADD +0 40000 0 00002
00133 TZE +0 10000 0 00135 00134 TPL +0 12000 0 00141 00135 CLA +0 50000 0 00022 00136 SUB +0 40200 0 00032
00137 TZE +0 10000 0 00143 00140 TMI -0 12000 0 00143 00141 CLA +0 50000 0 00026 00142 TRA +0 02000 0 00344
YR = YR-65 045 000240
00143 CLA +0 50000 0 00024 00144 SUB +0 40200 0 00036 00145 STO +0 60100 0 00024
JULIAN = (YR*YRXX) + (JDAYTB(MTH)+DAY+JULIAN)*DAYXX + SEC 046 000250
00146 LXA +0 53400 1 00022 00147 CLA +0 50000 1 00021 00150 ADD +0 40000 0 00002 00151 ADD +0 40000 0 00024
00152 XCA +0 13100 0 00000 00153 MPY +0 20000 0 00003 00154 STQ -0 60000 0 00350 00155 LDQ +0 56000 0 00024
00156 MPY +0 20000 0 00025 00157 XCA +0 13100 0 00000 00160 ADD +0 40000 0 00350 00161 ADD +0 40000 0 00023
00162 STO +0 60100 0 00024
F'N JULIAN 047 000260
00163 CLA +0 50000 0 00024 00164 TRA +0 02000 0 00344
ENTRY TO SETIOT. 048 000280
00165 TRA +0 02000 0 00170 00166 SXA +0 63400 2 00317 00167 TSX +0 07400 2 00317
YR = JULIAN/YRXX 049 000310
00170 LDQ +0 56000 0 00024 00171 PXD -0 75400 0 00000 00172 LLS +0 76300 0 00000 00173 DVP +0 22100 0 00025
00174 STQ -0 60000 0 00024
DAY = (JULIAN-YRXX*YR)/ DAYXX 050 000320
00175 LDQ +0 56000 0 00025 00176 MPY +0 20000 0 00024 00177 XCA +0 13100 0 00000 00200 CHS +0 76000 0 00002
00201 ADD +0 40000 0 00024 00202 LRS +0 76500 0 00043 00203 DVP +0 22100 0 00003 00204 STQ -0 60000 0 00002
SEC = JULIAN .R. (YR*YRXX + DAY*DAYXX) 051 000330
00205 LDQ +0 56000 0 00002 00206 MPY +0 20000 0 00003 00207 STQ -0 60000 0 00350 00210 LDQ +0 56000 0 00024
00211 MPY +0 20000 0 00025 00212 XCA +0 13100 0 00000 00213 ADD +0 40000 0 00350 00214 STO +0 60100 0 00350
00215 LDQ +0 56000 0 00024 00216 PXD -0 75400 0 00000 00217 DVP +0 22100 0 00350 00220 STO +0 60100 0 00023
YR = YR + 65 052 000340
00221 CLA +0 50000 0 00024 00222 ADD +0 40000 0 00036 00223 STO +0 60100 0 00024
W'R DAY .G. 366 .OR. SEC .G. 86400, FUNCTION RETURN 0 053 000360
00224 CLA +0 50000 0 00023 00225 SUB +0 40200 0 00041 00226 TZE +0 10000 0 00230 00227 TPL +0 12000 0 00234
00230 CLA +0 50000 0 00002 00231 SUB +0 40200 0 00040 00232 TZE +0 10000 0 00236 00233 TMI -0 12000 0 00236
00234 CLA +0 50000 0 00026 00235 TRA +0 02000 0 00344
SETS1 T'H SETS1, FOR MTH = 1, 1, JDAYTB(MTH+1) .GE. DAY 054 000370
00236 CLA +0 50000 0 00027 00237 STO +0 60100 0 00022 00240 TRA +0 02000 0 00244 00241 CLA +0 50000 0 00022
00242 ADD +0 40000 0 00027 00243 STO +0 60100 0 00022 00244 CLA +0 50000 0 00022 00245 ADD +0 40000 0 00027
00246 PAX +0 73400 1 00000 00247 CLA +0 50000 1 00021 00250 SUB +0 40200 0 00002 00251 TZE +0 10000 0 00254
00252 TPL +0 12000 0 00254 00253 TRA +0 02000 0 00241
W'R MTH .L. 0 .OR. MTH .G. 12, FUNCTION RETURN 0 055 000380
00254 CLA +0 50000 0 00022 00255 SUB +0 40200 0 00032 00256 TZE +0 10000 0 00260 00257 TPL +0 12000 0 00264
00260 CLA +0 50000 0 00022 00261 SUB +0 40200 0 00026 00262 TZE +0 10000 0 00266 00263 TPL +0 12000 0 00266
00264 CLA +0 50000 0 00026 00265 TRA +0 02000 0 00344
DAY = DAY - JDAYTB(MTH) 056 000400
00266 LXA +0 53400 2 00022 00267 CLA +0 50000 0 00002 00270 SUB +0 40200 2 00021 00271 STO +0 60100 0 00002
IOSTIM = (YR .LS. 27) .V. (MTH .LS. 23) .V. (DAY .LS. 18) .V. 057 000410
1 SEC 057 000420
00272 CAL -0 50000 0 00033 00273 STA +0 62100 0 00275 00274 CAL -0 50000 0 00002 00275 ALS +0 76700 0 00000
00276 SLW +0 60200 0 00350 00277 CAL -0 50000 0 00034 00300 STA +0 62100 0 00302 00301 CAL -0 50000 0 00022
00302 ALS +0 76700 0 00000 00303 SLW +0 60200 0 00351 00304 CAL -0 50000 0 00035 00305 STA +0 62100 0 00307
00306 CAL -0 50000 0 00024 00307 ALS +0 76700 0 00000 00310 ORA -0 50100 0 00351 00311 ORA -0 50100 0 00350
00312 ORA -0 50100 0 00023 00313 SLW +0 60200 0 00024
F'N IOSTIM 058 000430
00314 CLA +0 50000 0 00024 00315 TRA +0 02000 0 00344
INTEGER YR,MTH,DAY,SEC,JULIAN,IOSTIM,YRXX,DAYXX,JDAYTB 059 000460
DIMENSION JDAYTB(13) 060 000500
VECTOR VALUES YRXX = 31536000 061 000510
00025 +0 00170 2 31600
VECTOR VALUES DAYXX = 86400 062 000520
00003 +0 00000 2 50600
V'S JDAYTB =0,0,31,59,90,120,151,181,212,243,273,304,334,365 063 000530
00004 +0 00000 0 00555 00005 +0 00000 0 00516 00006 +0 00000 0 00460 00007 +0 00000 0 00421
00010 +0 00000 0 00363 00011 +0 00000 0 00324 00012 +0 00000 0 00265 00013 +0 00000 0 00227
00014 +0 00000 0 00170 00015 +0 00000 0 00132 00016 +0 00000 0 00073 00017 +0 00000 0 00037
00020 +0 00000 0 00000 00021 +0 00000 0 00000
END OF FUNCTION 064 000540
00316 TSX +0 07400 4 00000 00317 TXH +3 00000 0 00000 00320 SXD -0 63400 1 00317 00321 SXA +0 63400 4 00344
00322 CLA +0 50000 4 00001 00323 STA +0 62100 0 00052 00324 STA +0 62100 0 00062 00325 STA +0 62100 0 00072
00326 STA +0 62100 0 00102 00327 STA +0 62100 0 00313 00330 STA +0 62100 0 00314 00331 CLA +0 50000 4 00002
00332 STA +0 62100 0 00117 00333 STA +0 62100 0 00122 00334 STA +0 62100 0 00130 00335 STA +0 62100 0 00151
00336 STA +0 62100 0 00162 00337 STA +0 62100 0 00163 00340 STA +0 62100 0 00170 00341 STA +0 62100 0 00201
00342 STA +0 62100 0 00215 00343 TRA +0 02000 2 00001 00344 AXT +0 77400 4 00000 00345 LXA +0 53400 2 00317
00346 LXD -0 53400 1 00317 00347 TRA +0 02000 4 00001
NLREC BCD 05/28/67 1810.9 1447 00000
1 MAD PROGRAM LISTING ... ... ... FILE NLREC MAD 05/28/67 1730.5
-
EXTERNAL FUNCTION (NRECS,IRC,LRC,LTRC,LPREAM,LPHYS,NFLR,NLAST *001 000001
1 ) *001 000002
ENTRY TO NLREC . *002 000003
NWDS=(NRECS-1)*IRC+LRC *003 000004
NFLR=NWDS/LTRC *004 000005
NLEFT=XMOD .( NWDS,LTRC) *005 000006
WHENEVER (NLEFT) .LE. 0, TRANSFER TO QQ0004 *006 000007
MLPH = NLEFT + LPREAM *007 000017
REM = MLPH - (MLPH/LPHYS)*LPHYS *008 000027
NLAST=(MLPH/LPHYS+(REM/REM))*LPHYS *009 000037
TRANSFER TO QQ0005 *010 000047
QQ0004 NLAST=0 *011 000057
QQ0005 FUNCTION RETURN *012 000067
INTEGER NWDS , NRECS , IRC , LRC *013 000077
INTEGER NFLR , LTRC , NLEFT , XMOD *014 000087
INTEGER NLAST , LPREAM, LPHYS *015 000097
INTEGER MLPH, REM *016 000107
END OF FUNCTION *017 000117
1MAD PROGRAM,TYPE NOV 1963 (ALL NUMBERS ARE OCTAL)
0TOTAL LOCATIONS 00143 TRANSFER VECTOR LENGTH 00002 PROGRAM BEGINS 00014
0 PROGRAM IS AN EXTERNAL FUNCTION. THE FOLLOWING ARE ENTRIES
NLREC 00015 0
0VARIABLE STORAGE (A=ARRAY,C=COMMON,E=ERASABLE,DIGIT=MODE)
MLPH 00005 1 NWDS 00007 1 QQ0004 00003 4 QQ0005 00004 4 REM 00010 1
NLEFT 00006 1
0FUNCTION DICTIONARY
EXIT 00000 0 XMOD 00001 1
0ABSOLUTE CONSTANTS
00011 +000000000000 00012 +000000000001 00013 +233000000000
0STATEMENT DICTIONARY
00003 TXL -300101000077 00004 TXL -300102000101
0PROGRAM
EXTERNAL FUNCTION (NRECS,IRC,LRC,LTRC,LPREAM,LPHYS,NFLR,NLAST 001 000001
1) 001 000002
ENTRY TO NLREC . 002 000003
00014 TRA +0 02000 0 00017 00015 SXA +0 63400 2 00103 00016 TSX +0 07400 2 00103
NWDS=(NRECS-1)*IRC+LRC 003 000004
00017 CLA +0 50000 0 00024 00020 SUB +0 40200 0 00012 00021 XCA +0 13100 0 00000 00022 MPY +0 20000 0 00024
00023 XCA +0 13100 0 00000 00024 ADD +0 40000 0 00024 00025 STO +0 60100 0 00007
NFLR=NWDS/LTRC 004 000005
00026 LDQ +0 56000 0 00007 00027 PXD -0 75400 0 00000 00030 LLS +0 76300 0 00000 00031 DVP +0 22100 0 00024
00032 STQ -0 60000 0 00024
NLEFT=XMOD .( NWDS,LTRC) 005 000006
00033 TSX +0 07400 4 00001 00034 TXH +3 00000 0 00007 00035 TXH +3 00000 0 00024 00036 STO +0 60100 0 00006
WHENEVER (NLEFT) .LE. 0, TRANSFER TO QQ0004 006 000007
00037 CLA +0 50000 0 00006 00040 SUB +0 40200 0 00011 00041 TZE +0 10000 0 00043 00042 TPL +0 12000 0 00044
00043 TRA +0 02000 0 00003
MLPH = NLEFT + LPREAM 007 000017
00044 CLA +0 50000 0 00006 00045 ADD +0 40000 0 00024 00046 STO +0 60100 0 00005
REM = MLPH - (MLPH/LPHYS)*LPHYS 008 000027
00047 LDQ +0 56000 0 00005 00050 PXD -0 75400 0 00000 00051 LLS +0 76300 0 00000 00052 DVP +0 22100 0 00024
00053 MPY +0 20000 0 00024 00054 XCA +0 13100 0 00000 00055 CHS +0 76000 0 00002 00056 ADD +0 40000 0 00005
00057 STO +0 60100 0 00010
NLAST=(MLPH/LPHYS+(REM/REM))*LPHYS 009 000037
00060 LDQ +0 56000 0 00010 00061 PXD -0 75400 0 00000 00062 LLS +0 76300 0 00000 00063 DVP +0 22100 0 00010
00064 STQ -0 60000 0 00140 00065 LDQ +0 56000 0 00005 00066 PXD -0 75400 0 00000 00067 LLS +0 76300 0 00000
00070 DVP +0 22100 0 00024 00071 XCA +0 13100 0 00000 00072 ADD +0 40000 0 00140 00073 XCA +0 13100 0 00000
00074 MPY +0 20000 0 00024 00075 STQ -0 60000 0 00024
TRANSFER TO QQ0005 010 000047
00076 TRA +0 02000 0 00004
QQ0004 NLAST=0 011 000057
00077 CLA +0 50000 0 00011 00100 STO +0 60100 0 00024
QQ0005 FUNCTION RETURN 012 000067
00101 TRA +0 02000 0 00134
INTEGER NWDS , NRECS , IRC , LRC 013 000077
INTEGER NFLR , LTRC , NLEFT , XMOD 014 000087
INTEGER NLAST , LPREAM, LPHYS 015 000097
INTEGER MLPH, REM 016 000107
END OF FUNCTION 017 000117
00102 TSX +0 07400 4 00000 00103 TXH +3 00000 0 00000 00104 SXD -0 63400 1 00103 00105 SXA +0 63400 4 00134
00106 CLA +0 50000 4 00001 00107 STA +0 62100 0 00017 00110 CLA +0 50000 4 00002 00111 STA +0 62100 0 00022
00112 CLA +0 50000 4 00003 00113 STA +0 62100 0 00024 00114 CLA +0 50000 4 00004 00115 STA +0 62100 0 00031
00116 STO +0 60100 0 00035 00117 CLA +0 50000 4 00005 00120 STA +0 62100 0 00045 00121 CLA +0 50000 4 00006
00122 STA +0 62100 0 00052 00123 STA +0 62100 0 00053 00124 STA +0 62100 0 00070 00125 STA +0 62100 0 00074
00126 CLA +0 50000 4 00007 00127 STA +0 62100 0 00032 00130 CLA +0 50000 4 00010 00131 STA +0 62100 0 00075
00132 STA +0 62100 0 00100 00133 TRA +0 02000 2 00001 00134 AXT +0 77400 4 00000 00135 LXA +0 53400 2 00103
00136 LXD -0 53400 1 00103 00137 TRA +0 02000 4 00001
XMOD BCD 05/28/67 1810.9 267 00000
1 XMOD REMAINDERING ARG1(MOD ARG2) PAGE 1
* CALLING SEQUENCE TSX XMOD,4
* TXH ARG1(FIXED)
* TXH ARG2(FIXED)
* 3,4 RETURN
* FUNCTION FIXED
00002 ENTRY XMOD
LINKAGE DIRECTOR
00000 000000000000
00001 674446246060
00002 0760 00 0 00000 XMOD CLM
00003 0560 60 4 00001 LDQ* 1,4
A 00004 0763 00 0 00000 LLS SIGN OF MQ TO AC
00005 0221 60 4 00002 DVP* 2,4
00006 0020 00 4 00003 TRA 3,4
FUNCTION IN ARITHMETIC AC FIXED
END
1 XMOD REMAINDERING ARG1(MOD ARG2) PAGE 1
POST PROCESSOR ASSEMBLY DATA
7 IS THE FIRST LOCATION NOT USED BY THIS PROGRAM
0REFERENCES TO DEFINED SYMBOLS
2 XMOD 0
0 NO ERROR IN ABOVE ASSEMBLY.
STRVE BCD 02/09/69 0531.7 115067 00000
TRIEVE BCD 03/15/68 0344.4 18091 00000
1 MAD PROGRAM LISTING ... ... ... FILE TRIEVE MAD 03/01/68 1655.3
-
MAIN PROGRAM FOR RETRIEVE COMMAND LM00001
D.R. WIDRIG DEC. 1965 LM00002
LM00003
THE MAIN PROGRAM GATHERS ARGUMENTS, FORMS A TABLE LM00004
OF TASKS, AND SUPERVISES THE FLOW OF CONTROL LM00005
DURING RETRIEVALS. THE HEART OF THE PROGRAM IS LM00006
THE VECTOR 'TABLE', THE COLLECTION OF TASKS. LM00007
EACH ENTRY IS EXACTLY 11 WORDS LONG AND IS LM00008
ARRANGED AS FOLLOWS ... LM00009
LM00010
WHERE I = 11 * N, N = 0,1,2, ... I .LE. 'TABLIM' LM00011
LM00012
TABLE(I+0) = 'PROBNO' OF TAPE FILE LM00013
TABLE(I+1) = 'PROGNO' OF TAPE FILE LM00014
TABLE(I+2) = 'PROBNO' OF USER RECEIVING FILE LM00015
(0 = ENTRY DELETED) LM00016
TABLE(I+3) = 'PROGNO' OF USER RECEIVING FILE LM00017
TABLE(I+4) = 'NAME1' OF DESIRED FILE LM00018
(FENCE = ANY 'NAME1') LM00019
TABLE(I+5) = 'NAME2' OF DESIRED FILE LM00020
(FENCE = ANY 'NAME2') LM00021
TABLE(I+6) = DATE OF TAPE TO BE USED LM00022
TABLE(I+7) = LOWER BOUND ON TIME OF N.F.T. DESIRED LM00023
(0 = LATEST ONE) LM00024
TABLE(I+8) = UPPER BOUND ON TIME DUMPED ONTO N.F.T. LM00025
(0 = FIRST ONE) LM00026
(FENCE = LAST ONE) LM00027
TABLE(I+9) = TYPE OF DAEMON TAPE DESIRED LM00028
(2 = N.F.T.) LM00029
(3 = U.D.T.) LM00030
(4 = S.D.T.) LM00031
NOTE.. A C.D.T. HAS TABLE(I+7) = 0, TABLE(I+8) = 0 LM00032
TABLE(I+10) = NUMBER OF FILES LOADED FOR THIS ENTRY LM00033
LM00034
AFTER A FILE IS LOADED, THE LOADING TABLE, 'LODTAB', LM00035
IS UPDATED. THE FORMAT OF THE TABLE IS ... LM00036
LM00037
WHERE J = 4 * N, N = 0,1,2, ... J .L. 'LODLIM' LM00038
LM00039
LODTAB(J+0) = I (THE INDEX OF THE CONTROLLING TASK) LM00040
LODTAB(J+1) = 'NAME1' LM00041
LODTAB(J+2) = 'NAME2' LM00042
LODTAB(J+3) = 0 (UNUSED) LM00043
LM00044
THE FOLLOWING COMMON ARRAYS AND VARIABLES LM00045
ARE USED ... LM00046
LM00047
BUFF - GENERAL UTILITY BUFFER LM00048
BUFF1 - BUFFERS FOR I/O LM00049
BUFF2 - '' LM00050
DRAIN - DRAIN BUFFER FOR TEMPORARY USE LM00051
HEADER - 12-WORD PREAMBLE OF TAPE FILE LM00052
UFD - HOLDS 7-WORD UFD ENTRIES LM00053
TABLE - TASK VECTOR LM00054
TSKLTH - LENGTH OF TASK TABLE ENTRY LM00055
LODTAB - VECTOR OF LOADED FILES LM00056
LM00057
AINDEX - CONTAINS 'TABLE' LENGTH TO DATE LM00058
TABLIM - CONTAINS MAX. LENGTH OF 'TABLE' LM00059
LINDEX - CONTAINS 'LODTAB' LENGTH TO DATE LM00060
LODLIM - CONTAINS MAX. LENGTH OF 'LODTAB' LM00061
UNIT - CONTAINS LOGICAL UNIT NUMBER OF TAPE LM00062
D,T - NAME OF TAPE FILE LM00063
MZE - CONTAINS -0 LM00064
FENCE - 777777777777K LM00065
USERF,ILEDI - PREAMBLE ENTRY FOR USER'S U.F.D. (FILE) LM00066
LPREAM - CONTAINS LENGTH OF PREAMBLE LM00067
HPROB,HPROG - HOME 'PROBNO','PROGNO' OF USER LM00068
AUTHOR - AUTHNO OF USER LM00069
REELNO - REEL NUMBER OF CURRENT TAPE LM00070
SYSTEM - SYSTEM OPERATIONS 'PROBNO' LM00071
DAEMON - DAEMON 'PROGNO' LM00072
LM00073
NOTE THAT THIS COMMAND ACTS DIFFERENTLY FOR LM00074
DIFFERENT USERS. IF SECURITY IS NOT A PROBLEM, LM00075
THEN USERS MAY USE THIS COMMAND. LM00076
LM00077
INSERT FILE COM *001 LM00078
*001 LM00001
NORMAL MODE IS INTEGER *002 LM00002
BOOLEAN SWT. *003 LM00003
LM00004
DIMENSION TABLE(210),BUFF(432),BUFF1(432),BUFF2(432) *004 LM00005
DIMENSION HEADER(12),UFD(7),DRAIN(432),LODTAB(2000) *005 LM00006
EQUIVALENCE (PB,HEADER(12)),(PG,HEADER(11)),(DND,HEADER(8)), *006 LM00007
1 (WC,HEADER(2)),(LRCT,HEADER(1)) *006 LM00008
PROGRAM COMMON TABLE,BUFF,BUFF1,BUFF2 *007 LM00009
PROGRAM COMMON HEADER,DRAIN,UFD,LODTAB *008 LM00010
PROGRAM COMMON AINDEX,UNIT,D,T,MZE,TFUDG,FENCE,USERF,ILEDI,PRIV *009 LM00011
PROGRAM COMMON TABLIM,LPREAM,HPROB,HPROG,CURPTR,AUTHOR,LINDEX *010 LM00012
PROGRAM COMMON LODLIM,SYSTEM,DAEMON,REELNO,TSKLTH *011 LM00013
LM00014
VECTOR VALUES FENCE = 777777777777K *012 LM00015
VECTOR VALUES MZE = 4K11 *013 LM00016
VECTOR VALUES TFUDG = 1800 *014 LM00017
VECTOR VALUES TABLIM = 200 *015 LM00018
VECTOR VALUES LODLIM = 2000 *016 LM00019
VECTOR VALUES LPREAM = 12 *017 LM00020
VECTOR VALUES TSKLTH = 11 *018 LM00021
LM00022
VECTOR VALUES SYSTEM = $ C0056$ *019 LM00023
VECTOR VALUES DAEMON = $ 99999$ *020 LM00024
VECTOR VALUES D = $(DUMP)$ *021 LM00025
VECTOR VALUES T = $(TAPE)$ *022 LM00026
VECTOR VALUES USERF = $USER F$ *023 LM00027
VECTOR VALUES ILEDI = $ILE DI$ *024 LM00028
DIMENSION HEDER2(12) *025 LM00029
PROGRAM COMMON HEDER2 *026 LM00030
LM00031
BOOLEAN MORE, STARPT *027 LM00079
DIMENSION A(20),LINE(30) *028 LM00080
EQUIVALENCE (MESS2(4),LINE(0)) *029 LM00081
LM00082
VECTOR VALUES MESS1 = $USER NOT ALLOWED TO USE THIS COMMAND$, *030 LM00083
1 777777777777K *030 LM00084
VECTOR VALUES MESS2 = $ ARGUMENTS IGNORED.. $,0,0,0,0,0,0, *031 LM00085
1 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 *031 LM00086
VECTOR VALUES MESS3 = $ALL ARGUMENTS PROCESSED$,777777777777K *032 LM00087
VECTOR VALUES MESS4(1) = $PE $,$HIS TA$,$WITH T$,$ DONE $,$ ALL$ *033 LM00088
LM00089
VECTOR VALUES CD = $ CD$ *034 LM00090
VECTOR VALUES CNTNU = $(MORE)$ *035 LM00091
VECTOR VALUES F = $ F$ *036 LM00092
VECTOR VALUES IN = $ INTO$ *037 LM00093
VECTOR VALUES L = $ L$ *038 LM00094
VECTOR VALUES M = $ M1416$ *039 LM00095
VECTOR VALUES SF = $CMFL01$,$CMFL02$,$CMFL05$,$ 99999$, *040 LM00096
1 777777777777K *040 LM00097
VECTOR VALUES STAR = $ *$ *041 LM00098
LM00099
VECTOR VALUES BLANK1 = 575757575760K *042 LM00100
LM00101
VECTOR VALUES AINDEX = 0 *043 LM00102
VECTOR VALUES LINDEX = 0 *044 LM00103
LM00104
TEST USER QUALIFICATIONS LM00105
LM00106
WHOAMI.(BUFF(2)...2) *045 LM00107
HPROB = BUFF(2) *046 LM00108
AUTHOR = BCDEC.(BUFF(1)) *047 LM00109
WHENEVER (HPROB.E.SYSTEM) *048 LM00110
PRIV = 0 *049 LM00111
OR WHENEVER (HPROB.E.M) *050 LM00112
PRIV = 0 *051 LM00113
OTHERWISE *052 LM00114
PRIV = 2 *053 LM00115
PRNTP.(MESS1) *054 LM00116
CHNCOM.(0) *055 LM00117
END OF CONDITIONAL *056 LM00118
LM00119
GET ATTACHMENT LM00120
LM00121
ATTNAM.(BUFF(2)...2) *057 LM00122
HPROB = BUFF(2) *058 LM00123
HPROG = BUFF(1) *059 LM00124
TRANSFER TO GETARG *060 LM00125
LM00126
PAUSE WHENEVER (AINDEX .G. TABLIM), TRANSFER TO ROAR *061 LM00127
DORMNT. *062 LM00128
MORE = 0B *063 LM00129
LM00130
GET ALL ARGUMENTS AND ORGANIZE LM00131
LM00132
GETARG THROUGH GETARG, FOR A=1,1,(COMARG.(A,A(A)).E.FENCE).OR.(A.E.19) *064 LM00133
1 .OR.(COMARG.(A,A(A)).E.CNTNU) *064 LM00134
WHENEVER A(A).E.CNTNU *065 LM00135
A(A) = FENCE *066 LM00136
MORE = 1B *067 LM00137
END OF CONDITIONAL *068 LM00138
ENDARG = A *069 LM00139
A = 1 *070 LM00140
START = 1 *071 LM00141
LM00142
SET UP TABLE LM00143
LM00144
THROUGH LOOP3, FOR AINDEX=AINDEX,TSKLTH,(A.GE.ENDARG).OR. *072 LM00145
1 (AINDEX.G.TABLIM) *072 LM00146
LM00147
CHECK FOR '*' OPTION. LM00148
LM00149
STARPT = 0B *073 LM00150
WHENEVER A (A) .E. STAR *074 LM00151
WHENEVER (A + 2 .GE. ENDARG), TRANSFER TO IGNORE *075 LM00152
BINDEX = AINDEX - TSKLTH *076 LM00153
WHENEVER BINDEX .L. 0, TRANSFER TO IGNORE *077 LM00154
THROUGH CPYLP, FOR I = 0, 1, I .GE. TSKLTH *078 LM00155
CPYLP TABLE (AINDEX + I) = TABLE (BINDEX + I) *079 LM00156
A = A + 1 *080 LM00157
STARPT = 1B *081 LM00158
TRANSFER TO NAMES *082 LM00159
END OF CONDITIONAL *083 LM00160
LM00161
TABLE(AINDEX) = HPROB *084 LM00162
TABLE(AINDEX+1) = HPROG *085 LM00163
TABLE(AINDEX+2) = FENCE *086 LM00164
TABLE(AINDEX+3) = FENCE *087 LM00165
TABLE(AINDEX+9) = 4 *088 LM00166
TABLE(AINDEX+10) = 0 *089 LM00167
TRANSFER TO ST(PRIV) *090 LM00168
LM00169
SETTLE 'INTO' QUESTION LM00170
LM00171
ST(0) WHENEVER (A(A).E.IN) *091 LM00172
WHENEVER ((A+2).GE.ENDARG), TRANSFER TO IGNORE *092 LM00173
TABLE(AINDEX+2) = PROBN.(A(A+1),IGNORE) *093 LM00174
TABLE(AINDEX+3) = PROGN.(A(A+2),IGNORE) *094 LM00175
A = A+3 *095 LM00176
END OF CONDITIONAL *096 LM00177
LM00178
GET 'PROBNO' AND 'PROGNO' LM00179
LM00180
ST(1) WHENEVER ((A+1).GE.ENDARG), TRANSFER TO IGNORE *097 LM00181
TABLE(AINDEX) = PROBN.(A(A),IGNORE) *098 LM00182
TABLE(AINDEX+1) = PROGN.(A(A+1),IGNORE) *099 LM00183
LM00184
CHECK FOR SYSTEM FILES LM00185
LM00186
WHENEVER (A(A) .E. M) .OR. (A(A) .E. SYSTEM) *100 LM00187
THROUGH LOOP1, FOR I=0,1,SF(I).E.FENCE *101 LM00188
WHENEVER A(A+1).NE.SF(I), TRANSFER TO LOOP1 *102 LM00189
TABLE(AINDEX+9) = 3 *103 LM00190
TRANSFER TO INUIT *104 LM00191
LOOP1 CONTINUE *105 LM00192
END OF CONDITIONAL *106 LM00193
INUIT A= A+2 *107 LM00194
LM00195
NOW FINISH 'INTO' PROCESSING LM00196
LM00197
ST(2) WHENEVER TABLE(AINDEX+2).E.FENCE, *108 LM00198
1 TABLE(AINDEX+2) = TABLE(AINDEX) *108 LM00199
WHENEVER TABLE(AINDEX+3).E.FENCE, *109 LM00200
1 TABLE(AINDEX+3) = TABLE(AINDEX+1) *109 LM00201
LM00202
GET FILE NAMES LM00203
LM00204
WHENEVER ((A+1) .GE. ENDARG) *110 LM00205
TRANSFER TO IGNORE *111 LM00206
OTHERWISE *112 LM00207
NAMES WHENEVER A(A) .E. STAR *113 LM00208
TABLE(AINDEX+4) = FENCE *114 LM00209
OTHERWISE *115 LM00210
TABLE(AINDEX+4) = A(A) *116 LM00211
END OF CONDITIONAL *117 LM00212
WHENEVER A(A+1) .E. STAR *118 LM00213
TABLE(AINDEX+5) = FENCE *119 LM00214
OTHERWISE *120 LM00215
TABLE(AINDEX+5) = A(A+1) *121 LM00216
END OF CONDITIONAL *122 LM00217
A = A+2 *123 LM00218
WHENEVER STARPT, TRANSFER TO LOOP3 *124 LM00219
END OF CONDITIONAL *125 LM00220
LM00221
GET DATE, CONVERT AND CHECK IT LM00222
LM00223
WHENEVER A .GE. ENDARG, TRANSFER TO IGNORE *126 LM00224
TABLE(AINDEX+6) = DATECV.(A(A),IGNORE) *127 LM00225
A = A+1 *128 LM00226
LM00227
GET TIME OR TAPE SPECIFICATION LM00228
LM00229
WHENEVER (A .GE. ENDARG) *129 LM00230
TRANSFER TO IGNORE *130 LM00231
OR WHENEVER A(A) .E. CD *131 LM00232
TABLE(AINDEX+9) = 12/TABLE(AINDEX+9) *132 LM00233
TABLE(AINDEX+8) = 0 *133 LM00234
TABLE(AINDEX+7) = 0 *134 LM00235
A = A+1 *135 LM00236
OR WHENEVER ((A+1) .GE. ENDARG) *136 LM00237
TRANSFER TO IGNORE *137 LM00238
OTHERWISE *138 LM00239
TABLE(AINDEX+9) = 8/TABLE(AINDEX+9) *139 LM00240
WHENEVER A(A) .E. STAR *140 LM00241
TABLE(AINDEX+7) = 0 *141 LM00242
OTHERWISE *142 LM00243
TABLE(AINDEX+7) = TIMECV.(A(A),IGNORE) *143 LM00244
END OF CONDITIONAL *144 LM00245
WHENEVER A(A+1) .E. F *145 LM00246
TABLE(AINDEX+8) = 0 *146 LM00247
OR WHENEVER A(A+1) .E. L *147 LM00248
TABLE(AINDEX+8) = FENCE *148 LM00249
OTHERWISE *149 LM00250
TABLE(AINDEX+8) = TIMECV.(A(A+1),IGNORE) *150 LM00251
END OF CONDITIONAL *151 LM00252
A = A+2 *152 LM00253
END OF CONDITIONAL *153 LM00254
START = A *154 LM00255
TRANSFER TO LOOP3 *155 LM00256
LM00257
PRINT IGNORE MESSAGE AND QUIT IF NOT ENOUGH ARGUMENTS LM00258
LM00259
IGNORE THROUGH LOOP2, FOR I=START,1,I.G.ENDARG *156 LM00260
J = 2 * (I - START) *157 LM00261
LINE(J) = A(I) *158 LM00262
LINE(J+1) = BLANK1 *159 LM00263
LOOP2 CONTINUE *160 LM00264
PRNTP.(MESS2) *161 LM00265
TABLE(AINDEX+2) = 0 *162 LM00266
TRANSFER TO PAUSE *163 LM00267
LM00268
LOOP3 CONTINUE *164 LM00269
WHENEVER (AINDEX.G.TABLIM), TRANSFER TO ROAR *165 LM00270
LM00271
TEST CONTINUATION SWITCH LM00272
LM00273
WHENEVER MORE, TRANSFER TO PAUSE *166 LM00274
LM00275
SET CATCH-ALL ERROR RETURN LM00276
LM00277
ROAR FERRTN.(ERR) *167 LM00278
LM00279
CHECK TABLE ENTRIES LM00280
LM00281
CKTAB CKENT.(ENDUP) *168 LM00282
LM00283
GET A TAPE MOUNTED LM00284
LM00285
UNIT = SETTAP.(0) *169 LM00286
WHENEVER UNIT .E. 0, TRANSFER TO ENDUP *170 LM00287
LM00288
GET HEADER OF FILE LM00289
LM00290
GETMOR STAPE.(MZE,MZE,LPREAM) *171 LM00291
RDTAPE.(HEADER,LPREAM,DRAIN,ENDTAP,DRAIN,GETMR3,ENDTAP) *172 LM00292
LM00293
GETMR1 WHENEVER SWT.(5) *173 LM00294
LINE(0) = PB *174 LM00295
LINE(1) = PG *175 LM00296
LINE(2) = HEADER(7) *176 LM00297
LINE(3) = HEADER(6) *177 LM00298
LINE(4) = CVTIME.(DND) *178 LM00299
LINE(5) = FENCE *179 LM00300
PRNTP.(LINE) *180 LM00301
END OF CONDITIONAL *181 LM00302
LM00303
DECIDE IF A FILE IS USEFUL LM00304
LM00305
DECIDE.(HEADER,YES,NO,1B) *182 LM00306
LM00307
NO DRAINW.(MZE,LRCT.RS.18,WC,ENDTAP,DRAIN,GETMR3,ENDTAP) *183 LM00308
TRANSFER TO GETMOR *184 LM00309
LM00310
LM00311
CHECK UFD OR LOAD RELEVANT FILE LM00312
LM00313
YES WHENEVER (HEADER(7).E.USERF).AND.(HEADER(6).E.ILEDI) *185 LM00314
CKUFD.(GETMR2,ERR) *186 LM00315
OTHERWISE *187 LM00316
LDFILE.(GETMR2,ENDUP1) *188 LM00317
END OF CONDITIONAL *189 LM00318
LM00319
CHECK TO SEE IF RETRIEVALS COMPLETED LM00320
LM00321
RECAP.(0B,ENDTAP) *190 LM00322
TRANSFER TO GETMOR *191 LM00323
GETMR2 RECAP.(0B,ENDTAP) *192 LM00324
GETMR3 THROUGH LOOP4, FOR I = 1,1,I .G. LPREAM *193 LM00325
LOOP4 HEADER(I) = HEDER2(I) *194 LM00326
TRANSFER TO GETMR1 *195 LM00327
LM00328
FINISHED WITH TAPE, LOOK FOR MORE WORK LM00329
LM00330
ENDTAP CLOSE.(D,T,ERR) *196 LM00331
UMOUNT.(UNIT,MESS4(5)...5,ERR,ERCODE) *197 LM00332
RECAP.(1B,CKTAB) *198 LM00333
TRANSFER TO CKTAB *199 LM00334
LM00335
ERR PRNTER. *200 LM00336
RECAP.(1B,ENDUP1) *201 LM00337
TRANSFER TO ENDUP1 *202 LM00338
LM00339
CLOSE OUT AND LEAVE LM00340
LM00341
ENDUP PRNTP.(MESS3) *203 LM00342
ENDUP1 ATTACH.(HPROB,HPROG,NERR3) *204 LM00343
NERR3 CLOSE.($ALL$,MZE,NERR1) *205 LM00344
NERR1 UMOUNT.($ALL$,MESS4(5)...2,NERR2,ERCODE) *206 LM00345
NERR2 DELFIL.(D,T,NERR4) *207 LM00346
NERR4 CHNCOM.(1) *208 LM00347
LM00348
END OF PROGRAM *209 LM00349
1MAD PROGRAM,TYPE NOV 1963 (ALL NUMBERS ARE OCTAL)
0TOTAL LOCATIONS 01521 TRANSFER VECTOR LENGTH 00036 PROGRAM BEGINS 00250 FIRST UNUSED COMMON/ERASABLE 67621
0VARIABLE STORAGE (A=ARRAY,C=COMMON,E=ERASABLE,DIGIT=MODE)
AINDEX 67664 AC1 ENDTAP 00103 4 ILEDI 67654 AC1 MESS2 00101 A 1 ROAR 00127 4
A 00160 A 1 ENDUP1 00104 4 IN 00170 A 1 MESS3 00207 A 1 SF 00224 A 1
AUTHOR 67645 C1 ENDUP 00105 4 INUIT 00115 4 MESS4 00215 A 1 STARPT 00225 2
BINDEX 00161 1 ERCODE 00166 1 I 00171 1 MORE 00216 2 STAR 00226 A 1
BLANK1 00162 A 1 ERR 00106 4 J 00172 1 M 00217 A 1 START 00227 1
BUFF1 76255 AC1 FENCE 67656 AC1 LINDEX 67644 AC1 MZE 67660 AC1 ST 00132 A 4
BUFF2 75374 AC1 F 00167 A 1 LINE 00075 A 1 NAMES 00120 4 SYSTEM 67642 AC1
BUFF 77136 AC1 GETARG 00107 4 LODLIM 67643 AC1 NERR1 00121 4 TABLE 77461 AC1
CD 00163 A 1 GETMOR 00110 4 LODTAB 73605 AC1 NERR2 00122 4 TABLIM 67652 AC1
CKTAB 00102 4 GETMR1 00111 4 LOOP1 00116 4 NERR3 00123 4 TFUDG 67657 AC1
CNTNU 00164 A 1 GETMR2 00112 4 LOOP2 00036 4 NERR4 00124 4 T 67661 AC1
CPYLP 00036 4 GETMR3 00113 4 LOOP3 00117 4 NO 00125 4 TSKLTH 67637 AC1
CURPTR 67646 C1 HEADER 74513 AC1 LOOP4 00036 4 PAUSE 00126 4 UFD 73615 AC1
DAEMON 67641 AC1 HEDER2 67636 AC1 LPREAM 67651 AC1 PB 74477 C1 UNIT 67663 C1
DND 74503 C1 HPROB 67650 C1 LRCT 74512 C1 PG 74500 C1 USERF 67655 AC1
DRAIN 74476 AC1 HPROG 67647 C1 L 00173 A 1 PRIV 67653 C1 WC 74511 C1
D 67662 AC1 IGNORE 00114 4 MESS1 00202 A 1 REELNO 67640 C1 YES 00133 4
ENDARG 00165 1
0FUNCTION DICTIONARY
ATTACH 00000 1 ATTNAM 00001 1 BCDEC 00002 1 CHNCOM 00003 1 CKENT 00004 1
CKUFD 00005 1 CLOSE 00006 1 COMARG 00007 1 CVTIME 00010 1 DATECV 00011 1
DECIDE 00012 1 DELFIL 00013 1 DORMNT 00014 1 DRAINW 00015 1 EXIT 00016 1
FERRTN 00017 1 .SETUP 00020 1 LDFILE 00021 1 PRNTER 00022 1 PRNTP 00023 1
PROBN 00024 1 PROGN 00025 1 RDTAPE 00026 1 RECAP 00027 1 SETTAP 00030 1
STAPE 00031 1 SWT 00032 2 TIMECV 00033 1 UMOUNT 00034 1 WHOAMI 00035 1
0ABSOLUTE CONSTANTS
00246 +214343606060 00244 +000000000022 00237 +000000000007 00240 +000000000010 00243 +000000000014
00236 +000000000006 00235 +000000000005 00242 +000000000012 00234 +000000000004 00241 +000000000011
00233 +000000000003 00245 +000000000023 00230 +000000000000 00232 +000000000002 00231 +000000000001
00247 +233000000000
0STATEMENT DICTIONARY
00102 TXL -301312001310 00103 TXL -301452001446 00104 TXL -301476001472 00105 TXL -301472001470
00106 TXL -301464001463 00107 TXL -300355000321 00110 TXL -301325001321 00111 TXL -301340001335
00112 TXL -301426001423 00113 TXL -301440001426 00114 TXL -301246001234 00115 TXL -300676000673
00116 TXL -300673000672 00117 TXL -301276001275 00120 TXL -300744000740 00121 TXL -301507001502
00122 TXL -301513001507 00123 TXL -301502001476 00124 TXL -301515001513 00125 TXL -301401001364
00126 TXL -300316000311 00127 TXL -301310001306 00130 TXL -300712000676 00131 TXL -300604000576
00132 TXL -300531000525 00133 TXL -301410001402
0PROGRAM
I'E COM 001 LM00078
N'R 002 LM00002
B'N SWT. 003 LM00003
D'N TABLE(210),BUFF(432),BUFF1(432),BUFF2(432) 004 LM00005
D'N HEADER(12),UFD(7),DRAIN(432),LODTAB(2000) 005 LM00006
E'E (PB,HEADER(12)),(PG,HEADER(11)),(DND,HEADER(8)), 006 LM00007
1 (WC,HEADER(2)),(LRCT,HEADER(1)) 006 LM00008
P'N TABLE,BUFF,BUFF1,BUFF2 007 LM00009
P'N HEADER,DRAIN,UFD,LODTAB 008 LM00010
P'N AINDEX,UNIT,D,T,MZE,TFUDG,FENCE,USERF,ILEDI,PRIV 009 LM00011
P'N TABLIM,LPREAM,HPROB,HPROG,CURPTR,AUTHOR,LINDEX 010 LM00012
P'N LODLIM,SYSTEM,DAEMON,REELNO,TSKLTH 011 LM00013
V'S FENCE = 777777777777K 012 LM00015
00250 TSX +0 07400 4 00020 67656 -3 77777 7 77777
V'S MZE = 4K11 013 LM00016
67660 -0 00000 0 00000
V'S TFUDG = 1800 014 LM00017
67657 +0 00000 0 03410
V'S TABLIM = 200 015 LM00018
67652 +0 00000 0 00310
V'S LODLIM = 2000 016 LM00019
67643 +0 00000 0 03720
V'S LPREAM = 12 017 LM00020
67651 +0 00000 0 00014
V'S TSKLTH = 11 018 LM00021
67637 +0 00000 0 00013
V'S SYSTEM = $ C0056$ 019 LM00023
67642 -2 02300 0 00506
V'S DAEMON = $ 99999$ 020 LM00024
67641 -2 01111 1 11111
V'S D = $(DUMP)$ 021 LM00025
67662 -3 42464 4 44734
V'S T = $(TAPE)$ 022 LM00026
67661 -3 46321 4 72534
V'S USERF = $USER F$ 023 LM00027
67655 -2 46225 5 16026
V'S ILEDI = $ILE DI$ 024 LM00028
67654 +3 14325 6 02431
DIMENSION HEDER2(12) 025 LM00029
P'N HEDER2 026 LM00030
B'N MORE, STARPT 027 LM00079
D'N A(20),LINE(30) 028 LM00080
E'E (MESS2(4),LINE(0)) 029 LM00081
V'S MESS1 = $USER NOT ALLOWED TO USE THIS COMMAND$, 030 LM00083
1 777777777777K 030 LM00084
00174 -3 77777 7 77777 00175 -0 64444 2 14524 00176 -2 33031 6 26023 00177 -0 66064 6 22560
00200 -0 66625 2 46063 00201 -0 66360 2 14343 00202 -2 46225 5 16045
V'S MESS2 = $ ARGUMENTS IGNORED.. $,0,0,0,0,0,0, 031 LM00085
1 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 031 LM00086
00040 +0 00000 0 00000 00041 +0 00000 0 00000 00042 +0 00000 0 00000 00043 +0 00000 0 00000
00044 +0 00000 0 00000 00045 +0 00000 0 00000 00046 +0 00000 0 00000 00047 +0 00000 0 00000
00050 +0 00000 0 00000 00051 +0 00000 0 00000 00052 +0 00000 0 00000 00053 +0 00000 0 00000
00054 +0 00000 0 00000 00055 +0 00000 0 00000 00056 +0 00000 0 00000 00057 +0 00000 0 00000
00060 +0 00000 0 00000 00061 +0 00000 0 00000 00062 +0 00000 0 00000 00063 +0 00000 0 00000
00064 +0 00000 0 00000 00065 +0 00000 0 00000 00066 +0 00000 0 00000 00067 +0 00000 0 00000
00070 +0 00000 0 00000 00071 +0 00000 0 00000 00072 +0 00000 0 00000 00073 +0 00000 0 00000
00074 +0 00000 0 00000 00075 +0 00000 0 00000 00076 -1 12524 3 33360 00077 -2 26031 2 74546
00100 +2 76444 2 54563 00101 -2 06060 6 02151
V'S MESS3 = $ALL ARGUMENTS PROCESSED$,777777777777K 032 LM00087
00203 -3 77777 7 77777 00204 +2 56262 2 52460 00205 -2 26047 5 14623 00206 +2 76444 2 54563
00207 +2 14343 6 02151
V'S MESS4(1) = $PE $,$HIS TA$,$WITH T$,$ DONE $,$ ALL$ 033 LM00088
00210 -2 06060 2 14343 00211 -2 02446 4 52560 00212 -2 63163 3 06063 00213 +3 03162 6 06321
00214 -0 72560 6 06060
V'S CD = $ CD$ 034 LM00090
00163 -2 06060 6 02324
V'S CNTNU = $(MORE)$ 035 LM00091
00164 -3 44446 5 12534
V'S F = $ F$ 036 LM00092
00167 -2 06060 6 06026
V'S IN = $ INTO$ 037 LM00093
00170 -2 06031 4 56346
V'S L = $ L$ 038 LM00094
00173 -2 06060 6 06043
V'S M = $ M1416$ 039 LM00095
00217 -2 04401 0 40106
V'S SF = $CMFL01$,$CMFL02$,$CMFL05$,$ 99999$, 040 LM00096
1 777777777777K 040 LM00097
00220 -3 77777 7 77777 00221 -2 01111 1 11111 00222 +2 34426 4 30005 00223 +2 34426 4 30002
00224 +2 34426 4 30001
V'S STAR = $ *$ 041 LM00098
00226 -2 06060 6 06054
V'S BLANK1 = 575757575760K 042 LM00100
00162 -1 75757 5 75760
V'S AINDEX = 0 043 LM00102
67664 +0 00000 0 00000
V'S LINDEX = 0 044 LM00103
67644 +0 00000 0 00000
WHOAMI.(BUFF(2)...2) 045 LM00107
00251 TSX +0 07400 4 00035 00252 TIX +2 00232 0 77134
HPROB = BUFF(2) 046 LM00108
00253 CLA +0 50000 0 77134 00254 STO +0 60100 0 67650
AUTHOR = BCDEC.(BUFF(1)) 047 LM00109
00255 TSX +0 07400 4 00002 00256 TXH +3 00000 0 77135 00257 STO +0 60100 0 67645
W'R (HPROB.E.SYSTEM) 048 LM00110
00260 CLA +0 50000 0 67650 00261 SUB +0 40200 0 67642 00262 TNZ -0 10000 0 00266
PRIV = 0 049 LM00111
00263 CLA +0 50000 0 00230 00264 STO +0 60100 0 67653
O'R (HPROB.E.M) 050 LM00112
00265 TRA +0 02000 0 00302 00266 CLA +0 50000 0 67650 00267 SUB +0 40200 0 00217 00270 TNZ -0 10000 0 00274
PRIV = 0 051 LM00113
00271 CLA +0 50000 0 00230 00272 STO +0 60100 0 67653
O'E 052 LM00114
00273 TRA +0 02000 0 00302
PRIV = 2 053 LM00115
00274 CLA +0 50000 0 00232 00275 STO +0 60100 0 67653
PRNTP.(MESS1) 054 LM00116
00276 TSX +0 07400 4 00023 00277 TXH +3 00000 0 00202
CHNCOM.(0) 055 LM00117
00300 TSX +0 07400 4 00003 00301 TXH +3 00000 0 00230
E'L 056 LM00118
ATTNAM.(BUFF(2)...2) 057 LM00122
00302 TSX +0 07400 4 00001 00303 TIX +2 00232 0 77134
HPROB = BUFF(2) 058 LM00123
00304 CLA +0 50000 0 77134 00305 STO +0 60100 0 67650
HPROG = BUFF(1) 059 LM00124
00306 CLA +0 50000 0 77135 00307 STO +0 60100 0 67647
T'O GETARG 060 LM00125
00310 TRA +0 02000 0 00107
PAUSE W'R (AINDEX .G. TABLIM), T'O ROAR 061 LM00127
00311 CLA +0 50000 0 67664 00312 SUB +0 40200 0 67652 00313 TZE +0 10000 0 00316 00314 TMI -0 12000 0 00316
00315 TRA +0 02000 0 00127
DORMNT. 062 LM00128
00316 TSX +0 07400 4 00014
MORE = 0B 063 LM00129
00317 CLA +0 50000 0 00230 00320 STO +0 60100 0 00216
GETARG T'H GETARG, FOR A=1,1,(COMARG.(A,A(A)).E.FENCE).OR.(A.E.19) 064 LM00133
1 .OR.(COMARG.(A,A(A)).E.CNTNU) 064 LM00134
00321 CLA +0 50000 0 00231 00322 STO +0 60100 0 00160 00323 TRA +0 02000 0 00327 00324 CLA +0 50000 0 00160
00325 ADD +0 40000 0 00231 00326 STO +0 60100 0 00160 00327 CLA +0 50000 0 00160 00330 SUB +0 40200 0 00331
00331 TXH +3 00000 0 00160 00332 STA +0 62100 0 00335 00333 TSX +0 07400 4 00007 00334 TXH +3 00000 0 00160
00335 TXH +3 00000 0 00000 00336 SUB +0 40200 0 00164 00337 TZE +0 10000 0 00355 00340 CLA +0 50000 0 00160
00341 SUB +0 40200 0 00245 00342 TZE +0 10000 0 00355 00343 CLA +0 50000 0 00160 00344 SUB +0 40200 0 00345
00345 TXH +3 00000 0 00160 00346 STA +0 62100 0 00351 00347 TSX +0 07400 4 00007 00350 TXH +3 00000 0 00160
00351 TXH +3 00000 0 00000 00352 SUB +0 40200 0 67656 00353 TZE +0 10000 0 00355 00354 TRA +0 02000 0 00324
W'R A(A).E.CNTNU 065 LM00135
00355 LXA +0 53400 1 00160 00356 CLA +0 50000 1 00160 00357 SUB +0 40200 0 00164 00360 TNZ -0 10000 0 00365
A(A) = FENCE 066 LM00136
00361 CLA +0 50000 0 67656 00362 STO +0 60100 1 00160
MORE = 1B 067 LM00137
00363 CLA +0 50000 0 00231 00364 STO +0 60100 0 00216
E'L 068 LM00138
ENDARG = A 069 LM00139
00365 CLA +0 50000 0 00160 00366 STO +0 60100 0 00165
A = 1 070 LM00140
00367 CLA +0 50000 0 00231 00370 STO +0 60100 0 00160
START = 1 071 LM00141
00371 CLA +0 50000 0 00231 00372 STO +0 60100 0 00227
T'H LOOP3, FOR AINDEX=AINDEX,TSKLTH,(A.GE.ENDARG).OR. 072 LM00145
1 (AINDEX.G.TABLIM) 072 LM00146
00373 CLA +0 50000 0 67664 00374 STO +0 60100 0 67664 00375 TRA +0 02000 0 00401 00376 CLA +0 50000 0 67664
00377 ADD +0 40000 0 67637 00400 STO +0 60100 0 67664 00401 CLA +0 50000 0 67664 00402 SUB +0 40200 0 67652
00403 TZE +0 10000 0 00405 00404 TPL +0 12000 0 01276 00405 CLA +0 50000 0 00160 00406 SUB +0 40200 0 00165
00407 TZE +0 10000 0 01276 00410 TPL +0 12000 0 01276
STARPT = 0B 073 LM00150
00411 CLA +0 50000 0 00230 00412 STO +0 60100 0 00225
W'R A (A) .E. STAR 074 LM00151
00413 LXA +0 53400 1 00160 00414 CLA +0 50000 1 00160 00415 SUB +0 40200 0 00226 00416 TNZ -0 10000 0 00467
W'R (A + 2 .GE. ENDARG), T'O IGNORE 075 LM00152
00417 CLA +0 50000 0 00160 00420 ADD +0 40000 0 00232 00421 SUB +0 40200 0 00165 00422 TZE +0 10000 0 00424
00423 TMI -0 12000 0 00425 00424 TRA +0 02000 0 00114
BINDEX = AINDEX - TSKLTH 076 LM00153
00425 CLA +0 50000 0 67664 00426 SUB +0 40200 0 67637 00427 STO +0 60100 0 00161
W'R BINDEX .L. 0, T'O IGNORE 077 LM00154
00430 CLA +0 50000 0 00161 00431 SUB +0 40200 0 00230 00432 TZE +0 10000 0 00435 00433 TPL +0 12000 0 00435
00434 TRA +0 02000 0 00114
T'H CPYLP, FOR I = 0, 1, I .GE. TSKLTH 078 LM00155
00435 CLA +0 50000 0 00230 00436 STO +0 60100 0 00171 00437 TRA +0 02000 0 00443 00440 CLA +0 50000 0 00171
00441 ADD +0 40000 0 00231 00442 STO +0 60100 0 00171 00443 CLA +0 50000 0 00171 00444 SUB +0 40200 0 67637
00445 TZE +0 10000 0 00461 00446 TPL +0 12000 0 00461
CPYLP TABLE (AINDEX + I) = TABLE (BINDEX + I) 079 LM00156
00447 CLA +0 50000 0 00161 00450 ADD +0 40000 0 00171 00451 STO +0 60100 0 01516 00452 CLA +0 50000 0 67664
00453 ADD +0 40000 0 00171 00454 PAX +0 73400 1 00000 00455 LXA +0 53400 2 01516 00456 CLA +0 50000 2 77461
00457 STO +0 60100 1 77461 00460 TRA +0 02000 0 00440
A = A + 1 080 LM00157
00461 CLA +0 50000 0 00160 00462 ADD +0 40000 0 00231 00463 STO +0 60100 0 00160
STARPT = 1B 081 LM00158
00464 CLA +0 50000 0 00231 00465 STO +0 60100 0 00225
T'O NAMES 082 LM00159
00466 TRA +0 02000 0 00120
E'L 083 LM00160
TABLE(AINDEX) = HPROB 084 LM00162
00467 LXA +0 53400 1 67664 00470 CLA +0 50000 0 67650 00471 STO +0 60100 1 77461
TABLE(AINDEX+1) = HPROG 085 LM00163
00472 CLA +0 50000 0 67664 00473 ADD +0 40000 0 00231 00474 PAX +0 73400 1 00000 00475 CLA +0 50000 0 67647
00476 STO +0 60100 1 77461
TABLE(AINDEX+2) = FENCE 086 LM00164
00477 CLA +0 50000 0 67664 00500 ADD +0 40000 0 00232 00501 PAX +0 73400 1 00000 00502 CLA +0 50000 0 67656
00503 STO +0 60100 1 77461
TABLE(AINDEX+3) = FENCE 087 LM00165
00504 CLA +0 50000 0 67664 00505 ADD +0 40000 0 00233 00506 PAX +0 73400 1 00000 00507 CLA +0 50000 0 67656
00510 STO +0 60100 1 77461
TABLE(AINDEX+9) = 4 088 LM00166
00511 CLA +0 50000 0 67664 00512 ADD +0 40000 0 00241 00513 PAX +0 73400 1 00000 00514 CLA +0 50000 0 00234
00515 STO +0 60100 1 77461
TABLE(AINDEX+10) = 0 089 LM00167
00516 CLA +0 50000 0 67664 00517 ADD +0 40000 0 00242 00520 PAX +0 73400 1 00000 00521 CLA +0 50000 0 00230
00522 STO +0 60100 1 77461
T'O ST(PRIV) 090 LM00168
00523 LXA +0 53400 2 67653 00524 TRA +0 02000 2 00132
ST(0) W'R (A(A).E.IN) 091 LM00172
00525 LXA +0 53400 1 00160 00526 CLA +0 50000 1 00160 00527 SUB +0 40200 0 00170 00530 TNZ -0 10000 0 00576
W'R ((A+2).GE.ENDARG), T'O IGNORE 092 LM00173
00531 CLA +0 50000 0 00160 00532 ADD +0 40000 0 00232 00533 SUB +0 40200 0 00165 00534 TZE +0 10000 0 00536
00535 TMI -0 12000 0 00537 00536 TRA +0 02000 0 00114
TABLE(AINDEX+2) = PROBN.(A(A+1),IGNORE) 093 LM00174
00537 CLA +0 50000 0 00160 00540 ADD +0 40000 0 00231 00541 SUB +0 40200 0 00542 00542 TXH +3 00000 0 00160
00543 STA +0 62100 0 00545 00544 TSX +0 07400 4 00024 00545 TXH +3 00000 0 00000 00546 TXH +3 00000 0 00114
00547 STO +0 60100 0 01516 00550 CLA +0 50000 0 67664 00551 ADD +0 40000 0 00232 00552 PAX +0 73400 1 00000
00553 CLA +0 50000 0 01516 00554 STO +0 60100 1 77461
TABLE(AINDEX+3) = PROGN.(A(A+2),IGNORE) 094 LM00175
00555 CLA +0 50000 0 00160 00556 ADD +0 40000 0 00232 00557 SUB +0 40200 0 00560 00560 TXH +3 00000 0 00160
00561 STA +0 62100 0 00563 00562 TSX +0 07400 4 00025 00563 TXH +3 00000 0 00000 00564 TXH +3 00000 0 00114
00565 STO +0 60100 0 01516 00566 CLA +0 50000 0 67664 00567 ADD +0 40000 0 00233 00570 PAX +0 73400 1 00000
00571 CLA +0 50000 0 01516 00572 STO +0 60100 1 77461
A = A+3 095 LM00176
00573 CLA +0 50000 0 00160 00574 ADD +0 40000 0 00233 00575 STO +0 60100 0 00160
E'L 096 LM00177
ST(1) W'R ((A+1).GE.ENDARG), T'O IGNORE 097 LM00181
00576 CLA +0 50000 0 00160 00577 ADD +0 40000 0 00231 00600 SUB +0 40200 0 00165 00601 TZE +0 10000 0 00603
00602 TMI -0 12000 0 00604 00603 TRA +0 02000 0 00114
TABLE(AINDEX) = PROBN.(A(A),IGNORE) 098 LM00182
00604 CLA +0 50000 0 00160 00605 SUB +0 40200 0 00606 00606 TXH +3 00000 0 00160 00607 STA +0 62100 0 00611
00610 TSX +0 07400 4 00024 00611 TXH +3 00000 0 00000 00612 TXH +3 00000 0 00114 00613 LXA +0 53400 1 67664
00614 STO +0 60100 1 77461
TABLE(AINDEX+1) = PROGN.(A(A+1),IGNORE) 099 LM00183
00615 CLA +0 50000 0 00160 00616 ADD +0 40000 0 00231 00617 SUB +0 40200 0 00620 00620 TXH +3 00000 0 00160
00621 STA +0 62100 0 00623 00622 TSX +0 07400 4 00025 00623 TXH +3 00000 0 00000 00624 TXH +3 00000 0 00114
00625 STO +0 60100 0 01516 00626 CLA +0 50000 0 67664 00627 ADD +0 40000 0 00231 00630 PAX +0 73400 1 00000
00631 CLA +0 50000 0 01516 00632 STO +0 60100 1 77461
W'R (A(A) .E. M) .OR. (A(A) .E. SYSTEM) 100 LM00187
00633 LXA +0 53400 1 00160 00634 CLA +0 50000 1 00160 00635 SUB +0 40200 0 67642 00636 TZE +0 10000 0 00642
00637 CLA +0 50000 1 00160 00640 SUB +0 40200 0 00217 00641 TNZ -0 10000 0 00673
T'H LOOP1, FOR I=0,1,SF(I).E.FENCE 101 LM00188
00642 CLA +0 50000 0 00230 00643 STO +0 60100 0 00171 00644 TRA +0 02000 0 00650 00645 CLA +0 50000 0 00171
00646 ADD +0 40000 0 00231 00647 STO +0 60100 0 00171 00650 LXA +0 53400 1 00171 00651 CLA +0 50000 1 00224
00652 SUB +0 40200 0 67656 00653 TZE +0 10000 0 00673
W'R A(A+1).NE.SF(I), T'O LOOP1 102 LM00189
00654 CLA +0 50000 0 00160 00655 ADD +0 40000 0 00231 00656 PAX +0 73400 1 00000 00657 LXA +0 53400 2 00171
00660 CLA +0 50000 1 00160 00661 SUB +0 40200 2 00224 00662 TZE +0 10000 0 00664 00663 TRA +0 02000 0 00116
TABLE(AINDEX+9) = 3 103 LM00190
00664 CLA +0 50000 0 67664 00665 ADD +0 40000 0 00241 00666 PAX +0 73400 1 00000 00667 CLA +0 50000 0 00233
00670 STO +0 60100 1 77461
T'O INUIT 104 LM00191
00671 TRA +0 02000 0 00115
LOOP1 C'E 105 LM00192
00672 TRA +0 02000 0 00645
E'L 106 LM00193
INUIT A= A+2 107 LM00194
00673 CLA +0 50000 0 00160 00674 ADD +0 40000 0 00232 00675 STO +0 60100 0 00160
ST(2) W'R TABLE(AINDEX+2).E.FENCE, 108 LM00198
1 TABLE(AINDEX+2) = TABLE(AINDEX) 108 LM00199
00676 CLA +0 50000 0 67664 00677 ADD +0 40000 0 00232 00700 PAX +0 73400 1 00000 00701 CLA +0 50000 1 77461
00702 SUB +0 40200 0 67656 00703 TNZ -0 10000 0 00712 00704 CLA +0 50000 0 67664 00705 ADD +0 40000 0 00232
00706 PAX +0 73400 1 00000 00707 LXA +0 53400 2 67664 00710 CLA +0 50000 2 77461 00711 STO +0 60100 1 77461
W'R TABLE(AINDEX+3).E.FENCE, 109 LM00200
1 TABLE(AINDEX+3) = TABLE(AINDEX+1) 109 LM00201
00712 CLA +0 50000 0 67664 00713 ADD +0 40000 0 00233 00714 PAX +0 73400 1 00000 00715 CLA +0 50000 1 77461
00716 SUB +0 40200 0 67656 00717 TNZ -0 10000 0 00731 00720 CLA +0 50000 0 67664 00721 ADD +0 40000 0 00231
00722 STO +0 60100 0 01516 00723 CLA +0 50000 0 67664 00724 ADD +0 40000 0 00233 00725 PAX +0 73400 1 00000
00726 LXA +0 53400 2 01516 00727 CLA +0 50000 2 77461 00730 STO +0 60100 1 77461
W'R ((A+1) .GE. ENDARG) 110 LM00205
00731 CLA +0 50000 0 00160 00732 ADD +0 40000 0 00231 00733 SUB +0 40200 0 00165 00734 TZE +0 10000 0 00736
00735 TMI -0 12000 0 00740
T'O IGNORE 111 LM00206
00736 TRA +0 02000 0 00114
O'E 112 LM00207
00737 TRA +0 02000 0 01013
NAMES W'R A(A) .E. STAR 113 LM00208
00740 LXA +0 53400 1 00160 00741 CLA +0 50000 1 00160 00742 SUB +0 40200 0 00226 00743 TNZ -0 10000 0 00752
TABLE(AINDEX+4) = FENCE 114 LM00209
00744 CLA +0 50000 0 67664 00745 ADD +0 40000 0 00234 00746 PAX +0 73400 1 00000 00747 CLA +0 50000 0 67656
00750 STO +0 60100 1 77461
O'E 115 LM00210
00751 TRA +0 02000 0 00760
TABLE(AINDEX+4) = A(A) 116 LM00211
00752 CLA +0 50000 0 67664 00753 ADD +0 40000 0 00234 00754 PAX +0 73400 1 00000 00755 LXA +0 53400 2 00160
00756 CLA +0 50000 2 00160 00757 STO +0 60100 1 77461
E'L 117 LM00212
W'R A(A+1) .E. STAR 118 LM00213
00760 CLA +0 50000 0 00160 00761 ADD +0 40000 0 00231 00762 PAX +0 73400 1 00000 00763 CLA +0 50000 1 00160
00764 SUB +0 40200 0 00226 00765 TNZ -0 10000 0 00774
TABLE(AINDEX+5) = FENCE 119 LM00214
00766 CLA +0 50000 0 67664 00767 ADD +0 40000 0 00235 00770 PAX +0 73400 1 00000 00771 CLA +0 50000 0 67656
00772 STO +0 60100 1 77461
O'E 120 LM00215
00773 TRA +0 02000 0 01005
TABLE(AINDEX+5) = A(A+1) 121 LM00216
00774 CLA +0 50000 0 00160 00775 ADD +0 40000 0 00231 00776 STO +0 60100 0 01516 00777 CLA +0 50000 0 67664
01000 ADD +0 40000 0 00235 01001 PAX +0 73400 1 00000 01002 LXA +0 53400 2 01516 01003 CLA +0 50000 2 00160
01004 STO +0 60100 1 77461
E'L 122 LM00217
A = A+2 123 LM00218
01005 CLA +0 50000 0 00160 01006 ADD +0 40000 0 00232 01007 STO +0 60100 0 00160
W'R STARPT, T'O LOOP3 124 LM00219
01010 NZT -0 52000 0 00225 01011 TRA +0 02000 0 01013 01012 TRA +0 02000 0 00117
E'L 125 LM00220
W'R A .GE. ENDARG, T'O IGNORE 126 LM00224
01013 CLA +0 50000 0 00160 01014 SUB +0 40200 0 00165 01015 TZE +0 10000 0 01017 01016 TMI -0 12000 0 01020
01017 TRA +0 02000 0 00114
TABLE(AINDEX+6) = DATECV.(A(A),IGNORE) 127 LM00225
01020 CLA +0 50000 0 00160 01021 SUB +0 40200 0 01022 01022 TXH +3 00000 0 00160 01023 STA +0 62100 0 01025
01024 TSX +0 07400 4 00011 01025 TXH +3 00000 0 00000 01026 TXH +3 00000 0 00114 01027 STO +0 60100 0 01516
01030 CLA +0 50000 0 67664 01031 ADD +0 40000 0 00236 01032 PAX +0 73400 1 00000 01033 CLA +0 50000 0 01516
01034 STO +0 60100 1 77461
A = A+1 128 LM00226
01035 CLA +0 50000 0 00160 01036 ADD +0 40000 0 00231 01037 STO +0 60100 0 00160
W'R (A .GE. ENDARG) 129 LM00230
01040 CLA +0 50000 0 00160 01041 SUB +0 40200 0 00165 01042 TZE +0 10000 0 01044 01043 TMI -0 12000 0 01046
T'O IGNORE 130 LM00231
01044 TRA +0 02000 0 00114
O'R A(A) .E. CD 131 LM00232
01045 TRA +0 02000 0 01231 01046 LXA +0 53400 1 00160 01047 CLA +0 50000 1 00160 01050 SUB +0 40200 0 00163
01051 TNZ -0 10000 0 01105
TABLE(AINDEX+9) = 12/TABLE(AINDEX+9) 132 LM00233
01052 CLA +0 50000 0 67664 01053 ADD +0 40000 0 00241 01054 PAX +0 73400 2 00000 01055 LDQ +0 56000 0 00243
01056 PXD -0 75400 0 00000 01057 LLS +0 76300 0 00000 01060 DVP +0 22100 2 77461 01061 STQ -0 60000 0 01516
01062 CLA +0 50000 0 67664 01063 ADD +0 40000 0 00241 01064 PAX +0 73400 1 00000 01065 CLA +0 50000 0 01516
01066 STO +0 60100 1 77461
TABLE(AINDEX+8) = 0 133 LM00234
01067 CLA +0 50000 0 67664 01070 ADD +0 40000 0 00240 01071 PAX +0 73400 1 00000 01072 CLA +0 50000 0 00230
01073 STO +0 60100 1 77461
TABLE(AINDEX+7) = 0 134 LM00235
01074 CLA +0 50000 0 67664 01075 ADD +0 40000 0 00237 01076 PAX +0 73400 1 00000 01077 CLA +0 50000 0 00230
01100 STO +0 60100 1 77461
A = A+1 135 LM00236
01101 CLA +0 50000 0 00160 01102 ADD +0 40000 0 00231 01103 STO +0 60100 0 00160
O'R ((A+1) .GE. ENDARG) 136 LM00237
01104 TRA +0 02000 0 01231 01105 CLA +0 50000 0 00160 01106 ADD +0 40000 0 00231 01107 SUB +0 40200 0 00165
01110 TZE +0 10000 0 01112 01111 TMI -0 12000 0 01114
T'O IGNORE 137 LM00238
01112 TRA +0 02000 0 00114
O'E 138 LM00239
01113 TRA +0 02000 0 01231
TABLE(AINDEX+9) = 8/TABLE(AINDEX+9) 139 LM00240
01114 CLA +0 50000 0 67664 01115 ADD +0 40000 0 00241 01116 PAX +0 73400 2 00000 01117 LDQ +0 56000 0 00240
01120 PXD -0 75400 0 00000 01121 LLS +0 76300 0 00000 01122 DVP +0 22100 2 77461 01123 STQ -0 60000 0 01516
01124 CLA +0 50000 0 67664 01125 ADD +0 40000 0 00241 01126 PAX +0 73400 1 00000 01127 CLA +0 50000 0 01516
01130 STO +0 60100 1 77461
W'R A(A) .E. STAR 140 LM00241
01131 LXA +0 53400 1 00160 01132 CLA +0 50000 1 00160 01133 SUB +0 40200 0 00226 01134 TNZ -0 10000 0 01143
TABLE(AINDEX+7) = 0 141 LM00242
01135 CLA +0 50000 0 67664 01136 ADD +0 40000 0 00237 01137 PAX +0 73400 1 00000 01140 CLA +0 50000 0 00230
01141 STO +0 60100 1 77461
O'E 142 LM00243
01142 TRA +0 02000 0 01160
TABLE(AINDEX+7) = TIMECV.(A(A),IGNORE) 143 LM00244
01143 CLA +0 50000 0 00160 01144 SUB +0 40200 0 01145 01145 TXH +3 00000 0 00160 01146 STA +0 62100 0 01150
01147 TSX +0 07400 4 00033 01150 TXH +3 00000 0 00000 01151 TXH +3 00000 0 00114 01152 STO +0 60100 0 01516
01153 CLA +0 50000 0 67664 01154 ADD +0 40000 0 00237 01155 PAX +0 73400 1 00000 01156 CLA +0 50000 0 01516
01157 STO +0 60100 1 77461
E'L 144 LM00245
W'R A(A+1) .E. F 145 LM00246
01160 CLA +0 50000 0 00160 01161 ADD +0 40000 0 00231 01162 PAX +0 73400 1 00000 01163 CLA +0 50000 1 00160
01164 SUB +0 40200 0 00167 01165 TNZ -0 10000 0 01174
TABLE(AINDEX+8) = 0 146 LM00247
01166 CLA +0 50000 0 67664 01167 ADD +0 40000 0 00240 01170 PAX +0 73400 1 00000 01171 CLA +0 50000 0 00230
01172 STO +0 60100 1 77461
O'R A(A+1) .E. L 147 LM00248
01173 TRA +0 02000 0 01226 01174 CLA +0 50000 0 00160 01175 ADD +0 40000 0 00231 01176 PAX +0 73400 1 00000
01177 CLA +0 50000 1 00160 01200 SUB +0 40200 0 00173 01201 TNZ -0 10000 0 01210
TABLE(AINDEX+8) = FENCE 148 LM00249
01202 CLA +0 50000 0 67664 01203 ADD +0 40000 0 00240 01204 PAX +0 73400 1 00000 01205 CLA +0 50000 0 67656
01206 STO +0 60100 1 77461
O'E 149 LM00250
01207 TRA +0 02000 0 01226
TABLE(AINDEX+8) = TIMECV.(A(A+1),IGNORE) 150 LM00251
01210 CLA +0 50000 0 00160 01211 ADD +0 40000 0 00231 01212 SUB +0 40200 0 01213 01213 TXH +3 00000 0 00160
01214 STA +0 62100 0 01216 01215 TSX +0 07400 4 00033 01216 TXH +3 00000 0 00000 01217 TXH +3 00000 0 00114
01220 STO +0 60100 0 01516 01221 CLA +0 50000 0 67664 01222 ADD +0 40000 0 00240 01223 PAX +0 73400 1 00000
01224 CLA +0 50000 0 01516 01225 STO +0 60100 1 77461
E'L 151 LM00252
A = A+2 152 LM00253
01226 CLA +0 50000 0 00160 01227 ADD +0 40000 0 00232 01230 STO +0 60100 0 00160
E'L 153 LM00254
START = A 154 LM00255
01231 CLA +0 50000 0 00160 01232 STO +0 60100 0 00227
T'O LOOP3 155 LM00256
01233 TRA +0 02000 0 00117
IGNORE T'H LOOP2, FOR I=START,1,I.G.ENDARG 156 LM00260
01234 CLA +0 50000 0 00227 01235 STO +0 60100 0 00171 01236 TRA +0 02000 0 01242 01237 CLA +0 50000 0 00171
01240 ADD +0 40000 0 00231 01241 STO +0 60100 0 00171 01242 CLA +0 50000 0 00171 01243 SUB +0 40200 0 00165
01244 TZE +0 10000 0 01246 01245 TPL +0 12000 0 01265
J = 2 * (I - START) 157 LM00261
01246 CLA +0 50000 0 00171 01247 SUB +0 40200 0 00227 01250 XCA +0 13100 0 00000 01251 MPY +0 20000 0 00232
01252 STQ -0 60000 0 00172
LINE(J) = A(I) 158 LM00262
01253 LXA +0 53400 1 00172 01254 LXA +0 53400 2 00171 01255 CLA +0 50000 2 00160 01256 STO +0 60100 1 00075
LINE(J+1) = BLANK1 159 LM00263
01257 CLA +0 50000 0 00172 01260 ADD +0 40000 0 00231 01261 PAX +0 73400 1 00000 01262 CLA +0 50000 0 00162
01263 STO +0 60100 1 00075
LOOP2 C'E 160 LM00264
01264 TRA +0 02000 0 01237
PRNTP.(MESS2) 161 LM00265
01265 TSX +0 07400 4 00023 01266 TXH +3 00000 0 00101
TABLE(AINDEX+2) = 0 162 LM00266
01267 CLA +0 50000 0 67664 01270 ADD +0 40000 0 00232 01271 PAX +0 73400 1 00000 01272 CLA +0 50000 0 00230
01273 STO +0 60100 1 77461
T'O PAUSE 163 LM00267
01274 TRA +0 02000 0 00126
LOOP3 C'E 164 LM00269
01275 TRA +0 02000 0 00376
W'R (AINDEX.G.TABLIM), T'O ROAR 165 LM00270
01276 CLA +0 50000 0 67664 01277 SUB +0 40200 0 67652 01300 TZE +0 10000 0 01303 01301 TMI -0 12000 0 01303
01302 TRA +0 02000 0 00127
W'R MORE, T'O PAUSE 166 LM00274
01303 NZT -0 52000 0 00216 01304 TRA +0 02000 0 01306 01305 TRA +0 02000 0 00126
ROAR FERRTN.(ERR) 167 LM00278
01306 TSX +0 07400 4 00017 01307 TXH +3 00000 0 00106
CKTAB CKENT.(ENDUP) 168 LM00282
01310 TSX +0 07400 4 00004 01311 TXH +3 00000 0 00105
UNIT = SETTAP.(0) 169 LM00286
01312 TSX +0 07400 4 00030 01313 TXH +3 00000 0 00230 01314 STO +0 60100 0 67663
W'R UNIT .E. 0, T'O ENDUP 170 LM00287
01315 CLA +0 50000 0 67663 01316 SUB +0 40200 0 00230 01317 TNZ -0 10000 0 01321 01320 TRA +0 02000 0 00105
GETMOR STAPE.(MZE,MZE,LPREAM) 171 LM00291
01321 TSX +0 07400 4 00031 01322 TXH +3 00000 0 67660 01323 TXH +3 00000 0 67660 01324 TXH +3 00000 0 67651
RDTAPE.(HEADER,LPREAM,DRAIN,ENDTAP,DRAIN,GETMR3,ENDTAP) 172 LM00292
01325 TSX +0 07400 4 00026 01326 TXH +3 00000 0 74513 01327 TXH +3 00000 0 67651 01330 TXH +3 00000 0 74476
01331 TXH +3 00000 0 00103 01332 TXH +3 00000 0 74476 01333 TXH +3 00000 0 00113 01334 TXH +3 00000 0 00103
GETMR1 W'R SWT.(5) 173 LM00294
01335 TSX +0 07400 4 00032 01336 TXH +3 00000 0 00235 01337 TZE +0 10000 0 01357
LINE(0) = PB 174 LM00295
01340 CLA +0 50000 0 74477 01341 STO +0 60100 0 00075
LINE(1) = PG 175 LM00296
01342 CLA +0 50000 0 74500 01343 STO +0 60100 0 00074
LINE(2) = HEADER(7) 176 LM00297
01344 CLA +0 50000 0 74504 01345 STO +0 60100 0 00073
LINE(3) = HEADER(6) 177 LM00298
01346 CLA +0 50000 0 74505 01347 STO +0 60100 0 00072
LINE(4) = CVTIME.(DND) 178 LM00299
01350 TSX +0 07400 4 00010 01351 TXH +3 00000 0 74503 01352 STO +0 60100 0 00071
LINE(5) = FENCE 179 LM00300
01353 CLA +0 50000 0 67656 01354 STO +0 60100 0 00070
PRNTP.(LINE) 180 LM00301
01355 TSX +0 07400 4 00023 01356 TXH +3 00000 0 00075
E'L 181 LM00302
DECIDE.(HEADER,YES,NO,1B) 182 LM00306
01357 TSX +0 07400 4 00012 01360 TXH +3 00000 0 74513 01361 TXH +3 00000 0 00133 01362 TXH +3 00000 0 00125
01363 TXH +3 00000 0 00231
NO DRAINW.(MZE,LRCT.RS.18,WC,ENDTAP,DRAIN,GETMR3,ENDTAP) 183 LM00308
01364 CAL -0 50000 0 00244 01365 STA +0 62100 0 01367 01366 CAL -0 50000 0 74512 01367 LGR -0 76500 0 00000
01370 SLW +0 60200 0 01516 01371 TSX +0 07400 4 00015 01372 TXH +3 00000 0 67660 01373 TXH +3 00000 0 01516
01374 TXH +3 00000 0 74511 01375 TXH +3 00000 0 00103 01376 TXH +3 00000 0 74476 01377 TXH +3 00000 0 00113
01400 TXH +3 00000 0 00103
T'O GETMOR 184 LM00309
01401 TRA +0 02000 0 00110
YES W'R (HEADER(7).E.USERF).AND.(HEADER(6).E.ILEDI) 185 LM00314
01402 CLA +0 50000 0 74505 01403 SUB +0 40200 0 67654 01404 TNZ -0 10000 0 01414 01405 CLA +0 50000 0 74504
01406 SUB +0 40200 0 67655 01407 TNZ -0 10000 0 01414
CKUFD.(GETMR2,ERR) 186 LM00315
01410 TSX +0 07400 4 00005 01411 TXH +3 00000 0 00112 01412 TXH +3 00000 0 00106
O'E 187 LM00316
01413 TRA +0 02000 0 01417
LDFILE.(GETMR2,ENDUP1) 188 LM00317
01414 TSX +0 07400 4 00021 01415 TXH +3 00000 0 00112 01416 TXH +3 00000 0 00104
E'L 189 LM00318
RECAP.(0B,ENDTAP) 190 LM00322
01417 TSX +0 07400 4 00027 01420 TXH +3 00000 0 00230 01421 TXH +3 00000 0 00103
T'O GETMOR 191 LM00323
01422 TRA +0 02000 0 00110
GETMR2 RECAP.(0B,ENDTAP) 192 LM00324
01423 TSX +0 07400 4 00027 01424 TXH +3 00000 0 00230 01425 TXH +3 00000 0 00103
GETMR3 THROUGH LOOP4, FOR I = 1,1,I .G. LPREAM 193 LM00325
01426 CLA +0 50000 0 00231 01427 STO +0 60100 0 00171 01430 TRA +0 02000 0 01434 01431 CLA +0 50000 0 00171
01432 ADD +0 40000 0 00231 01433 STO +0 60100 0 00171 01434 CLA +0 50000 0 00171 01435 SUB +0 40200 0 67651
01436 TZE +0 10000 0 01440 01437 TPL +0 12000 0 01445
LOOP4 HEADER(I) = HEDER2(I) 194 LM00326
01440 LXA +0 53400 1 00171 01441 LXA +0 53400 2 00171 01442 CLA +0 50000 2 67636 01443 STO +0 60100 1 74513
01444 TRA +0 02000 0 01431
T'O GETMR1 195 LM00327
01445 TRA +0 02000 0 00111
ENDTAP CLOSE.(D,T,ERR) 196 LM00331
01446 TSX +0 07400 4 00006 01447 TXH +3 00000 0 67662 01450 TXH +3 00000 0 67661 01451 TXH +3 00000 0 00106
UMOUNT.(UNIT,MESS4(5)...5,ERR,ERCODE) 197 LM00332
01452 TSX +0 07400 4 00034 01453 TXH +3 00000 0 67663 01454 TIX +2 00235 0 00210 01455 TXH +3 00000 0 00106
01456 TXH +3 00000 0 00166
RECAP.(1B,CKTAB) 198 LM00333
01457 TSX +0 07400 4 00027 01460 TXH +3 00000 0 00231 01461 TXH +3 00000 0 00102
T'O CKTAB 199 LM00334
01462 TRA +0 02000 0 00102
ERR PRNTER. 200 LM00336
01463 TSX +0 07400 4 00022
RECAP.(1B,ENDUP1) 201 LM00337
01464 TSX +0 07400 4 00027 01465 TXH +3 00000 0 00231 01466 TXH +3 00000 0 00104
T'O ENDUP1 202 LM00338
01467 TRA +0 02000 0 00104
ENDUP PRNTP.(MESS3) 203 LM00342
01470 TSX +0 07400 4 00023 01471 TXH +3 00000 0 00207
ENDUP1 ATTACH.(HPROB,HPROG,NERR3) 204 LM00343
01472 TSX +0 07400 4 00000 01473 TXH +3 00000 0 67650 01474 TXH +3 00000 0 67647 01475 TXH +3 00000 0 00123
NERR3 CLOSE.($ALL$,MZE,NERR1) 205 LM00344
01476 TSX +0 07400 4 00006 01477 TXH +3 00000 0 00246 01500 TXH +3 00000 0 67660 01501 TXH +3 00000 0 00121
NERR1 UMOUNT.($ALL$,MESS4(5)...2,NERR2,ERCODE) 206 LM00345
01502 TSX +0 07400 4 00034 01503 TXH +3 00000 0 00246 01504 TIX +2 00232 0 00210 01505 TXH +3 00000 0 00122
01506 TXH +3 00000 0 00166
NERR2 DELFIL.(D,T,NERR4) 207 LM00346
01507 TSX +0 07400 4 00013 01510 TXH +3 00000 0 67662 01511 TXH +3 00000 0 67661 01512 TXH +3 00000 0 00124
NERR4 CHNCOM.(1) 208 LM00347
01513 TSX +0 07400 4 00003 01514 TXH +3 00000 0 00231
E'M 209 LM00349
01515 TSX +0 07400 4 00016
CKENT BCD 05/28/67 2015.5 5750 00000
1 MAD PROGRAM LISTING ... ... ... FILE CKENT MAD 05/28/67 1920.9
-
CHECK FOR TROUBLES WITH MFD, ETC. LM00001
ALSO, SEE IF THERE IS WORK TO DO LM00002
D.R. WIDRIG DEC. 1965 LM00003
LM00004
EXTERNAL FUNCTION (Y) *001 LM00005
INSERT FILE COM *002 LM00006
*002 LM00001
NORMAL MODE IS INTEGER *003 LM00002
BOOLEAN SWT. *004 LM00003
LM00004
DIMENSION TABLE(210),BUFF(432),BUFF1(432),BUFF2(432) *005 LM00005
DIMENSION HEADER(12),UFD(7),DRAIN(432),LODTAB(2000) *006 LM00006
EQUIVALENCE (PB,HEADER(12)),(PG,HEADER(11)),(DND,HEADER(8)), *007 LM00007
1 (WC,HEADER(2)),(LRCT,HEADER(1)) *007 LM00008
PROGRAM COMMON TABLE,BUFF,BUFF1,BUFF2 *008 LM00009
PROGRAM COMMON HEADER,DRAIN,UFD,LODTAB *009 LM00010
PROGRAM COMMON AINDEX,UNIT,D,T,MZE,TFUDG,FENCE,USERF,ILEDI,PRIV *010 LM00011
PROGRAM COMMON TABLIM,LPREAM,HPROB,HPROG,CURPTR,AUTHOR,LINDEX *011 LM00012
PROGRAM COMMON LODLIM,SYSTEM,DAEMON,REELNO,TSKLTH *012 LM00013
LM00014
VECTOR VALUES FENCE = 777777777777K *013 LM00015
VECTOR VALUES MZE = 4K11 *014 LM00016
VECTOR VALUES TFUDG = 1800 *015 LM00017
VECTOR VALUES TABLIM = 200 *016 LM00018
VECTOR VALUES LODLIM = 2000 *017 LM00019
VECTOR VALUES LPREAM = 12 *018 LM00020
VECTOR VALUES TSKLTH = 11 *019 LM00021
LM00022
VECTOR VALUES SYSTEM = $ C0056$ *020 LM00023
VECTOR VALUES DAEMON = $ 99999$ *021 LM00024
VECTOR VALUES D = $(DUMP)$ *022 LM00025
VECTOR VALUES T = $(TAPE)$ *023 LM00026
VECTOR VALUES USERF = $USER F$ *024 LM00027
VECTOR VALUES ILEDI = $ILE DI$ *025 LM00028
DIMENSION HEDER2(12) *026 LM00029
PROGRAM COMMON HEDER2 *027 LM00030
LM00031
STATEMENT LABEL Y *028 LM00007
BOOLEAN GO *029 LM00008
LM00009
VECTOR VALUES MESS1 = $ USER $,0,575757575760K,0, *030 LM00010
1 $ NOT FOUND IN M.F.D.$,777777777777K *030 LM00011
VECTOR VALUES MESS2 = $ FILE $,0,575757575760K,0,$ ALREADY EXISTS IN$, *031 LM00012
1 $ U.F.D. OF $,0,575757575760K,0,777777777777K *031 LM00013
LM00014
ENTRY TO CKENT. *032 LM00015
GO = 0B *033 LM00016
LM00017
SEARCH TABLE FOR TROUBLE SPOTS LM00018
LM00019
THROUGH LOOP1, FOR I = 0,TSKLTH,(I.GE.AINDEX) *034 LM00020
WHENEVER (TABLE(I+2).E.0).OR.(TABLE(I+10).NE.0), TRANSFER TO LOOP1 *035 LM00021
LM00022
MAKE SURE USER EXISTS LM00023
LM00024
ATTACH.(TABLE(I+2),TABLE(I+3),ERR,ERCODE) *036 LM00025
LM00026
USER EXISTS, DOES FILE EXIST ALREADY LM00027
LM00028
WHENEVER (TABLE(I+4).E.FENCE).OR.(TABLE(I+5).E.FENCE) *037 LM00029
NOFILE GO = 1B *038 LM00030
TRANSFER TO LOOP1 *039 LM00031
OTHERWISE *040 LM00032
FSTATE.(TABLE(I+4),TABLE(I+5),DRAIN(2)...2, *041 LM00033
1 ABSENT,ERCODE) *041 LM00034
LM00035
FILE EXISTS, CHECK FOR ''REMOVED'' FILE LM00036
LM00037
WHENEVER ((DRAIN(1).A.202K).NE.0), TRANSFER TO NOFILE *042 LM00038
LM00039
EXISTS MESS2(1) = TABLE(I+4) *043 LM00040
MESS2(3) = TABLE(I+5) *044 LM00041
MESS2(9) = TABLE(I+2) *045 LM00042
MESS2(11) = TABLE(I+3) *046 LM00043
PRNTP.(MESS2) *047 LM00044
MAIL.(TABLE(I+2),TABLE(I+3),MESS2,1B) *048 LM00045
TABLE(I+2) = 0 *049 LM00046
TRANSFER TO LOOP1 *050 LM00047
END OF CONDITIONAL *051 LM00048
LM00049
ABSENT ERROR FROM FSTATE, CHECK IT LM00050
LM00051
ABSENT WHENEVER (ERCODE.E.4).OR.(ERCODE.E.5) *052 LM00052
TRANSFER TO EXISTS *053 LM00053
OTHERWISE *054 LM00054
TRANSFER TO NOFILE *055 LM00055
END OF CONDITIONAL *056 LM00056
LM00057
ERROR FROM ATTACH, CHECK IT LM00058
LM00059
ERR WHENEVER ERCODE.E.3 *057 LM00060
MESS1(1) = TABLE(I+2) *058 LM00061
MESS1(3) = TABLE(I+3) *059 LM00062
PRNTP.(MESS1) *060 LM00063
TABLE(I+2) = 0 *061 LM00064
OTHERWISE *062 LM00065
PRNTER. *063 LM00066
TABLE(I+2) = 0 *064 LM00067
END OF CONDITIONAL *065 LM00068
LM00069
LOOP1 CONTINUE *066 LM00070
LM00071
WHENEVER GO .AND. (LINDEX.L.LODLIM) *067 LM00072
FUNCTION RETURN *068 LM00073
OTHERWISE *069 LM00074
TRANSFER TO Y *070 LM00075
END OF CONDITIONAL *071 LM00076
LM00077
END OF FUNCTION *072 LM00078
1MAD PROGRAM,TYPE NOV 1963 (ALL NUMBERS ARE OCTAL)
0TOTAL LOCATIONS 00347 TRANSFER VECTOR LENGTH 00006 PROGRAM BEGINS 00056 FIRST UNUSED COMMON/ERASABLE 67621
0 PROGRAM IS AN EXTERNAL FUNCTION. THE FOLLOWING ARE ENTRIES
CKENT 00057 0
0VARIABLE STORAGE (A=ARRAY,C=COMMON,E=ERASABLE,DIGIT=MODE)
ABSENT 00007 4 D 67662 AC1 HPROG 67647 C1 MESS1 00027 A 1 TABLE 77461 AC1
AINDEX 67664 C1 ERCODE 00014 1 ILEDI 67654 AC1 MESS2 00044 A 1 TABLIM 67652 AC1
AUTHOR 67645 C1 ERR 00010 4 I 00016 1 MZE 67660 AC1 TFUDG 67657 AC1
BUFF1 76255 AC1 EXISTS 00011 4 LINDEX 67644 C1 NOFILE 00013 4 T 67661 AC1
BUFF2 75374 AC1 FENCE 67656 AC1 LODLIM 67643 AC1 PB 74477 C1 TSKLTH 67637 AC1
BUFF 77136 AC1 GO 00015 2 LODTAB 73605 AC1 PG 74500 C1 UFD 73615 AC1
CURPTR 67646 C1 HEADER 74513 AC1 LOOP1 00012 4 PRIV 67653 C1 UNIT 67663 C1
DAEMON 67641 AC1 HEDER2 67636 AC1 LPREAM 67651 AC1 REELNO 67640 C1 USERF 67655 AC1
DND 74503 C1 HPROB 67650 C1 LRCT 74512 C1 SYSTEM 67642 AC1 WC 74511 C1
DRAIN 74476 AC1
0FUNCTION DICTIONARY
ATTACH 00000 1 EXIT 00001 1 FSTATE 00002 1 MAIL 00003 1 PRNTER 00004 1
PRNTP 00005 1
0ABSOLUTE CONSTANTS
00054 +000000000202 00051 +000000000004 00052 +000000000005 00050 +000000000003 00047 +000000000002
00053 +000000000012 00045 +000000000000 00046 +000000000001 00055 +233000000000
0STATEMENT DICTIONARY
00007 TXL -300261000253 00010 TXL -300267000264 00011 TXL -300205000200 00012 TXL -300320000317
00013 TXL -300147000145
0PROGRAM
EXTERNAL FUNCTION (Y) 001 LM00005
I'E COM 002 LM00006
N'R 003 LM00002
B'N SWT. 004 LM00003
D'N TABLE(210),BUFF(432),BUFF1(432),BUFF2(432) 005 LM00005
D'N HEADER(12),UFD(7),DRAIN(432),LODTAB(2000) 006 LM00006
E'E (PB,HEADER(12)),(PG,HEADER(11)),(DND,HEADER(8)), 007 LM00007
1 (WC,HEADER(2)),(LRCT,HEADER(1)) 007 LM00008
P'N TABLE,BUFF,BUFF1,BUFF2 008 LM00009
P'N HEADER,DRAIN,UFD,LODTAB 009 LM00010
P'N AINDEX,UNIT,D,T,MZE,TFUDG,FENCE,USERF,ILEDI,PRIV 010 LM00011
P'N TABLIM,LPREAM,HPROB,HPROG,CURPTR,AUTHOR,LINDEX 011 LM00012
P'N LODLIM,SYSTEM,DAEMON,REELNO,TSKLTH 012 LM00013
V'S FENCE = 777777777777K 013 LM00015
67656 -3 77777 7 77777
V'S MZE = 4K11 014 LM00016
67660 -0 00000 0 00000
V'S TFUDG = 1800 015 LM00017
67657 +0 00000 0 03410
V'S TABLIM = 200 016 LM00018
67652 +0 00000 0 00310
V'S LODLIM = 2000 017 LM00019
67643 +0 00000 0 03720
V'S LPREAM = 12 018 LM00020
67651 +0 00000 0 00014
V'S TSKLTH = 11 019 LM00021
67637 +0 00000 0 00013
V'S SYSTEM = $ C0056$ 020 LM00023
67642 -2 02300 0 00506
V'S DAEMON = $ 99999$ 021 LM00024
67641 -2 01111 1 11111
V'S D = $(DUMP)$ 022 LM00025
67662 -3 42464 4 44734
V'S T = $(TAPE)$ 023 LM00026
67661 -3 46321 4 72534
V'S USERF = $USER F$ 024 LM00027
67655 -2 46225 5 16026
V'S ILEDI = $ILE DI$ 025 LM00028
67654 +3 14325 6 02431
DIMENSION HEDER2(12) 026 LM00029
P'N HEDER2 027 LM00030
S'L Y 028 LM00007
B'N GO 029 LM00008
V'S MESS1 = $ USER $,0,575757575760K,0, 030 LM00010
1 $ NOT FOUND IN M.F.D.$,777777777777K 030 LM00011
00017 -3 77777 7 77777 00020 +2 43360 6 06060 00021 -0 56044 3 32633 00022 -0 66445 2 46031
00023 -2 04546 6 36026 00024 +0 00000 0 00000 00025 -1 75757 5 75760 00026 +0 00000 0 00000
00027 -2 06462 2 55160
V'S MESS2 = $ FILE $,0,575757575760K,0,$ ALREADY EXISTS IN$, 031 LM00012
1 $ U.F.D. OF $,0,575757575760K,0,777777777777K 031 LM00013
00030 -3 77777 7 77777 00031 +0 00000 0 00000 00032 -1 75757 5 75760 00033 +0 00000 0 00000
00034 +3 36046 2 66060 00035 -2 06433 2 63324 00036 -2 26362 6 03145 00037 +2 47060 2 56731
00040 -2 02143 5 12521 00041 +0 00000 0 00000 00042 -1 75757 5 75760 00043 +0 00000 0 00000
00044 -2 02631 4 32560
E'O CKENT. 032 LM00015
00056 TRA +0 02000 0 00061 00057 SXA +0 63400 2 00332 00060 TSX +0 07400 2 00332
GO = 0B 033 LM00016
00061 CLA +0 50000 0 00045 00062 STO +0 60100 0 00015
T'H LOOP1, FOR I = 0,TSKLTH,(I.GE.AINDEX) 034 LM00020
00063 CLA +0 50000 0 00045 00064 STO +0 60100 0 00016 00065 TRA +0 02000 0 00071 00066 CLA +0 50000 0 00016
00067 ADD +0 40000 0 67637 00070 STO +0 60100 0 00016 00071 CLA +0 50000 0 00016 00072 SUB +0 40200 0 67664
00073 TZE +0 10000 0 00320 00074 TPL +0 12000 0 00320
W'R (TABLE(I+2).E.0).OR.(TABLE(I+10).NE.0), T'O LOOP1 035 LM00021
00075 CLA +0 50000 0 00016 00076 ADD +0 40000 0 00053 00077 PAX +0 73400 1 00000 00100 CLA +0 50000 1 77461
00101 SUB +0 40200 0 00045 00102 TNZ -0 10000 0 00111 00103 CLA +0 50000 0 00016 00104 ADD +0 40000 0 00047
00105 PAX +0 73400 1 00000 00106 CLA +0 50000 1 77461 00107 SUB +0 40200 0 00045 00110 TNZ -0 10000 0 00112
00111 TRA +0 02000 0 00012
ATTACH.(TABLE(I+2),TABLE(I+3),ERR,ERCODE) 036 LM00025
00112 CLA +0 50000 0 00016 00113 ADD +0 40000 0 00050 00114 SUB +0 40200 0 00115 00115 TXH +3 00000 0 77461
00116 STA +0 62100 0 00126 00117 CLA +0 50000 0 00016 00120 ADD +0 40000 0 00047 00121 SUB +0 40200 0 00122
00122 TXH +3 00000 0 77461 00123 STA +0 62100 0 00125 00124 TSX +0 07400 4 00000 00125 TXH +3 00000 0 00000
00126 TXH +3 00000 0 00000 00127 TXH +3 00000 0 00010 00130 TXH +3 00000 0 00014
W'R (TABLE(I+4).E.FENCE).OR.(TABLE(I+5).E.FENCE) 037 LM00029
00131 CLA +0 50000 0 00016 00132 ADD +0 40000 0 00052 00133 PAX +0 73400 1 00000 00134 CLA +0 50000 1 77461
00135 SUB +0 40200 0 67656 00136 TZE +0 10000 0 00145 00137 CLA +0 50000 0 00016 00140 ADD +0 40000 0 00051
00141 PAX +0 73400 1 00000 00142 CLA +0 50000 1 77461 00143 SUB +0 40200 0 67656 00144 TNZ -0 10000 0 00151
NOFILE GO = 1B 038 LM00030
00145 CLA +0 50000 0 00046 00146 STO +0 60100 0 00015
T'O LOOP1 039 LM00031
00147 TRA +0 02000 0 00012
O'E 040 LM00032
00150 TRA +0 02000 0 00253
FSTATE.(TABLE(I+4),TABLE(I+5),DRAIN(2)...2, 041 LM00033
1 ABSENT,ERCODE) 041 LM00034
00151 CLA +0 50000 0 00016 00152 ADD +0 40000 0 00052 00153 SUB +0 40200 0 00154 00154 TXH +3 00000 0 77461
00155 STA +0 62100 0 00165 00156 CLA +0 50000 0 00016 00157 ADD +0 40000 0 00051 00160 SUB +0 40200 0 00161
00161 TXH +3 00000 0 77461 00162 STA +0 62100 0 00164 00163 TSX +0 07400 4 00002 00164 TXH +3 00000 0 00000
00165 TXH +3 00000 0 00000 00166 TIX +2 00047 0 74474 00167 TXH +3 00000 0 00007 00170 TXH +3 00000 0 00014
W'R ((DRAIN(1).A.202K).NE.0), T'O NOFILE 042 LM00038
00171 CAL -0 50000 0 74475 00172 ANA -0 32000 0 00054 00173 SLW +0 60200 0 00344 00174 CLA +0 50000 0 00344
00175 SUB +0 40200 0 00045 00176 TZE +0 10000 0 00200 00177 TRA +0 02000 0 00013
EXISTS MESS2(1) = TABLE(I+4) 043 LM00040
00200 CLA +0 50000 0 00016 00201 ADD +0 40000 0 00051 00202 PAX +0 73400 2 00000 00203 CLA +0 50000 2 77461
00204 STO +0 60100 0 00043
MESS2(3) = TABLE(I+5) 044 LM00041
00205 CLA +0 50000 0 00016 00206 ADD +0 40000 0 00052 00207 PAX +0 73400 2 00000 00210 CLA +0 50000 2 77461
00211 STO +0 60100 0 00041
MESS2(9) = TABLE(I+2) 045 LM00042
00212 CLA +0 50000 0 00016 00213 ADD +0 40000 0 00047 00214 PAX +0 73400 2 00000 00215 CLA +0 50000 2 77461
00216 STO +0 60100 0 00033
MESS2(11) = TABLE(I+3) 046 LM00043
00217 CLA +0 50000 0 00016 00220 ADD +0 40000 0 00050 00221 PAX +0 73400 2 00000 00222 CLA +0 50000 2 77461
00223 STO +0 60100 0 00031
PRNTP.(MESS2) 047 LM00044
00224 TSX +0 07400 4 00005 00225 TXH +3 00000 0 00044
MAIL.(TABLE(I+2),TABLE(I+3),MESS2,1B) 048 LM00045
00226 CLA +0 50000 0 00016 00227 ADD +0 40000 0 00050 00230 SUB +0 40200 0 00231 00231 TXH +3 00000 0 77461
00232 STA +0 62100 0 00242 00233 CLA +0 50000 0 00016 00234 ADD +0 40000 0 00047 00235 SUB +0 40200 0 00236
00236 TXH +3 00000 0 77461 00237 STA +0 62100 0 00241 00240 TSX +0 07400 4 00003 00241 TXH +3 00000 0 00000
00242 TXH +3 00000 0 00000 00243 TXH +3 00000 0 00044 00244 TXH +3 00000 0 00046
TABLE(I+2) = 0 049 LM00046
00245 CLA +0 50000 0 00016 00246 ADD +0 40000 0 00047 00247 PAX +0 73400 1 00000 00250 CLA +0 50000 0 00045
00251 STO +0 60100 1 77461
T'O LOOP1 050 LM00047
00252 TRA +0 02000 0 00012
E'L 051 LM00048
ABSENT W'R (ERCODE.E.4).OR.(ERCODE.E.5) 052 LM00052
00253 CLA +0 50000 0 00014 00254 SUB +0 40200 0 00052 00255 TZE +0 10000 0 00261 00256 CLA +0 50000 0 00014
00257 SUB +0 40200 0 00051 00260 TNZ -0 10000 0 00263
T'O EXISTS 053 LM00053
00261 TRA +0 02000 0 00011
O'E 054 LM00054
00262 TRA +0 02000 0 00264
T'O NOFILE 055 LM00055
00263 TRA +0 02000 0 00013
E'L 056 LM00056
ERR W'R ERCODE.E.3 057 LM00060
00264 CLA +0 50000 0 00014 00265 SUB +0 40200 0 00050 00266 TNZ -0 10000 0 00311
MESS1(1) = TABLE(I+2) 058 LM00061
00267 CLA +0 50000 0 00016 00270 ADD +0 40000 0 00047 00271 PAX +0 73400 2 00000 00272 CLA +0 50000 2 77461
00273 STO +0 60100 0 00026
MESS1(3) = TABLE(I+3) 059 LM00062
00274 CLA +0 50000 0 00016 00275 ADD +0 40000 0 00050 00276 PAX +0 73400 2 00000 00277 CLA +0 50000 2 77461
00300 STO +0 60100 0 00024
PRNTP.(MESS1) 060 LM00063
00301 TSX +0 07400 4 00005 00302 TXH +3 00000 0 00027
TABLE(I+2) = 0 061 LM00064
00303 CLA +0 50000 0 00016 00304 ADD +0 40000 0 00047 00305 PAX +0 73400 1 00000 00306 CLA +0 50000 0 00045
00307 STO +0 60100 1 77461
O'E 062 LM00065
00310 TRA +0 02000 0 00317
PRNTER. 063 LM00066
00311 TSX +0 07400 4 00004
TABLE(I+2) = 0 064 LM00067
00312 CLA +0 50000 0 00016 00313 ADD +0 40000 0 00047 00314 PAX +0 73400 1 00000 00315 CLA +0 50000 0 00045
00316 STO +0 60100 1 77461
E'L 065 LM00068
LOOP1 C'E 066 LM00070
00317 TRA +0 02000 0 00066
W'R GO .AND. (LINDEX.L.LODLIM) 067 LM00072
00320 CLA +0 50000 0 67644 00321 SUB +0 40200 0 67643 00322 TZE +0 10000 0 00330 00323 TPL +0 12000 0 00330
00324 NZT -0 52000 0 00015 00325 TRA +0 02000 0 00330
F'N 068 LM00073
00326 TRA +0 02000 0 00340
O'E 069 LM00074
00327 TRA +0 02000 0 00331
T'O Y 070 LM00075
00330 TRA +0 02000 0 00000
E'L 071 LM00076
E'N 072 LM00078
00331 TSX +0 07400 4 00001 00332 TXH +3 00000 0 00000 00333 SXD -0 63400 1 00332 00334 SXA +0 63400 4 00340
00335 CLA +0 50000 4 00001 00336 STA +0 62100 0 00330 00337 TRA +0 02000 2 00001 00340 AXT +0 77400 4 00000
00341 LXA +0 53400 2 00332 00342 LXD -0 53400 1 00332 00343 TRA +0 02000 4 00001
SETTAP BCD 05/28/67 2015.5 13100 00000
1 MAD PROGRAM LISTING ... ... ... FILE SETTAP MAD 05/28/67 1921.1
-
SELECT AND MOUNT A TAPE FOR RETRIEVALS LM00001
D.R. WIDRIG DEC. 1965 LM00002
LM00003
EXTERNAL FUNCTION *001 LM00004
INSERT FILE COM *002 LM00005
*002 LM00001
NORMAL MODE IS INTEGER *003 LM00002
BOOLEAN SWT. *004 LM00003
LM00004
DIMENSION TABLE(210),BUFF(432),BUFF1(432),BUFF2(432) *005 LM00005
DIMENSION HEADER(12),UFD(7),DRAIN(432),LODTAB(2000) *006 LM00006
EQUIVALENCE (PB,HEADER(12)),(PG,HEADER(11)),(DND,HEADER(8)), *007 LM00007
1 (WC,HEADER(2)),(LRCT,HEADER(1)) *007 LM00008
PROGRAM COMMON TABLE,BUFF,BUFF1,BUFF2 *008 LM00009
PROGRAM COMMON HEADER,DRAIN,UFD,LODTAB *009 LM00010
PROGRAM COMMON AINDEX,UNIT,D,T,MZE,TFUDG,FENCE,USERF,ILEDI,PRIV *010 LM00011
PROGRAM COMMON TABLIM,LPREAM,HPROB,HPROG,CURPTR,AUTHOR,LINDEX *011 LM00012
PROGRAM COMMON LODLIM,SYSTEM,DAEMON,REELNO,TSKLTH *012 LM00013
LM00014
VECTOR VALUES FENCE = 777777777777K *013 LM00015
VECTOR VALUES MZE = 4K11 *014 LM00016
VECTOR VALUES TFUDG = 1800 *015 LM00017
VECTOR VALUES TABLIM = 200 *016 LM00018
VECTOR VALUES LODLIM = 2000 *017 LM00019
VECTOR VALUES LPREAM = 12 *018 LM00020
VECTOR VALUES TSKLTH = 11 *019 LM00021
LM00022
VECTOR VALUES SYSTEM = $ C0056$ *020 LM00023
VECTOR VALUES DAEMON = $ 99999$ *021 LM00024
VECTOR VALUES D = $(DUMP)$ *022 LM00025
VECTOR VALUES T = $(TAPE)$ *023 LM00026
VECTOR VALUES USERF = $USER F$ *024 LM00027
VECTOR VALUES ILEDI = $ILE DI$ *025 LM00028
DIMENSION HEDER2(12) *026 LM00029
PROGRAM COMMON HEDER2 *027 LM00030
LM00031
VECTOR VALUES MESSV(1) = $N.F.T.$,$U.D.T.$,$S.D.T.$ *028 LM00006
VECTOR VALUES MESS1(1) = $ALS $,$ETRIEV$,$ FOR R$,0,$, TIME$,0, *029 LM00007
1 $ DATE $,0,$MOUNT $ *029 LM00008
VECTOR VALUES MESS2 = $NO TAPES AVAILABLE NOW$,777777777777K *030 LM00009
VECTOR VALUES MESS3 = $INCORRECT LABELING, WILL UNMOUNT AND TRY AGAIN$ *031 LM00010
1 ,777777777777K *031 LM00011
VECTOR VALUES MESS4(1) = $GAIN $,$ TRY A$,$LABEL,$,$ECTED $, *032 LM00012
1 $CH EXP$,$OT MAT$,$DOES N$,$LABEL $ *032 LM00013
VECTOR VALUES MESS5 = $NOW MOUNTING$,575757575760K,0,$ DATED$, *033 LM00014
1 575757575760K,0,$, TIME$,0,$ FOR RETRIEVAL$, *033 LM00015
2 777777777777K *033 LM00016
VECTOR VALUES MESS6 = $INCORRECT HEADER, WILL TRY AGAIN$, *034 LM00017
1 777777777777K *034 LM00018
VECTOR VALUES MESS7 = $HEADER$,0,0,$, WILL TRY AGAIN$,777777777777K *035 LM00019
VECTOR VALUES MESS8(1) = $AGAIN $,$, TRY $,0,$, TIME$,0, *036 LM00020
1 $ DATE $,$HEADER$ *036 LM00021
VECTOR VALUES MESS9 = $CANNOT MOUNT TAPE FOR $,0,575757575760K,0, *037 LM00022
1 777777777777K *037 LM00023
VECTOR VALUES MESS10 = $ERROR READING HEADER$,777777777777K *038 LM00024
VECTOR VALUES MESS11 = $TAPE IS MOUNTED AND CHECKED$,777777777777K *039 LM00025
VECTOR VALUES MESS12(1) = $EEL $,$NEXT R$,$UE TO $,$CONTIN$, *040 LM00026
1 $ WILL $,$ REEL.$,$END OF$ *040 LM00027
VECTOR VALUES MESS13 = $END OF REEL. NOW MOUNTING REEL$,0, *041 LM00028
1 $ OF DUMP TAPE$,777777777777K *041 LM00029
VECTOR VALUES MESS14(1) = 0,$EEL $,$T IS R$,$NCE. I$,$ SEQUE$, *042 LM00030
1 $APE IN$,$NEXT T$,$MOUNT $ *042 LM00031
VECTOR VALUES MESS15 = $TAPE MOUNTED WAS NOT IN SEQUENCE.$, *043 LM00032
1 $WILL UNMOUNT AND TRY AGAIN$,777777777777K *043 LM00033
VECTOR VALUES MESS16(1) = $ENCE $,$N SEQU$,$NEXT I$,$S NOT $, *044 LM00034
1 $TAPE I$ *044 LM00035
VECTOR VALUES LABL(1) = $ TAPE $,$E DUMP$,$ED-FIL$,$ CREAT$ *045 LM00036
1 ,$ TAPE $,$S DUMP$,$'-FILE$,$ USERS$, *045 LM00037
2 $ TAPE $,$S DUMP$,$M-FILE$,$ SYSTE$ *045 LM00038
LM00039
VECTOR VALUES HIODTM = 426 *046 LM00040
VECTOR VALUES HREEL = 424 *047 LM00041
LM00042
DIMENSION HSAVE(6),V(2) *048 LM00043
LM00044
LM00045
ENTRY TO SETTAP. *049 LM00046
ATTACH.(HPROB,HPROG) *050 LM00047
LM00048
GET A TAPE MOUNTED AND READY LM00049
LM00050
THROUGH LOOP1, FOR I = 0,TSKLTH,(I .GE. AINDEX) *051 LM00051
WHENEVER (TABLE(I+2).E.0).OR.(TABLE(I+10).NE.0), TRANSFER TO LOOP1 *052 LM00052
UNIT = TABLE(I+9)-1 *053 LM00053
MESS9(4) = TABLE(I+2) *054 LM00054
MESS9(6) = TABLE(I+3) *055 LM00055
UNIT4 = UNIT*4 *056 LM00056
CLEAR.(D,T) *057 LM00057
TAPFIL.(D,T,UNIT,1) *058 LM00058
LM00059
SET UP MOUNT MESSAGES LM00060
LM00061
MESS1(4) = CVTIME.(TABLE(I+7)) *059 LM00062
MESS1(6) = CVDATE.(TABLE(I+6)) *060 LM00063
MESS1(8) = MESSV(UNIT) *061 LM00064
MESS5(8) = MESS1(4) *062 LM00065
MESS5(6) = MESS1(6) *063 LM00066
MESS5(3) = MESS1(8) *064 LM00067
PRNTP.(MESS5) *065 LM00068
LM00069
MLABL MOUNT.(MZE,UNIT,MESS1(9)...9,NOTAPE) *066 LM00070
VERIFY.(UNIT,LABL(UNIT4)...4,TRBL,ERCODE) *067 LM00071
LM00072
READ AND CHECK HEADER RECORD LM00073
LM00074
OPEN.($R$,D,T,-0,3,ERR) *068 LM00075
BUFFER.(D,T,BUFF1(432)...432) *069 LM00076
RDWAIT.(D,T,0,DRAIN(432)...432,REOF,TEMP,ERR) *070 LM00077
TEMP = 432-UNIT4 *071 LM00078
LM00079
THROUGH LOOP2, FOR J=UNIT4,-1,J.L.(UNIT4-3) *072 LM00080
WHENEVER DRAIN(J+TEMP).E.LABL(J), TRANSFER TO LOOP2 *073 LM00081
PRNTP.(MESS6) *074 LM00082
TRANSFER TO TRBL2 *075 LM00083
LOOP2 CONTINUE *076 LM00084
LM00085
TEST FOR CORRECT DATE AND TIME LM00086
LM00087
WHENEVER TABLE(I+6).NE.(DRAIN(HIODTM).A.777777K6) *077 LM00088
LM00089
INCORRECT DATE, TRY AGAIN LM00090
LM00091
MESS7(2) = CVDATE.(DRAIN(HIODTM)) *078 LM00092
MESS7(1) = $ DATE $ *079 LM00093
OHME PRNTP.(MESS7) *080 LM00094
MESS8(5) = CVDATE.(DRAIN(HIODTM)) *081 LM00095
MESS8(3) = CVTIME.(DRAIN(HIODTM)) *082 LM00096
CLOSE.(D,T,ERR) *083 LM00097
UMOUNT.(UNIT,MESS8(7)...7,MLABL,ERCODE) *084 LM00098
TRANSFER TO MLABL *085 LM00099
OR WHENEVER (TABLE(I+7).NE.0).AND. *086 LM00100
1 (TABLE(I+7).L.(DRAIN(HIODTM).A.777777K)) *086 LM00101
LM00102
INCORRECT TIME, TRY AGAIN LM00103
LM00104
MESS7(2) = CVTIME.(DRAIN(HIODTM)) *087 LM00105
MESS7(1) = $ TIME $ *088 LM00106
TRANSFER TO OHME *089 LM00107
END OF CONDITIONAL *090 LM00108
LM00109
TAPE NOW READY, ROUTINE IS DONE LM00110
SAVE REEL NUMBER AND HEADER LM00111
LM00112
WHENEVER DRAIN(HREEL) .E. DRAIN(432) *091 LM00113
REELNO = 0 *092 LM00114
OTHERWISE *093 LM00115
REELNO = DRAIN(HREEL) *094 LM00116
END OF CONDITIONAL *095 LM00117
THROUGH LOOP3, FOR J=0,1,J.G.6 *096 LM00118
HSAVE(J) = DRAIN(432-J) *097 LM00119
LOOP3 CONTINUE *098 LM00120
LM00121
PRNTP.(MESS11) *099 LM00122
FUNCTION RETURN UNIT *100 LM00123
LM00124
TAPE CANNOT BE MOUNTED LM00125
LM00126
NOTAPE PRNTP.(MESS2) *101 LM00127
TABLE(I+2) = 0 *102 LM00128
TRANSFER TO LOOP1 *103 LM00129
LM00130
ERR PRNTER. *104 LM00131
PRNTP.(MESS10) *105 LM00132
CLOSE.(D,T,LOOP1) *106 LM00133
TRANSFER TO LOOP1 *107 LM00134
LM00135
REOF CLOSE.(D,T,TRBL1) *108 LM00136
TRANSFER TO TRBL1 *109 LM00137
LM00138
CHECK VERIFY ERROR CODE LM00139
LM00140
TRBL WHENEVER ERCODE.E.7 *110 LM00141
TRBL1 PRNTP.(MESS3) *111 LM00142
TRBL2 UMOUNT.(UNIT,MESS4(8)...8,MLABL,ERCODE) *112 LM00143
TRANSFER TO MLABL *113 LM00144
OTHERWISE *114 LM00145
PRNTP.(MESS9) *115 LM00146
TABLE(I+2) = 0 *116 LM00147
END OF CONDITIONAL *117 LM00148
LM00149
LOOP1 CONTINUE *118 LM00150
LM00151
FUNCTION RETURN 0 *119 LM00152
LM00153
ROUTINE TO GET A NEW REEL MOUNTED LM00154
THIS ROUTINE IS CALLED BY 'TPREAD' MODULE LM00155
WHEN A LOGICAL FILE IS SPLIT ACROSS TWO REELS LM00156
LM00157
ENTRY TO NEWTAP. *120 LM00158
LM00159
CLEAR OLD TAPE FILE AND SET UP NEW ONE LM00160
LM00161
ATTNAM.(V(2)...2) *121 LM00162
ATTACH.(HPROB,HPROG) *122 LM00163
CLOSE.(D,T,NERR1) *123 LM00164
NERR1 CLEAR.(D,T) *124 LM00165
TAPFIL.(D,T,UNIT,1,ERR1) *125 LM00166
UMOUNT.(UNIT,MESS12(7)...7,ERR1,ERCODE) *126 LM00167
LM00168
GET NEW REEL NUMBER AND ASK FOR IT TO BE MOUNTED LM00169
LM00170
REELNO = REELNO + 1 *127 LM00171
MESS13(5) = BZEL.(DERBC.(REELNO+1)) *128 LM00172
MESS14(1) = MESS13(5) *129 LM00173
PRNTP.(MESS13) *130 LM00174
LM00175
AGAIN MOUNT.(MZE,UNIT,MESS14(8)...8,ERR1) *131 LM00176
VERIFY.(UNIT,LABL(UNIT4)...4,ERR1,ERCODE) *132 LM00177
LM00178
MAKE SURE NEW HEADER MATCHES OLD ONE LM00179
LM00180
OPEN.($R$,D,T,-0,3,ERR2) *133 LM00181
BUFFER.(D,T,BUFF1(432)...432) *134 LM00182
RDWAIT.(D,T,0,DRAIN(432)...432,NREOF,DRAIN,ERR2) *135 LM00183
THROUGH LOOP4, FOR J=0,1,J.G.6 *136 LM00184
WHENEVER HSAVE(J) .NE. DRAIN(432-J), TRANSFER TO OHNO *137 LM00185
LOOP4 CONTINUE *138 LM00186
LM00187
MAKE SURE REEL NUMBER IS CORRECT LM00188
LM00189
WHENEVER REELNO .NE. DRAIN(HREEL) *139 LM00190
OHNO PRNTP.(MESS15) *140 LM00191
CLOSE.(D,T,ERR1) *141 LM00192
UMOUNT.(UNIT,MESS16(5)...5,ERR1,ERCODE) *142 LM00193
TRANSFER TO AGAIN *143 LM00194
END OF CONDITIONAL *144 LM00195
LM00196
NEW REEL IS MOUNTED AND CHECKED, RETURN LM00197
LM00198
PRNTP.(MESS11) *145 LM00199
ATTACH.(V(2),V(1)) *146 LM00200
FUNCTION RETURN UNIT *147 LM00201
LM00202
ERR2 PRNTER. *148 LM00203
NREOF CLOSE.(D,T,NERR2) *149 LM00204
NERR2 PRNTP.(MESS10) *150 LM00205
TRANSFER TO AWAY *151 LM00206
LM00207
CANNOT GET TAPE MOUNTED, TOO BAD LM00208
LM00209
ERR1 PRNTER. *152 LM00210
PRNTP.(MESS9) *153 LM00211
AWAY ATTACH.(V(2),V(1)) *154 LM00212
FUNCTION RETURN 0 *155 LM00213
LM00214
END OF FUNCTION *156 LM00215
1MAD PROGRAM,TYPE NOV 1963 (ALL NUMBERS ARE OCTAL)
0TOTAL LOCATIONS 01224 TRANSFER VECTOR LENGTH 00022 PROGRAM BEGINS 00335 FIRST UNUSED COMMON/ERASABLE 67621
0 PROGRAM IS AN EXTERNAL FUNCTION. THE FOLLOWING ARE ENTRIES
NEWTAP 01002 0 SETTAP 00336 0
0VARIABLE STORAGE (A=ARRAY,C=COMMON,E=ERASABLE,DIGIT=MODE)
AGAIN 00023 4 HEADER 74513 AC1 LOOP4 00022 4 MESS8 00271 A 1 SYSTEM 67642 AC1
AINDEX 67664 C1 HEDER2 67636 AC1 LPREAM 67651 AC1 MESS9 00301 A 1 TABLE 77461 AC1
AUTHOR 67645 C1 HIODTM 00046 A 1 LRCT 74512 C1 MESSV 00305 A 1 TABLIM 67652 AC1
AWAY 00024 4 HPROB 67650 C1 MESS10 00102 A 1 MLABL 00032 4 TEMP 00306 1
BUFF1 76255 AC1 HPROG 67647 C1 MESS11 00110 A 1 MZE 67660 AC1 TFUDG 67657 AC1
BUFF2 75374 AC1 HREEL 00047 A 1 MESS12 00120 A 1 NERR1 00033 4 TRBL1 00042 4
BUFF 77136 AC1 HSAVE 00056 A 1 MESS13 00132 A 1 NERR2 00034 4 TRBL2 00043 4
CURPTR 67646 C1 ILEDI 67654 AC1 MESS14 00143 A 1 NOTAPE 00035 4 TRBL 00044 4
DAEMON 67641 AC1 I 00057 1 MESS15 00157 A 1 NREOF 00036 4 T 67661 AC1
DND 74503 C1 J 00060 1 MESS16 00165 A 1 OHME 00037 4 TSKLTH 67637 AC1
DRAIN 74476 AC1 LABL 00075 A 1 MESS1 00177 A 1 OHNO 00040 4 UFD 73615 AC1
D 67662 AC1 LINDEX 67644 C1 MESS2 00204 A 1 PB 74477 C1 UNIT4 00307 1
ERCODE 00045 1 LODLIM 67643 AC1 MESS3 00215 A 1 PG 74500 C1 UNIT 67663 C1
ERR1 00025 4 LODTAB 73605 AC1 MESS4 00226 A 1 PRIV 67653 C1 USERF 67655 AC1
ERR2 00026 4 LOOP1 00030 4 MESS5 00243 A 1 REELNO 67640 C1 V 00312 A 1
ERR 00027 4 LOOP2 00031 4 MESS6 00252 A 1 REOF 00041 4 WC 74511 C1
FENCE 67656 AC1 LOOP3 00022 4 MESS7 00261 A 1
0FUNCTION DICTIONARY
ATTACH 00000 1 ATTNAM 00001 1 BUFFER 00002 1 BZEL 00003 1 CLEAR 00004 1
CLOSE 00005 1 CVDATE 00006 1 CVTIME 00007 1 DERBC 00010 1 EXIT 00011 1
MOUNT 00012 1 OPEN 00013 1 PRNTER 00014 1 PRNTP 00015 1 RDWAIT 00016 1
TAPFIL 00017 1 UMOUNT 00020 1 VERIFY 00021 1
0ABSOLUTE CONSTANTS
00320 +000000000005 00323 +000000000010 00333 -206331442560 00327 +000000777777 00332 -202421632560
00334 -377777000000 00326 +000000000660 00331 -116060606060 00321 +000000000006 00322 +000000000007
00317 +000000000004 00316 +000000000003 00324 +000000000011 00315 +000000000002 00325 +000000000012
00313 +000000000000 00314 +000000000001 00330 +233000000000
0STATEMENT DICTIONARY
00023 TXL -301060001053 00024 TXL -301206001203 00025 TXL -301201001200 00026 TXL -301171001170
00027 TXL -300737000736 00030 TXL -300777000776 00031 TXL -300556000555 00032 TXL -300465000460
00033 TXL -301020001015 00034 TXL -301177001175 00035 TXL -300730000726 00036 TXL -301175001171
00037 TXL -300603000601 00040 TXL -301147001145 00041 TXL -300752000746 00042 TXL -300760000756
00043 TXL -300765000760 00044 TXL -300756000753
0PROGRAM
EXTERNAL FUNCTION 001 LM00004
I'E COM 002 LM00005
N'R 003 LM00002
B'N SWT. 004 LM00003
D'N TABLE(210),BUFF(432),BUFF1(432),BUFF2(432) 005 LM00005
D'N HEADER(12),UFD(7),DRAIN(432),LODTAB(2000) 006 LM00006
E'E (PB,HEADER(12)),(PG,HEADER(11)),(DND,HEADER(8)), 007 LM00007
1 (WC,HEADER(2)),(LRCT,HEADER(1)) 007 LM00008
P'N TABLE,BUFF,BUFF1,BUFF2 008 LM00009
P'N HEADER,DRAIN,UFD,LODTAB 009 LM00010
P'N AINDEX,UNIT,D,T,MZE,TFUDG,FENCE,USERF,ILEDI,PRIV 010 LM00011
P'N TABLIM,LPREAM,HPROB,HPROG,CURPTR,AUTHOR,LINDEX 011 LM00012
P'N LODLIM,SYSTEM,DAEMON,REELNO,TSKLTH 012 LM00013
V'S FENCE = 777777777777K 013 LM00015
67656 -3 77777 7 77777
V'S MZE = 4K11 014 LM00016
67660 -0 00000 0 00000
V'S TFUDG = 1800 015 LM00017
67657 +0 00000 0 03410
V'S TABLIM = 200 016 LM00018
67652 +0 00000 0 00310
V'S LODLIM = 2000 017 LM00019
67643 +0 00000 0 03720
V'S LPREAM = 12 018 LM00020
67651 +0 00000 0 00014
V'S TSKLTH = 11 019 LM00021
67637 +0 00000 0 00013
V'S SYSTEM = $ C0056$ 020 LM00023
67642 -2 02300 0 00506
V'S DAEMON = $ 99999$ 021 LM00024
67641 -2 01111 1 11111
V'S D = $(DUMP)$ 022 LM00025
67662 -3 42464 4 44734
V'S T = $(TAPE)$ 023 LM00026
67661 -3 46321 4 72534
V'S USERF = $USER F$ 024 LM00027
67655 -2 46225 5 16026
V'S ILEDI = $ILE DI$ 025 LM00028
67654 +3 14325 6 02431
DIMENSION HEDER2(12) 026 LM00029
P'N HEDER2 027 LM00030
V'S MESSV(1) = $N.F.T.$,$U.D.T.$,$S.D.T.$ 028 LM00006
00302 -2 23324 3 36333 00303 -2 43324 3 36333 00304 -0 53326 3 36333
V'S MESS1(1) = $ALS $,$ETRIEV$,$ FOR R$,0,$, TIME$,0, 029 LM00007
1 $ DATE $,0,$MOUNT $ 029 LM00008
00166 -0 44664 4 56360 00167 +0 00000 0 00000 00170 -2 02421 6 32560 00171 +0 00000 0 00000
00172 -3 36063 3 14425 00173 +0 00000 0 00000 00174 -2 02646 5 16051 00175 +2 56351 3 12565
00176 +2 14362 6 06060
V'S MESS2 = $NO TAPES AVAILABLE NOW$,777777777777K 030 LM00009
00200 -3 77777 7 77777 00201 -2 04546 6 66060 00202 +3 14321 2 24325 00203 +2 56260 2 16521
00204 -0 54660 6 32147
V'S MESS3 = $INCORRECT LABELING, WILL UNMOUNT AND TRY AGAIN$ 031 LM00010
1 ,777777777777K 031 LM00011
00205 -3 77777 7 77777 00206 +2 72131 4 56060 00207 -2 06351 7 06021 00210 -0 56360 2 14524
00211 -2 06445 4 44664 00212 -3 36066 3 14343 00213 +2 22543 3 14527 00214 +2 52363 6 04321
00215 +3 14523 4 65151
V'S MESS4(1) = $GAIN $,$ TRY A$,$LABEL,$,$ECTED $, 032 LM00012
1 $CH EXP$,$OT MAT$,$DOES N$,$LABEL $ 032 LM00013
00216 -0 32122 2 54360 00217 +2 44625 6 26045 00220 -0 66360 4 42163 00221 +2 33060 2 56747
00222 +2 52363 2 52460 00223 -0 32122 2 54373 00224 -2 06351 7 06021 00225 +2 72131 4 56060
V'S MESS5 = $NOW MOUNTING$,575757575760K,0,$ DATED$, 033 LM00014
1 575757575760K,0,$, TIME$,0,$ FOR RETRIEVAL$, 033 LM00015
2 777777777777K 033 LM00016
00227 -3 77777 7 77777 00230 +2 14360 6 06060 00231 +2 56351 3 12565 00232 -2 02646 5 16051
00233 +0 00000 0 00000 00234 -3 36063 3 14425 00235 +0 00000 0 00000 00236 -1 75757 5 75760
00237 -2 02421 6 32524 00240 +0 00000 0 00000 00241 -1 75757 5 75760 00242 -2 44563 3 14527
00243 -0 54666 6 04446
V'S MESS6 = $INCORRECT HEADER, WILL TRY AGAIN$, 034 LM00017
1 777777777777K 034 LM00018
00244 -3 77777 7 77777 00245 +3 14560 6 06060 00246 -1 17060 2 12721 00247 -2 63143 4 36063
00250 +2 12425 5 17360 00251 +2 52363 6 03025 00252 +3 14523 4 65151
V'S MESS7 = $HEADER$,0,0,$, WILL TRY AGAIN$,777777777777K 035 LM00019
00253 -3 77777 7 77777 00254 +2 72131 4 56060 00255 -2 06351 7 06021 00256 -3 36066 3 14343
00257 +0 00000 0 00000 00260 +0 00000 0 00000 00261 +3 02521 2 42551
V'S MESS8(1) = $AGAIN $,$, TRY $,0,$, TIME$,0, 036 LM00020
1 $ DATE $,$HEADER$ 036 LM00021
00262 +3 02521 2 42551 00263 -2 02421 6 32560 00264 +0 00000 0 00000 00265 -3 36063 3 14425
00266 +0 00000 0 00000 00267 -3 36063 5 17060 00270 +2 12721 3 14560
V'S MESS9 = $CANNOT MOUNT TAPE FOR $,0,575757575760K,0, 037 LM00022
1 777777777777K 037 LM00023
00272 -3 77777 7 77777 00273 +0 00000 0 00000 00274 -1 75757 5 75760 00275 +0 00000 0 00000
00276 +2 64651 6 06060 00277 -2 06321 4 72560 00300 -2 04446 6 44563 00301 +2 32145 4 54663
V'S MESS10 = $ERROR READING HEADER$,777777777777K 038 LM00024
00076 -3 77777 7 77777 00077 +2 55160 6 06060 00100 +2 76030 2 52124 00101 -1 12521 2 43145
00102 +2 55151 4 65160
V'S MESS11 = $TAPE IS MOUNTED AND CHECKED$,777777777777K 039 LM00025
00103 -3 77777 7 77777 00104 -0 22524 6 06060 00105 +2 46023 3 02523 00106 -2 32524 6 02145
00107 -2 26044 4 66445 00110 -2 32147 2 56031
V'S MESS12(1) = $EEL $,$NEXT R$,$UE TO $,$CONTIN$, 040 LM00026
1 $ WILL $,$ REEL.$,$END OF$ 040 LM00027
00111 +2 54524 6 04626 00112 -2 05125 2 54333 00113 -2 06631 4 34360 00114 +2 34645 6 33145
00115 -2 42560 6 34660 00116 -0 52567 6 36051 00117 +2 52543 6 06060
V'S MESS13 = $END OF REEL. NOW MOUNTING REEL$,0, 041 LM00028
1 $ OF DUMP TAPE$,777777777777K 041 LM00029
00121 -3 77777 7 77777 00122 +2 56060 6 06060 00123 -0 44760 6 32147 00124 -2 04626 6 02464
00125 +0 00000 0 00000 00126 +2 76051 2 52543 00127 -0 66445 6 33145 00130 -2 04546 6 66044
00131 -2 05125 2 54333 00132 +2 54524 6 04626
V'S MESS14(1) = 0,$EEL $,$T IS R$,$NCE. I$,$ SEQUE$, 042 LM00030
1 $APE IN$,$NEXT T$,$MOUNT $ 042 LM00031
00133 -0 44664 4 56360 00134 -0 52567 6 36063 00135 +2 14725 6 03145 00136 -2 06225 5 06425
00137 -0 52325 3 36031 00140 -2 36031 6 26051 00141 +2 52543 6 06060 00142 +0 00000 0 00000
V'S MESS15 = $TAPE MOUNTED WAS NOT IN SEQUENCE.$, 043 LM00032
1 $WILL UNMOUNT AND TRY AGAIN$,777777777777K 043 LM00033
00144 -3 77777 7 77777 00145 +3 14560 6 06060 00146 -1 17060 2 12721 00147 -2 02145 2 46063
00150 -0 54446 6 44563 00151 -2 63143 4 36064 00152 +2 32533 6 06060 00153 -2 22550 6 42545
00154 -0 66360 3 14560 00155 -2 06621 6 26045 00156 -0 66445 6 32524 00157 -2 32147 2 56044
V'S MESS16(1) = $ENCE $,$N SEQU$,$NEXT I$,$S NOT $, 044 LM00034
1 $TAPE I$ 044 LM00035
00160 -2 32147 2 56031 00161 -2 26045 4 66360 00162 -0 52567 6 36031 00163 -0 56062 2 55064
00164 +2 54523 2 56060
V'S LABL(1) = $ TAPE $,$E DUMP$,$ED-FIL$,$ CREAT$ 045 LM00036
1 ,$ TAPE $,$S DUMP$,$'-FILE$,$ USERS$, 045 LM00037
2 $ TAPE $,$S DUMP$,$M-FILE$,$ SYSTE$ 045 LM00038
00061 -2 06270 6 26325 00062 -0 44026 3 14325 00063 -2 26024 6 44447 00064 -2 06321 4 72560
00065 -2 06462 2 55162 00066 +1 44026 3 14325 00067 -2 26024 6 44447 00070 -2 06321 4 72560
00071 -2 02351 2 52163 00072 +2 52440 2 63143 00073 +2 56024 6 44447 00074 -2 06321 4 72560
V'S HIODTM = 426 046 LM00040
00046 +0 00000 0 00652
V'S HREEL = 424 047 LM00041
00047 +0 00000 0 00650
D'N HSAVE(6),V(2) 048 LM00043
E'O SETTAP. 049 LM00046
00335 TRA +0 02000 0 00340 00336 SXA +0 63400 2 01211 00337 TSX +0 07400 2 01211
ATTACH.(HPROB,HPROG) 050 LM00047
00340 TSX +0 07400 4 00000 00341 TXH +3 00000 0 67650 00342 TXH +3 00000 0 67647
T'H LOOP1, FOR I = 0,TSKLTH,(I .GE. AINDEX) 051 LM00051
00343 CLA +0 50000 0 00313 00344 STO +0 60100 0 00057 00345 TRA +0 02000 0 00351 00346 CLA +0 50000 0 00057
00347 ADD +0 40000 0 67637 00350 STO +0 60100 0 00057 00351 CLA +0 50000 0 00057 00352 SUB +0 40200 0 67664
00353 TZE +0 10000 0 00777 00354 TPL +0 12000 0 00777
W'R (TABLE(I+2).E.0).OR.(TABLE(I+10).NE.0), T'O LOOP1 052 LM00052
00355 CLA +0 50000 0 00057 00356 ADD +0 40000 0 00325 00357 PAX +0 73400 1 00000 00360 CLA +0 50000 1 77461
00361 SUB +0 40200 0 00313 00362 TNZ -0 10000 0 00371 00363 CLA +0 50000 0 00057 00364 ADD +0 40000 0 00315
00365 PAX +0 73400 1 00000 00366 CLA +0 50000 1 77461 00367 SUB +0 40200 0 00313 00370 TNZ -0 10000 0 00372
00371 TRA +0 02000 0 00030
UNIT = TABLE(I+9)-1 053 LM00053
00372 CLA +0 50000 0 00057 00373 ADD +0 40000 0 00324 00374 PAX +0 73400 1 00000 00375 CLA +0 50000 1 77461
00376 SUB +0 40200 0 00314 00377 STO +0 60100 0 67663
MESS9(4) = TABLE(I+2) 054 LM00054
00400 CLA +0 50000 0 00057 00401 ADD +0 40000 0 00315 00402 PAX +0 73400 2 00000 00403 CLA +0 50000 2 77461
00404 STO +0 60100 0 00275
MESS9(6) = TABLE(I+3) 055 LM00055
00405 CLA +0 50000 0 00057 00406 ADD +0 40000 0 00316 00407 PAX +0 73400 2 00000 00410 CLA +0 50000 2 77461
00411 STO +0 60100 0 00273
UNIT4 = UNIT*4 056 LM00056
00412 LDQ +0 56000 0 67663 00413 MPY +0 20000 0 00317 00414 STQ -0 60000 0 00307
CLEAR.(D,T) 057 LM00057
00415 TSX +0 07400 4 00004 00416 TXH +3 00000 0 67662 00417 TXH +3 00000 0 67661
TAPFIL.(D,T,UNIT,1) 058 LM00058
00420 TSX +0 07400 4 00017 00421 TXH +3 00000 0 67662 00422 TXH +3 00000 0 67661 00423 TXH +3 00000 0 67663
00424 TXH +3 00000 0 00314
MESS1(4) = CVTIME.(TABLE(I+7)) 059 LM00062
00425 CLA +0 50000 0 00057 00426 ADD +0 40000 0 00322 00427 SUB +0 40200 0 00430 00430 TXH +3 00000 0 77461
00431 STA +0 62100 0 00433 00432 TSX +0 07400 4 00007 00433 TXH +3 00000 0 00000 00434 STO +0 60100 0 00173
MESS1(6) = CVDATE.(TABLE(I+6)) 060 LM00063
00435 CLA +0 50000 0 00057 00436 ADD +0 40000 0 00321 00437 SUB +0 40200 0 00440 00440 TXH +3 00000 0 77461
00441 STA +0 62100 0 00443 00442 TSX +0 07400 4 00006 00443 TXH +3 00000 0 00000 00444 STO +0 60100 0 00171
MESS1(8) = MESSV(UNIT) 061 LM00064
00445 LXA +0 53400 2 67663 00446 CLA +0 50000 2 00305 00447 STO +0 60100 0 00167
MESS5(8) = MESS1(4) 062 LM00065
00450 CLA +0 50000 0 00173 00451 STO +0 60100 0 00233
MESS5(6) = MESS1(6) 063 LM00066
00452 CLA +0 50000 0 00171 00453 STO +0 60100 0 00235
MESS5(3) = MESS1(8) 064 LM00067
00454 CLA +0 50000 0 00167 00455 STO +0 60100 0 00240
PRNTP.(MESS5) 065 LM00068
00456 TSX +0 07400 4 00015 00457 TXH +3 00000 0 00243
MLABL MOUNT.(MZE,UNIT,MESS1(9)...9,NOTAPE) 066 LM00070
00460 TSX +0 07400 4 00012 00461 TXH +3 00000 0 67660 00462 TXH +3 00000 0 67663 00463 TIX +2 00324 0 00166
00464 TXH +3 00000 0 00035
VERIFY.(UNIT,LABL(UNIT4)...4,TRBL,ERCODE) 067 LM00071
00465 CLA +0 50000 0 00307 00466 SUB +0 40200 0 00467 00467 TXH +3 00000 0 00075 00470 STA +0 62100 0 00473
00471 TSX +0 07400 4 00021 00472 TXH +3 00000 0 67663 00473 TIX +2 00317 0 00000 00474 TXH +3 00000 0 00044
00475 TXH +3 00000 0 00045
OPEN.($R$,D,T,-0,3,ERR) 068 LM00075
00476 CLS +0 50200 0 00313 00477 STO +0 60100 0 01221 00500 TSX +0 07400 4 00013 00501 TXH +3 00000 0 00331
00502 TXH +3 00000 0 67662 00503 TXH +3 00000 0 67661 00504 TXH +3 00000 0 01221 00505 TXH +3 00000 0 00316
00506 TXH +3 00000 0 00027
BUFFER.(D,T,BUFF1(432)...432) 069 LM00076
00507 TSX +0 07400 4 00002 00510 TXH +3 00000 0 67662 00511 TXH +3 00000 0 67661 00512 TIX +2 00326 0 75375
RDWAIT.(D,T,0,DRAIN(432)...432,REOF,TEMP,ERR) 070 LM00077
00513 TSX +0 07400 4 00016 00514 TXH +3 00000 0 67662 00515 TXH +3 00000 0 67661 00516 TXH +3 00000 0 00313
00517 TIX +2 00326 0 73616 00520 TXH +3 00000 0 00041 00521 TXH +3 00000 0 00306 00522 TXH +3 00000 0 00027
TEMP = 432-UNIT4 071 LM00078
00523 CLA +0 50000 0 00326 00524 SUB +0 40200 0 00307 00525 STO +0 60100 0 00306
T'H LOOP2, FOR J=UNIT4,-1,J.L.(UNIT4-3) 072 LM00080
00526 CLA +0 50000 0 00307 00527 STO +0 60100 0 00060 00530 TRA +0 02000 0 00534 00531 CLS +0 50200 0 00314
00532 ADD +0 40000 0 00060 00533 STO +0 60100 0 00060 00534 CLA +0 50000 0 00307 00535 SUB +0 40200 0 00316
00536 CHS +0 76000 0 00002 00537 ADD +0 40000 0 00060 00540 TZE +0 10000 0 00542 00541 TMI -0 12000 0 00556
W'R DRAIN(J+TEMP).E.LABL(J), T'O LOOP2 073 LM00081
00542 CLA +0 50000 0 00060 00543 ADD +0 40000 0 00306 00544 PAX +0 73400 1 00000 00545 LXA +0 53400 2 00060
00546 CLA +0 50000 1 74476 00547 SUB +0 40200 2 00075 00550 TNZ -0 10000 0 00552 00551 TRA +0 02000 0 00031
PRNTP.(MESS6) 074 LM00082
00552 TSX +0 07400 4 00015 00553 TXH +3 00000 0 00252
T'O TRBL2 075 LM00083
00554 TRA +0 02000 0 00043
LOOP2 C'E 076 LM00084
00555 TRA +0 02000 0 00531
W'R TABLE(I+6).NE.(DRAIN(HIODTM).A.777777K6) 077 LM00088
00556 LXA +0 53400 1 00046 00557 CAL -0 50000 1 74476 00560 ANA -0 32000 0 00334 00561 SLW +0 60200 0 01221
00562 CLA +0 50000 0 00057 00563 ADD +0 40000 0 00321 00564 PAX +0 73400 1 00000 00565 CLA +0 50000 1 77461
00566 SUB +0 40200 0 01221 00567 TZE +0 10000 0 00634
MESS7(2) = CVDATE.(DRAIN(HIODTM)) 078 LM00092
00570 CLA +0 50000 0 00046 00571 SUB +0 40200 0 00572 00572 TXH +3 00000 0 74476 00573 STA +0 62100 0 00575
00574 TSX +0 07400 4 00006 00575 TXH +3 00000 0 00000 00576 STO +0 60100 0 00257
MESS7(1) = $ DATE $ 079 LM00093
00577 CLA +0 50000 0 00332 00600 STO +0 60100 0 00260
OHME PRNTP.(MESS7) 080 LM00094
00601 TSX +0 07400 4 00015 00602 TXH +3 00000 0 00261
MESS8(5) = CVDATE.(DRAIN(HIODTM)) 081 LM00095
00603 CLA +0 50000 0 00046 00604 SUB +0 40200 0 00605 00605 TXH +3 00000 0 74476 00606 STA +0 62100 0 00610
00607 TSX +0 07400 4 00006 00610 TXH +3 00000 0 00000 00611 STO +0 60100 0 00264
MESS8(3) = CVTIME.(DRAIN(HIODTM)) 082 LM00096
00612 CLA +0 50000 0 00046 00613 SUB +0 40200 0 00614 00614 TXH +3 00000 0 74476 00615 STA +0 62100 0 00617
00616 TSX +0 07400 4 00007 00617 TXH +3 00000 0 00000 00620 STO +0 60100 0 00266
CLOSE.(D,T,ERR) 083 LM00097
00621 TSX +0 07400 4 00005 00622 TXH +3 00000 0 67662 00623 TXH +3 00000 0 67661 00624 TXH +3 00000 0 00027
UMOUNT.(UNIT,MESS8(7)...7,MLABL,ERCODE) 084 LM00098
00625 TSX +0 07400 4 00020 00626 TXH +3 00000 0 67663 00627 TIX +2 00322 0 00262 00630 TXH +3 00000 0 00032
00631 TXH +3 00000 0 00045
T'O MLABL 085 LM00099
00632 TRA +0 02000 0 00032
O'R (TABLE(I+7).NE.0).AND. 086 LM00100
1 (TABLE(I+7).L.(DRAIN(HIODTM).A.777777K)) 086 LM00101
00633 TRA +0 02000 0 00667 00634 LXA +0 53400 1 00046 00635 CAL -0 50000 1 74476 00636 ANA -0 32000 0 00327
00637 SLW +0 60200 0 01221 00640 CLA +0 50000 0 00057 00641 ADD +0 40000 0 00322 00642 PAX +0 73400 1 00000
00643 CLA +0 50000 1 77461 00644 SUB +0 40200 0 01221 00645 TZE +0 10000 0 00667 00646 TPL +0 12000 0 00667
00647 CLA +0 50000 0 00057 00650 ADD +0 40000 0 00322 00651 PAX +0 73400 1 00000 00652 CLA +0 50000 1 77461
00653 SUB +0 40200 0 00313 00654 TZE +0 10000 0 00667
MESS7(2) = CVTIME.(DRAIN(HIODTM)) 087 LM00105
00655 CLA +0 50000 0 00046 00656 SUB +0 40200 0 00657 00657 TXH +3 00000 0 74476 00660 STA +0 62100 0 00662
00661 TSX +0 07400 4 00007 00662 TXH +3 00000 0 00000 00663 STO +0 60100 0 00257
MESS7(1) = $ TIME $ 088 LM00106
00664 CLA +0 50000 0 00333 00665 STO +0 60100 0 00260
T'O OHME 089 LM00107
00666 TRA +0 02000 0 00037
E'L 090 LM00108
W'R DRAIN(HREEL) .E. DRAIN(432) 091 LM00113
00667 LXA +0 53400 1 00047 00670 CLA +0 50000 1 74476 00671 SUB +0 40200 0 73616 00672 TNZ -0 10000 0 00676
REELNO = 0 092 LM00114
00673 CLA +0 50000 0 00313 00674 STO +0 60100 0 67640
O'E 093 LM00115
00675 TRA +0 02000 0 00701
REELNO = DRAIN(HREEL) 094 LM00116
00676 LXA +0 53400 2 00047 00677 CLA +0 50000 2 74476 00700 STO +0 60100 0 67640
E'L 095 LM00117
T'H LOOP3, FOR J=0,1,J.G.6 096 LM00118
00701 CLA +0 50000 0 00313 00702 STO +0 60100 0 00060 00703 TRA +0 02000 0 00707 00704 CLA +0 50000 0 00060
00705 ADD +0 40000 0 00314 00706 STO +0 60100 0 00060 00707 CLA +0 50000 0 00060 00710 SUB +0 40200 0 00321
00711 TZE +0 10000 0 00713 00712 TPL +0 12000 0 00722
HSAVE(J) = DRAIN(432-J) 097 LM00119
00713 CLA +0 50000 0 00326 00714 SUB +0 40200 0 00060 00715 LXA +0 53400 1 00060 00716 PAX +0 73400 2 00000
00717 CLA +0 50000 2 74476 00720 STO +0 60100 1 00056
LOOP3 C'E 098 LM00120
00721 TRA +0 02000 0 00704
PRNTP.(MESS11) 099 LM00122
00722 TSX +0 07400 4 00015 00723 TXH +3 00000 0 00110
F'N UNIT 100 LM00123
00724 CLA +0 50000 0 67663 00725 TRA +0 02000 0 01215
NOTAPE PRNTP.(MESS2) 101 LM00127
00726 TSX +0 07400 4 00015 00727 TXH +3 00000 0 00204
TABLE(I+2) = 0 102 LM00128
00730 CLA +0 50000 0 00057 00731 ADD +0 40000 0 00315 00732 PAX +0 73400 1 00000 00733 CLA +0 50000 0 00313
00734 STO +0 60100 1 77461
T'O LOOP1 103 LM00129
00735 TRA +0 02000 0 00030
ERR PRNTER. 104 LM00131
00736 TSX +0 07400 4 00014
PRNTP.(MESS10) 105 LM00132
00737 TSX +0 07400 4 00015 00740 TXH +3 00000 0 00102
CLOSE.(D,T,LOOP1) 106 LM00133
00741 TSX +0 07400 4 00005 00742 TXH +3 00000 0 67662 00743 TXH +3 00000 0 67661 00744 TXH +3 00000 0 00030
T'O LOOP1 107 LM00134
00745 TRA +0 02000 0 00030
REOF CLOSE.(D,T,TRBL1) 108 LM00136
00746 TSX +0 07400 4 00005 00747 TXH +3 00000 0 67662 00750 TXH +3 00000 0 67661 00751 TXH +3 00000 0 00042
T'O TRBL1 109 LM00137
00752 TRA +0 02000 0 00042
TRBL W'R ERCODE.E.7 110 LM00141
00753 CLA +0 50000 0 00045 00754 SUB +0 40200 0 00322 00755 TNZ -0 10000 0 00767
TRBL1 PRNTP.(MESS3) 111 LM00142
00756 TSX +0 07400 4 00015 00757 TXH +3 00000 0 00215
TRBL2 UMOUNT.(UNIT,MESS4(8)...8,MLABL,ERCODE) 112 LM00143
00760 TSX +0 07400 4 00020 00761 TXH +3 00000 0 67663 00762 TIX +2 00323 0 00216 00763 TXH +3 00000 0 00032
00764 TXH +3 00000 0 00045
T'O MLABL 113 LM00144
00765 TRA +0 02000 0 00032
O'E 114 LM00145
00766 TRA +0 02000 0 00776
PRNTP.(MESS9) 115 LM00146
00767 TSX +0 07400 4 00015 00770 TXH +3 00000 0 00301
TABLE(I+2) = 0 116 LM00147
00771 CLA +0 50000 0 00057 00772 ADD +0 40000 0 00315 00773 PAX +0 73400 1 00000 00774 CLA +0 50000 0 00313
00775 STO +0 60100 1 77461
E'L 117 LM00148
LOOP1 C'E 118 LM00150
00776 TRA +0 02000 0 00346
F'N 0 119 LM00152
00777 CLA +0 50000 0 00313 01000 TRA +0 02000 0 01215
E'O NEWTAP. 120 LM00158
01001 TRA +0 02000 0 01004 01002 SXA +0 63400 2 01211 01003 TSX +0 07400 2 01211
ATTNAM.(V(2)...2) 121 LM00162
01004 TSX +0 07400 4 00001 01005 TIX +2 00315 0 00310
ATTACH.(HPROB,HPROG) 122 LM00163
01006 TSX +0 07400 4 00000 01007 TXH +3 00000 0 67650 01010 TXH +3 00000 0 67647
CLOSE.(D,T,NERR1) 123 LM00164
01011 TSX +0 07400 4 00005 01012 TXH +3 00000 0 67662 01013 TXH +3 00000 0 67661 01014 TXH +3 00000 0 00033
NERR1 CLEAR.(D,T) 124 LM00165
01015 TSX +0 07400 4 00004 01016 TXH +3 00000 0 67662 01017 TXH +3 00000 0 67661
TAPFIL.(D,T,UNIT,1,ERR1) 125 LM00166
01020 TSX +0 07400 4 00017 01021 TXH +3 00000 0 67662 01022 TXH +3 00000 0 67661 01023 TXH +3 00000 0 67663
01024 TXH +3 00000 0 00314 01025 TXH +3 00000 0 00025
UMOUNT.(UNIT,MESS12(7)...7,ERR1,ERCODE) 126 LM00167
01026 TSX +0 07400 4 00020 01027 TXH +3 00000 0 67663 01030 TIX +2 00322 0 00111 01031 TXH +3 00000 0 00025
01032 TXH +3 00000 0 00045
REELNO = REELNO + 1 127 LM00171
01033 CLA +0 50000 0 67640 01034 ADD +0 40000 0 00314 01035 STO +0 60100 0 67640
MESS13(5) = BZEL.(DERBC.(REELNO+1)) 128 LM00172
01036 CLA +0 50000 0 67640 01037 ADD +0 40000 0 00314 01040 STO +0 60100 0 01221 01041 TSX +0 07400 4 00010
01042 TXH +3 00000 0 01221 01043 STO +0 60100 0 01221 01044 TSX +0 07400 4 00003 01045 TXH +3 00000 0 01221
01046 STO +0 60100 0 00125
MESS14(1) = MESS13(5) 129 LM00173
01047 CLA +0 50000 0 00125 01050 STO +0 60100 0 00142
PRNTP.(MESS13) 130 LM00174
01051 TSX +0 07400 4 00015 01052 TXH +3 00000 0 00132
AGAIN MOUNT.(MZE,UNIT,MESS14(8)...8,ERR1) 131 LM00176
01053 TSX +0 07400 4 00012 01054 TXH +3 00000 0 67660 01055 TXH +3 00000 0 67663 01056 TIX +2 00323 0 00133
01057 TXH +3 00000 0 00025
VERIFY.(UNIT,LABL(UNIT4)...4,ERR1,ERCODE) 132 LM00177
01060 CLA +0 50000 0 00307 01061 SUB +0 40200 0 01062 01062 TXH +3 00000 0 00075 01063 STA +0 62100 0 01066
01064 TSX +0 07400 4 00021 01065 TXH +3 00000 0 67663 01066 TIX +2 00317 0 00000 01067 TXH +3 00000 0 00025
01070 TXH +3 00000 0 00045
OPEN.($R$,D,T,-0,3,ERR2) 133 LM00181
01071 CLS +0 50200 0 00313 01072 STO +0 60100 0 01221 01073 TSX +0 07400 4 00013 01074 TXH +3 00000 0 00331
01075 TXH +3 00000 0 67662 01076 TXH +3 00000 0 67661 01077 TXH +3 00000 0 01221 01100 TXH +3 00000 0 00316
01101 TXH +3 00000 0 00026
BUFFER.(D,T,BUFF1(432)...432) 134 LM00182
01102 TSX +0 07400 4 00002 01103 TXH +3 00000 0 67662 01104 TXH +3 00000 0 67661 01105 TIX +2 00326 0 75375
RDWAIT.(D,T,0,DRAIN(432)...432,NREOF,DRAIN,ERR2) 135 LM00183
01106 TSX +0 07400 4 00016 01107 TXH +3 00000 0 67662 01110 TXH +3 00000 0 67661 01111 TXH +3 00000 0 00313
01112 TIX +2 00326 0 73616 01113 TXH +3 00000 0 00036 01114 TXH +3 00000 0 74476 01115 TXH +3 00000 0 00026
T'H LOOP4, FOR J=0,1,J.G.6 136 LM00184
01116 CLA +0 50000 0 00313 01117 STO +0 60100 0 00060 01120 TRA +0 02000 0 01124 01121 CLA +0 50000 0 00060
01122 ADD +0 40000 0 00314 01123 STO +0 60100 0 00060 01124 CLA +0 50000 0 00060 01125 SUB +0 40200 0 00321
01126 TZE +0 10000 0 01130 01127 TPL +0 12000 0 01141
W'R HSAVE(J) .NE. DRAIN(432-J), T'O OHNO 137 LM00185
01130 CLA +0 50000 0 00326 01131 SUB +0 40200 0 00060 01132 LXA +0 53400 1 00060 01133 PAX +0 73400 2 00000
01134 CLA +0 50000 1 00056 01135 SUB +0 40200 2 74476 01136 TZE +0 10000 0 01140 01137 TRA +0 02000 0 00040
LOOP4 C'E 138 LM00186
01140 TRA +0 02000 0 01121
W'R REELNO .NE. DRAIN(HREEL) 139 LM00190
01141 LXA +0 53400 2 00047 01142 CLA +0 50000 0 67640 01143 SUB +0 40200 2 74476 01144 TZE +0 10000 0 01161
OHNO PRNTP.(MESS15) 140 LM00191
01145 TSX +0 07400 4 00015 01146 TXH +3 00000 0 00157
CLOSE.(D,T,ERR1) 141 LM00192
01147 TSX +0 07400 4 00005 01150 TXH +3 00000 0 67662 01151 TXH +3 00000 0 67661 01152 TXH +3 00000 0 00025
UMOUNT.(UNIT,MESS16(5)...5,ERR1,ERCODE) 142 LM00193
01153 TSX +0 07400 4 00020 01154 TXH +3 00000 0 67663 01155 TIX +2 00320 0 00160 01156 TXH +3 00000 0 00025
01157 TXH +3 00000 0 00045
T'O AGAIN 143 LM00194
01160 TRA +0 02000 0 00023
E'L 144 LM00195
PRNTP.(MESS11) 145 LM00199
01161 TSX +0 07400 4 00015 01162 TXH +3 00000 0 00110
ATTACH.(V(2),V(1)) 146 LM00200
01163 TSX +0 07400 4 00000 01164 TXH +3 00000 0 00310 01165 TXH +3 00000 0 00311
F'N UNIT 147 LM00201
01166 CLA +0 50000 0 67663 01167 TRA +0 02000 0 01215
ERR2 PRNTER. 148 LM00203
01170 TSX +0 07400 4 00014
NREOF CLOSE.(D,T,NERR2) 149 LM00204
01171 TSX +0 07400 4 00005 01172 TXH +3 00000 0 67662 01173 TXH +3 00000 0 67661 01174 TXH +3 00000 0 00034
NERR2 PRNTP.(MESS10) 150 LM00205
01175 TSX +0 07400 4 00015 01176 TXH +3 00000 0 00102
T'O AWAY 151 LM00206
01177 TRA +0 02000 0 00024
ERR1 PRNTER. 152 LM00210
01200 TSX +0 07400 4 00014
PRNTP.(MESS9) 153 LM00211
01201 TSX +0 07400 4 00015 01202 TXH +3 00000 0 00301
AWAY ATTACH.(V(2),V(1)) 154 LM00212
01203 TSX +0 07400 4 00000 01204 TXH +3 00000 0 00310 01205 TXH +3 00000 0 00311
F'N 0 155 LM00213
01206 CLA +0 50000 0 00313 01207 TRA +0 02000 0 01215
E'N 156 LM00215
01210 TSX +0 07400 4 00011 01211 TXH +3 00000 0 00000 01212 SXD -0 63400 1 01211 01213 SXA +0 63400 4 01215
01214 TRA +0 02000 2 00001 01215 AXT +0 77400 4 00000 01216 LXA +0 53400 2 01211 01217 LXD -0 53400 1 01211
01220 TRA +0 02000 4 00001
DECIDE BCD 05/28/67 2015.5 10128 00000
1 MAD PROGRAM LISTING ... ... ... FILE DECIDE MAD 05/28/67 1921.6
-
TEST CURRENT TAPE FILE FOR UTILITY LM00001
D.R. WIDRIG DEC. 1965 LM00002
LM00003
EXTERNAL FUNCTION (V,X,Y,Z) *001 LM00004
INSERT FILE COM *002 LM00005
*002 LM00001
NORMAL MODE IS INTEGER *003 LM00002
BOOLEAN SWT. *004 LM00003
LM00004
DIMENSION TABLE(210),BUFF(432),BUFF1(432),BUFF2(432) *005 LM00005
DIMENSION HEADER(12),UFD(7),DRAIN(432),LODTAB(2000) *006 LM00006
EQUIVALENCE (PB,HEADER(12)),(PG,HEADER(11)),(DND,HEADER(8)), *007 LM00007
1 (WC,HEADER(2)),(LRCT,HEADER(1)) *007 LM00008
PROGRAM COMMON TABLE,BUFF,BUFF1,BUFF2 *008 LM00009
PROGRAM COMMON HEADER,DRAIN,UFD,LODTAB *009 LM00010
PROGRAM COMMON AINDEX,UNIT,D,T,MZE,TFUDG,FENCE,USERF,ILEDI,PRIV *010 LM00011
PROGRAM COMMON TABLIM,LPREAM,HPROB,HPROG,CURPTR,AUTHOR,LINDEX *011 LM00012
PROGRAM COMMON LODLIM,SYSTEM,DAEMON,REELNO,TSKLTH *012 LM00013
LM00014
VECTOR VALUES FENCE = 777777777777K *013 LM00015
VECTOR VALUES MZE = 4K11 *014 LM00016
VECTOR VALUES TFUDG = 1800 *015 LM00017
VECTOR VALUES TABLIM = 200 *016 LM00018
VECTOR VALUES LODLIM = 2000 *017 LM00019
VECTOR VALUES LPREAM = 12 *018 LM00020
VECTOR VALUES TSKLTH = 11 *019 LM00021
LM00022
VECTOR VALUES SYSTEM = $ C0056$ *020 LM00023
VECTOR VALUES DAEMON = $ 99999$ *021 LM00024
VECTOR VALUES D = $(DUMP)$ *022 LM00025
VECTOR VALUES T = $(TAPE)$ *023 LM00026
VECTOR VALUES USERF = $USER F$ *024 LM00027
VECTOR VALUES ILEDI = $ILE DI$ *025 LM00028
DIMENSION HEDER2(12) *026 LM00029
PROGRAM COMMON HEDER2 *027 LM00030
LM00031
STATEMENT LABEL X,Y *028 LM00006
BOOLEAN Z *029 LM00007
LM00008
VECTOR VALUES MESS1 = $ FILE $,0,575757575760K,0,$ IS PRIVATE$, *030 LM00009
1 777777777777K *030 LM00010
VECTOR VALUES MESS2 = $ FILE $,0,575757575760K,0, *031 LM00011
1 $ ALREADY EXISTS FOR $,0,575757575760K, *031 LM00012
2 0,777777777777K *031 LM00013
LM00014
DIMENSION U(7) *032 LM00015
LM00016
DECIDE IF A FILE IS USEFUL LM00017
IF THE FILE CONTAINED IN UFD ENTRY U(7)...U(1) LM00018
IS TO BE LOADED OR EXAMINED, TRANSFER TO 'X' LM00019
IF NOT, TRANSFER TO 'Y' LM00020
SWITCH 'Z' CONTROLS A 'QUIET' DECISION LM00021
LM00022
ENTRY TO DECIDE. *033 LM00023
LM00024
SHORTEN UP LINKAGE LM00025
LM00026
THROUGH LOOP0, FOR I=3,1,(I.G.7) *034 LM00027
U(I) = V(I) *035 LM00028
LOOP0 CONTINUE *036 LM00029
LM00030
MAKE QUICK TEST LM00031
LM00032
WHENEVER (LINDEX.GE.LODLIM).OR.((LRCT.RS.18).NE.1) *037 LM00033
1 .OR.((U(7).E.0).AND.(U(6).E.0)), TRANSFER TO Y *037 LM00034
LM00035
CHECK GENERAL QUALIFICATIONS LM00036
LM00037
TND = DND.A.777777K *038 LM00038
THROUGH LOOP1, FOR I = 0,TSKLTH,(I .GE. AINDEX) *039 LM00039
WHENEVER TABLE(I+2).E.0, TRANSFER TO LOOP1 *040 LM00040
WHENEVER (TABLE(I).NE.PB).OR.(TABLE(I+1).NE.PG).OR. *041 LM00041
1 ((U(7).NE.USERF).AND.(TABLE(I+4).NE.FENCE).AND. *041 LM00042
2 (TABLE(I+4).NE.U(7))).OR.((U(6).NE.ILEDI).AND. *041 LM00043
3 (TABLE(I+5).NE.FENCE).AND.(TABLE(I+5).NE.U(6))) *041 LM00044
4 .OR.((UNIT+1).NE.TABLE(I+9)) *041 LM00045
TRANSFER TO LOOP1 *042 LM00046
OR WHENEVER (TABLE(I+7).NE.0) *043 LM00047
WHENEVER (TABLE(I+8).E.0).OR.(TABLE(I+8).E.FENCE) *044 LM00048
WHENEVER ((TND.G.TABLE(I+7)).OR. *045 LM00049
1 (TABLE(I+7)-TND).L.TFUDG) *045 LM00050
TRANSFER TO FIND *046 LM00051
OTHERWISE *047 LM00052
TRANSFER TO LOOP1 *048 LM00053
END OF CONDITIONAL *049 LM00054
OTHERWISE *050 LM00055
WHENEVER ((TND.G.TABLE(I+7)).OR. *051 LM00056
1 ((TABLE(I+7)-TND).L.TFUDG)).AND. *051 LM00057
2 ((TND.L.TABLE(I+8)).OR. *051 LM00058
3 ((TND-TABLE(I+8)).L.TFUDG)) *051 LM00059
TRANSFER TO FIND *052 LM00060
OTHERWISE *053 LM00061
TRANSFER TO LOOP1 *054 LM00062
END OF CONDITIONAL *055 LM00063
END OF CONDITIONAL *056 LM00064
OTHERWISE *057 LM00065
WHENEVER (TABLE(I+8).E.0) *058 LM00066
TRANSFER TO FIND *059 LM00067
OR WHENEVER (TABLE(I+8).E.FENCE) *060 LM00068
TRANSFER TO FIND *061 LM00069
OR WHENEVER ((TND.L.TABLE(I+8)).OR. *062 LM00070
1 ((TND-TABLE(I+8)).L.TFUDG)) *062 LM00071
TRANSFER TO FIND *063 LM00072
END OF CONDITIONAL *064 LM00073
END OF CONDITIONAL *065 LM00074
TRANSFER TO LOOP1 *066 LM00075
LM00076
FOUND ONE, CHECK FOR PRIVATE MODE, ETC. LM00077
LM00078
FIND DEVICE = (U(3).RS.15).A.7K *067 LM00079
MODE = (U(3).RS.28) *068 LM00080
LM00081
SKIP MODE TEST IF LINKED FILE LM00082
LM00083
WHENEVER (DEVICE .E. 0) *069 LM00084
TRANSFER TO TEST *070 LM00085
OR WHENEVER ((MODE.A.020K).NE.0).AND. *071 LM00086
1 ((U(4).A.777777K).NE.BCDEC.(TABLE(I+3))).AND.(PRIV.E.2) *071 LM00087
MESS1(1) = U(7) *072 LM00088
MESS1(3) = U(6) *073 LM00089
PRNTP.(MESS1) *074 LM00090
MAIL.(TABLE(I+2),TABLE(I+3),MESS1,1B) *075 LM00091
TOOBAD WHENEVER (TABLE(I+4).NE.FENCE).AND. *076 LM00092
1 (TABLE(I+5).NE.FENCE), TABLE(I+2) = 0 *076 LM00093
TRANSFER TO LOOP1 *077 LM00094
OTHERWISE *078 LM00095
LM00096
CHECK FOR FILE ALREADY EXISTING LM00097
LM00098
TEST ATTACH.(TABLE(I+2),TABLE(I+3),ERR1) *079 LM00099
FSTATE.(U(7),U(6),DRAIN(2)...2,ABSENT,ERCODE) *080 LM00100
LM00101
FILE EXISTS, CHECK FOR ''REMOVED'' FILE LM00102
LM00103
WHENEVER ((DRAIN(1).A.202K).NE.0), TRANSFER TO NOFILE *081 LM00104
TRANSFER TO EXISTS *082 LM00105
LM00106
ERROR RETURN FROM FSTATE, CHECK IT LM00107
LM00108
ABSENT WHENEVER (ERCODE.NE.4).AND.(ERCODE.NE.5), *083 LM00109
1 TRANSFER TO NOFILE *083 LM00110
LM00111
FILE ALREADY EXISTS, INVESTIGATE LM00112
LM00113
EXISTS WHENEVER (TABLE(I+10).E.0) *084 LM00114
WHENEVER Z *085 LM00115
NASTY MESS2(1) = U(7) *086 LM00116
MESS2(3) = U(6) *087 LM00117
MESS2(8) = TABLE(I+2) *088 LM00118
MESS2(10) = TABLE(I+3) *089 LM00119
PRNTP.(MESS2) *090 LM00120
MAIL.(TABLE(I+2),TABLE(I+3),MESS2,1B) *091 LM00121
END OF CONDITIONAL *092 LM00122
TRANSFER TO TOOBAD *093 LM00123
END OF CONDITIONAL *094 LM00124
LM00125
EXISTS, BUT WE DID IT (MAYBE) LM00126
LM00127
THROUGH LOOPT, FOR J=0,4,J.GE.LINDEX *095 LM00128
WHENEVER (LODTAB(J).E.I).AND.(LODTAB(J+1).E.U(7)) *096 LM00129
1 .AND.(LODTAB(J+2).E.U(6)), TRANSFER TO US *096 LM00130
LOOPT CONTINUE *097 LM00131
TRANSFER TO NASTY *098 LM00132
LM00133
WE'VE LOADED THIS ONE, ARE MORE NEEDED LM00134
LM00135
US WHENEVER TABLE(I+8) .E. FENCE *099 LM00136
TRANSFER TO NOFILE *100 LM00137
OTHERWISE *101 LM00138
TRANSFER TO LOOP1 *102 LM00139
END OF CONDITIONAL *103 LM00140
END OF CONDITIONAL *104 LM00141
LM00142
EVERYTHING OK, SET UP RECEIVING DIRECTORY LM00143
DON'T RESET PB,PG ON UFD FILES LM00144
LM00145
NOFILE WHENEVER (HEADER(7).NE.USERF).OR.(HEADER(6).NE.ILEDI) *105 LM00146
PB = TABLE(I+2) *106 LM00147
PG = TABLE(I+3) *107 LM00148
END OF CONDITIONAL *108 LM00149
CURPTR = I *109 LM00150
TRANSFER TO X *110 LM00151
LM00152
ERR1 PRNTER. *111 LM00153
LM00154
LOOP1 CONTINUE *112 LM00155
LM00156
TRANSFER TO Y *113 LM00157
LM00158
END OF FUNCTION *114 LM00159
1MAD PROGRAM,TYPE NOV 1963 (ALL NUMBERS ARE OCTAL)
0TOTAL LOCATIONS 01003 TRANSFER VECTOR LENGTH 00007 PROGRAM BEGINS 00104 FIRST UNUSED COMMON/ERASABLE 67621
0 PROGRAM IS AN EXTERNAL FUNCTION. THE FOLLOWING ARE ENTRIES
DECIDE 00105 0
0VARIABLE STORAGE (A=ARRAY,C=COMMON,E=ERASABLE,DIGIT=MODE)
ABSENT 00010 4 ERCODE 00023 1 LINDEX 67644 C1 MZE 67660 AC1 TFUDG 67657 AC1
AINDEX 67664 C1 ERR1 00011 4 LODLIM 67643 AC1 NASTY 00015 4 TND 00052 1
AUTHOR 67645 C1 EXISTS 00012 4 LODTAB 73605 AC1 NOFILE 00016 4 TOOBAD 00020 4
BUFF1 76255 AC1 FENCE 67656 AC1 LOOP0 00007 4 PB 74477 C1 T 67661 AC1
BUFF2 75374 AC1 FIND 00013 4 LOOP1 00014 4 PG 74500 C1 TSKLTH 67637 AC1
BUFF 77136 AC1 HEADER 74513 AC1 LOOPT 00007 4 PRIV 67653 C1 UFD 73615 AC1
CURPTR 67646 C1 HEDER2 67636 AC1 LPREAM 67651 AC1 REELNO 67640 C1 UNIT 67663 C1
DAEMON 67641 AC1 HPROB 67650 C1 LRCT 74512 C1 SYSTEM 67642 AC1 U 00062 A 1
DEVICE 00022 1 HPROG 67647 C1 MESS1 00034 A 1 TABLE 77461 AC1 USERF 67655 AC1
DND 74503 C1 ILEDI 67654 AC1 MESS2 00050 A 1 TABLIM 67652 AC1 US 00021 4
DRAIN 74476 AC1 I 00024 1 MODE 00051 1 TEST 00017 4 WC 74511 C1
D 67662 AC1 J 00025 1
0FUNCTION DICTIONARY
ATTACH 00000 1 BCDEC 00001 1 EXIT 00002 1 FSTATE 00003 1 MAIL 00004 1
PRNTER 00005 1 PRNTP 00006 1
0ABSOLUTE CONSTANTS
00074 +000000000012 00101 +000000000202 00076 +000000000020 00100 +000000000034 00075 +000000000017
00072 +000000000010 00067 +000000000004 00070 +000000000005 00073 +000000000011 00065 +000000000002
00102 +000000777777 00077 +000000000022 00063 +000000000000 00071 +000000000007 00066 +000000000003
00064 +000000000001 00103 +233000000000
0STATEMENT DICTIONARY
00010 TXL -300611000602 00011 TXL -300753000752 00012 TXL -300617000611 00013 TXL -300435000427
00014 TXL -300754000753 00015 TXL -300623000621 00016 TXL -300735000727 00017 TXL -300564000546
00020 TXL -300544000523 00021 TXL -300724000716
0PROGRAM
EXTERNAL FUNCTION (V,X,Y,Z) 001 LM00004
I'E COM 002 LM00005
N'R 003 LM00002
B'N SWT. 004 LM00003
D'N TABLE(210),BUFF(432),BUFF1(432),BUFF2(432) 005 LM00005
D'N HEADER(12),UFD(7),DRAIN(432),LODTAB(2000) 006 LM00006
E'E (PB,HEADER(12)),(PG,HEADER(11)),(DND,HEADER(8)), 007 LM00007
1 (WC,HEADER(2)),(LRCT,HEADER(1)) 007 LM00008
P'N TABLE,BUFF,BUFF1,BUFF2 008 LM00009
P'N HEADER,DRAIN,UFD,LODTAB 009 LM00010
P'N AINDEX,UNIT,D,T,MZE,TFUDG,FENCE,USERF,ILEDI,PRIV 010 LM00011
P'N TABLIM,LPREAM,HPROB,HPROG,CURPTR,AUTHOR,LINDEX 011 LM00012
P'N LODLIM,SYSTEM,DAEMON,REELNO,TSKLTH 012 LM00013
V'S FENCE = 777777777777K 013 LM00015
67656 -3 77777 7 77777
V'S MZE = 4K11 014 LM00016
67660 -0 00000 0 00000
V'S TFUDG = 1800 015 LM00017
67657 +0 00000 0 03410
V'S TABLIM = 200 016 LM00018
67652 +0 00000 0 00310
V'S LODLIM = 2000 017 LM00019
67643 +0 00000 0 03720
V'S LPREAM = 12 018 LM00020
67651 +0 00000 0 00014
V'S TSKLTH = 11 019 LM00021
67637 +0 00000 0 00013
V'S SYSTEM = $ C0056$ 020 LM00023
67642 -2 02300 0 00506
V'S DAEMON = $ 99999$ 021 LM00024
67641 -2 01111 1 11111
V'S D = $(DUMP)$ 022 LM00025
67662 -3 42464 4 44734
V'S T = $(TAPE)$ 023 LM00026
67661 -3 46321 4 72534
V'S USERF = $USER F$ 024 LM00027
67655 -2 46225 5 16026
V'S ILEDI = $ILE DI$ 025 LM00028
67654 +3 14325 6 02431
DIMENSION HEDER2(12) 026 LM00029
P'N HEDER2 027 LM00030
S'L X,Y 028 LM00006
B'N Z 029 LM00007
V'S MESS1 = $ FILE $,0,575757575760K,0,$ IS PRIVATE$, 030 LM00009
1 777777777777K 030 LM00010
00026 -3 77777 7 77777 00027 +3 16521 6 32560 00030 -2 03162 6 04751 00031 +0 00000 0 00000
00032 -1 75757 5 75760 00033 +0 00000 0 00000 00034 -2 02631 4 32560
V'S MESS2 = $ FILE $,0,575757575760K,0, 031 LM00011
1 $ ALREADY EXISTS FOR $,0,575757575760K, 031 LM00012
2 0,777777777777K 031 LM00013
00035 -3 77777 7 77777 00036 +0 00000 0 00000 00037 -1 75757 5 75760 00040 +0 00000 0 00000
00041 -1 16060 6 06060 00042 -2 26362 6 02646 00043 +2 47060 2 56731 00044 -2 02143 5 12521
00045 +0 00000 0 00000 00046 -1 75757 5 75760 00047 +0 00000 0 00000 00050 -2 02631 4 32560
D'N U(7) 032 LM00015
E'O DECIDE. 033 LM00023
00104 TRA +0 02000 0 00107 00105 SXA +0 63400 2 00756 00106 TSX +0 07400 2 00756
T'H LOOP0, FOR I=3,1,(I.G.7) 034 LM00027
00107 CLA +0 50000 0 00066 00110 STO +0 60100 0 00024 00111 TRA +0 02000 0 00115 00112 CLA +0 50000 0 00024
00113 ADD +0 40000 0 00064 00114 STO +0 60100 0 00024 00115 CLA +0 50000 0 00024 00116 SUB +0 40200 0 00071
00117 TZE +0 10000 0 00121 00120 TPL +0 12000 0 00126
U(I) = V(I) 035 LM00028
00121 LXA +0 53400 1 00024 00122 LXA +0 53400 2 00024 00123 CLA +0 50000 2 00000 00124 STO +0 60100 1 00062
LOOP0 C'E 036 LM00029
00125 TRA +0 02000 0 00112
W'R (LINDEX.GE.LODLIM).OR.((LRCT.RS.18).NE.1) 037 LM00033
1 .OR.((U(7).E.0).AND.(U(6).E.0)), T'O Y 037 LM00034
00126 CLA +0 50000 0 00054 00127 SUB +0 40200 0 00063 00130 TNZ -0 10000 0 00134 00131 CLA +0 50000 0 00053
00132 SUB +0 40200 0 00063 00133 TZE +0 10000 0 00150 00134 CAL -0 50000 0 00077 00135 STA +0 62100 0 00137
00136 CAL -0 50000 0 74512 00137 LGR -0 76500 0 00000 00140 SLW +0 60200 0 00777 00141 CLA +0 50000 0 00777
00142 SUB +0 40200 0 00064 00143 TNZ -0 10000 0 00150 00144 CLA +0 50000 0 67644 00145 SUB +0 40200 0 67643
00146 TZE +0 10000 0 00150 00147 TMI -0 12000 0 00151 00150 TRA +0 02000 0 00000
TND = DND.A.777777K 038 LM00038
00151 CAL -0 50000 0 74503 00152 ANA -0 32000 0 00102 00153 SLW +0 60200 0 00052
T'H LOOP1, FOR I = 0,TSKLTH,(I .GE. AINDEX) 039 LM00039
00154 CLA +0 50000 0 00063 00155 STO +0 60100 0 00024 00156 TRA +0 02000 0 00162 00157 CLA +0 50000 0 00024
00160 ADD +0 40000 0 67637 00161 STO +0 60100 0 00024 00162 CLA +0 50000 0 00024 00163 SUB +0 40200 0 67664
00164 TZE +0 10000 0 00754 00165 TPL +0 12000 0 00754
W'R TABLE(I+2).E.0, T'O LOOP1 040 LM00040
00166 CLA +0 50000 0 00024 00167 ADD +0 40000 0 00065 00170 PAX +0 73400 1 00000 00171 CLA +0 50000 1 77461
00172 SUB +0 40200 0 00063 00173 TNZ -0 10000 0 00175 00174 TRA +0 02000 0 00014
W'R (TABLE(I).NE.PB).OR.(TABLE(I+1).NE.PG).OR. 041 LM00041
1 ((U(7).NE.USERF).AND.(TABLE(I+4).NE.FENCE).AND. 041 LM00042
2 (TABLE(I+4).NE.U(7))).OR.((U(6).NE.ILEDI).AND. 041 LM00043
3 (TABLE(I+5).NE.FENCE).AND.(TABLE(I+5).NE.U(6))) 041 LM00044
4 .OR.((UNIT+1).NE.TABLE(I+9)) 041 LM00045
00175 CLA +0 50000 0 00024 00176 ADD +0 40000 0 00073 00177 STO +0 60100 0 00777 00200 CLA +0 50000 0 67663
00201 ADD +0 40000 0 00064 00202 LXA +0 53400 2 00777 00203 SUB +0 40200 2 77461 00204 TNZ -0 10000 0 00255
00205 CLA +0 50000 0 00024 00206 ADD +0 40000 0 00070 00207 PAX +0 73400 1 00000 00210 CLA +0 50000 1 77461
00211 SUB +0 40200 0 00054 00212 TZE +0 10000 0 00224 00213 CLA +0 50000 0 00024 00214 ADD +0 40000 0 00070
00215 PAX +0 73400 1 00000 00216 CLA +0 50000 1 77461 00217 SUB +0 40200 0 67656 00220 TZE +0 10000 0 00224
00221 CLA +0 50000 0 00054 00222 SUB +0 40200 0 67654 00223 TNZ -0 10000 0 00255 00224 CLA +0 50000 0 00024
00225 ADD +0 40000 0 00067 00226 PAX +0 73400 1 00000 00227 CLA +0 50000 1 77461 00230 SUB +0 40200 0 00053
00231 TZE +0 10000 0 00243 00232 CLA +0 50000 0 00024 00233 ADD +0 40000 0 00067 00234 PAX +0 73400 1 00000
00235 CLA +0 50000 1 77461 00236 SUB +0 40200 0 67656 00237 TZE +0 10000 0 00243 00240 CLA +0 50000 0 00053
00241 SUB +0 40200 0 67655 00242 TNZ -0 10000 0 00255 00243 CLA +0 50000 0 00024 00244 ADD +0 40000 0 00064
00245 PAX +0 73400 1 00000 00246 CLA +0 50000 1 77461 00247 SUB +0 40200 0 74500 00250 TNZ -0 10000 0 00255
00251 LXA +0 53400 1 00024 00252 CLA +0 50000 1 77461 00253 SUB +0 40200 0 74477 00254 TZE +0 10000 0 00257
T'O LOOP1 042 LM00046
00255 TRA +0 02000 0 00014
O'R (TABLE(I+7).NE.0) 043 LM00047
00256 TRA +0 02000 0 00426 00257 CLA +0 50000 0 00024 00260 ADD +0 40000 0 00071 00261 PAX +0 73400 1 00000
00262 CLA +0 50000 1 77461 00263 SUB +0 40200 0 00063 00264 TZE +0 10000 0 00366
W'R (TABLE(I+8).E.0).OR.(TABLE(I+8).E.FENCE) 044 LM00048
00265 CLA +0 50000 0 00024 00266 ADD +0 40000 0 00072 00267 PAX +0 73400 1 00000 00270 CLA +0 50000 1 77461
00271 SUB +0 40200 0 67656 00272 TZE +0 10000 0 00301 00273 CLA +0 50000 0 00024 00274 ADD +0 40000 0 00072
00275 PAX +0 73400 1 00000 00276 CLA +0 50000 1 77461 00277 SUB +0 40200 0 00063 00300 TNZ -0 10000 0 00324
W'R ((TND.G.TABLE(I+7)).OR. 045 LM00049
1 (TABLE(I+7)-TND).L.TFUDG) 045 LM00050
00301 CLA +0 50000 0 00024 00302 ADD +0 40000 0 00071 00303 PAX +0 73400 1 00000 00304 CLA +0 50000 1 77461
00305 SUB +0 40200 0 00052 00306 SUB +0 40200 0 67657 00307 TZE +0 10000 0 00311 00310 TMI -0 12000 0 00320
00311 CLA +0 50000 0 00024 00312 ADD +0 40000 0 00071 00313 PAX +0 73400 2 00000 00314 CLA +0 50000 0 00052
00315 SUB +0 40200 2 77461 00316 TZE +0 10000 0 00322 00317 TMI -0 12000 0 00322
T'O FIND 046 LM00051
00320 TRA +0 02000 0 00013
O'E 047 LM00052
00321 TRA +0 02000 0 00323
T'O LOOP1 048 LM00053
00322 TRA +0 02000 0 00014
E'L 049 LM00054
O'E 050 LM00055
00323 TRA +0 02000 0 00365
W'R ((TND.G.TABLE(I+7)).OR. 051 LM00056
1 ((TABLE(I+7)-TND).L.TFUDG)).AND. 051 LM00057
2 ((TND.L.TABLE(I+8)).OR. 051 LM00058
3 ((TND-TABLE(I+8)).L.TFUDG)) 051 LM00059
00324 CLA +0 50000 0 00024 00325 ADD +0 40000 0 00072 00326 PAX +0 73400 2 00000 00327 CLA +0 50000 0 00052
00330 SUB +0 40200 2 77461 00331 SUB +0 40200 0 67657 00332 TZE +0 10000 0 00334 00333 TMI -0 12000 0 00343
00334 CLA +0 50000 0 00024 00335 ADD +0 40000 0 00072 00336 PAX +0 73400 2 00000 00337 CLA +0 50000 0 00052
00340 SUB +0 40200 2 77461 00341 TZE +0 10000 0 00364 00342 TPL +0 12000 0 00364 00343 CLA +0 50000 0 00024
00344 ADD +0 40000 0 00071 00345 PAX +0 73400 1 00000 00346 CLA +0 50000 1 77461 00347 SUB +0 40200 0 00052
00350 SUB +0 40200 0 67657 00351 TZE +0 10000 0 00353 00352 TMI -0 12000 0 00362 00353 CLA +0 50000 0 00024
00354 ADD +0 40000 0 00071 00355 PAX +0 73400 2 00000 00356 CLA +0 50000 0 00052 00357 SUB +0 40200 2 77461
00360 TZE +0 10000 0 00364 00361 TMI -0 12000 0 00364
T'O FIND 052 LM00060
00362 TRA +0 02000 0 00013
O'E 053 LM00061
00363 TRA +0 02000 0 00365
T'O LOOP1 054 LM00062
00364 TRA +0 02000 0 00014
E'L 055 LM00063
E'L 056 LM00064
O'E 057 LM00065
00365 TRA +0 02000 0 00426
W'R (TABLE(I+8).E.0) 058 LM00066
00366 CLA +0 50000 0 00024 00367 ADD +0 40000 0 00072 00370 PAX +0 73400 1 00000 00371 CLA +0 50000 1 77461
00372 SUB +0 40200 0 00063 00373 TNZ -0 10000 0 00376
T'O FIND 059 LM00067
00374 TRA +0 02000 0 00013
O'R (TABLE(I+8).E.FENCE) 060 LM00068
00375 TRA +0 02000 0 00426 00376 CLA +0 50000 0 00024 00377 ADD +0 40000 0 00072 00400 PAX +0 73400 1 00000
00401 CLA +0 50000 1 77461 00402 SUB +0 40200 0 67656 00403 TNZ -0 10000 0 00406
T'O FIND 061 LM00069
00404 TRA +0 02000 0 00013
O'R ((TND.L.TABLE(I+8)).OR. 062 LM00070
1 ((TND-TABLE(I+8)).L.TFUDG)) 062 LM00071
00405 TRA +0 02000 0 00426 00406 CLA +0 50000 0 00024 00407 ADD +0 40000 0 00072 00410 PAX +0 73400 2 00000
00411 CLA +0 50000 0 00052 00412 SUB +0 40200 2 77461 00413 SUB +0 40200 0 67657 00414 TZE +0 10000 0 00416
00415 TMI -0 12000 0 00425 00416 CLA +0 50000 0 00024 00417 ADD +0 40000 0 00072 00420 PAX +0 73400 2 00000
00421 CLA +0 50000 0 00052 00422 SUB +0 40200 2 77461 00423 TZE +0 10000 0 00426 00424 TPL +0 12000 0 00426
T'O FIND 063 LM00072
00425 TRA +0 02000 0 00013
E'L 064 LM00073
E'L 065 LM00074
T'O LOOP1 066 LM00075
00426 TRA +0 02000 0 00014
FIND DEVICE = (U(3).RS.15).A.7K 067 LM00079
00427 CAL -0 50000 0 00075 00430 STA +0 62100 0 00432 00431 CAL -0 50000 0 00057 00432 LGR -0 76500 0 00000
00433 ANA -0 32000 0 00071 00434 SLW +0 60200 0 00022
MODE = (U(3).RS.28) 068 LM00080
00435 CAL -0 50000 0 00100 00436 STA +0 62100 0 00440 00437 CAL -0 50000 0 00057 00440 LGR -0 76500 0 00000
00441 SLW +0 60200 0 00051
W'R (DEVICE .E. 0) 069 LM00084
00442 CLA +0 50000 0 00022 00443 SUB +0 40200 0 00063 00444 TNZ -0 10000 0 00447
T'O TEST 070 LM00085
00445 TRA +0 02000 0 00017
O'R ((MODE.A.020K).NE.0).AND. 071 LM00086
1 ((U(4).A.777777K).NE.BCDEC.(TABLE(I+3))).AND.(PRIV.E.2) 071 LM00087
00446 TRA +0 02000 0 00727 00447 CLA +0 50000 0 67653 00450 SUB +0 40200 0 00065 00451 TNZ -0 10000 0 00546
00452 CLA +0 50000 0 00024 00453 ADD +0 40000 0 00066 00454 SUB +0 40200 0 00455 00455 TXH +3 00000 0 77461
00456 STA +0 62100 0 00460 00457 TSX +0 07400 4 00001 00460 TXH +3 00000 0 00000 00461 STO +0 60100 0 00777
00462 CAL -0 50000 0 00056 00463 ANA -0 32000 0 00102 00464 SLW +0 60200 0 01000 00465 CLA +0 50000 0 01000
00466 SUB +0 40200 0 00777 00467 TZE +0 10000 0 00546 00470 CAL -0 50000 0 00051 00471 ANA -0 32000 0 00076
00472 SLW +0 60200 0 01000 00473 CLA +0 50000 0 01000 00474 SUB +0 40200 0 00063 00475 TZE +0 10000 0 00546
MESS1(1) = U(7) 072 LM00088
00476 CLA +0 50000 0 00053 00477 STO +0 60100 0 00033
MESS1(3) = U(6) 073 LM00089
00500 CLA +0 50000 0 00054 00501 STO +0 60100 0 00031
PRNTP.(MESS1) 074 LM00090
00502 TSX +0 07400 4 00006 00503 TXH +3 00000 0 00034
MAIL.(TABLE(I+2),TABLE(I+3),MESS1,1B) 075 LM00091
00504 CLA +0 50000 0 00024 00505 ADD +0 40000 0 00066 00506 SUB +0 40200 0 00507 00507 TXH +3 00000 0 77461
00510 STA +0 62100 0 00520 00511 CLA +0 50000 0 00024 00512 ADD +0 40000 0 00065 00513 SUB +0 40200 0 00514
00514 TXH +3 00000 0 77461 00515 STA +0 62100 0 00517 00516 TSX +0 07400 4 00004 00517 TXH +3 00000 0 00000
00520 TXH +3 00000 0 00000 00521 TXH +3 00000 0 00034 00522 TXH +3 00000 0 00064
TOOBAD W'R (TABLE(I+4).NE.FENCE).AND. 076 LM00092
1 (TABLE(I+5).NE.FENCE), TABLE(I+2) = 0 076 LM00093
00523 CLA +0 50000 0 00024 00524 ADD +0 40000 0 00070 00525 PAX +0 73400 1 00000 00526 CLA +0 50000 1 77461
00527 SUB +0 40200 0 67656 00530 TZE +0 10000 0 00544 00531 CLA +0 50000 0 00024 00532 ADD +0 40000 0 00067
00533 PAX +0 73400 1 00000 00534 CLA +0 50000 1 77461 00535 SUB +0 40200 0 67656 00536 TZE +0 10000 0 00544
00537 CLA +0 50000 0 00024 00540 ADD +0 40000 0 00065 00541 PAX +0 73400 1 00000 00542 CLA +0 50000 0 00063
00543 STO +0 60100 1 77461
T'O LOOP1 077 LM00094
00544 TRA +0 02000 0 00014
O'E 078 LM00095
00545 TRA +0 02000 0 00727
TEST ATTACH.(TABLE(I+2),TABLE(I+3),ERR1) 079 LM00099
00546 CLA +0 50000 0 00024 00547 ADD +0 40000 0 00066 00550 SUB +0 40200 0 00551 00551 TXH +3 00000 0 77461
00552 STA +0 62100 0 00562 00553 CLA +0 50000 0 00024 00554 ADD +0 40000 0 00065 00555 SUB +0 40200 0 00556
00556 TXH +3 00000 0 77461 00557 STA +0 62100 0 00561 00560 TSX +0 07400 4 00000 00561 TXH +3 00000 0 00000
00562 TXH +3 00000 0 00000 00563 TXH +3 00000 0 00011
FSTATE.(U(7),U(6),DRAIN(2)...2,ABSENT,ERCODE) 080 LM00100
00564 TSX +0 07400 4 00003 00565 TXH +3 00000 0 00053 00566 TXH +3 00000 0 00054 00567 TIX +2 00065 0 74474
00570 TXH +3 00000 0 00010 00571 TXH +3 00000 0 00023
W'R ((DRAIN(1).A.202K).NE.0), T'O NOFILE 081 LM00104
00572 CAL -0 50000 0 74475 00573 ANA -0 32000 0 00101 00574 SLW +0 60200 0 01000 00575 CLA +0 50000 0 01000
00576 SUB +0 40200 0 00063 00577 TZE +0 10000 0 00601 00600 TRA +0 02000 0 00016
T'O EXISTS 082 LM00105
00601 TRA +0 02000 0 00012
ABSENT W'R (ERCODE.NE.4).AND.(ERCODE.NE.5), 083 LM00109
1 T'O NOFILE 083 LM00110
00602 CLA +0 50000 0 00023 00603 SUB +0 40200 0 00070 00604 TZE +0 10000 0 00611 00605 CLA +0 50000 0 00023
00606 SUB +0 40200 0 00067 00607 TZE +0 10000 0 00611 00610 TRA +0 02000 0 00016
EXISTS W'R (TABLE(I+10).E.0) 084 LM00114
00611 CLA +0 50000 0 00024 00612 ADD +0 40000 0 00074 00613 PAX +0 73400 1 00000 00614 CLA +0 50000 1 77461
00615 SUB +0 40200 0 00063 00616 TNZ -0 10000 0 00661
W'R Z 085 LM00115
00617 NZT -0 52000 0 00000 00620 TRA +0 02000 0 00660
NASTY MESS2(1) = U(7) 086 LM00116
00621 CLA +0 50000 0 00053 00622 STO +0 60100 0 00047
MESS2(3) = U(6) 087 LM00117
00623 CLA +0 50000 0 00054 00624 STO +0 60100 0 00045
MESS2(8) = TABLE(I+2) 088 LM00118
00625 CLA +0 50000 0 00024 00626 ADD +0 40000 0 00065 00627 PAX +0 73400 2 00000 00630 CLA +0 50000 2 77461
00631 STO +0 60100 0 00040
MESS2(10) = TABLE(I+3) 089 LM00119
00632 CLA +0 50000 0 00024 00633 ADD +0 40000 0 00066 00634 PAX +0 73400 2 00000 00635 CLA +0 50000 2 77461
00636 STO +0 60100 0 00036
PRNTP.(MESS2) 090 LM00120
00637 TSX +0 07400 4 00006 00640 TXH +3 00000 0 00050
MAIL.(TABLE(I+2),TABLE(I+3),MESS2,1B) 091 LM00121
00641 CLA +0 50000 0 00024 00642 ADD +0 40000 0 00066 00643 SUB +0 40200 0 00644 00644 TXH +3 00000 0 77461
00645 STA +0 62100 0 00655 00646 CLA +0 50000 0 00024 00647 ADD +0 40000 0 00065 00650 SUB +0 40200 0 00651
00651 TXH +3 00000 0 77461 00652 STA +0 62100 0 00654 00653 TSX +0 07400 4 00004 00654 TXH +3 00000 0 00000
00655 TXH +3 00000 0 00000 00656 TXH +3 00000 0 00050 00657 TXH +3 00000 0 00064
E'L 092 LM00122
T'O TOOBAD 093 LM00123
00660 TRA +0 02000 0 00020
E'L 094 LM00124
T'H LOOPT, FOR J=0,4,J.GE.LINDEX 095 LM00128
00661 CLA +0 50000 0 00063 00662 STO +0 60100 0 00025 00663 TRA +0 02000 0 00667 00664 CLA +0 50000 0 00025
00665 ADD +0 40000 0 00067 00666 STO +0 60100 0 00025 00667 CLA +0 50000 0 00025 00670 SUB +0 40200 0 67644
00671 TZE +0 10000 0 00715 00672 TPL +0 12000 0 00715
W'R (LODTAB(J).E.I).AND.(LODTAB(J+1).E.U(7)) 096 LM00129
1 .AND.(LODTAB(J+2).E.U(6)), T'O US 096 LM00130
00673 CLA +0 50000 0 00025 00674 ADD +0 40000 0 00065 00675 PAX +0 73400 1 00000 00676 CLA +0 50000 1 73605
00677 SUB +0 40200 0 00054 00700 TNZ -0 10000 0 00714 00701 CLA +0 50000 0 00025 00702 ADD +0 40000 0 00064
00703 PAX +0 73400 1 00000 00704 CLA +0 50000 1 73605 00705 SUB +0 40200 0 00053 00706 TNZ -0 10000 0 00714
00707 LXA +0 53400 1 00025 00710 CLA +0 50000 1 73605 00711 SUB +0 40200 0 00024 00712 TNZ -0 10000 0 00714
00713 TRA +0 02000 0 00021
LOOPT C'E 097 LM00131
00714 TRA +0 02000 0 00664
T'O NASTY 098 LM00132
00715 TRA +0 02000 0 00015
US W'R TABLE(I+8) .E. FENCE 099 LM00136
00716 CLA +0 50000 0 00024 00717 ADD +0 40000 0 00072 00720 PAX +0 73400 1 00000 00721 CLA +0 50000 1 77461
00722 SUB +0 40200 0 67656 00723 TNZ -0 10000 0 00726
T'O NOFILE 100 LM00137
00724 TRA +0 02000 0 00016
O'E 101 LM00138
00725 TRA +0 02000 0 00727
T'O LOOP1 102 LM00139
00726 TRA +0 02000 0 00014
E'L 103 LM00140
E'L 104 LM00141
NOFILE W'R (HEADER(7).NE.USERF).OR.(HEADER(6).NE.ILEDI) 105 LM00146
00727 CLA +0 50000 0 74505 00730 SUB +0 40200 0 67654 00731 TNZ -0 10000 0 00735 00732 CLA +0 50000 0 74504
00733 SUB +0 40200 0 67655 00734 TZE +0 10000 0 00747
PB = TABLE(I+2) 106 LM00147
00735 CLA +0 50000 0 00024 00736 ADD +0 40000 0 00065 00737 PAX +0 73400 2 00000 00740 CLA +0 50000 2 77461
00741 STO +0 60100 0 74477
PG = TABLE(I+3) 107 LM00148
00742 CLA +0 50000 0 00024 00743 ADD +0 40000 0 00066 00744 PAX +0 73400 2 00000 00745 CLA +0 50000 2 77461
00746 STO +0 60100 0 74500
E'L 108 LM00149
CURPTR = I 109 LM00150
00747 CLA +0 50000 0 00024 00750 STO +0 60100 0 67646
T'O X 110 LM00151
00751 TRA +0 02000 0 00000
ERR1 PRNTER. 111 LM00153
00752 TSX +0 07400 4 00005
LOOP1 C'E 112 LM00155
00753 TRA +0 02000 0 00157
T'O Y 113 LM00157
00754 TRA +0 02000 0 00000
E'N 114 LM00159
00755 TSX +0 07400 4 00002 00756 TXH +3 00000 0 00000 00757 SXD -0 63400 1 00756 00760 SXA +0 63400 4 00773
00761 CLA +0 50000 4 00001 00762 STA +0 62100 0 00123 00763 CLA +0 50000 4 00002 00764 STA +0 62100 0 00751
00765 CLA +0 50000 4 00003 00766 STA +0 62100 0 00150 00767 STA +0 62100 0 00754 00770 CLA +0 50000 4 00004
00771 STA +0 62100 0 00617 00772 TRA +0 02000 2 00001 00773 AXT +0 77400 4 00000 00774 LXA +0 53400 2 00756
00775 LXD -0 53400 1 00756 00776 TRA +0 02000 4 00001
CKUFD BCD 05/28/67 2015.5 6886 00000
1 MAD PROGRAM LISTING ... ... ... FILE CKUFD MAD 05/28/67 1922.0
-
SEARCH TAPE-FILE UFD FOR RETRIEVALS LM00001
D.R. WIDRIG DEC. 1965 LM00002
LM00003
EXTERNAL FUNCTION (ERR,ERRS) *001 LM00004
INSERT FILE COM *002 LM00005
*002 LM00001
NORMAL MODE IS INTEGER *003 LM00002
BOOLEAN SWT. *004 LM00003
LM00004
DIMENSION TABLE(210),BUFF(432),BUFF1(432),BUFF2(432) *005 LM00005
DIMENSION HEADER(12),UFD(7),DRAIN(432),LODTAB(2000) *006 LM00006
EQUIVALENCE (PB,HEADER(12)),(PG,HEADER(11)),(DND,HEADER(8)), *007 LM00007
1 (WC,HEADER(2)),(LRCT,HEADER(1)) *007 LM00008
PROGRAM COMMON TABLE,BUFF,BUFF1,BUFF2 *008 LM00009
PROGRAM COMMON HEADER,DRAIN,UFD,LODTAB *009 LM00010
PROGRAM COMMON AINDEX,UNIT,D,T,MZE,TFUDG,FENCE,USERF,ILEDI,PRIV *010 LM00011
PROGRAM COMMON TABLIM,LPREAM,HPROB,HPROG,CURPTR,AUTHOR,LINDEX *011 LM00012
PROGRAM COMMON LODLIM,SYSTEM,DAEMON,REELNO,TSKLTH *012 LM00013
LM00014
VECTOR VALUES FENCE = 777777777777K *013 LM00015
VECTOR VALUES MZE = 4K11 *014 LM00016
VECTOR VALUES TFUDG = 1800 *015 LM00017
VECTOR VALUES TABLIM = 200 *016 LM00018
VECTOR VALUES LODLIM = 2000 *017 LM00019
VECTOR VALUES LPREAM = 12 *018 LM00020
VECTOR VALUES TSKLTH = 11 *019 LM00021
LM00022
VECTOR VALUES SYSTEM = $ C0056$ *020 LM00023
VECTOR VALUES DAEMON = $ 99999$ *021 LM00024
VECTOR VALUES D = $(DUMP)$ *022 LM00025
VECTOR VALUES T = $(TAPE)$ *023 LM00026
VECTOR VALUES USERF = $USER F$ *024 LM00027
VECTOR VALUES ILEDI = $ILE DI$ *025 LM00028
DIMENSION HEDER2(12) *026 LM00029
PROGRAM COMMON HEDER2 *027 LM00030
LM00031
STATEMENT LABEL ERR,ERRS *028 LM00006
LM00007
VECTOR VALUES MESS1 = $ FILE $,0,575757575760K,0,$ FOR $, *029 LM00008
1 0,575757575760K,0,$ HAS ILLEGAL DEVICE CODE$, *029 LM00009
2 777777777777K *029 LM00010
VECTOR VALUES MESS2 = $LINKED FILE $,0,575757575760K,0,$ NOT RETRIEVED$ *030 LM00011
1 ,777777777777K *030 LM00012
VECTOR VALUES MESS3 = $TO RE-LINK FILE ... $,777777777777K *031 LM00013
VECTOR VALUES MESS4 = $ LINK $,0,575757575760K,0,575757575760K, *032 LM00014
1 0,575757575760K,0,575757575760K, *032 LM00015
2 0,575757575760K,0,575757575760K,777777777777K *032 LM00016
LM00017
VECTOR VALUES NULLS = 575757575757K *033 LM00018
LM00019
SELECT AND MATCH UFD ENTRIES WITH RETRIEVALS LM00020
LM00021
ENTRY TO CKUFD. *034 LM00022
LM00023
SET UP TAPE FILE AND DRAIN OFF QUOTA WORDS LM00024
LM00025
STAPE.(MZE,MZE,WC) *035 LM00026
RDTAPE.(DRAIN,3,MZE,EOF,DRAIN,ERR,ERRS) *036 LM00027
LM00028
READ ONE UFD ENTRY FROM TAPE LM00029
LM00030
READ RDTAPE.(UFD,7,MZE,EOF,DRAIN,ERR,ERRS) *037 LM00031
LM00032
NOW SEE IF FILE IS WANTED LM00033
LM00034
DECIDE.(UFD,YES,NO,0B) *038 LM00035
NO TRANSFER TO READ *039 LM00036
LM00037
FILE IS USEFUL, DETERMINE ACTION LM00038
BY CHECKING DEVICE CODE LM00039
LM00040
YES DEVICE = (UFD(3).RS.15).A.7K *040 LM00041
WHENEVER (DEVICE.G.3), TRANSFER TO ILDEV *041 LM00042
LM00043
SET PROBNO,PROGNO EQUAL TO CONTROLLING TASK LM00044
LM00045
TPB = TABLE(CURPTR+2) *042 LM00046
TPG = TABLE(CURPTR+3) *043 LM00047
TRANSFER TO ST(DEVICE) *044 LM00048
LM00049
DEVICE 0, LINKED FILE, GRIPE AND LEAVE NOTE LM00050
LM00051
ST(0) MESS2(2) = UFD(7) *045 LM00052
MESS2(4) = UFD(6) *046 LM00053
MESS4(1) = UFD(7) *047 LM00054
MESS4(3) = UFD(6) *048 LM00055
MESS4(5) = UFD(5) *049 LM00056
MESS4(7) = UFD(4) *050 LM00057
MESS4(9) = UFD(2) *051 LM00058
MESS4(11) = UFD(1) *052 LM00059
LM00060
TIDY UP LETTER TO USER LM00061
LM00062
WHENEVER UFD(1) .NE. UFD(6), TRANSFER TO SNORT *053 LM00063
MESS4(11) = NULLS *054 LM00064
WHENEVER UFD(2) .E. UFD(7), MESS4(9) = NULLS *055 LM00065
LM00066
MAKE GRIPE KNOWN TO THE WORLD LM00067
LM00068
SNORT PRNTP.(MESS2) *056 LM00069
MAIL.(TPB,TPG,MESS2,1B) *057 LM00070
MAIL.(TPB,TPG,MESS3,0B) *058 LM00071
MAIL.(TPB,TPG,MESS4,0B) *059 LM00072
LM00073
DELETE TABLE ENTRY LM00074
LM00075
DELTAB.(UFD(7),UFD(6)) *060 LM00076
TRANSFER TO READ *061 LM00077
LM00078
DEVICE IS 1 OR 2, FILE IS ON TAPE (PROBABLY) LM00079
LM00080
ST(1) TRANSFER TO READ *062 LM00081
ST(2) TRANSFER TO READ *063 LM00082
LM00083
DEVICE IS 3, SET UP FOR TAPFIL LM00084
LM00085
ST(3) ATTACH.(TPB,TPG) *064 LM00086
FILENO = UFD(1).RS.18 *065 LM00087
UNITNO = UFD(1).A.777777K *066 LM00088
CLEAR.(UFD(7),UFD(6)) *067 LM00089
TAPFIL.(UFD(7),UFD(6),UNITNO,FILENO,ERR1) *068 LM00090
TDYFIL.(UFD) *069 LM00091
TRIED DELTAB.(UFD(7),UFD(6)) *070 LM00092
TRANSFER TO READ *071 LM00093
LM00094
GRIPE ABOUT ILLEGAL DEVICE LM00095
LM00096
ILDEV MESS1(5) = PB *072 LM00097
MESS1(7) = PG *073 LM00098
MESS1(1) = UFD(7) *074 LM00099
MESS1(3) = UFD(6) *075 LM00100
PRNTP.(MESS1) *076 LM00101
TRANSFER TO READ *077 LM00102
LM00103
END OF UFD, TIDY UP LM00104
LM00105
EOF FTAPE.(MZE,MZE,MZE,EOF1,DRAIN,ERR,ERRS) *078 LM00106
EOF1 FUNCTION RETURN *079 LM00107
LM00108
ERR1 PRNTER. *080 LM00109
TRANSFER TO TRIED *081 LM00110
LM00111
END OF FUNCTION *082 LM00112
1MAD PROGRAM,TYPE NOV 1963 (ALL NUMBERS ARE OCTAL)
0TOTAL LOCATIONS 00374 TRANSFER VECTOR LENGTH 00015 PROGRAM BEGINS 00123 FIRST UNUSED COMMON/ERASABLE 67621
0 PROGRAM IS AN EXTERNAL FUNCTION. THE FOLLOWING ARE ENTRIES
CKUFD 00124 0
0VARIABLE STORAGE (A=ARRAY,C=COMMON,E=ERASABLE,DIGIT=MODE)
AINDEX 67664 C1 EOF 00017 4 LODLIM 67643 AC1 PB 74477 C1 TPB 00107 1
AUTHOR 67645 C1 ERR1 00020 4 LODTAB 73605 AC1 PG 74500 C1 TPG 00110 1
BUFF1 76255 AC1 FENCE 67656 AC1 LPREAM 67651 AC1 PRIV 67653 C1 TRIED 00031 4
BUFF2 75374 AC1 FILENO 00034 1 LRCT 74512 C1 READ 00023 4 T 67661 AC1
BUFF 77136 AC1 HEADER 74513 AC1 MESS1 00051 A 1 REELNO 67640 C1 TSKLTH 67637 AC1
CURPTR 67646 C1 HEDER2 67636 AC1 MESS2 00062 A 1 SNORT 00024 4 UFD 73615 AC1
DAEMON 67641 AC1 HPROB 67650 C1 MESS3 00067 A 1 ST 00030 A 4 UNITNO 00111 1
DEVICE 00033 1 HPROG 67647 C1 MESS4 00105 A 1 SYSTEM 67642 AC1 UNIT 67663 C1
DND 74503 C1 ILDEV 00021 4 MZE 67660 AC1 TABLE 77461 AC1 USERF 67655 AC1
DRAIN 74476 AC1 ILEDI 67654 AC1 NO 00022 4 TABLIM 67652 AC1 WC 74511 C1
D 67662 AC1 LINDEX 67644 C1 NULLS 00106 A 1 TFUDG 67657 AC1 YES 00032 4
EOF1 00016 4
0FUNCTION DICTIONARY
ATTACH 00000 1 CLEAR 00001 1 DECIDE 00002 1 DELTAB 00003 1 EXIT 00004 1
FTAPE 00005 1 MAIL 00006 1 PRNTER 00007 1 PRNTP 00010 1 RDTAPE 00011 1
STAPE 00012 1 TAPFIL 00013 1 TDYFIL 00014 1
0ABSOLUTE CONSTANTS
00121 +000000777777 00120 +000000000022 00114 +000000000002 00117 +000000000017 00112 +000000000000
00116 +000000000007 00115 +000000000003 00113 +000000000001 00122 +233000000000
0STATEMENT DICTIONARY
00016 TXL -300347000346 00017 TXL -300346000336 00020 TXL -300350000347 00021 TXL -300325000323
00022 TXL -300160000157 00023 TXL -300152000142 00024 TXL -300244000242 00025 TXL -300274000271
00026 TXL -300271000270 00027 TXL -300270000267 00030 TXL -300211000207 00031 TXL -300322000317
00032 TXL -300166000160
0PROGRAM
EXTERNAL FUNCTION (ERR,ERRS) 001 LM00004
I'E COM 002 LM00005
N'R 003 LM00002
B'N SWT. 004 LM00003
D'N TABLE(210),BUFF(432),BUFF1(432),BUFF2(432) 005 LM00005
D'N HEADER(12),UFD(7),DRAIN(432),LODTAB(2000) 006 LM00006
E'E (PB,HEADER(12)),(PG,HEADER(11)),(DND,HEADER(8)), 007 LM00007
1 (WC,HEADER(2)),(LRCT,HEADER(1)) 007 LM00008
P'N TABLE,BUFF,BUFF1,BUFF2 008 LM00009
P'N HEADER,DRAIN,UFD,LODTAB 009 LM00010
P'N AINDEX,UNIT,D,T,MZE,TFUDG,FENCE,USERF,ILEDI,PRIV 010 LM00011
P'N TABLIM,LPREAM,HPROB,HPROG,CURPTR,AUTHOR,LINDEX 011 LM00012
P'N LODLIM,SYSTEM,DAEMON,REELNO,TSKLTH 012 LM00013
V'S FENCE = 777777777777K 013 LM00015
67656 -3 77777 7 77777
V'S MZE = 4K11 014 LM00016
67660 -0 00000 0 00000
V'S TFUDG = 1800 015 LM00017
67657 +0 00000 0 03410
V'S TABLIM = 200 016 LM00018
67652 +0 00000 0 00310
V'S LODLIM = 2000 017 LM00019
67643 +0 00000 0 03720
V'S LPREAM = 12 018 LM00020
67651 +0 00000 0 00014
V'S TSKLTH = 11 019 LM00021
67637 +0 00000 0 00013
V'S SYSTEM = $ C0056$ 020 LM00023
67642 -2 02300 0 00506
V'S DAEMON = $ 99999$ 021 LM00024
67641 -2 01111 1 11111
V'S D = $(DUMP)$ 022 LM00025
67662 -3 42464 4 44734
V'S T = $(TAPE)$ 023 LM00026
67661 -3 46321 4 72534
V'S USERF = $USER F$ 024 LM00027
67655 -2 46225 5 16026
V'S ILEDI = $ILE DI$ 025 LM00028
67654 +3 14325 6 02431
DIMENSION HEDER2(12) 026 LM00029
P'N HEDER2 027 LM00030
S'L ERR,ERRS 028 LM00006
V'S MESS1 = $ FILE $,0,575757575760K,0,$ FOR $, 029 LM00008
1 0,575757575760K,0,$ HAS ILLEGAL DEVICE CODE$, 029 LM00009
2 777777777777K 029 LM00010
00035 -3 77777 7 77777 00036 +2 56023 4 62425 00037 -2 02425 6 53123 00040 -0 34325 2 72143
00041 -2 03021 6 26031 00042 +0 00000 0 00000 00043 -1 75757 5 75760 00044 +0 00000 0 00000
00045 -2 06026 4 65160 00046 +0 00000 0 00000 00047 -1 75757 5 75760 00050 +0 00000 0 00000
00051 -2 02631 4 32560
V'S MESS2 = $LINKED FILE $,0,575757575760K,0,$ NOT RETRIEVED$ 030 LM00011
1 ,777777777777K 030 LM00012
00052 -3 77777 7 77777 00053 +2 52460 6 06060 00054 +2 56351 3 12565 00055 -2 04546 6 36051
00056 +0 00000 0 00000 00057 -1 75757 5 75760 00060 +0 00000 0 00000 00061 -2 02631 4 32560
00062 -0 33145 4 22524
V'S MESS3 = $TO RE-LINK FILE ... $,777777777777K 031 LM00013
00063 -3 77777 7 77777 00064 +3 36060 6 06060 00065 +3 14325 6 03333 00066 -0 33145 4 26026
00067 -2 34660 5 12540
V'S MESS4 = $ LINK $,0,575757575760K,0,575757575760K, 032 LM00014
1 0,575757575760K,0,575757575760K, 032 LM00015
2 0,575757575760K,0,575757575760K,777777777777K 032 LM00016
00070 -3 77777 7 77777 00071 -1 75757 5 75760 00072 +0 00000 0 00000 00073 -1 75757 5 75760
00074 +0 00000 0 00000 00075 -1 75757 5 75760 00076 +0 00000 0 00000 00077 -1 75757 5 75760
00100 +0 00000 0 00000 00101 -1 75757 5 75760 00102 +0 00000 0 00000 00103 -1 75757 5 75760
00104 +0 00000 0 00000 00105 -2 04331 4 54260
V'S NULLS = 575757575757K 033 LM00018
00106 -1 75757 5 75757
E'O CKUFD. 034 LM00022
00123 TRA +0 02000 0 00126 00124 SXA +0 63400 2 00352 00125 TSX +0 07400 2 00352
STAPE.(MZE,MZE,WC) 035 LM00026
00126 TSX +0 07400 4 00012 00127 TXH +3 00000 0 67660 00130 TXH +3 00000 0 67660 00131 TXH +3 00000 0 74511
RDTAPE.(DRAIN,3,MZE,EOF,DRAIN,ERR,ERRS) 036 LM00027
00132 TSX +0 07400 4 00011 00133 TXH +3 00000 0 74476 00134 TXH +3 00000 0 00115 00135 TXH +3 00000 0 67660
00136 TXH +3 00000 0 00017 00137 TXH +3 00000 0 74476 00140 TXH +3 00000 0 00000 00141 TXH +3 00000 0 00000
READ RDTAPE.(UFD,7,MZE,EOF,DRAIN,ERR,ERRS) 037 LM00031
00142 TSX +0 07400 4 00011 00143 TXH +3 00000 0 73615 00144 TXH +3 00000 0 00116 00145 TXH +3 00000 0 67660
00146 TXH +3 00000 0 00017 00147 TXH +3 00000 0 74476 00150 TXH +3 00000 0 00000 00151 TXH +3 00000 0 00000
DECIDE.(UFD,YES,NO,0B) 038 LM00035
00152 TSX +0 07400 4 00002 00153 TXH +3 00000 0 73615 00154 TXH +3 00000 0 00032 00155 TXH +3 00000 0 00022
00156 TXH +3 00000 0 00112
NO T'O READ 039 LM00036
00157 TRA +0 02000 0 00023
YES DEVICE = (UFD(3).RS.15).A.7K 040 LM00041
00160 CAL -0 50000 0 00117 00161 STA +0 62100 0 00163 00162 CAL -0 50000 0 73612 00163 LGR -0 76500 0 00000
00164 ANA -0 32000 0 00116 00165 SLW +0 60200 0 00033
W'R (DEVICE.G.3), T'O ILDEV 041 LM00042
00166 CLA +0 50000 0 00033 00167 SUB +0 40200 0 00115 00170 TZE +0 10000 0 00173 00171 TMI -0 12000 0 00173
00172 TRA +0 02000 0 00021
TPB = TABLE(CURPTR+2) 042 LM00046
00173 CLA +0 50000 0 67646 00174 ADD +0 40000 0 00114 00175 PAX +0 73400 2 00000 00176 CLA +0 50000 2 77461
00177 STO +0 60100 0 00107
TPG = TABLE(CURPTR+3) 043 LM00047
00200 CLA +0 50000 0 67646 00201 ADD +0 40000 0 00115 00202 PAX +0 73400 2 00000 00203 CLA +0 50000 2 77461
00204 STO +0 60100 0 00110
T'O ST(DEVICE) 044 LM00048
00205 LXA +0 53400 2 00033 00206 TRA +0 02000 2 00030
ST(0) MESS2(2) = UFD(7) 045 LM00052
00207 CLA +0 50000 0 73606 00210 STO +0 60100 0 00060
MESS2(4) = UFD(6) 046 LM00053
00211 CLA +0 50000 0 73607 00212 STO +0 60100 0 00056
MESS4(1) = UFD(7) 047 LM00054
00213 CLA +0 50000 0 73606 00214 STO +0 60100 0 00104
MESS4(3) = UFD(6) 048 LM00055
00215 CLA +0 50000 0 73607 00216 STO +0 60100 0 00102
MESS4(5) = UFD(5) 049 LM00056
00217 CLA +0 50000 0 73610 00220 STO +0 60100 0 00100
MESS4(7) = UFD(4) 050 LM00057
00221 CLA +0 50000 0 73611 00222 STO +0 60100 0 00076
MESS4(9) = UFD(2) 051 LM00058
00223 CLA +0 50000 0 73613 00224 STO +0 60100 0 00074
MESS4(11) = UFD(1) 052 LM00059
00225 CLA +0 50000 0 73614 00226 STO +0 60100 0 00072
W'R UFD(1) .NE. UFD(6), T'O SNORT 053 LM00063
00227 CLA +0 50000 0 73614 00230 SUB +0 40200 0 73607 00231 TZE +0 10000 0 00233 00232 TRA +0 02000 0 00024
MESS4(11) = NULLS 054 LM00064
00233 CLA +0 50000 0 00106 00234 STO +0 60100 0 00072
W'R UFD(2) .E. UFD(7), MESS4(9) = NULLS 055 LM00065
00235 CLA +0 50000 0 73613 00236 SUB +0 40200 0 73606 00237 TNZ -0 10000 0 00242 00240 CLA +0 50000 0 00106
00241 STO +0 60100 0 00074
SNORT PRNTP.(MESS2) 056 LM00069
00242 TSX +0 07400 4 00010 00243 TXH +3 00000 0 00062
MAIL.(TPB,TPG,MESS2,1B) 057 LM00070
00244 TSX +0 07400 4 00006 00245 TXH +3 00000 0 00107 00246 TXH +3 00000 0 00110 00247 TXH +3 00000 0 00062
00250 TXH +3 00000 0 00113
MAIL.(TPB,TPG,MESS3,0B) 058 LM00071
00251 TSX +0 07400 4 00006 00252 TXH +3 00000 0 00107 00253 TXH +3 00000 0 00110 00254 TXH +3 00000 0 00067
00255 TXH +3 00000 0 00112
MAIL.(TPB,TPG,MESS4,0B) 059 LM00072
00256 TSX +0 07400 4 00006 00257 TXH +3 00000 0 00107 00260 TXH +3 00000 0 00110 00261 TXH +3 00000 0 00105
00262 TXH +3 00000 0 00112
DELTAB.(UFD(7),UFD(6)) 060 LM00076
00263 TSX +0 07400 4 00003 00264 TXH +3 00000 0 73606 00265 TXH +3 00000 0 73607
T'O READ 061 LM00077
00266 TRA +0 02000 0 00023
ST(1) T'O READ 062 LM00081
00267 TRA +0 02000 0 00023
ST(2) T'O READ 063 LM00082
00270 TRA +0 02000 0 00023
ST(3) ATTACH.(TPB,TPG) 064 LM00086
00271 TSX +0 07400 4 00000 00272 TXH +3 00000 0 00107 00273 TXH +3 00000 0 00110
FILENO = UFD(1).RS.18 065 LM00087
00274 CAL -0 50000 0 00120 00275 STA +0 62100 0 00277 00276 CAL -0 50000 0 73614 00277 LGR -0 76500 0 00000
00300 SLW +0 60200 0 00034
UNITNO = UFD(1).A.777777K 066 LM00088
00301 CAL -0 50000 0 73614 00302 ANA -0 32000 0 00121 00303 SLW +0 60200 0 00111
CLEAR.(UFD(7),UFD(6)) 067 LM00089
00304 TSX +0 07400 4 00001 00305 TXH +3 00000 0 73606 00306 TXH +3 00000 0 73607
TAPFIL.(UFD(7),UFD(6),UNITNO,FILENO,ERR1) 068 LM00090
00307 TSX +0 07400 4 00013 00310 TXH +3 00000 0 73606 00311 TXH +3 00000 0 73607 00312 TXH +3 00000 0 00111
00313 TXH +3 00000 0 00034 00314 TXH +3 00000 0 00020
TDYFIL.(UFD) 069 LM00091
00315 TSX +0 07400 4 00014 00316 TXH +3 00000 0 73615
TRIED DELTAB.(UFD(7),UFD(6)) 070 LM00092
00317 TSX +0 07400 4 00003 00320 TXH +3 00000 0 73606 00321 TXH +3 00000 0 73607
T'O READ 071 LM00093
00322 TRA +0 02000 0 00023
ILDEV MESS1(5) = PB 072 LM00097
00323 CLA +0 50000 0 74477 00324 STO +0 60100 0 00044
MESS1(7) = PG 073 LM00098
00325 CLA +0 50000 0 74500 00326 STO +0 60100 0 00042
MESS1(1) = UFD(7) 074 LM00099
00327 CLA +0 50000 0 73606 00330 STO +0 60100 0 00050
MESS1(3) = UFD(6) 075 LM00100
00331 CLA +0 50000 0 73607 00332 STO +0 60100 0 00046
PRNTP.(MESS1) 076 LM00101
00333 TSX +0 07400 4 00010 00334 TXH +3 00000 0 00051
T'O READ 077 LM00102
00335 TRA +0 02000 0 00023
EOF FTAPE.(MZE,MZE,MZE,EOF1,DRAIN,ERR,ERRS) 078 LM00106
00336 TSX +0 07400 4 00005 00337 TXH +3 00000 0 67660 00340 TXH +3 00000 0 67660 00341 TXH +3 00000 0 67660
00342 TXH +3 00000 0 00016 00343 TXH +3 00000 0 74476 00344 TXH +3 00000 0 00000 00345 TXH +3 00000 0 00000
EOF1 F'N 079 LM00107
00346 TRA +0 02000 0 00366
ERR1 PRNTER. 080 LM00109
00347 TSX +0 07400 4 00007
T'O TRIED 081 LM00110
00350 TRA +0 02000 0 00031
E'N 082 LM00112
00351 TSX +0 07400 4 00004 00352 TXH +3 00000 0 00000 00353 SXD -0 63400 1 00352 00354 SXA +0 63400 4 00366
00355 CLA +0 50000 4 00001 00356 STO +0 60100 0 00140 00357 STO +0 60100 0 00150 00360 STO +0 60100 0 00344
00361 CLA +0 50000 4 00002 00362 STO +0 60100 0 00141 00363 STO +0 60100 0 00151 00364 STO +0 60100 0 00345
00365 TRA +0 02000 2 00001 00366 AXT +0 77400 4 00000 00367 LXA +0 53400 2 00352 00370 LXD -0 53400 1 00352
00371 TRA +0 02000 4 00001
LDFILE BCD 05/28/67 2015.5 7674 00000
1 MAD PROGRAM LISTING ... ... ... FILE LDFILE MAD 05/28/67 1922.6
-
ROUTINE TO RE-LOAD A FILE FROM TAPE LM00001
D.R. WIDRIG DEC. 1965 LM00002
LM00003
EXTERNAL FUNCTION (Y,Z) *001 LM00004
INSERT FILE COM *002 LM00005
*002 LM00001
NORMAL MODE IS INTEGER *003 LM00002
BOOLEAN SWT. *004 LM00003
LM00004
DIMENSION TABLE(210),BUFF(432),BUFF1(432),BUFF2(432) *005 LM00005
DIMENSION HEADER(12),UFD(7),DRAIN(432),LODTAB(2000) *006 LM00006
EQUIVALENCE (PB,HEADER(12)),(PG,HEADER(11)),(DND,HEADER(8)), *007 LM00007
1 (WC,HEADER(2)),(LRCT,HEADER(1)) *007 LM00008
PROGRAM COMMON TABLE,BUFF,BUFF1,BUFF2 *008 LM00009
PROGRAM COMMON HEADER,DRAIN,UFD,LODTAB *009 LM00010
PROGRAM COMMON AINDEX,UNIT,D,T,MZE,TFUDG,FENCE,USERF,ILEDI,PRIV *010 LM00011
PROGRAM COMMON TABLIM,LPREAM,HPROB,HPROG,CURPTR,AUTHOR,LINDEX *011 LM00012
PROGRAM COMMON LODLIM,SYSTEM,DAEMON,REELNO,TSKLTH *012 LM00013
LM00014
VECTOR VALUES FENCE = 777777777777K *013 LM00015
VECTOR VALUES MZE = 4K11 *014 LM00016
VECTOR VALUES TFUDG = 1800 *015 LM00017
VECTOR VALUES TABLIM = 200 *016 LM00018
VECTOR VALUES LODLIM = 2000 *017 LM00019
VECTOR VALUES LPREAM = 12 *018 LM00020
VECTOR VALUES TSKLTH = 11 *019 LM00021
LM00022
VECTOR VALUES SYSTEM = $ C0056$ *020 LM00023
VECTOR VALUES DAEMON = $ 99999$ *021 LM00024
VECTOR VALUES D = $(DUMP)$ *022 LM00025
VECTOR VALUES T = $(TAPE)$ *023 LM00026
VECTOR VALUES USERF = $USER F$ *024 LM00027
VECTOR VALUES ILEDI = $ILE DI$ *025 LM00028
DIMENSION HEDER2(12) *026 LM00029
PROGRAM COMMON HEDER2 *027 LM00030
LM00031
STATEMENT LABEL Y,Z *028 LM00006
DIMENSION BUFF3(432) *029 LM00007
BOOLEAN EOFSW,ONCE *030 LM00008
LM00009
VECTOR VALUES MESS1 = $ FOR FILE $,0,575757575760K,0, *031 LM00010
1 $, TEMPORARY MODE WILL BE USED$, *031 LM00011
2 777777777777K *031 LM00012
VECTOR VALUES MESS2 = $ILLEGAL DEVICE, DEVICE USED WILL BE DISK$, *032 LM00013
1 777777777777K *032 LM00014
LM00015
ROUTINE TO LOAD A FILE FROM TAPE LM00016
LM00017
ENTRY TO LDFILE. *033 LM00018
Y1=0 *034 LM00019
ATTACH.(PB,PG) *035 LM00020
LM00021
GENERATE UNIQUE TEMPORARY NAME-PAIR LM00022
LM00023
UNIQUE.(N1,N2) *036 LM00024
LM00025
PICK UP UFD ENTRY LM00026
LM00027
THROUGH LOOP1, FOR I=3,1,I.G.7 *037 LM00028
UFD(I) = HEADER(I) *038 LM00029
LOOP1 CONTINUE *039 LM00030
DEVICE = (UFD(3).RS.15).A.7K *040 LM00031
LM00032
TEST DEVICE CODE LM00033
LM00034
WHENEVER (DEVICE.NE.1).AND.(DEVICE.NE.2) *041 LM00035
PRNTP.(MESS2) *042 LM00036
DEVICE = 2 *043 LM00037
END OF CONDITIONAL *044 LM00038
MODE = 0 *045 LM00039
EOFSW = 0B *046 LM00040
ONCE = 0B *047 LM00041
LM00042
CLEAR DISK UFD LM00043
LM00044
CLEAR.(N1,N2) *048 LM00045
LM00046
SET UP TAPE AND DISK (OR DRUM) FILE LM00047
LM00048
NERR3 STAPE.(MZE,MZE,WC) *049 LM00049
OPEN.($W$,N1,N2,MODE,DEVICE,ERR1,ERCODE) *050 LM00050
BUFFER.(N1,N2,BUFF3(432)...432,ERR2) *051 LM00051
LM00052
TRANSFER DATA LM00053
LM00054
WDS = 432 *052 LM00055
READ RDTAPE.(BUFF,WDS,MZE,EOF,EOFCT,ERR,SERR) *053 LM00056
TRANSFER TO WRITE *054 LM00057
LM00058
EOF WDS = EOFCT *055 LM00059
EOFSW = 1B *056 LM00060
LM00061
WRITE WRWAIT.(N1,N2,0,BUFF(WDS)...WDS,MZE,DRAIN,ERR2) *057 LM00062
WHENEVER .NOT. EOFSW, TRANSFER TO READ *058 LM00063
LM00064
CLOSE OUT FILE, FINISH TAPE, AND NOTE LOADING LM00065
LM00066
CLOSE.(N1,N2,NERR7) *059 LM00067
FTAPE.(MZE,MZE,MZE,EOF1,DRAIN,ERR3,SERR) *060 LM00068
LM00069
RENAME FILE LM00070
LM00071
EOF1 CLEAR.(UFD(7),UFD(6)) *061 LM00072
CHFILE.(N1,N2,MZE,UFD(7),UFD(6),NERR7) *062 LM00073
TDYFIL.(UFD) *063 LM00074
DELTAB.(UFD(7),UFD(6)) *064 LM00075
WHENEVER Y1 .E. 1,TRANSFER TO NERR6 *065 LM00076
FUNCTION RETURN *066 LM00077
LM00078
ERROR IN OPEN, CHECK OVERFLOW, DRAIN OFF FILE LM00079
LM00080
ERR1 PRNTER. *067 LM00081
WHENEVER (ERCODE.E.15).AND.(.NOT.ONCE) *068 LM00082
MESS1(2) = UFD(7) *069 LM00083
MESS1(4) = UFD(6) *070 LM00084
PRNTP.(MESS1) *071 LM00085
MAIL.(PB,PG,MESS1,1B) *072 LM00086
UFD(3) = UFD(3).V.2K9 *073 LM00087
MODE = 1 *074 LM00088
ONCE = 1B *075 LM00089
TRANSFER TO NERR3 *076 LM00090
OTHERWISE *077 LM00091
DRAINW.(MZE,MZE,WC,KILL,DRAIN,ERR,SERR) *078 LM00092
TRANSFER TO KILL *079 LM00093
END OF CONDITIONAL *080 LM00094
LM00095
ERROR IN LOADING, KILL LOAD, DRAIN REMAINDER LM00096
LM00097
ERR2 RDTAPE.(DRAIN,432,MZE,NERR0,DRAIN,ERR,SERR) *081 LM00098
TRANSFER TO ERR2 *082 LM00099
NERR0 FTAPE.(MZE,MZE,MZE,NERR7,DRAIN,ERR,SERR) *083 LM00100
NERR7 PRNTER. *084 LM00101
KILL CLOSE.(N1,N2,NERR8) *085 LM00102
NERR8 DELFIL.(N1,N2,NERR9) *086 LM00103
LM00104
DISABLE CONTROLLING TASK LM00105
LM00106
NERR9 TABLE(CURPTR+2) = 0 *087 LM00107
FUNCTION RETURN *088 LM00108
LM00109
ERR PRNTER. *089 LM00110
CLOSE.(N1,N2,NERR5) *090 LM00111
NERR5 DELFIL.(N1,N2,NERR6) *091 LM00112
NERR6 TRANSFER TO Y *092 LM00113
SERR PRNTER. *093 LM00114
CLOSE.(N1,N2,NERR5) *094 LM00115
DELFIL.(N1,N2,NERR6) *095 LM00116
TRANSFER TO Z *096 LM00117
ERROR IN READING ZEROES FROM DAEMON TAPE. IGNORE LM00118
ESSENTIALLY BUT TAKE Y EXIT TO INDICATE LM00119
POSITIONING DUE TO TPERR IS AFTER HEADER. LM00120
ERR3 Y1=1 *097 LM00121
TRANSFER TO EOF1 *098 LM00122
GO RENAME FILE ETC. LM00123
LM00124
END OF FUNCTION *099 LM00125
1MAD PROGRAM,TYPE NOV 1963 (ALL NUMBERS ARE OCTAL)
0TOTAL LOCATIONS 01351 TRANSFER VECTOR LENGTH 00023 PROGRAM BEGINS 00776 FIRST UNUSED COMMON/ERASABLE 67621
0 PROGRAM IS AN EXTERNAL FUNCTION. THE FOLLOWING ARE ENTRIES
LDFILE 00777 0
0VARIABLE STORAGE (A=ARRAY,C=COMMON,E=ERASABLE,DIGIT=MODE)
AINDEX 67664 C1 EOF 00025 4 KILL 00032 4 NERR3 00034 4 SYSTEM 67642 AC1
AUTHOR 67645 C1 EOFSW 00730 2 LINDEX 67644 C1 NERR5 00035 4 TABLE 77461 AC1
BUFF1 76255 AC1 ERCODE 00731 1 LODLIM 67643 AC1 NERR6 00036 4 TABLIM 67652 AC1
BUFF2 75374 AC1 ERR1 00026 4 LODTAB 73605 AC1 NERR7 00037 4 TFUDG 67657 AC1
BUFF3 00725 A 1 ERR2 00027 4 LOOP1 00023 4 NERR8 00040 4 T 67661 AC1
BUFF 77136 AC1 ERR3 00030 4 LPREAM 67651 AC1 NERR9 00041 4 TSKLTH 67637 AC1
CURPTR 67646 C1 ERR 00031 4 LRCT 74512 C1 ONCE 00761 2 UFD 73615 AC1
DAEMON 67641 AC1 FENCE 67656 AC1 MESS1 00745 A 1 PB 74477 C1 UNIT 67663 C1
DEVICE 00726 1 HEADER 74513 AC1 MESS2 00755 A 1 PG 74500 C1 USERF 67655 AC1
DND 74503 C1 HEDER2 67636 AC1 MODE 00756 1 PRIV 67653 C1 WC 74511 C1
DRAIN 74476 AC1 HPROB 67650 C1 MZE 67660 AC1 READ 00042 4 WDS 00762 1
D 67662 AC1 HPROG 67647 C1 N1 00757 1 REELNO 67640 C1 WRITE 00044 4
EOF1 00024 4 ILEDI 67654 AC1 N2 00760 1 SERR 00043 4 Y1 00763 1
EOFCT 00727 1 I 00732 1 NERR0 00033 4
0FUNCTION DICTIONARY
ATTACH 00000 1 BUFFER 00001 1 CHFILE 00002 1 CLEAR 00003 1 CLOSE 00004 1
DELFIL 00005 1 DELTAB 00006 1 DRAINW 00007 1 EXIT 00010 1 FTAPE 00011 1
MAIL 00012 1 OPEN 00013 1 PRNTER 00014 1 PRNTP 00015 1 RDTAPE 00016 1
STAPE 00017 1 TDYFIL 00020 1 UNIQUE 00021 1 WRWAIT 00022 1
0ABSOLUTE CONSTANTS
00773 +002000000000 00772 +000000000660 00775 -266060606060 00766 +000000000002 00771 +000000000017
00770 +000000000007 00767 +000000000003 00764 +000000000000 00765 +000000000001 00774 +233000000000
0STATEMENT DICTIONARY
00024 TXL -301157001154 00025 TXL -301117001115 00026 TXL -301201001200 00027 TXL -301253001243
00030 TXL -301331001327 00031 TXL -301304001303 00032 TXL -301271001265 00033 TXL -301264001254
00034 TXL -301065001061 00035 TXL -301314001310 00036 TXL -301315001314 00037 TXL -301265001264
00040 TXL -301275001271 00041 TXL -301302001275 00042 TXL -301114001104 00043 TXL -301316001315
00044 TXL -301135001121
0PROGRAM
EXTERNAL FUNCTION (Y,Z) 001 LM00004
I'E COM 002 LM00005
N'R 003 LM00002
B'N SWT. 004 LM00003
D'N TABLE(210),BUFF(432),BUFF1(432),BUFF2(432) 005 LM00005
D'N HEADER(12),UFD(7),DRAIN(432),LODTAB(2000) 006 LM00006
E'E (PB,HEADER(12)),(PG,HEADER(11)),(DND,HEADER(8)), 007 LM00007
1 (WC,HEADER(2)),(LRCT,HEADER(1)) 007 LM00008
P'N TABLE,BUFF,BUFF1,BUFF2 008 LM00009
P'N HEADER,DRAIN,UFD,LODTAB 009 LM00010
P'N AINDEX,UNIT,D,T,MZE,TFUDG,FENCE,USERF,ILEDI,PRIV 010 LM00011
P'N TABLIM,LPREAM,HPROB,HPROG,CURPTR,AUTHOR,LINDEX 011 LM00012
P'N LODLIM,SYSTEM,DAEMON,REELNO,TSKLTH 012 LM00013
V'S FENCE = 777777777777K 013 LM00015
67656 -3 77777 7 77777
V'S MZE = 4K11 014 LM00016
67660 -0 00000 0 00000
V'S TFUDG = 1800 015 LM00017
67657 +0 00000 0 03410
V'S TABLIM = 200 016 LM00018
67652 +0 00000 0 00310
V'S LODLIM = 2000 017 LM00019
67643 +0 00000 0 03720
V'S LPREAM = 12 018 LM00020
67651 +0 00000 0 00014
V'S TSKLTH = 11 019 LM00021
67637 +0 00000 0 00013
V'S SYSTEM = $ C0056$ 020 LM00023
67642 -2 02300 0 00506
V'S DAEMON = $ 99999$ 021 LM00024
67641 -2 01111 1 11111
V'S D = $(DUMP)$ 022 LM00025
67662 -3 42464 4 44734
V'S T = $(TAPE)$ 023 LM00026
67661 -3 46321 4 72534
V'S USERF = $USER F$ 024 LM00027
67655 -2 46225 5 16026
V'S ILEDI = $ILE DI$ 025 LM00028
67654 +3 14325 6 02431
DIMENSION HEDER2(12) 026 LM00029
P'N HEDER2 027 LM00030
S'L Y,Z 028 LM00006
D'N BUFF3(432) 029 LM00007
B'N EOFSW,ONCE 030 LM00008
V'S MESS1 = $ FOR FILE $,0,575757575760K,0, 031 LM00010
1 $, TEMPORARY MODE WILL BE USED$, 031 LM00011
2 777777777777K 031 LM00012
00733 -3 77777 7 77777 00734 -2 06462 2 52460 00735 +3 14343 6 02225 00736 -0 44624 2 56066
00737 -0 65121 5 17060 00740 -3 36063 2 54447 00741 +0 00000 0 00000 00742 -1 75757 5 75760
00743 +0 00000 0 00000 00744 -2 02631 4 32560 00745 -2 06060 2 64651
V'S MESS2 = $ILLEGAL DEVICE, DEVICE USED WILL BE DISK$, 032 LM00013
1 777777777777K 032 LM00014
00746 -3 77777 7 77777 00747 +2 43162 4 26060 00750 -0 34360 2 22560 00751 -2 22524 6 06631
00752 -2 53123 2 56064 00753 +2 32573 6 02425 00754 -0 36024 2 56531 00755 +3 14343 2 52721
E'O LDFILE. 033 LM00018
00776 TRA +0 02000 0 01001 00777 SXA +0 63400 2 01333 01000 TSX +0 07400 2 01333
Y1=0 034 LM00019
01001 CLA +0 50000 0 00764 01002 STO +0 60100 0 00763
ATTACH.(PB,PG) 035 LM00020
01003 TSX +0 07400 4 00000 01004 TXH +3 00000 0 74477 01005 TXH +3 00000 0 74500
UNIQUE.(N1,N2) 036 LM00024
01006 TSX +0 07400 4 00021 01007 TXH +3 00000 0 00757 01010 TXH +3 00000 0 00760
T'H LOOP1, FOR I=3,1,I.G.7 037 LM00028
01011 CLA +0 50000 0 00767 01012 STO +0 60100 0 00732 01013 TRA +0 02000 0 01017 01014 CLA +0 50000 0 00732
01015 ADD +0 40000 0 00765 01016 STO +0 60100 0 00732 01017 CLA +0 50000 0 00732 01020 SUB +0 40200 0 00770
01021 TZE +0 10000 0 01023 01022 TPL +0 12000 0 01030
UFD(I) = HEADER(I) 038 LM00029
01023 LXA +0 53400 1 00732 01024 LXA +0 53400 2 00732 01025 CLA +0 50000 2 74513 01026 STO +0 60100 1 73615
LOOP1 C'E 039 LM00030
01027 TRA +0 02000 0 01014
DEVICE = (UFD(3).RS.15).A.7K 040 LM00031
01030 CAL -0 50000 0 00771 01031 STA +0 62100 0 01033 01032 CAL -0 50000 0 73612 01033 LGR -0 76500 0 00000
01034 ANA -0 32000 0 00770 01035 SLW +0 60200 0 00726
W'R (DEVICE.NE.1).AND.(DEVICE.NE.2) 041 LM00035
01036 CLA +0 50000 0 00726 01037 SUB +0 40200 0 00766 01040 TZE +0 10000 0 01050 01041 CLA +0 50000 0 00726
01042 SUB +0 40200 0 00765 01043 TZE +0 10000 0 01050
PRNTP.(MESS2) 042 LM00036
01044 TSX +0 07400 4 00015 01045 TXH +3 00000 0 00755
DEVICE = 2 043 LM00037
01046 CLA +0 50000 0 00766 01047 STO +0 60100 0 00726
E'L 044 LM00038
MODE = 0 045 LM00039
01050 CLA +0 50000 0 00764 01051 STO +0 60100 0 00756
EOFSW = 0B 046 LM00040
01052 CLA +0 50000 0 00764 01053 STO +0 60100 0 00730
ONCE = 0B 047 LM00041
01054 CLA +0 50000 0 00764 01055 STO +0 60100 0 00761
CLEAR.(N1,N2) 048 LM00045
01056 TSX +0 07400 4 00003 01057 TXH +3 00000 0 00757 01060 TXH +3 00000 0 00760
NERR3 STAPE.(MZE,MZE,WC) 049 LM00049
01061 TSX +0 07400 4 00017 01062 TXH +3 00000 0 67660 01063 TXH +3 00000 0 67660 01064 TXH +3 00000 0 74511
OPEN.($W$,N1,N2,MODE,DEVICE,ERR1,ERCODE) 050 LM00050
01065 TSX +0 07400 4 00013 01066 TXH +3 00000 0 00775 01067 TXH +3 00000 0 00757 01070 TXH +3 00000 0 00760
01071 TXH +3 00000 0 00756 01072 TXH +3 00000 0 00726 01073 TXH +3 00000 0 00026 01074 TXH +3 00000 0 00731
BUFFER.(N1,N2,BUFF3(432)...432,ERR2) 051 LM00051
01075 TSX +0 07400 4 00001 01076 TXH +3 00000 0 00757 01077 TXH +3 00000 0 00760 01100 TIX +2 00772 0 00045
01101 TXH +3 00000 0 00027
WDS = 432 052 LM00055
01102 CLA +0 50000 0 00772 01103 STO +0 60100 0 00762
READ RDTAPE.(BUFF,WDS,MZE,EOF,EOFCT,ERR,SERR) 053 LM00056
01104 TSX +0 07400 4 00016 01105 TXH +3 00000 0 77136 01106 TXH +3 00000 0 00762 01107 TXH +3 00000 0 67660
01110 TXH +3 00000 0 00025 01111 TXH +3 00000 0 00727 01112 TXH +3 00000 0 00031 01113 TXH +3 00000 0 00043
T'O WRITE 054 LM00057
01114 TRA +0 02000 0 00044
EOF WDS = EOFCT 055 LM00059
01115 CLA +0 50000 0 00727 01116 STO +0 60100 0 00762
EOFSW = 1B 056 LM00060
01117 CLA +0 50000 0 00765 01120 STO +0 60100 0 00730
WRITE WRWAIT.(N1,N2,0,BUFF(WDS)...WDS,MZE,DRAIN,ERR2) 057 LM00062
01121 CLA +0 50000 0 00762 01122 SUB +0 40200 0 01123 01123 TXH +3 00000 0 77136 01124 STA +0 62100 0 01131
01125 TSX +0 07400 4 00022 01126 TXH +3 00000 0 00757 01127 TXH +3 00000 0 00760 01130 TXH +3 00000 0 00764
01131 TIX +2 00762 0 00000 01132 TXH +3 00000 0 67660 01133 TXH +3 00000 0 74476 01134 TXH +3 00000 0 00027
W'R .NOT. EOFSW, T'O READ 058 LM00063
01135 ZET +0 52000 0 00730 01136 TRA +0 02000 0 01140 01137 TRA +0 02000 0 00042
CLOSE.(N1,N2,NERR7) 059 LM00067
01140 TSX +0 07400 4 00004 01141 TXH +3 00000 0 00757 01142 TXH +3 00000 0 00760 01143 TXH +3 00000 0 00037
FTAPE.(MZE,MZE,MZE,EOF1,DRAIN,ERR3,SERR) 060 LM00068
01144 TSX +0 07400 4 00011 01145 TXH +3 00000 0 67660 01146 TXH +3 00000 0 67660 01147 TXH +3 00000 0 67660
01150 TXH +3 00000 0 00024 01151 TXH +3 00000 0 74476 01152 TXH +3 00000 0 00030 01153 TXH +3 00000 0 00043
EOF1 CLEAR.(UFD(7),UFD(6)) 061 LM00072
01154 TSX +0 07400 4 00003 01155 TXH +3 00000 0 73606 01156 TXH +3 00000 0 73607
CHFILE.(N1,N2,MZE,UFD(7),UFD(6),NERR7) 062 LM00073
01157 TSX +0 07400 4 00002 01160 TXH +3 00000 0 00757 01161 TXH +3 00000 0 00760 01162 TXH +3 00000 0 67660
01163 TXH +3 00000 0 73606 01164 TXH +3 00000 0 73607 01165 TXH +3 00000 0 00037
TDYFIL.(UFD) 063 LM00074
01166 TSX +0 07400 4 00020 01167 TXH +3 00000 0 73615
DELTAB.(UFD(7),UFD(6)) 064 LM00075
01170 TSX +0 07400 4 00006 01171 TXH +3 00000 0 73606 01172 TXH +3 00000 0 73607
W'R Y1 .E. 1,T'O NERR6 065 LM00076
01173 CLA +0 50000 0 00763 01174 SUB +0 40200 0 00765 01175 TNZ -0 10000 0 01177 01176 TRA +0 02000 0 00036
F'N 066 LM00077
01177 TRA +0 02000 0 01343
ERR1 PRNTER. 067 LM00081
01200 TSX +0 07400 4 00014
W'R (ERCODE.E.15).AND.(.NOT.ONCE) 068 LM00082
01201 ZET +0 52000 0 00761 01202 TRA +0 02000 0 01232 01203 CLA +0 50000 0 00731 01204 SUB +0 40200 0 00771
01205 TNZ -0 10000 0 01232
MESS1(2) = UFD(7) 069 LM00083
01206 CLA +0 50000 0 73606 01207 STO +0 60100 0 00743
MESS1(4) = UFD(6) 070 LM00084
01210 CLA +0 50000 0 73607 01211 STO +0 60100 0 00741
PRNTP.(MESS1) 071 LM00085
01212 TSX +0 07400 4 00015 01213 TXH +3 00000 0 00745
MAIL.(PB,PG,MESS1,1B) 072 LM00086
01214 TSX +0 07400 4 00012 01215 TXH +3 00000 0 74477 01216 TXH +3 00000 0 74500 01217 TXH +3 00000 0 00745
01220 TXH +3 00000 0 00765
UFD(3) = UFD(3).V.2K9 073 LM00087
01221 CAL -0 50000 0 73612 01222 ORA -0 50100 0 00773 01223 SLW +0 60200 0 73612
MODE = 1 074 LM00088
01224 CLA +0 50000 0 00765 01225 STO +0 60100 0 00756
ONCE = 1B 075 LM00089
01226 CLA +0 50000 0 00765 01227 STO +0 60100 0 00761
T'O NERR3 076 LM00090
01230 TRA +0 02000 0 00034
O'E 077 LM00091
01231 TRA +0 02000 0 01243
DRAINW.(MZE,MZE,WC,KILL,DRAIN,ERR,SERR) 078 LM00092
01232 TSX +0 07400 4 00007 01233 TXH +3 00000 0 67660 01234 TXH +3 00000 0 67660 01235 TXH +3 00000 0 74511
01236 TXH +3 00000 0 00032 01237 TXH +3 00000 0 74476 01240 TXH +3 00000 0 00031 01241 TXH +3 00000 0 00043
T'O KILL 079 LM00093
01242 TRA +0 02000 0 00032
E'L 080 LM00094
ERR2 RDTAPE.(DRAIN,432,MZE,NERR0,DRAIN,ERR,SERR) 081 LM00098
01243 TSX +0 07400 4 00016 01244 TXH +3 00000 0 74476 01245 TXH +3 00000 0 00772 01246 TXH +3 00000 0 67660
01247 TXH +3 00000 0 00033 01250 TXH +3 00000 0 74476 01251 TXH +3 00000 0 00031 01252 TXH +3 00000 0 00043
T'O ERR2 082 LM00099
01253 TRA +0 02000 0 00027
NERR0 FTAPE.(MZE,MZE,MZE,NERR7,DRAIN,ERR,SERR) 083 LM00100
01254 TSX +0 07400 4 00011 01255 TXH +3 00000 0 67660 01256 TXH +3 00000 0 67660 01257 TXH +3 00000 0 67660
01260 TXH +3 00000 0 00037 01261 TXH +3 00000 0 74476 01262 TXH +3 00000 0 00031 01263 TXH +3 00000 0 00043
NERR7 PRNTER. 084 LM00101
01264 TSX +0 07400 4 00014
KILL CLOSE.(N1,N2,NERR8) 085 LM00102
01265 TSX +0 07400 4 00004 01266 TXH +3 00000 0 00757 01267 TXH +3 00000 0 00760 01270 TXH +3 00000 0 00040
NERR8 DELFIL.(N1,N2,NERR9) 086 LM00103
01271 TSX +0 07400 4 00005 01272 TXH +3 00000 0 00757 01273 TXH +3 00000 0 00760 01274 TXH +3 00000 0 00041
NERR9 TABLE(CURPTR+2) = 0 087 LM00107
01275 CLA +0 50000 0 67646 01276 ADD +0 40000 0 00766 01277 PAX +0 73400 1 00000 01300 CLA +0 50000 0 00764
01301 STO +0 60100 1 77461
F'N 088 LM00108
01302 TRA +0 02000 0 01343
ERR PRNTER. 089 LM00110
01303 TSX +0 07400 4 00014
CLOSE.(N1,N2,NERR5) 090 LM00111
01304 TSX +0 07400 4 00004 01305 TXH +3 00000 0 00757 01306 TXH +3 00000 0 00760 01307 TXH +3 00000 0 00035
NERR5 DELFIL.(N1,N2,NERR6) 091 LM00112
01310 TSX +0 07400 4 00005 01311 TXH +3 00000 0 00757 01312 TXH +3 00000 0 00760 01313 TXH +3 00000 0 00036
NERR6 T'O Y 092 LM00113
01314 TRA +0 02000 0 00000
SERR PRNTER. 093 LM00114
01315 TSX +0 07400 4 00014
CLOSE.(N1,N2,NERR5) 094 LM00115
01316 TSX +0 07400 4 00004 01317 TXH +3 00000 0 00757 01320 TXH +3 00000 0 00760 01321 TXH +3 00000 0 00035
DELFIL.(N1,N2,NERR6) 095 LM00116
01322 TSX +0 07400 4 00005 01323 TXH +3 00000 0 00757 01324 TXH +3 00000 0 00760 01325 TXH +3 00000 0 00036
T'O Z 096 LM00117
01326 TRA +0 02000 0 00000
ERR3 Y1=1 097 LM00121
01327 CLA +0 50000 0 00765 01330 STO +0 60100 0 00763
T'O EOF1 098 LM00122
01331 TRA +0 02000 0 00024
E'N 099 LM00125
01332 TSX +0 07400 4 00010 01333 TXH +3 00000 0 00000 01334 SXD -0 63400 1 01333 01335 SXA +0 63400 4 01343
01336 CLA +0 50000 4 00001 01337 STA +0 62100 0 01314 01340 CLA +0 50000 4 00002 01341 STA +0 62100 0 01326
01342 TRA +0 02000 2 00001 01343 AXT +0 77400 4 00000 01344 LXA +0 53400 2 01333 01345 LXD -0 53400 1 01333
01346 TRA +0 02000 4 00001
TDYFIL BCD 05/28/67 2015.5 4026 00000
1 MAD PROGRAM LISTING ... ... ... FILE TDYFIL MAD 05/28/67 1922.9
-
ROUTINE TO TIDY UP UFD ENTRIES FOR A FILE LM00001
D.R. WIDRIG DEC. 1965 LM00002
LM00003
EXTERNAL FUNCTION (V,W) *001 LM00004
INSERT FILE COM *002 LM00005
*002 LM00001
NORMAL MODE IS INTEGER *003 LM00002
BOOLEAN SWT. *004 LM00003
LM00004
DIMENSION TABLE(210),BUFF(432),BUFF1(432),BUFF2(432) *005 LM00005
DIMENSION HEADER(12),UFD(7),DRAIN(432),LODTAB(2000) *006 LM00006
EQUIVALENCE (PB,HEADER(12)),(PG,HEADER(11)),(DND,HEADER(8)), *007 LM00007
1 (WC,HEADER(2)),(LRCT,HEADER(1)) *007 LM00008
PROGRAM COMMON TABLE,BUFF,BUFF1,BUFF2 *008 LM00009
PROGRAM COMMON HEADER,DRAIN,UFD,LODTAB *009 LM00010
PROGRAM COMMON AINDEX,UNIT,D,T,MZE,TFUDG,FENCE,USERF,ILEDI,PRIV *010 LM00011
PROGRAM COMMON TABLIM,LPREAM,HPROB,HPROG,CURPTR,AUTHOR,LINDEX *011 LM00012
PROGRAM COMMON LODLIM,SYSTEM,DAEMON,REELNO,TSKLTH *012 LM00013
LM00014
VECTOR VALUES FENCE = 777777777777K *013 LM00015
VECTOR VALUES MZE = 4K11 *014 LM00016
VECTOR VALUES TFUDG = 1800 *015 LM00017
VECTOR VALUES TABLIM = 200 *016 LM00018
VECTOR VALUES LODLIM = 2000 *017 LM00019
VECTOR VALUES LPREAM = 12 *018 LM00020
VECTOR VALUES TSKLTH = 11 *019 LM00021
LM00022
VECTOR VALUES SYSTEM = $ C0056$ *020 LM00023
VECTOR VALUES DAEMON = $ 99999$ *021 LM00024
VECTOR VALUES D = $(DUMP)$ *022 LM00025
VECTOR VALUES T = $(TAPE)$ *023 LM00026
VECTOR VALUES USERF = $USER F$ *024 LM00027
VECTOR VALUES ILEDI = $ILE DI$ *025 LM00028
DIMENSION HEDER2(12) *026 LM00029
PROGRAM COMMON HEDER2 *027 LM00030
LM00031
*002 LM00006
VECTOR VALUES MESS1 = $LOADED$,0,575757575760K,0,575757575760K,0, *028 LM00007
1 575757575760K,0,777777777777K *028 LM00008
LM00009
SET DATE, MODES, ETC. LM00010
LM00011
ENTRY TO TDYFIL. *029 LM00012
LM00013
ANNOUNCE LOADING AND LEAVE NOTE TO USER LM00014
LM00015
MESS1(1) = PB *030 LM00016
MESS1(3) = PG *031 LM00017
MESS1(5) = V(7) *032 LM00018
MESS1(7) = V(6) *033 LM00019
PRNTP.(MESS1) *034 LM00020
MAIL.(PB,PG,MESS1,1B) *035 LM00021
LM00022
TO FORE-STALL DATE-REMOVAL OF RETRIEVED FILE, LM00023
LEAVE DATE-LAST-USED AS CURRENT DATE LM00024
LM00025
FSTATE.(V(7),V(6),DRAIN(8)...8) *036 LM00026
DLM=DRAIN(2) *037 LM00027
DLU = (V(4) .A. 777777K) .V. (DATECV.(DATE.(0),NERR0)) *038 LM00028
NERR0 CHFILE.(V(7),V(6),V(3).RS.28,MZE,MZE,ERR) *039 LM00029
SETFIL.(V(7),V(6),DLM,DLU,MZE,MZE,ERR) *040 LM00030
FUNCTION RETURN *041 LM00031
LM00032
CLEAR UFD OF ENTRY FOR FILE 'V W' LM00033
LM00034
ENTRY TO CLEAR. *042 LM00035
N1 = V *043 LM00036
N2 = W *044 LM00037
UNLINK.(N1,N2,NERR1) *045 LM00038
NERR1 CHFILE.(N1,N2,001K,MZE,MZE,NERR2) *046 LM00039
NERR2 DELFIL.(N1,N2,NERR3) *047 LM00040
NERR3 FUNCTION RETURN *048 LM00041
LM00042
ERR PRNTER. *049 LM00043
FUNCTION RETURN *050 LM00044
LM00045
END OF FUNCTION *051 LM00046
1MAD PROGRAM,TYPE NOV 1963 (ALL NUMBERS ARE OCTAL)
0TOTAL LOCATIONS 00226 TRANSFER VECTOR LENGTH 00013 PROGRAM BEGINS 00044 FIRST UNUSED COMMON/ERASABLE 67621
0 PROGRAM IS AN EXTERNAL FUNCTION. THE FOLLOWING ARE ENTRIES
CLEAR 00135 0 TDYFIL 00045 0
0VARIABLE STORAGE (A=ARRAY,C=COMMON,E=ERASABLE,DIGIT=MODE)
AINDEX 67664 C1 DRAIN 74476 AC1 LINDEX 67644 C1 NERR0 00015 4 TABLE 77461 AC1
AUTHOR 67645 C1 D 67662 AC1 LODLIM 67643 AC1 NERR1 00016 4 TABLIM 67652 AC1
BUFF1 76255 AC1 ERR 00014 4 LODTAB 73605 AC1 NERR2 00017 4 TFUDG 67657 AC1
BUFF2 75374 AC1 FENCE 67656 AC1 LPREAM 67651 AC1 NERR3 00020 4 T 67661 AC1
BUFF 77136 AC1 HEADER 74513 AC1 LRCT 74512 C1 PB 74477 C1 TSKLTH 67637 AC1
CURPTR 67646 C1 HEDER2 67636 AC1 MESS1 00033 A 1 PG 74500 C1 UFD 73615 AC1
DAEMON 67641 AC1 HPROB 67650 C1 MZE 67660 AC1 PRIV 67653 C1 UNIT 67663 C1
DLM 00021 1 HPROG 67647 C1 N1 00034 1 REELNO 67640 C1 USERF 67655 AC1
DLU 00022 1 ILEDI 67654 AC1 N2 00035 1 SYSTEM 67642 AC1 WC 74511 C1
DND 74503 C1
0FUNCTION DICTIONARY
CHFILE 00000 1 DATECV 00001 1 DATE 00002 1 DELFIL 00003 1 EXIT 00004 1
FSTATE 00005 1 MAIL 00006 1 PRNTER 00007 1 PRNTP 00010 1 SETFIL 00011 1
UNLINK 00012 1
0ABSOLUTE CONSTANTS
00041 +000000000034 00042 +000000777777 00036 +000000000000 00040 +000000000010 00037 +000000000001
00043 +233000000000
0STATEMENT DICTIONARY
00014 TXL -300164000163 00015 TXL -300123000107 00016 TXL -300156000147 00017 TXL -300162000156
00020 TXL -300163000162
0PROGRAM
EXTERNAL FUNCTION (V,W) 001 LM00004
I'E COM 002 LM00005
N'R 003 LM00002
B'N SWT. 004 LM00003
D'N TABLE(210),BUFF(432),BUFF1(432),BUFF2(432) 005 LM00005
D'N HEADER(12),UFD(7),DRAIN(432),LODTAB(2000) 006 LM00006
E'E (PB,HEADER(12)),(PG,HEADER(11)),(DND,HEADER(8)), 007 LM00007
1 (WC,HEADER(2)),(LRCT,HEADER(1)) 007 LM00008
P'N TABLE,BUFF,BUFF1,BUFF2 008 LM00009
P'N HEADER,DRAIN,UFD,LODTAB 009 LM00010
P'N AINDEX,UNIT,D,T,MZE,TFUDG,FENCE,USERF,ILEDI,PRIV 010 LM00011
P'N TABLIM,LPREAM,HPROB,HPROG,CURPTR,AUTHOR,LINDEX 011 LM00012
P'N LODLIM,SYSTEM,DAEMON,REELNO,TSKLTH 012 LM00013
V'S FENCE = 777777777777K 013 LM00015
67656 -3 77777 7 77777
V'S MZE = 4K11 014 LM00016
67660 -0 00000 0 00000
V'S TFUDG = 1800 015 LM00017
67657 +0 00000 0 03410
V'S TABLIM = 200 016 LM00018
67652 +0 00000 0 00310
V'S LODLIM = 2000 017 LM00019
67643 +0 00000 0 03720
V'S LPREAM = 12 018 LM00020
67651 +0 00000 0 00014
V'S TSKLTH = 11 019 LM00021
67637 +0 00000 0 00013
V'S SYSTEM = $ C0056$ 020 LM00023
67642 -2 02300 0 00506
V'S DAEMON = $ 99999$ 021 LM00024
67641 -2 01111 1 11111
V'S D = $(DUMP)$ 022 LM00025
67662 -3 42464 4 44734
V'S T = $(TAPE)$ 023 LM00026
67661 -3 46321 4 72534
V'S USERF = $USER F$ 024 LM00027
67655 -2 46225 5 16026
V'S ILEDI = $ILE DI$ 025 LM00028
67654 +3 14325 6 02431
DIMENSION HEDER2(12) 026 LM00029
P'N HEDER2 027 LM00030
V'S MESS1 = $LOADED$,0,575757575760K,0,575757575760K,0, 028 LM00007
1 575757575760K,0,777777777777K 028 LM00008
00023 -3 77777 7 77777 00024 +0 00000 0 00000 00025 -1 75757 5 75760 00026 +0 00000 0 00000
00027 -1 75757 5 75760 00030 +0 00000 0 00000 00031 -1 75757 5 75760 00032 +0 00000 0 00000
00033 -0 34621 2 42524
E'O TDYFIL. 029 LM00012
00044 TRA +0 02000 0 00047 00045 SXA +0 63400 2 00171 00046 TSX +0 07400 2 00171
MESS1(1) = PB 030 LM00016
00047 CLA +0 50000 0 74477 00050 STO +0 60100 0 00032
MESS1(3) = PG 031 LM00017
00051 CLA +0 50000 0 74500 00052 STO +0 60100 0 00030
MESS1(5) = V(7) 032 LM00018
00053 CLA +0 50000 0 00007 00054 STO +0 60100 0 00026
MESS1(7) = V(6) 033 LM00019
00055 CLA +0 50000 0 00006 00056 STO +0 60100 0 00024
PRNTP.(MESS1) 034 LM00020
00057 TSX +0 07400 4 00010 00060 TXH +3 00000 0 00033
MAIL.(PB,PG,MESS1,1B) 035 LM00021
00061 TSX +0 07400 4 00006 00062 TXH +3 00000 0 74477 00063 TXH +3 00000 0 74500 00064 TXH +3 00000 0 00033
00065 TXH +3 00000 0 00037
FSTATE.(V(7),V(6),DRAIN(8)...8) 036 LM00026
00066 TSX +0 07400 4 00005 00067 TXH +3 00000 0 00007 00070 TXH +3 00000 0 00006 00071 TIX +2 00040 0 74466
DLM=DRAIN(2) 037 LM00027
00072 CLA +0 50000 0 74474 00073 STO +0 60100 0 00021
DLU = (V(4) .A. 777777K) .V. (DATECV.(DATE.(0),NERR0)) 038 LM00028
00074 TSX +0 07400 4 00002 00075 TXH +3 00000 0 00036 00076 STO +0 60100 0 00223 00077 TSX +0 07400 4 00001
00100 TXH +3 00000 0 00223 00101 TXH +3 00000 0 00015 00102 STO +0 60100 0 00223 00103 CAL -0 50000 0 00004
00104 ANA -0 32000 0 00042 00105 ORA -0 50100 0 00223 00106 SLW +0 60200 0 00022
NERR0 CHFILE.(V(7),V(6),V(3).RS.28,MZE,MZE,ERR) 039 LM00029
00107 CAL -0 50000 0 00041 00110 STA +0 62100 0 00112 00111 CAL -0 50000 0 00003 00112 LGR -0 76500 0 00000
00113 SLW +0 60200 0 00223 00114 TSX +0 07400 4 00000 00115 TXH +3 00000 0 00007 00116 TXH +3 00000 0 00006
00117 TXH +3 00000 0 00223 00120 TXH +3 00000 0 67660 00121 TXH +3 00000 0 67660 00122 TXH +3 00000 0 00014
SETFIL.(V(7),V(6),DLM,DLU,MZE,MZE,ERR) 040 LM00030
00123 TSX +0 07400 4 00011 00124 TXH +3 00000 0 00007 00125 TXH +3 00000 0 00006 00126 TXH +3 00000 0 00021
00127 TXH +3 00000 0 00022 00130 TXH +3 00000 0 67660 00131 TXH +3 00000 0 67660 00132 TXH +3 00000 0 00014
F'N 041 LM00031
00133 TRA +0 02000 0 00217
E'O CLEAR. 042 LM00035
00134 TRA +0 02000 0 00137 00135 SXA +0 63400 2 00171 00136 TSX +0 07400 2 00171
N1 = V 043 LM00036
00137 CLA +0 50000 0 00000 00140 STO +0 60100 0 00034
N2 = W 044 LM00037
00141 CLA +0 50000 0 00000 00142 STO +0 60100 0 00035
UNLINK.(N1,N2,NERR1) 045 LM00038
00143 TSX +0 07400 4 00012 00144 TXH +3 00000 0 00034 00145 TXH +3 00000 0 00035 00146 TXH +3 00000 0 00016
NERR1 CHFILE.(N1,N2,001K,MZE,MZE,NERR2) 046 LM00039
00147 TSX +0 07400 4 00000 00150 TXH +3 00000 0 00034 00151 TXH +3 00000 0 00035 00152 TXH +3 00000 0 00037
00153 TXH +3 00000 0 67660 00154 TXH +3 00000 0 67660 00155 TXH +3 00000 0 00017
NERR2 DELFIL.(N1,N2,NERR3) 047 LM00040
00156 TSX +0 07400 4 00003 00157 TXH +3 00000 0 00034 00160 TXH +3 00000 0 00035 00161 TXH +3 00000 0 00020
NERR3 F'N 048 LM00041
00162 TRA +0 02000 0 00217
ERR PRNTER. 049 LM00043
00163 TSX +0 07400 4 00007
F'N 050 LM00044
00164 TRA +0 02000 0 00217
E'N 051 LM00046
00165 TSX +0 07400 4 00004 00166 PZE +0 00000 0 00003 00167 PZE +0 00000 0 00001 00170 PZE +0 00000 0 00002
00171 TXH +3 00000 0 00000 00172 SXD -0 63400 1 00171 00173 SXA +0 63400 4 00217 00174 CLA +0 50000 4 00001
00175 STA +0 62100 0 00137 00176 SUB +0 40200 0 00166 00177 STA +0 62100 0 00111 00200 SUB +0 40200 0 00167
00201 STA +0 62100 0 00103 00202 SUB +0 40200 0 00170 00203 STA +0 62100 0 00055 00204 STO +0 60100 0 00070
00205 STO +0 60100 0 00116 00206 STO +0 60100 0 00125 00207 SUB +0 40200 0 00167 00210 STA +0 62100 0 00053
00211 STO +0 60100 0 00067 00212 STO +0 60100 0 00115 00213 STO +0 60100 0 00124 00214 CLA +0 50000 4 00002
00215 STA +0 62100 0 00141 00216 TRA +0 02000 2 00001 00217 AXT +0 77400 4 00000 00220 LXA +0 53400 2 00171
00221 LXD -0 53400 1 00171 00222 TRA +0 02000 4 00001
DELTAB BCD 05/28/67 2015.5 3563 00000
1 MAD PROGRAM LISTING ... ... ... FILE DELTAB MAD 05/28/67 1923.0
-
DELETE PROCESSED-FILE ENTRIES LM00001
D.R. WIDRIG DEC. 1965 LM00002
LM00003
EXTERNAL FUNCTION (N1,N2) *001 LM00004
INSERT FILE COM *002 LM00005
*002 LM00001
NORMAL MODE IS INTEGER *003 LM00002
BOOLEAN SWT. *004 LM00003
LM00004
DIMENSION TABLE(210),BUFF(432),BUFF1(432),BUFF2(432) *005 LM00005
DIMENSION HEADER(12),UFD(7),DRAIN(432),LODTAB(2000) *006 LM00006
EQUIVALENCE (PB,HEADER(12)),(PG,HEADER(11)),(DND,HEADER(8)), *007 LM00007
1 (WC,HEADER(2)),(LRCT,HEADER(1)) *007 LM00008
PROGRAM COMMON TABLE,BUFF,BUFF1,BUFF2 *008 LM00009
PROGRAM COMMON HEADER,DRAIN,UFD,LODTAB *009 LM00010
PROGRAM COMMON AINDEX,UNIT,D,T,MZE,TFUDG,FENCE,USERF,ILEDI,PRIV *010 LM00011
PROGRAM COMMON TABLIM,LPREAM,HPROB,HPROG,CURPTR,AUTHOR,LINDEX *011 LM00012
PROGRAM COMMON LODLIM,SYSTEM,DAEMON,REELNO,TSKLTH *012 LM00013
LM00014
VECTOR VALUES FENCE = 777777777777K *013 LM00015
VECTOR VALUES MZE = 4K11 *014 LM00016
VECTOR VALUES TFUDG = 1800 *015 LM00017
VECTOR VALUES TABLIM = 200 *016 LM00018
VECTOR VALUES LODLIM = 2000 *017 LM00019
VECTOR VALUES LPREAM = 12 *018 LM00020
VECTOR VALUES TSKLTH = 11 *019 LM00021
LM00022
VECTOR VALUES SYSTEM = $ C0056$ *020 LM00023
VECTOR VALUES DAEMON = $ 99999$ *021 LM00024
VECTOR VALUES D = $(DUMP)$ *022 LM00025
VECTOR VALUES T = $(TAPE)$ *023 LM00026
VECTOR VALUES USERF = $USER F$ *024 LM00027
VECTOR VALUES ILEDI = $ILE DI$ *025 LM00028
DIMENSION HEDER2(12) *026 LM00029
PROGRAM COMMON HEDER2 *027 LM00030
LM00031
VECTOR VALUES MESS1 = $TABLE OVERFLOW, FORCED END$,777777777777K *028 LM00006
LM00007
DELETE N1,N2 FROM REQUESTS LM00008
NOTE THAT 'N1 N2' CAN ONLY BE DELETED IF NEITHER THE LM00009
FIRST NOR THE SECOND NAME OF THE REQUEST WAS '*' LM00010
LM00011
ENTRY TO DELTAB. *029 LM00012
I = CURPTR *030 LM00013
TABLE(I+10) = TABLE(I+10) + 1 *031 LM00014
LM00015
ADD ITEM TO 'LOADED' TABLE IF NOT THERE LM00016
CURRENTLY, THE FOURTH WORD IN A TABLE ENTRY IS UNUSED LM00017
LM00018
THROUGH LOOP1, FOR J=0,4,J.GE.LINDEX *032 LM00019
WHENEVER (LODTAB(J).E.I).AND. *033 LM00020
1 (LODTAB(J+1).E.N1).AND.(LODTAB(J+2).E.N2) *033 LM00021
2 , FUNCTION RETURN *033 LM00022
LOOP1 CONTINUE *034 LM00023
LM00024
NOT THERE, ADD ITEM LM00025
LM00026
LODTAB(J) = I *035 LM00027
LODTAB(J+1) = N1 *036 LM00028
LODTAB(J+2) = N2 *037 LM00029
LODTAB(J+3) = 0 *038 LM00030
LINDEX = LINDEX + 4 *039 LM00031
LM00032
TEST FOR TABLE OVERFLOW LM00033
LM00034
WHENEVER (LINDEX .GE. LODLIM) *040 LM00035
PRNTP.(MESS1) *041 LM00036
MAIL.(PB,PG,MESS1,1B) *042 LM00037
END OF CONDITIONAL *043 LM00038
FUNCTION RETURN *044 LM00039
LM00040
END OF FUNCTION *045 LM00041
1MAD PROGRAM,TYPE NOV 1963 (ALL NUMBERS ARE OCTAL)
0TOTAL LOCATIONS 00162 TRANSFER VECTOR LENGTH 00003 PROGRAM BEGINS 00023 FIRST UNUSED COMMON/ERASABLE 67621
0 PROGRAM IS AN EXTERNAL FUNCTION. THE FOLLOWING ARE ENTRIES
DELTAB 00024 0
0VARIABLE STORAGE (A=ARRAY,C=COMMON,E=ERASABLE,DIGIT=MODE)
AINDEX 67664 C1 DRAIN 74476 AC1 I 00004 1 MESS1 00013 A 1 TABLIM 67652 AC1
AUTHOR 67645 C1 D 67662 AC1 J 00005 1 MZE 67660 AC1 TFUDG 67657 AC1
BUFF1 76255 AC1 FENCE 67656 AC1 LINDEX 67644 C1 PB 74477 C1 T 67661 AC1
BUFF2 75374 AC1 HEADER 74513 AC1 LODLIM 67643 AC1 PG 74500 C1 TSKLTH 67637 AC1
BUFF 77136 AC1 HEDER2 67636 AC1 LODTAB 73605 AC1 PRIV 67653 C1 UFD 73615 AC1
CURPTR 67646 C1 HPROB 67650 C1 LOOP1 00003 4 REELNO 67640 C1 UNIT 67663 C1
DAEMON 67641 AC1 HPROG 67647 C1 LPREAM 67651 AC1 SYSTEM 67642 AC1 USERF 67655 AC1
DND 74503 C1 ILEDI 67654 AC1 LRCT 74512 C1 TABLE 77461 AC1 WC 74511 C1
0FUNCTION DICTIONARY
EXIT 00000 1 MAIL 00001 1 PRNTP 00002 1
0ABSOLUTE CONSTANTS
00017 +000000000003 00016 +000000000002 00020 +000000000004 00014 +000000000000 00021 +000000000012
00015 +000000000001 00022 +233000000000
0PROGRAM
EXTERNAL FUNCTION (N1,N2) 001 LM00004
I'E COM 002 LM00005
N'R 003 LM00002
B'N SWT. 004 LM00003
D'N TABLE(210),BUFF(432),BUFF1(432),BUFF2(432) 005 LM00005
D'N HEADER(12),UFD(7),DRAIN(432),LODTAB(2000) 006 LM00006
E'E (PB,HEADER(12)),(PG,HEADER(11)),(DND,HEADER(8)), 007 LM00007
1 (WC,HEADER(2)),(LRCT,HEADER(1)) 007 LM00008
P'N TABLE,BUFF,BUFF1,BUFF2 008 LM00009
P'N HEADER,DRAIN,UFD,LODTAB 009 LM00010
P'N AINDEX,UNIT,D,T,MZE,TFUDG,FENCE,USERF,ILEDI,PRIV 010 LM00011
P'N TABLIM,LPREAM,HPROB,HPROG,CURPTR,AUTHOR,LINDEX 011 LM00012
P'N LODLIM,SYSTEM,DAEMON,REELNO,TSKLTH 012 LM00013
V'S FENCE = 777777777777K 013 LM00015
67656 -3 77777 7 77777
V'S MZE = 4K11 014 LM00016
67660 -0 00000 0 00000
V'S TFUDG = 1800 015 LM00017
67657 +0 00000 0 03410
V'S TABLIM = 200 016 LM00018
67652 +0 00000 0 00310
V'S LODLIM = 2000 017 LM00019
67643 +0 00000 0 03720
V'S LPREAM = 12 018 LM00020
67651 +0 00000 0 00014
V'S TSKLTH = 11 019 LM00021
67637 +0 00000 0 00013
V'S SYSTEM = $ C0056$ 020 LM00023
67642 -2 02300 0 00506
V'S DAEMON = $ 99999$ 021 LM00024
67641 -2 01111 1 11111
V'S D = $(DUMP)$ 022 LM00025
67662 -3 42464 4 44734
V'S T = $(TAPE)$ 023 LM00026
67661 -3 46321 4 72534
V'S USERF = $USER F$ 024 LM00027
67655 -2 46225 5 16026
V'S ILEDI = $ILE DI$ 025 LM00028
67654 +3 14325 6 02431
DIMENSION HEDER2(12) 026 LM00029
P'N HEDER2 027 LM00030
V'S MESS1 = $TABLE OVERFLOW, FORCED END$,777777777777K 028 LM00006
00006 -3 77777 7 77777 00007 -0 52460 6 06060 00010 -1 12325 2 46025 00011 -0 66673 6 02646
00012 -0 66525 5 12643 00013 -2 32122 4 32560
E'O DELTAB. 029 LM00012
00023 TRA +0 02000 0 00026 00024 SXA +0 63400 2 00141 00025 TSX +0 07400 2 00141
I = CURPTR 030 LM00013
00026 CLA +0 50000 0 67646 00027 STO +0 60100 0 00004
TABLE(I+10) = TABLE(I+10) + 1 031 LM00014
00030 CLA +0 50000 0 00004 00031 ADD +0 40000 0 00021 00032 PAX +0 73400 1 00000 00033 CLA +0 50000 1 77461
00034 ADD +0 40000 0 00015 00035 STO +0 60100 0 00157 00036 CLA +0 50000 0 00004 00037 ADD +0 40000 0 00021
00040 PAX +0 73400 1 00000 00041 CLA +0 50000 0 00157 00042 STO +0 60100 1 77461
T'H LOOP1, FOR J=0,4,J.GE.LINDEX 032 LM00019
00043 CLA +0 50000 0 00014 00044 STO +0 60100 0 00005 00045 TRA +0 02000 0 00051 00046 CLA +0 50000 0 00005
00047 ADD +0 40000 0 00020 00050 STO +0 60100 0 00005 00051 CLA +0 50000 0 00005 00052 SUB +0 40200 0 67644
00053 TZE +0 10000 0 00077 00054 TPL +0 12000 0 00077
W'R (LODTAB(J).E.I).AND. 033 LM00020
1 (LODTAB(J+1).E.N1).AND.(LODTAB(J+2).E.N2) 033 LM00021
2 , F'N 033 LM00022
00055 CLA +0 50000 0 00005 00056 ADD +0 40000 0 00016 00057 PAX +0 73400 1 00000 00060 CLA +0 50000 1 73605
00061 SUB +0 40200 0 00000 00062 TNZ -0 10000 0 00076 00063 CLA +0 50000 0 00005 00064 ADD +0 40000 0 00015
00065 PAX +0 73400 1 00000 00066 CLA +0 50000 1 73605 00067 SUB +0 40200 0 00000 00070 TNZ -0 10000 0 00076
00071 LXA +0 53400 1 00005 00072 CLA +0 50000 1 73605 00073 SUB +0 40200 0 00004 00074 TNZ -0 10000 0 00076
00075 TRA +0 02000 0 00153
LOOP1 C'E 034 LM00023
00076 TRA +0 02000 0 00046
LODTAB(J) = I 035 LM00027
00077 LXA +0 53400 1 00005 00100 CLA +0 50000 0 00004 00101 STO +0 60100 1 73605
LODTAB(J+1) = N1 036 LM00028
00102 CLA +0 50000 0 00005 00103 ADD +0 40000 0 00015 00104 PAX +0 73400 1 00000 00105 CLA +0 50000 0 00000
00106 STO +0 60100 1 73605
LODTAB(J+2) = N2 037 LM00029
00107 CLA +0 50000 0 00005 00110 ADD +0 40000 0 00016 00111 PAX +0 73400 1 00000 00112 CLA +0 50000 0 00000
00113 STO +0 60100 1 73605
LODTAB(J+3) = 0 038 LM00030
00114 CLA +0 50000 0 00005 00115 ADD +0 40000 0 00017 00116 PAX +0 73400 1 00000 00117 CLA +0 50000 0 00014
00120 STO +0 60100 1 73605
LINDEX = LINDEX + 4 039 LM00031
00121 CLA +0 50000 0 67644 00122 ADD +0 40000 0 00020 00123 STO +0 60100 0 67644
W'R (LINDEX .GE. LODLIM) 040 LM00035
00124 CLA +0 50000 0 67644 00125 SUB +0 40200 0 67643 00126 TZE +0 10000 0 00130 00127 TMI -0 12000 0 00137
PRNTP.(MESS1) 041 LM00036
00130 TSX +0 07400 4 00002 00131 TXH +3 00000 0 00013
MAIL.(PB,PG,MESS1,1B) 042 LM00037
00132 TSX +0 07400 4 00001 00133 TXH +3 00000 0 74477 00134 TXH +3 00000 0 74500 00135 TXH +3 00000 0 00013
00136 TXH +3 00000 0 00015
E'L 043 LM00038
F'N 044 LM00039
00137 TRA +0 02000 0 00153
E'N 045 LM00041
00140 TSX +0 07400 4 00000 00141 TXH +3 00000 0 00000 00142 SXD -0 63400 1 00141 00143 SXA +0 63400 4 00153
00144 CLA +0 50000 4 00001 00145 STA +0 62100 0 00067 00146 STA +0 62100 0 00105 00147 CLA +0 50000 4 00002
00150 STA +0 62100 0 00061 00151 STA +0 62100 0 00112 00152 TRA +0 02000 2 00001 00153 AXT +0 77400 4 00000
00154 LXA +0 53400 2 00141 00155 LXD -0 53400 1 00141 00156 TRA +0 02000 4 00001
RECAP BCD 05/28/67 2015.5 6448 00000
1 MAD PROGRAM LISTING ... ... ... FILE RECAP MAD 05/28/67 1923.1
-
ROUTINE TO CHECK FOR MISSING ENTRIES LM00001
D.R. WIDRIG DEC. 1965 LM00002
LM00003
EXTERNAL FUNCTION (X,Y) *001 LM00004
INSERT FILE COM *002 LM00005
*002 LM00001
NORMAL MODE IS INTEGER *003 LM00002
BOOLEAN SWT. *004 LM00003
LM00004
DIMENSION TABLE(210),BUFF(432),BUFF1(432),BUFF2(432) *005 LM00005
DIMENSION HEADER(12),UFD(7),DRAIN(432),LODTAB(2000) *006 LM00006
EQUIVALENCE (PB,HEADER(12)),(PG,HEADER(11)),(DND,HEADER(8)), *007 LM00007
1 (WC,HEADER(2)),(LRCT,HEADER(1)) *007 LM00008
PROGRAM COMMON TABLE,BUFF,BUFF1,BUFF2 *008 LM00009
PROGRAM COMMON HEADER,DRAIN,UFD,LODTAB *009 LM00010
PROGRAM COMMON AINDEX,UNIT,D,T,MZE,TFUDG,FENCE,USERF,ILEDI,PRIV *010 LM00011
PROGRAM COMMON TABLIM,LPREAM,HPROB,HPROG,CURPTR,AUTHOR,LINDEX *011 LM00012
PROGRAM COMMON LODLIM,SYSTEM,DAEMON,REELNO,TSKLTH *012 LM00013
LM00014
VECTOR VALUES FENCE = 777777777777K *013 LM00015
VECTOR VALUES MZE = 4K11 *014 LM00016
VECTOR VALUES TFUDG = 1800 *015 LM00017
VECTOR VALUES TABLIM = 200 *016 LM00018
VECTOR VALUES LODLIM = 2000 *017 LM00019
VECTOR VALUES LPREAM = 12 *018 LM00020
VECTOR VALUES TSKLTH = 11 *019 LM00021
LM00022
VECTOR VALUES SYSTEM = $ C0056$ *020 LM00023
VECTOR VALUES DAEMON = $ 99999$ *021 LM00024
VECTOR VALUES D = $(DUMP)$ *022 LM00025
VECTOR VALUES T = $(TAPE)$ *023 LM00026
VECTOR VALUES USERF = $USER F$ *024 LM00027
VECTOR VALUES ILEDI = $ILE DI$ *025 LM00028
DIMENSION HEDER2(12) *026 LM00029
PROGRAM COMMON HEDER2 *027 LM00030
LM00031
VECTOR VALUES WITH = $ WITH $ *028 LM00006
VECTOR VALUES FIRST = $ FIRST$ *029 LM00007
VECTOR VALUES SECOND = $SECOND$ *030 LM00008
VECTOR VALUES NAME = $ NAME $ *031 LM00009
LM00010
VECTOR VALUES NULLS = 575757575757K *032 LM00011
LM00012
VECTOR VALUES MESS1 = $ NO FILE$,0,0,0,0,$ FOUND IN DUMP FOR$, *033 LM00013
1 0,575757575760K,0,777777777777K *033 LM00014
LM00015
STATEMENT LABEL Y *034 LM00016
BOOLEAN X,Z *035 LM00017
LM00018
LOOK OVER TABLE TO FIND MISSING ENTRIES LM00019
DEPENDING ON THE SETTING OF 'X', PRINT LM00020
MISSING ENTRIES OR RETURN QUIETLY LM00021
LM00022
ENTRY TO RECAP. *036 LM00023
Z = 0B *037 LM00024
THROUGH LOOP1, FOR I = 0,TSKLTH,(I .GE. AINDEX) *038 LM00025
INDEX = 0 *039 LM00026
LM00027
MANUFACTURE DUMMY ENTRIES FOR TESTING LM00028
LM00029
BUFF(7) = TABLE(I+4) *040 LM00030
BUFF(6) = TABLE(I+5) *041 LM00031
BUFF(4) = 0 *042 LM00032
BUFF(3) = 0 *043 LM00033
PB = TABLE(I) *044 LM00034
PG = TABLE(I+1) *045 LM00035
WHENEVER(X .AND.(TABLE(I+8) .E. FENCE)), TABLE(I+8)=0 *046 LM00036
DND = TABLE(I+6).V.TABLE(I+7) *047 LM00037
DECIDE.(BUFF,YES,LOOP1,0B) *048 LM00038
LM00039
YES WHENEVER .NOT. X , FUNCTION RETURN *049 LM00040
Z = 1B *050 LM00041
LM00042
ENTRY WAS NOT FOUND, NOTE THIS LM00043
LM00044
WHENEVER TABLE(I+4) .E. FENCE, INDEX = 2 *051 LM00045
WHENEVER TABLE(I+5) .E. FENCE, INDEX = INDEX + 1 *052 LM00046
MESS1(9) = TABLE(I) *053 LM00047
MESS1(11) = TABLE(I+1) *054 LM00048
TRANSFER TO ST(INDEX) *055 LM00049
LM00050
NAME1 NAME2 NOT FOUND LM00051
LM00052
ST(0) MESS1(2) = WITH *056 LM00053
MESS1(3) = NAME *057 LM00054
MESS1(4) = TABLE(I+4) *058 LM00055
MESS1(5) = TABLE(I+5) *059 LM00056
TRANSFER TO PRINT *060 LM00057
LM00058
NAME1 * NOT FOUND LM00059
LM00060
ST(1) MESS1(2) = WITH *061 LM00061
MESS1(3) = FIRST *062 LM00062
MESS1(4) = NAME *063 LM00063
MESS1(5) = TABLE(I+4) *064 LM00064
TRANSFER TO PRINT *065 LM00065
LM00066
* NAME2 NOT FOUND LM00067
LM00068
ST(2) MESS1(2) = WITH *066 LM00069
MESS1(3) = SECOND *067 LM00070
MESS1(4) = NAME *068 LM00071
MESS1(5) = TABLE(I+5) *069 LM00072
TRANSFER TO PRINT *070 LM00073
LM00074
NO FILES FOUND LM00075
LM00076
ST(3) MESS1(2) = 625757575757K *071 LM00077
MESS1(3) = NULLS *072 LM00078
MESS1(4) = NULLS *073 LM00079
MESS1(5) = NULLS *074 LM00080
LM00081
PRINT MESSAGE, LEAVE NOTE, AND CLEAR ENTRY LM00082
LM00083
PRINT PRNTP.(MESS1) *075 LM00084
MAIL.(TABLE(I),TABLE(I+1),MESS1,1B) *076 LM00085
TABLE(I+2) = 0 *077 LM00086
LM00087
LOOP1 CONTINUE *078 LM00088
LM00089
WHENEVER .NOT. (X.OR.Z) *079 LM00090
TRANSFER TO Y *080 LM00091
OTHERWISE *081 LM00092
FUNCTION RETURN *082 LM00093
END OF CONDITIONAL *083 LM00094
LM00095
END OF FUNCTION *084 LM00096
1MAD PROGRAM,TYPE NOV 1963 (ALL NUMBERS ARE OCTAL)
0TOTAL LOCATIONS 00354 TRANSFER VECTOR LENGTH 00004 PROGRAM BEGINS 00053 FIRST UNUSED COMMON/ERASABLE 67621
0 PROGRAM IS AN EXTERNAL FUNCTION. THE FOLLOWING ARE ENTRIES
RECAP 00054 0
0VARIABLE STORAGE (A=ARRAY,C=COMMON,E=ERASABLE,DIGIT=MODE)
AINDEX 67664 C1 FENCE 67656 AC1 LODLIM 67643 AC1 PG 74500 C1 T 67661 AC1
AUTHOR 67645 C1 FIRST 00014 A 1 LODTAB 73605 AC1 PRINT 00006 4 TSKLTH 67637 AC1
BUFF1 76255 AC1 HEADER 74513 AC1 LOOP1 00005 4 PRIV 67653 C1 UFD 73615 AC1
BUFF2 75374 AC1 HEDER2 67636 AC1 LPREAM 67651 AC1 REELNO 67640 C1 UNIT 67663 C1
BUFF 77136 AC1 HPROB 67650 C1 LRCT 74512 C1 SECOND 00036 A 1 USERF 67655 AC1
CURPTR 67646 C1 HPROG 67647 C1 MESS1 00033 A 1 ST 00012 A 4 WC 74511 C1
DAEMON 67641 AC1 ILEDI 67654 AC1 MZE 67660 AC1 SYSTEM 67642 AC1 WITH 00037 A 1
DND 74503 C1 INDEX 00015 1 NAME 00034 A 1 TABLE 77461 AC1 YES 00013 4
DRAIN 74476 AC1 I 00016 1 NULLS 00035 A 1 TABLIM 67652 AC1 Z 00040 2
D 67662 AC1 LINDEX 67644 C1 PB 74477 C1 TFUDG 67657 AC1
0FUNCTION DICTIONARY
DECIDE 00000 1 EXIT 00001 1 MAIL 00002 1 PRNTP 00003 1
0ABSOLUTE CONSTANTS
00052 -225757575757 00043 +000000000002 00046 +000000000006 00047 +000000000007 00050 +000000000010
00045 +000000000005 00044 +000000000004 00041 +000000000000 00042 +000000000001 00051 +233000000000
0STATEMENT DICTIONARY
00005 TXL -300323000322 00006 TXL -300277000275 00007 TXL -300267000265 00010 TXL -300253000251
00011 TXL -300237000235 00012 TXL -300220000216 00013 TXL -300161000156
0PROGRAM
EXTERNAL FUNCTION (X,Y) 001 LM00004
I'E COM 002 LM00005
N'R 003 LM00002
B'N SWT. 004 LM00003
D'N TABLE(210),BUFF(432),BUFF1(432),BUFF2(432) 005 LM00005
D'N HEADER(12),UFD(7),DRAIN(432),LODTAB(2000) 006 LM00006
E'E (PB,HEADER(12)),(PG,HEADER(11)),(DND,HEADER(8)), 007 LM00007
1 (WC,HEADER(2)),(LRCT,HEADER(1)) 007 LM00008
P'N TABLE,BUFF,BUFF1,BUFF2 008 LM00009
P'N HEADER,DRAIN,UFD,LODTAB 009 LM00010
P'N AINDEX,UNIT,D,T,MZE,TFUDG,FENCE,USERF,ILEDI,PRIV 010 LM00011
P'N TABLIM,LPREAM,HPROB,HPROG,CURPTR,AUTHOR,LINDEX 011 LM00012
P'N LODLIM,SYSTEM,DAEMON,REELNO,TSKLTH 012 LM00013
V'S FENCE = 777777777777K 013 LM00015
67656 -3 77777 7 77777
V'S MZE = 4K11 014 LM00016
67660 -0 00000 0 00000
V'S TFUDG = 1800 015 LM00017
67657 +0 00000 0 03410
V'S TABLIM = 200 016 LM00018
67652 +0 00000 0 00310
V'S LODLIM = 2000 017 LM00019
67643 +0 00000 0 03720
V'S LPREAM = 12 018 LM00020
67651 +0 00000 0 00014
V'S TSKLTH = 11 019 LM00021
67637 +0 00000 0 00013
V'S SYSTEM = $ C0056$ 020 LM00023
67642 -2 02300 0 00506
V'S DAEMON = $ 99999$ 021 LM00024
67641 -2 01111 1 11111
V'S D = $(DUMP)$ 022 LM00025
67662 -3 42464 4 44734
V'S T = $(TAPE)$ 023 LM00026
67661 -3 46321 4 72534
V'S USERF = $USER F$ 024 LM00027
67655 -2 46225 5 16026
V'S ILEDI = $ILE DI$ 025 LM00028
67654 +3 14325 6 02431
DIMENSION HEDER2(12) 026 LM00029
P'N HEDER2 027 LM00030
V'S WITH = $ WITH $ 028 LM00006
00037 -2 06631 6 33060
V'S FIRST = $ FIRST$ 029 LM00007
00014 -2 02631 5 16263
V'S SECOND = $SECOND$ 030 LM00008
00036 -2 22523 4 64524
V'S NAME = $ NAME $ 031 LM00009
00034 -2 04521 4 42560
V'S NULLS = 575757575757K 032 LM00011
00035 -1 75757 5 75757
V'S MESS1 = $ NO FILE$,0,0,0,0,$ FOUND IN DUMP FOR$, 033 LM00013
1 0,575757575760K,0,777777777777K 033 LM00014
00017 -3 77777 7 77777 00020 +0 00000 0 00000 00021 -1 75757 5 75760 00022 +0 00000 0 00000
00023 -0 44760 2 64651 00024 -2 03145 6 02464 00025 -2 02646 6 44524 00026 +0 00000 0 00000
00027 +0 00000 0 00000 00030 +0 00000 0 00000 00031 +0 00000 0 00000 00032 -0 66026 3 14325
00033 -2 06060 6 06045
S'L Y 034 LM00016
B'N X,Z 035 LM00017
E'O RECAP. 036 LM00023
00053 TRA +0 02000 0 00056 00054 SXA +0 63400 2 00333 00055 TSX +0 07400 2 00333
Z = 0B 037 LM00024
00056 CLA +0 50000 0 00041 00057 STO +0 60100 0 00040
T'H LOOP1, FOR I = 0,TSKLTH,(I .GE. AINDEX) 038 LM00025
00060 CLA +0 50000 0 00041 00061 STO +0 60100 0 00016 00062 TRA +0 02000 0 00066 00063 CLA +0 50000 0 00016
00064 ADD +0 40000 0 67637 00065 STO +0 60100 0 00016 00066 CLA +0 50000 0 00016 00067 SUB +0 40200 0 67664
00070 TZE +0 10000 0 00323 00071 TPL +0 12000 0 00323
INDEX = 0 039 LM00026
00072 CLA +0 50000 0 00041 00073 STO +0 60100 0 00015
BUFF(7) = TABLE(I+4) 040 LM00030
00074 CLA +0 50000 0 00016 00075 ADD +0 40000 0 00044 00076 PAX +0 73400 2 00000 00077 CLA +0 50000 2 77461
00100 STO +0 60100 0 77127
BUFF(6) = TABLE(I+5) 041 LM00031
00101 CLA +0 50000 0 00016 00102 ADD +0 40000 0 00045 00103 PAX +0 73400 2 00000 00104 CLA +0 50000 2 77461
00105 STO +0 60100 0 77130
BUFF(4) = 0 042 LM00032
00106 CLA +0 50000 0 00041 00107 STO +0 60100 0 77132
BUFF(3) = 0 043 LM00033
00110 CLA +0 50000 0 00041 00111 STO +0 60100 0 77133
PB = TABLE(I) 044 LM00034
00112 LXA +0 53400 2 00016 00113 CLA +0 50000 2 77461 00114 STO +0 60100 0 74477
PG = TABLE(I+1) 045 LM00035
00115 CLA +0 50000 0 00016 00116 ADD +0 40000 0 00042 00117 PAX +0 73400 2 00000 00120 CLA +0 50000 2 77461
00121 STO +0 60100 0 74500
W'R(X .AND.(TABLE(I+8) .E. FENCE)), TABLE(I+8)=0 046 LM00036
00122 CLA +0 50000 0 00016 00123 ADD +0 40000 0 00050 00124 PAX +0 73400 1 00000 00125 CLA +0 50000 1 77461
00126 SUB +0 40200 0 67656 00127 TNZ -0 10000 0 00137 00130 NZT -0 52000 0 00000 00131 TRA +0 02000 0 00137
00132 CLA +0 50000 0 00016 00133 ADD +0 40000 0 00050 00134 PAX +0 73400 1 00000 00135 CLA +0 50000 0 00041
00136 STO +0 60100 1 77461
DND = TABLE(I+6).V.TABLE(I+7) 047 LM00037
00137 CLA +0 50000 0 00016 00140 ADD +0 40000 0 00047 00141 STO +0 60100 0 00351 00142 CLA +0 50000 0 00016
00143 ADD +0 40000 0 00046 00144 PAX +0 73400 1 00000 00145 LXA +0 53400 2 00351 00146 CAL -0 50000 1 77461
00147 ORA -0 50100 2 77461 00150 SLW +0 60200 0 74503
DECIDE.(BUFF,YES,LOOP1,0B) 048 LM00038
00151 TSX +0 07400 4 00000 00152 TXH +3 00000 0 77136 00153 TXH +3 00000 0 00013 00154 TXH +3 00000 0 00005
00155 TXH +3 00000 0 00041
YES W'R .NOT. X , F'N 049 LM00040
00156 ZET +0 52000 0 00000 00157 TRA +0 02000 0 00161 00160 TRA +0 02000 0 00345
Z = 1B 050 LM00041
00161 CLA +0 50000 0 00042 00162 STO +0 60100 0 00040
W'R TABLE(I+4) .E. FENCE, INDEX = 2 051 LM00045
00163 CLA +0 50000 0 00016 00164 ADD +0 40000 0 00044 00165 PAX +0 73400 1 00000 00166 CLA +0 50000 1 77461
00167 SUB +0 40200 0 67656 00170 TNZ -0 10000 0 00173 00171 CLA +0 50000 0 00043 00172 STO +0 60100 0 00015
W'R TABLE(I+5) .E. FENCE, INDEX = INDEX + 1 052 LM00046
00173 CLA +0 50000 0 00016 00174 ADD +0 40000 0 00045 00175 PAX +0 73400 1 00000 00176 CLA +0 50000 1 77461
00177 SUB +0 40200 0 67656 00200 TNZ -0 10000 0 00204 00201 CLA +0 50000 0 00015 00202 ADD +0 40000 0 00042
00203 STO +0 60100 0 00015
MESS1(9) = TABLE(I) 053 LM00047
00204 LXA +0 53400 2 00016 00205 CLA +0 50000 2 77461 00206 STO +0 60100 0 00022
MESS1(11) = TABLE(I+1) 054 LM00048
00207 CLA +0 50000 0 00016 00210 ADD +0 40000 0 00042 00211 PAX +0 73400 2 00000 00212 CLA +0 50000 2 77461
00213 STO +0 60100 0 00020
T'O ST(INDEX) 055 LM00049
00214 LXA +0 53400 2 00015 00215 TRA +0 02000 2 00012
ST(0) MESS1(2) = WITH 056 LM00053
00216 CLA +0 50000 0 00037 00217 STO +0 60100 0 00031
MESS1(3) = NAME 057 LM00054
00220 CLA +0 50000 0 00034 00221 STO +0 60100 0 00030
MESS1(4) = TABLE(I+4) 058 LM00055
00222 CLA +0 50000 0 00016 00223 ADD +0 40000 0 00044 00224 PAX +0 73400 2 00000 00225 CLA +0 50000 2 77461
00226 STO +0 60100 0 00027
MESS1(5) = TABLE(I+5) 059 LM00056
00227 CLA +0 50000 0 00016 00230 ADD +0 40000 0 00045 00231 PAX +0 73400 2 00000 00232 CLA +0 50000 2 77461
00233 STO +0 60100 0 00026
T'O PRINT 060 LM00057
00234 TRA +0 02000 0 00006
ST(1) MESS1(2) = WITH 061 LM00061
00235 CLA +0 50000 0 00037 00236 STO +0 60100 0 00031
MESS1(3) = FIRST 062 LM00062
00237 CLA +0 50000 0 00014 00240 STO +0 60100 0 00030
MESS1(4) = NAME 063 LM00063
00241 CLA +0 50000 0 00034 00242 STO +0 60100 0 00027
MESS1(5) = TABLE(I+4) 064 LM00064
00243 CLA +0 50000 0 00016 00244 ADD +0 40000 0 00044 00245 PAX +0 73400 2 00000 00246 CLA +0 50000 2 77461
00247 STO +0 60100 0 00026
T'O PRINT 065 LM00065
00250 TRA +0 02000 0 00006
ST(2) MESS1(2) = WITH 066 LM00069
00251 CLA +0 50000 0 00037 00252 STO +0 60100 0 00031
MESS1(3) = SECOND 067 LM00070
00253 CLA +0 50000 0 00036 00254 STO +0 60100 0 00030
MESS1(4) = NAME 068 LM00071
00255 CLA +0 50000 0 00034 00256 STO +0 60100 0 00027
MESS1(5) = TABLE(I+5) 069 LM00072
00257 CLA +0 50000 0 00016 00260 ADD +0 40000 0 00045 00261 PAX +0 73400 2 00000 00262 CLA +0 50000 2 77461
00263 STO +0 60100 0 00026
T'O PRINT 070 LM00073
00264 TRA +0 02000 0 00006
ST(3) MESS1(2) = 625757575757K 071 LM00077
00265 CLA +0 50000 0 00052 00266 STO +0 60100 0 00031
MESS1(3) = NULLS 072 LM00078
00267 CLA +0 50000 0 00035 00270 STO +0 60100 0 00030
MESS1(4) = NULLS 073 LM00079
00271 CLA +0 50000 0 00035 00272 STO +0 60100 0 00027
MESS1(5) = NULLS 074 LM00080
00273 CLA +0 50000 0 00035 00274 STO +0 60100 0 00026
PRINT PRNTP.(MESS1) 075 LM00084
00275 TSX +0 07400 4 00003 00276 TXH +3 00000 0 00033
MAIL.(TABLE(I),TABLE(I+1),MESS1,1B) 076 LM00085
00277 CLA +0 50000 0 00016 00300 ADD +0 40000 0 00042 00301 SUB +0 40200 0 00302 00302 TXH +3 00000 0 77461
00303 STA +0 62100 0 00312 00304 CLA +0 50000 0 00016 00305 SUB +0 40200 0 00306 00306 TXH +3 00000 0 77461
00307 STA +0 62100 0 00311 00310 TSX +0 07400 4 00002 00311 TXH +3 00000 0 00000 00312 TXH +3 00000 0 00000
00313 TXH +3 00000 0 00033 00314 TXH +3 00000 0 00042
TABLE(I+2) = 0 077 LM00086
00315 CLA +0 50000 0 00016 00316 ADD +0 40000 0 00043 00317 PAX +0 73400 1 00000 00320 CLA +0 50000 0 00041
00321 STO +0 60100 1 77461
LOOP1 C'E 078 LM00088
00322 TRA +0 02000 0 00063
W'R .NOT. (X.OR.Z) 079 LM00090
00323 ZET +0 52000 0 00040 00324 TRA +0 02000 0 00331 00325 ZET +0 52000 0 00000 00326 TRA +0 02000 0 00331
T'O Y 080 LM00091
00327 TRA +0 02000 0 00000
O'E 081 LM00092
00330 TRA +0 02000 0 00332
F'N 082 LM00093
00331 TRA +0 02000 0 00345
E'L 083 LM00094
E'N 084 LM00096
00332 TSX +0 07400 4 00001 00333 TXH +3 00000 0 00000 00334 SXD -0 63400 1 00333 00335 SXA +0 63400 4 00345
00336 CLA +0 50000 4 00001 00337 STA +0 62100 0 00130 00340 STA +0 62100 0 00156 00341 STA +0 62100 0 00325
00342 CLA +0 50000 4 00002 00343 STA +0 62100 0 00327 00344 TRA +0 02000 2 00001 00345 AXT +0 77400 4 00000
00346 LXA +0 53400 2 00333 00347 LXD -0 53400 1 00333 00350 TRA +0 02000 4 00001
TPREAD BCD 05/28/67 2016.7 10003 00000
1 MAD PROGRAM LISTING ... ... ... FILE TPREAD MAD 05/28/67 1923.9
-
TAPE READING PACKAGE LM00001
D.R. WIDRIG DEC. 1965 LM00002
EXTERNAL FUNCTION (V,N,WCT,EOF1,EOFCT,ERR1,ERRS) *001 LM00003
INSERT FILE COM *002 LM00004
*002 LM00001
NORMAL MODE IS INTEGER *003 LM00002
BOOLEAN SWT. *004 LM00003
LM00004
DIMENSION TABLE(210),BUFF(432),BUFF1(432),BUFF2(432) *005 LM00005
DIMENSION HEADER(12),UFD(7),DRAIN(432),LODTAB(2000) *006 LM00006
EQUIVALENCE (PB,HEADER(12)),(PG,HEADER(11)),(DND,HEADER(8)), *007 LM00007
1 (WC,HEADER(2)),(LRCT,HEADER(1)) *007 LM00008
PROGRAM COMMON TABLE,BUFF,BUFF1,BUFF2 *008 LM00009
PROGRAM COMMON HEADER,DRAIN,UFD,LODTAB *009 LM00010
PROGRAM COMMON AINDEX,UNIT,D,T,MZE,TFUDG,FENCE,USERF,ILEDI,PRIV *010 LM00011
PROGRAM COMMON TABLIM,LPREAM,HPROB,HPROG,CURPTR,AUTHOR,LINDEX *011 LM00012
PROGRAM COMMON LODLIM,SYSTEM,DAEMON,REELNO,TSKLTH *012 LM00013
LM00014
VECTOR VALUES FENCE = 777777777777K *013 LM00015
VECTOR VALUES MZE = 4K11 *014 LM00016
VECTOR VALUES TFUDG = 1800 *015 LM00017
VECTOR VALUES TABLIM = 200 *016 LM00018
VECTOR VALUES LODLIM = 2000 *017 LM00019
VECTOR VALUES LPREAM = 12 *018 LM00020
VECTOR VALUES TSKLTH = 11 *019 LM00021
LM00022
VECTOR VALUES SYSTEM = $ C0056$ *020 LM00023
VECTOR VALUES DAEMON = $ 99999$ *021 LM00024
VECTOR VALUES D = $(DUMP)$ *022 LM00025
VECTOR VALUES T = $(TAPE)$ *023 LM00026
VECTOR VALUES USERF = $USER F$ *024 LM00027
VECTOR VALUES ILEDI = $ILE DI$ *025 LM00028
DIMENSION HEDER2(12) *026 LM00029
PROGRAM COMMON HEDER2 *027 LM00030
LM00031
VECTOR VALUES UNXEOF = 6 *028 LM00005
LM00006
VECTOR VALUES DUMPTP = $DUMPTP$ *029 LM00007
VECTOR VALUES MAP = $ 'MAP'$ *030 LM00008
LM00009
VECTOR VALUES MESS1 = $ERROR TREATED AS END OF TAPE$,777777777777K *031 LM00010
LM00011
STATEMENT LABEL EOF1,ERR1,ERRS *032 LM00012
BOOLEAN EOFSW,ENDTAP *033 LM00013
LM00014
SET UP EOF COUNT, ETC. LM00015
THIS ROUTINE IS CALLED TO SETUP EVERY LOGICAL FILE LM00016
CALLING SEQUENCE IS.. STAPE.(-0,-0,WCOUNT) LM00017
LM00018
ENTRY TO STAPE. *034 LM00019
DELTA = 432-LPREAM *035 LM00020
EOFCT1 = WCT *036 LM00021
WORDS = 0 *037 LM00022
WORDS1 = 0 *038 LM00023
RCT = 0 *039 LM00024
EOFSW = 0B *040 LM00025
LM00026
CHECK FOR LAST RECORD READ ON TAPE LM00027
LM00028
WHENEVER (HEADER(7).E.DUMPTP).AND.(HEADER(6).E.MAP) *041 LM00029
ENDTAP = 1B *042 LM00030
OTHERWISE *043 LM00031
ENDTAP = 0B *044 LM00032
END OF CONDITIONAL *045 LM00033
FUNCTION RETURN *046 LM00034
LM00035
DRAIN OFF UNUSED PORTION OF FILE LM00036
THAT IS, FINISH THIS TAPE FILE LM00037
CALLING SEQUENCE IS ... LM00038
FTAPE.(-0,-0,-0,EOFRTN,EOFCT,ERROR) LM00039
LM00040
ENTRY TO FTAPE. *047 LM00041
WDS = DELTA - WORDS1 *048 LM00042
BACK = 0 *049 LM00043
READ(0) RDWAIT.(D,T,0,DRAIN(WDS)...WDS,EOF1,EOFCT,TPERR) *050 LM00044
FUNCTION RETURN *051 LM00045
LM00046
READ DUMP TAPE RECORDS LM00047
CALLING SEQUENCE IS ... LM00048
RDTAPE.(BUFF(0),WCOUNT,-0,EOFRTN,EOFCT,ERROR) LM00049
LM00050
ENTRY TO RDTAPE. *052 LM00051
WDS = N *053 LM00052
WHENEVER (WORDS+WDS).G.EOFCT1 *054 LM00053
EOFSW = 1B *055 LM00054
WDS = EOFCT1 - WORDS *056 LM00055
EOFCT = WDS *057 LM00056
END OF CONDITIONAL *058 LM00057
WDS1 = WDS *059 LM00058
WDS2 = 0 *060 LM00059
WORDS1 = WORDS1 + WDS *061 LM00060
LM00061
CHECK FOR A NEW RECORD LM00062
LM00063
WHENEVER (WORDS1.G.DELTA) *062 LM00064
WDS1 = DELTA - (WORDS1-WDS) *063 LM00065
WDS2 = WDS - WDS1 *064 LM00066
WORDS1 = WDS2 *065 LM00067
DELTA = 432 *066 LM00068
RCT = RCT+1 *067 LM00069
END OF CONDITIONAL *068 LM00070
LM00071
READ FIRST RECORD WORDS LM00072
LM00073
BACK = 1 *069 LM00074
READ(1) RDWAIT.(D,T,0,V(WDS)...WDS1,EOF,EOFCT,TPERR) *070 LM00075
WORDS = WORDS + WDS1 *071 LM00076
CHECK FOR END OF DAEMON LOGICAL RECORD LM00077
BACK = 2 *072 LM00078
WHENEVER RCT .E. 4 *073 LM00079
RCT = 0 *074 LM00080
DELTA = 432 - LPREAM *075 LM00081
READ(2) RDWAIT.(D,T,0,DRAIN(LPREAM)...LPREAM,EOF,EOFCT,TPERR) *076 LM00082
END OF CONDITIONAL *077 LM00083
LM00084
READ REMAINDER OF WORDS LM00085
BACK = 3 *078 LM00086
READ(3) RDWAIT.(D,T,0,V(WDS-WDS1)...WDS2,EOF,EOFCT,TPERR) *079 LM00087
WORDS = WORDS + WDS2 *080 LM00088
LM00089
TEST FOR END-OF-LOGICAL FILE LM00090
LM00091
WHENEVER EOFSW, TRANSFER TO EOF1 *081 LM00092
LM00093
FUNCTION RETURN *082 LM00094
LM00095
LM00096
EOF WHENEVER (WORDS .GE. EOFCT1) .OR. ENDTAP, TRANSFER TO EOF1 *083 LM00097
OTHERWISE, FILE IS SPLIT, GET NEW TAPE MOUNTED. LM00098
UNIT = NEWTAP.(0) *084 LM00099
WHENEVER UNIT .E. 0 *085 LM00100
PRNTP.(MESS1) *086 LM00101
TRANSFER TO ERR1 *087 LM00102
END OF CONDITIONAL *088 LM00103
RDWAIT.(D,T,0,DRAIN(LPREAM)...LPREAM,EOF1,EOFCT,TPERR) *089 LM00104
TEMP = WORDS - WCOUNT.(MZE,DRAIN(1) .RS. 18) *090 LM00105
RDWAIT.(D,T,TEMP+LPREAM,DRAIN(0)...0) *091 LM00106
TRANSFER TO READ(BACK) *092 LM00107
LM00108
TPERR...TAPE ERROR. POSITION AT NEXT GOOD RECORD. LM00109
LM00110
TPERR DRAIN(0) = PB *093 LM00111
DRAIN(1) = PG *094 LM00112
DRAIN(2) = HEADER(7) *095 LM00113
DRAIN(3) = HEADER(6) *096 LM00114
DRAIN(4) = CVTIME.(DND) *097 LM00115
DRAIN(5) = FENCE *098 LM00116
PRNTP. (DRAIN) *099 LM00117
IODIAG.(DRAIN(7)...7) *100 LM00118
WHENEVER DRAIN(4) .E. UNXEOF *101 LM00119
PRNTER. *102 LM00120
TRANSFER TO ERRS *103 LM00121
END OF CONDITIONAL *104 LM00122
FSTATE. (D,T,DRAIN(8)...8) *105 LM00123
LM00124
DRAIN(4) = ADDRESS OF NEXT WORD TO READ FROM FILE. LM00125
ADJUST RELLOC TO NEXT 432 WORD BOUNDARY. LM00126
RELLOC = ( (DRAIN(4) + 431)/432) *432 +1 *106 LM00127
LM00128
TPER1 RDWAIT.(D,T,RELLOC,HEDER2(LPREAM)...LPREAM,EOF1,EOFCT,TPER2) *107 LM00129
VALID.(HEDER2(LPREAM),ERR1,TPER2) *108 LM00130
LM00131
ADD 432 TO RELLOC TO POSITION AT NEXT RECORD. LM00132
LM00133
TPER2 RELLOC = RELLOC + 432 *109 LM00134
TRANSFER TO TPER1 *110 LM00135
LM00136
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * LM00137
DRAINW. LM00138
DRAIN OFF USELESS WORDS LM00139
DRAINW.(-0,LRCT,WCOUNT,EOFRTN,EOFCT,ERR,BADERR) LM00140
LM00141
ENTRY TO DRAINW. *111 LM00142
LM00143
D1= NO. OF WORDS IN FILE TO SKIP, INCL. HEADERS LM00144
LM00145
D1 = DCOUNT.(WCT,N) - LPREAM *112 LM00146
DIMENSION STATE (8) *113 LM00147
FSTATE.(D,T,STATE(8)...8) *114 LM00148
RELLOC = STATE(4) *115 LM00149
RDWAIT.(D,T,RELLOC+D1-1,DRAIN(1)...1,EOF2,EOFCT2,TPERR) *116 LM00150
FUNCTION RETURN *117 LM00151
. . . . . . . . . . . . . . . LM00152
LM00153
EOF2. HERE IF GET END-FO-FILE WHILE POSITIONING. LM00154
LM00155
LM00156
EOF2 FSTATE.(D,T,STATE(8)...8) *118 LM00157
WHENEVER(STATE(4)-RELLOC) .L. D1 *119 LM00158
UNIT = NEWTAP.(0) *120 LM00159
WHENEVER UNIT .E. 0 *121 LM00160
PRNTP.(MESS1) *122 LM00161
TRANSFER TO ERRS *123 LM00162
END OF CONDITIONAL *124 LM00163
RDWAIT.(D,T,0,DRAIN(LPREAM)...LPREAM,EOF1,EOFCT,TPERR) *125 LM00164
TEMP = WCOUNT.(MZE,DRAIN(1).RS.18) *126 LM00165
RDWAIT.(D,T,TEMP+LPREAM,DRAIN(0)...0) *127 LM00166
OTHERWISE *128 LM00167
TRANSFER TO EOF1 *129 LM00168
END OF CONDITIONAL *130 LM00169
LM00170
END OF FUNCTION *131 LM00171
THE FOLLOWING NAMES HAVE OCCURRED ONLY ONCE IN THIS PROGRAM.
THEY WILL ALL BE ASSIGNED TO THE SAME LOCATION, AND
COMPILATION WILL CONTINUE.
EOFCT2
1MAD PROGRAM,TYPE NOV 1963 (ALL NUMBERS ARE OCTAL)
0TOTAL LOCATIONS 00674 TRANSFER VECTOR LENGTH 00013 PROGRAM BEGINS 00100 FIRST UNUSED COMMON/ERASABLE 67621
0 PROGRAM IS AN EXTERNAL FUNCTION. THE FOLLOWING ARE ENTRIES
DRAINW 00505 0 RDTAPE 00162 0 FTAPE 00135 0 STAPE 00101 0
0VARIABLE STORAGE (A=ARRAY,C=COMMON,E=ERASABLE,DIGIT=MODE)
AINDEX 67664 C1 DUMPTP 00030 A 1 LINDEX 67644 C1 READ 00021 A 4 T 67661 AC1
AUTHOR 67645 C1 ENDTAP 00031 2 LODLIM 67643 AC1 REELNO 67640 C1 TSKLTH 67637 AC1
BACK 00025 1 EOF2 00014 4 LODTAB 73605 AC1 RELLOC 00044 1 UFD 73615 AC1
BUFF1 76255 AC1 EOFCT1 00032 1 LPREAM 67651 AC1 STATE 00055 A 1 UNIT 67663 C1
BUFF2 75374 AC1 EOFCT2 00013 1 LRCT 74512 C1 SYSTEM 67642 AC1 UNXEOF 00057 A 1
BUFF 77136 AC1 EOF 00015 4 MAP 00034 A 1 TABLE 77461 AC1 USERF 67655 AC1
CURPTR 67646 C1 EOFSW 00033 2 MESS1 00042 A 1 TABLIM 67652 AC1 WC 74511 C1
D1 00026 1 FENCE 67656 AC1 MZE 67660 AC1 TEMP 00056 1 WDS1 00060 1
DAEMON 67641 AC1 HEADER 74513 AC1 PB 74477 C1 TFUDG 67657 AC1 WDS2 00061 1
DELTA 00027 1 HEDER2 67636 AC1 PG 74500 C1 TPER1 00022 4 WDS 00062 1
DND 74503 C1 HPROB 67650 C1 PRIV 67653 C1 TPER2 00023 4 WORDS1 00063 1
DRAIN 74476 AC1 HPROG 67647 C1 RCT 00043 1 TPERR 00024 4 WORDS 00064 1
D 67662 AC1 ILEDI 67654 AC1
0FUNCTION DICTIONARY
CVTIME 00000 1 DCOUNT 00001 1 EXIT 00002 1 FSTATE 00003 1 IODIAG 00004 1
NEWTAP 00005 1 PRNTER 00006 1 PRNTP 00007 1 RDWAIT 00010 1 VALID 00011 1
WCOUNT 00012 1
0ABSOLUTE CONSTANTS
00075 +000000000657 00073 +000000000010 00072 +000000000007 00074 +000000000022 00070 +000000000003
00071 +000000000004 00067 +000000000002 00065 +000000000000 00076 +000000000660 00066 +000000000001
00077 +233000000000
0STATEMENT DICTIONARY
00014 TXL -300543000537 00015 TXL -300340000331 00016 TXL -300322000305 00017 TXL -300303000267
00020 TXL -300252000236 00021 TXL -300160000144 00022 TXL -300470000454 00023 TXL -300503000500
00024 TXL -300414000412
0PROGRAM
EXTERNAL FUNCTION (V,N,WCT,EOF1,EOFCT,ERR1,ERRS) 001 LM00003
I'E COM 002 LM00004
N'R 003 LM00002
B'N SWT. 004 LM00003
D'N TABLE(210),BUFF(432),BUFF1(432),BUFF2(432) 005 LM00005
D'N HEADER(12),UFD(7),DRAIN(432),LODTAB(2000) 006 LM00006
E'E (PB,HEADER(12)),(PG,HEADER(11)),(DND,HEADER(8)), 007 LM00007
1 (WC,HEADER(2)),(LRCT,HEADER(1)) 007 LM00008
P'N TABLE,BUFF,BUFF1,BUFF2 008 LM00009
P'N HEADER,DRAIN,UFD,LODTAB 009 LM00010
P'N AINDEX,UNIT,D,T,MZE,TFUDG,FENCE,USERF,ILEDI,PRIV 010 LM00011
P'N TABLIM,LPREAM,HPROB,HPROG,CURPTR,AUTHOR,LINDEX 011 LM00012
P'N LODLIM,SYSTEM,DAEMON,REELNO,TSKLTH 012 LM00013
V'S FENCE = 777777777777K 013 LM00015
67656 -3 77777 7 77777
V'S MZE = 4K11 014 LM00016
67660 -0 00000 0 00000
V'S TFUDG = 1800 015 LM00017
67657 +0 00000 0 03410
V'S TABLIM = 200 016 LM00018
67652 +0 00000 0 00310
V'S LODLIM = 2000 017 LM00019
67643 +0 00000 0 03720
V'S LPREAM = 12 018 LM00020
67651 +0 00000 0 00014
V'S TSKLTH = 11 019 LM00021
67637 +0 00000 0 00013
V'S SYSTEM = $ C0056$ 020 LM00023
67642 -2 02300 0 00506
V'S DAEMON = $ 99999$ 021 LM00024
67641 -2 01111 1 11111
V'S D = $(DUMP)$ 022 LM00025
67662 -3 42464 4 44734
V'S T = $(TAPE)$ 023 LM00026
67661 -3 46321 4 72534
V'S USERF = $USER F$ 024 LM00027
67655 -2 46225 5 16026
V'S ILEDI = $ILE DI$ 025 LM00028
67654 +3 14325 6 02431
DIMENSION HEDER2(12) 026 LM00029
P'N HEDER2 027 LM00030
V'S UNXEOF = 6 028 LM00005
00057 +0 00000 0 00006
V'S DUMPTP = $DUMPTP$ 029 LM00007
00030 +2 46444 4 76347
V'S MAP = $ 'MAP'$ 030 LM00008
00034 -2 01444 2 14714
V'S MESS1 = $ERROR TREATED AS END OF TAPE$,777777777777K 031 LM00010
00035 -3 77777 7 77777 00036 -2 32147 2 56060 00037 -0 52460 4 62660 00040 +2 46021 6 26025
00041 -2 35125 2 16325 00042 +2 55151 4 65160
S'L EOF1,ERR1,ERRS 032 LM00012
B'N EOFSW,ENDTAP 033 LM00013
E'O STAPE. 034 LM00019
00100 TRA +0 02000 0 00103 00101 SXA +0 63400 2 00621 00102 TSX +0 07400 2 00621
DELTA = 432-LPREAM 035 LM00020
00103 CLA +0 50000 0 00076 00104 SUB +0 40200 0 67651 00105 STO +0 60100 0 00027
EOFCT1 = WCT 036 LM00021
00106 CLA +0 50000 0 00000 00107 STO +0 60100 0 00032
WORDS = 0 037 LM00022
00110 CLA +0 50000 0 00065 00111 STO +0 60100 0 00064
WORDS1 = 0 038 LM00023
00112 CLA +0 50000 0 00065 00113 STO +0 60100 0 00063
RCT = 0 039 LM00024
00114 CLA +0 50000 0 00065 00115 STO +0 60100 0 00043
EOFSW = 0B 040 LM00025
00116 CLA +0 50000 0 00065 00117 STO +0 60100 0 00033
W'R (HEADER(7).E.DUMPTP).AND.(HEADER(6).E.MAP) 041 LM00029
00120 CLA +0 50000 0 74505 00121 SUB +0 40200 0 00034 00122 TNZ -0 10000 0 00131 00123 CLA +0 50000 0 74504
00124 SUB +0 40200 0 00030 00125 TNZ -0 10000 0 00131
ENDTAP = 1B 042 LM00030
00126 CLA +0 50000 0 00066 00127 STO +0 60100 0 00031
O'E 043 LM00031
00130 TRA +0 02000 0 00133
ENDTAP = 0B 044 LM00032
00131 CLA +0 50000 0 00065 00132 STO +0 60100 0 00031
E'L 045 LM00033
F'N 046 LM00034
00133 TRA +0 02000 0 00665
E'O FTAPE. 047 LM00041
00134 TRA +0 02000 0 00137 00135 SXA +0 63400 2 00621 00136 TSX +0 07400 2 00621
WDS = DELTA - WORDS1 048 LM00042
00137 CLA +0 50000 0 00027 00140 SUB +0 40200 0 00063 00141 STO +0 60100 0 00062
BACK = 0 049 LM00043
00142 CLA +0 50000 0 00065 00143 STO +0 60100 0 00025
READ(0) RDWAIT.(D,T,0,DRAIN(WDS)...WDS,EOF1,EOFCT,TPERR) 050 LM00044
00144 CLA +0 50000 0 00062 00145 SUB +0 40200 0 00146 00146 TXH +3 00000 0 74476 00147 STA +0 62100 0 00154
00150 TSX +0 07400 4 00010 00151 TXH +3 00000 0 67662 00152 TXH +3 00000 0 67661 00153 TXH +3 00000 0 00065
00154 TIX +2 00062 0 00000 00155 TXH +3 00000 0 00000 00156 TXH +3 00000 0 00000 00157 TXH +3 00000 0 00024
F'N 051 LM00045
00160 TRA +0 02000 0 00665
E'O RDTAPE. 052 LM00051
00161 TRA +0 02000 0 00164 00162 SXA +0 63400 2 00621 00163 TSX +0 07400 2 00621
WDS = N 053 LM00052
00164 CLA +0 50000 0 00000 00165 STO +0 60100 0 00062
W'R (WORDS+WDS).G.EOFCT1 054 LM00053
00166 CLA +0 50000 0 00064 00167 ADD +0 40000 0 00062 00170 SUB +0 40200 0 00032 00171 TZE +0 10000 0 00202
00172 TMI -0 12000 0 00202
EOFSW = 1B 055 LM00054
00173 CLA +0 50000 0 00066 00174 STO +0 60100 0 00033
WDS = EOFCT1 - WORDS 056 LM00055
00175 CLA +0 50000 0 00032 00176 SUB +0 40200 0 00064 00177 STO +0 60100 0 00062
EOFCT = WDS 057 LM00056
00200 CLA +0 50000 0 00062 00201 STO +0 60100 0 00000
E'L 058 LM00057
WDS1 = WDS 059 LM00058
00202 CLA +0 50000 0 00062 00203 STO +0 60100 0 00060
WDS2 = 0 060 LM00059
00204 CLA +0 50000 0 00065 00205 STO +0 60100 0 00061
WORDS1 = WORDS1 + WDS 061 LM00060
00206 CLA +0 50000 0 00063 00207 ADD +0 40000 0 00062 00210 STO +0 60100 0 00063
W'R (WORDS1.G.DELTA) 062 LM00064
00211 CLA +0 50000 0 00063 00212 SUB +0 40200 0 00027 00213 TZE +0 10000 0 00234 00214 TMI -0 12000 0 00234
WDS1 = DELTA - (WORDS1-WDS) 063 LM00065
00215 CLA +0 50000 0 00063 00216 SUB +0 40200 0 00062 00217 CHS +0 76000 0 00002 00220 ADD +0 40000 0 00027
00221 STO +0 60100 0 00060
WDS2 = WDS - WDS1 064 LM00066
00222 CLA +0 50000 0 00062 00223 SUB +0 40200 0 00060 00224 STO +0 60100 0 00061
WORDS1 = WDS2 065 LM00067
00225 CLA +0 50000 0 00061 00226 STO +0 60100 0 00063
DELTA = 432 066 LM00068
00227 CLA +0 50000 0 00076 00230 STO +0 60100 0 00027
RCT = RCT+1 067 LM00069
00231 CLA +0 50000 0 00043 00232 ADD +0 40000 0 00066 00233 STO +0 60100 0 00043
E'L 068 LM00070
BACK = 1 069 LM00074
00234 CLA +0 50000 0 00066 00235 STO +0 60100 0 00025
READ(1) RDWAIT.(D,T,0,V(WDS)...WDS1,EOF,EOFCT,TPERR) 070 LM00075
00236 CLA +0 50000 0 00062 00237 SUB +0 40200 0 00240 00240 TXH +3 00000 0 00000 00241 STA +0 62100 0 00246
00242 TSX +0 07400 4 00010 00243 TXH +3 00000 0 67662 00244 TXH +3 00000 0 67661 00245 TXH +3 00000 0 00065
00246 TIX +2 00060 0 00000 00247 TXH +3 00000 0 00015 00250 TXH +3 00000 0 00000 00251 TXH +3 00000 0 00024
WORDS = WORDS + WDS1 071 LM00076
00252 CLA +0 50000 0 00064 00253 ADD +0 40000 0 00060 00254 STO +0 60100 0 00064
BACK = 2 072 LM00078
00255 CLA +0 50000 0 00067 00256 STO +0 60100 0 00025
W'R RCT .E. 4 073 LM00079
00257 CLA +0 50000 0 00043 00260 SUB +0 40200 0 00071 00261 TNZ -0 10000 0 00303
RCT = 0 074 LM00080
00262 CLA +0 50000 0 00065 00263 STO +0 60100 0 00043
DELTA = 432 - LPREAM 075 LM00081
00264 CLA +0 50000 0 00076 00265 SUB +0 40200 0 67651 00266 STO +0 60100 0 00027
READ(2) RDWAIT.(D,T,0,DRAIN(LPREAM)...LPREAM,EOF,EOFCT,TPERR) 076 LM00082
00267 CLA +0 50000 0 67651 00270 SUB +0 40200 0 00271 00271 TXH +3 00000 0 74476 00272 STA +0 62100 0 00277
00273 TSX +0 07400 4 00010 00274 TXH +3 00000 0 67662 00275 TXH +3 00000 0 67661 00276 TXH +3 00000 0 00065
00277 TIX +2 67651 0 00000 00300 TXH +3 00000 0 00015 00301 TXH +3 00000 0 00000 00302 TXH +3 00000 0 00024
E'L 077 LM00083
BACK = 3 078 LM00086
00303 CLA +0 50000 0 00070 00304 STO +0 60100 0 00025
READ(3) RDWAIT.(D,T,0,V(WDS-WDS1)...WDS2,EOF,EOFCT,TPERR) 079 LM00087
00305 CLA +0 50000 0 00062 00306 SUB +0 40200 0 00060 00307 SUB +0 40200 0 00310 00310 TXH +3 00000 0 00000
00311 STA +0 62100 0 00316 00312 TSX +0 07400 4 00010 00313 TXH +3 00000 0 67662 00314 TXH +3 00000 0 67661
00315 TXH +3 00000 0 00065 00316 TIX +2 00061 0 00000 00317 TXH +3 00000 0 00015 00320 TXH +3 00000 0 00000
00321 TXH +3 00000 0 00024
WORDS = WORDS + WDS2 080 LM00088
00322 CLA +0 50000 0 00064 00323 ADD +0 40000 0 00061 00324 STO +0 60100 0 00064
W'R EOFSW, T'O EOF1 081 LM00092
00325 NZT -0 52000 0 00033 00326 TRA +0 02000 0 00330 00327 TRA +0 02000 0 00000
FUNCTION RETURN 082 LM00094
00330 TRA +0 02000 0 00665
EOF W'R (WORDS .GE. EOFCT1) .OR. ENDTAP, T'O EOF1 083 LM00097
00331 ZET +0 52000 0 00031 00332 TRA +0 02000 0 00337 00333 CLA +0 50000 0 00064 00334 SUB +0 40200 0 00032
00335 TZE +0 10000 0 00337 00336 TMI -0 12000 0 00340 00337 TRA +0 02000 0 00000
UNIT = NEWTAP.(0) 084 LM00099
00340 TSX +0 07400 4 00005 00341 TXH +3 00000 0 00065 00342 STO +0 60100 0 67663
W'R UNIT .E. 0 085 LM00100
00343 CLA +0 50000 0 67663 00344 SUB +0 40200 0 00065 00345 TNZ -0 10000 0 00351
PRNTP.(MESS1) 086 LM00101
00346 TSX +0 07400 4 00007 00347 TXH +3 00000 0 00042
T'O ERR1 087 LM00102
00350 TRA +0 02000 0 00000
E'L 088 LM00103
RDWAIT.(D,T,0,DRAIN(LPREAM)...LPREAM,EOF1,EOFCT,TPERR) 089 LM00104
00351 CLA +0 50000 0 67651 00352 SUB +0 40200 0 00353 00353 TXH +3 00000 0 74476 00354 STA +0 62100 0 00361
00355 TSX +0 07400 4 00010 00356 TXH +3 00000 0 67662 00357 TXH +3 00000 0 67661 00360 TXH +3 00000 0 00065
00361 TIX +2 67651 0 00000 00362 TXH +3 00000 0 00000 00363 TXH +3 00000 0 00000 00364 TXH +3 00000 0 00024
TEMP = WORDS - WCOUNT.(MZE,DRAIN(1) .RS. 18) 090 LM00105
00365 CAL -0 50000 0 00074 00366 STA +0 62100 0 00370 00367 CAL -0 50000 0 74475 00370 LGR -0 76500 0 00000
00371 SLW +0 60200 0 00671 00372 TSX +0 07400 4 00012 00373 TXH +3 00000 0 67660 00374 TXH +3 00000 0 00671
00375 CHS +0 76000 0 00002 00376 ADD +0 40000 0 00064 00377 STO +0 60100 0 00056
RDWAIT.(D,T,TEMP+LPREAM,DRAIN(0)...0) 091 LM00106
00400 CLA +0 50000 0 00056 00401 ADD +0 40000 0 67651 00402 STO +0 60100 0 00671 00403 TSX +0 07400 4 00010
00404 TXH +3 00000 0 67662 00405 TXH +3 00000 0 67661 00406 TXH +3 00000 0 00671 00407 TIX +2 00065 0 74476
T'O READ(BACK) 092 LM00107
00410 LXA +0 53400 2 00025 00411 TRA +0 02000 2 00021
TPERR DRAIN(0) = PB 093 LM00111
00412 CLA +0 50000 0 74477 00413 STO +0 60100 0 74476
DRAIN(1) = PG 094 LM00112
00414 CLA +0 50000 0 74500 00415 STO +0 60100 0 74475
DRAIN(2) = HEADER(7) 095 LM00113
00416 CLA +0 50000 0 74504 00417 STO +0 60100 0 74474
DRAIN(3) = HEADER(6) 096 LM00114
00420 CLA +0 50000 0 74505 00421 STO +0 60100 0 74473
DRAIN(4) = CVTIME.(DND) 097 LM00115
00422 TSX +0 07400 4 00000 00423 TXH +3 00000 0 74503 00424 STO +0 60100 0 74472
DRAIN(5) = FENCE 098 LM00116
00425 CLA +0 50000 0 67656 00426 STO +0 60100 0 74471
PRNTP. (DRAIN) 099 LM00117
00427 TSX +0 07400 4 00007 00430 TXH +3 00000 0 74476
IODIAG.(DRAIN(7)...7) 100 LM00118
00431 TSX +0 07400 4 00004 00432 TIX +2 00072 0 74467
W'R DRAIN(4) .E. UNXEOF 101 LM00119
00433 CLA +0 50000 0 74472 00434 SUB +0 40200 0 00057 00435 TNZ -0 10000 0 00440
PRNTER. 102 LM00120
00436 TSX +0 07400 4 00006
T'O ERRS 103 LM00121
00437 TRA +0 02000 0 00000
E'L 104 LM00122
FSTATE. (D,T,DRAIN(8)...8) 105 LM00123
00440 TSX +0 07400 4 00003 00441 TXH +3 00000 0 67662 00442 TXH +3 00000 0 67661 00443 TIX +2 00073 0 74466
RELLOC = ( (DRAIN(4) + 431)/432) *432 +1 106 LM00127
00444 CLA +0 50000 0 74472 00445 ADD +0 40000 0 00075 00446 LRS +0 76500 0 00043 00447 DVP +0 22100 0 00076
00450 MPY +0 20000 0 00076 00451 XCA +0 13100 0 00000 00452 ADD +0 40000 0 00066 00453 STO +0 60100 0 00044
TPER1 RDWAIT.(D,T,RELLOC,HEDER2(LPREAM)...LPREAM,EOF1,EOFCT,TPER2) 107 LM00129
00454 CLA +0 50000 0 67651 00455 SUB +0 40200 0 00456 00456 TXH +3 00000 0 67636 00457 STA +0 62100 0 00464
00460 TSX +0 07400 4 00010 00461 TXH +3 00000 0 67662 00462 TXH +3 00000 0 67661 00463 TXH +3 00000 0 00044
00464 TIX +2 67651 0 00000 00465 TXH +3 00000 0 00000 00466 TXH +3 00000 0 00000 00467 TXH +3 00000 0 00023
VALID.(HEDER2(LPREAM),ERR1,TPER2) 108 LM00130
00470 CLA +0 50000 0 67651 00471 SUB +0 40200 0 00472 00472 TXH +3 00000 0 67636 00473 STA +0 62100 0 00475
00474 TSX +0 07400 4 00011 00475 TXH +3 00000 0 00000 00476 TXH +3 00000 0 00000 00477 TXH +3 00000 0 00023
TPER2 RELLOC = RELLOC + 432 109 LM00134
00500 CLA +0 50000 0 00044 00501 ADD +0 40000 0 00076 00502 STO +0 60100 0 00044
T'O TPER1 110 LM00135
00503 TRA +0 02000 0 00022
ENTRY TO DRAINW. 111 LM00142
00504 TRA +0 02000 0 00507 00505 SXA +0 63400 2 00621 00506 TSX +0 07400 2 00621
D1 = DCOUNT.(WCT,N) - LPREAM 112 LM00146
00507 TSX +0 07400 4 00001 00510 TXH +3 00000 0 00000 00511 TXH +3 00000 0 00000 00512 SUB +0 40200 0 67651
00513 STO +0 60100 0 00026
DIMENSION STATE (8) 113 LM00147
FSTATE.(D,T,STATE(8)...8) 114 LM00148
00514 TSX +0 07400 4 00003 00515 TXH +3 00000 0 67662 00516 TXH +3 00000 0 67661 00517 TIX +2 00073 0 00045
RELLOC = STATE(4) 115 LM00149
00520 CLA +0 50000 0 00051 00521 STO +0 60100 0 00044
RDWAIT.(D,T,RELLOC+D1-1,DRAIN(1)...1,EOF2,EOFCT2,TPERR) 116 LM00150
00522 CLA +0 50000 0 00044 00523 ADD +0 40000 0 00026 00524 SUB +0 40200 0 00066 00525 STO +0 60100 0 00671
00526 TSX +0 07400 4 00010 00527 TXH +3 00000 0 67662 00530 TXH +3 00000 0 67661 00531 TXH +3 00000 0 00671
00532 TIX +2 00066 0 74475 00533 TXH +3 00000 0 00014 00534 TXH +3 00000 0 00013 00535 TXH +3 00000 0 00024
FUNCTION RETURN 117 LM00151
00536 TRA +0 02000 0 00665
EOF2 FSTATE.(D,T,STATE(8)...8) 118 LM00157
00537 TSX +0 07400 4 00003 00540 TXH +3 00000 0 67662 00541 TXH +3 00000 0 67661 00542 TIX +2 00073 0 00045
W'R(STATE(4)-RELLOC) .L. D1 119 LM00158
00543 CLA +0 50000 0 00051 00544 SUB +0 40200 0 00044 00545 SUB +0 40200 0 00026 00546 TZE +0 10000 0 00617
00547 TPL +0 12000 0 00617
UNIT = NEWTAP.(0) 120 LM00159
00550 TSX +0 07400 4 00005 00551 TXH +3 00000 0 00065 00552 STO +0 60100 0 67663
W'R UNIT .E. 0 121 LM00160
00553 CLA +0 50000 0 67663 00554 SUB +0 40200 0 00065 00555 TNZ -0 10000 0 00561
PRNTP.(MESS1) 122 LM00161
00556 TSX +0 07400 4 00007 00557 TXH +3 00000 0 00042
T'O ERRS 123 LM00162
00560 TRA +0 02000 0 00000
E'L 124 LM00163
RDWAIT.(D,T,0,DRAIN(LPREAM)...LPREAM,EOF1,EOFCT,TPERR) 125 LM00164
00561 CLA +0 50000 0 67651 00562 SUB +0 40200 0 00563 00563 TXH +3 00000 0 74476 00564 STA +0 62100 0 00571
00565 TSX +0 07400 4 00010 00566 TXH +3 00000 0 67662 00567 TXH +3 00000 0 67661 00570 TXH +3 00000 0 00065
00571 TIX +2 67651 0 00000 00572 TXH +3 00000 0 00000 00573 TXH +3 00000 0 00000 00574 TXH +3 00000 0 00024
TEMP = WCOUNT.(MZE,DRAIN(1).RS.18) 126 LM00165
00575 CAL -0 50000 0 00074 00576 STA +0 62100 0 00600 00577 CAL -0 50000 0 74475 00600 LGR -0 76500 0 00000
00601 SLW +0 60200 0 00671 00602 TSX +0 07400 4 00012 00603 TXH +3 00000 0 67660 00604 TXH +3 00000 0 00671
00605 STO +0 60100 0 00056
RDWAIT.(D,T,TEMP+LPREAM,DRAIN(0)...0) 127 LM00166
00606 CLA +0 50000 0 00056 00607 ADD +0 40000 0 67651 00610 STO +0 60100 0 00671 00611 TSX +0 07400 4 00010
00612 TXH +3 00000 0 67662 00613 TXH +3 00000 0 67661 00614 TXH +3 00000 0 00671 00615 TIX +2 00065 0 74476
OTHERWISE 128 LM00167
00616 TRA +0 02000 0 00620
T'O EOF1 129 LM00168
00617 TRA +0 02000 0 00000
E'L 130 LM00169
END OF FUNCTION 131 LM00171
00620 TSX +0 07400 4 00002 00621 TXH +3 00000 0 00000 00622 SXD -0 63400 1 00621 00623 SXA +0 63400 4 00665
00624 CLA +0 50000 4 00001 00625 STO +0 60100 0 00240 00626 STO +0 60100 0 00310 00627 CLA +0 50000 4 00002
00630 STA +0 62100 0 00164 00631 STO +0 60100 0 00511 00632 CLA +0 50000 4 00003 00633 STA +0 62100 0 00106
00634 STO +0 60100 0 00510 00635 CLA +0 50000 4 00004 00636 STO +0 60100 0 00155 00637 STA +0 62100 0 00327
00640 STA +0 62100 0 00337 00641 STO +0 60100 0 00362 00642 STO +0 60100 0 00465 00643 STO +0 60100 0 00572
00644 STA +0 62100 0 00617 00645 CLA +0 50000 4 00005 00646 STO +0 60100 0 00156 00647 STA +0 62100 0 00201
00650 STO +0 60100 0 00250 00651 STO +0 60100 0 00301 00652 STO +0 60100 0 00320 00653 STO +0 60100 0 00363
00654 STO +0 60100 0 00466 00655 STO +0 60100 0 00573 00656 CLA +0 50000 4 00006 00657 STA +0 62100 0 00350
00660 STO +0 60100 0 00476 00661 CLA +0 50000 4 00007 00662 STA +0 62100 0 00437 00663 STA +0 62100 0 00560
00664 TRA +0 02000 2 00001 00665 AXT +0 77400 4 00000 00666 LXA +0 53400 2 00621 00667 LXD -0 53400 1 00621
00670 TRA +0 02000 4 00001
DCOUNT BCD 05/28/67 2016.7 1607 00000
1 MAD PROGRAM LISTING ... ... ... FILE DCOUNT MAD 05/28/67 1924.0
-
CALCULATION OF TOTAL WORDS FOR A FILE LM00001
D.R. WIDRIG DEC. 1965 LM00002
LM00003
EXTERNAL FUNCTION (WCT,LRCT) *001 LM00004
LM00005
NORMAL MODE IS INTEGER *002 LM00006
VECTOR VALUES LPHYS = 1728 *003 LM00007
VECTOR VALUES WPLR = 1716 *004 LM00008
VECTOR VALUES LPREAM = 12 *005 LM00009
LM00010
FIGURE DRAIN COUNT LM00011
THE DRAIN COUNT REPRESENTS THE TOTAL WORDS LM00012
ON THE TAPE THAT MUST BE PASSED IN ORDER TO LM00013
SKIP ONE LOGICAL FILE LM00014
LM00015
ENTRY TO DCOUNT. *006 LM00016
WHENEVER WCT .E. 0, FUNCTION RETURN 432 *007 LM00017
NFLR = WCT/WPLR *008 LM00018
LEFT = WCT - NFLR*WPLR *009 LM00019
...BEWARE OF NEXT STATEMENT... LM00020
DELTA = (LEFT/LEFT)*LPREAM *010 LM00021
FUNCTION RETURN (NFLR*LPHYS)+(((LEFT+DELTA+431)/432)*432) *011 LM00022
1 - (LRCT-1)*LPHYS *011 LM00023
LM00024
FIGURE WORD COUNT FROM RECORD NUMBER LM00025
THE WORD COUNT REPRESENTS THE NUMBER OF WORDS IN LM00026
A DISK FILE UP TO BUT NOT INCLUDING THE INDICATED LM00027
DAEMON LOGICAL RECORD LM00028
LM00029
ENTRY TO WCOUNT. *012 LM00030
FUNCTION RETURN (LRCT - 1)*WPLR *013 LM00031
LM00032
END OF FUNCTION *014 LM00033
1MAD PROGRAM,TYPE NOV 1963 (ALL NUMBERS ARE OCTAL)
0TOTAL LOCATIONS 00125 TRANSFER VECTOR LENGTH 00001 PROGRAM BEGINS 00015
0 PROGRAM IS AN EXTERNAL FUNCTION. THE FOLLOWING ARE ENTRIES
WCOUNT 00071 0 DCOUNT 00016 0
0VARIABLE STORAGE (A=ARRAY,C=COMMON,E=ERASABLE,DIGIT=MODE)
DELTA 00002 1 LPHYS 00004 A 1 LPREAM 00005 A 1 NFLR 00006 1 WPLR 00007 A 1
LEFT 00003 1
0FUNCTION DICTIONARY
EXIT 00000 1
0ABSOLUTE CONSTANTS
00012 +000000000657 00013 +000000000660 00010 +000000000000 00011 +000000000001 00014 +233000000000
0PROGRAM
EXTERNAL FUNCTION (WCT,LRCT) 001 LM00004
N'R 002 LM00006
V'S LPHYS = 1728 003 LM00007
00004 +0 00000 0 03300
V'S WPLR = 1716 004 LM00008
00007 +0 00000 0 03264
V'S LPREAM = 12 005 LM00009
00005 +0 00000 0 00014
E'O DCOUNT. 006 LM00016
00015 TRA +0 02000 0 00020 00016 SXA +0 63400 2 00102 00017 TSX +0 07400 2 00102
W'R WCT .E. 0, F'N 432 007 LM00017
00020 CLA +0 50000 0 00024 00021 SUB +0 40200 0 00010 00022 TNZ -0 10000 0 00025 00023 CLA +0 50000 0 00013
00024 TRA +0 02000 0 00115
NFLR = WCT/WPLR 008 LM00018
00025 LDQ +0 56000 0 00024 00026 PXD -0 75400 0 00000 00027 LLS +0 76300 0 00000 00030 DVP +0 22100 0 00007
00031 STQ -0 60000 0 00006
LEFT = WCT - NFLR*WPLR 009 LM00019
00032 LDQ +0 56000 0 00006 00033 MPY +0 20000 0 00007 00034 XCA +0 13100 0 00000 00035 CHS +0 76000 0 00002
00036 ADD +0 40000 0 00024 00037 STO +0 60100 0 00003
DELTA = (LEFT/LEFT)*LPREAM 010 LM00021
00040 LDQ +0 56000 0 00003 00041 PXD -0 75400 0 00000 00042 LLS +0 76300 0 00000 00043 DVP +0 22100 0 00003
00044 MPY +0 20000 0 00005 00045 STQ -0 60000 0 00002
F'N (NFLR*LPHYS)+(((LEFT+DELTA+431)/432)*432) 011 LM00022
1 - (LRCT-1)*LPHYS 011 LM00023
00046 CLA +0 50000 0 00024 00047 SUB +0 40200 0 00011 00050 XCA +0 13100 0 00000 00051 MPY +0 20000 0 00004
00052 STQ -0 60000 0 00121 00053 CLA +0 50000 0 00003 00054 ADD +0 40000 0 00002 00055 ADD +0 40000 0 00012
00056 LRS +0 76500 0 00043 00057 DVP +0 22100 0 00013 00060 MPY +0 20000 0 00013 00061 STQ -0 60000 0 00122
00062 LDQ +0 56000 0 00006 00063 MPY +0 20000 0 00004 00064 XCA +0 13100 0 00000 00065 ADD +0 40000 0 00122
00066 SUB +0 40200 0 00121 00067 TRA +0 02000 0 00115
E'O WCOUNT. 012 LM00030
00070 TRA +0 02000 0 00073 00071 SXA +0 63400 2 00102 00072 TSX +0 07400 2 00102
F'N (LRCT - 1)*WPLR 013 LM00031
00073 CLA +0 50000 0 00024 00074 SUB +0 40200 0 00011 00075 XCA +0 13100 0 00000 00076 MPY +0 20000 0 00007
00077 XCA +0 13100 0 00000 00100 TRA +0 02000 0 00115
E'N 014 LM00033
00101 TSX +0 07400 4 00000 00102 TXH +3 00000 0 00000 00103 SXD -0 63400 1 00102 00104 SXA +0 63400 4 00115
00105 CLA +0 50000 4 00001 00106 STA +0 62100 0 00020 00107 STA +0 62100 0 00025 00110 STA +0 62100 0 00036
00111 CLA +0 50000 4 00002 00112 STA +0 62100 0 00046 00113 STA +0 62100 0 00073 00114 TRA +0 02000 2 00001
00115 AXT +0 77400 4 00000 00116 LXA +0 53400 2 00102 00117 LXD -0 53400 1 00102 00120 TRA +0 02000 4 00001
MAIL BCD 05/28/67 2016.7 5758 00000
1 MAD PROGRAM LISTING ... ... ... FILE MAIL MAD 05/28/67 1924.1
-
ROUTINE TO SEND USER MESSAGES FROM RETRIEVE COMMAND LM00001
D.R. WIDRIG DEC. 1965 LM00002
LM00003
EXTERNAL FUNCTION (MPB,MPG,MESS,SW) *001 LM00004
INSERT FILE COM *002 LM00005
*002 LM00001
NORMAL MODE IS INTEGER *003 LM00002
BOOLEAN SWT. *004 LM00003
LM00004
DIMENSION TABLE(210),BUFF(432),BUFF1(432),BUFF2(432) *005 LM00005
DIMENSION HEADER(12),UFD(7),DRAIN(432),LODTAB(2000) *006 LM00006
EQUIVALENCE (PB,HEADER(12)),(PG,HEADER(11)),(DND,HEADER(8)), *007 LM00007
1 (WC,HEADER(2)),(LRCT,HEADER(1)) *007 LM00008
PROGRAM COMMON TABLE,BUFF,BUFF1,BUFF2 *008 LM00009
PROGRAM COMMON HEADER,DRAIN,UFD,LODTAB *009 LM00010
PROGRAM COMMON AINDEX,UNIT,D,T,MZE,TFUDG,FENCE,USERF,ILEDI,PRIV *010 LM00011
PROGRAM COMMON TABLIM,LPREAM,HPROB,HPROG,CURPTR,AUTHOR,LINDEX *011 LM00012
PROGRAM COMMON LODLIM,SYSTEM,DAEMON,REELNO,TSKLTH *012 LM00013
LM00014
VECTOR VALUES FENCE = 777777777777K *013 LM00015
VECTOR VALUES MZE = 4K11 *014 LM00016
VECTOR VALUES TFUDG = 1800 *015 LM00017
VECTOR VALUES TABLIM = 200 *016 LM00018
VECTOR VALUES LODLIM = 2000 *017 LM00019
VECTOR VALUES LPREAM = 12 *018 LM00020
VECTOR VALUES TSKLTH = 11 *019 LM00021
LM00022
VECTOR VALUES SYSTEM = $ C0056$ *020 LM00023
VECTOR VALUES DAEMON = $ 99999$ *021 LM00024
VECTOR VALUES D = $(DUMP)$ *022 LM00025
VECTOR VALUES T = $(TAPE)$ *023 LM00026
VECTOR VALUES USERF = $USER F$ *024 LM00027
VECTOR VALUES ILEDI = $ILE DI$ *025 LM00028
DIMENSION HEDER2(12) *026 LM00029
PROGRAM COMMON HEDER2 *027 LM00030
LM00031
BOOLEAN SW *028 LM00006
LM00007
VECTOR VALUES URGENT = $URGENT$ *029 LM00008
VECTOR VALUES MAIL = $ MAIL$ *030 LM00009
VECTOR VALUES POST = $ POST$ *031 LM00010
VECTOR VALUES TRIEVE = $TRIEVE$ *032 LM00011
LM00012
VECTOR VALUES FIRST = $ * * *XXXXXX * * * * * * * *$, *033 LM00013
1 $TRIEVE$,$MON RE$,$OM DAE$,$AIL FR$,$ * * M$, *033 LM00014
2 $ * * * * * *XXXXXX* * * $,777777000016K *033 LM00015
LM00016
VECTOR VALUES BLANK = 777777000000K *034 LM00017
LM00018
DIMENSION TEMP(14) *035 LM00019
LM00020
MAIL LETTER TO USER BY APPENDING ONTO 'URGENT MAIL' LM00021
LM00022
ENTRY TO MAIL. *036 LM00023
ATTACH.(MPB,MPG,ERR1) *037 LM00024
LM00025
IF NECESSARY, INCREASE QUOTA TO LEAVE MESSAGE LM00026
LM00027
STORGE.(2,ALLOTD,USED,ERR1) *038 LM00028
WHENEVER (USED .G. ALLOTD), ALLOT.(2,USED+10,MZE,ERR1) *039 LM00029
CHECK FOR RELOAD'S (LINK) URGENT MAIL LM00030
LM00031
FSTATE.(URGENT,MAIL,DRAIN(2)...2,NOMAIL) *040 LM00032
WHENEVER (DRAIN(1).RS.35).E.1 *041 LM00033
OPEN.($R$,URGENT,MAIL,NOMAIL) *042 LM00034
RDFILE.(URGENT, MAIL,1,DRAIN(432)...432,MZE,EOFCT) *043 LM00035
CLOSE.(URGENT, MAIL) *044 LM00036
UNLINK.(URGENT,MAIL,NOMAIL) *045 LM00037
OPEN.($W$,URGENT,MAIL,ERR1) *046 LM00038
WRFILE.(URGENT,MAIL,1,DRAIN(432)...EOFCT) *047 LM00039
CLOSE.(URGENT,MAIL) *048 LM00040
END OF CONDITIONAL *049 LM00041
NOMAIL OPEN.($W$,URGENT,MAIL,0,2,ERR1) *050 LM00042
BUFFER.(URGENT,MAIL,DRAIN(432)...432,ERR1) *051 LM00043
LM00044
TEST FOR TITLE LINE LM00045
LM00046
WHENEVER .NOT. SW, TRANSFER TO SKIP *052 LM00047
LM00048
GET CURRENT DATE LM00049
LM00050
FIRST(12) = DATE.(0) *053 LM00051
FIRST(1) = FIRST(12) *054 LM00052
WRFILE.(URGENT,MAIL,0,BLANK...1,MZE,MZE,ERR1) *055 LM00053
WRFILE.(URGENT,MAIL,0,FIRST(14)...15,MZE,MZE,ERR1) *056 LM00054
LM00055
FIND END OF MESSAGE LM00056
ALSO, INVERT MESSAGE LM00057
LM00058
SKIP THROUGH LOOP1, FOR I=0,1,I.G.13 *057 LM00059
TEMP(13-I) = MESS(I) *058 LM00060
WHENEVER TEMP(13-I) .E. FENCE, TRANSFER TO END *059 LM00061
LOOP1 CONTINUE *060 LM00062
LM00063
GET WORD COUNT AT END AND INSERT LINE-MARK LM00064
LM00065
END TEMP(14) = BLANK .V. I *061 LM00066
J = I + 1 *062 LM00067
WRFILE.(URGENT,MAIL,0,TEMP(14)...J,MZE,MZE,ERR1) *063 LM00068
CLOSE.(URGENT,MAIL,ERR1) *064 LM00069
LM00070
RE-ADJUST QUOTA, IF NECESSARY LM00071
LM00072
WHENEVER (USED .G. ALLOTD), ALLOT.(2,ALLOTD,MZE,NERR0) *065 LM00073
NERR0 FUNCTION RETURN *066 LM00074
LM00075
CANNOT LEAVE NOTE, MAKE LINKED NOTE LM00076
LM00077
ERR1 CLOSE.(URGENT,MAIL,NERR1) *067 LM00078
NERR1 LINK.(URGENT,POST,SYSTEM,DAEMON,URGENT,TRIEVE,104K,NERR2) *068 LM00079
NERR2 FUNCTION RETURN *069 LM00080
LM00081
END OF FUNCTION *070 LM00082
1MAD PROGRAM,TYPE NOV 1963 (ALL NUMBERS ARE OCTAL)
0TOTAL LOCATIONS 00410 TRANSFER VECTOR LENGTH 00015 PROGRAM BEGINS 00111 FIRST UNUSED COMMON/ERASABLE 67621
0 PROGRAM IS AN EXTERNAL FUNCTION. THE FOLLOWING ARE ENTRIES
MAIL 00112 0
0VARIABLE STORAGE (A=ARRAY,C=COMMON,E=ERASABLE,DIGIT=MODE)
AINDEX 67664 C1 END 00016 4 J 00050 1 NERR2 00022 4 TEMP 00071 A 1
ALLOTD 00025 1 EOFCT 00027 1 LINDEX 67644 C1 NOMAIL 00023 4 TFUDG 67657 AC1
AUTHOR 67645 C1 ERR1 00017 4 LODLIM 67643 AC1 PB 74477 C1 TRIEVE 00072 A 1
BLANK 00026 A 1 FENCE 67656 AC1 LODTAB 73605 AC1 PG 74500 C1 T 67661 AC1
BUFF1 76255 AC1 FIRST 00046 A 1 LOOP1 00015 4 POST 00052 A 1 TSKLTH 67637 AC1
BUFF2 75374 AC1 HEADER 74513 AC1 LPREAM 67651 AC1 PRIV 67653 C1 UFD 73615 AC1
BUFF 77136 AC1 HEDER2 67636 AC1 LRCT 74512 C1 REELNO 67640 C1 UNIT 67663 C1
CURPTR 67646 C1 HPROB 67650 C1 MAIL 00051 A 1 SKIP 00024 4 URGENT 00073 A 1
DAEMON 67641 AC1 HPROG 67647 C1 MZE 67660 AC1 SYSTEM 67642 AC1 USED 00074 1
DND 74503 C1 ILEDI 67654 AC1 NERR0 00020 4 TABLE 77461 AC1 USERF 67655 AC1
DRAIN 74476 AC1 I 00047 1 NERR1 00021 4 TABLIM 67652 AC1 WC 74511 C1
D 67662 AC1
0FUNCTION DICTIONARY
ALLOT 00000 1 ATTACH 00001 1 BUFFER 00002 1 CLOSE 00003 1 DATE 00004 1
EXIT 00005 1 FSTATE 00006 1 LINK 00007 1 OPEN 00010 1 RDFILE 00011 1
STORGE 00012 1 UNLINK 00013 1 WRFILE 00014 1
0ABSOLUTE CONSTANTS
00104 +000000000104 00101 +000000000015 00102 +000000000017 00075 +000000000000 00110 -266060606060
00105 +000000000660 00107 -116060606060 00103 +000000000043 00100 +000000000012 00077 +000000000002
00076 +000000000001 00106 +233000000000
0STATEMENT DICTIONARY
00016 TXL -300315000312 00017 TXL -300352000346 00020 TXL -300346000345 00021 TXL -300363000352
00022 TXL -300364000363 00023 TXL -300225000216 00024 TXL -300274000262
0PROGRAM
EXTERNAL FUNCTION (MPB,MPG,MESS,SW) 001 LM00004
I'E COM 002 LM00005
N'R 003 LM00002
B'N SWT. 004 LM00003
D'N TABLE(210),BUFF(432),BUFF1(432),BUFF2(432) 005 LM00005
D'N HEADER(12),UFD(7),DRAIN(432),LODTAB(2000) 006 LM00006
E'E (PB,HEADER(12)),(PG,HEADER(11)),(DND,HEADER(8)), 007 LM00007
1 (WC,HEADER(2)),(LRCT,HEADER(1)) 007 LM00008
P'N TABLE,BUFF,BUFF1,BUFF2 008 LM00009
P'N HEADER,DRAIN,UFD,LODTAB 009 LM00010
P'N AINDEX,UNIT,D,T,MZE,TFUDG,FENCE,USERF,ILEDI,PRIV 010 LM00011
P'N TABLIM,LPREAM,HPROB,HPROG,CURPTR,AUTHOR,LINDEX 011 LM00012
P'N LODLIM,SYSTEM,DAEMON,REELNO,TSKLTH 012 LM00013
V'S FENCE = 777777777777K 013 LM00015
67656 -3 77777 7 77777
V'S MZE = 4K11 014 LM00016
67660 -0 00000 0 00000
V'S TFUDG = 1800 015 LM00017
67657 +0 00000 0 03410
V'S TABLIM = 200 016 LM00018
67652 +0 00000 0 00310
V'S LODLIM = 2000 017 LM00019
67643 +0 00000 0 03720
V'S LPREAM = 12 018 LM00020
67651 +0 00000 0 00014
V'S TSKLTH = 11 019 LM00021
67637 +0 00000 0 00013
V'S SYSTEM = $ C0056$ 020 LM00023
67642 -2 02300 0 00506
V'S DAEMON = $ 99999$ 021 LM00024
67641 -2 01111 1 11111
V'S D = $(DUMP)$ 022 LM00025
67662 -3 42464 4 44734
V'S T = $(TAPE)$ 023 LM00026
67661 -3 46321 4 72534
V'S USERF = $USER F$ 024 LM00027
67655 -2 46225 5 16026
V'S ILEDI = $ILE DI$ 025 LM00028
67654 +3 14325 6 02431
DIMENSION HEDER2(12) 026 LM00029
P'N HEDER2 027 LM00030
B'N SW 028 LM00006
V'S URGENT = $URGENT$ 029 LM00008
00073 -2 45127 2 54563
V'S MAIL = $ MAIL$ 030 LM00009
00051 -2 06044 2 13143
V'S POST = $ POST$ 031 LM00010
00052 -2 06047 4 66263
V'S TRIEVE = $TRIEVE$ 032 LM00011
00072 -2 35131 2 56525
V'S FIRST = $ * * *XXXXXX * * * * * * * *$, 033 LM00013
1 $TRIEVE$,$MON RE$,$OM DAE$,$AIL FR$,$ * * M$, 033 LM00014
2 $ * * * * * *XXXXXX* * * $,777777000016K 033 LM00015
00030 -3 77777 0 00016 00031 -1 46054 6 05460 00032 -2 76767 6 76767 00033 -2 05460 5 46054
00034 -2 05460 5 46054 00035 -2 05460 5 46044 00036 +2 13143 6 02651 00037 -0 64460 2 42125
00040 -0 44645 6 05125 00041 -2 35131 2 56525 00042 -2 05460 5 46054 00043 -2 05460 5 46054
00044 -2 05460 5 46060 00045 -2 76767 6 76767 00046 -2 05460 5 46054
V'S BLANK = 777777000000K 034 LM00017
00026 -3 77777 0 00000
D'N TEMP(14) 035 LM00019
E'O MAIL. 036 LM00023
00111 TRA +0 02000 0 00114 00112 SXA +0 63400 2 00365 00113 TSX +0 07400 2 00365
ATTACH.(MPB,MPG,ERR1) 037 LM00024
00114 TSX +0 07400 4 00001 00115 TXH +3 00000 0 00000 00116 TXH +3 00000 0 00000 00117 TXH +3 00000 0 00017
STORGE.(2,ALLOTD,USED,ERR1) 038 LM00028
00120 TSX +0 07400 4 00012 00121 TXH +3 00000 0 00077 00122 TXH +3 00000 0 00025 00123 TXH +3 00000 0 00074
00124 TXH +3 00000 0 00017
W'R (USED .G. ALLOTD), ALLOT.(2,USED+10,MZE,ERR1) 039 LM00029
00125 CLA +0 50000 0 00074 00126 SUB +0 40200 0 00025 00127 TZE +0 10000 0 00141 00130 TMI -0 12000 0 00141
00131 CLA +0 50000 0 00074 00132 ADD +0 40000 0 00100 00133 STO +0 60100 0 00405 00134 TSX +0 07400 4 00000
00135 TXH +3 00000 0 00077 00136 TXH +3 00000 0 00405 00137 TXH +3 00000 0 67660 00140 TXH +3 00000 0 00017
FSTATE.(URGENT,MAIL,DRAIN(2)...2,NOMAIL) 040 LM00032
00141 TSX +0 07400 4 00006 00142 TXH +3 00000 0 00073 00143 TXH +3 00000 0 00051 00144 TIX +2 00077 0 74474
00145 TXH +3 00000 0 00023
W'R (DRAIN(1).RS.35).E.1 041 LM00033
00146 CAL -0 50000 0 00103 00147 STA +0 62100 0 00151 00150 CAL -0 50000 0 74475 00151 LGR -0 76500 0 00000
00152 SLW +0 60200 0 00405 00153 CLA +0 50000 0 00405 00154 SUB +0 40200 0 00076 00155 TNZ -0 10000 0 00216
OPEN.($R$,URGENT,MAIL,NOMAIL) 042 LM00034
00156 TSX +0 07400 4 00010 00157 TXH +3 00000 0 00107 00160 TXH +3 00000 0 00073 00161 TXH +3 00000 0 00051
00162 TXH +3 00000 0 00023
RDFILE.(URGENT, MAIL,1,DRAIN(432)...432,MZE,EOFCT) 043 LM00035
00163 TSX +0 07400 4 00011 00164 TXH +3 00000 0 00073 00165 TXH +3 00000 0 00051 00166 TXH +3 00000 0 00076
00167 TIX +2 00105 0 73616 00170 TXH +3 00000 0 67660 00171 TXH +3 00000 0 00027
CLOSE.(URGENT, MAIL) 044 LM00036
00172 TSX +0 07400 4 00003 00173 TXH +3 00000 0 00073 00174 TXH +3 00000 0 00051
UNLINK.(URGENT,MAIL,NOMAIL) 045 LM00037
00175 TSX +0 07400 4 00013 00176 TXH +3 00000 0 00073 00177 TXH +3 00000 0 00051 00200 TXH +3 00000 0 00023
OPEN.($W$,URGENT,MAIL,ERR1) 046 LM00038
00201 TSX +0 07400 4 00010 00202 TXH +3 00000 0 00110 00203 TXH +3 00000 0 00073 00204 TXH +3 00000 0 00051
00205 TXH +3 00000 0 00017
WRFILE.(URGENT,MAIL,1,DRAIN(432)...EOFCT) 047 LM00039
00206 TSX +0 07400 4 00014 00207 TXH +3 00000 0 00073 00210 TXH +3 00000 0 00051 00211 TXH +3 00000 0 00076
00212 TIX +2 00027 0 73616
CLOSE.(URGENT,MAIL) 048 LM00040
00213 TSX +0 07400 4 00003 00214 TXH +3 00000 0 00073 00215 TXH +3 00000 0 00051
E'L 049 LM00041
NOMAIL OPEN.($W$,URGENT,MAIL,0,2,ERR1) 050 LM00042
00216 TSX +0 07400 4 00010 00217 TXH +3 00000 0 00110 00220 TXH +3 00000 0 00073 00221 TXH +3 00000 0 00051
00222 TXH +3 00000 0 00075 00223 TXH +3 00000 0 00077 00224 TXH +3 00000 0 00017
BUFFER.(URGENT,MAIL,DRAIN(432)...432,ERR1) 051 LM00043
00225 TSX +0 07400 4 00002 00226 TXH +3 00000 0 00073 00227 TXH +3 00000 0 00051 00230 TIX +2 00105 0 73616
00231 TXH +3 00000 0 00017
W'R .NOT. SW, T'O SKIP 052 LM00047
00232 ZET +0 52000 0 00000 00233 TRA +0 02000 0 00235 00234 TRA +0 02000 0 00024
FIRST(12) = DATE.(0) 053 LM00051
00235 TSX +0 07400 4 00004 00236 TXH +3 00000 0 00075 00237 STO +0 60100 0 00032
FIRST(1) = FIRST(12) 054 LM00052
00240 CLA +0 50000 0 00032 00241 STO +0 60100 0 00045
WRFILE.(URGENT,MAIL,0,BLANK...1,MZE,MZE,ERR1) 055 LM00053
00242 TSX +0 07400 4 00014 00243 TXH +3 00000 0 00073 00244 TXH +3 00000 0 00051 00245 TXH +3 00000 0 00075
00246 TIX +2 00076 0 00026 00247 TXH +3 00000 0 67660 00250 TXH +3 00000 0 67660 00251 TXH +3 00000 0 00017
WRFILE.(URGENT,MAIL,0,FIRST(14)...15,MZE,MZE,ERR1) 056 LM00054
00252 TSX +0 07400 4 00014 00253 TXH +3 00000 0 00073 00254 TXH +3 00000 0 00051 00255 TXH +3 00000 0 00075
00256 TIX +2 00102 0 00030 00257 TXH +3 00000 0 67660 00260 TXH +3 00000 0 67660 00261 TXH +3 00000 0 00017
SKIP T'H LOOP1, FOR I=0,1,I.G.13 057 LM00059
00262 CLA +0 50000 0 00075 00263 STO +0 60100 0 00047 00264 TRA +0 02000 0 00270 00265 CLA +0 50000 0 00047
00266 ADD +0 40000 0 00076 00267 STO +0 60100 0 00047 00270 CLA +0 50000 0 00047 00271 SUB +0 40200 0 00101
00272 TZE +0 10000 0 00274 00273 TPL +0 12000 0 00312
TEMP(13-I) = MESS(I) 058 LM00060
00274 CLA +0 50000 0 00101 00275 SUB +0 40200 0 00047 00276 PAX +0 73400 1 00000 00277 LXA +0 53400 2 00047
00300 CLA +0 50000 2 00000 00301 STO +0 60100 1 00071
W'R TEMP(13-I) .E. FENCE, T'O END 059 LM00061
00302 CLA +0 50000 0 00101 00303 SUB +0 40200 0 00047 00304 PAX +0 73400 1 00000 00305 CLA +0 50000 1 00071
00306 SUB +0 40200 0 67656 00307 TNZ -0 10000 0 00311 00310 TRA +0 02000 0 00016
LOOP1 C'E 060 LM00062
00311 TRA +0 02000 0 00265
END TEMP(14) = BLANK .V. I 061 LM00066
00312 CAL -0 50000 0 00026 00313 ORA -0 50100 0 00047 00314 SLW +0 60200 0 00053
J = I + 1 062 LM00067
00315 CLA +0 50000 0 00047 00316 ADD +0 40000 0 00076 00317 STO +0 60100 0 00050
WRFILE.(URGENT,MAIL,0,TEMP(14)...J,MZE,MZE,ERR1) 063 LM00068
00320 TSX +0 07400 4 00014 00321 TXH +3 00000 0 00073 00322 TXH +3 00000 0 00051 00323 TXH +3 00000 0 00075
00324 TIX +2 00050 0 00053 00325 TXH +3 00000 0 67660 00326 TXH +3 00000 0 67660 00327 TXH +3 00000 0 00017
CLOSE.(URGENT,MAIL,ERR1) 064 LM00069
00330 TSX +0 07400 4 00003 00331 TXH +3 00000 0 00073 00332 TXH +3 00000 0 00051 00333 TXH +3 00000 0 00017
W'R (USED .G. ALLOTD), ALLOT.(2,ALLOTD,MZE,NERR0) 065 LM00073
00334 CLA +0 50000 0 00074 00335 SUB +0 40200 0 00025 00336 TZE +0 10000 0 00345 00337 TMI -0 12000 0 00345
00340 TSX +0 07400 4 00000 00341 TXH +3 00000 0 00077 00342 TXH +3 00000 0 00025 00343 TXH +3 00000 0 67660
00344 TXH +3 00000 0 00020
NERR0 F'N 066 LM00074
00345 TRA +0 02000 0 00401
ERR1 CLOSE.(URGENT,MAIL,NERR1) 067 LM00078
00346 TSX +0 07400 4 00003 00347 TXH +3 00000 0 00073 00350 TXH +3 00000 0 00051 00351 TXH +3 00000 0 00021
NERR1 LINK.(URGENT,POST,SYSTEM,DAEMON,URGENT,TRIEVE,104K,NERR2) 068 LM00079
00352 TSX +0 07400 4 00007 00353 TXH +3 00000 0 00073 00354 TXH +3 00000 0 00052 00355 TXH +3 00000 0 67642
00356 TXH +3 00000 0 67641 00357 TXH +3 00000 0 00073 00360 TXH +3 00000 0 00072 00361 TXH +3 00000 0 00104
00362 TXH +3 00000 0 00022
NERR2 F'N 069 LM00080
00363 TRA +0 02000 0 00401
E'N 070 LM00082
00364 TSX +0 07400 4 00005 00365 TXH +3 00000 0 00000 00366 SXD -0 63400 1 00365 00367 SXA +0 63400 4 00401
00370 CLA +0 50000 4 00001 00371 STO +0 60100 0 00115 00372 CLA +0 50000 4 00002 00373 STO +0 60100 0 00116
00374 CLA +0 50000 4 00003 00375 STA +0 62100 0 00300 00376 CLA +0 50000 4 00004 00377 STA +0 62100 0 00232
00400 TRA +0 02000 2 00001 00401 AXT +0 77400 4 00000 00402 LXA +0 53400 2 00365 00403 LXD -0 53400 1 00365
00404 TRA +0 02000 4 00001
RLIBE BCD 03/15/68 0344.4 6204 00000
1 MAD PROGRAM LISTING ... ... ... FILE RLIBE MAD 03/01/68 1657.7
-
TIME/DATE CONVERTERS, ALSO PROBNO/PROGNO CONVERTERS LM00001
THIS PROGRAM MUST BE EDITED AND RE-COMPILED WHEN LM00002
THE NEW 'LOGIN' (PSN 50) TAKES EFFECT LM00003
D.R. WIDRIG DEC. 1965 LM00004
LM00005
EXTERNAL FUNCTION (X1,Y) *001 LM00006
NORMAL MODE IS INTEGER *002 LM00007
STATEMENT LABEL Y *003 LM00008
LM00009
VECTOR VALUES MESS1 = $ILLEGA******.....$,0,777777777777K *004 LM00010
LM00011
VECTOR VALUES DAYS(1) = 31,28,31,30,31,30,31,31,30,31,30,31 *005 LM00012
VECTOR VALUES DMASK = 766074606060K *006 LM00013
VECTOR VALUES TMASK = 777774607060K *007 LM00014
VECTOR VALUES PMASK = 776060606060K *008 LM00015
LM00016
GET CURRENT DATE LM00017
LM00018
ENTRY TO CDATE. *009 LM00019
DATNOW = X1 *010 LM00020
MONTH = BCDEC.(DATNOW.RS.24) *011 LM00021
DAY = BCDEC.((DATNOW.RS.12).A.7777K) *012 LM00022
YEAR = BCDEC.(DATNOW.A.7777K) *013 LM00023
FUNCTION RETURN *014 LM00024
LM00025
RETURN CURRENT DATE AS MMDDYY LM00026
LM00027
ENTRY TO DATE. *015 LM00028
FUNCTION RETURN DATNOW *016 LM00029
LM00030
CONVERT BCD DATE TO I/O FORMAT LM00031
LM00032
ENTRY TO DATECV. *017 LM00033
MESS1(1) = $L DATE$ *018 LM00034
DELTA = 0 *019 LM00035
X = ZEL.(X1) *020 LM00036
WHENEVER (X.A.DMASK) .NE. 0, TRANSFER TO BAD *021 LM00037
MM = BCDEC.(X.RS.24) *022 LM00038
DD = BCDEC.((X.RS.12).A.7777K) *023 LM00039
YY = BCDEC.(X.A.7777K) *024 LM00040
WHENEVER ((YY/4)*4.E.YY).AND.(MM.E.2), DELTA = 1 *025 LM00041
WHENEVER (MM.G.12).OR.(MM.E.0).OR. *026 LM00042
1 (DD.G.(DAYS(MM)+DELTA)).OR.(YY.G.YEAR).OR. *026 LM00043
2 ((YY.E.YEAR).AND.(MM.G.MONTH)).OR. *026 LM00044
3 ((YY.E.YEAR).AND.(MM.E.MONTH).AND.(DD.G.DAY)) *026 LM00045
4 , TRANSFER TO BAD *026 LM00046
FUNCTION RETURN (YY.LS.27).V.(MM.LS.23).V.(DD.LS.18) *027 LM00047
LM00048
BAD MESS1(3) = X *028 LM00049
PRNTP.(MESS1) *029 LM00050
TRANSFER TO Y *030 LM00051
LM00052
CONVERT I/O DATE TO BCD LM00053
LM00054
ENTRY TO CVDATE. *031 LM00055
D = X1.RS.18 *032 LM00056
FUNCTION RETURN (DERBC.(D.A.37K).LS.12).V.(DERBC.((D.RS.5).A.17K) *033 LM00057
1 .LS.24).V.(DERBC.((D.RS.9).A.377K)) *033 LM00058
LM00059
CONVERT TIME TO I/O FORMAT LM00060
LM00061
ENTRY TO TIMECV. *034 LM00062
MESS1(1) = $L TIME$ *035 LM00063
X = ZEL.(X1) *036 LM00064
WHENEVER (X.A.TMASK) .NE. 0, TRANSFER TO BAD *037 LM00065
HH = BCDEC.((X.RS.12).A.7777K) *038 LM00066
MM = BCDEC.(X.A.7777K) *039 LM00067
WHENEVER (HH.G.23).OR.(MM.G.59), TRANSFER TO BAD *040 LM00068
FUNCTION RETURN HH*3600+MM*60 *041 LM00069
LM00070
CONVERT I/O TIME TO BCD LM00071
LM00072
ENTRY TO CVTIME. *042 LM00073
D = X1.A.777777K *043 LM00074
HH = D/3600 *044 LM00075
FUNCTION RETURN ((DERBC.(HH).LS.12).V. *045 LM00076
1 (DERBC.((D-HH*3600)/60)).V.$ 0000$) *045 LM00077
LM00078
CHECK VALIDITY OF PROGNO LM00079
LM00080
ENTRY TO PROGN. *046 LM00081
MESS1(1) = $L PRGN$ *047 LM00082
X = X1 *048 LM00083
WHENEVER (ZEL.(X).A.PMASK) .E. 0, FUNCTION RETURN X *049 LM00084
WHENEVER (X.A.777777776060K).E. $CMFL00$, FUNCTION RETURN X *050 LM00085
TRANSFER TO BAD *051 LM00086
LM00087
REDUCE PROBNO TO STANDARD FORM LM00088
LM00089
ENTRY TO PROBN. *052 LM00090
MESS1(1) = $L PRBN$ *053 LM00091
X = X1 *054 LM00092
WHENEVER (X.A.60K).NE.0, TRANSFER TO BAD *055 LM00093
THROUGH LOOP1, FOR I=6,6,I.E.30 *056 LM00094
WHENEVER (((X.RS.I).A.60K).NE.0), *057 LM00095
1 FUNCTION RETURN BZEL.((((X.RS.I).A.77K).LS.24).V. *057 LM00096
2 ((77777777K.RS.(24-I)).A.X)) *057 LM00097
LOOP1 CONTINUE *058 LM00098
TRANSFER TO BAD *059 LM00099
LM00100
END OF FUNCTION *060 LM00101
1MAD PROGRAM,TYPE NOV 1963 (ALL NUMBERS ARE OCTAL)
0TOTAL LOCATIONS 00706 TRANSFER VECTOR LENGTH 00006 PROGRAM BEGINS 00111
0 PROGRAM IS AN EXTERNAL FUNCTION. THE FOLLOWING ARE ENTRIES
PROBN 00567 0 PROGN 00534 0 CVTIME 00472 0 TIMECV 00413 0 CVDATE 00335 0
DATECV 00154 0 DATE 00147 0 CDATE 00112 0
0VARIABLE STORAGE (A=ARRAY,C=COMMON,E=ERASABLE,DIGIT=MODE)
BAD 00007 4 DD 00027 1 HH 00033 1 MM 00042 1 X 00046 1
DATNOW 00010 1 DELTA 00030 1 I 00034 1 MONTH 00043 1 YEAR 00047 1
DAY 00011 1 DMASK 00031 A 1 LOOP1 00006 4 PMASK 00044 A 1 YY 00050 1
DAYS 00026 A 1 D 00032 1 MESS1 00041 A 1 TMASK 00045 A 1
0FUNCTION DICTIONARY
BCDEC 00000 1 BZEL 00001 1 DERBC 00002 1 EXIT 00003 1 PRNTP 00004 1
ZEL 00005 1
0ABSOLUTE CONSTANTS
00073 +000000000077 00100 +000077777777 00066 +000000000036 00056 +000000000006 00070 +000000000060
00104 -036047512245 00102 +234426430000 00110 -377777776060 00105 -036047512745 00107 -206000000000
00077 +000000777777 00075 +000000007020 00072 +000000000074 00071 +000000000073 00106 -036063314425
00067 +000000000037 00061 +000000000017 00055 +000000000005 00074 +000000000377 00057 +000000000011
00065 +000000000033 00063 +000000000027 00062 +000000000022 00054 +000000000004 00053 +000000000002
00051 +000000000000 00103 -036024216325 00076 +000000007777 00060 +000000000014 00064 +000000000030
00052 +000000000001 00101 +233000000000
0STATEMENT DICTIONARY
00007 TXL -300331000327
0PROGRAM
EXTERNAL FUNCTION (X1,Y) 001 LM00006
N'R 002 LM00007
S'L Y 003 LM00008
V'S MESS1 = $ILLEGA******.....$,0,777777777777K 004 LM00010
00035 -3 77777 7 77777 00036 +0 00000 0 00000 00037 +3 33333 3 33360 00040 -1 45454 5 45454
00041 +3 14343 2 52721
V'S DAYS(1) = 31,28,31,30,31,30,31,31,30,31,30,31 005 LM00012
00012 +0 00000 0 00037 00013 +0 00000 0 00036 00014 +0 00000 0 00037 00015 +0 00000 0 00036
00016 +0 00000 0 00037 00017 +0 00000 0 00037 00020 +0 00000 0 00036 00021 +0 00000 0 00037
00022 +0 00000 0 00036 00023 +0 00000 0 00037 00024 +0 00000 0 00034 00025 +0 00000 0 00037
V'S DMASK = 766074606060K 006 LM00013
00031 -3 66074 6 06060
V'S TMASK = 777774607060K 007 LM00014
00045 -3 77774 6 07060
V'S PMASK = 776060606060K 008 LM00015
00044 -3 76060 6 06060
E'O CDATE. 009 LM00019
00111 TRA +0 02000 0 00114 00112 SXA +0 63400 2 00657 00113 TSX +0 07400 2 00657
DATNOW = X1 010 LM00020
00114 CLA +0 50000 0 00024 00115 STO +0 60100 0 00010
MONTH = BCDEC.(DATNOW.RS.24) 011 LM00021
00116 CAL -0 50000 0 00064 00117 STA +0 62100 0 00121 00120 CAL -0 50000 0 00010 00121 LGR -0 76500 0 00000
00122 SLW +0 60200 0 00701 00123 TSX +0 07400 4 00000 00124 TXH +3 00000 0 00701 00125 STO +0 60100 0 00043
DAY = BCDEC.((DATNOW.RS.12).A.7777K) 012 LM00022
00126 CAL -0 50000 0 00060 00127 STA +0 62100 0 00131 00130 CAL -0 50000 0 00010 00131 LGR -0 76500 0 00000
00132 ANA -0 32000 0 00076 00133 SLW +0 60200 0 00701 00134 TSX +0 07400 4 00000 00135 TXH +3 00000 0 00701
00136 STO +0 60100 0 00011
YEAR = BCDEC.(DATNOW.A.7777K) 013 LM00023
00137 CAL -0 50000 0 00010 00140 ANA -0 32000 0 00076 00141 SLW +0 60200 0 00701 00142 TSX +0 07400 4 00000
00143 TXH +3 00000 0 00701 00144 STO +0 60100 0 00047
F'N 014 LM00024
00145 TRA +0 02000 0 00675
E'O DATE. 015 LM00028
00146 TRA +0 02000 0 00151 00147 SXA +0 63400 2 00657 00150 TSX +0 07400 2 00657
F'N DATNOW 016 LM00029
00151 CLA +0 50000 0 00010 00152 TRA +0 02000 0 00675
E'O DATECV. 017 LM00033
00153 TRA +0 02000 0 00156 00154 SXA +0 63400 2 00657 00155 TSX +0 07400 2 00657
MESS1(1) = $L DATE$ 018 LM00034
00156 CLA +0 50000 0 00103 00157 STO +0 60100 0 00040
DELTA = 0 019 LM00035
00160 CLA +0 50000 0 00051 00161 STO +0 60100 0 00030
X = ZEL.(X1) 020 LM00036
00162 TSX +0 07400 4 00005 00163 TXH +3 00000 0 00024 00164 STO +0 60100 0 00046
W'R (X.A.DMASK) .NE. 0, T'O BAD 021 LM00037
00165 CAL -0 50000 0 00046 00166 ANA -0 32000 0 00031 00167 SLW +0 60200 0 00701 00170 CLA +0 50000 0 00701
00171 SUB +0 40200 0 00051 00172 TZE +0 10000 0 00174 00173 TRA +0 02000 0 00007
MM = BCDEC.(X.RS.24) 022 LM00038
00174 CAL -0 50000 0 00064 00175 STA +0 62100 0 00177 00176 CAL -0 50000 0 00046 00177 LGR -0 76500 0 00000
00200 SLW +0 60200 0 00701 00201 TSX +0 07400 4 00000 00202 TXH +3 00000 0 00701 00203 STO +0 60100 0 00042
DD = BCDEC.((X.RS.12).A.7777K) 023 LM00039
00204 CAL -0 50000 0 00060 00205 STA +0 62100 0 00207 00206 CAL -0 50000 0 00046 00207 LGR -0 76500 0 00000
00210 ANA -0 32000 0 00076 00211 SLW +0 60200 0 00701 00212 TSX +0 07400 4 00000 00213 TXH +3 00000 0 00701
00214 STO +0 60100 0 00027
YY = BCDEC.(X.A.7777K) 024 LM00040
00215 CAL -0 50000 0 00046 00216 ANA -0 32000 0 00076 00217 SLW +0 60200 0 00701 00220 TSX +0 07400 4 00000
00221 TXH +3 00000 0 00701 00222 STO +0 60100 0 00050
W'R ((YY/4)*4.E.YY).AND.(MM.E.2), DELTA = 1 025 LM00041
00223 CLA +0 50000 0 00042 00224 SUB +0 40200 0 00053 00225 TNZ -0 10000 0 00240 00226 LDQ +0 56000 0 00050
00227 PXD -0 75400 0 00000 00230 LLS +0 76300 0 00000 00231 DVP +0 22100 0 00054 00232 MPY +0 20000 0 00054
00233 XCA +0 13100 0 00000 00234 SUB +0 40200 0 00050 00235 TNZ -0 10000 0 00240 00236 CLA +0 50000 0 00052
00237 STO +0 60100 0 00030
W'R (MM.G.12).OR.(MM.E.0).OR. 026 LM00042
1 (DD.G.(DAYS(MM)+DELTA)).OR.(YY.G.YEAR).OR. 026 LM00043
2 ((YY.E.YEAR).AND.(MM.G.MONTH)).OR. 026 LM00044
3 ((YY.E.YEAR).AND.(MM.E.MONTH).AND.(DD.G.DAY)) 026 LM00045
4 , T'O BAD 026 LM00046
00240 CLA +0 50000 0 00027 00241 SUB +0 40200 0 00011 00242 TZE +0 10000 0 00252 00243 TMI -0 12000 0 00252
00244 CLA +0 50000 0 00042 00245 SUB +0 40200 0 00043 00246 TNZ -0 10000 0 00252 00247 CLA +0 50000 0 00050
00250 SUB +0 40200 0 00047 00251 TZE +0 10000 0 00303 00252 CLA +0 50000 0 00042 00253 SUB +0 40200 0 00043
00254 TZE +0 10000 0 00261 00255 TMI -0 12000 0 00261 00256 CLA +0 50000 0 00050 00257 SUB +0 40200 0 00047
00260 TZE +0 10000 0 00303 00261 CLA +0 50000 0 00050 00262 SUB +0 40200 0 00047 00263 TZE +0 10000 0 00265
00264 TPL +0 12000 0 00303 00265 LXA +0 53400 1 00042 00266 CLA +0 50000 1 00026 00267 ADD +0 40000 0 00030
00270 CHS +0 76000 0 00002 00271 ADD +0 40000 0 00027 00272 TZE +0 10000 0 00274 00273 TPL +0 12000 0 00303
00274 CLA +0 50000 0 00042 00275 SUB +0 40200 0 00051 00276 TZE +0 10000 0 00303 00277 CLA +0 50000 0 00042
00300 SUB +0 40200 0 00060 00301 TZE +0 10000 0 00304 00302 TMI -0 12000 0 00304 00303 TRA +0 02000 0 00007
F'N (YY.LS.27).V.(MM.LS.23).V.(DD.LS.18) 027 LM00047
00304 CAL -0 50000 0 00062 00305 STA +0 62100 0 00307 00306 CAL -0 50000 0 00027 00307 ALS +0 76700 0 00000
00310 SLW +0 60200 0 00701 00311 CAL -0 50000 0 00063 00312 STA +0 62100 0 00314 00313 CAL -0 50000 0 00042
00314 ALS +0 76700 0 00000 00315 SLW +0 60200 0 00702 00316 CAL -0 50000 0 00065 00317 STA +0 62100 0 00321
00320 CAL -0 50000 0 00050 00321 ALS +0 76700 0 00000 00322 ORA -0 50100 0 00702 00323 ORA -0 50100 0 00701
00324 SLW +0 60200 0 00702 00325 CLA +0 50000 0 00702 00326 TRA +0 02000 0 00675
BAD MESS1(3) = X 028 LM00049
00327 CLA +0 50000 0 00046 00330 STO +0 60100 0 00036
PRNTP.(MESS1) 029 LM00050
00331 TSX +0 07400 4 00004 00332 TXH +3 00000 0 00041
T'O Y 030 LM00051
00333 TRA +0 02000 0 00024
E'O CVDATE. 031 LM00055
00334 TRA +0 02000 0 00337 00335 SXA +0 63400 2 00657 00336 TSX +0 07400 2 00657
D = X1.RS.18 032 LM00056
00337 CAL -0 50000 0 00062 00340 STA +0 62100 0 00342 00341 CAL -0 50000 0 00024 00342 LGR -0 76500 0 00000
00343 SLW +0 60200 0 00032
F'N (DERBC.(D.A.37K).LS.12).V.(DERBC.((D.RS.5).A.17K) 033 LM00057
1 .LS.24).V.(DERBC.((D.RS.9).A.377K)) 033 LM00058
00344 CAL -0 50000 0 00057 00345 STA +0 62100 0 00347 00346 CAL -0 50000 0 00032 00347 LGR -0 76500 0 00000
00350 ANA -0 32000 0 00074 00351 SLW +0 60200 0 00702 00352 TSX +0 07400 4 00002 00353 TXH +3 00000 0 00702
00354 STO +0 60100 0 00702 00355 CAL -0 50000 0 00055 00356 STA +0 62100 0 00360 00357 CAL -0 50000 0 00032
00360 LGR -0 76500 0 00000 00361 ANA -0 32000 0 00061 00362 SLW +0 60200 0 00701 00363 TSX +0 07400 4 00002
00364 TXH +3 00000 0 00701 00365 STO +0 60100 0 00701 00366 CAL -0 50000 0 00064 00367 STA +0 62100 0 00371
00370 CAL -0 50000 0 00701 00371 ALS +0 76700 0 00000 00372 SLW +0 60200 0 00701 00373 CAL -0 50000 0 00032
00374 ANA -0 32000 0 00067 00375 SLW +0 60200 0 00703 00376 TSX +0 07400 4 00002 00377 TXH +3 00000 0 00703
00400 STO +0 60100 0 00703 00401 CAL -0 50000 0 00060 00402 STA +0 62100 0 00404 00403 CAL -0 50000 0 00703
00404 ALS +0 76700 0 00000 00405 ORA -0 50100 0 00701 00406 ORA -0 50100 0 00702 00407 SLW +0 60200 0 00703
00410 CLA +0 50000 0 00703 00411 TRA +0 02000 0 00675
E'O TIMECV. 034 LM00062
00412 TRA +0 02000 0 00415 00413 SXA +0 63400 2 00657 00414 TSX +0 07400 2 00657
MESS1(1) = $L TIME$ 035 LM00063
00415 CLA +0 50000 0 00106 00416 STO +0 60100 0 00040
X = ZEL.(X1) 036 LM00064
00417 TSX +0 07400 4 00005 00420 TXH +3 00000 0 00024 00421 STO +0 60100 0 00046
W'R (X.A.TMASK) .NE. 0, T'O BAD 037 LM00065
00422 CAL -0 50000 0 00046 00423 ANA -0 32000 0 00045 00424 SLW +0 60200 0 00703 00425 CLA +0 50000 0 00703
00426 SUB +0 40200 0 00051 00427 TZE +0 10000 0 00431 00430 TRA +0 02000 0 00007
HH = BCDEC.((X.RS.12).A.7777K) 038 LM00066
00431 CAL -0 50000 0 00060 00432 STA +0 62100 0 00434 00433 CAL -0 50000 0 00046 00434 LGR -0 76500 0 00000
00435 ANA -0 32000 0 00076 00436 SLW +0 60200 0 00703 00437 TSX +0 07400 4 00000 00440 TXH +3 00000 0 00703
00441 STO +0 60100 0 00033
MM = BCDEC.(X.A.7777K) 039 LM00067
00442 CAL -0 50000 0 00046 00443 ANA -0 32000 0 00076 00444 SLW +0 60200 0 00703 00445 TSX +0 07400 4 00000
00446 TXH +3 00000 0 00703 00447 STO +0 60100 0 00042
W'R (HH.G.23).OR.(MM.G.59), T'O BAD 040 LM00068
00450 CLA +0 50000 0 00042 00451 SUB +0 40200 0 00071 00452 TZE +0 10000 0 00454 00453 TPL +0 12000 0 00460
00454 CLA +0 50000 0 00033 00455 SUB +0 40200 0 00063 00456 TZE +0 10000 0 00461 00457 TMI -0 12000 0 00461
00460 TRA +0 02000 0 00007
F'N HH*3600+MM*60 041 LM00069
00461 LDQ +0 56000 0 00042 00462 MPY +0 20000 0 00072 00463 STQ -0 60000 0 00703 00464 LDQ +0 56000 0 00033
00465 MPY +0 20000 0 00075 00466 XCA +0 13100 0 00000 00467 ADD +0 40000 0 00703 00470 TRA +0 02000 0 00675
E'O CVTIME. 042 LM00073
00471 TRA +0 02000 0 00474 00472 SXA +0 63400 2 00657 00473 TSX +0 07400 2 00657
D = X1.A.777777K 043 LM00074
00474 CAL -0 50000 0 00024 00475 ANA -0 32000 0 00077 00476 SLW +0 60200 0 00032
HH = D/3600 044 LM00075
00477 LDQ +0 56000 0 00032 00500 PXD -0 75400 0 00000 00501 LLS +0 76300 0 00000 00502 DVP +0 22100 0 00075
00503 STQ -0 60000 0 00033
F'N ((DERBC.(HH).LS.12).V. 045 LM00076
1 (DERBC.((D-HH*3600)/60)).V.$ 0000$) 045 LM00077
00504 LDQ +0 56000 0 00033 00505 MPY +0 20000 0 00075 00506 XCA +0 13100 0 00000 00507 CHS +0 76000 0 00002
00510 ADD +0 40000 0 00032 00511 LRS +0 76500 0 00043 00512 DVP +0 22100 0 00072 00513 STQ -0 60000 0 00703
00514 TSX +0 07400 4 00002 00515 TXH +3 00000 0 00703 00516 STO +0 60100 0 00703 00517 TSX +0 07400 4 00002
00520 TXH +3 00000 0 00033 00521 STO +0 60100 0 00702 00522 CAL -0 50000 0 00060 00523 STA +0 62100 0 00525
00524 CAL -0 50000 0 00702 00525 ALS +0 76700 0 00000 00526 ORA -0 50100 0 00703 00527 ORA -0 50100 0 00107
00530 SLW +0 60200 0 00703 00531 CLA +0 50000 0 00703 00532 TRA +0 02000 0 00675
E'O PROGN. 046 LM00081
00533 TRA +0 02000 0 00536 00534 SXA +0 63400 2 00657 00535 TSX +0 07400 2 00657
MESS1(1) = $L PRGN$ 047 LM00082
00536 CLA +0 50000 0 00105 00537 STO +0 60100 0 00040
X = X1 048 LM00083
00540 CLA +0 50000 0 00024 00541 STO +0 60100 0 00046
W'R (ZEL.(X).A.PMASK) .E. 0, F'N X 049 LM00084
00542 TSX +0 07400 4 00005 00543 TXH +3 00000 0 00046 00544 STO +0 60100 0 00703 00545 CAL -0 50000 0 00703
00546 ANA -0 32000 0 00044 00547 SLW +0 60200 0 00703 00550 CLA +0 50000 0 00703 00551 SUB +0 40200 0 00051
00552 TNZ -0 10000 0 00555 00553 CLA +0 50000 0 00046 00554 TRA +0 02000 0 00675
W'R (X.A.777777776060K).E. $CMFL00$, F'N X 050 LM00085
00555 CAL -0 50000 0 00046 00556 ANA -0 32000 0 00110 00557 SLW +0 60200 0 00703 00560 CLA +0 50000 0 00703
00561 SUB +0 40200 0 00102 00562 TNZ -0 10000 0 00565 00563 CLA +0 50000 0 00046 00564 TRA +0 02000 0 00675
T'O BAD 051 LM00086
00565 TRA +0 02000 0 00007
E'O PROBN. 052 LM00090
00566 TRA +0 02000 0 00571 00567 SXA +0 63400 2 00657 00570 TSX +0 07400 2 00657
MESS1(1) = $L PRBN$ 053 LM00091
00571 CLA +0 50000 0 00104 00572 STO +0 60100 0 00040
X = X1 054 LM00092
00573 CLA +0 50000 0 00024 00574 STO +0 60100 0 00046
W'R (X.A.60K).NE.0, T'O BAD 055 LM00093
00575 CAL -0 50000 0 00046 00576 ANA -0 32000 0 00070 00577 SLW +0 60200 0 00703 00600 CLA +0 50000 0 00703
00601 SUB +0 40200 0 00051 00602 TZE +0 10000 0 00604 00603 TRA +0 02000 0 00007
T'H LOOP1, FOR I=6,6,I.E.30 056 LM00094
00604 CLA +0 50000 0 00056 00605 STO +0 60100 0 00034 00606 TRA +0 02000 0 00612 00607 CLA +0 50000 0 00034
00610 ADD +0 40000 0 00056 00611 STO +0 60100 0 00034 00612 CLA +0 50000 0 00034 00613 SUB +0 40200 0 00066
00614 TZE +0 10000 0 00655
W'R (((X.RS.I).A.60K).NE.0), 057 LM00095
1 F'N BZEL.((((X.RS.I).A.77K).LS.24).V. 057 LM00096
2 ((77777777K.RS.(24-I)).A.X)) 057 LM00097
00615 CAL -0 50000 0 00034 00616 STA +0 62100 0 00620 00617 CAL -0 50000 0 00046 00620 LGR -0 76500 0 00000
00621 ANA -0 32000 0 00070 00622 SLW +0 60200 0 00703 00623 CLA +0 50000 0 00703 00624 SUB +0 40200 0 00051
00625 TZE +0 10000 0 00654 00626 CLA +0 50000 0 00064 00627 SUB +0 40200 0 00034 00630 STA +0 62100 0 00632
00631 CAL -0 50000 0 00100 00632 LGR -0 76500 0 00000 00633 ANA -0 32000 0 00046 00634 SLW +0 60200 0 00703
00635 CAL -0 50000 0 00034 00636 STA +0 62100 0 00640 00637 CAL -0 50000 0 00046 00640 LGR -0 76500 0 00000
00641 ANA -0 32000 0 00073 00642 SLW +0 60200 0 00702 00643 CAL -0 50000 0 00064 00644 STA +0 62100 0 00646
00645 CAL -0 50000 0 00702 00646 ALS +0 76700 0 00000 00647 ORA -0 50100 0 00703 00650 SLW +0 60200 0 00703
00651 TSX +0 07400 4 00001 00652 TXH +3 00000 0 00703 00653 TRA +0 02000 0 00675
LOOP1 C'E 058 LM00098
00654 TRA +0 02000 0 00607
T'O BAD 059 LM00099
00655 TRA +0 02000 0 00007
E'N 060 LM00101
00656 TSX +0 07400 4 00003 00657 TXH +3 00000 0 00000 00660 SXD -0 63400 1 00657 00661 SXA +0 63400 4 00675
00662 CLA +0 50000 4 00001 00663 STA +0 62100 0 00114 00664 STO +0 60100 0 00163 00665 STA +0 62100 0 00341
00666 STO +0 60100 0 00420 00667 STA +0 62100 0 00474 00670 STA +0 62100 0 00540 00671 STA +0 62100 0 00573
00672 CLA +0 50000 4 00002 00673 STA +0 62100 0 00333 00674 TRA +0 02000 2 00001 00675 AXT +0 77400 4 00000
00676 LXA +0 53400 2 00657 00677 LXD -0 53400 1 00657 00700 TRA +0 02000 4 00001
UNIQUE BCD 05/28/67 2016.7 635 00000
1 PAGE 1
UNIQUE NAME GENERATOR
BINARY CARD NO. UNIQUE00
00003 ENTRY UNIQUE
EXTERN GETIME
THIS PROGRAM GENERATES A UNIQUE PAIR OF NAMES
TSX $UNIQUE,4
PTH NAME1
PTH NAME2
THIS PROGRAM IS USED TO GENERATE UNIQUE
NAMES FOR INTERMEDIATE FILES
D.R. WIDRIG DEC. 1965
TRANSFER VECTOR
BINARY CARD NO. UNIQUE01
00000 272563314425 GETIME
LINKAGE DIRECTOR
00001 000000000000
00002 644531506425
00003 0634 00 4 00007 UNIQUE SXA X4,4 SAVE LINKAGE
00004 0634 00 1 00026 SXA X1,1 COUNTER
00005 0074 00 4 00000 TSX GETIME,4 GET DATE AND TIME
00006 -0130 00 0 00000 XCL SWITCH AC AND MQ
00007 0774 00 4 00000 X4 AXT **,4 RESTORE LINKAGE
00010 -0320 00 0 00030 ANA =O777777770000 MASK OUT YY PORTION OF DATE
00011 0602 60 4 00001 SLW* 1,4 TEMPORARY SAVE
00012 -0754 00 0 00000 ZAC CLEAR AC
00013 -0773 00 0 00014 RQL 12 THROW OUT HIGH-ORDER ZEROES
00014 -0763 00 0 00003 LGL 3 CONVERT TO OCTAL
00015 0767 00 0 00003 ALS 3 ..
00016 -0763 00 0 00003 LGL 3 ..
00017 -0602 60 4 00001 ORS* 1,4 'OR' WITH MMDD
00020 0774 00 1 00006 AXT 6,1 SET LOOP COUNT
00021 -0754 00 0 00000 ZAC CLEAR AC
00022 0767 00 0 00003 ALS 3 CONVERT TO OCTAL
00023 -0763 00 0 00003 LGL 3 ..
BINARY CARD NO. UNIQUE02
00024 2 00001 1 00022 TIX *-2,1,1 LOOP
00025 0602 60 4 00002 SLW* 2,4 SAVE NAME2
00026 0774 00 1 00000 X1 AXT **,1 RESTORE XR1
00027 0020 00 4 00003 TRA 3,4 RETURN
END
LITERALS
00030 777777770000
1 PAGE 1
POST PROCESSOR ASSEMBLY DATA
31 IS THE FIRST LOCATION NOT USED BY THIS PROGRAM
0REFERENCES TO DEFINED SYMBOLS
26 X1 4
7 X4 3
0 GETIME 5
3 UNIQUE 0
0 NO ERROR IN ABOVE ASSEMBLY.
SWT BCD 05/28/67 2016.7 356 00000
1 PAGE 1
TEST OF ON-LINE SENSE SWITCHES
BINARY CARD NO. SWT00000
00002 ENTRY SWT
THIS MODULE TESTS THE SENSE SWITCHES ON THE CONSOLE
D.R. WIDRIG DEC. 1965
LINKAGE DIRECTOR
BINARY CARD NO. SWT00001
00000 000000000000
00001 626663606060
00002 -0500 60 4 00001 SWT CAL* 1,4 GET SWITCH NUMBER
00003 -0320 00 0 00012 ANA =O7 MAKE SURE IT IS NOT TOO BIG
00004 -0501 00 0 00011 ORA SWT0 BLEND IN OP-CODE
00005 0602 00 0 00006 SLW *+1 PLANT IT
00006 0 00000 0 00000 *** ** TEST SWITCH
00007 -0754 00 0 00000 ZAC UP, RETURN ZERO (BOOLEAN 0B)
00010 0020 00 4 00002 TRA 2,4 DOWN, RETURN BOOLEAN 1B
00011 0760 00 0 00160 SWT0 SWT 0 PROTOTYPE SWITCH TEST INSTRUCTION
END
LITERALS
00012 000000000007
1 PAGE 1
POST PROCESSOR ASSEMBLY DATA
13 IS THE FIRST LOCATION NOT USED BY THIS PROGRAM
0REFERENCES TO DEFINED SYMBOLS
2 SWT 0
11 SWT0 4
0 NO ERROR IN ABOVE ASSEMBLY.
VALID BCD 05/28/67 2016.7 2482 00000
1 VALID DAGGETT NOV 16, 1966 PAGE 1
* CHECK FOR HEADER RECORD AT BEGINNING OF DAEMON-LOGICAL
* RECORD(4 TAPE STRATEGY RECORDS OF 432 WORDS EACH)
* VALID.(ARRAY,YES,NO)
* ARRAY STORED FORWARD, I.E. PBNO=ARRAY,PGNO=ARRAY+1
* CHECKS ARE..PBNP,PGNP ARE ALPHANUMERIC
* ...DATES IN 3RD,5TH WORDS
* ..10TH WORD TAG .NE. 0, ADDRESS=432
* ..11TH WORD IS WORD COUNT OF FILE
* ..12TH WORD IS LOGICAL RECORD COUNTS
00003 ENTRY VALID
*
EXTERN CVDATE
TRANSFER VECTOR
00000 236524216325 CVDATE
LINKAGE DIRECTOR
00001 000000000000
00002 652143312460
00003 VALID SYN *
00003 0634 00 1 00124 SXA VAL1,1
00004 0634 00 2 00123 SXA VAL2,2
00005 0634 00 4 00122 SXA VAL4,4
00006 -0500 00 4 00001 CAL 1,4 GET LOCATION OF ARRAY
00007 0621 00 0 00033 STA V1
00010 0621 00 0 00047 STA L1
00011 0621 00 0 00057 STA V3
00012 0621 00 0 00041 STA V21
00013 0400 00 0 00211 ADD =1 (ARRAY+1) PGNO
00014 0621 00 0 00036 STA V2
00015 0621 00 0 00062 STA L2
00016 0621 00 0 00044 STA V22
00017 0400 00 0 00211 ADD =1 ARRAY+2(DATE)
00020 0621 00 0 00115 STA L6
00021 0400 00 0 00212 ADD =2
00022 0621 00 0 00120 STA L7
00023 0400 00 0 00213 ADD =3
00024 0400 00 0 00212 ADD =2
00025 0621 00 0 00065 STA L3 ARRAY+9
00026 0400 00 0 00211 ADD =1
00027 0621 00 0 00074 STA L4 ARRAY+10
00030 0400 00 0 00211 ADD =1
00031 0621 00 0 00076 STA L5 ARRAY+11
00032 0600 00 0 00132 STZ TGTST
* SPECIAL CHECK FOR M.F.D. (FILE), DSKEDT .FILE.
00033 -0500 00 0 00000 V1 CAL ** (ARRAY)
00034 0322 00 0 00226 ERA =HM.F.D.
00035 -0100 00 0 00041 TNZ V21
00036 -0500 00 0 00000 V2 CAL ** (ARRAY+1) PGNO
00037 0322 00 0 00230 ERA =H(FILE)
00040 0100 00 0 00065 TZE L3 FOUND M.F.D. (FILE)
00041 -0500 00 0 00000 V21 CAL ** (ARRAY)
00042 0322 00 0 00224 ERA =HDSKEDT
00043 -0100 00 0 00047 TNZ L1
00044 -0500 00 0 00000 V22 CAL ** (ARRAY+1)
1 VALID DAGGETT NOV 16, 1966 PAGE 2
00045 0322 00 0 00225 ERA =H.FILE.
00046 0100 00 0 00065 TZE L3
* CHECK PBNO,PGNO FOR ALPHANUMERIC CHARACTERS
00047 0560 00 0 00000 L1 LDQ ** (ARRAY)
00050 -0754 00 0 00000 ZAC IS FIRST LETTER OF PBNO
00051 -0763 00 0 00006 LGL 6 A BLANK
00052 0402 00 0 00215 SUB =H00000
00053 -0100 00 0 00126 TNZ INVAL NO. TAKE NO EXIT
00054 -0763 00 0 00006 LGL 6
00055 0402 00 0 00214 SUB =O12 CHECK SECOND CHAR
00056 -0120 00 0 00126 TMI INVAL NUMERIC. SHOULD BE LETTER
* CHECK FOR REST OF NAME AS ALPHANUMERIC
00057 0560 00 0 00000 V3 LDQ ** (ARRAY)
00060 0074 00 4 00162 TSX ALPNU,4
00061 0020 00 0 00126 TRA INVAL NOT ALPHANUMERIC
00062 0560 00 0 00000 L2 LDQ ** (PGNO) OK.
00063 0074 00 4 00162 TSX ALPNU,4 NOW CHECK PRGMMER NO.
00064 0020 00 0 00126 TRA INVAL
* CHECK ARRAY+9 FOR TAG .NE. O NAD ADDR=432
00065 -0500 00 0 00000 L3 CAL ** (ARRAY+9) 10TH WORD
00066 0625 00 0 00132 STT TGTST
00067 -0520 00 0 00132 NZT TGTST TAG SHOULD .NE. 0
00070 0020 00 0 00126 TRA INVAL
00071 -0320 00 0 00223 ANA =O77777 NOW TEST ADDRESS
00072 0402 00 0 00220 SUB =432
00073 -0100 00 0 00126 TNZ INVAL
* CHECK 11TH WORD FOR WORD COUNT OF FILE
00074 -0500 00 0 00000 L4 CAL ** (ARRAY+10)
00075 0602 00 0 00130 SLW WDCNT
* CHECK 12TH WORD. SHOULD HAVE 1 IN DECR.ADDRSS
* SHOULD BE NUMBER OF DAEMON-LOGICAL RECORDS
* IN FILE AND SHOULD BE CONSISTENT WITH WDCNT.
00076 -0500 00 0 00000 L5 CAL ** (ARRAY+11)
00077 0602 00 0 00131 SLW RECNT
00100 -0734 00 1 00000 PDX 0,1
00101 -3 00000 1 00126 TXL INVAL,1,0
00102 3 00001 1 00126 TXH INVAL,1,1 NO GOOD IF NOT = 1
00103 -0320 00 0 00227 ANA =O700000700000 PREFIX AND TAG SHOULD BE ZERO
00104 -0100 00 0 00126 TNZ INVAL
00105 -0500 00 0 00131 CAL RECNT
00106 -0320 00 0 00223 ANA =O77777 TOTAL DAEMON-LOGICAL RECORD COUNT
00107 -0130 00 0 00000 XCL
00110 0200 00 0 00222 MPY =1728 432*4(WDS. IN DEMON-LOGICAL REC)
00111 -0130 00 0 00000 XCL
00112 0402 00 0 00130 SUB WDCNT SHOULD NOT BE .G. WDCNT
00113 -0120 00 0 00126 TMI INVAL
* CHECK DATE ENTRIES
00114 0074 00 4 00133 TSX CKDAT,4 CHECK 3RD WORD
00115 0 00000 0 00000 L6 ** (ARRAY+2)
00116 0020 00 0 00126 TRA INVAL
00117 0074 00 4 00133 TSX CKDAT,4
00120 0 00000 0 00000 L7 ** CHECK 5TH WORD
00121 0020 00 0 00126 TRA INVAL
* ENTRY SEEMS OK. TAKE YES EXIT
00122 0774 00 4 00000 VAL4 AXT **,4
00123 0774 00 2 00000 VAL2 AXT **,2
1 VALID DAGGETT NOV 16, 1966 PAGE 3
00124 0774 00 1 00000 VAL1 AXT **,1
00125 0020 60 4 00002 TRA* 2,4
*
* NO EXIT. ARRAY DOES NOT LOOK LIKE HEADER.
00126 INVAL SYN *
00126 0534 00 4 00122 LXA VAL4,4
00127 1 77777 4 00123 TXI VAL2,4,-1
*
00130 0 00000 0 00000 WDCNT PZE
00131 0 00000 0 00000 RECNT PZE
00132 0 00000 0 00000 TGTST PZE
*
*
* CKDAT
* 1,4 ARGUMENT
* 2,4 BAD DATE
* 3,4 OK EXIT
* TEST IS MONTH .LE. 12, YEAR .LE. 70, DAY.L.32
*
00133 CKDAT SYN *
00133 0634 00 4 00156 SXA CK4,4
00134 -0500 00 4 00001 CAL 1,4
00135 0621 00 0 00137 STA *+2
00136 0074 00 4 00000 TSX CVDATE,4
TD 00137 3 00000 0 00000 TXH **
TD 00140 3 00000 0 00141 TXH *+1
00141 -0130 00 0 00000 XCL
00142 -0754 00 0 00000 ZAC MMDDYY TO MQ
00143 -0763 00 0 00014 LGL 12
00144 0402 00 0 00216 SUB =H000013 CHECK MONTH
00145 0120 00 0 00160 TPL CK5
00146 -0754 00 0 00000 ZAC
00147 -0763 00 0 00014 LGL 12
00150 0402 00 0 00217 SUB =H000032 CHECK DAY
00151 0120 00 0 00160 TPL CK5
00152 -0754 00 0 00000 ZAC
00153 -0763 00 0 00014 LGL 12
00154 0402 00 0 00221 SUB =H000070 CHECK YEAR
00155 0120 00 0 00160 TPL CK5
00156 0774 00 4 00000 CK4 AXT **,4
00157 0020 00 4 00003 TRA 3,4
*
00160 0534 00 4 00156 CK5 LXA CK4,4
00161 0020 00 4 00002 TRA 2,4 BAD EIXT
*
* ALPNU
* ARGUMENT IN MQ
* 1,4 NOT ALPHANUMERIC
* 2,4 ALPHANUMERIC
*
00162 ALPNU SYN *
00162 0634 00 4 00202 SXA NOT,4
00163 0634 00 2 00203 SXA ALP2,2
00164 0634 00 1 00204 SXA ALP3,1
00165 0774 00 2 00006 AXT 6,2
00166 -0754 00 0 00000 ALP1 ZAC
1 VALID DAGGETT NOV 16, 1966 PAGE 4
00167 -0763 00 0 00006 LGL 6
00170 0734 00 1 00000 PAX 0,1
00171 -3 00011 1 00206 TXL OK,1,9
00172 -3 00020 1 00202 TXL NOT,1,16
00173 -3 00031 1 00206 TXL OK,1,25 21 THRU31 OCTAL OK
00174 -3 00040 1 00202 TXL NOT,1,32
00175 -3 00051 1 00206 TXL OK,1,41
00176 -3 00057 1 00202 TXL NOT,1,47
00177 -3 00060 1 00206 TXL OK,1,48 BLANK OK
00200 -3 00061 1 00202 TXL NOT,1,49
00201 -3 00071 1 00206 TXL OK,1,57
00202 0774 00 4 00000 NOT AXT **,4
00203 0774 00 2 00000 ALP2 AXT **,2
00204 0774 00 1 00000 ALP3 AXT **,1
00205 0020 00 4 00001 TRA 1,4
*
00206 2 00001 2 00166 OK TIX ALP1,2,1
00207 0534 00 4 00202 LXA NOT,4
00210 1 77777 4 00203 TXI ALP2,4,-1
END
LITERALS
00211 000000000001
00212 000000000002
00213 000000000003
00214 000000000012
00215 000000000060
00216 000000000103
00217 000000000302
00220 000000000660
00221 000000000700
00222 000000003300
00223 000000077777
00224 246242252463
00225 332631432533
00226 443326332433
00227 700000700000
00230 742631432534
1 VALID DAGGETT NOV 16, 1966 PAGE 1
POST PROCESSOR ASSEMBLY DATA
231 IS THE FIRST LOCATION NOT USED BY THIS PROGRAM
0REFERENCES TO DEFINED SYMBOLS
47 L1 10, 43
62 L2 15
65 L3 25, 40, 46
74 L4 27
76 L5 31
115 L6 20
120 L7 22
206 OK 171, 173, 175, 177, 201
33 V1 7
36 V2 14
57 V3 11
156 CK4 133, 160
160 CK5 145, 151, 155
202 NOT 162, 172, 174, 176, 200, 207
41 V21 12, 35
44 V22 16
166 ALP1 206
203 ALP2 163, 210
204 ALP3 164
124 VAL1 3
123 VAL2 4, 127
122 VAL4 5, 126
162 ALPNU 60, 63, 162
133 CKDAT 114, 117, 133
126 INVAL 53, 56, 61, 64, 70, 73, 101, 102, 104, 113, 116, 121, 126
131 RECNT 77, 105
132 TGTST 32, 66, 67
3 VALID 0, 3
130 WDCNT 75, 112
0 CVDATE 136
0 NO ERROR IN ABOVE ASSEMBLY.
S.STUP BCD 05/28/67 2019.0 1018 00000
1 PAGE 1
STAND-ALONE VERSION FOR RETRIEVAL .SETUP
BINARY CARD NO. S.STUP00
00013 ENTRY .SETUP
EXTERN SETIO,CDATE,GETIME,EXIT,UPDMFD,ATTACH,GETARG
EXTERN CLOSE,UMOUNT
THIS ROUTINE IS CALLED IMPLICITLY BY (MAIN).
IF FUNCTIONS ROUGHLY THE SAME AS 'B.STUP', THE
CTSS-COMPATIBLE BACKGROUND VERSION. WITH THIS
VERSION, TRANSFERRING TO 34(8) PROVIDES THE
EMERGENCY CLOSE PROCEDURE.
D.R. WIDRIG DEC. 1965
BINARY CARD NO. S.STUP01
00000 622563314660 SETIO
00001 232421632560 CDATE
00002 272563314425 GETIME
00003 256731636060 EXIT
00004 644724442624 UPDMFD
00005 216363212330 ATTACH
00006 272563215127 GETARG
00007 234346622560 CLOSE
00010 644446644563 UMOUNT
00013 0634 00 4 00035 .SETUP SXA IR4,4 SAVE LINKAGE
00014 0000 00 0 00015 HTR *+1 DEBUGGING HALT
00015 0074 00 4 00000 TSX SETIO,4 INITIALIZE FILE SYSTEM
00016 0 00000 0 00060 PZE =99999 SET DAEMON AS AUTHOR
00017 0074 00 4 00002 TSX GETIME,4 GET CURRENT DATE
00020 -0600 00 0 00051 STQ DATE SAVE IT
00021 0074 00 4 00001 TSX CDATE,4 GIVE DATE TO CONVERSION PACKAGE
00022 3 00000 0 00051 PTH DATE ..
00023 0500 00 0 00037 CLA ECLOSE GET EMERGENCY CLOSE
BINARY CARD NO. S.STUP02
00024 0601 00 0 00034 STO 28 SAVE IN 34(8)
00025 0074 00 4 00004 TSX UPDMFD,4 INSURE DAEMON IN M.F.D.
00026 3 00000 0 00052 PTH SYSTEM ..
00027 3 00000 0 00053 PTH DAEMON ..
00030 3 00000 0 00031 PTH *+1 IGNORE ERROR RETURN
00031 0074 00 4 00005 TSX ATTACH,4 MAKE SURE ATTACHED TO DAEMON
00032 3 00000 0 00052 PTH SYSTEM ..
00033 3 00000 0 00053 PTH DAEMON ..
00034 0074 00 4 00006 TSX GETARG,4 PRIME INPUT LINE
00035 0774 00 4 00000 IR4 AXT **,4 RESTORE RETURN
00036 0020 00 4 00001 TRA 1,4 RETURN TO MAIN PROGRAM
1 PAGE 2
STAND-ALONE VERSION FOR RETRIEVAL .SETUP
00037 0021 00 0 00040 ECLOSE TTR *+1 TRANSFER TO HERE ON EMERGENCY
00040 0074 00 4 00007 TSX CLOSE,4 CLOSE ALL FILES
00041 3 00000 0 00061 PTH =HALL ..
00042 3 00000 0 00062 PTH =-0 PLACE HOLDER
00043 3 00000 0 00044 PTH *+1 IGNORE ANY ERRORS
00044 0074 00 4 00010 TSX UMOUNT,4 UNMOUNT ANY TAPES LEFT
00045 3 00000 0 00061 PTH =HALL ..
00046 3 00004 0 00054 PTH UMTMS,,4 SIMPLE MESSAGE
00047 3 00000 0 00050 PTH *+1 NO ERRORS, PLEASE
BINARY CARD NO. S.STUP03
00050 0020 00 0 00003 TRA EXIT
1 PAGE 3
STAND-ALONE VERSION FOR RETRIEVAL .SETUP
CONSTANTS, ETC.
00051 0 00000 0 00000 DATE PZE
00052 606200000506 SYSTEM BCI 1, S0056
00053 601111111111 DAEMON BCI 1, 99999
00054 472145312360 UMTMS BCI 4,PANIC CLOSE AND UNMOUNT
END
LITERALS
00060 000000303237
00061 214343606060
00062 400000000000
1 PAGE 1
POST PROCESSOR ASSEMBLY DATA
63 IS THE FIRST LOCATION NOT USED BY THIS PROGRAM
0REFERENCES TO DEFINED SYMBOLS
35 IR4 13
51 DATE 20, 22
3 EXIT 50
1 CDATE 21
7 CLOSE 40
0 SETIO 15
54 UMTMS 46
5 ATTACH 31
53 DAEMON 27, 33
37 ECLOSE 23
6 GETARG 34
2 GETIME 17
13 .SETUP 0
52 SYSTEM 26, 32
10 UMOUNT 44
4 UPDMFD 25
0 NO ERROR IN ABOVE ASSEMBLY.
COMPAT BCD 05/28/67 2019.0 6114 00000
1 MAD PROGRAM LISTING ... ... ... FILE COMPAT MAD 05/28/67 1926.0
-
SIMULATION PACKAGE FOR NON-CTSS RETRIEVALS LM00001
THIS PACKAGE SURROUNDS THE CORE OF THE RETRIEVAL LM00002
PROGRAM WITH ROUTINES WHICH MAKE BACKGROUND AND LM00003
STAND-ALONE JOBS APPEAR IDENTICAL WITH FOREGROUND LM00004
JOBS LM00005
D.R. WIDRIG DEC. 1965 LM00006
LM00007
EXTERNAL FUNCTION (X,Y) *001 LM00008
LM00009
NORMAL MODE IS INTEGER *002 LM00010
BOOLEAN BREAK *003 LM00011
LM00012
VECTOR VALUES BLANK1 = $00000 $ *004 LM00013
VECTOR VALUES SYSTEM = $ C0056$ *005 LM00014
VECTOR VALUES DAEMON = $ 99999$ *006 LM00015
VECTOR VALUES BLANKS = $ $ *007 LM00016
VECTOR VALUES INPUT = $72(RZC1)*$ *008 LM00017
LM00018
VECTOR VALUES MXARG = 18 *009 LM00019
VECTOR VALUES A(0) = 0 *010 LM00020
VECTOR VALUES FENCE = 777777777777K *011 LM00021
LM00022
DIMENSION A(20),LINE(72) *012 LM00023
LM00024
IDENTIFY PSEUDO-USER AS DAEMON LM00025
LM00026
ENTRY TO WHOAMI. *013 LM00027
X(0) = SYSTEM *014 LM00028
X(32767) = DAEMON *015 LM00029
FUNCTION RETURN *016 LM00030
LM00031
PRODUCE STANDARD FORM ARGUMENTS LM00032
LM00033
ENTRY TO COMARG. *017 LM00034
Y = A(X) *018 LM00035
FUNCTION RETURN Y *019 LM00036
LM00037
COLLECT ARGUMENTS INTO STANDARD FORM LM00038
LM00039
ENTRY TO GETARG. *020 LM00040
ENTRY TO DORMNT. *021 LM00041
SETEOF.(EOF) *022 LM00042
I = 1 *023 LM00043
READ FORMAT INPUT, LINE(1)...LINE(72) *024 LM00044
LM00045
INITIALIZE ARGUMENT STRING LM00046
LM00047
THROUGH LOOP1, FOR J=1,1,J.G.MXARG *025 LM00048
A(J) = BLANKS *026 LM00049
LOOP1 CONTINUE *027 LM00050
LM00051
STANDARDIZE ARGUMENTS LM00052
LM00053
BREAK = 1B *028 LM00054
THROUGH LOOP2, FOR J=1,1,(J.G.72).OR.(I.G.MXARG) *029 LM00055
WHENEVER LINE(J) .E. BLANK1 *030 LM00056
WHENEVER .NOT. BREAK, I= I+1 *031 LM00057
BREAK = 1B *032 LM00058
TRANSFER TO LOOP2 *033 LM00059
OTHERWISE *034 LM00060
BREAK = 0B *035 LM00061
A(I) = (A(I).LS.6).V.LINE(J) *036 LM00062
END OF CONDITIONAL *037 LM00063
LOOP2 CONTINUE *038 LM00064
LM00065
INSERT FENCE LM00066
LM00067
WHENEVER (A(I) .E. BLANKS) *039 LM00068
EOF A(I) = FENCE *040 LM00069
OTHERWISE *041 LM00070
A(I+1) = FENCE *042 LM00071
END OF CONDITIONAL *043 LM00072
FUNCTION RETURN *044 LM00073
LM00074
TREATMENT FOR STATUS CHANGES LM00075
LM00076
ENTRY TO CHNCOM. *045 LM00077
EXIT. *046 LM00078
LM00079
PRINT WRITE-AROUND LM00080
THIS ROUTINE STRIPS OUT NULLS SO THAT ON-LINE LM00081
OUTPUT IS NICE AND PRETTY LM00082
LM00083
ENTRY TO PRNTP. *047 LM00084
L = 73 *048 LM00085
K = 72 *049 LM00086
I = 0 *050 LM00087
LM00088
LOOK FOR FENCE IN PRINT LINE LM00089
LM00090
TFENCE WHENEVER ((X(I).A.7777K).E.7777K), TRANSFER TO KAPUT *051 LM00091
LM00092
CLEAR CHARACTER WORK AREA LM00093
LM00094
THROUGH LOOPC, FOR J=K,-1,(J .L. (K-5)) *052 LM00095
LINE(J) = BLANK1 *053 LM00096
LOOPC CONTINUE *054 LM00097
K = K - 6 *055 LM00098
LM00099
SQUEEZE OUT NULLS LM00100
LM00101
THROUGH LOOP3,FOR J=0,6,J.E.36 *056 LM00102
CH = ((X(I).RS.(30-J)).A.77K) *057 LM00103
WHENEVER (CH.E.57K), TRANSFER TO LOOP3 *058 LM00104
L = L - 1 *059 LM00105
LINE(L) = CH *060 LM00106
LOOP3 CONTINUE *061 LM00107
LM00108
EXAMINE NEXT WORD IN PRINT LINE LM00109
LM00110
I = I+1 *062 LM00111
TRANSFER TO TFENCE *063 LM00112
LM00113
REPACK DE-NULLED LINE LM00114
LM00115
KAPUT K = 78 *064 LM00116
THROUGH LOOP5, FOR I=72,-1,K .L. L *065 LM00117
K = K - 6 *066 LM00118
THROUGH LOOP4, FOR J=0,1,J .E. 6 *067 LM00119
LINE(I) = (LINE(I).LS.6).V.LINE(K-J) *068 LM00120
LOOP4 CONTINUE *069 LM00121
LOOP5 CONTINUE *070 LM00122
LM00123
NOW PRINT PACKED LINE LM00124
LM00125
WRITE.(LINE(72),71-I) *071 LM00126
FUNCTION RETURN *072 LM00127
LM00128
END OF FUNCTION *073 LM00129
1MAD PROGRAM,TYPE NOV 1963 (ALL NUMBERS ARE OCTAL)
0TOTAL LOCATIONS 00561 TRANSFER VECTOR LENGTH 00004 PROGRAM BEGINS 00204
0 PROGRAM IS AN EXTERNAL FUNCTION. THE FOLLOWING ARE ENTRIES
PRNTP 00353 0 CHNCOM 00347 0 DORMNT 00230 0 GETARG 00225 0 COMARG 00215 0
WHOAMI 00205 0
0VARIABLE STORAGE (A=ARRAY,C=COMMON,E=ERASABLE,DIGIT=MODE)
A 00036 A 1 DAEMON 00043 A 1 J 00050 1 LOOP2 00007 4 L 00163 1
BLANK1 00037 A 1 EOF 00005 4 KAPUT 00006 4 LOOP3 00010 4 MXARG 00164 A 1
BLANKS 00040 A 1 FENCE 00044 A 1 K 00051 1 LOOP4 00004 4 SYSTEM 00165 A 1
BREAK 00041 2 INPUT 00046 A 1 LINE 00162 A 1 LOOP5 00004 4 TFENCE 00011 4
CH 00042 1 I 00047 1 LOOP1 00004 4 LOOPC 00004 4
0FUNCTION DICTIONARY
EXIT 00000 1 .READ 00001 1 SETEOF 00002 1 WRITE 00003 1
0ABSOLUTE CONSTANTS
00176 +000000000107 00201 +000000000116 00174 +000000000057 00175 +000000000077 00172 +000000000036
00173 +000000000044 00170 +000000000005 00202 +000000007777 00200 +000000000111 00171 +000000000006
00166 +000000000000 00177 +000000000110 00167 +000000000001 00203 +233000000000
0STATEMENT DICTIONARY
00005 TXL -300337000334 00006 TXL -300460000456 00007 TXL -300330000327 00010 TXL -300452000451
00011 TXL -300373000363
0PROGRAM
EXTERNAL FUNCTION (X,Y) 001 LM00008
N'R 002 LM00010
B'N BREAK 003 LM00011
V'S BLANK1 = $00000 $ 004 LM00013
00037 +0 00000 0 00060
V'S SYSTEM = $ C0056$ 005 LM00014
00165 -2 02300 0 00506
V'S DAEMON = $ 99999$ 006 LM00015
00043 -2 01111 1 11111
V'S BLANKS = $ $ 007 LM00016
00040 -2 06060 6 06060
V'S INPUT = $72(RZC1)*$ 008 LM00017
00045 +0 13454 6 06060 00046 +0 70274 5 17123
V'S MXARG = 18 009 LM00019
00164 +0 00000 0 00022
V'S A(0) = 0 010 LM00020
00036 +0 00000 0 00000
V'S FENCE = 777777777777K 011 LM00021
00044 -3 77777 7 77777
D'N A(20),LINE(72) 012 LM00023
E'O WHOAMI. 013 LM00027
00204 TRA +0 02000 0 00207 00205 SXA +0 63400 2 00534 00206 TSX +0 07400 2 00534
X(0) = SYSTEM 014 LM00028
00207 CLA +0 50000 0 00165 00210 STO +0 60100 0 00024
X(32767) = DAEMON 015 LM00029
00211 CLA +0 50000 0 00043 00212 STO +0 60100 0 77777
F'N 016 LM00030
00213 TRA +0 02000 0 00552
E'O COMARG. 017 LM00034
00214 TRA +0 02000 0 00217 00215 SXA +0 63400 2 00534 00216 TSX +0 07400 2 00534
Y = A(X) 018 LM00035
00217 LXA +0 53400 2 00024 00220 CLA +0 50000 2 00036 00221 STO +0 60100 0 00024
F'N Y 019 LM00036
00222 CLA +0 50000 0 00024 00223 TRA +0 02000 0 00552
E'O GETARG. 020 LM00040
00224 TRA +0 02000 0 00227 00225 SXA +0 63400 2 00534 00226 TSX +0 07400 2 00534
E'O DORMNT. 021 LM00041
00227 TRA +0 02000 0 00232 00230 SXA +0 63400 2 00534 00231 TSX +0 07400 2 00534
SETEOF.(EOF) 022 LM00042
00232 TSX +0 07400 4 00002 00233 TXH +3 00000 0 00005
I = 1 023 LM00043
00234 CLA +0 50000 0 00167 00235 STO +0 60100 0 00047
R'T INPUT, LINE(1)...LINE(72) 024 LM00044
00236 TSX +0 07400 4 00001 00237 STR -1 00046 1 00557 00240 STR -1 00052 0 00161 00241 STR -1 00000 0 00000
T'H LOOP1, FOR J=1,1,J.G.MXARG 025 LM00048
00242 CLA +0 50000 0 00167 00243 STO +0 60100 0 00050 00244 TRA +0 02000 0 00250 00245 CLA +0 50000 0 00050
00246 ADD +0 40000 0 00167 00247 STO +0 60100 0 00050 00250 CLA +0 50000 0 00050 00251 SUB +0 40200 0 00164
00252 TZE +0 10000 0 00254 00253 TPL +0 12000 0 00260
A(J) = BLANKS 026 LM00049
00254 LXA +0 53400 1 00050 00255 CLA +0 50000 0 00040 00256 STO +0 60100 1 00036
LOOP1 C'E 027 LM00050
00257 TRA +0 02000 0 00245
BREAK = 1B 028 LM00054
00260 CLA +0 50000 0 00167 00261 STO +0 60100 0 00041
T'H LOOP2, FOR J=1,1,(J.G.72).OR.(I.G.MXARG) 029 LM00055
00262 CLA +0 50000 0 00167 00263 STO +0 60100 0 00050 00264 TRA +0 02000 0 00270 00265 CLA +0 50000 0 00050
00266 ADD +0 40000 0 00167 00267 STO +0 60100 0 00050 00270 CLA +0 50000 0 00047 00271 SUB +0 40200 0 00164
00272 TZE +0 10000 0 00274 00273 TPL +0 12000 0 00330 00274 CLA +0 50000 0 00050 00275 SUB +0 40200 0 00177
00276 TZE +0 10000 0 00300 00277 TPL +0 12000 0 00330
W'R LINE(J) .E. BLANK1 030 LM00056
00300 LXA +0 53400 1 00050 00301 CLA +0 50000 1 00162 00302 SUB +0 40200 0 00037 00303 TNZ -0 10000 0 00315
W'R .NOT. BREAK, I= I+1 031 LM00057
00304 ZET +0 52000 0 00041 00305 TRA +0 02000 0 00311 00306 CLA +0 50000 0 00047 00307 ADD +0 40000 0 00167
00310 STO +0 60100 0 00047
BREAK = 1B 032 LM00058
00311 CLA +0 50000 0 00167 00312 STO +0 60100 0 00041
T'O LOOP2 033 LM00059
00313 TRA +0 02000 0 00007
O'E 034 LM00060
00314 TRA +0 02000 0 00327
BREAK = 0B 035 LM00061
00315 CLA +0 50000 0 00166 00316 STO +0 60100 0 00041
A(I) = (A(I).LS.6).V.LINE(J) 036 LM00062
00317 LXA +0 53400 1 00047 00320 CAL -0 50000 0 00171 00321 STA +0 62100 0 00323 00322 CAL -0 50000 1 00036
00323 ALS +0 76700 0 00000 00324 LXA +0 53400 2 00050 00325 ORA -0 50100 2 00162 00326 SLW +0 60200 1 00036
E'L 037 LM00063
LOOP2 C'E 038 LM00064
00327 TRA +0 02000 0 00265
W'R (A(I) .E. BLANKS) 039 LM00068
00330 LXA +0 53400 1 00047 00331 CLA +0 50000 1 00036 00332 SUB +0 40200 0 00040 00333 TNZ -0 10000 0 00340
EOF A(I) = FENCE 040 LM00069
00334 LXA +0 53400 1 00047 00335 CLA +0 50000 0 00044 00336 STO +0 60100 1 00036
O'E 041 LM00070
00337 TRA +0 02000 0 00345
A(I+1) = FENCE 042 LM00071
00340 CLA +0 50000 0 00047 00341 ADD +0 40000 0 00167 00342 PAX +0 73400 1 00000 00343 CLA +0 50000 0 00044
00344 STO +0 60100 1 00036
E'L 043 LM00072
F'N 044 LM00073
00345 TRA +0 02000 0 00552
E'O CHNCOM. 045 LM00077
00346 TRA +0 02000 0 00351 00347 SXA +0 63400 2 00534 00350 TSX +0 07400 2 00534
EXIT. 046 LM00078
00351 TSX +0 07400 4 00000
E'O PRNTP. 047 LM00084
00352 TRA +0 02000 0 00355 00353 SXA +0 63400 2 00534 00354 TSX +0 07400 2 00534
L = 73 048 LM00085
00355 CLA +0 50000 0 00200 00356 STO +0 60100 0 00163
K = 72 049 LM00086
00357 CLA +0 50000 0 00177 00360 STO +0 60100 0 00051
I = 0 050 LM00087
00361 CLA +0 50000 0 00166 00362 STO +0 60100 0 00047
TFENCE W'R ((X(I).A.7777K).E.7777K), T'O KAPUT 051 LM00091
00363 LXA +0 53400 1 00047 00364 CAL -0 50000 1 00024 00365 ANA -0 32000 0 00202 00366 SLW +0 60200 0 00556
00367 CLA +0 50000 0 00556 00370 SUB +0 40200 0 00202 00371 TNZ -0 10000 0 00373 00372 TRA +0 02000 0 00006
T'H LOOPC, FOR J=K,-1,(J .L. (K-5)) 052 LM00095
00373 CLA +0 50000 0 00051 00374 STO +0 60100 0 00050 00375 TRA +0 02000 0 00401 00376 CLS +0 50200 0 00167
00377 ADD +0 40000 0 00050 00400 STO +0 60100 0 00050 00401 CLA +0 50000 0 00051 00402 SUB +0 40200 0 00170
00403 CHS +0 76000 0 00002 00404 ADD +0 40000 0 00050 00405 TZE +0 10000 0 00407 00406 TMI -0 12000 0 00413
LINE(J) = BLANK1 053 LM00096
00407 LXA +0 53400 1 00050 00410 CLA +0 50000 0 00037 00411 STO +0 60100 1 00162
LOOPC C'E 054 LM00097
00412 TRA +0 02000 0 00376
K = K - 6 055 LM00098
00413 CLA +0 50000 0 00051 00414 SUB +0 40200 0 00171 00415 STO +0 60100 0 00051
T'H LOOP3,FOR J=0,6,J.E.36 056 LM00102
00416 CLA +0 50000 0 00166 00417 STO +0 60100 0 00050 00420 TRA +0 02000 0 00424 00421 CLA +0 50000 0 00050
00422 ADD +0 40000 0 00171 00423 STO +0 60100 0 00050 00424 CLA +0 50000 0 00050 00425 SUB +0 40200 0 00173
00426 TZE +0 10000 0 00452
CH = ((X(I).RS.(30-J)).A.77K) 057 LM00103
00427 CLA +0 50000 0 00172 00430 SUB +0 40200 0 00050 00431 LXA +0 53400 1 00047 00432 STA +0 62100 0 00434
00433 CAL -0 50000 1 00024 00434 LGR -0 76500 0 00000 00435 ANA -0 32000 0 00175 00436 SLW +0 60200 0 00042
W'R (CH.E.57K), T'O LOOP3 058 LM00104
00437 CLA +0 50000 0 00042 00440 SUB +0 40200 0 00174 00441 TNZ -0 10000 0 00443 00442 TRA +0 02000 0 00010
L = L - 1 059 LM00105
00443 CLA +0 50000 0 00163 00444 SUB +0 40200 0 00167 00445 STO +0 60100 0 00163
LINE(L) = CH 060 LM00106
00446 LXA +0 53400 1 00163 00447 CLA +0 50000 0 00042 00450 STO +0 60100 1 00162
LOOP3 C'E 061 LM00107
00451 TRA +0 02000 0 00421
I = I+1 062 LM00111
00452 CLA +0 50000 0 00047 00453 ADD +0 40000 0 00167 00454 STO +0 60100 0 00047
T'O TFENCE 063 LM00112
00455 TRA +0 02000 0 00011
KAPUT K = 78 064 LM00116
00456 CLA +0 50000 0 00201 00457 STO +0 60100 0 00051
T'H LOOP5, FOR I=72,-1,K .L. L 065 LM00117
00460 CLA +0 50000 0 00177 00461 STO +0 60100 0 00047 00462 TRA +0 02000 0 00466 00463 CLS +0 50200 0 00167
00464 ADD +0 40000 0 00047 00465 STO +0 60100 0 00047 00466 CLA +0 50000 0 00051 00467 SUB +0 40200 0 00163
00470 TZE +0 10000 0 00472 00471 TMI -0 12000 0 00523
K = K - 6 066 LM00118
00472 CLA +0 50000 0 00051 00473 SUB +0 40200 0 00171 00474 STO +0 60100 0 00051
T'H LOOP4, FOR J=0,1,J .E. 6 067 LM00119
00475 CLA +0 50000 0 00166 00476 STO +0 60100 0 00050 00477 TRA +0 02000 0 00503 00500 CLA +0 50000 0 00050
00501 ADD +0 40000 0 00167 00502 STO +0 60100 0 00050 00503 CLA +0 50000 0 00050 00504 SUB +0 40200 0 00171
00505 TZE +0 10000 0 00522
LINE(I) = (LINE(I).LS.6).V.LINE(K-J) 068 LM00120
00506 CLA +0 50000 0 00051 00507 SUB +0 40200 0 00050 00510 LXA +0 53400 1 00047 00511 STO +0 60100 0 00556
00512 CAL -0 50000 0 00171 00513 STA +0 62100 0 00515 00514 CAL -0 50000 1 00162 00515 ALS +0 76700 0 00000
00516 LXA +0 53400 2 00556 00517 ORA -0 50100 2 00162 00520 SLW +0 60200 1 00162
LOOP4 C'E 069 LM00121
00521 TRA +0 02000 0 00500
LOOP5 C'E 070 LM00122
00522 TRA +0 02000 0 00463
WRITE.(LINE(72),71-I) 071 LM00126
00523 CLA +0 50000 0 00176 00524 SUB +0 40200 0 00047 00525 STO +0 60100 0 00556 00526 TSX +0 07400 4 00003
00527 TXH +3 00000 0 00052 00530 TXH +3 00000 0 00556
F'N 072 LM00127
00531 TRA +0 02000 0 00552
E'N 073 LM00129
00532 TSX +0 07400 4 00000 00533 PZE +0 00000 0 77777 00534 TXH +3 00000 0 00000 00535 SXD -0 63400 1 00534
00536 SXA +0 63400 4 00552 00537 CLA +0 50000 4 00001 00540 STA +0 62100 0 00210 00541 STA +0 62100 0 00217
00542 STA +0 62100 0 00364 00543 STA +0 62100 0 00433 00544 SUB +0 40200 0 00533 00545 STA +0 62100 0 00212
00546 CLA +0 50000 4 00002 00547 STA +0 62100 0 00221 00550 STA +0 62100 0 00222 00551 TRA +0 02000 2 00001
00552 AXT +0 77400 4 00000 00553 LXA +0 53400 2 00534 00554 LXD -0 53400 1 00534 00555 TRA +0 02000 4 00001
TSSLIB BCD 05/28/67 2019.0 1502 00000
1 PAGE 1
CTSS LIBRARY ENTRIES
BINARY CARD NO. TSSLIB00
00016 ENTRY ZEL
00022 ENTRY BZEL
00026 ENTRY WRITE
00012 ENTRY DERBC
00005 ENTRY BCDEC
EXTERN DTBC,BTDC,WRFLX
THIS SET OF ROUTINES SUPPLIES CONVERSION
ROUTINES CONTAINED IN CTSS LIBRARIES BUT
NOT FOUND IN FMS BACKGROUND LIBRARIES
D.R. WIDRIG DEC. 1965
TRANSFER VECTOR
BINARY CARD NO. TSSLIB01
00000 246322236060 DTBC
00001 226324236060 BTDC
00002 665126436760 WRFLX
LINKAGE DIRECTOR
00003 000000000000
00004 712543606060
00005 0634 00 4 00041 BCDEC SXA IR4,4 SAVE RETURN
00006 0560 60 4 00001 LDQ* 1,4 GET WORD TO BE CONVERTED
00007 -0154 06 0 00042 CRQ A1,,6 ZERO LEADING BLANKS
00010 0074 00 4 00000 TSX DTBC,4 CONVERT BCD TO BINARY
00011 0020 00 0 00037 TRA RETURN EXIT
00012 0634 00 4 00041 DERBC SXA IR4,4 SAVE RETURN
00013 0560 60 4 00001 LDQ* 1,4 GET WORD TO BE CONVERTED
00014 0074 00 4 00001 TSX BTDC,4 CONVERT BINARY WORD TO BCD
00015 0020 00 0 00037 TRA RETURN EXIT
00016 0560 60 4 00001 ZEL LDQ* 1,4 GET WORD TO BE ADJUSTED
00017 -0154 06 0 00042 CRQ A1,,6 DO TABLE CONVERT
00020 0131 00 0 00000 XCA RESTORE ANSWER TO AC
00021 0020 00 4 00002 TRA 2,4 RETURN
00022 0560 60 4 00001 BZEL LDQ* 1,4 GET WORD TO BE ADJUSTED
00023 -0154 06 0 00142 CRQ B1,,6 DO TABLE CONVERT
BINARY CARD NO. TSSLIB02
00024 0131 00 0 00000 XCA RESTORE ANSWER TO AC
00025 0020 00 4 00002 TRA 2,4 RETURN
00026 0634 00 4 00041 WRITE SXA IR4,4 SAVE LINKAGE
00027 0500 00 4 00001 CLA 1,4 GET POINTER TO VECTOR
00030 0621 00 0 00035 STA *+5 SAVE IT
1 PAGE 2
CTSS LIBRARY ENTRIES
00031 0500 60 4 00002 CLA* 2,4 GET WORD COUNT
00032 0767 00 0 00022 ALS 18 MOVE TO DECREMENT
00033 0622 00 0 00035 STD *+2 SAVE WORD COUNT
00034 0074 00 4 00002 TSX WRFLX,4 PRINT LINE
00035 0 00000 0 00000 PZE **,,** ..
00036 0020 00 0 00037 TRA RETURN EXIT
00037 0534 00 4 00041 RETURN LXA IR4,4 RESTORE LINKAGE
00040 0020 00 4 00002 TRA 2,4 RETURN TO CALLER
1 PAGE 3
CTSS LIBRARY ENTRIES
CONSTANTS, TABLES, ETC.
00041 0 00000 0 00000 IR4 PZE
00042 A1 DUP 1,48
00042 000000000242 VFD 6/*-A1,30/C1
BINARY CARD NO. TSSLIB03
BINARY CARD NO. TSSLIB04
BINARY CARD NO. TSSLIB05
00122 0 00000 0 00042 PZE A1
00123 DUP 1,15
00123 610000000242 VFD 6/*-A1,30/C1
00142 -2 00000 0 00142 B1 SIX B1
00143 DUP 1,63
00143 010000000242 VFD 6/*-B1,30/C1
BINARY CARD NO. TSSLIB06
BINARY CARD NO. TSSLIB07
BINARY CARD NO. TSSLIB08
BINARY CARD NO. TSSLIB09
00242 C1 DUP 1,64
00242 000000000242 VFD 6/*-C1,30/C1
BINARY CARD NO. TSSLIB10
BINARY CARD NO. TSSLIB11
BINARY CARD NO. TSSLIB12
END
1 PAGE 1
POST PROCESSOR ASSEMBLY DATA
342 IS THE FIRST LOCATION NOT USED BY THIS PROGRAM
0REFERENCES TO DEFINED SYMBOLS
42 A1 7, 17, 42, 43, 44, 45, 46, 47, 50, 51, 52, 53, 54, 55, 56, 57, 60
61, 62, 63, 64, 65, 66, 67, 70, 71, 72, 73, 74, 75, 76, 77, 100, 101
102, 103, 104, 105, 106, 107, 110, 111, 112, 113, 114, 115, 116, 117, 120, 121, 122
123, 124, 125, 126, 127, 130, 131, 132, 133, 134, 135, 136, 137, 140, 141
142 B1 23, 142, 143, 144, 145, 146, 147, 150, 151, 152, 153, 154, 155, 156, 157, 160, 161
162, 163, 164, 165, 166, 167, 170, 171, 172, 173, 174, 175, 176, 177, 200, 201, 202
203, 204, 205, 206, 207, 210, 211, 212, 213, 214, 215, 216, 217, 220, 221, 222, 223
224, 225, 226, 227, 230, 231, 232, 233, 234, 235, 236, 237, 240, 241
242 C1 42, 43, 44, 45, 46, 47, 50, 51, 52, 53, 54, 55, 56, 57, 60, 61, 62
63, 64, 65, 66, 67, 70, 71, 72, 73, 74, 75, 76, 77, 100, 101, 102, 103
104, 105, 106, 107, 110, 111, 112, 113, 114, 115, 116, 117, 120, 121, 123, 124, 125
126, 127, 130, 131, 132, 133, 134, 135, 136, 137, 140, 141, 143, 144, 145, 146, 147
150, 151, 152, 153, 154, 155, 156, 157, 160, 161, 162, 163, 164, 165, 166, 167, 170
171, 172, 173, 174, 175, 176, 177, 200, 201, 202, 203, 204, 205, 206, 207, 210, 211
212, 213, 214, 215, 216, 217, 220, 221, 222, 223, 224, 225, 226, 227, 230, 231, 232
233, 234, 235, 236, 237, 240, 241, 242, 243, 244, 245, 246, 247, 250, 251, 252, 253
254, 255, 256, 257, 260, 261, 262, 263, 264, 265, 266, 267, 270, 271, 272, 273, 274
275, 276, 277, 300, 301, 302, 303, 304, 305, 306, 307, 310, 311, 312, 313, 314, 315
316, 317, 320, 321, 322, 323, 324, 325, 326, 327, 330, 331, 332, 333, 334, 335, 336
337, 340, 341
41 IR4 5, 12, 26, 37
16 ZEL 0
1 BTDC 14
22 BZEL 0
0 DTBC 10
5 BCDEC 0
12 DERBC 0
2 WRFLX 34
26 WRITE 0
37 RETURN 11, 15, 36
0 NO ERROR IN ABOVE ASSEMBLY.
IOHSIM BCD 05/28/67 2019.0 1282 00000
1 PAGE 1
PACKAGE TO SIMULATE (IOH)
BINARY CARD NO. IOHSIM00
00005 ENTRY .READ
00052 ENTRY SETEOF
EXTERN EXIT,TPWAIT,RDCARD
THIS PACKAGE IS A CUT-DOWN FORM OF (IOH). IT
IS USED IN NON-FOREGROUND RETRIEVALS. ITS ONLY
USE IS TO PROVIDE SUPPORT FOR THE FOLLOWING
INPUT STATEMENT IN 'COMPAT' ...
R'T INPUT, LINE(1) ... LINE(72)
V'S INPUT = $72(RZC1)*$
D.R. WIDRIG DEC. 1965
TRANSFER VECTOR
BINARY CARD NO. IOHSIM01
00000 256731636060 EXIT
00001 634766213163 TPWAIT
00002 512423215124 RDCARD
LINKAGE DIRECTOR
00003 000000000000
00004 335125212460
01202 U TAPENO A2
00005 0634 00 4 00033 .READ SXA X4,4 SAVE LINKAGE
00006 0634 00 2 00034 SXA X2,2 SAVE USER IRS
00007 0634 00 1 00035 SXA X1,1 ..
00010 0500 00 4 00002 CLA 2,4 GET VECTOR POINTER WORD
00011 0601 00 0 00073 STO PTR SAVE IT
00012 0760 00 0 00163 SWT 3 TEST SWITCH 3 TO SEE WHERE INPUT COMES FROM
00013 0020 00 0 00037 TRA TAPE UP, INPUT TAPE
00014 0074 00 4 00002 TSX RDCARD,4 DOWN, CARD READER
00015 0 00055 0 00057 PZE BUFF,,EOF ..
00016 -0535 00 4 00073 PEEL LDC PTR,4 GET NEGATIVE OF STOPPING LOCATION
00017 -0634 00 4 00030 SXD TEST,4 SAVE IT
00020 0535 00 4 00073 LAC PTR,4 GET NEGATIVE OF START
00021 0774 00 2 00000 AXT 0,2 INITIALIZE BUFFER POINTER
00022 0560 00 2 00057 RELOAD LDQ BUFF,2 GET FRESH WORD
00023 0774 00 1 00006 AXT 6,1 RESET SHIFT COUNT
BINARY CARD NO. IOHSIM02
00024 -0754 00 0 00000 NEXT ZAC CLEAR AC
00025 -0763 00 0 00006 LGL 6 GET NEXT CHARACTER
00026 0601 00 4 00000 STO 0,4 SAVE IN CALLING PROGRAM'S VECTOR
00027 1 00001 4 00030 TXI *+1,4,1 NEXT ENTRY IN VECTOR
00030 3 00000 4 00033 TEST TXH DONE,4,** TEST FOR COMPLETION
00031 2 00001 1 00024 TIX NEXT,1,1 NOT DONE, TEST SHIFT COUNT
1 PAGE 2
PACKAGE TO SIMULATE (IOH)
00032 1 77777 2 00022 TXI RELOAD,2,-1 SHIFT EXHAUSTED, NEXT WORD PLEASE
00033 DONE EQU * EXIT WHEN COMPLETE
00033 0774 00 4 00000 X4 AXT **,4 RESTORE LINKAGE
00034 0774 00 2 00000 X2 AXT **,2 RESTORE USER IRS
00035 0774 00 1 00000 X1 AXT **,1 ..
00036 0020 00 4 00004 TRA 4,4 HOP OVER CALLER'S ARGUMENTS
00037 0074 00 4 00001 TAPE TSX TPWAIT,4 WAIT FOR CHANNEL TO QUIET DOWN
00040 3 00000 0 00001 PTH 1 CHANNEL A
00041 0761 00 0 00000 NOP IGNORE TAPE CHECK
00042 0761 00 0 00000 NOP IGNORE EOF RETURN
00043 0762 00 0 01202 RTDU SELECT INPUT TAPE FOR READING
00044 0540 00 0 00056 RCHU TAPEWD READ 12 WORDS
00045 0074 00 4 00001 TSX TPWAIT,4 WAIT FOR ACTION COMPLETED
00046 3 00000 0 00001 PTH 1 CHANNEL A
00047 0020 00 0 00037 TRA TAPE REDUNDANCY, DO IT AGAIN
BINARY CARD NO. IOHSIM03
00050 0020 00 0 00055 TRA EOF TAKE EOF RETURN
00051 0020 00 0 00016 TRA PEEL EVERYTHING OK, PEEL CHARACTERS OUT OF WORDS
1 PAGE 3
PACKAGE TO SIMULATE (IOH)
00052 0500 60 4 00001 SETEOF CLA* 1,4 SET END-OF-FILE RETURN
00053 0621 00 0 00055 STA EOF SAVE IN TRANSFER ADDRESS
00054 0020 00 4 00002 TRA 2,4 RETURN TO CALLER
00055 0020 00 0 00000 EOF TRA EXIT EOF RETURN
1 PAGE 4
PACKAGE TO SIMULATE (IOH)
CONSTANTS, ETC.
00056 0 00014 0 00057 TAPEWD IOCD BUFF,,12
00057 BUFF BSS 12 INPUT BUFFER
BINARY CARD NO. IOHSIM04
00073 0 00000 0 00000 PTR PZE POINTER WORD TO VECTOR BASE, ETC.
END
1 PAGE 1
POST PROCESSOR ASSEMBLY DATA
74 IS THE FIRST LOCATION NOT USED BY THIS PROGRAM
0REFERENCES TO DEFINED SYMBOLS
1202 U 5, 43, 44
35 X1 7
34 X2 6
33 X4 5
55 EOF 15, 50, 53
73 PTR 11, 16, 20
57 BUFF 15, 22, 56
33 DONE 30, 33
0 EXIT 55
24 NEXT 31
16 PEEL 51
37 TAPE 13, 47
30 TEST 17
5 .READ 0
2 RDCARD 14
22 RELOAD 32
52 SETEOF 0
56 TAPEWD 44
1 TPWAIT 37, 45
0 NO ERROR IN ABOVE ASSEMBLY.
RDCARD BCD 05/28/67 2019.0 2146 00000
1 PAGE 1
READ A CARD FROM ON-LINE CARD READER
BINARY CARD NO. RDCARD00
00004 ENTRY RDCARD
EXTERN PRINT,TPWAIT
RDCARD..... READ ONE CARD FROM ON-LINE CARD READER
TSX RDCARD,4
BUF,,EOFRTN
THIS INCREDIBLE ROUTINE WAS PIRATED FROM THE CTSS
CYLINDER LOADER. IT READS ROW-BINARY CARDS
FROM THE ON-LINE CARD READER.
D.R. WIDRIG DEC. 1965
BINARY CARD NO. RDCARD01
00000 475131456360 PRINT
00001 634766213163 TPWAIT
00004 0634 00 4 00135 RDCARD SXA X4,4
00005 0634 00 2 00134 SXA X2,2
00006 0634 00 1 00133 SXA XR1,1
00007 -0500 00 4 00001 CAL 1,4 PICK UP ADDRESS OF CALLER'S BUFFER
00010 0361 00 0 00347 ACL =12 .. BUFF+12
00011 0621 00 0 00131 STA CTX
00012 0074 00 4 00001 TSX TPWAIT,4 WAIT ON CHANNEL 'A'
00013 3 00000 0 00001 PTH 1 ..
00014 0761 00 0 00000 NOP .. IGNORE TAPE CHECK
00015 0761 00 0 00000 NOP .. AND EOF RETURNS
00016 0774 00 1 00014 AXT 12,1 CLEAR BCD RECORD AREA
00017 0600 00 1 00336 STZ REC+12,1 ..
00020 2 00001 1 00017 TIX *-1,1,1 ..
00021 0762 00 0 01321 RCDA READ A CARD FROM ON LINE READER
00022 0540 00 0 00156 RCHA CTB ..
00023 0074 00 4 00001 TSX TPWAIT,4 WAIT UNTIL CARD IS READ
BINARY CARD NO. RDCARD02
00024 3 00000 0 00001 PTH 1 ..
00025 0761 00 0 00000 NOP .. TAPE CHECK, SHOULD NEVER HAPPEN
00026 0020 00 0 00137 TRA EOF .. END OF FILE RETURN
00027 0774 00 4 00004 AXT 4,4 INITIALIZE LEFT HALF
00030 -0774 00 2 00015 CT9 AXC 13,2
00031 0441 00 0 00176 LDI CTG CLEAR SENSE IND
00032 -0500 60 4 00172 CT10 CAL* CTD+4,4
00033 1 00002 2 00034 TXI *+1,2,2
00034 -0501 60 4 00172 ORA* CTD+4,4
00035 0602 00 0 00200 SLW CTH
00036 1 77764 2 00037 TXI *+1,2,-12
00037 0441 60 4 00172 LDI* CTD+4,4
00040 1 00002 2 00041 TXI *+1,2,2
1 PAGE 2
READ A CARD FROM ON-LINE CARD READER
00041 0444 60 4 00172 OFT* CTD+4,4
00042 0020 00 0 00146 CT11 TRA ERR
00043 0442 60 4 00172 OSI* CTD+4,4
00044 0604 00 0 00202 STI CTI
00045 1 00024 2 00046 TXI *+1,2,20
00046 0441 60 4 00172 LDI* CTD+4,4
00047 1 77760 2 00050 TXI *+1,2,-16
BINARY CARD NO. RDCARD03
00050 0774 00 1 00007 AXT 7,1
00051 0444 60 4 00172 CT12 OFT* CTD+4,4
00052 0020 00 0 00146 CT13 TRA ERR
00053 0442 60 4 00172 OSI* CTD+4,4
00054 1 00002 2 00055 TXI *+1,2,2
00055 2 00001 1 00051 TIX CT12,1,1
00056 0440 00 0 00200 IIS CTH
00057 0444 60 4 00172 OFT* CTD+4,4
00060 0020 00 0 00146 TRA ERR
00061 0442 60 4 00172 OSI* CTD+4,4
00062 0442 00 0 00200 OSI CTH
00063 1 77760 2 00064 TXI *+1,2,-16
00064 -0046 00 0 00000 PIA
00065 -0320 60 4 00172 ANA* CTD+4,4
00066 0602 00 0 00200 SLW CTH
00067 -0320 00 0 00202 ANA CTI
00070 -0100 00 0 00146 TNZ ERR
00071 -0500 60 4 00172 CAL* CTD+4,4
00072 0043 00 0 00000 OAI
00073 0442 00 0 00202 OSI CTI
BINARY CARD NO. RDCARD04
00074 -0320 00 0 00202 ANA CTI
00075 0602 60 4 00172 SLW* CTD+4,4
00076 -0046 00 0 00000 PIA
00077 0760 00 0 00006 COM
00100 -0501 00 0 00200 ORA CTH
00101 1 77772 2 00102 TXI *+1,2,-6
00102 0602 60 4 00172 SLW* CTD+4,4
00103 0774 00 1 00006 CT20 AXT 6,1
00104 -0500 60 4 00172 CAL* CTD+4,4
00105 0602 00 0 00200 SLW CTH
00106 0560 00 0 00200 CT21 LDQ CTH
00107 0634 00 1 00114 SXA X1,1
00110 0774 00 1 00006 AXT 6,1
00111 0767 00 0 00005 CT22 ALS 5
00112 -0763 00 0 00001 LGL 1
00113 2 00001 1 00111 TIX CT22,1,1
00114 0774 00 1 00000 X1 AXT **,1
00115 -0600 00 0 00200 STQ CTH
00116 -0130 00 0 00000 XCL
00117 0200 00 2 00154 PCT23 MPY CTA-1,2
BINARY CARD NO. RDCARD05
00120 0763 00 0 00043 LLS 35
00121 0361 60 4 00176 ACL* CTE+4,4
1 PAGE 3
READ A CARD FROM ON-LINE CARD READER
00122 0602 60 4 00176 SLW* CTE+4,4
00123 2 00001 1 00106 TIX CT21,1,1
00124 3 77775 2 00126 CT24 TXH CT25,2,-3
00125 1 00002 2 00103 TXI CT20,2,2
00126 2 00002 4 00030 CT25 TIX CT9,4,2
00127 0774 00 4 00014 AXT 12,4
00130 -0500 00 4 00336 CAL REC+12,4
00131 0602 00 4 00000 CTX SLW **,4
00132 2 00001 4 00130 TIX *-2,4,1
00133 0774 00 1 00000 XR1 AXT **,1
00134 0774 00 2 00000 X2 AXT **,2
00135 0774 00 4 00000 X4 AXT **,4
00136 0020 00 4 00002 TRA 2,4
00137 0534 00 2 00134 EOF LXA X2,2 HERE ON EOF FROM CARD READER
00140 0534 00 4 00135 LXA X4,4 .. RESTORE CALLER'S IRS
00141 0534 00 1 00133 LXA XR1,1 ..
00142 -0500 00 4 00001 CAL 1,4 PICK UP EOF RETURN
00143 0771 00 0 00022 ARS 18 GET CALLER'S EOF RETURN
BINARY CARD NO. RDCARD06
00144 0621 00 0 00145 STA *+1 PLANT IT
00145 0020 00 0 00000 TRA ** TAKE EOF RETURN
00146 0074 00 4 00000 ERR TSX PRINT,4 HERE FOR ILLEGAL BCD IN CARD, PRINT ERROR
00147 0 00011 0 00336 CHS,,CHS1 ..
00150 0000 00 0 00151 HTR *+1 WAIT FOR REPLY
00151 0534 00 4 00135 LXA X4,4 RESTORE USER'S CONDITIONS
00152 0534 00 2 00134 LXA X2,2 ..
00153 0534 00 1 00133 LXA XR1,1 ..
00154 0020 00 0 00004 TRA RDCARD READ NEXT CARD
00155 +000000000011 CTA OCT 11
00156 0 00030 0 00206 CTB IOCD 9ROWL,,24
00157 +000000000010 OCT 10
00160 0 00000 0 00000 PZE
00161 +000000000007 OCT 7
00162 0 00000 0 00000 PZE
00163 +000000000006 OCT 6
00164 0 00000 0 00000 PZE
00165 +000000000005 OCT 5
00166 0 00000 2 00205 CTD PZE 9ROWL-1,2
00167 +000000000004 OCT 4
BINARY CARD NO. RDCARD07
00170 0 00000 2 00206 PZE 9ROWL,2
00171 +000000000003 OCT 3
00172 0 00000 1 00330 CTE PZE REC+6,1
00173 +000000000002 OCT 2
00174 0 00000 1 00336 PZE REC+12,1
00175 +000000000001 CTF OCT 1
00176 0 00000 0 00000 CTG PZE
00177 +000000000012 OCT 12
00200 0 00000 0 00000 CTH PZE
00201 +000000000040 OCT 40
1 PAGE 4
READ A CARD FROM ON-LINE CARD READER
00202 0 00000 0 00000 CTI PZE
00203 +000000000020 OCT 20
00204 0 00000 0 00000 CTJ PZE
00205 +000000000060 OCT 60
00206 9ROWL BSS 76
00322 REC BSS 12
BINARY CARD NO. RDCARD08
00336 602362306026 CHS BCI 9, CSH FOUND ILLEGAL BCD CARD. PUSH START TO IGNORE CARD
00011 CHS1 SYN *-CHS
END
LITERALS
00347 000000000014
1 PAGE 1
POST PROCESSOR ASSEMBLY DATA
350 IS THE FIRST LOCATION NOT USED BY THIS PROGRAM
0REFERENCES TO DEFINED SYMBOLS
114 X1 107
134 X2 5, 137, 152
135 X4 4, 140, 151
336 CHS 147, 347
30 CT9 126
155 CTA 117
156 CTB 22
166 CTD 32, 34, 37, 41, 43, 46, 51, 53, 57, 61, 65, 71, 75, 102, 104
172 CTE 121, 122
175 CTF
176 CTG 31
200 CTH 35, 56, 62, 66, 100, 105, 106, 115
202 CTI 44, 67, 73, 74
204 CTJ
131 CTX 11
137 EOF 26
146 ERR 42, 52, 60, 70
322 REC 17, 130, 172, 174
133 XR1 6, 141, 153
11 CHS1 147, 347
32 CT10
42 CT11
51 CT12 55
52 CT13
103 CT20 125
106 CT21 123
111 CT22 113
124 CT24
126 CT25 124
206 9ROWL 156, 166, 170
117 PCT23
0 PRINT 146
4 RDCARD 0, 154
1 TPWAIT 12, 23
0 NO ERROR IN ABOVE ASSEMBLY.
PRIMER BCD 02/09/69 0532.0 8604 00000
PRIME BCD 04/16/68 1910.0 1504 00000
1 PRIMER FOR THE DAEMON - R. A. ROACH 4/16/68 PAGE 1
*
*
M CALL MACRO PROG,LIST
TSX PROG,4
IRP LIST
PTH LIST
IRP
CALL END
*
EXTERN WRFLX,SETIO,ATTACH,CHFILE,DELFIL,OPEN,BUFFER,WRFILE,CLOSE
EXTERN RDCARD,CKDATE,EXIT
TRANSFER VECTOR
00000 665126436760 WRFLX
00001 622563314660 SETIO
00002 216363212330 ATTACH
00003 233026314325 CHFILE
00004 242543263143 DELFIL
00005 464725456060 OPEN
00006 226426262551 BUFFER
00007 665126314325 WRFILE
00010 234346622560 CLOSE
00011 512423215124 RDCARD
00012 234224216325 CKDATE
00013 256731636060 EXIT
00014 0000 00 0 00015 HTR *+1 INITIAL PROGRAM STOP
00015 0760 00 0 00016 EAXM MUST RUN IN 7-TAG MODE
00016 0074 00 4 00001 TSX SETIO,4 SETUP THE I/O SYSTEM
00017 0 00000 0 00160 PZE DAEMON DAEMON WILL BE THE AUTHOR
00020 CALL ATTACH(SYSTEM,DAEMON)
*
00023 READ CALL RDCARD((BUFF,,EOF))
00025 CALL CKDATE(BUFF+1,BUFF,BADCRD)
00031 -0500 00 0 01073 CAL BUFF+1
00032 0602 00 0 01110 SLW T+2
00033 -0500 00 0 01072 CAL BUFF
00034 -0765 00 0 00030 LGR 24
00035 0074 00 4 00133 TSX CVT,4
00036 -0130 00 0 00000 XCL
00037 0200 00 0 01113 MPY =60
00040 -0600 00 0 01075 STQ BUFF+3
00041 -0500 00 0 01072 CAL BUFF
00042 -0320 00 0 01116 ANA =O77770000
00043 -0765 00 0 00014 LGR 12
00044 0074 00 4 00133 TSX CVT,4
00045 0400 00 0 01075 ADD BUFF+3
00046 -0130 00 0 00000 XCL
00047 0200 00 0 01115 MPY =3600
00050 -0600 00 0 01107 STQ T+1
00051 CALL CHFILE(DRSTOR,FILE1,1,=-0,=-0,*) CHANGE MODE TO TEMP
00060 CALL DELFIL(DRSTOR,FILE1,*) AND DELETE IT
00064 CALL CHFILE(DRSTOR,FILE2,1,=-0,=-0,*) CHANGE MODE TO TEMP
00073 CALL DELFIL(DRSTOR,FILE2,*) AND DELETE IT
00077 CALL CHFILE(DRSTOR,FILE3,1,=-0,=-0,*) AND CHANGE MODE TO TEMP
00106 CALL DELFIL(DRSTOR,FILE3,*) AND DELETE IT
1 PRIMER FOR THE DAEMON - R. A. ROACH 4/16/68 PAGE 2
00112 CALL OPEN(=HW,DRSTOR,FILE3)
00116 CALL BUFFER(DRSTOR,FILE3(BUFF1,,432))
00122 CALL WRFILE(DRSTOR,FILE3,=0,(T,,3))
00127 CALL CLOSE(DRSTOR,FILE3)
00132 0074 00 4 00013 TSX EXIT,4
*
00133 0634 00 4 00144 CVT SXA XR4,4 CONVERT TIME
00134 0602 00 0 01077 SLW BUFF+5 NOT PRESENTLY USED
00135 -0765 00 0 00006 LGR 6
00136 -0130 00 0 00000 XCL
00137 0200 00 0 01112 MPY =10
00140 -0500 00 0 01114 CAL =O77
00141 0320 00 0 01077 ANS BUFF+5
00142 -0130 00 0 00000 XCL
00143 0400 00 0 01077 ADD BUFF+5
00144 0774 00 4 00000 XR4 AXT **,4
00145 0020 00 4 00001 TRA 1,4
*
00146 0074 00 4 00000 EOF TSX WRFLX,4
00147 0 00006 0 00165 PZE MESS1,,6
00150 0020 00 0 00023 TRA READ
*
00151 0074 00 4 00000 ERROR TSX WRFLX,4
00152 0 00011 0 00173 PZE MESS2,,9
00153 0020 00 0 00146 TRA EOF
*
00154 0074 00 4 00000 BADCRD TSX WRFLX,4
00155 0 00006 0 00204 PZE MESS3,,6
00156 0020 00 0 00146 TRA EOF
*
00157 602300000506 SYSTEM BCI 1, C0056
00160 601111111111 DAEMON BCI 1, 99999
00161 245162634651 DRSTOR BCI 1,DRSTOR
00162 263143253301 FILE1 BCI 1,FILE.1
00163 263143253302 FILE2 BCI 1,FILE.2
00164 263143253303 FILE3 BCI 1,FILE.3
00165 604764636023 MESS1 BCI 6, PUT CARD IN READER PLEASE
00166 215124603145
00167 605125212425
00170 516047432521
00171 622560606060
00172 606060606060
00173 604751314431 MESS2 BCI 9, PRIMING FAILED, WILL TRY AGAIN
00174 452760262131
00175 432524736066
00176 314343606351
00177 706021272131
00200 456060606060
00201 606060606060
00202 606060606060
00203 606060606060
00204 603143432527 MESS3 BCI 6, ILLEGAL DATE OR TIME, REPUNCH CARD
00205 214360242163
00206 256046516063
00207 314425736051
00210 254764452330
1 PRIMER FOR THE DAEMON - R. A. ROACH 4/16/68 PAGE 3
00211 602321512460
00212 BUFF1 BSS 432
01072 BUFF BSS 12
01106 475146632363 T BCI 3,PROTCT TIME DATE
01107 606331442560
01110 242163256060
END
LITERALS
01111 000000000000
01112 000000000012
01113 000000000074
01114 000000000077
01115 000000007020
01116 000077770000
01117 400000000000
01120 666060606060
1 PRIMER FOR THE DAEMON - R. A. ROACH 4/16/68 PAGE 1
POST PROCESSOR ASSEMBLY DATA
1121 IS THE FIRST LOCATION NOT USED BY THIS PROGRAM
0REFERENCES TO DEFINED SYMBOLS
1106 T 32, 50, 126
133 CVT 35, 44
146 EOF 24, 153, 156
144 XR4 133
1072 BUFF 24, 26, 27, 31, 33, 40, 41, 45, 134, 141, 143
13 EXIT 132
5 OPEN 112
23 READ 150
212 BUFF1 121
10 CLOSE 127
151 ERROR
162 FILE1 53, 62
163 FILE2 66, 75
164 FILE3 101, 110, 115, 120, 124, 131
165 MESS1 147
173 MESS2 152
204 MESS3 155
1 SETIO 16
0 WRFLX 146, 151, 154
2 ATTACH 20
154 BADCRD 30
6 BUFFER 116
3 CHFILE 51, 64, 77
12 CKDATE 25
160 DAEMON 17, 22
4 DELFIL 60, 73, 106
161 DRSTOR 52, 61, 65, 74, 100, 107, 114, 117, 123, 130
11 RDCARD 23
157 SYSTEM 21
7 WRFILE 122
0 NO ERROR IN ABOVE ASSEMBLY.
CKDATE BCD 04/16/68 1636.8 3237 00000
1 MAD PROGRAM LISTING ... ... ... FILE CKDATE MAD 04/16/68 1610.8
-
EXTERNAL FUNCTION (DATEIN,TIMEIN,BADATE) *001 LM00001
ENTRY TO CKDATE. *002 LM00002
NORMAL MODE IS INTEGER *003 LM00003
STATEMENT LABEL BADATE *004 LM00004
DIMENSION MDY(3), MO(12), MASK(6), SHFT(6) *005 LM00005
DATE=DATEIN *006 LM00006
TIME=TIMEIN *007 LM00007
WHENEVER (DATE.A.766074606060K).NE.0 .OR. (TIME.A.746070600000K) *008 LM00008
1 .NE.0, TRANSFER TO BADATE *008 LM00009
SW=0 *009 LM00010
THROUGH LOOP1, FOR J=0,6,J.G.36 *010 LM00011
WHENEVER ((DATE.RS.J).A.77K) .E. 13K .OR. ((TIME.RS.J).A.77K) .E. *011 LM00012
1 14K, TRANSFER TO BADATE *011 LM00013
WHENEVER ((DATE.RS.J).A.77K) .E. 14K .OR. ((TIME.RS.J).A.77K) .E. *012 LM00014
1 13K, TRANSFER TO BADATE *012 LM00015
LOOP1 CONTINUE *013 LM00016
BACK THROUGH LOOP, FOR I=1,1,I.G.3 *014 LM00017
LOOP MDY(I)=((DATE.A.MASK(I)).RS.SHFT(I))*10 *015 LM00018
1 +((DATE.A.MASK(I+3)).RS.SHFT(I+3)) *015 LM00019
WHENEVER SW.NE.0, TRANSFER TO TIMCHK *016 LM00020
MO(2)=28 *017 LM00021
WHENEVER (MDY(3).NE.0).AND.(MDY(3)-(MDY(3)/4)*4).E.0, *018 LM00022
1 MO(2)=29 *018 LM00023
WHENEVER MDY(1).L.1 .OR. MDY(1).G.12, TRANSFER TO BADATE *019 LM00024
WHENEVER (MDY(3).L.0).OR.(MDY(3).G.99), TRANSFER TO BADATE *020 LM00025
WHENEVER (MDY(2).L.1).OR.(MDY(2).G.MO(MDY(1))), TRANSFER TO BADATE *021 LM00026
DATE=TIME *022 LM00027
SW=1 *023 LM00028
TRANSFER TO BACK *024 LM00029
TIMCHK WHENEVER MDY(1).L.0 .OR. MDY(1).GE.24, TRANSFER TO BADATE *025 LM00030
WHENEVER MDY(2).L.0 .OR. MDY(2).GE.60, TRANSFER TO BADATE *026 LM00031
FUNCTION RETURN *027 LM00032
VECTOR VALUES MO=0,31,28,31,30,31,30,31,31,30,31,30,31 *028 LM00033
VECTOR VALUES MDY=0,0,0,0 *029 LM00034
VECTOR VALUES MASK=0,770000000000K,77000000K,7700K,7700000000K,770000K *030 LM00035
1 ,77K *030 LM00036
VECTOR VALUES SHFT=0,30,18,6,24,12,0 *031 LM00037
END OF FUNCTION *032 LM00038
1MAD PROGRAM,TYPE NOV 1963 (ALL NUMBERS ARE OCTAL)
0TOTAL LOCATIONS 00415 TRANSFER VECTOR LENGTH 00001 PROGRAM BEGINS 00072
0 PROGRAM IS AN EXTERNAL FUNCTION. THE FOLLOWING ARE ENTRIES
CKDATE 00073 0
0VARIABLE STORAGE (A=ARRAY,C=COMMON,E=ERASABLE,DIGIT=MODE)
BACK 00002 4 J 00006 1 MASK 00015 A 1 SHFT 00045 A 1 TIMCHK 00003 4
DATE 00004 1 LOOP1 00001 4 MDY 00021 A 1 SW 00046 1 TIME 00047 1
I 00005 1 LOOP 00001 4 MO 00036 A 1
0FUNCTION DICTIONARY
EXIT 00000 1
0ABSOLUTE CONSTANTS
00064 +000000000074 00060 +000000000030 00066 +000000000143 00062 +000000000035 00053 +000000000004
00061 +000000000034 00055 +000000000012 00052 +000000000003 00056 +000000000013 00057 +000000000014
00065 +000000000077 00063 +000000000044 00054 +000000000006 00071 -366074606060 00050 +000000000000
00070 -346070600000 00051 +000000000001 00067 +233000000000
0STATEMENT DICTIONARY
00002 TXL -300213000201 00003 TXL -300351000340
0PROGRAM
EXTERNAL FUNCTION (DATEIN,TIMEIN,BADATE) 001 LM00001
ENTRY TO CKDATE. 002 LM00002
00072 TRA +0 02000 0 00075 00073 SXA +0 63400 2 00364 00074 TSX +0 07400 2 00364
NORMAL MODE IS INTEGER 003 LM00003
STATEMENT LABEL BADATE 004 LM00004
DIMENSION MDY(3), MO(12), MASK(6), SHFT(6) 005 LM00005
DATE=DATEIN 006 LM00006
00075 CLA +0 50000 0 00024 00076 STO +0 60100 0 00004
TIME=TIMEIN 007 LM00007
00077 CLA +0 50000 0 00024 00100 STO +0 60100 0 00047
W'R (DATE.A.766074606060K).NE.0 .OR. (TIME.A.746070600000K) 008 LM00008
1.NE.0, T'O BADATE 008 LM00009
00101 CAL -0 50000 0 00047 00102 ANA -0 32000 0 00070 00103 SLW +0 60200 0 00411 00104 CLA +0 50000 0 00411
00105 SUB +0 40200 0 00050 00106 TNZ -0 10000 0 00115 00107 CAL -0 50000 0 00004 00110 ANA -0 32000 0 00071
00111 SLW +0 60200 0 00411 00112 CLA +0 50000 0 00411 00113 SUB +0 40200 0 00050 00114 TZE +0 10000 0 00116
00115 TRA +0 02000 0 00024
SW=0 009 LM00010
00116 CLA +0 50000 0 00050 00117 STO +0 60100 0 00046
THROUGH LOOP1, FOR J=0,6,J.G.36 010 LM00011
00120 CLA +0 50000 0 00050 00121 STO +0 60100 0 00006 00122 TRA +0 02000 0 00126 00123 CLA +0 50000 0 00006
00124 ADD +0 40000 0 00054 00125 STO +0 60100 0 00006 00126 CLA +0 50000 0 00006 00127 SUB +0 40200 0 00063
00130 TZE +0 10000 0 00132 00131 TPL +0 12000 0 00201
W'R ((DATE.RS.J).A.77K) .E. 13K .OR. ((TIME.RS.J).A.77K) .E. 011 LM00012
114K, T'O BADATE 011 LM00013
00132 CAL -0 50000 0 00006 00133 STA +0 62100 0 00135 00134 CAL -0 50000 0 00047 00135 LGR -0 76500 0 00000
00136 ANA -0 32000 0 00065 00137 SLW +0 60200 0 00411 00140 CLA +0 50000 0 00411 00141 SUB +0 40200 0 00057
00142 TZE +0 10000 0 00154 00143 CAL -0 50000 0 00006 00144 STA +0 62100 0 00146 00145 CAL -0 50000 0 00004
00146 LGR -0 76500 0 00000 00147 ANA -0 32000 0 00065 00150 SLW +0 60200 0 00411 00151 CLA +0 50000 0 00411
00152 SUB +0 40200 0 00056 00153 TNZ -0 10000 0 00155 00154 TRA +0 02000 0 00024
W'R ((DATE.RS.J).A.77K) .E. 14K .OR. ((TIME.RS.J).A.77K) .E. 012 LM00014
113K, T'O BADATE 012 LM00015
00155 CAL -0 50000 0 00006 00156 STA +0 62100 0 00160 00157 CAL -0 50000 0 00047 00160 LGR -0 76500 0 00000
00161 ANA -0 32000 0 00065 00162 SLW +0 60200 0 00411 00163 CLA +0 50000 0 00411 00164 SUB +0 40200 0 00056
00165 TZE +0 10000 0 00177 00166 CAL -0 50000 0 00006 00167 STA +0 62100 0 00171 00170 CAL -0 50000 0 00004
00171 LGR -0 76500 0 00000 00172 ANA -0 32000 0 00065 00173 SLW +0 60200 0 00411 00174 CLA +0 50000 0 00411
00175 SUB +0 40200 0 00057 00176 TNZ -0 10000 0 00200 00177 TRA +0 02000 0 00024
LOOP1 CONTINUE 013 LM00016
00200 TRA +0 02000 0 00123
BACK THROUGH LOOP, FOR I=1,1,I.G.3 014 LM00017
00201 CLA +0 50000 0 00051 00202 STO +0 60100 0 00005 00203 TRA +0 02000 0 00207 00204 CLA +0 50000 0 00005
00205 ADD +0 40000 0 00051 00206 STO +0 60100 0 00005 00207 CLA +0 50000 0 00005 00210 SUB +0 40200 0 00052
00211 TZE +0 10000 0 00213 00212 TPL +0 12000 0 00252
LOOP MDY(I)=((DATE.A.MASK(I)).RS.SHFT(I))*10 015 LM00018
1+((DATE.A.MASK(I+3)).RS.SHFT(I+3)) 015 LM00019
00213 CLA +0 50000 0 00005 00214 ADD +0 40000 0 00052 00215 STO +0 60100 0 00411 00216 CLA +0 50000 0 00005
00217 ADD +0 40000 0 00052 00220 PAX +0 73400 2 00000 00221 CAL -0 50000 0 00004 00222 ANA -0 32000 2 00015
00223 LXA +0 53400 2 00411 00224 SLW +0 60200 0 00411 00225 CAL -0 50000 2 00045 00226 STA +0 62100 0 00230
00227 CAL -0 50000 0 00411 00230 LGR -0 76500 0 00000 00231 LXA +0 53400 2 00005 00232 SLW +0 60200 0 00411
00233 CAL -0 50000 0 00004 00234 ANA -0 32000 2 00015 00235 SLW +0 60200 0 00412 00236 CAL -0 50000 2 00045
00237 STA +0 62100 0 00241 00240 CAL -0 50000 0 00412 00241 LGR -0 76500 0 00000 00242 SLW +0 60200 0 00412
00243 LDQ +0 56000 0 00412 00244 MPY +0 20000 0 00055 00245 XCA +0 13100 0 00000 00246 ADD +0 40000 0 00411
00247 LXA +0 53400 1 00005 00250 STO +0 60100 1 00021 00251 TRA +0 02000 0 00204
W'R SW.NE.0, T'O TIMCHK 016 LM00020
00252 CLA +0 50000 0 00046 00253 SUB +0 40200 0 00050 00254 TZE +0 10000 0 00256 00255 TRA +0 02000 0 00003
MO(2)=28 017 LM00021
00256 CLA +0 50000 0 00061 00257 STO +0 60100 0 00034
W'R (MDY(3).NE.0).AND.(MDY(3)-(MDY(3)/4)*4).E.0, 018 LM00022
1MO(2)=29 018 LM00023
00260 LDQ +0 56000 0 00016 00261 PXD -0 75400 0 00000 00262 LLS +0 76300 0 00000 00263 DVP +0 22100 0 00053
00264 MPY +0 20000 0 00053 00265 XCA +0 13100 0 00000 00266 CHS +0 76000 0 00002 00267 ADD +0 40000 0 00016
00270 SUB +0 40200 0 00050 00271 TNZ -0 10000 0 00277 00272 CLA +0 50000 0 00016 00273 SUB +0 40200 0 00050
00274 TZE +0 10000 0 00277 00275 CLA +0 50000 0 00062 00276 STO +0 60100 0 00034
W'R MDY(1).L.1 .OR. MDY(1).G.12, T'O BADATE 019 LM00024
00277 CLA +0 50000 0 00020 00300 SUB +0 40200 0 00057 00301 TZE +0 10000 0 00303 00302 TPL +0 12000 0 00307
00303 CLA +0 50000 0 00020 00304 SUB +0 40200 0 00051 00305 TZE +0 10000 0 00310 00306 TPL +0 12000 0 00310
00307 TRA +0 02000 0 00024
W'R (MDY(3).L.0).OR.(MDY(3).G.99), T'O BADATE 020 LM00025
00310 CLA +0 50000 0 00016 00311 SUB +0 40200 0 00066 00312 TZE +0 10000 0 00314 00313 TPL +0 12000 0 00320
00314 CLA +0 50000 0 00016 00315 SUB +0 40200 0 00050 00316 TZE +0 10000 0 00321 00317 TPL +0 12000 0 00321
00320 TRA +0 02000 0 00024
W'R (MDY(2).L.1).OR.(MDY(2).G.MO(MDY(1))), T'O BADATE 021 LM00026
00321 LXA +0 53400 2 00020 00322 CLA +0 50000 0 00017 00323 SUB +0 40200 2 00036 00324 TZE +0 10000 0 00326
00325 TPL +0 12000 0 00332 00326 CLA +0 50000 0 00017 00327 SUB +0 40200 0 00051 00330 TZE +0 10000 0 00333
00331 TPL +0 12000 0 00333 00332 TRA +0 02000 0 00024
DATE=TIME 022 LM00027
00333 CLA +0 50000 0 00047 00334 STO +0 60100 0 00004
SW=1 023 LM00028
00335 CLA +0 50000 0 00051 00336 STO +0 60100 0 00046
T'O BACK 024 LM00029
00337 TRA +0 02000 0 00002
TIMCHK W'R MDY(1).L.0 .OR. MDY(1).GE.24, T'O BADATE 025 LM00030
00340 CLA +0 50000 0 00020 00341 SUB +0 40200 0 00060 00342 TZE +0 10000 0 00350 00343 TPL +0 12000 0 00350
00344 CLA +0 50000 0 00020 00345 SUB +0 40200 0 00050 00346 TZE +0 10000 0 00351 00347 TPL +0 12000 0 00351
00350 TRA +0 02000 0 00024
W'R MDY(2).L.0 .OR. MDY(2).GE.60, T'O BADATE 026 LM00031
00351 CLA +0 50000 0 00017 00352 SUB +0 40200 0 00064 00353 TZE +0 10000 0 00361 00354 TPL +0 12000 0 00361
00355 CLA +0 50000 0 00017 00356 SUB +0 40200 0 00050 00357 TZE +0 10000 0 00362 00360 TPL +0 12000 0 00362
00361 TRA +0 02000 0 00024
FUNCTION RETURN 027 LM00032
00362 TRA +0 02000 0 00405
V'S MO=0,31,28,31,30,31,30,31,31,30,31,30,31 028 LM00033
00022 +0 00000 0 00037 00023 +0 00000 0 00036 00024 +0 00000 0 00037 00025 +0 00000 0 00036
00026 +0 00000 0 00037 00027 +0 00000 0 00037 00030 +0 00000 0 00036 00031 +0 00000 0 00037
00032 +0 00000 0 00036 00033 +0 00000 0 00037 00034 +0 00000 0 00034 00035 +0 00000 0 00037
00036 +0 00000 0 00000
V'S MDY=0,0,0,0 029 LM00034
00016 +0 00000 0 00000 00017 +0 00000 0 00000 00020 +0 00000 0 00000 00021 +0 00000 0 00000
V'S MASK=0,770000000000K,77000000K,7700K,7700000000K,770000K 030 LM00035
1,77K 030 LM00036
00007 +0 00000 0 00077 00010 +0 00000 7 70000 00011 +0 07700 0 00000 00012 +0 00000 0 07700
00013 +0 00077 0 00000 00014 -3 70000 0 00000 00015 +0 00000 0 00000
V'S SHFT=0,30,18,6,24,12,0 031 LM00037
00037 +0 00000 0 00000 00040 +0 00000 0 00014 00041 +0 00000 0 00030 00042 +0 00000 0 00006
00043 +0 00000 0 00022 00044 +0 00000 0 00036 00045 +0 00000 0 00000
END OF FUNCTION 032 LM00038
00363 TSX +0 07400 4 00000 00364 TXH +3 00000 0 00000 00365 SXD -0 63400 1 00364 00366 SXA +0 63400 4 00405
00367 CLA +0 50000 4 00001 00370 STA +0 62100 0 00075 00371 CLA +0 50000 4 00002 00372 STA +0 62100 0 00077
00373 CLA +0 50000 4 00003 00374 STA +0 62100 0 00115 00375 STA +0 62100 0 00154 00376 STA +0 62100 0 00177
00377 STA +0 62100 0 00307 00400 STA +0 62100 0 00320 00401 STA +0 62100 0 00332 00402 STA +0 62100 0 00350
00403 STA +0 62100 0 00361 00404 TRA +0 02000 2 00001 00405 AXT +0 77400 4 00000 00406 LXA +0 53400 2 00364
00407 LXD -0 53400 1 00364 00410 TRA +0 02000 4 00001
RCARD BCD 04/16/68 1636.9 2173 00000
1 RCARD - READ ON-LINE CONTROL CARDS PAGE 1
READ A CARD FROM ON-LINE CARD READER
BINARY CARD NO. RDCARD00
00004 ENTRY RDCARD
EXTERN PRINT,TPWAIT
RDCARD..... READ ONE CARD FROM ON-LINE CARD READER
TSX RDCARD,4
BUF,,EOFRTN
THIS INCREDIBLE ROUTINE WAS PIRATED FROM THE CTSS
CYLINDER LOADER. IT READS BCD CARDS
FROM THE ON-LINE CARD READER.
D.R. WIDRIG DEC. 1965
INSERT CORE INSERT PROPER CORE DESIGNATION
* ASSEMBLY FOR I/O IN CORE A
BINARY CARD NO. RDCARD01
00000 475131456360 PRINT
00001 634766213163 TPWAIT
00004 0634 00 4 00135 RDCARD SXA X4,4
00005 0634 00 2 00134 SXA X2,2
00006 0634 00 1 00133 SXA XR1,1
00007 -0500 00 4 00001 CAL 1,4 PICK UP ADDRESS OF CALLER'S BUFFER
00010 0361 00 0 00347 ACL =12 .. BUFF+12
00011 0621 00 0 00131 STA CTX
00012 0074 00 4 00001 TSX TPWAIT,4 WAIT ON CHANNEL 'A'
00013 3 00000 0 00001 PTH 1 ..
00014 0761 00 0 00000 NOP .. IGNORE TAPE CHECK
00015 0761 00 0 00000 NOP .. AND EOF RETURNS
00016 0774 00 1 00014 AXT 12,1 CLEAR BCD RECORD AREA
00017 0600 00 1 00336 STZ REC+12,1 ..
00020 2 00001 1 00017 TIX *-1,1,1 ..
00021 0762 00 0 01321 RCDA READ A CARD FROM ON LINE READER
00022 0540 00 0 00156 RCHA CTB ..
00023 0074 00 4 00001 TSX TPWAIT,4 WAIT UNTIL CARD IS READ
BINARY CARD NO. RDCARD02
00024 3 00000 0 00001 PTH 1 ..
00025 0761 00 0 00000 NOP .. TAPE CHECK, SHOULD NEVER HAPPEN
00026 0020 00 0 00137 TRA EOF .. END OF FILE RETURN
00027 0774 00 4 00004 AXT 4,4 INITIALIZE LEFT HALF
00030 -0774 00 2 00015 CT9 AXC 13,2
00031 0441 00 0 00176 LDI CTG CLEAR SENSE IND
00032 -0500 60 4 00172 CT10 CAL* CTD+4,4
00033 1 00002 2 00034 TXI *+1,2,2
00034 -0501 60 4 00172 ORA* CTD+4,4
00035 0602 00 0 00200 SLW CTH
1 RCARD - READ ON-LINE CONTROL CARDS PAGE 2
READ A CARD FROM ON-LINE CARD READER
00036 1 77764 2 00037 TXI *+1,2,-12
00037 0441 60 4 00172 LDI* CTD+4,4
00040 1 00002 2 00041 TXI *+1,2,2
00041 0444 60 4 00172 OFT* CTD+4,4
00042 0020 00 0 00146 CT11 TRA ERR
00043 0442 60 4 00172 OSI* CTD+4,4
00044 0604 00 0 00202 STI CTI
00045 1 00024 2 00046 TXI *+1,2,20
00046 0441 60 4 00172 LDI* CTD+4,4
00047 1 77760 2 00050 TXI *+1,2,-16
BINARY CARD NO. RDCARD03
00050 0774 00 1 00007 AXT 7,1
00051 0444 60 4 00172 CT12 OFT* CTD+4,4
00052 0020 00 0 00146 CT13 TRA ERR
00053 0442 60 4 00172 OSI* CTD+4,4
00054 1 00002 2 00055 TXI *+1,2,2
00055 2 00001 1 00051 TIX CT12,1,1
00056 0440 00 0 00200 IIS CTH
00057 0444 60 4 00172 OFT* CTD+4,4
00060 0020 00 0 00146 TRA ERR
00061 0442 60 4 00172 OSI* CTD+4,4
00062 0442 00 0 00200 OSI CTH
00063 1 77760 2 00064 TXI *+1,2,-16
00064 -0046 00 0 00000 PIA
00065 -0320 60 4 00172 ANA* CTD+4,4
00066 0602 00 0 00200 SLW CTH
00067 -0320 00 0 00202 ANA CTI
00070 -0100 00 0 00146 TNZ ERR
00071 -0500 60 4 00172 CAL* CTD+4,4
00072 0043 00 0 00000 OAI
00073 0442 00 0 00202 OSI CTI
BINARY CARD NO. RDCARD04
00074 -0320 00 0 00202 ANA CTI
00075 0602 60 4 00172 SLW* CTD+4,4
00076 -0046 00 0 00000 PIA
00077 0760 00 0 00006 COM
00100 -0501 00 0 00200 ORA CTH
00101 1 77772 2 00102 TXI *+1,2,-6
00102 0602 60 4 00172 SLW* CTD+4,4
00103 0774 00 1 00006 CT20 AXT 6,1
00104 -0500 60 4 00172 CAL* CTD+4,4
00105 0602 00 0 00200 SLW CTH
00106 0560 00 0 00200 CT21 LDQ CTH
00107 0634 00 1 00114 SXA X1,1
00110 0774 00 1 00006 AXT 6,1
00111 0767 00 0 00005 CT22 ALS 5
00112 -0763 00 0 00001 LGL 1
00113 2 00001 1 00111 TIX CT22,1,1
00114 0774 00 1 00000 X1 AXT **,1
00115 -0600 00 0 00200 STQ CTH
00116 -0130 00 0 00000 XCL
00117 0200 00 2 00154 PCT23 MPY CTA-1,2
1 RCARD - READ ON-LINE CONTROL CARDS PAGE 3
READ A CARD FROM ON-LINE CARD READER
BINARY CARD NO. RDCARD05
00120 0763 00 0 00043 LLS 35
00121 0361 60 4 00176 ACL* CTE+4,4
00122 0602 60 4 00176 SLW* CTE+4,4
00123 2 00001 1 00106 TIX CT21,1,1
00124 3 77775 2 00126 CT24 TXH CT25,2,-3
00125 1 00002 2 00103 TXI CT20,2,2
00126 2 00002 4 00030 CT25 TIX CT9,4,2
00127 0774 00 4 00014 AXT 12,4
00130 -0500 00 4 00336 CAL REC+12,4
00131 0602 00 4 00000 CTX SLW **,4
00132 2 00001 4 00130 TIX *-2,4,1
00133 0774 00 1 00000 XR1 AXT **,1
00134 0774 00 2 00000 X2 AXT **,2
00135 0774 00 4 00000 X4 AXT **,4
00136 0020 00 4 00002 TRA 2,4
00137 0534 00 2 00134 EOF LXA X2,2 HERE ON EOF FROM CARD READER
00140 0534 00 4 00135 LXA X4,4 .. RESTORE CALLER'S IRS
00141 0534 00 1 00133 LXA XR1,1 ..
00142 -0500 00 4 00001 CAL 1,4 PICK UP EOF RETURN
00143 0771 00 0 00022 ARS 18 GET CALLER'S EOF RETURN
BINARY CARD NO. RDCARD06
00144 0621 00 0 00145 STA *+1 PLANT IT
00145 0020 00 0 00000 TRA ** TAKE EOF RETURN
00146 0074 00 4 00000 ERR TSX PRINT,4 HERE FOR ILLEGAL BCD IN CARD, PRINT ERROR
00147 0 00011 0 00336 CHS,,CHS1 ..
00150 0000 00 0 00151 HTR *+1 WAIT FOR REPLY
00151 0534 00 4 00135 LXA X4,4 RESTORE USER'S CONDITIONS
00152 0534 00 2 00134 LXA X2,2 ..
00153 0534 00 1 00133 LXA XR1,1 ..
00154 0020 00 0 00004 TRA RDCARD READ NEXT CARD
00155 +000000000011 CTA OCT 11
00156 0 00030 0 00206 CTB IOCD 9ROWL,,24
00157 +000000000010 OCT 10
00160 0 00000 0 00000 PZE
00161 +000000000007 OCT 7
00162 0 00000 0 00000 PZE
00163 +000000000006 OCT 6
00164 0 00000 0 00000 PZE
00165 +000000000005 OCT 5
00166 0 00000 2 00205 CTD PZE 9ROWL-1,2
00167 +000000000004 OCT 4
BINARY CARD NO. RDCARD07
00170 0 00000 2 00206 PZE 9ROWL,2
00171 +000000000003 OCT 3
00172 0 00000 1 00330 CTE PZE REC+6,1
00173 +000000000002 OCT 2
00174 0 00000 1 00336 PZE REC+12,1
00175 +000000000001 CTF OCT 1
00176 0 00000 0 00000 CTG PZE
1 RCARD - READ ON-LINE CONTROL CARDS PAGE 4
READ A CARD FROM ON-LINE CARD READER
00177 +000000000012 OCT 12
00200 0 00000 0 00000 CTH PZE
00201 +000000000040 OCT 40
00202 0 00000 0 00000 CTI PZE
00203 +000000000020 OCT 20
00204 0 00000 0 00000 CTJ PZE
00205 +000000000060 OCT 60
00206 9ROWL BSS 76
00322 REC BSS 12
BINARY CARD NO. RDCARD08
00336 602362306026 CHS BCI 9, CSH FOUND ILLEGAL BCD CARD. PUSH START TO IGNORE CARD
00011 CHS1 SYN *-CHS
END
LITERALS
00347 000000000014
1 RCARD - READ ON-LINE CONTROL CARDS PAGE 1
POST PROCESSOR ASSEMBLY DATA
350 IS THE FIRST LOCATION NOT USED BY THIS PROGRAM
0REFERENCES TO DEFINED SYMBOLS
114 X1 107
134 X2 5, 137, 152
135 X4 4, 140, 151
336 CHS 147, 347
30 CT9 126
155 CTA 117
156 CTB 22
166 CTD 32, 34, 37, 41, 43, 46, 51, 53, 57, 61, 65, 71, 75, 102, 104
172 CTE 121, 122
175 CTF
176 CTG 31
200 CTH 35, 56, 62, 66, 100, 105, 106, 115
202 CTI 44, 67, 73, 74
204 CTJ
131 CTX 11
137 EOF 26
146 ERR 42, 52, 60, 70
322 REC 17, 130, 172, 174
133 XR1 6, 141, 153
11 CHS1 147, 347
32 CT10
42 CT11
51 CT12 55
52 CT13
103 CT20 125
106 CT21 123
111 CT22 113
124 CT24
126 CT25 124
206 9ROWL 156, 166, 170
117 PCT23
0 PRINT 146
4 RDCARD 0, 154
1 TPWAIT 12, 23
0 NO ERROR IN ABOVE ASSEMBLY.
TPWAIT BCD 04/16/68 1636.9 580 00000
1 TPWAIT - WAIT UNTIL I/O ON A OR B CHAN IS DONE. PROCESS ERRORS. PAGE 1
*
* CALLING SEQUENCE -
* TSX TPWAIT,4
* PTH 1 (FOR A,2 FOR B)
* TRA EOFRTN E.O.F. RETURN
* TRA ERRTN REDUN. CHECK RETURN
* (NORMAL RETURN)
*
*
00000 ENTRY TPWAIT
00000 0634 00 1 00010 TPWAIT SXA XR1,1 SAVE XRS
00001 -0500 00 4 00001 CAL 1,4 GET CHANNO
00002 0737 00 1 00000 PAC ,1 -CHANNO INTO XR 1
00003 -3 77775 1 00020 TXL ERR,1,-3 BAD IF NOT A OR B
00004 0522 00 1 00011 BACK XEC TCOAB,1 WAIT UNTIL I/O IS DONE
00005 0522 00 1 00013 XEC TRCAB,1 TEST FOR REDUN. CHECKS
00006 0522 00 1 00015 XEC TEFAB,1 TEST FOR E.O.F.'S
00007 1 77774 4 00010 TXI *+1,4,-4 NORMAL RETURN IN 4,4
00010 0774 00 1 00000 XR1 AXT **,1 RESTORE XR1
00011 0020 00 4 00000 TRA 0,4 AND GO HOME
00011 TCOAB SYN *-1 WAIT UNTIL I/O IS COMPELED
00012 0060 00 0 00004 TCOA BACK ON A
00013 0061 00 0 00004 TCOB BACK OR ON B
00013 TRCAB SYN *-1 TEST FOR REDUNDANCY CHECKS
00014 0022 00 0 00020 TRCA ERROR ON A
00015 -0022 00 0 00020 TRCB ERROR OR ON B
00015 TEFAB SYN *-1 TEST FOR AN E.O.F.
00016 0030 00 0 00021 TEFA EOF ON A
00017 -0030 00 0 00021 TEFB EOF OR ON B
00020 1 77776 4 00010 ERROR TXI XR1,4,-2 REDUN CHECKS RETURNS TO 2,4
00021 1 77775 4 00010 EOF TXI XR1,4,-3 EOF RETURNS TO 3,4
00020 ERR SYN ERROR BAD CHAN IS SAME AS REDUN CHECK
END
1 TPWAIT - WAIT UNTIL I/O ON A OR B CHAN IS DONE. PROCESS ERRORS. PAGE 1
POST PROCESSOR ASSEMBLY DATA
22 IS THE FIRST LOCATION NOT USED BY THIS PROGRAM
0REFERENCES TO DEFINED SYMBOLS
21 EOF 16, 17
20 ERR 3, 22
10 XR1 0, 20, 21
4 BACK 12, 13
20 ERROR 14, 15, 22
11 TCOAB 4, 12
15 TEFAB 6, 16
13 TRCAB 5, 14
0 TPWAIT 0
0 NO ERROR IN ABOVE ASSEMBLY.
TIAS BCD 04/16/68 1636.9 444 00000
1 TIAS USED BY THE DAEMON PRIMER (BACKGROUND VERSION) PAGE 1
* R. A. ROACH 4/16/68
*
00002 ENTRY SETIO
00003 ENTRY ATTACH
00004 ENTRY OPEN
00005 ENTRY BUFFER
00006 ENTRY WRFILE
00007 ENTRY CLOSE
00010 ENTRY CHFILE
00011 ENTRY DELFIL
00012 ENTRY WRFLX
00013 ENTRY PRINT
LINKAGE DIRECTOR
00000 000000000000
00001 622563314660
00002 0021 00 4 00002 SETIO XIT 2,4
00003 0101 00 0 00014 ATTACH TIA =HATTACH
00004 0101 00 0 00021 OPEN TIA =HOPEN
00005 0101 00 0 00015 BUFFER TIA =HBUFFER
00006 0101 00 0 00023 WRFILE TIA =HWRFILE
00007 0101 00 0 00017 CLOSE TIA =HCLOSE
00010 0101 00 0 00016 CHFILE TIA =HCHFILE
00011 0101 00 0 00020 DELFIL TIA =HDELFIL
00012 0101 00 0 00022 WRFLX TIA =HPRINT
00013 0101 00 0 00022 PRINT TIA =HPRINT
END
LITERALS
00014 216363212330
00015 226426262551
00016 233026314325
00017 234346622560
00020 242543263143
00021 464725456060
00022 475131456360
00023 665126314325
1 TIAS USED BY THE DAEMON PRIMER (BACKGROUND VERSION) PAGE 1
POST PROCESSOR ASSEMBLY DATA
24 IS THE FIRST LOCATION NOT USED BY THIS PROGRAM
0REFERENCES TO DEFINED SYMBOLS
4 OPEN 0
7 CLOSE 0
13 PRINT 0
2 SETIO 0
12 WRFLX 0
3 ATTACH 0
5 BUFFER 0
10 CHFILE 0
11 DELFIL 0
6 WRFILE 0
0 NO ERROR IN ABOVE ASSEMBLY.
EXTKLU BCD 04/16/68 1636.9 582 00000
1 DUMMY EXIT AND SETUP SUBROUTINES PAGE 1
* WRITTEN TO BRING FMS BACK TO LIFE BY STUART SCHNAFFER
BCORE
00003 ENTRY EXIT
00035 ENTRY .SETUP
EXTERN PRINT
TRANSFER VECTOR
00000 475131456360 PRINT
LINKAGE DIRECTOR
00001 000000000000
00002 256731636060
00003 0564 00 0 00050 EXIT ENB =0
00004 0074 00 4 00000 TSX PRINT,4 PRINT MESSAGE TO OPERATOR
00005 0 00010 0 00040 PZE MESS,,8
00006 0060 00 0 00006 TCOA *
00007 0061 00 0 00007 TCOB *
00010 0760 00 0 01352 RDCA
00011 0760 00 0 02352 RDCB
00012 0760 00 0 00004 ENK
00013 -0130 00 0 00000 XCL
00014 -0340 00 0 00051 LAS =O700000000000
00015 0761 00 0 00000 NOP
00016 0000 00 0 00017 HTR *+1
00017 0774 00 4 00012 AXT 10,4
00020 0772 00 0 01201 EXIT1 REWA 1
00021 0762 00 0 01221 RTBA 1
00022 0540 00 0 00033 RCHA LDFIOP
00023 0060 00 0 00023 TCOA *
00024 0022 00 0 00031 TRCA A1BAD
00025 0030 00 0 00031 TEFA A1BAD
00026 0762 00 0 01221 RTBA 1
00027 0762 00 0 01221 RTBA 1
00030 0020 00 0 00001 TRA 1
00031 2 00001 4 00020 A1BAD TIX EXIT1,4,1
00032 0000 00 0 00020 HTR EXIT1
00033 -0 00003 1 00000 LDFIOP IOCP 0,,3
00034 1 00000 1 00000 TCH 0
00035 -0760 00 0 00004 .SETUP LFTM
00036 0000 00 0 00037 HTR *+1 PAUSE FOR OPERATOR
00037 0020 00 4 00001 TRA 1,4
00040 606060475131 MESS BCI 8, PRIMER FINISHED, EXIT CALLED.
00041 442551602631
00042 453162302524
00043 736025673163
00044 602321434325
00045 243360606060
00046 606060606060
00047 606060606060
END
LITERALS
00050 000000000000
00051 700000000000
1 DUMMY EXIT AND SETUP SUBROUTINES PAGE 1
POST PROCESSOR ASSEMBLY DATA
52 IS THE FIRST LOCATION NOT USED BY THIS PROGRAM
0REFERENCES TO DEFINED SYMBOLS
3 EXIT 0
40 MESS 5
31 A1BAD 24, 25
20 EXIT1 31, 32
0 PRINT 4
35 .SETUP 0
33 LDFIOP 22
0 NO ERROR IN ABOVE ASSEMBLY.
Reference in New Issue View Git Blame Copy Permalink