|
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: 7696 (0x1e10)
Notes: pts_type(SC)
Names: »DE40ST.SC«
└─⟦48601905a⟧ Bits:30009668 Philips computer tape "600121"
└─⟦this⟧ »S:DE/DE40ST.SC«
└─⟦5c22ed822⟧ Bits:30009675 Philips computer tape "600209"
└─⟦this⟧ »DEN10/DE40ST.SC«
└─⟦79fbed147⟧ Bits:30009697 Philips computer tape "600414"
└─⟦this⟧ »S:DE/DE40ST.SC«
└─⟦bf903a231⟧ Bits:30009665 Philips computer tape "600109"
└─⟦this⟧ »DEN10/DE40ST.SC«
└─⟦d2a299635⟧ Bits:30009698 Philips computer tape "600415"
└─⟦this⟧ »S:DE/DE40ST.SC«
IDENT DE40ST REL 10.0 80-04-11 80-01-29/DALI DDUM DEDDIV PDIV ENTRY DE40ST * * EXTERNAL REFERENCES TO SCREEN * EXT DECLRA EXT DECLRN EXT DECLRS EXT DERR EXT DERROR * * EXTERNAL REFERENCES FOR DISC-ROUTINES EXT OPCL * EXT DEPRUT EXT DEPMSK * EXTERNAL REFERENCES TO APPLICATION ROUTINE * EXT DENT01 EXT DEOPBC OPEN BATCH-ROUTINE * INCLUDE DELITT EJECT ********************************************* * START OF DATAENTERING. HANDLE PRORAMSCREEN- * LAYOUTS 40,41,42,43,44,45 ENTRY MODE. * THESE ROUTINES USE THE DENTER-SCREEN. ********************************************* DE40ST PROC CLEAR BOOL2 MOVE JOBNAME,HEX00 MOVE BATCH,HEX00 CBNE BIN2,W0,DEEN10 DEST00 SET BOOL1 PART OF FORMAT DISPLAY DEST10 TBT BOOL2,DEST20 ATTFMT F40ST B DEST30 DEST20 ATTFMT F41ST DEST30 SET DEPROMPT PROMPT-TEXTS DISPLAY DEST50 CLEAR DECHANGE TBT BOOL2,DEST55 PERF DECLRA B DEST60 DEST55 PERF DECLRS DEST60 IB DEBINW2,DE40CA,DE40RE,DE40EN MOVE DEBINW4,W0 DE40ER PERF DERR B DEST60 EJECT * * CANCEL-KEY PRESSED * DE40CA CLEAR DEPROMPT B DEST50 * * ENTER-KEY PRESSED * DE40EN TBT BOOL2,OPEN1 JUMP IF OPEN BATCH DEEN10 CBNE BIN1,W4,DERE30 IB BIN2,DEEN20,DEEN50,DEEN30,DEEN40,DEEN15 B DEST00 DEEN15 SET DOOL4 B DEEN50 DEEN20 SET DOOL8 B DEEN50 DEEN30 SET DOOL8 DEEN40 SET DOOL7 DEEN50 SET BOOL2 CLEAR BOOL1 B DEST20 EJECT * * RETURN-KEY PRESSED * DE40RE CLEAR DOOL3 DATAENTERING ON USERFILE PERF OPCL,W4 CLOSE USERFILE BNERR DERE20 MOVE DEBINW1,W0 PERF DERROR,DEKTAB6 ATTFMT F41ST SET DEPROMPT PROMPT-TEXTS DISPLAY CLEAR DECHANGE PERF DECLRN B DEST60 DERE20 CLEAR DOOL5 IF SET RETURN FROM DEOPBC BNZ DERE60 OTHERWISE WITHIN THIS MODULE TBT BOOL2,DERE50 IF SET NOT FRMT 40 MOVE BIN2,W1 RETURN FROM THIS MODE MOVE BIN1,W0 DERE30 RET DERE50 CLEAR BOOL2 CHANGE TO FRMT 40 CLEAR BOOL1 DERE60 TBT BOOL2,DEEN10 IS SET NOT FRMT 40 CLEAR DOOL7 CHANGE TO FRMT 40 CLEAR DOOL4 CLEAR DOOL8 MOVE BIN1,W4 MUL BIN1,W10 MOVE PRNUM,BIN1 PERF DEPRUT,PRNUM,BIN1,BIN2 PERF DEPMSK B DEST10 EJECT ************************************** * THIS IS THE MAINLOOP IN ENTRY MODE * THESE ROUTINES USE THE DENTER-SCREEN ************************************** OPEN1 MOVE DEBINW2,W0 OPEN2 MOVE WORK(W11),W0 MSK-WORD MOVE WORK(W12),W0 COMP-WORD PERF DEOPBC,DEBINW2 IB DEBINW2,OPEN3,OPEN3,DE40RE,OPEN4 OPEN3 PERF DENT01 B OPEN2 OPEN4 GETABX DEBINW3 ATTFMT F41ST GETFLD 0,DEBINW3,DEBINW3 B DE40ER PEND EJECT * * FORMATS * F40ST FRMT FSL FTEXT '40 ' FCOPY =C'ENTRY' FILLR ' ',1 FCOPY =C'MODE' FNL FCOPY =C'PROGRAM:' FKI 9,MINL=2,MAXL=2,ME,NEOI,APPL=1 FMEL 'XX',PRNUM FBF BOOL1,F40OUT FNL FTEXT '41 ' FCOPY =C'OPEN NEW ' FCOPY =C'BATCH' FNL FTEXT '42 ' FCOPY =C'OPEN OLD ' FCOPY =C'BATCH' FNL FTEXT '43 ' FCOPY =C'OPEN NEW ' FCOPY =C'TEST' FILLR '-',1 FCOPY =C'BATCH' FNL FTEXT '44 ' FCOPY =C'OPEN OLD ' FCOPY =C'TEST' FILLR '-',1 FCOPY =C'BATCH' FNL FLINK F45ST F40OUT FMEND F41ST FRMT FSL FBF DOOL4,F41ST1 FLINK F45ST FB F41ST2 F41ST1 FMEL 'XX',PRNUM FTAB 4 FCOPY =C'ENTRY' FILLR ' ',1 FCOPY =C'MODE' FBF DOOL7,F41ST2 FILLR ' ',1 FCOPY =C'TEST' F41ST2 FNL FLINK F40UV FNL FLINK F40JOB FTAB 20 FLINK F40BAT FNL FLINK F40END FMEND F45ST FRMT FTEXT '45 ' FCOPY =C'DELETE' FILLR '-',1 FCOPY =C'BATCH' FMEND F40UV 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 F40JOB 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 F40BAT 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 F40END 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 DE40ST REL 10.0 80-04-11 «, t00=0x0000, t01=0x0004}
0x0028…0040 Head {h00=0x0014, h01=0x0050, text=» 80-01-29/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 DE40ST «, 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…00e2 Head {h00=0x0010, h01=0x0050, text=» EXT DECLRN «, t00=0x0000, t01=0x00d2}
0x00e2…00f6 Head {h00=0x0010, h01=0x0050, text=» EXT DECLRS «, t00=0x0000, t01=0x00e6}
0x00f6…0108 Head {h00=0x000e, h01=0x0050, text=» EXT DERR «, t00=0x0000, t01=0x00fa}
0x0108…011c Head {h00=0x0010, h01=0x0050, text=» EXT DERROR «, t00=0x0000, t01=0x010c}
0x011c…0126 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0120}
0x0126…015c Head {h00=0x0032, h01=0x0050, text=»* EXTERNAL REFERENCES FOR DISC-ROUTINES«, t00=0x0000, t01=0x012a}
0x015c…016e Head {h00=0x000e, h01=0x0050, text=» EXT OPCL «, t00=0x0000, t01=0x0160}
0x016e…0178 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0172}
0x0178…018c Head {h00=0x0010, h01=0x0050, text=» EXT DEPRUT «, t00=0x0000, t01=0x017c}
0x018c…01a0 Head {h00=0x0010, h01=0x0050, text=» EXT DEPMSK «, t00=0x0000, t01=0x0190}
0x01a0…01dc Head {h00=0x0038, h01=0x0050, text=»* EXTERNAL REFERENCES TO APPLICATION ROUTINE «, t00=0x0001, t01=0x0014}
0x01dc…01e6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x0050}
0x01e6…01fa Head {h00=0x0010, h01=0x0050, text=» EXT DENT01 «, t00=0x0001, t01=0x005a}
0x01fa…0220 Head {h00=0x0022, h01=0x0050, text=» EXT DEOPBC OPEN BATCH-ROUTINE«, t00=0x0001, t01=0x006e}
0x0220…022a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x0094}
0x022a…0242 Head {h00=0x0014, h01=0x0050, text=» INCLUDE DELITT «, t00=0x0001, t01=0x009e}
0x0242…0250 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0001, t01=0x00b6}
0x0250…0286 Head {h00=0x0032, h01=0x0050, text=»********************************************* «, t00=0x0001, t01=0x00c4}
0x0286…02bc Head {h00=0x0032, h01=0x0050, text=»* START OF DATAENTERING. HANDLE PRORAMSCREEN- «, t00=0x0001, t01=0x00fa}
0x02bc…02ec Head {h00=0x002c, h01=0x0050, text=»* LAYOUTS 40,41,42,43,44,45 ENTRY MODE. «, t00=0x0001, t01=0x0130}
0x02ec…031c Head {h00=0x002c, h01=0x0050, text=»* THESE ROUTINES USE THE DENTER-SCREEN. «, t00=0x0001, t01=0x0160}
0x031c…0352 Head {h00=0x0032, h01=0x0050, text=»********************************************* «, t00=0x0001, t01=0x0190}
0x0352…0366 Head {h00=0x0010, h01=0x0050, text=»DE40ST PROC «, t00=0x0002, t01=0x0036}
0x0366…037a Head {h00=0x0010, h01=0x0050, text=» CLEAR BOOL2«, t00=0x0002, t01=0x004a}
0x037a…0396 Head {h00=0x0018, h01=0x0050, text=» MOVE JOBNAME,HEX00 «, t00=0x0002, t01=0x005e}
0x0396…03b0 Head {h00=0x0016, h01=0x0050, text=» MOVE BATCH,HEX00 «, t00=0x0002, t01=0x007a}
0x03b0…03cc Head {h00=0x0018, h01=0x0050, text=» CBNE BIN2,W0,DEEN10«, t00=0x0002, t01=0x0094}
0x03cc…03da Head {h00=0x000a, h01=0x0050, text=»DEST00«, t00=0x0002, t01=0x00b0}
0x03da…0404 Head {h00=0x0026, h01=0x0050, text=» SET BOOL1 PART OF FORMAT DISPLAY «, t00=0x0002, t01=0x00be}
0x0404…0412 Head {h00=0x000a, h01=0x0050, text=»DEST10«, t00=0x0002, t01=0x00e8}
0x0412…042c Head {h00=0x0016, h01=0x0050, text=» TBT BOOL2,DEST20 «, t00=0x0002, t01=0x00f6}
0x042c…0442 Head {h00=0x0012, h01=0x0050, text=» ATTFMT F40ST «, t00=0x0002, t01=0x0110}
0x0442…0454 Head {h00=0x000e, h01=0x0050, text=» B DEST30 «, t00=0x0002, t01=0x0126}
0x0454…0462 Head {h00=0x000a, h01=0x0050, text=»DEST20«, t00=0x0002, t01=0x0138}
0x0462…0478 Head {h00=0x0012, h01=0x0050, text=» ATTFMT F41ST «, t00=0x0002, t01=0x0146}
0x0478…0486 Head {h00=0x000a, h01=0x0050, text=»DEST30«, t00=0x0002, t01=0x015c}
0x0486…04b0 Head {h00=0x0026, h01=0x0050, text=» SET DEPROMPT PROMPT-TEXTS DISPLAY«, t00=0x0002, t01=0x016a}
0x04b0…04be (3, 0, 400) Head {h00=0x000a, h01=0x0050, text=»DEST50«, t00=0x0003, t01=0x0004}
0x04be…04d6 Head {h00=0x0014, h01=0x0050, text=» CLEAR DECHANGE «, t00=0x0003, t01=0x0012}
0x04d6…04f0 Head {h00=0x0016, h01=0x0050, text=» TBT BOOL2,DEST55 «, t00=0x0003, t01=0x002a}
0x04f0…0504 Head {h00=0x0010, h01=0x0050, text=» PERF DECLRA«, t00=0x0003, t01=0x0044}
0x0504…0516 Head {h00=0x000e, h01=0x0050, text=» B DEST60 «, t00=0x0003, t01=0x0058}
0x0516…0524 Head {h00=0x000a, h01=0x0050, text=»DEST55«, t00=0x0003, t01=0x006a}
0x0524…0538 Head {h00=0x0010, h01=0x0050, text=» PERF DECLRS«, t00=0x0003, t01=0x0078}
0x0538…0546 Head {h00=0x000a, h01=0x0050, text=»DEST60«, t00=0x0003, t01=0x008c}
0x0546…056e Head {h00=0x0024, h01=0x0050, text=» IB DEBINW2,DE40CA,DE40RE,DE40EN«, t00=0x0003, t01=0x009a}
0x056e…0586 Head {h00=0x0014, h01=0x0050, text=» MOVE DEBINW4,W0«, t00=0x0003, t01=0x00c2}
0x0586…0594 Head {h00=0x000a, h01=0x0050, text=»DE40ER«, t00=0x0003, t01=0x00da}
0x0594…05a6 Head {h00=0x000e, h01=0x0050, text=» PERF DERR«, t00=0x0003, t01=0x00e8}
0x05a6…05b8 Head {h00=0x000e, h01=0x0050, text=» B DEST60 «, t00=0x0003, t01=0x00fa}
0x05b8…05c6 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0003, t01=0x010c}
0x05c6…05d0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x011a}
0x05d0…05ec Head {h00=0x0018, h01=0x0050, text=»* CANCEL-KEY PRESSED«, t00=0x0003, t01=0x0124}
0x05ec…05f6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x0140}
0x05f6…0604 Head {h00=0x000a, h01=0x0050, text=»DE40CA«, t00=0x0003, t01=0x014a}
0x0604…061c Head {h00=0x0014, h01=0x0050, text=» CLEAR DEPROMPT «, t00=0x0003, t01=0x0158}
0x061c…062e Head {h00=0x000e, h01=0x0050, text=» B DEST50 «, t00=0x0003, t01=0x0170}
0x062e…0638 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0003, t01=0x0182}
0x0638…0654 Head {h00=0x0018, h01=0x0050, text=»* ENTER-KEY PRESSED «, t00=0x0003, t01=0x018c}
0x0654…065e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x0018}
0x065e…066c Head {h00=0x000a, h01=0x0050, text=»DE40EN«, t00=0x0004, t01=0x0022}
0x066c…0698 Head {h00=0x0028, h01=0x0050, text=» TBT BOOL2,OPEN1 JUMP IF OPEN BATCH «, t00=0x0004, t01=0x0030}
0x0698…06a6 Head {h00=0x000a, h01=0x0050, text=»DEEN10«, t00=0x0004, t01=0x005c}
0x06a6…06c2 Head {h00=0x0018, h01=0x0050, text=» CBNE BIN1,W4,DERE30«, t00=0x0004, t01=0x006a}
0x06c2…06f6 Head {h00=0x0030, h01=0x0050, text=» IB BIN2,DEEN20,DEEN50,DEEN30,DEEN40,DEEN15 «, t00=0x0004, t01=0x0086}
0x06f6…0708 Head {h00=0x000e, h01=0x0050, text=» B DEST00 «, t00=0x0004, t01=0x00ba}
0x0708…0716 Head {h00=0x000a, h01=0x0050, text=»DEEN15«, t00=0x0004, t01=0x00cc}
0x0716…0728 Head {h00=0x000e, h01=0x0050, text=» SET DOOL4«, t00=0x0004, t01=0x00da}
0x0728…073a Head {h00=0x000e, h01=0x0050, text=» B DEEN50 «, t00=0x0004, t01=0x00ec}
0x073a…0748 Head {h00=0x000a, h01=0x0050, text=»DEEN20«, t00=0x0004, t01=0x00fe}
0x0748…075a Head {h00=0x000e, h01=0x0050, text=» SET DOOL8«, t00=0x0004, t01=0x010c}
0x075a…076c Head {h00=0x000e, h01=0x0050, text=» B DEEN50 «, t00=0x0004, t01=0x011e}
0x076c…077a Head {h00=0x000a, h01=0x0050, text=»DEEN30«, t00=0x0004, t01=0x0130}
0x077a…078c Head {h00=0x000e, h01=0x0050, text=» SET DOOL8«, t00=0x0004, t01=0x013e}
0x078c…079a Head {h00=0x000a, h01=0x0050, text=»DEEN40«, t00=0x0004, t01=0x0150}
0x079a…07ac Head {h00=0x000e, h01=0x0050, text=» SET DOOL7«, t00=0x0004, t01=0x015e}
0x07ac…07ba Head {h00=0x000a, h01=0x0050, text=»DEEN50«, t00=0x0004, t01=0x0170}
0x07ba…07cc Head {h00=0x000e, h01=0x0050, text=» SET BOOL2«, t00=0x0004, t01=0x017e}
0x07cc…07e0 Head {h00=0x0010, h01=0x0050, text=» CLEAR BOOL1«, t00=0x0004, t01=0x0190}
0x07e0…07f2 Head {h00=0x000e, h01=0x0050, text=» B DEST20 «, t00=0x0005, t01=0x0014}
0x07f2…0800 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0005, t01=0x0026}
0x0800…080a Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0005, t01=0x0034}
0x080a…0826 Head {h00=0x0018, h01=0x0050, text=»* RETURN-KEY PRESSED«, t00=0x0005, t01=0x003e}
0x0826…0830 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0005, t01=0x005a}
0x0830…083e Head {h00=0x000a, h01=0x0050, text=»DE40RE«, t00=0x0005, t01=0x0064}
0x083e…086c Head {h00=0x002a, h01=0x0050, text=» CLEAR DOOL3 DATAENTERING ON USERFILE «, t00=0x0005, t01=0x0072}
0x086c…0890 Head {h00=0x0020, h01=0x0050, text=» PERF OPCL,W4 CLOSE USERFILE«, t00=0x0005, t01=0x00a0}
0x0890…08a6 Head {h00=0x0012, h01=0x0050, text=» BNERR DERE20 «, t00=0x0005, t01=0x00c4}
0x08a6…08be Head {h00=0x0014, h01=0x0050, text=» MOVE DEBINW1,W0«, t00=0x0005, t01=0x00da}
0x08be…08da Head {h00=0x0018, h01=0x0050, text=» PERF DERROR,DEKTAB6«, t00=0x0005, t01=0x00f2}
0x08da…08f0 Head {h00=0x0012, h01=0x0050, text=» ATTFMT F41ST «, t00=0x0005, t01=0x010e}
0x08f0…091a Head {h00=0x0026, h01=0x0050, text=» SET DEPROMPT PROMPT-TEXTS DISPLAY«, t00=0x0005, t01=0x0124}
0x091a…0932 Head {h00=0x0014, h01=0x0050, text=» CLEAR DECHANGE «, t00=0x0005, t01=0x014e}
0x0932…0946 Head {h00=0x0010, h01=0x0050, text=» PERF DECLRN«, t00=0x0005, t01=0x0166}
0x0946…0958 Head {h00=0x000e, h01=0x0050, text=» B DEST60 «, t00=0x0005, t01=0x017a}
0x0958…0966 Head {h00=0x000a, h01=0x0050, text=»DERE20«, t00=0x0005, t01=0x018c}
0x0966…0994 Head {h00=0x002a, h01=0x0050, text=» CLEAR DOOL5 IF SET RETURN FROM DEOPBC«, t00=0x0006, t01=0x000a}
0x0994…09c4 Head {h00=0x002c, h01=0x0050, text=» BNZ DERE60 OTHERWISE WITHIN THIS MODULE«, t00=0x0006, t01=0x0038}
0x09c4…09f0 Head {h00=0x0028, h01=0x0050, text=» TBT BOOL2,DERE50 IF SET NOT FRMT 40«, t00=0x0006, t01=0x0068}
0x09f0…0a1c Head {h00=0x0028, h01=0x0050, text=» MOVE BIN2,W1 RETURN FROM THIS MODE «, t00=0x0006, t01=0x0094}
0x0a1c…0a32 Head {h00=0x0012, h01=0x0050, text=» MOVE BIN1,W0 «, t00=0x0006, t01=0x00c0}
0x0a32…0a40 Head {h00=0x000a, h01=0x0050, text=»DERE30«, t00=0x0006, t01=0x00d6}
0x0a40…0a4c Head {h00=0x0008, h01=0x0004, text=» RET«, t00=0x0006, t01=0x00e4}
0x0a4c…0a5a Head {h00=0x000a, h01=0x0050, text=»DERE50«, t00=0x0006, t01=0x00f0}
0x0a5a…0a80 Head {h00=0x0022, h01=0x0050, text=» CLEAR BOOL2 CHANGE TO FRMT 40«, t00=0x0006, t01=0x00fe}
0x0a80…0a94 Head {h00=0x0010, h01=0x0050, text=» CLEAR BOOL1«, t00=0x0006, t01=0x0124}
0x0a94…0aa2 Head {h00=0x000a, h01=0x0050, text=»DERE60«, t00=0x0006, t01=0x0138}
0x0aa2…0ace Head {h00=0x0028, h01=0x0050, text=» TBT BOOL2,DEEN10 IS SET NOT FRMT 40«, t00=0x0006, t01=0x0146}
0x0ace…0af4 Head {h00=0x0022, h01=0x0050, text=» CLEAR DOOL7 CHANGE TO FRMT 40«, t00=0x0006, t01=0x0172}
0x0af4…0b08 Head {h00=0x0010, h01=0x0050, text=» CLEAR DOOL4«, t00=0x0007, t01=0x0008}
0x0b08…0b1c Head {h00=0x0010, h01=0x0050, text=» CLEAR DOOL8«, t00=0x0007, t01=0x001c}
0x0b1c…0b32 Head {h00=0x0012, h01=0x0050, text=» MOVE BIN1,W4 «, t00=0x0007, t01=0x0030}
0x0b32…0b48 Head {h00=0x0012, h01=0x0050, text=» MUL BIN1,W10 «, t00=0x0007, t01=0x0046}
0x0b48…0b60 Head {h00=0x0014, h01=0x0050, text=» MOVE PRNUM,BIN1«, t00=0x0007, t01=0x005c}
0x0b60…0b84 Head {h00=0x0020, h01=0x0050, text=» PERF DEPRUT,PRNUM,BIN1,BIN2«, t00=0x0007, t01=0x0074}
0x0b84…0b98 Head {h00=0x0010, h01=0x0050, text=» PERF DEPMSK«, t00=0x0007, t01=0x0098}
0x0b98…0baa Head {h00=0x000e, h01=0x0050, text=» B DEST10 «, t00=0x0007, t01=0x00ac}
0x0baa…0bb8 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0007, t01=0x00be}
0x0bb8…0be6 Head {h00=0x002a, h01=0x0050, text=»**************************************«, t00=0x0007, t01=0x00cc}
0x0be6…0c12 Head {h00=0x0028, h01=0x0050, text=»* THIS IS THE MAINLOOP IN ENTRY MODE«, t00=0x0007, t01=0x00fa}
0x0c12…0c40 Head {h00=0x002a, h01=0x0050, text=»* THESE ROUTINES USE THE DENTER-SCREEN«, t00=0x0007, t01=0x0126}
0x0c40…0c6e Head {h00=0x002a, h01=0x0050, text=»**************************************«, t00=0x0007, t01=0x0154}
0x0c6e…0c7c Head {h00=0x000a, h01=0x0050, text=»OPEN1 «, t00=0x0007, t01=0x0182}
0x0c7c…0c94 Head {h00=0x0014, h01=0x0050, text=» MOVE DEBINW2,W0«, t00=0x0007, t01=0x0190}
0x0c94…0ca2 Head {h00=0x000a, h01=0x0050, text=»OPEN2 «, t00=0x0008, t01=0x0018}
0x0ca2…0cc6 Head {h00=0x0020, h01=0x0050, text=» MOVE WORK(W11),W0 MSK-WORD «, t00=0x0008, t01=0x0026}
0x0cc6…0cea Head {h00=0x0020, h01=0x0050, text=» MOVE WORK(W12),W0 COMP-WORD«, t00=0x0008, t01=0x004a}
0x0cea…0d06 Head {h00=0x0018, h01=0x0050, text=» PERF DEOPBC,DEBINW2«, t00=0x0008, t01=0x006e}
0x0d06…0d32 Head {h00=0x0028, h01=0x0050, text=» IB DEBINW2,OPEN3,OPEN3,DE40RE,OPEN4«, t00=0x0008, t01=0x008a}
0x0d32…0d40 Head {h00=0x000a, h01=0x0050, text=»OPEN3 «, t00=0x0008, t01=0x00b6}
0x0d40…0d54 Head {h00=0x0010, h01=0x0050, text=» PERF DENT01«, t00=0x0008, t01=0x00c4}
0x0d54…0d64 Head {h00=0x000c, h01=0x0050, text=» B OPEN2«, t00=0x0008, t01=0x00d8}
0x0d64…0d72 Head {h00=0x000a, h01=0x0050, text=»OPEN4 «, t00=0x0008, t01=0x00e8}
0x0d72…0d8a Head {h00=0x0014, h01=0x0050, text=» GETABX DEBINW3 «, t00=0x0008, t01=0x00f6}
0x0d8a…0da0 Head {h00=0x0012, h01=0x0050, text=» ATTFMT F41ST «, t00=0x0008, t01=0x010e}
0x0da0…0dc2 Head {h00=0x001e, h01=0x0050, text=» GETFLD 0,DEBINW3,DEBINW3 «, t00=0x0008, t01=0x0124}
0x0dc2…0dd4 Head {h00=0x000e, h01=0x0050, text=» B DE40ER «, t00=0x0008, t01=0x0146}
0x0dd4…0de2 Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0008, t01=0x0158}
0x0de2…0df0 Head {h00=0x000a, h01=0x0006, text=» EJECT«, t00=0x0008, t01=0x0166}
0x0df0…0dfa Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0008, t01=0x0174}
0x0dfa…0e12 Head {h00=0x0014, h01=0x0010, text=»* FORMATS«, t00=0x0008, t01=0x017e}
0x0e12…0e1c Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0009, t01=0x0008}
0x0e1c…0e2e Head {h00=0x000e, h01=0x0050, text=»F40ST FRMT«, t00=0x0009, t01=0x0012}
0x0e2e…0e3a Head {h00=0x0008, h01=0x0004, text=» FSL«, t00=0x0009, t01=0x0024}
0x0e3a…0e4e Head {h00=0x0010, h01=0x0050, text=» FTEXT '40 '«, t00=0x0009, t01=0x0030}
0x0e4e…0e66 Head {h00=0x0014, h01=0x0050, text=» FCOPY =C'ENTRY'«, t00=0x0009, t01=0x0044}
0x0e66…0e7a Head {h00=0x0010, h01=0x0050, text=» FILLR ' ',1«, t00=0x0009, t01=0x005c}
0x0e7a…0e92 Head {h00=0x0014, h01=0x0050, text=» FCOPY =C'MODE' «, t00=0x0009, t01=0x0070}
0x0e92…0e9e Head {h00=0x0008, h01=0x0004, text=» FNL«, t00=0x0009, t01=0x0088}
0x0e9e…0eba Head {h00=0x0018, h01=0x0050, text=» FCOPY =C'PROGRAM:' «, t00=0x0009, t01=0x0094}
0x0eba…0ee6 Head {h00=0x0028, h01=0x0050, text=» FKI 9,MINL=2,MAXL=2,ME,NEOI,APPL=1 «, t00=0x0009, t01=0x00b0}
0x0ee6…0efe Head {h00=0x0014, h01=0x0050, text=» FMEL 'XX',PRNUM«, t00=0x0009, t01=0x00dc}
0x0efe…0f18 Head {h00=0x0016, h01=0x0050, text=» FBF BOOL1,F40OUT «, t00=0x0009, t01=0x00f4}
0x0f18…0f24 Head {h00=0x0008, h01=0x0004, text=» FNL«, t00=0x0009, t01=0x010e}
0x0f24…0f38 Head {h00=0x0010, h01=0x0050, text=» FTEXT '41 '«, t00=0x0009, t01=0x011a}
0x0f38…0f54 Head {h00=0x0018, h01=0x0050, text=» FCOPY =C'OPEN NEW '«, t00=0x0009, t01=0x012e}
0x0f54…0f6c Head {h00=0x0014, h01=0x0050, text=» FCOPY =C'BATCH'«, t00=0x0009, t01=0x014a}
0x0f6c…0f78 Head {h00=0x0008, h01=0x0050, text=» FNL«, t00=0x0009, t01=0x0162}
0x0f78…0f8c Head {h00=0x0010, h01=0x0050, text=» FTEXT '42 '«, t00=0x0009, t01=0x016e}
0x0f8c…0fa8 Head {h00=0x0018, h01=0x0050, text=» FCOPY =C'OPEN OLD '«, t00=0x0009, t01=0x0182}
0x0fa8…0fc0 Head {h00=0x0014, h01=0x0050, text=» FCOPY =C'BATCH'«, t00=0x000a, t01=0x000e}
0x0fc0…0fcc Head {h00=0x0008, h01=0x0050, text=» FNL«, t00=0x000a, t01=0x0026}
0x0fcc…0fe0 Head {h00=0x0010, h01=0x0050, text=» FTEXT '43 '«, t00=0x000a, t01=0x0032}
0x0fe0…0ffc Head {h00=0x0018, h01=0x0050, text=» FCOPY =C'OPEN NEW '«, t00=0x000a, t01=0x0046}
0x0ffc…1014 Head {h00=0x0014, h01=0x0050, text=» FCOPY =C'TEST' «, t00=0x000a, t01=0x0062}
0x1014…1028 Head {h00=0x0010, h01=0x0050, text=» FILLR '-',1«, t00=0x000a, t01=0x007a}
0x1028…1040 Head {h00=0x0014, h01=0x0050, text=» FCOPY =C'BATCH'«, t00=0x000a, t01=0x008e}
0x1040…104c Head {h00=0x0008, h01=0x0050, text=» FNL«, t00=0x000a, t01=0x00a6}
0x104c…1060 Head {h00=0x0010, h01=0x0050, text=» FTEXT '44 '«, t00=0x000a, t01=0x00b2}
0x1060…107c Head {h00=0x0018, h01=0x0050, text=» FCOPY =C'OPEN OLD '«, t00=0x000a, t01=0x00c6}
0x107c…1094 Head {h00=0x0014, h01=0x0050, text=» FCOPY =C'TEST' «, t00=0x000a, t01=0x00e2}
0x1094…10a8 Head {h00=0x0010, h01=0x0050, text=» FILLR '-',1«, t00=0x000a, t01=0x00fa}
0x10a8…10c0 Head {h00=0x0014, h01=0x0050, text=» FCOPY =C'BATCH'«, t00=0x000a, t01=0x010e}
0x10c0…10cc Head {h00=0x0008, h01=0x0050, text=» FNL«, t00=0x000a, t01=0x0126}
0x10cc…10e0 Head {h00=0x0010, h01=0x0050, text=» FLINK F45ST«, t00=0x000a, t01=0x0132}
0x10e0…10ee Head {h00=0x000a, h01=0x0050, text=»F40OUT«, t00=0x000a, t01=0x0146}
0x10ee…10fc Head {h00=0x000a, h01=0x0006, text=» FMEND«, t00=0x000a, t01=0x0154}
0x10fc…110e Head {h00=0x000e, h01=0x0050, text=»F41ST FRMT«, t00=0x000a, t01=0x0162}
0x110e…111a Head {h00=0x0008, h01=0x0004, text=» FSL«, t00=0x000a, t01=0x0174}
0x111a…1134 Head {h00=0x0016, h01=0x0050, text=» FBF DOOL4,F41ST1 «, t00=0x000a, t01=0x0180}
0x1134…1148 Head {h00=0x0010, h01=0x0050, text=» FLINK F45ST«, t00=0x000b, t01=0x000a}
0x1148…115a Head {h00=0x000e, h01=0x0050, text=» FB F41ST2«, t00=0x000b, t01=0x001e}
0x115a…1178 Head {h00=0x001a, h01=0x0050, text=»F41ST1 FMEL 'XX',PRNUM«, t00=0x000b, t01=0x0030}
0x1178…1188 Head {h00=0x000c, h01=0x0050, text=» FTAB 4 «, t00=0x000b, t01=0x004e}
0x1188…11a0 Head {h00=0x0014, h01=0x0050, text=» FCOPY =C'ENTRY'«, t00=0x000b, t01=0x005e}
0x11a0…11b4 Head {h00=0x0010, h01=0x0050, text=» FILLR ' ',1«, t00=0x000b, t01=0x0076}
0x11b4…11cc Head {h00=0x0014, h01=0x0050, text=» FCOPY =C'MODE' «, t00=0x000b, t01=0x008a}
0x11cc…11e6 Head {h00=0x0016, h01=0x0050, text=» FBF DOOL7,F41ST2 «, t00=0x000b, t01=0x00a2}
0x11e6…11fa Head {h00=0x0010, h01=0x0050, text=» FILLR ' ',1«, t00=0x000b, t01=0x00bc}
0x11fa…1212 Head {h00=0x0014, h01=0x0050, text=» FCOPY =C'TEST' «, t00=0x000b, t01=0x00d0}
0x1212…1220 Head {h00=0x000a, h01=0x0050, text=»F41ST2«, t00=0x000b, t01=0x00e8}
0x1220…122c Head {h00=0x0008, h01=0x0004, text=» FNL«, t00=0x000b, t01=0x00f6}
0x122c…1240 Head {h00=0x0010, h01=0x0050, text=» FLINK F40UV«, t00=0x000b, t01=0x0102}
0x1240…124c Head {h00=0x0008, h01=0x0050, text=» FNL«, t00=0x000b, t01=0x0116}
0x124c…1262 Head {h00=0x0012, h01=0x0050, text=» FLINK F40JOB «, t00=0x000b, t01=0x0122}
0x1262…1272 Head {h00=0x000c, h01=0x0050, text=» FTAB 20«, t00=0x000b, t01=0x0138}
0x1272…1288 Head {h00=0x0012, h01=0x0050, text=» FLINK F40BAT «, t00=0x000b, t01=0x0148}
0x1288…1294 Head {h00=0x0008, h01=0x0050, text=» FNL«, t00=0x000b, t01=0x015e}
0x1294…12aa Head {h00=0x0012, h01=0x0050, text=» FLINK F40END «, t00=0x000b, t01=0x016a}
0x12aa…12b8 Head {h00=0x000a, h01=0x0050, text=» FMEND«, t00=0x000b, t01=0x0180}
0x12b8…12ca Head {h00=0x000e, h01=0x0050, text=»F45ST FRMT«, t00=0x000b, t01=0x018e}
0x12ca…12de Head {h00=0x0010, h01=0x0050, text=» FTEXT '45 '«, t00=0x000c, t01=0x0010}
0x12de…12f8 Head {h00=0x0016, h01=0x0050, text=» FCOPY =C'DELETE' «, t00=0x000c, t01=0x0024}
0x12f8…130c Head {h00=0x0010, h01=0x0050, text=» FILLR '-',1«, t00=0x000c, t01=0x003e}
0x130c…1324 Head {h00=0x0014, h01=0x0050, text=» FCOPY =C'BATCH'«, t00=0x000c, t01=0x0052}
0x1324…1332 Head {h00=0x000a, h01=0x0050, text=» FMEND«, t00=0x000c, t01=0x006a}
0x1332…1344 Head {h00=0x000e, h01=0x0050, text=»F40UV FRMT«, t00=0x000c, t01=0x0078}
0x1344…135c Head {h00=0x0014, h01=0x0050, text=» FCOPY =C'UNIT' «, t00=0x000c, t01=0x008a}
0x135c…1370 Head {h00=0x0010, h01=0x0050, text=» FTEXT ':U' «, t00=0x000c, t01=0x00a2}
0x1370…139c Head {h00=0x0028, h01=0x0050, text=» FKI 7,MINL=1,MAXL=1,NEOI,ME,APPL=2 «, t00=0x000c, t01=0x00b6}
0x139c…13b6 Head {h00=0x0016, h01=0x0050, text=» FMEL 'X',USERFILE«, t00=0x000c, t01=0x00e2}
0x13b6…13c6 Head {h00=0x000c, h01=0x0050, text=» FTAB 20«, t00=0x000c, t01=0x00fc}
0x13c6…13e0 Head {h00=0x0016, h01=0x0050, text=» FCOPY =C'VOLUME' «, t00=0x000c, t01=0x010c}
0x13e0…13f4 Head {h00=0x0010, h01=0x0050, text=» FILLR ':',1«, t00=0x000c, t01=0x0126}
0x13f4…1404 Head {h00=0x000c, h01=0x0050, text=» FINP 27«, t00=0x000c, t01=0x013a}
0x1404…1418 Head {h00=0x0010, h01=0x0050, text=» FCOPY TABLE«, t00=0x000c, t01=0x014a}
0x1418…1426 Head {h00=0x000a, h01=0x0050, text=» FMEND«, t00=0x000c, t01=0x015e}
0x1426…143a Head {h00=0x0010, h01=0x0050, text=»F40JOB FRMT «, t00=0x000c, t01=0x016c}
0x143a…1450 Head {h00=0x0012, h01=0x0050, text=» FCOPY =C'JOB'«, t00=0x000c, t01=0x0180}
0x1450…1468 Head {h00=0x0014, h01=0x0050, text=» FCOPY =C'NAME' «, t00=0x000d, t01=0x0008}
0x1468…147c Head {h00=0x0010, h01=0x0050, text=» FILLR ':',1«, t00=0x000d, t01=0x0020}
0x147c…14be Head {h00=0x003e, h01=0x0050, text=» FKI 9,ALPHA,MINL=1,MAXL=6,ME,NEOI,APPL=3,DUPL=STSAVE(W1) «, t00=0x000d, t01=0x0034}
0x14be…14d4 Head {h00=0x0012, h01=0x0050, text=» FCOPY JOBNAME«, t00=0x000d, t01=0x0076}
0x14d4…14e2 Head {h00=0x000a, h01=0x0050, text=» FMEND«, t00=0x000d, t01=0x008c}
0x14e2…14f6 Head {h00=0x0010, h01=0x0050, text=»F40BAT FRMT «, t00=0x000d, t01=0x009a}
0x14f6…150e Head {h00=0x0014, h01=0x0050, text=» FCOPY =C'BATCH'«, t00=0x000d, t01=0x00ae}
0x150e…1526 Head {h00=0x0014, h01=0x0050, text=» FCOPY =C'NAME' «, t00=0x000d, t01=0x00c6}
0x1526…153a Head {h00=0x0010, h01=0x0050, text=» FILLR ':',1«, t00=0x000d, t01=0x00de}
0x153a…157c Head {h00=0x003e, h01=0x0050, text=» FKI 30,ALPHA,MINL=1,MAXL=6,ME,NEOI,APPL=4,DUPL=STSAVE(W2)«, t00=0x000d, t01=0x00f2}
0x157c…1590 Head {h00=0x0010, h01=0x0050, text=» FCOPY BATCH«, t00=0x000d, t01=0x0134}
0x1590…159e Head {h00=0x000a, h01=0x0006, text=» FMEND«, t00=0x000d, t01=0x0148}
0x159e…15b2 Head {h00=0x0010, h01=0x0050, text=»F40END FRMT «, t00=0x000d, t01=0x0156}
0x15b2…15c0 Head {h00=0x000a, h01=0x0050, text=» FKI 1«, t00=0x000d, t01=0x016a}
0x15c0…15d4 Head {h00=0x0010, h01=0x0050, text=» FCOPY HEX00«, t00=0x000d, t01=0x0178}
0x15d4…15e2 Head {h00=0x000a, h01=0x0050, text=» FMEND«, t00=0x000d, t01=0x018c}
0x15e2…15f4 Head {h00=0x000e, h01=0x0050, text=»BELL FRMT «, t00=0x000e, t01=0x000a}
0x15f4…1600 Head {h00=0x0008, h01=0x0050, text=» FSL«, t00=0x000e, t01=0x001c}
0x1600…1616 Head {h00=0x0012, h01=0x0050, text=» FILLR X'07',1«, t00=0x000e, t01=0x0028}
0x1616…1624 Head {h00=0x000a, h01=0x0050, text=» FMEND«, t00=0x000e, t01=0x003e}
0x1624…1630 Head {h00=0x0008, h01=0x0050, text=» END«, t00=0x000e, t01=0x004c}
0x1630…1634 Head {h00=0x4004, h01=0x0000}
0x1634…1638 00 0e 00 58 ┆ X┆
0x1638…1640 (15, 1, 8) 20 04 00 00 00 0f 00 04 ┆ ┆
0x1640…1690 (16, 0, 400) 31 ff 43 4f 4d 4d 41 20 4d 49 53 53 49 4e 47 20 41 46 54 45 52 20 46 49 52 53 54 20 45 4c 45 4d 2e 20 4f 46 20 41 4e 20 45 51 55 49 56 2e 20 4c 49 53 54 45 20 ff 49 4c 4c 45 47 41 4c 20 45 51 55 49 56 41 4c 45 4e 43 45 20 4c 49 53 54 20 45 ┆1 COMMA MISSING AFTER FIRST ELEM. OF AN EQUIV. LISTE ILLEGAL EQUIVALENCE LIST E┆
0x1690…16e0 4c 45 4d 45 4e 54 17 ff 49 4c 4c 45 47 41 4c 20 53 55 42 53 43 52 49 50 54 20 56 41 4c 55 45 52 30 ff 4c 45 46 54 20 50 41 52 45 4e 54 48 45 53 49 53 20 4d 49 53 53 49 4e 47 20 49 4e 20 46 4f 52 4d 41 4c 20 41 52 47 55 4d 45 4e 54 20 4c 49 ┆LEMENT ILLEGAL SUBSCRIPT VALUER0 LEFT PARENTHESIS MISSING IN FORMAL ARGUMENT LI┆
0x16e0…1730 53 54 17 ff 49 4c 4c 45 47 41 4c 20 46 4f 52 4d 41 4c 20 41 52 47 55 4d 45 4e 54 53 31 ff 49 4c 4c 45 47 41 4c 20 53 59 4e 54 41 43 54 49 43 20 55 4e 49 54 20 41 46 54 45 52 20 46 4f 52 4d 41 4c 20 41 52 47 55 4d 45 4e 54 20 4c 49 53 54 4e ┆ST ILLEGAL FORMAL ARGUMENTS1 ILLEGAL SYNTACTIC UNIT AFTER FORMAL ARGUMENT LISTN┆
0x1730…1780 2e ff 4d 49 53 53 49 4e 47 20 4c 45 46 54 20 50 41 52 45 4e 54 48 45 53 49 53 20 49 4e 20 41 20 44 45 46 49 4e 45 20 46 49 4c 45 20 4c 49 53 54 23 ff 49 4c 4c 45 47 41 4c 20 52 45 43 4f 52 44 20 4e 55 4d 42 45 52 20 53 50 45 43 49 46 49 43 ┆. MISSING LEFT PARENTHESIS IN A DEFINE FILE LIST# ILLEGAL RECORD NUMBER SPECIFIC┆
0x1780…17d0 41 54 49 4f 4e 53 23 ff 49 4c 4c 45 47 41 4c 20 52 45 43 4f 52 44 20 4c 45 4e 47 54 48 20 53 50 45 43 49 46 49 43 41 54 49 4f 4e 53 1b ff 49 4c 4c 45 47 41 4c 20 41 53 53 4f 43 49 41 54 45 44 20 56 41 52 49 41 42 4c 45 45 00 00 b8 c0 00 00 ┆ATIONS# ILLEGAL RECORD LENGTH SPECIFICATIONS ILLEGAL ASSOCIATED VARIABLEE ┆
0x17d0…1820 (17, 0, 400) 2f ff 4d 49 53 53 49 4e 47 20 52 49 47 54 48 20 50 41 52 45 4e 54 48 45 53 49 53 20 49 4e 20 41 20 44 45 46 49 4e 45 20 46 49 4c 45 20 4c 49 53 54 53 22 ff 49 4c 4c 45 47 41 4c 20 53 59 4e 54 41 43 54 49 43 20 55 4e 49 54 20 41 46 54 45 52 ┆/ MISSING RIGTH PARENTHESIS IN A DEFINE FILE LISTS" ILLEGAL SYNTACTIC UNIT AFTER┆
0x1820…1870 20 43 4f 4d 4d 41 2a ff 43 4f 4e 53 54 41 4e 54 20 4c 49 53 54 20 44 4f 45 53 20 4e 4f 54 20 4d 41 54 43 48 20 56 41 52 49 41 42 4c 45 20 4c 49 53 54 2f 14 4e 4f 4e 2d 43 4f 4d 4d 4f 4e 20 56 41 52 49 41 42 4c 45 20 40 20 46 4f 52 42 49 44 ┆ COMMA* CONSTANT LIST DOES NOT MATCH VARIABLE LIST/ NON-COMMON VARIABLE @ FORBID┆
0x1870…18c0 44 45 4e 20 49 4e 20 41 20 42 4c 4f 43 4b 20 44 41 54 41 41 2b 0c 46 4f 52 4d 41 4c 20 41 52 47 2e 20 40 20 43 41 4e 4e 4f 54 20 42 45 20 49 4e 49 54 49 41 4c 49 5a 45 44 20 42 59 20 44 41 54 41 20 33 18 49 4e 49 54 2e 4f 46 20 43 4f 4d 4d ┆DEN IN A BLOCK DATAA+ FORMAL ARG. @ CANNOT BE INITIALIZED BY DATA 3 INIT.OF COMM┆
0x18c0…1910 4f 4e 20 56 41 52 49 41 42 4c 45 20 40 20 46 4f 52 42 49 44 44 45 4e 20 4f 55 54 53 49 44 45 20 42 4c 4b 44 41 54 41 46 2a ff 42 4c 41 4e 4b 20 43 4f 4d 4d 4f 4e 20 43 41 4e 4e 4f 54 20 42 45 20 49 4e 49 54 49 41 4c 49 5a 45 44 20 42 59 20 ┆ON VARIABLE @ FORBIDDEN OUTSIDE BLKDATAF* BLANK COMMON CANNOT BE INITIALIZED BY ┆
0x1910…1960 44 41 54 41 33 ff 41 20 44 4f 2d 49 4d 50 4c 49 45 44 20 4c 4f 4f 50 20 49 4e 44 45 58 20 44 4f 45 53 4e 20 54 20 4d 41 54 43 48 20 41 4e 59 20 53 55 42 53 43 52 49 50 54 4f 43 49 41 54 45 44 20 56 41 52 49 41 42 4c 45 45 00 00 b8 c0 00 00 ┆DATA3 A DO-IMPLIED LOOP INDEX DOESN T MATCH ANY SUBSCRIPTOCIATED VARIABLEE ┆
0x1960…19b0 (18, 0, 400) 31 ff 4e 42 2e 20 4f 46 20 53 55 42 53 43 52 49 50 54 53 20 44 4f 45 53 20 4e 4f 54 20 4d 41 54 43 48 20 4e 42 20 4f 46 20 44 49 4d 45 4e 53 49 4f 4e 53 ff 32 ff 41 20 43 4f 4e 53 54 41 4e 54 20 43 41 4e 4e 4f 54 20 42 45 20 43 4f 4e 56 45 ┆1 NB. OF SUBSCRIPTS DOES NOT MATCH NB OF DIMENSIONS 2 A CONSTANT CANNOT BE CONVE┆
0x19b0…1a00 52 54 45 44 20 54 4f 20 54 48 45 20 43 4f 52 2e 56 41 52 2e 54 59 50 45 1d ff 49 4c 4c 45 47 41 4c 20 4f 52 20 54 4f 4f 20 4c 41 52 47 45 20 43 4f 4e 53 54 41 4e 54 2d 23 ff 49 4c 4c 45 47 41 4c 20 53 59 4e 54 41 58 20 46 4f 52 20 41 20 44 ┆RTED TO THE COR.VAR.TYPE ILLEGAL OR TOO LARGE CONSTANT-# ILLEGAL SYNTAX FOR A D┆
0x1a00…1a50 41 54 41 20 53 54 41 54 45 4d 45 4e 54 4b 16 ff 49 4c 4c 45 47 41 4c 20 53 55 42 53 43 52 49 50 54 20 4c 49 53 54 1c ff 4d 49 53 53 49 4e 47 20 4f 52 20 49 4c 4c 45 47 41 4c 20 44 45 4c 49 4d 49 54 45 52 1f ff 49 4c 4c 45 47 41 4c 20 49 54 ┆ATA STATEMENTK ILLEGAL SUBSCRIPT LIST MISSING OR ILLEGAL DELIMITER ILLEGAL IT┆
0x1a50…1aa0 45 4d 20 49 4e 20 41 20 43 4f 4e 53 54 41 4e 54 20 4c 49 53 54 45 24 ff 49 4c 4c 45 47 41 4c 20 53 59 4e 54 41 58 20 46 4f 52 20 41 20 44 4f 2d 49 4d 50 4c 49 45 44 20 4c 49 53 54 33 ff 4c 4f 4f 50 20 49 4e 44 45 58 20 49 53 20 49 4c 4c 45 ┆EM IN A CONSTANT LISTE$ ILLEGAL SYNTAX FOR A DO-IMPLIED LIST3 LOOP INDEX IS ILLE┆
0x1aa0…1af0 47 2e 4f 52 20 4d 49 53 53 49 4e 47 20 49 4e 20 41 20 44 4f 2d 49 4d 50 4c 49 45 44 20 4c 49 53 54 53 23 ff 45 51 55 41 4c 53 20 4d 49 53 53 49 4e 47 20 49 4e 20 41 20 44 4f 2d 49 4d 50 4c 49 45 44 20 4c 49 53 54 4c 45 45 00 00 b8 c0 00 00 ┆G.OR MISSING IN A DO-IMPLIED LISTS# EQUALS MISSING IN A DO-IMPLIED LISTLEE ┆
0x1af0…1b40 (19, 0, 400) 31 ff 4c 4f 57 45 52 20 4f 52 20 55 50 50 45 52 20 4c 49 4d 49 54 20 4d 49 53 53 49 4e 47 20 49 4e 20 41 20 44 4f 2d 49 4d 50 4c 49 45 44 20 4c 49 53 54 ff 21 ff 49 4c 4c 45 47 41 4c 20 53 54 45 50 20 49 4e 20 41 20 44 4f 2d 49 4d 50 4c 49 ┆1 LOWER OR UPPER LIMIT MISSING IN A DO-IMPLIED LIST ! ILLEGAL STEP IN A DO-IMPLI┆
0x1b40…1b90 45 44 20 4c 49 53 54 20 18 ff 49 4c 4c 45 47 41 4c 20 43 4f 4d 50 4c 45 58 20 43 4f 4e 53 54 41 4e 54 19 ff 4d 49 53 53 49 4e 47 20 45 4c 45 4d 45 4e 54 20 49 4e 20 41 20 4c 49 53 54 45 32 00 40 20 49 4e 20 41 20 4e 41 4d 45 4c 49 53 54 20 ┆ED LIST ILLEGAL COMPLEX CONSTANT MISSING ELEMENT IN A LISTE2 @ IN A NAMELIST ┆
0x1b90…1be0 53 54 41 54 45 4d 45 4e 54 20 49 53 20 4e 4f 54 20 56 41 52 49 41 42 4c 45 20 4f 52 20 41 52 52 41 59 1c ff 41 52 52 41 59 20 4e 4e 20 49 53 20 47 52 45 41 54 45 52 20 54 48 41 4e 20 33 32 4b 49 54 45 52 1f ff 49 4c 4c 45 47 41 4c 20 49 54 ┆STATEMENT IS NOT VARIABLE OR ARRAY ARRAY NN IS GREATER THAN 32KITER ILLEGAL IT┆
0x1be0…1c30 45 4d 20 49 4e 20 41 20 43 4f 4e 53 54 41 4e 54 20 4c 49 53 54 45 24 ff 49 4c 4c 45 47 41 4c 20 53 59 4e 54 41 58 20 46 4f 52 20 41 20 44 4f 2d 49 4d 50 4c 49 45 44 20 4c 49 53 54 33 ff 4c 4f 4f 50 20 49 4e 44 45 58 20 49 53 20 49 4c 4c 45 ┆EM IN A CONSTANT LISTE$ ILLEGAL SYNTAX FOR A DO-IMPLIED LIST3 LOOP INDEX IS ILLE┆
0x1c30…1c80 47 2e 4f 52 20 4d 49 53 53 49 4e 47 20 49 4e 20 41 20 44 4f 2d 49 4d 50 4c 49 45 44 20 4c 49 53 54 53 23 ff 45 51 55 41 4c 53 20 4d 49 53 53 49 4e 47 20 49 4e 20 41 20 44 4f 2d 49 4d 50 4c 49 45 44 20 4c 49 53 54 4c 45 45 00 00 b8 c0 00 00 ┆G.OR MISSING IN A DO-IMPLIED LISTS# EQUALS MISSING IN A DO-IMPLIED LISTLEE ┆
0x1c80…1cd0 (20, 0, 400) 25 ff 54 48 49 53 20 53 54 41 54 45 4d 45 4e 54 20 49 53 20 54 4f 4f 20 4c 4f 4e 47 20 54 4f 20 43 4f 4d 50 49 4c 45 00 13 ff 43 4f 4e 56 45 52 53 49 4f 4e 20 4f 56 45 52 46 4c 4f 57 00 1c 00 40 20 49 53 20 4e 4f 54 20 41 4e 20 49 4e 54 45 ┆% THIS STATEMENT IS TOO LONG TO COMPILE CONVERSION OVERFLOW @ IS NOT AN INTE┆
0x1cd0…1d20 47 45 52 20 56 41 52 49 41 42 4c 45 1d ff 49 4c 4c 45 47 41 4c 20 44 4f 20 54 45 52 4d 49 4e 41 4c 20 53 54 41 54 45 4d 45 4e 54 c0 29 ff 44 4f 20 53 54 41 54 45 4d 45 4e 54 20 4d 55 53 54 20 4e 4f 54 20 46 4f 4c 4c 4f 57 20 41 20 4c 4f 47 ┆GER VARIABLE ILLEGAL DO TERMINAL STATEMENT ) DO STATEMENT MUST NOT FOLLOW A LOG┆
0x1d20…1d70 49 43 41 4c 20 49 46 07 30 1c 44 4f 20 54 45 52 4d 49 4e 41 4c 20 53 54 41 54 45 4d 45 4e 54 20 4c 41 42 45 4c 20 40 20 50 52 45 56 49 4f 55 53 4c 59 20 44 45 46 49 4e 45 44 1a ff 49 4d 50 52 4f 50 45 52 4c 59 20 4e 45 53 54 45 44 20 44 4f ┆ICAL IF 0 DO TERMINAL STATEMENT LABEL @ PREVIOUSLY DEFINED IMPROPERLY NESTED DO┆
0x1d70…1dc0 20 4c 4f 4f 50 53 0f ff 55 4e 44 45 46 49 4e 45 44 20 4c 41 42 45 4c 02 31 ff 4c 4f 47 49 43 41 4c 20 49 46 20 53 54 41 54 45 4d 45 4e 54 20 4d 55 53 54 20 4e 4f 54 20 46 4f 4c 4c 4f 57 20 41 20 4c 4f 47 49 43 41 4c 20 49 46 00 32 ff 45 58 ┆ LOOPS UNDEFINED LABEL 1 LOGICAL IF STATEMENT MUST NOT FOLLOW A LOGICAL IF 2 EX┆
0x1dc0…1e10 50 52 45 53 53 49 4f 4e 20 49 4e 20 4c 4f 47 49 43 41 4c 20 49 46 20 49 53 20 4e 4f 54 20 4c 4f 47 49 43 41 4c 20 4f 52 20 49 4e 54 45 47 45 52 16 ff 57 52 4f 4e 47 20 4e 55 4d 42 45 52 20 4f 46 20 4c 41 42 45 4c 53 b8 c1 00 00 b8 c0 00 00 ┆PRESSION IN LOGICAL IF IS NOT LOGICAL OR INTEGER WRONG NUMBER OF LABELS ┆