|
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: 7942 (0x1f06)
Notes: pts_type(SC)
Names: »TASKS1.SC«
└─⟦d2cdd233a⟧ Bits:30009674 Philips computer tape "600204"
└─⟦this⟧ »OD-KOM/TASKS1.SC«
IDENT TASKS1 830908 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 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 B SKO325 SKO220 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 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 830908 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…01f0 Head {h00=0x0020, h01=0x0050, text=» MOVE SSBINW1,=W'128' DELAY «, t00=0x0001, t01=0x0040}
0x01f0…0206 Head {h00=0x0012, h01=0x0050, text=» DELAY SSBINW1«, t00=0x0001, t01=0x0064}
0x0206…021a Head {h00=0x0010, h01=0x0050, text=»* MAIN LOOP «, t00=0x0001, t01=0x007a}
0x021a…0246 Head {h00=0x0028, h01=0x0050, text=» TBF PRAKTIV,SKO200 NO LP AVAILABLE?«, t00=0x0001, t01=0x008e}
0x0246…0274 Head {h00=0x002a, h01=0x0050, text=» TBF SKEDOK,SKO200 SCHEDULER STARTED? «, t00=0x0001, t01=0x00ba}
0x0274…027e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x00e8}
0x027e…028c Head {h00=0x000a, h01=0x0050, text=»SKO205«, t00=0x0001, t01=0x00f2}
0x028c…02a8 Head {h00=0x0018, h01=0x0050, text=» MOVE SSBINW1,CBIN0 «, t00=0x0001, t01=0x0100}
0x02a8…02c4 Head {h00=0x0018, h01=0x0050, text=» MOVE SSBINW2,CBIN0 «, t00=0x0001, t01=0x011c}
0x02c4…02f8 Head {h00=0x0030, h01=0x0050, text=» CBE PRIO,CBLANKS,SKO210 ANY HIGH PRIORITY? «, t00=0x0001, t01=0x0138}
0x02f8…032c Head {h00=0x0030, h01=0x0050, text=» MOVE SSSTRG2,PRIO YES, SIMULATE FIRST ENTRY«, t00=0x0001, t01=0x016c}
0x032c…0356 Head {h00=0x0026, h01=0x0050, text=» MOVE PRIO,CBLANKS RESET PRIORITY «, t00=0x0002, t01=0x0010}
0x0356…0372 Head {h00=0x0018, h01=0x0050, text=» MOVE SSBINW5,CBIN0 «, t00=0x0002, t01=0x003a}
0x0372…0384 Head {h00=0x000e, h01=0x0050, text=» B SKO230 «, t00=0x0002, t01=0x0056}
0x0384…0392 Head {h00=0x000a, h01=0x0050, text=»SKO210«, t00=0x0002, t01=0x0068}
0x0392…03cc Head {h00=0x0036, h01=0x0050, text=» XCOPY SSSTRG4,CBIN0,CBIN4,CUSED,SSBINW2 1 ELEMENT«, t00=0x0002, t01=0x0076}
0x03cc…0408 Head {h00=0x0038, h01=0x0050, text=» XCOPY SSSTRG1,CBIN0,CBIN1,SSSTRG4,CBIN3 STATUSBYTE «, t00=0x0002, t01=0x00b0}
0x0408…0442 Head {h00=0x0036, h01=0x0050, text=» CBE SSSTRG1,=C'D',SKO212 DELETED WHILE PRINTING? «, t00=0x0002, t01=0x00ec}
0x0442…0478 Head {h00=0x0032, h01=0x0050, text=» CBE SSSTRG1,=C'P',SKO220 RELEASED FOR PRINT? «, t00=0x0002, t01=0x0126}
0x0478…049e Head {h00=0x0022, h01=0x0050, text=» ADD SSBINW2,CBIN4 NEXT ENTRY «, t00=0x0002, t01=0x015c}
0x049e…04cc Head {h00=0x002a, h01=0x0050, text=» CBL SSBINW2,CUSEDLN,SKO210 ANY LEFT? «, t00=0x0002, t01=0x0182}
0x04cc…04f6 Head {h00=0x0026, h01=0x0050, text=» B SKO200 THERE MIGHT BE PRINT NOW«, t00=0x0003, t01=0x0020}
0x04f6…0504 Head {h00=0x000a, h01=0x0050, text=»SKO212«, t00=0x0003, t01=0x004a}
0x0504…0524 Head {h00=0x001c, h01=0x0050, text=»* DELETED WHILE PRINTING«, t00=0x0003, t01=0x0058}
0x0524…0554 Head {h00=0x002c, h01=0x0050, text=» XCOPY SSSTRG4,CBIN3,CBIN1,CBLANKS,CBIN0«, t00=0x0003, t01=0x0078}
0x0554…0584 Head {h00=0x002c, h01=0x0050, text=» XCOPY CUSED,SSBINW2,CBIN4,SSSTRG4,CBIN0«, t00=0x0003, t01=0x00a8}
0x0584…05a0 Head {h00=0x0018, h01=0x0050, text=» MOVE SSBINW2,CBIN0 «, t00=0x0003, t01=0x00d8}
0x05a0…05d8 Head {h00=0x0034, h01=0x0050, text=» XCOPY SSBINW2,CBIN1,CBIN1,SSSTRG4,CBIN2 FILE ID«, t00=0x0003, t01=0x00f4}
0x05d8…05f4 Head {h00=0x0018, h01=0x0050, text=» MOVE SSBCD4,SSBINW2«, t00=0x0003, t01=0x012c}
0x05f4…0606 Head {h00=0x000e, h01=0x0050, text=» B SKO325 «, t00=0x0003, t01=0x0148}
0x0606…0614 Head {h00=0x000a, h01=0x0050, text=»SKO220«, t00=0x0003, t01=0x015a}
0x0614…0638 Head {h00=0x0020, h01=0x0050, text=» MOVE SSSTRG2,SSSTRG4 TASKID«, t00=0x0003, t01=0x0168}
0x0638…0646 Head {h00=0x000a, h01=0x0050, text=»SKO225«, t00=0x0003, t01=0x018c}
0x0646…067a Head {h00=0x0030, h01=0x0050, text=»* FIND LOWEST FILEID FOR THIS TASK (SA..SX) «, t00=0x0004, t01=0x000a}
0x067a…0696 Head {h00=0x0018, h01=0x0050, text=» MOVE SSBINW1,CBIN0 «, t00=0x0004, t01=0x003e}
0x0696…06c6 Head {h00=0x002c, h01=0x0050, text=» MOVE SSBINW3,=W'256' STARTVALUE FILEID «, t00=0x0004, t01=0x005a}
0x06c6…06e2 Head {h00=0x0018, h01=0x0050, text=» MOVE SSBINW4,CBIN0 «, t00=0x0004, t01=0x008a}
0x06e2…06f0 Head {h00=0x000a, h01=0x0050, text=»SKO230«, t00=0x0004, t01=0x00a6}
0x06f0…072c Head {h00=0x0038, h01=0x0050, text=» XCOPY SSSTRG4,CBIN0,CBIN4,CUSED,SSBINW1 COPY ENTRY «, t00=0x0004, t01=0x00b4}
0x072c…074a Head {h00=0x001a, h01=0x0050, text=» MOVE SSSTRG2A,SSSTRG4«, t00=0x0004, t01=0x00f0}
0x074a…0770 Head {h00=0x0022, h01=0x0050, text=» CBNE SSSTRG2A,SSSTRG2,SKO240 «, t00=0x0004, t01=0x010e}
0x0770…07ac Head {h00=0x0038, h01=0x0050, text=» XCOPY SSSTRG1,CBIN0,CBIN1,SSSTRG4,CBIN3 STATUSBYTE «, t00=0x0004, t01=0x0134}
0x07ac…07e0 Head {h00=0x0030, h01=0x0050, text=» CBNE SSSTRG1,=C'P',SKO240 READY FOR PRINT? «, t00=0x0004, t01=0x0170}
0x07e0…081c Head {h00=0x0038, h01=0x0050, text=» XCOPY SSBINW4,CBIN1,CBIN1,SSSTRG4,CBIN2 FIND FILEID«, t00=0x0005, t01=0x0014}
0x081c…0840 Head {h00=0x0020, h01=0x0050, text=» CBG SSBINW4,SSBINW3,SKO240 «, t00=0x0005, t01=0x0050}
0x0840…0870 Head {h00=0x002c, h01=0x0050, text=» MOVE SSBINW3,SSBINW4 SAVE LOWEST FILEID«, t00=0x0005, t01=0x0074}
0x0870…08a6 Head {h00=0x0032, h01=0x0050, text=» MOVE SSBINW5,SSBINW1 DISPL. FOR LOWEST FILEID«, t00=0x0005, t01=0x00a4}
0x08a6…08b4 Head {h00=0x000a, h01=0x0050, text=»SKO240«, t00=0x0005, t01=0x00da}
0x08b4…08da Head {h00=0x0022, h01=0x0050, text=» ADD SSBINW1,CBIN4 NEXT ENTRY «, t00=0x0005, t01=0x00e8}
0x08da…08fe Head {h00=0x0020, h01=0x0050, text=» CBL SSBINW1,CUSEDLN,SKO230 «, t00=0x0005, t01=0x010e}
0x08fe…0908 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x0132}
0x0908…0916 Head {h00=0x000a, h01=0x0050, text=»SKO250«, t00=0x0005, t01=0x013c}
0x0916…0950 Head {h00=0x0036, h01=0x0050, text=» CBE SSBINW3,=W'256',SKO200 NOTHING FOR THIS TASK «, t00=0x0005, t01=0x014a}
0x0950…0970 Head {h00=0x001c, h01=0x0050, text=»* INDICATE FILE PRINTING«, t00=0x0005, t01=0x0184}
0x0970…0994 Head {h00=0x0020, h01=0x0050, text=» MOVE SSSTRG1,=C'*' PRINTING«, t00=0x0006, t01=0x0014}
0x0994…09b2 Head {h00=0x001a, h01=0x0050, text=» MOVE SSBINW6,SSBINW5 «, t00=0x0006, t01=0x0038}
0x09b2…09e8 Head {h00=0x0032, h01=0x0050, text=» MOVE SSBINW9,SSBINW5 SAVE FROM THE CANNIBALS «, t00=0x0006, t01=0x0056}
0x09e8…0a02 Head {h00=0x0016, h01=0x0050, text=» ADD SSBINW6,CBIN3«, t00=0x0006, t01=0x008c}
0x0a02…0a40 Head {h00=0x003a, h01=0x0050, text=» XCOPY CUSED,SSBINW6,CBIN1,SSSTRG1,CBIN0 UPDATE CUSED «, t00=0x0006, t01=0x00a6}
0x0a40…0a54 Head {h00=0x0010, h01=0x0050, text=»* OPEN FILE «, t00=0x0006, t01=0x00e4}
0x0a54…0a92 Head {h00=0x003a, h01=0x0050, text=» XCOPY SSSTRG4,CBIN0,CBIN4,CUSED,SSBINW5 CURRENT ENTRY«, t00=0x0006, t01=0x00f8}
0x0a92…0aae Head {h00=0x0018, h01=0x0050, text=» MOVE SSBCD4,SSBINW3«, t00=0x0006, t01=0x0136}
0x0aae…0ad8 Head {h00=0x0026, h01=0x0050, text=» EDIT SSCURFIL,FMCURFIL "SPOOLNNN"«, t00=0x0006, t01=0x0152}
0x0ad8…0b0c Head {h00=0x0030, h01=0x0050, text=» ASSIGN SPOOL,1,SSBINW1,SSCURFIL,CVOL(CBIN1)«, t00=0x0006, t01=0x017c}
0x0b0c…0b20 Head {h00=0x0010, h01=0x0050, text=» BNOK SKO205«, t00=0x0007, t01=0x0020}
0x0b20…0b2e Head {h00=0x000a, h01=0x0050, text=»SKO260«, t00=0x0007, t01=0x0034}
0x0b2e…0b54 Head {h00=0x0022, h01=0x0050, text=»* READY FOR SQ. READ AND PRINT«, t00=0x0007, t01=0x0042}
0x0b54…0b7e Head {h00=0x0026, h01=0x0050, text=» MOVE SSBINW2,CBIN0 RECORD POINTER«, t00=0x0007, t01=0x0068}
0x0b7e…0b98 Head {h00=0x0016, h01=0x0050, text=» TBF PRWAIT,SKO300«, t00=0x0007, t01=0x0092}
0x0b98…0baa Head {h00=0x000e, h01=0x0050, text=» WAIT SPLP«, t00=0x0007, t01=0x00ac}
0x0baa…0bc0 Head {h00=0x0012, h01=0x0050, text=» CLEAR PRWAIT «, t00=0x0007, t01=0x00be}
0x0bc0…0bce Head {h00=0x000a, h01=0x0050, text=»SKO300«, t00=0x0007, t01=0x00d4}
0x0bce…0be8 Head {h00=0x0016, h01=0x0050, text=» ADD SSBINW2,CBIN1«, t00=0x0007, t01=0x00e2}
0x0be8…0c2c Head {h00=0x0040, h01=0x0050, text=» XCOPY SSSTRG1,CBIN0,CBIN1,CUSED,SSBINW6 CURRENT STATUSBYTE«, t00=0x0007, t01=0x00fc}
0x0c2c…0c5a Head {h00=0x002a, h01=0x0050, text=» CBE SSSTRG1,=C'*',SKO305 NOT CHANGED «, t00=0x0007, t01=0x0140}
0x0c5a…0c92 Head {h00=0x0034, h01=0x0050, text=» CBE SSSTRG1,=C'D',SKO320 TO BE DELETED AT ONCE «, t00=0x0007, t01=0x016e}
0x0c92…0cb4 Head {h00=0x001e, h01=0x0050, text=» CBNE SSSTRG1,=C'R',SKO305«, t00=0x0008, t01=0x0016}
0x0cb4…0ce0 Head {h00=0x0028, h01=0x0050, text=» MOVE SSSTRG1,=C'*' TO BE RESTARTED «, t00=0x0008, t01=0x0038}
0x0ce0…0d10 Head {h00=0x002c, h01=0x0050, text=» XCOPY CUSED,SSBINW6,CBIN1,SSSTRG1,CBIN0«, t00=0x0008, t01=0x0064}
0x0d10…0d22 Head {h00=0x000e, h01=0x0050, text=» B SKO260 «, t00=0x0008, t01=0x0094}
0x0d22…0d30 Head {h00=0x000a, h01=0x0050, text=»SKO305«, t00=0x0008, t01=0x00a6}
0x0d30…0d4e Head {h00=0x001a, h01=0x0050, text=» MOVE SSBINW1,=W'134' «, t00=0x0008, t01=0x00b4}
0x0d4e…0d80 Head {h00=0x002e, h01=0x0050, text=» RREAD .NEA,SPOOL,TDISKBUF,SSBINW1,SSBINW2«, t00=0x0008, t01=0x00d2}
0x0d80…0d94 Head {h00=0x0010, h01=0x0050, text=» BOK SKO310 «, t00=0x0008, t01=0x0104}
0x0d94…0dae Head {h00=0x0016, h01=0x0050, text=» PERF GETBIT,SPOOL«, t00=0x0008, t01=0x0118}
0x0dae…0dda Head {h00=0x0028, h01=0x0050, text=» CBE SSBCD4,=D'10',SKO320 END MEDIUM«, t00=0x0008, t01=0x0132}
0x0dda…0e02 Head {h00=0x0024, h01=0x0050, text=» CBE SSBCD4,=D'4',SKO320 NO DATA«, t00=0x0008, t01=0x015e}
0x0e02…0e2e Head {h00=0x0028, h01=0x0050, text=» CBE SSBCD4,=D'3',SKO310 END OF FILE«, t00=0x0008, t01=0x0186}
0x0e2e…0e4c Head {h00=0x001a, h01=0x0050, text=» MOVE SSBINW1,=W'128' «, t00=0x0009, t01=0x0022}
0x0e4c…0e76 Head {h00=0x0026, h01=0x0050, text=» MOVE TDISKBUF,=C' * L[SEFEJL * '«, t00=0x0009, t01=0x0040}
0x0e76…0e84 Head {h00=0x000a, h01=0x0050, text=»SKO310«, t00=0x0009, t01=0x006a}
0x0e84…0e9e Head {h00=0x0016, h01=0x0050, text=» TBF PRWAIT,SKO315«, t00=0x0009, t01=0x0078}
0x0e9e…0eb0 Head {h00=0x000e, h01=0x0050, text=» WAIT SPLP«, t00=0x0009, t01=0x0092}
0x0eb0…0ec4 Head {h00=0x0010, h01=0x0050, text=» BOK SKO315 «, t00=0x0009, t01=0x00a4}
0x0ec4…0eda Head {h00=0x0012, h01=0x0050, text=» DELAY CBINMAX«, t00=0x0009, t01=0x00b8}
0x0eda…0ef0 Head {h00=0x0012, h01=0x0050, text=» CLEAR PRWAIT «, t00=0x0009, t01=0x00ce}
0x0ef0…0f10 Head {h00=0x001c, h01=0x0050, text=» SUB SSBINW2,CBIN1 RETRY«, t00=0x0009, t01=0x00e4}
0x0f10…0f22 Head {h00=0x000e, h01=0x0050, text=» B SKO300 «, t00=0x0009, t01=0x0104}
0x0f22…0f30 Head {h00=0x000a, h01=0x0050, text=»SKO315«, t00=0x0009, t01=0x0116}
0x0f30…0f4c Head {h00=0x0018, h01=0x0050, text=» TBT PRAKTIV,SKO317 «, t00=0x0009, t01=0x0124}
0x0f4c…0f6a Head {h00=0x001a, h01=0x0050, text=» MOVE SSBINW1,=W'128' «, t00=0x0009, t01=0x0140}
0x0f6a…0f80 Head {h00=0x0012, h01=0x0050, text=» DELAY SSBINW1«, t00=0x0009, t01=0x015e}
0x0f80…0f92 Head {h00=0x000e, h01=0x0050, text=» B SKO315 «, t00=0x0009, t01=0x0174}
0x0f92…0fa0 Head {h00=0x000a, h01=0x0050, text=»SKO317«, t00=0x0009, t01=0x0186}
0x0fa0…0fb4 (10, 0, 398) Head {h00=0x0010, h01=0x0050, text=» SET PRWAIT «, t00=0x000a, t01=0x0004}
0x0fb4…0fdc Head {h00=0x0024, h01=0x0050, text=» WRITE .NW,SPLP,TDISKBUF,SSBINW1«, t00=0x000a, t01=0x0018}
0x0fdc…0fee Head {h00=0x000e, h01=0x0050, text=» B SKO300 «, t00=0x000a, t01=0x0040}
0x0fee…0ffc Head {h00=0x000a, h01=0x0050, text=»SKO320«, t00=0x000a, t01=0x0052}
0x0ffc…102c Head {h00=0x002c, h01=0x0050, text=» XCOPY SSSTRG4,CBIN3,CBIN1,CBLANKS,CBIN0«, t00=0x000a, t01=0x0060}
0x102c…105c Head {h00=0x002c, h01=0x0050, text=» XCOPY CUSED,SSBINW9,CBIN4,SSSTRG4,CBIN0«, t00=0x000a, t01=0x0090}
0x105c…1076 Head {h00=0x0016, h01=0x0050, text=» DSC0 SPOOL,CLOSE «, t00=0x000a, t01=0x00c0}
0x1076…1084 Head {h00=0x000a, h01=0x0050, text=»SKO325«, t00=0x000a, t01=0x00da}
0x1084…10ac Head {h00=0x0024, h01=0x0050, text=» MOVE ICIBUF,=X'00' CLEAR BUFFER«, t00=0x000a, t01=0x00e8}
0x10ac…10c8 Head {h00=0x0018, h01=0x0050, text=» MOVE SSSTRG2,=C'S1'«, t00=0x000a, t01=0x0110}
0x10c8…10f8 Head {h00=0x002c, h01=0x0050, text=» XCOPY ICIBUF,CBIN0,CBIN2,SSSTRG2,CBIN0 «, t00=0x000a, t01=0x012c}
0x10f8…1132 Head {h00=0x0036, h01=0x0050, text=» XCOPY ICIBUF,CBIN2,CBIN2,CBIN6,CBIN0 FUNCTION=DLF«, t00=0x000a, t01=0x015c}
0x1132…1172 Head {h00=0x003c, h01=0x0050, text=» XCOPY ICIBUF,CBIN6,CBIN8,SSCURFIL,CBIN0 FILE TO DELETE «, t00=0x000b, t01=0x0008}
0x1172…1198 Head {h00=0x0022, h01=0x0050, text=» MOVE SSBINW1,=C'S0' SKEDULER «, t00=0x000b, t01=0x0048}
0x1198…11a6 Head {h00=0x000a, h01=0x0050, text=»SKO330«, t00=0x000b, t01=0x006e}
0x11a6…11c8 Head {h00=0x001e, h01=0x0050, text=» RWRITE SOO,ICIBUF,SSBINW1«, t00=0x000b, t01=0x007c}
0x11c8…11dc Head {h00=0x0010, h01=0x0050, text=» BNOK SKO330«, t00=0x000b, t01=0x009e}
0x11dc…11ea Head {h00=0x000a, h01=0x0050, text=»SKO340«, t00=0x000b, t01=0x00b2}
0x11ea…1206 Head {h00=0x0018, h01=0x0050, text=» MOVE SSBINW1,=W'64'«, t00=0x000b, t01=0x00c0}
0x1206…1222 Head {h00=0x0018, h01=0x0050, text=» MOVE SSBINW2,=C'S0'«, t00=0x000b, t01=0x00dc}
0x1222…125a Head {h00=0x0034, h01=0x0050, text=» RREAD SOI,ICOBUF,SSBINW1,SSBINW2 'FILE DELETED'«, t00=0x000b, t01=0x00f8}
0x125a…126e Head {h00=0x0010, h01=0x0050, text=» BERR SKO340«, t00=0x000b, t01=0x0130}
0x126e…12a4 Head {h00=0x0032, h01=0x0050, text=» MOVE SSSTRG2,SSSTRG2A FINISH THIS TASK FIRST «, t00=0x000b, t01=0x0144}
0x12a4…12b8 Head {h00=0x0010, h01=0x0050, text=» SET CSAVEIX«, t00=0x000b, t01=0x017a}
0x12b8…12ca Head {h00=0x000e, h01=0x0050, text=» B SKO205 «, t00=0x000b, t01=0x018e}
0x12ca…12d8 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000c, t01=0x0010}
0x12d8…12f0 Head {h00=0x0014, h01=0x0050, text=»GETBIT PROC DSET«, t00=0x000c, t01=0x001e}
0x12f0…1316 Head {h00=0x0022, h01=0x0050, text=» XSTAT DSET,SSBINW8 GET STATUS«, t00=0x000c, t01=0x0036}
0x1316…133e Head {h00=0x0024, h01=0x0050, text=» MOVE SSBCD4,=D'15' BITNR IN BCD«, t00=0x000c, t01=0x005c}
0x133e…1366 Head {h00=0x0024, h01=0x0050, text=» MOVE SSBINW5,CBIN1 BITNR IN BIN«, t00=0x000c, t01=0x0084}
0x1366…1374 Head {h00=0x000a, h01=0x0050, text=»GET10 «, t00=0x000c, t01=0x00ac}
0x1374…13a8 Head {h00=0x0030, h01=0x0050, text=» CALL MASK,SSBINW8,SSBINW5 'AND' WITH STATUS«, t00=0x000c, t01=0x00ba}
0x13a8…13c4 Head {h00=0x0018, h01=0x0050, text=» BNZ GETRET BIT SET «, t00=0x000c, t01=0x00ee}
0x13c4…13ea Head {h00=0x0022, h01=0x0050, text=» ADD SSBINW5,SSBINW5 NEXT BIT «, t00=0x000c, t01=0x010a}
0x13ea…1404 Head {h00=0x0016, h01=0x0050, text=» SUB SSBCD4,=D'1' «, t00=0x000c, t01=0x0130}
0x1404…1424 Head {h00=0x001c, h01=0x0050, text=» CBG SSBCD4,=D'1',GET10 «, t00=0x000c, t01=0x014a}
0x1424…1432 Head {h00=0x000a, h01=0x0050, text=»GETRET«, t00=0x000c, t01=0x016a}
0x1432…143e Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x000c, t01=0x0178}
0x143e…144c Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x000c, t01=0x0184}
0x144c…1454 (13, 2, 342) Head {h00=0x0004, h01=0x0050, t00=0x000d, t01=0x0004}
0x1454…145c Head {h00=0x0004, h01=0x0050, t00=0x000d, t01=0x000c}
0x145c…1464 Head {h00=0x0004, h01=0x0050, t00=0x000d, t01=0x0014}
0x1464…147a Head {h00=0x0012, h01=0x0050, text=»ERDK PROC DSET«, t00=0x000d, t01=0x001c}
0x147a…1494 Head {h00=0x0016, h01=0x0050, text=» PERF GETBIT,DSET «, t00=0x000d, t01=0x0032}
0x1494…14be Head {h00=0x0026, h01=0x0050, text=» CBE SSBCD4,=D'4',ERDKRET NO DATA«, t00=0x000d, t01=0x004c}
0x14be…14e8 Head {h00=0x0026, h01=0x0050, text=» CBE SSBCD4,=D'7',ERDKRET NEW VOL «, t00=0x000d, t01=0x0076}
0x14e8…1500 Head {h00=0x0014, h01=0x0050, text=» CMP CBIN0,CBIN1«, t00=0x000d, t01=0x00a0}
0x1500…1510 Head {h00=0x000c, h01=0x0050, text=»ERDKRET «, t00=0x000d, t01=0x00b8}
0x1510…151c Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x000d, t01=0x00c8}
0x151c…152a Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x000d, t01=0x00d4}
0x152a…1532 Head {h00=0x0004, h01=0x0050, t00=0x000d, t01=0x00e2}
0x1532…1548 Head {h00=0x0012, h01=0x0050, text=»FMCURFIL FRMT «, t00=0x000d, t01=0x00ea}
0x1548…155e Head {h00=0x0012, h01=0x0050, text=» FTEXT 'SPOOL'«, t00=0x000d, t01=0x0100}
0x155e…1578 Head {h00=0x0016, h01=0x0050, text=» FMEL '999',SSBCD4«, t00=0x000d, t01=0x0116}
0x1578…1586 Head {h00=0x000a, h01=0x0050, text=» FMEND«, t00=0x000d, t01=0x0130}
0x1586…158e Head {h00=0x0004, h01=0x0050, t00=0x000d, t01=0x013e}
0x158e…159a Head {h00=0x0008, h01=0x0050, text=» END«, t00=0x000d, t01=0x0146}
0x159a…159e Head {h00=0x4004, h01=0x0000}
0x159e…15a2 00 0d 01 52 ┆ R┆
0x15a2…15aa (14, 1, 8) 20 04 00 00 00 0e 00 04 ┆ ┆
0x15aa…15fa (15, 0, 400) 41 53 4b 42 43 44 2c 47 53 57 42 49 4e 35 00 0e 01 88 00 0a 00 50 54 31 30 35 36 20 00 0f 00 16 00 22 00 50 20 4d 4f 56 45 20 43 54 41 53 4b 28 47 53 57 42 49 4e 35 29 2c 54 54 41 53 4b 42 43 44 20 00 0f 00 24 00 16 00 50 5c 5c 5c 54 41 53 ┆ASKBCD,GSWBIN5 PT1056 " P MOVE CTASK(GSWBIN5),TTASKBCD $ P TAS┆
0x15fa…164a 4b 4e 4f 20 49 4e 53 45 52 54 45 44 00 0f 00 4a 00 0c 00 50 20 42 20 54 31 30 35 32 00 0f 00 64 00 0a 00 50 54 31 30 35 37 20 00 0f 00 74 00 1a 00 50 20 55 53 45 20 54 42 32 2c 43 42 49 4e 31 20 4e 4f 54 20 4f 4b 20 00 0f 00 82 00 0c 00 50 ┆KNO INSERTED J P B T1052 d PT1057 t P USE TB2,CBIN1 NOT OK P┆
0x164a…169a 20 42 20 54 31 30 31 30 00 0f 00 a0 00 06 00 50 2a 20 00 0f 00 b0 00 26 00 50 2a 20 20 20 20 20 20 20 20 20 20 43 4f 4e 46 20 44 41 54 41 20 48 41 53 20 42 45 45 4e 20 52 45 41 44 00 0f 00 ba 00 06 00 50 2a 20 00 0f 00 e4 00 0a 00 50 54 31 ┆ B T1010 P* & P* CONF DATA HAS BEEN READ P* PT1┆
0x169a…16ea 30 36 30 20 00 0f 00 ee 00 26 00 50 20 55 53 45 20 54 42 32 2c 43 42 49 4e 31 20 47 45 54 20 4f 57 4e 20 55 53 45 52 20 42 4c 4f 43 4b 20 00 0f 00 fc 00 16 00 50 20 4d 4f 56 45 20 47 54 55 57 42 2c 43 42 49 4e 31 20 00 0f 01 26 00 34 00 50 ┆060 & P USE TB2,CBIN1 GET OWN USER BLOCK P MOVE GTUWB,CBIN1 & 4 P┆
0x16ea…173a 20 4d 4f 56 45 20 47 54 4d 53 4b 2c 43 4d 41 53 4b 28 43 42 49 4e 31 29 20 53 45 54 20 4d 41 43 4e 49 4e 45 20 4e 4f 2c 20 4d 41 53 54 45 52 20 00 0f 01 40 00 06 00 50 2a 20 00 0f 01 78 00 1e 00 50 2a 20 20 20 20 20 20 20 20 20 20 43 48 45 ┆ MOVE GTMSK,CMASK(CBIN1) SET MACNINE NO, MASTER @ P* x P* CHE┆
0x173a…178a (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┆
0x178a…17da 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 ┆
0x17da…182a 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┆
0x182a…187a 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 ┆
0x187a…18ca 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* ┆
0x18ca…191a (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┆
0x191a…196a 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┆
0x196a…19ba 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┆
0x19ba…1a0a 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┆
0x1a0a…1a58 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┆
0x1a58…1aa8 (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┆
0x1aa8…1af8 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┆
0x1af8…1b48 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┆
0x1b48…1b98 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┆
0x1b98…1be8 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┆
0x1be8…1c38 (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┆
0x1c38…1c88 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' ┆
0x1c88…1cd8 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┆
0x1cd8…1d28 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┆
0x1d28…1d78 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,=┆
0x1d78…1dc8 (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┆
0x1dc8…1e18 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┆
0x1e18…1e68 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. ┆
0x1e68…1eb8 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┆
0x1eb8…1f06 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┆