|
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: 10948 (0x2ac4)
Notes: pts_type(SC)
Names: »DEDI01.SC«
└─⟦48601905a⟧ Bits:30009668 Philips computer tape "600121"
└─⟦this⟧ »S:DU/DEDI01.SC«
└─⟦79fbed147⟧ Bits:30009697 Philips computer tape "600414"
└─⟦this⟧ »S:DU/DEDI01.SC«
└─⟦d2a299635⟧ Bits:30009698 Philips computer tape "600415"
└─⟦this⟧ »S:DU/DEDI01.SC«
IDENT DEDI01 PRR 1.0 78-05-31/AST * * ************************************************************************ * * * ALL COMMENTS TO DEDISC ARE FOUND IN MODULE * * D E D I C O M M * * ************************************************************************ * * DDUM DDINIT PDIV ENTRY DEDISC ENTRY NXPRFM ENTRY GETT01 EXT COND EXT DISU EXT DEPOOL EXT WRFSP EXT WAIT EXT RELEAS EXT FREESP EXT SCHPOO EXT DLRCCH EXT SFMTCH EXT WRACC EXT ENTJOB EXT GETJOB EXT SCHJOB EXT DELJOB EXT ENTFMT EXT DELFMT EXT GETSYS EXT ENTSYS EXT NEXJOB EXT PREJOB EXT PREFMT EXT NEXFMT EXT ENTTBL EXT DELTBL EXT ENTT01 EXT ENTCOR EXT ENTT03 EXT DELT01 EXT OPNEBC EXT OPNNBC EXT NXJOB EXT NXBTH EXT ALGO EXT RDDS EXT WRDS EJECT DEDISC PROC FC * * BRANCH TO PROGRAM INDICATED BY FC * CLEAR SWIT01 CLEAR SWIT02 CLEAR SWIT03 CLEAR SWIT05 CLEAR SWIT07 CLEAR SWITFS CLEAR SW95PR MOVE DEBINW4,W0 STRT01 IB FC C0000000000000 ENTJOB ENTER JOBDEF C GETJOB GET JOBDEF C DUMMY C SCHJOB SEARCH JOBDEF C DELJOB DELETE JOBDEF C OPNNBC OPEN NEW BATCH C OPNEBC OPEN EXISTING BATCH C CLSBTH CLOSE BATCH C ENTFMT ENTER FORMAT C GETFMT GET FORMAT C DUMMY C SCHFMT SEARCH FORMAT C DELFMT DELETE FORMAT C WRICUR WRITE CURRENT DATA-SECTOR C GTNEXT GET NEXT DATA-SECTOR C GTPREV GET PREVIOUS DATA-SECTOR C DLCURR DELETE CURRENT DATARECORD C WRIACC WRITE ACCUMULATOR-RECORD C GETSYS GET SYSTEM-VARIABLES C ENTSYS ENTER SYSTEM-VARIABLES C NXJOB GET NEXT JOBNAME C DUMMY GET PREVIOUS JOBNAME C WRTCO WRITE SECTOR (CORR) C GETTBL GET TABLE C DELTBL DELETE TABLE C ENTTBL ENTER TABLE C DELBTCH DELETE BATCH C DUMMY GET NO OF FREESPACES C NEXJOB GET NEXT JOBDEFINITION C PREJOB GET PREVIOUS JOBDEF C NEXFMT GET NEXT FORMAT C PREFMT GET PREVIOUS FORMAT C RECURR READ CURRENT SCTR C NXBTH GET NEXT BATCHNAME C DUMMY GET PREV BATCHNAME EJECT GETFMT GET FORMAT MOVE RNRFMCH,W0 MOVE STR6A,DEINPUT PERF WAIT BERR RETURN NXPRFM PERF SCHPOO,=C'F ',STR6A,W7 IB DEBIN4,GOTFFR,FLOCKE SEARCH ON DISC RDDK MOVE DEBINW4,W0 CBNE FRMTPNTR,W0,MAXI CLEAR SWIT04 PERF SFMTCH,W4,SYSBUF,W10 BERR RETURN RDDK98 TEST SWIT02 BNZ RETURN READ 1ST REC OF FMT MOVE SYSBUF,HEX00 PERF DISU,W1,DEBIN3,SYSBUF PERF ALGO,W2 BNERR CHOK MOVE FRMTPNTR,W0 SET SWIT07 BNZ SETER PERF RELEAS B STRT01 SETER MOVE DEBINW4,W9 B RETURN CHOK MOVE FRMTPNTR,DEBIN3 SET FRMTPNTR GET LINK NEXT XCOPY DEBIN5,W0,W2,SYSBUF,W4 GET NO OF REC MOVE DEBIN3,W0 XCOPY DEBIN3,W1,W1,SYSBUF,W8 MOVE DEBIN1,DEBIN3 MOVE DEBIN4,W0 GET NO OF CONSEC XCOPY DEBIN4,W1,W1,SYSBUF,W9 PERF DEPOOL,W1,DEBIN3,DEBIN4,STRG10A BNERR GET21 MOVE DEBINW4,W13 'NO BUFFERS FREE' B RETURN MAXI MOVE DEBIN3,FRMTPNTR B RDDK98 GET21 MOVE DEBIN4,DEBIN3 GET20 XCOPY BPOOL(DEBIN3),W0,W188,SYSBUF,W10 XCOPY RPOOL(DEBIN3),W9,W10,SYSBUF,W0 SUB DEBIN1,W1 CBE DEBIN1,W0,TBFAL PERF DISU,W1,DEBIN5,SYSBUF BERR RETURN GET LINK NEXT XCOPY DEBIN5,W0,W2,SYSBUF,W4 XCOPY DEBIN3,W1,W1,RPOOL(DEBIN3),W8 B GET20 TBFALL MOVE DEBIN4,DEBIN3 TBFAL PERF DEPOOL,W4,DEBIN4,DEBIN1,STRG10A CBE PINDFR,W0,SETPFR PERF DEPOOL,W6,PINDFR,DEBIN1,STRG10A SETPFR MOVE PINDFR,DEBIN4 B RETURN FLOCKE MOVE DEBINW4,W11 'LOCKED' B RETURN GOTFFR MOVE DEBIN1,W0 XCOPY DEBIN1,W1,W1,RPOOL(DEBIN3),W7 CBL DEBIN1,W1,FUNUSE NOT USED USED TBT SWIT02,INDUSE FGETUN PERF SCHPOO,=C'F ',STR6A,W5 SET B TBFALL FUNUSE TBF SWIT02,FGETUN MOVE RPOOL(DEBIN3),HEX00 B RDDK INDUSE MOVE DEBINW4,W11 B RETURN SCHFMT SEARCH FORMAT SET SWIT02 B GETFMT * * * WRICUR PERF FREESP,DEBIN1,FILINDUS BNERR WRIT01 SET SWIT01 NO MORE SECTORS AVAILABLE WRIT01 MOVE STR2A,=X'4453' COPY RBUF,W0,W2,STR2A,W0 PTR NEXT SCTR TO CURR REC XCOPY RBUF,W4,W2,DEBIN1,W0 WRIT05 PERF WRDS,CURSEC WRITE RECORDAREA BNERR WRIT02 * * WRITING - ERROR * PERF FREESP,DEBIN2,FILINDUS GET NEW FREESP MOVE CURSEC,DEBIN2 NEW FREESP = CURRENT SCTRNO GET LINK PREV SCTR XCOPY DEBIN3,W0,W2,RBUF,W2 CBE DEBIN3,W0,ENDERR FIRST RECORD? PERF RDDS,DEBIN3 READ PREV RECORD(S) BERR ENDERR SET CONTINUATION IN PREV SCTR XCOPY RBUF,W4,W2,CURSEC,W0 PERF WRDS,DEBIN3 WRITE PREV RECORD(S) BNERR WRIT05 GET LINK PREV OF PREV XCOPY DEBIN3,W0,W2,SYSBUF,W2 CBE DEBIN3,W0,ENDERR FIRST RECORD? PERF RDDS,DEBIN3 READ PREV OF PREV BERR ENDERR PREV OF PREV = END OF CHAIN XCOPY RBUF,W4,W2,W0,W0 PERF WRDS,DEBIN3 WRITE PREV OF PREV ENDERR MOVE DEBINW4,W21 INDICATE DISC-ERROR B WRIT07 * * OKAY * WRIT02 SET LINK PREV SCTR XCOPY RBUF,W2,W2,CURSEC,W0 XCOPY RBUF,W4,W2,W0,W0 LINK TO NEXT = 0 SET NO OF OCC BYTES XCOPY RBUF,W6,W2,W10,W0 MOVE CURSEC,DEBIN1 SET CURRENT SCTRNO TBF SWIT01,WRIT07 MOVE DEBINW4,W10 'NO MORE SPACE ON DISC' WRIT07 B RETURN * * * GTNEXT XCOPY DEBIN1,W0,W2,RBUF,W4 GT001 PERF RDDS,DEBIN1 READ SECTOR(S) BERR RETURN CBE FC,W16,GT003 JUMP IF GETPREV GET LINK PREV FOR CONTROL XCOPY DEBIN2,W0,W2,RBUF,W2 CBE DEBIN2,W0,GT002 CBE CURSEC,DEBIN2,GT003 IF NOT OK, ZEROISE LINK TO NEXT SCTR(S) IN CURRENT ONE. XCOPY RBUF,W4,W2,W0,W0 PERF WRDS,DEBIN1 GT002 MOVE DEBINW4,W9 B RETURN GT003 MOVE CURSEC,DEBIN1 CURRENT SECTORNUMBER B RETURN * * * GTPREV XCOPY DEBIN1,W0,W2,RBUF,W2 B GT001 * * * DLCURR SET SWIT04 PERF DLRCCH,RBUF MOVE CURSEC,DEBIN2 B RETURN * * * WRIACC PERF WRACC PERF WRFSP,FILINDUS B RETURN * * * WRTCO PERF WRDS,CURSEC WRITE SECTOR(S) B RETURN * * * CLSBTH CLOSE BATCH MOVE DEBIN1,W0 B WRIT01 * * * DELBTCH SET SWIT01 B OPNEBC * * * RECURR PERF RDDS,CURSEC READ SCTR(S) CBNE DEBINW4,=W'30',BRETTA MOVE DEBINW4,W0 BRETTA B RETURN * * * GETTBL PERF SCHPOO,=C'T ',TABLE,W5 IB DEBIN4,GTF,LCK NOT IN POOL, READ GETT01 PERF WAIT BERR RETURN COPY STR2A,W0,W2,TABLE,W1 GET TABLE-NO MOVE BCD13A,STR2A MOVE DEBIN5,BCD13A CONVERT TO BINARY CBL DEBIN5,=W'95',DKTBL MOVE DEBINW4,W1 INDICATE ERROR B RETURN DKTBL PERF DISU,W1,W7,SYSBUF READ TABLE-PTR-REC BOK MUL CMP DEBINW4,=W'30' BNE RETURN MOVE DEBINW4,W0 TBF SWIT01,NOINSY MOVE SYSBUF,=X'544300' PERF DISU,W2,W7,SYSBUF BERR RETURN MUL MUL DEBIN5,W2 ADD DEBIN5,W10 XCOPY DEBIN1,W0,W2,SYSBUF,DEBIN5 CBNE DEBIN1,W0,DT002 TBF SWIT01,NOINSY PERF FREESP,DEBIN1,W1 BERR RETURN XCOPY SYSBUF,DEBIN5,W2,DEBIN1,W0 PERF DISU,W2,W7,SYSBUF BERR RETURN MOVE DEBIN4,DEBIN1 B ENTT01 DT002 TEST SWIT02 BNZ DELT01 RDN PERF DISU,W1,DEBIN1,SYSBUF BNOK RETURN MOVE DEBIN4,DEBIN1 MOVE DEBIN1,W0 XCOPY DEBIN1,W1,W1,SYSBUF,W9 LAST ELEMENT-NO CBNG ELMNO,DEBIN1,FNDTBL XCOPY DEBIN1,W0,W2,SYSBUF,W4 GET LINK NEXT CBG DEBIN1,W0,RDN READ NEXT RECORD TBF SWIT01,NOINSY JUMP IF NOT ENTER MOVE DEBIN2,W17 MATCH RPOOL(PINDTB),DEBIN2,W1,SYSBUF,W8,W1 BOK ENTT01 INSERT IN CURRENT SECTOR B ENTT03 INSERT NEW SECTOR NOINSY MOVE DEBINW4,W9 'NOT IN SYSTEM' B RETURN FNDTBL TEST SWIT01 BNZ ENTCOR MOVE DEBIN3,W1 MOVE DEBIN2,W1 PERF DEPOOL,W1,DEBIN3,DEBIN2,STRG10A BNOK RETURN COPY RPOOL(DEBIN3),W9,W10,SYSBUF,W0 COPY BPOOL(DEBIN3),W0,W188,SYSBUF,W10 GTF PERF DEPOOL,W4,DEBIN3,DEBIN2,STRG10A PERF DEPOOL,W6,PINDTB,DEBIN2,STRG10A RELEASE BUFFER MOVE PINDTB,DEBIN3 B RETURN LCK MOVE DEBINW4,W3 B RETURN * * * DUMMY RETURN TBF SWITFS,RETUNF PERF WRFSP,W1 RETUNF PERF RELEAS CBNE DEBINW4,W0,RETUN9 TBF SW95PR,RETUN9 MOVE DEBINW4,=W'-1' RETUN9 PERF COND RET PEND END
0x0000…002a (0, 0, 398) Head {h00=0x0026, h01=0x0050, text=» IDENT DEDI01 PRR 1.0 78-05-31/AST«, t00=0x0000, t01=0x0004}
0x002a…0034 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x002e}
0x0034…003e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0038}
0x003e…008e Head {h00=0x004c, h01=0x0050, text=»************************************************************************«, t00=0x0000, t01=0x0042}
0x008e…0098 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0092}
0x0098…00a2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x009c}
0x00a2…00e0 Head {h00=0x003a, h01=0x0050, text=»* ALL COMMENTS TO DEDISC ARE FOUND IN MODULE «, t00=0x0000, t01=0x00a6}
0x00e0…00ea Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x00e4}
0x00ea…011a Head {h00=0x002c, h01=0x0050, text=»* D E D I C O M M «, t00=0x0000, t01=0x00ee}
0x011a…0124 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x011e}
0x0124…012e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0128}
0x012e…017e Head {h00=0x004c, h01=0x0050, text=»************************************************************************«, t00=0x0000, t01=0x0132}
0x017e…0188 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0182}
0x0188…0192 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x018c}
0x0192…01a6 Head {h00=0x0010, h01=0x0050, text=» DDUM DDINIT«, t00=0x0001, t01=0x0008}
0x01a6…01b4 Head {h00=0x000a, h01=0x0050, text=» PDIV «, t00=0x0001, t01=0x001c}
0x01b4…01ca Head {h00=0x0012, h01=0x0050, text=» ENTRY DEDISC «, t00=0x0001, t01=0x002a}
0x01ca…01e0 Head {h00=0x0012, h01=0x0050, text=» ENTRY NXPRFM «, t00=0x0001, t01=0x0040}
0x01e0…01f6 Head {h00=0x0012, h01=0x0050, text=» ENTRY GETT01 «, t00=0x0001, t01=0x0056}
0x01f6…0208 Head {h00=0x000e, h01=0x0050, text=» EXT COND «, t00=0x0001, t01=0x006c}
0x0208…021a Head {h00=0x000e, h01=0x0050, text=» EXT DISU «, t00=0x0001, t01=0x007e}
0x021a…022e Head {h00=0x0010, h01=0x0050, text=» EXT DEPOOL «, t00=0x0001, t01=0x0090}
0x022e…0240 Head {h00=0x000e, h01=0x0050, text=» EXT WRFSP«, t00=0x0001, t01=0x00a4}
0x0240…0252 Head {h00=0x000e, h01=0x0050, text=» EXT WAIT «, t00=0x0001, t01=0x00b6}
0x0252…0266 Head {h00=0x0010, h01=0x0050, text=» EXT RELEAS «, t00=0x0001, t01=0x00c8}
0x0266…027a Head {h00=0x0010, h01=0x0050, text=» EXT FREESP «, t00=0x0001, t01=0x00dc}
0x027a…028e Head {h00=0x0010, h01=0x0050, text=» EXT SCHPOO «, t00=0x0001, t01=0x00f0}
0x028e…02a2 Head {h00=0x0010, h01=0x0050, text=» EXT DLRCCH «, t00=0x0001, t01=0x0104}
0x02a2…02b6 Head {h00=0x0010, h01=0x0050, text=» EXT SFMTCH «, t00=0x0001, t01=0x0118}
0x02b6…02c8 Head {h00=0x000e, h01=0x0050, text=» EXT WRACC«, t00=0x0001, t01=0x012c}
0x02c8…02dc Head {h00=0x0010, h01=0x0050, text=» EXT ENTJOB «, t00=0x0001, t01=0x013e}
0x02dc…02f0 Head {h00=0x0010, h01=0x0050, text=» EXT GETJOB «, t00=0x0001, t01=0x0152}
0x02f0…0304 Head {h00=0x0010, h01=0x0050, text=» EXT SCHJOB «, t00=0x0001, t01=0x0166}
0x0304…0318 Head {h00=0x0010, h01=0x0050, text=» EXT DELJOB «, t00=0x0001, t01=0x017a}
0x0318…032c Head {h00=0x0010, h01=0x0050, text=» EXT ENTFMT «, t00=0x0001, t01=0x018e}
0x032c…0340 Head {h00=0x0010, h01=0x0050, text=» EXT DELFMT «, t00=0x0002, t01=0x0012}
0x0340…0354 Head {h00=0x0010, h01=0x0050, text=» EXT GETSYS «, t00=0x0002, t01=0x0026}
0x0354…0368 Head {h00=0x0010, h01=0x0050, text=» EXT ENTSYS «, t00=0x0002, t01=0x003a}
0x0368…037c Head {h00=0x0010, h01=0x0050, text=» EXT NEXJOB «, t00=0x0002, t01=0x004e}
0x037c…0390 Head {h00=0x0010, h01=0x0050, text=» EXT PREJOB «, t00=0x0002, t01=0x0062}
0x0390…03a4 Head {h00=0x0010, h01=0x0050, text=» EXT PREFMT «, t00=0x0002, t01=0x0076}
0x03a4…03b8 Head {h00=0x0010, h01=0x0050, text=» EXT NEXFMT «, t00=0x0002, t01=0x008a}
0x03b8…03cc Head {h00=0x0010, h01=0x0050, text=» EXT ENTTBL «, t00=0x0002, t01=0x009e}
0x03cc…03e0 Head {h00=0x0010, h01=0x0050, text=» EXT DELTBL «, t00=0x0002, t01=0x00b2}
0x03e0…03f4 Head {h00=0x0010, h01=0x0050, text=» EXT ENTT01 «, t00=0x0002, t01=0x00c6}
0x03f4…0408 Head {h00=0x0010, h01=0x0050, text=» EXT ENTCOR «, t00=0x0002, t01=0x00da}
0x0408…041c Head {h00=0x0010, h01=0x0050, text=» EXT ENTT03 «, t00=0x0002, t01=0x00ee}
0x041c…0430 Head {h00=0x0010, h01=0x0050, text=» EXT DELT01 «, t00=0x0002, t01=0x0102}
0x0430…0444 Head {h00=0x0010, h01=0x0050, text=» EXT OPNEBC «, t00=0x0002, t01=0x0116}
0x0444…0458 Head {h00=0x0010, h01=0x0050, text=» EXT OPNNBC «, t00=0x0002, t01=0x012a}
0x0458…046a Head {h00=0x000e, h01=0x0050, text=» EXT NXJOB«, t00=0x0002, t01=0x013e}
0x046a…047c Head {h00=0x000e, h01=0x0050, text=» EXT NXBTH«, t00=0x0002, t01=0x0150}
0x047c…048e Head {h00=0x000e, h01=0x0050, text=» EXT ALGO «, t00=0x0002, t01=0x0162}
0x048e…04a0 Head {h00=0x000e, h01=0x0050, text=» EXT RDDS «, t00=0x0002, t01=0x0174}
0x04a0…04b2 Head {h00=0x000e, h01=0x0050, text=» EXT WRDS «, t00=0x0002, t01=0x0186}
0x04b2…04c0 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0003, t01=0x0008}
0x04c0…04d6 Head {h00=0x0012, h01=0x0050, text=»DEDISC PROC FC«, t00=0x0003, t01=0x0016}
0x04d6…04e0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x002c}
0x04e0…050e Head {h00=0x002a, h01=0x0050, text=»* BRANCH TO PROGRAM INDICATED BY FC «, t00=0x0003, t01=0x0036}
0x050e…0518 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x0064}
0x0518…052e Head {h00=0x0012, h01=0x0050, text=» CLEAR SWIT01 «, t00=0x0003, t01=0x006e}
0x052e…0544 Head {h00=0x0012, h01=0x0050, text=» CLEAR SWIT02 «, t00=0x0003, t01=0x0084}
0x0544…055a Head {h00=0x0012, h01=0x0050, text=» CLEAR SWIT03 «, t00=0x0003, t01=0x009a}
0x055a…0570 Head {h00=0x0012, h01=0x0050, text=» CLEAR SWIT05 «, t00=0x0003, t01=0x00b0}
0x0570…0586 Head {h00=0x0012, h01=0x0050, text=» CLEAR SWIT07 «, t00=0x0003, t01=0x00c6}
0x0586…059c Head {h00=0x0012, h01=0x0050, text=» CLEAR SWITFS «, t00=0x0003, t01=0x00dc}
0x059c…05b2 Head {h00=0x0012, h01=0x0050, text=» CLEAR SW95PR «, t00=0x0003, t01=0x00f2}
0x05b2…05ca Head {h00=0x0014, h01=0x0050, text=» MOVE DEBINW4,W0«, t00=0x0003, t01=0x0108}
0x05ca…05d8 Head {h00=0x000a, h01=0x0050, text=»STRT01«, t00=0x0003, t01=0x0120}
0x05d8…05f6 Head {h00=0x001a, h01=0x0050, text=» IB FC C0000000000000«, t00=0x0003, t01=0x012e}
0x05f6…0616 Head {h00=0x001c, h01=0x0050, text=» ENTJOB ENTER JOBDEF C «, t00=0x0003, t01=0x014c}
0x0616…0634 Head {h00=0x001a, h01=0x0050, text=» GETJOB GET JOBDEF C «, t00=0x0003, t01=0x016c}
0x0634…0646 Head {h00=0x000e, h01=0x0050, text=» DUMMY C«, t00=0x0003, t01=0x018a}
0x0646…0666 Head {h00=0x001c, h01=0x0050, text=» SCHJOB SEARCH JOBDEF C«, t00=0x0004, t01=0x000c}
0x0666…0686 Head {h00=0x001c, h01=0x0050, text=» DELJOB DELETE JOBDEF C«, t00=0x0004, t01=0x002c}
0x0686…06a8 Head {h00=0x001e, h01=0x0050, text=» OPNNBC OPEN NEW BATCH C «, t00=0x0004, t01=0x004c}
0x06a8…06ce Head {h00=0x0022, h01=0x0050, text=» OPNEBC OPEN EXISTING BATCH C«, t00=0x0004, t01=0x006e}
0x06ce…06ec Head {h00=0x001a, h01=0x0050, text=» CLSBTH CLOSE BATCH C«, t00=0x0004, t01=0x0094}
0x06ec…070c Head {h00=0x001c, h01=0x0050, text=» ENTFMT ENTER FORMAT C «, t00=0x0004, t01=0x00b2}
0x070c…072a Head {h00=0x001a, h01=0x0050, text=» GETFMT GET FORMAT C «, t00=0x0004, t01=0x00d2}
0x072a…073c Head {h00=0x000e, h01=0x0050, text=» DUMMY C«, t00=0x0004, t01=0x00f0}
0x073c…075c Head {h00=0x001c, h01=0x0050, text=» SCHFMT SEARCH FORMAT C«, t00=0x0004, t01=0x0102}
0x075c…077c Head {h00=0x001c, h01=0x0050, text=» DELFMT DELETE FORMAT C«, t00=0x0004, t01=0x0122}
0x077c…07a8 Head {h00=0x0028, h01=0x0050, text=» WRICUR WRITE CURRENT DATA-SECTOR C«, t00=0x0004, t01=0x0142}
0x07a8…07d0 Head {h00=0x0024, h01=0x0050, text=» GTNEXT GET NEXT DATA-SECTOR C «, t00=0x0004, t01=0x016e}
0x07d0…07fc Head {h00=0x0028, h01=0x0050, text=» GTPREV GET PREVIOUS DATA-SECTOR C «, t00=0x0005, t01=0x0008}
0x07fc…0828 Head {h00=0x0028, h01=0x0050, text=» DLCURR DELETE CURRENT DATARECORD C«, t00=0x0005, t01=0x0034}
0x0828…0854 Head {h00=0x0028, h01=0x0050, text=» WRIACC WRITE ACCUMULATOR-RECORD C «, t00=0x0005, t01=0x0060}
0x0854…087c Head {h00=0x0024, h01=0x0050, text=» GETSYS GET SYSTEM-VARIABLES C «, t00=0x0005, t01=0x008c}
0x087c…08a6 Head {h00=0x0026, h01=0x0050, text=» ENTSYS ENTER SYSTEM-VARIABLES C «, t00=0x0005, t01=0x00b4}
0x08a6…08c8 Head {h00=0x001e, h01=0x0050, text=» NXJOB GET NEXT JOBNAME C«, t00=0x0005, t01=0x00de}
0x08c8…08ee Head {h00=0x0022, h01=0x0050, text=» DUMMY GET PREVIOUS JOBNAME C«, t00=0x0005, t01=0x0100}
0x08ee…0914 Head {h00=0x0022, h01=0x0050, text=» WRTCO WRITE SECTOR (CORR) C «, t00=0x0005, t01=0x0126}
0x0914…0930 Head {h00=0x0018, h01=0x0050, text=» GETTBL GET TABLE C«, t00=0x0005, t01=0x014c}
0x0930…0950 Head {h00=0x001c, h01=0x0050, text=» DELTBL DELETE TABLE C «, t00=0x0005, t01=0x0168}
0x0950…096e Head {h00=0x001a, h01=0x0050, text=» ENTTBL ENTER TABLE C«, t00=0x0005, t01=0x0188}
0x096e…098e Head {h00=0x001c, h01=0x0050, text=» DELBTCH DELETE BATCH C«, t00=0x0006, t01=0x0016}
0x098e…09b4 Head {h00=0x0022, h01=0x0050, text=» DUMMY GET NO OF FREESPACES C«, t00=0x0006, t01=0x0036}
0x09b4…09de Head {h00=0x0026, h01=0x0050, text=» NEXJOB GET NEXT JOBDEFINITION C «, t00=0x0006, t01=0x005c}
0x09de…0a04 Head {h00=0x0022, h01=0x0050, text=» PREJOB GET PREVIOUS JOBDEF C«, t00=0x0006, t01=0x0086}
0x0a04…0a26 Head {h00=0x001e, h01=0x0050, text=» NEXFMT GET NEXT FORMAT C«, t00=0x0006, t01=0x00ac}
0x0a26…0a4c Head {h00=0x0022, h01=0x0050, text=» PREFMT GET PREVIOUS FORMAT C«, t00=0x0006, t01=0x00ce}
0x0a4c…0a70 Head {h00=0x0020, h01=0x0050, text=» RECURR READ CURRENT SCTR C«, t00=0x0006, t01=0x00f4}
0x0a70…0a94 Head {h00=0x0020, h01=0x0050, text=» NXBTH GET NEXT BATCHNAME C«, t00=0x0006, t01=0x0118}
0x0a94…0ab6 Head {h00=0x001e, h01=0x0050, text=» DUMMY GET PREV BATCHNAME«, t00=0x0006, t01=0x013c}
0x0ab6…0ac4 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0006, t01=0x015e}
0x0ac4…0ae0 Head {h00=0x0018, h01=0x0050, text=»GETFMT GET FORMAT «, t00=0x0006, t01=0x016c}
0x0ae0…0af8 Head {h00=0x0014, h01=0x0050, text=» MOVE RNRFMCH,W0«, t00=0x0006, t01=0x0188}
0x0af8…0b14 Head {h00=0x0018, h01=0x0050, text=» MOVE STR6A,DEINPUT «, t00=0x0007, t01=0x0010}
0x0b14…0b26 Head {h00=0x000e, h01=0x0050, text=» PERF WAIT«, t00=0x0007, t01=0x002c}
0x0b26…0b3a Head {h00=0x0010, h01=0x0050, text=» BERR RETURN«, t00=0x0007, t01=0x003e}
0x0b3a…0b48 Head {h00=0x000a, h01=0x0050, text=»NXPRFM«, t00=0x0007, t01=0x0052}
0x0b48…0b6c Head {h00=0x0020, h01=0x0050, text=» PERF SCHPOO,=C'F ',STR6A,W7«, t00=0x0007, t01=0x0060}
0x0b6c…0b8c Head {h00=0x001c, h01=0x0050, text=» IB DEBIN4,GOTFFR,FLOCKE«, t00=0x0007, t01=0x0084}
0x0b8c…0ba6 Head {h00=0x0016, h01=0x0050, text=» SEARCH ON DISC «, t00=0x0007, t01=0x00a4}
0x0ba6…0bb2 Head {h00=0x0008, h01=0x0050, text=»RDDK«, t00=0x0007, t01=0x00be}
0x0bb2…0bca Head {h00=0x0014, h01=0x0050, text=» MOVE DEBINW4,W0«, t00=0x0007, t01=0x00ca}
0x0bca…0be8 Head {h00=0x001a, h01=0x0050, text=» CBNE FRMTPNTR,W0,MAXI«, t00=0x0007, t01=0x00e2}
0x0be8…0bfe Head {h00=0x0012, h01=0x0050, text=» CLEAR SWIT04 «, t00=0x0007, t01=0x0100}
0x0bfe…0c20 Head {h00=0x001e, h01=0x0050, text=» PERF SFMTCH,W4,SYSBUF,W10«, t00=0x0007, t01=0x0116}
0x0c20…0c34 Head {h00=0x0010, h01=0x0050, text=» BERR RETURN«, t00=0x0007, t01=0x0138}
0x0c34…0c42 Head {h00=0x000a, h01=0x0050, text=»RDDK98«, t00=0x0007, t01=0x014c}
0x0c42…0c56 Head {h00=0x0010, h01=0x0050, text=» TEST SWIT02«, t00=0x0007, t01=0x015a}
0x0c56…0c6a Head {h00=0x0010, h01=0x0050, text=» BNZ RETURN «, t00=0x0007, t01=0x016e}
0x0c6a…0c88 Head {h00=0x001a, h01=0x0050, text=» READ 1ST REC OF FMT«, t00=0x0007, t01=0x0182}
0x0c88…0ca2 Head {h00=0x0016, h01=0x0050, text=» MOVE SYSBUF,HEX00«, t00=0x0008, t01=0x0010}
0x0ca2…0cc6 Head {h00=0x0020, h01=0x0050, text=» PERF DISU,W1,DEBIN3,SYSBUF «, t00=0x0008, t01=0x002a}
0x0cc6…0cdc Head {h00=0x0012, h01=0x0050, text=» PERF ALGO,W2 «, t00=0x0008, t01=0x004e}
0x0cdc…0cf0 Head {h00=0x0010, h01=0x0050, text=» BNERR CHOK «, t00=0x0008, t01=0x0064}
0x0cf0…0d0a Head {h00=0x0016, h01=0x0050, text=» MOVE FRMTPNTR,W0 «, t00=0x0008, t01=0x0078}
0x0d0a…0d1e Head {h00=0x0010, h01=0x0050, text=» SET SWIT07 «, t00=0x0008, t01=0x0092}
0x0d1e…0d30 Head {h00=0x000e, h01=0x0050, text=» BNZ SETER«, t00=0x0008, t01=0x00a6}
0x0d30…0d44 Head {h00=0x0010, h01=0x0050, text=» PERF RELEAS«, t00=0x0008, t01=0x00b8}
0x0d44…0d56 Head {h00=0x000e, h01=0x0050, text=» B STRT01 «, t00=0x0008, t01=0x00cc}
0x0d56…0d64 Head {h00=0x000a, h01=0x0050, text=»SETER «, t00=0x0008, t01=0x00de}
0x0d64…0d7c Head {h00=0x0014, h01=0x0050, text=» MOVE DEBINW4,W9«, t00=0x0008, t01=0x00ec}
0x0d7c…0d8e Head {h00=0x000e, h01=0x0050, text=» B RETURN «, t00=0x0008, t01=0x0104}
0x0d8e…0d9a Head {h00=0x0008, h01=0x0050, text=»CHOK«, t00=0x0008, t01=0x0116}
0x0d9a…0dc4 Head {h00=0x0026, h01=0x0050, text=» MOVE FRMTPNTR,DEBIN3 SET FRMTPNTR«, t00=0x0008, t01=0x0122}
0x0dc4…0ddc Head {h00=0x0014, h01=0x0050, text=» GET LINK NEXT«, t00=0x0008, t01=0x014c}
0x0ddc…0e02 Head {h00=0x0022, h01=0x0050, text=» XCOPY DEBIN5,W0,W2,SYSBUF,W4 «, t00=0x0008, t01=0x0164}
0x0e02…0e1a Head {h00=0x0014, h01=0x0050, text=» GET NO OF REC«, t00=0x0008, t01=0x018a}
0x0e1a…0e32 Head {h00=0x0014, h01=0x0050, text=» MOVE DEBIN3,W0 «, t00=0x0009, t01=0x0012}
0x0e32…0e58 Head {h00=0x0022, h01=0x0050, text=» XCOPY DEBIN3,W1,W1,SYSBUF,W8 «, t00=0x0009, t01=0x002a}
0x0e58…0e74 Head {h00=0x0018, h01=0x0050, text=» MOVE DEBIN1,DEBIN3 «, t00=0x0009, t01=0x0050}
0x0e74…0e8c Head {h00=0x0014, h01=0x0050, text=» MOVE DEBIN4,W0 «, t00=0x0009, t01=0x006c}
0x0e8c…0ea8 Head {h00=0x0018, h01=0x0050, text=» GET NO OF CONSEC «, t00=0x0009, t01=0x0084}
0x0ea8…0ece Head {h00=0x0022, h01=0x0050, text=» XCOPY DEBIN4,W1,W1,SYSBUF,W9 «, t00=0x0009, t01=0x00a0}
0x0ece…0efc Head {h00=0x002a, h01=0x0050, text=» PERF DEPOOL,W1,DEBIN3,DEBIN4,STRG10A «, t00=0x0009, t01=0x00c6}
0x0efc…0f10 Head {h00=0x0010, h01=0x0050, text=» BNERR GET21«, t00=0x0009, t01=0x00f4}
0x0f10…0f3c Head {h00=0x0028, h01=0x0050, text=» MOVE DEBINW4,W13 'NO BUFFERS FREE' «, t00=0x0009, t01=0x0108}
0x0f3c…0f44 Head {h00=0x0004, h01=0x0050, t00=0x0009, t01=0x0134}
0x0f44…0f56 Head {h00=0x000e, h01=0x0050, text=» B RETURN «, t00=0x0009, t01=0x013c}
0x0f56…0f62 Head {h00=0x0008, h01=0x0050, text=»MAXI«, t00=0x0009, t01=0x014e}
0x0f62…0f80 Head {h00=0x001a, h01=0x0050, text=» MOVE DEBIN3,FRMTPNTR «, t00=0x0009, t01=0x015a}
0x0f80…0f92 Head {h00=0x000e, h01=0x0050, text=» B RDDK98 «, t00=0x0009, t01=0x0178}
0x0f92…0fa0 Head {h00=0x000a, h01=0x0050, text=»GET21 «, t00=0x0009, t01=0x018a}
0x0fa0…0fbc Head {h00=0x0018, h01=0x0050, text=» MOVE DEBIN4,DEBIN3 «, t00=0x000a, t01=0x0008}
0x0fbc…0fca Head {h00=0x000a, h01=0x0050, text=»GET20 «, t00=0x000a, t01=0x0024}
0x0fca…0ffa Head {h00=0x002c, h01=0x0050, text=» XCOPY BPOOL(DEBIN3),W0,W188,SYSBUF,W10 «, t00=0x000a, t01=0x0032}
0x0ffa…1028 Head {h00=0x002a, h01=0x0050, text=» XCOPY RPOOL(DEBIN3),W9,W10,SYSBUF,W0 «, t00=0x000a, t01=0x0062}
0x1028…103e Head {h00=0x0012, h01=0x0050, text=» SUB DEBIN1,W1«, t00=0x000a, t01=0x0090}
0x103e…105a Head {h00=0x0018, h01=0x0050, text=» CBE DEBIN1,W0,TBFAL«, t00=0x000a, t01=0x00a6}
0x105a…107e Head {h00=0x0020, h01=0x0050, text=» PERF DISU,W1,DEBIN5,SYSBUF «, t00=0x000a, t01=0x00c2}
0x107e…1092 Head {h00=0x0010, h01=0x0050, text=» BERR RETURN«, t00=0x000a, t01=0x00e6}
0x1092…10aa Head {h00=0x0014, h01=0x0050, text=» GET LINK NEXT«, t00=0x000a, t01=0x00fa}
0x10aa…10d0 Head {h00=0x0022, h01=0x0050, text=» XCOPY DEBIN5,W0,W2,SYSBUF,W4 «, t00=0x000a, t01=0x0112}
0x10d0…10fc Head {h00=0x0028, h01=0x0050, text=» XCOPY DEBIN3,W1,W1,RPOOL(DEBIN3),W8«, t00=0x000a, t01=0x0138}
0x10fc…110c Head {h00=0x000c, h01=0x0050, text=» B GET20«, t00=0x000a, t01=0x0164}
0x110c…111a Head {h00=0x000a, h01=0x0050, text=»TBFALL«, t00=0x000a, t01=0x0174}
0x111a…1136 Head {h00=0x0018, h01=0x0050, text=» MOVE DEBIN4,DEBIN3 «, t00=0x000a, t01=0x0182}
0x1136…1144 Head {h00=0x000a, h01=0x0050, text=»TBFAL «, t00=0x000b, t01=0x000e}
0x1144…1172 Head {h00=0x002a, h01=0x0050, text=» PERF DEPOOL,W4,DEBIN4,DEBIN1,STRG10A «, t00=0x000b, t01=0x001c}
0x1172…1190 Head {h00=0x001a, h01=0x0050, text=» CBE PINDFR,W0,SETPFR «, t00=0x000b, t01=0x004a}
0x1190…11be Head {h00=0x002a, h01=0x0050, text=» PERF DEPOOL,W6,PINDFR,DEBIN1,STRG10A «, t00=0x000b, t01=0x0068}
0x11be…11cc Head {h00=0x000a, h01=0x0050, text=»SETPFR«, t00=0x000b, t01=0x0096}
0x11cc…11e8 Head {h00=0x0018, h01=0x0050, text=» MOVE PINDFR,DEBIN4 «, t00=0x000b, t01=0x00a4}
0x11e8…11fa Head {h00=0x000e, h01=0x0050, text=» B RETURN «, t00=0x000b, t01=0x00c0}
0x11fa…1208 Head {h00=0x000a, h01=0x0050, text=»FLOCKE«, t00=0x000b, t01=0x00d2}
0x1208…122a Head {h00=0x001e, h01=0x0050, text=» MOVE DEBINW4,W11 'LOCKED'«, t00=0x000b, t01=0x00e0}
0x122a…123c Head {h00=0x000e, h01=0x0050, text=» B RETURN «, t00=0x000b, t01=0x0102}
0x123c…124a Head {h00=0x000a, h01=0x0050, text=»GOTFFR«, t00=0x000b, t01=0x0114}
0x124a…1262 Head {h00=0x0014, h01=0x0050, text=» MOVE DEBIN1,W0 «, t00=0x000b, t01=0x0122}
0x1262…128e Head {h00=0x0028, h01=0x0050, text=» XCOPY DEBIN1,W1,W1,RPOOL(DEBIN3),W7«, t00=0x000b, t01=0x013a}
0x128e…12b4 Head {h00=0x0022, h01=0x0050, text=» CBL DEBIN1,W1,FUNUSE NOT USED«, t00=0x000b, t01=0x0166}
0x12b4…12c4 Head {h00=0x000c, h01=0x0050, text=» USED «, t00=0x000b, t01=0x018c}
0x12c4…12de Head {h00=0x0016, h01=0x0050, text=» TBT SWIT02,INDUSE«, t00=0x000c, t01=0x000c}
0x12de…12ec Head {h00=0x000a, h01=0x0050, text=»FGETUN«, t00=0x000c, t01=0x0026}
0x12ec…1314 Head {h00=0x0024, h01=0x0050, text=» PERF SCHPOO,=C'F ',STR6A,W5 SET«, t00=0x000c, t01=0x0034}
0x1314…1326 Head {h00=0x000e, h01=0x0050, text=» B TBFALL «, t00=0x000c, t01=0x005c}
0x1326…1334 Head {h00=0x000a, h01=0x0050, text=»FUNUSE«, t00=0x000c, t01=0x006e}
0x1334…134e Head {h00=0x0016, h01=0x0050, text=» TBF SWIT02,FGETUN«, t00=0x000c, t01=0x007c}
0x134e…1370 Head {h00=0x001e, h01=0x0050, text=» MOVE RPOOL(DEBIN3),HEX00 «, t00=0x000c, t01=0x0096}
0x1370…1380 Head {h00=0x000c, h01=0x0050, text=» B RDDK «, t00=0x000c, t01=0x00b8}
0x1380…138e Head {h00=0x000a, h01=0x0050, text=»INDUSE«, t00=0x000c, t01=0x00c8}
0x138e…13a8 Head {h00=0x0016, h01=0x0050, text=» MOVE DEBINW4,W11 «, t00=0x000c, t01=0x00d6}
0x13a8…13ba Head {h00=0x000e, h01=0x0050, text=» B RETURN «, t00=0x000c, t01=0x00f0}
0x13ba…13d8 Head {h00=0x001a, h01=0x0050, text=»SCHFMT SEARCH FORMAT«, t00=0x000c, t01=0x0102}
0x13d8…13ec Head {h00=0x0010, h01=0x0050, text=» SET SWIT02 «, t00=0x000c, t01=0x0120}
0x13ec…13fe Head {h00=0x000e, h01=0x0050, text=» B GETFMT «, t00=0x000c, t01=0x0134}
0x13fe…1408 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x0146}
0x1408…1412 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x0150}
0x1412…141c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x015a}
0x141c…142a Head {h00=0x000a, h01=0x0050, text=»WRICUR«, t00=0x000c, t01=0x0164}
0x142a…144e Head {h00=0x0020, h01=0x0050, text=» PERF FREESP,DEBIN1,FILINDUS«, t00=0x000c, t01=0x0172}
0x144e…1464 Head {h00=0x0012, h01=0x0050, text=» BNERR WRIT01 «, t00=0x000d, t01=0x0008}
0x1464…1492 Head {h00=0x002a, h01=0x0050, text=» SET SWIT01 NO MORE SECTORS AVAILABLE «, t00=0x000d, t01=0x001e}
0x1492…14a0 Head {h00=0x000a, h01=0x0050, text=»WRIT01«, t00=0x000d, t01=0x004c}
0x14a0…14bc Head {h00=0x0018, h01=0x0050, text=» MOVE STR2A,=X'4453'«, t00=0x000d, t01=0x005a}
0x14bc…14de Head {h00=0x001e, h01=0x0050, text=» COPY RBUF,W0,W2,STR2A,W0 «, t00=0x000d, t01=0x0076}
0x14de…1502 Head {h00=0x0020, h01=0x0050, text=» PTR NEXT SCTR TO CURR REC«, t00=0x000d, t01=0x0098}
0x1502…1526 Head {h00=0x0020, h01=0x0050, text=» XCOPY RBUF,W4,W2,DEBIN1,W0 «, t00=0x000d, t01=0x00bc}
0x1526…1534 Head {h00=0x000a, h01=0x0050, text=»WRIT05«, t00=0x000d, t01=0x00e0}
0x1534…155e Head {h00=0x0026, h01=0x0050, text=» PERF WRDS,CURSEC WRITE RECORDAREA«, t00=0x000d, t01=0x00ee}
0x155e…1574 Head {h00=0x0012, h01=0x0050, text=» BNERR WRIT02 «, t00=0x000d, t01=0x0118}
0x1574…157e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x012e}
0x157e…159a Head {h00=0x0018, h01=0x0050, text=»* WRITING - ERROR «, t00=0x000d, t01=0x0138}
0x159a…15a4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x0154}
0x15a4…15d8 Head {h00=0x0030, h01=0x0050, text=» PERF FREESP,DEBIN2,FILINDUS GET NEW FREESP «, t00=0x000d, t01=0x015e}
0x15d8…1610 (14, 0, 400) Head {h00=0x0034, h01=0x0050, text=» MOVE CURSEC,DEBIN2 NEW FREESP = CURRENT SCTRNO «, t00=0x000e, t01=0x0004}
0x1610…162e Head {h00=0x001a, h01=0x0050, text=» GET LINK PREV SCTR «, t00=0x000e, t01=0x003c}
0x162e…1652 Head {h00=0x0020, h01=0x0050, text=» XCOPY DEBIN3,W0,W2,RBUF,W2 «, t00=0x000e, t01=0x005a}
0x1652…167e Head {h00=0x0028, h01=0x0050, text=» CBE DEBIN3,W0,ENDERR FIRST RECORD? «, t00=0x000e, t01=0x007e}
0x167e…16ac Head {h00=0x002a, h01=0x0050, text=» PERF RDDS,DEBIN3 READ PREV RECORD(S) «, t00=0x000e, t01=0x00aa}
0x16ac…16c0 Head {h00=0x0010, h01=0x0050, text=» BERR ENDERR«, t00=0x000e, t01=0x00d8}
0x16c0…16e8 Head {h00=0x0024, h01=0x0050, text=» SET CONTINUATION IN PREV SCTR«, t00=0x000e, t01=0x00ec}
0x16e8…170c Head {h00=0x0020, h01=0x0050, text=» XCOPY RBUF,W4,W2,CURSEC,W0 «, t00=0x000e, t01=0x0114}
0x170c…173a Head {h00=0x002a, h01=0x0050, text=» PERF WRDS,DEBIN3 WRITE PREV RECORD(S)«, t00=0x000e, t01=0x0138}
0x173a…1750 Head {h00=0x0012, h01=0x0050, text=» BNERR WRIT05 «, t00=0x000e, t01=0x0166}
0x1750…1770 Head {h00=0x001c, h01=0x0050, text=» GET LINK PREV OF PREV«, t00=0x000e, t01=0x017c}
0x1770…1796 Head {h00=0x0022, h01=0x0050, text=» XCOPY DEBIN3,W0,W2,SYSBUF,W2 «, t00=0x000f, t01=0x000c}
0x1796…17c2 Head {h00=0x0028, h01=0x0050, text=» CBE DEBIN3,W0,ENDERR FIRST RECORD? «, t00=0x000f, t01=0x0032}
0x17c2…17ee Head {h00=0x0028, h01=0x0050, text=» PERF RDDS,DEBIN3 READ PREV OF PREV «, t00=0x000f, t01=0x005e}
0x17ee…1802 Head {h00=0x0010, h01=0x0050, text=» BERR ENDERR«, t00=0x000f, t01=0x008a}
0x1802…1828 Head {h00=0x0022, h01=0x0050, text=» PREV OF PREV = END OF CHAIN«, t00=0x000f, t01=0x009e}
0x1828…1848 Head {h00=0x001c, h01=0x0050, text=» XCOPY RBUF,W4,W2,W0,W0 «, t00=0x000f, t01=0x00c4}
0x1848…1874 Head {h00=0x0028, h01=0x0050, text=» PERF WRDS,DEBIN3 WRITE PREV OF PREV«, t00=0x000f, t01=0x00e4}
0x1874…1882 Head {h00=0x000a, h01=0x0050, text=»ENDERR«, t00=0x000f, t01=0x0110}
0x1882…18b0 Head {h00=0x002a, h01=0x0050, text=» MOVE DEBINW4,W21 INDICATE DISC-ERROR «, t00=0x000f, t01=0x011e}
0x18b0…18c2 Head {h00=0x000e, h01=0x0050, text=» B WRIT07 «, t00=0x000f, t01=0x014c}
0x18c2…18cc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x015e}
0x18cc…18de Head {h00=0x000e, h01=0x0050, text=»* OKAY «, t00=0x000f, t01=0x0168}
0x18de…18e8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x017a}
0x18e8…18f6 Head {h00=0x000a, h01=0x0050, text=»WRIT02«, t00=0x000f, t01=0x0184}
0x18f6…1914 (16, 0, 400) Head {h00=0x001a, h01=0x0050, text=» SET LINK PREV SCTR «, t00=0x0010, t01=0x0004}
0x1914…1938 Head {h00=0x0020, h01=0x0050, text=» XCOPY RBUF,W2,W2,CURSEC,W0 «, t00=0x0010, t01=0x0022}
0x1938…1968 Head {h00=0x002c, h01=0x0050, text=» XCOPY RBUF,W4,W2,W0,W0 LINK TO NEXT = 0«, t00=0x0010, t01=0x0046}
0x1968…1986 Head {h00=0x001a, h01=0x0050, text=» SET NO OF OCC BYTES«, t00=0x0010, t01=0x0076}
0x1986…19a6 Head {h00=0x001c, h01=0x0050, text=» XCOPY RBUF,W6,W2,W10,W0«, t00=0x0010, t01=0x0094}
0x19a6…19d4 Head {h00=0x002a, h01=0x0050, text=» MOVE CURSEC,DEBIN1 SET CURRENT SCTRNO«, t00=0x0010, t01=0x00b4}
0x19d4…19ee Head {h00=0x0016, h01=0x0050, text=» TBF SWIT01,WRIT07«, t00=0x0010, t01=0x00e2}
0x19ee…1a20 Head {h00=0x002e, h01=0x0050, text=» MOVE DEBINW4,W10 'NO MORE SPACE ON DISC' «, t00=0x0010, t01=0x00fc}
0x1a20…1a2e Head {h00=0x000a, h01=0x0050, text=»WRIT07«, t00=0x0010, t01=0x012e}
0x1a2e…1a40 Head {h00=0x000e, h01=0x0050, text=» B RETURN «, t00=0x0010, t01=0x013c}
0x1a40…1a4a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x014e}
0x1a4a…1a54 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x0158}
0x1a54…1a5e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x0162}
0x1a5e…1a6c Head {h00=0x000a, h01=0x0050, text=»GTNEXT«, t00=0x0010, t01=0x016c}
0x1a6c…1a90 Head {h00=0x0020, h01=0x0050, text=» XCOPY DEBIN1,W0,W2,RBUF,W4 «, t00=0x0010, t01=0x017a}
0x1a90…1a9e Head {h00=0x000a, h01=0x0050, text=»GT001 «, t00=0x0011, t01=0x000e}
0x1a9e…1ac6 Head {h00=0x0024, h01=0x0050, text=» PERF RDDS,DEBIN1 READ SECTOR(S)«, t00=0x0011, t01=0x001c}
0x1ac6…1ada Head {h00=0x0010, h01=0x0050, text=» BERR RETURN«, t00=0x0011, t01=0x0044}
0x1ada…1b04 Head {h00=0x0026, h01=0x0050, text=» CBE FC,W16,GT003 JUMP IF GETPREV «, t00=0x0011, t01=0x0058}
0x1b04…1b28 Head {h00=0x0020, h01=0x0050, text=» GET LINK PREV FOR CONTROL«, t00=0x0011, t01=0x0082}
0x1b28…1b4c Head {h00=0x0020, h01=0x0050, text=» XCOPY DEBIN2,W0,W2,RBUF,W2 «, t00=0x0011, t01=0x00a6}
0x1b4c…1b68 Head {h00=0x0018, h01=0x0050, text=» CBE DEBIN2,W0,GT002«, t00=0x0011, t01=0x00ca}
0x1b68…1b88 Head {h00=0x001c, h01=0x0050, text=» CBE CURSEC,DEBIN2,GT003«, t00=0x0011, t01=0x00e6}
0x1b88…1bae Head {h00=0x0022, h01=0x0050, text=» IF NOT OK, ZEROISE LINK TO «, t00=0x0011, t01=0x0106}
0x1bae…1bd6 Head {h00=0x0024, h01=0x0050, text=» NEXT SCTR(S) IN CURRENT ONE. «, t00=0x0011, t01=0x012c}
0x1bd6…1bf6 Head {h00=0x001c, h01=0x0050, text=» XCOPY RBUF,W4,W2,W0,W0 «, t00=0x0011, t01=0x0154}
0x1bf6…1c10 Head {h00=0x0016, h01=0x0050, text=» PERF WRDS,DEBIN1 «, t00=0x0011, t01=0x0174}
0x1c10…1c1e Head {h00=0x000a, h01=0x0050, text=»GT002 «, t00=0x0011, t01=0x018e}
0x1c1e…1c36 Head {h00=0x0014, h01=0x0050, text=» MOVE DEBINW4,W9«, t00=0x0012, t01=0x000c}
0x1c36…1c48 Head {h00=0x000e, h01=0x0050, text=» B RETURN «, t00=0x0012, t01=0x0024}
0x1c48…1c56 Head {h00=0x000a, h01=0x0050, text=»GT003 «, t00=0x0012, t01=0x0036}
0x1c56…1c86 Head {h00=0x002c, h01=0x0050, text=» MOVE CURSEC,DEBIN1 CURRENT SECTORNUMBER«, t00=0x0012, t01=0x0044}
0x1c86…1c98 Head {h00=0x000e, h01=0x0050, text=» B RETURN «, t00=0x0012, t01=0x0074}
0x1c98…1ca2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x0086}
0x1ca2…1cac Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x0090}
0x1cac…1cb6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x009a}
0x1cb6…1cc4 Head {h00=0x000a, h01=0x0050, text=»GTPREV«, t00=0x0012, t01=0x00a4}
0x1cc4…1ce8 Head {h00=0x0020, h01=0x0050, text=» XCOPY DEBIN1,W0,W2,RBUF,W2 «, t00=0x0012, t01=0x00b2}
0x1ce8…1cf8 Head {h00=0x000c, h01=0x0050, text=» B GT001«, t00=0x0012, t01=0x00d6}
0x1cf8…1d02 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x00e6}
0x1d02…1d0c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x00f0}
0x1d0c…1d16 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x00fa}
0x1d16…1d24 Head {h00=0x000a, h01=0x0050, text=»DLCURR«, t00=0x0012, t01=0x0104}
0x1d24…1d38 Head {h00=0x0010, h01=0x0050, text=» SET SWIT04 «, t00=0x0012, t01=0x0112}
0x1d38…1d52 Head {h00=0x0016, h01=0x0050, text=» PERF DLRCCH,RBUF «, t00=0x0012, t01=0x0126}
0x1d52…1d6e Head {h00=0x0018, h01=0x0050, text=» MOVE CURSEC,DEBIN2 «, t00=0x0012, t01=0x0140}
0x1d6e…1d80 Head {h00=0x000e, h01=0x0050, text=» B RETURN «, t00=0x0012, t01=0x015c}
0x1d80…1d8a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x016e}
0x1d8a…1d94 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x0178}
0x1d94…1d9e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x0182}
0x1d9e…1dac Head {h00=0x000a, h01=0x0050, text=»WRIACC«, t00=0x0012, t01=0x018c}
0x1dac…1dc0 Head {h00=0x0010, h01=0x0050, text=» PERF WRACC «, t00=0x0013, t01=0x000a}
0x1dc0…1ddc Head {h00=0x0018, h01=0x0050, text=» PERF WRFSP,FILINDUS«, t00=0x0013, t01=0x001e}
0x1ddc…1dee Head {h00=0x000e, h01=0x0050, text=» B RETURN «, t00=0x0013, t01=0x003a}
0x1dee…1df8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x004c}
0x1df8…1e02 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x0056}
0x1e02…1e0c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x0060}
0x1e0c…1e1a Head {h00=0x000a, h01=0x0050, text=»WRTCO «, t00=0x0013, t01=0x006a}
0x1e1a…1e44 Head {h00=0x0026, h01=0x0050, text=» PERF WRDS,CURSEC WRITE SECTOR(S) «, t00=0x0013, t01=0x0078}
0x1e44…1e56 Head {h00=0x000e, h01=0x0050, text=» B RETURN «, t00=0x0013, t01=0x00a2}
0x1e56…1e60 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x00b4}
0x1e60…1e6a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x00be}
0x1e6a…1e74 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x00c8}
0x1e74…1e90 Head {h00=0x0018, h01=0x0050, text=»CLSBTH CLOSE BATCH«, t00=0x0013, t01=0x00d2}
0x1e90…1ea8 Head {h00=0x0014, h01=0x0050, text=» MOVE DEBIN1,W0 «, t00=0x0013, t01=0x00ee}
0x1ea8…1eba Head {h00=0x000e, h01=0x0050, text=» B WRIT01 «, t00=0x0013, t01=0x0106}
0x1eba…1ec4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x0118}
0x1ec4…1ece Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x0122}
0x1ece…1ed8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x012c}
0x1ed8…1ee8 Head {h00=0x000c, h01=0x0050, text=»DELBTCH «, t00=0x0013, t01=0x0136}
0x1ee8…1efc Head {h00=0x0010, h01=0x0050, text=» SET SWIT01 «, t00=0x0013, t01=0x0146}
0x1efc…1f0e Head {h00=0x000e, h01=0x0050, text=» B OPNEBC «, t00=0x0013, t01=0x015a}
0x1f0e…1f18 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x016c}
0x1f18…1f22 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x0176}
0x1f22…1f2c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x0180}
0x1f2c…1f3a Head {h00=0x000a, h01=0x0050, text=»RECURR«, t00=0x0013, t01=0x018a}
0x1f3a…1f60 Head {h00=0x0022, h01=0x0050, text=» PERF RDDS,CURSEC READ SCTR(S)«, t00=0x0014, t01=0x0008}
0x1f60…1f84 Head {h00=0x0020, h01=0x0050, text=» CBNE DEBINW4,=W'30',BRETTA «, t00=0x0014, t01=0x002e}
0x1f84…1f9c Head {h00=0x0014, h01=0x0050, text=» MOVE DEBINW4,W0«, t00=0x0014, t01=0x0052}
0x1f9c…1faa Head {h00=0x000a, h01=0x0050, text=»BRETTA«, t00=0x0014, t01=0x006a}
0x1faa…1fbc Head {h00=0x000e, h01=0x0050, text=» B RETURN «, t00=0x0014, t01=0x0078}
0x1fbc…1fc6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x008a}
0x1fc6…1fd0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x0094}
0x1fd0…1fda Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x009e}
0x1fda…1fe8 Head {h00=0x000a, h01=0x0006, text=»GETTBL«, t00=0x0014, t01=0x00a8}
0x1fe8…200c Head {h00=0x0020, h01=0x0050, text=» PERF SCHPOO,=C'T ',TABLE,W5«, t00=0x0014, t01=0x00b6}
0x200c…2026 Head {h00=0x0016, h01=0x0012, text=» IB DEBIN4,GTF,LCK«, t00=0x0014, t01=0x00da}
0x2026…2044 Head {h00=0x001a, h01=0x0015, text=» NOT IN POOL, READ «, t00=0x0014, t01=0x00f4}
0x2044…2052 Head {h00=0x000a, h01=0x0006, text=»GETT01«, t00=0x0014, t01=0x0112}
0x2052…2064 Head {h00=0x000e, h01=0x000a, text=» PERF WAIT«, t00=0x0014, t01=0x0120}
0x2064…2078 Head {h00=0x0010, h01=0x0050, text=» BERR RETURN«, t00=0x0014, t01=0x0132}
0x2078…20a8 Head {h00=0x002c, h01=0x0027, text=» COPY STR2A,W0,W2,TABLE,W1 GET TABLE-NO «, t00=0x0014, t01=0x0146}
0x20a8…20c2 Head {h00=0x0016, h01=0x0050, text=» MOVE BCD13A,STR2A«, t00=0x0014, t01=0x0176}
0x20c2…20f0 Head {h00=0x002a, h01=0x0050, text=» MOVE DEBIN5,BCD13A CONVERT TO BINARY «, t00=0x0014, t01=0x0190}
0x20f0…2110 Head {h00=0x001c, h01=0x0018, text=» CBL DEBIN5,=W'95',DKTBL«, t00=0x0015, t01=0x002e}
0x2110…2138 Head {h00=0x0024, h01=0x001f, text=» MOVE DEBINW4,W1 INDICATE ERROR «, t00=0x0015, t01=0x004e}
0x2138…214a Head {h00=0x000e, h01=0x0009, text=» B RETURN «, t00=0x0015, t01=0x0076}
0x214a…2158 Head {h00=0x000a, h01=0x0005, text=»DKTBL «, t00=0x0015, t01=0x0088}
0x2158…218a Head {h00=0x002e, h01=0x002a, text=» PERF DISU,W1,W7,SYSBUF READ TABLE-PTR-REC«, t00=0x0015, t01=0x0096}
0x218a…219a Head {h00=0x000c, h01=0x0050, text=» BOK MUL«, t00=0x0015, t01=0x00c8}
0x219a…21b6 Head {h00=0x0018, h01=0x0050, text=» CMP DEBINW4,=W'30' «, t00=0x0015, t01=0x00d8}
0x21b6…21ca Head {h00=0x0010, h01=0x0050, text=» BNE RETURN «, t00=0x0015, t01=0x00f4}
0x21ca…21e2 Head {h00=0x0014, h01=0x0050, text=» MOVE DEBINW4,W0«, t00=0x0015, t01=0x0108}
0x21e2…21fc Head {h00=0x0016, h01=0x0050, text=» TBF SWIT01,NOINSY«, t00=0x0015, t01=0x0120}
0x21fc…221c Head {h00=0x001c, h01=0x0050, text=» MOVE SYSBUF,=X'544300' «, t00=0x0015, t01=0x013a}
0x221c…223c Head {h00=0x001c, h01=0x0050, text=» PERF DISU,W2,W7,SYSBUF «, t00=0x0015, t01=0x015a}
0x223c…2250 Head {h00=0x0010, h01=0x0050, text=» BERR RETURN«, t00=0x0015, t01=0x017a}
0x2250…225c Head {h00=0x0008, h01=0x0050, text=»MUL «, t00=0x0015, t01=0x018e}
0x225c…2272 Head {h00=0x0012, h01=0x000e, text=» MUL DEBIN5,W2«, t00=0x0016, t01=0x000a}
0x2272…228a Head {h00=0x0014, h01=0x000f, text=» ADD DEBIN5,W10 «, t00=0x0016, t01=0x0020}
0x228a…22b4 Head {h00=0x0026, h01=0x0021, text=» XCOPY DEBIN1,W0,W2,SYSBUF,DEBIN5 «, t00=0x0016, t01=0x0038}
0x22b4…22d2 Head {h00=0x001a, h01=0x0050, text=» CBNE DEBIN1,W0,DT002 «, t00=0x0016, t01=0x0062}
0x22d2…22ec Head {h00=0x0016, h01=0x0050, text=» TBF SWIT01,NOINSY«, t00=0x0016, t01=0x0080}
0x22ec…230a Head {h00=0x001a, h01=0x0050, text=» PERF FREESP,DEBIN1,W1«, t00=0x0016, t01=0x009a}
0x230a…231e Head {h00=0x0010, h01=0x0050, text=» BERR RETURN«, t00=0x0016, t01=0x00b8}
0x231e…2348 Head {h00=0x0026, h01=0x0050, text=» XCOPY SYSBUF,DEBIN5,W2,DEBIN1,W0 «, t00=0x0016, t01=0x00cc}
0x2348…2368 Head {h00=0x001c, h01=0x0050, text=» PERF DISU,W2,W7,SYSBUF «, t00=0x0016, t01=0x00f6}
0x2368…237c Head {h00=0x0010, h01=0x0050, text=» BERR RETURN«, t00=0x0016, t01=0x0116}
0x237c…2398 Head {h00=0x0018, h01=0x0050, text=» MOVE DEBIN4,DEBIN1 «, t00=0x0016, t01=0x012a}
0x2398…23aa Head {h00=0x000e, h01=0x0050, text=» B ENTT01 «, t00=0x0016, t01=0x0146}
0x23aa…23b8 Head {h00=0x000a, h01=0x0050, text=»DT002 «, t00=0x0016, t01=0x0158}
0x23b8…23cc Head {h00=0x0010, h01=0x0050, text=» TEST SWIT02«, t00=0x0016, t01=0x0166}
0x23cc…23e0 Head {h00=0x0010, h01=0x0050, text=» BNZ DELT01 «, t00=0x0016, t01=0x017a}
0x23e0…23ec Head {h00=0x0008, h01=0x0003, text=»RDN «, t00=0x0016, t01=0x018e}
0x23ec…2410 Head {h00=0x0020, h01=0x001b, text=» PERF DISU,W1,DEBIN1,SYSBUF «, t00=0x0017, t01=0x000a}
0x2410…2424 Head {h00=0x0010, h01=0x0050, text=» BNOK RETURN«, t00=0x0017, t01=0x002e}
0x2424…2440 Head {h00=0x0018, h01=0x0050, text=» MOVE DEBIN4,DEBIN1 «, t00=0x0017, t01=0x0042}
0x2440…2458 Head {h00=0x0014, h01=0x000f, text=» MOVE DEBIN1,W0 «, t00=0x0017, t01=0x005e}
0x2458…248e Head {h00=0x0032, h01=0x002d, text=» XCOPY DEBIN1,W1,W1,SYSBUF,W9 LAST ELEMENT-NO «, t00=0x0017, t01=0x0076}
0x248e…24b0 Head {h00=0x001e, h01=0x0019, text=» CBNG ELMNO,DEBIN1,FNDTBL «, t00=0x0017, t01=0x00ac}
0x24b0…24e4 Head {h00=0x0030, h01=0x002b, text=» XCOPY DEBIN1,W0,W2,SYSBUF,W4 GET LINK NEXT «, t00=0x0017, t01=0x00ce}
0x24e4…2510 Head {h00=0x0028, h01=0x0023, text=» CBG DEBIN1,W0,RDN READ NEXT RECORD «, t00=0x0017, t01=0x0102}
0x2510…253c Head {h00=0x0028, h01=0x0050, text=» TBF SWIT01,NOINSY JUMP IF NOT ENTER«, t00=0x0017, t01=0x012e}
0x253c…2554 Head {h00=0x0014, h01=0x0050, text=» MOVE DEBIN2,W17«, t00=0x0017, t01=0x015a}
0x2554…2588 Head {h00=0x0030, h01=0x0050, text=» MATCH RPOOL(PINDTB),DEBIN2,W1,SYSBUF,W8,W1 «, t00=0x0017, t01=0x0172}
0x2588…25b4 Head {h00=0x0028, h01=0x0050, text=» BOK ENTT01 INSERT IN CURRENT SECTOR«, t00=0x0018, t01=0x0016}
0x25b4…25d8 Head {h00=0x0020, h01=0x0050, text=» B ENTT03 INSERT NEW SECTOR «, t00=0x0018, t01=0x0042}
0x25d8…25e6 Head {h00=0x000a, h01=0x0050, text=»NOINSY«, t00=0x0018, t01=0x0066}
0x25e6…260e Head {h00=0x0024, h01=0x0020, text=» MOVE DEBINW4,W9 'NOT IN SYSTEM'«, t00=0x0018, t01=0x0074}
0x260e…2620 Head {h00=0x000e, h01=0x0009, text=» B RETURN «, t00=0x0018, t01=0x009c}
0x2620…262e Head {h00=0x000a, h01=0x0006, text=»FNDTBL«, t00=0x0018, t01=0x00ae}
0x262e…2642 Head {h00=0x0010, h01=0x0050, text=» TEST SWIT01«, t00=0x0018, t01=0x00bc}
0x2642…2656 Head {h00=0x0010, h01=0x0050, text=» BNZ ENTCOR«, t00=0x0018, t01=0x00d0}
0x2656…266e Head {h00=0x0014, h01=0x000f, text=» MOVE DEBIN3,W1 «, t00=0x0018, t01=0x00e4}
0x266e…2686 Head {h00=0x0014, h01=0x000f, text=» MOVE DEBIN2,W1 «, t00=0x0018, t01=0x00fc}
0x2686…26b4 Head {h00=0x002a, h01=0x0025, text=» PERF DEPOOL,W1,DEBIN3,DEBIN2,STRG10A «, t00=0x0018, t01=0x0114}
0x26b4…26c8 Head {h00=0x0010, h01=0x000c, text=» BNOK RETURN«, t00=0x0018, t01=0x0142}
0x26c8…26f4 Head {h00=0x0028, h01=0x0024, text=» COPY RPOOL(DEBIN3),W9,W10,SYSBUF,W0«, t00=0x0018, t01=0x0156}
0x26f4…2722 Head {h00=0x002a, h01=0x0050, text=» COPY BPOOL(DEBIN3),W0,W188,SYSBUF,W10«, t00=0x0018, t01=0x0182}
0x2722…272e Head {h00=0x0008, h01=0x0003, text=»GTF «, t00=0x0019, t01=0x0020}
0x272e…275c Head {h00=0x002a, h01=0x0025, text=» PERF DEPOOL,W4,DEBIN3,DEBIN2,STRG10A «, t00=0x0019, t01=0x002c}
0x275c…2798 Head {h00=0x0038, h01=0x0050, text=» PERF DEPOOL,W6,PINDTB,DEBIN2,STRG10A RELEASE BUFFER«, t00=0x0019, t01=0x005a}
0x2798…27b4 Head {h00=0x0018, h01=0x0013, text=» MOVE PINDTB,DEBIN3 «, t00=0x0019, t01=0x0096}
0x27b4…27c6 Head {h00=0x000e, h01=0x0009, text=» B RETURN «, t00=0x0019, t01=0x00b2}
0x27c6…27d2 Head {h00=0x0008, h01=0x0003, text=»LCK «, t00=0x0019, t01=0x00c4}
0x27d2…27ea Head {h00=0x0014, h01=0x0010, text=» MOVE DEBINW4,W3«, t00=0x0019, t01=0x00d0}
0x27ea…27fc Head {h00=0x000e, h01=0x0009, text=» B RETURN «, t00=0x0019, t01=0x00e8}
0x27fc…2806 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0019, t01=0x00fa}
0x2806…2810 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0019, t01=0x0104}
0x2810…281a Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0019, t01=0x010e}
0x281a…2828 Head {h00=0x000a, h01=0x0050, text=»DUMMY «, t00=0x0019, t01=0x0118}
0x2828…2836 Head {h00=0x000a, h01=0x0050, text=»RETURN«, t00=0x0019, t01=0x0126}
0x2836…2850 Head {h00=0x0016, h01=0x0050, text=» TBF SWITFS,RETUNF«, t00=0x0019, t01=0x0134}
0x2850…2866 Head {h00=0x0012, h01=0x0050, text=» PERF WRFSP,W1«, t00=0x0019, t01=0x014e}
0x2866…2874 Head {h00=0x000a, h01=0x0050, text=»RETUNF«, t00=0x0019, t01=0x0164}
0x2874…2888 Head {h00=0x0010, h01=0x0050, text=» PERF RELEAS«, t00=0x0019, t01=0x0172}
0x2888…28a8 Head {h00=0x001c, h01=0x0050, text=» CBNE DEBINW4,W0,RETUN9 «, t00=0x0019, t01=0x0186}
0x28a8…28c2 Head {h00=0x0016, h01=0x0050, text=» TBF SW95PR,RETUN9«, t00=0x001a, t01=0x0016}
0x28c2…28de Head {h00=0x0018, h01=0x0050, text=» MOVE DEBINW4,=W'-1'«, t00=0x001a, t01=0x0030}
0x28de…28ec Head {h00=0x000a, h01=0x0050, text=»RETUN9«, t00=0x001a, t01=0x004c}
0x28ec…28fe Head {h00=0x000e, h01=0x0050, text=» PERF COND«, t00=0x001a, t01=0x005a}
0x28fe…290a Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x001a, t01=0x006c}
0x290a…2918 Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x001a, t01=0x0078}
0x2918…2924 Head {h00=0x0008, h01=0x0050, text=» END«, t00=0x001a, t01=0x0086}
0x2924…2928 Head {h00=0x4004, h01=0x0000}
0x2928…292c 00 1a 00 92 ┆ ┆
0x292c…2934 (27, 1, 8) 20 04 00 00 00 1b 00 04 ┆ ┆
0x2934…2984 (28, 0, 400) 03 00 84 20 fc ff a4 5b 00 02 ab 5b 00 02 f0 3a f6 a1 58 32 80 d6 00 02 02 00 23 30 1b 30 54 0e e1 26 91 a0 00 01 e9 21 0f 0f 54 12 02 ff e9 94 50 0c e1 26 91 a0 00 01 21 ff e9 08 58 10 01 00 54 02 11 01 e1 43 ff fe 8f 20 55 9c f6 a1 45 b6 ┆ [ [ : X2 #0 0T & ! T P & ! X T C U E ┆
0x2984…29d4 f6 a1 46 00 f6 a1 4a 7c 83 59 00 28 82 78 00 20 50 14 a0 59 00 2a f6 a1 43 50 82 78 00 20 81 79 00 20 1a 01 57 76 80 d8 00 08 01 03 82 58 00 10 22 7f 88 20 42 40 81 d8 00 16 85 58 00 1c 83 58 00 2e 81 38 f6 a1 46 be f6 a1 53 16 81 58 00 30 ┆ F J| Y ( x P Y * CP x y Wv X " B@ X X . 8 F S X 0┆
0x29d4…2a24 50 10 85 58 00 16 e1 54 00 01 e1 35 15 01 21 ff 5c 0c a0 59 00 2a f6 a1 43 50 02 00 81 79 00 20 81 58 00 12 56 26 83 58 00 28 f6 a1 4a 58 02 00 81 78 00 20 11 02 07 86 80 d8 00 0a 81 43 00 04 9c d6 ff f4 28 04 00 01 94 d6 ff f4 82 59 00 2a ┆P X T 5 ! Y * CP y X V& X ( JX x C ( Y *┆
0x2a24…2a74 92 58 00 0e 82 59 00 2c f6 a1 4a 46 87 58 00 1a 80 d8 00 08 82 58 00 1e 82 43 00 0a 02 26 92 18 82 43 00 02 02 01 82 43 00 04 9c d6 ff f4 28 04 00 01 94 d6 ff f4 80 d8 00 08 81 42 00 08 50 68 39 e3 52 5e 39 e1 8e 20 44 b8 81 58 00 1a 21 40 ┆ X Y , JF X X C & C C ( B Ph9 R^9 D X !@┆
0x2a74…2ac4 50 50 82 58 00 16 92 58 00 2a e1 62 00 02 e1 29 90 59 00 2a 90 59 00 2c 82 58 00 2c f6 a1 4a 46 80 d8 00 08 81 78 00 20 e9 58 00 2a 59 72 50 04 90 79 00 20 82 58 00 10 00 40 00 00 05 50 08 00 20 14 00 08 02 00 00 04 00 00 00 08 00 01 00 02 ┆PP X X * b ) Y * Y , X , JF x X *YrP y X @ P ┆