|
DataMuseum.dkPresents historical artifacts from the history of: Philips Data Systems |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about Philips Data Systems Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - metrics - download
Length: 14554 (0x38da)
Notes: pts_type(SC)
Names: »WUPRF.SC«
└─⟦f45ea3bc3⟧ Bits:30009713 Philips computer tape "WSM"
└─⟦this⟧ »WSM:UTIL/WUPRF.SC«
IDENT WUPRF REL=2.3,841001,870155940230 ************************************** * WORK STATION MANAGEMENT * * UTILITY PROGRAMS * * 6 PRINT FILE * * * ************************************** ** HISTORY: ** 83-06-30/MAER UFERR INTRODUCED AS ERROR-ROUTINE AFTER P&F-HANDLER CALLS. ** FILES NOW CLOSED AS MANY TIMES AS OPENED. ** OPEN: 1. OPENF 2. 1ST PREAD ** CLOSE: 1. CLOSEF 2. PCLOSE ** 83-06-22/MAER "RETURN" ALLOWED WHEN NEW PAGE. ** 83-05-11/MAER CHANGED DECORATIONS. ** 82-11-29/MAER PAGING ON VD82 SOLVED. ** 82-11-04/MAER INCREASED ITEM FOR SECTION SIZE. DDUM WUDIV PDIV ENTRY WUPRF * EXPROC DECLRA CRE= SCREEN ROUTINE EXPROC DECLRN EXPROC DERR CRE= ERROR ROUTINE EXPROC DISERR EXPROC UFERR EXPROC DSKERR,PBIN EXPROC DERROR,PKTAB EXPROC CHVNAM,PSTRG,PBIN CRE= CHANGE VOLUMENAME PARAM: NEW NAME, F.C. EXPROC HALT * EXT RDSECT ASS= READ A SECTOR EXT PRINTF ASS= PRINT FILE EXT BINBCD ASS= TWO BINARY ITEMS TO BCD EXT BCDBIN ASS= BCD TO TWO BINARY ITEMS EXT OPENF ASS= OPEN FILE EXT CLOSEF ASS= CLOSE FILE EXT READDK ASS= READ A RECORD EXT CHANFC ASS= CHANGE FILECODE EXT PREAD ASS= WSM-READ EXT PCLOSE ASS= WSM-CLOSE EXT GETIND ASS= GET DIMENSION EXT EMPTYT ASS= CHECK IF EMPTY ITEM EXT RCGET ASS= GET RETURN-CODE INCLUDE WULIT,LIST EJECT WUPRF PROC ****************** * 6 PRINT FILE * ****************** TBT BOOL1,PRF050 B PFCONT PRF050 ATTFMT FUPRINT SET DEPROMPT PRF100 PERF DECLRA PRF150 IB DEBINW2, C PRF100, CANC, C RETUR, RETUR, C PRF200 ENTER PERF DSKERR,W0 'BELL' B PRF150 PRF200 MOVE BIN5,W0 NO. OF EXTENTS MOVE BCDI21(W3),=D'00' USED FOR START RECNO PRF210 MOVE BCDI21(W2),=D'00' USED FOR NO. OF RECS MOVE BIN1,W0 SECTOR NO. CALL RDSECT,DISK,BIN1,SYSBUF,RETCOD READ VOLUME-LABEL BNOK PRF550 XCOPY BIN1,W0,W2,SYSBUF,W10 FSAT BASE MOVE DKBIN2,=W'46' FSAT-LENGTH DISPLACEMENT XCOPY DKBIN1,W0,W2,SYSBUF,DKBIN2 FSAT-LENGTH XCOPY DKBIN2,W0,W2,SYSBUF,W6 ADM-LENGTH XCOPY DKBIN3,W0,W2,SYSBUF,W12 VTOC-REC-LEGTH ADD DKBIN3,W1 OCCUPYED BYTE SUB DKBIN2,DKBIN1 GET NO. OF VTOC RECS ADD BIN1,DKBIN1 START OF VTOC PRF220 CALL RDSECT,DISK,BIN1,SYSBUF,RETCOD READ ONESECTOR BNOK PRF550 MOVE BIN4,W0 DISP TO FILENAME PRF240 MOVE BIN3,W0 MATCH FILNAM,BIN3,W8,SYSBUF,BIN4,W8 BOK PRF300 FILENAME FOUND PRF260 ADD BIN4,DKBIN3 GET NEXT VTOC ENTRY CBL BIN4,=W'240',PRF240 ALL ENTRIES HANDLED SUB DKBIN2,W1 MORE VTOC RECORDS BNZ PRF280 YES PERF DSKERR,W12 B PRF150 PRF280 ADD BIN1,W1 READ NEXT VTOC RECORD B PRF220 PRF300 MOVE BIN2,BIN4 BIN4 -> FILENAME ADD BIN2,W10 BIN2 -> FEN XCOPY BIN3,W0,W2,SYSBUF,BIN2 BIN2 := FEN CBNE BIN3,BIN5,PRF260 BIN5 = WANTED EXTENT ADD BIN2,W2 BIN2 -> FEL XCOPY BIN10,W0,W2,SYSBUF,BIN2 BIN10 := FEL ADD BIN2,W2 BIN2 -> FEL XCOPY BIN11,W0,W2,SYSBUF,BIN2 BIN11 := FEL CALL BINBCD,BIN10,BIN11,BCDI21(W4) ADD BCDI21(W4),BCDI21(W3) CBNG NOREC,BCDI21(W4),PRF340 ADD BIN5,W1 MOVE BCDI21(W3),BCDI21(W4) B PRF210 PRF340 XCOPY PBLOCK,W6,W1,FCOD2,W1 FC3= FILECODE PRINTER XCOPY PBLOCK,W7,W1,FCOD,W1 FC4= FILECODE DISKIN ADD BIN2,W2 DISP TO START SECTOR XCOPY BIN10,W0,W2,SYSBUF,BIN2 ADD BIN2,W2 XCOPY BIN11,W0,W2,SYSBUF,BIN2 CALL BINBCD,BIN10,BIN11,BCDI21(W1) SUB BCDI21(W1),BCDI21(W3) SUB NOREC,=D'+1' ADD BCDI21(W1),NOREC GET FROM SECTOR.NO. CALL BCDBIN,BCDI21(W1),BIN10,BIN11 XCOPY PBLOCK,W10,W2,BIN10,W0 FROM SECTORNUMBER XCOPY PBLOCK,W12,W2,BIN11,W0 XCOPY PBLOCK,W14,W2,BIN10,W0 TO SECTORNUMBER XCOPY PBLOCK,W16,W2,BIN11,W0 CALL PRINTF,PBLOCK,BPOOL(W5),BPOOL(W10),RETCOD CBE RETCOD,W0,PRF600 PRF550 PERF DISERR B PRF150 PRF600 CBNE FCOD2,SCRNFC,PRF620 PRINTER PERF HALT PRF620 ADD NOREC,=D'+1' CBE RECNUM,NOREC,PRF700 ADD NOREC,=D'+1' B PRF300 PRF700 SET DEPROMPT THOME PERF DECLRN B PRF150 EJECT * * PRINT FILE TABLE OF CONTENTS * PFCONT ATTFMT FUPRINT SET DEPROMPT SET BOOL2 PFC100 PERF DECLRA IB DEBINW2,PFC100,RETUR * * START OF FIRST CHAIN * - BIN14 = STARTLINE OF PAGE (1 OR 6) * - BIN15 = PAGE-SIZE (24 OR 44) * ATTFMT FHEX THOME PERF CHVNAM,VOLEX1,FCOD CHANGE NAME TO TEMP. BNOK PFC132 CALL OPENF,DISK,FILECODE(W1),SYSBUF,FILNAM,VOLEX1,RETCOD CALL CHANFC,DEDSPRT,FCOD2 ---CHANGE OUTPUT DEVICE MOVE BCD13A,W1 PAGE NO:=1 MOVE BIN9,W64 LINE-COUNTER:=HIGH-VALUE MOVE BIN5,W10 START OF FIRST CHAIN MOVE BIN12,W0 NUMB OF OCC SECTORS:=0 EJECT * * NEXT CHAIN * PFC120 MOVE RECNUM,BIN5 READ A CHAINRECORD PFC130 CALL CHANFC,DISK,FCOD1 CALL READDK,DISK,FILECODE(W1),RBUF,SECLEN,RECNUM,RETCOD BOK PFC140 PFC132 MOVE STR6A,HEX00 CALL RCGET,RETCOD,STR6A MOVE DEBINW4,W22 PERF DERROR,DEKTAB4 IB DEBINW2,PFC135,PFC210,PFC210 PFC135 CBNE FCOD2,SCRNFC,PFC130 PERF CURSET ***SET CURSER AFTER ERROR B PFC130 * * INITIATE FOR FIRST ENTRY * PFC140 MOVE BIN10,W14 DISP TO FIRST ENTRY MOVE BIN11,W24 NO. OF ENTRIES EJECT * * NEXT ENTRY * PFC150 MOVE BIN4,BIN10 XCOPY DTEST,W0,W1,RBUF,BIN4 LOAD TYPE ADD BIN4,W1 DISP TO NAME XCOPY STR6B,W0,W6,RBUF,BIN4 CALL EMPTYT,STR6B ---CHECK IF EMPTY ITEM BNOK PFC190 JMP IF EMPTY ADD BIN4,W7 XCOPY BIN16,W0,W2,RBUF,BIN4 LOAD SECTOR NUMBER MOVE BCD5A,BIN16 CONVERT SECTOR TO BCD PFC155 XCOPY PBLOCK,W5,W7,RBUF,BIN10 TYPE AND NAME CALL GETIND,BPOOL(W1),BIN7,BIN6 XCOPY PBLOCK,W14,W2,BIN6,W0 MOVE BIN6,W26 XCOPY PBLOCK,BIN6,W8,FILNAM,W0 ADD BIN6,W8 XCOPY PBLOCK,BIN6,W6,VOLEX1,W0 CALL PREAD,PBLOCK,BPOOL(W1) WSM-READ. NOTE: OPEN-FILE 1ST TIME! BOK PFC170 XCOPY RETCOD,W0,W2,PBLOCK,W20 PERF UFERR IB DEBINW2,PFC160,PFC170,PFC210 PFC160 CBNE FCOD2,SCRNFC,PFC155 PERF CURSET ***SET CURSER AFTER ERROR B PFC155 EJECT * * PRINT OUT EDITING * PFC170 MOVE BIN16,W0 WORKITEM:=0 XCOPY BIN16,W1,W1,BPOOL(W1),W18 LOAD SIZE BINARY ADD BIN12,BIN16 ADD NUMB OF OCC SECTORS MOVE BCD4A,BIN16 CONVERT SIZE BCD MOVE BIN16,W0 WORKITEM:=0 CBE DTEST,=C'D',PFC175 JMP IF DEFINITION XCOPY BIN16,W1,W1,BPOOL(W1),W22 LOAD VERSION BINARY PFC175 MOVE BCD3A,BIN16 CONVERT VERSION BCD PFC180 PERF PRINT,FPCHEAD,FPCDET, ***PRINT ONE LINE C BIN9,BIN15,BIN14,W2 IB DEBINW2,PFC185,PFC210,PFC210, CLR,CAN,RET,CFW C PFC185 B PFC190 PFC185 CBNE FCOD2,SCRNFC,PFC180 PERF CURSET ***SET CURSOR AFTER ERROR B PFC180 EJECT * * NEXT ENTRY OR NEXT CHAIN * PFC190 SUB BIN11,W1 NO. OF ENTRIES BZ PFC200 ALL HANDLED ADD BIN10,W10 TAKE NEXT B PFC150 * * CHANGE FOR NEXT CHAIN RECORD * PFC200 XCOPY BIN1,W0,W2,RBUF,W2 LINK NEXT XCOPY BIN2,W0,W2,RBUF,W4 CALL BINBCD,BIN1,BIN2,RECNUM CBNE BIN2,W0,PFC130 LINK FWD CBNE BIN1,W0,PFC130 ADD BIN5,W1 MOVE BIN6,W26 CBE BIN5,BIN6,PFC205 B PFC120 PFC205 MOVE BCD5A,BIN12 LOAD NUMB OF OCC SECTORS BCD ADD BIN9,W1 INCREMENT LINE NUMBER PERF PRINT,FPCHEAD,FPCTOT, ***PRINT ONE LINE C BIN9,BIN15,BIN14,W2 CBNE FCOD2,SCRNFC,PFC210 JMP IF NOT VDU PERF HALT ***HALT WHEN VDU EJECT * * END OF FREE SPACE CHAIN * PFC210 MOVE NOREC,=D'00' MOVE FCOD2,=X'0036' DEFAULT OUTPUT DEVICE CALL CHANFC,DEDSPRT,FCOD2 ---CHANGE OUTPUT DEVICE CALL CHANFC,DISK,FCOD1 PFC220 CALL CLOSEF,DISK,FILECODE(W1),RBUF,NOREC,RETCOD * BOK PFC220 DELETED 83-06-30 CALL PCLOSE,PBLOCK,BPOOL(W1) PERF CHVNAM,VOLNAM,FCOD CHANGE NAME TO ORIGIN B PFCONT RETUR RET PEND EJECT * * SET CURSOR AFTER ERROR-MESSAGE * CURSET PROC MOVE BIN16,BIN9 LOAD CURRENT LINE NO SUB BIN16,W1 ADJUST XCOPY BIN16,W0,W1,BIN16,W1 LINE:=ADJUSTED LINENO XCOPY BIN16,W1,W1,W1,W1 COLUMN:=1 DSC1 DEDSPRT,6,BIN16 SET CURSOR RET PEND EJECT * * THIS ROUTINE PRINT ONE LINE ON THE LINE PRINTER. * THE FORMAT OF THE LINE IS DECIDED OF THE * PARAMETER 'LINE'. IF PAGE OVERFLOW OCCURS, * THE HEADER FORMAT WILL BE PRINTED OUT. HEADER * FORMAT IS DECIDED OF THE PARAMETER * 'HEADER'. * * INPUT PARAMETERS: HEADER = HEADER FORMAT * LINE = LINE FORMAT * LINENO = ACTUAL LINE NUMBER * LINMAX = MAXIMUM NUMBER OF LINES IN ONE P * LINEST = LINE START VALUE * HLINES = NUMBER OF LINES IN HEADER * OUTPUT VARIABLE : DEBINW2 = 0 OK * (= 1 CLEAR-KEY, TRY AGAIN) * = 2 CANCEL-KEY * = 3 RET-KEY * ************************************************************************ PRINT PROC HEADER,LINE,LINENO,LINMAX,LINEST,HLINES PFRMT HEADER PFRMT LINE PBIN LINENO PBIN LINMAX PBIN LINEST PBIN HLINES MOVE DEBINW2,W0 CLEAR ERROR-SIGNAL EJECT CBNG LINENO,LINMAX,PRI300 JUMP IF LINMAX NOT REACHED CBNE FCOD2,SCRNFC,PRI100 JMP IF NOT VDU PERF HALT ***HALT IF VDU SUB BIN2,W1 BIN2 HOLDES KEY INDEX: BZ PRI100 1 = ENTER => PROCEED MOVE DEBINW2,W3 2 = RETURN B PRI999 PRI100 EDWRT DEDSPRT,FORMF FORM-FEED=NEW PAGE EDWRT DEDSPRT,HEADER PRINT HEADER BNOK PRI350 JUMP IF NOT OK PRI200 ADD BCD13A,=D'+1' INCREMENT PAGENR MOVE LINENO,LINEST REINSTATE LINENUMBER ADD LINENO,HLINES ADJUST FOR HEADLINES PRI300 EDWRT DEDSPRT,LINE PRINT DETAIL-LINE BOK PRI400 JUMP IF OK PRI350 MOVE DEBINW4,W3 PRINTER NOT OPERABLE PERF DERROR,DEKTAB4 ***(ERROR-)MESSAGE ROUTINE B PRI999 JUMP ON CLR, CANC OR RET-KEY PRI400 ADD LINENO,W1 INCREMENT LINE-NUMBER MOVE DEBINW2,W0 OK PRI999 RET PEND EJECT * FUPRINT FRMT FSL FATTR .HIGH FATTR .INV FCOPY =C'PRINT FILE TABLE OF CONTENTS' FNL FATTR .HIGH FCOPY =C'UNIT:' FKI 6,MINL=3,MAXL=3,ME,ALPHA,NEOI,APPL=5 FCOPY INUNIT FATTR .HIGH FTAB 12 FCOPY =C'VOLUME-NAME:' FINP 25 FCOPY VOLNAM FNL FATTR .HIGH FCOPY =C'FILENAME:' FKI 10,MINL=1,MAXL=8,ME,REWRT,APPL=16,ALPHA,NEOI FCOPY FILNAM FBF BOOL1,FUP100 FNL FNL FATTR .HIGH FCOPY =C'FROM RECORD NO.:' FKI 17,MINL=1,MAXL=5,ME,NEOI,REWRT,APPL=4 FROM RECORD FMEL 'TTTTX',NOREC FNL FATTR .HIGH FCOPY =C'TO RECORD NO.:' FKI 17,MINL=1,MAXL=5,ME,NEOI,REWRT,APPL=4 TO RECORD FMEL 'TTTTX',RECNUM FNL FUP100 FNL FATTR .HIGH FTEXT 'PRINT OUTPUT DEVICE:' FKI 21,MINL=2,MAXL=2,ME,ALPHA,REWRT,NEOI,APPL=11 FCOPY STR2A FMEND FHEX FRMT FSL FKI 1 FCOPY HEX00 FMEND EJECT * * HEADER LINE * FPCHEAD FRMT FTEXT ' +' PRINT WITHOUT ADVANCING FCOPY =C'PRINT FILE TABLE OF CONTENTS' FILLR ' ',1 FCOPY ='FILE:' FCOPY FILNAM FTEXT ' ON VOLUME:' FCOPY VOLNAM FTEXT ' PAGE:' FMEL 'ZZ9',BCD13A PAGE NO FEOR FLINK FPCRUB FMEND EJECT * * RUBRIK LINE * FPCRUB FRMT FILLR ' ',2 FTEXT 'NAME TYPE SIZE VERSION SECTOR' FMEND * * DETAIL LINE * FPCDET FRMT FILLR ' ',2 FCOPY STR6B FTAB 13 FCOPY DTEST TYPE FTAB 16 FMEL 'ZZ9',BCD4A SIZE FTAB 24 FMEL 'ZZZ',BCD3A VERSION NUMBER FTAB 31 FMEL 'ZZ9',BCD5A SECTOR NUMBER FMEND EJECT * * TOTAL LINE * FPCTOT FRMT FILLR ' ',2 FEOR FILLR ' ',2 FTEXT 'OCCUPIED SECTORS:' FTAB 27 FMEL 'ZZZVZZ9',BCD5A NUMB OF OCC SECTORS FMEND * * FORM FEED * FORMF FRMT FTEXT ' 1' FMEND END
0x0000…0030 (0, 0, 400) Head {h00=0x002c, h01=0x0050, text=» IDENT WUPRF REL=2.3,841001,870155940230«, t00=0x0000, t01=0x0004}
0x0030…005e Head {h00=0x002a, h01=0x0050, text=»**************************************«, t00=0x0000, t01=0x0034}
0x005e…008c Head {h00=0x002a, h01=0x0050, text=»* WORK STATION MANAGEMENT *«, t00=0x0000, t01=0x0062}
0x008c…00ba Head {h00=0x002a, h01=0x0050, text=»* UTILITY PROGRAMS *«, t00=0x0000, t01=0x0090}
0x00ba…00e8 Head {h00=0x002a, h01=0x0050, text=»* 6 PRINT FILE *«, t00=0x0000, t01=0x00be}
0x00e8…0116 Head {h00=0x002a, h01=0x0050, text=»* *«, t00=0x0000, t01=0x00ec}
0x0116…0144 Head {h00=0x002a, h01=0x0050, text=»**************************************«, t00=0x0000, t01=0x011a}
0x0144…014c Head {h00=0x0004, h01=0x0050, t00=0x0000, t01=0x0148}
0x014c…0154 Head {h00=0x0004, h01=0x0050, t00=0x0000, t01=0x0150}
0x0154…0168 Head {h00=0x0010, h01=0x0050, text=»** HISTORY: «, t00=0x0000, t01=0x0158}
0x0168…0170 Head {h00=0x0004, h01=0x0050, t00=0x0000, t01=0x016c}
0x0170…01c4 Head {h00=0x0050, h01=0x0050, text=»** 83-06-30/MAER UFERR INTRODUCED AS ERROR-ROUTINE AFTER P&F-HANDLER CALLS.«, t00=0x0000, t01=0x0174}
0x01c4…0208 Head {h00=0x0040, h01=0x0050, text=»** FILES NOW CLOSED AS MANY TIMES AS OPENED. «, t00=0x0001, t01=0x0038}
0x0208…0242 Head {h00=0x0036, h01=0x0050, text=»** OPEN: 1. OPENF 2. 1ST PREAD «, t00=0x0001, t01=0x007c}
0x0242…0278 Head {h00=0x0032, h01=0x0050, text=»** CLOSE: 1. CLOSEF 2. PCLOSE«, t00=0x0001, t01=0x00b6}
0x0278…02b2 Head {h00=0x0036, h01=0x0050, text=»** 83-06-22/MAER "RETURN" ALLOWED WHEN NEW PAGE. «, t00=0x0001, t01=0x00ec}
0x02b2…02e0 Head {h00=0x002a, h01=0x0050, text=»** 83-05-11/MAER CHANGED DECORATIONS.«, t00=0x0001, t01=0x0126}
0x02e0…0310 Head {h00=0x002c, h01=0x0050, text=»** 82-11-29/MAER PAGING ON VD82 SOLVED.«, t00=0x0001, t01=0x0154}
0x0310…034a Head {h00=0x0036, h01=0x0050, text=»** 82-11-04/MAER INCREASED ITEM FOR SECTION SIZE.«, t00=0x0001, t01=0x0184}
0x034a…0352 Head {h00=0x0004, h01=0x0050, t00=0x0002, t01=0x002e}
0x0352…035a Head {h00=0x0004, h01=0x0050, t00=0x0002, t01=0x0036}
0x035a…036e Head {h00=0x0010, h01=0x0050, text=» DDUM WUDIV «, t00=0x0002, t01=0x003e}
0x036e…037c Head {h00=0x000a, h01=0x0050, text=» PDIV «, t00=0x0002, t01=0x0052}
0x037c…0390 Head {h00=0x0010, h01=0x0050, text=» ENTRY WUPRF«, t00=0x0002, t01=0x0060}
0x0390…039a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x0074}
0x039a…03c4 Head {h00=0x0026, h01=0x0050, text=» EXPROC DECLRA CRE= SCREEN ROUTINE«, t00=0x0002, t01=0x007e}
0x03c4…03da Head {h00=0x0012, h01=0x0050, text=» EXPROC DECLRN«, t00=0x0002, t01=0x00a8}
0x03da…0402 Head {h00=0x0024, h01=0x0050, text=» EXPROC DERR CRE= ERROR ROUTINE «, t00=0x0002, t01=0x00be}
0x0402…0418 Head {h00=0x0012, h01=0x0050, text=» EXPROC DISERR«, t00=0x0002, t01=0x00e6}
0x0418…042e Head {h00=0x0012, h01=0x0050, text=» EXPROC UFERR «, t00=0x0002, t01=0x00fc}
0x042e…044a Head {h00=0x0018, h01=0x0050, text=» EXPROC DSKERR,PBIN «, t00=0x0002, t01=0x0112}
0x044a…0466 Head {h00=0x0018, h01=0x0050, text=» EXPROC DERROR,PKTAB«, t00=0x0002, t01=0x012e}
0x0466…049e Head {h00=0x0034, h01=0x0050, text=» EXPROC CHVNAM,PSTRG,PBIN CRE= CHANGE VOLUMENAME«, t00=0x0002, t01=0x014a}
0x049e…04be Head {h00=0x001c, h01=0x0050, text=» PARAM: NEW NAME, F.C.«, t00=0x0002, t01=0x0182}
0x04be…04d2 Head {h00=0x0010, h01=0x0050, text=» EXPROC HALT«, t00=0x0003, t01=0x0012}
0x04d2…04dc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x0026}
0x04dc…0502 Head {h00=0x0022, h01=0x0050, text=» EXT RDSECT ASS= READ A SECTOR«, t00=0x0003, t01=0x0030}
0x0502…0526 Head {h00=0x0020, h01=0x0050, text=» EXT PRINTF ASS= PRINT FILE «, t00=0x0003, t01=0x0056}
0x0526…0556 Head {h00=0x002c, h01=0x0050, text=» EXT BINBCD ASS= TWO BINARY ITEMS TO BCD«, t00=0x0003, t01=0x007a}
0x0556…0586 Head {h00=0x002c, h01=0x0050, text=» EXT BCDBIN ASS= BCD TO TWO BINARY ITEMS«, t00=0x0003, t01=0x00aa}
0x0586…05a8 Head {h00=0x001e, h01=0x0050, text=» EXT OPENF ASS= OPEN FILE «, t00=0x0003, t01=0x00da}
0x05a8…05cc Head {h00=0x0020, h01=0x0050, text=» EXT CLOSEF ASS= CLOSE FILE «, t00=0x0003, t01=0x00fc}
0x05cc…05f2 Head {h00=0x0022, h01=0x0050, text=» EXT READDK ASS= READ A RECORD«, t00=0x0003, t01=0x0120}
0x05f2…061a Head {h00=0x0024, h01=0x0050, text=» EXT CHANFC ASS= CHANGE FILECODE«, t00=0x0003, t01=0x0146}
0x061a…063a Head {h00=0x001c, h01=0x0050, text=» EXT PREAD ASS= WSM-READ«, t00=0x0003, t01=0x016e}
0x063a…065c Head {h00=0x001e, h01=0x0050, text=» EXT PCLOSE ASS= WSM-CLOSE«, t00=0x0003, t01=0x018e}
0x065c…0682 Head {h00=0x0022, h01=0x0050, text=» EXT GETIND ASS= GET DIMENSION«, t00=0x0004, t01=0x0020}
0x0682…06ae Head {h00=0x0028, h01=0x0050, text=» EXT EMPTYT ASS= CHECK IF EMPTY ITEM«, t00=0x0004, t01=0x0046}
0x06ae…06d6 Head {h00=0x0024, h01=0x0050, text=» EXT RCGET ASS= GET RETURN-CODE «, t00=0x0004, t01=0x0072}
0x06d6…06f2 Head {h00=0x0018, h01=0x0050, text=» INCLUDE WULIT,LIST «, t00=0x0004, t01=0x009a}
0x06f2…0700 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0004, t01=0x00b6}
0x0700…0712 Head {h00=0x000e, h01=0x0050, text=»WUPRF PROC«, t00=0x0004, t01=0x00c4}
0x0712…072c Head {h00=0x0016, h01=0x0050, text=»******************«, t00=0x0004, t01=0x00d6}
0x072c…0746 Head {h00=0x0016, h01=0x0050, text=»* 6 PRINT FILE *«, t00=0x0004, t01=0x00f0}
0x0746…0760 Head {h00=0x0016, h01=0x0050, text=»******************«, t00=0x0004, t01=0x010a}
0x0760…077a Head {h00=0x0016, h01=0x0050, text=» TBT BOOL1,PRF050 «, t00=0x0004, t01=0x0124}
0x077a…078c Head {h00=0x000e, h01=0x0050, text=» B PFCONT «, t00=0x0004, t01=0x013e}
0x078c…079a Head {h00=0x000a, h01=0x0050, text=»PRF050«, t00=0x0004, t01=0x0150}
0x079a…07b2 Head {h00=0x0014, h01=0x0050, text=» ATTFMT FUPRINT «, t00=0x0004, t01=0x015e}
0x07b2…07c8 Head {h00=0x0012, h01=0x0050, text=» SET DEPROMPT «, t00=0x0004, t01=0x0176}
0x07c8…07d6 Head {h00=0x000a, h01=0x0050, text=»PRF100«, t00=0x0004, t01=0x018c}
0x07d6…07ea Head {h00=0x0010, h01=0x0050, text=» PERF DECLRA«, t00=0x0005, t01=0x000a}
0x07ea…07f8 Head {h00=0x000a, h01=0x0050, text=»PRF150«, t00=0x0005, t01=0x001e}
0x07f8…0810 Head {h00=0x0014, h01=0x0050, text=» IB DEBINW2, C «, t00=0x0005, t01=0x002c}
0x0810…082a Head {h00=0x0016, h01=0x0050, text=» PRF100, CANC, C «, t00=0x0005, t01=0x0044}
0x082a…0844 Head {h00=0x0016, h01=0x0050, text=» RETUR, RETUR, C «, t00=0x0005, t01=0x005e}
0x0844…085a Head {h00=0x0012, h01=0x0050, text=» PRF200 ENTER«, t00=0x0005, t01=0x0078}
0x085a…0878 Head {h00=0x001a, h01=0x0050, text=» PERF DSKERR,W0 'BELL'«, t00=0x0005, t01=0x008e}
0x0878…088a Head {h00=0x000e, h01=0x0050, text=» B PRF150 «, t00=0x0005, t01=0x00ac}
0x088a…0898 Head {h00=0x000a, h01=0x0050, text=»PRF200«, t00=0x0005, t01=0x00be}
0x0898…08bc Head {h00=0x0020, h01=0x0050, text=» MOVE BIN5,W0 NO. OF EXTENTS«, t00=0x0005, t01=0x00cc}
0x08bc…08f2 Head {h00=0x0032, h01=0x0050, text=» MOVE BCDI21(W3),=D'00' USED FOR START RECNO «, t00=0x0005, t01=0x00f0}
0x08f2…0900 Head {h00=0x000a, h01=0x0050, text=»PRF210«, t00=0x0005, t01=0x0126}
0x0900…0934 Head {h00=0x0030, h01=0x0050, text=» MOVE BCDI21(W2),=D'00' USED FOR NO. OF RECS«, t00=0x0005, t01=0x0134}
0x0934…0954 Head {h00=0x001c, h01=0x0050, text=» MOVE BIN1,W0 SECTOR NO.«, t00=0x0005, t01=0x0168}
0x0954…0992 Head {h00=0x003a, h01=0x0050, text=» CALL RDSECT,DISK,BIN1,SYSBUF,RETCOD READ VOLUME-LABEL«, t00=0x0005, t01=0x0188}
0x0992…09a6 Head {h00=0x0010, h01=0x0050, text=» BNOK PRF550«, t00=0x0006, t01=0x0036}
0x09a6…09d4 Head {h00=0x002a, h01=0x0050, text=» XCOPY BIN1,W0,W2,SYSBUF,W10 FSAT BASE«, t00=0x0006, t01=0x004a}
0x09d4…0a08 Head {h00=0x0030, h01=0x0050, text=» MOVE DKBIN2,=W'46' FSAT-LENGTH DISPLACEMENT«, t00=0x0006, t01=0x0078}
0x0a08…0a3e Head {h00=0x0032, h01=0x0050, text=» XCOPY DKBIN1,W0,W2,SYSBUF,DKBIN2 FSAT-LENGTH «, t00=0x0006, t01=0x00ac}
0x0a3e…0a6e Head {h00=0x002c, h01=0x0050, text=» XCOPY DKBIN2,W0,W2,SYSBUF,W6 ADM-LENGTH«, t00=0x0006, t01=0x00e2}
0x0a6e…0aa4 Head {h00=0x0032, h01=0x0050, text=» XCOPY DKBIN3,W0,W2,SYSBUF,W12 VTOC-REC-LEGTH «, t00=0x0006, t01=0x0112}
0x0aa4…0ac8 Head {h00=0x0020, h01=0x0050, text=» ADD DKBIN3,W1 OCCUPYED BYTE«, t00=0x0006, t01=0x0148}
0x0ac8…0af8 Head {h00=0x002c, h01=0x0050, text=» SUB DKBIN2,DKBIN1 GET NO. OF VTOC RECS «, t00=0x0006, t01=0x016c}
0x0af8…0b1e Head {h00=0x0022, h01=0x0050, text=» ADD BIN1,DKBIN1 START OF VTOC«, t00=0x0007, t01=0x000c}
0x0b1e…0b2c Head {h00=0x000a, h01=0x0050, text=»PRF220«, t00=0x0007, t01=0x0032}
0x0b2c…0b68 Head {h00=0x0038, h01=0x0050, text=» CALL RDSECT,DISK,BIN1,SYSBUF,RETCOD READ ONESECTOR «, t00=0x0007, t01=0x0040}
0x0b68…0b7c Head {h00=0x0010, h01=0x0050, text=» BNOK PRF550«, t00=0x0007, t01=0x007c}
0x0b7c…0ba2 Head {h00=0x0022, h01=0x0050, text=» MOVE BIN4,W0 DISP TO FILENAME«, t00=0x0007, t01=0x0090}
0x0ba2…0bb0 Head {h00=0x000a, h01=0x0050, text=»PRF240«, t00=0x0007, t01=0x00b6}
0x0bb0…0bc6 Head {h00=0x0012, h01=0x0050, text=» MOVE BIN3,W0 «, t00=0x0007, t01=0x00c4}
0x0bc6…0bf2 Head {h00=0x0028, h01=0x0050, text=» MATCH FILNAM,BIN3,W8,SYSBUF,BIN4,W8«, t00=0x0007, t01=0x00da}
0x0bf2…0c14 Head {h00=0x001e, h01=0x0050, text=» BOK PRF300 FILENAME FOUND«, t00=0x0007, t01=0x0106}
0x0c14…0c22 Head {h00=0x000a, h01=0x0050, text=»PRF260«, t00=0x0007, t01=0x0128}
0x0c22…0c4e Head {h00=0x0028, h01=0x0050, text=» ADD BIN4,DKBIN3 GET NEXT VTOC ENTRY«, t00=0x0007, t01=0x0136}
0x0c4e…0c82 Head {h00=0x0030, h01=0x0050, text=» CBL BIN4,=W'240',PRF240 ALL ENTRIES HANDLED«, t00=0x0007, t01=0x0162}
0x0c82…0caa Head {h00=0x0024, h01=0x0050, text=» SUB DKBIN2,W1 MORE VTOC RECORDS«, t00=0x0008, t01=0x0008}
0x0caa…0cc2 Head {h00=0x0014, h01=0x0050, text=» BNZ PRF280 YES «, t00=0x0008, t01=0x0030}
0x0cc2…0cda Head {h00=0x0014, h01=0x0050, text=» PERF DSKERR,W12«, t00=0x0008, t01=0x0048}
0x0cda…0cec Head {h00=0x000e, h01=0x0050, text=» B PRF150 «, t00=0x0008, t01=0x0060}
0x0cec…0cfa Head {h00=0x000a, h01=0x0050, text=»PRF280«, t00=0x0008, t01=0x0072}
0x0cfa…0d24 Head {h00=0x0026, h01=0x0050, text=» ADD BIN1,W1 READ NEXT VTOC RECORD«, t00=0x0008, t01=0x0080}
0x0d24…0d36 Head {h00=0x000e, h01=0x0050, text=» B PRF220 «, t00=0x0008, t01=0x00aa}
0x0d36…0d44 Head {h00=0x000a, h01=0x0050, text=»PRF300«, t00=0x0008, t01=0x00bc}
0x0d44…0d6c Head {h00=0x0024, h01=0x0050, text=» MOVE BIN2,BIN4 BIN4 -> FILENAME«, t00=0x0008, t01=0x00ca}
0x0d6c…0d8e Head {h00=0x001e, h01=0x0050, text=» ADD BIN2,W10 BIN2 -> FEN «, t00=0x0008, t01=0x00f2}
0x0d8e…0dc0 Head {h00=0x002e, h01=0x0050, text=» XCOPY BIN3,W0,W2,SYSBUF,BIN2 BIN2 := FEN «, t00=0x0008, t01=0x0114}
0x0dc0…0df4 Head {h00=0x0030, h01=0x0050, text=» CBNE BIN3,BIN5,PRF260 BIN5 = WANTED EXTENT «, t00=0x0008, t01=0x0146}
0x0df4…0e14 Head {h00=0x001c, h01=0x0050, text=» ADD BIN2,W2 BIN2 -> FEL«, t00=0x0008, t01=0x017a}
0x0e14…0e48 Head {h00=0x0030, h01=0x0050, text=» XCOPY BIN10,W0,W2,SYSBUF,BIN2 BIN10 := FEL «, t00=0x0009, t01=0x000a}
0x0e48…0e68 Head {h00=0x001c, h01=0x0050, text=» ADD BIN2,W2 BIN2 -> FEL«, t00=0x0009, t01=0x003e}
0x0e68…0e9c Head {h00=0x0030, h01=0x0050, text=» XCOPY BIN11,W0,W2,SYSBUF,BIN2 BIN11 := FEL «, t00=0x0009, t01=0x005e}
0x0e9c…0ec8 Head {h00=0x0028, h01=0x0050, text=» CALL BINBCD,BIN10,BIN11,BCDI21(W4) «, t00=0x0009, t01=0x0092}
0x0ec8…0eea Head {h00=0x001e, h01=0x0050, text=» ADD BCDI21(W4),BCDI21(W3)«, t00=0x0009, t01=0x00be}
0x0eea…0f10 Head {h00=0x0022, h01=0x0050, text=» CBNG NOREC,BCDI21(W4),PRF340 «, t00=0x0009, t01=0x00e0}
0x0f10…0f24 Head {h00=0x0010, h01=0x0050, text=» ADD BIN5,W1«, t00=0x0009, t01=0x0106}
0x0f24…0f48 Head {h00=0x0020, h01=0x0050, text=» MOVE BCDI21(W3),BCDI21(W4) «, t00=0x0009, t01=0x011a}
0x0f48…0f5a Head {h00=0x000e, h01=0x0050, text=» B PRF210 «, t00=0x0009, t01=0x013e}
0x0f5a…0f68 Head {h00=0x000a, h01=0x0050, text=»PRF340«, t00=0x0009, t01=0x0150}
0x0f68…0fa2 Head {h00=0x0036, h01=0x0050, text=» XCOPY PBLOCK,W6,W1,FCOD2,W1 FC3= FILECODE PRINTER«, t00=0x0009, t01=0x015e}
0x0fa2…0fda Head {h00=0x0034, h01=0x0050, text=» XCOPY PBLOCK,W7,W1,FCOD,W1 FC4= FILECODE DISKIN«, t00=0x000a, t01=0x0008}
0x0fda…1004 Head {h00=0x0026, h01=0x0050, text=» ADD BIN2,W2 DISP TO START SECTOR «, t00=0x000a, t01=0x0040}
0x1004…102a Head {h00=0x0022, h01=0x0050, text=» XCOPY BIN10,W0,W2,SYSBUF,BIN2«, t00=0x000a, t01=0x006a}
0x102a…103e Head {h00=0x0010, h01=0x0050, text=» ADD BIN2,W2«, t00=0x000a, t01=0x0090}
0x103e…1064 Head {h00=0x0022, h01=0x0050, text=» XCOPY BIN11,W0,W2,SYSBUF,BIN2«, t00=0x000a, t01=0x00a4}
0x1064…1090 Head {h00=0x0028, h01=0x0050, text=» CALL BINBCD,BIN10,BIN11,BCDI21(W1) «, t00=0x000a, t01=0x00ca}
0x1090…10b2 Head {h00=0x001e, h01=0x0050, text=» SUB BCDI21(W1),BCDI21(W3)«, t00=0x000a, t01=0x00f6}
0x10b2…10cc Head {h00=0x0016, h01=0x0050, text=» SUB NOREC,=D'+1' «, t00=0x000a, t01=0x0118}
0x10cc…10fe Head {h00=0x002e, h01=0x0050, text=» ADD BCDI21(W1),NOREC GET FROM SECTOR.NO. «, t00=0x000a, t01=0x0132}
0x10fe…112a Head {h00=0x0028, h01=0x0050, text=» CALL BCDBIN,BCDI21(W1),BIN10,BIN11 «, t00=0x000a, t01=0x0164}
0x112a…1162 Head {h00=0x0034, h01=0x0050, text=» XCOPY PBLOCK,W10,W2,BIN10,W0 FROM SECTORNUMBER «, t00=0x000a, t01=0x0190}
0x1162…1188 Head {h00=0x0022, h01=0x0050, text=» XCOPY PBLOCK,W12,W2,BIN11,W0 «, t00=0x000b, t01=0x0038}
0x1188…11be Head {h00=0x0032, h01=0x0050, text=» XCOPY PBLOCK,W14,W2,BIN10,W0 TO SECTORNUMBER «, t00=0x000b, t01=0x005e}
0x11be…11e4 Head {h00=0x0022, h01=0x0050, text=» XCOPY PBLOCK,W16,W2,BIN11,W0 «, t00=0x000b, t01=0x0094}
0x11e4…121c Head {h00=0x0034, h01=0x0050, text=» CALL PRINTF,PBLOCK,BPOOL(W5),BPOOL(W10),RETCOD «, t00=0x000b, t01=0x00ba}
0x121c…123a Head {h00=0x001a, h01=0x0050, text=» CBE RETCOD,W0,PRF600 «, t00=0x000b, t01=0x00f2}
0x123a…1248 Head {h00=0x000a, h01=0x0050, text=»PRF550«, t00=0x000b, t01=0x0110}
0x1248…125c Head {h00=0x0010, h01=0x0050, text=» PERF DISERR«, t00=0x000b, t01=0x011e}
0x125c…126e Head {h00=0x000e, h01=0x0050, text=» B PRF150 «, t00=0x000b, t01=0x0132}
0x126e…127c Head {h00=0x000a, h01=0x0050, text=»PRF600«, t00=0x000b, t01=0x0144}
0x127c…12a6 Head {h00=0x0026, h01=0x0050, text=» CBNE FCOD2,SCRNFC,PRF620 PRINTER «, t00=0x000b, t01=0x0152}
0x12a6…12b8 Head {h00=0x000e, h01=0x0050, text=» PERF HALT«, t00=0x000b, t01=0x017c}
0x12b8…12c6 Head {h00=0x000a, h01=0x0050, text=»PRF620«, t00=0x000b, t01=0x018e}
0x12c6…12e0 Head {h00=0x0016, h01=0x0050, text=» ADD NOREC,=D'+1' «, t00=0x000c, t01=0x000c}
0x12e0…1300 Head {h00=0x001c, h01=0x0050, text=» CBE RECNUM,NOREC,PRF700«, t00=0x000c, t01=0x0026}
0x1300…131a Head {h00=0x0016, h01=0x0050, text=» ADD NOREC,=D'+1' «, t00=0x000c, t01=0x0046}
0x131a…132c Head {h00=0x000e, h01=0x0050, text=» B PRF300 «, t00=0x000c, t01=0x0060}
0x132c…133a Head {h00=0x000a, h01=0x0050, text=»PRF700«, t00=0x000c, t01=0x0072}
0x133a…1350 Head {h00=0x0012, h01=0x0050, text=» SET DEPROMPT «, t00=0x000c, t01=0x0080}
0x1350…135e Head {h00=0x000a, h01=0x0050, text=» THOME«, t00=0x000c, t01=0x0096}
0x135e…1372 Head {h00=0x0010, h01=0x0050, text=» PERF DECLRN«, t00=0x000c, t01=0x00a4}
0x1372…1384 Head {h00=0x000e, h01=0x0050, text=» B PRF150 «, t00=0x000c, t01=0x00b8}
0x1384…1392 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000c, t01=0x00ca}
0x1392…139c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x00d8}
0x139c…13c4 Head {h00=0x0024, h01=0x0050, text=»* PRINT FILE TABLE OF CONTENTS«, t00=0x000c, t01=0x00e2}
0x13c4…13ce Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x010a}
0x13ce…13dc Head {h00=0x000a, h01=0x0050, text=»PFCONT«, t00=0x000c, t01=0x0114}
0x13dc…13f4 Head {h00=0x0014, h01=0x0050, text=» ATTFMT FUPRINT «, t00=0x000c, t01=0x0122}
0x13f4…140a Head {h00=0x0012, h01=0x0050, text=» SET DEPROMPT «, t00=0x000c, t01=0x013a}
0x140a…141c Head {h00=0x000e, h01=0x0050, text=» SET BOOL2«, t00=0x000c, t01=0x0150}
0x141c…142a Head {h00=0x000a, h01=0x0050, text=»PFC100«, t00=0x000c, t01=0x0162}
0x142a…143e Head {h00=0x0010, h01=0x0050, text=» PERF DECLRA«, t00=0x000c, t01=0x0170}
0x143e…145e Head {h00=0x001c, h01=0x0050, text=» IB DEBINW2,PFC100,RETUR«, t00=0x000c, t01=0x0184}
0x145e…1468 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x0014}
0x1468…148c Head {h00=0x0020, h01=0x0050, text=»* START OF FIRST CHAIN «, t00=0x000d, t01=0x001e}
0x148c…14c2 Head {h00=0x0032, h01=0x0050, text=»* - BIN14 = STARTLINE OF PAGE (1 OR 6)«, t00=0x000d, t01=0x0042}
0x14c2…14f2 Head {h00=0x002c, h01=0x0050, text=»* - BIN15 = PAGE-SIZE (24 OR 44)«, t00=0x000d, t01=0x0078}
0x14f2…14fc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x00a8}
0x14fc…1510 Head {h00=0x0010, h01=0x0050, text=» ATTFMT FHEX«, t00=0x000d, t01=0x00b2}
0x1510…151e Head {h00=0x000a, h01=0x0050, text=» THOME«, t00=0x000d, t01=0x00c6}
0x151e…1554 Head {h00=0x0032, h01=0x0050, text=» PERF CHVNAM,VOLEX1,FCOD CHANGE NAME TO TEMP. «, t00=0x000d, t01=0x00d4}
0x1554…1568 Head {h00=0x0010, h01=0x0050, text=» BNOK PFC132«, t00=0x000d, t01=0x010a}
0x1568…15aa Head {h00=0x003e, h01=0x0050, text=» CALL OPENF,DISK,FILECODE(W1),SYSBUF,FILNAM,VOLEX1,RETCOD «, t00=0x000d, t01=0x011e}
0x15aa…15e4 Head {h00=0x0036, h01=0x0050, text=» CALL CHANFC,DEDSPRT,FCOD2 ---CHANGE OUTPUT DEVICE«, t00=0x000d, t01=0x0160}
0x15e4…1606 Head {h00=0x001e, h01=0x0050, text=» MOVE BCD13A,W1 PAGE NO:=1«, t00=0x000e, t01=0x000a}
0x1606…1636 Head {h00=0x002c, h01=0x0050, text=» MOVE BIN9,W64 LINE-COUNTER:=HIGH-VALUE «, t00=0x000e, t01=0x002c}
0x1636…1662 Head {h00=0x0028, h01=0x0050, text=» MOVE BIN5,W10 START OF FIRST CHAIN «, t00=0x000e, t01=0x005c}
0x1662…1690 Head {h00=0x002a, h01=0x0050, text=» MOVE BIN12,W0 NUMB OF OCC SECTORS:=0 «, t00=0x000e, t01=0x0088}
0x1690…169e Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000e, t01=0x00b6}
0x169e…16a8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x00c4}
0x16a8…16c0 Head {h00=0x0014, h01=0x0050, text=»* NEXT CHAIN«, t00=0x000e, t01=0x00ce}
0x16c0…16ca Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x00e6}
0x16ca…16d8 Head {h00=0x000a, h01=0x0050, text=»PFC120«, t00=0x000e, t01=0x00f0}
0x16d8…1704 Head {h00=0x0028, h01=0x0050, text=» MOVE RECNUM,BIN5 READ A CHAINRECORD«, t00=0x000e, t01=0x00fe}
0x1704…1712 Head {h00=0x000a, h01=0x0050, text=»PFC130«, t00=0x000e, t01=0x012a}
0x1712…1732 Head {h00=0x001c, h01=0x0050, text=» CALL CHANFC,DISK,FCOD1 «, t00=0x000e, t01=0x0138}
0x1732…1772 Head {h00=0x003c, h01=0x0050, text=» CALL READDK,DISK,FILECODE(W1),RBUF,SECLEN,RECNUM,RETCOD«, t00=0x000e, t01=0x0158}
0x1772…1786 Head {h00=0x0010, h01=0x0050, text=» BOK PFC140 «, t00=0x000f, t01=0x0008}
0x1786…1794 Head {h00=0x000a, h01=0x0050, text=»PFC132«, t00=0x000f, t01=0x001c}
0x1794…17ae Head {h00=0x0016, h01=0x0050, text=» MOVE STR6A,HEX00 «, t00=0x000f, t01=0x002a}
0x17ae…17ce Head {h00=0x001c, h01=0x0050, text=» CALL RCGET,RETCOD,STR6A«, t00=0x000f, t01=0x0044}
0x17ce…17e8 Head {h00=0x0016, h01=0x0050, text=» MOVE DEBINW4,W22 «, t00=0x000f, t01=0x0064}
0x17e8…1804 Head {h00=0x0018, h01=0x0050, text=» PERF DERROR,DEKTAB4«, t00=0x000f, t01=0x007e}
0x1804…182c Head {h00=0x0024, h01=0x0050, text=» IB DEBINW2,PFC135,PFC210,PFC210«, t00=0x000f, t01=0x009a}
0x182c…183a Head {h00=0x000a, h01=0x0050, text=»PFC135«, t00=0x000f, t01=0x00c2}
0x183a…185c Head {h00=0x001e, h01=0x0050, text=» CBNE FCOD2,SCRNFC,PFC130 «, t00=0x000f, t01=0x00d0}
0x185c…188a Head {h00=0x002a, h01=0x0050, text=» PERF CURSET ***SET CURSER AFTER ERROR«, t00=0x000f, t01=0x00f2}
0x188a…189c Head {h00=0x000e, h01=0x0050, text=» B PFC130 «, t00=0x000f, t01=0x0120}
0x189c…18a6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x0132}
0x18a6…18cc Head {h00=0x0022, h01=0x0050, text=»* INITIATE FOR FIRST ENTRY«, t00=0x000f, t01=0x013c}
0x18cc…18d6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x0162}
0x18d6…18e4 Head {h00=0x000a, h01=0x0050, text=»PFC140«, t00=0x000f, t01=0x016c}
0x18e4…1910 Head {h00=0x0028, h01=0x0050, text=» MOVE BIN10,W14 DISP TO FIRST ENTRY «, t00=0x000f, t01=0x017a}
0x1910…1936 Head {h00=0x0022, h01=0x0050, text=» MOVE BIN11,W24 NO. OF ENTRIES«, t00=0x0010, t01=0x0016}
0x1936…1944 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0010, t01=0x003c}
0x1944…194e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x004a}
0x194e…1966 Head {h00=0x0014, h01=0x0050, text=»* NEXT ENTRY«, t00=0x0010, t01=0x0054}
0x1966…1970 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x006c}
0x1970…197e Head {h00=0x000a, h01=0x0050, text=»PFC150«, t00=0x0010, t01=0x0076}
0x197e…1996 Head {h00=0x0014, h01=0x0050, text=» MOVE BIN4,BIN10«, t00=0x0010, t01=0x0084}
0x1996…19c4 Head {h00=0x002a, h01=0x0050, text=» XCOPY DTEST,W0,W1,RBUF,BIN4 LOAD TYPE«, t00=0x0010, t01=0x009c}
0x19c4…19e6 Head {h00=0x001e, h01=0x0050, text=» ADD BIN4,W1 DISP TO NAME «, t00=0x0010, t01=0x00ca}
0x19e6…1a0a Head {h00=0x0020, h01=0x0050, text=» XCOPY STR6B,W0,W6,RBUF,BIN4«, t00=0x0010, t01=0x00ec}
0x1a0a…1a3c Head {h00=0x002e, h01=0x0050, text=» CALL EMPTYT,STR6B ---CHECK IF EMPTY ITEM «, t00=0x0010, t01=0x0110}
0x1a3c…1a5e Head {h00=0x001e, h01=0x0050, text=» BNOK PFC190 JMP IF EMPTY «, t00=0x0010, t01=0x0142}
0x1a5e…1a72 Head {h00=0x0010, h01=0x0050, text=» ADD BIN4,W7«, t00=0x0010, t01=0x0164}
0x1a72…1aaa Head {h00=0x0034, h01=0x0050, text=» XCOPY BIN16,W0,W2,RBUF,BIN4 LOAD SECTOR NUMBER «, t00=0x0010, t01=0x0178}
0x1aaa…1ada Head {h00=0x002c, h01=0x0050, text=» MOVE BCD5A,BIN16 CONVERT SECTOR TO BCD «, t00=0x0011, t01=0x0020}
0x1ada…1ae8 Head {h00=0x000a, h01=0x0050, text=»PFC155«, t00=0x0011, t01=0x0050}
0x1ae8…1b1c Head {h00=0x0030, h01=0x0050, text=» XCOPY PBLOCK,W5,W7,RBUF,BIN10 TYPE AND NAME«, t00=0x0011, t01=0x005e}
0x1b1c…1b44 Head {h00=0x0024, h01=0x0050, text=» CALL GETIND,BPOOL(W1),BIN7,BIN6«, t00=0x0011, t01=0x0092}
0x1b44…1b68 Head {h00=0x0020, h01=0x0050, text=» XCOPY PBLOCK,W14,W2,BIN6,W0«, t00=0x0011, t01=0x00ba}
0x1b68…1b7e Head {h00=0x0012, h01=0x0050, text=» MOVE BIN6,W26«, t00=0x0011, t01=0x00de}
0x1b7e…1ba6 Head {h00=0x0024, h01=0x0050, text=» XCOPY PBLOCK,BIN6,W8,FILNAM,W0 «, t00=0x0011, t01=0x00f4}
0x1ba6…1bba Head {h00=0x0010, h01=0x0050, text=» ADD BIN6,W8«, t00=0x0011, t01=0x011c}
0x1bba…1be2 Head {h00=0x0024, h01=0x0050, text=» XCOPY PBLOCK,BIN6,W6,VOLEX1,W0 «, t00=0x0011, t01=0x0130}
0x1be2…1c2a Head {h00=0x0044, h01=0x0050, text=» CALL PREAD,PBLOCK,BPOOL(W1) WSM-READ. NOTE: OPEN-FILE 1ST TIME!«, t00=0x0011, t01=0x0158}
0x1c2a…1c3e Head {h00=0x0010, h01=0x0050, text=» BOK PFC170 «, t00=0x0012, t01=0x0010}
0x1c3e…1c64 Head {h00=0x0022, h01=0x0050, text=» XCOPY RETCOD,W0,W2,PBLOCK,W20«, t00=0x0012, t01=0x0024}
0x1c64…1c78 Head {h00=0x0010, h01=0x0050, text=» PERF UFERR «, t00=0x0012, t01=0x004a}
0x1c78…1ca0 Head {h00=0x0024, h01=0x0050, text=» IB DEBINW2,PFC160,PFC170,PFC210«, t00=0x0012, t01=0x005e}
0x1ca0…1cae Head {h00=0x000a, h01=0x0050, text=»PFC160«, t00=0x0012, t01=0x0086}
0x1cae…1cd0 Head {h00=0x001e, h01=0x0050, text=» CBNE FCOD2,SCRNFC,PFC155 «, t00=0x0012, t01=0x0094}
0x1cd0…1cfe Head {h00=0x002a, h01=0x0050, text=» PERF CURSET ***SET CURSER AFTER ERROR«, t00=0x0012, t01=0x00b6}
0x1cfe…1d10 Head {h00=0x000e, h01=0x0050, text=» B PFC155 «, t00=0x0012, t01=0x00e4}
0x1d10…1d1e Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0012, t01=0x00f6}
0x1d1e…1d28 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x0104}
0x1d28…1d48 Head {h00=0x001c, h01=0x0050, text=»* PRINT OUT EDITING«, t00=0x0012, t01=0x010e}
0x1d48…1d52 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x012e}
0x1d52…1d60 Head {h00=0x000a, h01=0x0050, text=»PFC170«, t00=0x0012, t01=0x0138}
0x1d60…1d82 Head {h00=0x001e, h01=0x0050, text=» MOVE BIN16,W0 WORKITEM:=0«, t00=0x0012, t01=0x0146}
0x1d82…1dbc Head {h00=0x0036, h01=0x0050, text=» XCOPY BIN16,W1,W1,BPOOL(W1),W18 LOAD SIZE BINARY «, t00=0x0012, t01=0x0168}
0x1dbc…1dec Head {h00=0x002c, h01=0x0050, text=» ADD BIN12,BIN16 ADD NUMB OF OCC SECTORS«, t00=0x0013, t01=0x0012}
0x1dec…1e16 Head {h00=0x0026, h01=0x0050, text=» MOVE BCD4A,BIN16 CONVERT SIZE BCD«, t00=0x0013, t01=0x0042}
0x1e16…1e38 Head {h00=0x001e, h01=0x0050, text=» MOVE BIN16,W0 WORKITEM:=0«, t00=0x0013, t01=0x006c}
0x1e38…1e6a Head {h00=0x002e, h01=0x0050, text=» CBE DTEST,=C'D',PFC175 JMP IF DEFINITION «, t00=0x0013, t01=0x008e}
0x1e6a…1ea6 Head {h00=0x0038, h01=0x0050, text=» XCOPY BIN16,W1,W1,BPOOL(W1),W22 LOAD VERSION BINARY«, t00=0x0013, t01=0x00c0}
0x1ea6…1eb4 Head {h00=0x000a, h01=0x0050, text=»PFC175«, t00=0x0013, t01=0x00fc}
0x1eb4…1ee2 Head {h00=0x002a, h01=0x0050, text=» MOVE BCD3A,BIN16 CONVERT VERSION BCD «, t00=0x0013, t01=0x010a}
0x1ee2…1ef0 Head {h00=0x000a, h01=0x0050, text=»PFC180«, t00=0x0013, t01=0x0138}
0x1ef0…1f28 Head {h00=0x0034, h01=0x0050, text=» PERF PRINT,FPCHEAD,FPCDET, ***PRINT ONE LINE C «, t00=0x0013, t01=0x0146}
0x1f28…1f46 Head {h00=0x001a, h01=0x0050, text=» BIN9,BIN15,BIN14,W2 «, t00=0x0013, t01=0x017e}
0x1f46…1f82 Head {h00=0x0038, h01=0x0050, text=» IB DEBINW2,PFC185,PFC210,PFC210, CLR,CAN,RET,CFW C «, t00=0x0014, t01=0x000c}
0x1f82…1f92 Head {h00=0x000c, h01=0x0050, text=» PFC185«, t00=0x0014, t01=0x0048}
0x1f92…1fa4 Head {h00=0x000e, h01=0x0050, text=» B PFC190 «, t00=0x0014, t01=0x0058}
0x1fa4…1fb2 Head {h00=0x000a, h01=0x0050, text=»PFC185«, t00=0x0014, t01=0x006a}
0x1fb2…1fd4 Head {h00=0x001e, h01=0x0050, text=» CBNE FCOD2,SCRNFC,PFC180 «, t00=0x0014, t01=0x0078}
0x1fd4…2002 Head {h00=0x002a, h01=0x0050, text=» PERF CURSET ***SET CURSOR AFTER ERROR«, t00=0x0014, t01=0x009a}
0x2002…2014 Head {h00=0x000e, h01=0x0050, text=» B PFC180 «, t00=0x0014, t01=0x00c8}
0x2014…2022 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0014, t01=0x00da}
0x2022…202c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x00e8}
0x202c…2052 Head {h00=0x0022, h01=0x0050, text=»* NEXT ENTRY OR NEXT CHAIN«, t00=0x0014, t01=0x00f2}
0x2052…205c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x0118}
0x205c…206a Head {h00=0x000a, h01=0x0050, text=»PFC190«, t00=0x0014, t01=0x0122}
0x206a…208e Head {h00=0x0020, h01=0x0050, text=» SUB BIN11,W1 NO. OF ENTRIES«, t00=0x0014, t01=0x0130}
0x208e…20ac Head {h00=0x001a, h01=0x0050, text=» BZ PFC200 ALL HANDLED«, t00=0x0014, t01=0x0154}
0x20ac…20cc Head {h00=0x001c, h01=0x0050, text=» ADD BIN10,W10 TAKE NEXT«, t00=0x0014, t01=0x0172}
0x20cc…20de (21, 0, 400) Head {h00=0x000e, h01=0x0050, text=» B PFC150 «, t00=0x0015, t01=0x0004}
0x20de…20e8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x0016}
0x20e8…2114 Head {h00=0x0028, h01=0x0050, text=»* CHANGE FOR NEXT CHAIN RECORD «, t00=0x0015, t01=0x0020}
0x2114…211e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x004c}
0x211e…212c Head {h00=0x000a, h01=0x0050, text=»PFC200«, t00=0x0015, t01=0x0056}
0x212c…2158 Head {h00=0x0028, h01=0x0050, text=» XCOPY BIN1,W0,W2,RBUF,W2 LINK NEXT «, t00=0x0015, t01=0x0064}
0x2158…217a Head {h00=0x001e, h01=0x0050, text=» XCOPY BIN2,W0,W2,RBUF,W4 «, t00=0x0015, t01=0x0090}
0x217a…21a0 Head {h00=0x0022, h01=0x0050, text=» CALL BINBCD,BIN1,BIN2,RECNUM «, t00=0x0015, t01=0x00b2}
0x21a0…21c6 Head {h00=0x0022, h01=0x0050, text=» CBNE BIN2,W0,PFC130 LINK FWD «, t00=0x0015, t01=0x00d8}
0x21c6…21e2 Head {h00=0x0018, h01=0x0050, text=» CBNE BIN1,W0,PFC130«, t00=0x0015, t01=0x00fe}
0x21e2…21f6 Head {h00=0x0010, h01=0x0050, text=» ADD BIN5,W1«, t00=0x0015, t01=0x011a}
0x21f6…220c Head {h00=0x0012, h01=0x0050, text=» MOVE BIN6,W26«, t00=0x0015, t01=0x012e}
0x220c…222a Head {h00=0x001a, h01=0x0050, text=» CBE BIN5,BIN6,PFC205 «, t00=0x0015, t01=0x0144}
0x222a…223c Head {h00=0x000e, h01=0x0050, text=» B PFC120 «, t00=0x0015, t01=0x0162}
0x223c…224a Head {h00=0x000a, h01=0x0050, text=»PFC205«, t00=0x0015, t01=0x0174}
0x224a…2280 Head {h00=0x0032, h01=0x0050, text=» MOVE BCD5A,BIN12 LOAD NUMB OF OCC SECTORS BCD«, t00=0x0015, t01=0x0182}
0x2280…22aa Head {h00=0x0026, h01=0x0050, text=» ADD BIN9,W1 INCREMENT LINE NUMBER«, t00=0x0016, t01=0x0028}
0x22aa…22e2 Head {h00=0x0034, h01=0x0050, text=» PERF PRINT,FPCHEAD,FPCTOT, ***PRINT ONE LINE C «, t00=0x0016, t01=0x0052}
0x22e2…2300 Head {h00=0x001a, h01=0x0050, text=» BIN9,BIN15,BIN14,W2 «, t00=0x0016, t01=0x008a}
0x2300…2330 Head {h00=0x002c, h01=0x0050, text=» CBNE FCOD2,SCRNFC,PFC210 JMP IF NOT VDU«, t00=0x0016, t01=0x00a8}
0x2330…2354 Head {h00=0x0020, h01=0x0050, text=» PERF HALT ***HALT WHEN VDU «, t00=0x0016, t01=0x00d8}
0x2354…2362 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0016, t01=0x00fc}
0x2362…236c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0016, t01=0x010a}
0x236c…2392 Head {h00=0x0022, h01=0x0050, text=»* END OF FREE SPACE CHAIN «, t00=0x0016, t01=0x0114}
0x2392…239c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0016, t01=0x013a}
0x239c…23aa Head {h00=0x000a, h01=0x0050, text=»PFC210«, t00=0x0016, t01=0x0144}
0x23aa…23c4 Head {h00=0x0016, h01=0x0050, text=» MOVE NOREC,=D'00'«, t00=0x0016, t01=0x0152}
0x23c4…23f6 Head {h00=0x002e, h01=0x0050, text=» MOVE FCOD2,=X'0036' DEFAULT OUTPUT DEVICE«, t00=0x0016, t01=0x016c}
0x23f6…2430 Head {h00=0x0036, h01=0x0050, text=» CALL CHANFC,DEDSPRT,FCOD2 ---CHANGE OUTPUT DEVICE«, t00=0x0017, t01=0x000e}
0x2430…2450 Head {h00=0x001c, h01=0x0050, text=» CALL CHANFC,DISK,FCOD1 «, t00=0x0017, t01=0x0048}
0x2450…245e Head {h00=0x000a, h01=0x0050, text=»PFC220«, t00=0x0017, t01=0x0068}
0x245e…2496 Head {h00=0x0034, h01=0x0050, text=» CALL CLOSEF,DISK,FILECODE(W1),RBUF,NOREC,RETCOD«, t00=0x0017, t01=0x0076}
0x2496…24bc Head {h00=0x0022, h01=0x0050, text=»* BOK PFC220 DELETED 83-06-30 «, t00=0x0017, t01=0x00ae}
0x24bc…24e2 Head {h00=0x0022, h01=0x0050, text=» CALL PCLOSE,PBLOCK,BPOOL(W1) «, t00=0x0017, t01=0x00d4}
0x24e2…2518 Head {h00=0x0032, h01=0x0050, text=» PERF CHVNAM,VOLNAM,FCOD CHANGE NAME TO ORIGIN«, t00=0x0017, t01=0x00fa}
0x2518…252a Head {h00=0x000e, h01=0x0050, text=» B PFCONT «, t00=0x0017, t01=0x0130}
0x252a…2538 Head {h00=0x000a, h01=0x0050, text=»RETUR «, t00=0x0017, t01=0x0142}
0x2538…2544 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0017, t01=0x0150}
0x2544…2552 Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0017, t01=0x015c}
0x2552…2560 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0017, t01=0x016a}
0x2560…256a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0017, t01=0x0178}
0x256a…2598 Head {h00=0x002a, h01=0x0050, text=»* SET CURSOR AFTER ERROR-MESSAGE «, t00=0x0017, t01=0x0182}
0x2598…25a2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0018, t01=0x0020}
0x25a2…25b6 Head {h00=0x0010, h01=0x0050, text=»CURSET PROC «, t00=0x0018, t01=0x002a}
0x25b6…25e4 Head {h00=0x002a, h01=0x0050, text=» MOVE BIN16,BIN9 LOAD CURRENT LINE NO «, t00=0x0018, t01=0x003e}
0x25e4…2600 Head {h00=0x0018, h01=0x0050, text=» SUB BIN16,W1 ADJUST«, t00=0x0018, t01=0x006c}
0x2600…263a Head {h00=0x0036, h01=0x0050, text=» XCOPY BIN16,W0,W1,BIN16,W1 LINE:=ADJUSTED LINENO «, t00=0x0018, t01=0x0088}
0x263a…2664 Head {h00=0x0026, h01=0x0050, text=» XCOPY BIN16,W1,W1,W1,W1 COLUMN:=1«, t00=0x0018, t01=0x00c2}
0x2664…268c Head {h00=0x0024, h01=0x0050, text=» DSC1 DEDSPRT,6,BIN16 SET CURSOR«, t00=0x0018, t01=0x00ec}
0x268c…2698 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0018, t01=0x0114}
0x2698…26a6 Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0018, t01=0x0120}
0x26a6…26b4 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0018, t01=0x012e}
0x26b4…26be Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0018, t01=0x013c}
0x26be…26fe Head {h00=0x003c, h01=0x0050, text=»* THIS ROUTINE PRINT ONE LINE ON THE LINE PRINTER.«, t00=0x0018, t01=0x0146}
0x26fe…2736 Head {h00=0x0034, h01=0x0050, text=»* THE FORMAT OF THE LINE IS DECIDED OF THE«, t00=0x0018, t01=0x0186}
0x2736…2770 Head {h00=0x0036, h01=0x0050, text=»* PARAMETER 'LINE'. IF PAGE OVERFLOW OCCURS,«, t00=0x0019, t01=0x002e}
0x2770…27ae Head {h00=0x003a, h01=0x0050, text=»* THE HEADER FORMAT WILL BE PRINTED OUT. HEADER «, t00=0x0019, t01=0x0068}
0x27ae…27e0 Head {h00=0x002e, h01=0x0050, text=»* FORMAT IS DECIDED OF THE PARAMETER«, t00=0x0019, t01=0x00a6}
0x27e0…27fa Head {h00=0x0016, h01=0x0050, text=»* 'HEADER'. «, t00=0x0019, t01=0x00d8}
0x27fa…2804 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0019, t01=0x00f2}
0x2804…2842 Head {h00=0x003a, h01=0x0050, text=»* INPUT PARAMETERS: HEADER = HEADER FORMAT «, t00=0x0019, t01=0x00fc}
0x2842…287e Head {h00=0x0038, h01=0x0050, text=»* LINE = LINE FORMAT «, t00=0x0019, t01=0x013a}
0x287e…28c2 Head {h00=0x0040, h01=0x0050, text=»* LINENO = ACTUAL LINE NUMBER «, t00=0x0019, t01=0x0176}
0x28c2…2912 Head {h00=0x004c, h01=0x0050, text=»* LINMAX = MAXIMUM NUMBER OF LINES IN ONE P«, t00=0x001a, t01=0x002a}
0x2912…2952 Head {h00=0x003c, h01=0x0050, text=»* LINEST = LINE START VALUE«, t00=0x001a, t01=0x007a}
0x2952…299c Head {h00=0x0046, h01=0x0050, text=»* HLINES = NUMBER OF LINES IN HEADER «, t00=0x001a, t01=0x00ba}
0x299c…29d4 Head {h00=0x0034, h01=0x0050, text=»* OUTPUT VARIABLE : DEBINW2 = 0 OK«, t00=0x001a, t01=0x0104}
0x29d4…2a1e Head {h00=0x0046, h01=0x0050, text=»* (= 1 CLEAR-KEY, TRY AGAIN) «, t00=0x001a, t01=0x013c}
0x2a1e…2a5c Head {h00=0x003a, h01=0x0050, text=»* = 2 CANCEL-KEY«, t00=0x001a, t01=0x0186}
0x2a5c…2a98 Head {h00=0x0038, h01=0x0050, text=»* = 3 RET-KEY «, t00=0x001b, t01=0x0034}
0x2a98…2aa2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001b, t01=0x0070}
0x2aa2…2af2 Head {h00=0x004c, h01=0x0050, text=»************************************************************************«, t00=0x001b, t01=0x007a}
0x2af2…2b2c Head {h00=0x0036, h01=0x0050, text=»PRINT PROC HEADER,LINE,LINENO,LINMAX,LINEST,HLINES«, t00=0x001b, t01=0x00ca}
0x2b2c…2b42 Head {h00=0x0012, h01=0x0050, text=» PFRMT HEADER «, t00=0x001b, t01=0x0104}
0x2b42…2b56 Head {h00=0x0010, h01=0x0050, text=» PFRMT LINE «, t00=0x001b, t01=0x011a}
0x2b56…2b6a Head {h00=0x0010, h01=0x0050, text=» PBIN LINENO«, t00=0x001b, t01=0x012e}
0x2b6a…2b7e Head {h00=0x0010, h01=0x0050, text=» PBIN LINMAX«, t00=0x001b, t01=0x0142}
0x2b7e…2b92 Head {h00=0x0010, h01=0x0050, text=» PBIN LINEST«, t00=0x001b, t01=0x0156}
0x2b92…2ba6 Head {h00=0x0010, h01=0x0050, text=» PBIN HLINES«, t00=0x001b, t01=0x016a}
0x2ba6…2bd2 Head {h00=0x0028, h01=0x0050, text=» MOVE DEBINW2,W0 CLEAR ERROR-SIGNAL «, t00=0x001b, t01=0x017e}
0x2bd2…2be0 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x001c, t01=0x001a}
0x2be0…2c1e Head {h00=0x003a, h01=0x0050, text=» CBNG LINENO,LINMAX,PRI300 JUMP IF LINMAX NOT REACHED «, t00=0x001c, t01=0x0028}
0x2c1e…2c4e Head {h00=0x002c, h01=0x0050, text=» CBNE FCOD2,SCRNFC,PRI100 JMP IF NOT VDU«, t00=0x001c, t01=0x0066}
0x2c4e…2c70 Head {h00=0x001e, h01=0x0050, text=» PERF HALT ***HALT IF VDU «, t00=0x001c, t01=0x0096}
0x2c70…2c9c Head {h00=0x0028, h01=0x0050, text=» SUB BIN2,W1 BIN2 HOLDES KEY INDEX: «, t00=0x001c, t01=0x00b8}
0x2c9c…2cc4 Head {h00=0x0024, h01=0x0050, text=» BZ PRI100 1 = ENTER => PROCEED «, t00=0x001c, t01=0x00e4}
0x2cc4…2ce8 Head {h00=0x0020, h01=0x0050, text=» MOVE DEBINW2,W3 2 = RETURN «, t00=0x001c, t01=0x010c}
0x2ce8…2cfa Head {h00=0x000e, h01=0x0050, text=» B PRI999 «, t00=0x001c, t01=0x0130}
0x2cfa…2d08 Head {h00=0x000a, h01=0x0050, text=»PRI100«, t00=0x001c, t01=0x0142}
0x2d08…2d38 Head {h00=0x002c, h01=0x0050, text=» EDWRT DEDSPRT,FORMF FORM-FEED=NEW PAGE «, t00=0x001c, t01=0x0150}
0x2d38…2d62 Head {h00=0x0026, h01=0x0050, text=» EDWRT DEDSPRT,HEADER PRINT HEADER«, t00=0x001c, t01=0x0180}
0x2d62…2d86 Head {h00=0x0020, h01=0x0050, text=» BNOK PRI350 JUMP IF NOT OK «, t00=0x001d, t01=0x001a}
0x2d86…2d94 Head {h00=0x000a, h01=0x0050, text=»PRI200«, t00=0x001d, t01=0x003e}
0x2d94…2dc0 Head {h00=0x0028, h01=0x0050, text=» ADD BCD13A,=D'+1' INCREMENT PAGENR «, t00=0x001d, t01=0x004c}
0x2dc0…2df0 Head {h00=0x002c, h01=0x0050, text=» MOVE LINENO,LINEST REINSTATE LINENUMBER«, t00=0x001d, t01=0x0078}
0x2df0…2e20 Head {h00=0x002c, h01=0x0050, text=» ADD LINENO,HLINES ADJUST FOR HEADLINES «, t00=0x001d, t01=0x00a8}
0x2e20…2e2e Head {h00=0x000a, h01=0x0050, text=»PRI300«, t00=0x001d, t01=0x00d8}
0x2e2e…2e5c Head {h00=0x002a, h01=0x0050, text=» EDWRT DEDSPRT,LINE PRINT DETAIL-LINE «, t00=0x001d, t01=0x00e6}
0x2e5c…2e7a Head {h00=0x001a, h01=0x0050, text=» BOK PRI400 JUMP IF OK«, t00=0x001d, t01=0x0114}
0x2e7a…2e88 Head {h00=0x000a, h01=0x0050, text=»PRI350«, t00=0x001d, t01=0x0132}
0x2e88…2eb6 Head {h00=0x002a, h01=0x0050, text=» MOVE DEBINW4,W3 PRINTER NOT OPERABLE «, t00=0x001d, t01=0x0140}
0x2eb6…2eee Head {h00=0x0034, h01=0x0050, text=» PERF DERROR,DEKTAB4 ***(ERROR-)MESSAGE ROUTINE «, t00=0x001d, t01=0x016e}
0x2eee…2f1c Head {h00=0x002a, h01=0x0050, text=» B PRI999 JUMP ON CLR, CANC OR RET-KEY«, t00=0x001e, t01=0x0016}
0x2f1c…2f2a Head {h00=0x000a, h01=0x0050, text=»PRI400«, t00=0x001e, t01=0x0044}
0x2f2a…2f56 Head {h00=0x0028, h01=0x0050, text=» ADD LINENO,W1 INCREMENT LINE-NUMBER«, t00=0x001e, t01=0x0052}
0x2f56…2f72 Head {h00=0x0018, h01=0x0050, text=» MOVE DEBINW2,W0 OK «, t00=0x001e, t01=0x007e}
0x2f72…2f80 Head {h00=0x000a, h01=0x0050, text=»PRI999«, t00=0x001e, t01=0x009a}
0x2f80…2f8c Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x001e, t01=0x00a8}
0x2f8c…2f9a Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x001e, t01=0x00b4}
0x2f9a…2fa8 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x001e, t01=0x00c2}
0x2fa8…2fb2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001e, t01=0x00d0}
0x2fb2…2fc6 Head {h00=0x0010, h01=0x0050, text=»FUPRINT FRMT«, t00=0x001e, t01=0x00da}
0x2fc6…2fd2 Head {h00=0x0008, h01=0x0050, text=» FSL«, t00=0x001e, t01=0x00ee}
0x2fd2…2fe6 Head {h00=0x0010, h01=0x0050, text=» FATTR .HIGH«, t00=0x001e, t01=0x00fa}
0x2fe6…2ffa Head {h00=0x0010, h01=0x0050, text=» FATTR .INV «, t00=0x001e, t01=0x010e}
0x2ffa…302a Head {h00=0x002c, h01=0x0050, text=» FCOPY =C'PRINT FILE TABLE OF CONTENTS' «, t00=0x001e, t01=0x0122}
0x302a…3036 Head {h00=0x0008, h01=0x0050, text=» FNL«, t00=0x001e, t01=0x0152}
0x3036…304a Head {h00=0x0010, h01=0x0050, text=» FATTR .HIGH«, t00=0x001e, t01=0x015e}
0x304a…3062 Head {h00=0x0014, h01=0x0050, text=» FCOPY =C'UNIT:'«, t00=0x001e, t01=0x0172}
0x3062…3094 Head {h00=0x002e, h01=0x0050, text=» FKI 6,MINL=3,MAXL=3,ME,ALPHA,NEOI,APPL=5 «, t00=0x001e, t01=0x018a}
0x3094…30aa Head {h00=0x0012, h01=0x0050, text=» FCOPY INUNIT «, t00=0x001f, t01=0x002c}
0x30aa…30be Head {h00=0x0010, h01=0x0050, text=» FATTR .HIGH«, t00=0x001f, t01=0x0042}
0x30be…30ce Head {h00=0x000c, h01=0x0050, text=» FTAB 12«, t00=0x001f, t01=0x0056}
0x30ce…30ee Head {h00=0x001c, h01=0x0050, text=» FCOPY =C'VOLUME-NAME:' «, t00=0x001f, t01=0x0066}
0x30ee…30fe Head {h00=0x000c, h01=0x0050, text=» FINP 25«, t00=0x001f, t01=0x0086}
0x30fe…3114 Head {h00=0x0012, h01=0x0050, text=» FCOPY VOLNAM «, t00=0x001f, t01=0x0096}
0x3114…3120 Head {h00=0x0008, h01=0x0050, text=» FNL«, t00=0x001f, t01=0x00ac}
0x3120…3134 Head {h00=0x0010, h01=0x0050, text=» FATTR .HIGH«, t00=0x001f, t01=0x00b8}
0x3134…3150 Head {h00=0x0018, h01=0x0050, text=» FCOPY =C'FILENAME:'«, t00=0x001f, t01=0x00cc}
0x3150…318a Head {h00=0x0036, h01=0x0050, text=» FKI 10,MINL=1,MAXL=8,ME,REWRT,APPL=16,ALPHA,NEOI «, t00=0x001f, t01=0x00e8}
0x318a…31a0 Head {h00=0x0012, h01=0x0050, text=» FCOPY FILNAM «, t00=0x001f, t01=0x0122}
0x31a0…31ba Head {h00=0x0016, h01=0x0050, text=» FBF BOOL1,FUP100 «, t00=0x001f, t01=0x0138}
0x31ba…31c6 Head {h00=0x0008, h01=0x0050, text=» FNL«, t00=0x001f, t01=0x0152}
0x31c6…31d2 Head {h00=0x0008, h01=0x0050, text=» FNL«, t00=0x001f, t01=0x015e}
0x31d2…31e6 Head {h00=0x0010, h01=0x0050, text=» FATTR .HIGH«, t00=0x001f, t01=0x016a}
0x31e6…320a Head {h00=0x0020, h01=0x0050, text=» FCOPY =C'FROM RECORD NO.:' «, t00=0x001f, t01=0x017e}
0x320a…3248 Head {h00=0x003a, h01=0x0050, text=» FKI 17,MINL=1,MAXL=5,ME,NEOI,REWRT,APPL=4 FROM RECORD«, t00=0x0020, t01=0x0012}
0x3248…3264 Head {h00=0x0018, h01=0x0050, text=» FMEL 'TTTTX',NOREC «, t00=0x0020, t01=0x0050}
0x3264…3270 Head {h00=0x0008, h01=0x0050, text=» FNL«, t00=0x0020, t01=0x006c}
0x3270…3284 Head {h00=0x0010, h01=0x0050, text=» FATTR .HIGH«, t00=0x0020, t01=0x0078}
0x3284…32a8 Head {h00=0x0020, h01=0x0050, text=» FCOPY =C'TO RECORD NO.:' «, t00=0x0020, t01=0x008c}
0x32a8…32e4 Head {h00=0x0038, h01=0x0050, text=» FKI 17,MINL=1,MAXL=5,ME,NEOI,REWRT,APPL=4 TO RECORD«, t00=0x0020, t01=0x00b0}
0x32e4…3300 Head {h00=0x0018, h01=0x0050, text=» FMEL 'TTTTX',RECNUM«, t00=0x0020, t01=0x00ec}
0x3300…330c Head {h00=0x0008, h01=0x0050, text=» FNL«, t00=0x0020, t01=0x0108}
0x330c…331a Head {h00=0x000a, h01=0x0050, text=»FUP100«, t00=0x0020, t01=0x0114}
0x331a…3326 Head {h00=0x0008, h01=0x0050, text=» FNL«, t00=0x0020, t01=0x0122}
0x3326…333a Head {h00=0x0010, h01=0x0050, text=» FATTR .HIGH«, t00=0x0020, t01=0x012e}
0x333a…3360 Head {h00=0x0022, h01=0x0050, text=» FTEXT 'PRINT OUTPUT DEVICE:' «, t00=0x0020, t01=0x0142}
0x3360…339a Head {h00=0x0036, h01=0x0050, text=» FKI 21,MINL=2,MAXL=2,ME,ALPHA,REWRT,NEOI,APPL=11 «, t00=0x0020, t01=0x0168}
0x339a…33ae Head {h00=0x0010, h01=0x0050, text=» FCOPY STR2A«, t00=0x0021, t01=0x0012}
0x33ae…33bc Head {h00=0x000a, h01=0x0050, text=» FMEND«, t00=0x0021, t01=0x0026}
0x33bc…33ce Head {h00=0x000e, h01=0x0050, text=»FHEX FRMT «, t00=0x0021, t01=0x0034}
0x33ce…33da Head {h00=0x0008, h01=0x0050, text=» FSL«, t00=0x0021, t01=0x0046}
0x33da…33e8 Head {h00=0x000a, h01=0x0050, text=» FKI 1«, t00=0x0021, t01=0x0052}
0x33e8…33fc Head {h00=0x0010, h01=0x0050, text=» FCOPY HEX00«, t00=0x0021, t01=0x0060}
0x33fc…340a Head {h00=0x000a, h01=0x0050, text=» FMEND«, t00=0x0021, t01=0x0074}
0x340a…3418 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0021, t01=0x0082}
0x3418…3422 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0021, t01=0x0090}
0x3422…343a Head {h00=0x0014, h01=0x0050, text=»* HEADER LINE«, t00=0x0021, t01=0x009a}
0x343a…3444 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0021, t01=0x00b2}
0x3444…3458 Head {h00=0x0010, h01=0x0050, text=»FPCHEAD FRMT«, t00=0x0021, t01=0x00bc}
0x3458…3484 Head {h00=0x0028, h01=0x0050, text=» FTEXT ' +' PRINT WITHOUT ADVANCING «, t00=0x0021, t01=0x00d0}
0x3484…34b4 Head {h00=0x002c, h01=0x0050, text=» FCOPY =C'PRINT FILE TABLE OF CONTENTS' «, t00=0x0021, t01=0x00fc}
0x34b4…34c8 Head {h00=0x0010, h01=0x0050, text=» FILLR ' ',1«, t00=0x0021, t01=0x012c}
0x34c8…34e0 Head {h00=0x0014, h01=0x0050, text=» FCOPY ='FILE:' «, t00=0x0021, t01=0x0140}
0x34e0…34f6 Head {h00=0x0012, h01=0x0050, text=» FCOPY FILNAM «, t00=0x0021, t01=0x0158}
0x34f6…3512 Head {h00=0x0018, h01=0x0050, text=» FTEXT ' ON VOLUME:'«, t00=0x0021, t01=0x016e}
0x3512…3528 Head {h00=0x0012, h01=0x0050, text=» FCOPY VOLNAM «, t00=0x0021, t01=0x018a}
0x3528…3540 Head {h00=0x0014, h01=0x0050, text=» FTEXT ' PAGE:' «, t00=0x0022, t01=0x0010}
0x3540…3562 Head {h00=0x001e, h01=0x0050, text=» FMEL 'ZZ9',BCD13A PAGE NO«, t00=0x0022, t01=0x0028}
0x3562…3570 Head {h00=0x000a, h01=0x0050, text=» FEOR «, t00=0x0022, t01=0x004a}
0x3570…3586 Head {h00=0x0012, h01=0x0050, text=» FLINK FPCRUB «, t00=0x0022, t01=0x0058}
0x3586…3594 Head {h00=0x000a, h01=0x0050, text=» FMEND«, t00=0x0022, t01=0x006e}
0x3594…35a2 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0022, t01=0x007c}
0x35a2…35ac Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0022, t01=0x008a}
0x35ac…35c4 Head {h00=0x0014, h01=0x0050, text=»* RUBRIK LINE «, t00=0x0022, t01=0x0094}
0x35c4…35ce Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0022, t01=0x00ac}
0x35ce…35e2 Head {h00=0x0010, h01=0x0050, text=»FPCRUB FRMT «, t00=0x0022, t01=0x00b6}
0x35e2…35f6 Head {h00=0x0010, h01=0x0050, text=» FILLR ' ',2«, t00=0x0022, t01=0x00ca}
0x35f6…3626 Head {h00=0x002c, h01=0x0050, text=» FTEXT 'NAME TYPE SIZE VERSION SECTOR'«, t00=0x0022, t01=0x00de}
0x3626…3634 Head {h00=0x000a, h01=0x0050, text=» FMEND«, t00=0x0022, t01=0x010e}
0x3634…363e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0022, t01=0x011c}
0x363e…3656 Head {h00=0x0014, h01=0x0050, text=»* DETAIL LINE«, t00=0x0022, t01=0x0126}
0x3656…3660 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0022, t01=0x013e}
0x3660…3674 Head {h00=0x0010, h01=0x0050, text=»FPCDET FRMT «, t00=0x0022, t01=0x0148}
0x3674…3688 Head {h00=0x0010, h01=0x0050, text=» FILLR ' ',2«, t00=0x0022, t01=0x015c}
0x3688…369c Head {h00=0x0010, h01=0x0050, text=» FCOPY STR6B«, t00=0x0022, t01=0x0170}
0x369c…36ac Head {h00=0x000c, h01=0x0050, text=» FTAB 13«, t00=0x0022, t01=0x0184}
0x36ac…36c6 (35, 0, 400) Head {h00=0x0016, h01=0x0050, text=» FCOPY DTEST TYPE «, t00=0x0023, t01=0x0004}
0x36c6…36d6 Head {h00=0x000c, h01=0x0050, text=» FTAB 16«, t00=0x0023, t01=0x001e}
0x36d6…36f4 Head {h00=0x001a, h01=0x0050, text=» FMEL 'ZZ9',BCD4A SIZE«, t00=0x0023, t01=0x002e}
0x36f4…3704 Head {h00=0x000c, h01=0x0050, text=» FTAB 24«, t00=0x0023, t01=0x004c}
0x3704…372c Head {h00=0x0024, h01=0x0050, text=» FMEL 'ZZZ',BCD3A VERSION NUMBER«, t00=0x0023, t01=0x005c}
0x372c…373c Head {h00=0x000c, h01=0x0050, text=» FTAB 31«, t00=0x0023, t01=0x0084}
0x373c…3764 Head {h00=0x0024, h01=0x0050, text=» FMEL 'ZZ9',BCD5A SECTOR NUMBER «, t00=0x0023, t01=0x0094}
0x3764…3772 Head {h00=0x000a, h01=0x0050, text=» FMEND«, t00=0x0023, t01=0x00bc}
0x3772…3780 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0023, t01=0x00ca}
0x3780…378a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0023, t01=0x00d8}
0x378a…37a2 Head {h00=0x0014, h01=0x0050, text=»* TOTAL LINE «, t00=0x0023, t01=0x00e2}
0x37a2…37ac Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0023, t01=0x00fa}
0x37ac…37c0 Head {h00=0x0010, h01=0x0050, text=»FPCTOT FRMT «, t00=0x0023, t01=0x0104}
0x37c0…37d4 Head {h00=0x0010, h01=0x0050, text=» FILLR ' ',2«, t00=0x0023, t01=0x0118}
0x37d4…37e2 Head {h00=0x000a, h01=0x0050, text=» FEOR «, t00=0x0023, t01=0x012c}
0x37e2…37f6 Head {h00=0x0010, h01=0x0050, text=» FILLR ' ',2«, t00=0x0023, t01=0x013a}
0x37f6…3818 Head {h00=0x001e, h01=0x0050, text=» FTEXT 'OCCUPIED SECTORS:'«, t00=0x0023, t01=0x014e}
0x3818…3828 Head {h00=0x000c, h01=0x0050, text=» FTAB 27«, t00=0x0023, t01=0x0170}
0x3828…385a Head {h00=0x002e, h01=0x0050, text=» FMEL 'ZZZVZZ9',BCD5A NUMB OF OCC SECTORS «, t00=0x0023, t01=0x0180}
0x385a…3868 Head {h00=0x000a, h01=0x0050, text=» FMEND«, t00=0x0024, t01=0x0022}
0x3868…3872 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0024, t01=0x0030}
0x3872…3888 Head {h00=0x0012, h01=0x0050, text=»* FORM FEED«, t00=0x0024, t01=0x003a}
0x3888…3892 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0024, t01=0x0050}
0x3892…38a4 Head {h00=0x000e, h01=0x0050, text=»FORMF FRMT«, t00=0x0024, t01=0x005a}
0x38a4…38b8 Head {h00=0x0010, h01=0x0050, text=» FTEXT ' 1' «, t00=0x0024, t01=0x006c}
0x38b8…38c6 Head {h00=0x000a, h01=0x0050, text=» FMEND«, t00=0x0024, t01=0x0080}
0x38c6…38d2 Head {h00=0x0008, h01=0x0050, text=» END«, t00=0x0024, t01=0x008e}
0x38d2…38da 40 04 00 00 00 24 00 9a ┆@ $ ┆