|
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: 7670 (0x1df6)
Notes: pts_type(SC)
Names: »TASKS1.SC«
└─⟦22f4dea89⟧ Bits:30009702 Philips computer tape "DOS_PTS_4.2_M_FL"
└─⟦this⟧ »NJ-AMT/TASKS1.SC«
└─⟦dab19bdd7⟧ Bits:30009677 Philips computer tape "600218"
└─⟦this⟧ »NJ-AMT/TASKS1.SC«
IDENT TASKS1 830920 EV DDUM KMD08 PDIV ENTRY S1INIT SPOOLPRINT TASK EXT MASK INCLUDE EQUATE EJECT S1INIT PAUSE MOVE SSBINW1,=W'-1' DSC1 SII,X'0B',SSBINW1 DSC1 SIO,X'0B',SSBINW1 SKO100 TBT SKEDOK,SKO200 DELAY CBINMAX B SKO100 EJECT SKO200 MOVE SSSTRG2,CBLANKS MOVE SSBINW1,=W'128' DELAY DELAY SSBINW1 * MAIN LOOP TBF PRAKTIV,SKO200 NO LP AVAILABLE? TBF SKEDOK,SKO200 SCHEDULER STARTED? * SKO205 MOVE SSBINW1,CBIN0 MOVE SSBINW2,CBIN0 CBE PRIO,CBLANKS,SKO210 ANY HIGH PRIORITY? MOVE SSSTRG2,PRIO YES, SIMULATE FIRST ENTRY MOVE PRIO,CBLANKS RESET PRIORITY MOVE SSBINW5,CBIN0 B SKO230 SKO210 XCOPY SSSTRG4,CBIN0,CBIN4,CUSED,SSBINW2 1 ELEMENT XCOPY SSSTRG1,CBIN0,CBIN1,SSSTRG4,CBIN3 STATUSBYTE CBE SSSTRG1,=C'D',SKO212 DELETED WHILE PRINTING? CBE SSSTRG1,=C'P',SKO220 RELEASED FOR PRINT? ADD SSBINW2,CBIN4 NEXT ENTRY CBL SSBINW2,CUSEDLN,SKO210 ANY LEFT? B SKO200 THERE MIGHT BE PRINT NOW SKO212 * DELETED WHILE PRINTING XCOPY SSSTRG4,CBIN3,CBIN1,CBLANKS,CBIN0 XCOPY CUSED,SSBINW2,CBIN4,SSSTRG4,CBIN0 MOVE SSBINW2,CBIN0 XCOPY SSBINW2,CBIN1,CBIN1,SSSTRG4,CBIN2 FILE ID MOVE SSBCD4,SSBINW2 EDIT SSCURFIL,FMCURFIL B SKO325 SKO220 CBG SSSTRG2,CBLANKS,SKO225 MOVE SSSTRG2,SSSTRG4 TASKID SKO225 * FIND LOWEST FILEID FOR THIS TASK (SA..SX) MOVE SSBINW1,CBIN0 MOVE SSBINW3,=W'256' STARTVALUE FILEID MOVE SSBINW4,CBIN0 SKO230 XCOPY SSSTRG4,CBIN0,CBIN4,CUSED,SSBINW1 COPY ENTRY MOVE SSSTRG2A,SSSTRG4 CBNE SSSTRG2A,SSSTRG2,SKO240 XCOPY SSSTRG1,CBIN0,CBIN1,SSSTRG4,CBIN3 STATUSBYTE CBNE SSSTRG1,=C'P',SKO240 READY FOR PRINT? XCOPY SSBINW4,CBIN1,CBIN1,SSSTRG4,CBIN2 FIND FILEID CBG SSBINW4,SSBINW3,SKO240 MOVE SSBINW3,SSBINW4 SAVE LOWEST FILEID MOVE SSBINW5,SSBINW1 DISPL. FOR LOWEST FILEID SKO240 ADD SSBINW1,CBIN4 NEXT ENTRY CBL SSBINW1,CUSEDLN,SKO230 * SKO250 CBE SSBINW3,=W'256',SKO200 NOTHING FOR THIS TASK * INDICATE FILE PRINTING MOVE SSSTRG2A,SSSTRG2 MOVE SSSTRG1,=C'*' PRINTING MOVE SSBINW6,SSBINW5 MOVE SSBINW9,SSBINW5 SAVE FROM THE CANNIBALS ADD SSBINW6,CBIN3 XCOPY CUSED,SSBINW6,CBIN1,SSSTRG1,CBIN0 UPDATE CUSED * OPEN FILE XCOPY SSSTRG4,CBIN0,CBIN4,CUSED,SSBINW5 CURRENT ENTRY MOVE SSBCD4,SSBINW3 EDIT SSCURFIL,FMCURFIL "SPOOLNNN" ASSIGN SPOOL,1,SSBINW1,SSCURFIL,CVOL(CBIN1) BNOK SKO205 SKO260 * READY FOR SQ. READ AND PRINT MOVE SSBINW2,CBIN0 RECORD POINTER TBF PRWAIT,SKO300 WAIT SPLP CLEAR PRWAIT SKO300 ADD SSBINW2,CBIN1 XCOPY SSSTRG1,CBIN0,CBIN1,CUSED,SSBINW6 CURRENT STATUSBYTE CBE SSSTRG1,=C'*',SKO305 NOT CHANGED CBE SSSTRG1,=C'D',SKO320 TO BE DELETED AT ONCE CBNE SSSTRG1,=C'R',SKO305 MOVE SSSTRG1,=C'*' TO BE RESTARTED XCOPY CUSED,SSBINW6,CBIN1,SSSTRG1,CBIN0 B SKO260 SKO305 MOVE SSBINW1,=W'134' RREAD .NEA,SPOOL,TDISKBUF,SSBINW1,SSBINW2 BOK SKO310 PERF GETBIT,SPOOL CBE SSBCD4,=D'10',SKO320 END MEDIUM CBE SSBCD4,=D'4',SKO320 NO DATA CBE SSBCD4,=D'3',SKO310 END OF FILE MOVE SSBINW1,=W'128' MOVE TDISKBUF,=C' * L[SEFEJL * ' SKO310 TBF PRWAIT,SKO315 WAIT SPLP BOK SKO315 DELAY CBINMAX CLEAR PRWAIT SUB SSBINW2,CBIN1 RETRY B SKO300 SKO315 TBT PRAKTIV,SKO317 MOVE SSBINW1,=W'128' DELAY SSBINW1 B SKO315 SKO317 SET PRWAIT WRITE .NW,SPLP,TDISKBUF,SSBINW1 B SKO300 SKO320 XCOPY SSSTRG4,CBIN3,CBIN1,CBLANKS,CBIN0 XCOPY CUSED,SSBINW9,CBIN4,SSSTRG4,CBIN0 DSC0 SPOOL,CLOSE SKO325 MOVE ICIBUF,=X'00' CLEAR BUFFER MOVE SSSTRG2,=C'S1' XCOPY ICIBUF,CBIN0,CBIN2,SSSTRG2,CBIN0 XCOPY ICIBUF,CBIN2,CBIN2,CBIN6,CBIN0 FUNCTION=DLF XCOPY ICIBUF,CBIN6,CBIN8,SSCURFIL,CBIN0 FILE TO DELETE MOVE SSBINW1,=C'S0' SKEDULER SKO330 RWRITE SOO,ICIBUF,SSBINW1 BNOK SKO330 SKO340 MOVE SSBINW1,=W'64' MOVE SSBINW2,=C'S0' RREAD SOI,ICOBUF,SSBINW1,SSBINW2 'FILE DELETED' BERR SKO340 MOVE SSSTRG2,SSSTRG2A FINISH THIS TASK FIRST SET CSAVEIX B SKO205 EJECT GETBIT PROC DSET XSTAT DSET,SSBINW8 GET STATUS MOVE SSBCD4,=D'15' BITNR IN BCD MOVE SSBINW5,CBIN1 BITNR IN BIN GET10 CALL MASK,SSBINW8,SSBINW5 'AND' WITH STATUS BNZ GETRET BIT SET ADD SSBINW5,SSBINW5 NEXT BIT SUB SSBCD4,=D'1' CBG SSBCD4,=D'1',GET10 GETRET RET PEND ERDK PROC DSET PERF GETBIT,DSET CBE SSBCD4,=D'4',ERDKRET NO DATA CBE SSBCD4,=D'7',ERDKRET NEW VOL CMP CBIN0,CBIN1 ERDKRET RET PEND FMCURFIL FRMT FTEXT 'SPOOL' FMEL '999',SSBCD4 FMEND END
0x0000…0020 (0, 0, 400) Head {h00=0x001c, h01=0x0050, text=» IDENT TASKS1 830920 EV «, t00=0x0000, t01=0x0004}
0x0020…0034 Head {h00=0x0010, h01=0x0050, text=» DDUM KMD08 «, t00=0x0000, t01=0x0024}
0x0034…0042 Head {h00=0x000a, h01=0x0050, text=» PDIV «, t00=0x0000, t01=0x0038}
0x0042…004a Head {h00=0x0004, h01=0x0050, t00=0x0000, t01=0x0046}
0x004a…0052 Head {h00=0x0004, h01=0x0050, t00=0x0000, t01=0x004e}
0x0052…005a Head {h00=0x0004, h01=0x0050, t00=0x0000, t01=0x0056}
0x005a…0080 Head {h00=0x0022, h01=0x0050, text=» ENTRY S1INIT SPOOLPRINT TASK «, t00=0x0000, t01=0x005e}
0x0080…0088 Head {h00=0x0004, h01=0x0050, t00=0x0000, t01=0x0084}
0x0088…0090 Head {h00=0x0004, h01=0x0050, t00=0x0000, t01=0x008c}
0x0090…0098 Head {h00=0x0004, h01=0x0050, t00=0x0000, t01=0x0094}
0x0098…00aa Head {h00=0x000e, h01=0x0050, text=» EXT MASK «, t00=0x0000, t01=0x009c}
0x00aa…00b2 Head {h00=0x0004, h01=0x0050, t00=0x0000, t01=0x00ae}
0x00b2…00ba Head {h00=0x0004, h01=0x0050, t00=0x0000, t01=0x00b6}
0x00ba…00c2 Head {h00=0x0004, h01=0x0050, t00=0x0000, t01=0x00be}
0x00c2…00da Head {h00=0x0014, h01=0x0050, text=» INCLUDE EQUATE «, t00=0x0000, t01=0x00c6}
0x00da…00e8 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0000, t01=0x00de}
0x00e8…00f6 Head {h00=0x000a, h01=0x0050, text=»S1INIT«, t00=0x0000, t01=0x00ec}
0x00f6…0104 Head {h00=0x000a, h01=0x0050, text=» PAUSE«, t00=0x0000, t01=0x00fa}
0x0104…0120 Head {h00=0x0018, h01=0x0050, text=» MOVE SSBINW1,=W'-1'«, t00=0x0000, t01=0x0108}
0x0120…0140 Head {h00=0x001c, h01=0x0050, text=» DSC1 SII,X'0B',SSBINW1 «, t00=0x0000, t01=0x0124}
0x0140…0160 Head {h00=0x001c, h01=0x0050, text=» DSC1 SIO,X'0B',SSBINW1 «, t00=0x0000, t01=0x0144}
0x0160…016e Head {h00=0x000a, h01=0x0050, text=»SKO100«, t00=0x0000, t01=0x0164}
0x016e…0188 Head {h00=0x0016, h01=0x0050, text=» TBT SKEDOK,SKO200«, t00=0x0000, t01=0x0172}
0x0188…019e Head {h00=0x0012, h01=0x0050, text=» DELAY CBINMAX«, t00=0x0000, t01=0x018c}
0x019e…01b0 Head {h00=0x000e, h01=0x0050, text=» B SKO100 «, t00=0x0001, t01=0x0012}
0x01b0…01be Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0001, t01=0x0024}
0x01be…01cc Head {h00=0x000a, h01=0x0050, text=»SKO200«, t00=0x0001, t01=0x0032}
0x01cc…01ea Head {h00=0x001a, h01=0x0050, text=» MOVE SSSTRG2,CBLANKS «, t00=0x0001, t01=0x0040}
0x01ea…020e Head {h00=0x0020, h01=0x0050, text=» MOVE SSBINW1,=W'128' DELAY «, t00=0x0001, t01=0x005e}
0x020e…0224 Head {h00=0x0012, h01=0x0050, text=» DELAY SSBINW1«, t00=0x0001, t01=0x0082}
0x0224…0238 Head {h00=0x0010, h01=0x0050, text=»* MAIN LOOP «, t00=0x0001, t01=0x0098}
0x0238…0264 Head {h00=0x0028, h01=0x0050, text=» TBF PRAKTIV,SKO200 NO LP AVAILABLE?«, t00=0x0001, t01=0x00ac}
0x0264…0292 Head {h00=0x002a, h01=0x0050, text=» TBF SKEDOK,SKO200 SCHEDULER STARTED? «, t00=0x0001, t01=0x00d8}
0x0292…029c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x0106}
0x029c…02aa Head {h00=0x000a, h01=0x0050, text=»SKO205«, t00=0x0001, t01=0x0110}
0x02aa…02c6 Head {h00=0x0018, h01=0x0050, text=» MOVE SSBINW1,CBIN0 «, t00=0x0001, t01=0x011e}
0x02c6…02e2 Head {h00=0x0018, h01=0x0050, text=» MOVE SSBINW2,CBIN0 «, t00=0x0001, t01=0x013a}
0x02e2…0316 Head {h00=0x0030, h01=0x0050, text=» CBE PRIO,CBLANKS,SKO210 ANY HIGH PRIORITY? «, t00=0x0001, t01=0x0156}
0x0316…034a Head {h00=0x0030, h01=0x0050, text=» MOVE SSSTRG2,PRIO YES, SIMULATE FIRST ENTRY«, t00=0x0001, t01=0x018a}
0x034a…0374 Head {h00=0x0026, h01=0x0050, text=» MOVE PRIO,CBLANKS RESET PRIORITY «, t00=0x0002, t01=0x002e}
0x0374…0390 Head {h00=0x0018, h01=0x0050, text=» MOVE SSBINW5,CBIN0 «, t00=0x0002, t01=0x0058}
0x0390…03a2 Head {h00=0x000e, h01=0x0050, text=» B SKO230 «, t00=0x0002, t01=0x0074}
0x03a2…03b0 Head {h00=0x000a, h01=0x0050, text=»SKO210«, t00=0x0002, t01=0x0086}
0x03b0…03ea Head {h00=0x0036, h01=0x0050, text=» XCOPY SSSTRG4,CBIN0,CBIN4,CUSED,SSBINW2 1 ELEMENT«, t00=0x0002, t01=0x0094}
0x03ea…0426 Head {h00=0x0038, h01=0x0050, text=» XCOPY SSSTRG1,CBIN0,CBIN1,SSSTRG4,CBIN3 STATUSBYTE «, t00=0x0002, t01=0x00ce}
0x0426…0460 Head {h00=0x0036, h01=0x0050, text=» CBE SSSTRG1,=C'D',SKO212 DELETED WHILE PRINTING? «, t00=0x0002, t01=0x010a}
0x0460…0496 Head {h00=0x0032, h01=0x0050, text=» CBE SSSTRG1,=C'P',SKO220 RELEASED FOR PRINT? «, t00=0x0002, t01=0x0144}
0x0496…04bc Head {h00=0x0022, h01=0x0050, text=» ADD SSBINW2,CBIN4 NEXT ENTRY «, t00=0x0002, t01=0x017a}
0x04bc…04ea Head {h00=0x002a, h01=0x0050, text=» CBL SSBINW2,CUSEDLN,SKO210 ANY LEFT? «, t00=0x0003, t01=0x0010}
0x04ea…0514 Head {h00=0x0026, h01=0x0050, text=» B SKO200 THERE MIGHT BE PRINT NOW«, t00=0x0003, t01=0x003e}
0x0514…0522 Head {h00=0x000a, h01=0x0050, text=»SKO212«, t00=0x0003, t01=0x0068}
0x0522…0542 Head {h00=0x001c, h01=0x0050, text=»* DELETED WHILE PRINTING«, t00=0x0003, t01=0x0076}
0x0542…0572 Head {h00=0x002c, h01=0x0050, text=» XCOPY SSSTRG4,CBIN3,CBIN1,CBLANKS,CBIN0«, t00=0x0003, t01=0x0096}
0x0572…05a2 Head {h00=0x002c, h01=0x0050, text=» XCOPY CUSED,SSBINW2,CBIN4,SSSTRG4,CBIN0«, t00=0x0003, t01=0x00c6}
0x05a2…05be Head {h00=0x0018, h01=0x0050, text=» MOVE SSBINW2,CBIN0 «, t00=0x0003, t01=0x00f6}
0x05be…05f6 Head {h00=0x0034, h01=0x0050, text=» XCOPY SSBINW2,CBIN1,CBIN1,SSSTRG4,CBIN2 FILE ID«, t00=0x0003, t01=0x0112}
0x05f6…0612 Head {h00=0x0018, h01=0x0050, text=» MOVE SSBCD4,SSBINW2«, t00=0x0003, t01=0x014a}
0x0612…0632 Head {h00=0x001c, h01=0x0050, text=» EDIT SSCURFIL,FMCURFIL «, t00=0x0003, t01=0x0166}
0x0632…0644 Head {h00=0x000e, h01=0x0050, text=» B SKO325 «, t00=0x0003, t01=0x0186}
0x0644…0652 Head {h00=0x000a, h01=0x0050, text=»SKO220«, t00=0x0004, t01=0x0008}
0x0652…0676 Head {h00=0x0020, h01=0x0050, text=» CBG SSSTRG2,CBLANKS,SKO225 «, t00=0x0004, t01=0x0016}
0x0676…069a Head {h00=0x0020, h01=0x0050, text=» MOVE SSSTRG2,SSSTRG4 TASKID«, t00=0x0004, t01=0x003a}
0x069a…06a8 Head {h00=0x000a, h01=0x0050, text=»SKO225«, t00=0x0004, t01=0x005e}
0x06a8…06dc Head {h00=0x0030, h01=0x0050, text=»* FIND LOWEST FILEID FOR THIS TASK (SA..SX) «, t00=0x0004, t01=0x006c}
0x06dc…06f8 Head {h00=0x0018, h01=0x0050, text=» MOVE SSBINW1,CBIN0 «, t00=0x0004, t01=0x00a0}
0x06f8…0728 Head {h00=0x002c, h01=0x0050, text=» MOVE SSBINW3,=W'256' STARTVALUE FILEID «, t00=0x0004, t01=0x00bc}
0x0728…0744 Head {h00=0x0018, h01=0x0050, text=» MOVE SSBINW4,CBIN0 «, t00=0x0004, t01=0x00ec}
0x0744…0752 Head {h00=0x000a, h01=0x0050, text=»SKO230«, t00=0x0004, t01=0x0108}
0x0752…078e Head {h00=0x0038, h01=0x0050, text=» XCOPY SSSTRG4,CBIN0,CBIN4,CUSED,SSBINW1 COPY ENTRY «, t00=0x0004, t01=0x0116}
0x078e…07ac Head {h00=0x001a, h01=0x0050, text=» MOVE SSSTRG2A,SSSTRG4«, t00=0x0004, t01=0x0152}
0x07ac…07d2 Head {h00=0x0022, h01=0x0050, text=» CBNE SSSTRG2A,SSSTRG2,SKO240 «, t00=0x0004, t01=0x0170}
0x07d2…080e Head {h00=0x0038, h01=0x0050, text=» XCOPY SSSTRG1,CBIN0,CBIN1,SSSTRG4,CBIN3 STATUSBYTE «, t00=0x0005, t01=0x0008}
0x080e…0842 Head {h00=0x0030, h01=0x0050, text=» CBNE SSSTRG1,=C'P',SKO240 READY FOR PRINT? «, t00=0x0005, t01=0x0044}
0x0842…087e Head {h00=0x0038, h01=0x0050, text=» XCOPY SSBINW4,CBIN1,CBIN1,SSSTRG4,CBIN2 FIND FILEID«, t00=0x0005, t01=0x0078}
0x087e…08a2 Head {h00=0x0020, h01=0x0050, text=» CBG SSBINW4,SSBINW3,SKO240 «, t00=0x0005, t01=0x00b4}
0x08a2…08d2 Head {h00=0x002c, h01=0x0050, text=» MOVE SSBINW3,SSBINW4 SAVE LOWEST FILEID«, t00=0x0005, t01=0x00d8}
0x08d2…0908 Head {h00=0x0032, h01=0x0050, text=» MOVE SSBINW5,SSBINW1 DISPL. FOR LOWEST FILEID«, t00=0x0005, t01=0x0108}
0x0908…0916 Head {h00=0x000a, h01=0x0050, text=»SKO240«, t00=0x0005, t01=0x013e}
0x0916…093c Head {h00=0x0022, h01=0x0050, text=» ADD SSBINW1,CBIN4 NEXT ENTRY «, t00=0x0005, t01=0x014c}
0x093c…0960 Head {h00=0x0020, h01=0x0050, text=» CBL SSBINW1,CUSEDLN,SKO230 «, t00=0x0005, t01=0x0172}
0x0960…096a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x0008}
0x096a…0978 Head {h00=0x000a, h01=0x0050, text=»SKO250«, t00=0x0006, t01=0x0012}
0x0978…09b2 Head {h00=0x0036, h01=0x0050, text=» CBE SSBINW3,=W'256',SKO200 NOTHING FOR THIS TASK «, t00=0x0006, t01=0x0020}
0x09b2…09d2 Head {h00=0x001c, h01=0x0050, text=»* INDICATE FILE PRINTING«, t00=0x0006, t01=0x005a}
0x09d2…09f0 Head {h00=0x001a, h01=0x0050, text=» MOVE SSSTRG2A,SSSTRG2«, t00=0x0006, t01=0x007a}
0x09f0…0a14 Head {h00=0x0020, h01=0x0050, text=» MOVE SSSTRG1,=C'*' PRINTING«, t00=0x0006, t01=0x0098}
0x0a14…0a32 Head {h00=0x001a, h01=0x0050, text=» MOVE SSBINW6,SSBINW5 «, t00=0x0006, t01=0x00bc}
0x0a32…0a68 Head {h00=0x0032, h01=0x0050, text=» MOVE SSBINW9,SSBINW5 SAVE FROM THE CANNIBALS «, t00=0x0006, t01=0x00da}
0x0a68…0a82 Head {h00=0x0016, h01=0x0050, text=» ADD SSBINW6,CBIN3«, t00=0x0006, t01=0x0110}
0x0a82…0ac0 Head {h00=0x003a, h01=0x0050, text=» XCOPY CUSED,SSBINW6,CBIN1,SSSTRG1,CBIN0 UPDATE CUSED «, t00=0x0006, t01=0x012a}
0x0ac0…0ad4 Head {h00=0x0010, h01=0x0050, text=»* OPEN FILE «, t00=0x0006, t01=0x0168}
0x0ad4…0b12 Head {h00=0x003a, h01=0x0050, text=» XCOPY SSSTRG4,CBIN0,CBIN4,CUSED,SSBINW5 CURRENT ENTRY«, t00=0x0006, t01=0x017c}
0x0b12…0b2e Head {h00=0x0018, h01=0x0050, text=» MOVE SSBCD4,SSBINW3«, t00=0x0007, t01=0x002a}
0x0b2e…0b58 Head {h00=0x0026, h01=0x0050, text=» EDIT SSCURFIL,FMCURFIL "SPOOLNNN"«, t00=0x0007, t01=0x0046}
0x0b58…0b8c Head {h00=0x0030, h01=0x0050, text=» ASSIGN SPOOL,1,SSBINW1,SSCURFIL,CVOL(CBIN1)«, t00=0x0007, t01=0x0070}
0x0b8c…0ba0 Head {h00=0x0010, h01=0x0050, text=» BNOK SKO205«, t00=0x0007, t01=0x00a4}
0x0ba0…0bae Head {h00=0x000a, h01=0x0050, text=»SKO260«, t00=0x0007, t01=0x00b8}
0x0bae…0bd4 Head {h00=0x0022, h01=0x0050, text=»* READY FOR SQ. READ AND PRINT«, t00=0x0007, t01=0x00c6}
0x0bd4…0bfe Head {h00=0x0026, h01=0x0050, text=» MOVE SSBINW2,CBIN0 RECORD POINTER«, t00=0x0007, t01=0x00ec}
0x0bfe…0c18 Head {h00=0x0016, h01=0x0050, text=» TBF PRWAIT,SKO300«, t00=0x0007, t01=0x0116}
0x0c18…0c2a Head {h00=0x000e, h01=0x0050, text=» WAIT SPLP«, t00=0x0007, t01=0x0130}
0x0c2a…0c40 Head {h00=0x0012, h01=0x0050, text=» CLEAR PRWAIT «, t00=0x0007, t01=0x0142}
0x0c40…0c4e Head {h00=0x000a, h01=0x0050, text=»SKO300«, t00=0x0007, t01=0x0158}
0x0c4e…0c68 Head {h00=0x0016, h01=0x0050, text=» ADD SSBINW2,CBIN1«, t00=0x0007, t01=0x0166}
0x0c68…0cac Head {h00=0x0040, h01=0x0050, text=» XCOPY SSSTRG1,CBIN0,CBIN1,CUSED,SSBINW6 CURRENT STATUSBYTE«, t00=0x0007, t01=0x0180}
0x0cac…0cda Head {h00=0x002a, h01=0x0050, text=» CBE SSSTRG1,=C'*',SKO305 NOT CHANGED «, t00=0x0008, t01=0x0034}
0x0cda…0d12 Head {h00=0x0034, h01=0x0050, text=» CBE SSSTRG1,=C'D',SKO320 TO BE DELETED AT ONCE «, t00=0x0008, t01=0x0062}
0x0d12…0d34 Head {h00=0x001e, h01=0x0050, text=» CBNE SSSTRG1,=C'R',SKO305«, t00=0x0008, t01=0x009a}
0x0d34…0d60 Head {h00=0x0028, h01=0x0050, text=» MOVE SSSTRG1,=C'*' TO BE RESTARTED «, t00=0x0008, t01=0x00bc}
0x0d60…0d90 Head {h00=0x002c, h01=0x0050, text=» XCOPY CUSED,SSBINW6,CBIN1,SSSTRG1,CBIN0«, t00=0x0008, t01=0x00e8}
0x0d90…0da2 Head {h00=0x000e, h01=0x0050, text=» B SKO260 «, t00=0x0008, t01=0x0118}
0x0da2…0db0 Head {h00=0x000a, h01=0x0050, text=»SKO305«, t00=0x0008, t01=0x012a}
0x0db0…0dce Head {h00=0x001a, h01=0x0050, text=» MOVE SSBINW1,=W'134' «, t00=0x0008, t01=0x0138}
0x0dce…0e00 Head {h00=0x002e, h01=0x0050, text=» RREAD .NEA,SPOOL,TDISKBUF,SSBINW1,SSBINW2«, t00=0x0008, t01=0x0156}
0x0e00…0e14 Head {h00=0x0010, h01=0x0050, text=» BOK SKO310 «, t00=0x0008, t01=0x0188}
0x0e14…0e2e Head {h00=0x0016, h01=0x0050, text=» PERF GETBIT,SPOOL«, t00=0x0009, t01=0x000c}
0x0e2e…0e5a Head {h00=0x0028, h01=0x0050, text=» CBE SSBCD4,=D'10',SKO320 END MEDIUM«, t00=0x0009, t01=0x0026}
0x0e5a…0e82 Head {h00=0x0024, h01=0x0050, text=» CBE SSBCD4,=D'4',SKO320 NO DATA«, t00=0x0009, t01=0x0052}
0x0e82…0eae Head {h00=0x0028, h01=0x0050, text=» CBE SSBCD4,=D'3',SKO310 END OF FILE«, t00=0x0009, t01=0x007a}
0x0eae…0ecc Head {h00=0x001a, h01=0x0050, text=» MOVE SSBINW1,=W'128' «, t00=0x0009, t01=0x00a6}
0x0ecc…0ef6 Head {h00=0x0026, h01=0x0050, text=» MOVE TDISKBUF,=C' * L[SEFEJL * '«, t00=0x0009, t01=0x00c4}
0x0ef6…0f04 Head {h00=0x000a, h01=0x0050, text=»SKO310«, t00=0x0009, t01=0x00ee}
0x0f04…0f1e Head {h00=0x0016, h01=0x0050, text=» TBF PRWAIT,SKO315«, t00=0x0009, t01=0x00fc}
0x0f1e…0f30 Head {h00=0x000e, h01=0x0050, text=» WAIT SPLP«, t00=0x0009, t01=0x0116}
0x0f30…0f44 Head {h00=0x0010, h01=0x0050, text=» BOK SKO315 «, t00=0x0009, t01=0x0128}
0x0f44…0f5a Head {h00=0x0012, h01=0x0050, text=» DELAY CBINMAX«, t00=0x0009, t01=0x013c}
0x0f5a…0f70 Head {h00=0x0012, h01=0x0050, text=» CLEAR PRWAIT «, t00=0x0009, t01=0x0152}
0x0f70…0f90 Head {h00=0x001c, h01=0x0050, text=» SUB SSBINW2,CBIN1 RETRY«, t00=0x0009, t01=0x0168}
0x0f90…0fa2 Head {h00=0x000e, h01=0x0050, text=» B SKO300 «, t00=0x0009, t01=0x0188}
0x0fa2…0fb0 Head {h00=0x000a, h01=0x0050, text=»SKO315«, t00=0x000a, t01=0x000a}
0x0fb0…0fcc Head {h00=0x0018, h01=0x0050, text=» TBT PRAKTIV,SKO317 «, t00=0x000a, t01=0x0018}
0x0fcc…0fea Head {h00=0x001a, h01=0x0050, text=» MOVE SSBINW1,=W'128' «, t00=0x000a, t01=0x0034}
0x0fea…1000 Head {h00=0x0012, h01=0x0050, text=» DELAY SSBINW1«, t00=0x000a, t01=0x0052}
0x1000…1012 Head {h00=0x000e, h01=0x0050, text=» B SKO315 «, t00=0x000a, t01=0x0068}
0x1012…1020 Head {h00=0x000a, h01=0x0050, text=»SKO317«, t00=0x000a, t01=0x007a}
0x1020…1034 Head {h00=0x0010, h01=0x0050, text=» SET PRWAIT «, t00=0x000a, t01=0x0088}
0x1034…105c Head {h00=0x0024, h01=0x0050, text=» WRITE .NW,SPLP,TDISKBUF,SSBINW1«, t00=0x000a, t01=0x009c}
0x105c…106e Head {h00=0x000e, h01=0x0050, text=» B SKO300 «, t00=0x000a, t01=0x00c4}
0x106e…107c Head {h00=0x000a, h01=0x0050, text=»SKO320«, t00=0x000a, t01=0x00d6}
0x107c…10ac Head {h00=0x002c, h01=0x0050, text=» XCOPY SSSTRG4,CBIN3,CBIN1,CBLANKS,CBIN0«, t00=0x000a, t01=0x00e4}
0x10ac…10dc Head {h00=0x002c, h01=0x0050, text=» XCOPY CUSED,SSBINW9,CBIN4,SSSTRG4,CBIN0«, t00=0x000a, t01=0x0114}
0x10dc…10f6 Head {h00=0x0016, h01=0x0050, text=» DSC0 SPOOL,CLOSE «, t00=0x000a, t01=0x0144}
0x10f6…1104 Head {h00=0x000a, h01=0x0050, text=»SKO325«, t00=0x000a, t01=0x015e}
0x1104…112c Head {h00=0x0024, h01=0x0050, text=» MOVE ICIBUF,=X'00' CLEAR BUFFER«, t00=0x000a, t01=0x016c}
0x112c…1148 (11, 0, 400) Head {h00=0x0018, h01=0x0050, text=» MOVE SSSTRG2,=C'S1'«, t00=0x000b, t01=0x0004}
0x1148…1178 Head {h00=0x002c, h01=0x0050, text=» XCOPY ICIBUF,CBIN0,CBIN2,SSSTRG2,CBIN0 «, t00=0x000b, t01=0x0020}
0x1178…11b2 Head {h00=0x0036, h01=0x0050, text=» XCOPY ICIBUF,CBIN2,CBIN2,CBIN6,CBIN0 FUNCTION=DLF«, t00=0x000b, t01=0x0050}
0x11b2…11f2 Head {h00=0x003c, h01=0x0050, text=» XCOPY ICIBUF,CBIN6,CBIN8,SSCURFIL,CBIN0 FILE TO DELETE «, t00=0x000b, t01=0x008a}
0x11f2…1218 Head {h00=0x0022, h01=0x0050, text=» MOVE SSBINW1,=C'S0' SKEDULER «, t00=0x000b, t01=0x00ca}
0x1218…1226 Head {h00=0x000a, h01=0x0050, text=»SKO330«, t00=0x000b, t01=0x00f0}
0x1226…1248 Head {h00=0x001e, h01=0x0050, text=» RWRITE SOO,ICIBUF,SSBINW1«, t00=0x000b, t01=0x00fe}
0x1248…125c Head {h00=0x0010, h01=0x0050, text=» BNOK SKO330«, t00=0x000b, t01=0x0120}
0x125c…126a Head {h00=0x000a, h01=0x0050, text=»SKO340«, t00=0x000b, t01=0x0134}
0x126a…1286 Head {h00=0x0018, h01=0x0050, text=» MOVE SSBINW1,=W'64'«, t00=0x000b, t01=0x0142}
0x1286…12a2 Head {h00=0x0018, h01=0x0050, text=» MOVE SSBINW2,=C'S0'«, t00=0x000b, t01=0x015e}
0x12a2…12da Head {h00=0x0034, h01=0x0050, text=» RREAD SOI,ICOBUF,SSBINW1,SSBINW2 'FILE DELETED'«, t00=0x000b, t01=0x017a}
0x12da…12ee Head {h00=0x0010, h01=0x0050, text=» BERR SKO340«, t00=0x000c, t01=0x0022}
0x12ee…1324 Head {h00=0x0032, h01=0x0050, text=» MOVE SSSTRG2,SSSTRG2A FINISH THIS TASK FIRST «, t00=0x000c, t01=0x0036}
0x1324…1338 Head {h00=0x0010, h01=0x0050, text=» SET CSAVEIX«, t00=0x000c, t01=0x006c}
0x1338…134a Head {h00=0x000e, h01=0x0050, text=» B SKO205 «, t00=0x000c, t01=0x0080}
0x134a…1358 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000c, t01=0x0092}
0x1358…1370 Head {h00=0x0014, h01=0x0050, text=»GETBIT PROC DSET«, t00=0x000c, t01=0x00a0}
0x1370…1396 Head {h00=0x0022, h01=0x0050, text=» XSTAT DSET,SSBINW8 GET STATUS«, t00=0x000c, t01=0x00b8}
0x1396…13be Head {h00=0x0024, h01=0x0050, text=» MOVE SSBCD4,=D'15' BITNR IN BCD«, t00=0x000c, t01=0x00de}
0x13be…13e6 Head {h00=0x0024, h01=0x0050, text=» MOVE SSBINW5,CBIN1 BITNR IN BIN«, t00=0x000c, t01=0x0106}
0x13e6…13f4 Head {h00=0x000a, h01=0x0050, text=»GET10 «, t00=0x000c, t01=0x012e}
0x13f4…1428 Head {h00=0x0030, h01=0x0050, text=» CALL MASK,SSBINW8,SSBINW5 'AND' WITH STATUS«, t00=0x000c, t01=0x013c}
0x1428…1444 Head {h00=0x0018, h01=0x0050, text=» BNZ GETRET BIT SET «, t00=0x000c, t01=0x0170}
0x1444…146a Head {h00=0x0022, h01=0x0050, text=» ADD SSBINW5,SSBINW5 NEXT BIT «, t00=0x000c, t01=0x018c}
0x146a…1484 Head {h00=0x0016, h01=0x0050, text=» SUB SSBCD4,=D'1' «, t00=0x000d, t01=0x0022}
0x1484…14a4 Head {h00=0x001c, h01=0x0050, text=» CBG SSBCD4,=D'1',GET10 «, t00=0x000d, t01=0x003c}
0x14a4…14b2 Head {h00=0x000a, h01=0x0050, text=»GETRET«, t00=0x000d, t01=0x005c}
0x14b2…14be Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x000d, t01=0x006a}
0x14be…14cc Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x000d, t01=0x0076}
0x14cc…14d4 Head {h00=0x0004, h01=0x0050, t00=0x000d, t01=0x0084}
0x14d4…14dc Head {h00=0x0004, h01=0x0050, t00=0x000d, t01=0x008c}
0x14dc…14e4 Head {h00=0x0004, h01=0x0050, t00=0x000d, t01=0x0094}
0x14e4…14fa Head {h00=0x0012, h01=0x0050, text=»ERDK PROC DSET«, t00=0x000d, t01=0x009c}
0x14fa…1514 Head {h00=0x0016, h01=0x0050, text=» PERF GETBIT,DSET «, t00=0x000d, t01=0x00b2}
0x1514…153e Head {h00=0x0026, h01=0x0050, text=» CBE SSBCD4,=D'4',ERDKRET NO DATA«, t00=0x000d, t01=0x00cc}
0x153e…1568 Head {h00=0x0026, h01=0x0050, text=» CBE SSBCD4,=D'7',ERDKRET NEW VOL «, t00=0x000d, t01=0x00f6}
0x1568…1580 Head {h00=0x0014, h01=0x0050, text=» CMP CBIN0,CBIN1«, t00=0x000d, t01=0x0120}
0x1580…1590 Head {h00=0x000c, h01=0x0050, text=»ERDKRET «, t00=0x000d, t01=0x0138}
0x1590…159c Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x000d, t01=0x0148}
0x159c…15aa Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x000d, t01=0x0154}
0x15aa…15b2 Head {h00=0x0004, h01=0x0050, t00=0x000d, t01=0x0162}
0x15b2…15c8 Head {h00=0x0012, h01=0x0050, text=»FMCURFIL FRMT «, t00=0x000d, t01=0x016a}
0x15c8…15de Head {h00=0x0012, h01=0x0050, text=» FTEXT 'SPOOL'«, t00=0x000d, t01=0x0180}
0x15de…15f8 Head {h00=0x0016, h01=0x0050, text=» FMEL '999',SSBCD4«, t00=0x000e, t01=0x0008}
0x15f8…1606 Head {h00=0x000a, h01=0x0050, text=» FMEND«, t00=0x000e, t01=0x0022}
0x1606…160e Head {h00=0x0004, h01=0x0050, t00=0x000e, t01=0x0030}
0x160e…161a Head {h00=0x0008, h01=0x0050, text=» END«, t00=0x000e, t01=0x0038}
0x161a…161e Head {h00=0x4004, h01=0x0000}
0x161e…1622 00 0e 00 44 ┆ D┆
0x1622…162a (15, 1, 8) 20 04 00 00 00 0f 00 04 ┆ ┆
0x162a…167a (16, 0, 400) 43 4b 20 56 4f 4c 55 4d 45 20 4e 4f 00 0f 01 82 00 06 00 50 2a 20 00 10 00 14 00 0a 00 50 54 31 30 36 32 20 00 10 00 1e 00 16 00 50 20 50 45 52 46 20 43 4c 53 56 4f 4c 2c 43 42 49 4e 32 00 10 00 2c 00 16 00 50 20 50 45 52 46 20 43 4c 53 56 ┆CK VOLUME NO P* PT1062 P PERF CLSVOL,CBIN2 , P PERF CLSV┆
0x167a…16ca 4f 4c 2c 43 42 49 4e 33 00 10 00 46 00 16 00 50 20 50 45 52 46 20 43 4c 53 56 4f 4c 2c 43 42 49 4e 34 00 10 00 60 00 14 00 50 20 44 53 43 30 20 4b 45 59 42 2c 53 4b 49 42 20 00 10 00 7a 00 12 00 50 20 53 45 54 20 53 50 50 52 4f 4d 50 54 20 ┆OL,CBIN3 F P PERF CLSVOL,CBIN4 ` P DSC0 KEYB,SKIB z P SET SPPROMPT ┆
0x16ca…171a 00 10 00 92 00 18 00 50 20 4d 4f 56 45 20 47 53 57 42 43 44 33 2c 3d 44 27 30 27 20 00 10 00 a8 00 14 00 50 20 41 54 54 46 4d 54 20 49 4e 49 54 31 46 4d 54 00 10 00 c4 00 10 00 50 20 50 45 52 46 20 53 50 43 4c 52 41 00 10 00 dc 00 22 00 50 ┆ P MOVE GSWBCD3,=D'0' P ATTFMT INIT1FMT P PERF SPCLRA " P┆
0x171a…176a 20 49 42 20 53 50 42 49 4e 57 32 2c 54 31 30 36 35 2c 54 31 30 36 35 2c 54 31 30 37 30 20 00 10 00 f0 00 18 00 50 20 42 20 54 31 30 36 32 20 4f 54 48 45 52 20 4b 45 59 53 20 00 10 01 16 00 10 00 50 54 31 30 36 35 5c 5c 5c 4d 41 4b 20 00 10 ┆ IB SPBINW2,T1065,T1065,T1070 P B T1062 OTHER KEYS PT1065 MAK ┆
0x176a…17ba 01 32 00 0c 00 50 20 42 20 54 31 30 31 30 00 10 01 46 00 18 00 50 54 31 30 37 30 5c 5c 5c 53 4c 55 54 20 4b 45 59 2c 20 4f 4b 00 10 01 56 00 06 00 50 2a 20 00 10 01 72 00 06 00 50 2a 20 00 10 01 7c 00 22 00 50 2a 20 20 20 20 20 20 20 20 20 ┆ 2 P B T1010 F PT1070 SLUT KEY, OK V P* r P* | " P* ┆
0x17ba…180a (17, 0, 398) 20 41 53 53 49 47 4e 20 4f 54 48 45 52 20 46 49 4c 45 53 20 00 10 01 86 00 06 00 50 2a 20 00 11 00 1c 00 06 00 50 2a 20 00 11 00 26 00 18 00 50 20 4d 4f 56 45 20 47 54 57 42 43 44 31 2c 3d 44 27 32 27 20 00 11 00 30 00 16 00 50 20 4d 4f 56 ┆ ASSIGN OTHER FILES P* P* & P MOVE GTWBCD1,=D'2' 0 P MOV┆
0x180a…185a 45 20 47 54 54 45 58 54 2c 3d 43 27 20 27 00 11 00 4c 00 18 00 50 20 4d 4f 56 45 20 47 53 57 53 54 52 39 2c 3d 43 27 20 27 20 00 11 00 66 00 16 00 50 20 50 45 52 46 20 41 53 47 56 4f 4c 2c 43 42 49 4e 31 00 11 00 82 00 10 00 50 20 42 4e 4f ┆E GTTEXT,=C' ' L P MOVE GSWSTR9,=C' ' f P PERF ASGVOL,CBIN1 P BNO┆
0x185a…18aa 4b 20 54 31 30 31 30 20 00 11 00 9c 00 16 00 50 20 50 45 52 46 20 41 53 47 56 4f 4c 2c 43 42 49 4e 32 00 11 00 b0 00 10 00 50 20 42 4e 4f 4b 20 54 31 30 31 30 20 00 11 00 ca 00 16 00 50 20 50 45 52 46 20 41 53 47 56 4f 4c 2c 43 42 49 4e 33 ┆K T1010 P PERF ASGVOL,CBIN2 P BNOK T1010 P PERF ASGVOL,CBIN3┆
0x18aa…18fa 00 11 00 de 00 10 00 50 20 42 4e 4f 4b 20 54 31 30 31 30 20 00 11 00 f8 00 16 00 50 20 50 45 52 46 20 41 53 47 56 4f 4c 2c 43 42 49 4e 34 00 11 01 0c 00 10 00 50 20 42 4e 4f 4b 20 54 31 30 31 30 20 00 11 01 26 00 18 00 50 20 54 42 46 20 43 ┆ P BNOK T1010 P PERF ASGVOL,CBIN4 P BNOK T1010 & P TBF C┆
0x18fa…1948 43 4f 4c 44 46 4c 47 2c 54 31 31 30 30 20 00 11 01 3a 00 1a 00 50 20 50 45 52 46 20 52 41 44 45 4c 2c 44 4b 30 32 2c 43 42 49 4e 31 00 11 01 56 00 1a 00 50 20 50 45 52 46 20 52 41 44 45 4c 2c 44 4b 30 32 2c 43 42 49 4e 32 00 11 01 74 ┆COLDFLG,T1100 : P PERF RADEL,DK02,CBIN1 V P PERF RADEL,DK02,CBIN2 t┆
0x1948…1998 (18, 0, 400) 00 1a 00 50 20 50 45 52 46 20 52 41 44 45 4c 2c 44 4b 30 32 2c 43 42 49 4e 33 00 12 00 04 00 0a 00 50 54 31 31 30 30 20 00 12 00 22 00 16 00 50 20 54 42 54 20 4e 4f 52 53 54 52 54 2c 54 31 31 35 30 00 12 00 30 00 2c 00 50 20 53 45 54 20 4e ┆ P PERF RADEL,DK02,CBIN3 PT1100 " P TBT NORSTRT,T1150 0 , P SET N┆
0x1998…19e8 4f 52 53 54 52 54 20 52 45 53 54 41 52 54 20 53 50 4f 4f 4c 49 4e 47 20 4f 4e 4c 59 20 4f 4e 43 45 20 00 12 00 4a 00 2a 00 50 20 4d 4f 56 45 20 47 53 57 53 54 52 32 2c 3d 43 27 53 30 27 20 52 45 53 54 41 52 54 20 53 43 48 45 44 55 4c 45 52 ┆ORSTRT RESTART SPOOLING ONLY ONCE J * P MOVE GSWSTR2,=C'S0' RESTART SCHEDULER┆
0x19e8…1a38 00 12 00 7a 00 12 00 50 20 52 53 54 52 54 20 47 53 57 53 54 52 32 00 12 00 a8 00 2a 00 50 20 4d 4f 56 45 20 47 53 57 53 54 52 32 2c 3d 43 27 53 31 27 20 41 4e 44 20 50 52 49 4e 54 45 52 20 54 41 53 4b 20 00 12 00 be 00 12 00 50 20 52 53 54 ┆ z P RSTRT GSWSTR2 * P MOVE GSWSTR2,=C'S1' AND PRINTER TASK P RST┆
0x1a38…1a88 52 54 20 47 53 57 53 54 52 32 00 12 00 ec 00 0a 00 50 54 31 31 35 30 20 00 12 01 02 00 06 00 50 2a 20 00 12 01 10 00 2c 00 50 2a 20 20 20 20 20 20 20 20 20 20 43 48 45 43 4b 20 49 46 20 44 49 53 4b 45 54 54 45 20 49 53 20 43 4f 52 52 45 43 ┆RT GSWSTR2 PT1150 P* , P* CHECK IF DISKETTE IS CORREC┆
0x1a88…1ad8 54 20 00 12 01 1a 00 06 00 50 2a 20 00 12 01 4a 00 06 00 50 2a 20 00 12 01 54 00 18 00 50 20 4d 4f 56 45 20 47 53 57 42 43 44 36 2c 3d 44 27 31 27 20 00 12 01 5e 00 1a 00 50 20 45 44 57 52 54 20 53 43 52 45 45 4e 2c 49 4e 49 54 36 46 4d 54 ┆T P* J P* T P MOVE GSWBCD6,=D'1' ^ P EDWRT SCREEN,INIT6FMT┆
0x1ad8…1b28 (19, 0, 400) 00 12 01 7a 00 28 00 50 20 50 45 52 46 20 53 45 54 4d 4b 20 53 45 54 20 4d 41 53 54 45 52 20 49 4e 44 45 58 2c 20 4b 54 50 4c 41 4e 00 13 00 08 00 28 00 50 20 4d 4f 56 45 20 54 54 43 59 4b 54 4f 54 2c 3d 44 27 30 27 20 43 41 53 48 20 43 4f ┆ z ( P PERF SETMK SET MASTER INDEX, KTPLAN ( P MOVE TTCYKTOT,=D'0' CASH CO┆
0x1b28…1b78 52 52 45 43 54 49 4f 4e 00 13 00 34 00 0a 00 50 54 31 32 30 30 20 00 13 00 60 00 16 00 50 20 4d 4f 56 45 20 43 52 45 43 4e 52 2c 43 42 49 4e 31 00 13 00 6e 00 18 00 50 20 4d 4f 56 45 20 43 52 45 43 42 43 44 2c 3d 44 27 31 27 20 00 13 00 88 ┆RRECTION 4 PT1200 ` P MOVE CRECNR,CBIN1 n P MOVE CRECBCD,=D'1' ┆
0x1b78…1bc8 00 1a 00 50 20 4d 4f 56 45 20 47 53 57 42 49 4e 31 2c 3d 57 27 31 32 38 27 20 00 13 00 a4 00 32 00 50 20 50 45 52 46 20 52 41 52 45 41 44 2c 44 4b 30 32 2c 3d 44 27 32 27 2c 43 50 43 4b 42 55 46 2c 47 53 57 42 49 4e 31 2c 43 52 45 43 4e 52 ┆ P MOVE GSWBIN1,=W'128' 2 P PERF RAREAD,DK02,=D'2',CPCKBUF,GSWBIN1,CRECNR┆
0x1bc8…1c18 00 13 00 c2 00 10 00 50 20 42 4e 4f 4b 20 54 31 30 36 32 20 00 13 00 f8 00 18 00 50 20 4d 4f 56 45 20 47 53 57 42 43 44 33 2c 43 56 4f 4c 4e 4f 00 13 01 0c 00 24 00 50 20 43 42 45 20 47 54 57 42 43 44 31 2c 3d 44 27 34 27 2c 54 31 32 31 30 ┆ P BNOK T1062 P MOVE GSWBCD3,CVOLNO $ P CBE GTWBCD1,=D'4',T1210┆
0x1c18…1c68 20 4e 4f 20 44 41 54 41 00 13 01 28 00 2c 00 50 20 50 45 52 46 20 57 52 49 54 49 44 2c 43 42 49 4e 31 2c 43 42 49 4e 31 20 50 52 49 4e 54 20 31 2e 20 52 45 43 4f 52 44 00 13 01 50 00 1a 00 50 20 4d 4f 56 45 20 47 53 57 53 54 52 32 30 2c 3d ┆ NO DATA ( , P PERF WRITID,CBIN1,CBIN1 PRINT 1. RECORD P P MOVE GSWSTR20,=┆
0x1c68…1cb8 (20, 0, 398) 58 27 30 30 27 20 00 13 01 80 00 18 00 50 20 4d 4f 56 45 20 47 53 57 42 49 4e 31 2c 43 42 49 4e 30 20 00 14 00 0e 00 18 00 50 20 4d 4f 56 45 20 47 53 57 42 49 4e 32 2c 3d 57 27 34 37 27 00 14 00 2a 00 30 00 50 20 43 4f 50 59 20 47 53 57 53 ┆X'00' P MOVE GSWBIN1,CBIN0 P MOVE GSWBIN2,=W'47' * 0 P COPY GSWS┆
0x1cb8…1d08 54 52 32 30 2c 47 53 57 42 49 4e 31 2c 43 42 49 4e 35 2c 43 50 43 4b 42 55 46 2c 47 53 57 42 49 4e 32 00 14 00 46 00 34 00 50 20 4d 4f 56 45 20 47 53 57 42 43 44 33 2c 47 53 57 53 54 52 32 30 20 47 45 54 20 56 4f 4c 55 4d 45 20 4e 4f 20 46 ┆TR20,GSWBIN1,CBIN5,CPCKBUF,GSWBIN2 F 4 P MOVE GSWBCD3,GSWSTR20 GET VOLUME NO F┆
0x1d08…1d58 52 4f 4d 20 53 54 41 52 54 20 00 14 00 7a 00 1e 00 50 20 43 42 45 20 43 56 4f 4c 4e 4f 2c 47 53 57 42 43 44 33 2c 54 31 32 33 30 20 00 14 00 b2 00 1a 00 50 54 31 32 31 30 5c 5c 5c 4e 4f 54 20 45 51 55 41 4c 20 4e 4f 53 2e 00 14 00 d4 00 12 ┆ROM START z P CBE CVOLNO,GSWBCD3,T1230 PT1210 NOT EQUAL NOS. ┆
0x1d58…1da8 00 50 5c 5c 5c 4f 52 20 4e 4f 20 44 41 54 41 20 00 14 00 f2 00 14 00 50 20 44 53 43 30 20 4b 45 59 42 2c 53 4b 49 42 20 00 14 01 08 00 12 00 50 20 53 45 54 20 53 50 50 52 4f 4d 50 54 20 00 14 01 20 00 1e 00 50 20 4d 4f 56 45 20 47 54 52 45 ┆ P OR NO DATA P DSC0 KEYB,SKIB P SET SPPROMPT P MOVE GTRE┆
0x1da8…1df6 47 46 28 43 42 49 4e 32 29 2c 3d 44 27 30 27 20 00 14 01 36 00 1e 00 50 20 4d 4f 56 45 20 47 54 52 45 47 46 28 43 42 49 4e 34 29 2c 3d 44 27 30 27 20 00 14 01 58 00 18 00 50 20 4d 4f 56 45 20 47 53 57 42 49 4e 31 31 2c 43 42 49 4e 31 ┆GF(CBIN2),=D'0' 6 P MOVE GTREGF(CBIN4),=D'0' X P MOVE GSWBIN11,CBIN1┆