|
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: 10982 (0x2ae6)
Notes: pts_type(SC)
Names: »DE23ST.SC«
└─⟦48601905a⟧ Bits:30009668 Philips computer tape "600121"
└─⟦this⟧ »S:DE/DE23ST.SC«
└─⟦5c22ed822⟧ Bits:30009675 Philips computer tape "600209"
└─⟦this⟧ »DEN10/DE23ST.SC«
└─⟦79fbed147⟧ Bits:30009697 Philips computer tape "600414"
└─⟦this⟧ »S:DE/DE23ST.SC«
└─⟦bf903a231⟧ Bits:30009665 Philips computer tape "600109"
└─⟦this⟧ »DEN10/DE23ST.SC«
└─⟦d2a299635⟧ Bits:30009698 Philips computer tape "600415"
└─⟦this⟧ »S:DE/DE23ST.SC«
IDENT DE23ST REL 10.0 80-04-11 80-05-05/JAER * * GET FORMAT * THIS FORMAT PROCESS FOLLOWING FUNTIONS * - SEARCH AND DISPLAY FORMAT 'RFW','RBW' * - PRINT HARDCOPY OF FORMAT 'PRT' * - CHANGE FORMAT 'COR' * - DELETE FORMAT 'RDL' * - DISPLAY STATUS-LINE 'STS' * ************************************************************************ DDUM DEDDIV PDIV ENTRY DE23ST * EXT DEAPPL APPLE VALUE HANDLING EXT DECLRA EXT DERR EXT DEDISC DISC-ROUTINE EXT DESTAT STATUS-LINE LOADING EXT DERROR ERROR-MESSAGES EXT DE21ST CHANGE FORMAT DEFINITION EXT DEUNPF UNPACK NEXT FIELD EXT DEUNPL UNPACK NEXT LINE EXT PRFGUF PRINT FORMAT DEFINITION EXT FEDIT EXT ATTDB ATTACH FORMAT-DESCRIPTOR EXT ATTWB ATTACH WORKBLOCK EXT RESTOR RESTORE ORIG.-DESC-POINTER EXT DEPOOL BUFFERRESERVATION-MODUL EXT ATTPRT RESERVE PRINTER EXT DETPRT RELEASE PRINTER INCLUDE DEKEYS,LIST EJECT * * KEYTABLES * * DEKTAB6 KTAB CLR,CAN,RET * DEKTAB7 KTAB CLR,CAN,RET,ENT * DEKTAB8 KTAB CLR,CAN,RET,RFW,RBW, C COR,RDL,STS,PRT * DEKTAB9 KTAB CLR,CAN,RET,RFW,RBW * EJECT DE23ST PROC DEST23 CLEAR BOOL4 CALL RESTOR,W0,W16,PWBDB4 RESTOR ORIG.-DESC.-POINTER MOVE PINDFR,W0 ATTFMT F23GF SET DEPROMPT PROMTTEXT-DISPLAY DE23CA CLEAR DOOL3 PERF DECLRA DATA-ENTRY-SCREEN SET DEPROMPT T=PROMPTTEXT DISPLAY DE23ER IB DEBINW2,CANCEL,RETUR,ENTER,FORW,BACKW MOVE DEBINW4,W0 'FUNCTION NOT ALLOWED' PERF DERR B DE23ER CANCEL CALL RESTOR,W0,W16,PWBDB4 RESTOR ORIG.-DESC.-POINTER CLEAR DEPROMPT B DE23CA ERROR PERF DERROR,DEKTAB6 IB DEBINW2,ENT20,DEL30 B RETUR EJECT ENTER SET BOOL4 CLEAR BOOL6 F=GENERAL FORMAT XCOPY STR1A,W0,W1,FORMAT,W0 CBNE STR1A,='*',ENT05 JUMP IF GENERAL FORMAT SET BOOL6 T=BALANCE FORMAT B ENT08 JUMP BALANCE FORMAT ENT05 CALL ATTDB,BPOOL(PINDFR),W4,W10 ATTACH DESCRIPTOR ENT08 MOVE ELMNO,FLIND(W1) STORE FORMATBUFFER-POINTER ATTFMT BPOOL(ELMNO) ATTACH DEFINED FORMAT PERF FEDIT FORMAT EDITING SET DEPROMPT BZ ENT10 DISPLAY 0,W1,W0 DISPLAY FORMAT ENT10 MOVE DEBINW3,W0 GETFLD 0,DEBINW3,DEBINW4 SET CURSOR ON LAST FIELD ENT20 MOVE DEBINW4,=W'31' PERF DERROR,DEKTAB8 'MAKE YOUR CHOICE' IB DEBINW2,ENT20,DEL30,RELRET,FORW, C BACKW,DELCOR,DELCOR,STS10,PRT10 B ERROR EJECT * * GET NEXT/PREVIOUS FORMAT AND DISPLAY IT * FORW MOVE DEBINW1,=W'31' B NEPR NEXT/PREVIOUS BACKW MOVE DEBINW1,W32 LOAD FUNC-CODE = 32 NEPR PERF DEDISC,DEBINW1 GET NEXT/PREVIOUS FORMAT BOK ENTER CBE DEBINW4,W24,NEPRIU IN USE ? NEPRER PERF DERROR,DEKTAB6 IB DEBINW2,NEPRCL,DEL30,RELRET NEPRCL TBF BOOL4,CANCEL XCOPY FORMAT,W0,W6,RPOOL(PINDFR),W1 B ENT20 NEPRIU PERF DERROR,DEKTAB9 'IN USE'-HANDLING IB DEBINW2,NEPRCL,DEL30,RETUR,FORW,BACKW B ERROR EJECT * * DELETION AND CORRECTION PRE-INITIALIZATION * LOCK FORMAT IN BUFFERS * DELCOR PERF DEPOOL,W8,PINDFR,BIN16,STRG10A FORMAT LOCK BOK DC10 JUMP IF OK WITH LOCK B ERROR DC10 CBE DEBINW2,W6,COR10 JUMP IF CORR-MODE EJECT * * DELETION * MOVE DEBINW4,W17 LOAD 17 PERF DERROR,DEKTAB7 'PRESS ENTER TO CONFIRM' IB DEBINW2,ENT20,ENT20,DEL30 DEL20 PERF DEDISC,W13 DELETE FORMAT ON DISC BOK DEL30 JUMP IF OK DEL25 PERF DERROR,DEKTAB6 ERROR-MESSAGE IB DEBINW2,ENT20,ENT20 DEL30 PERF DEPOOL,W6,PINDFR,BIN16,STRG10A RELEASE BUFFERS DEL40 B DEST23 EJECT * * CORRECTION * * BOOL7 = T INDICATE CORR-MODE * DOOLA = T INDICATE CORR-MODE * COR10 CALL RESTOR,W0,W16,PWBDB4 RESTOR ORIG.-DESC.-POINTER SET BOOL7 T= CORR-MODE SET DOOLA T=CORR-MODE MOVE PINDCB,FLIND(W1) LOAD BUFFERINDEX MOVE CURSEC,W0 LOAD BUFFERPOINTER * * RELEASE DESCRIPTOR BUFFERS * MOVE DEBINW3,W0 WORK:=0 MOVE DEBINW2,W0 NUMB OF DESC.BUFFERS:=0 MOVE WORK(W3),W0 WORK:=0 MOVE WORK(W4),W0 NUMB OF FPOOLS:=0 XCOPY WORK(W4),W1,W1,RPOOL(PINDFR),W17 SAVE NUMB POOLS TBT BOOL6,COR30 JUMP IF BALANCE FORMAT XCOPY WORK(W3),W1,W1,RPOOL(PINDFR),W18 SAVE NUMB DESC BUFFERS SUB WORK(W4),WORK(W3) ADJUST NUMB OF FPOOLS COR20 XCOPY DEBINW3,W1,W1,RPOOL(PINDFR),W8 LOAD LINK TO NEXT XCOPY DEINPUT,W0,W7,RPOOL(PINDFR),W0 SAVE TYPE & NAME XCOPY RPOOL(PINDFR),W7,W2,W0,W0 XCOPY RPOOL(PINDFR),W0,W1,PICSTR,W5 'X'-FREEMARK MOVE PINDFR,DEBINW3 NEXT BUFFER ADD DEBINW2,W1 NUMB OF REL. DESC.BUFFERS+1 CBE WORK(W3),DEBINW2,COR25 JUMP IF ALL RELEASED B COR20 GO ON COR25 XCOPY RPOOL(PINDFR),W0,W7,DEINPUT,W0 RESTORE TYPE & NAME COR30 PERF DE21ST CLEAR BOOL7 F=NEW FORMAT CLEAR DOOLA F=NO CORR-MODE CBNE DEBINW4,W0,NEPRER JUMP ON ERROR CODE CBE DEBINW2,W2,DEL30 JUMP ON RET-KEY INV DEPROMPT CBE PINDFR,W0,DEL40 JUMP IF NO CURRENT FORMAT B ENTER EJECT * * PRINT STATUS LINE * STS10 PERF DESTAT LOAD STATUS-LINE MOVE DEBINW4,W19 B ERROR EJECT * * PRINT CURRENT FORMAT * PRT10 * * REDFINITION OF 'DB2'-BLK * * RESERVE ONE WORK-BUFFER FOR FORMAT GENERATION * -ATTACH RESERVED WITH NEW DESCRIPTOR * -ATTACH RESERVED BUFFER AS WORK-BLOCK * * DB2 BLK * <ITEM> BIN X'20020000' * <ITEM> BIN X'20020000' * <ITEM> BIN (12) X'A0020004000C0000' * FORTAB STRG (2),80 X'8050001C00020000' * JOBSPC STRG 160 X'00A0001C' * JOBSPC REDEFINES FORTAB(W2) * CLEAR DEPROMPT MOVE BIN16,W0 NUMBER OF CONSEC BUFFERS MOVE BIN4,W1 NUMBER OF WANTED BUFFERS PERF DEPOOL,W2,BIN4,BIN16,STRG10A GET BUFF WITH LOCK BOK PRT20 PERF DERROR,DEKTAB6 ERROR-MESSAGE IF NOT OK B PRT40 PRT20 MOVE WORK(W5),BIN4 SAVE POINTER TO WORK BUFFER MOVE BPOOL(BIN4),=X' MOVE IN DESCRIPTOR C 20020000 C 20020000 C A0020004000C0000 C 8050001C00020000 FORTAB (2),80 C 00A0001C00 JOBSPC 160 C ' CALL ATTDB,BPOOL(BIN4),W0,W12 CALL ATTWB,BPOOL(BIN4),W0,W12 PERF ATTPRT RESERVE PRINTER BNOK PRT30 PERF PRFGUF PRINT USER FORMAT PERF DETPRT RELEASE PRINTER B PRT35 PRT30 PERF DERROR,DEKTAB6 ERROR MESSAGE IF NOT OK PRT35 MOVE BIN4,WORK(W5) RESTORE WORKBUFFERINDEX PERF DEPOOL,W6,BIN4,BIN16,STRG10A RELEASE WORK BUFFER CALL RESTOR,W8,W4,PWBDB4 RESTOR ORIG.-DESC.-POINTER PRT40 IB DEBINW2,ENTER,DEL30,RELRET JUMP DEP ON KEY-INDEX B ENTER EJECT RELRET PERF DEPOOL,W6,PINDFR,BIN16,STRG10A RELEASE BUFFERS RETUR CALL RESTOR,W0,W16,PWBDB4 RESTOR ORIG.-DESC.-POINTER RET PEND EJECT F23GF FRMT FSL FTEXT '23 GET ' FCOPY ='FORMAT' FNL FCOPY ='FORMAT' FILLR ':',1 FKI 9,APPL=104,MINL=1,MAXL=6,ALPHA,NEOI,ME,NCLR FCOPY FORMAT FMEND END
0x0000…0028 (0, 0, 398) Head {h00=0x0024, h01=0x0050, text=» IDENT DE23ST REL 10.0 80-04-11 «, t00=0x0000, t01=0x0004}
0x0028…0040 Head {h00=0x0014, h01=0x0050, text=» 80-05-05/JAER«, t00=0x0000, t01=0x002c}
0x0040…004a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0044}
0x004a…0064 Head {h00=0x0016, h01=0x0050, text=»* GET FORMAT«, t00=0x0000, t01=0x004e}
0x0064…009a Head {h00=0x0032, h01=0x0050, text=»* THIS FORMAT PROCESS FOLLOWING FUNTIONS«, t00=0x0000, t01=0x0068}
0x009a…00d2 Head {h00=0x0034, h01=0x0050, text=»* - SEARCH AND DISPLAY FORMAT 'RFW','RBW' «, t00=0x0000, t01=0x009e}
0x00d2…0102 Head {h00=0x002c, h01=0x0050, text=»* - PRINT HARDCOPY OF FORMAT 'PRT'«, t00=0x0000, t01=0x00d6}
0x0102…0132 Head {h00=0x002c, h01=0x0050, text=»* - CHANGE FORMAT 'COR'«, t00=0x0000, t01=0x0106}
0x0132…0162 Head {h00=0x002c, h01=0x0050, text=»* - DELETE FORMAT 'RDL'«, t00=0x0000, t01=0x0136}
0x0162…0192 Head {h00=0x002c, h01=0x0050, text=»* - DISPLAY STATUS-LINE 'STS'«, t00=0x0000, t01=0x0166}
0x0192…019c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x0008}
0x019c…01ec Head {h00=0x004c, h01=0x0050, text=»************************************************************************«, t00=0x0001, t01=0x0012}
0x01ec…0200 Head {h00=0x0010, h01=0x000c, text=» DDUM DEDDIV«, t00=0x0001, t01=0x0062}
0x0200…020e Head {h00=0x000a, h01=0x0005, text=» PDIV «, t00=0x0001, t01=0x0076}
0x020e…0224 Head {h00=0x0012, h01=0x0050, text=» ENTRY DE23ST «, t00=0x0001, t01=0x0084}
0x0224…022e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x009a}
0x022e…0256 Head {h00=0x0024, h01=0x0050, text=» EXT DEAPPL APPLE VALUE HANDLING«, t00=0x0001, t01=0x00a4}
0x0256…026a Head {h00=0x0010, h01=0x0050, text=» EXT DECLRA «, t00=0x0001, t01=0x00cc}
0x026a…027c Head {h00=0x000e, h01=0x0050, text=» EXT DERR «, t00=0x0001, t01=0x00e0}
0x027c…029c Head {h00=0x001c, h01=0x0050, text=» EXT DEDISC DISC-ROUTINE«, t00=0x0001, t01=0x00f2}
0x029c…02c4 Head {h00=0x0024, h01=0x0050, text=» EXT DESTAT STATUS-LINE LOADING «, t00=0x0001, t01=0x0112}
0x02c4…02e6 Head {h00=0x001e, h01=0x0050, text=» EXT DERROR ERROR-MESSAGES«, t00=0x0001, t01=0x013a}
0x02e6…0312 Head {h00=0x0028, h01=0x0050, text=» EXT DE21ST CHANGE FORMAT DEFINITION«, t00=0x0001, t01=0x015c}
0x0312…0338 Head {h00=0x0022, h01=0x0050, text=» EXT DEUNPF UNPACK NEXT FIELD «, t00=0x0001, t01=0x0188}
0x0338…035c Head {h00=0x0020, h01=0x0050, text=» EXT DEUNPL UNPACK NEXT LINE«, t00=0x0002, t01=0x001e}
0x035c…0388 Head {h00=0x0028, h01=0x0050, text=» EXT PRFGUF PRINT FORMAT DEFINITION «, t00=0x0002, t01=0x0042}
0x0388…039a Head {h00=0x000e, h01=0x0050, text=» EXT FEDIT«, t00=0x0002, t01=0x006e}
0x039a…03c6 Head {h00=0x0028, h01=0x0050, text=» EXT ATTDB ATTACH FORMAT-DESCRIPTOR «, t00=0x0002, t01=0x0080}
0x03c6…03ea Head {h00=0x0020, h01=0x0050, text=» EXT ATTWB ATTACH WORKBLOCK «, t00=0x0002, t01=0x00ac}
0x03ea…0418 Head {h00=0x002a, h01=0x0050, text=» EXT RESTOR RESTORE ORIG.-DESC-POINTER«, t00=0x0002, t01=0x00d0}
0x0418…0444 Head {h00=0x0028, h01=0x0050, text=» EXT DEPOOL BUFFERRESERVATION-MODUL «, t00=0x0002, t01=0x00fe}
0x0444…0468 Head {h00=0x0020, h01=0x0050, text=» EXT ATTPRT RESERVE PRINTER «, t00=0x0002, t01=0x012a}
0x0468…048c Head {h00=0x0020, h01=0x0050, text=» EXT DETPRT RELEASE PRINTER «, t00=0x0002, t01=0x014e}
0x048c…04a8 Head {h00=0x0018, h01=0x0050, text=» INCLUDE DEKEYS,LIST«, t00=0x0002, t01=0x0172}
0x04a8…04b6 Head {h00=0x000a, h01=0x0006, text=» EJECT«, t00=0x0002, t01=0x018e}
0x04b6…04c0 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0003, t01=0x000c}
0x04c0…04da Head {h00=0x0016, h01=0x0012, text=»* KEYTABLES«, t00=0x0003, t01=0x0016}
0x04da…04e4 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0003, t01=0x0030}
0x04e4…04ee Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x003a}
0x04ee…050e Head {h00=0x001c, h01=0x0050, text=»DEKTAB6 KTAB CLR,CAN,RET«, t00=0x0003, t01=0x0044}
0x050e…0518 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x0064}
0x0518…053c Head {h00=0x0020, h01=0x0050, text=»DEKTAB7 KTAB CLR,CAN,RET,ENT«, t00=0x0003, t01=0x006e}
0x053c…0546 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x0092}
0x0546…0572 Head {h00=0x0028, h01=0x0050, text=»DEKTAB8 KTAB CLR,CAN,RET,RFW,RBW, C«, t00=0x0003, t01=0x009c}
0x0572…058c Head {h00=0x0016, h01=0x0050, text=» COR,RDL,STS,PRT «, t00=0x0003, t01=0x00c8}
0x058c…0596 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x00e2}
0x0596…05be Head {h00=0x0024, h01=0x0050, text=»DEKTAB9 KTAB CLR,CAN,RET,RFW,RBW«, t00=0x0003, t01=0x00ec}
0x05be…05c8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x0114}
0x05c8…05d6 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0003, t01=0x011e}
0x05d6…05ea Head {h00=0x0010, h01=0x0050, text=»DE23ST PROC «, t00=0x0003, t01=0x012c}
0x05ea…05f8 Head {h00=0x000a, h01=0x0050, text=»DEST23«, t00=0x0003, t01=0x0140}
0x05f8…060c Head {h00=0x0010, h01=0x0050, text=» CLEAR BOOL4«, t00=0x0003, t01=0x014e}
0x060c…064a Head {h00=0x003a, h01=0x0050, text=» CALL RESTOR,W0,W16,PWBDB4 RESTOR ORIG.-DESC.-POINTER «, t00=0x0003, t01=0x0162}
0x064a…0662 Head {h00=0x0014, h01=0x0050, text=» MOVE PINDFR,W0 «, t00=0x0004, t01=0x0010}
0x0662…0678 Head {h00=0x0012, h01=0x0050, text=» ATTFMT F23GF «, t00=0x0004, t01=0x0028}
0x0678…06a0 Head {h00=0x0024, h01=0x0050, text=» SET DEPROMPT PROMTTEXT-DISPLAY «, t00=0x0004, t01=0x003e}
0x06a0…06ae Head {h00=0x000a, h01=0x0050, text=»DE23CA«, t00=0x0004, t01=0x0066}
0x06ae…06c2 Head {h00=0x0010, h01=0x0050, text=» CLEAR DOOL3«, t00=0x0004, t01=0x0074}
0x06c2…06e8 Head {h00=0x0022, h01=0x0050, text=» PERF DECLRA DATA-ENTRY-SCREEN«, t00=0x0004, t01=0x0088}
0x06e8…0712 Head {h00=0x0026, h01=0x0050, text=» SET DEPROMPT T=PROMPTTEXT DISPLAY«, t00=0x0004, t01=0x00ae}
0x0712…0720 Head {h00=0x000a, h01=0x0050, text=»DE23ER«, t00=0x0004, t01=0x00d8}
0x0720…0752 Head {h00=0x002e, h01=0x0050, text=» IB DEBINW2,CANCEL,RETUR,ENTER,FORW,BACKW «, t00=0x0004, t01=0x00e6}
0x0752…0782 Head {h00=0x002c, h01=0x0050, text=» MOVE DEBINW4,W0 'FUNCTION NOT ALLOWED' «, t00=0x0004, t01=0x0118}
0x0782…0794 Head {h00=0x000e, h01=0x0050, text=» PERF DERR«, t00=0x0004, t01=0x0148}
0x0794…07a6 Head {h00=0x000e, h01=0x0050, text=» B DE23ER «, t00=0x0004, t01=0x015a}
0x07a6…07b4 Head {h00=0x000a, h01=0x0050, text=»CANCEL«, t00=0x0004, t01=0x016c}
0x07b4…07f2 Head {h00=0x003a, h01=0x0050, text=» CALL RESTOR,W0,W16,PWBDB4 RESTOR ORIG.-DESC.-POINTER «, t00=0x0004, t01=0x017a}
0x07f2…080a Head {h00=0x0014, h01=0x0050, text=» CLEAR DEPROMPT «, t00=0x0005, t01=0x0028}
0x080a…081c Head {h00=0x000e, h01=0x0050, text=» B DE23CA «, t00=0x0005, t01=0x0040}
0x081c…082a Head {h00=0x000a, h01=0x0050, text=»ERROR «, t00=0x0005, t01=0x0052}
0x082a…0846 Head {h00=0x0018, h01=0x0050, text=» PERF DERROR,DEKTAB6«, t00=0x0005, t01=0x0060}
0x0846…0866 Head {h00=0x001c, h01=0x0050, text=» IB DEBINW2,ENT20,DEL30 «, t00=0x0005, t01=0x007c}
0x0866…0876 Head {h00=0x000c, h01=0x0050, text=» B RETUR«, t00=0x0005, t01=0x009c}
0x0876…0884 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0005, t01=0x00ac}
0x0884…0892 Head {h00=0x000a, h01=0x0050, text=»ENTER «, t00=0x0005, t01=0x00ba}
0x0892…08a4 Head {h00=0x000e, h01=0x0050, text=» SET BOOL4«, t00=0x0005, t01=0x00c8}
0x08a4…08ca Head {h00=0x0022, h01=0x0050, text=» CLEAR BOOL6 F=GENERAL FORMAT «, t00=0x0005, t01=0x00da}
0x08ca…08ee Head {h00=0x0020, h01=0x0050, text=» XCOPY STR1A,W0,W1,FORMAT,W0«, t00=0x0005, t01=0x0100}
0x08ee…0924 Head {h00=0x0032, h01=0x0050, text=» CBNE STR1A,='*',ENT05 JUMP IF GENERAL FORMAT «, t00=0x0005, t01=0x0124}
0x0924…0948 Head {h00=0x0020, h01=0x0050, text=» SET BOOL6 T=BALANCE FORMAT «, t00=0x0005, t01=0x015a}
0x0948…096c Head {h00=0x0020, h01=0x0050, text=» B ENT08 JUMP BALANCE FORMAT«, t00=0x0005, t01=0x017e}
0x096c…097a Head {h00=0x000a, h01=0x0050, text=»ENT05 «, t00=0x0006, t01=0x0012}
0x097a…09b4 Head {h00=0x0036, h01=0x0050, text=» CALL ATTDB,BPOOL(PINDFR),W4,W10 ATTACH DESCRIPTOR«, t00=0x0006, t01=0x0020}
0x09b4…09c2 Head {h00=0x000a, h01=0x0050, text=»ENT08 «, t00=0x0006, t01=0x005a}
0x09c2…09fa Head {h00=0x0034, h01=0x0050, text=» MOVE ELMNO,FLIND(W1) STORE FORMATBUFFER-POINTER«, t00=0x0006, t01=0x0068}
0x09fa…0a2c Head {h00=0x002e, h01=0x0050, text=» ATTFMT BPOOL(ELMNO) ATTACH DEFINED FORMAT«, t00=0x0006, t01=0x00a0}
0x0a2c…0a4e Head {h00=0x001e, h01=0x0050, text=» PERF FEDIT FORMAT EDITING«, t00=0x0006, t01=0x00d2}
0x0a4e…0a64 Head {h00=0x0012, h01=0x0050, text=» SET DEPROMPT «, t00=0x0006, t01=0x00f4}
0x0a64…0a76 Head {h00=0x000e, h01=0x0050, text=» BZ ENT10 «, t00=0x0006, t01=0x010a}
0x0a76…0a9e Head {h00=0x0024, h01=0x0050, text=» DISPLAY 0,W1,W0 DISPLAY FORMAT «, t00=0x0006, t01=0x011c}
0x0a9e…0aac Head {h00=0x000a, h01=0x0050, text=»ENT10 «, t00=0x0006, t01=0x0144}
0x0aac…0ac4 Head {h00=0x0014, h01=0x0050, text=» MOVE DEBINW3,W0«, t00=0x0006, t01=0x0152}
0x0ac4…0afe Head {h00=0x0036, h01=0x0050, text=» GETFLD 0,DEBINW3,DEBINW4 SET CURSOR ON LAST FIELD«, t00=0x0006, t01=0x016a}
0x0afe…0b0c Head {h00=0x000a, h01=0x0050, text=»ENT20 «, t00=0x0007, t01=0x0014}
0x0b0c…0b28 Head {h00=0x0018, h01=0x0050, text=» MOVE DEBINW4,=W'31'«, t00=0x0007, t01=0x0022}
0x0b28…0b58 Head {h00=0x002c, h01=0x0050, text=» PERF DERROR,DEKTAB8 'MAKE YOUR CHOICE' «, t00=0x0007, t01=0x003e}
0x0b58…0b88 Head {h00=0x002c, h01=0x0050, text=» IB DEBINW2,ENT20,DEL30,RELRET,FORW, C «, t00=0x0007, t01=0x006e}
0x0b88…0bb2 Head {h00=0x0026, h01=0x0050, text=» BACKW,DELCOR,DELCOR,STS10,PRT10 «, t00=0x0007, t01=0x009e}
0x0bb2…0bc2 Head {h00=0x000c, h01=0x0050, text=» B ERROR«, t00=0x0007, t01=0x00c8}
0x0bc2…0bd0 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0007, t01=0x00d8}
0x0bd0…0bda Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x00e6}
0x0bda…0c12 Head {h00=0x0034, h01=0x0050, text=»* GET NEXT/PREVIOUS FORMAT AND DISPLAY IT«, t00=0x0007, t01=0x00f0}
0x0c12…0c1c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x0128}
0x0c1c…0c28 Head {h00=0x0008, h01=0x0050, text=»FORW«, t00=0x0007, t01=0x0132}
0x0c28…0c44 Head {h00=0x0018, h01=0x0050, text=» MOVE DEBINW1,=W'31'«, t00=0x0007, t01=0x013e}
0x0c44…0c62 Head {h00=0x001a, h01=0x0050, text=» B NEPR NEXT/PREVIOUS «, t00=0x0007, t01=0x015a}
0x0c62…0c70 Head {h00=0x000a, h01=0x0050, text=»BACKW «, t00=0x0007, t01=0x0178}
0x0c70…0c9e Head {h00=0x002a, h01=0x0050, text=» MOVE DEBINW1,W32 LOAD FUNC-CODE = 32 «, t00=0x0007, t01=0x0186}
0x0c9e…0caa Head {h00=0x0008, h01=0x0050, text=»NEPR«, t00=0x0008, t01=0x0024}
0x0caa…0ce0 Head {h00=0x0032, h01=0x0050, text=» PERF DEDISC,DEBINW1 GET NEXT/PREVIOUS FORMAT «, t00=0x0008, t01=0x0030}
0x0ce0…0cf2 Head {h00=0x000e, h01=0x0050, text=» BOK ENTER«, t00=0x0008, t01=0x0066}
0x0cf2…0d1a Head {h00=0x0024, h01=0x0050, text=» CBE DEBINW4,W24,NEPRIU IN USE ?«, t00=0x0008, t01=0x0078}
0x0d1a…0d28 Head {h00=0x000a, h01=0x0050, text=»NEPRER«, t00=0x0008, t01=0x00a0}
0x0d28…0d44 Head {h00=0x0018, h01=0x0050, text=» PERF DERROR,DEKTAB6«, t00=0x0008, t01=0x00ae}
0x0d44…0d6c Head {h00=0x0024, h01=0x0050, text=» IB DEBINW2,NEPRCL,DEL30,RELRET «, t00=0x0008, t01=0x00ca}
0x0d6c…0d7a Head {h00=0x000a, h01=0x0050, text=»NEPRCL«, t00=0x0008, t01=0x00f2}
0x0d7a…0d94 Head {h00=0x0016, h01=0x0050, text=» TBF BOOL4,CANCEL «, t00=0x0008, t01=0x0100}
0x0d94…0dc0 Head {h00=0x0028, h01=0x0050, text=» XCOPY FORMAT,W0,W6,RPOOL(PINDFR),W1«, t00=0x0008, t01=0x011a}
0x0dc0…0dd0 Head {h00=0x000c, h01=0x0050, text=» B ENT20«, t00=0x0008, t01=0x0146}
0x0dd0…0dde Head {h00=0x000a, h01=0x0050, text=»NEPRIU«, t00=0x0008, t01=0x0156}
0x0dde…0e0c Head {h00=0x002a, h01=0x0050, text=» PERF DERROR,DEKTAB9 'IN USE'-HANDLING«, t00=0x0008, t01=0x0164}
0x0e0c…0e3e (9, 0, 398) Head {h00=0x002e, h01=0x0050, text=» IB DEBINW2,NEPRCL,DEL30,RETUR,FORW,BACKW «, t00=0x0009, t01=0x0004}
0x0e3e…0e4e Head {h00=0x000c, h01=0x0050, text=» B ERROR«, t00=0x0009, t01=0x0036}
0x0e4e…0e5c Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0009, t01=0x0046}
0x0e5c…0e66 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x0054}
0x0e66…0ea2 Head {h00=0x0038, h01=0x0050, text=»* DELETION AND CORRECTION PRE-INITIALIZATION «, t00=0x0009, t01=0x005e}
0x0ea2…0eca Head {h00=0x0024, h01=0x0050, text=»* LOCK FORMAT IN BUFFERS «, t00=0x0009, t01=0x009a}
0x0eca…0ed4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x00c2}
0x0ed4…0ee2 Head {h00=0x000a, h01=0x0050, text=»DELCOR«, t00=0x0009, t01=0x00cc}
0x0ee2…0f1a Head {h00=0x0034, h01=0x0050, text=» PERF DEPOOL,W8,PINDFR,BIN16,STRG10A FORMAT LOCK«, t00=0x0009, t01=0x00da}
0x0f1a…0f40 Head {h00=0x0022, h01=0x0050, text=» BOK DC10 JUMP IF OK WITH LOCK«, t00=0x0009, t01=0x0112}
0x0f40…0f50 Head {h00=0x000c, h01=0x0050, text=» B ERROR«, t00=0x0009, t01=0x0138}
0x0f50…0f5c Head {h00=0x0008, h01=0x0050, text=»DC10«, t00=0x0009, t01=0x0148}
0x0f5c…0f8c Head {h00=0x002c, h01=0x0050, text=» CBE DEBINW2,W6,COR10 JUMP IF CORR-MODE «, t00=0x0009, t01=0x0154}
0x0f8c…0f9a Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0009, t01=0x0184}
0x0f9a…0fa4 (10, 0, 400) Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x0004}
0x0fa4…0fbc Head {h00=0x0014, h01=0x0050, text=»* DELETION«, t00=0x000a, t01=0x000e}
0x0fbc…0fc6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x0026}
0x0fc6…0fe8 Head {h00=0x001e, h01=0x0050, text=» MOVE DEBINW4,W17 LOAD 17 «, t00=0x000a, t01=0x0030}
0x0fe8…101e Head {h00=0x0032, h01=0x0050, text=» PERF DERROR,DEKTAB7 'PRESS ENTER TO CONFIRM' «, t00=0x000a, t01=0x0052}
0x101e…1044 Head {h00=0x0022, h01=0x0050, text=» IB DEBINW2,ENT20,ENT20,DEL30 «, t00=0x000a, t01=0x0088}
0x1044…1052 Head {h00=0x000a, h01=0x0050, text=»DEL20 «, t00=0x000a, t01=0x00ae}
0x1052…1080 Head {h00=0x002a, h01=0x0050, text=» PERF DEDISC,W13 DELETE FORMAT ON DISC«, t00=0x000a, t01=0x00bc}
0x1080…109e Head {h00=0x001a, h01=0x0050, text=» BOK DEL30 JUMP IF OK «, t00=0x000a, t01=0x00ea}
0x109e…10ac Head {h00=0x000a, h01=0x0050, text=»DEL25 «, t00=0x000a, t01=0x0108}
0x10ac…10d6 Head {h00=0x0026, h01=0x0050, text=» PERF DERROR,DEKTAB6 ERROR-MESSAGE«, t00=0x000a, t01=0x0116}
0x10d6…10f6 Head {h00=0x001c, h01=0x0050, text=» IB DEBINW2,ENT20,ENT20 «, t00=0x000a, t01=0x0140}
0x10f6…1104 Head {h00=0x000a, h01=0x0050, text=»DEL30 «, t00=0x000a, t01=0x0160}
0x1104…1140 Head {h00=0x0038, h01=0x0050, text=» PERF DEPOOL,W6,PINDFR,BIN16,STRG10A RELEASE BUFFERS«, t00=0x000a, t01=0x016e}
0x1140…114e Head {h00=0x000a, h01=0x0050, text=»DEL40 «, t00=0x000b, t01=0x001a}
0x114e…1160 Head {h00=0x000e, h01=0x0050, text=» B DEST23 «, t00=0x000b, t01=0x0028}
0x1160…116e Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000b, t01=0x003a}
0x116e…1178 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x0048}
0x1178…1194 Head {h00=0x0018, h01=0x0050, text=»* CORRECTION «, t00=0x000b, t01=0x0052}
0x1194…119e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x006e}
0x119e…11d6 Head {h00=0x0034, h01=0x0050, text=»* BOOL7 = T INDICATE CORR-MODE «, t00=0x000b, t01=0x0078}
0x11d6…120c Head {h00=0x0032, h01=0x0050, text=»* DOOLA = T INDICATE CORR-MODE«, t00=0x000b, t01=0x00b0}
0x120c…1216 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x00e6}
0x1216…1224 Head {h00=0x000a, h01=0x0050, text=»COR10 «, t00=0x000b, t01=0x00f0}
0x1224…1262 Head {h00=0x003a, h01=0x0050, text=» CALL RESTOR,W0,W16,PWBDB4 RESTOR ORIG.-DESC.-POINTER «, t00=0x000b, t01=0x00fe}
0x1262…1282 Head {h00=0x001c, h01=0x0050, text=» SET BOOL7 T= CORR-MODE «, t00=0x000b, t01=0x013c}
0x1282…12a0 Head {h00=0x001a, h01=0x0050, text=» SET DOOLA T=CORR-MODE«, t00=0x000b, t01=0x015c}
0x12a0…12d0 Head {h00=0x002c, h01=0x0050, text=» MOVE PINDCB,FLIND(W1) LOAD BUFFERINDEX «, t00=0x000b, t01=0x017a}
0x12d0…12fa Head {h00=0x0026, h01=0x0050, text=» MOVE CURSEC,W0 LOAD BUFFERPOINTER«, t00=0x000c, t01=0x001a}
0x12fa…1304 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x0044}
0x1304…1330 Head {h00=0x0028, h01=0x0050, text=»* RELEASE DESCRIPTOR BUFFERS «, t00=0x000c, t01=0x004e}
0x1330…133a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x007a}
0x133a…135a Head {h00=0x001c, h01=0x0050, text=» MOVE DEBINW3,W0 WORK:=0«, t00=0x000c, t01=0x0084}
0x135a…138a Head {h00=0x002c, h01=0x0050, text=» MOVE DEBINW2,W0 NUMB OF DESC.BUFFERS:=0«, t00=0x000c, t01=0x00a4}
0x138a…13ac Head {h00=0x001e, h01=0x0050, text=» MOVE WORK(W3),W0 WORK:=0 «, t00=0x000c, t01=0x00d4}
0x13ac…13d8 Head {h00=0x0028, h01=0x0050, text=» MOVE WORK(W4),W0 NUMB OF FPOOLS:=0 «, t00=0x000c, t01=0x00f6}
0x13d8…1418 Head {h00=0x003c, h01=0x0050, text=» XCOPY WORK(W4),W1,W1,RPOOL(PINDFR),W17 SAVE NUMB POOLS «, t00=0x000c, t01=0x0122}
0x1418…1448 Head {h00=0x002c, h01=0x0050, text=» TBT BOOL6,COR30 JUMP IF BALANCE FORMAT «, t00=0x000c, t01=0x0162}
0x1448…148e (13, 0, 400) Head {h00=0x0042, h01=0x0050, text=» XCOPY WORK(W3),W1,W1,RPOOL(PINDFR),W18 SAVE NUMB DESC BUFFERS«, t00=0x000d, t01=0x0004}
0x148e…14c2 Head {h00=0x0030, h01=0x0050, text=» SUB WORK(W4),WORK(W3) ADJUST NUMB OF FPOOLS«, t00=0x000d, t01=0x004a}
0x14c2…14d0 Head {h00=0x000a, h01=0x0050, text=»COR20 «, t00=0x000d, t01=0x007e}
0x14d0…1510 Head {h00=0x003c, h01=0x0050, text=» XCOPY DEBINW3,W1,W1,RPOOL(PINDFR),W8 LOAD LINK TO NEXT «, t00=0x000d, t01=0x008c}
0x1510…154e Head {h00=0x003a, h01=0x0050, text=» XCOPY DEINPUT,W0,W7,RPOOL(PINDFR),W0 SAVE TYPE & NAME«, t00=0x000d, t01=0x00cc}
0x154e…1576 Head {h00=0x0024, h01=0x0050, text=» XCOPY RPOOL(PINDFR),W7,W2,W0,W0«, t00=0x000d, t01=0x010a}
0x1576…15b0 Head {h00=0x0036, h01=0x0050, text=» XCOPY RPOOL(PINDFR),W0,W1,PICSTR,W5 'X'-FREEMARK «, t00=0x000d, t01=0x0132}
0x15b0…15d8 Head {h00=0x0024, h01=0x0050, text=» MOVE PINDFR,DEBINW3 NEXT BUFFER«, t00=0x000d, t01=0x016c}
0x15d8…160c (14, 0, 400) Head {h00=0x0030, h01=0x0050, text=» ADD DEBINW2,W1 NUMB OF REL. DESC.BUFFERS+1 «, t00=0x000e, t01=0x0004}
0x160c…1644 Head {h00=0x0034, h01=0x0050, text=» CBE WORK(W3),DEBINW2,COR25 JUMP IF ALL RELEASED«, t00=0x000e, t01=0x0038}
0x1644…165a Head {h00=0x0012, h01=0x0050, text=» B COR20 GO ON«, t00=0x000e, t01=0x0070}
0x165a…1668 Head {h00=0x000a, h01=0x0050, text=»COR25 «, t00=0x000e, t01=0x0086}
0x1668…16aa Head {h00=0x003e, h01=0x0050, text=» XCOPY RPOOL(PINDFR),W0,W7,DEINPUT,W0 RESTORE TYPE & NAME «, t00=0x000e, t01=0x0094}
0x16aa…16b8 Head {h00=0x000a, h01=0x0050, text=»COR30 «, t00=0x000e, t01=0x00d6}
0x16b8…16cc Head {h00=0x0010, h01=0x0050, text=» PERF DE21ST«, t00=0x000e, t01=0x00e4}
0x16cc…16ee Head {h00=0x001e, h01=0x0050, text=» CLEAR BOOL7 F=NEW FORMAT «, t00=0x000e, t01=0x00f8}
0x16ee…1712 Head {h00=0x0020, h01=0x0050, text=» CLEAR DOOLA F=NO CORR-MODE «, t00=0x000e, t01=0x011a}
0x1712…1744 Head {h00=0x002e, h01=0x0050, text=» CBNE DEBINW4,W0,NEPRER JUMP ON ERROR CODE«, t00=0x000e, t01=0x013e}
0x1744…1772 Head {h00=0x002a, h01=0x0050, text=» CBE DEBINW2,W2,DEL30 JUMP ON RET-KEY «, t00=0x000e, t01=0x0170}
0x1772…1788 Head {h00=0x0012, h01=0x0050, text=» INV DEPROMPT «, t00=0x000f, t01=0x000e}
0x1788…17be Head {h00=0x0032, h01=0x0050, text=» CBE PINDFR,W0,DEL40 JUMP IF NO CURRENT FORMAT«, t00=0x000f, t01=0x0024}
0x17be…17ce Head {h00=0x000c, h01=0x0050, text=» B ENTER«, t00=0x000f, t01=0x005a}
0x17ce…17dc Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000f, t01=0x006a}
0x17dc…17e6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x0078}
0x17e6…1808 Head {h00=0x001e, h01=0x0050, text=»* PRINT STATUS LINE«, t00=0x000f, t01=0x0082}
0x1808…1812 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x00a4}
0x1812…1820 Head {h00=0x000a, h01=0x0050, text=»STS10 «, t00=0x000f, t01=0x00ae}
0x1820…1846 Head {h00=0x0022, h01=0x0050, text=» PERF DESTAT LOAD STATUS-LINE «, t00=0x000f, t01=0x00bc}
0x1846…1860 Head {h00=0x0016, h01=0x0050, text=» MOVE DEBINW4,W19 «, t00=0x000f, t01=0x00e2}
0x1860…1870 Head {h00=0x000c, h01=0x0050, text=» B ERROR«, t00=0x000f, t01=0x00fc}
0x1870…187e Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000f, t01=0x010c}
0x187e…1888 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x011a}
0x1888…18ae Head {h00=0x0022, h01=0x0050, text=»* PRINT CURRENT FORMAT «, t00=0x000f, t01=0x0124}
0x18ae…18b8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x014a}
0x18b8…18c6 Head {h00=0x000a, h01=0x0050, text=»PRT10 «, t00=0x000f, t01=0x0154}
0x18c6…18d0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x0162}
0x18d0…18f8 Head {h00=0x0024, h01=0x0050, text=»* REDFINITION OF 'DB2'-BLK«, t00=0x000f, t01=0x016c}
0x18f8…1902 (16, 0, 400) Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x0004}
0x1902…1940 Head {h00=0x003a, h01=0x0050, text=»* RESERVE ONE WORK-BUFFER FOR FORMAT GENERATION «, t00=0x0010, t01=0x000e}
0x1940…1976 Head {h00=0x0032, h01=0x0050, text=»* -ATTACH RESERVED WITH NEW DESCRIPTOR «, t00=0x0010, t01=0x004c}
0x1976…19ac Head {h00=0x0032, h01=0x0050, text=»* -ATTACH RESERVED BUFFER AS WORK-BLOCK«, t00=0x0010, t01=0x0082}
0x19ac…19b6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x00b8}
0x19b6…19d8 Head {h00=0x001e, h01=0x0050, text=»* DB2 BLK«, t00=0x0010, t01=0x00c2}
0x19d8…1a12 Head {h00=0x0036, h01=0x0050, text=»* <ITEM> BIN X'20020000' «, t00=0x0010, t01=0x00e4}
0x1a12…1a4c Head {h00=0x0036, h01=0x0050, text=»* <ITEM> BIN X'20020000' «, t00=0x0010, t01=0x011e}
0x1a4c…1a8e Head {h00=0x003e, h01=0x0050, text=»* <ITEM> BIN (12) X'A0020004000C0000' «, t00=0x0010, t01=0x0158}
0x1a8e…1ad0 Head {h00=0x003e, h01=0x0050, text=»* FORTAB STRG (2),80 X'8050001C00020000' «, t00=0x0011, t01=0x000a}
0x1ad0…1b0a Head {h00=0x0036, h01=0x0050, text=»* JOBSPC STRG 160 X'00A0001C' «, t00=0x0011, t01=0x004c}
0x1b0a…1b54 Head {h00=0x0046, h01=0x0050, text=»* JOBSPC REDEFINES FORTAB(W2) «, t00=0x0011, t01=0x0086}
0x1b54…1b5e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x00d0}
0x1b5e…1b76 Head {h00=0x0014, h01=0x0050, text=» CLEAR DEPROMPT «, t00=0x0011, t01=0x00da}
0x1b76…1ba6 Head {h00=0x002c, h01=0x0050, text=» MOVE BIN16,W0 NUMBER OF CONSEC BUFFERS «, t00=0x0011, t01=0x00f2}
0x1ba6…1bd4 Head {h00=0x002a, h01=0x0050, text=» MOVE BIN4,W1 NUMBER OF WANTED BUFFERS«, t00=0x0011, t01=0x0122}
0x1bd4…1c12 Head {h00=0x003a, h01=0x0050, text=» PERF DEPOOL,W2,BIN4,BIN16,STRG10A GET BUFF WITH LOCK «, t00=0x0011, t01=0x0150}
0x1c12…1c24 Head {h00=0x000e, h01=0x0050, text=» BOK PRT20«, t00=0x0011, t01=0x018e}
0x1c24…1c58 Head {h00=0x0030, h01=0x0050, text=» PERF DERROR,DEKTAB6 ERROR-MESSAGE IF NOT OK«, t00=0x0012, t01=0x0010}
0x1c58…1c68 Head {h00=0x000c, h01=0x0050, text=» B PRT40«, t00=0x0012, t01=0x0044}
0x1c68…1c76 Head {h00=0x000a, h01=0x0050, text=»PRT20 «, t00=0x0012, t01=0x0054}
0x1c76…1cae Head {h00=0x0034, h01=0x0050, text=» MOVE WORK(W5),BIN4 SAVE POINTER TO WORK BUFFER «, t00=0x0012, t01=0x0062}
0x1cae…1ce0 Head {h00=0x002e, h01=0x0050, text=» MOVE BPOOL(BIN4),=X' MOVE IN DESCRIPTOR C«, t00=0x0012, t01=0x009a}
0x1ce0…1cf6 Head {h00=0x0012, h01=0x0050, text=» 20020000 C «, t00=0x0012, t01=0x00cc}
0x1cf6…1d0c Head {h00=0x0012, h01=0x0050, text=» 20020000 C «, t00=0x0012, t01=0x00e2}
0x1d0c…1d2a Head {h00=0x001a, h01=0x0050, text=» A0020004000C0000 C «, t00=0x0012, t01=0x00f8}
0x1d2a…1d56 Head {h00=0x0028, h01=0x0050, text=» 8050001C00020000 FORTAB (2),80 C«, t00=0x0012, t01=0x0116}
0x1d56…1d7a Head {h00=0x0020, h01=0x0050, text=» 00A0001C00 JOBSPC 160 C «, t00=0x0012, t01=0x0142}
0x1d7a…1d86 Head {h00=0x0008, h01=0x0050, text=» ' «, t00=0x0012, t01=0x0166}
0x1d86…1dac Head {h00=0x0022, h01=0x0050, text=» CALL ATTDB,BPOOL(BIN4),W0,W12«, t00=0x0012, t01=0x0172}
0x1dac…1dd2 Head {h00=0x0022, h01=0x0050, text=» CALL ATTWB,BPOOL(BIN4),W0,W12«, t00=0x0013, t01=0x0008}
0x1dd2…1df6 Head {h00=0x0020, h01=0x0050, text=» PERF ATTPRT RESERVE PRINTER«, t00=0x0013, t01=0x002e}
0x1df6…1e0a Head {h00=0x0010, h01=0x0050, text=» BNOK PRT30 «, t00=0x0013, t01=0x0052}
0x1e0a…1e30 Head {h00=0x0022, h01=0x0050, text=» PERF PRFGUF PRINT USER FORMAT«, t00=0x0013, t01=0x0066}
0x1e30…1e54 Head {h00=0x0020, h01=0x0050, text=» PERF DETPRT RELEASE PRINTER«, t00=0x0013, t01=0x008c}
0x1e54…1e64 Head {h00=0x000c, h01=0x0050, text=» B PRT35«, t00=0x0013, t01=0x00b0}
0x1e64…1e72 Head {h00=0x000a, h01=0x0050, text=»PRT30 «, t00=0x0013, t01=0x00c0}
0x1e72…1ea6 Head {h00=0x0030, h01=0x0050, text=» PERF DERROR,DEKTAB6 ERROR MESSAGE IF NOT OK«, t00=0x0013, t01=0x00ce}
0x1ea6…1eb4 Head {h00=0x000a, h01=0x0050, text=»PRT35 «, t00=0x0013, t01=0x0102}
0x1eb4…1ee8 Head {h00=0x0030, h01=0x0050, text=» MOVE BIN4,WORK(W5) RESTORE WORKBUFFERINDEX «, t00=0x0013, t01=0x0110}
0x1ee8…1f26 Head {h00=0x003a, h01=0x0050, text=» PERF DEPOOL,W6,BIN4,BIN16,STRG10A RELEASE WORK BUFFER«, t00=0x0013, t01=0x0144}
0x1f26…1f62 Head {h00=0x0038, h01=0x0050, text=» CALL RESTOR,W8,W4,PWBDB4 RESTOR ORIG.-DESC.-POINTER«, t00=0x0013, t01=0x0182}
0x1f62…1f70 Head {h00=0x000a, h01=0x0050, text=»PRT40 «, t00=0x0014, t01=0x002e}
0x1f70…1fac Head {h00=0x0038, h01=0x0050, text=» IB DEBINW2,ENTER,DEL30,RELRET JUMP DEP ON KEY-INDEX«, t00=0x0014, t01=0x003c}
0x1fac…1fbc Head {h00=0x000c, h01=0x0050, text=» B ENTER«, t00=0x0014, t01=0x0078}
0x1fbc…1fca Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0014, t01=0x0088}
0x1fca…1fd8 Head {h00=0x000a, h01=0x0050, text=»RELRET«, t00=0x0014, t01=0x0096}
0x1fd8…2014 Head {h00=0x0038, h01=0x0050, text=» PERF DEPOOL,W6,PINDFR,BIN16,STRG10A RELEASE BUFFERS«, t00=0x0014, t01=0x00a4}
0x2014…2022 Head {h00=0x000a, h01=0x0050, text=»RETUR «, t00=0x0014, t01=0x00e0}
0x2022…2060 Head {h00=0x003a, h01=0x0050, text=» CALL RESTOR,W0,W16,PWBDB4 RESTOR ORIG.-DESC.-POINTER «, t00=0x0014, t01=0x00ee}
0x2060…206c Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0014, t01=0x012c}
0x206c…207a Head {h00=0x000a, h01=0x0005, text=» PEND «, t00=0x0014, t01=0x0138}
0x207a…2088 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0014, t01=0x0146}
0x2088…209a Head {h00=0x000e, h01=0x0050, text=»F23GF FRMT«, t00=0x0014, t01=0x0154}
0x209a…20a6 Head {h00=0x0008, h01=0x0050, text=» FSL«, t00=0x0014, t01=0x0166}
0x20a6…20be Head {h00=0x0014, h01=0x0050, text=» FTEXT '23 GET '«, t00=0x0014, t01=0x0172}
0x20be…20d6 Head {h00=0x0014, h01=0x0050, text=» FCOPY ='FORMAT'«, t00=0x0014, t01=0x018a}
0x20d6…20e2 Head {h00=0x0008, h01=0x0050, text=» FNL«, t00=0x0015, t01=0x0012}
0x20e2…20fa Head {h00=0x0014, h01=0x0050, text=» FCOPY ='FORMAT'«, t00=0x0015, t01=0x001e}
0x20fa…210e Head {h00=0x0010, h01=0x0050, text=» FILLR ':',1«, t00=0x0015, t01=0x0036}
0x210e…2146 Head {h00=0x0034, h01=0x0050, text=» FKI 9,APPL=104,MINL=1,MAXL=6,ALPHA,NEOI,ME,NCLR«, t00=0x0015, t01=0x004a}
0x2146…215c Head {h00=0x0012, h01=0x0050, text=» FCOPY FORMAT «, t00=0x0015, t01=0x0082}
0x215c…216a Head {h00=0x000a, h01=0x0050, text=» FMEND«, t00=0x0015, t01=0x0098}
0x216a…2176 Head {h00=0x0008, h01=0x0004, text=» END«, t00=0x0015, t01=0x00a6}
0x2176…217a Head {h00=0x4004, h01=0x0000}
0x217a…217e 00 15 00 b2 ┆ ┆
0x217e…2186 (22, 1, 8) 20 04 00 00 00 16 00 04 ┆ ┆
0x2186…21d6 (23, 0, 400) 54 e0 28 82 2a 06 32 e9 28 02 08 07 29 67 3d 0d 80 0a 84 22 93 00 e9 27 22 28 93 20 a0 00 93 67 20 93 d1 22 18 03 9f 23 3e 80 0d 24 54 b4 80 0a 84 23 93 00 e9 27 23 28 93 20 82 5f 20 00 95 55 62 95 20 26 c4 35 20 00 94 c2 2b 80 0b 2a 50 1d ┆T ( * 2 ( )g= " '"( g " #> $T # '#( _ Ub & 5 + *P ┆
0x21d6…2226 28 93 2d 8e 20 7b 20 8a 80 0c 26 7b 8d 9d 31 05 21 30 0c 00 21 20 30 34 00 6d 55 5f 22 00 6d c4 35 30 39 1b 7b 26 2a 00 8f 70 21 30 05 1b 8f 80 0a 84 24 93 00 e9 27 24 28 93 20 31 30 06 20 24 7d 20 7c 20 0a 40 d6 30 16 d0 80 0b 32 54 43 00 ┆( - { &{ 1 !0 ! 04 mU_" m 509 {&* p!0 $ '$( 10 $} | @ 0 2TC ┆
0x2226…2276 91 20 36 e9 28 02 00 42 3f 08 30 06 20 24 7d 01 8c 2f 80 0b 8c 54 06 00 6c 7f 24 5f 1e 22 93 20 0b 09 93 15 32 93 05 09 0a 0b 07 0c 80 05 10 00 93 20 32 91 03 0d 09 07 32 e9 27 04 0e 0f 10 11 40 7a 80 05 10 37 91 02 08 5e 80 0c 26 7b 92 9d ┆ 6 ( B? 0 $} / T l $_ " 2 2 2 ' @z 7 ^ &{ ┆
0x2276…22c6 80 0c 26 7a 92 9d 30 06 20 30 7d 20 7c 20 0e 40 d6 30 16 d0 80 0b 32 80 0c 26 7c 92 9d 40 7a 50 05 80 0a 84 25 93 40 8a 80 06 68 80 81 80 03 24 38 12 3f 13 36 92 01 02 3f 14 30 03 4e 60 61 00 61 20 00 62 61 68 4e 62 23 95 20 23 50 09 02 61 ┆ &z 0 0} | @ 0 2 &| @zP % @ h $8 ? 6 ? 0 N`a a bahNb# #P a┆
0x22c6…2316 25 20 61 60 16 5f 15 02 62 23 6a 85 21 21 4e 62 02 62 21 6a 84 21 21 4e 62 3f 15 00 93 29 3f 14 36 00 07 00 00 00 05 00 00 31 00 02 24 57 3b 36 01 05 02 09 09 09 20 5f 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 01 ┆% a` _ b#j !!Nb b!j !!Nb? )? 6 1 $W;6 _ ┆
0x2316…2366 (24, 0, 400) 0f 80 0e 85 50 29 57 2a 31 28 93 1e 54 0c 00 92 21 30 35 13 92 20 54 02 57 15 01 93 10 57 13 80 0f 57 0f 36 01 02 07 02 57 05 01 02 31 57 03 00 02 20 34 03 00 15 00 13 00 ab 00 13 02 9a 00 13 00 f1 00 13 00 5a 00 13 00 45 00 13 02 35 00 13 ┆ P)W*1( T !05 T W W W 6 W 1W 4 Z E 5 ┆
0x2366…23b6 02 62 00 13 01 1e 00 13 02 04 00 13 01 b5 00 13 01 46 00 13 02 22 00 13 02 50 00 13 00 f5 00 13 01 88 00 13 01 a6 00 13 01 f7 00 13 00 22 00 13 00 3a 00 00 01 7f 00 00 01 68 00 0f 00 05 00 0e 00 05 00 13 00 02 00 0e 00 05 00 22 00 14 00 0e ┆ b F " P " : h " ┆
0x23b6…2406 00 00 01 91 00 00 01 9f 00 06 01 f8 00 16 00 0e 00 13 02 d8 00 00 02 2b 00 08 00 0e 00 15 00 0e 00 00 01 ec 00 00 02 24 00 1b 00 22 ff fb 54 4f 56 49 41 46 49 4c 45 4e 41 4d 45 55 4e 49 54 42 41 54 43 48 56 4f 4c 55 4d 45 44 45 56 49 43 45 ┆ + $ " TOVIAFILENAMEUNITBATCHVOLUMEDEVICE┆
0x2406…2456 20 44 41 54 41 20 43 4f 4d 4d 43 4f 4e 56 45 52 53 49 4f 4e 4f 54 48 45 52 20 4d 45 44 49 41 00 b1 58 39 39 39 39 e1 f0 01 00 00 00 c0 55 c3 03 37 31 20 c1 3b 81 20 c1 32 81 20 c1 3c c3 03 37 31 20 c1 3b 81 20 c1 33 81 20 c1 3a e0 df 18 e1 ┆ DATA COMMCONVERSIONOTHER MEDIA X9999 U 71 ; 2 < 71 ; 3 : ┆
0x2456…24a6 df 1d e1 df 1a c4 14 df 1b df 16 c1 1a c1 35 81 3a fa 09 03 7f 21 41 86 00 c0 6b c1 37 c1 35 81 3a fa 1e 04 7f 22 41 86 00 c0 6c e0 df 17 e1 df 1d e1 df 1a c4 14 df 1b 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 08 ┆ 5 : !A k 7 5 : "A l ┆
0x24a6…24f6 (25, 0, 400) e1 df 20 df 16 c1 36 c3 02 3a 55 f2 07 02 81 81 00 13 69 c4 14 c1 38 81 3a ec 1b c0 e6 c3 02 20 31 e8 82 20 8a 2a c3 08 4e 55 4d 42 45 52 3a 20 14 67 e8 82 20 e8 e0 c3 03 37 30 20 c1 3b e1 c1 28 f2 09 01 82 82 00 11 68 da 64 03 e1 df 17 c1 ┆ 6 :U i 8 : 1 * NUMBER: g 70 ; ( h d ┆
0x24f6…2546 39 81 3a f2 09 65 c2 83 00 c0 7f 23 c4 14 c1 34 81 2d c1 35 81 3a f0 20 40 86 00 c0 7f 24 e0 c3 10 46 45 54 43 48 49 4e 47 20 46 4f 52 4d 41 54 3a c0 95 c3 0b 20 46 52 4f 4d 20 44 49 53 43 2e e1 f0 01 40 00 00 c0 55 20 02 00 00 20 02 00 02 ┆9 : e # 4 - 5 : @ $ FETCHING FORMAT: FROM DISC. @ U ┆
0x2546…2596 20 02 00 04 00 02 00 06 00 03 00 08 00 04 00 0b 00 04 00 0f 00 04 00 13 00 05 00 17 00 06 00 1c 00 07 00 22 00 09 00 29 00 0a 00 32 00 0b 00 3c 30 01 00 47 30 01 00 48 10 01 00 00 10 04 00 01 00 08 00 00 00 0f 00 08 00 0f 00 17 00 0f 00 26 ┆ " ) 2 <0 G0 H &┆
0x2596…25e6 00 10 00 35 00 10 00 45 00 12 00 55 00 18 00 67 00 19 00 7f 00 19 00 98 00 1f 00 b1 00 2a 00 d0 05 00 03 b8 05 40 04 01 05 48 04 06 81 80 03 24 38 12 3f 13 36 92 01 02 3f 14 30 03 4e 60 61 00 61 20 00 62 61 68 4e 62 23 95 20 23 50 09 02 61 ┆ 5 E U g * @ H $8 ? 6 ? 0 N`a a bahNb# #P a┆
0x25e6…2636 25 20 61 60 16 5f 15 02 62 23 6a 85 21 21 4e 62 02 62 21 6a 84 21 21 4e 62 3f 15 00 93 29 3f 14 36 00 07 00 00 00 05 00 00 31 00 02 24 57 3b 36 01 05 02 09 09 09 20 5f 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 01 ┆% a` _ b#j !!Nb b!j !!Nb? )? 6 1 $W;6 _ ┆
0x2636…2686 (26, 0, 400) 07 46 00 dc 00 ea 00 ea 07 3a 07 3e 07 42 00 91 21 31 28 92 17 06 93 20 50 9e 51 05 03 93 2f 55 38 30 09 00 38 38 06 93 12 52 2a 6a 91 21 21 1b 8a 82 00 6f 55 01 92 31 30 0d 92 91 02 92 21 6a 6f 21 92 1b 8a 82 01 92 32 6a 6f 20 22 92 20 31 ┆ F : > B !1( P Q /U80 88 R*j !! oU 10 !jo! 2jo " 1┆
0x2686…26d6 28 92 16 57 0c 25 93 30 03 00 93 22 31 28 92 48 93 30 26 57 04 31 28 92 17 00 92 21 30 27 91 99 00 92 91 80 01 21 91 36 92 03 16 02 1d 57 22 30 12 11 92 30 1b 92 11 5c 20 18 93 24 28 20 91 23 10 5f 2e 30 0c 00 21 20 5f 79 18 93 24 35 00 91 ┆( W % 0 "1( H 0&W 1( !0' ! 6 W"0 0 $( # _.0 ! _y $5 ┆
0x26d6…2726 21 28 91 2a 0b 40 e5 80 02 2e 00 00 91 21 34 01 00 92 38 30 09 00 92 92 34 01 20 90 20 19 00 95 0c 01 6f 33 00 0c 6f 30 23 93 30 09 0a 93 93 36 91 02 05 09 00 0c 95 34 00 41 6d 34 00 00 0c 95 30 23 93 30 0c 01 93 93 34 00 00 02 00 00 02 d5 ┆!( * @ . !4 80 4 o3 o0# 0 6 4 Am4 0# 0 4 ┆
0x2726…2776 00 06 01 f8 00 33 00 38 00 3f 20 2b 31 00 42 41 54 43 48 20 49 4e 20 55 53 45 53 59 4d 42 4f 4c 49 43 56 41 4c 55 45 2d 53 45 54 58 58 58 58 54 54 54 39 54 54 54 54 39 58 58 58 58 58 2d c0 6f e0 81 07 e0 c1 35 e0 df 2a e0 c1 1a 81 3a c0 6b ┆ 3 8 ? +1 BATCH IN USESYMBOLICVALUE-SETXXXXTTT9TTTT9XXXXX- o 5 * : k┆
0x2776…27c6 c1 35 e0 c1 37 81 3a c0 e6 c1 35 e0 c1 22 81 3a c0 9b c1 35 e0 c3 04 4e 4f 54 20 df 2a e0 c3 08 54 49 4d 45 2d 4f 55 54 e0 c3 09 43 44 56 2d 45 52 52 4f 52 e0 c3 09 4e 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 08 ┆ 5 7 : 5 " : 5 NOT * TIME-OUT CDV-ERROR N ┆
0x27c6…2816 (27, 0, 400) 4f 54 20 46 4f 55 4e 44 e0 c3 09 49 2f 4f 2d 45 52 52 4f 52 e0 c3 0a 44 41 54 45 20 45 52 52 4f 52 e0 c3 0c 46 4f 55 4e 44 20 4c 4f 43 4b 45 44 e0 c3 0d 4e 4f 20 44 49 53 43 20 53 50 41 43 45 e0 c3 0d 49 4c 4c 45 47 41 4c 20 56 41 4c 55 45 ┆OT FOUND I/O-ERROR DATE ERROR FOUND LOCKED NO DISC SPACE ILLEGAL VALUE┆
0x2816…2866 e0 c3 0e 49 4e 56 41 4c 49 44 20 4e 55 4d 42 45 52 e0 c3 0f 43 48 41 4e 47 45 20 43 41 53 53 45 54 54 45 e0 c3 0f 4e 4f 20 52 45 43 4f 52 44 20 46 4f 55 4e 44 e0 c3 0f 55 4e 44 45 46 49 4e 45 44 20 45 52 52 4f 52 c3 12 54 45 53 54 20 45 4e ┆ INVALID NUMBER CHANGE CASSETTE NO RECORD FOUND UNDEFINED ERROR TEST EN┆
0x2866…28b6 54 45 52 45 44 20 42 41 54 43 48 e0 c3 11 52 45 43 4f 56 45 52 59 20 52 55 4e 4e 49 4e 47 2e e0 c3 11 44 49 53 43 20 4e 4f 54 20 4f 50 45 52 41 42 4c 45 e0 c1 34 81 3a c0 6c c3 04 20 49 4e 20 c1 1a 81 3a c0 6b c1 35 e0 c3 0e 44 49 53 43 20 ┆TERED BATCH RECOVERY RUNNING. DISC NOT OPERABLE 4 : l IN : k 5 DISC ┆
0x28b6…2906 49 2f 4f 2d 45 52 52 4f 52 c4 3a 17 98 e0 c3 13 49 4c 4c 45 47 41 4c 20 46 4f 52 4d 41 54 20 4e 41 4d 45 e0 c3 14 50 52 45 53 53 20 45 4e 54 20 54 4f 20 43 4f 4e 46 49 52 4d e0 c3 14 4e 4f 20 57 4f 52 4b 53 50 41 43 45 20 49 4e 20 43 4f 52 ┆I/O-ERROR : ILLEGAL FORMAT NAME PRESS ENT TO CONFIRM NO WORKSPACE IN COR┆
0x2906…2956 45 e0 c3 14 46 55 4e 43 54 49 4f 4e 20 4e 4f 54 20 41 4c 4c 4f 57 45 44 e0 c3 15 55 53 45 52 46 49 4c 45 20 41 53 53 49 47 4e 2d 45 52 52 4f 52 e0 c3 16 39 35 20 25 20 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 01 ┆E FUNCTION NOT ALLOWED USERFILE ASSIGN-ERROR 95 % ┆
0x2956…29a6 (28, 0, 400) 4f 46 20 46 49 4c 45 53 50 41 43 45 20 55 53 45 44 e0 c3 16 50 52 45 53 53 20 45 4e 54 20 46 4f 52 20 44 45 4c 45 54 49 4f 4e e0 c3 17 54 48 49 53 20 49 53 20 41 20 44 55 4d 4d 59 20 4d 45 53 53 41 47 45 e0 c3 17 53 59 53 54 45 4d 46 49 4c ┆OF FILESPACE USED PRESS ENT FOR DELETION THIS IS A DUMMY MESSAGE SYSTEMFIL┆
0x29a6…29f6 45 20 41 53 53 49 47 4e 2d 45 52 52 4f 52 e0 c3 18 45 44 49 54 20 45 52 52 4f 52 20 49 4e 20 43 4f 4e 56 45 52 53 49 4f 4e e0 c3 18 41 4c 52 45 41 44 59 20 44 45 46 49 4e 45 44 2f 45 58 45 43 55 54 45 44 e0 c3 18 54 4f 4f 20 46 45 57 20 49 ┆E ASSIGN-ERROR EDIT ERROR IN CONVERSION ALREADY DEFINED/EXECUTED TOO FEW I┆
0x29f6…2a46 4e 50 55 54 20 43 48 41 52 41 43 54 45 52 53 e0 c3 1a 4f 55 54 50 55 54 20 44 45 56 49 43 45 20 4e 4f 54 20 4f 50 45 52 41 42 4c 45 e0 c3 1b 43 4f 4d 50 55 4c 53 4f 52 59 20 46 49 45 4c 44 20 4e 4f 54 20 46 49 4c 4c 45 44 e0 c3 1d 44 45 46 ┆NPUT CHARACTERS OUTPUT DEVICE NOT OPERABLE COMPULSORY FIELD NOT FILLED DEF┆
0x2a46…2a96 49 4e 45 44 20 4c 49 4e 45 20 4d 41 58 49 4d 55 4d 20 45 58 43 45 45 44 45 44 e0 c3 1e 4d 41 58 49 4d 55 4d 20 52 45 43 4f 52 44 2d 4c 45 4e 47 54 48 20 45 58 43 45 45 44 45 44 e0 c3 21 4d 41 58 49 4d 55 4d 20 46 4f 52 4d 41 54 2d 43 4f 44 ┆INED LINE MAXIMUM EXCEEDED MAXIMUM RECORD-LENGTH EXCEEDED !MAXIMUM FORMAT-COD┆
0x2a96…2ae6 45 20 53 49 5a 45 20 45 58 43 45 45 44 45 44 e0 c3 21 4d 41 58 49 4d 55 4d 20 4e 55 4d 42 45 52 20 4f 46 20 46 49 45 4c 44 53 20 45 58 43 45 45 44 45 44 e0 c3 28 55 53 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 08 ┆E SIZE EXCEEDED !MAXIMUM NUMBER OF FIELDS EXCEEDED (US ┆