|
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: 17454 (0x442e)
Notes: pts_type(SC)
Names: »WUDEN.SC«
└─⟦f45ea3bc3⟧ Bits:30009713 Philips computer tape "WSM"
└─⟦this⟧ »WSM:UTIL/WUDEN.SC«
IDENT WUDEN REL=2.3,850808,870155940230 * ********************************************* * * * A STANDARD PROGRAM PACKAGE HANDLING * * A COMPLETE PICTURE ON A DISPLAY SCREEN * * * * RUNNING UNDER: CREDIT REL 12.0 * * TOSS REL 12.0 * * * ********************************************* * ** HISTORY: ** 85-08-08 /CRBE CHANGE IN ERROR FORMATS FROM DISC TO DISK. ** 84-12-04 /CRBE START/STOP BLOCKING IMPLEMENTED ** 83-10-06 /MAER ERROR TEXT 23 ADDED. ** 83-07-01 /MAER DUPL OF OUTPUT UNIT => APPL 10 IS EXECUTED. ** 83-06-27 /MAER ERFM10 NOW COVERS ALSO FILE OVERFLOW. ** BIN13 INSTEAD OF BIN1 DESTROYED BY SUBR. "BUZZER". ** 83-06-22 /MAER ERFM19-21 ADDED. ** 83-06-17 /MAER KEYBOARD BUZZER ALWAYS USED. ** 82-08-19 /MAER ADAPTED TO VD82. DDUM WUDIV PDIV ************************* * * * ENTRIES AND EXTERNALS * * * ************************* ENTRY DECLRA CLEAR ALL VARIABLE FIELDS ENTRY DECLRS CLEAR SOME VARIABLE FIELDS ENTRY DECLRN CLEAR NO VARIABLE FIELDS ENTRY DECLRD ENTRY DERR DENTER-ERROR ENTRY DERROR ERROR/MESSAGE OUTSIDE SCREEN * EXPROC APP USER ROUTINE TO HANDLE EXPROC STPBLK ***STOP BLOCKING EXPROC STABLK ***START BLOCKING APPL VALUES EXT EMPTYT ASSEMBLY SUBROUTINE EMPTYT - EXT CHANFC CHANGE FILE CODE (VD82) TEST IF DATA ITEM IS EMPTY EXT MASK * INCLUDE WULIT,LIST EJECT * * CLEAR ALL VARIABLE FIELD BEFORE HANDLING THE PICTURE * DECLRA PROC PERF DENTER,W1 RET PEND * * CLEAR SOME VARIABLE FIELDS BEFORE HANDLING THE PICTURE * DECLRS PROC PERF DENTER,W2 RET PEND * * CLEAR NO VARIABLE FIELDS BEFORE HANDLING THE PICTURE * DECLRN PROC PERF DENTER,W3 RET PEND * * CLEAR SOME VARIABLE FIELDS AND DISPLAY THE REST * OF THE VARIABLE FIELDS BEFORE HANDLING THE PICTURE * DECLRD PROC * PERF DENTER,W4 RET PEND * * ERROR PRINTOUT * DERR PROC PERF DENTER,W0 RET PEND EJECT DENTER PROC OPT PBIN OPT PERF STABLK ***START BLOCKING MOVE DEBINW2,OPT MOVE TO VARIABLE TO ALLOW INSTR.S CMP AND IB CMP DEBINW2,W0 "DEERR" ENTRY ? BE ERRPRINT YES ! TBT DEPROMPT,ENTIRE JUMP IF ENTIRE FORMAT SHOULD BE DIDELAYED * * ONLY VARIABLE FIELDS * IB DEBINW2, C CLEARA, C CLEARS, C CONT, C CLEARD * CLEARA ERASE 2,W1,W0 ERASE ALL FROM 1 AND UP B CONT * CLEARS ERASE 5,W1,W0 ERASE SOME FROM 1 AND UP B CONT CLEARD DISPLAY 3,W1,W0 DISPLAY FROM 1 AND UP B CONT EJECT * * DISPLAY ENTIRE FORMAT * ENTIRE CLEAR DEPROMPT IB DEBINW2, JUMP C ECLRA, ON C ECLRS, ROUTINE C ECLRN, INDEX C ECLRN * * CLEAR ALL VARIABLES * ECLRA ERASE 3,W1,W0 CLEAR ALL FROM 1 AND UP IN MEMORY B ECLRN CONTINUE * * CLEAR SOME VARIABLES * ECLRS ERASE 6,W1,W0 CLEAR SOME FIELDS FROM 1 AND UP IN MEMORY * * CLEAR NO VARIABLES IN MEMORY * ECLRN DISPLAY 0,W1,W0 DISPLAY ENTIRE FORM EJECT * CONT GETABX DEBINW4 GET CURRENT INDEX BL KTHOME JUMP IF NO CURRENT FIELD CONT5 GETFLD 0,DEBINW4,DEBINW3 SEARCH CURRENT POSITION BZ SETCREAD JUMP IF FOUND BL KTHOME POSITION NOT FOUND * * COMPULSORY FIELD FOUND * MOVE DEBINW4,DEBINW3 CHANGE INDEX B CONT5 SEARCH AGAIN * EJECT * * SET CURSOR AND READ KEYBOARD * SETCREAD SETCUR SET CURSOR ON CURRENT FIELD * * READ TO CURRENT FIELD ON DISPLAY * READIN PERF STPBLK ***STOP BLOCKING DYKI DEINPUT,DEKTAB1,DEKTAB2,DEBINW1, C DEBINW2,DEBINW4 DYKOUT BL ERRPRT ERROR CBNL DEBINW2,W0,DYK100 DYK050 MOVE DEBINW2,W2 B ERRCAN DYK100 CBE DEBINW2,W0,ECLRN CLEAR BOOL3 SETOFF DUPL-"SWITCH" KEY SWITCHES IB DEBINW2,UPD300,CLEA20, JUMP ON C UPDATE,ERRCAN,ERRCAN, C DUMMY,KTBWD, C DUMMY,DUMMY,DUMMY,DUMMY,DUMMY,DUMMY, C KCOPY,KDUPL,KEDIT EJECT * * HANDLE THE RESPECTIVE KEY AS EOI-KEY FIRST * UPDATE MOVE DEBINW4,W1 INDICATE COND. DIDEL GETCTL 0,DEBINW3 GET APPL-VALUE CBE DEBINW3,W0,UPD250 JUMP IF NO APPL VALUE * * APPL-VALUE DIFFERENT FROM ZERO * UPD240 PERF APP IB DEBINW3,UPD260,SETCREAD,ERRPRINT B UPD260 UPD250 CBNE DEBINW1,W0,UPD260 MOVE DEINPUT,:FMTITEM UPD260 TBT BOOL3,UPD300 JUMP IF DUPL OF OUTPUT UNIT (UPDFLD ALREADY PERFORMED!) UPDFLD 0,DEINPUT UPDATE FIELD DISPL. COND. CLEAR BOOL3 SETOFF DUPL-"SWITCH" UPD300 SET DECHANGE INDICATE CHANGED ITEM * JUMP ON FUNCTION KEY INDEX IB DEBINW2,KTFWD,DUMMY, C KEOI,DUMMY,DUMMY,KTFWD, C DUMMY,DUMMY,DUMMY,DUMMY,DUMMY, C DUMMY,DUMMY,DUMMY,DUMMY,DUMMY, C KENTER SUB DEBINW2,W14 ADJUST EOI-KEY INDEX B RETUR RETUR1 SUB DEBINW2,W1 ADJUST KEY INDEX DUMMY RETUR CLEAR DENOCHAN RET * EJECT KEOI COMMON END-OF-ITEM KEY KTFWD TAB. FORWARD 1 STEP TFWD B TSTTAB * KTBWD TABULATION 1 STEP BACKW. TBWD B TSTTAB * KTHOME TAB. TO HOME POSITION THOME B TSTTAB * TSTTAB TEST TAB OUTPUT BE READIN OK B SETCREAD EJECT KCOPY HARD COPY MOVE DEBINW3,W1 PRINT DEDSPRT,DEBINW3,W0 KCOP10 B SETCREAD SET CURSOR AND READ * KDUPL DUPLICATION MOVE DEBINW2,W3 INDICATE COMMON EOI-KEY DUPL DEINPUT DUPLICATION BNZ KDU500 DUPL NOT ALLOWED MOVE DEBINW4,W1 INDICATE COND. DIDEL GETCTL 0,DEBINW3 GET APPL-VALUE CBNE DEBINW3,W10,UPD260 JUMP IF APPL VALUE DIFF. FROM 10 UPDFLD 0,DEINPUT UPDATE FIELD SET BOOL3 PERFORM APPLICATION ROUTINE B UPD240 KDU500 MOVE DEBINW4,W0 INDICATE ILLEGAL EOI-KEY B ERRPRINT DUPL NOT ALLOWED EJECT * * EDIT FIELD * KEDITX MOVE DEBINW1,W1 KEDIT GETCTL 1,DEBINW3 GET MAXL CBNE DEBINW3,W0,KED100 PERF BUZZER ACOUSTIC ALARM B SETCREAD KED100 EDFLD DEINPUT,DEKTAB3,DEBINW1, C DEBINW2,DEBINW4 B DYKOUT CONTINUE AS FOR DYKI * * ERASE KEY * KERASE GETABX DEBINW4 ERASE 2,DEBINW4,W0 * * ENTER KEY * KKEEP KENTER MOVE DEBINW4,W5 INDICATE COMP.FIELD FOUND MOVE DEBINW1,W0 INDICATE NO CLEARING GETFLD 0,DEBINW1,DEBINW3 SEARCH FOR EMPTY COMP. FIELDS BOFL KENT10 EMPTY COMP. FIELD FOUND TSTCTL 2 LOOK IF COMPULSORY FIELD BZ KENT05 NO! CALL EMPTYT,:FMTITEM LOOK IF EMPTY FIELD BP KENT10 YES! KENT05 CBE DEBINW2,W9,KCOP10 CBE DEBINW2,W10,KCOP10 MOVE DEBINW2,W3 INDICATE ENTER KEY DEPRESSED RET * * EMPTY COMPULSORY FIELD FOUND * KENT10 MOVE DEBINW2,W0 GETFLD 0,DEBINW3,DEBINW2 GET THE COMPULSORY FIELD MOVE DEBINW1,W0 EJECT ERRPRT CBE DEBINW2,W16,KEDIT JUMP IF EDIT CBE DEBINW2,W4,ERRCAN JUMP IF ERRCANEL1 CBE DEBINW2,W5,ERRCAN JUMP IF ERRCANEL2 XSTAT DEDSDYKB,DEBINW3 CALL MASK,DEBINW3,W64 BNZ DYK050 * * ERRPRINT PERF DERROR,DEKTAB4 IB DEBINW2,SETCREAD,RETUR2,RETUR2,KEDITX B SETCREAD * * CLEAR LAST LINE * ERRCAN PERF CANC IB DEBINW2,SETCREAD,SETCREAD SUB DEBINW2,W3 ADJUST FOR CANCEL1,CANCEL2 RET CLEA20 GETABX DEBINW4 GET CURRENT TAB INDEX DISPLAY 1,DEBINW4,DEBINW4 DISPLAY FIELD B SETCREAD CONTINUE * RETUR2 SUB DEBINW2,W1 RET PEND EJECT DERROR PROC KEYT PKTAB KEYT *************************************************************** * * * ERROR HANDLING * * * *************************************************************** PERF STPBLK ***PUT CURSOR ON MOVE DEBINW3,=X'0101' ASSUME VD82 TBT VD82,DERR02 IF VD82 => BRANCH MOVE DEBINW3,=X'1801' ELSE MSG ON LINE 24 DERR02 MOVE DEBINW2,W1 INDICATE CLEAR-KEY PERF BUZZER ACOUSTIC ALARM CMP DEBINW4,W0 BZ DERR99 BP DERR03 ADD DEBINW4,=W'51' DERR03 DSC1 DEDSSYSL,6,DEBINW3 SET CURSOR ON MESSAGE ROW CBL DEBINW4,=W'50',DERR04 MOVE DEBINW4,W2 *************************************************************** * * * WRITE MESSAGE * * * *************************************************************** DERR04 EDWRT DEDSSYSL,DEFTBERR(DEBINW4) EJECT *************************************************************** * * * READ KEYBOARD FOR OPERATOR ACKNOWLEDGMENT * * * *************************************************************** SETCUR SET CURSOR AT THE BEGINNING OF THE CURRENT FIELD B DERR15 NO BELL FIRST TIME DERR10 PERF BUZZER ACOUSTIC ALARM DERR15 MOVE DEBINW3,W1 REQUESTED LENGTH NKI .NE,DEDSDYKB,STR1A,KEYT,DEBINW3,DEBINW2 BNOK DERR10 CBNE DEBINW2,W0,DERR20 DISPLAY 0,W1,W0 B DERR03 DERR20 MOVE DEBINW3,=X'0101' ASSUME VD82 TBT VD82,DERR25 IF VD82 => BRANCH... MOVE DEBINW3,=X'1801' ...ELSE USE LINE 24 (VD46) DERR25 IB DEBINW2,DERR30,DERR30, C DERR30,DERR40 B DERR10 CONTINUE *************************************************************** * * * CLEAR MESSAGE LINE AFTER OPERATOR ACKNOWLIGMENT * * * *************************************************************** DERR30 DSC1 DEDSSYSL,6,DEBINW3 SET CURSOR ON MSG LINE DSC1 DEDSSYSL,2,W80 ERASE CURRENT MESSAGE PERF CANC B DERR99 DERR40 CBE DEBINW1,W0,DERR10 DSC1 DEDSSYSL,6,DEBINW3 SET CURSOR ON MSG LINE DSC1 DEDSSYSL,2,W80 ERASE CURRENT MESSAGE DERR99 RET PEND EJECT CANC PROC MOVE DEINPUT,HEX00 MOVE DEINPUT,:FMTITEM SAVE CURRENT CONTENTS CBE DEBINW1,W0,CANC10 JUMP IF LENGTH = 0 MOVE STATSH,=X'3100' MOVE :FMTITEM,STATSH PUT SOMETHING IN THE FIELD GETABX DEBINW4 GET CURRENT INDEX ERASE 10,DEBINW4,DEBINW4 CLEAR FIELD CANC10 IB DEBINW2,CLEAR1,CLEAR2 CANC15 MOVE :FMTITEM,DEINPUT RESTORE CURRENT CONTENTS RET CLEAR1 CBE DEBINW1,W0,CANC15 JUMP IF LENGTH = 0 SET DECHANGE INDICATE CHANGED FIELD B CANC15 CONTINUE * CLEAR2 CBE DEBINW1,W0,CANC15 MOVE :FMTITEM,DEINPUT RESTORE CURRENT CONTENTS GETABX DEBINW4 GET CURRENT TAB INDEX DISPLAY 1,DEBINW4,DEBINW4 DISPLAY FIELD RET PEND EJECT ********************************** * * * ACTIVATE KEYBOARD BUZZER * * * * DESTROYED: BIN13 * * * * * ********************************** BUZZER PROC MOVE BIN13,=X'4F' F.C. FOR KEYBOARD BUZZER CALL CHANFC,DEDSSYSL,BIN13 CHANGE F.C. TO KEY BOARD BUZZER MOVE BIN13,=X'8000' BIT 0 = BUZZER DSC1 DEDSSYSL,0,BIN13 ACTIVATE BUZZER CALL CHANFC,DEDSSYSL,SYSLFC CHANGE F.C. BACK BUZZ99 RET PEND EJECT * ****************** * * * ERROR-MESSAGES * * * ****************** * DEFTBERR FTABLE ERFM01,ERFM02,ERFM03,ERFM04,ERFM05,ERFM06,ERFM07, C ERFM02,ERFM09,ERFM10,ERFM11,ERFM12,ERFM13,ERFM02, C ERFM02,ERFM02,ERFM02,ERFM18,ERFM19,ERFM20,ERFM21, C ERFM22,ERFM23 * ERFM01 FRMT FSL FTEXT 'TOO FEW INPUT CHARACTERS' FMEND * ERFM02 FRMT FSL FTEXT 'UNDEFINED ERROR' FMEND * ERFM03 FRMT FSL FTEXT 'I/O-ERROR' FMEND * ERFM04 FRMT FSL FTEXT 'FUNCTION NOT ALLOWED' FMEND * ERFM05 FRMT FSL FTEXT 'COMPULSORY FIELD NOT FILLED' FMEND * ERFM06 FRMT FSL FTEXT 'ILLEGAL VALUE' FMEND * ERFM07 FRMT FSL FTEXT 'FILENAME ALREADY USED' FMEND * ERFM09 FRMT FSL FTEXT 'WSM SYSTEM FILE NOT CREATED' FMEND * ERFM10 FRMT FSL FTEXT 'DISK/FILE OVERFLOW' FMEND * ERFM11 FRMT FSL FTEXT 'NEW VOLUME LOADED' FMEND * ERFM12 FRMT FSL FTEXT 'FILE NAME UNKNOWN' FMEND * ERFM13 FRMT FSL FTEXT 'DISK NOT IN SYSTEM' FMEND * ERFM18 FRMT FSL FTEXT 'DISK NOT OPERABLE' FMEND ERFM19 FRMT FSL FTEXT 'DISK ERROR' FTAB 31 FCOPY STR6A FMEND * ERFM20 FRMT FSL FTEXT 'POOL ERROR' FTAB 31 FCOPY STR6A FMEND ERFM21 FRMT FSL FTEXT 'NOT FOUND' FMEND ERFM22 FRMT FSL FTEXT 'I/O-ERROR' FTAB 30 FCOPY STR6A FMEND ERFM23 FRMT FSL FTEXT 'NOT A TOSS DISK!' FMEND * BELL FRMT FSL FILLR X'07',1 FMEND END
0x0000…0030 (0, 0, 400) Head {h00=0x002c, h01=0x0050, text=» IDENT WUDEN REL=2.3,850808,870155940230«, t00=0x0000, t01=0x0004}
0x0030…003a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0034}
0x003a…0070 Head {h00=0x0032, h01=0x0050, text=»********************************************* «, t00=0x0000, t01=0x003e}
0x0070…00a6 Head {h00=0x0032, h01=0x0050, text=»* * «, t00=0x0000, t01=0x0074}
0x00a6…00dc Head {h00=0x0032, h01=0x0050, text=»* A STANDARD PROGRAM PACKAGE HANDLING * «, t00=0x0000, t01=0x00aa}
0x00dc…0112 Head {h00=0x0032, h01=0x0050, text=»* A COMPLETE PICTURE ON A DISPLAY SCREEN * «, t00=0x0000, t01=0x00e0}
0x0112…0148 Head {h00=0x0032, h01=0x0050, text=»* * «, t00=0x0000, t01=0x0116}
0x0148…017e Head {h00=0x0032, h01=0x0050, text=»* RUNNING UNDER: CREDIT REL 12.0 * «, t00=0x0000, t01=0x014c}
0x017e…01b4 Head {h00=0x0032, h01=0x0050, text=»* TOSS REL 12.0 * «, t00=0x0000, t01=0x0182}
0x01b4…01ea Head {h00=0x0032, h01=0x0050, text=»* * «, t00=0x0001, t01=0x0028}
0x01ea…0220 Head {h00=0x0032, h01=0x0050, text=»********************************************* «, t00=0x0001, t01=0x005e}
0x0220…022a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x0094}
0x022a…023e Head {h00=0x0010, h01=0x0050, text=»** HISTORY: «, t00=0x0001, t01=0x009e}
0x023e…0246 Head {h00=0x0004, h01=0x0050, t00=0x0001, t01=0x00b2}
0x0246…028e Head {h00=0x0044, h01=0x0050, text=»** 85-08-08 /CRBE CHANGE IN ERROR FORMATS FROM DISC TO DISK. «, t00=0x0001, t01=0x00ba}
0x028e…02ca Head {h00=0x0038, h01=0x0050, text=»** 84-12-04 /CRBE START/STOP BLOCKING IMPLEMENTED«, t00=0x0001, t01=0x0102}
0x02ca…02fc Head {h00=0x002e, h01=0x0050, text=»** 83-10-06 /MAER ERROR TEXT 23 ADDED. «, t00=0x0001, t01=0x013e}
0x02fc…0344 Head {h00=0x0044, h01=0x0050, text=»** 83-07-01 /MAER DUPL OF OUTPUT UNIT => APPL 10 IS EXECUTED.«, t00=0x0001, t01=0x0170}
0x0344…0386 Head {h00=0x003e, h01=0x0050, text=»** 83-06-27 /MAER ERFM10 NOW COVERS ALSO FILE OVERFLOW.«, t00=0x0002, t01=0x0028}
0x0386…03d6 Head {h00=0x004c, h01=0x0050, text=»** BIN13 INSTEAD OF BIN1 DESTROYED BY SUBR. "BUZZER". «, t00=0x0002, t01=0x006a}
0x03d6…0404 Head {h00=0x002a, h01=0x0050, text=»** 83-06-22 /MAER ERFM19-21 ADDED. «, t00=0x0002, t01=0x00ba}
0x0404…043e Head {h00=0x0036, h01=0x0050, text=»** 83-06-17 /MAER KEYBOARD BUZZER ALWAYS USED. «, t00=0x0002, t01=0x00e8}
0x043e…046c Head {h00=0x002a, h01=0x0050, text=»** 82-08-19 /MAER ADAPTED TO VD82. «, t00=0x0002, t01=0x0122}
0x046c…0474 Head {h00=0x0004, h01=0x0050, t00=0x0002, t01=0x0150}
0x0474…047c Head {h00=0x0004, h01=0x0050, t00=0x0002, t01=0x0158}
0x047c…0484 Head {h00=0x0004, h01=0x0050, t00=0x0002, t01=0x0160}
0x0484…048c Head {h00=0x0004, h01=0x0050, t00=0x0002, t01=0x0168}
0x048c…04a0 Head {h00=0x0010, h01=0x0050, text=» DDUM WUDIV «, t00=0x0002, t01=0x0170}
0x04a0…04ae Head {h00=0x000a, h01=0x0050, text=» PDIV «, t00=0x0002, t01=0x0184}
0x04ae…04d0 (3, 0, 400) Head {h00=0x001e, h01=0x0050, text=»************************* «, t00=0x0003, t01=0x0004}
0x04d0…04f2 Head {h00=0x001e, h01=0x0050, text=»* * «, t00=0x0003, t01=0x0026}
0x04f2…0514 Head {h00=0x001e, h01=0x0050, text=»* ENTRIES AND EXTERNALS * «, t00=0x0003, t01=0x0048}
0x0514…0536 Head {h00=0x001e, h01=0x0050, text=»* * «, t00=0x0003, t01=0x006a}
0x0536…0558 Head {h00=0x001e, h01=0x0050, text=»************************* «, t00=0x0003, t01=0x008c}
0x0558…0588 Head {h00=0x002c, h01=0x0050, text=» ENTRY DECLRA CLEAR ALL VARIABLE FIELDS «, t00=0x0003, t01=0x00ae}
0x0588…05b8 Head {h00=0x002c, h01=0x0050, text=» ENTRY DECLRS CLEAR SOME VARIABLE FIELDS«, t00=0x0003, t01=0x00de}
0x05b8…05e6 Head {h00=0x002a, h01=0x0050, text=» ENTRY DECLRN CLEAR NO VARIABLE FIELDS«, t00=0x0003, t01=0x010e}
0x05e6…05fc Head {h00=0x0012, h01=0x0050, text=» ENTRY DECLRD «, t00=0x0003, t01=0x013c}
0x05fc…061c Head {h00=0x001c, h01=0x0050, text=» ENTRY DERR DENTER-ERROR«, t00=0x0003, t01=0x0152}
0x061c…064e Head {h00=0x002e, h01=0x0050, text=» ENTRY DERROR ERROR/MESSAGE OUTSIDE SCREEN«, t00=0x0003, t01=0x0172}
0x064e…0658 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x0014}
0x0658…0682 Head {h00=0x0026, h01=0x0050, text=» EXPROC APP USER ROUTINE TO HANDLE«, t00=0x0004, t01=0x001e}
0x0682…06aa Head {h00=0x0024, h01=0x0050, text=» EXPROC STPBLK ***STOP BLOCKING «, t00=0x0004, t01=0x0048}
0x06aa…06d2 Head {h00=0x0024, h01=0x0050, text=» EXPROC STABLK ***START BLOCKING«, t00=0x0004, t01=0x0070}
0x06d2…06e8 Head {h00=0x0012, h01=0x0050, text=» APPL VALUES«, t00=0x0004, t01=0x0098}
0x06e8…071a Head {h00=0x002e, h01=0x0050, text=» EXT EMPTYT ASSEMBLY SUBROUTINE EMPTYT - «, t00=0x0004, t01=0x00ae}
0x071a…0746 Head {h00=0x0028, h01=0x0050, text=» EXT CHANFC CHANGE FILE CODE (VD82) «, t00=0x0004, t01=0x00e0}
0x0746…076c Head {h00=0x0022, h01=0x0050, text=» TEST IF DATA ITEM IS EMPTY «, t00=0x0004, t01=0x010c}
0x076c…077e Head {h00=0x000e, h01=0x0050, text=» EXT MASK «, t00=0x0004, t01=0x0132}
0x077e…0788 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x0144}
0x0788…07a4 Head {h00=0x0018, h01=0x0050, text=» INCLUDE WULIT,LIST «, t00=0x0004, t01=0x014e}
0x07a4…07b2 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0004, t01=0x016a}
0x07b2…07bc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x0178}
0x07bc…07fe Head {h00=0x003e, h01=0x0050, text=»* CLEAR ALL VARIABLE FIELD BEFORE HANDLING THE PICTURE «, t00=0x0004, t01=0x0182}
0x07fe…0808 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x0034}
0x0808…081c Head {h00=0x0010, h01=0x0050, text=»DECLRA PROC «, t00=0x0005, t01=0x003e}
0x081c…0834 Head {h00=0x0014, h01=0x0050, text=» PERF DENTER,W1 «, t00=0x0005, t01=0x0052}
0x0834…0840 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0005, t01=0x006a}
0x0840…084e Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0005, t01=0x0076}
0x084e…0858 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x0084}
0x0858…089c Head {h00=0x0040, h01=0x0050, text=»* CLEAR SOME VARIABLE FIELDS BEFORE HANDLING THE PICTURE «, t00=0x0005, t01=0x008e}
0x089c…08a6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x00d2}
0x08a6…08ba Head {h00=0x0010, h01=0x0050, text=»DECLRS PROC «, t00=0x0005, t01=0x00dc}
0x08ba…08d2 Head {h00=0x0014, h01=0x0050, text=» PERF DENTER,W2 «, t00=0x0005, t01=0x00f0}
0x08d2…08de Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0005, t01=0x0108}
0x08de…08ec Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0005, t01=0x0114}
0x08ec…08f6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x0122}
0x08f6…0938 Head {h00=0x003e, h01=0x0050, text=»* CLEAR NO VARIABLE FIELDS BEFORE HANDLING THE PICTURE «, t00=0x0005, t01=0x012c}
0x0938…0942 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x016e}
0x0942…0956 Head {h00=0x0010, h01=0x0050, text=»DECLRN PROC «, t00=0x0005, t01=0x0178}
0x0956…096e Head {h00=0x0014, h01=0x0050, text=» PERF DENTER,W3 «, t00=0x0005, t01=0x018c}
0x096e…097a Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0006, t01=0x0014}
0x097a…0988 Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0006, t01=0x0020}
0x0988…0992 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x002e}
0x0992…09ce Head {h00=0x0038, h01=0x0050, text=»* CLEAR SOME VARIABLE FIELDS AND DISPLAY THE REST«, t00=0x0006, t01=0x0038}
0x09ce…0a0e Head {h00=0x003c, h01=0x0050, text=»* OF THE VARIABLE FIELDS BEFORE HANDLING THE PICTURE «, t00=0x0006, t01=0x0074}
0x0a0e…0a18 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x00b4}
0x0a18…0a2c Head {h00=0x0010, h01=0x0050, text=»DECLRD PROC «, t00=0x0006, t01=0x00be}
0x0a2c…0a36 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x00d2}
0x0a36…0a4e Head {h00=0x0014, h01=0x0050, text=» PERF DENTER,W4 «, t00=0x0006, t01=0x00dc}
0x0a4e…0a5a Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0006, t01=0x00f4}
0x0a5a…0a68 Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0006, t01=0x0100}
0x0a68…0a72 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x010e}
0x0a72…0a8e Head {h00=0x0018, h01=0x0050, text=»* ERROR PRINTOUT«, t00=0x0006, t01=0x0118}
0x0a8e…0a98 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x0134}
0x0a98…0aaa Head {h00=0x000e, h01=0x0050, text=»DERR PROC «, t00=0x0006, t01=0x013e}
0x0aaa…0ac2 Head {h00=0x0014, h01=0x0050, text=» PERF DENTER,W0 «, t00=0x0006, t01=0x0150}
0x0ac2…0ace Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0006, t01=0x0168}
0x0ace…0adc Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0006, t01=0x0174}
0x0adc…0aea Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0006, t01=0x0182}
0x0aea…0b02 Head {h00=0x0014, h01=0x0050, text=»DENTER PROC OPT «, t00=0x0006, t01=0x0190}
0x0b02…0b14 Head {h00=0x000e, h01=0x0050, text=» PBIN OPT «, t00=0x0007, t01=0x0018}
0x0b14…0b1c Head {h00=0x0004, h01=0x0050, t00=0x0007, t01=0x002a}
0x0b1c…0b42 Head {h00=0x0022, h01=0x0050, text=» PERF STABLK ***START BLOCKING«, t00=0x0007, t01=0x0032}
0x0b42…0b6c Head {h00=0x0026, h01=0x0050, text=» MOVE DEBINW2,OPT MOVE TO VARIABLE«, t00=0x0007, t01=0x0058}
0x0b6c…0b92 Head {h00=0x0022, h01=0x0050, text=» TO ALLOW INSTR.S CMP AND IB«, t00=0x0007, t01=0x0082}
0x0b92…0bba Head {h00=0x0024, h01=0x0050, text=» CMP DEBINW2,W0 "DEERR" ENTRY ? «, t00=0x0007, t01=0x00a8}
0x0bba…0bd4 Head {h00=0x0016, h01=0x0050, text=» BE ERRPRINT YES !«, t00=0x0007, t01=0x00d0}
0x0bd4…0bdc Head {h00=0x0004, h01=0x0050, t00=0x0007, t01=0x00ea}
0x0bdc…0c0e Head {h00=0x002e, h01=0x0050, text=» TBT DEPROMPT,ENTIRE JUMP IF ENTIRE FORMAT«, t00=0x0007, t01=0x00f2}
0x0c0e…0c2c Head {h00=0x001a, h01=0x0050, text=» SHOULD BE DIDELAYED«, t00=0x0007, t01=0x0124}
0x0c2c…0c36 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x0142}
0x0c36…0c58 Head {h00=0x001e, h01=0x0050, text=»* ONLY VARIABLE FIELDS «, t00=0x0007, t01=0x014c}
0x0c58…0c62 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x016e}
0x0c62…0c7a Head {h00=0x0014, h01=0x0050, text=» IB DEBINW2, C «, t00=0x0007, t01=0x0178}
0x0c7a…0c8e Head {h00=0x0010, h01=0x0050, text=» CLEARA, C«, t00=0x0007, t01=0x0190}
0x0c8e…0ca2 Head {h00=0x0010, h01=0x0050, text=» CLEARS, C«, t00=0x0008, t01=0x0014}
0x0ca2…0cb4 Head {h00=0x000e, h01=0x0050, text=» CONT, C«, t00=0x0008, t01=0x0028}
0x0cb4…0cc4 Head {h00=0x000c, h01=0x0050, text=» CLEARD«, t00=0x0008, t01=0x003a}
0x0cc4…0cce Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x004a}
0x0cce…0cdc Head {h00=0x000a, h01=0x0050, text=»CLEARA«, t00=0x0008, t01=0x0054}
0x0cdc…0d0a Head {h00=0x002a, h01=0x0050, text=» ERASE 2,W1,W0 ERASE ALL FROM 1 AND UP«, t00=0x0008, t01=0x0062}
0x0d0a…0d1a Head {h00=0x000c, h01=0x0050, text=» B CONT «, t00=0x0008, t01=0x0090}
0x0d1a…0d24 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x00a0}
0x0d24…0d32 Head {h00=0x000a, h01=0x0050, text=»CLEARS«, t00=0x0008, t01=0x00aa}
0x0d32…0d62 Head {h00=0x002c, h01=0x0050, text=» ERASE 5,W1,W0 ERASE SOME FROM 1 AND UP «, t00=0x0008, t01=0x00b8}
0x0d62…0d72 Head {h00=0x000c, h01=0x0050, text=» B CONT «, t00=0x0008, t01=0x00e8}
0x0d72…0d80 Head {h00=0x000a, h01=0x0050, text=»CLEARD«, t00=0x0008, t01=0x00f8}
0x0d80…0dae Head {h00=0x002a, h01=0x0050, text=» DISPLAY 3,W1,W0 DISPLAY FROM 1 AND UP«, t00=0x0008, t01=0x0106}
0x0dae…0dbe Head {h00=0x000c, h01=0x0050, text=» B CONT «, t00=0x0008, t01=0x0134}
0x0dbe…0dcc Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0008, t01=0x0144}
0x0dcc…0dd6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x0152}
0x0dd6…0df8 Head {h00=0x001e, h01=0x0050, text=»* DISPLAY ENTIRE FORMAT«, t00=0x0008, t01=0x015c}
0x0df8…0e02 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x017e}
0x0e02…0e10 Head {h00=0x000a, h01=0x0050, text=»ENTIRE«, t00=0x0008, t01=0x0188}
0x0e10…0e28 Head {h00=0x0014, h01=0x0050, text=» CLEAR DEPROMPT «, t00=0x0009, t01=0x0008}
0x0e28…0e44 Head {h00=0x0018, h01=0x0050, text=» IB DEBINW2, JUMP C «, t00=0x0009, t01=0x0020}
0x0e44…0e5a Head {h00=0x0012, h01=0x0050, text=» ECLRA, ON C «, t00=0x0009, t01=0x003c}
0x0e5a…0e74 Head {h00=0x0016, h01=0x0050, text=» ECLRS, ROUTINE C«, t00=0x0009, t01=0x0052}
0x0e74…0e8c Head {h00=0x0014, h01=0x0050, text=» ECLRN, INDEX C«, t00=0x0009, t01=0x006c}
0x0e8c…0e9c Head {h00=0x000c, h01=0x0050, text=» ECLRN «, t00=0x0009, t01=0x0084}
0x0e9c…0ea6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x0094}
0x0ea6…0ec6 Head {h00=0x001c, h01=0x0050, text=»* CLEAR ALL VARIABLES«, t00=0x0009, t01=0x009e}
0x0ec6…0ed0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x00be}
0x0ed0…0ede Head {h00=0x000a, h01=0x0050, text=»ECLRA «, t00=0x0009, t01=0x00c8}
0x0ede…0f0c Head {h00=0x002a, h01=0x0050, text=» ERASE 3,W1,W0 CLEAR ALL FROM 1 AND UP«, t00=0x0009, t01=0x00d6}
0x0f0c…0f20 Head {h00=0x0010, h01=0x0050, text=» IN MEMORY«, t00=0x0009, t01=0x0104}
0x0f20…0f3a Head {h00=0x0016, h01=0x0050, text=» B ECLRN CONTINUE «, t00=0x0009, t01=0x0118}
0x0f3a…0f44 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x0132}
0x0f44…0f66 Head {h00=0x001e, h01=0x0050, text=»* CLEAR SOME VARIABLES «, t00=0x0009, t01=0x013c}
0x0f66…0f70 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x015e}
0x0f70…0f7e Head {h00=0x000a, h01=0x0050, text=»ECLRS «, t00=0x0009, t01=0x0168}
0x0f7e…0fac Head {h00=0x002a, h01=0x0050, text=» ERASE 6,W1,W0 CLEAR SOME FIELDS FROM «, t00=0x0009, t01=0x0176}
0x0fac…0fca Head {h00=0x001a, h01=0x0050, text=» 1 AND UP IN MEMORY «, t00=0x000a, t01=0x0014}
0x0fca…0fd4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x0032}
0x0fd4…0ffe Head {h00=0x0026, h01=0x0050, text=»* CLEAR NO VARIABLES IN MEMORY «, t00=0x000a, t01=0x003c}
0x0ffe…1008 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x0066}
0x1008…1016 Head {h00=0x000a, h01=0x0050, text=»ECLRN «, t00=0x000a, t01=0x0070}
0x1016…1042 Head {h00=0x0028, h01=0x0050, text=» DISPLAY 0,W1,W0 DISPLAY ENTIRE FORM«, t00=0x000a, t01=0x007e}
0x1042…1050 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000a, t01=0x00aa}
0x1050…105a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x00b8}
0x105a…1066 Head {h00=0x0008, h01=0x0050, text=»CONT«, t00=0x000a, t01=0x00c2}
0x1066…1090 Head {h00=0x0026, h01=0x0050, text=» GETABX DEBINW4 GET CURRENT INDEX «, t00=0x000a, t01=0x00ce}
0x1090…10bc Head {h00=0x0028, h01=0x0050, text=» BL KTHOME JUMP IF NO CURRENT FIELD «, t00=0x000a, t01=0x00f8}
0x10bc…10ca Head {h00=0x000a, h01=0x0050, text=»CONT5 «, t00=0x000a, t01=0x0124}
0x10ca…1104 Head {h00=0x0036, h01=0x0050, text=» GETFLD 0,DEBINW4,DEBINW3 SEARCH CURRENT POSITION «, t00=0x000a, t01=0x0132}
0x1104…1126 Head {h00=0x001e, h01=0x0050, text=» BZ SETCREAD JUMP IF FOUND«, t00=0x000a, t01=0x016c}
0x1126…114c Head {h00=0x0022, h01=0x0050, text=» BL KTHOME POSITION NOT FOUND «, t00=0x000a, t01=0x018e}
0x114c…1156 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x0024}
0x1156…117a Head {h00=0x0020, h01=0x0050, text=»* COMPULSORY FIELD FOUND «, t00=0x000b, t01=0x002e}
0x117a…1184 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x0052}
0x1184…11ae Head {h00=0x0026, h01=0x0050, text=» MOVE DEBINW4,DEBINW3 CHANGE INDEX«, t00=0x000b, t01=0x005c}
0x11ae…11cc Head {h00=0x001a, h01=0x0050, text=» B CONT5 SEARCH AGAIN «, t00=0x000b, t01=0x0086}
0x11cc…11d6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x00a4}
0x11d6…11e4 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000b, t01=0x00ae}
0x11e4…11ee Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x00bc}
0x11ee…1218 Head {h00=0x0026, h01=0x0050, text=»* SET CURSOR AND READ KEYBOARD «, t00=0x000b, t01=0x00c6}
0x1218…1222 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x00f0}
0x1222…1232 Head {h00=0x000c, h01=0x0050, text=»SETCREAD«, t00=0x000b, t01=0x00fa}
0x1232…125e Head {h00=0x0028, h01=0x0050, text=» SETCUR SET CURSOR ON CURRENT FIELD«, t00=0x000b, t01=0x010a}
0x125e…1266 Head {h00=0x0004, h01=0x0050, t00=0x000b, t01=0x0136}
0x1266…1270 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x013e}
0x1270…129e Head {h00=0x002a, h01=0x0050, text=»* READ TO CURRENT FIELD ON DISPLAY «, t00=0x000b, t01=0x0148}
0x129e…12a8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x0176}
0x12a8…12b6 Head {h00=0x000a, h01=0x0050, text=»READIN«, t00=0x000b, t01=0x0180}
0x12b6…12dc Head {h00=0x0022, h01=0x0050, text=» PERF STPBLK ***STOP BLOCKING «, t00=0x000b, t01=0x018e}
0x12dc…130e Head {h00=0x002e, h01=0x0050, text=» DYKI DEINPUT,DEKTAB1,DEKTAB2,DEBINW1, C «, t00=0x000c, t01=0x0024}
0x130e…1328 Head {h00=0x0016, h01=0x0050, text=» DEBINW2,DEBINW4 «, t00=0x000c, t01=0x0056}
0x1328…1336 Head {h00=0x000a, h01=0x0050, text=»DYKOUT«, t00=0x000c, t01=0x0070}
0x1336…134e Head {h00=0x0014, h01=0x0050, text=» BL ERRPRT ERROR«, t00=0x000c, t01=0x007e}
0x134e…136e Head {h00=0x001c, h01=0x0050, text=» CBNL DEBINW2,W0,DYK100 «, t00=0x000c, t01=0x0096}
0x136e…137c Head {h00=0x000a, h01=0x0050, text=»DYK050«, t00=0x000c, t01=0x00b6}
0x137c…1394 Head {h00=0x0014, h01=0x0050, text=» MOVE DEBINW2,W2«, t00=0x000c, t01=0x00c4}
0x1394…13a6 Head {h00=0x000e, h01=0x0050, text=» B ERRCAN «, t00=0x000c, t01=0x00dc}
0x13a6…13b4 Head {h00=0x000a, h01=0x0050, text=»DYK100«, t00=0x000c, t01=0x00ee}
0x13b4…13d2 Head {h00=0x001a, h01=0x0050, text=» CBE DEBINW2,W0,ECLRN «, t00=0x000c, t01=0x00fc}
0x13d2…13fc Head {h00=0x0026, h01=0x0050, text=» CLEAR BOOL3 SETOFF DUPL-"SWITCH" «, t00=0x000c, t01=0x011a}
0x13fc…1414 Head {h00=0x0014, h01=0x0050, text=» KEY SWITCHES «, t00=0x000c, t01=0x0144}
0x1414…1440 Head {h00=0x0028, h01=0x0050, text=» IB DEBINW2,UPD300,CLEA20, JUMP ON C«, t00=0x000c, t01=0x015c}
0x1440…1462 Head {h00=0x001e, h01=0x0050, text=» UPDATE,ERRCAN,ERRCAN, C«, t00=0x000c, t01=0x0188}
0x1462…147c Head {h00=0x0016, h01=0x0050, text=» DUMMY,KTBWD, C «, t00=0x000d, t01=0x001a}
0x147c…14ae Head {h00=0x002e, h01=0x0050, text=» DUMMY,DUMMY,DUMMY,DUMMY,DUMMY,DUMMY, C «, t00=0x000d, t01=0x0034}
0x14ae…14ca Head {h00=0x0018, h01=0x0050, text=» KCOPY,KDUPL,KEDIT «, t00=0x000d, t01=0x0066}
0x14ca…14d8 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000d, t01=0x0082}
0x14d8…14e2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x0090}
0x14e2…151a Head {h00=0x0034, h01=0x0050, text=»* HANDLE THE RESPECTIVE KEY AS EOI-KEY FIRST «, t00=0x000d, t01=0x009a}
0x151a…1524 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x00d2}
0x1524…1532 Head {h00=0x000a, h01=0x0050, text=»UPDATE«, t00=0x000d, t01=0x00dc}
0x1532…1560 Head {h00=0x002a, h01=0x0050, text=» MOVE DEBINW4,W1 INDICATE COND. DIDEL «, t00=0x000d, t01=0x00ea}
0x1560…1588 Head {h00=0x0024, h01=0x0050, text=» GETCTL 0,DEBINW3 GET APPL-VALUE«, t00=0x000d, t01=0x0118}
0x1588…15bc Head {h00=0x0030, h01=0x0050, text=» CBE DEBINW3,W0,UPD250 JUMP IF NO APPL VALUE«, t00=0x000d, t01=0x0140}
0x15bc…15c6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x0174}
0x15c6…15f2 Head {h00=0x0028, h01=0x0050, text=»* APPL-VALUE DIFFERENT FROM ZERO «, t00=0x000d, t01=0x017e}
0x15f2…15fc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x001a}
0x15fc…1614 Head {h00=0x0014, h01=0x0050, text=»UPD240 PERF APP «, t00=0x000e, t01=0x0024}
0x1614…1640 Head {h00=0x0028, h01=0x0050, text=» IB DEBINW3,UPD260,SETCREAD,ERRPRINT«, t00=0x000e, t01=0x003c}
0x1640…1652 Head {h00=0x000e, h01=0x0050, text=» B UPD260 «, t00=0x000e, t01=0x0068}
0x1652…1660 Head {h00=0x000a, h01=0x0050, text=»UPD250«, t00=0x000e, t01=0x007a}
0x1660…1680 Head {h00=0x001c, h01=0x0050, text=» CBNE DEBINW1,W0,UPD260 «, t00=0x000e, t01=0x0088}
0x1680…169e Head {h00=0x001a, h01=0x0050, text=» MOVE DEINPUT,:FMTITEM«, t00=0x000e, t01=0x00a8}
0x169e…16ac Head {h00=0x000a, h01=0x0050, text=»UPD260«, t00=0x000e, t01=0x00c6}
0x16ac…16e2 Head {h00=0x0032, h01=0x0050, text=» TBT BOOL3,UPD300 JUMP IF DUPL OF OUTPUT UNIT «, t00=0x000e, t01=0x00d4}
0x16e2…1708 Head {h00=0x0022, h01=0x0050, text=» (UPDFLD ALREADY PERFORMED!)«, t00=0x000e, t01=0x010a}
0x1708…173c Head {h00=0x0030, h01=0x0050, text=» UPDFLD 0,DEINPUT UPDATE FIELD DISPL. COND. «, t00=0x000e, t01=0x0130}
0x173c…1766 Head {h00=0x0026, h01=0x0050, text=» CLEAR BOOL3 SETOFF DUPL-"SWITCH" «, t00=0x000e, t01=0x0164}
0x1766…1798 Head {h00=0x002e, h01=0x0050, text=»UPD300 SET DECHANGE INDICATE CHANGED ITEM «, t00=0x000e, t01=0x018e}
0x1798…17c0 Head {h00=0x0024, h01=0x0050, text=»* JUMP ON FUNCTION KEY INDEX «, t00=0x000f, t01=0x0030}
0x17c0…17e4 Head {h00=0x0020, h01=0x0050, text=» IB DEBINW2,KTFWD,DUMMY, C «, t00=0x000f, t01=0x0058}
0x17e4…1808 Head {h00=0x0020, h01=0x0050, text=» KEOI,DUMMY,DUMMY,KTFWD, C«, t00=0x000f, t01=0x007c}
0x1808…1834 Head {h00=0x0028, h01=0x0050, text=» DUMMY,DUMMY,DUMMY,DUMMY,DUMMY, C «, t00=0x000f, t01=0x00a0}
0x1834…1860 Head {h00=0x0028, h01=0x0050, text=» DUMMY,DUMMY,DUMMY,DUMMY,DUMMY, C «, t00=0x000f, t01=0x00cc}
0x1860…1870 Head {h00=0x000c, h01=0x0050, text=» KENTER«, t00=0x000f, t01=0x00f8}
0x1870…189e Head {h00=0x002a, h01=0x0050, text=» SUB DEBINW2,W14 ADJUST EOI-KEY INDEX «, t00=0x000f, t01=0x0108}
0x189e…18ae Head {h00=0x000c, h01=0x0050, text=» B RETUR«, t00=0x000f, t01=0x0136}
0x18ae…18bc Head {h00=0x000a, h01=0x0050, text=»RETUR1«, t00=0x000f, t01=0x0146}
0x18bc…18e4 Head {h00=0x0024, h01=0x0050, text=» SUB DEBINW2,W1 ADJUST KEY INDEX«, t00=0x000f, t01=0x0154}
0x18e4…18f2 Head {h00=0x000a, h01=0x0050, text=»DUMMY «, t00=0x000f, t01=0x017c}
0x18f2…1900 Head {h00=0x000a, h01=0x0050, text=»RETUR «, t00=0x000f, t01=0x018a}
0x1900…1918 Head {h00=0x0014, h01=0x0050, text=» CLEAR DENOCHAN «, t00=0x0010, t01=0x0008}
0x1918…1924 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0010, t01=0x0020}
0x1924…192e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x002c}
0x192e…193c Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0010, t01=0x0036}
0x193c…1962 Head {h00=0x0022, h01=0x0050, text=»KEOI COMMON END-OF-ITEM KEY «, t00=0x0010, t01=0x0044}
0x1962…1986 Head {h00=0x0020, h01=0x0050, text=»KTFWD TAB. FORWARD 1 STEP «, t00=0x0010, t01=0x006a}
0x1986…1994 Head {h00=0x000a, h01=0x0050, text=» TFWD «, t00=0x0010, t01=0x008e}
0x1994…19a6 Head {h00=0x000e, h01=0x0050, text=» B TSTTAB «, t00=0x0010, t01=0x009c}
0x19a6…19b0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x00ae}
0x19b0…19d8 Head {h00=0x0024, h01=0x0050, text=»KTBWD TABULATION 1 STEP BACKW.«, t00=0x0010, t01=0x00b8}
0x19d8…19e6 Head {h00=0x000a, h01=0x0050, text=» TBWD «, t00=0x0010, t01=0x00e0}
0x19e6…19f8 Head {h00=0x000e, h01=0x0050, text=» B TSTTAB «, t00=0x0010, t01=0x00ee}
0x19f8…1a02 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x0100}
0x1a02…1a28 Head {h00=0x0022, h01=0x0050, text=»KTHOME TAB. TO HOME POSITION«, t00=0x0010, t01=0x010a}
0x1a28…1a36 Head {h00=0x000a, h01=0x0050, text=» THOME«, t00=0x0010, t01=0x0130}
0x1a36…1a48 Head {h00=0x000e, h01=0x0050, text=» B TSTTAB «, t00=0x0010, t01=0x013e}
0x1a48…1a52 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x0150}
0x1a52…1a5a Head {h00=0x0004, h01=0x0050, t00=0x0010, t01=0x015a}
0x1a5a…1a7a Head {h00=0x001c, h01=0x0050, text=»TSTTAB TEST TAB OUTPUT«, t00=0x0010, t01=0x0162}
0x1a7a…1a90 Head {h00=0x0012, h01=0x0050, text=» BE READIN OK «, t00=0x0010, t01=0x0182}
0x1a90…1aa4 Head {h00=0x0010, h01=0x0050, text=» B SETCREAD «, t00=0x0011, t01=0x0008}
0x1aa4…1ab2 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0011, t01=0x001c}
0x1ab2…1acc Head {h00=0x0016, h01=0x0050, text=»KCOPY HARD COPY «, t00=0x0011, t01=0x002a}
0x1acc…1ae4 Head {h00=0x0014, h01=0x0050, text=» MOVE DEBINW3,W1«, t00=0x0011, t01=0x0044}
0x1ae4…1b06 Head {h00=0x001e, h01=0x0050, text=» PRINT DEDSPRT,DEBINW3,W0 «, t00=0x0011, t01=0x005c}
0x1b06…1b14 Head {h00=0x000a, h01=0x0050, text=»KCOP10«, t00=0x0011, t01=0x007e}
0x1b14…1b3c Head {h00=0x0024, h01=0x0050, text=» B SETCREAD SET CURSOR AND READ «, t00=0x0011, t01=0x008c}
0x1b3c…1b46 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x00b4}
0x1b46…1b62 Head {h00=0x0018, h01=0x0050, text=»KDUPL DUPLICATION «, t00=0x0011, t01=0x00be}
0x1b62…1b92 Head {h00=0x002c, h01=0x0050, text=» MOVE DEBINW2,W3 INDICATE COMMON EOI-KEY«, t00=0x0011, t01=0x00da}
0x1b92…1bb4 Head {h00=0x001e, h01=0x0050, text=» DUPL DEINPUT DUPLICATION «, t00=0x0011, t01=0x010a}
0x1bb4…1bd8 Head {h00=0x0020, h01=0x0050, text=» BNZ KDU500 DUPL NOT ALLOWED«, t00=0x0011, t01=0x012c}
0x1bd8…1c06 Head {h00=0x002a, h01=0x0050, text=» MOVE DEBINW4,W1 INDICATE COND. DIDEL «, t00=0x0011, t01=0x0150}
0x1c06…1c2e Head {h00=0x0024, h01=0x0050, text=» GETCTL 0,DEBINW3 GET APPL-VALUE«, t00=0x0011, t01=0x017e}
0x1c2e…1c70 Head {h00=0x003e, h01=0x0050, text=» CBNE DEBINW3,W10,UPD260 JUMP IF APPL VALUE DIFF. FROM 10 «, t00=0x0012, t01=0x0016}
0x1c70…1c96 Head {h00=0x0022, h01=0x0050, text=» UPDFLD 0,DEINPUT UPDATE FIELD«, t00=0x0012, t01=0x0058}
0x1c96…1cc4 Head {h00=0x002a, h01=0x0050, text=» SET BOOL3 PERFORM APPLICATION ROUTINE«, t00=0x0012, t01=0x007e}
0x1cc4…1cd6 Head {h00=0x000e, h01=0x0050, text=» B UPD240 «, t00=0x0012, t01=0x00ac}
0x1cd6…1ce4 Head {h00=0x000a, h01=0x0050, text=»KDU500«, t00=0x0012, t01=0x00be}
0x1ce4…1d16 Head {h00=0x002e, h01=0x0050, text=» MOVE DEBINW4,W0 INDICATE ILLEGAL EOI-KEY «, t00=0x0012, t01=0x00cc}
0x1d16…1d3a Head {h00=0x0020, h01=0x0050, text=» B ERRPRINT DUPL NOT ALLOWED«, t00=0x0012, t01=0x00fe}
0x1d3a…1d48 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0012, t01=0x0122}
0x1d48…1d52 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x0130}
0x1d52…1d6a Head {h00=0x0014, h01=0x0050, text=»* EDIT FIELD «, t00=0x0012, t01=0x013a}
0x1d6a…1d74 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x0152}
0x1d74…1d82 Head {h00=0x000a, h01=0x0050, text=»KEDITX«, t00=0x0012, t01=0x015c}
0x1d82…1d9a Head {h00=0x0014, h01=0x0050, text=» MOVE DEBINW1,W1«, t00=0x0012, t01=0x016a}
0x1d9a…1da8 Head {h00=0x000a, h01=0x0050, text=»KEDIT «, t00=0x0012, t01=0x0182}
0x1da8…1dca Head {h00=0x001e, h01=0x0050, text=» GETCTL 1,DEBINW3 GET MAXL«, t00=0x0012, t01=0x0190}
0x1dca…1dea Head {h00=0x001c, h01=0x0050, text=» CBNE DEBINW3,W0,KED100 «, t00=0x0013, t01=0x0022}
0x1dea…1e0e Head {h00=0x0020, h01=0x0050, text=» PERF BUZZER ACOUSTIC ALARM «, t00=0x0013, t01=0x0042}
0x1e0e…1e22 Head {h00=0x0010, h01=0x0050, text=» B SETCREAD «, t00=0x0013, t01=0x0066}
0x1e22…1e30 Head {h00=0x000a, h01=0x0050, text=»KED100«, t00=0x0013, t01=0x007a}
0x1e30…1e5a Head {h00=0x0026, h01=0x0050, text=» EDFLD DEINPUT,DEKTAB3,DEBINW1, C«, t00=0x0013, t01=0x0088}
0x1e5a…1e74 Head {h00=0x0016, h01=0x0050, text=» DEBINW2,DEBINW4 «, t00=0x0013, t01=0x00b2}
0x1e74…1e9a Head {h00=0x0022, h01=0x0050, text=» B DYKOUT CONTINUE AS FOR DYKI«, t00=0x0013, t01=0x00cc}
0x1e9a…1ea4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x00f2}
0x1ea4…1ebe Head {h00=0x0016, h01=0x0050, text=»* ERASE KEY «, t00=0x0013, t01=0x00fc}
0x1ebe…1ec8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x0116}
0x1ec8…1ed6 Head {h00=0x000a, h01=0x0050, text=»KERASE«, t00=0x0013, t01=0x0120}
0x1ed6…1eee Head {h00=0x0014, h01=0x0050, text=» GETABX DEBINW4 «, t00=0x0013, t01=0x012e}
0x1eee…1f0a Head {h00=0x0018, h01=0x0050, text=» ERASE 2,DEBINW4,W0 «, t00=0x0013, t01=0x0146}
0x1f0a…1f14 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x0162}
0x1f14…1f2a Head {h00=0x0012, h01=0x0050, text=»* ENTER KEY«, t00=0x0013, t01=0x016c}
0x1f2a…1f34 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x0182}
0x1f34…1f42 Head {h00=0x000a, h01=0x0050, text=»KKEEP «, t00=0x0013, t01=0x018c}
0x1f42…1f50 Head {h00=0x000a, h01=0x0050, text=»KENTER«, t00=0x0014, t01=0x000a}
0x1f50…1f82 Head {h00=0x002e, h01=0x0050, text=» MOVE DEBINW4,W5 INDICATE COMP.FIELD FOUND«, t00=0x0014, t01=0x0018}
0x1f82…1fb0 Head {h00=0x002a, h01=0x0050, text=» MOVE DEBINW1,W0 INDICATE NO CLEARING «, t00=0x0014, t01=0x004a}
0x1fb0…1ff0 Head {h00=0x003c, h01=0x0050, text=» GETFLD 0,DEBINW1,DEBINW3 SEARCH FOR EMPTY COMP. FIELDS «, t00=0x0014, t01=0x0078}
0x1ff0…201c Head {h00=0x0028, h01=0x0050, text=» BOFL KENT10 EMPTY COMP. FIELD FOUND«, t00=0x0014, t01=0x00b8}
0x201c…2046 Head {h00=0x0026, h01=0x0050, text=» TSTCTL 2 LOOK IF COMPULSORY FIELD«, t00=0x0014, t01=0x00e4}
0x2046…205c Head {h00=0x0012, h01=0x0050, text=» BZ KENT05 NO!«, t00=0x0014, t01=0x010e}
0x205c…208e Head {h00=0x002e, h01=0x0050, text=» CALL EMPTYT,:FMTITEM LOOK IF EMPTY FIELD «, t00=0x0014, t01=0x0124}
0x208e…20a6 Head {h00=0x0014, h01=0x0050, text=» BP KENT10 YES! «, t00=0x0014, t01=0x0156}
0x20a6…20b4 Head {h00=0x000a, h01=0x0050, text=»KENT05«, t00=0x0014, t01=0x016e}
0x20b4…20d2 Head {h00=0x001a, h01=0x0050, text=» CBE DEBINW2,W9,KCOP10«, t00=0x0014, t01=0x017c}
0x20d2…20f2 Head {h00=0x001c, h01=0x0050, text=» CBE DEBINW2,W10,KCOP10 «, t00=0x0015, t01=0x000a}
0x20f2…2128 Head {h00=0x0032, h01=0x0050, text=» MOVE DEBINW2,W3 INDICATE ENTER KEY DEPRESSED «, t00=0x0015, t01=0x002a}
0x2128…2134 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0015, t01=0x0060}
0x2134…213e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x006c}
0x213e…2168 Head {h00=0x0026, h01=0x0050, text=»* EMPTY COMPULSORY FIELD FOUND «, t00=0x0015, t01=0x0076}
0x2168…2172 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x00a0}
0x2172…2180 Head {h00=0x000a, h01=0x0050, text=»KENT10«, t00=0x0015, t01=0x00aa}
0x2180…2198 Head {h00=0x0014, h01=0x0050, text=» MOVE DEBINW2,W0«, t00=0x0015, t01=0x00b8}
0x2198…21d2 Head {h00=0x0036, h01=0x0050, text=» GETFLD 0,DEBINW3,DEBINW2 GET THE COMPULSORY FIELD«, t00=0x0015, t01=0x00d0}
0x21d2…21ea Head {h00=0x0014, h01=0x0050, text=» MOVE DEBINW1,W0«, t00=0x0015, t01=0x010a}
0x21ea…21f8 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0015, t01=0x0122}
0x21f8…2206 Head {h00=0x000a, h01=0x0050, text=»ERRPRT«, t00=0x0015, t01=0x0130}
0x2206…2232 Head {h00=0x0028, h01=0x0050, text=» CBE DEBINW2,W16,KEDIT JUMP IF EDIT «, t00=0x0015, t01=0x013e}
0x2232…2262 Head {h00=0x002c, h01=0x0050, text=» CBE DEBINW2,W4,ERRCAN JUMP IF ERRCANEL1«, t00=0x0015, t01=0x016a}
0x2262…2292 Head {h00=0x002c, h01=0x0050, text=» CBE DEBINW2,W5,ERRCAN JUMP IF ERRCANEL2«, t00=0x0016, t01=0x000a}
0x2292…22b2 Head {h00=0x001c, h01=0x0050, text=» XSTAT DEDSDYKB,DEBINW3 «, t00=0x0016, t01=0x003a}
0x22b2…22d0 Head {h00=0x001a, h01=0x0050, text=» CALL MASK,DEBINW3,W64«, t00=0x0016, t01=0x005a}
0x22d0…22e4 Head {h00=0x0010, h01=0x0050, text=» BNZ DYK050 «, t00=0x0016, t01=0x0078}
0x22e4…22ee Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0016, t01=0x008c}
0x22ee…22f8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0016, t01=0x0096}
0x22f8…2308 Head {h00=0x000c, h01=0x0050, text=»ERRPRINT«, t00=0x0016, t01=0x00a0}
0x2308…2324 Head {h00=0x0018, h01=0x0050, text=» PERF DERROR,DEKTAB4«, t00=0x0016, t01=0x00b0}
0x2324…2356 Head {h00=0x002e, h01=0x0050, text=» IB DEBINW2,SETCREAD,RETUR2,RETUR2,KEDITX «, t00=0x0016, t01=0x00cc}
0x2356…236a Head {h00=0x0010, h01=0x0050, text=» B SETCREAD «, t00=0x0016, t01=0x00fe}
0x236a…2374 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0016, t01=0x0112}
0x2374…2394 Head {h00=0x001c, h01=0x0050, text=»* CLEAR LAST LINE «, t00=0x0016, t01=0x011c}
0x2394…239e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0016, t01=0x013c}
0x239e…23b6 Head {h00=0x0014, h01=0x0050, text=»ERRCAN PERF CANC«, t00=0x0016, t01=0x0146}
0x23b6…23dc Head {h00=0x0022, h01=0x0050, text=» IB DEBINW2,SETCREAD,SETCREAD «, t00=0x0016, t01=0x015e}
0x23dc…240e Head {h00=0x002e, h01=0x0050, text=» SUB DEBINW2,W3 ADJUST FOR CANCEL1,CANCEL2«, t00=0x0016, t01=0x0184}
0x240e…241a Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0017, t01=0x0026}
0x241a…2428 Head {h00=0x000a, h01=0x0050, text=»CLEA20«, t00=0x0017, t01=0x0032}
0x2428…2456 Head {h00=0x002a, h01=0x0050, text=» GETABX DEBINW4 GET CURRENT TAB INDEX «, t00=0x0017, t01=0x0040}
0x2456…2486 Head {h00=0x002c, h01=0x0050, text=» DISPLAY 1,DEBINW4,DEBINW4 DISPLAY FIELD«, t00=0x0017, t01=0x006e}
0x2486…24a2 Head {h00=0x0018, h01=0x0050, text=» B SETCREAD CONTINUE«, t00=0x0017, t01=0x009e}
0x24a2…24ac Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0017, t01=0x00ba}
0x24ac…24ba Head {h00=0x000a, h01=0x0050, text=»RETUR2«, t00=0x0017, t01=0x00c4}
0x24ba…24d2 Head {h00=0x0014, h01=0x0050, text=» SUB DEBINW2,W1 «, t00=0x0017, t01=0x00d2}
0x24d2…24de Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0017, t01=0x00ea}
0x24de…24ec Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0017, t01=0x00f6}
0x24ec…24fa Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0017, t01=0x0104}
0x24fa…2512 Head {h00=0x0014, h01=0x0050, text=»DERROR PROC KEYT«, t00=0x0017, t01=0x0112}
0x2512…2526 Head {h00=0x0010, h01=0x0050, text=» PKTAB KEYT «, t00=0x0017, t01=0x012a}
0x2526…256e Head {h00=0x0044, h01=0x0050, text=»*************************************************************** «, t00=0x0017, t01=0x013e}
0x256e…25b6 Head {h00=0x0044, h01=0x0050, text=»* * «, t00=0x0017, t01=0x0186}
0x25b6…25fe Head {h00=0x0044, h01=0x0050, text=»* ERROR HANDLING * «, t00=0x0018, t01=0x003e}
0x25fe…2646 Head {h00=0x0044, h01=0x0050, text=»* * «, t00=0x0018, t01=0x0086}
0x2646…268e Head {h00=0x0044, h01=0x0050, text=»*************************************************************** «, t00=0x0018, t01=0x00ce}
0x268e…2696 Head {h00=0x0004, h01=0x0050, t00=0x0018, t01=0x0116}
0x2696…26bc Head {h00=0x0022, h01=0x0050, text=» PERF STPBLK ***PUT CURSOR ON «, t00=0x0018, t01=0x011e}
0x26bc…26e6 Head {h00=0x0026, h01=0x0050, text=» MOVE DEBINW3,=X'0101' ASSUME VD82«, t00=0x0018, t01=0x0144}
0x26e6…2710 Head {h00=0x0026, h01=0x0050, text=» TBT VD82,DERR02 IF VD82 => BRANCH«, t00=0x0018, t01=0x016e}
0x2710…2742 Head {h00=0x002e, h01=0x0050, text=» MOVE DEBINW3,=X'1801' ELSE MSG ON LINE 24«, t00=0x0019, t01=0x0008}
0x2742…274a Head {h00=0x0004, h01=0x0050, t00=0x0019, t01=0x003a}
0x274a…277c Head {h00=0x002e, h01=0x0050, text=»DERR02 MOVE DEBINW2,W1 INDICATE CLEAR-KEY «, t00=0x0019, t01=0x0042}
0x277c…27a0 Head {h00=0x0020, h01=0x0050, text=» PERF BUZZER ACOUSTIC ALARM «, t00=0x0019, t01=0x0074}
0x27a0…27b8 Head {h00=0x0014, h01=0x0050, text=» CMP DEBINW4,W0 «, t00=0x0019, t01=0x0098}
0x27b8…27ca Head {h00=0x000e, h01=0x0050, text=» BZ DERR99«, t00=0x0019, t01=0x00b0}
0x27ca…27dc Head {h00=0x000e, h01=0x0050, text=» BP DERR03«, t00=0x0019, t01=0x00c2}
0x27dc…27f8 Head {h00=0x0018, h01=0x0050, text=» ADD DEBINW4,=W'51' «, t00=0x0019, t01=0x00d4}
0x27f8…2806 Head {h00=0x000a, h01=0x0050, text=»DERR03«, t00=0x0019, t01=0x00f0}
0x2806…2840 Head {h00=0x0036, h01=0x0050, text=» DSC1 DEDSSYSL,6,DEBINW3 SET CURSOR ON MESSAGE ROW«, t00=0x0019, t01=0x00fe}
0x2840…2862 Head {h00=0x001e, h01=0x0050, text=» CBL DEBINW4,=W'50',DERR04«, t00=0x0019, t01=0x0138}
0x2862…287a Head {h00=0x0014, h01=0x0050, text=» MOVE DEBINW4,W2«, t00=0x0019, t01=0x015a}
0x287a…28c2 Head {h00=0x0044, h01=0x0050, text=»*************************************************************** «, t00=0x0019, t01=0x0172}
0x28c2…290a Head {h00=0x0044, h01=0x0050, text=»* * «, t00=0x001a, t01=0x002a}
0x290a…2952 Head {h00=0x0044, h01=0x0050, text=»* WRITE MESSAGE * «, t00=0x001a, t01=0x0072}
0x2952…299a Head {h00=0x0044, h01=0x0050, text=»* * «, t00=0x001a, t01=0x00ba}
0x299a…29e2 Head {h00=0x0044, h01=0x0050, text=»*************************************************************** «, t00=0x001a, t01=0x0102}
0x29e2…29ea Head {h00=0x0004, h01=0x0050, t00=0x001a, t01=0x014a}
0x29ea…29f8 Head {h00=0x000a, h01=0x0050, text=»DERR04«, t00=0x001a, t01=0x0152}
0x29f8…2a22 Head {h00=0x0026, h01=0x0050, text=» EDWRT DEDSSYSL,DEFTBERR(DEBINW4) «, t00=0x001a, t01=0x0160}
0x2a22…2a30 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x001a, t01=0x018a}
0x2a30…2a78 Head {h00=0x0044, h01=0x0050, text=»*************************************************************** «, t00=0x001b, t01=0x0008}
0x2a78…2ac0 Head {h00=0x0044, h01=0x0050, text=»* * «, t00=0x001b, t01=0x0050}
0x2ac0…2b08 Head {h00=0x0044, h01=0x0050, text=»* READ KEYBOARD FOR OPERATOR ACKNOWLEDGMENT * «, t00=0x001b, t01=0x0098}
0x2b08…2b50 Head {h00=0x0044, h01=0x0050, text=»* * «, t00=0x001b, t01=0x00e0}
0x2b50…2b98 Head {h00=0x0044, h01=0x0050, text=»*************************************************************** «, t00=0x001b, t01=0x0128}
0x2b98…2ba0 Head {h00=0x0004, h01=0x0050, t00=0x001b, t01=0x0170}
0x2ba0…2bcc Head {h00=0x0028, h01=0x0050, text=» SETCUR SET CURSOR AT THE BEGINNING«, t00=0x001b, t01=0x0178}
0x2bcc…2bec Head {h00=0x001c, h01=0x0050, text=» OF THE CURRENT FIELD «, t00=0x001c, t01=0x0014}
0x2bec…2c10 Head {h00=0x0020, h01=0x0050, text=» B DERR15 NO BELL FIRST TIME«, t00=0x001c, t01=0x0034}
0x2c10…2c1e Head {h00=0x000a, h01=0x0050, text=»DERR10«, t00=0x001c, t01=0x0058}
0x2c1e…2c42 Head {h00=0x0020, h01=0x0050, text=» PERF BUZZER ACOUSTIC ALARM «, t00=0x001c, t01=0x0066}
0x2c42…2c50 Head {h00=0x000a, h01=0x0050, text=»DERR15«, t00=0x001c, t01=0x008a}
0x2c50…2c7a Head {h00=0x0026, h01=0x0050, text=» MOVE DEBINW3,W1 REQUESTED LENGTH «, t00=0x001c, t01=0x0098}
0x2c7a…2cae Head {h00=0x0030, h01=0x0050, text=» NKI .NE,DEDSDYKB,STR1A,KEYT,DEBINW3,DEBINW2«, t00=0x001c, t01=0x00c2}
0x2cae…2cc2 Head {h00=0x0010, h01=0x0050, text=» BNOK DERR10«, t00=0x001c, t01=0x00f6}
0x2cc2…2ce2 Head {h00=0x001c, h01=0x0050, text=» CBNE DEBINW2,W0,DERR20 «, t00=0x001c, t01=0x010a}
0x2ce2…2cfa Head {h00=0x0014, h01=0x0050, text=» DISPLAY 0,W1,W0«, t00=0x001c, t01=0x012a}
0x2cfa…2d0c Head {h00=0x000e, h01=0x0050, text=» B DERR03 «, t00=0x001c, t01=0x0142}
0x2d0c…2d1a Head {h00=0x000a, h01=0x0050, text=»DERR20«, t00=0x001c, t01=0x0154}
0x2d1a…2d44 Head {h00=0x0026, h01=0x0050, text=» MOVE DEBINW3,=X'0101' ASSUME VD82«, t00=0x001c, t01=0x0162}
0x2d44…2d72 Head {h00=0x002a, h01=0x0050, text=» TBT VD82,DERR25 IF VD82 => BRANCH... «, t00=0x001c, t01=0x018c}
0x2d72…2dac Head {h00=0x0036, h01=0x0050, text=» MOVE DEBINW3,=X'1801' ...ELSE USE LINE 24 (VD46) «, t00=0x001d, t01=0x002a}
0x2dac…2dd8 Head {h00=0x0028, h01=0x0050, text=»DERR25 IB DEBINW2,DERR30,DERR30, C «, t00=0x001d, t01=0x0064}
0x2dd8…2df0 Head {h00=0x0014, h01=0x0050, text=» DERR30,DERR40 «, t00=0x001d, t01=0x0090}
0x2df0…2e0a Head {h00=0x0016, h01=0x0050, text=» B DERR10 CONTINUE«, t00=0x001d, t01=0x00a8}
0x2e0a…2e12 Head {h00=0x0004, h01=0x0050, t00=0x001d, t01=0x00c2}
0x2e12…2e5a Head {h00=0x0044, h01=0x0050, text=»*************************************************************** «, t00=0x001d, t01=0x00ca}
0x2e5a…2ea2 Head {h00=0x0044, h01=0x0050, text=»* * «, t00=0x001d, t01=0x0112}
0x2ea2…2eea Head {h00=0x0044, h01=0x0050, text=»* CLEAR MESSAGE LINE AFTER OPERATOR ACKNOWLIGMENT * «, t00=0x001d, t01=0x015a}
0x2eea…2f32 Head {h00=0x0044, h01=0x0050, text=»* * «, t00=0x001e, t01=0x0012}
0x2f32…2f7a Head {h00=0x0044, h01=0x0050, text=»*************************************************************** «, t00=0x001e, t01=0x005a}
0x2f7a…2f82 Head {h00=0x0004, h01=0x0050, t00=0x001e, t01=0x00a2}
0x2f82…2f90 Head {h00=0x000a, h01=0x0050, text=»DERR30«, t00=0x001e, t01=0x00aa}
0x2f90…2fc8 Head {h00=0x0034, h01=0x0050, text=» DSC1 DEDSSYSL,6,DEBINW3 SET CURSOR ON MSG LINE «, t00=0x001e, t01=0x00b8}
0x2fc8…2ffa Head {h00=0x002e, h01=0x0050, text=» DSC1 DEDSSYSL,2,W80 ERASE CURRENT MESSAGE«, t00=0x001e, t01=0x00f0}
0x2ffa…300c Head {h00=0x000e, h01=0x0050, text=» PERF CANC«, t00=0x001e, t01=0x0122}
0x300c…301e Head {h00=0x000e, h01=0x0050, text=» B DERR99 «, t00=0x001e, t01=0x0134}
0x301e…302c Head {h00=0x000a, h01=0x0050, text=»DERR40«, t00=0x001e, t01=0x0146}
0x302c…304a Head {h00=0x001a, h01=0x0050, text=» CBE DEBINW1,W0,DERR10«, t00=0x001e, t01=0x0154}
0x304a…3082 Head {h00=0x0034, h01=0x0050, text=» DSC1 DEDSSYSL,6,DEBINW3 SET CURSOR ON MSG LINE «, t00=0x001e, t01=0x0172}
0x3082…30b4 Head {h00=0x002e, h01=0x0050, text=» DSC1 DEDSSYSL,2,W80 ERASE CURRENT MESSAGE«, t00=0x001f, t01=0x001a}
0x30b4…30c2 Head {h00=0x000a, h01=0x0050, text=»DERR99«, t00=0x001f, t01=0x004c}
0x30c2…30ce Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x001f, t01=0x005a}
0x30ce…30dc Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x001f, t01=0x0066}
0x30dc…30ea Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x001f, t01=0x0074}
0x30ea…30fc Head {h00=0x000e, h01=0x0050, text=»CANC PROC «, t00=0x001f, t01=0x0082}
0x30fc…3118 Head {h00=0x0018, h01=0x0050, text=» MOVE DEINPUT,HEX00 «, t00=0x001f, t01=0x0094}
0x3118…314c Head {h00=0x0030, h01=0x0050, text=» MOVE DEINPUT,:FMTITEM SAVE CURRENT CONTENTS«, t00=0x001f, t01=0x00b0}
0x314c…317e Head {h00=0x002e, h01=0x0050, text=» CBE DEBINW1,W0,CANC10 JUMP IF LENGTH = 0 «, t00=0x001f, t01=0x00e4}
0x317e…319c Head {h00=0x001a, h01=0x0050, text=» MOVE STATSH,=X'3100' «, t00=0x001f, t01=0x0116}
0x319c…31d4 Head {h00=0x0034, h01=0x0050, text=» MOVE :FMTITEM,STATSH PUT SOMETHING IN THE FIELD«, t00=0x001f, t01=0x0134}
0x31d4…31fe Head {h00=0x0026, h01=0x0050, text=» GETABX DEBINW4 GET CURRENT INDEX «, t00=0x001f, t01=0x016c}
0x31fe…322c Head {h00=0x002a, h01=0x0050, text=» ERASE 10,DEBINW4,DEBINW4 CLEAR FIELD «, t00=0x0020, t01=0x0008}
0x322c…323a Head {h00=0x000a, h01=0x0050, text=»CANC10«, t00=0x0020, t01=0x0036}
0x323a…325c Head {h00=0x001e, h01=0x0050, text=» IB DEBINW2,CLEAR1,CLEAR2 «, t00=0x0020, t01=0x0044}
0x325c…326a Head {h00=0x000a, h01=0x0050, text=»CANC15«, t00=0x0020, t01=0x0066}
0x326a…32a2 Head {h00=0x0034, h01=0x0050, text=» MOVE :FMTITEM,DEINPUT RESTORE CURRENT CONTENTS «, t00=0x0020, t01=0x0074}
0x32a2…32ae Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0020, t01=0x00ac}
0x32ae…32bc Head {h00=0x000a, h01=0x0050, text=»CLEAR1«, t00=0x0020, t01=0x00b8}
0x32bc…32ee Head {h00=0x002e, h01=0x0050, text=» CBE DEBINW1,W0,CANC15 JUMP IF LENGTH = 0 «, t00=0x0020, t01=0x00c6}
0x32ee…331a Head {h00=0x0028, h01=0x0050, text=» SET DECHANGE INDICATE CHANGED FIELD«, t00=0x0020, t01=0x00f8}
0x331a…3334 Head {h00=0x0016, h01=0x0050, text=» B CANC15 CONTINUE«, t00=0x0020, t01=0x0124}
0x3334…333e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0020, t01=0x013e}
0x333e…334c Head {h00=0x000a, h01=0x0050, text=»CLEAR2«, t00=0x0020, t01=0x0148}
0x334c…336a Head {h00=0x001a, h01=0x0050, text=» CBE DEBINW1,W0,CANC15«, t00=0x0020, t01=0x0156}
0x336a…33a2 Head {h00=0x0034, h01=0x0050, text=» MOVE :FMTITEM,DEINPUT RESTORE CURRENT CONTENTS «, t00=0x0020, t01=0x0174}
0x33a2…33d0 Head {h00=0x002a, h01=0x0050, text=» GETABX DEBINW4 GET CURRENT TAB INDEX «, t00=0x0021, t01=0x001c}
0x33d0…3400 Head {h00=0x002c, h01=0x0050, text=» DISPLAY 1,DEBINW4,DEBINW4 DISPLAY FIELD«, t00=0x0021, t01=0x004a}
0x3400…340c Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0021, t01=0x007a}
0x340c…341a Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0021, t01=0x0086}
0x341a…3428 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0021, t01=0x0094}
0x3428…3452 Head {h00=0x0026, h01=0x0050, text=»**********************************«, t00=0x0021, t01=0x00a2}
0x3452…347c Head {h00=0x0026, h01=0x0050, text=»* *«, t00=0x0021, t01=0x00cc}
0x347c…34a6 Head {h00=0x0026, h01=0x0050, text=»* ACTIVATE KEYBOARD BUZZER *«, t00=0x0021, t01=0x00f6}
0x34a6…34d0 Head {h00=0x0026, h01=0x0050, text=»* *«, t00=0x0021, t01=0x0120}
0x34d0…34fa Head {h00=0x0026, h01=0x0050, text=»* DESTROYED: BIN13 *«, t00=0x0021, t01=0x014a}
0x34fa…3524 Head {h00=0x0026, h01=0x0050, text=»* *«, t00=0x0021, t01=0x0174}
0x3524…354e Head {h00=0x0026, h01=0x0050, text=»* *«, t00=0x0022, t01=0x000e}
0x354e…3578 Head {h00=0x0026, h01=0x0050, text=»**********************************«, t00=0x0022, t01=0x0038}
0x3578…3580 Head {h00=0x0004, h01=0x0050, t00=0x0022, t01=0x0062}
0x3580…3594 Head {h00=0x0010, h01=0x0050, text=»BUZZER PROC «, t00=0x0022, t01=0x006a}
0x3594…359c Head {h00=0x0004, h01=0x0050, t00=0x0022, t01=0x007e}
0x359c…35d0 Head {h00=0x0030, h01=0x0050, text=» MOVE BIN13,=X'4F' F.C. FOR KEYBOARD BUZZER «, t00=0x0022, t01=0x0086}
0x35d0…3614 Head {h00=0x0040, h01=0x0050, text=» CALL CHANFC,DEDSSYSL,BIN13 CHANGE F.C. TO KEY BOARD BUZZER «, t00=0x0022, t01=0x00ba}
0x3614…3640 Head {h00=0x0028, h01=0x0050, text=» MOVE BIN13,=X'8000' BIT 0 = BUZZER «, t00=0x0022, t01=0x00fe}
0x3640…366e Head {h00=0x002a, h01=0x0050, text=» DSC1 DEDSSYSL,0,BIN13 ACTIVATE BUZZER«, t00=0x0022, t01=0x012a}
0x366e…36a4 Head {h00=0x0032, h01=0x0050, text=» CALL CHANFC,DEDSSYSL,SYSLFC CHANGE F.C. BACK «, t00=0x0022, t01=0x0158}
0x36a4…36b2 Head {h00=0x000a, h01=0x0050, text=»BUZZ99«, t00=0x0022, t01=0x018e}
0x36b2…36be Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0023, t01=0x000c}
0x36be…36cc Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0023, t01=0x0018}
0x36cc…36da Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0023, t01=0x0026}
0x36da…36e4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0023, t01=0x0034}
0x36e4…36fe Head {h00=0x0016, h01=0x0050, text=»******************«, t00=0x0023, t01=0x003e}
0x36fe…3718 Head {h00=0x0016, h01=0x0050, text=»* *«, t00=0x0023, t01=0x0058}
0x3718…3732 Head {h00=0x0016, h01=0x0050, text=»* ERROR-MESSAGES *«, t00=0x0023, t01=0x0072}
0x3732…374c Head {h00=0x0016, h01=0x0050, text=»* *«, t00=0x0023, t01=0x008c}
0x374c…3766 Head {h00=0x0016, h01=0x0050, text=»******************«, t00=0x0023, t01=0x00a6}
0x3766…3770 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0023, t01=0x00c0}
0x3770…37bc Head {h00=0x0048, h01=0x0050, text=»DEFTBERR FTABLE ERFM01,ERFM02,ERFM03,ERFM04,ERFM05,ERFM06,ERFM07, C«, t00=0x0023, t01=0x00ca}
0x37bc…37fa Head {h00=0x003a, h01=0x0050, text=» ERFM02,ERFM09,ERFM10,ERFM11,ERFM12,ERFM13,ERFM02, C«, t00=0x0023, t01=0x0116}
0x37fa…3838 Head {h00=0x003a, h01=0x0050, text=» ERFM02,ERFM02,ERFM02,ERFM18,ERFM19,ERFM20,ERFM21, C«, t00=0x0023, t01=0x0154}
0x3838…3850 (36, 0, 400) Head {h00=0x0014, h01=0x0050, text=» ERFM22,ERFM23 «, t00=0x0024, t01=0x0004}
0x3850…385a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0024, t01=0x001c}
0x385a…386e Head {h00=0x0010, h01=0x0050, text=»ERFM01 FRMT «, t00=0x0024, t01=0x0026}
0x386e…387a Head {h00=0x0008, h01=0x0050, text=» FSL«, t00=0x0024, t01=0x003a}
0x387a…38a4 Head {h00=0x0026, h01=0x0050, text=» FTEXT 'TOO FEW INPUT CHARACTERS' «, t00=0x0024, t01=0x0046}
0x38a4…38b2 Head {h00=0x000a, h01=0x0050, text=» FMEND«, t00=0x0024, t01=0x0070}
0x38b2…38bc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0024, t01=0x007e}
0x38bc…38d0 Head {h00=0x0010, h01=0x0050, text=»ERFM02 FRMT «, t00=0x0024, t01=0x0088}
0x38d0…38dc Head {h00=0x0008, h01=0x0050, text=» FSL«, t00=0x0024, t01=0x009c}
0x38dc…38fc Head {h00=0x001c, h01=0x0050, text=» FTEXT 'UNDEFINED ERROR'«, t00=0x0024, t01=0x00a8}
0x38fc…390a Head {h00=0x000a, h01=0x0050, text=» FMEND«, t00=0x0024, t01=0x00c8}
0x390a…3914 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0024, t01=0x00d6}
0x3914…3928 Head {h00=0x0010, h01=0x0050, text=»ERFM03 FRMT «, t00=0x0024, t01=0x00e0}
0x3928…3934 Head {h00=0x0008, h01=0x0050, text=» FSL«, t00=0x0024, t01=0x00f4}
0x3934…394e Head {h00=0x0016, h01=0x0050, text=» FTEXT 'I/O-ERROR'«, t00=0x0024, t01=0x0100}
0x394e…395c Head {h00=0x000a, h01=0x0050, text=» FMEND«, t00=0x0024, t01=0x011a}
0x395c…3966 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0024, t01=0x0128}
0x3966…397a Head {h00=0x0010, h01=0x0050, text=»ERFM04 FRMT «, t00=0x0024, t01=0x0132}
0x397a…3986 Head {h00=0x0008, h01=0x0050, text=» FSL«, t00=0x0024, t01=0x0146}
0x3986…39ac Head {h00=0x0022, h01=0x0050, text=» FTEXT 'FUNCTION NOT ALLOWED' «, t00=0x0024, t01=0x0152}
0x39ac…39ba Head {h00=0x000a, h01=0x0050, text=» FMEND«, t00=0x0024, t01=0x0178}
0x39ba…39c4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0024, t01=0x0186}
0x39c4…39d8 Head {h00=0x0010, h01=0x0050, text=»ERFM05 FRMT «, t00=0x0024, t01=0x0190}
0x39d8…39e4 Head {h00=0x0008, h01=0x0050, text=» FSL«, t00=0x0025, t01=0x0014}
0x39e4…3a10 Head {h00=0x0028, h01=0x0050, text=» FTEXT 'COMPULSORY FIELD NOT FILLED'«, t00=0x0025, t01=0x0020}
0x3a10…3a1e Head {h00=0x000a, h01=0x0050, text=» FMEND«, t00=0x0025, t01=0x004c}
0x3a1e…3a28 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0025, t01=0x005a}
0x3a28…3a3c Head {h00=0x0010, h01=0x0050, text=»ERFM06 FRMT «, t00=0x0025, t01=0x0064}
0x3a3c…3a48 Head {h00=0x0008, h01=0x0050, text=» FSL«, t00=0x0025, t01=0x0078}
0x3a48…3a66 Head {h00=0x001a, h01=0x0050, text=» FTEXT 'ILLEGAL VALUE'«, t00=0x0025, t01=0x0084}
0x3a66…3a74 Head {h00=0x000a, h01=0x0050, text=» FMEND«, t00=0x0025, t01=0x00a2}
0x3a74…3a7e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0025, t01=0x00b0}
0x3a7e…3a92 Head {h00=0x0010, h01=0x0050, text=»ERFM07 FRMT «, t00=0x0025, t01=0x00ba}
0x3a92…3a9e Head {h00=0x0008, h01=0x0050, text=» FSL«, t00=0x0025, t01=0x00ce}
0x3a9e…3ac4 Head {h00=0x0022, h01=0x0050, text=» FTEXT 'FILENAME ALREADY USED'«, t00=0x0025, t01=0x00da}
0x3ac4…3ad2 Head {h00=0x000a, h01=0x0050, text=» FMEND«, t00=0x0025, t01=0x0100}
0x3ad2…3adc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0025, t01=0x010e}
0x3adc…3af0 Head {h00=0x0010, h01=0x0050, text=»ERFM09 FRMT «, t00=0x0025, t01=0x0118}
0x3af0…3afc Head {h00=0x0008, h01=0x0050, text=» FSL«, t00=0x0025, t01=0x012c}
0x3afc…3b28 Head {h00=0x0028, h01=0x0050, text=» FTEXT 'WSM SYSTEM FILE NOT CREATED'«, t00=0x0025, t01=0x0138}
0x3b28…3b36 Head {h00=0x000a, h01=0x0050, text=» FMEND«, t00=0x0025, t01=0x0164}
0x3b36…3b40 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0025, t01=0x0172}
0x3b40…3b54 Head {h00=0x0010, h01=0x0050, text=»ERFM10 FRMT «, t00=0x0025, t01=0x017c}
0x3b54…3b60 Head {h00=0x0008, h01=0x0050, text=» FSL«, t00=0x0025, t01=0x0190}
0x3b60…3b84 Head {h00=0x0020, h01=0x0050, text=» FTEXT 'DISK/FILE OVERFLOW' «, t00=0x0026, t01=0x000c}
0x3b84…3b92 Head {h00=0x000a, h01=0x0050, text=» FMEND«, t00=0x0026, t01=0x0030}
0x3b92…3b9c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0026, t01=0x003e}
0x3b9c…3bb0 Head {h00=0x0010, h01=0x0050, text=»ERFM11 FRMT «, t00=0x0026, t01=0x0048}
0x3bb0…3bbc Head {h00=0x0008, h01=0x0050, text=» FSL«, t00=0x0026, t01=0x005c}
0x3bbc…3bde Head {h00=0x001e, h01=0x0050, text=» FTEXT 'NEW VOLUME LOADED'«, t00=0x0026, t01=0x0068}
0x3bde…3bec Head {h00=0x000a, h01=0x0050, text=» FMEND«, t00=0x0026, t01=0x008a}
0x3bec…3bf6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0026, t01=0x0098}
0x3bf6…3c0a Head {h00=0x0010, h01=0x0050, text=»ERFM12 FRMT «, t00=0x0026, t01=0x00a2}
0x3c0a…3c16 Head {h00=0x0008, h01=0x0050, text=» FSL«, t00=0x0026, t01=0x00b6}
0x3c16…3c38 Head {h00=0x001e, h01=0x0050, text=» FTEXT 'FILE NAME UNKNOWN'«, t00=0x0026, t01=0x00c2}
0x3c38…3c46 Head {h00=0x000a, h01=0x0050, text=» FMEND«, t00=0x0026, t01=0x00e4}
0x3c46…3c50 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0026, t01=0x00f2}
0x3c50…3c64 Head {h00=0x0010, h01=0x0050, text=»ERFM13 FRMT «, t00=0x0026, t01=0x00fc}
0x3c64…3c70 Head {h00=0x0008, h01=0x0050, text=» FSL«, t00=0x0026, t01=0x0110}
0x3c70…3c94 Head {h00=0x0020, h01=0x0050, text=» FTEXT 'DISK NOT IN SYSTEM' «, t00=0x0026, t01=0x011c}
0x3c94…3ca2 Head {h00=0x000a, h01=0x0050, text=» FMEND«, t00=0x0026, t01=0x0140}
0x3ca2…3cac Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0026, t01=0x014e}
0x3cac…3cc0 Head {h00=0x0010, h01=0x0050, text=»ERFM18 FRMT «, t00=0x0026, t01=0x0158}
0x3cc0…3ccc Head {h00=0x0008, h01=0x0050, text=» FSL«, t00=0x0026, t01=0x016c}
0x3ccc…3cee Head {h00=0x001e, h01=0x0050, text=» FTEXT 'DISK NOT OPERABLE'«, t00=0x0026, t01=0x0178}
0x3cee…3cfc Head {h00=0x000a, h01=0x0050, text=» FMEND«, t00=0x0027, t01=0x000a}
0x3cfc…3d04 Head {h00=0x0004, h01=0x0050, t00=0x0027, t01=0x0018}
0x3d04…3d18 Head {h00=0x0010, h01=0x0050, text=»ERFM19 FRMT «, t00=0x0027, t01=0x0020}
0x3d18…3d24 Head {h00=0x0008, h01=0x0050, text=» FSL«, t00=0x0027, t01=0x0034}
0x3d24…3d40 Head {h00=0x0018, h01=0x0050, text=» FTEXT 'DISK ERROR' «, t00=0x0027, t01=0x0040}
0x3d40…3d50 Head {h00=0x000c, h01=0x0050, text=» FTAB 31«, t00=0x0027, t01=0x005c}
0x3d50…3d64 Head {h00=0x0010, h01=0x0050, text=» FCOPY STR6A«, t00=0x0027, t01=0x006c}
0x3d64…3d72 Head {h00=0x000a, h01=0x0050, text=» FMEND«, t00=0x0027, t01=0x0080}
0x3d72…3d7c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0027, t01=0x008e}
0x3d7c…3d90 Head {h00=0x0010, h01=0x0050, text=»ERFM20 FRMT «, t00=0x0027, t01=0x0098}
0x3d90…3d9c Head {h00=0x0008, h01=0x0050, text=» FSL«, t00=0x0027, t01=0x00ac}
0x3d9c…3db8 Head {h00=0x0018, h01=0x0050, text=» FTEXT 'POOL ERROR' «, t00=0x0027, t01=0x00b8}
0x3db8…3dc8 Head {h00=0x000c, h01=0x0050, text=» FTAB 31«, t00=0x0027, t01=0x00d4}
0x3dc8…3ddc Head {h00=0x0010, h01=0x0050, text=» FCOPY STR6A«, t00=0x0027, t01=0x00e4}
0x3ddc…3dea Head {h00=0x000a, h01=0x0050, text=» FMEND«, t00=0x0027, t01=0x00f8}
0x3dea…3df2 Head {h00=0x0004, h01=0x0050, t00=0x0027, t01=0x0106}
0x3df2…3e06 Head {h00=0x0010, h01=0x0050, text=»ERFM21 FRMT «, t00=0x0027, t01=0x010e}
0x3e06…3e12 Head {h00=0x0008, h01=0x0050, text=» FSL«, t00=0x0027, t01=0x0122}
0x3e12…3e2c Head {h00=0x0016, h01=0x0050, text=» FTEXT 'NOT FOUND'«, t00=0x0027, t01=0x012e}
0x3e2c…3e3a Head {h00=0x000a, h01=0x0050, text=» FMEND«, t00=0x0027, t01=0x0148}
0x3e3a…3e42 Head {h00=0x0004, h01=0x0050, t00=0x0027, t01=0x0156}
0x3e42…3e56 Head {h00=0x0010, h01=0x0050, text=»ERFM22 FRMT «, t00=0x0027, t01=0x015e}
0x3e56…3e62 Head {h00=0x0008, h01=0x0050, text=» FSL«, t00=0x0027, t01=0x0172}
0x3e62…3e7c Head {h00=0x0016, h01=0x0050, text=» FTEXT 'I/O-ERROR'«, t00=0x0027, t01=0x017e}
0x3e7c…3e8c Head {h00=0x000c, h01=0x0050, text=» FTAB 30«, t00=0x0028, t01=0x0008}
0x3e8c…3ea0 Head {h00=0x0010, h01=0x0050, text=» FCOPY STR6A«, t00=0x0028, t01=0x0018}
0x3ea0…3eae Head {h00=0x000a, h01=0x0050, text=» FMEND«, t00=0x0028, t01=0x002c}
0x3eae…3eb6 Head {h00=0x0004, h01=0x0050, t00=0x0028, t01=0x003a}
0x3eb6…3eca Head {h00=0x0010, h01=0x0050, text=»ERFM23 FRMT «, t00=0x0028, t01=0x0042}
0x3eca…3ed6 Head {h00=0x0008, h01=0x0050, text=» FSL«, t00=0x0028, t01=0x0056}
0x3ed6…3ef8 Head {h00=0x001e, h01=0x0050, text=» FTEXT 'NOT A TOSS DISK!' «, t00=0x0028, t01=0x0062}
0x3ef8…3f06 Head {h00=0x000a, h01=0x0050, text=» FMEND«, t00=0x0028, t01=0x0084}
0x3f06…3f0e Head {h00=0x0004, h01=0x0050, t00=0x0028, t01=0x0092}
0x3f0e…3f18 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0028, t01=0x009a}
0x3f18…3f2a Head {h00=0x000e, h01=0x0050, text=»BELL FRMT «, t00=0x0028, t01=0x00a4}
0x3f2a…3f36 Head {h00=0x0008, h01=0x0050, text=» FSL«, t00=0x0028, t01=0x00b6}
0x3f36…3f4c Head {h00=0x0012, h01=0x0050, text=» FILLR X'07',1«, t00=0x0028, t01=0x00c2}
0x3f4c…3f5a Head {h00=0x000a, h01=0x0050, text=» FMEND«, t00=0x0028, t01=0x00d8}
0x3f5a…3f62 Head {h00=0x0004, h01=0x0050, t00=0x0028, t01=0x00e6}
0x3f62…3f6a Head {h00=0x0004, h01=0x0050, t00=0x0028, t01=0x00ee}
0x3f6a…3f76 Head {h00=0x0008, h01=0x0050, text=» END«, t00=0x0028, t01=0x00f6}
0x3f76…3f7a (41, 1, 8) Head {h00=0x2004, h01=0x0000}
0x3f7a…3f7e 00 29 00 04 ┆ ) ┆
0x3f7e…3fce (42, 0, 400) 01 32 d1 03 1c 1a 1d 81 02 20 5f 4e 6a 42 32 21 41 21 30 0d 00 51 01 7e 00 2a 00 26 03 12 00 00 06 27 00 00 00 21 37 30 38 42 11 25 11 2a 10 20 10 20 11 22 10 20 09 31 08 1e 41 d0 80 05 5f 72 80 03 00 52 00 1c 00 12 00 0e 03 06 00 00 06 45 ┆ 2 _NjB2!A!0 Q ~ * & ' !708B % * " 1 A _r R E┆
0x3fce…401e 00 00 5f 76 80 04 34 00 00 52 00 4a 00 2a 00 26 03 12 00 00 06 4b 00 00 00 1d 00 04 01 40 00 04 00 18 00 04 02 a7 00 04 00 25 00 04 00 1a 00 04 01 47 00 04 01 72 00 52 00 60 00 2a 00 26 03 12 00 00 06 69 00 00 00 04 03 07 00 04 03 24 00 04 ┆ _v 4 R J * & K @ % G r R ` * & i $ ┆
0x401e…406e 03 14 00 04 03 2b 00 04 03 66 00 04 03 38 00 04 03 6d 00 04 00 52 00 8e 00 2a 00 26 03 12 00 00 06 87 00 00 05 ba 00 04 03 7a 00 04 04 07 00 04 04 9d 00 04 04 14 00 04 03 68 00 04 03 6f 00 04 04 99 00 52 00 bc 00 28 00 24 03 11 00 00 06 a5 ┆ + f 8 m R * & z h o R ( $ ┆
0x406e…40be 00 00 00 04 04 a3 00 04 04 09 00 04 05 ce 00 04 06 48 00 04 05 db 00 04 06 11 00 04 06 1e 00 52 00 ea 00 2a 00 26 03 12 00 00 06 c1 00 00 00 0b 00 02 04 6e 00 02 01 1b 00 02 01 05 00 02 01 27 00 02 04 78 00 02 00 b6 00 02 06 1a 00 52 01 16 ┆ H R * & n ' x R ┆
0x40be…410e 00 2a 00 26 03 12 00 00 06 df 00 00 00 04 02 a9 00 02 00 c7 00 04 02 c2 00 04 05 bc 00 19 00 1a 00 20 00 28 00 2e 00 31 00 32 00 52 01 44 00 2a 00 26 03 12 00 00 06 fd 00 00 00 34 00 36 00 38 00 3a 00 f0 00 44 58 ff 00 00 43 48 46 53 54 48 ┆ * & ( . 1 2 R D * & 4 6 8 : DX CHFSTH┆
0x410e…415e (43, 0, 400) 4e 45 57 4e 4f 2e 46 49 00 52 01 72 00 2a 00 26 03 12 00 00 07 1b 00 00 4c 45 55 4e 49 54 3a 53 59 53 54 45 4d 46 49 4c 45 4e 41 4d 45 3a 52 20 58 58 58 20 57 53 00 53 00 10 00 2a 00 26 03 12 00 00 07 39 00 00 4d 20 4f 46 20 52 45 43 4f 52 ┆NEWNO.FI R r * & LEUNIT:SYSTEMFILENAME:R XXX WS S * & 9 M OF RECOR┆
0x415e…41ae 44 53 3a 2d 20 32 20 3d 20 50 41 43 4b 45 44 56 4f 4c 55 4d 00 53 00 3e 00 2a 00 26 03 12 00 00 07 57 00 00 45 2d 4e 41 4d 45 3a 43 52 45 41 54 45 20 56 4f 4c 55 4d 45 4e 4f 2e 20 4f 46 20 46 49 4c 00 53 00 6c 00 2a 00 26 03 12 00 00 07 75 ┆DS:- 2 = PACKEDVOLUM S > * & W E-NAME:CREATE VOLUMENO. OF FIL S l * & u┆
0x41ae…41fe 00 00 45 53 3a 46 52 4f 4d 20 52 45 43 4f 52 44 20 4e 4f 2e 3a 54 4f 20 20 20 52 45 43 4f 52 44 00 53 00 9a 00 2a 00 26 03 12 00 00 07 93 00 00 20 4e 4f 2e 3a 43 48 41 4e 47 45 20 56 4f 4c 55 4d 45 2d 4e 41 4d 45 43 52 45 41 54 45 20 00 53 ┆ ES:FROM RECORD NO.:TO RECORD S * & NO.:CHANGE VOLUME-NAMECREATE S┆
0x41fe…424e 00 c8 00 2a 00 26 03 12 00 00 07 b1 00 00 57 53 4d 20 53 59 53 54 45 4d 20 46 49 4c 45 45 4e 54 45 52 20 44 49 53 43 20 56 45 52 53 00 53 00 f6 00 2a 00 26 03 12 00 00 07 cf 00 00 49 4f 4e 20 2d 20 31 20 3d 20 55 4e 50 41 43 4b 45 44 50 52 ┆ * & WSM SYSTEM FILEENTER DISC VERS S * & ION - 1 = UNPACKEDPR┆
0x424e…429e 49 4e 54 20 56 54 4f 43 20 28 00 53 01 24 00 2a 00 26 03 12 00 00 07 ed 00 00 56 4f 4c 55 4d 45 20 54 41 42 4c 45 20 4f 46 20 43 4f 4e 54 45 4e 54 53 29 00 b1 b0 24 b0 00 53 01 52 00 2a 00 26 03 12 00 00 08 0b 00 00 19 20 58 54 58 54 54 58 ┆INT VTOC ( S $ * & VOLUME TABLE OF CONTENTS) $ S R * & XTXTTX┆
0x429e…42ee (44, 0, 400) 54 54 54 54 58 54 54 54 54 54 54 58 c3 02 20 31 e0 f0 01 00 00 00 00 53 01 80 00 2a 00 26 03 12 00 00 08 29 00 00 c0 5b e1 f0 01 00 00 00 c0 5b e0 cd 1c cd 1f c1 35 df 1a e0 cd 1f f2 07 11 81 81 00 13 48 00 54 00 1e 00 2a 00 26 03 12 00 00 ┆TTTTXTTTTTTX 1 S * & ) [ [ 5 H T * & ┆
0x42ee…433e 08 47 00 00 cd 1f c4 0c c1 36 e1 cd 1f c4 1f c1 2e e1 df 16 e0 cd 1f cd 1c c1 2a c4 07 c1 28 e1 cd 1f 00 54 00 4c 00 2a 00 26 03 12 00 00 08 65 00 00 c1 27 c4 05 c1 2d f2 11 03 81 85 80 17 57 df 16 e1 cd 1f c1 29 f2 06 05 c3 83 00 c0 13 cd ┆ G 6 . * ( T L * & e ' - W ) ┆
0x433e…438e 00 54 00 7a 00 2a 00 26 03 12 00 00 08 83 00 00 1f c4 0c c1 2f ec 19 c0 49 e1 cd 1f c1 2b f2 0a 06 c1 88 80 c0 4b df 16 e0 cd 1f cd 1c c1 00 54 00 a8 00 2a 00 26 03 12 00 00 08 a1 00 00 34 e1 cd 1f c1 29 f2 06 05 c3 83 00 c0 13 cd 1f c4 14 ┆ T z * & / I + K T * & 4 ) ┆
0x438e…43de c1 2f ec 21 c0 49 e1 cd 1f c1 26 c4 00 54 00 d6 00 2a 00 26 03 12 00 00 08 bf 00 00 05 c1 2f f2 13 06 c1 86 00 c0 4a df 16 e0 e1 cd 1f cd 1c c1 37 e1 cd 1f c1 29 f2 06 05 c3 00 54 01 04 00 2a 00 26 03 12 00 00 08 dd 00 00 83 00 c0 13 cd 1f ┆ / ! I & T * & / J 7 ) T * & ┆
0x43de…442e c4 0c c1 2f ec 19 c0 49 e1 cd 1f c3 14 50 52 49 4e 54 20 4f 55 54 50 55 00 54 01 32 00 2a 00 26 03 12 00 00 08 fb 00 00 54 20 44 45 56 49 43 45 3a f2 15 0b c2 82 00 c0 89 e0 cd 1f cd 1c c1 11 e1 cd 1f c1 29 f2 00 54 01 60 00 2a 00 26 03 12 ┆ / I PRINT OUTPU T 2 * & T DEVICE: ) T ` * & ┆