|
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: 7574 (0x1d96)
Notes: pts_type(SC)
Names: »DE60ST.SC«
└─⟦48601905a⟧ Bits:30009668 Philips computer tape "600121"
└─⟦this⟧ »S:DE/DE60ST.SC«
└─⟦5c22ed822⟧ Bits:30009675 Philips computer tape "600209"
└─⟦this⟧ »DEN10/DE60ST.SC«
└─⟦79fbed147⟧ Bits:30009697 Philips computer tape "600414"
└─⟦this⟧ »S:DE/DE60ST.SC«
└─⟦bf903a231⟧ Bits:30009665 Philips computer tape "600109"
└─⟦this⟧ »DEN10/DE60ST.SC«
└─⟦d2a299635⟧ Bits:30009698 Philips computer tape "600415"
└─⟦this⟧ »S:DE/DE60ST.SC«
IDENT DE60ST REL 10.0 80-04-11 79-07-30/DALI DDUM DEDDIV PDIV ENTRY DE60ST * * EXTERNAL REFERENCES TO SCREEN * EXT DECLRA EXT DERR EXT DECLRN EXT DECLRS EXT DERROR EXT OPCL EXT DEOPBC EXT DENT01 * EXT RESTOR EXT DEPRUT EXT DEPMSK * * EXTERNAL REFERENCES TO APPLICATION ROUTINE * EXT DEAOK0 EXT DEANOK INCLUDE DELITT EJECT ********************************************* * START OF VERIFYING. HANDLE PRORAMSCREEN- * LAYOUTS 60,61,62,63,66 VERIFY MODE. * THESE ROUTINES USE THE DENTER-SCREEN. ********************************************* DE60ST PROC CLEAR BOOL2 CBNE BIN2,W0,DEEN10 DEST00 SET BOOL1 PART OF FORMAT DISPLAY DEST10 TBT BOOL2,DEST20 ATTFMT F60ST B DEST30 DEST20 ATTFMT F61ST DEST30 SET DEPROMPT PROMPT-TEXTS DISPLAY DEST50 CLEAR DECHANGE PERF DECLRA DEST60 IB DEBINW2,DE60CA,DE60RE,DE60EN MOVE DEBINW4,W0 DE60ER CLEAR VERIFM CLEAR KEYVER PERF DERR B DEST60 EJECT * * CANCEL-KEY PRESSED * DE60CA CLEAR DEPROMPT B DEST50 * * ENTER-KEY PRESSED * DE60EN TBT BOOL2,OPEN1 JUMP IF OPEN BATCH DEEN10 CBNE BIN1,W6,DERE30 IB BIN2,DEEN20,DEEN50,DEEN30,DEEN60 B DEST00 DEEN20 SET KEYVER B DEEN50 DEEN30 SET KEYVER DEEN60 SET DOOL7 DEEN50 SET BOOL2 CLEAR BOOL1 B DEST20 EJECT * * RETURN-KEY PRESSED * DE60RE CLEAR DOOL3 PERF OPCL,W4 CLOSE USERFILE BNERR DERE20 MOVE DEBINW1,W0 PERF DERROR,DEKTAB6 CLEAR DOOL5 BZ DERE60 ATTFMT F61ST SET DEPROMPT PROMPT-TEXTS DISPLAY CLEAR DECHANGE PERF DECLRN B DEST60 DERE20 CLEAR DOOL5 BNZ DERE60 TBT BOOL2,DERE50 MOVE BIN2,W1 MOVE BIN1,W0 DERE30 RET DERE50 CLEAR BOOL2 CLEAR BOOL1 DERE60 CLEAR VERIFM VERIFY-MODE TBT BOOL2,DEEN10 CLEAR DOOL7 CLEAR DOOL4 CLEAR KEYVER B DEST10 EJECT ************************************** * THIS IS THE MAINLOOP IN VERIFY MODE * THESE ROUTINES USE THE DENTER-SCREEN ************************************** OPEN1 SET VERIFM VERIFY-MODE MOVE DEBINW2,W0 OPEN2 PERF DEOPBC,DEBINW2 IB DEBINW2,OPEN3,OPEN3,DE60RE,OPEN4 OPEN3 PERF DENT01 B OPEN2 OPEN4 GETABX DEBINW3 ATTFMT F61ST GETFLD 0,DEBINW3,DEBINW3 B DE60ER PEND EJECT * * FORMATS * F60ST FRMT FSL FTEXT '60 ' FLINK F60VER FNL FCOPY =C'PROGRAM:' FKI 9,MINL=2,MAXL=2,ME,NEOI,APPL=1 FMEL 'XX',PRNUM FBF BOOL1,F60OUT FNL FTEXT '61 ' FLINK F60VER FCOPY =C'KEY' FNL FTEXT '62 ' FLINK F60VER FCOPY =C'SIGHT' FNL FTEXT '63 ' FLINK F60VER FCOPY =C'KEY' FILLR '/',1 FCOPY =C'TEST' FNL FTEXT '64 ' FLINK F60VER FCOPY =C'SIGHT' FILLR '/',1 FCOPY =C'TEST' F60OUT FMEND F61ST FRMT FSL F61ST1 FMEL 'XX',PRNUM FTAB 4 FLINK F60VER FBT KEYVER,F61ST2 FCOPY =C'SIGHT' FB F61ST3 F61ST2 FCOPY =C'KEY' F61ST3 FBF DOOL7,F61ST4 FILLR '/',1 FCOPY =C'TEST' F61ST4 FNL FLINK F60UV FNL FLINK F60JOB FTAB 20 FLINK F60BAT FNL FLINK F60END FMEND F60VER FRMT FCOPY =C'VERIFY' FILLR ' ',1 FCOPY =C'MODE' FILLR ' ',1 FMEND F60UV FRMT FCOPY =C'UNIT' FTEXT ':U' FKI 7,MINL=1,MAXL=1,NEOI,ME,APPL=2 FMEL 'X',USERFILE FTAB 20 FCOPY =C'VOLUME' FILLR ':',1 FINP 27 FCOPY TABLE FMEND F60JOB FRMT FCOPY =C'JOB' FCOPY =C'NAME' FILLR ':',1 FKI 9,ALPHA,MINL=1,MAXL=6,ME,NEOI,APPL=3,DUPL=STSAVE(W1) FCOPY JOBNAME FMEND F60BAT FRMT FCOPY =C'BATCH' FCOPY =C'NAME' FILLR ':',1 FKI 30,ALPHA,MINL=1,MAXL=6,ME,NEOI,APPL=4,DUPL=STSAVE(W2) FCOPY BATCH FMEND F60END FRMT FKI 1 FCOPY HEX00 FMEND BELL FRMT FSL FILLR X'07',1 FMEND END
0x0000…0028 (0, 0, 400) Head {h00=0x0024, h01=0x0050, text=» IDENT DE60ST REL 10.0 80-04-11 «, t00=0x0000, t01=0x0004}
0x0028…0040 Head {h00=0x0014, h01=0x0050, text=» 79-07-30/DALI«, t00=0x0000, t01=0x002c}
0x0040…0054 Head {h00=0x0010, h01=0x000c, text=» DDUM DEDDIV«, t00=0x0000, t01=0x0044}
0x0054…0062 Head {h00=0x000a, h01=0x0005, text=» PDIV «, t00=0x0000, t01=0x0058}
0x0062…0078 Head {h00=0x0012, h01=0x0050, text=» ENTRY DE60ST «, t00=0x0000, t01=0x0066}
0x0078…0082 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0000, t01=0x007c}
0x0082…00b0 Head {h00=0x002a, h01=0x002a, text=»* EXTERNAL REFERENCES TO SCREEN«, t00=0x0000, t01=0x0086}
0x00b0…00ba Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0000, t01=0x00b4}
0x00ba…00ce Head {h00=0x0010, h01=0x0050, text=» EXT DECLRA «, t00=0x0000, t01=0x00be}
0x00ce…00e0 Head {h00=0x000e, h01=0x0050, text=» EXT DERR «, t00=0x0000, t01=0x00d2}
0x00e0…00f4 Head {h00=0x0010, h01=0x0050, text=» EXT DECLRN «, t00=0x0000, t01=0x00e4}
0x00f4…0108 Head {h00=0x0010, h01=0x0050, text=» EXT DECLRS «, t00=0x0000, t01=0x00f8}
0x0108…011c Head {h00=0x0010, h01=0x0050, text=» EXT DERROR «, t00=0x0000, t01=0x010c}
0x011c…012e Head {h00=0x000e, h01=0x0050, text=» EXT OPCL «, t00=0x0000, t01=0x0120}
0x012e…0142 Head {h00=0x0010, h01=0x0050, text=» EXT DEOPBC «, t00=0x0000, t01=0x0132}
0x0142…0156 Head {h00=0x0010, h01=0x0050, text=» EXT DENT01 «, t00=0x0000, t01=0x0146}
0x0156…0160 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0000, t01=0x015a}
0x0160…0174 Head {h00=0x0010, h01=0x0050, text=» EXT RESTOR «, t00=0x0000, t01=0x0164}
0x0174…0188 Head {h00=0x0010, h01=0x0050, text=» EXT DEPRUT «, t00=0x0000, t01=0x0178}
0x0188…019c Head {h00=0x0010, h01=0x0050, text=» EXT DEPMSK «, t00=0x0000, t01=0x018c}
0x019c…01a6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x0010}
0x01a6…01e2 Head {h00=0x0038, h01=0x0050, text=»* EXTERNAL REFERENCES TO APPLICATION ROUTINE «, t00=0x0001, t01=0x001a}
0x01e2…01ec Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x0056}
0x01ec…0200 Head {h00=0x0010, h01=0x0050, text=» EXT DEAOK0 «, t00=0x0001, t01=0x0060}
0x0200…0214 Head {h00=0x0010, h01=0x0050, text=» EXT DEANOK «, t00=0x0001, t01=0x0074}
0x0214…022c Head {h00=0x0014, h01=0x0050, text=» INCLUDE DELITT «, t00=0x0001, t01=0x0088}
0x022c…023a Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0001, t01=0x00a0}
0x023a…0270 Head {h00=0x0032, h01=0x0050, text=»********************************************* «, t00=0x0001, t01=0x00ae}
0x0270…02a2 Head {h00=0x002e, h01=0x0050, text=»* START OF VERIFYING. HANDLE PRORAMSCREEN-«, t00=0x0001, t01=0x00e4}
0x02a2…02d0 Head {h00=0x002a, h01=0x0050, text=»* LAYOUTS 60,61,62,63,66 VERIFY MODE. «, t00=0x0001, t01=0x0116}
0x02d0…0300 Head {h00=0x002c, h01=0x0050, text=»* THESE ROUTINES USE THE DENTER-SCREEN. «, t00=0x0001, t01=0x0144}
0x0300…0336 Head {h00=0x0032, h01=0x0050, text=»********************************************* «, t00=0x0001, t01=0x0174}
0x0336…034a Head {h00=0x0010, h01=0x0050, text=»DE60ST PROC «, t00=0x0002, t01=0x001a}
0x034a…035e Head {h00=0x0010, h01=0x0050, text=» CLEAR BOOL2«, t00=0x0002, t01=0x002e}
0x035e…037a Head {h00=0x0018, h01=0x0050, text=» CBNE BIN2,W0,DEEN10«, t00=0x0002, t01=0x0042}
0x037a…0388 Head {h00=0x000a, h01=0x0050, text=»DEST00«, t00=0x0002, t01=0x005e}
0x0388…03b2 Head {h00=0x0026, h01=0x0050, text=» SET BOOL1 PART OF FORMAT DISPLAY «, t00=0x0002, t01=0x006c}
0x03b2…03c0 Head {h00=0x000a, h01=0x0050, text=»DEST10«, t00=0x0002, t01=0x0096}
0x03c0…03da Head {h00=0x0016, h01=0x0050, text=» TBT BOOL2,DEST20 «, t00=0x0002, t01=0x00a4}
0x03da…03f0 Head {h00=0x0012, h01=0x0050, text=» ATTFMT F60ST «, t00=0x0002, t01=0x00be}
0x03f0…0402 Head {h00=0x000e, h01=0x0050, text=» B DEST30 «, t00=0x0002, t01=0x00d4}
0x0402…0410 Head {h00=0x000a, h01=0x0050, text=»DEST20«, t00=0x0002, t01=0x00e6}
0x0410…0426 Head {h00=0x0012, h01=0x0050, text=» ATTFMT F61ST «, t00=0x0002, t01=0x00f4}
0x0426…0434 Head {h00=0x000a, h01=0x0050, text=»DEST30«, t00=0x0002, t01=0x010a}
0x0434…045e Head {h00=0x0026, h01=0x0050, text=» SET DEPROMPT PROMPT-TEXTS DISPLAY«, t00=0x0002, t01=0x0118}
0x045e…046c Head {h00=0x000a, h01=0x0050, text=»DEST50«, t00=0x0002, t01=0x0142}
0x046c…0484 Head {h00=0x0014, h01=0x0050, text=» CLEAR DECHANGE «, t00=0x0002, t01=0x0150}
0x0484…0498 Head {h00=0x0010, h01=0x0050, text=» PERF DECLRA«, t00=0x0002, t01=0x0168}
0x0498…04a6 Head {h00=0x000a, h01=0x0050, text=»DEST60«, t00=0x0002, t01=0x017c}
0x04a6…04ce Head {h00=0x0024, h01=0x0050, text=» IB DEBINW2,DE60CA,DE60RE,DE60EN«, t00=0x0002, t01=0x018a}
0x04ce…04e6 Head {h00=0x0014, h01=0x0050, text=» MOVE DEBINW4,W0«, t00=0x0003, t01=0x0022}
0x04e6…04f4 Head {h00=0x000a, h01=0x0050, text=»DE60ER«, t00=0x0003, t01=0x003a}
0x04f4…050a Head {h00=0x0012, h01=0x0050, text=» CLEAR VERIFM «, t00=0x0003, t01=0x0048}
0x050a…0520 Head {h00=0x0012, h01=0x0050, text=» CLEAR KEYVER «, t00=0x0003, t01=0x005e}
0x0520…0532 Head {h00=0x000e, h01=0x0050, text=» PERF DERR«, t00=0x0003, t01=0x0074}
0x0532…0544 Head {h00=0x000e, h01=0x0050, text=» B DEST60 «, t00=0x0003, t01=0x0086}
0x0544…0552 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0003, t01=0x0098}
0x0552…055c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x00a6}
0x055c…0578 Head {h00=0x0018, h01=0x0050, text=»* CANCEL-KEY PRESSED«, t00=0x0003, t01=0x00b0}
0x0578…0582 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x00cc}
0x0582…0590 Head {h00=0x000a, h01=0x0050, text=»DE60CA«, t00=0x0003, t01=0x00d6}
0x0590…05a8 Head {h00=0x0014, h01=0x0050, text=» CLEAR DEPROMPT «, t00=0x0003, t01=0x00e4}
0x05a8…05ba Head {h00=0x000e, h01=0x0050, text=» B DEST50 «, t00=0x0003, t01=0x00fc}
0x05ba…05c4 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0003, t01=0x010e}
0x05c4…05e0 Head {h00=0x0018, h01=0x0050, text=»* ENTER-KEY PRESSED «, t00=0x0003, t01=0x0118}
0x05e0…05ea Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x0134}
0x05ea…05f8 Head {h00=0x000a, h01=0x0050, text=»DE60EN«, t00=0x0003, t01=0x013e}
0x05f8…0624 Head {h00=0x0028, h01=0x0050, text=» TBT BOOL2,OPEN1 JUMP IF OPEN BATCH «, t00=0x0003, t01=0x014c}
0x0624…0632 Head {h00=0x000a, h01=0x0050, text=»DEEN10«, t00=0x0003, t01=0x0178}
0x0632…064e Head {h00=0x0018, h01=0x0050, text=» CBNE BIN1,W6,DERE30«, t00=0x0003, t01=0x0186}
0x064e…067a Head {h00=0x0028, h01=0x0050, text=» IB BIN2,DEEN20,DEEN50,DEEN30,DEEN60«, t00=0x0004, t01=0x0012}
0x067a…068c Head {h00=0x000e, h01=0x0050, text=» B DEST00 «, t00=0x0004, t01=0x003e}
0x068c…069a Head {h00=0x000a, h01=0x0050, text=»DEEN20«, t00=0x0004, t01=0x0050}
0x069a…06ae Head {h00=0x0010, h01=0x0050, text=» SET KEYVER «, t00=0x0004, t01=0x005e}
0x06ae…06c0 Head {h00=0x000e, h01=0x0050, text=» B DEEN50 «, t00=0x0004, t01=0x0072}
0x06c0…06ce Head {h00=0x000a, h01=0x0050, text=»DEEN30«, t00=0x0004, t01=0x0084}
0x06ce…06e2 Head {h00=0x0010, h01=0x0050, text=» SET KEYVER «, t00=0x0004, t01=0x0092}
0x06e2…06f0 Head {h00=0x000a, h01=0x0050, text=»DEEN60«, t00=0x0004, t01=0x00a6}
0x06f0…0702 Head {h00=0x000e, h01=0x0050, text=» SET DOOL7«, t00=0x0004, t01=0x00b4}
0x0702…0710 Head {h00=0x000a, h01=0x0050, text=»DEEN50«, t00=0x0004, t01=0x00c6}
0x0710…0722 Head {h00=0x000e, h01=0x0050, text=» SET BOOL2«, t00=0x0004, t01=0x00d4}
0x0722…0736 Head {h00=0x0010, h01=0x0050, text=» CLEAR BOOL1«, t00=0x0004, t01=0x00e6}
0x0736…0748 Head {h00=0x000e, h01=0x0050, text=» B DEST20 «, t00=0x0004, t01=0x00fa}
0x0748…0756 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0004, t01=0x010c}
0x0756…0760 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0004, t01=0x011a}
0x0760…077c Head {h00=0x0018, h01=0x0050, text=»* RETURN-KEY PRESSED«, t00=0x0004, t01=0x0124}
0x077c…0786 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0004, t01=0x0140}
0x0786…0794 Head {h00=0x000a, h01=0x0050, text=»DE60RE«, t00=0x0004, t01=0x014a}
0x0794…07a8 Head {h00=0x0010, h01=0x0050, text=» CLEAR DOOL3«, t00=0x0004, t01=0x0158}
0x07a8…07cc Head {h00=0x0020, h01=0x0050, text=» PERF OPCL,W4 CLOSE USERFILE«, t00=0x0004, t01=0x016c}
0x07cc…07e2 Head {h00=0x0012, h01=0x0050, text=» BNERR DERE20 «, t00=0x0004, t01=0x0190}
0x07e2…07fa Head {h00=0x0014, h01=0x0050, text=» MOVE DEBINW1,W0«, t00=0x0005, t01=0x0016}
0x07fa…0816 Head {h00=0x0018, h01=0x0050, text=» PERF DERROR,DEKTAB6«, t00=0x0005, t01=0x002e}
0x0816…082a Head {h00=0x0010, h01=0x0050, text=» CLEAR DOOL5«, t00=0x0005, t01=0x004a}
0x082a…083c Head {h00=0x000e, h01=0x0050, text=» BZ DERE60«, t00=0x0005, t01=0x005e}
0x083c…0852 Head {h00=0x0012, h01=0x0050, text=» ATTFMT F61ST «, t00=0x0005, t01=0x0070}
0x0852…087c Head {h00=0x0026, h01=0x0050, text=» SET DEPROMPT PROMPT-TEXTS DISPLAY«, t00=0x0005, t01=0x0086}
0x087c…0894 Head {h00=0x0014, h01=0x0050, text=» CLEAR DECHANGE «, t00=0x0005, t01=0x00b0}
0x0894…08a8 Head {h00=0x0010, h01=0x0050, text=» PERF DECLRN«, t00=0x0005, t01=0x00c8}
0x08a8…08ba Head {h00=0x000e, h01=0x0050, text=» B DEST60 «, t00=0x0005, t01=0x00dc}
0x08ba…08c8 Head {h00=0x000a, h01=0x0050, text=»DERE20«, t00=0x0005, t01=0x00ee}
0x08c8…08dc Head {h00=0x0010, h01=0x0050, text=» CLEAR DOOL5«, t00=0x0005, t01=0x00fc}
0x08dc…08f0 Head {h00=0x0010, h01=0x0050, text=» BNZ DERE60 «, t00=0x0005, t01=0x0110}
0x08f0…090a Head {h00=0x0016, h01=0x0050, text=» TBT BOOL2,DERE50 «, t00=0x0005, t01=0x0124}
0x090a…0920 Head {h00=0x0012, h01=0x0050, text=» MOVE BIN2,W1 «, t00=0x0005, t01=0x013e}
0x0920…0936 Head {h00=0x0012, h01=0x0050, text=» MOVE BIN1,W0 «, t00=0x0005, t01=0x0154}
0x0936…0944 Head {h00=0x000a, h01=0x0050, text=»DERE30«, t00=0x0005, t01=0x016a}
0x0944…0950 Head {h00=0x0008, h01=0x0004, text=» RET«, t00=0x0005, t01=0x0178}
0x0950…095e Head {h00=0x000a, h01=0x0050, text=»DERE50«, t00=0x0005, t01=0x0184}
0x095e…0972 (6, 0, 400) Head {h00=0x0010, h01=0x0050, text=» CLEAR BOOL2«, t00=0x0006, t01=0x0004}
0x0972…0986 Head {h00=0x0010, h01=0x0050, text=» CLEAR BOOL1«, t00=0x0006, t01=0x0018}
0x0986…0994 Head {h00=0x000a, h01=0x0050, text=»DERE60«, t00=0x0006, t01=0x002c}
0x0994…09b6 Head {h00=0x001e, h01=0x0050, text=» CLEAR VERIFM VERIFY-MODE «, t00=0x0006, t01=0x003a}
0x09b6…09d0 Head {h00=0x0016, h01=0x0050, text=» TBT BOOL2,DEEN10 «, t00=0x0006, t01=0x005c}
0x09d0…09e4 Head {h00=0x0010, h01=0x0050, text=» CLEAR DOOL7«, t00=0x0006, t01=0x0076}
0x09e4…09f8 Head {h00=0x0010, h01=0x0050, text=» CLEAR DOOL4«, t00=0x0006, t01=0x008a}
0x09f8…0a0e Head {h00=0x0012, h01=0x0050, text=» CLEAR KEYVER «, t00=0x0006, t01=0x009e}
0x0a0e…0a20 Head {h00=0x000e, h01=0x0050, text=» B DEST10 «, t00=0x0006, t01=0x00b4}
0x0a20…0a2e Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0006, t01=0x00c6}
0x0a2e…0a5c Head {h00=0x002a, h01=0x0050, text=»**************************************«, t00=0x0006, t01=0x00d4}
0x0a5c…0a8a Head {h00=0x002a, h01=0x0050, text=»* THIS IS THE MAINLOOP IN VERIFY MODE «, t00=0x0006, t01=0x0102}
0x0a8a…0ab8 Head {h00=0x002a, h01=0x0050, text=»* THESE ROUTINES USE THE DENTER-SCREEN«, t00=0x0006, t01=0x0130}
0x0ab8…0ae6 Head {h00=0x002a, h01=0x0050, text=»**************************************«, t00=0x0006, t01=0x015e}
0x0ae6…0af4 Head {h00=0x000a, h01=0x0050, text=»OPEN1 «, t00=0x0006, t01=0x018c}
0x0af4…0b14 Head {h00=0x001c, h01=0x0050, text=» SET VERIFM VERIFY-MODE «, t00=0x0007, t01=0x000a}
0x0b14…0b2c Head {h00=0x0014, h01=0x0050, text=» MOVE DEBINW2,W0«, t00=0x0007, t01=0x002a}
0x0b2c…0b3a Head {h00=0x000a, h01=0x0050, text=»OPEN2 «, t00=0x0007, t01=0x0042}
0x0b3a…0b56 Head {h00=0x0018, h01=0x0050, text=» PERF DEOPBC,DEBINW2«, t00=0x0007, t01=0x0050}
0x0b56…0b82 Head {h00=0x0028, h01=0x0050, text=» IB DEBINW2,OPEN3,OPEN3,DE60RE,OPEN4«, t00=0x0007, t01=0x006c}
0x0b82…0b90 Head {h00=0x000a, h01=0x0050, text=»OPEN3 «, t00=0x0007, t01=0x0098}
0x0b90…0ba4 Head {h00=0x0010, h01=0x0050, text=» PERF DENT01«, t00=0x0007, t01=0x00a6}
0x0ba4…0bb4 Head {h00=0x000c, h01=0x0050, text=» B OPEN2«, t00=0x0007, t01=0x00ba}
0x0bb4…0bc2 Head {h00=0x000a, h01=0x0050, text=»OPEN4 «, t00=0x0007, t01=0x00ca}
0x0bc2…0bda Head {h00=0x0014, h01=0x0050, text=» GETABX DEBINW3 «, t00=0x0007, t01=0x00d8}
0x0bda…0bf0 Head {h00=0x0012, h01=0x0050, text=» ATTFMT F61ST «, t00=0x0007, t01=0x00f0}
0x0bf0…0c12 Head {h00=0x001e, h01=0x0050, text=» GETFLD 0,DEBINW3,DEBINW3 «, t00=0x0007, t01=0x0106}
0x0c12…0c24 Head {h00=0x000e, h01=0x0050, text=» B DE60ER «, t00=0x0007, t01=0x0128}
0x0c24…0c32 Head {h00=0x000a, h01=0x0005, text=» PEND «, t00=0x0007, t01=0x013a}
0x0c32…0c40 Head {h00=0x000a, h01=0x0006, text=» EJECT«, t00=0x0007, t01=0x0148}
0x0c40…0c4a Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0007, t01=0x0156}
0x0c4a…0c62 Head {h00=0x0014, h01=0x0010, text=»* FORMATS«, t00=0x0007, t01=0x0160}
0x0c62…0c6c Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0007, t01=0x0178}
0x0c6c…0c7e Head {h00=0x000e, h01=0x0050, text=»F60ST FRMT«, t00=0x0007, t01=0x0182}
0x0c7e…0c8a (8, 0, 400) Head {h00=0x0008, h01=0x0004, text=» FSL«, t00=0x0008, t01=0x0004}
0x0c8a…0c9e Head {h00=0x0010, h01=0x0050, text=» FTEXT '60 '«, t00=0x0008, t01=0x0010}
0x0c9e…0cb4 Head {h00=0x0012, h01=0x0050, text=» FLINK F60VER «, t00=0x0008, t01=0x0024}
0x0cb4…0cc0 Head {h00=0x0008, h01=0x0004, text=» FNL«, t00=0x0008, t01=0x003a}
0x0cc0…0cdc Head {h00=0x0018, h01=0x0050, text=» FCOPY =C'PROGRAM:' «, t00=0x0008, t01=0x0046}
0x0cdc…0d08 Head {h00=0x0028, h01=0x0050, text=» FKI 9,MINL=2,MAXL=2,ME,NEOI,APPL=1 «, t00=0x0008, t01=0x0062}
0x0d08…0d20 Head {h00=0x0014, h01=0x0050, text=» FMEL 'XX',PRNUM«, t00=0x0008, t01=0x008e}
0x0d20…0d3a Head {h00=0x0016, h01=0x0050, text=» FBF BOOL1,F60OUT «, t00=0x0008, t01=0x00a6}
0x0d3a…0d46 Head {h00=0x0008, h01=0x0004, text=» FNL«, t00=0x0008, t01=0x00c0}
0x0d46…0d5a Head {h00=0x0010, h01=0x0050, text=» FTEXT '61 '«, t00=0x0008, t01=0x00cc}
0x0d5a…0d70 Head {h00=0x0012, h01=0x0050, text=» FLINK F60VER «, t00=0x0008, t01=0x00e0}
0x0d70…0d86 Head {h00=0x0012, h01=0x0050, text=» FCOPY =C'KEY'«, t00=0x0008, t01=0x00f6}
0x0d86…0d92 Head {h00=0x0008, h01=0x0050, text=» FNL«, t00=0x0008, t01=0x010c}
0x0d92…0da6 Head {h00=0x0010, h01=0x0050, text=» FTEXT '62 '«, t00=0x0008, t01=0x0118}
0x0da6…0dbc Head {h00=0x0012, h01=0x0050, text=» FLINK F60VER «, t00=0x0008, t01=0x012c}
0x0dbc…0dd4 Head {h00=0x0014, h01=0x0050, text=» FCOPY =C'SIGHT'«, t00=0x0008, t01=0x0142}
0x0dd4…0de0 Head {h00=0x0008, h01=0x0050, text=» FNL«, t00=0x0008, t01=0x015a}
0x0de0…0df4 Head {h00=0x0010, h01=0x0050, text=» FTEXT '63 '«, t00=0x0008, t01=0x0166}
0x0df4…0e0a Head {h00=0x0012, h01=0x0050, text=» FLINK F60VER «, t00=0x0008, t01=0x017a}
0x0e0a…0e20 Head {h00=0x0012, h01=0x0050, text=» FCOPY =C'KEY'«, t00=0x0008, t01=0x0190}
0x0e20…0e34 Head {h00=0x0010, h01=0x0050, text=» FILLR '/',1«, t00=0x0009, t01=0x0016}
0x0e34…0e4c Head {h00=0x0014, h01=0x0050, text=» FCOPY =C'TEST' «, t00=0x0009, t01=0x002a}
0x0e4c…0e58 Head {h00=0x0008, h01=0x0050, text=» FNL«, t00=0x0009, t01=0x0042}
0x0e58…0e6c Head {h00=0x0010, h01=0x0050, text=» FTEXT '64 '«, t00=0x0009, t01=0x004e}
0x0e6c…0e82 Head {h00=0x0012, h01=0x0050, text=» FLINK F60VER «, t00=0x0009, t01=0x0062}
0x0e82…0e9a Head {h00=0x0014, h01=0x0050, text=» FCOPY =C'SIGHT'«, t00=0x0009, t01=0x0078}
0x0e9a…0eae Head {h00=0x0010, h01=0x0050, text=» FILLR '/',1«, t00=0x0009, t01=0x0090}
0x0eae…0ec6 Head {h00=0x0014, h01=0x0050, text=» FCOPY =C'TEST' «, t00=0x0009, t01=0x00a4}
0x0ec6…0ed4 Head {h00=0x000a, h01=0x0050, text=»F60OUT«, t00=0x0009, t01=0x00bc}
0x0ed4…0ee2 Head {h00=0x000a, h01=0x0006, text=» FMEND«, t00=0x0009, t01=0x00ca}
0x0ee2…0ef4 Head {h00=0x000e, h01=0x0050, text=»F61ST FRMT«, t00=0x0009, t01=0x00d8}
0x0ef4…0f00 Head {h00=0x0008, h01=0x0004, text=» FSL«, t00=0x0009, t01=0x00ea}
0x0f00…0f1e Head {h00=0x001a, h01=0x0050, text=»F61ST1 FMEL 'XX',PRNUM«, t00=0x0009, t01=0x00f6}
0x0f1e…0f2e Head {h00=0x000c, h01=0x0050, text=» FTAB 4 «, t00=0x0009, t01=0x0114}
0x0f2e…0f44 Head {h00=0x0012, h01=0x0050, text=» FLINK F60VER «, t00=0x0009, t01=0x0124}
0x0f44…0f5e Head {h00=0x0016, h01=0x0050, text=» FBT KEYVER,F61ST2«, t00=0x0009, t01=0x013a}
0x0f5e…0f76 Head {h00=0x0014, h01=0x0050, text=» FCOPY =C'SIGHT'«, t00=0x0009, t01=0x0154}
0x0f76…0f88 Head {h00=0x000e, h01=0x0050, text=» FB F61ST3«, t00=0x0009, t01=0x016c}
0x0f88…0f96 Head {h00=0x000a, h01=0x0050, text=»F61ST2«, t00=0x0009, t01=0x017e}
0x0f96…0fac Head {h00=0x0012, h01=0x0050, text=» FCOPY =C'KEY'«, t00=0x0009, t01=0x018c}
0x0fac…0fba Head {h00=0x000a, h01=0x0050, text=»F61ST3«, t00=0x000a, t01=0x0012}
0x0fba…0fd4 Head {h00=0x0016, h01=0x0050, text=» FBF DOOL7,F61ST4 «, t00=0x000a, t01=0x0020}
0x0fd4…0fe8 Head {h00=0x0010, h01=0x0050, text=» FILLR '/',1«, t00=0x000a, t01=0x003a}
0x0fe8…1000 Head {h00=0x0014, h01=0x0050, text=» FCOPY =C'TEST' «, t00=0x000a, t01=0x004e}
0x1000…100e Head {h00=0x000a, h01=0x0050, text=»F61ST4«, t00=0x000a, t01=0x0066}
0x100e…101a Head {h00=0x0008, h01=0x0004, text=» FNL«, t00=0x000a, t01=0x0074}
0x101a…102e Head {h00=0x0010, h01=0x0050, text=» FLINK F60UV«, t00=0x000a, t01=0x0080}
0x102e…103a Head {h00=0x0008, h01=0x0050, text=» FNL«, t00=0x000a, t01=0x0094}
0x103a…1050 Head {h00=0x0012, h01=0x0050, text=» FLINK F60JOB «, t00=0x000a, t01=0x00a0}
0x1050…1060 Head {h00=0x000c, h01=0x0050, text=» FTAB 20«, t00=0x000a, t01=0x00b6}
0x1060…1076 Head {h00=0x0012, h01=0x0050, text=» FLINK F60BAT «, t00=0x000a, t01=0x00c6}
0x1076…1082 Head {h00=0x0008, h01=0x0050, text=» FNL«, t00=0x000a, t01=0x00dc}
0x1082…1098 Head {h00=0x0012, h01=0x0050, text=» FLINK F60END «, t00=0x000a, t01=0x00e8}
0x1098…10a6 Head {h00=0x000a, h01=0x0050, text=» FMEND«, t00=0x000a, t01=0x00fe}
0x10a6…10ba Head {h00=0x0010, h01=0x0050, text=»F60VER FRMT «, t00=0x000a, t01=0x010c}
0x10ba…10d4 Head {h00=0x0016, h01=0x0050, text=» FCOPY =C'VERIFY' «, t00=0x000a, t01=0x0120}
0x10d4…10e8 Head {h00=0x0010, h01=0x0050, text=» FILLR ' ',1«, t00=0x000a, t01=0x013a}
0x10e8…1100 Head {h00=0x0014, h01=0x0050, text=» FCOPY =C'MODE' «, t00=0x000a, t01=0x014e}
0x1100…1114 Head {h00=0x0010, h01=0x0050, text=» FILLR ' ',1«, t00=0x000a, t01=0x0166}
0x1114…1122 Head {h00=0x000a, h01=0x0050, text=» FMEND«, t00=0x000a, t01=0x017a}
0x1122…1134 Head {h00=0x000e, h01=0x0050, text=»F60UV FRMT«, t00=0x000a, t01=0x0188}
0x1134…114c Head {h00=0x0014, h01=0x0050, text=» FCOPY =C'UNIT' «, t00=0x000b, t01=0x000a}
0x114c…1160 Head {h00=0x0010, h01=0x0050, text=» FTEXT ':U' «, t00=0x000b, t01=0x0022}
0x1160…118c Head {h00=0x0028, h01=0x0050, text=» FKI 7,MINL=1,MAXL=1,NEOI,ME,APPL=2 «, t00=0x000b, t01=0x0036}
0x118c…11a6 Head {h00=0x0016, h01=0x0050, text=» FMEL 'X',USERFILE«, t00=0x000b, t01=0x0062}
0x11a6…11b6 Head {h00=0x000c, h01=0x0050, text=» FTAB 20«, t00=0x000b, t01=0x007c}
0x11b6…11d0 Head {h00=0x0016, h01=0x0050, text=» FCOPY =C'VOLUME' «, t00=0x000b, t01=0x008c}
0x11d0…11e4 Head {h00=0x0010, h01=0x0050, text=» FILLR ':',1«, t00=0x000b, t01=0x00a6}
0x11e4…11f4 Head {h00=0x000c, h01=0x0050, text=» FINP 27«, t00=0x000b, t01=0x00ba}
0x11f4…1208 Head {h00=0x0010, h01=0x0050, text=» FCOPY TABLE«, t00=0x000b, t01=0x00ca}
0x1208…1216 Head {h00=0x000a, h01=0x0050, text=» FMEND«, t00=0x000b, t01=0x00de}
0x1216…122a Head {h00=0x0010, h01=0x0050, text=»F60JOB FRMT «, t00=0x000b, t01=0x00ec}
0x122a…1240 Head {h00=0x0012, h01=0x0050, text=» FCOPY =C'JOB'«, t00=0x000b, t01=0x0100}
0x1240…1258 Head {h00=0x0014, h01=0x0050, text=» FCOPY =C'NAME' «, t00=0x000b, t01=0x0116}
0x1258…126c Head {h00=0x0010, h01=0x0050, text=» FILLR ':',1«, t00=0x000b, t01=0x012e}
0x126c…12ae Head {h00=0x003e, h01=0x0050, text=» FKI 9,ALPHA,MINL=1,MAXL=6,ME,NEOI,APPL=3,DUPL=STSAVE(W1) «, t00=0x000b, t01=0x0142}
0x12ae…12c4 Head {h00=0x0012, h01=0x0050, text=» FCOPY JOBNAME«, t00=0x000b, t01=0x0184}
0x12c4…12d2 Head {h00=0x000a, h01=0x0050, text=» FMEND«, t00=0x000c, t01=0x000a}
0x12d2…12e6 Head {h00=0x0010, h01=0x0050, text=»F60BAT FRMT «, t00=0x000c, t01=0x0018}
0x12e6…12fe Head {h00=0x0014, h01=0x0050, text=» FCOPY =C'BATCH'«, t00=0x000c, t01=0x002c}
0x12fe…1316 Head {h00=0x0014, h01=0x0050, text=» FCOPY =C'NAME' «, t00=0x000c, t01=0x0044}
0x1316…132a Head {h00=0x0010, h01=0x0050, text=» FILLR ':',1«, t00=0x000c, t01=0x005c}
0x132a…136c Head {h00=0x003e, h01=0x0050, text=» FKI 30,ALPHA,MINL=1,MAXL=6,ME,NEOI,APPL=4,DUPL=STSAVE(W2)«, t00=0x000c, t01=0x0070}
0x136c…1380 Head {h00=0x0010, h01=0x0050, text=» FCOPY BATCH«, t00=0x000c, t01=0x00b2}
0x1380…138e Head {h00=0x000a, h01=0x0006, text=» FMEND«, t00=0x000c, t01=0x00c6}
0x138e…13a2 Head {h00=0x0010, h01=0x0050, text=»F60END FRMT «, t00=0x000c, t01=0x00d4}
0x13a2…13b0 Head {h00=0x000a, h01=0x0050, text=» FKI 1«, t00=0x000c, t01=0x00e8}
0x13b0…13c4 Head {h00=0x0010, h01=0x0050, text=» FCOPY HEX00«, t00=0x000c, t01=0x00f6}
0x13c4…13d2 Head {h00=0x000a, h01=0x0050, text=» FMEND«, t00=0x000c, t01=0x010a}
0x13d2…13e4 Head {h00=0x000e, h01=0x0050, text=»BELL FRMT «, t00=0x000c, t01=0x0118}
0x13e4…13f0 Head {h00=0x0008, h01=0x0050, text=» FSL«, t00=0x000c, t01=0x012a}
0x13f0…1406 Head {h00=0x0012, h01=0x0050, text=» FILLR X'07',1«, t00=0x000c, t01=0x0136}
0x1406…1414 Head {h00=0x000a, h01=0x0050, text=» FMEND«, t00=0x000c, t01=0x014c}
0x1414…1420 Head {h00=0x0008, h01=0x0004, text=» END«, t00=0x000c, t01=0x015a}
0x1420…1424 Head {h00=0x4004, h01=0x0000}
0x1424…1428 00 0c 01 66 ┆ f┆
0x1428…1430 (13, 1, 8) 20 04 00 00 00 0d 00 04 ┆ ┆
0x1430…1438 (14, 1, 8) 20 04 00 00 00 06 00 04 ┆ ┆
0x1438…1488 (15, 0, 400) 00 1e 00 50 5c 4d 4f 56 45 5c 42 49 4e 32 2c 3d 57 27 34 39 35 27 5c 46 4c 4f 50 50 59 20 00 07 00 04 00 18 00 50 5c 43 42 47 5c 46 43 4f 44 2c 3d 58 27 46 37 27 2c 46 33 31 00 07 00 26 00 22 00 50 5c 4d 4f 56 45 5c 42 49 4e 32 2c 3d 57 27 ┆ P MOVE BIN2,=W'495' FLOPPY P CBG FCOD,=X'F7',F31 & " P MOVE BIN2,=W'┆
0x1488…14d8 36 34 30 30 27 5c 43 41 52 54 52 49 44 47 45 20 00 07 00 42 00 08 00 50 46 33 31 20 00 07 00 68 00 24 00 50 2a 20 20 43 41 4c 43 55 4c 41 54 45 20 4e 4f 2e 20 4f 46 20 46 52 45 45 20 53 45 43 54 4f 52 53 00 07 00 74 00 16 00 50 5c 4d 4f 56 ┆6400' CARTRIDGE B PF31 h $ P* CALCULATE NO. OF FREE SECTORS t P MOV┆
0x14d8…1528 45 5c 42 49 4e 33 2c 3d 58 27 44 30 27 20 00 07 00 9c 00 1a 00 50 5c 43 41 4c 4c 5c 43 48 41 4e 46 43 2c 44 49 53 4b 2c 42 49 4e 33 00 07 00 b6 00 14 00 50 5c 44 53 43 30 5c 44 49 53 4b 2c 43 4c 4f 53 45 00 07 00 d4 00 28 00 50 5c 41 53 53 ┆E BIN3,=X'D0' P CALL CHANFC,DISK,BIN3 P DSC0 DISK,CLOSE ( P ASS┆
0x1528…1578 49 47 4e 5c 44 49 53 4b 2c 30 2c 52 45 54 43 4f 44 2c 53 59 53 46 49 4c 2c 56 4f 4c 4e 41 4d 20 00 07 00 ec 00 1c 00 50 5c 42 4f 4b 5c 46 33 32 5c 53 59 53 46 49 4c 45 20 45 58 49 53 54 53 20 00 07 01 18 00 22 00 50 2a 20 20 53 59 53 46 49 ┆IGN DISK,0,RETCOD,SYSFIL,VOLNAM P BOK F32 SYSFILE EXISTS " P* SYSFI┆
0x1578…15c8 4c 20 4d 55 53 54 20 45 58 49 53 54 20 4f 4e 20 53 59 53 56 4f 4c 00 07 01 38 00 16 00 50 5c 43 4d 50 5c 56 4f 4c 4e 41 4d 2c 53 59 53 56 4f 4c 00 07 01 5e 00 0e 00 50 5c 42 45 5c 44 45 52 52 39 20 00 07 01 78 00 1a 00 50 5c 42 5c 46 33 33 ┆L MUST EXIST ON SYSVOL 8 P CMP VOLNAM,SYSVOL ^ P BE DERR9 x P B F33┆
0x15c8…1618 (16, 0, 398) 5c 49 46 20 4f 54 48 45 52 20 56 4f 4c 55 4d 45 00 07 01 8a 00 08 00 50 46 33 32 20 00 08 00 18 00 14 00 50 5c 4d 4f 56 45 5c 52 45 43 4e 55 4d 2c 57 31 20 00 08 00 24 00 22 00 50 5c 52 52 45 41 44 5c 44 49 53 4b 2c 52 42 55 46 2c 53 59 53 ┆ IF OTHER VOLUME PF32 P MOVE RECNUM,W1 $ " P RREAD DISK,RBUF,SYS┆
0x1618…1668 4c 45 4e 2c 52 45 43 4e 55 4d 00 08 00 3c 00 12 00 50 5c 42 45 52 52 5c 44 49 53 4b 45 52 52 20 00 08 00 62 00 24 00 50 2a 20 20 4e 4f 2e 20 4f 46 20 52 45 43 4f 52 44 53 20 49 4e 20 53 59 53 54 45 4d 46 49 4c 45 20 00 08 00 78 00 20 00 50 ┆LEN,RECNUM < P BERR DISKERR b $ P* NO. OF RECORDS IN SYSTEMFILE x P┆
0x1668…16b8 5c 58 43 4f 50 59 5c 43 52 45 52 45 43 2c 57 30 2c 57 32 2c 52 42 55 46 2c 57 31 20 00 08 00 a0 00 12 00 50 5c 44 49 56 5c 43 52 45 52 45 43 2c 57 32 00 08 00 c4 00 14 00 50 5c 53 55 42 5c 42 49 4e 32 2c 43 52 45 52 45 43 00 08 00 da 00 08 ┆ XCOPY CREREC,W0,W2,RBUF,W1 P DIV CREREC,W2 P SUB BIN2,CREREC ┆
0x16b8…1708 00 50 46 33 33 20 00 08 00 f2 00 10 00 50 5c 41 54 54 46 4d 54 5c 46 55 53 45 00 08 00 fe 00 12 00 50 5c 53 45 54 5c 44 45 50 52 4f 4d 50 54 20 00 08 01 12 00 0a 00 50 43 41 4e 43 32 32 00 08 01 28 00 18 00 50 5c 4d 4f 56 45 5c 46 49 4c 4e ┆ PF33 P ATTFMT FUSE P SET DEPROMPT PCANC22 ( P MOVE FILN┆
0x1708…1756 41 4d 2c 55 53 45 46 49 4c 20 00 08 01 36 00 10 00 50 5c 50 45 52 46 5c 44 45 43 4c 52 41 00 08 01 52 00 1e 00 50 5c 49 42 5c 44 45 42 49 4e 57 32 2c 43 41 4e 43 32 32 2c 43 32 30 2c 46 35 30 00 08 01 66 00 0a 00 50 5c 42 5c 43 31 32 ┆AM,USEFIL 6 P PERF DECLRA R P IB DEBINW2,CANC22,C20,F50 f P B C12┆
0x1756…17a6 (17, 0, 400) 00 08 01 88 00 08 00 50 46 34 30 20 00 09 00 08 00 28 00 50 5c 43 42 45 5c 50 52 4e 55 4d 2c 3d 44 27 34 27 2c 46 34 35 5c 49 46 20 43 4f 50 59 20 53 59 53 46 49 4c 20 00 09 00 14 00 26 00 50 5c 43 42 45 5c 46 54 59 50 45 2c 3d 44 27 31 27 ┆ PF40 ( P CBE PRNUM,=D'4',F45 IF COPY SYSFIL & P CBE FTYPE,=D'1'┆
0x17a6…17f6 2c 46 34 35 5c 49 46 20 53 59 53 54 45 4d 46 49 4c 45 00 09 00 40 00 18 00 50 5c 4d 4f 56 45 5c 46 49 4c 4e 41 4d 2c 44 43 46 49 4c 45 20 00 09 00 6a 00 0a 00 50 5c 42 5c 46 35 30 00 09 00 86 00 08 00 50 46 34 35 20 00 09 00 94 00 18 00 50 ┆,F45 IF SYSTEMFILE @ P MOVE FILNAM,DCFILE j P B F50 PF45 P┆
0x17f6…1846 5c 4d 4f 56 45 5c 46 49 4c 4e 41 4d 2c 53 59 53 46 49 4c 20 00 09 00 a0 00 18 00 50 5c 4d 4f 56 45 5c 56 4f 4c 4e 41 4d 2c 53 59 53 56 4f 4c 20 00 09 00 bc 00 1a 00 50 5c 43 42 4e 45 5c 50 52 4e 55 4d 2c 3d 44 27 34 27 2c 46 35 30 20 00 09 ┆ MOVE FILNAM,SYSFIL P MOVE VOLNAM,SYSVOL P CBNE PRNUM,=D'4',F50 ┆
0x1846…1896 00 d8 00 26 00 50 5c 4d 4f 56 45 5c 56 4f 4c 4e 41 4d 2c 4f 55 54 50 55 54 5c 49 46 20 43 4f 50 59 20 53 59 53 46 49 4c 00 09 00 f6 00 08 00 50 46 35 30 20 00 09 01 20 00 2e 00 50 5c 58 43 4f 50 59 5c 50 42 4c 4f 43 4b 2c 57 37 2c 57 31 2c ┆ & P MOVE VOLNAM,OUTPUT IF COPY SYSFIL PF50 . P XCOPY PBLOCK,W7,W1,┆
0x1896…18e6 46 43 4f 44 2c 57 31 5c 44 49 53 4b 2d 46 49 4c 45 20 43 4f 44 45 00 09 01 2c 00 14 00 50 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 00 09 01 5e 00 12 00 50 2a 20 20 43 52 45 41 54 45 20 46 49 4c 45 00 09 01 76 00 14 00 50 2a 2a 2a 2a ┆FCOD,W1 DISK-FILE CODE , P**************** ^ P* CREATE FILE v P****┆
0x18e6…1936 (18, 0, 400) 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 00 09 01 8c 00 12 00 50 5c 45 52 41 53 45 5c 30 2c 57 31 2c 57 34 00 0a 00 14 00 16 00 50 5c 4d 4f 56 45 5c 53 54 52 31 41 2c 3d 43 27 53 27 20 00 0a 00 2a 00 2a 00 50 5c 58 43 4f 50 59 5c 50 42 4c 4f 43 ┆************ P ERASE 0,W1,W4 P MOVE STR1A,=C'S' * * P XCOPY PBLOC┆
0x1936…1986 4b 2c 57 36 2c 57 31 2c 53 54 52 31 41 2c 57 30 5c 46 2e 4f 52 47 3d 27 53 27 00 0a 00 44 00 2c 00 50 5c 58 43 4f 50 59 5c 50 42 4c 4f 43 4b 2c 57 38 2c 57 38 2c 46 49 4c 4e 41 4d 2c 57 30 5c 46 49 4c 45 2d 4e 41 4d 45 20 00 0a 00 72 00 2e ┆K,W6,W1,STR1A,W0 F.ORG='S' D , P XCOPY PBLOCK,W8,W8,FILNAM,W0 FILE-NAME r .┆
0x1986…19d6 00 50 5c 58 43 4f 50 59 5c 50 42 4c 4f 43 4b 2c 57 31 36 2c 57 36 2c 56 4f 4c 4e 41 4d 2c 57 30 5c 56 4f 4c 2d 4e 41 4d 45 20 31 20 00 0a 00 a2 00 16 00 50 5c 4d 4f 56 45 5c 42 49 4e 31 2c 3d 57 27 34 39 27 20 00 0a 00 d4 00 22 00 50 5c 58 ┆ P XCOPY PBLOCK,W16,W6,VOLNAM,W0 VOL-NAME 1 P MOVE BIN1,=W'49' " P X┆
0x19d6…1a26 43 4f 50 59 5c 50 42 4c 4f 43 4b 2c 42 49 4e 31 2c 57 31 2c 57 31 2c 57 31 5c 42 46 00 0a 00 ee 00 16 00 50 5c 4d 4f 56 45 5c 42 49 4e 32 2c 3d 57 27 35 30 27 20 00 0a 01 14 00 32 00 50 5c 58 43 4f 50 59 5c 50 42 4c 4f 43 4b 2c 42 49 4e 32 ┆COPY PBLOCK,BIN1,W1,W1,W1 BF P MOVE BIN2,=W'50' 2 P XCOPY PBLOCK,BIN2┆
0x1a26…1a76 2c 57 32 2c 55 53 45 4c 45 4e 2c 57 30 5c 52 45 43 4f 52 44 20 4c 45 4e 47 54 48 20 00 0a 01 2e 00 24 00 50 5c 43 42 45 5c 46 54 59 50 45 2c 3d 44 27 32 27 2c 46 35 33 5c 49 46 20 55 53 45 52 46 49 4c 45 00 0a 01 64 00 22 00 50 5c 58 43 4f ┆,W2,USELEN,W0 RECORD LENGTH . $ P CBE FTYPE,=D'2',F53 IF USERFILE d " P XCO┆
0x1a76…1ac6 (19, 0, 400) 50 59 5c 50 42 4c 4f 43 4b 2c 42 49 4e 31 2c 57 31 2c 57 32 2c 57 31 5c 42 46 00 0a 01 8c 00 32 00 50 5c 58 43 4f 50 59 5c 50 42 4c 4f 43 4b 2c 42 49 4e 32 2c 57 32 2c 53 59 53 4c 45 4e 2c 57 30 5c 52 45 43 4f 52 44 20 4c 45 4e 47 54 48 20 ┆PY PBLOCK,BIN1,W1,W2,W1 BF 2 P XCOPY PBLOCK,BIN2,W2,SYSLEN,W0 RECORD LENGTH ┆
0x1ac6…1b16 00 0b 00 22 00 26 00 50 5c 43 42 45 5c 46 54 59 50 45 2c 3d 44 27 31 27 2c 46 35 33 5c 49 46 20 53 59 53 54 45 4d 46 49 4c 45 00 0b 00 58 00 2c 00 50 5c 58 43 4f 50 59 5c 50 42 4c 4f 43 4b 2c 42 49 4e 31 2c 57 31 2c 57 33 2c 57 31 5c 44 43 ┆ " & P CBE FTYPE,=D'1',F53 IF SYSTEMFILE X , P XCOPY PBLOCK,BIN1,W1,W3,W1 DC┆
0x1b16…1b66 46 49 4c 45 2d 42 46 3d 33 20 00 0b 00 82 00 36 00 50 5c 58 43 4f 50 59 5c 50 42 4c 4f 43 4b 2c 42 49 4e 32 2c 57 32 2c 57 31 32 38 2c 57 30 5c 52 45 43 4f 52 44 20 4c 45 4e 47 54 48 20 3d 20 31 32 38 20 00 0b 00 b2 00 08 00 50 46 35 33 20 ┆FILE-BF=3 6 P XCOPY PBLOCK,BIN2,W2,W128,W0 RECORD LENGTH = 128 PF53 ┆
0x1b66…1bb6 00 0b 00 ec 00 16 00 50 5c 4d 4f 56 45 5c 42 49 4e 31 2c 3d 57 27 35 36 27 20 00 0b 00 f8 00 14 00 50 5c 4d 4f 56 45 5c 42 49 4e 33 2c 4e 4f 52 45 43 00 0b 01 12 00 30 00 50 5c 58 43 4f 50 59 5c 50 42 4c 4f 43 4b 2c 42 49 4e 31 2c 57 32 2c ┆ P MOVE BIN1,=W'56' P MOVE BIN3,NOREC 0 P XCOPY PBLOCK,BIN1,W2,┆
0x1bb6…1c06 42 49 4e 33 2c 57 30 5c 4e 4f 2e 20 4f 46 20 52 45 43 4f 52 44 53 00 0b 01 2a 00 16 00 50 5c 4d 4f 56 45 5c 42 49 4e 31 2c 3d 57 27 35 34 27 20 00 0b 01 5e 00 24 00 50 5c 58 43 4f 50 59 5c 50 42 4c 4f 43 4b 2c 42 49 4e 31 2c 57 32 2c 57 30 ┆BIN3,W0 NO. OF RECORDS * P MOVE BIN1,=W'54' ^ $ P XCOPY PBLOCK,BIN1,W2,W0┆
0x1c06…1c56 (20, 0, 400) 2c 57 30 5c 4e 49 46 20 00 0b 01 78 00 16 00 50 5c 4d 4f 56 45 5c 42 49 4e 31 2c 3d 57 27 35 32 27 20 00 0c 00 10 00 22 00 50 5c 58 43 4f 50 59 5c 50 42 4c 4f 43 4b 2c 42 49 4e 31 2c 57 32 2c 57 30 2c 57 30 5c 4b 41 00 0c 00 2a 00 2a 00 50 ┆,W0 NIF x P MOVE BIN1,=W'52' " P XCOPY PBLOCK,BIN1,W2,W0,W0 KA * * P┆
0x1c56…1ca6 5c 43 41 4c 4c 5c 43 52 45 46 49 4c 2c 50 42 4c 4f 43 4b 2c 53 42 55 46 2c 53 59 53 42 55 46 2c 52 45 54 43 4f 44 00 0c 00 50 00 12 00 50 5c 43 4d 50 5c 52 45 54 43 4f 44 2c 57 33 00 0c 00 7e 00 0e 00 50 5c 42 45 5c 44 45 52 52 31 30 00 0c ┆ CALL CREFIL,PBLOCK,SBUF,SYSBUF,RETCOD P P CMP RETCOD,W3 ~ P BE DERR10 ┆
0x1ca6…1cf6 00 94 00 12 00 50 5c 43 4d 50 5c 52 45 54 43 4f 44 2c 57 37 00 0c 00 a6 00 0e 00 50 5c 42 45 5c 44 45 52 52 37 20 00 0c 00 bc 00 12 00 50 5c 43 4d 50 5c 52 45 54 43 4f 44 2c 57 30 00 0c 00 ce 00 10 00 50 5c 42 4e 45 5c 44 49 53 4b 45 52 52 ┆ P CMP RETCOD,W7 P BE DERR7 P CMP RETCOD,W0 P BNE DISKERR┆
0x1cf6…1d46 00 0c 00 e4 00 16 00 50 5c 4d 4f 56 45 5c 42 49 4e 31 2c 3d 58 27 44 30 27 20 00 0c 00 f8 00 1a 00 50 5c 43 41 4c 4c 5c 43 48 41 4e 46 43 2c 44 49 53 4b 2c 42 49 4e 31 00 0c 01 12 00 14 00 50 5c 44 53 43 30 5c 44 49 53 4b 2c 43 4c 4f 53 45 ┆ P MOVE BIN1,=X'D0' P CALL CHANFC,DISK,BIN1 P DSC0 DISK,CLOSE┆
0x1d46…1d96 00 0c 01 30 00 24 00 50 5c 43 42 45 5c 46 54 59 50 45 2c 3d 44 27 33 27 2c 52 45 54 55 52 5c 49 46 20 44 43 46 49 4c 45 00 0c 01 48 00 28 00 50 5c 41 53 53 49 47 4e 5c 44 49 53 4b 2c 30 2c 52 45 54 43 4f 44 2c 46 49 4c 4e 41 4d 2c 56 4f 4c ┆ 0 $ P CBE FTYPE,=D'3',RETUR IF DCFILE H ( P ASSIGN DISK,0,RETCOD,FILNAM,VOL┆