|
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: 58930 (0xe632)
Notes: pts_type(SC)
Names: »PLADS.SC«
└─⟦025d39960⟧ Bits:30009672 Philips computer tape "600133"
└─⟦this⟧ »A:DSB/PLADS.SC«
IDENT PLADS 831223 NJ * * DATA DIVISION FOR DSB-PLADS * DDIV * * * KEYBOARD TASK * TERM K0 CWB CB9 CWB CB1 CWB CB2 TWB TB1 TWB TB2 TWB TB3 PDU DSET FC=50,BUFL=300 KEYB DSET FC=20 GTP DSET FC=30,BUFL=300 LAMPS DSET FC=40 DC DSET FC=61 DC2 DSET FC=61 START KBGO EJECT * * DC TASK * TERM D0 CWB CB9 CWB CB1 CWB CB2 DSDC DSET FC=60 START DC1GO CB9 BLK * CPOLL BOOL F TRUE AFTER 1. POLL MF1KBV STRG 64X'404142434445464748494A4B4C4D4E4F C 505152535455565758595A5B5C5D5E5F' MF1CU BIN X'6040' BINWK1 BIN DCBUF STRG 300 EJECT CB1 BLK * W0 BIN '0' W1 BIN '1' W2 BIN '2' W3 BIN '3' W4 BIN '4' W5 BIN '5' W6 BIN '6' W7 BIN '7' W8 BIN '8' W9 BIN '9' W10 BIN '10' W12 BIN '12' W40 BIN '40' LPAT1 BIN X'0010' PAPER OUT PATTERN LPAT2 BIN X'8000' AUDIBLE ALARM PATTERN CB2 BLK * CHOME BIN X'0101' CURSOR HOME CTEST BIN '0' 0 - PRODUCTION VERSION 1 - SIDDEPLADS 2 - FAERGEBILLET 3 - SP-SP-LF-LF CTIMOUT BIN '1450' READ/WRITE TIMEOUT CBUFLEN BIN '300' DC BUFFERLENGTH CINX BINI (35),'0','9','10','11','46','47','48','54','55', C '56','57','58','59','60','61','62', C '65','66','67','68','73','74','75','80', C '81','84','85','86','87','88','90', C '91','92','94','999' * OBS: 'OE'R SKRIVES SOM '@'. * DISSE ERSTATTES I OPSTARTDELEN CTXT STRGI (35),30C'******************************', C 30C'PLADSART/ANTAL? ', C 30C'TOG? ', C 30C'STATION? ', C 30C'KLASSE/KUPE, @NSKE UFORENELIG ', C 30C'KUPE/RYGER, @NSKE UFORENELIG ', C 30C'DATAMATEN OPTAGET, PR@V IGEN ', C 30C'DATO? ', C 30C'KLASSE? ', C 30C'RYGER? ', C 30C'KUPE? ', C 30C'PLACERING? ', C 30C'FRI? ', C 30C'TILSLUTNING? ', C 30C'SATELLIT? ', C 30C'KONTROLNUMMER? ', C 30C'NAT? ', C 30C'BILART/PLADSART? ', C 30C'REST/STR[KNING? ', C 30C'REST? ', C 30C'ACCEPTKODE? ', C 30C'N@GLE? ', C 30C'STANDARDMASKE? ', C 30C'TEKNIK ', C 30C'SKRIV MANUELT ', C 30C'RYGER/ANTAL? ', C 30C'KUPE/ANTAL? ', C 30C'PLACERING/ANTAL? ', C 30C'FORKERT PLADSART? ', C 30C'FORBINDELSESD@R? ', C 30C'TURNUMMER? ', C 30C'BNR-@NSKE? ', C 30C'BNR? ', C 30C'REFNR FEJLAGTIG UDFYLDT ', C 30C'!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!' * OBS! "!" ER DELIMITER FOR ERSTATNING AF '@' * MED DANSKE OE'ER CERASE STRG X'2B2BAE' "++<CNIL>" CNIL STRG X'AE' CZERO STRG X'00' CSP STRG X'20' * INVALID ENTRIES GENERATE A CALL TO SIDMASK CCODE STRG 58X'003B22090909090930292821252726 C 4209094B09091516200909093132' * EVTL INCLUDES TEST FOR AT FAA EN MASKE OG EN BILLET TB1 BLK * TSID BOOL TLIG BOOL TISID BOOL TILIG BOOL TSOV BOOL TBIL BOOL TAFBEST BOOL TCHNG BOOL TAUTOTAB BOOL F TTID BIN TASKID TBIN1 BIN TBIN2 BIN TBIN3 BIN TBIN4 BIN TBIN5 BIN TBIN6 BIN TBIN7 BIN TBIN8 BIN TBIN9 BIN TBIN10 BIN TSTACKPT BIN '0' STACKPOINTER TCURPOS BIN CURSOR POSITION TP1 BIN PARAMETER 1 TP2 BIN PARAMETER 2 TKBSTAT BIN KEYBOARD STATUS TB2 BLK * TPAPOUT BOOL F TRUE::=PAPEROUT ON GTP TNODEP BOOL TRUE TRUE::= INGEN FELTAFH. TPOWFAIL BOOL FALSE TRUE::=POWERFAILURE TALLFLD BOOL FALSE TRUE::=KI ON ALL FIELDS TBOOL BOOL F TALTBUF BOOL FALSE TRUE::=WRITE FROM ALT. BUFFER TBCD5 BCD 5 TSTRG1 STRG 1 TSTRG2 STRG 2 TSTRG5 STRG 5 TSTRG6 STRG 6 TSTRG10 STRG 10 TSTRG40 STRG 40 TKBBUF STRG 40 TPDUBUF STRG 42 TSTACK STRG 128 STACKAREA. DONT USE IT PLS TKEYS STRG X'40' TDC2BUF STRG 6 ALTERNATIVE DC BUFFER EJECT TB3 BLK * * PARAMETERS FOR THE UNPACK ROUTINE * TSAVE BINI (64) INLEN BIN OUTLEN BIN PRINTFLG BIN 1: TICKET PRINTED -1: DONT PRINT TICKET TDC2LEN BIN SAVTAB BINI (21,4) FLDTAB BINI (21,4) * EL. 1,1: NBR OF ENTRIES IN TABLE * EL. 1,2: NOT USED * EL. 1,3: IF 1, FLASHING FIELDS PRESENT * EL. 1,4: MASK NBR (1->8) * EL. (2->21),1: CURSORPOS (X'0101' -> X'0628') * EL. ,2: OUTBUF POS (FOR XCOPY) * EL. ,3: FIELDLENGTH (1-N) * EL. ,4: FIELDATTRIBUTE * BIT 0 - ERROR IN FIELD * BIT 1 - "MUST-ENTER" * BIT 2 - FIELD MODIFIED * BIT 3 - NOT USED * BIT 4-10 - ERRORMESSAGE INDEX * BIT 11-15 - VALIDATION INDEX TLEN BIN INBUF STRG 300 OUTBUF STRG 64 TBUF STRG 300 PDIV ENTRY KBGO ENTRY DC1GO EXT MASK EXT FLASH EXT BITOFF EXT BITON EXT BITTST EXT UNPACK EXT GMSGIX EXT GFLDIX ************************************************* * * * EQUATES * * * ************************************************* ERASE EQU 2 ERASE DISPLAY TSTAT EQU 7 TEST STATUS STIMO EQU X'0B' SET TIMEOUT FLSH EQU X'0B' FLSH LED'S ON EQU 0 TURN ON LED OFF EQU 1 TURN OFF LED TRPAR EQU 0 TRANSFER PARAMETER POS EQU 6 POSITION CURSUR * * * O B S ! * * !!!!!!! * * THE VALUES OF THE KEYS ARE NOT TO BE * * CHANGED, AS THEY ARE USED AS INDEXES * * IN "IB"'S AND "PERFI"'S * AFBKY EQU X'01' E15 - AFBESTILLING KNTKY EQU X'02' E17 - KONTOOPGORELSE LSKY EQU X'03' E18 - BACKTAB RSKY EQU X'04' E19 - FORWARD TAB SDKY EQU X'05' E20 - SLET DATA SSKY EQU X'06' E21 - SLET SK[RM ETXKY EQU X'07' E22 - END OF TEXT NEJKY EQU X'08' E23 - NEJ SIDKY EQU X'09' D15 - SIDDEPLADS LIGKY EQU X'0A' D16 - LIGGEVOGN BILKY EQU X'0B' D17 - F[RGEBESTILLING ISIDKY EQU X'0C' C15 - INTERNATIONAL SIDDEPLADS ILIGKY EQU X'0D' C16 - INTERNATIONAL LIGGEVOGN SOVKY EQU X'0E' C17 - SOVEVOGN SP1KY EQU X'0F' B15 - SPARE 1 HOMEKY EQU X'10' B16 - CURSOR HOME DOWNKY EQU X'11' B17 - CURSOR DOWN SP2KY EQU X'12' A15 - SPARE 2 LEFTKY EQU X'13' A16 - BACK SPACE RIGHTKY EQU X'14' A17 - FORWARD SPACE CHNGKY EQU X'15' D18 - [NDRINGSMASKE TESTKY EQU X'16' C18 - TESTBILLEDE MRKY EQU X'17' A18 - SPACE RESKY EQU X'18' D22 - RESET (PRINTER STATUS) SP5KY EQU X'19' C22 SENDKY EQU X'1A' A22 JA1KY EQU X'1B' D23 JA2KY EQU X'1C' A23 SP3KY EQU X'1D' A21 NOKY EQU X'FF' NO KEY * OBS: MRKY GENERATES X'20' (CTAB01) * OBS: X'21' RESERVED FOR KBTIMEOUT KTAB02 KTAB AFBKY,KNTKY,LSKY,RSKY,SDKY,SSKY, C ETXKY,NEJKY,SIDKY,LIGKY,BILKY,ISIDKY, C ILIGKY,SOVKY,SP1KY,HOMEKY,DOWNKY,SP2KY, C LEFTKY,RIGHTKY,CHNGKY,TESTKY,MRKY,RESKY, C SP5KY,SENDKY,JA1KY,JA2KY EJECT DC1GO START DC-TASK DSC1 DSDC,TRPAR,MF1CU DC1GO1 MOVE BINWK1,W0 DSC1 DSDC,STIMO,BINWK1 MOVE BINWK1,CBUFLEN READ DSDC,DCBUF,BINWK1 READ ANY UNSOLL. MSG XSTAT DSDC,BINWK1 SUB BINWK1,=X'2000' BNZ DC1GO1 SET CPOLL HURRAY WE'RE BEING POLLED B DC1GO1 THROW AWAY REST EJECT * HOUSEKEEPING FUNCTIONS KBGO START KB-TASK GETID TBIN1 SUB TBIN1,=X'4B41' CONVERT KA,KB,... TO 0,1,... BNZ KBGO4 MOVE TBIN1,W1 MOVE TSTRG2,=X'5C' DANSK OE KBGO1 MOVE TSTRG1,CTXT(TBIN1) CBE TSTRG1,=C'!',KBGO3 MOVE TSTRG1,=C'@' MOVE TBIN2,W0 MOVE TBIN3,=W'30' MATCH CTXT(TBIN1),TBIN2,TBIN3,TSTRG1,W0,W1 BNOK KBGO2 XCOPY CTXT(TBIN1),TBIN2,W1,TSTRG2,W0 B KBGO1 KBGO2 ADD TBIN1,W1 B KBGO1 KBGO3 MOVE TBIN1,W0 KBGO4 TBT CPOLL,KBGO5 BLIVER VI POLLED? DELAY W10 NEJ, VENT OG PROV IGEN B KBGO4 KBGO5 XCOPY TTID,W1,W1,MF1KBV,TBIN1 DSC1 DC,TRPAR,TTID MOVE TBIN1,=X'0023' DSC1 LAMPS,ON,TBIN1 EJECT PERF NOINPT SETUP A DUMMY FLDTAB MOVE SAVTAB(W1,W1),W1 MOVE SAVTAB(W2,W1),CHOME CURSOR POS. MOVE SAVTAB(W2,W2),W1 MOVE SAVTAB(W2,W3),W1 MOVE SAVTAB(W2,W4),=X'2920' FEJL 73 M.M. PERF ERASCR * WAIT FOR ONE OF THE FOLLOWING TWO EVENTS TO OCCUR: * A KEYBOARDINPUT, OR A DCREAD HK20 MOVE TBIN1,W1 KI .NW,KEYB,TKBBUF,KTAB02,TBIN1,TBIN6 DSC1 DC,STIMO,W0 MOVE INLEN,CBUFLEN MOVE INBUF,CZERO READ .NW,DC,INBUF,INLEN MWAIT TBIN3,KEYB,DC CBE TBIN3,W2,HK21A ABORT DC WAIT DC SYNCHRONIZE THE I-O IB TBIN6,HK27,HK27,HK20,HK20,HK20,HK20, C HK20,HK20,HK27,HK27,HK27,HK27, C HK27,HK27,HK20,HK20,HK20,HK20, C HK20,HK20,HK27,HK27 CBG TBIN6,W0,HK20 INVALID KEY, TRY AGAIN MOVE TP2,TBIN6 PERF LCKSET IT WAS A TURNED KEYLOCK B HK20 AND TRY AGAIN HK21A ABORT KEYB WAIT KEYB SYNCHRONIZE THE I-O B EXCH05 UNPACK IT EJECT * MAIN MODULE EXCH PERF DCEXCH BNOK DCERROR EXCH05 MOVE TBIN2,W3 IUT,SEND DSC1 LAMPS,ON,TBIN2 LIT THEM * READY TO PROCESS ANY INCOMING MESSAGE MOVE PRINTFLG,W0 PERF UNPCK UNPACK MESSAGE PERF SETTP1 * FL.F. TICKET RCVD PRINT NOK * 1 0 0 0 MASKE * 2 0 0 1 N/A * 3 0 1 0 BILLET * 4 0 1 1 PAPER OUT * 5 1 0 0 TILBUD * 6 1 0 1 N/A * 7 1 1 0 X-MARKERING * 8 1 1 1 X-MARKING, PAPER OUT IB TP1,HK30,HK30,TP13,TP14, C HK25,HK25,HK25,TP18 TP14 TP18 PERF NOINPT TP13 DSC1 LAMPS,OFF,W1 PERF READDC,CTIMOUT READ NEW MASK OR SP-SP-LF-LF OR 'SKRIV MANUELT' BNOK DCERROR B EXCH05 * HK23 * AFTER FLASH: LS, ETX, <INV>, DOWN,LEFT,RIGHT,SPACE, * STOP FLASHING, WAIT FOR VALID FUNCTION MOVE TBIN1,W1 KI .NE,KEYB,TSTRG1,KTAB02,TBIN1,TBIN6 B HK25B HK25 ** FLASHING; FLASH UNTIL 'KI' ** MOVE TBIN1,W1 KI .NW,.NE,KEYB,TSTRG1,KTAB02,TBIN1,TBIN6 ABORT KEYB BNOK HK25A WAIT KEYB CALL FLASH,TSAVE(W1) B HK25 HK25A WAIT KEYB HK25B IB TBIN6, C HK27,HK27,HK25,HK25,HK26C,HK26A, C HK25,HK28,HK27,HK27,HK27,HK27, C HK27,HK27,HK25,HK26D,HK25,HK25, C HK25,HK25,HK27,HK27,HK25,HK26B, C HK25,HK25,HK28,HK28 CBG TBIN6,W0,HK25 INVALID KEY MOVE TP2,TBIN6 PERF LCKSET TURNED KEYLOCK B HK25 HK26A SLET SK[RM PERF ERASCR B HK23 HK26B RESET PRINTER PERF FUNC24 B HK25 HK26C SLET DATA PERF FUNC05 HK26D CURSOR HOME PERF ERALIN,W3 PERF ERALIN,W4 PERF ERALIN,W5 PERF ERALIN,W6 CBE TP1,W7,HK26F X-MARK PERF READDC,W6 NOTHING EXPECTED B HK26E HK26F PERF READDC,W40 NEW MASK OR SP.SP.LF.LF HK26E BNOK HK26G PERF SSLL BNOK EXCH05 EXPECTED HK26G PERF RESTFT B HK30 HK28 PERF SAVEFT NEJ,JA1,JA2 HK27 PERF READDC,W10 BNOK HK27A PERF SSLL BNOK EXCH05 HK27A PERF FUNC01 ALL BLUE KEYS B EXCH EJECT HK30 SET TALLFLD ** A NORMAL MASK HAS BEEN RECEIVED ** ** OR AN OLD MASK IS RE-USED HK36 CLEAR TPOWFAIL HK40 PERF KBINP PROCESS INPUT TBT TPOWFAIL,EXCH05 UNPACK AFTER POWERFAILURE CLEAR TALLFLD PERF ERRTST BNZ HK40 TBT TNODEP,HK60 NO TESTS NEEDED CLEAR TALLFLD PERF FLDDEP TEST ON INTERRELATION BOK HK60 CLEAR TALLFLD B HK36 HK60 PERF SAVEFT SAVE "MDT"-BIT(S) B EXCH DCERROR ** A TIMEOUT HAS OCCURRED ** MOVE TBIN3,W2 IUT DSC1 LAMPS,OFF,TBIN3 PERF ERASCR MOVE TBIN3,=W'48' PERF PDUWRT,TBIN3,W1 'DATAMATEN OPTAGET' PERF CLRKBQ B HK20 EJECT ERRTST PROC * * THE PROCEDURE TESTS IF ANY FIELD IS FLAGGED * AS BEING WRONG. * IF SO, CR IS SET TO 'NOK' * FIELDS FILLED WITH SPACES OR ZEROES ARE FLAGGED AS ERRORFREE * AND NOT-MODIFIED * PERF PUSH,W2 MOVE TBIN1,W2 FIRST TO TEST MOVE TBIN2,FLDTAB(W1,W1) NBR OF FIELDS ACTIVE ADD TBIN2,W1 ERRT10 CBG TBIN1,TBIN2,ERRT90 FLDTAB EXHAUSTED? MOVE TSTRG10,CSP XCOPY TSTRG10,W0,FLDTAB(TBIN1,W3),OUTBUF,FLDTAB(TBIN1,W2) CBE TSTRG10,=C' ',ERRT10A MOVE TSTRG10,=C'0000000000' XCOPY TSTRG10,W0,FLDTAB(TBIN1,W3),OUTBUF,FLDTAB(TBIN1,W2) CBE TSTRG10,=C'0000000000',ERRT10A B ERRT12 ERRT10A CALL BITOFF,FLDTAB(TBIN1,W4),W0 CALL BITOFF,FLDTAB(TBIN1,W4),W2 CALL BITTST,FLDTAB(TBIN1,W4),W1 COMPULSARY FIELD? BZ ERRT12 NO CALL BITTST,FLDTAB(TBIN1,W4),W2 MODIFIED? BZ ERRT13 SHOULD BE, SO ERROR ERRT11 ADD TBIN1,W1 B ERRT10 ERRT12 CALL BITTST,FLDTAB(TBIN1,W4),W0 ERROR? BZ ERRT11 ERRT13 CALL BITON,FLDTAB(TBIN1,W4),W0 SET ERRORBIT PERF PULL,W2 CMP W0,W1 RET ERRT90 PERF PULL,W2 CMP W0,W0 RET PEND EJECT SETTP1 PROC * * SET TP1, DEPENDING ON THE VALUES OF PRINTFLG, * TSAVE(10) AND TSAVE(12). * PRINTFLG : IF 0, PRINT WAS OK * TSAVE(10): IF 0, NO TICKET WAS RECEIVED * TSAVE(12): IF 0, NO FLASHING FIELDS * MOVE TP1,W0 INITIAL VALUE TBT TPAPOUT,SETT00 CBE PRINTFLG,W0,SETT10 SETT00 ADD TP1,W1 SETT10 CBE TSAVE(W10),W0,SETT20 ADD TP1,W2 SETT20 CBE TSAVE(W12),W0,SETT30 ADD TP1,W4 SETT30 ADD TP1,W1 ADJUST VALUE FROM (0-7) TO (1-8) RET PEND EJECT TSTGTP PROC * * THIS PROCEDURE TESTS THE PRINTER FOR * PAPER OUT. * PERF PUSH,W1 DSC1 LAMPS,OFF,LPAT1 SWITCH OFF PAPER/OUT CLEAR TPAPOUT DSC0 GTP,TSTAT TEST PRINTER STATUS XSTAT GTP,TBIN1 CALL BITTST,TBIN1,W10 PAPER OUT? BZ TSTG10 DSC1 LAMPS,ON,LPAT2 BUZZ DSC1 LAMPS,FLSH,LPAT1 SET TPAPOUT TSTG10 PERF PULL,W1 RET PEND EJECT DCEXCH PROC DSC1 LAMPS,OFF,W1 PERF READDC,W1 ANYTHING WAITING? BOK DCEX95 DSC1 DC,STIMO,CTIMOUT PERF LCKTST * IB CTEST,DCEX91,DCEX92,DCEX93 TBT TALTBUF,DCEX20 XCOPY OUTBUF,W0,W1,TKEYS,W0 MOVE KEYLOCKSTATUS WRITE DC,OUTBUF,OUTLEN BNOK DCEX99 ERROR: EXIT B DCEX30 DCEX20 XCOPY TDC2BUF,W0,W1,TKEYS,W0 WRITE DC,TDC2BUF,TDC2LEN BNOK DCEX99 CLEAR TALTBUF DCEX30 PERF TSTGTP PERF READDC,CTIMOUT BNOK DCEX99 B DCEX95 DCEX91 * MOVE INBUF,MASK * MOVE INLEN,=W'106' * B DCEX95 DCEX92 * MOVE INBUF,TICKET * MOVE INLEN,=W'182' * B DCEX95 DCEX93 * MOVE INBUF,=X'0E20200A0A' * MOVE INLEN,W5 DCEX95 DSC1 LAMPS,ON,W1 CMP W0,W0 DCEX99 RET PEND READDC PROC P MOVE TLEN,CBUFLEN MOVE TBUF,CSP DSC1 DC,STIMO,P CBNE CTEST,W0,RDDC20 READ DC,TBUF,TLEN BNOK RDDC20 MOVE INBUF,TBUF MOVE INLEN,TLEN CMP W0,W0 B RDDC90 RDDC20 CMP W0,W1 RDDC90 RET PEND SSLL PROC * TEST FOR "GENTAG GL. MASKE" MOVE TSTRG5,INBUF CBE TSTRG5,=X'0E20200A0A',SSLL95 MOVE TSTRG6,INBUF CBE TSTRG6,=X'0E20200F0A0A',SSLL95 CMP W0,W1 SSLL95 RET PEND EJECT PDUWRT PROC IX,LIN * THE PROCEDURE WRITES VARIOUS TEXTS ON THE PDU, DEPENDING * ON THE PARAMETER. * IF THE PARAMETER IS ZERO, * THE CONTENTS OF TPDUBUF WILL BE WRITTEN "AS-IS". PERF PUSH,W2 MOVE TCURPOS,LIN CURSORPOS := MUL TCURPOS,=W'256' (LIN SHIFT 16) + 1 ADD TCURPOS,W1 DSC1 PDU,POS,TCURPOS CBE W0,IX,PDUW80 MOVE TBIN2,IX MOVE TBIN1,W2 PDUW10 CBE TBIN2,CINX(TBIN1),PDUW30 ERRORNBR FOUND? CBE CINX(TBIN1),=W'999',PDUW20 OUT OF ARRAY? ADD TBIN1,W1 NO, TRY NEXT B PDUW10 PDUW20 MOVE TBIN1,W1 ALL '*' IF NOT FOUND PDUW30 MOVE TBCD5,IX EDIT TPDUBUF,ERRFMT PDUW80 MOVE TBIN2,=W'42' WRITE PDU,TPDUBUF,TBIN2 PERF PULL,W2 CMP W0,W0 RET PEND ERRFMT FRMT FILLR '+',2 FILLR ' ',2 FMEL '99',TBCD5 FILLR ' ',1 FCOPY CTXT(TBIN1) FILLR ' ',6 FMEND ERALIN PROC P PERF PUSH,W1 MOVE TCURPOS,P MUL TCURPOS,=W'256' ADD TCURPOS,W1 DSC1 PDU,POS,TCURPOS MOVE TBIN1,=W'40' DSC1 PDU,ERASE,TBIN1 DSC1 PDU,POS,TCURPOS PERF PULL,W1 RET PEND EJECT UNPCK PROC MOVE FLDTAB(W1,W1),W0 MOVE FLDTAB(W1,W2),W0 MOVE FLDTAB(W1,W3),W0 MOVE FLDTAB(W1,W4),W0 CALL UNPACK, UNPACK ROUTINE C TSAVE(W1), WORKAREA FOR UNPACKROUTINE C INBUF, DC INPUT BUFFER C INLEN, LENGTH OF BUFFER C OUTBUF, OUTPUT BUFFER TO BE SENT C OUTLEN, LENGTH OF MSG TO BE SENT C FLDTAB(W1,W1), TABLE OVER INPUTFIELDS C PDU, DISPLAYDEVICE C GTP, PRINT DEVICE C PRINTFLG, TICKET PRINTED OR NOT C DC, DC DATASET C TDC2BUF USED FOR ACK/NAK/FUNCTIONS PERF CLRKBQ CLEAR CYCLIC BUFFER PERF SAVEFT SAVE IF > 4 INPUTFIELDS PERF RESTFT RESTORE IF < 5 INPUTFIELDS PERF BOOSET RET PEND EJECT CLRKBQ PROC CLRK10 * CLEAR CYCLIC BUFFER APART FROM KEYLOCK CHARACTERS MOVE TBIN1,W1 MOVE TBIN2,W0 KI .NW,.NE,KEYB,TKBBUF,KTAB02,TBIN1,TBIN2 ABORT KEYB BOK CLRK80 WAIT KEYB CBNL TBIN2,W0,CLRK10 ANYTHING ELSE THEN KEYLOCK MOVE TP2,TBIN2 PERF LCKSET WILL BE REFUSED B CLRK10 CLRK80 WAIT KEYB RET PEND EJECT SAVEFT PROC CBL FLDTAB(W1,W1),W5,SAVE90 PERF PUSH,W2 MOVE TBIN1,=W'21' MOVE TBIN2,W4 SAVE10 MOVE SAVTAB(TBIN1,TBIN2),FLDTAB(TBIN1,TBIN2) SUB TBIN2,W1 CBG TBIN2,W0,SAVE10 MOVE TBIN2,W4 SUB TBIN1,W1 CBG TBIN1,W0,SAVE10 PERF PULL,W2 SAVE90 RET PEND RESTFT PROC CBG FLDTAB(W1,W1),W4,REST90 CBNL SAVTAB(W1,W1),W5,REST00 PERF NOINPT B REST90 REST00 PERF PUSH,W2 MOVE TBIN1,=W'21' MOVE TBIN2,W4 REST10 MOVE FLDTAB(TBIN1,TBIN2),SAVTAB(TBIN1,TBIN2) SUB TBIN2,W1 CBG TBIN2,W0,REST10 MOVE TBIN2,W4 SUB TBIN1,W1 CBG TBIN1,W0,REST10 REST80 PERF PULL,W2 REST90 RET PEND BOOSET PROC MOVE TBIN1,FLDTAB(W1,W4) MASKNBR 1-8 CBL TBIN1,W1,BOO90 CBG TBIN1,W8,BOO90 CLEAR TSID CLEAR TLIG CLEAR TISID CLEAR TILIG CLEAR TSOV CLEAR TBIL CLEAR TAFBEST CLEAR TCHNG SET TNODEP SET TALLFLD IB TBIN1, C BOO11, SID C BOO12, ISID C BOO13, LIG C BOO14, ILIG C BOO15, AFBEST C BOO16, SOV C BOO17, BIL C BOO18 [NDRING BOO11 SET TSID B BOO90 BOO12 SET TISID B BOO90 BOO13 SET TLIG B BOO90 BOO14 SET TILIG B BOO90 BOO15 SET TAFBEST B BOO90 BOO16 SET TSOV B BOO90 BOO17 SET TBIL B BOO90 BOO18 SET TCHNG BOO90 RET PEND EJECT NOINPT PROC * * IN SOME CASES IT IS NECESSARY TO SIMULATE A FLDTAB OF * 1 INPUTFIELD. * MOVE FLDTAB(W1,W1),W1 NBR OF FIELDS = 1 MOVE FLDTAB(W2,W1),CHOME MOVE FLDTAB(W2,W2),W1 MOVE FLDTAB(W2,W3),W1 MOVE FLDTAB(W2,W4),=X'2920' ERROR 73 MOVE TCURPOS,=X'0101' DSC1 PDU,POS,TCURPOS MOVE OUTBUF,CZERO SET TNODEP RET PEND EJECT FLDDEP PROC * * THIS PRECEDURE TESTS THE INTERRELATIONSHIP * OF VARIOUS FIELDS * * IN THIS PART IT IS CHECKED IF THE FIELDS THEM- * SELVES ARE IN ERROR MOVE TBIN1,W2 FLDDS10 CBG TBIN1,FLDTAB(W1,W1),FLDD00 MOVE TBIN3,FLDTAB(TBIN1,W4) ATTRIBUTE CALL BITTST,TBIN3,W0 ERROR IN FIELD? BNZ FLDDS30 YES, WRITE ERRORMSG ADD TBIN1,W1 B FLDDS10 FLDDS30 CALL GMSGIX,TBIN3 ISOLATE ERRORNBR PERF PDUWRT,TBIN3,W4 B FLDD90 EXIT ************************* FLDD00 * CHECK IF ALL 'MUST-ENTER' FIELDS ARE PRESENT * ANY NOT-PRESENT FIELD IS FLAGGED AS BEING IN ERROR PERF MUST ALL COMPULSARY FIELDS PRESENT? BNOK FLDD90 NO, EXT TBF TSID,FLDD10 PERF FLDDSID B FLDD90 ************************* FLDD10 TBF TLIG,FLDD20 PERF FLDDLIG B FLDD90 ************************* FLDD20 TBT TAFBEST,FLDD85 ************************* FLDD30 TBF TCHNG,FLDD40 PERF FLDDCHNG B FLDD90 ************************* FLDD40 TBT TISID,FLDD85 ************************* FLDD50 TBT TILIG,FLDD85 ************************* FLDD70 TBF TSOV,FLDD80 PERF FLDDSOV B FLDD90 ************************* FLDD80 TBT TBIL,FLDD85 ************************* FLDD85 CMP W0,W0 FLDD90 RET PEND EJECT FLDDSID PROC PERF PUSH,W3 * TEST FOR '57 KUPE' CALL BITTST,FLDTAB(W9,W4),W2 BNZ FLDDS11 KUPE MODIFIED CALL BITTST,FLDTAB(W10,W4),W2 BZ FLDDS11 PLAC NOT MODIFIED MOVE TBIN3,=W'57' PERF PDUWRT,TBIN3,W4 B FLDDS90 FLDDS11 * IF ANTAL < 7, NO FURTHER TESTS ARE REQUIRED XCOPY TSTRG2,W0,W2,OUTBUF,FLDTAB(W2,W2) ANTAL MOVE TBCD5,TSTRG2 CBL TBCD5,=D'7',FLDDS14 * TEST FOR '84 RYGER/ANTAL' CALL BITTST,FLDTAB(W8,W4),W2 BZ FLDDS12 RYGER NOT MODIFIED MOVE TBIN3,=W'84' PERF PDUWRT,TBIN3,W4 B FLDDS90 FLDDS12 * TEST FOR '85 KUPE/ANTAL' CALL BITTST,FLDTAB(W9,W4),W2 BZ FLDDS13 KUPE NOT MODIFIED MOVE TBIN3,=W'85' PERF PDUWRT,TBIN3,W4 B FLDDS90 FLDDS13 * TEST FOR '86 PLACERING/ANTAL' CALL BITTST,FLDTAB(W10,W4),W2 BZ FLDDS14 MOVE TBIN3,=W'86' PERF PDUWRT,TBIN3,W4 B FLDDS90 FLDDS14 * 47 KUPE/RYGER, UFORENELIG CALL BITTST,FLDTAB(W9,W4),W2 KUPE BZ FLDDS16 XCOPY TSTRG1,W0,W1,OUTBUF,FLDTAB(W9,W2) CBNE TSTRG1,=C'6',FLDDS16 CALL BITTST,FLDTAB(W8,W4),W2 RYGER MODIFIED BZ FLDDS15 XCOPY TSTRG1,W0,W1,OUTBUF,FLDTAB(W8,W2) CBNE TSTRG1,=C'1',FLDDS15 MOVE TBIN3,=W'47' PERF PDUWRT,TBIN3,W4 B FLDDS90 * FLDDS15 * 46 KLASSE/KUPE UFORENELIG CALL BITTST,FLDTAB(W7,W4),W2 KLASSE BZ FLDDS16 XCOPY TSTRG1,W0,W1,OUTBUF,FLDTAB(W7,W2) CBNE TSTRG1,=C'1',FLDDS16 MOVE TBIN3,=W'46' PERF PDUWRT,TBIN3,W4 B FLDDS90 * FLDDS16 FLDDS40 * NO ERRORS FOUND IN THIS FORMAT PERF PULL,W3 CMP W0,W0 RET FLDDS90 PERF PULL,W3 CMP W0,W1 RET PEND EJECT FLDDLIG PROC PERF PUSH,W3 XCOPY TSTRG2,W0,W2,OUTBUF,FLDTAB(W2,W2) ANTAL MOVE TBCD5,TSTRG2 CBL TBCD5,=D'1',FLDDL20 CBG TBCD5,=D'24',FLDDL20 CBL TBCD5,=D'6',FLDDL30 CALL BITTST,FLDTAB(W7,W4),W2 BZ FLDDL30 PLAC NOT MODIFIED MOVE TBIN3,=W'86' B FLDDL25 FLDDL20 MOVE TBIN3,W9 FLDDL25 PERF PDUWRT,TBIN3,W4 PERF PULL,W3 CMP W0,W1 RET FLDDL30 PERF PULL,W3 CMP W0,W0 RET PEND EJECT FLDDCHNG PROC CMP W0,W0 RET PEND FLDDSOV PROC PERF PUSH,W3 MOVE TBIN2,=W'15' XCOPY TSTRG10,W0,W10,OUTBUF,FLDTAB(TBIN2,W2) REFNR MOVE TBIN1,W9 FLDDS01 XCOPY TSTRG1,W0,W1,TSTRG10,TBIN1 CBE TSTRG1,CZERO,FLDDS03 CBL TSTRG1,=C'0',FLDDS02 CBG TSTRG1,=C'9',FLDDS02 FLDDS03 SUB TBIN1,W1 CBG TBIN1,W0,FLDDS01 PERF PULL,W3 CMP W0,W0 RET FLDDS02 MOVE TBIN3,=W'94' PERF PDUWRT,TBIN3,W4 PERF PULL,W3 CMP W0,W1 RET PEND EJECT MUST PROC * * THIS ROUTINE CHECKS IF ALL 'ME' FIELDS HAVE * BEEN ENTERED, ENVENTUALLY AS A DEFAULT-VALUE * THIS MEANS, THAT IT IS SUFFICIENT TO CHECK * THE MODIFIED-BIT * PERF PUSH,W3 MOVE TBIN1,W2 MOVE TBIN2,FLDTAB(W1,W1) ADD TBIN2,W1 MUST10 CBG TBIN1,TBIN2,MUST90 CALL BITTST,FLDTAB(TBIN1,W4),W1 MUST-ENTER? BZ MUST20 CALL BITTST,FLDTAB(TBIN1,W4),W2 MODIFIED? BNZ MUST20 CALL BITON,FLDTAB(TBIN1,W4),W0 SET ERRORBIT B MUST30 JUMP OUT ON 1 ERROR MUST20 ADD TBIN1,W1 B MUST10 MUST30 PERF PULL,W3 CMP W0,W1 RET MUST90 PERF PULL,W3 CMP W0,W0 RET PEND EJECT * THE TWO PROCEDURES PUSH AND PULL TAKE CARE * OF THE STACKHANDLING. * DEPENDING ON THE PARAMETER, 1-8 OF THE BINARY * DATAITEMS TBIN1,TBIN2,...TBIN8 ARE * PUSHED ON THE STACK, OR PULLED OUT OF THE STACK. * TO KEEP TRACK OF 'WHERE TO PUT IT', A * STACKPOINTER IS MAINTAINED * AS THE DATAITEMS ARE SAVED IN THE SEQUENCE * TBIN8,7,6,.... THE PULL-OFF MUST BE BACKWARD. PUSH PROC B1 IB B1,PUS1,PUS2,PUS3,PUS4,PUS5,PUS6,PUS7,PUS8 PUS8 XCOPY TSTACK,TSTACKPT,W2,TBIN8,W0 ADD TSTACKPT,W2 PUS7 XCOPY TSTACK,TSTACKPT,W2,TBIN7,W0 ADD TSTACKPT,W2 PUS6 XCOPY TSTACK,TSTACKPT,W2,TBIN6,W0 ADD TSTACKPT,W2 PUS5 XCOPY TSTACK,TSTACKPT,W2,TBIN5,W0 ADD TSTACKPT,W2 PUS4 XCOPY TSTACK,TSTACKPT,W2,TBIN4,W0 ADD TSTACKPT,W2 PUS3 XCOPY TSTACK,TSTACKPT,W2,TBIN3,W0 ADD TSTACKPT,W2 PUS2 XCOPY TSTACK,TSTACKPT,W2,TBIN2,W0 ADD TSTACKPT,W2 PUS1 XCOPY TSTACK,TSTACKPT,W2,TBIN1,W0 ADD TSTACKPT,W2 RET PEND PULL PROC B1 SUB TSTACKPT,B1 POINT AT STARTADDRESS SUB TSTACKPT,B1 FOR PREVIOUS PUSH IB B1,PUL1,PUL2,PUL3,PUL4,PUL5,PUL6,PUL7,PUL8 PUL8 XCOPY TBIN8,W0,W2,TSTACK,TSTACKPT ADD TSTACKPT,W2 PUL7 XCOPY TBIN7,W0,W2,TSTACK,TSTACKPT ADD TSTACKPT,W2 PUL6 XCOPY TBIN6,W0,W2,TSTACK,TSTACKPT ADD TSTACKPT,W2 PUL5 XCOPY TBIN5,W0,W2,TSTACK,TSTACKPT ADD TSTACKPT,W2 PUL4 XCOPY TBIN4,W0,W2,TSTACK,TSTACKPT ADD TSTACKPT,W2 PUL3 XCOPY TBIN3,W0,W2,TSTACK,TSTACKPT ADD TSTACKPT,W2 PUL2 XCOPY TBIN2,W0,W2,TSTACK,TSTACKPT ADD TSTACKPT,W2 PUL1 XCOPY TBIN1,W0,W2,TSTACK,TSTACKPT ADD TSTACKPT,W2 ADJUST ONCE MORE, SO SUB TSTACKPT,B1 TSTACKPT NOW POINTS SUB TSTACKPT,B1 AT THE NEW STARTADDRESS RET PEND EJECT ERASCR PROC PERF PUSH,W1 MOVE TPDUBUF,=C'11 ' MOVE TBIN1,W3 WRITE PDU,TPDUBUF,TBIN1 PERF NOINPT PERF PULL,W1 RET PEND ERAIPT PROC * THE ROUTINE ERASES ALL MODIFIED * FIELDS BY OVERWRITING WITH X'AE' * THE MODIFIED BIT IS RESET PERF PUSH,W3 MOVE TBIN1,FLDTAB(W1,W1) NBR OF INPUTFIELDS CBL TBIN1,W1,ERAI050 MOVE TBIN2,W2 MOVE TPDUBUF,CERASE CLEAR TALTBUF MOVE OUTBUF,CZERO ERAI010 CALL BITOFF,FLDTAB(TBIN2,W4),W0 RESET ERRORBIT CALL BITOFF,FLDTAB(TBIN2,W4),W2 RESET MODIFIED BIT MOVE TCURPOS,FLDTAB(TBIN2,W1) CURSORPOS ON PDU DSC1 PDU,POS,TCURPOS POSITION CURSOR MOVE TBIN3,FLDTAB(TBIN2,W3) FIELD LENGTH ADD TBIN3,W2 ADJUST FOR '++' WRITE PDU,TPDUBUF,TBIN3 WRITE PERIODS ON PDU ADD TBIN2,W1 SUB TBIN1,W1 MORE FIELDS LEFT? BNZ ERAI010 YES THERE WERE, TAKE NEXT ERAI050 PERF PULL,W3 RET PEND EJECT LCKTST PROC PERF PUSH,W7 LOCK20 MOVE TBIN1,W0 XCOPY TBIN1,W1,W1,TKEYS,W0 GET KEYLOCKSTATUS CALL GFLDIX,TBIN1 EXTRACT LAST 4 BITS ADD TBIN1,W1 ADJUST FOR NO-KEYLOCKS IB TBIN1,LOCK40,LOCK40,LOCK40,LOCK30, C LOCK40,LOCK30,LOCK30,LOCK30,LOCK40 LOCK30 MOVE TBIN3,=W'74' PERF PDUWRT,TBIN3,W4 MOVE TP1,W1 REQ. LENGTH MOVE TBIN7,W0 PERF READKB READ KEYLOCK PERF ERALIN,W4 B LOCK20 AND TEST AGAIN LOCK40 PERF PULL,W7 RET PEND EJECT FUNC00 PROC CMP W0,W0 RET PEND FUNC01 PROC * A FUNCTION KEY HAS BEEN DEPRESSED. * THE VALUE TO BE SENT CAN BE FOUND IN CCODE, * WITH THE INDEX AS INDEX IN A XCOPY PERF PUSH,W3 MOVE TCURPOS,CHOME DSC1 PDU,POS,TCURPOS CBL TBIN6,W1,FUNC0199 CHECK FOR VALID KEY CBG TBIN6,=W'28',FUNC0199 SET TALTBUF WRITE FORM ALTERNATE BUFFER XCOPY TDC2BUF,W1,W1,CCODE,TBIN6 MOVE ASCII-CODE MOVE TDC2LEN,W2 XCOPY TSTRG1,W0,W1,CCODE,TBIN6 CBE TBIN6,W8,FUNC0199 NEJ CBE TBIN6,=W'27',FUNC0199 JA1 CBE TBIN6,=W'28',FUNC0199 JA2 PERF NOINPT CBE TBIN6,=W'21',FUNC01A [NDR CBE TBIN6,=W'22',FUNC01B TEST * THERE ARE 2 SPECIAL MASKS, NOT ADHERING TO * THE STANDARD. THESE ARE [NDRINGSMASKE AND TESTMASKE. * THEREFORE, A SPECIAL BUFFER HAS TO BE SET UP * WHEN ONE OF THESE KEYS IS PRESSED. B FUNC01C FUNC01A [NDRINGSMASKE WANTED MOVE TDC2BUF,CZERO MOVE TDC2LEN,W1 SEND STX!KEY!ETX B FUNC01C FUNC01B TEST MASKE MOVE TDC2BUF,=X'00303100' MOVE TDC2LEN,W3 FUNC01C MOVE SAVTAB(W1,W1),W1 MOVE SAVTAB(W2,W1),CHOME MOVE SAVTAB(W2,W2),W1 MOVE SAVTAB(W2,W3),W1 MOVE SAVTAB(W2,W4),=X'2920' FUNC0199 PERF PULL,W3 RET PEND FUNC03 PROC * BACKTAB. * IF THE KEY GETS NEGATIVE, A WRAP-AROUND HAS * TO BE PERFORMED (TO THE LAST INPUTFIELD) SUB TBIN2,W1 CBG TBIN2,W1,FUNC0399 MOVE TBIN2,TBIN1 ADD TBIN2,W1 FIND INDEX OF LAST FIELD FUNC0399 RET PEND FUNC04 PROC * FORWARD TAB * A WRAP-AROUND MAY HAVE TO BE PERFORMED PERF PUSH,W3 ADD TBIN2,W1 NEXT FIELD MOVE TBIN3,TBIN1 ADD TBIN3,W1 CBNG TBIN2,TBIN3,FUNC0499 STILL WITHIN LIMITS? MOVE TBIN2,W2 FUNC0499 PERF PULL,W3 RET PEND FUNC05 PROC * ERASE ALL INPUTFIELDS * SEND CURSOR HOME PERF ERAIPT MOVE TBIN2,W2 RET PEND FUNC06 PROC * ERASE SCREEN MOVE OUTBUF,CZERO PERF ERASCR SET TNODEP RET PEND FUNC07 PROC ETX PERF PUSH,W8 MOVE TSTRG10,CZERO XCOPY TSTRG10,W0,TBIN5,TKBBUF,W0 MOVE TKBBUF,TSTRG10 MOVE TBIN3,FLDTAB(TBIN7,W2) STARTPOS + DISPL ADD TBIN3,TBIN5 + 2 GIVES TOTAL LENGTH * CLEAR REST OF BUFFER MOVE TBIN2,=W'300' FUNC0710 CBNL TBIN3,TBIN2,FUNC0720 XCOPY OUTBUF,TBIN3,W1,CZERO,W0 ADD TBIN3,W1 B FUNC0710 FUNC0720 * IDEALLY, THE CURRENT FIELD SHOULD BE TESTED * AGAIN, BUT FOR THE TIME BEING THE ERROR-BIT * IS UNCONDITIONALLY RESET B FUNC0740 * CLEAR THE REST OF THE INPUTFIELDS. * AS THE OUTPUTBUFFER IS ALREADY EMPTIED, * CLEARING THE MODIFIED-BIT WILL DO FUNC0730 ADD TBIN7,W1 NEXT TO CLEAR FUNC0740 CALL BITOFF,FLDTAB(TBIN7,W4),W0 CLEAR ERRORBIT CALL BITOFF,FLDTAB(TBIN7,W4),W2 CLEAR MDT DSC1 PDU,POS,FLDTAB(TBIN7,W1) MOVE TPDUBUF,CERASE MOVE TBIN4,FLDTAB(TBIN7,W3) ADD TBIN4,W2 ADJUST FOR ++ WRITE PDU,TPDUBUF,TBIN4 CBNG TBIN7,TBIN1,FUNC0730 MORE LEFT? PERF PULL,W8 RET PEND FUNC15 PROC * KEY 'B15' HAS BEEN PRESSED. CMP W0,W0 RET PEND FUNC17 PROC * CURSOR DOWN. * GET 1. FIELD ON NEXT LINE. * IF THERE ARE NO 'LOWER' LINES, * POS. ON 1. INPUTFIELD ADD TBIN1,W1 ANTAL INPUTFELTER MOVE TBIN9,W0 MOVE TBIN10,W0 XCOPY TBIN10,W1,W1,TCURPOS,W0 LINENBR FUNC1710 ADD TBIN2,W1 NEXT FIELD XCOPY TBIN9,W1,W1,FLDTAB(TBIN2,W1),W0 CBG TBIN2,TBIN1,FUNC1730 OUT OF TABLE CBG TBIN9,TBIN10,FUNC1799 LOWER LINE FOUND B FUNC1710 FUNC1730 MOVE TBIN2,W2 1. INPUTFIELD FUNC1799 SUB TBIN1,W1 RET PEND FUNC18 PROC * TASTE 'A15' ER TRYKKET NED CMP W0,W0 RET PEND FUNC24 PROC PERF TSTGTP SUB TBIN2,W1 REENTER FIELD RET PEND EJECT * * I TESTXX-PROCEDURERNE BRUGER JEG "IMPLIED SETTING" * AF CONDITIONSREGISTRET. * DETTE REGISTER BLIVER JO SAT IFM EN COMPARE. * HVIS MAN F.X. SIGER CMP 0,0 * VIL REGISTRET BLIVE SAT TIL 0 (EQUAL) TEST01 PROC * ONLY '0' ALLOWED MOVE TBCD5,TKBBUF CMP TBCD5,=D'0' RET PEND TEST02 PROC * 0,1 MOVE TBCD5,TKBBUF CBE TBCD5,=D'0',TEST0299 CBE TBCD5,=D'1',TEST0299 TEST0299 RET PEND TEST03 PROC * 0-2 MOVE TBCD5,TKBBUF CBE TBCD5,=D'0',TEST0399 CBE TBCD5,=D'1',TEST0399 CBE TBCD5,=D'2',TEST0399 TEST0399 RET PEND TEST04 PROC * 0-3 MOVE TBCD5,TKBBUF CBL TBCD5,=D'0',TEST0498 CBG TBCD5,=D'3',TEST0498 CMP W0,W0 B TEST0499 TEST0498 CMP W0,W1 TEST0499 RET PEND TEST05 PROC CMP W0,W0 RET PEND TEST06 PROC * 0-5 MOVE TBCD5,TKBBUF CBL TBCD5,=D'0',TEST0698 CBG TBCD5,=D'5',TEST0698 CMP W0,W0 B TEST0699 TEST0698 CMP W0,W1 TEST0699 RET PEND TEST07 PROC CMP W0,W0 RET PEND TEST08 PROC * 0-7 MOVE TBCD5,TKBBUF CBL TBCD5,=D'0',TEST0798 CBG TBCD5,=D'7',TEST0798 CMP W0,W0 B TEST0799 TEST0798 CMP W0,W1 TEST0799 RET PEND TEST09 PROC * 0-9 CMP W0,W0 RET PEND TEST10 PROC * 0-24 MOVE TBCD5,TKBBUF CBL TBCD5,=D'0',TEST1098 CBG TBCD5,=D'24',TEST1098 CMP W0,W0 B TEST1099 TEST1098 CMP W0,W1 TEST1099 RET PEND TEST11 PROC * 0,1,9 MOVE TBCD5,TKBBUF CBE TBCD5,=D'0',TEST1199 CBE TBCD5,=D'1',TEST1199 CBE TBCD5,=D'9',TEST1199 TEST1199 RET PEND TEST12 PROC * 0,1,2,5 MOVE TBCD5,TKBBUF CBE TBCD5,=D'0',TEST1299 CBE TBCD5,=D'1',TEST1299 CBE TBCD5,=D'2',TEST1299 CBE TBCD5,=D'5',TEST1299 TEST1299 RET PEND TEST13 PROC * 00-99 MOVE TBCD5,TKBBUF CBL TBCD5,=D'0',TEST1399 CBG TBCD5,=D'99',TEST1399 CMP W0,W0 TEST1399 RET PEND TEST14 PROC * 0,2,3,4,5 MOVE TBCD5,TKBBUF CBE TBCD5,=D'0',TEST1499 CBL TBCD5,=D'2',TEST1498 CBG TBCD5,=D'5',TEST1498 CMP W0,W0 B TEST1499 TEST1498 CMP W0,W1 TEST1499 RET PEND TEST15 PROC * 0,2,3,5 MOVE TBCD5,TKBBUF CBE TBCD5,=D'0',TEST1599 CBE TBCD5,=D'2',TEST1599 CBE TBCD5,=D'3',TEST1599 CBE TBCD5,=D'5',TEST1599 TEST1599 RET PEND TEST16 PROC * 0000000000-9999999999 CMP W0,W0 RET PEND TEST17 PROC * 1-6 MOVE TBCD5,TKBBUF CBL TBCD5,=D'1',TEST1798 CBG TBCD5,=D'6',TEST1798 CMP W0,W0 B TEST1799 TEST1798 CMP W0,W1 TEST1799 RET PEND TEST18 PROC * 0-99999 CMP W0,W0 RET PEND TEST19 PROC * 1-20 MOVE TBCD5,TKBBUF CBL TBCD5,=D'1',TEST1998 CBG TBCD5,=D'20',TEST1998 CMP W0,W0 B TEST1999 TEST1998 CMP W0,W1 TEST1999 RET PEND TEST20 PROC * 1-24 MOVE TBCD5,TKBBUF CBL TBCD5,=D'1',TEST2098 CBG TBCD5,=D'24',TEST2098 CMP W0,W0 B TEST2099 TEST2098 CMP W0,W1 TEST2099 RET PEND TEST21 PROC * 1-999 MOVE TBCD5,TKBBUF CBL TBCD5,=D'1',TEST2198 CBG TBCD5,=D'999',TEST2198 CMP W0,W0 B TEST2199 TEST2198 CMP W0,W1 TEST2199 RET PEND TEST22 PROC * 1-99998 MOVE TBCD5,TKBBUF CBL TBCD5,=D'1',TEST2298 CBG TBCD5,=D'99998',TEST2298 CMP W0,W0 B TEST2299 TEST2298 CMP W0,W1 TEST2299 RET PEND TEST23 PROC * 1-99999 MOVE TBCD5,TKBBUF CBL TBCD5,=D'1',TEST2398 CBG TBCD5,=D'99999',TEST2398 CMP W0,W0 B TEST2399 TEST2398 CMP W0,W1 TEST2399 RET PEND TEST24 PROC * ALL FIGS 0-3 MOVE TBIN8,W1 TEST2410 CBG TBIN8,TBIN5,TEST2498 LENGTH EXCEEDED? XCOPY TSTRG1,W0,W1,TKBBUF,TBIN8 CBE TSTRG1,CNIL,TEST2498 MOVE TBCD5,TSTRG1 CBL TBCD5,=D'0',TEST2497 CBG TBCD5,=D'3',TEST2497 ADD TBIN8,W1 B TEST2410 TEST2497 CMP W0,W1 B TEST2499 TEST2498 CMP W0,W0 TEST2499 RET PEND TEST25 PROC * 000000-999999 CMP W0,W0 RET PEND TEST26 PROC * ALL FIGS 0-4 MOVE TBIN8,W1 TEST2610 CBG TBIN8,TBIN5,TEST2698 LENGTH EXCEEDED? XCOPY TSTRG1,W0,W1,TKBBUF,TBIN8 CBE TSTRG1,CNIL,TEST2698 MOVE TBCD5,TSTRG1 CBL TBCD5,=D'0',TEST2697 CBG TBCD5,=D'4',TEST2697 ADD TBIN8,W1 B TEST2610 TEST2697 CMP W0,W1 B TEST2699 TEST2698 CMP W0,W0 TEST2699 RET PEND TEST27 PROC * DATOCHECK DD-MM PERF PUSH,W2 MOVE TSTRG2,TKBBUF MOVE TBCD5,TSTRG2 CBL TBCD5,=D'1',TEST2798 CBG TBCD5,=D'31',TEST2798 MOVE TBIN1,TBCD5 XCOPY TSTRG2,W0,W2,TKBBUF,W2 MOVE TBCD5,TSTRG2 CBL TBCD5,=D'1',TEST2798 CBG TBCD5,=D'12',TEST2798 MOVE TBIN2,TBCD5 CBL TBIN1,=W'29',TEST2799 <29 DAYS ALWAYS OK IB TBIN2,TEST2701,TEST2702,TEST2703,TEST2704, C TEST2705,TEST2706,TEST2707,TEST2708,TEST2709, C TEST2710,TEST2711,TEST2712 TEST2701 TEST2703 TEST2705 TEST2707 TEST2708 TEST2710 TEST2712 B TEST2799 TEST2704 TEST2706 TEST2709 TEST2711 CBE TBIN1,=W'31',TEST2798 ONLY 30 DAYS B TEST2799 TEST2702 CBG TBIN1,=W'29',TEST2798 B TEST2799 TEST2798 PERF PULL,W2 CMP W0,W1 RET TEST2799 PERF PULL,W2 CMP W0,W0 RET PEND TEST28 PROC * 0-9 CMP W0,W0 TEST2899 RET PEND TEST29 PROC MOVE TBCD5,TKBBUF CBE TBCD5,=D'0',TEST2999 CBE TBCD5,=D'1',TEST2999 CBE TBCD5,=D'2',TEST2999 CBE TBCD5,=D'3',TEST2999 CMP TBCD5,=D'6' TEST2999 RET PEND TEST30 PROC CMP W0,W0 RET PEND TEST31 PROC * 0-6 MOVE TBCD5,TKBBUF CBL TBCD5,=D'0',TEST3198 CBG TBCD5,=D'6',TEST3198 CMP W0,W0 RET TEST3198 CMP W0,W1 RET PEND EJECT KBINP PROC * * THIS PROCEDURE SCANS THE FIELD-TABLE AND * EXECUTES A KB-INPUT FOR EVERY ELEMENT IF TALLFLD IS SET, * OTHERWISE, ONLY THE FLAGGED FIELDS ARE TREATED * THE LAYOUT OF THE FIELDTABLE CAN BE FOUND * IN THE DATADIVISION. * * A 'KI' IS TERMINATED AFTER * 1. LENGTH EXCEEDED * 2. TABKEYS PRESSED * 3. FUNCTION KEY PRESSED * 4. KEYLOCK TURNED * 5. POWER OFF/ON * * THE FOLLOWING BITS IN EL.4 MAY BE SET: * 0. DATA ERROR (INVALID DATA) * 1. MUST-ENTER * 2. FIELD MODIFIED * * THE BINARY FIELDS ARE USED FOR THE FOLLOWING PURPOSES: * TBIN1 - LOOP CONTROL (NUMBER OF INPUT FIELDS) * TBIN2 - 'NEW' CURRENT FIELD * TBIN3 - SCRATCH / CURSORPOSITION * TBIN4 - FIELD INDEX * TBIN5 - FIELD LENGTH * TBIN6 - INDEX TO USED END-KEY * TBIN7 - 'OLD' CURRENT FIELD * TBIN8 - RETURN VALUE FROM READKB / SCRATCH KB000 CLEAR TNODEP MOVE TBIN1,FLDTAB(W1,W1) NBR OF FIELDS TO BE READ MOVE TBIN2,W2 FIRST ENTRY IN FLDTAB TBT TALLFLD,KB015 MOVE TBIN3,TBIN1 ADD TBIN3,W1 KB011 CALL BITTST,FLDTAB(TBIN2,W4),W0 ERROR? BNZ KB012 YES, WRITE TEXT ADD TBIN2,W1 NEXT FIELD CBNG TBIN2,TBIN3,KB011 OUT OF TABLE? SET TALLFLD B KB000 KB012 MOVE TBIN3,FLDTAB(TBIN2,W4) ERRORMSG (NUM.PART) CALL GMSGIX,TBIN3 ISOLATE ERRORNBR TBT TCHNG,KB013 PERF PDUWRT,TBIN3,W4 WRITE ON PDU B KB015 KB013 PERF PDUWRT,TBIN3,W6 LINE 6= ERRORLINE KB015 MOVE TBIN7,TBIN2 SAVE INDEX TO CURRENT FIELD MOVE TCURPOS,FLDTAB(TBIN2,W1) START OF FIELD DSC1 PDU,POS,TCURPOS POSITION CURSOR MOVE TBIN4,FLDTAB(TBIN2,W4) CALL GFLDIX,TBIN4 FIELD INDEX MOVE TP1,FLDTAB(TBIN2,W3) FIELD LENGTH PERF READKB READ DATA MOVE TBIN5,TP1 RETURNED LENGTH MOVE TBIN6,TP2 INDEX TOKEYTAB IB TBIN8, C KB060, POWER FAILURE, DO AN UNPACK C KB015, KEYLOCK TURNED, RESTART INPUT C KB020, REQ.LENGTH EXCEEDED C KB030, NORMAL END OF INPUT, C KB000 TIMEOUT ON KEYBOARD KB020 SET TAUTOTAB SIMULATE FTABKEY XCOPY TKBBUF,TBIN5,W1,W4,W1 INSERT FTABKEY ADD TBIN5,W1 ADJUST LENGTH MOVE TBIN6,W4 KB030 PERFI TBIN6, FUNCTIONKEY DEPRESSED C FUNC01,FUNC01,FUNC03,FUNC04,FUNC05,FUNC06, C FUNC07,FUNC01,FUNC01,FUNC01,FUNC01,FUNC01, C FUNC01,FUNC01,FUNC15,FUNC00,FUNC17,FUNC18, C FUNC00,FUNC00,FUNC01,FUNC01,FUNC00,FUNC24, C FUNC00,FUNC00,FUNC01,FUNC01 IB TBIN6, RESTARTPOINT C KB034,KB034,KB034,KB034,KB015,KB000, C KB034,KB034,KB034,KB034,KB034,KB034, C KB034,KB034,KB032,KB033,KB034,KB032, C KB034,KB034,KB034,KB034,KB034,KB034, C KB015,KB034,KB034,KB034 B KB034 KB032 KB033 MOVE TBIN2,W2 KB034 CBE TBIN5,W0,KB051 IF L=0, IT WAS FUNCTION MOVE TBIN8,FLDTAB(TBIN7,W2) XCOPY OUTBUF,TBIN8,TBIN5,TKBBUF,W0 CALL BITON,FLDTAB(TBIN7,W4),W2 SET 'MODIFIED' XCOPY TKBBUF,W0,FLDTAB(TBIN7,W3),OUTBUF,TBIN8 CMP W0,W0 SET COND.REG. TIL 0 PERFI TBIN4, FIELD VALIDATION C TEST01,TEST02,TEST03,TEST04,TEST05, C TEST06,TEST07,TEST08,TEST09,TEST10, C TEST11,TEST12,TEST13,TEST14,TEST15, C TEST16,TEST17,TEST18,TEST19,TEST20, C TEST21,TEST22,TEST23,TEST24,TEST25, C TEST26,TEST27,TEST28,TEST29,TEST30, C TEST31 BOK KB040 NO ERRORS? CALL BITON,FLDTAB(TBIN7,W4),W0 INDICATE ERROR B KB050 KB040 CALL BITOFF,FLDTAB(TBIN7,W4),W0 FIELD OK KB050 KB051 IB TBIN6, C KB090,KB090,KB052,KB052,KB052,KB090, C KB080,KB090,KB090,KB090,KB090,KB090, C KB090,KB090,KB090,KB000,KB015,KB090, C KB090,KB090,KB090,KB090,KB055,KB055, C KB090,KB080,KB090,KB090 KB052 CBNE TBIN2,TBIN7,KB015 IF DIFFERENT, TBIN2 OK KB055 ADD TBIN2,W1 MOVE TBIN7,TBIN1 ADD TBIN7,W1 CBNG TBIN2,TBIN7,KB015 TBF TALLFLD,KB090 ERROR CORRECTION? B KB000 WRAP AROUND IF DATAENTRY KB060 POWER FAILURE DETECTED MOVE PRINTFLG,=W'-1' NO PRINTING SET TPOWFAIL B KB090 KB080 CLEAR TALTBUF ETX/SEND ONLY KB090 RET PEND EJECT READKB PROC * THE PROCEDURE READS A FIELD FROM THE KEYBOARD. * PARAMETERS: * TP1 - FIELD LENGTH * RETURNED BINARIES: * TP1 - EFFECTIVE LENGTH * TP2 - INDEX TO KEYTAB * TBIN8 - 1=POWER FAILURE * 2=KEYLOCK TURNED * 3=OVERFLOW * 4=NORMAL * 5=KEYBOARDTIMEOUT PERF PUSH,W4 CLEAR TAUTOTAB MOVE TBIN3,TP1 SAVE FIELD LENGTH PERF KBREAD BERR RKB010 CMP TP2,W0 BE RKB020 POWER FAILURE BL RKB030 KEYLOCK TURNED CBE TP2,=W'33',RKB060 TIMEOUT B RKB050 RKB010 * NOW ONE OF THREE THINGS HAPPENED: * CASE 2: NEITHER ALPHANUM NOR LISTED IN KEYTAB * CASE 3: OVERFLOW IN DATAITEM (SHOULD BE IMPOSSIBLE) * CASE 5: NBR OF CHARS. REACHED CBE TP2,TBIN3,RKB040 THIS WAS CASE 5 * NOW ONLY CASE 2 IS LEFT * THIS IS CONSIDERED TO BE IMPOSSIBLE, RIGHT NOW B RKB050 RKB020 POWER FAILURE MOVE TBIN8,W1 B RKB090 RKB030 KEYLOCK TURNED PERF LCKSET MOVE TBIN8,W2 B RKB090 RKB040 TOO MANY INPUTCHARS MOVE TBIN8,W3 B RKB090 RKB050 NORMAL MOVE TBIN8,W4 B RKB090 RKB060 MOVE TBIN8,W5 RKB090 PERF PULL,W4 RET PEND EJECT KBREAD PROC * * THE PROCEDURE READS FROM THE KB6272. * PARAMETERS: * TP1 - HOW MANY CHARACTERS TO READ (MAX), ON RETURN THIS ITEM * WILL CONTAIN THE ACTUAL NBR OF CHARS READ * TP2 - ON COMPLETION THIS ITEM WILL POINT AT THE END-OF-ITEM KEY USED * * SPECIAL FEATURES: * BSP - BACKSPACE - NON-DESTRUCTIVE CURSOR MOVE TO LEFT * FSP - FWDSPACE - NON-DESTRUCTIVE CURSORMOVE TO RIGHT * * TBIN1 - LENGTH OF JUST COMPLETE 'KI' * TBIN2 - ORIG. LENGTH, DECREMENTS TO ZERO WHEN ALL POS ARE INPUT * TBIN3 - DISPLACEMENT IN TSTRG40 * TBIN4 - ORIG. LENGTH * TBIN5 - INDEX TO KEYTABLE * TBIN6 - SCRATCH * TBIN7 - SCRATCH * TBIN8 - USED TO SAVE FIELDINDEX * PERF PUSH,W8 MOVE TBIN8,TBIN7 SAVE FIELD INDEX CBG TBIN8,W0,KBR010 MOVE TBIN8,W1 KBR010 CLEAR TBOOL MOVE TBIN3,W0 MOVE TBIN4,TP1 SAVE ORIG.LENGTH MOVE TBIN2,TP1 MOVE TSTRG40,CZERO MOVE TBIN7,TCURPOS TCURPOS MIGHT BE MODIFIED XCOPY TSTRG40,W0,TBIN4,OUTBUF,FLDTAB(TBIN8,W2) KBR016 DSC1 PDU,POS,TBIN7 MOVE TBIN1,TBIN2 RESTLENGTH CBNG TBIN1,W0,KBR030 FTAB IF FILLED UP KI KEYB,TKBBUF,KTAB02,TBIN1,TP2 BOK KBR040 KEYLOCK OR TERM. CHAR. * A CHAR NEITHER ALPHANUM NOR LISTED IN * KEYTABLE IS INPUT * SIZE OF BUFFER IS REACHED * POWER FAILURE * REQ. NBR OF CHARS IS REACHED * ONLY POSSIBILITIES: * POWERFAILURE OR OVERFLOW XSTAT KEYB,TKBSTAT MOVE TBIN6,=X'0040' BIT 9 CALL MASK,TKBSTAT,TBIN6 BZ KBR018 NO TIMEOUT PERF FUNC06 MOVE TP2,=W'33' B KBR025 KBR018 CBNE W0,TP2,KBR030 ********** KBR020 PERF PULL,W8 CMP W0,W1 UNDEF. ERROR OR PWR FAILURE B KBR099 RETURN ********** KBR025 PERF PULL,W8 KEYLOCK TURNED CMP W0,W0 CR=OK B KBR099 ********** KBR030 MOVE TP2,W4 SIMULATE FTABKEY B KBR090 RETURN ********** KBR040 CBG TBIN1,W0,KBR045 IF ANY INPUTCHAR CLEAR TBOOL WE CAN RESET TBOOL KBR045 CBE TP2,W0,KBR020 POWER FAILURE ? BL KBR025 SUB TBIN1,W1 MOVE TBIN5,TP2 SAVE INDEX TO KEYTABLE CBE TBIN5,=W'19',KBR050 BSP CBE TBIN5,=W'20',KBR060 FSP CBE TBIN5,W7,KBR095 ETX B KBR090 ********** KBR050 BACKSPACE KEY PRESSED TBT TBOOL,KBR020 SUB TBIN2,TBIN1 HOW MANY CHARS LEFT ADD TBIN2,W1 CBNL TBIN2,TP1,KBR010 BACKSPACED WE TO START? XCOPY TSTRG40,TBIN3,TBIN1,TKBBUF,W0 ADD TBIN3,TBIN1 FIELD LENGTH SUB TBIN3,W1 MINUS 1 MOVE TBIN7,TCURPOS MOVE CURSOR ONE POS ADD TBIN7,TBIN3 -//- B KBR016 ********** KBR060 FORWARDSPACE KEY SUB TBIN2,TBIN1 HOW MANY CHARS MAY WE READ SUB TBIN2,W1 XCOPY TSTRG40,TBIN3,TBIN1,TKBBUF,W0 ADD TBIN3,TBIN1 FIELD LENGTH ADD TBIN3,W1 PLUS ONE MOVE TBIN7,TCURPOS MOVE CURSOR ONE POS ADD TBIN7,TBIN3 -//- B KBR016 *********** KBR090 XCOPY TSTRG40,TBIN3,TBIN1,TKBBUF,W0 COMPLETE BUFFER MOVE TKBBUF,TSTRG40 MOVE COMPLETED BUFFER TO APPL PERF FIND00,TKBBUF FIND TOTAL FIELDLENGTH KBR095 MOVE TSTRG40,CZERO XCOPY TSTRG40,W0,TBIN1,TKBBUF,W0 MOVE TKBBUF,TSTRG40 CBE TBIN5,W7,KBR097 ETX? PERF FIND00,TKBBUF JA, FIND IKKE L[NGDEN KBR097 MOVE TP1,TBIN1 PERF PULL,W8 CMP W0,W0 KBR099 RET PEND EJECT LCKSET PROC MUL TP2,=W'-1' IB TP2,RKB034,RKB033,RKB032,RKB031, C RKB038,RKB037,RKB036,RKB035 RKB031 CALL BITOFF,TKEYS,W7 B RKB039 RKB032 CALL BITOFF,TKEYS,W6 B RKB039 RKB033 CALL BITOFF,TKEYS,W5 B RKB039 RKB034 CALL BITOFF,TKEYS,W4 B RKB039 RKB035 CALL BITON,TKEYS,W7 B RKB039 RKB036 CALL BITON,TKEYS,W6 B RKB039 RKB037 CALL BITON,TKEYS,W5 B RKB039 RKB038 CALL BITON,TKEYS,W4 RKB039 RET PEND EJECT FIND00 PROC BUF * * FIND THE LENGTH OF THE DATAFIELD IN THE * BUFFER SPECIFIED. * IF THE LAST NON-ZERO CHAR IS BELOW X'20' * (EOI-KEY) THE COUNT WILL BE DECREASED BY 1. * MOVE TSTRG1,CZERO MOVE TBIN1,W0 MOVE TBIN7,=W'40' OBS OBS LENGTH OF TKBBUF MATCH BUF,TBIN1,TBIN7,TSTRG1,W0,W1 CBE TBIN1,W0,FIN010 MOVE TBIN7,TBIN1 SUB TBIN7,W1 XCOPY TSTRG1,W0,W1,TKBBUF,TBIN7 CBNL TSTRG1,CSP,FIN010 < X'20' IS EOI KEY SUB TBIN1,W1 FIN010 RET PEND END
0x0000…001e (0, 0, 400) Head {h00=0x001a, h01=0x0050, text=» IDENT PLADS 831223 NJ«, t00=0x0000, t01=0x0004}
0x001e…0028 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0022}
0x0028…004e Head {h00=0x0022, h01=0x0050, text=»* DATA DIVISION FOR DSB-PLADS «, t00=0x0000, t01=0x002c}
0x004e…0058 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0052}
0x0058…0066 Head {h00=0x000a, h01=0x0050, text=» DDIV «, t00=0x0000, t01=0x005c}
0x0066…0070 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x006a}
0x0070…0078 Head {h00=0x0004, h01=0x0050, t00=0x0000, t01=0x0074}
0x0078…0080 Head {h00=0x0004, h01=0x0050, t00=0x0000, t01=0x007c}
0x0080…008a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0084}
0x008a…00a2 Head {h00=0x0014, h01=0x0050, text=»* KEYBOARD TASK «, t00=0x0000, t01=0x008e}
0x00a2…00ac Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x00a6}
0x00ac…00bc Head {h00=0x000c, h01=0x0050, text=» TERM K0«, t00=0x0000, t01=0x00b0}
0x00bc…00c4 Head {h00=0x0004, h01=0x0050, t00=0x0000, t01=0x00c0}
0x00c4…00d4 Head {h00=0x000c, h01=0x0050, text=» CWB CB9«, t00=0x0000, t01=0x00c8}
0x00d4…00e4 Head {h00=0x000c, h01=0x0050, text=» CWB CB1«, t00=0x0000, t01=0x00d8}
0x00e4…00f4 Head {h00=0x000c, h01=0x0050, text=» CWB CB2«, t00=0x0000, t01=0x00e8}
0x00f4…00fc Head {h00=0x0004, h01=0x0050, t00=0x0000, t01=0x00f8}
0x00fc…010c Head {h00=0x000c, h01=0x0050, text=» TWB TB1«, t00=0x0000, t01=0x0100}
0x010c…011c Head {h00=0x000c, h01=0x0050, text=» TWB TB2«, t00=0x0000, t01=0x0110}
0x011c…012c Head {h00=0x000c, h01=0x0050, text=» TWB TB3«, t00=0x0000, t01=0x0120}
0x012c…0134 Head {h00=0x0004, h01=0x0050, t00=0x0000, t01=0x0130}
0x0134…013c Head {h00=0x0004, h01=0x0050, t00=0x0000, t01=0x0138}
0x013c…015c Head {h00=0x001c, h01=0x0050, text=»PDU DSET FC=50,BUFL=300 «, t00=0x0000, t01=0x0140}
0x015c…0174 Head {h00=0x0014, h01=0x0050, text=»KEYB DSET FC=20 «, t00=0x0000, t01=0x0160}
0x0174…0194 Head {h00=0x001c, h01=0x0050, text=»GTP DSET FC=30,BUFL=300 «, t00=0x0000, t01=0x0178}
0x0194…01ac Head {h00=0x0014, h01=0x0050, text=»LAMPS DSET FC=40«, t00=0x0001, t01=0x0008}
0x01ac…01c2 Head {h00=0x0012, h01=0x0050, text=»DC DSET FC=61 «, t00=0x0001, t01=0x0020}
0x01c2…01d8 Head {h00=0x0012, h01=0x0050, text=»DC2 DSET FC=61«, t00=0x0001, t01=0x0036}
0x01d8…01e0 Head {h00=0x0004, h01=0x0050, t00=0x0001, t01=0x004c}
0x01e0…01f4 Head {h00=0x0010, h01=0x0050, text=» START KBGO «, t00=0x0001, t01=0x0054}
0x01f4…0202 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0001, t01=0x0068}
0x0202…020c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x0076}
0x020c…021e Head {h00=0x000e, h01=0x0050, text=»* DC TASK «, t00=0x0001, t01=0x0080}
0x021e…0228 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x0092}
0x0228…0238 Head {h00=0x000c, h01=0x0050, text=» TERM D0«, t00=0x0001, t01=0x009c}
0x0238…0240 Head {h00=0x0004, h01=0x0050, t00=0x0001, t01=0x00ac}
0x0240…0250 Head {h00=0x000c, h01=0x0050, text=» CWB CB9«, t00=0x0001, t01=0x00b4}
0x0250…0260 Head {h00=0x000c, h01=0x0050, text=» CWB CB1«, t00=0x0001, t01=0x00c4}
0x0260…0270 Head {h00=0x000c, h01=0x0050, text=» CWB CB2«, t00=0x0001, t01=0x00d4}
0x0270…0278 Head {h00=0x0004, h01=0x0050, t00=0x0001, t01=0x00e4}
0x0278…0280 Head {h00=0x0004, h01=0x0050, t00=0x0001, t01=0x00ec}
0x0280…0298 Head {h00=0x0014, h01=0x0050, text=»DSDC DSET FC=60 «, t00=0x0001, t01=0x00f4}
0x0298…02a0 Head {h00=0x0004, h01=0x0050, t00=0x0001, t01=0x010c}
0x02a0…02b4 Head {h00=0x0010, h01=0x0050, text=» START DC1GO«, t00=0x0001, t01=0x0114}
0x02b4…02bc Head {h00=0x0004, h01=0x0050, t00=0x0001, t01=0x0128}
0x02bc…02cc Head {h00=0x000c, h01=0x0050, text=»CB9 BLK «, t00=0x0001, t01=0x0130}
0x02cc…02d6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x0140}
0x02d6…02fe Head {h00=0x0024, h01=0x0050, text=»CPOLL BOOL F TRUE AFTER 1. POLL «, t00=0x0001, t01=0x014a}
0x02fe…0306 Head {h00=0x0004, h01=0x0050, t00=0x0001, t01=0x0172}
0x0306…0342 Head {h00=0x0038, h01=0x0050, text=»MF1KBV STRG 64X'404142434445464748494A4B4C4D4E4F C «, t00=0x0001, t01=0x017a}
0x0342…036e Head {h00=0x0028, h01=0x0050, text=» 505152535455565758595A5B5C5D5E5F' «, t00=0x0002, t01=0x0026}
0x036e…0388 Head {h00=0x0016, h01=0x0050, text=»MF1CU BIN X'6040' «, t00=0x0002, t01=0x0052}
0x0388…039a Head {h00=0x000e, h01=0x0050, text=»BINWK1 BIN«, t00=0x0002, t01=0x006c}
0x039a…03b0 Head {h00=0x0012, h01=0x0050, text=»DCBUF STRG 300«, t00=0x0002, t01=0x007e}
0x03b0…03be Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0002, t01=0x0094}
0x03be…03ce Head {h00=0x000c, h01=0x0050, text=»CB1 BLK «, t00=0x0002, t01=0x00a2}
0x03ce…03d8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x00b2}
0x03d8…03ea Head {h00=0x000e, h01=0x0050, text=»W0 BIN '0'«, t00=0x0002, t01=0x00bc}
0x03ea…03fc Head {h00=0x000e, h01=0x0050, text=»W1 BIN '1'«, t00=0x0002, t01=0x00ce}
0x03fc…040e Head {h00=0x000e, h01=0x0050, text=»W2 BIN '2'«, t00=0x0002, t01=0x00e0}
0x040e…0420 Head {h00=0x000e, h01=0x0050, text=»W3 BIN '3'«, t00=0x0002, t01=0x00f2}
0x0420…0432 Head {h00=0x000e, h01=0x0050, text=»W4 BIN '4'«, t00=0x0002, t01=0x0104}
0x0432…0444 Head {h00=0x000e, h01=0x0050, text=»W5 BIN '5'«, t00=0x0002, t01=0x0116}
0x0444…0456 Head {h00=0x000e, h01=0x0050, text=»W6 BIN '6'«, t00=0x0002, t01=0x0128}
0x0456…0468 Head {h00=0x000e, h01=0x0050, text=»W7 BIN '7'«, t00=0x0002, t01=0x013a}
0x0468…047a Head {h00=0x000e, h01=0x0050, text=»W8 BIN '8'«, t00=0x0002, t01=0x014c}
0x047a…048c Head {h00=0x000e, h01=0x0050, text=»W9 BIN '9'«, t00=0x0002, t01=0x015e}
0x048c…04a0 Head {h00=0x0010, h01=0x0050, text=»W10 BIN '10'«, t00=0x0002, t01=0x0170}
0x04a0…04b4 Head {h00=0x0010, h01=0x0050, text=»W12 BIN '12'«, t00=0x0002, t01=0x0184}
0x04b4…04c8 Head {h00=0x0010, h01=0x0050, text=»W40 BIN '40'«, t00=0x0003, t01=0x0008}
0x04c8…04f4 Head {h00=0x0028, h01=0x0050, text=»LPAT1 BIN X'0010' PAPER OUT PATTERN «, t00=0x0003, t01=0x001c}
0x04f4…0524 Head {h00=0x002c, h01=0x0050, text=»LPAT2 BIN X'8000' AUDIBLE ALARM PATTERN «, t00=0x0003, t01=0x0048}
0x0524…052c Head {h00=0x0004, h01=0x0050, t00=0x0003, t01=0x0078}
0x052c…0534 Head {h00=0x0004, h01=0x0050, t00=0x0003, t01=0x0080}
0x0534…053c Head {h00=0x0004, h01=0x0050, t00=0x0003, t01=0x0088}
0x053c…054c Head {h00=0x000c, h01=0x0050, text=»CB2 BLK «, t00=0x0003, t01=0x0090}
0x054c…0556 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x00a0}
0x0556…057c Head {h00=0x0022, h01=0x0050, text=»CHOME BIN X'0101' CURSOR HOME «, t00=0x0003, t01=0x00aa}
0x057c…05a8 Head {h00=0x0028, h01=0x0050, text=»CTEST BIN '0' 0 - PRODUCTION VERSION«, t00=0x0003, t01=0x00d0}
0x05a8…05c2 Head {h00=0x0016, h01=0x0050, text=» 1 - SIDDEPLADS «, t00=0x0003, t01=0x00fc}
0x05c2…05de Head {h00=0x0018, h01=0x0050, text=» 2 - FAERGEBILLET «, t00=0x0003, t01=0x0116}
0x05de…05f8 Head {h00=0x0016, h01=0x0050, text=» 3 - SP-SP-LF-LF«, t00=0x0003, t01=0x0132}
0x05f8…0626 Head {h00=0x002a, h01=0x0050, text=»CTIMOUT BIN '1450' READ/WRITE TIMEOUT «, t00=0x0003, t01=0x014c}
0x0626…0650 Head {h00=0x0026, h01=0x0050, text=»CBUFLEN BIN '300' DC BUFFERLENGTH «, t00=0x0003, t01=0x017a}
0x0650…0696 Head {h00=0x0042, h01=0x0050, text=»CINX BINI (35),'0','9','10','11','46','47','48','54','55', C «, t00=0x0004, t01=0x0014}
0x0696…06c6 Head {h00=0x002c, h01=0x0050, text=» '56','57','58','59','60','61','62', C«, t00=0x0004, t01=0x005a}
0x06c6…06fc Head {h00=0x0032, h01=0x0050, text=» '65','66','67','68','73','74','75','80', C «, t00=0x0004, t01=0x008a}
0x06fc…072c Head {h00=0x002c, h01=0x0050, text=» '81','84','85','86','87','88','90', C«, t00=0x0004, t01=0x00c0}
0x072c…074a Head {h00=0x001a, h01=0x0050, text=» '91','92','94','999'«, t00=0x0004, t01=0x00f0}
0x074a…0770 Head {h00=0x0022, h01=0x0050, text=»* OBS: 'OE'R SKRIVES SOM '@'. «, t00=0x0004, t01=0x010e}
0x0770…0798 Head {h00=0x0024, h01=0x0050, text=»* DISSE ERSTATTES I OPSTARTDELEN«, t00=0x0004, t01=0x0134}
0x0798…07d8 Head {h00=0x003c, h01=0x0050, text=»CTXT STRGI (35),30C'******************************', C «, t00=0x0004, t01=0x015c}
0x07d8…07fc Head {h00=0x0020, h01=0x0050, text=» 30C'PLADSART/ANTAL? ', C «, t00=0x0005, t01=0x000c}
0x07fc…0814 Head {h00=0x0014, h01=0x0050, text=» 30C'TOG? ', C«, t00=0x0005, t01=0x0030}
0x0814…0830 Head {h00=0x0018, h01=0x0050, text=» 30C'STATION? ', C«, t00=0x0005, t01=0x0048}
0x0830…0862 Head {h00=0x002e, h01=0x0050, text=» 30C'KLASSE/KUPE, @NSKE UFORENELIG ', C «, t00=0x0005, t01=0x0064}
0x0862…0892 Head {h00=0x002c, h01=0x0050, text=» 30C'KUPE/RYGER, @NSKE UFORENELIG ', C«, t00=0x0005, t01=0x0096}
0x0892…08c2 Head {h00=0x002c, h01=0x0050, text=» 30C'DATAMATEN OPTAGET, PR@V IGEN ', C«, t00=0x0005, t01=0x00c6}
0x08c2…08dc Head {h00=0x0016, h01=0x0050, text=» 30C'DATO? ', C «, t00=0x0005, t01=0x00f6}
0x08dc…08f8 Head {h00=0x0018, h01=0x0050, text=» 30C'KLASSE? ', C «, t00=0x0005, t01=0x0110}
0x08f8…0912 Head {h00=0x0016, h01=0x0050, text=» 30C'RYGER? ', C«, t00=0x0005, t01=0x012c}
0x0912…092c Head {h00=0x0016, h01=0x0050, text=» 30C'KUPE? ', C «, t00=0x0005, t01=0x0146}
0x092c…094a Head {h00=0x001a, h01=0x0050, text=» 30C'PLACERING? ', C«, t00=0x0005, t01=0x0160}
0x094a…0962 Head {h00=0x0014, h01=0x0050, text=» 30C'FRI? ', C«, t00=0x0005, t01=0x017e}
0x0962…0982 Head {h00=0x001c, h01=0x0050, text=» 30C'TILSLUTNING? ', C«, t00=0x0006, t01=0x0008}
0x0982…09a0 Head {h00=0x001a, h01=0x0050, text=» 30C'SATELLIT? ', C «, t00=0x0006, t01=0x0028}
0x09a0…09c2 Head {h00=0x001e, h01=0x0050, text=» 30C'KONTROLNUMMER? ', C«, t00=0x0006, t01=0x0046}
0x09c2…09da Head {h00=0x0014, h01=0x0050, text=» 30C'NAT? ', C«, t00=0x0006, t01=0x0068}
0x09da…09fe Head {h00=0x0020, h01=0x0050, text=» 30C'BILART/PLADSART? ', C«, t00=0x0006, t01=0x0080}
0x09fe…0a22 Head {h00=0x0020, h01=0x0050, text=» 30C'REST/STR[KNING? ', C «, t00=0x0006, t01=0x00a4}
0x0a22…0a3c Head {h00=0x0016, h01=0x0050, text=» 30C'REST? ', C «, t00=0x0006, t01=0x00c8}
0x0a3c…0a5c Head {h00=0x001c, h01=0x0050, text=» 30C'ACCEPTKODE? ', C «, t00=0x0006, t01=0x00e2}
0x0a5c…0a76 Head {h00=0x0016, h01=0x0050, text=» 30C'N@GLE? ', C«, t00=0x0006, t01=0x0102}
0x0a76…0a98 Head {h00=0x001e, h01=0x0050, text=» 30C'STANDARDMASKE? ', C«, t00=0x0006, t01=0x011c}
0x0a98…0ab2 Head {h00=0x0016, h01=0x0050, text=» 30C'TEKNIK ', C«, t00=0x0006, t01=0x013e}
0x0ab2…0ad4 Head {h00=0x001e, h01=0x0050, text=» 30C'SKRIV MANUELT ', C «, t00=0x0006, t01=0x0158}
0x0ad4…0af4 Head {h00=0x001c, h01=0x0050, text=» 30C'RYGER/ANTAL? ', C«, t00=0x0006, t01=0x017a}
0x0af4…0b14 Head {h00=0x001c, h01=0x0050, text=» 30C'KUPE/ANTAL? ', C «, t00=0x0007, t01=0x000a}
0x0b14…0b38 Head {h00=0x0020, h01=0x0050, text=» 30C'PLACERING/ANTAL? ', C«, t00=0x0007, t01=0x002a}
0x0b38…0b5e Head {h00=0x0022, h01=0x0050, text=» 30C'FORKERT PLADSART? ', C «, t00=0x0007, t01=0x004e}
0x0b5e…0b82 Head {h00=0x0020, h01=0x0050, text=» 30C'FORBINDELSESD@R? ', C«, t00=0x0007, t01=0x0074}
0x0b82…0ba0 Head {h00=0x001a, h01=0x0050, text=» 30C'TURNUMMER? ', C«, t00=0x0007, t01=0x0098}
0x0ba0…0bbe Head {h00=0x001a, h01=0x0050, text=» 30C'BNR-@NSKE? ', C«, t00=0x0007, t01=0x00b6}
0x0bbe…0bd6 Head {h00=0x0014, h01=0x0050, text=» 30C'BNR? ', C«, t00=0x0007, t01=0x00d4}
0x0bd6…0c02 Head {h00=0x0028, h01=0x0050, text=» 30C'REFNR FEJLAGTIG UDFYLDT ', C «, t00=0x0007, t01=0x00ec}
0x0c02…0c30 Head {h00=0x002a, h01=0x0050, text=» 30C'!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!' «, t00=0x0007, t01=0x0118}
0x0c30…0c66 Head {h00=0x0032, h01=0x0050, text=»* OBS! "!" ER DELIMITER FOR ERSTATNING AF '@' «, t00=0x0007, t01=0x0146}
0x0c66…0c80 Head {h00=0x0016, h01=0x0050, text=»* MED DANSKE OE'ER«, t00=0x0007, t01=0x017c}
0x0c80…0ca8 Head {h00=0x0024, h01=0x0050, text=»CERASE STRG X'2B2BAE' "++<CNIL>"«, t00=0x0008, t01=0x0008}
0x0ca8…0cc0 Head {h00=0x0014, h01=0x0050, text=»CNIL STRG X'AE' «, t00=0x0008, t01=0x0030}
0x0cc0…0cd8 Head {h00=0x0014, h01=0x0050, text=»CZERO STRG X'00'«, t00=0x0008, t01=0x0048}
0x0cd8…0cee Head {h00=0x0012, h01=0x0050, text=»CSP STRG X'20'«, t00=0x0008, t01=0x0060}
0x0cee…0d22 Head {h00=0x0030, h01=0x0050, text=»* INVALID ENTRIES GENERATE A CALL TO SIDMASK«, t00=0x0008, t01=0x0076}
0x0d22…0d5a Head {h00=0x0034, h01=0x0050, text=»CCODE STRG 58X'003B22090909090930292821252726 C«, t00=0x0008, t01=0x00aa}
0x0d5a…0d82 Head {h00=0x0024, h01=0x0050, text=» 4209094B09091516200909093132' «, t00=0x0008, t01=0x00e2}
0x0d82…0dc0 Head {h00=0x003a, h01=0x0050, text=»* EVTL INCLUDES TEST FOR AT FAA EN MASKE OG EN BILLET «, t00=0x0008, t01=0x010a}
0x0dc0…0dc8 Head {h00=0x0004, h01=0x0050, t00=0x0008, t01=0x0148}
0x0dc8…0dd0 Head {h00=0x0004, h01=0x0050, t00=0x0008, t01=0x0150}
0x0dd0…0de0 Head {h00=0x000c, h01=0x0050, text=»TB1 BLK «, t00=0x0008, t01=0x0158}
0x0de0…0dea Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x0168}
0x0dea…0dfc Head {h00=0x000e, h01=0x0050, text=»TSID BOOL «, t00=0x0008, t01=0x0172}
0x0dfc…0e0e Head {h00=0x000e, h01=0x0050, text=»TLIG BOOL «, t00=0x0008, t01=0x0184}
0x0e0e…0e20 Head {h00=0x000e, h01=0x0050, text=»TISID BOOL«, t00=0x0009, t01=0x0008}
0x0e20…0e32 Head {h00=0x000e, h01=0x0050, text=»TILIG BOOL«, t00=0x0009, t01=0x001a}
0x0e32…0e44 Head {h00=0x000e, h01=0x0050, text=»TSOV BOOL «, t00=0x0009, t01=0x002c}
0x0e44…0e56 Head {h00=0x000e, h01=0x0050, text=»TBIL BOOL «, t00=0x0009, t01=0x003e}
0x0e56…0e6a Head {h00=0x0010, h01=0x0050, text=»TAFBEST BOOL«, t00=0x0009, t01=0x0050}
0x0e6a…0e7c Head {h00=0x000e, h01=0x0050, text=»TCHNG BOOL«, t00=0x0009, t01=0x0064}
0x0e7c…0e94 Head {h00=0x0014, h01=0x0050, text=»TAUTOTAB BOOL F «, t00=0x0009, t01=0x0076}
0x0e94…0e9c Head {h00=0x0004, h01=0x0050, t00=0x0009, t01=0x008e}
0x0e9c…0eb4 Head {h00=0x0014, h01=0x0050, text=»TTID BIN TASKID«, t00=0x0009, t01=0x0096}
0x0eb4…0ec6 Head {h00=0x000e, h01=0x0050, text=»TBIN1 BIN «, t00=0x0009, t01=0x00ae}
0x0ec6…0ed8 Head {h00=0x000e, h01=0x0050, text=»TBIN2 BIN «, t00=0x0009, t01=0x00c0}
0x0ed8…0eea Head {h00=0x000e, h01=0x0050, text=»TBIN3 BIN «, t00=0x0009, t01=0x00d2}
0x0eea…0efc Head {h00=0x000e, h01=0x0050, text=»TBIN4 BIN «, t00=0x0009, t01=0x00e4}
0x0efc…0f0e Head {h00=0x000e, h01=0x0050, text=»TBIN5 BIN «, t00=0x0009, t01=0x00f6}
0x0f0e…0f20 Head {h00=0x000e, h01=0x0050, text=»TBIN6 BIN «, t00=0x0009, t01=0x0108}
0x0f20…0f32 Head {h00=0x000e, h01=0x0050, text=»TBIN7 BIN «, t00=0x0009, t01=0x011a}
0x0f32…0f44 Head {h00=0x000e, h01=0x0050, text=»TBIN8 BIN «, t00=0x0009, t01=0x012c}
0x0f44…0f56 Head {h00=0x000e, h01=0x0050, text=»TBIN9 BIN «, t00=0x0009, t01=0x013e}
0x0f56…0f68 Head {h00=0x000e, h01=0x0050, text=»TBIN10 BIN«, t00=0x0009, t01=0x0150}
0x0f68…0f8e Head {h00=0x0022, h01=0x0050, text=»TSTACKPT BIN '0' STACKPOINTER «, t00=0x0009, t01=0x0162}
0x0f8e…0fb2 Head {h00=0x0020, h01=0x0050, text=»TCURPOS BIN CURSOR POSITION«, t00=0x0009, t01=0x0188}
0x0fb2…0fce Head {h00=0x0018, h01=0x0050, text=»TP1 BIN PARAMETER 1«, t00=0x000a, t01=0x001c}
0x0fce…0fea Head {h00=0x0018, h01=0x0050, text=»TP2 BIN PARAMETER 2«, t00=0x000a, t01=0x0038}
0x0fea…100e Head {h00=0x0020, h01=0x0050, text=»TKBSTAT BIN KEYBOARD STATUS«, t00=0x000a, t01=0x0054}
0x100e…1016 Head {h00=0x0004, h01=0x0050, t00=0x000a, t01=0x0078}
0x1016…101e Head {h00=0x0004, h01=0x0050, t00=0x000a, t01=0x0080}
0x101e…102e Head {h00=0x000c, h01=0x0050, text=»TB2 BLK «, t00=0x000a, t01=0x0088}
0x102e…1038 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x0098}
0x1038…1066 Head {h00=0x002a, h01=0x0050, text=»TPAPOUT BOOL F TRUE::=PAPEROUT ON GTP «, t00=0x000a, t01=0x00a2}
0x1066…1096 Head {h00=0x002c, h01=0x0050, text=»TNODEP BOOL TRUE TRUE::= INGEN FELTAFH. «, t00=0x000a, t01=0x00d0}
0x1096…10c6 Head {h00=0x002c, h01=0x0050, text=»TPOWFAIL BOOL FALSE TRUE::=POWERFAILURE «, t00=0x000a, t01=0x0100}
0x10c6…10f8 Head {h00=0x002e, h01=0x0050, text=»TALLFLD BOOL FALSE TRUE::=KI ON ALL FIELDS«, t00=0x000a, t01=0x0130}
0x10f8…110c Head {h00=0x0010, h01=0x0050, text=»TBOOL BOOL F«, t00=0x000a, t01=0x0162}
0x110c…1144 Head {h00=0x0034, h01=0x0050, text=»TALTBUF BOOL FALSE TRUE::=WRITE FROM ALT. BUFFER«, t00=0x000a, t01=0x0176}
0x1144…114c Head {h00=0x0004, h01=0x0050, t00=0x000b, t01=0x001e}
0x114c…1160 Head {h00=0x0010, h01=0x0050, text=»TBCD5 BCD 5 «, t00=0x000b, t01=0x0026}
0x1160…1176 Head {h00=0x0012, h01=0x0050, text=»TSTRG1 STRG 1 «, t00=0x000b, t01=0x003a}
0x1176…118c Head {h00=0x0012, h01=0x0050, text=»TSTRG2 STRG 2 «, t00=0x000b, t01=0x0050}
0x118c…11a2 Head {h00=0x0012, h01=0x0050, text=»TSTRG5 STRG 5 «, t00=0x000b, t01=0x0066}
0x11a2…11b8 Head {h00=0x0012, h01=0x0050, text=»TSTRG6 STRG 6 «, t00=0x000b, t01=0x007c}
0x11b8…11d0 Head {h00=0x0014, h01=0x0050, text=»TSTRG10 STRG 10 «, t00=0x000b, t01=0x0092}
0x11d0…11e8 Head {h00=0x0014, h01=0x0050, text=»TSTRG40 STRG 40 «, t00=0x000b, t01=0x00aa}
0x11e8…11fe Head {h00=0x0012, h01=0x0050, text=»TKBBUF STRG 40«, t00=0x000b, t01=0x00c2}
0x11fe…1216 Head {h00=0x0014, h01=0x0050, text=»TPDUBUF STRG 42 «, t00=0x000b, t01=0x00d8}
0x1216…1248 Head {h00=0x002e, h01=0x0050, text=»TSTACK STRG 128 STACKAREA. DONT USE IT PLS«, t00=0x000b, t01=0x00f0}
0x1248…1260 Head {h00=0x0014, h01=0x0050, text=»TKEYS STRG X'40'«, t00=0x000b, t01=0x0122}
0x1260…128c Head {h00=0x0028, h01=0x0050, text=»TDC2BUF STRG 6 ALTERNATIVE DC BUFFER«, t00=0x000b, t01=0x013a}
0x128c…129a Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000b, t01=0x0166}
0x129a…12aa Head {h00=0x000c, h01=0x0050, text=»TB3 BLK «, t00=0x000b, t01=0x0174}
0x12aa…12b4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x0184}
0x12b4…12e0 Head {h00=0x0028, h01=0x0050, text=»* PARAMETERS FOR THE UNPACK ROUTINE «, t00=0x000b, t01=0x018e}
0x12e0…12ea Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x002a}
0x12ea…1302 Head {h00=0x0014, h01=0x0050, text=»TSAVE BINI (64) «, t00=0x000c, t01=0x0034}
0x1302…1314 Head {h00=0x000e, h01=0x0050, text=»INLEN BIN «, t00=0x000c, t01=0x004c}
0x1314…1326 Head {h00=0x000e, h01=0x0050, text=»OUTLEN BIN«, t00=0x000c, t01=0x005e}
0x1326…134e Head {h00=0x0024, h01=0x0050, text=»PRINTFLG BIN 1: TICKET PRINTED «, t00=0x000c, t01=0x0070}
0x134e…136e Head {h00=0x001c, h01=0x0050, text=» -1: DONT PRINT TICKET«, t00=0x000c, t01=0x0098}
0x136e…1382 Head {h00=0x0010, h01=0x0050, text=»TDC2LEN BIN «, t00=0x000c, t01=0x00b8}
0x1382…139c Head {h00=0x0016, h01=0x0050, text=»SAVTAB BINI (21,4)«, t00=0x000c, t01=0x00cc}
0x139c…13b6 Head {h00=0x0016, h01=0x0050, text=»FLDTAB BINI (21,4)«, t00=0x000c, t01=0x00e6}
0x13b6…13e8 Head {h00=0x002e, h01=0x0050, text=»* EL. 1,1: NBR OF ENTRIES IN TABLE «, t00=0x000c, t01=0x0100}
0x13e8…140a Head {h00=0x001e, h01=0x0050, text=»* EL. 1,2: NOT USED«, t00=0x000c, t01=0x0132}
0x140a…1442 Head {h00=0x0034, h01=0x0050, text=»* EL. 1,3: IF 1, FLASHING FIELDS PRESENT «, t00=0x000c, t01=0x0154}
0x1442…146c Head {h00=0x0026, h01=0x0050, text=»* EL. 1,4: MASK NBR (1->8) «, t00=0x000c, t01=0x018c}
0x146c…14a4 Head {h00=0x0034, h01=0x0050, text=»* EL. (2->21),1: CURSORPOS (X'0101' -> X'0628')«, t00=0x000d, t01=0x0026}
0x14a4…14d4 Head {h00=0x002c, h01=0x0050, text=»* EL. ,2: OUTBUF POS (FOR XCOPY)«, t00=0x000d, t01=0x005e}
0x14d4…1500 Head {h00=0x0028, h01=0x0050, text=»* EL. ,3: FIELDLENGTH (1-N) «, t00=0x000d, t01=0x008e}
0x1500…1528 Head {h00=0x0024, h01=0x0050, text=»* EL. ,4: FIELDATTRIBUTE«, t00=0x000d, t01=0x00ba}
0x1528…155c Head {h00=0x0030, h01=0x0050, text=»* BIT 0 - ERROR IN FIELD«, t00=0x000d, t01=0x00e2}
0x155c…158e Head {h00=0x002e, h01=0x0050, text=»* BIT 1 - "MUST-ENTER"«, t00=0x000d, t01=0x0116}
0x158e…15c2 Head {h00=0x0030, h01=0x0050, text=»* BIT 2 - FIELD MODIFIED«, t00=0x000d, t01=0x0148}
0x15c2…15f0 Head {h00=0x002a, h01=0x0050, text=»* BIT 3 - NOT USED«, t00=0x000d, t01=0x017c}
0x15f0…162c Head {h00=0x0038, h01=0x0050, text=»* BIT 4-10 - ERRORMESSAGE INDEX «, t00=0x000e, t01=0x001a}
0x162c…1666 Head {h00=0x0036, h01=0x0050, text=»* BIT 11-15 - VALIDATION INDEX«, t00=0x000e, t01=0x0056}
0x1666…1676 Head {h00=0x000c, h01=0x0050, text=»TLEN BIN«, t00=0x000e, t01=0x0090}
0x1676…168c Head {h00=0x0012, h01=0x0050, text=»INBUF STRG 300«, t00=0x000e, t01=0x00a0}
0x168c…16a2 Head {h00=0x0012, h01=0x0050, text=»OUTBUF STRG 64«, t00=0x000e, t01=0x00b6}
0x16a2…16b8 Head {h00=0x0012, h01=0x0050, text=»TBUF STRG 300 «, t00=0x000e, t01=0x00cc}
0x16b8…16c6 Head {h00=0x000a, h01=0x0050, text=» PDIV «, t00=0x000e, t01=0x00e2}
0x16c6…16ce Head {h00=0x0004, h01=0x0050, t00=0x000e, t01=0x00f0}
0x16ce…16e2 Head {h00=0x0010, h01=0x0050, text=» ENTRY KBGO «, t00=0x000e, t01=0x00f8}
0x16e2…16f6 Head {h00=0x0010, h01=0x0050, text=» ENTRY DC1GO«, t00=0x000e, t01=0x010c}
0x16f6…16fe Head {h00=0x0004, h01=0x0050, t00=0x000e, t01=0x0120}
0x16fe…1710 Head {h00=0x000e, h01=0x0050, text=» EXT MASK «, t00=0x000e, t01=0x0128}
0x1710…1722 Head {h00=0x000e, h01=0x0050, text=» EXT FLASH«, t00=0x000e, t01=0x013a}
0x1722…1736 Head {h00=0x0010, h01=0x0050, text=» EXT BITOFF «, t00=0x000e, t01=0x014c}
0x1736…1748 Head {h00=0x000e, h01=0x0050, text=» EXT BITON«, t00=0x000e, t01=0x0160}
0x1748…175c Head {h00=0x0010, h01=0x0050, text=» EXT BITTST «, t00=0x000e, t01=0x0172}
0x175c…1770 Head {h00=0x0010, h01=0x0050, text=» EXT UNPACK «, t00=0x000e, t01=0x0186}
0x1770…1784 Head {h00=0x0010, h01=0x0050, text=» EXT GMSGIX «, t00=0x000f, t01=0x000a}
0x1784…1798 Head {h00=0x0010, h01=0x0050, text=» EXT GFLDIX «, t00=0x000f, t01=0x001e}
0x1798…17a0 Head {h00=0x0004, h01=0x0050, t00=0x000f, t01=0x0032}
0x17a0…17da Head {h00=0x0036, h01=0x0050, text=»************************************************* «, t00=0x000f, t01=0x003a}
0x17da…1814 Head {h00=0x0036, h01=0x0050, text=»* * «, t00=0x000f, t01=0x0074}
0x1814…184e Head {h00=0x0036, h01=0x0050, text=»* EQUATES * «, t00=0x000f, t01=0x00ae}
0x184e…1888 Head {h00=0x0036, h01=0x0050, text=»* * «, t00=0x000f, t01=0x00e8}
0x1888…18c2 Head {h00=0x0036, h01=0x0050, text=»************************************************* «, t00=0x000f, t01=0x0122}
0x18c2…18ca Head {h00=0x0004, h01=0x0050, t00=0x000f, t01=0x015c}
0x18ca…18ec Head {h00=0x001e, h01=0x0050, text=»ERASE EQU 2 ERASE DISPLAY «, t00=0x000f, t01=0x0164}
0x18ec…190c Head {h00=0x001c, h01=0x0050, text=»TSTAT EQU 7 TEST STATUS «, t00=0x000f, t01=0x0186}
0x190c…1930 Head {h00=0x0020, h01=0x0050, text=»STIMO EQU X'0B' SET TIMEOUT «, t00=0x0010, t01=0x0016}
0x1930…1952 Head {h00=0x001e, h01=0x0050, text=»FLSH EQU X'0B' FLSH LED'S «, t00=0x0010, t01=0x003a}
0x1952…196e Head {h00=0x0018, h01=0x0050, text=»ON EQU 0 TURN ON LED«, t00=0x0010, t01=0x005c}
0x196e…198c Head {h00=0x001a, h01=0x0050, text=»OFF EQU 1 TURN OFF LED«, t00=0x0010, t01=0x0078}
0x198c…19b2 Head {h00=0x0022, h01=0x0050, text=»TRPAR EQU 0 TRANSFER PARAMETER«, t00=0x0010, t01=0x0096}
0x19b2…19d4 Head {h00=0x001e, h01=0x0050, text=»POS EQU 6 POSITION CURSUR «, t00=0x0010, t01=0x00bc}
0x19d4…1a04 Head {h00=0x002c, h01=0x0050, text=»* *«, t00=0x0010, t01=0x00de}
0x1a04…1a34 Head {h00=0x002c, h01=0x0050, text=»* O B S ! *«, t00=0x0010, t01=0x010e}
0x1a34…1a64 Head {h00=0x002c, h01=0x0050, text=»* !!!!!!! *«, t00=0x0010, t01=0x013e}
0x1a64…1a94 Head {h00=0x002c, h01=0x0050, text=»* THE VALUES OF THE KEYS ARE NOT TO BE *«, t00=0x0010, t01=0x016e}
0x1a94…1ac4 Head {h00=0x002c, h01=0x0050, text=»* CHANGED, AS THEY ARE USED AS INDEXES *«, t00=0x0011, t01=0x000e}
0x1ac4…1af4 Head {h00=0x002c, h01=0x0050, text=»* IN "IB"'S AND "PERFI"'S *«, t00=0x0011, t01=0x003e}
0x1af4…1b1e Head {h00=0x0026, h01=0x0050, text=»AFBKY EQU X'01' E15 - AFBESTILLING«, t00=0x0011, t01=0x006e}
0x1b1e…1b4a Head {h00=0x0028, h01=0x0050, text=»KNTKY EQU X'02' E17 - KONTOOPGORELSE«, t00=0x0011, t01=0x0098}
0x1b4a…1b6e Head {h00=0x0020, h01=0x0050, text=»LSKY EQU X'03' E18 - BACKTAB«, t00=0x0011, t01=0x00c4}
0x1b6e…1b96 Head {h00=0x0024, h01=0x0050, text=»RSKY EQU X'04' E19 - FORWARD TAB«, t00=0x0011, t01=0x00e8}
0x1b96…1bbc Head {h00=0x0022, h01=0x0050, text=»SDKY EQU X'05' E20 - SLET DATA«, t00=0x0011, t01=0x0110}
0x1bbc…1be4 Head {h00=0x0024, h01=0x0050, text=»SSKY EQU X'06' E21 - SLET SK[RM «, t00=0x0011, t01=0x0136}
0x1be4…1c0e Head {h00=0x0026, h01=0x0050, text=»ETXKY EQU X'07' E22 - END OF TEXT «, t00=0x0011, t01=0x015e}
0x1c0e…1c30 Head {h00=0x001e, h01=0x0050, text=»NEJKY EQU X'08' E23 - NEJ «, t00=0x0011, t01=0x0188}
0x1c30…1c58 Head {h00=0x0024, h01=0x0050, text=»SIDKY EQU X'09' D15 - SIDDEPLADS«, t00=0x0012, t01=0x001a}
0x1c58…1c80 Head {h00=0x0024, h01=0x0050, text=»LIGKY EQU X'0A' D16 - LIGGEVOGN «, t00=0x0012, t01=0x0042}
0x1c80…1cae Head {h00=0x002a, h01=0x0050, text=»BILKY EQU X'0B' D17 - F[RGEBESTILLING «, t00=0x0012, t01=0x006a}
0x1cae…1ce6 Head {h00=0x0034, h01=0x0050, text=»ISIDKY EQU X'0C' C15 - INTERNATIONAL SIDDEPLADS «, t00=0x0012, t01=0x0098}
0x1ce6…1d1c Head {h00=0x0032, h01=0x0050, text=»ILIGKY EQU X'0D' C16 - INTERNATIONAL LIGGEVOGN«, t00=0x0012, t01=0x00d0}
0x1d1c…1d42 Head {h00=0x0022, h01=0x0050, text=»SOVKY EQU X'0E' C17 - SOVEVOGN«, t00=0x0012, t01=0x0106}
0x1d42…1d68 Head {h00=0x0022, h01=0x0050, text=»SP1KY EQU X'0F' B15 - SPARE 1 «, t00=0x0012, t01=0x012c}
0x1d68…1d94 Head {h00=0x0028, h01=0x0050, text=»HOMEKY EQU X'10' B16 - CURSOR HOME «, t00=0x0012, t01=0x0152}
0x1d94…1dbe Head {h00=0x0026, h01=0x0050, text=»DOWNKY EQU X'11' B17 - CURSOR DOWN«, t00=0x0012, t01=0x017e}
0x1dbe…1de4 Head {h00=0x0022, h01=0x0050, text=»SP2KY EQU X'12' A15 - SPARE 2 «, t00=0x0013, t01=0x0018}
0x1de4…1e0e Head {h00=0x0026, h01=0x0050, text=»LEFTKY EQU X'13' A16 - BACK SPACE «, t00=0x0013, t01=0x003e}
0x1e0e…1e3c Head {h00=0x002a, h01=0x0050, text=»RIGHTKY EQU X'14' A17 - FORWARD SPACE «, t00=0x0013, t01=0x0068}
0x1e3c…1e68 Head {h00=0x0028, h01=0x0050, text=»CHNGKY EQU X'15' D18 - [NDRINGSMASKE«, t00=0x0013, t01=0x0096}
0x1e68…1e92 Head {h00=0x0026, h01=0x0050, text=»TESTKY EQU X'16' C18 - TESTBILLEDE«, t00=0x0013, t01=0x00c2}
0x1e92…1eb4 Head {h00=0x001e, h01=0x0050, text=»MRKY EQU X'17' A18 - SPACE«, t00=0x0013, t01=0x00ec}
0x1eb4…1ee8 Head {h00=0x0030, h01=0x0050, text=»RESKY EQU X'18' D22 - RESET (PRINTER STATUS)«, t00=0x0013, t01=0x010e}
0x1ee8…1f04 Head {h00=0x0018, h01=0x0050, text=»SP5KY EQU X'19' C22 «, t00=0x0013, t01=0x0142}
0x1f04…1f20 Head {h00=0x0018, h01=0x0050, text=»SENDKY EQU X'1A' A22«, t00=0x0013, t01=0x015e}
0x1f20…1f3c Head {h00=0x0018, h01=0x0050, text=»JA1KY EQU X'1B' D23 «, t00=0x0013, t01=0x017a}
0x1f3c…1f58 Head {h00=0x0018, h01=0x0050, text=»JA2KY EQU X'1C' A23 «, t00=0x0014, t01=0x0008}
0x1f58…1f74 Head {h00=0x0018, h01=0x0050, text=»SP3KY EQU X'1D' A21 «, t00=0x0014, t01=0x0024}
0x1f74…1f92 Head {h00=0x001a, h01=0x0050, text=»NOKY EQU X'FF' NO KEY «, t00=0x0014, t01=0x0040}
0x1f92…1fbe Head {h00=0x0028, h01=0x0050, text=»* OBS: MRKY GENERATES X'20' (CTAB01)«, t00=0x0014, t01=0x005e}
0x1fbe…1fea Head {h00=0x0028, h01=0x0050, text=»* OBS: X'21' RESERVED FOR KBTIMEOUT «, t00=0x0014, t01=0x008a}
0x1fea…1ff2 Head {h00=0x0004, h01=0x0050, t00=0x0014, t01=0x00b6}
0x1ff2…202a Head {h00=0x0034, h01=0x0050, text=»KTAB02 KTAB AFBKY,KNTKY,LSKY,RSKY,SDKY,SSKY, C «, t00=0x0014, t01=0x00be}
0x202a…205c Head {h00=0x002e, h01=0x0050, text=» ETXKY,NEJKY,SIDKY,LIGKY,BILKY,ISIDKY, C«, t00=0x0014, t01=0x00f6}
0x205c…2090 Head {h00=0x0030, h01=0x0050, text=» ILIGKY,SOVKY,SP1KY,HOMEKY,DOWNKY,SP2KY, C«, t00=0x0014, t01=0x0128}
0x2090…20c6 Head {h00=0x0032, h01=0x0050, text=» LEFTKY,RIGHTKY,CHNGKY,TESTKY,MRKY,RESKY, C «, t00=0x0014, t01=0x015c}
0x20c6…20e8 (21, 0, 400) Head {h00=0x001e, h01=0x0050, text=» SP5KY,SENDKY,JA1KY,JA2KY«, t00=0x0015, t01=0x0004}
0x20e8…20f6 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0015, t01=0x0026}
0x20f6…20fe Head {h00=0x0004, h01=0x0050, t00=0x0015, t01=0x0034}
0x20fe…2106 Head {h00=0x0004, h01=0x0050, t00=0x0015, t01=0x003c}
0x2106…2124 Head {h00=0x001a, h01=0x0050, text=»DC1GO START DC-TASK «, t00=0x0015, t01=0x0044}
0x2124…2142 Head {h00=0x001a, h01=0x0050, text=» DSC1 DSDC,TRPAR,MF1CU«, t00=0x0015, t01=0x0062}
0x2142…2150 Head {h00=0x000a, h01=0x0050, text=»DC1GO1«, t00=0x0015, t01=0x0080}
0x2150…2168 Head {h00=0x0014, h01=0x0050, text=» MOVE BINWK1,W0 «, t00=0x0015, t01=0x008e}
0x2168…2188 Head {h00=0x001c, h01=0x0050, text=» DSC1 DSDC,STIMO,BINWK1 «, t00=0x0015, t01=0x00a6}
0x2188…21a4 Head {h00=0x0018, h01=0x0050, text=» MOVE BINWK1,CBUFLEN«, t00=0x0015, t01=0x00c6}
0x21a4…21d8 Head {h00=0x0030, h01=0x0050, text=» READ DSDC,DCBUF,BINWK1 READ ANY UNSOLL. MSG«, t00=0x0015, t01=0x00e2}
0x21d8…21f2 Head {h00=0x0016, h01=0x0050, text=» XSTAT DSDC,BINWK1«, t00=0x0015, t01=0x0116}
0x21f2…220e Head {h00=0x0018, h01=0x0050, text=» SUB BINWK1,=X'2000'«, t00=0x0015, t01=0x0130}
0x220e…2222 Head {h00=0x0010, h01=0x0050, text=» BNZ DC1GO1 «, t00=0x0015, t01=0x014c}
0x2222…224e Head {h00=0x0028, h01=0x0050, text=» SET CPOLL HURRAY WE'RE BEING POLLED«, t00=0x0015, t01=0x0160}
0x224e…2270 Head {h00=0x001e, h01=0x0050, text=» B DC1GO1 THROW AWAY REST «, t00=0x0015, t01=0x018c}
0x2270…227e Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0016, t01=0x001e}
0x227e…229e Head {h00=0x001c, h01=0x0050, text=»* HOUSEKEEPING FUNCTIONS«, t00=0x0016, t01=0x002c}
0x229e…22ba Head {h00=0x0018, h01=0x0050, text=»KBGO START KB-TASK«, t00=0x0016, t01=0x004c}
0x22ba…22ce Head {h00=0x0010, h01=0x0050, text=» GETID TBIN1«, t00=0x0016, t01=0x0068}
0x22ce…2306 Head {h00=0x0034, h01=0x0050, text=» SUB TBIN1,=X'4B41' CONVERT KA,KB,... TO 0,1,...«, t00=0x0016, t01=0x007c}
0x2306…2318 Head {h00=0x000e, h01=0x0050, text=» BNZ KBGO4«, t00=0x0016, t01=0x00b4}
0x2318…232e Head {h00=0x0012, h01=0x0050, text=» MOVE TBIN1,W1«, t00=0x0016, t01=0x00c6}
0x232e…2352 Head {h00=0x0020, h01=0x0050, text=» MOVE TSTRG2,=X'5C' DANSK OE«, t00=0x0016, t01=0x00dc}
0x2352…2360 Head {h00=0x000a, h01=0x0050, text=»KBGO1 «, t00=0x0016, t01=0x0100}
0x2360…2380 Head {h00=0x001c, h01=0x0050, text=» MOVE TSTRG1,CTXT(TBIN1)«, t00=0x0016, t01=0x010e}
0x2380…23a0 Head {h00=0x001c, h01=0x0050, text=» CBE TSTRG1,=C'!',KBGO3 «, t00=0x0016, t01=0x012e}
0x23a0…23ba Head {h00=0x0016, h01=0x0050, text=» MOVE TSTRG1,=C'@'«, t00=0x0016, t01=0x014e}
0x23ba…23d0 Head {h00=0x0012, h01=0x0050, text=» MOVE TBIN2,W0«, t00=0x0016, t01=0x0168}
0x23d0…23ea Head {h00=0x0016, h01=0x0050, text=» MOVE TBIN3,=W'30'«, t00=0x0016, t01=0x017e}
0x23ea…241e Head {h00=0x0030, h01=0x0050, text=» MATCH CTXT(TBIN1),TBIN2,TBIN3,TSTRG1,W0,W1 «, t00=0x0017, t01=0x0008}
0x241e…2432 Head {h00=0x0010, h01=0x0050, text=» BNOK KBGO2 «, t00=0x0017, t01=0x003c}
0x2432…2460 Head {h00=0x002a, h01=0x0050, text=» XCOPY CTXT(TBIN1),TBIN2,W1,TSTRG2,W0 «, t00=0x0017, t01=0x0050}
0x2460…2470 Head {h00=0x000c, h01=0x0050, text=» B KBGO1«, t00=0x0017, t01=0x007e}
0x2470…247e Head {h00=0x000a, h01=0x0050, text=»KBGO2 «, t00=0x0017, t01=0x008e}
0x247e…2494 Head {h00=0x0012, h01=0x0050, text=» ADD TBIN1,W1 «, t00=0x0017, t01=0x009c}
0x2494…24a4 Head {h00=0x000c, h01=0x0050, text=» B KBGO1«, t00=0x0017, t01=0x00b2}
0x24a4…24b2 Head {h00=0x000a, h01=0x0050, text=»KBGO3 «, t00=0x0017, t01=0x00c2}
0x24b2…24c8 Head {h00=0x0012, h01=0x0050, text=» MOVE TBIN1,W0«, t00=0x0017, t01=0x00d0}
0x24c8…24d6 Head {h00=0x000a, h01=0x0050, text=»KBGO4 «, t00=0x0017, t01=0x00e6}
0x24d6…2500 Head {h00=0x0026, h01=0x0050, text=» TBT CPOLL,KBGO5 BLIVER VI POLLED?«, t00=0x0017, t01=0x00f4}
0x2500…252a Head {h00=0x0026, h01=0x0050, text=» DELAY W10 NEJ, VENT OG PROV IGEN «, t00=0x0017, t01=0x011e}
0x252a…253a Head {h00=0x000c, h01=0x0050, text=» B KBGO4«, t00=0x0017, t01=0x0148}
0x253a…2548 Head {h00=0x000a, h01=0x0050, text=»KBGO5 «, t00=0x0017, t01=0x0158}
0x2548…256e Head {h00=0x0022, h01=0x0050, text=» XCOPY TTID,W1,W1,MF1KBV,TBIN1«, t00=0x0017, t01=0x0166}
0x256e…258a Head {h00=0x0018, h01=0x0050, text=» DSC1 DC,TRPAR,TTID «, t00=0x0017, t01=0x018c}
0x258a…25a6 Head {h00=0x0018, h01=0x0050, text=» MOVE TBIN1,=X'0023'«, t00=0x0018, t01=0x0018}
0x25a6…25c2 Head {h00=0x0018, h01=0x0050, text=» DSC1 LAMPS,ON,TBIN1«, t00=0x0018, t01=0x0034}
0x25c2…25d0 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0018, t01=0x0050}
0x25d0…25fa Head {h00=0x0026, h01=0x0050, text=» PERF NOINPT SETUP A DUMMY FLDTAB «, t00=0x0018, t01=0x005e}
0x25fa…2618 Head {h00=0x001a, h01=0x0050, text=» MOVE SAVTAB(W1,W1),W1«, t00=0x0018, t01=0x0088}
0x2618…2646 Head {h00=0x002a, h01=0x0050, text=» MOVE SAVTAB(W2,W1),CHOME CURSOR POS. «, t00=0x0018, t01=0x00a6}
0x2646…2664 Head {h00=0x001a, h01=0x0050, text=» MOVE SAVTAB(W2,W2),W1«, t00=0x0018, t01=0x00d4}
0x2664…2682 Head {h00=0x001a, h01=0x0050, text=» MOVE SAVTAB(W2,W3),W1«, t00=0x0018, t01=0x00f2}
0x2682…26b4 Head {h00=0x002e, h01=0x0050, text=» MOVE SAVTAB(W2,W4),=X'2920' FEJL 73 M.M. «, t00=0x0018, t01=0x0110}
0x26b4…26c8 Head {h00=0x0010, h01=0x0050, text=» PERF ERASCR«, t00=0x0018, t01=0x0142}
0x26c8…2704 Head {h00=0x0038, h01=0x0050, text=»* WAIT FOR ONE OF THE FOLLOWING TWO EVENTS TO OCCUR:«, t00=0x0018, t01=0x0156}
0x2704…272a (25, 0, 400) Head {h00=0x0022, h01=0x0050, text=»* A KEYBOARDINPUT, OR A DCREAD«, t00=0x0019, t01=0x0004}
0x272a…2736 Head {h00=0x0008, h01=0x0050, text=»HK20«, t00=0x0019, t01=0x002a}
0x2736…274c Head {h00=0x0012, h01=0x0050, text=» MOVE TBIN1,W1«, t00=0x0019, t01=0x0036}
0x274c…277a Head {h00=0x002a, h01=0x0050, text=» KI .NW,KEYB,TKBBUF,KTAB02,TBIN1,TBIN6«, t00=0x0019, t01=0x004c}
0x277a…2794 Head {h00=0x0016, h01=0x0050, text=» DSC1 DC,STIMO,W0 «, t00=0x0019, t01=0x007a}
0x2794…27b0 Head {h00=0x0018, h01=0x0050, text=» MOVE INLEN,CBUFLEN «, t00=0x0019, t01=0x0094}
0x27b0…27ca Head {h00=0x0016, h01=0x0050, text=» MOVE INBUF,CZERO «, t00=0x0019, t01=0x00b0}
0x27ca…27ea Head {h00=0x001c, h01=0x0050, text=» READ .NW,DC,INBUF,INLEN«, t00=0x0019, t01=0x00ca}
0x27ea…2806 Head {h00=0x0018, h01=0x0050, text=» MWAIT TBIN3,KEYB,DC«, t00=0x0019, t01=0x00ea}
0x2806…2822 Head {h00=0x0018, h01=0x0050, text=» CBE TBIN3,W2,HK21A «, t00=0x0019, t01=0x0106}
0x2822…2834 Head {h00=0x000e, h01=0x0050, text=» ABORT DC «, t00=0x0019, t01=0x0122}
0x2834…2858 Head {h00=0x0020, h01=0x0050, text=» WAIT DC SYNCHRONIZE THE I-O«, t00=0x0019, t01=0x0134}
0x2858…288c Head {h00=0x0030, h01=0x0050, text=» IB TBIN6,HK27,HK27,HK20,HK20,HK20,HK20, C «, t00=0x0019, t01=0x0158}
0x288c…28b8 Head {h00=0x0028, h01=0x0050, text=» HK20,HK20,HK27,HK27,HK27,HK27, C «, t00=0x0019, t01=0x018c}
0x28b8…28e4 Head {h00=0x0028, h01=0x0050, text=» HK27,HK27,HK20,HK20,HK20,HK20, C «, t00=0x001a, t01=0x0028}
0x28e4…2902 Head {h00=0x001a, h01=0x0050, text=» HK20,HK20,HK27,HK27 «, t00=0x001a, t01=0x0054}
0x2902…2934 Head {h00=0x002e, h01=0x0050, text=» CBG TBIN6,W0,HK20 INVALID KEY, TRY AGAIN «, t00=0x001a, t01=0x0072}
0x2934…294c Head {h00=0x0014, h01=0x0050, text=» MOVE TP2,TBIN6 «, t00=0x001a, t01=0x00a4}
0x294c…2978 Head {h00=0x0028, h01=0x0050, text=» PERF LCKSET IT WAS A TURNED KEYLOCK«, t00=0x001a, t01=0x00bc}
0x2978…2996 Head {h00=0x001a, h01=0x0050, text=» B HK20 AND TRY AGAIN «, t00=0x001a, t01=0x00e8}
0x2996…29a4 Head {h00=0x000a, h01=0x0050, text=»HK21A «, t00=0x001a, t01=0x0106}
0x29a4…29b8 Head {h00=0x0010, h01=0x0050, text=» ABORT KEYB «, t00=0x001a, t01=0x0114}
0x29b8…29de Head {h00=0x0022, h01=0x0050, text=» WAIT KEYB SYNCHRONIZE THE I-O«, t00=0x001a, t01=0x0128}
0x29de…29fa Head {h00=0x0018, h01=0x0050, text=» B EXCH05 UNPACK IT «, t00=0x001a, t01=0x014e}
0x29fa…2a08 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x001a, t01=0x016a}
0x2a08…2a1e Head {h00=0x0012, h01=0x0050, text=»* MAIN MODULE «, t00=0x001a, t01=0x0178}
0x2a1e…2a2a Head {h00=0x0008, h01=0x0050, text=»EXCH«, t00=0x001a, t01=0x018e}
0x2a2a…2a3e Head {h00=0x0010, h01=0x0050, text=» PERF DCEXCH«, t00=0x001b, t01=0x000a}
0x2a3e…2a54 Head {h00=0x0012, h01=0x0050, text=» BNOK DCERROR «, t00=0x001b, t01=0x001e}
0x2a54…2a62 Head {h00=0x000a, h01=0x0050, text=»EXCH05«, t00=0x001b, t01=0x0034}
0x2a62…2a82 Head {h00=0x001c, h01=0x0050, text=» MOVE TBIN2,W3 IUT,SEND «, t00=0x001b, t01=0x0042}
0x2a82…2aa8 Head {h00=0x0022, h01=0x0050, text=» DSC1 LAMPS,ON,TBIN2 LIT THEM «, t00=0x001b, t01=0x0062}
0x2aa8…2ad8 Head {h00=0x002c, h01=0x0050, text=»* READY TO PROCESS ANY INCOMING MESSAGE «, t00=0x001b, t01=0x0088}
0x2ad8…2af2 Head {h00=0x0016, h01=0x0050, text=» MOVE PRINTFLG,W0 «, t00=0x001b, t01=0x00b8}
0x2af2…2b14 Head {h00=0x001e, h01=0x0050, text=» PERF UNPCK UNPACK MESSAGE«, t00=0x001b, t01=0x00d2}
0x2b14…2b28 Head {h00=0x0010, h01=0x0050, text=» PERF SETTP1«, t00=0x001b, t01=0x00f4}
0x2b28…2b52 Head {h00=0x0026, h01=0x0050, text=»* FL.F. TICKET RCVD PRINT NOK«, t00=0x001b, t01=0x0108}
0x2b52…2b7e Head {h00=0x0028, h01=0x0050, text=»* 1 0 0 0 MASKE «, t00=0x001b, t01=0x0132}
0x2b7e…2ba8 Head {h00=0x0026, h01=0x0050, text=»* 2 0 0 1 N/A«, t00=0x001b, t01=0x015e}
0x2ba8…2bd6 Head {h00=0x002a, h01=0x0050, text=»* 3 0 1 0 BILLET «, t00=0x001b, t01=0x0188}
0x2bd6…2c06 Head {h00=0x002c, h01=0x0050, text=»* 4 0 1 1 PAPER OUT«, t00=0x001c, t01=0x0026}
0x2c06…2c34 Head {h00=0x002a, h01=0x0050, text=»* 5 1 0 0 TILBUD «, t00=0x001c, t01=0x0056}
0x2c34…2c5e Head {h00=0x0026, h01=0x0050, text=»* 6 1 0 1 N/A«, t00=0x001c, t01=0x0084}
0x2c5e…2c90 Head {h00=0x002e, h01=0x0050, text=»* 7 1 1 0 X-MARKERING«, t00=0x001c, t01=0x00ae}
0x2c90…2ccc Head {h00=0x0038, h01=0x0050, text=»* 8 1 1 1 X-MARKING, PAPER OUT «, t00=0x001c, t01=0x00e0}
0x2ccc…2cf4 Head {h00=0x0024, h01=0x0050, text=» IB TP1,HK30,HK30,TP13,TP14, C «, t00=0x001c, t01=0x011c}
0x2cf4…2d12 Head {h00=0x001a, h01=0x0050, text=» HK25,HK25,HK25,TP18 «, t00=0x001c, t01=0x0144}
0x2d12…2d1e Head {h00=0x0008, h01=0x0050, text=»TP14«, t00=0x001c, t01=0x0162}
0x2d1e…2d2a Head {h00=0x0008, h01=0x0050, text=»TP18«, t00=0x001c, t01=0x016e}
0x2d2a…2d3e Head {h00=0x0010, h01=0x0050, text=» PERF NOINPT«, t00=0x001c, t01=0x017a}
0x2d3e…2d4a Head {h00=0x0008, h01=0x0050, text=»TP13«, t00=0x001c, t01=0x018e}
0x2d4a…2d64 Head {h00=0x0016, h01=0x0050, text=» DSC1 LAMPS,OFF,W1«, t00=0x001d, t01=0x000a}
0x2d64…2d9e Head {h00=0x0036, h01=0x0050, text=» PERF READDC,CTIMOUT READ NEW MASK OR SP-SP-LF-LF «, t00=0x001d, t01=0x0024}
0x2d9e…2dbc Head {h00=0x001a, h01=0x0050, text=» OR 'SKRIV MANUELT' «, t00=0x001d, t01=0x005e}
0x2dbc…2dd2 Head {h00=0x0012, h01=0x0050, text=» BNOK DCERROR «, t00=0x001d, t01=0x007c}
0x2dd2…2de4 Head {h00=0x000e, h01=0x0050, text=» B EXCH05 «, t00=0x001d, t01=0x0092}
0x2de4…2dee Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001d, t01=0x00a4}
0x2dee…2dfa Head {h00=0x0008, h01=0x0050, text=»HK23«, t00=0x001d, t01=0x00ae}
0x2dfa…2e38 Head {h00=0x003a, h01=0x0050, text=»* AFTER FLASH: LS, ETX, <INV>, DOWN,LEFT,RIGHT,SPACE, «, t00=0x001d, t01=0x00ba}
0x2e38…2e68 Head {h00=0x002c, h01=0x0050, text=»* STOP FLASHING, WAIT FOR VALID FUNCTION«, t00=0x001d, t01=0x00f8}
0x2e68…2e7e Head {h00=0x0012, h01=0x0050, text=» MOVE TBIN1,W1«, t00=0x001d, t01=0x0128}
0x2e7e…2eac Head {h00=0x002a, h01=0x0050, text=» KI .NE,KEYB,TSTRG1,KTAB02,TBIN1,TBIN6«, t00=0x001d, t01=0x013e}
0x2eac…2ebc Head {h00=0x000c, h01=0x0050, text=» B HK25B«, t00=0x001d, t01=0x016c}
0x2ebc…2ec4 Head {h00=0x0004, h01=0x0050, t00=0x001d, t01=0x017c}
0x2ec4…2ed0 Head {h00=0x0008, h01=0x0050, text=»HK25«, t00=0x001d, t01=0x0184}
0x2ed0…2ef8 Head {h00=0x0024, h01=0x0050, text=»** FLASHING; FLASH UNTIL 'KI' **«, t00=0x001d, t01=0x0190}
0x2ef8…2f0e Head {h00=0x0012, h01=0x0050, text=» MOVE TBIN1,W1«, t00=0x001e, t01=0x0028}
0x2f0e…2f40 Head {h00=0x002e, h01=0x0050, text=» KI .NW,.NE,KEYB,TSTRG1,KTAB02,TBIN1,TBIN6«, t00=0x001e, t01=0x003e}
0x2f40…2f54 Head {h00=0x0010, h01=0x0050, text=» ABORT KEYB «, t00=0x001e, t01=0x0070}
0x2f54…2f68 Head {h00=0x0010, h01=0x0050, text=» BNOK HK25A «, t00=0x001e, t01=0x0084}
0x2f68…2f7a Head {h00=0x000e, h01=0x0050, text=» WAIT KEYB«, t00=0x001e, t01=0x0098}
0x2f7a…2f98 Head {h00=0x001a, h01=0x0050, text=» CALL FLASH,TSAVE(W1) «, t00=0x001e, t01=0x00aa}
0x2f98…2fa8 Head {h00=0x000c, h01=0x0050, text=» B HK25 «, t00=0x001e, t01=0x00c8}
0x2fa8…2fb6 Head {h00=0x000a, h01=0x0050, text=»HK25A «, t00=0x001e, t01=0x00d8}
0x2fb6…2fc8 Head {h00=0x000e, h01=0x0050, text=» WAIT KEYB«, t00=0x001e, t01=0x00e6}
0x2fc8…2fd6 Head {h00=0x000a, h01=0x0050, text=»HK25B «, t00=0x001e, t01=0x00f8}
0x2fd6…2fec Head {h00=0x0012, h01=0x0050, text=» IB TBIN6, C «, t00=0x001e, t01=0x0106}
0x2fec…301a Head {h00=0x002a, h01=0x0050, text=» HK27,HK27,HK25,HK25,HK26C,HK26A, C «, t00=0x001e, t01=0x011c}
0x301a…3046 Head {h00=0x0028, h01=0x0050, text=» HK25,HK28,HK27,HK27,HK27,HK27, C «, t00=0x001e, t01=0x014a}
0x3046…3072 Head {h00=0x0028, h01=0x0050, text=» HK27,HK27,HK25,HK26D,HK25,HK25, C«, t00=0x001e, t01=0x0176}
0x3072…309e Head {h00=0x0028, h01=0x0050, text=» HK25,HK25,HK27,HK27,HK25,HK26B, C«, t00=0x001f, t01=0x0012}
0x309e…30bc Head {h00=0x001a, h01=0x0050, text=» HK25,HK25,HK28,HK28 «, t00=0x001f, t01=0x003e}
0x30bc…30e2 Head {h00=0x0022, h01=0x0050, text=» CBG TBIN6,W0,HK25 INVALID KEY«, t00=0x001f, t01=0x005c}
0x30e2…30fa Head {h00=0x0014, h01=0x0050, text=» MOVE TP2,TBIN6 «, t00=0x001f, t01=0x0082}
0x30fa…311e Head {h00=0x0020, h01=0x0050, text=» PERF LCKSET TURNED KEYLOCK «, t00=0x001f, t01=0x009a}
0x311e…312e Head {h00=0x000c, h01=0x0050, text=» B HK25 «, t00=0x001f, t01=0x00be}
0x312e…3136 Head {h00=0x0004, h01=0x0050, t00=0x001f, t01=0x00ce}
0x3136…3150 Head {h00=0x0016, h01=0x0050, text=»HK26A SLET SK[RM«, t00=0x001f, t01=0x00d6}
0x3150…3164 Head {h00=0x0010, h01=0x0050, text=» PERF ERASCR«, t00=0x001f, t01=0x00f0}
0x3164…3174 Head {h00=0x000c, h01=0x0050, text=» B HK23 «, t00=0x001f, t01=0x0104}
0x3174…317c Head {h00=0x0004, h01=0x0050, t00=0x001f, t01=0x0114}
0x317c…319a Head {h00=0x001a, h01=0x0050, text=»HK26B RESET PRINTER «, t00=0x001f, t01=0x011c}
0x319a…31ae Head {h00=0x0010, h01=0x0050, text=» PERF FUNC24«, t00=0x001f, t01=0x013a}
0x31ae…31be Head {h00=0x000c, h01=0x0050, text=» B HK25 «, t00=0x001f, t01=0x014e}
0x31be…31c6 Head {h00=0x0004, h01=0x0050, t00=0x001f, t01=0x015e}
0x31c6…31e0 Head {h00=0x0016, h01=0x0050, text=»HK26C SLET DATA «, t00=0x001f, t01=0x0166}
0x31e0…31f4 Head {h00=0x0010, h01=0x0050, text=» PERF FUNC05«, t00=0x001f, t01=0x0180}
0x31f4…31fc (32, 0, 400) Head {h00=0x0004, h01=0x0050, t00=0x0020, t01=0x0004}
0x31fc…3218 Head {h00=0x0018, h01=0x0050, text=»HK26D CURSOR HOME «, t00=0x0020, t01=0x000c}
0x3218…3230 Head {h00=0x0014, h01=0x0050, text=» PERF ERALIN,W3 «, t00=0x0020, t01=0x0028}
0x3230…3248 Head {h00=0x0014, h01=0x0050, text=» PERF ERALIN,W4 «, t00=0x0020, t01=0x0040}
0x3248…3260 Head {h00=0x0014, h01=0x0050, text=» PERF ERALIN,W5 «, t00=0x0020, t01=0x0058}
0x3260…3278 Head {h00=0x0014, h01=0x0050, text=» PERF ERALIN,W6 «, t00=0x0020, t01=0x0070}
0x3278…3298 Head {h00=0x001c, h01=0x0050, text=» CBE TP1,W7,HK26F X-MARK«, t00=0x0020, t01=0x0088}
0x3298…32c0 Head {h00=0x0024, h01=0x0050, text=» PERF READDC,W6 NOTHING EXPECTED«, t00=0x0020, t01=0x00a8}
0x32c0…32d0 Head {h00=0x000c, h01=0x0050, text=» B HK26E«, t00=0x0020, t01=0x00d0}
0x32d0…32de Head {h00=0x000a, h01=0x0050, text=»HK26F «, t00=0x0020, t01=0x00e0}
0x32de…330e Head {h00=0x002c, h01=0x0050, text=» PERF READDC,W40 NEW MASK OR SP.SP.LF.LF«, t00=0x0020, t01=0x00ee}
0x330e…331c Head {h00=0x000a, h01=0x0050, text=»HK26E «, t00=0x0020, t01=0x011e}
0x331c…3330 Head {h00=0x0010, h01=0x0050, text=» BNOK HK26G «, t00=0x0020, t01=0x012c}
0x3330…3342 Head {h00=0x000e, h01=0x0050, text=» PERF SSLL«, t00=0x0020, t01=0x0140}
0x3342…3356 Head {h00=0x0010, h01=0x0050, text=» BNOK EXCH05«, t00=0x0020, t01=0x0152}
0x3356…336a Head {h00=0x0010, h01=0x0050, text=» EXPECTED «, t00=0x0020, t01=0x0166}
0x336a…3378 Head {h00=0x000a, h01=0x0050, text=»HK26G «, t00=0x0020, t01=0x017a}
0x3378…338c Head {h00=0x0010, h01=0x0050, text=» PERF RESTFT«, t00=0x0020, t01=0x0188}
0x338c…339c Head {h00=0x000c, h01=0x0050, text=» B HK30 «, t00=0x0021, t01=0x000c}
0x339c…33a4 Head {h00=0x0004, h01=0x0050, t00=0x0021, t01=0x001c}
0x33a4…33b0 Head {h00=0x0008, h01=0x0050, text=»HK28«, t00=0x0021, t01=0x0024}
0x33b0…33d0 Head {h00=0x001c, h01=0x0050, text=» PERF SAVEFT NEJ,JA1,JA2«, t00=0x0021, t01=0x0030}
0x33d0…33dc Head {h00=0x0008, h01=0x0050, text=»HK27«, t00=0x0021, t01=0x0050}
0x33dc…33f4 Head {h00=0x0014, h01=0x0050, text=» PERF READDC,W10«, t00=0x0021, t01=0x005c}
0x33f4…3408 Head {h00=0x0010, h01=0x0050, text=» BNOK HK27A «, t00=0x0021, t01=0x0074}
0x3408…341a Head {h00=0x000e, h01=0x0050, text=» PERF SSLL«, t00=0x0021, t01=0x0088}
0x341a…342e Head {h00=0x0010, h01=0x0050, text=» BNOK EXCH05«, t00=0x0021, t01=0x009a}
0x342e…343c Head {h00=0x000a, h01=0x0050, text=»HK27A «, t00=0x0021, t01=0x00ae}
0x343c…345e Head {h00=0x001e, h01=0x0050, text=» PERF FUNC01 ALL BLUE KEYS«, t00=0x0021, t01=0x00bc}
0x345e…346e Head {h00=0x000c, h01=0x0050, text=» B EXCH «, t00=0x0021, t01=0x00de}
0x346e…347c Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0021, t01=0x00ee}
0x347c…3488 Head {h00=0x0008, h01=0x0050, text=»HK30«, t00=0x0021, t01=0x00fc}
0x3488…349c Head {h00=0x0010, h01=0x0050, text=» SET TALLFLD«, t00=0x0021, t01=0x0108}
0x349c…34ca Head {h00=0x002a, h01=0x0050, text=»** A NORMAL MASK HAS BEEN RECEIVED ** «, t00=0x0021, t01=0x011c}
0x34ca…34ee Head {h00=0x0020, h01=0x0050, text=»** OR AN OLD MASK IS RE-USED«, t00=0x0021, t01=0x014a}
0x34ee…34fa Head {h00=0x0008, h01=0x0050, text=»HK36«, t00=0x0021, t01=0x016e}
0x34fa…3512 Head {h00=0x0014, h01=0x0050, text=» CLEAR TPOWFAIL «, t00=0x0021, t01=0x017a}
0x3512…351e (34, 0, 400) Head {h00=0x0008, h01=0x0050, text=»HK40«, t00=0x0022, t01=0x0004}
0x351e…3540 Head {h00=0x001e, h01=0x0050, text=» PERF KBINP PROCESS INPUT «, t00=0x0022, t01=0x0010}
0x3540…3576 Head {h00=0x0032, h01=0x0050, text=» TBT TPOWFAIL,EXCH05 UNPACK AFTER POWERFAILURE«, t00=0x0022, t01=0x0032}
0x3576…358c Head {h00=0x0012, h01=0x0050, text=» CLEAR TALLFLD«, t00=0x0022, t01=0x0068}
0x358c…35a0 Head {h00=0x0010, h01=0x0050, text=» PERF ERRTST«, t00=0x0022, t01=0x007e}
0x35a0…35b2 Head {h00=0x000e, h01=0x0050, text=» BNZ HK40 «, t00=0x0022, t01=0x0092}
0x35b2…35da Head {h00=0x0024, h01=0x0050, text=» TBT TNODEP,HK60 NO TESTS NEEDED«, t00=0x0022, t01=0x00a4}
0x35da…35f0 Head {h00=0x0012, h01=0x0050, text=» CLEAR TALLFLD«, t00=0x0022, t01=0x00cc}
0x35f0…361a Head {h00=0x0026, h01=0x0050, text=» PERF FLDDEP TEST ON INTERRELATION«, t00=0x0022, t01=0x00e2}
0x361a…362c Head {h00=0x000e, h01=0x0050, text=» BOK HK60 «, t00=0x0022, t01=0x010c}
0x362c…3642 Head {h00=0x0012, h01=0x0050, text=» CLEAR TALLFLD«, t00=0x0022, t01=0x011e}
0x3642…3652 Head {h00=0x000c, h01=0x0050, text=» B HK36 «, t00=0x0022, t01=0x0134}
0x3652…365e Head {h00=0x0008, h01=0x0050, text=»HK60«, t00=0x0022, t01=0x0144}
0x365e…3684 Head {h00=0x0022, h01=0x0050, text=» PERF SAVEFT SAVE "MDT"-BIT(S)«, t00=0x0022, t01=0x0150}
0x3684…3694 Head {h00=0x000c, h01=0x0050, text=» B EXCH «, t00=0x0022, t01=0x0176}
0x3694…369c Head {h00=0x0004, h01=0x0050, t00=0x0022, t01=0x0186}
0x369c…36ac Head {h00=0x000c, h01=0x0050, text=»DCERROR «, t00=0x0022, t01=0x018e}
0x36ac…36d0 Head {h00=0x0020, h01=0x0050, text=»** A TIMEOUT HAS OCCURRED **«, t00=0x0023, t01=0x000e}
0x36d0…36ea Head {h00=0x0016, h01=0x0050, text=» MOVE TBIN3,W2 IUT«, t00=0x0023, t01=0x0032}
0x36ea…3708 Head {h00=0x001a, h01=0x0050, text=» DSC1 LAMPS,OFF,TBIN3 «, t00=0x0023, t01=0x004c}
0x3708…371c Head {h00=0x0010, h01=0x0050, text=» PERF ERASCR«, t00=0x0023, t01=0x006a}
0x371c…3736 Head {h00=0x0016, h01=0x0050, text=» MOVE TBIN3,=W'48'«, t00=0x0023, t01=0x007e}
0x3736…3768 Head {h00=0x002e, h01=0x0050, text=» PERF PDUWRT,TBIN3,W1 'DATAMATEN OPTAGET' «, t00=0x0023, t01=0x0098}
0x3768…377c Head {h00=0x0010, h01=0x0050, text=» PERF CLRKBQ«, t00=0x0023, t01=0x00ca}
0x377c…378c Head {h00=0x000c, h01=0x0050, text=» B HK20 «, t00=0x0023, t01=0x00de}
0x378c…379a Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0023, t01=0x00ee}
0x379a…37ae Head {h00=0x0010, h01=0x0050, text=»ERRTST PROC «, t00=0x0023, t01=0x00fc}
0x37ae…37b8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0023, t01=0x0110}
0x37b8…37ee Head {h00=0x0032, h01=0x0050, text=»* THE PROCEDURE TESTS IF ANY FIELD IS FLAGGED «, t00=0x0023, t01=0x011a}
0x37ee…3808 Head {h00=0x0016, h01=0x0050, text=»* AS BEING WRONG. «, t00=0x0023, t01=0x0150}
0x3808…382c Head {h00=0x0020, h01=0x0050, text=»* IF SO, CR IS SET TO 'NOK' «, t00=0x0023, t01=0x016a}
0x382c…3872 Head {h00=0x0042, h01=0x0050, text=»* FIELDS FILLED WITH SPACES OR ZEROES ARE FLAGGED AS ERRORFREE«, t00=0x0023, t01=0x018e}
0x3872…388c Head {h00=0x0016, h01=0x0050, text=»* AND NOT-MODIFIED«, t00=0x0024, t01=0x0044}
0x388c…3896 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0024, t01=0x005e}
0x3896…38ac Head {h00=0x0012, h01=0x0050, text=» PERF PUSH,W2 «, t00=0x0024, t01=0x0068}
0x38ac…38d0 Head {h00=0x0020, h01=0x0050, text=» MOVE TBIN1,W2 FIRST TO TEST«, t00=0x0024, t01=0x007e}
0x38d0…3906 Head {h00=0x0032, h01=0x0050, text=» MOVE TBIN2,FLDTAB(W1,W1) NBR OF FIELDS ACTIVE«, t00=0x0024, t01=0x00a2}
0x3906…391c Head {h00=0x0012, h01=0x0050, text=» ADD TBIN2,W1 «, t00=0x0024, t01=0x00d8}
0x391c…392a Head {h00=0x000a, h01=0x0050, text=»ERRT10«, t00=0x0024, t01=0x00ee}
0x392a…395c Head {h00=0x002e, h01=0x0050, text=» CBG TBIN1,TBIN2,ERRT90 FLDTAB EXHAUSTED? «, t00=0x0024, t01=0x00fc}
0x395c…3976 Head {h00=0x0016, h01=0x0050, text=» MOVE TSTRG10,CSP «, t00=0x0024, t01=0x012e}
0x3976…39b8 Head {h00=0x003e, h01=0x0050, text=» XCOPY TSTRG10,W0,FLDTAB(TBIN1,W3),OUTBUF,FLDTAB(TBIN1,W2)«, t00=0x0024, t01=0x0148}
0x39b8…39e4 Head {h00=0x0028, h01=0x0050, text=» CBE TSTRG10,=C' ',ERRT10A «, t00=0x0024, t01=0x018a}
0x39e4…3a08 Head {h00=0x0020, h01=0x0050, text=» MOVE TSTRG10,=C'0000000000'«, t00=0x0025, t01=0x0026}
0x3a08…3a4a Head {h00=0x003e, h01=0x0050, text=» XCOPY TSTRG10,W0,FLDTAB(TBIN1,W3),OUTBUF,FLDTAB(TBIN1,W2)«, t00=0x0025, t01=0x004a}
0x3a4a…3a76 Head {h00=0x0028, h01=0x0050, text=» CBE TSTRG10,=C'0000000000',ERRT10A «, t00=0x0025, t01=0x008c}
0x3a76…3a88 Head {h00=0x000e, h01=0x0050, text=» B ERRT12 «, t00=0x0025, t01=0x00b8}
0x3a88…3a98 Head {h00=0x000c, h01=0x0050, text=»ERRT10A «, t00=0x0025, t01=0x00ca}
0x3a98…3ac0 Head {h00=0x0024, h01=0x0050, text=» CALL BITOFF,FLDTAB(TBIN1,W4),W0«, t00=0x0025, t01=0x00da}
0x3ac0…3ae8 Head {h00=0x0024, h01=0x0050, text=» CALL BITOFF,FLDTAB(TBIN1,W4),W2«, t00=0x0025, t01=0x0102}
0x3ae8…3b22 Head {h00=0x0036, h01=0x0050, text=» CALL BITTST,FLDTAB(TBIN1,W4),W1 COMPULSARY FIELD?«, t00=0x0025, t01=0x012a}
0x3b22…3b38 Head {h00=0x0012, h01=0x0050, text=» BZ ERRT12 NO «, t00=0x0025, t01=0x0164}
0x3b38…3b6a Head {h00=0x002e, h01=0x0050, text=» CALL BITTST,FLDTAB(TBIN1,W4),W2 MODIFIED?«, t00=0x0025, t01=0x017a}
0x3b6a…3b90 Head {h00=0x0022, h01=0x0050, text=» BZ ERRT13 SHOULD BE, SO ERROR«, t00=0x0026, t01=0x001c}
0x3b90…3b9e Head {h00=0x000a, h01=0x0050, text=»ERRT11«, t00=0x0026, t01=0x0042}
0x3b9e…3bb4 Head {h00=0x0012, h01=0x0050, text=» ADD TBIN1,W1 «, t00=0x0026, t01=0x0050}
0x3bb4…3bc6 Head {h00=0x000e, h01=0x0050, text=» B ERRT10 «, t00=0x0026, t01=0x0066}
0x3bc6…3bd4 Head {h00=0x000a, h01=0x0050, text=»ERRT12«, t00=0x0026, t01=0x0078}
0x3bd4…3c04 Head {h00=0x002c, h01=0x0050, text=» CALL BITTST,FLDTAB(TBIN1,W4),W0 ERROR? «, t00=0x0026, t01=0x0086}
0x3c04…3c16 Head {h00=0x000e, h01=0x0050, text=» BZ ERRT11«, t00=0x0026, t01=0x00b6}
0x3c16…3c24 Head {h00=0x000a, h01=0x0050, text=»ERRT13«, t00=0x0026, t01=0x00c8}
0x3c24…3c58 Head {h00=0x0030, h01=0x0050, text=» CALL BITON,FLDTAB(TBIN1,W4),W0 SET ERRORBIT«, t00=0x0026, t01=0x00d6}
0x3c58…3c6e Head {h00=0x0012, h01=0x0050, text=» PERF PULL,W2 «, t00=0x0026, t01=0x010a}
0x3c6e…3c80 Head {h00=0x000e, h01=0x0050, text=» CMP W0,W1«, t00=0x0026, t01=0x0120}
0x3c80…3c8c Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0026, t01=0x0132}
0x3c8c…3c9a Head {h00=0x000a, h01=0x0050, text=»ERRT90«, t00=0x0026, t01=0x013e}
0x3c9a…3cb0 Head {h00=0x0012, h01=0x0050, text=» PERF PULL,W2 «, t00=0x0026, t01=0x014c}
0x3cb0…3cc2 Head {h00=0x000e, h01=0x0050, text=» CMP W0,W0«, t00=0x0026, t01=0x0162}
0x3cc2…3cce Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0026, t01=0x0174}
0x3cce…3cdc Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0026, t01=0x0180}
0x3cdc…3cea Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0026, t01=0x018e}
0x3cea…3cfe Head {h00=0x0010, h01=0x0050, text=»SETTP1 PROC «, t00=0x0027, t01=0x000c}
0x3cfe…3d08 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0027, t01=0x0020}
0x3d08…3d40 Head {h00=0x0034, h01=0x0050, text=»* SET TP1, DEPENDING ON THE VALUES OF PRINTFLG, «, t00=0x0027, t01=0x002a}
0x3d40…3d62 Head {h00=0x001e, h01=0x0050, text=»* TSAVE(10) AND TSAVE(12).«, t00=0x0027, t01=0x0062}
0x3d62…3d8a Head {h00=0x0024, h01=0x0050, text=»* PRINTFLG : IF 0, PRINT WAS OK «, t00=0x0027, t01=0x0084}
0x3d8a…3dbc Head {h00=0x002e, h01=0x0050, text=»* TSAVE(10): IF 0, NO TICKET WAS RECEIVED «, t00=0x0027, t01=0x00ac}
0x3dbc…3dea Head {h00=0x002a, h01=0x0050, text=»* TSAVE(12): IF 0, NO FLASHING FIELDS «, t00=0x0027, t01=0x00de}
0x3dea…3df4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0027, t01=0x010c}
0x3df4…3e16 Head {h00=0x001e, h01=0x0050, text=» MOVE TP1,W0 INITIAL VALUE«, t00=0x0027, t01=0x0116}
0x3e16…3e32 Head {h00=0x0018, h01=0x0050, text=» TBT TPAPOUT,SETT00 «, t00=0x0027, t01=0x0138}
0x3e32…3e52 Head {h00=0x001c, h01=0x0050, text=» CBE PRINTFLG,W0,SETT10 «, t00=0x0027, t01=0x0154}
0x3e52…3e60 Head {h00=0x000a, h01=0x0050, text=»SETT00«, t00=0x0027, t01=0x0174}
0x3e60…3e74 Head {h00=0x0010, h01=0x0050, text=» ADD TP1,W1 «, t00=0x0027, t01=0x0182}
0x3e74…3e82 Head {h00=0x000a, h01=0x0050, text=»SETT10«, t00=0x0028, t01=0x0008}
0x3e82…3ea4 Head {h00=0x001e, h01=0x0050, text=» CBE TSAVE(W10),W0,SETT20 «, t00=0x0028, t01=0x0016}
0x3ea4…3eb8 Head {h00=0x0010, h01=0x0050, text=» ADD TP1,W2 «, t00=0x0028, t01=0x0038}
0x3eb8…3ec6 Head {h00=0x000a, h01=0x0050, text=»SETT20«, t00=0x0028, t01=0x004c}
0x3ec6…3ee8 Head {h00=0x001e, h01=0x0050, text=» CBE TSAVE(W12),W0,SETT30 «, t00=0x0028, t01=0x005a}
0x3ee8…3efc Head {h00=0x0010, h01=0x0050, text=» ADD TP1,W4 «, t00=0x0028, t01=0x007c}
0x3efc…3f0a Head {h00=0x000a, h01=0x0050, text=»SETT30«, t00=0x0028, t01=0x0090}
0x3f0a…3f36 Head {h00=0x0028, h01=0x0050, text=» ADD TP1,W1 ADJUST VALUE FROM (0-7) «, t00=0x0028, t01=0x009e}
0x3f36…3f4a Head {h00=0x0010, h01=0x0050, text=» TO (1-8) «, t00=0x0028, t01=0x00ca}
0x3f4a…3f56 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0028, t01=0x00de}
0x3f56…3f64 Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0028, t01=0x00ea}
0x3f64…3f72 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0028, t01=0x00f8}
0x3f72…3f86 Head {h00=0x0010, h01=0x0050, text=»TSTGTP PROC «, t00=0x0028, t01=0x0106}
0x3f86…3f90 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0028, t01=0x011a}
0x3f90…3fbe Head {h00=0x002a, h01=0x0050, text=»* THIS PROCEDURE TESTS THE PRINTER FOR«, t00=0x0028, t01=0x0124}
0x3fbe…3fd2 Head {h00=0x0010, h01=0x0050, text=»* PAPER OUT.«, t00=0x0028, t01=0x0152}
0x3fd2…3fdc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0028, t01=0x0166}
0x3fdc…3ff2 Head {h00=0x0012, h01=0x0050, text=» PERF PUSH,W1 «, t00=0x0028, t01=0x0170}
0x3ff2…4024 Head {h00=0x002e, h01=0x0050, text=» DSC1 LAMPS,OFF,LPAT1 SWITCH OFF PAPER/OUT«, t00=0x0028, t01=0x0186}
0x4024…403a Head {h00=0x0012, h01=0x0050, text=» CLEAR TPAPOUT«, t00=0x0029, t01=0x0028}
0x403a…4066 Head {h00=0x0028, h01=0x0050, text=» DSC0 GTP,TSTAT TEST PRINTER STATUS «, t00=0x0029, t01=0x003e}
0x4066…407e Head {h00=0x0014, h01=0x0050, text=» XSTAT GTP,TBIN1«, t00=0x0029, t01=0x006a}
0x407e…40a8 Head {h00=0x0026, h01=0x0050, text=» CALL BITTST,TBIN1,W10 PAPER OUT? «, t00=0x0029, t01=0x0082}
0x40a8…40ba Head {h00=0x000e, h01=0x0050, text=» BZ TSTG10«, t00=0x0029, t01=0x00ac}
0x40ba…40dc Head {h00=0x001e, h01=0x0050, text=» DSC1 LAMPS,ON,LPAT2 BUZZ «, t00=0x0029, t01=0x00be}
0x40dc…40fa Head {h00=0x001a, h01=0x0050, text=» DSC1 LAMPS,FLSH,LPAT1«, t00=0x0029, t01=0x00e0}
0x40fa…410e Head {h00=0x0010, h01=0x0050, text=» SET TPAPOUT«, t00=0x0029, t01=0x00fe}
0x410e…411c Head {h00=0x000a, h01=0x0050, text=»TSTG10«, t00=0x0029, t01=0x0112}
0x411c…4132 Head {h00=0x0012, h01=0x0050, text=» PERF PULL,W1 «, t00=0x0029, t01=0x0120}
0x4132…413e Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0029, t01=0x0136}
0x413e…414c Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0029, t01=0x0142}
0x414c…415a Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0029, t01=0x0150}
0x415a…416e Head {h00=0x0010, h01=0x0050, text=»DCEXCH PROC «, t00=0x0029, t01=0x015e}
0x416e…4188 Head {h00=0x0016, h01=0x0050, text=» DSC1 LAMPS,OFF,W1«, t00=0x0029, t01=0x0172}
0x4188…41b2 Head {h00=0x0026, h01=0x0050, text=» PERF READDC,W1 ANYTHING WAITING? «, t00=0x0029, t01=0x018c}
0x41b2…41c6 Head {h00=0x0010, h01=0x0050, text=» BOK DCEX95 «, t00=0x002a, t01=0x0026}
0x41c6…41e4 Head {h00=0x001a, h01=0x0050, text=» DSC1 DC,STIMO,CTIMOUT«, t00=0x002a, t01=0x003a}
0x41e4…41f8 Head {h00=0x0010, h01=0x0050, text=» PERF LCKTST«, t00=0x002a, t01=0x0058}
0x41f8…4220 Head {h00=0x0024, h01=0x0050, text=»* IB CTEST,DCEX91,DCEX92,DCEX93 «, t00=0x002a, t01=0x006c}
0x4220…423c Head {h00=0x0018, h01=0x0050, text=» TBT TALTBUF,DCEX20 «, t00=0x002a, t01=0x0094}
0x423c…4274 Head {h00=0x0034, h01=0x0050, text=» XCOPY OUTBUF,W0,W1,TKEYS,W0 MOVE KEYLOCKSTATUS «, t00=0x002a, t01=0x00b0}
0x4274…4294 Head {h00=0x001c, h01=0x0050, text=» WRITE DC,OUTBUF,OUTLEN «, t00=0x002a, t01=0x00e8}
0x4294…42b4 Head {h00=0x001c, h01=0x0050, text=» BNOK DCEX99 ERROR: EXIT«, t00=0x002a, t01=0x0108}
0x42b4…42c6 Head {h00=0x000e, h01=0x0050, text=» B DCEX30 «, t00=0x002a, t01=0x0128}
0x42c6…42d4 Head {h00=0x000a, h01=0x0050, text=»DCEX20«, t00=0x002a, t01=0x013a}
0x42d4…42fa Head {h00=0x0022, h01=0x0050, text=» XCOPY TDC2BUF,W0,W1,TKEYS,W0 «, t00=0x002a, t01=0x0148}
0x42fa…431c Head {h00=0x001e, h01=0x0050, text=» WRITE DC,TDC2BUF,TDC2LEN «, t00=0x002a, t01=0x016e}
0x431c…4330 Head {h00=0x0010, h01=0x0050, text=» BNOK DCEX99«, t00=0x002a, t01=0x0190}
0x4330…4346 Head {h00=0x0012, h01=0x0050, text=» CLEAR TALTBUF«, t00=0x002b, t01=0x0014}
0x4346…4354 Head {h00=0x000a, h01=0x0050, text=»DCEX30«, t00=0x002b, t01=0x002a}
0x4354…4368 Head {h00=0x0010, h01=0x0050, text=» PERF TSTGTP«, t00=0x002b, t01=0x0038}
0x4368…4384 Head {h00=0x0018, h01=0x0050, text=» PERF READDC,CTIMOUT«, t00=0x002b, t01=0x004c}
0x4384…4398 Head {h00=0x0010, h01=0x0050, text=» BNOK DCEX99«, t00=0x002b, t01=0x0068}
0x4398…43aa Head {h00=0x000e, h01=0x0050, text=» B DCEX95 «, t00=0x002b, t01=0x007c}
0x43aa…43b8 Head {h00=0x000a, h01=0x0050, text=»DCEX91«, t00=0x002b, t01=0x008e}
0x43b8…43d2 Head {h00=0x0016, h01=0x0050, text=»* MOVE INBUF,MASK «, t00=0x002b, t01=0x009c}
0x43d2…43ee Head {h00=0x0018, h01=0x0050, text=»* MOVE INLEN,=W'106'«, t00=0x002b, t01=0x00b6}
0x43ee…4400 Head {h00=0x000e, h01=0x0050, text=»* B DCEX95«, t00=0x002b, t01=0x00d2}
0x4400…440e Head {h00=0x000a, h01=0x0050, text=»DCEX92«, t00=0x002b, t01=0x00e4}
0x440e…442a Head {h00=0x0018, h01=0x0050, text=»* MOVE INBUF,TICKET «, t00=0x002b, t01=0x00f2}
0x442a…4446 Head {h00=0x0018, h01=0x0050, text=»* MOVE INLEN,=W'182'«, t00=0x002b, t01=0x010e}
0x4446…4458 Head {h00=0x000e, h01=0x0050, text=»* B DCEX95«, t00=0x002b, t01=0x012a}
0x4458…4466 Head {h00=0x000a, h01=0x0050, text=»DCEX93«, t00=0x002b, t01=0x013c}
0x4466…448a Head {h00=0x0020, h01=0x0050, text=»* MOVE INBUF,=X'0E20200A0A' «, t00=0x002b, t01=0x014a}
0x448a…44a2 Head {h00=0x0014, h01=0x0050, text=»* MOVE INLEN,W5 «, t00=0x002b, t01=0x016e}
0x44a2…44b0 Head {h00=0x000a, h01=0x0050, text=»DCEX95«, t00=0x002b, t01=0x0186}
0x44b0…44ca (44, 0, 400) Head {h00=0x0016, h01=0x0050, text=» DSC1 LAMPS,ON,W1 «, t00=0x002c, t01=0x0004}
0x44ca…44dc Head {h00=0x000e, h01=0x0050, text=» CMP W0,W0«, t00=0x002c, t01=0x001e}
0x44dc…44ea Head {h00=0x000a, h01=0x0050, text=»DCEX99«, t00=0x002c, t01=0x0030}
0x44ea…44f6 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x002c, t01=0x003e}
0x44f6…4504 Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x002c, t01=0x004a}
0x4504…450c Head {h00=0x0004, h01=0x0050, t00=0x002c, t01=0x0058}
0x450c…4514 Head {h00=0x0004, h01=0x0050, t00=0x002c, t01=0x0060}
0x4514…451c Head {h00=0x0004, h01=0x0050, t00=0x002c, t01=0x0068}
0x451c…4532 Head {h00=0x0012, h01=0x0050, text=»READDC PROC P «, t00=0x002c, t01=0x0070}
0x4532…454c Head {h00=0x0016, h01=0x0050, text=» MOVE TLEN,CBUFLEN«, t00=0x002c, t01=0x0086}
0x454c…4562 Head {h00=0x0012, h01=0x0050, text=» MOVE TBUF,CSP«, t00=0x002c, t01=0x00a0}
0x4562…457a Head {h00=0x0014, h01=0x0050, text=» DSC1 DC,STIMO,P«, t00=0x002c, t01=0x00b6}
0x457a…4598 Head {h00=0x001a, h01=0x0050, text=» CBNE CTEST,W0,RDDC20 «, t00=0x002c, t01=0x00ce}
0x4598…45b2 Head {h00=0x0016, h01=0x0050, text=» READ DC,TBUF,TLEN«, t00=0x002c, t01=0x00ec}
0x45b2…45c6 Head {h00=0x0010, h01=0x0050, text=» BNOK RDDC20«, t00=0x002c, t01=0x0106}
0x45c6…45de Head {h00=0x0014, h01=0x0050, text=» MOVE INBUF,TBUF«, t00=0x002c, t01=0x011a}
0x45de…45f6 Head {h00=0x0014, h01=0x0050, text=» MOVE INLEN,TLEN«, t00=0x002c, t01=0x0132}
0x45f6…4608 Head {h00=0x000e, h01=0x0050, text=» CMP W0,W0«, t00=0x002c, t01=0x014a}
0x4608…461a Head {h00=0x000e, h01=0x0050, text=» B RDDC90 «, t00=0x002c, t01=0x015c}
0x461a…4628 Head {h00=0x000a, h01=0x0050, text=»RDDC20«, t00=0x002c, t01=0x016e}
0x4628…463a Head {h00=0x000e, h01=0x0050, text=» CMP W0,W1«, t00=0x002c, t01=0x017c}
0x463a…4648 Head {h00=0x000a, h01=0x0050, text=»RDDC90«, t00=0x002c, t01=0x018e}
0x4648…4654 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x002d, t01=0x000c}
0x4654…4662 Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x002d, t01=0x0018}
0x4662…466a Head {h00=0x0004, h01=0x0050, t00=0x002d, t01=0x0026}
0x466a…4672 Head {h00=0x0004, h01=0x0050, t00=0x002d, t01=0x002e}
0x4672…4684 Head {h00=0x000e, h01=0x0050, text=»SSLL PROC «, t00=0x002d, t01=0x0036}
0x4684…46aa Head {h00=0x0022, h01=0x0050, text=»* TEST FOR "GENTAG GL. MASKE" «, t00=0x002d, t01=0x0048}
0x46aa…46c4 Head {h00=0x0016, h01=0x0050, text=» MOVE TSTRG5,INBUF«, t00=0x002d, t01=0x006e}
0x46c4…46ee Head {h00=0x0026, h01=0x0050, text=» CBE TSTRG5,=X'0E20200A0A',SSLL95 «, t00=0x002d, t01=0x0088}
0x46ee…4708 Head {h00=0x0016, h01=0x0050, text=» MOVE TSTRG6,INBUF«, t00=0x002d, t01=0x00b2}
0x4708…4734 Head {h00=0x0028, h01=0x0050, text=» CBE TSTRG6,=X'0E20200F0A0A',SSLL95 «, t00=0x002d, t01=0x00cc}
0x4734…4746 Head {h00=0x000e, h01=0x0050, text=» CMP W0,W1«, t00=0x002d, t01=0x00f8}
0x4746…4754 Head {h00=0x000a, h01=0x0050, text=»SSLL95«, t00=0x002d, t01=0x010a}
0x4754…4760 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x002d, t01=0x0118}
0x4760…476e Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x002d, t01=0x0124}
0x476e…477c Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x002d, t01=0x0132}
0x477c…4796 Head {h00=0x0016, h01=0x0050, text=»PDUWRT PROC IX,LIN«, t00=0x002d, t01=0x0140}
0x4796…47d8 Head {h00=0x003e, h01=0x0050, text=»* THE PROCEDURE WRITES VARIOUS TEXTS ON THE PDU, DEPENDING«, t00=0x002d, t01=0x015a}
0x47d8…47f4 Head {h00=0x0018, h01=0x0050, text=»* ON THE PARAMETER. «, t00=0x002e, t01=0x000c}
0x47f4…4818 Head {h00=0x0020, h01=0x0050, text=»* IF THE PARAMETER IS ZERO, «, t00=0x002e, t01=0x0028}
0x4818…4852 Head {h00=0x0036, h01=0x0050, text=»* THE CONTENTS OF TPDUBUF WILL BE WRITTEN "AS-IS".«, t00=0x002e, t01=0x004c}
0x4852…4868 Head {h00=0x0012, h01=0x0050, text=» PERF PUSH,W2 «, t00=0x002e, t01=0x0086}
0x4868…488e Head {h00=0x0022, h01=0x0050, text=» MOVE TCURPOS,LIN CURSORPOS :=«, t00=0x002e, t01=0x009c}
0x488e…48be Head {h00=0x002c, h01=0x0050, text=» MUL TCURPOS,=W'256' (LIN SHIFT 16) + 1 «, t00=0x002e, t01=0x00c2}
0x48be…48d6 Head {h00=0x0014, h01=0x0050, text=» ADD TCURPOS,W1 «, t00=0x002e, t01=0x00f2}
0x48d6…48f4 Head {h00=0x001a, h01=0x0050, text=» DSC1 PDU,POS,TCURPOS «, t00=0x002e, t01=0x010a}
0x48f4…490e Head {h00=0x0016, h01=0x0050, text=» CBE W0,IX,PDUW80 «, t00=0x002e, t01=0x0128}
0x490e…4924 Head {h00=0x0012, h01=0x0050, text=» MOVE TBIN2,IX«, t00=0x002e, t01=0x0142}
0x4924…493a Head {h00=0x0012, h01=0x0050, text=» MOVE TBIN1,W2«, t00=0x002e, t01=0x0158}
0x493a…4948 Head {h00=0x000a, h01=0x0050, text=»PDUW10«, t00=0x002e, t01=0x016e}
0x4948…497e Head {h00=0x0032, h01=0x0050, text=» CBE TBIN2,CINX(TBIN1),PDUW30 ERRORNBR FOUND? «, t00=0x002e, t01=0x017c}
0x497e…49b4 Head {h00=0x0032, h01=0x0050, text=» CBE CINX(TBIN1),=W'999',PDUW20 OUT OF ARRAY? «, t00=0x002f, t01=0x0022}
0x49b4…49d6 Head {h00=0x001e, h01=0x0050, text=» ADD TBIN1,W1 NO, TRY NEXT«, t00=0x002f, t01=0x0058}
0x49d6…49e8 Head {h00=0x000e, h01=0x0050, text=» B PDUW10 «, t00=0x002f, t01=0x007a}
0x49e8…49f6 Head {h00=0x000a, h01=0x0050, text=»PDUW20«, t00=0x002f, t01=0x008c}
0x49f6…4a22 Head {h00=0x0028, h01=0x0050, text=» MOVE TBIN1,W1 ALL '*' IF NOT FOUND «, t00=0x002f, t01=0x009a}
0x4a22…4a30 Head {h00=0x000a, h01=0x0050, text=»PDUW30«, t00=0x002f, t01=0x00c6}
0x4a30…4a46 Head {h00=0x0012, h01=0x0050, text=» MOVE TBCD5,IX«, t00=0x002f, t01=0x00d4}
0x4a46…4a62 Head {h00=0x0018, h01=0x0050, text=» EDIT TPDUBUF,ERRFMT«, t00=0x002f, t01=0x00ea}
0x4a62…4a70 Head {h00=0x000a, h01=0x0050, text=»PDUW80«, t00=0x002f, t01=0x0106}
0x4a70…4a8a Head {h00=0x0016, h01=0x0050, text=» MOVE TBIN2,=W'42'«, t00=0x002f, t01=0x0114}
0x4a8a…4aaa Head {h00=0x001c, h01=0x0050, text=» WRITE PDU,TPDUBUF,TBIN2«, t00=0x002f, t01=0x012e}
0x4aaa…4ac0 Head {h00=0x0012, h01=0x0050, text=» PERF PULL,W2 «, t00=0x002f, t01=0x014e}
0x4ac0…4ad2 Head {h00=0x000e, h01=0x0050, text=» CMP W0,W0«, t00=0x002f, t01=0x0164}
0x4ad2…4ade Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x002f, t01=0x0176}
0x4ade…4aec Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x002f, t01=0x0182}
0x4aec…4af4 Head {h00=0x0004, h01=0x0050, t00=0x002f, t01=0x0190}
0x4af4…4b08 Head {h00=0x0010, h01=0x0050, text=»ERRFMT FRMT «, t00=0x0030, t01=0x0008}
0x4b08…4b1c Head {h00=0x0010, h01=0x0050, text=» FILLR '+',2«, t00=0x0030, t01=0x001c}
0x4b1c…4b30 Head {h00=0x0010, h01=0x0050, text=» FILLR ' ',2«, t00=0x0030, t01=0x0030}
0x4b30…4b48 Head {h00=0x0014, h01=0x0050, text=» FMEL '99',TBCD5«, t00=0x0030, t01=0x0044}
0x4b48…4b5c Head {h00=0x0010, h01=0x0050, text=» FILLR ' ',1«, t00=0x0030, t01=0x005c}
0x4b5c…4b76 Head {h00=0x0016, h01=0x0050, text=» FCOPY CTXT(TBIN1)«, t00=0x0030, t01=0x0070}
0x4b76…4b8a Head {h00=0x0010, h01=0x0050, text=» FILLR ' ',6«, t00=0x0030, t01=0x008a}
0x4b8a…4b98 Head {h00=0x000a, h01=0x0050, text=» FMEND«, t00=0x0030, t01=0x009e}
0x4b98…4ba0 Head {h00=0x0004, h01=0x0050, t00=0x0030, t01=0x00ac}
0x4ba0…4ba8 Head {h00=0x0004, h01=0x0050, t00=0x0030, t01=0x00b4}
0x4ba8…4bb0 Head {h00=0x0004, h01=0x0050, t00=0x0030, t01=0x00bc}
0x4bb0…4bc6 Head {h00=0x0012, h01=0x0050, text=»ERALIN PROC P «, t00=0x0030, t01=0x00c4}
0x4bc6…4bdc Head {h00=0x0012, h01=0x0050, text=» PERF PUSH,W1 «, t00=0x0030, t01=0x00da}
0x4bdc…4bf4 Head {h00=0x0014, h01=0x0050, text=» MOVE TCURPOS,P «, t00=0x0030, t01=0x00f0}
0x4bf4…4c10 Head {h00=0x0018, h01=0x0050, text=» MUL TCURPOS,=W'256'«, t00=0x0030, t01=0x0108}
0x4c10…4c28 Head {h00=0x0014, h01=0x0050, text=» ADD TCURPOS,W1 «, t00=0x0030, t01=0x0124}
0x4c28…4c46 Head {h00=0x001a, h01=0x0050, text=» DSC1 PDU,POS,TCURPOS «, t00=0x0030, t01=0x013c}
0x4c46…4c60 Head {h00=0x0016, h01=0x0050, text=» MOVE TBIN1,=W'40'«, t00=0x0030, t01=0x015a}
0x4c60…4c7e Head {h00=0x001a, h01=0x0050, text=» DSC1 PDU,ERASE,TBIN1 «, t00=0x0030, t01=0x0174}
0x4c7e…4c9c (49, 0, 400) Head {h00=0x001a, h01=0x0050, text=» DSC1 PDU,POS,TCURPOS «, t00=0x0031, t01=0x0004}
0x4c9c…4cb2 Head {h00=0x0012, h01=0x0050, text=» PERF PULL,W1 «, t00=0x0031, t01=0x0022}
0x4cb2…4cbe Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0031, t01=0x0038}
0x4cbe…4ccc Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0031, t01=0x0044}
0x4ccc…4cda Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0031, t01=0x0052}
0x4cda…4cec Head {h00=0x000e, h01=0x0050, text=»UNPCK PROC«, t00=0x0031, t01=0x0060}
0x4cec…4d0a Head {h00=0x001a, h01=0x0050, text=» MOVE FLDTAB(W1,W1),W0«, t00=0x0031, t01=0x0072}
0x4d0a…4d28 Head {h00=0x001a, h01=0x0050, text=» MOVE FLDTAB(W1,W2),W0«, t00=0x0031, t01=0x0090}
0x4d28…4d46 Head {h00=0x001a, h01=0x0050, text=» MOVE FLDTAB(W1,W3),W0«, t00=0x0031, t01=0x00ae}
0x4d46…4d64 Head {h00=0x001a, h01=0x0050, text=» MOVE FLDTAB(W1,W4),W0«, t00=0x0031, t01=0x00cc}
0x4d64…4d8a Head {h00=0x0022, h01=0x0050, text=» CALL UNPACK, UNPACK ROUTINE C«, t00=0x0031, t01=0x00ea}
0x4d8a…4dbc Head {h00=0x002e, h01=0x0050, text=» TSAVE(W1), WORKAREA FOR UNPACKROUTINE C «, t00=0x0031, t01=0x0110}
0x4dbc…4dde Head {h00=0x001e, h01=0x0050, text=» INBUF, DC INPUT BUFFER C«, t00=0x0031, t01=0x0142}
0x4dde…4e02 Head {h00=0x0020, h01=0x0050, text=» INLEN, LENGTH OF BUFFER C «, t00=0x0031, t01=0x0164}
0x4e02…4e2e Head {h00=0x0028, h01=0x0050, text=» OUTBUF, OUTPUT BUFFER TO BE SENT C«, t00=0x0031, t01=0x0188}
0x4e2e…4e5a Head {h00=0x0028, h01=0x0050, text=» OUTLEN, LENGTH OF MSG TO BE SENT C«, t00=0x0032, t01=0x0024}
0x4e5a…4e8c Head {h00=0x002e, h01=0x0050, text=» FLDTAB(W1,W1), TABLE OVER INPUTFIELDS C «, t00=0x0032, t01=0x0050}
0x4e8c…4eaa Head {h00=0x001a, h01=0x0050, text=» PDU, DISPLAYDEVICE C«, t00=0x0032, t01=0x0082}
0x4eaa…4ec8 Head {h00=0x001a, h01=0x0050, text=» GTP, PRINT DEVICE C «, t00=0x0032, t01=0x00a0}
0x4ec8…4ef4 Head {h00=0x0028, h01=0x0050, text=» PRINTFLG, TICKET PRINTED OR NOT C «, t00=0x0032, t01=0x00be}
0x4ef4…4f0e Head {h00=0x0016, h01=0x0050, text=» DC, DC DATASET C«, t00=0x0032, t01=0x00ea}
0x4f0e…4f3a Head {h00=0x0028, h01=0x0050, text=» TDC2BUF USED FOR ACK/NAK/FUNCTIONS«, t00=0x0032, t01=0x0104}
0x4f3a…4f62 Head {h00=0x0024, h01=0x0050, text=» PERF CLRKBQ CLEAR CYCLIC BUFFER«, t00=0x0032, t01=0x0130}
0x4f62…4f8e Head {h00=0x0028, h01=0x0050, text=» PERF SAVEFT SAVE IF > 4 INPUTFIELDS«, t00=0x0032, t01=0x0158}
0x4f8e…4fbe Head {h00=0x002c, h01=0x0050, text=» PERF RESTFT RESTORE IF < 5 INPUTFIELDS «, t00=0x0032, t01=0x0184}
0x4fbe…4fd2 Head {h00=0x0010, h01=0x0050, text=» PERF BOOSET«, t00=0x0033, t01=0x0024}
0x4fd2…4fde Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0033, t01=0x0038}
0x4fde…4fec Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0033, t01=0x0044}
0x4fec…4ffa Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0033, t01=0x0052}
0x4ffa…500e Head {h00=0x0010, h01=0x0050, text=»CLRKBQ PROC «, t00=0x0033, t01=0x0060}
0x500e…501c Head {h00=0x000a, h01=0x0050, text=»CLRK10«, t00=0x0033, t01=0x0074}
0x501c…5058 Head {h00=0x0038, h01=0x0050, text=»* CLEAR CYCLIC BUFFER APART FROM KEYLOCK CHARACTERS «, t00=0x0033, t01=0x0082}
0x5058…506e Head {h00=0x0012, h01=0x0050, text=» MOVE TBIN1,W1«, t00=0x0033, t01=0x00be}
0x506e…5084 Head {h00=0x0012, h01=0x0050, text=» MOVE TBIN2,W0«, t00=0x0033, t01=0x00d4}
0x5084…50b6 Head {h00=0x002e, h01=0x0050, text=» KI .NW,.NE,KEYB,TKBBUF,KTAB02,TBIN1,TBIN2«, t00=0x0033, t01=0x00ea}
0x50b6…50ca Head {h00=0x0010, h01=0x0050, text=» ABORT KEYB «, t00=0x0033, t01=0x011c}
0x50ca…50de Head {h00=0x0010, h01=0x0050, text=» BOK CLRK80 «, t00=0x0033, t01=0x0130}
0x50de…50f0 Head {h00=0x000e, h01=0x0050, text=» WAIT KEYB«, t00=0x0033, t01=0x0144}
0x50f0…5128 Head {h00=0x0034, h01=0x0050, text=» CBNL TBIN2,W0,CLRK10 ANYTHING ELSE THEN KEYLOCK«, t00=0x0033, t01=0x0156}
0x5128…5140 Head {h00=0x0014, h01=0x0050, text=» MOVE TP2,TBIN2 «, t00=0x0033, t01=0x018e}
0x5140…5164 Head {h00=0x0020, h01=0x0050, text=» PERF LCKSET WILL BE REFUSED«, t00=0x0034, t01=0x0016}
0x5164…5176 Head {h00=0x000e, h01=0x0050, text=» B CLRK10 «, t00=0x0034, t01=0x003a}
0x5176…5184 Head {h00=0x000a, h01=0x0050, text=»CLRK80«, t00=0x0034, t01=0x004c}
0x5184…5196 Head {h00=0x000e, h01=0x0050, text=» WAIT KEYB«, t00=0x0034, t01=0x005a}
0x5196…51a2 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0034, t01=0x006c}
0x51a2…51b0 Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0034, t01=0x0078}
0x51b0…51be Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0034, t01=0x0086}
0x51be…51d2 Head {h00=0x0010, h01=0x0050, text=»SAVEFT PROC «, t00=0x0034, t01=0x0094}
0x51d2…51f6 Head {h00=0x0020, h01=0x0050, text=» CBL FLDTAB(W1,W1),W5,SAVE90«, t00=0x0034, t01=0x00a8}
0x51f6…520c Head {h00=0x0012, h01=0x0050, text=» PERF PUSH,W2 «, t00=0x0034, t01=0x00cc}
0x520c…5226 Head {h00=0x0016, h01=0x0050, text=» MOVE TBIN1,=W'21'«, t00=0x0034, t01=0x00e2}
0x5226…523c Head {h00=0x0012, h01=0x0050, text=» MOVE TBIN2,W4«, t00=0x0034, t01=0x00fc}
0x523c…524a Head {h00=0x000a, h01=0x0050, text=»SAVE10«, t00=0x0034, t01=0x0112}
0x524a…5280 Head {h00=0x0032, h01=0x0050, text=» MOVE SAVTAB(TBIN1,TBIN2),FLDTAB(TBIN1,TBIN2) «, t00=0x0034, t01=0x0120}
0x5280…5296 Head {h00=0x0012, h01=0x0050, text=» SUB TBIN2,W1 «, t00=0x0034, t01=0x0156}
0x5296…52b2 Head {h00=0x0018, h01=0x0050, text=» CBG TBIN2,W0,SAVE10«, t00=0x0034, t01=0x016c}
0x52b2…52c8 Head {h00=0x0012, h01=0x0050, text=» MOVE TBIN2,W4«, t00=0x0034, t01=0x0188}
0x52c8…52de Head {h00=0x0012, h01=0x0050, text=» SUB TBIN1,W1 «, t00=0x0035, t01=0x000e}
0x52de…52fa Head {h00=0x0018, h01=0x0050, text=» CBG TBIN1,W0,SAVE10«, t00=0x0035, t01=0x0024}
0x52fa…5310 Head {h00=0x0012, h01=0x0050, text=» PERF PULL,W2 «, t00=0x0035, t01=0x0040}
0x5310…531e Head {h00=0x000a, h01=0x0050, text=»SAVE90«, t00=0x0035, t01=0x0056}
0x531e…532a Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0035, t01=0x0064}
0x532a…5338 Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0035, t01=0x0070}
0x5338…5340 Head {h00=0x0004, h01=0x0050, t00=0x0035, t01=0x007e}
0x5340…5348 Head {h00=0x0004, h01=0x0050, t00=0x0035, t01=0x0086}
0x5348…535c Head {h00=0x0010, h01=0x0050, text=»RESTFT PROC «, t00=0x0035, t01=0x008e}
0x535c…5380 Head {h00=0x0020, h01=0x0050, text=» CBG FLDTAB(W1,W1),W4,REST90«, t00=0x0035, t01=0x00a2}
0x5380…53a6 Head {h00=0x0022, h01=0x0050, text=» CBNL SAVTAB(W1,W1),W5,REST00 «, t00=0x0035, t01=0x00c6}
0x53a6…53ba Head {h00=0x0010, h01=0x0050, text=» PERF NOINPT«, t00=0x0035, t01=0x00ec}
0x53ba…53cc Head {h00=0x000e, h01=0x0050, text=» B REST90 «, t00=0x0035, t01=0x0100}
0x53cc…53da Head {h00=0x000a, h01=0x0050, text=»REST00«, t00=0x0035, t01=0x0112}
0x53da…53f0 Head {h00=0x0012, h01=0x0050, text=» PERF PUSH,W2 «, t00=0x0035, t01=0x0120}
0x53f0…540a Head {h00=0x0016, h01=0x0050, text=» MOVE TBIN1,=W'21'«, t00=0x0035, t01=0x0136}
0x540a…5420 Head {h00=0x0012, h01=0x0050, text=» MOVE TBIN2,W4«, t00=0x0035, t01=0x0150}
0x5420…542e Head {h00=0x000a, h01=0x0050, text=»REST10«, t00=0x0035, t01=0x0166}
0x542e…5464 Head {h00=0x0032, h01=0x0050, text=» MOVE FLDTAB(TBIN1,TBIN2),SAVTAB(TBIN1,TBIN2) «, t00=0x0035, t01=0x0174}
0x5464…547a Head {h00=0x0012, h01=0x0050, text=» SUB TBIN2,W1 «, t00=0x0036, t01=0x001a}
0x547a…5496 Head {h00=0x0018, h01=0x0050, text=» CBG TBIN2,W0,REST10«, t00=0x0036, t01=0x0030}
0x5496…54ac Head {h00=0x0012, h01=0x0050, text=» MOVE TBIN2,W4«, t00=0x0036, t01=0x004c}
0x54ac…54c2 Head {h00=0x0012, h01=0x0050, text=» SUB TBIN1,W1 «, t00=0x0036, t01=0x0062}
0x54c2…54de Head {h00=0x0018, h01=0x0050, text=» CBG TBIN1,W0,REST10«, t00=0x0036, t01=0x0078}
0x54de…54ec Head {h00=0x000a, h01=0x0050, text=»REST80«, t00=0x0036, t01=0x0094}
0x54ec…5502 Head {h00=0x0012, h01=0x0050, text=» PERF PULL,W2 «, t00=0x0036, t01=0x00a2}
0x5502…5510 Head {h00=0x000a, h01=0x0050, text=»REST90«, t00=0x0036, t01=0x00b8}
0x5510…551c Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0036, t01=0x00c6}
0x551c…552a Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0036, t01=0x00d2}
0x552a…5532 Head {h00=0x0004, h01=0x0050, t00=0x0036, t01=0x00e0}
0x5532…553a Head {h00=0x0004, h01=0x0050, t00=0x0036, t01=0x00e8}
0x553a…5542 Head {h00=0x0004, h01=0x0050, t00=0x0036, t01=0x00f0}
0x5542…5556 Head {h00=0x0010, h01=0x0050, text=»BOOSET PROC «, t00=0x0036, t01=0x00f8}
0x5556…5584 Head {h00=0x002a, h01=0x0050, text=» MOVE TBIN1,FLDTAB(W1,W4) MASKNBR 1-8 «, t00=0x0036, t01=0x010c}
0x5584…55a0 Head {h00=0x0018, h01=0x0050, text=» CBL TBIN1,W1,BOO90 «, t00=0x0036, t01=0x013a}
0x55a0…55bc Head {h00=0x0018, h01=0x0050, text=» CBG TBIN1,W8,BOO90 «, t00=0x0036, t01=0x0156}
0x55bc…55d0 Head {h00=0x0010, h01=0x0050, text=» CLEAR TSID «, t00=0x0036, t01=0x0172}
0x55d0…55e4 Head {h00=0x0010, h01=0x0050, text=» CLEAR TLIG «, t00=0x0036, t01=0x0186}
0x55e4…55f8 Head {h00=0x0010, h01=0x0050, text=» CLEAR TISID«, t00=0x0037, t01=0x000a}
0x55f8…560c Head {h00=0x0010, h01=0x0050, text=» CLEAR TILIG«, t00=0x0037, t01=0x001e}
0x560c…5620 Head {h00=0x0010, h01=0x0050, text=» CLEAR TSOV «, t00=0x0037, t01=0x0032}
0x5620…5634 Head {h00=0x0010, h01=0x0050, text=» CLEAR TBIL «, t00=0x0037, t01=0x0046}
0x5634…564a Head {h00=0x0012, h01=0x0050, text=» CLEAR TAFBEST«, t00=0x0037, t01=0x005a}
0x564a…565e Head {h00=0x0010, h01=0x0050, text=» CLEAR TCHNG«, t00=0x0037, t01=0x0070}
0x565e…5672 Head {h00=0x0010, h01=0x0050, text=» SET TNODEP «, t00=0x0037, t01=0x0084}
0x5672…5686 Head {h00=0x0010, h01=0x0050, text=» SET TALLFLD«, t00=0x0037, t01=0x0098}
0x5686…569c Head {h00=0x0012, h01=0x0050, text=» IB TBIN1, C «, t00=0x0037, t01=0x00ac}
0x569c…56b2 Head {h00=0x0012, h01=0x0050, text=» BOO11, SID C«, t00=0x0037, t01=0x00c2}
0x56b2…56ca Head {h00=0x0014, h01=0x0050, text=» BOO12, ISID C «, t00=0x0037, t01=0x00d8}
0x56ca…56e0 Head {h00=0x0012, h01=0x0050, text=» BOO13, LIG C«, t00=0x0037, t01=0x00f0}
0x56e0…56f8 Head {h00=0x0014, h01=0x0050, text=» BOO14, ILIG C «, t00=0x0037, t01=0x0106}
0x56f8…5712 Head {h00=0x0016, h01=0x0050, text=» BOO15, AFBEST C «, t00=0x0037, t01=0x011e}
0x5712…5728 Head {h00=0x0012, h01=0x0050, text=» BOO16, SOV C«, t00=0x0037, t01=0x0138}
0x5728…573e Head {h00=0x0012, h01=0x0050, text=» BOO17, BIL C«, t00=0x0037, t01=0x014e}
0x573e…5756 Head {h00=0x0014, h01=0x0050, text=» BOO18 [NDRING «, t00=0x0037, t01=0x0164}
0x5756…5764 Head {h00=0x000a, h01=0x0050, text=»BOO11 «, t00=0x0037, t01=0x017c}
0x5764…5776 Head {h00=0x000e, h01=0x0050, text=» SET TSID «, t00=0x0037, t01=0x018a}
0x5776…5786 Head {h00=0x000c, h01=0x0050, text=» B BOO90«, t00=0x0038, t01=0x000c}
0x5786…5794 Head {h00=0x000a, h01=0x0050, text=»BOO12 «, t00=0x0038, t01=0x001c}
0x5794…57a6 Head {h00=0x000e, h01=0x0050, text=» SET TISID«, t00=0x0038, t01=0x002a}
0x57a6…57b6 Head {h00=0x000c, h01=0x0050, text=» B BOO90«, t00=0x0038, t01=0x003c}
0x57b6…57c4 Head {h00=0x000a, h01=0x0050, text=»BOO13 «, t00=0x0038, t01=0x004c}
0x57c4…57d6 Head {h00=0x000e, h01=0x0050, text=» SET TLIG «, t00=0x0038, t01=0x005a}
0x57d6…57e6 Head {h00=0x000c, h01=0x0050, text=» B BOO90«, t00=0x0038, t01=0x006c}
0x57e6…57f4 Head {h00=0x000a, h01=0x0050, text=»BOO14 «, t00=0x0038, t01=0x007c}
0x57f4…5806 Head {h00=0x000e, h01=0x0050, text=» SET TILIG«, t00=0x0038, t01=0x008a}
0x5806…5816 Head {h00=0x000c, h01=0x0050, text=» B BOO90«, t00=0x0038, t01=0x009c}
0x5816…5824 Head {h00=0x000a, h01=0x0050, text=»BOO15 «, t00=0x0038, t01=0x00ac}
0x5824…5838 Head {h00=0x0010, h01=0x0050, text=» SET TAFBEST«, t00=0x0038, t01=0x00ba}
0x5838…5848 Head {h00=0x000c, h01=0x0050, text=» B BOO90«, t00=0x0038, t01=0x00ce}
0x5848…5856 Head {h00=0x000a, h01=0x0050, text=»BOO16 «, t00=0x0038, t01=0x00de}
0x5856…5868 Head {h00=0x000e, h01=0x0050, text=» SET TSOV «, t00=0x0038, t01=0x00ec}
0x5868…5878 Head {h00=0x000c, h01=0x0050, text=» B BOO90«, t00=0x0038, t01=0x00fe}
0x5878…5886 Head {h00=0x000a, h01=0x0050, text=»BOO17 «, t00=0x0038, t01=0x010e}
0x5886…5898 Head {h00=0x000e, h01=0x0050, text=» SET TBIL «, t00=0x0038, t01=0x011c}
0x5898…58a8 Head {h00=0x000c, h01=0x0050, text=» B BOO90«, t00=0x0038, t01=0x012e}
0x58a8…58b6 Head {h00=0x000a, h01=0x0050, text=»BOO18 «, t00=0x0038, t01=0x013e}
0x58b6…58c8 Head {h00=0x000e, h01=0x0050, text=» SET TCHNG«, t00=0x0038, t01=0x014c}
0x58c8…58d6 Head {h00=0x000a, h01=0x0050, text=»BOO90 «, t00=0x0038, t01=0x015e}
0x58d6…58e2 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0038, t01=0x016c}
0x58e2…58f0 Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0038, t01=0x0178}
0x58f0…58fe Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0038, t01=0x0186}
0x58fe…5912 (57, 0, 398) Head {h00=0x0010, h01=0x0050, text=»NOINPT PROC «, t00=0x0039, t01=0x0004}
0x5912…591c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0039, t01=0x0018}
0x591c…595c Head {h00=0x003c, h01=0x0050, text=»* IN SOME CASES IT IS NECESSARY TO SIMULATE A FLDTAB OF «, t00=0x0039, t01=0x0022}
0x595c…5974 Head {h00=0x0014, h01=0x0050, text=»* 1 INPUTFIELD. «, t00=0x0039, t01=0x0062}
0x5974…597e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0039, t01=0x007a}
0x597e…59ae Head {h00=0x002c, h01=0x0050, text=» MOVE FLDTAB(W1,W1),W1 NBR OF FIELDS = 1«, t00=0x0039, t01=0x0084}
0x59ae…59d0 Head {h00=0x001e, h01=0x0050, text=» MOVE FLDTAB(W2,W1),CHOME «, t00=0x0039, t01=0x00b4}
0x59d0…59ee Head {h00=0x001a, h01=0x0050, text=» MOVE FLDTAB(W2,W2),W1«, t00=0x0039, t01=0x00d6}
0x59ee…5a0c Head {h00=0x001a, h01=0x0050, text=» MOVE FLDTAB(W2,W3),W1«, t00=0x0039, t01=0x00f4}
0x5a0c…5a3a Head {h00=0x002a, h01=0x0050, text=» MOVE FLDTAB(W2,W4),=X'2920' ERROR 73 «, t00=0x0039, t01=0x0112}
0x5a3a…5a58 Head {h00=0x001a, h01=0x0050, text=» MOVE TCURPOS,=X'0101'«, t00=0x0039, t01=0x0140}
0x5a58…5a76 Head {h00=0x001a, h01=0x0050, text=» DSC1 PDU,POS,TCURPOS «, t00=0x0039, t01=0x015e}
0x5a76…5a90 Head {h00=0x0016, h01=0x0050, text=» MOVE OUTBUF,CZERO«, t00=0x0039, t01=0x017c}
0x5a90…5aa4 Head {h00=0x0010, h01=0x0050, text=» SET TNODEP «, t00=0x003a, t01=0x0008}
0x5aa4…5ab0 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x003a, t01=0x001c}
0x5ab0…5abe Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x003a, t01=0x0028}
0x5abe…5acc Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x003a, t01=0x0036}
0x5acc…5ae0 Head {h00=0x0010, h01=0x0050, text=»FLDDEP PROC «, t00=0x003a, t01=0x0044}
0x5ae0…5aea Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003a, t01=0x0058}
0x5aea…5b1e Head {h00=0x0030, h01=0x0050, text=»* THIS PRECEDURE TESTS THE INTERRELATIONSHIP«, t00=0x003a, t01=0x0062}
0x5b1e…5b3a Head {h00=0x0018, h01=0x0050, text=»* OF VARIOUS FIELDS «, t00=0x003a, t01=0x0096}
0x5b3a…5b44 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003a, t01=0x00b2}
0x5b44…5b4c Head {h00=0x0004, h01=0x0050, t00=0x003a, t01=0x00bc}
0x5b4c…5b84 Head {h00=0x0034, h01=0x0050, text=»* IN THIS PART IT IS CHECKED IF THE FIELDS THEM-«, t00=0x003a, t01=0x00c4}
0x5b84…5ba2 Head {h00=0x001a, h01=0x0050, text=»* SELVES ARE IN ERROR «, t00=0x003a, t01=0x00fc}
0x5ba2…5baa Head {h00=0x0004, h01=0x0050, t00=0x003a, t01=0x011a}
0x5baa…5bc0 Head {h00=0x0012, h01=0x0050, text=» MOVE TBIN1,W2«, t00=0x003a, t01=0x0122}
0x5bc0…5bd0 Head {h00=0x000c, h01=0x0050, text=»FLDDS10 «, t00=0x003a, t01=0x0138}
0x5bd0…5bf8 Head {h00=0x0024, h01=0x0050, text=» CBG TBIN1,FLDTAB(W1,W1),FLDD00 «, t00=0x003a, t01=0x0148}
0x5bf8…5c26 Head {h00=0x002a, h01=0x0050, text=» MOVE TBIN3,FLDTAB(TBIN1,W4) ATTRIBUTE«, t00=0x003a, t01=0x0170}
0x5c26…5c54 Head {h00=0x002a, h01=0x0050, text=» CALL BITTST,TBIN3,W0 ERROR IN FIELD? «, t00=0x003b, t01=0x000e}
0x5c54…5c7c Head {h00=0x0024, h01=0x0050, text=» BNZ FLDDS30 YES, WRITE ERRORMSG«, t00=0x003b, t01=0x003c}
0x5c7c…5c92 Head {h00=0x0012, h01=0x0050, text=» ADD TBIN1,W1 «, t00=0x003b, t01=0x0064}
0x5c92…5ca4 Head {h00=0x000e, h01=0x0050, text=» B FLDDS10«, t00=0x003b, t01=0x007a}
0x5ca4…5cb4 Head {h00=0x000c, h01=0x0050, text=»FLDDS30 «, t00=0x003b, t01=0x008c}
0x5cb4…5ce0 Head {h00=0x0028, h01=0x0050, text=» CALL GMSGIX,TBIN3 ISOLATE ERRORNBR «, t00=0x003b, t01=0x009c}
0x5ce0…5cfe Head {h00=0x001a, h01=0x0050, text=» PERF PDUWRT,TBIN3,W4 «, t00=0x003b, t01=0x00c8}
0x5cfe…5d14 Head {h00=0x0012, h01=0x0050, text=» B FLDD90 EXIT«, t00=0x003b, t01=0x00e6}
0x5d14…5d36 Head {h00=0x001e, h01=0x0050, text=»************************* «, t00=0x003b, t01=0x00fc}
0x5d36…5d44 Head {h00=0x000a, h01=0x0050, text=»FLDD00«, t00=0x003b, t01=0x011e}
0x5d44…5d7a Head {h00=0x0032, h01=0x0050, text=»* CHECK IF ALL 'MUST-ENTER' FIELDS ARE PRESENT«, t00=0x003b, t01=0x012c}
0x5d7a…5db6 Head {h00=0x0038, h01=0x0050, text=»* ANY NOT-PRESENT FIELD IS FLAGGED AS BEING IN ERROR«, t00=0x003b, t01=0x0162}
0x5db6…5de8 Head {h00=0x002e, h01=0x0050, text=» PERF MUST ALL COMPULSARY FIELDS PRESENT? «, t00=0x003c, t01=0x000e}
0x5de8…5e04 Head {h00=0x0018, h01=0x0050, text=» BNOK FLDD90 NO, EXT«, t00=0x003c, t01=0x0040}
0x5e04…5e1c Head {h00=0x0014, h01=0x0050, text=» TBF TSID,FLDD10«, t00=0x003c, t01=0x005c}
0x5e1c…5e32 Head {h00=0x0012, h01=0x0050, text=» PERF FLDDSID «, t00=0x003c, t01=0x0074}
0x5e32…5e44 Head {h00=0x000e, h01=0x0050, text=» B FLDD90 «, t00=0x003c, t01=0x008a}
0x5e44…5e66 Head {h00=0x001e, h01=0x0050, text=»************************* «, t00=0x003c, t01=0x009c}
0x5e66…5e74 Head {h00=0x000a, h01=0x0050, text=»FLDD10«, t00=0x003c, t01=0x00be}
0x5e74…5e8c Head {h00=0x0014, h01=0x0050, text=» TBF TLIG,FLDD20«, t00=0x003c, t01=0x00cc}
0x5e8c…5ea2 Head {h00=0x0012, h01=0x0050, text=» PERF FLDDLIG «, t00=0x003c, t01=0x00e4}
0x5ea2…5eb4 Head {h00=0x000e, h01=0x0050, text=» B FLDD90 «, t00=0x003c, t01=0x00fa}
0x5eb4…5ed6 Head {h00=0x001e, h01=0x0050, text=»************************* «, t00=0x003c, t01=0x010c}
0x5ed6…5ee4 Head {h00=0x000a, h01=0x0050, text=»FLDD20«, t00=0x003c, t01=0x012e}
0x5ee4…5f00 Head {h00=0x0018, h01=0x0050, text=» TBT TAFBEST,FLDD85 «, t00=0x003c, t01=0x013c}
0x5f00…5f22 Head {h00=0x001e, h01=0x0050, text=»************************* «, t00=0x003c, t01=0x0158}
0x5f22…5f30 Head {h00=0x000a, h01=0x0050, text=»FLDD30«, t00=0x003c, t01=0x017a}
0x5f30…5f4a Head {h00=0x0016, h01=0x0050, text=» TBF TCHNG,FLDD40 «, t00=0x003c, t01=0x0188}
0x5f4a…5f60 Head {h00=0x0012, h01=0x0050, text=» PERF FLDDCHNG«, t00=0x003d, t01=0x0012}
0x5f60…5f72 Head {h00=0x000e, h01=0x0050, text=» B FLDD90 «, t00=0x003d, t01=0x0028}
0x5f72…5f94 Head {h00=0x001e, h01=0x0050, text=»************************* «, t00=0x003d, t01=0x003a}
0x5f94…5fa2 Head {h00=0x000a, h01=0x0050, text=»FLDD40«, t00=0x003d, t01=0x005c}
0x5fa2…5fbc Head {h00=0x0016, h01=0x0050, text=» TBT TISID,FLDD85 «, t00=0x003d, t01=0x006a}
0x5fbc…5fde Head {h00=0x001e, h01=0x0050, text=»************************* «, t00=0x003d, t01=0x0084}
0x5fde…5fec Head {h00=0x000a, h01=0x0050, text=»FLDD50«, t00=0x003d, t01=0x00a6}
0x5fec…6006 Head {h00=0x0016, h01=0x0050, text=» TBT TILIG,FLDD85 «, t00=0x003d, t01=0x00b4}
0x6006…6028 Head {h00=0x001e, h01=0x0050, text=»************************* «, t00=0x003d, t01=0x00ce}
0x6028…6036 Head {h00=0x000a, h01=0x0050, text=»FLDD70«, t00=0x003d, t01=0x00f0}
0x6036…604e Head {h00=0x0014, h01=0x0050, text=» TBF TSOV,FLDD80«, t00=0x003d, t01=0x00fe}
0x604e…6064 Head {h00=0x0012, h01=0x0050, text=» PERF FLDDSOV «, t00=0x003d, t01=0x0116}
0x6064…6076 Head {h00=0x000e, h01=0x0050, text=» B FLDD90 «, t00=0x003d, t01=0x012c}
0x6076…6098 Head {h00=0x001e, h01=0x0050, text=»************************* «, t00=0x003d, t01=0x013e}
0x6098…60a6 Head {h00=0x000a, h01=0x0050, text=»FLDD80«, t00=0x003d, t01=0x0160}
0x60a6…60be Head {h00=0x0014, h01=0x0050, text=» TBT TBIL,FLDD85«, t00=0x003d, t01=0x016e}
0x60be…60e0 Head {h00=0x001e, h01=0x0050, text=»************************* «, t00=0x003d, t01=0x0186}
0x60e0…60ee Head {h00=0x000a, h01=0x0050, text=»FLDD85«, t00=0x003e, t01=0x0018}
0x60ee…6100 Head {h00=0x000e, h01=0x0050, text=» CMP W0,W0«, t00=0x003e, t01=0x0026}
0x6100…610e Head {h00=0x000a, h01=0x0050, text=»FLDD90«, t00=0x003e, t01=0x0038}
0x610e…611a Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x003e, t01=0x0046}
0x611a…6128 Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x003e, t01=0x0052}
0x6128…6136 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x003e, t01=0x0060}
0x6136…614a Head {h00=0x0010, h01=0x0050, text=»FLDDSID PROC«, t00=0x003e, t01=0x006e}
0x614a…6160 Head {h00=0x0012, h01=0x0050, text=» PERF PUSH,W3 «, t00=0x003e, t01=0x0082}
0x6160…617c Head {h00=0x0018, h01=0x0050, text=»* TEST FOR '57 KUPE'«, t00=0x003e, t01=0x0098}
0x617c…61a2 Head {h00=0x0022, h01=0x0050, text=» CALL BITTST,FLDTAB(W9,W4),W2 «, t00=0x003e, t01=0x00b4}
0x61a2…61c4 Head {h00=0x001e, h01=0x0050, text=» BNZ FLDDS11 KUPE MODIFIED«, t00=0x003e, t01=0x00da}
0x61c4…61ea Head {h00=0x0022, h01=0x0050, text=» CALL BITTST,FLDTAB(W10,W4),W2«, t00=0x003e, t01=0x00fc}
0x61ea…6210 Head {h00=0x0022, h01=0x0050, text=» BZ FLDDS11 PLAC NOT MODIFIED «, t00=0x003e, t01=0x0122}
0x6210…622c Head {h00=0x0018, h01=0x0050, text=» MOVE TBIN3,=W'57' «, t00=0x003e, t01=0x0148}
0x622c…624a Head {h00=0x001a, h01=0x0050, text=» PERF PDUWRT,TBIN3,W4«, t00=0x003e, t01=0x0164}
0x624a…625e Head {h00=0x0010, h01=0x0050, text=» B FLDDS90 «, t00=0x003e, t01=0x0182}
0x625e…626e Head {h00=0x000c, h01=0x0050, text=»FLDDS11 «, t00=0x003f, t01=0x0008}
0x626e…62a4 Head {h00=0x0032, h01=0x0050, text=»* IF ANTAL < 7, NO FURTHER TESTS ARE REQUIRED «, t00=0x003f, t01=0x0018}
0x62a4…62da Head {h00=0x0032, h01=0x0050, text=» XCOPY TSTRG2,W0,W2,OUTBUF,FLDTAB(W2,W2) ANTAL«, t00=0x003f, t01=0x004e}
0x62da…62f4 Head {h00=0x0016, h01=0x0050, text=» MOVE TBCD5,TSTRG2«, t00=0x003f, t01=0x0084}
0x62f4…6314 Head {h00=0x001c, h01=0x0050, text=» CBL TBCD5,=D'7',FLDDS14«, t00=0x003f, t01=0x009e}
0x6314…6338 Head {h00=0x0020, h01=0x0050, text=»* TEST FOR '84 RYGER/ANTAL' «, t00=0x003f, t01=0x00be}
0x6338…635e Head {h00=0x0022, h01=0x0050, text=» CALL BITTST,FLDTAB(W8,W4),W2 «, t00=0x003f, t01=0x00e2}
0x635e…6384 Head {h00=0x0022, h01=0x0050, text=» BZ FLDDS12 RYGER NOT MODIFIED«, t00=0x003f, t01=0x0108}
0x6384…639e Head {h00=0x0016, h01=0x0050, text=» MOVE TBIN3,=W'84'«, t00=0x003f, t01=0x012e}
0x639e…63bc Head {h00=0x001a, h01=0x0050, text=» PERF PDUWRT,TBIN3,W4 «, t00=0x003f, t01=0x0148}
0x63bc…63ce Head {h00=0x000e, h01=0x0050, text=» B FLDDS90«, t00=0x003f, t01=0x0166}
0x63ce…63de Head {h00=0x000c, h01=0x0050, text=»FLDDS12 «, t00=0x003f, t01=0x0178}
0x63de…6400 Head {h00=0x001e, h01=0x0050, text=»* TEST FOR '85 KUPE/ANTAL'«, t00=0x003f, t01=0x0188}
0x6400…6426 Head {h00=0x0022, h01=0x0050, text=» CALL BITTST,FLDTAB(W9,W4),W2 «, t00=0x0040, t01=0x001a}
0x6426…644c Head {h00=0x0022, h01=0x0050, text=» BZ FLDDS13 KUPE NOT MODIFIED «, t00=0x0040, t01=0x0040}
0x644c…6466 Head {h00=0x0016, h01=0x0050, text=» MOVE TBIN3,=W'85'«, t00=0x0040, t01=0x0066}
0x6466…6484 Head {h00=0x001a, h01=0x0050, text=» PERF PDUWRT,TBIN3,W4 «, t00=0x0040, t01=0x0080}
0x6484…6496 Head {h00=0x000e, h01=0x0050, text=» B FLDDS90«, t00=0x0040, t01=0x009e}
0x6496…64a6 Head {h00=0x000c, h01=0x0050, text=»FLDDS13 «, t00=0x0040, t01=0x00b0}
0x64a6…64ce Head {h00=0x0024, h01=0x0050, text=»* TEST FOR '86 PLACERING/ANTAL' «, t00=0x0040, t01=0x00c0}
0x64ce…64f4 Head {h00=0x0022, h01=0x0050, text=» CALL BITTST,FLDTAB(W10,W4),W2«, t00=0x0040, t01=0x00e8}
0x64f4…6508 Head {h00=0x0010, h01=0x0050, text=» BZ FLDDS14 «, t00=0x0040, t01=0x010e}
0x6508…6522 Head {h00=0x0016, h01=0x0050, text=» MOVE TBIN3,=W'86'«, t00=0x0040, t01=0x0122}
0x6522…6540 Head {h00=0x001a, h01=0x0050, text=» PERF PDUWRT,TBIN3,W4 «, t00=0x0040, t01=0x013c}
0x6540…6552 Head {h00=0x000e, h01=0x0050, text=» B FLDDS90«, t00=0x0040, t01=0x015a}
0x6552…6562 Head {h00=0x000c, h01=0x0050, text=»FLDDS14 «, t00=0x0040, t01=0x016c}
0x6562…6586 Head {h00=0x0020, h01=0x0050, text=»* 47 KUPE/RYGER, UFORENELIG «, t00=0x0040, t01=0x017c}
0x6586…65b0 Head {h00=0x0026, h01=0x0050, text=» CALL BITTST,FLDTAB(W9,W4),W2 KUPE«, t00=0x0041, t01=0x0010}
0x65b0…65c4 Head {h00=0x0010, h01=0x0050, text=» BZ FLDDS16 «, t00=0x0041, t01=0x003a}
0x65c4…65f4 Head {h00=0x002c, h01=0x0050, text=» XCOPY TSTRG1,W0,W1,OUTBUF,FLDTAB(W9,W2)«, t00=0x0041, t01=0x004e}
0x65f4…6616 Head {h00=0x001e, h01=0x0050, text=» CBNE TSTRG1,=C'6',FLDDS16«, t00=0x0041, t01=0x007e}
0x6616…664a Head {h00=0x0030, h01=0x0050, text=» CALL BITTST,FLDTAB(W8,W4),W2 RYGER MODIFIED«, t00=0x0041, t01=0x00a0}
0x664a…665e Head {h00=0x0010, h01=0x0050, text=» BZ FLDDS15 «, t00=0x0041, t01=0x00d4}
0x665e…668e Head {h00=0x002c, h01=0x0050, text=» XCOPY TSTRG1,W0,W1,OUTBUF,FLDTAB(W8,W2)«, t00=0x0041, t01=0x00e8}
0x668e…66b0 Head {h00=0x001e, h01=0x0050, text=» CBNE TSTRG1,=C'1',FLDDS15«, t00=0x0041, t01=0x0118}
0x66b0…66ca Head {h00=0x0016, h01=0x0050, text=» MOVE TBIN3,=W'47'«, t00=0x0041, t01=0x013a}
0x66ca…66e8 Head {h00=0x001a, h01=0x0050, text=» PERF PDUWRT,TBIN3,W4 «, t00=0x0041, t01=0x0154}
0x66e8…66fa Head {h00=0x000e, h01=0x0050, text=» B FLDDS90«, t00=0x0041, t01=0x0172}
0x66fa…6704 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0041, t01=0x0184}
0x6704…6714 Head {h00=0x000c, h01=0x0050, text=»FLDDS15 «, t00=0x0041, t01=0x018e}
0x6714…6738 Head {h00=0x0020, h01=0x0050, text=»* 46 KLASSE/KUPE UFORENELIG «, t00=0x0042, t01=0x000e}
0x6738…6764 Head {h00=0x0028, h01=0x0050, text=» CALL BITTST,FLDTAB(W7,W4),W2 KLASSE«, t00=0x0042, t01=0x0032}
0x6764…6778 Head {h00=0x0010, h01=0x0050, text=» BZ FLDDS16 «, t00=0x0042, t01=0x005e}
0x6778…67a8 Head {h00=0x002c, h01=0x0050, text=» XCOPY TSTRG1,W0,W1,OUTBUF,FLDTAB(W7,W2)«, t00=0x0042, t01=0x0072}
0x67a8…67ca Head {h00=0x001e, h01=0x0050, text=» CBNE TSTRG1,=C'1',FLDDS16«, t00=0x0042, t01=0x00a2}
0x67ca…67e4 Head {h00=0x0016, h01=0x0050, text=» MOVE TBIN3,=W'46'«, t00=0x0042, t01=0x00c4}
0x67e4…6802 Head {h00=0x001a, h01=0x0050, text=» PERF PDUWRT,TBIN3,W4 «, t00=0x0042, t01=0x00de}
0x6802…6814 Head {h00=0x000e, h01=0x0050, text=» B FLDDS90«, t00=0x0042, t01=0x00fc}
0x6814…681e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0042, t01=0x010e}
0x681e…682e Head {h00=0x000c, h01=0x0050, text=»FLDDS16 «, t00=0x0042, t01=0x0118}
0x682e…683e Head {h00=0x000c, h01=0x0050, text=»FLDDS40 «, t00=0x0042, t01=0x0128}
0x683e…6866 Head {h00=0x0024, h01=0x0050, text=»* NO ERRORS FOUND IN THIS FORMAT«, t00=0x0042, t01=0x0138}
0x6866…687c Head {h00=0x0012, h01=0x0050, text=» PERF PULL,W3 «, t00=0x0042, t01=0x0160}
0x687c…688e Head {h00=0x000e, h01=0x0050, text=» CMP W0,W0«, t00=0x0042, t01=0x0176}
0x688e…689a Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0042, t01=0x0188}
0x689a…68aa (67, 0, 400) Head {h00=0x000c, h01=0x0050, text=»FLDDS90 «, t00=0x0043, t01=0x0004}
0x68aa…68c0 Head {h00=0x0012, h01=0x0050, text=» PERF PULL,W3 «, t00=0x0043, t01=0x0014}
0x68c0…68d2 Head {h00=0x000e, h01=0x0050, text=» CMP W0,W1«, t00=0x0043, t01=0x002a}
0x68d2…68de Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0043, t01=0x003c}
0x68de…68ec Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0043, t01=0x0048}
0x68ec…68fa Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0043, t01=0x0056}
0x68fa…690e Head {h00=0x0010, h01=0x0050, text=»FLDDLIG PROC«, t00=0x0043, t01=0x0064}
0x690e…6924 Head {h00=0x0012, h01=0x0050, text=» PERF PUSH,W3 «, t00=0x0043, t01=0x0078}
0x6924…695a Head {h00=0x0032, h01=0x0050, text=» XCOPY TSTRG2,W0,W2,OUTBUF,FLDTAB(W2,W2) ANTAL«, t00=0x0043, t01=0x008e}
0x695a…6974 Head {h00=0x0016, h01=0x0050, text=» MOVE TBCD5,TSTRG2«, t00=0x0043, t01=0x00c4}
0x6974…6994 Head {h00=0x001c, h01=0x0050, text=» CBL TBCD5,=D'1',FLDDL20«, t00=0x0043, t01=0x00de}
0x6994…69b6 Head {h00=0x001e, h01=0x0050, text=» CBG TBCD5,=D'24',FLDDL20 «, t00=0x0043, t01=0x00fe}
0x69b6…69d6 Head {h00=0x001c, h01=0x0050, text=» CBL TBCD5,=D'6',FLDDL30«, t00=0x0043, t01=0x0120}
0x69d6…69fc Head {h00=0x0022, h01=0x0050, text=» CALL BITTST,FLDTAB(W7,W4),W2 «, t00=0x0043, t01=0x0140}
0x69fc…6a22 Head {h00=0x0022, h01=0x0050, text=» BZ FLDDL30 PLAC NOT MODIFIED «, t00=0x0043, t01=0x0166}
0x6a22…6a3c Head {h00=0x0016, h01=0x0050, text=» MOVE TBIN3,=W'86'«, t00=0x0043, t01=0x018c}
0x6a3c…6a4e Head {h00=0x000e, h01=0x0050, text=» B FLDDL25«, t00=0x0044, t01=0x0016}
0x6a4e…6a5e Head {h00=0x000c, h01=0x0050, text=»FLDDL20 «, t00=0x0044, t01=0x0028}
0x6a5e…6a74 Head {h00=0x0012, h01=0x0050, text=» MOVE TBIN3,W9«, t00=0x0044, t01=0x0038}
0x6a74…6a84 Head {h00=0x000c, h01=0x0050, text=»FLDDL25 «, t00=0x0044, t01=0x004e}
0x6a84…6aa2 Head {h00=0x001a, h01=0x0050, text=» PERF PDUWRT,TBIN3,W4 «, t00=0x0044, t01=0x005e}
0x6aa2…6ab8 Head {h00=0x0012, h01=0x0050, text=» PERF PULL,W3 «, t00=0x0044, t01=0x007c}
0x6ab8…6aca Head {h00=0x000e, h01=0x0050, text=» CMP W0,W1«, t00=0x0044, t01=0x0092}
0x6aca…6ad6 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0044, t01=0x00a4}
0x6ad6…6ae6 Head {h00=0x000c, h01=0x0050, text=»FLDDL30 «, t00=0x0044, t01=0x00b0}
0x6ae6…6afc Head {h00=0x0012, h01=0x0050, text=» PERF PULL,W3 «, t00=0x0044, t01=0x00c0}
0x6afc…6b0e Head {h00=0x000e, h01=0x0050, text=» CMP W0,W0«, t00=0x0044, t01=0x00d6}
0x6b0e…6b1a Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0044, t01=0x00e8}
0x6b1a…6b28 Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0044, t01=0x00f4}
0x6b28…6b36 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0044, t01=0x0102}
0x6b36…6b4c Head {h00=0x0012, h01=0x0050, text=»FLDDCHNG PROC «, t00=0x0044, t01=0x0110}
0x6b4c…6b5e Head {h00=0x000e, h01=0x0050, text=» CMP W0,W0«, t00=0x0044, t01=0x0126}
0x6b5e…6b6a Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0044, t01=0x0138}
0x6b6a…6b78 Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0044, t01=0x0144}
0x6b78…6b80 Head {h00=0x0004, h01=0x0050, t00=0x0044, t01=0x0152}
0x6b80…6b88 Head {h00=0x0004, h01=0x0050, t00=0x0044, t01=0x015a}
0x6b88…6b9c Head {h00=0x0010, h01=0x0050, text=»FLDDSOV PROC«, t00=0x0044, t01=0x0162}
0x6b9c…6bb2 Head {h00=0x0012, h01=0x0050, text=» PERF PUSH,W3 «, t00=0x0044, t01=0x0176}
0x6bb2…6bcc Head {h00=0x0016, h01=0x0050, text=» MOVE TBIN2,=W'15'«, t00=0x0044, t01=0x018c}
0x6bcc…6c08 Head {h00=0x0038, h01=0x0050, text=» XCOPY TSTRG10,W0,W10,OUTBUF,FLDTAB(TBIN2,W2) REFNR «, t00=0x0045, t01=0x0016}
0x6c08…6c1e Head {h00=0x0012, h01=0x0050, text=» MOVE TBIN1,W9«, t00=0x0045, t01=0x0052}
0x6c1e…6c2e Head {h00=0x000c, h01=0x0050, text=»FLDDS01 «, t00=0x0045, t01=0x0068}
0x6c2e…6c58 Head {h00=0x0026, h01=0x0050, text=» XCOPY TSTRG1,W0,W1,TSTRG10,TBIN1 «, t00=0x0045, t01=0x0078}
0x6c58…6c7a Head {h00=0x001e, h01=0x0050, text=» CBE TSTRG1,CZERO,FLDDS03 «, t00=0x0045, t01=0x00a2}
0x6c7a…6c9c Head {h00=0x001e, h01=0x0050, text=» CBL TSTRG1,=C'0',FLDDS02 «, t00=0x0045, t01=0x00c4}
0x6c9c…6cbe Head {h00=0x001e, h01=0x0050, text=» CBG TSTRG1,=C'9',FLDDS02 «, t00=0x0045, t01=0x00e6}
0x6cbe…6cce Head {h00=0x000c, h01=0x0050, text=»FLDDS03 «, t00=0x0045, t01=0x0108}
0x6cce…6ce4 Head {h00=0x0012, h01=0x0050, text=» SUB TBIN1,W1 «, t00=0x0045, t01=0x0118}
0x6ce4…6d02 Head {h00=0x001a, h01=0x0050, text=» CBG TBIN1,W0,FLDDS01 «, t00=0x0045, t01=0x012e}
0x6d02…6d18 Head {h00=0x0012, h01=0x0050, text=» PERF PULL,W3 «, t00=0x0045, t01=0x014c}
0x6d18…6d2a Head {h00=0x000e, h01=0x0050, text=» CMP W0,W0«, t00=0x0045, t01=0x0162}
0x6d2a…6d36 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0045, t01=0x0174}
0x6d36…6d46 Head {h00=0x000c, h01=0x0050, text=»FLDDS02 «, t00=0x0045, t01=0x0180}
0x6d46…6d60 Head {h00=0x0016, h01=0x0050, text=» MOVE TBIN3,=W'94'«, t00=0x0045, t01=0x0190}
0x6d60…6d7e Head {h00=0x001a, h01=0x0050, text=» PERF PDUWRT,TBIN3,W4 «, t00=0x0046, t01=0x001a}
0x6d7e…6d94 Head {h00=0x0012, h01=0x0050, text=» PERF PULL,W3 «, t00=0x0046, t01=0x0038}
0x6d94…6da6 Head {h00=0x000e, h01=0x0050, text=» CMP W0,W1«, t00=0x0046, t01=0x004e}
0x6da6…6db2 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0046, t01=0x0060}
0x6db2…6dc0 Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0046, t01=0x006c}
0x6dc0…6dce Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0046, t01=0x007a}
0x6dce…6de0 Head {h00=0x000e, h01=0x0050, text=»MUST PROC «, t00=0x0046, t01=0x0088}
0x6de0…6dea Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0046, t01=0x009a}
0x6dea…6e20 Head {h00=0x0032, h01=0x0050, text=»* THIS ROUTINE CHECKS IF ALL 'ME' FIELDS HAVE «, t00=0x0046, t01=0x00a4}
0x6e20…6e56 Head {h00=0x0032, h01=0x0050, text=»* BEEN ENTERED, ENVENTUALLY AS A DEFAULT-VALUE«, t00=0x0046, t01=0x00da}
0x6e56…6e8a Head {h00=0x0030, h01=0x0050, text=»* THIS MEANS, THAT IT IS SUFFICIENT TO CHECK«, t00=0x0046, t01=0x0110}
0x6e8a…6ea4 Head {h00=0x0016, h01=0x0050, text=»* THE MODIFIED-BIT«, t00=0x0046, t01=0x0144}
0x6ea4…6eae Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0046, t01=0x015e}
0x6eae…6ec4 Head {h00=0x0012, h01=0x0050, text=» PERF PUSH,W3 «, t00=0x0046, t01=0x0168}
0x6ec4…6eda Head {h00=0x0012, h01=0x0050, text=» MOVE TBIN1,W2«, t00=0x0046, t01=0x017e}
0x6eda…6efc (71, 0, 400) Head {h00=0x001e, h01=0x0050, text=» MOVE TBIN2,FLDTAB(W1,W1) «, t00=0x0047, t01=0x0004}
0x6efc…6f12 Head {h00=0x0012, h01=0x0050, text=» ADD TBIN2,W1 «, t00=0x0047, t01=0x0026}
0x6f12…6f20 Head {h00=0x000a, h01=0x0050, text=»MUST10«, t00=0x0047, t01=0x003c}
0x6f20…6f40 Head {h00=0x001c, h01=0x0050, text=» CBG TBIN1,TBIN2,MUST90 «, t00=0x0047, t01=0x004a}
0x6f40…6f74 Head {h00=0x0030, h01=0x0050, text=» CALL BITTST,FLDTAB(TBIN1,W4),W1 MUST-ENTER?«, t00=0x0047, t01=0x006a}
0x6f74…6f86 Head {h00=0x000e, h01=0x0050, text=» BZ MUST20«, t00=0x0047, t01=0x009e}
0x6f86…6fb8 Head {h00=0x002e, h01=0x0050, text=» CALL BITTST,FLDTAB(TBIN1,W4),W2 MODIFIED?«, t00=0x0047, t01=0x00b0}
0x6fb8…6fcc Head {h00=0x0010, h01=0x0050, text=» BNZ MUST20 «, t00=0x0047, t01=0x00e2}
0x6fcc…7000 Head {h00=0x0030, h01=0x0050, text=» CALL BITON,FLDTAB(TBIN1,W4),W0 SET ERRORBIT«, t00=0x0047, t01=0x00f6}
0x7000…7026 Head {h00=0x0022, h01=0x0050, text=» B MUST30 JUMP OUT ON 1 ERROR «, t00=0x0047, t01=0x012a}
0x7026…7034 Head {h00=0x000a, h01=0x0050, text=»MUST20«, t00=0x0047, t01=0x0150}
0x7034…704a Head {h00=0x0012, h01=0x0050, text=» ADD TBIN1,W1 «, t00=0x0047, t01=0x015e}
0x704a…705c Head {h00=0x000e, h01=0x0050, text=» B MUST10 «, t00=0x0047, t01=0x0174}
0x705c…706a Head {h00=0x000a, h01=0x0050, text=»MUST30«, t00=0x0047, t01=0x0186}
0x706a…7080 (72, 0, 400) Head {h00=0x0012, h01=0x0050, text=» PERF PULL,W3 «, t00=0x0048, t01=0x0004}
0x7080…7092 Head {h00=0x000e, h01=0x0050, text=» CMP W0,W1«, t00=0x0048, t01=0x001a}
0x7092…709e Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0048, t01=0x002c}
0x709e…70ac Head {h00=0x000a, h01=0x0050, text=»MUST90«, t00=0x0048, t01=0x0038}
0x70ac…70c2 Head {h00=0x0012, h01=0x0050, text=» PERF PULL,W3 «, t00=0x0048, t01=0x0046}
0x70c2…70d4 Head {h00=0x000e, h01=0x0050, text=» CMP W0,W0«, t00=0x0048, t01=0x005c}
0x70d4…70e0 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0048, t01=0x006e}
0x70e0…70ee Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0048, t01=0x007a}
0x70ee…70fc Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0048, t01=0x0088}
0x70fc…7130 Head {h00=0x0030, h01=0x0050, text=»* THE TWO PROCEDURES PUSH AND PULL TAKE CARE«, t00=0x0048, t01=0x0096}
0x7130…7150 Head {h00=0x001c, h01=0x0050, text=»* OF THE STACKHANDLING. «, t00=0x0048, t01=0x00ca}
0x7150…7188 Head {h00=0x0034, h01=0x0050, text=»* DEPENDING ON THE PARAMETER, 1-8 OF THE BINARY «, t00=0x0048, t01=0x00ea}
0x7188…71b4 Head {h00=0x0028, h01=0x0050, text=»* DATAITEMS TBIN1,TBIN2,...TBIN8 ARE«, t00=0x0048, t01=0x0122}
0x71b4…71ee Head {h00=0x0036, h01=0x0050, text=»* PUSHED ON THE STACK, OR PULLED OUT OF THE STACK.«, t00=0x0048, t01=0x014e}
0x71ee…721e Head {h00=0x002c, h01=0x0050, text=»* TO KEEP TRACK OF 'WHERE TO PUT IT', A «, t00=0x0048, t01=0x0188}
0x721e…7242 Head {h00=0x0020, h01=0x0050, text=»* STACKPOINTER IS MAINTAINED«, t00=0x0049, t01=0x0028}
0x7242…7276 Head {h00=0x0030, h01=0x0050, text=»* AS THE DATAITEMS ARE SAVED IN THE SEQUENCE«, t00=0x0049, t01=0x004c}
0x7276…72ae Head {h00=0x0034, h01=0x0050, text=»* TBIN8,7,6,.... THE PULL-OFF MUST BE BACKWARD. «, t00=0x0049, t01=0x0080}
0x72ae…72c2 Head {h00=0x0010, h01=0x0050, text=»PUSH PROC B1«, t00=0x0049, t01=0x00b8}
0x72c2…72f8 Head {h00=0x0032, h01=0x0050, text=» IB B1,PUS1,PUS2,PUS3,PUS4,PUS5,PUS6,PUS7,PUS8«, t00=0x0049, t01=0x00cc}
0x72f8…7304 Head {h00=0x0008, h01=0x0050, text=»PUS8«, t00=0x0049, t01=0x0102}
0x7304…732e Head {h00=0x0026, h01=0x0050, text=» XCOPY TSTACK,TSTACKPT,W2,TBIN8,W0«, t00=0x0049, t01=0x010e}
0x732e…7346 Head {h00=0x0014, h01=0x0050, text=» ADD TSTACKPT,W2«, t00=0x0049, t01=0x0138}
0x7346…7352 Head {h00=0x0008, h01=0x0050, text=»PUS7«, t00=0x0049, t01=0x0150}
0x7352…737c Head {h00=0x0026, h01=0x0050, text=» XCOPY TSTACK,TSTACKPT,W2,TBIN7,W0«, t00=0x0049, t01=0x015c}
0x737c…7394 Head {h00=0x0014, h01=0x0050, text=» ADD TSTACKPT,W2«, t00=0x0049, t01=0x0186}
0x7394…73a0 Head {h00=0x0008, h01=0x0050, text=»PUS6«, t00=0x004a, t01=0x000e}
0x73a0…73ca Head {h00=0x0026, h01=0x0050, text=» XCOPY TSTACK,TSTACKPT,W2,TBIN6,W0«, t00=0x004a, t01=0x001a}
0x73ca…73e2 Head {h00=0x0014, h01=0x0050, text=» ADD TSTACKPT,W2«, t00=0x004a, t01=0x0044}
0x73e2…73ee Head {h00=0x0008, h01=0x0050, text=»PUS5«, t00=0x004a, t01=0x005c}
0x73ee…7418 Head {h00=0x0026, h01=0x0050, text=» XCOPY TSTACK,TSTACKPT,W2,TBIN5,W0«, t00=0x004a, t01=0x0068}
0x7418…7430 Head {h00=0x0014, h01=0x0050, text=» ADD TSTACKPT,W2«, t00=0x004a, t01=0x0092}
0x7430…743c Head {h00=0x0008, h01=0x0050, text=»PUS4«, t00=0x004a, t01=0x00aa}
0x743c…7466 Head {h00=0x0026, h01=0x0050, text=» XCOPY TSTACK,TSTACKPT,W2,TBIN4,W0«, t00=0x004a, t01=0x00b6}
0x7466…747e Head {h00=0x0014, h01=0x0050, text=» ADD TSTACKPT,W2«, t00=0x004a, t01=0x00e0}
0x747e…748a Head {h00=0x0008, h01=0x0050, text=»PUS3«, t00=0x004a, t01=0x00f8}
0x748a…74b4 Head {h00=0x0026, h01=0x0050, text=» XCOPY TSTACK,TSTACKPT,W2,TBIN3,W0«, t00=0x004a, t01=0x0104}
0x74b4…74cc Head {h00=0x0014, h01=0x0050, text=» ADD TSTACKPT,W2«, t00=0x004a, t01=0x012e}
0x74cc…74d8 Head {h00=0x0008, h01=0x0050, text=»PUS2«, t00=0x004a, t01=0x0146}
0x74d8…7502 Head {h00=0x0026, h01=0x0050, text=» XCOPY TSTACK,TSTACKPT,W2,TBIN2,W0«, t00=0x004a, t01=0x0152}
0x7502…751a Head {h00=0x0014, h01=0x0050, text=» ADD TSTACKPT,W2«, t00=0x004a, t01=0x017c}
0x751a…7526 (75, 0, 400) Head {h00=0x0008, h01=0x0050, text=»PUS1«, t00=0x004b, t01=0x0004}
0x7526…7550 Head {h00=0x0026, h01=0x0050, text=» XCOPY TSTACK,TSTACKPT,W2,TBIN1,W0«, t00=0x004b, t01=0x0010}
0x7550…7568 Head {h00=0x0014, h01=0x0050, text=» ADD TSTACKPT,W2«, t00=0x004b, t01=0x003a}
0x7568…7574 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x004b, t01=0x0052}
0x7574…7582 Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x004b, t01=0x005e}
0x7582…758a Head {h00=0x0004, h01=0x0050, t00=0x004b, t01=0x006c}
0x758a…7592 Head {h00=0x0004, h01=0x0050, t00=0x004b, t01=0x0074}
0x7592…75a6 Head {h00=0x0010, h01=0x0050, text=»PULL PROC B1«, t00=0x004b, t01=0x007c}
0x75a6…75d4 Head {h00=0x002a, h01=0x0050, text=» SUB TSTACKPT,B1 POINT AT STARTADDRESS«, t00=0x004b, t01=0x0090}
0x75d4…75fe Head {h00=0x0026, h01=0x0050, text=» SUB TSTACKPT,B1 FOR PREVIOUS PUSH«, t00=0x004b, t01=0x00be}
0x75fe…7634 Head {h00=0x0032, h01=0x0050, text=» IB B1,PUL1,PUL2,PUL3,PUL4,PUL5,PUL6,PUL7,PUL8«, t00=0x004b, t01=0x00e8}
0x7634…7640 Head {h00=0x0008, h01=0x0050, text=»PUL8«, t00=0x004b, t01=0x011e}
0x7640…766a Head {h00=0x0026, h01=0x0050, text=» XCOPY TBIN8,W0,W2,TSTACK,TSTACKPT«, t00=0x004b, t01=0x012a}
0x766a…7682 Head {h00=0x0014, h01=0x0050, text=» ADD TSTACKPT,W2«, t00=0x004b, t01=0x0154}
0x7682…768e Head {h00=0x0008, h01=0x0050, text=»PUL7«, t00=0x004b, t01=0x016c}
0x768e…76b8 Head {h00=0x0026, h01=0x0050, text=» XCOPY TBIN7,W0,W2,TSTACK,TSTACKPT«, t00=0x004b, t01=0x0178}
0x76b8…76d0 Head {h00=0x0014, h01=0x0050, text=» ADD TSTACKPT,W2«, t00=0x004c, t01=0x0012}
0x76d0…76dc Head {h00=0x0008, h01=0x0050, text=»PUL6«, t00=0x004c, t01=0x002a}
0x76dc…7706 Head {h00=0x0026, h01=0x0050, text=» XCOPY TBIN6,W0,W2,TSTACK,TSTACKPT«, t00=0x004c, t01=0x0036}
0x7706…771e Head {h00=0x0014, h01=0x0050, text=» ADD TSTACKPT,W2«, t00=0x004c, t01=0x0060}
0x771e…772a Head {h00=0x0008, h01=0x0050, text=»PUL5«, t00=0x004c, t01=0x0078}
0x772a…7754 Head {h00=0x0026, h01=0x0050, text=» XCOPY TBIN5,W0,W2,TSTACK,TSTACKPT«, t00=0x004c, t01=0x0084}
0x7754…776c Head {h00=0x0014, h01=0x0050, text=» ADD TSTACKPT,W2«, t00=0x004c, t01=0x00ae}
0x776c…7778 Head {h00=0x0008, h01=0x0050, text=»PUL4«, t00=0x004c, t01=0x00c6}
0x7778…77a2 Head {h00=0x0026, h01=0x0050, text=» XCOPY TBIN4,W0,W2,TSTACK,TSTACKPT«, t00=0x004c, t01=0x00d2}
0x77a2…77ba Head {h00=0x0014, h01=0x0050, text=» ADD TSTACKPT,W2«, t00=0x004c, t01=0x00fc}
0x77ba…77c6 Head {h00=0x0008, h01=0x0050, text=»PUL3«, t00=0x004c, t01=0x0114}
0x77c6…77f0 Head {h00=0x0026, h01=0x0050, text=» XCOPY TBIN3,W0,W2,TSTACK,TSTACKPT«, t00=0x004c, t01=0x0120}
0x77f0…7808 Head {h00=0x0014, h01=0x0050, text=» ADD TSTACKPT,W2«, t00=0x004c, t01=0x014a}
0x7808…7814 Head {h00=0x0008, h01=0x0050, text=»PUL2«, t00=0x004c, t01=0x0162}
0x7814…783e Head {h00=0x0026, h01=0x0050, text=» XCOPY TBIN2,W0,W2,TSTACK,TSTACKPT«, t00=0x004c, t01=0x016e}
0x783e…7856 Head {h00=0x0014, h01=0x0050, text=» ADD TSTACKPT,W2«, t00=0x004d, t01=0x0008}
0x7856…7862 Head {h00=0x0008, h01=0x0050, text=»PUL1«, t00=0x004d, t01=0x0020}
0x7862…788c Head {h00=0x0026, h01=0x0050, text=» XCOPY TBIN1,W0,W2,TSTACK,TSTACKPT«, t00=0x004d, t01=0x002c}
0x788c…78ba Head {h00=0x002a, h01=0x0050, text=» ADD TSTACKPT,W2 ADJUST ONCE MORE, SO «, t00=0x004d, t01=0x0056}
0x78ba…78e6 Head {h00=0x0028, h01=0x0050, text=» SUB TSTACKPT,B1 TSTACKPT NOW POINTS«, t00=0x004d, t01=0x0084}
0x78e6…7916 Head {h00=0x002c, h01=0x0050, text=» SUB TSTACKPT,B1 AT THE NEW STARTADDRESS«, t00=0x004d, t01=0x00b0}
0x7916…7922 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x004d, t01=0x00e0}
0x7922…7930 Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x004d, t01=0x00ec}
0x7930…793e Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x004d, t01=0x00fa}
0x793e…7952 Head {h00=0x0010, h01=0x0050, text=»ERASCR PROC «, t00=0x004d, t01=0x0108}
0x7952…7968 Head {h00=0x0012, h01=0x0050, text=» PERF PUSH,W1 «, t00=0x004d, t01=0x011c}
0x7968…7986 Head {h00=0x001a, h01=0x0050, text=» MOVE TPDUBUF,=C'11 ' «, t00=0x004d, t01=0x0132}
0x7986…799c Head {h00=0x0012, h01=0x0050, text=» MOVE TBIN1,W3«, t00=0x004d, t01=0x0150}
0x799c…79bc Head {h00=0x001c, h01=0x0050, text=» WRITE PDU,TPDUBUF,TBIN1«, t00=0x004d, t01=0x0166}
0x79bc…79d0 Head {h00=0x0010, h01=0x0050, text=» PERF NOINPT«, t00=0x004d, t01=0x0186}
0x79d0…79e6 Head {h00=0x0012, h01=0x0050, text=» PERF PULL,W1 «, t00=0x004e, t01=0x000a}
0x79e6…79f2 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x004e, t01=0x0020}
0x79f2…7a00 Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x004e, t01=0x002c}
0x7a00…7a08 Head {h00=0x0004, h01=0x0050, t00=0x004e, t01=0x003a}
0x7a08…7a1c Head {h00=0x0010, h01=0x0050, text=»ERAIPT PROC «, t00=0x004e, t01=0x0042}
0x7a1c…7a46 Head {h00=0x0026, h01=0x0050, text=»* THE ROUTINE ERASES ALL MODIFIED «, t00=0x004e, t01=0x0056}
0x7a46…7a70 Head {h00=0x0026, h01=0x0050, text=»* FIELDS BY OVERWRITING WITH X'AE'«, t00=0x004e, t01=0x0080}
0x7a70…7a94 Head {h00=0x0020, h01=0x0050, text=»* THE MODIFIED BIT IS RESET «, t00=0x004e, t01=0x00aa}
0x7a94…7aaa Head {h00=0x0012, h01=0x0050, text=» PERF PUSH,W3 «, t00=0x004e, t01=0x00ce}
0x7aaa…7ade Head {h00=0x0030, h01=0x0050, text=» MOVE TBIN1,FLDTAB(W1,W1) NBR OF INPUTFIELDS«, t00=0x004e, t01=0x00e4}
0x7ade…7afc Head {h00=0x001a, h01=0x0050, text=» CBL TBIN1,W1,ERAI050 «, t00=0x004e, t01=0x0118}
0x7afc…7b12 Head {h00=0x0012, h01=0x0050, text=» MOVE TBIN2,W2«, t00=0x004e, t01=0x0136}
0x7b12…7b2e Head {h00=0x0018, h01=0x0050, text=» MOVE TPDUBUF,CERASE«, t00=0x004e, t01=0x014c}
0x7b2e…7b44 Head {h00=0x0012, h01=0x0050, text=» CLEAR TALTBUF«, t00=0x004e, t01=0x0168}
0x7b44…7b5e Head {h00=0x0016, h01=0x0050, text=» MOVE OUTBUF,CZERO«, t00=0x004e, t01=0x017e}
0x7b5e…7b6e Head {h00=0x000c, h01=0x0050, text=»ERAI010 «, t00=0x004f, t01=0x0008}
0x7b6e…7ba6 Head {h00=0x0034, h01=0x0050, text=» CALL BITOFF,FLDTAB(TBIN2,W4),W0 RESET ERRORBIT «, t00=0x004f, t01=0x0018}
0x7ba6…7be2 Head {h00=0x0038, h01=0x0050, text=» CALL BITOFF,FLDTAB(TBIN2,W4),W2 RESET MODIFIED BIT «, t00=0x004f, t01=0x0050}
0x7be2…7c1a Head {h00=0x0034, h01=0x0050, text=» MOVE TCURPOS,FLDTAB(TBIN2,W1) CURSORPOS ON PDU «, t00=0x004f, t01=0x008c}
0x7c1a…7c48 Head {h00=0x002a, h01=0x0050, text=» DSC1 PDU,POS,TCURPOS POSITION CURSOR «, t00=0x004f, t01=0x00c4}
0x7c48…7c7a Head {h00=0x002e, h01=0x0050, text=» MOVE TBIN3,FLDTAB(TBIN2,W3) FIELD LENGTH «, t00=0x004f, t01=0x00f2}
0x7c7a…7ca0 Head {h00=0x0022, h01=0x0050, text=» ADD TBIN3,W2 ADJUST FOR '++' «, t00=0x004f, t01=0x0124}
0x7ca0…7cd6 Head {h00=0x0032, h01=0x0050, text=» WRITE PDU,TPDUBUF,TBIN3 WRITE PERIODS ON PDU «, t00=0x004f, t01=0x014a}
0x7cd6…7cec Head {h00=0x0012, h01=0x0050, text=» ADD TBIN2,W1 «, t00=0x004f, t01=0x0180}
0x7cec…7d14 Head {h00=0x0024, h01=0x0050, text=» SUB TBIN1,W1 MORE FIELDS LEFT? «, t00=0x0050, t01=0x0008}
0x7d14…7d42 Head {h00=0x002a, h01=0x0050, text=» BNZ ERAI010 YES THERE WERE, TAKE NEXT«, t00=0x0050, t01=0x0030}
0x7d42…7d52 Head {h00=0x000c, h01=0x0050, text=»ERAI050 «, t00=0x0050, t01=0x005e}
0x7d52…7d68 Head {h00=0x0012, h01=0x0050, text=» PERF PULL,W3 «, t00=0x0050, t01=0x006e}
0x7d68…7d74 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0050, t01=0x0084}
0x7d74…7d82 Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0050, t01=0x0090}
0x7d82…7d90 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0050, t01=0x009e}
0x7d90…7da4 Head {h00=0x0010, h01=0x0050, text=»LCKTST PROC «, t00=0x0050, t01=0x00ac}
0x7da4…7dba Head {h00=0x0012, h01=0x0050, text=» PERF PUSH,W7 «, t00=0x0050, t01=0x00c0}
0x7dba…7dc8 Head {h00=0x000a, h01=0x0050, text=»LOCK20«, t00=0x0050, t01=0x00d6}
0x7dc8…7dde Head {h00=0x0012, h01=0x0050, text=» MOVE TBIN1,W0«, t00=0x0050, t01=0x00e4}
0x7dde…7e14 Head {h00=0x0032, h01=0x0050, text=» XCOPY TBIN1,W1,W1,TKEYS,W0 GET KEYLOCKSTATUS «, t00=0x0050, t01=0x00fa}
0x7e14…7e42 Head {h00=0x002a, h01=0x0050, text=» CALL GFLDIX,TBIN1 EXTRACT LAST 4 BITS«, t00=0x0050, t01=0x0130}
0x7e42…7e70 Head {h00=0x002a, h01=0x0050, text=» ADD TBIN1,W1 ADJUST FOR NO-KEYLOCKS «, t00=0x0050, t01=0x015e}
0x7e70…7ea2 Head {h00=0x002e, h01=0x0050, text=» IB TBIN1,LOCK40,LOCK40,LOCK40,LOCK30, C «, t00=0x0050, t01=0x018c}
0x7ea2…7ece Head {h00=0x0028, h01=0x0050, text=» LOCK40,LOCK30,LOCK30,LOCK30,LOCK40«, t00=0x0051, t01=0x002e}
0x7ece…7edc Head {h00=0x000a, h01=0x0050, text=»LOCK30«, t00=0x0051, t01=0x005a}
0x7edc…7ef6 Head {h00=0x0016, h01=0x0050, text=» MOVE TBIN3,=W'74'«, t00=0x0051, t01=0x0068}
0x7ef6…7f14 Head {h00=0x001a, h01=0x0050, text=» PERF PDUWRT,TBIN3,W4 «, t00=0x0051, t01=0x0082}
0x7f14…7f34 Head {h00=0x001c, h01=0x0050, text=» MOVE TP1,W1 REQ. LENGTH«, t00=0x0051, t01=0x00a0}
0x7f34…7f4a Head {h00=0x0012, h01=0x0050, text=» MOVE TBIN7,W0«, t00=0x0051, t01=0x00c0}
0x7f4a…7f6c Head {h00=0x001e, h01=0x0050, text=» PERF READKB READ KEYLOCK «, t00=0x0051, t01=0x00d6}
0x7f6c…7f84 Head {h00=0x0014, h01=0x0050, text=» PERF ERALIN,W4 «, t00=0x0051, t01=0x00f8}
0x7f84…7fa4 Head {h00=0x001c, h01=0x0050, text=» B LOCK20 AND TEST AGAIN«, t00=0x0051, t01=0x0110}
0x7fa4…7fb2 Head {h00=0x000a, h01=0x0050, text=»LOCK40«, t00=0x0051, t01=0x0130}
0x7fb2…7fc8 Head {h00=0x0012, h01=0x0050, text=» PERF PULL,W7 «, t00=0x0051, t01=0x013e}
0x7fc8…7fd4 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0051, t01=0x0154}
0x7fd4…7fe2 Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0051, t01=0x0160}
0x7fe2…7ff0 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0051, t01=0x016e}
0x7ff0…8004 Head {h00=0x0010, h01=0x0050, text=»FUNC00 PROC «, t00=0x0051, t01=0x017c}
0x8004…8016 Head {h00=0x000e, h01=0x0050, text=» CMP W0,W0«, t00=0x0051, t01=0x0190}
0x8016…8022 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0052, t01=0x0012}
0x8022…8030 Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0052, t01=0x001e}
0x8030…8038 Head {h00=0x0004, h01=0x0050, t00=0x0052, t01=0x002c}
0x8038…8040 Head {h00=0x0004, h01=0x0050, t00=0x0052, t01=0x0034}
0x8040…8054 Head {h00=0x0010, h01=0x0050, text=»FUNC01 PROC «, t00=0x0052, t01=0x003c}
0x8054…8080 Head {h00=0x0028, h01=0x0050, text=»* A FUNCTION KEY HAS BEEN DEPRESSED.«, t00=0x0052, t01=0x0050}
0x8080…80b6 Head {h00=0x0032, h01=0x0050, text=»* THE VALUE TO BE SENT CAN BE FOUND IN CCODE, «, t00=0x0052, t01=0x007c}
0x80b6…80e2 Head {h00=0x0028, h01=0x0050, text=»* WITH THE INDEX AS INDEX IN A XCOPY«, t00=0x0052, t01=0x00b2}
0x80e2…80f8 Head {h00=0x0012, h01=0x0050, text=» PERF PUSH,W3 «, t00=0x0052, t01=0x00de}
0x80f8…8114 Head {h00=0x0018, h01=0x0050, text=» MOVE TCURPOS,CHOME «, t00=0x0052, t01=0x00f4}
0x8114…8132 Head {h00=0x001a, h01=0x0050, text=» DSC1 PDU,POS,TCURPOS «, t00=0x0052, t01=0x0110}
0x8132…8164 Head {h00=0x002e, h01=0x0050, text=» CBL TBIN6,W1,FUNC0199 CHECK FOR VALID KEY«, t00=0x0052, t01=0x012e}
0x8164…8186 Head {h00=0x001e, h01=0x0050, text=» CBG TBIN6,=W'28',FUNC0199«, t00=0x0052, t01=0x0160}
0x8186…81b6 Head {h00=0x002c, h01=0x0050, text=» SET TALTBUF WRITE FORM ALTERNATE BUFFER«, t00=0x0052, t01=0x0182}
0x81b6…81ee Head {h00=0x0034, h01=0x0050, text=» XCOPY TDC2BUF,W1,W1,CCODE,TBIN6 MOVE ASCII-CODE«, t00=0x0053, t01=0x0022}
0x81ee…8206 Head {h00=0x0014, h01=0x0050, text=» MOVE TDC2LEN,W2«, t00=0x0053, t01=0x005a}
0x8206…822e Head {h00=0x0024, h01=0x0050, text=» XCOPY TSTRG1,W0,W1,CCODE,TBIN6 «, t00=0x0053, t01=0x0072}
0x822e…8250 Head {h00=0x001e, h01=0x0050, text=» CBE TBIN6,W8,FUNC0199 NEJ«, t00=0x0053, t01=0x009a}
0x8250…8276 Head {h00=0x0022, h01=0x0050, text=» CBE TBIN6,=W'27',FUNC0199 JA1«, t00=0x0053, t01=0x00bc}
0x8276…829c Head {h00=0x0022, h01=0x0050, text=» CBE TBIN6,=W'28',FUNC0199 JA2«, t00=0x0053, t01=0x00e2}
0x829c…82b0 Head {h00=0x0010, h01=0x0050, text=» PERF NOINPT«, t00=0x0053, t01=0x0108}
0x82b0…82d6 Head {h00=0x0022, h01=0x0050, text=» CBE TBIN6,=W'21',FUNC01A [NDR«, t00=0x0053, t01=0x011c}
0x82d6…82fc Head {h00=0x0022, h01=0x0050, text=» CBE TBIN6,=W'22',FUNC01B TEST«, t00=0x0053, t01=0x0142}
0x82fc…8330 Head {h00=0x0030, h01=0x0050, text=»* THERE ARE 2 SPECIAL MASKS, NOT ADHERING TO«, t00=0x0053, t01=0x0168}
0x8330…836e Head {h00=0x003a, h01=0x0050, text=»* THE STANDARD. THESE ARE [NDRINGSMASKE AND TESTMASKE.«, t00=0x0054, t01=0x000c}
0x836e…83a4 Head {h00=0x0032, h01=0x0050, text=»* THEREFORE, A SPECIAL BUFFER HAS TO BE SET UP«, t00=0x0054, t01=0x004a}
0x83a4…83d0 Head {h00=0x0028, h01=0x0050, text=»* WHEN ONE OF THESE KEYS IS PRESSED.«, t00=0x0054, t01=0x0080}
0x83d0…83e2 Head {h00=0x000e, h01=0x0050, text=» B FUNC01C«, t00=0x0054, t01=0x00ac}
0x83e2…8408 Head {h00=0x0022, h01=0x0050, text=»FUNC01A [NDRINGSMASKE WANTED«, t00=0x0054, t01=0x00be}
0x8408…8424 Head {h00=0x0018, h01=0x0050, text=» MOVE TDC2BUF,CZERO «, t00=0x0054, t01=0x00e4}
0x8424…844e Head {h00=0x0026, h01=0x0050, text=» MOVE TDC2LEN,W1 SEND STX!KEY!ETX «, t00=0x0054, t01=0x0100}
0x844e…8460 Head {h00=0x000e, h01=0x0050, text=» B FUNC01C«, t00=0x0054, t01=0x012a}
0x8460…847c Head {h00=0x0018, h01=0x0050, text=»FUNC01B TEST MASKE«, t00=0x0054, t01=0x013c}
0x847c…849e Head {h00=0x001e, h01=0x0050, text=» MOVE TDC2BUF,=X'00303100'«, t00=0x0054, t01=0x0158}
0x849e…84b6 Head {h00=0x0014, h01=0x0050, text=» MOVE TDC2LEN,W3«, t00=0x0054, t01=0x017a}
0x84b6…84c6 (85, 0, 398) Head {h00=0x000c, h01=0x0050, text=»FUNC01C «, t00=0x0055, t01=0x0004}
0x84c6…84e4 Head {h00=0x001a, h01=0x0050, text=» MOVE SAVTAB(W1,W1),W1«, t00=0x0055, t01=0x0014}
0x84e4…8506 Head {h00=0x001e, h01=0x0050, text=» MOVE SAVTAB(W2,W1),CHOME «, t00=0x0055, t01=0x0032}
0x8506…8524 Head {h00=0x001a, h01=0x0050, text=» MOVE SAVTAB(W2,W2),W1«, t00=0x0055, t01=0x0054}
0x8524…8542 Head {h00=0x001a, h01=0x0050, text=» MOVE SAVTAB(W2,W3),W1«, t00=0x0055, t01=0x0072}
0x8542…8566 Head {h00=0x0020, h01=0x0050, text=» MOVE SAVTAB(W2,W4),=X'2920'«, t00=0x0055, t01=0x0090}
0x8566…8576 Head {h00=0x000c, h01=0x0050, text=»FUNC0199«, t00=0x0055, t01=0x00b4}
0x8576…858c Head {h00=0x0012, h01=0x0050, text=» PERF PULL,W3 «, t00=0x0055, t01=0x00c4}
0x858c…8598 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0055, t01=0x00da}
0x8598…85a6 Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0055, t01=0x00e6}
0x85a6…85ae Head {h00=0x0004, h01=0x0050, t00=0x0055, t01=0x00f4}
0x85ae…85b6 Head {h00=0x0004, h01=0x0050, t00=0x0055, t01=0x00fc}
0x85b6…85ca Head {h00=0x0010, h01=0x0050, text=»FUNC03 PROC «, t00=0x0055, t01=0x0104}
0x85ca…85dc Head {h00=0x000e, h01=0x0050, text=»* BACKTAB.«, t00=0x0055, t01=0x0118}
0x85dc…8612 Head {h00=0x0032, h01=0x0050, text=»* IF THE KEY GETS NEGATIVE, A WRAP-AROUND HAS «, t00=0x0055, t01=0x012a}
0x8612…8644 Head {h00=0x002e, h01=0x0050, text=»* TO BE PERFORMED (TO THE LAST INPUTFIELD)«, t00=0x0055, t01=0x0160}
0x8644…865a (86, 0, 400) Head {h00=0x0012, h01=0x0050, text=» SUB TBIN2,W1 «, t00=0x0056, t01=0x0004}
0x865a…8678 Head {h00=0x001a, h01=0x0050, text=» CBG TBIN2,W1,FUNC0399«, t00=0x0056, t01=0x001a}
0x8678…8692 Head {h00=0x0016, h01=0x0050, text=» MOVE TBIN2,TBIN1 «, t00=0x0056, t01=0x0038}
0x8692…86c0 Head {h00=0x002a, h01=0x0050, text=» ADD TBIN2,W1 FIND INDEX OF LAST FIELD«, t00=0x0056, t01=0x0052}
0x86c0…86d0 Head {h00=0x000c, h01=0x0050, text=»FUNC0399«, t00=0x0056, t01=0x0080}
0x86d0…86dc Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0056, t01=0x0090}
0x86dc…86ea Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0056, t01=0x009c}
0x86ea…86f2 Head {h00=0x0004, h01=0x0050, t00=0x0056, t01=0x00aa}
0x86f2…86fa Head {h00=0x0004, h01=0x0050, t00=0x0056, t01=0x00b2}
0x86fa…870e Head {h00=0x0010, h01=0x0050, text=»FUNC04 PROC «, t00=0x0056, t01=0x00ba}
0x870e…8724 Head {h00=0x0012, h01=0x0050, text=»* FORWARD TAB «, t00=0x0056, t01=0x00ce}
0x8724…8754 Head {h00=0x002c, h01=0x0050, text=»* A WRAP-AROUND MAY HAVE TO BE PERFORMED«, t00=0x0056, t01=0x00e4}
0x8754…876a Head {h00=0x0012, h01=0x0050, text=» PERF PUSH,W3 «, t00=0x0056, t01=0x0114}
0x876a…878a Head {h00=0x001c, h01=0x0050, text=» ADD TBIN2,W1 NEXT FIELD«, t00=0x0056, t01=0x012a}
0x878a…87a4 Head {h00=0x0016, h01=0x0050, text=» MOVE TBIN3,TBIN1 «, t00=0x0056, t01=0x014a}
0x87a4…87ba Head {h00=0x0012, h01=0x0050, text=» ADD TBIN3,W1 «, t00=0x0056, t01=0x0164}
0x87ba…87f2 Head {h00=0x0034, h01=0x0050, text=» CBNG TBIN2,TBIN3,FUNC0499 STILL WITHIN LIMITS? «, t00=0x0056, t01=0x017a}
0x87f2…8808 Head {h00=0x0012, h01=0x0050, text=» MOVE TBIN2,W2«, t00=0x0057, t01=0x0022}
0x8808…8818 Head {h00=0x000c, h01=0x0050, text=»FUNC0499«, t00=0x0057, t01=0x0038}
0x8818…882e Head {h00=0x0012, h01=0x0050, text=» PERF PULL,W3 «, t00=0x0057, t01=0x0048}
0x882e…883a Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0057, t01=0x005e}
0x883a…8848 Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0057, t01=0x006a}
0x8848…8850 Head {h00=0x0004, h01=0x0050, t00=0x0057, t01=0x0078}
0x8850…8858 Head {h00=0x0004, h01=0x0050, t00=0x0057, t01=0x0080}
0x8858…886c Head {h00=0x0010, h01=0x0050, text=»FUNC05 PROC «, t00=0x0057, t01=0x0088}
0x886c…888c Head {h00=0x001c, h01=0x0050, text=»* ERASE ALL INPUTFIELDS «, t00=0x0057, t01=0x009c}
0x888c…88a6 Head {h00=0x0016, h01=0x0050, text=»* SEND CURSOR HOME«, t00=0x0057, t01=0x00bc}
0x88a6…88ba Head {h00=0x0010, h01=0x0050, text=» PERF ERAIPT«, t00=0x0057, t01=0x00d6}
0x88ba…88d0 Head {h00=0x0012, h01=0x0050, text=» MOVE TBIN2,W2«, t00=0x0057, t01=0x00ea}
0x88d0…88dc Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0057, t01=0x0100}
0x88dc…88ea Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0057, t01=0x010c}
0x88ea…88f2 Head {h00=0x0004, h01=0x0050, t00=0x0057, t01=0x011a}
0x88f2…88fa Head {h00=0x0004, h01=0x0050, t00=0x0057, t01=0x0122}
0x88fa…890e Head {h00=0x0010, h01=0x0050, text=»FUNC06 PROC «, t00=0x0057, t01=0x012a}
0x890e…8924 Head {h00=0x0012, h01=0x0050, text=»* ERASE SCREEN«, t00=0x0057, t01=0x013e}
0x8924…893e Head {h00=0x0016, h01=0x0050, text=» MOVE OUTBUF,CZERO«, t00=0x0057, t01=0x0154}
0x893e…8952 Head {h00=0x0010, h01=0x0050, text=» PERF ERASCR«, t00=0x0057, t01=0x016e}
0x8952…8966 Head {h00=0x0010, h01=0x0050, text=» SET TNODEP «, t00=0x0057, t01=0x0182}
0x8966…8972 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0058, t01=0x0008}
0x8972…8980 Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0058, t01=0x0014}
0x8980…8988 Head {h00=0x0004, h01=0x0050, t00=0x0058, t01=0x0022}
0x8988…8990 Head {h00=0x0004, h01=0x0050, t00=0x0058, t01=0x002a}
0x8990…89a8 Head {h00=0x0014, h01=0x0050, text=»FUNC07 PROC ETX«, t00=0x0058, t01=0x0032}
0x89a8…89be Head {h00=0x0012, h01=0x0050, text=» PERF PUSH,W8 «, t00=0x0058, t01=0x004a}
0x89be…89da Head {h00=0x0018, h01=0x0050, text=» MOVE TSTRG10,CZERO «, t00=0x0058, t01=0x0060}
0x89da…8a04 Head {h00=0x0026, h01=0x0050, text=» XCOPY TSTRG10,W0,TBIN5,TKBBUF,W0 «, t00=0x0058, t01=0x007c}
0x8a04…8a20 Head {h00=0x0018, h01=0x0050, text=» MOVE TKBBUF,TSTRG10«, t00=0x0058, t01=0x00a6}
0x8a20…8a56 Head {h00=0x0032, h01=0x0050, text=» MOVE TBIN3,FLDTAB(TBIN7,W2) STARTPOS + DISPL «, t00=0x0058, t01=0x00c2}
0x8a56…8a86 Head {h00=0x002c, h01=0x0050, text=» ADD TBIN3,TBIN5 + 2 GIVES TOTAL LENGTH «, t00=0x0058, t01=0x00f8}
0x8a86…8aa4 Head {h00=0x001a, h01=0x0050, text=»* CLEAR REST OF BUFFER«, t00=0x0058, t01=0x0128}
0x8aa4…8ac0 Head {h00=0x0018, h01=0x0050, text=» MOVE TBIN2,=W'300' «, t00=0x0058, t01=0x0146}
0x8ac0…8ad0 Head {h00=0x000c, h01=0x0050, text=»FUNC0710«, t00=0x0058, t01=0x0162}
0x8ad0…8af2 Head {h00=0x001e, h01=0x0050, text=» CBNL TBIN3,TBIN2,FUNC0720«, t00=0x0058, t01=0x0172}
0x8af2…8b1a (89, 0, 398) Head {h00=0x0024, h01=0x0050, text=» XCOPY OUTBUF,TBIN3,W1,CZERO,W0 «, t00=0x0059, t01=0x0004}
0x8b1a…8b30 Head {h00=0x0012, h01=0x0050, text=» ADD TBIN3,W1 «, t00=0x0059, t01=0x002c}
0x8b30…8b44 Head {h00=0x0010, h01=0x0050, text=» B FUNC0710 «, t00=0x0059, t01=0x0042}
0x8b44…8b54 Head {h00=0x000c, h01=0x0050, text=»FUNC0720«, t00=0x0059, t01=0x0056}
0x8b54…8b8a Head {h00=0x0032, h01=0x0050, text=»* IDEALLY, THE CURRENT FIELD SHOULD BE TESTED «, t00=0x0059, t01=0x0066}
0x8b8a…8bc0 Head {h00=0x0032, h01=0x0050, text=»* AGAIN, BUT FOR THE TIME BEING THE ERROR-BIT «, t00=0x0059, t01=0x009c}
0x8bc0…8be2 Head {h00=0x001e, h01=0x0050, text=»* IS UNCONDITIONALLY RESET«, t00=0x0059, t01=0x00d2}
0x8be2…8bf6 Head {h00=0x0010, h01=0x0050, text=» B FUNC0740 «, t00=0x0059, t01=0x00f4}
0x8bf6…8c22 Head {h00=0x0028, h01=0x0050, text=»* CLEAR THE REST OF THE INPUTFIELDS.«, t00=0x0059, t01=0x0108}
0x8c22…8c54 Head {h00=0x002e, h01=0x0050, text=»* AS THE OUTPUTBUFFER IS ALREADY EMPTIED, «, t00=0x0059, t01=0x0134}
0x8c54…8c80 Head {h00=0x0028, h01=0x0050, text=»* CLEARING THE MODIFIED-BIT WILL DO «, t00=0x0059, t01=0x0166}
0x8c80…8c90 (90, 0, 400) Head {h00=0x000c, h01=0x0050, text=»FUNC0730«, t00=0x005a, t01=0x0004}
0x8c90…8cb4 Head {h00=0x0020, h01=0x0050, text=» ADD TBIN7,W1 NEXT TO CLEAR «, t00=0x005a, t01=0x0014}
0x8cb4…8cc4 Head {h00=0x000c, h01=0x0050, text=»FUNC0740«, t00=0x005a, t01=0x0038}
0x8cc4…8cfc Head {h00=0x0034, h01=0x0050, text=» CALL BITOFF,FLDTAB(TBIN7,W4),W0 CLEAR ERRORBIT «, t00=0x005a, t01=0x0048}
0x8cfc…8d2e Head {h00=0x002e, h01=0x0050, text=» CALL BITOFF,FLDTAB(TBIN7,W4),W2 CLEAR MDT«, t00=0x005a, t01=0x0080}
0x8d2e…8d54 Head {h00=0x0022, h01=0x0050, text=» DSC1 PDU,POS,FLDTAB(TBIN7,W1)«, t00=0x005a, t01=0x00b2}
0x8d54…8d70 Head {h00=0x0018, h01=0x0050, text=» MOVE TPDUBUF,CERASE«, t00=0x005a, t01=0x00d8}
0x8d70…8d94 Head {h00=0x0020, h01=0x0050, text=» MOVE TBIN4,FLDTAB(TBIN7,W3)«, t00=0x005a, t01=0x00f4}
0x8d94…8db8 Head {h00=0x0020, h01=0x0050, text=» ADD TBIN4,W2 ADJUST FOR ++ «, t00=0x005a, t01=0x0118}
0x8db8…8dd8 Head {h00=0x001c, h01=0x0050, text=» WRITE PDU,TPDUBUF,TBIN4«, t00=0x005a, t01=0x013c}
0x8dd8…8e06 Head {h00=0x002a, h01=0x0050, text=» CBNG TBIN7,TBIN1,FUNC0730 MORE LEFT? «, t00=0x005a, t01=0x015c}
0x8e06…8e1c Head {h00=0x0012, h01=0x0050, text=» PERF PULL,W8 «, t00=0x005a, t01=0x018a}
0x8e1c…8e28 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x005b, t01=0x0010}
0x8e28…8e36 Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x005b, t01=0x001c}
0x8e36…8e3e Head {h00=0x0004, h01=0x0050, t00=0x005b, t01=0x002a}
0x8e3e…8e46 Head {h00=0x0004, h01=0x0050, t00=0x005b, t01=0x0032}
0x8e46…8e5a Head {h00=0x0010, h01=0x0050, text=»FUNC15 PROC «, t00=0x005b, t01=0x003a}
0x8e5a…8e80 Head {h00=0x0022, h01=0x0050, text=»* KEY 'B15' HAS BEEN PRESSED. «, t00=0x005b, t01=0x004e}
0x8e80…8e92 Head {h00=0x000e, h01=0x0050, text=» CMP W0,W0«, t00=0x005b, t01=0x0074}
0x8e92…8e9e Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x005b, t01=0x0086}
0x8e9e…8eac Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x005b, t01=0x0092}
0x8eac…8eb4 Head {h00=0x0004, h01=0x0050, t00=0x005b, t01=0x00a0}
0x8eb4…8ebc Head {h00=0x0004, h01=0x0050, t00=0x005b, t01=0x00a8}
0x8ebc…8ed0 Head {h00=0x0010, h01=0x0050, text=»FUNC17 PROC «, t00=0x005b, t01=0x00b0}
0x8ed0…8ee6 Head {h00=0x0012, h01=0x0050, text=»* CURSOR DOWN.«, t00=0x005b, t01=0x00c4}
0x8ee6…8f0a Head {h00=0x0020, h01=0x0050, text=»* GET 1. FIELD ON NEXT LINE.«, t00=0x005b, t01=0x00da}
0x8f0a…8f32 Head {h00=0x0024, h01=0x0050, text=»* IF THERE ARE NO 'LOWER' LINES,«, t00=0x005b, t01=0x00fe}
0x8f32…8f52 Head {h00=0x001c, h01=0x0050, text=»* POS. ON 1. INPUTFIELD «, t00=0x005b, t01=0x0126}
0x8f52…8f7a Head {h00=0x0024, h01=0x0050, text=» ADD TBIN1,W1 ANTAL INPUTFELTER «, t00=0x005b, t01=0x0146}
0x8f7a…8f90 Head {h00=0x0012, h01=0x0050, text=» MOVE TBIN9,W0«, t00=0x005b, t01=0x016e}
0x8f90…8fa8 Head {h00=0x0014, h01=0x0050, text=» MOVE TBIN10,W0 «, t00=0x005b, t01=0x0184}
0x8fa8…8fd6 Head {h00=0x002a, h01=0x0050, text=» XCOPY TBIN10,W1,W1,TCURPOS,W0 LINENBR«, t00=0x005c, t01=0x000c}
0x8fd6…8fe6 Head {h00=0x000c, h01=0x0050, text=»FUNC1710«, t00=0x005c, t01=0x003a}
0x8fe6…9006 Head {h00=0x001c, h01=0x0050, text=» ADD TBIN2,W1 NEXT FIELD«, t00=0x005c, t01=0x004a}
0x9006…9034 Head {h00=0x002a, h01=0x0050, text=» XCOPY TBIN9,W1,W1,FLDTAB(TBIN2,W1),W0«, t00=0x005c, t01=0x006a}
0x9034…9062 Head {h00=0x002a, h01=0x0050, text=» CBG TBIN2,TBIN1,FUNC1730 OUT OF TABLE«, t00=0x005c, t01=0x0098}
0x9062…9096 Head {h00=0x0030, h01=0x0050, text=» CBG TBIN9,TBIN10,FUNC1799 LOWER LINE FOUND «, t00=0x005c, t01=0x00c6}
0x9096…90aa Head {h00=0x0010, h01=0x0050, text=» B FUNC1710 «, t00=0x005c, t01=0x00fa}
0x90aa…90ba Head {h00=0x000c, h01=0x0050, text=»FUNC1730«, t00=0x005c, t01=0x010e}
0x90ba…90de Head {h00=0x0020, h01=0x0050, text=» MOVE TBIN2,W2 1. INPUTFIELD«, t00=0x005c, t01=0x011e}
0x90de…90ee Head {h00=0x000c, h01=0x0050, text=»FUNC1799«, t00=0x005c, t01=0x0142}
0x90ee…9104 Head {h00=0x0012, h01=0x0050, text=» SUB TBIN1,W1 «, t00=0x005c, t01=0x0152}
0x9104…9110 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x005c, t01=0x0168}
0x9110…911e Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x005c, t01=0x0174}
0x911e…9126 Head {h00=0x0004, h01=0x0050, t00=0x005c, t01=0x0182}
0x9126…912e Head {h00=0x0004, h01=0x0050, t00=0x005c, t01=0x018a}
0x912e…9142 (93, 0, 400) Head {h00=0x0010, h01=0x0050, text=»FUNC18 PROC «, t00=0x005d, t01=0x0004}
0x9142…9166 Head {h00=0x0020, h01=0x0050, text=»* TASTE 'A15' ER TRYKKET NED«, t00=0x005d, t01=0x0018}
0x9166…9178 Head {h00=0x000e, h01=0x0050, text=» CMP W0,W0«, t00=0x005d, t01=0x003c}
0x9178…9184 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x005d, t01=0x004e}
0x9184…9192 Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x005d, t01=0x005a}
0x9192…919a Head {h00=0x0004, h01=0x0050, t00=0x005d, t01=0x0068}
0x919a…91a2 Head {h00=0x0004, h01=0x0050, t00=0x005d, t01=0x0070}
0x91a2…91b6 Head {h00=0x0010, h01=0x0050, text=»FUNC24 PROC «, t00=0x005d, t01=0x0078}
0x91b6…91ca Head {h00=0x0010, h01=0x0050, text=» PERF TSTGTP«, t00=0x005d, t01=0x008c}
0x91ca…91ee Head {h00=0x0020, h01=0x0050, text=» SUB TBIN2,W1 REENTER FIELD «, t00=0x005d, t01=0x00a0}
0x91ee…91fa Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x005d, t01=0x00c4}
0x91fa…9208 Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x005d, t01=0x00d0}
0x9208…9216 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x005d, t01=0x00de}
0x9216…9220 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005d, t01=0x00ec}
0x9220…925c Head {h00=0x0038, h01=0x0050, text=»* I TESTXX-PROCEDURERNE BRUGER JEG "IMPLIED SETTING"«, t00=0x005d, t01=0x00f6}
0x925c…927e Head {h00=0x001e, h01=0x0050, text=»* AF CONDITIONSREGISTRET. «, t00=0x005d, t01=0x0132}
0x927e…92b4 Head {h00=0x0032, h01=0x0050, text=»* DETTE REGISTER BLIVER JO SAT IFM EN COMPARE.«, t00=0x005d, t01=0x0154}
0x92b4…92dc Head {h00=0x0024, h01=0x0050, text=»* HVIS MAN F.X. SIGER CMP 0,0«, t00=0x005d, t01=0x018a}
0x92dc…930c Head {h00=0x002c, h01=0x0050, text=»* VIL REGISTRET BLIVE SAT TIL 0 (EQUAL) «, t00=0x005e, t01=0x0022}
0x930c…9320 Head {h00=0x0010, h01=0x0050, text=»TEST01 PROC «, t00=0x005e, t01=0x0052}
0x9320…933a Head {h00=0x0016, h01=0x0050, text=»* ONLY '0' ALLOWED«, t00=0x005e, t01=0x0066}
0x933a…9354 Head {h00=0x0016, h01=0x0050, text=» MOVE TBCD5,TKBBUF«, t00=0x005e, t01=0x0080}
0x9354…936c Head {h00=0x0014, h01=0x0050, text=» CMP TBCD5,=D'0'«, t00=0x005e, t01=0x009a}
0x936c…9378 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x005e, t01=0x00b2}
0x9378…9386 Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x005e, t01=0x00be}
0x9386…938e Head {h00=0x0004, h01=0x0050, t00=0x005e, t01=0x00cc}
0x938e…9396 Head {h00=0x0004, h01=0x0050, t00=0x005e, t01=0x00d4}
0x9396…939e Head {h00=0x0004, h01=0x0050, t00=0x005e, t01=0x00dc}
0x939e…93b2 Head {h00=0x0010, h01=0x0050, text=»TEST02 PROC «, t00=0x005e, t01=0x00e4}
0x93b2…93c0 Head {h00=0x000a, h01=0x0050, text=»* 0,1 «, t00=0x005e, t01=0x00f8}
0x93c0…93da Head {h00=0x0016, h01=0x0050, text=» MOVE TBCD5,TKBBUF«, t00=0x005e, t01=0x0106}
0x93da…93fc Head {h00=0x001e, h01=0x0050, text=» CBE TBCD5,=D'0',TEST0299 «, t00=0x005e, t01=0x0120}
0x93fc…941e Head {h00=0x001e, h01=0x0050, text=» CBE TBCD5,=D'1',TEST0299 «, t00=0x005e, t01=0x0142}
0x941e…942e Head {h00=0x000c, h01=0x0050, text=»TEST0299«, t00=0x005e, t01=0x0164}
0x942e…943a Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x005e, t01=0x0174}
0x943a…9448 Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x005e, t01=0x0180}
0x9448…9450 Head {h00=0x0004, h01=0x0050, t00=0x005e, t01=0x018e}
0x9450…9458 Head {h00=0x0004, h01=0x0050, t00=0x005f, t01=0x0008}
0x9458…9460 Head {h00=0x0004, h01=0x0050, t00=0x005f, t01=0x0010}
0x9460…9474 Head {h00=0x0010, h01=0x0050, text=»TEST03 PROC «, t00=0x005f, t01=0x0018}
0x9474…9482 Head {h00=0x000a, h01=0x0050, text=»* 0-2 «, t00=0x005f, t01=0x002c}
0x9482…949c Head {h00=0x0016, h01=0x0050, text=» MOVE TBCD5,TKBBUF«, t00=0x005f, t01=0x003a}
0x949c…94be Head {h00=0x001e, h01=0x0050, text=» CBE TBCD5,=D'0',TEST0399 «, t00=0x005f, t01=0x0054}
0x94be…94e0 Head {h00=0x001e, h01=0x0050, text=» CBE TBCD5,=D'1',TEST0399 «, t00=0x005f, t01=0x0076}
0x94e0…9502 Head {h00=0x001e, h01=0x0050, text=» CBE TBCD5,=D'2',TEST0399 «, t00=0x005f, t01=0x0098}
0x9502…9512 Head {h00=0x000c, h01=0x0050, text=»TEST0399«, t00=0x005f, t01=0x00ba}
0x9512…951e Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x005f, t01=0x00ca}
0x951e…952c Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x005f, t01=0x00d6}
0x952c…9534 Head {h00=0x0004, h01=0x0050, t00=0x005f, t01=0x00e4}
0x9534…953c Head {h00=0x0004, h01=0x0050, t00=0x005f, t01=0x00ec}
0x953c…9544 Head {h00=0x0004, h01=0x0050, t00=0x005f, t01=0x00f4}
0x9544…9558 Head {h00=0x0010, h01=0x0050, text=»TEST04 PROC «, t00=0x005f, t01=0x00fc}
0x9558…9566 Head {h00=0x000a, h01=0x0050, text=»* 0-3 «, t00=0x005f, t01=0x0110}
0x9566…9580 Head {h00=0x0016, h01=0x0050, text=» MOVE TBCD5,TKBBUF«, t00=0x005f, t01=0x011e}
0x9580…95a2 Head {h00=0x001e, h01=0x0050, text=» CBL TBCD5,=D'0',TEST0498 «, t00=0x005f, t01=0x0138}
0x95a2…95c4 Head {h00=0x001e, h01=0x0050, text=» CBG TBCD5,=D'3',TEST0498 «, t00=0x005f, t01=0x015a}
0x95c4…95d6 Head {h00=0x000e, h01=0x0050, text=» CMP W0,W0«, t00=0x005f, t01=0x017c}
0x95d6…95ea Head {h00=0x0010, h01=0x0050, text=» B TEST0499 «, t00=0x005f, t01=0x018e}
0x95ea…95fa Head {h00=0x000c, h01=0x0050, text=»TEST0498«, t00=0x0060, t01=0x0012}
0x95fa…960c Head {h00=0x000e, h01=0x0050, text=» CMP W0,W1«, t00=0x0060, t01=0x0022}
0x960c…961c Head {h00=0x000c, h01=0x0050, text=»TEST0499«, t00=0x0060, t01=0x0034}
0x961c…9628 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0060, t01=0x0044}
0x9628…9636 Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0060, t01=0x0050}
0x9636…963e Head {h00=0x0004, h01=0x0050, t00=0x0060, t01=0x005e}
0x963e…9646 Head {h00=0x0004, h01=0x0050, t00=0x0060, t01=0x0066}
0x9646…964e Head {h00=0x0004, h01=0x0050, t00=0x0060, t01=0x006e}
0x964e…9662 Head {h00=0x0010, h01=0x0050, text=»TEST05 PROC «, t00=0x0060, t01=0x0076}
0x9662…9674 Head {h00=0x000e, h01=0x0050, text=» CMP W0,W0«, t00=0x0060, t01=0x008a}
0x9674…9680 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0060, t01=0x009c}
0x9680…968e Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0060, t01=0x00a8}
0x968e…9696 Head {h00=0x0004, h01=0x0050, t00=0x0060, t01=0x00b6}
0x9696…969e Head {h00=0x0004, h01=0x0050, t00=0x0060, t01=0x00be}
0x969e…96a6 Head {h00=0x0004, h01=0x0050, t00=0x0060, t01=0x00c6}
0x96a6…96ba Head {h00=0x0010, h01=0x0050, text=»TEST06 PROC «, t00=0x0060, t01=0x00ce}
0x96ba…96c8 Head {h00=0x000a, h01=0x0050, text=»* 0-5 «, t00=0x0060, t01=0x00e2}
0x96c8…96e2 Head {h00=0x0016, h01=0x0050, text=» MOVE TBCD5,TKBBUF«, t00=0x0060, t01=0x00f0}
0x96e2…9704 Head {h00=0x001e, h01=0x0050, text=» CBL TBCD5,=D'0',TEST0698 «, t00=0x0060, t01=0x010a}
0x9704…9726 Head {h00=0x001e, h01=0x0050, text=» CBG TBCD5,=D'5',TEST0698 «, t00=0x0060, t01=0x012c}
0x9726…9738 Head {h00=0x000e, h01=0x0050, text=» CMP W0,W0«, t00=0x0060, t01=0x014e}
0x9738…974c Head {h00=0x0010, h01=0x0050, text=» B TEST0699 «, t00=0x0060, t01=0x0160}
0x974c…975c Head {h00=0x000c, h01=0x0050, text=»TEST0698«, t00=0x0060, t01=0x0174}
0x975c…976e Head {h00=0x000e, h01=0x0050, text=» CMP W0,W1«, t00=0x0060, t01=0x0184}
0x976e…977e Head {h00=0x000c, h01=0x0050, text=»TEST0699«, t00=0x0061, t01=0x0008}
0x977e…978a Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0061, t01=0x0018}
0x978a…9798 Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0061, t01=0x0024}
0x9798…97a0 Head {h00=0x0004, h01=0x0050, t00=0x0061, t01=0x0032}
0x97a0…97a8 Head {h00=0x0004, h01=0x0050, t00=0x0061, t01=0x003a}
0x97a8…97b0 Head {h00=0x0004, h01=0x0050, t00=0x0061, t01=0x0042}
0x97b0…97c4 Head {h00=0x0010, h01=0x0050, text=»TEST07 PROC «, t00=0x0061, t01=0x004a}
0x97c4…97d6 Head {h00=0x000e, h01=0x0050, text=» CMP W0,W0«, t00=0x0061, t01=0x005e}
0x97d6…97e2 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0061, t01=0x0070}
0x97e2…97f0 Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0061, t01=0x007c}
0x97f0…97f8 Head {h00=0x0004, h01=0x0050, t00=0x0061, t01=0x008a}
0x97f8…9800 Head {h00=0x0004, h01=0x0050, t00=0x0061, t01=0x0092}
0x9800…9808 Head {h00=0x0004, h01=0x0050, t00=0x0061, t01=0x009a}
0x9808…981c Head {h00=0x0010, h01=0x0050, text=»TEST08 PROC «, t00=0x0061, t01=0x00a2}
0x981c…982a Head {h00=0x000a, h01=0x0050, text=»* 0-7 «, t00=0x0061, t01=0x00b6}
0x982a…9844 Head {h00=0x0016, h01=0x0050, text=» MOVE TBCD5,TKBBUF«, t00=0x0061, t01=0x00c4}
0x9844…9866 Head {h00=0x001e, h01=0x0050, text=» CBL TBCD5,=D'0',TEST0798 «, t00=0x0061, t01=0x00de}
0x9866…9888 Head {h00=0x001e, h01=0x0050, text=» CBG TBCD5,=D'7',TEST0798 «, t00=0x0061, t01=0x0100}
0x9888…989a Head {h00=0x000e, h01=0x0050, text=» CMP W0,W0«, t00=0x0061, t01=0x0122}
0x989a…98ae Head {h00=0x0010, h01=0x0050, text=» B TEST0799 «, t00=0x0061, t01=0x0134}
0x98ae…98be Head {h00=0x000c, h01=0x0050, text=»TEST0798«, t00=0x0061, t01=0x0148}
0x98be…98d0 Head {h00=0x000e, h01=0x0050, text=» CMP W0,W1«, t00=0x0061, t01=0x0158}
0x98d0…98e0 Head {h00=0x000c, h01=0x0050, text=»TEST0799«, t00=0x0061, t01=0x016a}
0x98e0…98ec Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0061, t01=0x017a}
0x98ec…98fa Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0061, t01=0x0186}
0x98fa…9902 (98, 0, 400) Head {h00=0x0004, h01=0x0050, t00=0x0062, t01=0x0004}
0x9902…990a Head {h00=0x0004, h01=0x0050, t00=0x0062, t01=0x000c}
0x990a…9912 Head {h00=0x0004, h01=0x0050, t00=0x0062, t01=0x0014}
0x9912…9926 Head {h00=0x0010, h01=0x0050, text=»TEST09 PROC «, t00=0x0062, t01=0x001c}
0x9926…9934 Head {h00=0x000a, h01=0x0050, text=»* 0-9 «, t00=0x0062, t01=0x0030}
0x9934…9946 Head {h00=0x000e, h01=0x0050, text=» CMP W0,W0«, t00=0x0062, t01=0x003e}
0x9946…9952 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0062, t01=0x0050}
0x9952…9960 Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0062, t01=0x005c}
0x9960…9968 Head {h00=0x0004, h01=0x0050, t00=0x0062, t01=0x006a}
0x9968…9970 Head {h00=0x0004, h01=0x0050, t00=0x0062, t01=0x0072}
0x9970…9978 Head {h00=0x0004, h01=0x0050, t00=0x0062, t01=0x007a}
0x9978…998c Head {h00=0x0010, h01=0x0050, text=»TEST10 PROC «, t00=0x0062, t01=0x0082}
0x998c…999a Head {h00=0x000a, h01=0x0050, text=»* 0-24«, t00=0x0062, t01=0x0096}
0x999a…99b4 Head {h00=0x0016, h01=0x0050, text=» MOVE TBCD5,TKBBUF«, t00=0x0062, t01=0x00a4}
0x99b4…99d6 Head {h00=0x001e, h01=0x0050, text=» CBL TBCD5,=D'0',TEST1098 «, t00=0x0062, t01=0x00be}
0x99d6…99f8 Head {h00=0x001e, h01=0x0050, text=» CBG TBCD5,=D'24',TEST1098«, t00=0x0062, t01=0x00e0}
0x99f8…9a0a Head {h00=0x000e, h01=0x0050, text=» CMP W0,W0«, t00=0x0062, t01=0x0102}
0x9a0a…9a1e Head {h00=0x0010, h01=0x0050, text=» B TEST1099 «, t00=0x0062, t01=0x0114}
0x9a1e…9a2e Head {h00=0x000c, h01=0x0050, text=»TEST1098«, t00=0x0062, t01=0x0128}
0x9a2e…9a40 Head {h00=0x000e, h01=0x0050, text=» CMP W0,W1«, t00=0x0062, t01=0x0138}
0x9a40…9a50 Head {h00=0x000c, h01=0x0050, text=»TEST1099«, t00=0x0062, t01=0x014a}
0x9a50…9a5c Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0062, t01=0x015a}
0x9a5c…9a6a Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0062, t01=0x0166}
0x9a6a…9a72 Head {h00=0x0004, h01=0x0050, t00=0x0062, t01=0x0174}
0x9a72…9a7a Head {h00=0x0004, h01=0x0050, t00=0x0062, t01=0x017c}
0x9a7a…9a82 Head {h00=0x0004, h01=0x0050, t00=0x0062, t01=0x0184}
0x9a82…9a96 Head {h00=0x0010, h01=0x0050, text=»TEST11 PROC «, t00=0x0062, t01=0x018c}
0x9a96…9aa6 Head {h00=0x000c, h01=0x0050, text=»* 0,1,9 «, t00=0x0063, t01=0x0010}
0x9aa6…9ac0 Head {h00=0x0016, h01=0x0050, text=» MOVE TBCD5,TKBBUF«, t00=0x0063, t01=0x0020}
0x9ac0…9ae2 Head {h00=0x001e, h01=0x0050, text=» CBE TBCD5,=D'0',TEST1199 «, t00=0x0063, t01=0x003a}
0x9ae2…9b04 Head {h00=0x001e, h01=0x0050, text=» CBE TBCD5,=D'1',TEST1199 «, t00=0x0063, t01=0x005c}
0x9b04…9b26 Head {h00=0x001e, h01=0x0050, text=» CBE TBCD5,=D'9',TEST1199 «, t00=0x0063, t01=0x007e}
0x9b26…9b36 Head {h00=0x000c, h01=0x0050, text=»TEST1199«, t00=0x0063, t01=0x00a0}
0x9b36…9b42 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0063, t01=0x00b0}
0x9b42…9b50 Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0063, t01=0x00bc}
0x9b50…9b58 Head {h00=0x0004, h01=0x0050, t00=0x0063, t01=0x00ca}
0x9b58…9b60 Head {h00=0x0004, h01=0x0050, t00=0x0063, t01=0x00d2}
0x9b60…9b68 Head {h00=0x0004, h01=0x0050, t00=0x0063, t01=0x00da}
0x9b68…9b7c Head {h00=0x0010, h01=0x0050, text=»TEST12 PROC «, t00=0x0063, t01=0x00e2}
0x9b7c…9b8e Head {h00=0x000e, h01=0x0050, text=»* 0,1,2,5 «, t00=0x0063, t01=0x00f6}
0x9b8e…9ba8 Head {h00=0x0016, h01=0x0050, text=» MOVE TBCD5,TKBBUF«, t00=0x0063, t01=0x0108}
0x9ba8…9bca Head {h00=0x001e, h01=0x0050, text=» CBE TBCD5,=D'0',TEST1299 «, t00=0x0063, t01=0x0122}
0x9bca…9bec Head {h00=0x001e, h01=0x0050, text=» CBE TBCD5,=D'1',TEST1299 «, t00=0x0063, t01=0x0144}
0x9bec…9c0e Head {h00=0x001e, h01=0x0050, text=» CBE TBCD5,=D'2',TEST1299 «, t00=0x0063, t01=0x0166}
0x9c0e…9c30 Head {h00=0x001e, h01=0x0050, text=» CBE TBCD5,=D'5',TEST1299 «, t00=0x0063, t01=0x0188}
0x9c30…9c40 Head {h00=0x000c, h01=0x0050, text=»TEST1299«, t00=0x0064, t01=0x001a}
0x9c40…9c4c Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0064, t01=0x002a}
0x9c4c…9c5a Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0064, t01=0x0036}
0x9c5a…9c62 Head {h00=0x0004, h01=0x0050, t00=0x0064, t01=0x0044}
0x9c62…9c6a Head {h00=0x0004, h01=0x0050, t00=0x0064, t01=0x004c}
0x9c6a…9c72 Head {h00=0x0004, h01=0x0050, t00=0x0064, t01=0x0054}
0x9c72…9c86 Head {h00=0x0010, h01=0x0050, text=»TEST13 PROC «, t00=0x0064, t01=0x005c}
0x9c86…9c96 Head {h00=0x000c, h01=0x0050, text=»* 00-99 «, t00=0x0064, t01=0x0070}
0x9c96…9cb0 Head {h00=0x0016, h01=0x0050, text=» MOVE TBCD5,TKBBUF«, t00=0x0064, t01=0x0080}
0x9cb0…9cd2 Head {h00=0x001e, h01=0x0050, text=» CBL TBCD5,=D'0',TEST1399 «, t00=0x0064, t01=0x009a}
0x9cd2…9cf4 Head {h00=0x001e, h01=0x0050, text=» CBG TBCD5,=D'99',TEST1399«, t00=0x0064, t01=0x00bc}
0x9cf4…9d06 Head {h00=0x000e, h01=0x0050, text=» CMP W0,W0«, t00=0x0064, t01=0x00de}
0x9d06…9d16 Head {h00=0x000c, h01=0x0050, text=»TEST1399«, t00=0x0064, t01=0x00f0}
0x9d16…9d22 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0064, t01=0x0100}
0x9d22…9d30 Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0064, t01=0x010c}
0x9d30…9d38 Head {h00=0x0004, h01=0x0050, t00=0x0064, t01=0x011a}
0x9d38…9d40 Head {h00=0x0004, h01=0x0050, t00=0x0064, t01=0x0122}
0x9d40…9d48 Head {h00=0x0004, h01=0x0050, t00=0x0064, t01=0x012a}
0x9d48…9d5c Head {h00=0x0010, h01=0x0050, text=»TEST14 PROC «, t00=0x0064, t01=0x0132}
0x9d5c…9d70 Head {h00=0x0010, h01=0x0050, text=»* 0,2,3,4,5 «, t00=0x0064, t01=0x0146}
0x9d70…9d8a Head {h00=0x0016, h01=0x0050, text=» MOVE TBCD5,TKBBUF«, t00=0x0064, t01=0x015a}
0x9d8a…9dac Head {h00=0x001e, h01=0x0050, text=» CBE TBCD5,=D'0',TEST1499 «, t00=0x0064, t01=0x0174}
0x9dac…9dce Head {h00=0x001e, h01=0x0050, text=» CBL TBCD5,=D'2',TEST1498 «, t00=0x0065, t01=0x0008}
0x9dce…9df0 Head {h00=0x001e, h01=0x0050, text=» CBG TBCD5,=D'5',TEST1498 «, t00=0x0065, t01=0x002a}
0x9df0…9e02 Head {h00=0x000e, h01=0x0050, text=» CMP W0,W0«, t00=0x0065, t01=0x004c}
0x9e02…9e16 Head {h00=0x0010, h01=0x0050, text=» B TEST1499 «, t00=0x0065, t01=0x005e}
0x9e16…9e26 Head {h00=0x000c, h01=0x0050, text=»TEST1498«, t00=0x0065, t01=0x0072}
0x9e26…9e38 Head {h00=0x000e, h01=0x0050, text=» CMP W0,W1«, t00=0x0065, t01=0x0082}
0x9e38…9e48 Head {h00=0x000c, h01=0x0050, text=»TEST1499«, t00=0x0065, t01=0x0094}
0x9e48…9e54 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0065, t01=0x00a4}
0x9e54…9e62 Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0065, t01=0x00b0}
0x9e62…9e6a Head {h00=0x0004, h01=0x0050, t00=0x0065, t01=0x00be}
0x9e6a…9e72 Head {h00=0x0004, h01=0x0050, t00=0x0065, t01=0x00c6}
0x9e72…9e7a Head {h00=0x0004, h01=0x0050, t00=0x0065, t01=0x00ce}
0x9e7a…9e8e Head {h00=0x0010, h01=0x0050, text=»TEST15 PROC «, t00=0x0065, t01=0x00d6}
0x9e8e…9ea0 Head {h00=0x000e, h01=0x0050, text=»* 0,2,3,5 «, t00=0x0065, t01=0x00ea}
0x9ea0…9eba Head {h00=0x0016, h01=0x0050, text=» MOVE TBCD5,TKBBUF«, t00=0x0065, t01=0x00fc}
0x9eba…9edc Head {h00=0x001e, h01=0x0050, text=» CBE TBCD5,=D'0',TEST1599 «, t00=0x0065, t01=0x0116}
0x9edc…9efe Head {h00=0x001e, h01=0x0050, text=» CBE TBCD5,=D'2',TEST1599 «, t00=0x0065, t01=0x0138}
0x9efe…9f20 Head {h00=0x001e, h01=0x0050, text=» CBE TBCD5,=D'3',TEST1599 «, t00=0x0065, t01=0x015a}
0x9f20…9f42 Head {h00=0x001e, h01=0x0050, text=» CBE TBCD5,=D'5',TEST1599 «, t00=0x0065, t01=0x017c}
0x9f42…9f52 Head {h00=0x000c, h01=0x0050, text=»TEST1599«, t00=0x0066, t01=0x000e}
0x9f52…9f5e Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0066, t01=0x001e}
0x9f5e…9f6c Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0066, t01=0x002a}
0x9f6c…9f74 Head {h00=0x0004, h01=0x0050, t00=0x0066, t01=0x0038}
0x9f74…9f7c Head {h00=0x0004, h01=0x0050, t00=0x0066, t01=0x0040}
0x9f7c…9f84 Head {h00=0x0004, h01=0x0050, t00=0x0066, t01=0x0048}
0x9f84…9f98 Head {h00=0x0010, h01=0x0050, text=»TEST16 PROC «, t00=0x0066, t01=0x0050}
0x9f98…9fb8 Head {h00=0x001c, h01=0x0050, text=»* 0000000000-9999999999 «, t00=0x0066, t01=0x0064}
0x9fb8…9fca Head {h00=0x000e, h01=0x0050, text=» CMP W0,W0«, t00=0x0066, t01=0x0084}
0x9fca…9fd6 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0066, t01=0x0096}
0x9fd6…9fe4 Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0066, t01=0x00a2}
0x9fe4…9fec Head {h00=0x0004, h01=0x0050, t00=0x0066, t01=0x00b0}
0x9fec…9ff4 Head {h00=0x0004, h01=0x0050, t00=0x0066, t01=0x00b8}
0x9ff4…9ffc Head {h00=0x0004, h01=0x0050, t00=0x0066, t01=0x00c0}
0x9ffc…a010 Head {h00=0x0010, h01=0x0050, text=»TEST17 PROC «, t00=0x0066, t01=0x00c8}
0xa010…a01e Head {h00=0x000a, h01=0x0050, text=»* 1-6 «, t00=0x0066, t01=0x00dc}
0xa01e…a038 Head {h00=0x0016, h01=0x0050, text=» MOVE TBCD5,TKBBUF«, t00=0x0066, t01=0x00ea}
0xa038…a05a Head {h00=0x001e, h01=0x0050, text=» CBL TBCD5,=D'1',TEST1798 «, t00=0x0066, t01=0x0104}
0xa05a…a07c Head {h00=0x001e, h01=0x0050, text=» CBG TBCD5,=D'6',TEST1798 «, t00=0x0066, t01=0x0126}
0xa07c…a08e Head {h00=0x000e, h01=0x0050, text=» CMP W0,W0«, t00=0x0066, t01=0x0148}
0xa08e…a0a2 Head {h00=0x0010, h01=0x0050, text=» B TEST1799 «, t00=0x0066, t01=0x015a}
0xa0a2…a0b2 Head {h00=0x000c, h01=0x0050, text=»TEST1798«, t00=0x0066, t01=0x016e}
0xa0b2…a0c4 Head {h00=0x000e, h01=0x0050, text=» CMP W0,W1«, t00=0x0066, t01=0x017e}
0xa0c4…a0d4 Head {h00=0x000c, h01=0x0050, text=»TEST1799«, t00=0x0066, t01=0x0190}
0xa0d4…a0e0 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0067, t01=0x0010}
0xa0e0…a0ee Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0067, t01=0x001c}
0xa0ee…a0f6 Head {h00=0x0004, h01=0x0050, t00=0x0067, t01=0x002a}
0xa0f6…a0fe Head {h00=0x0004, h01=0x0050, t00=0x0067, t01=0x0032}
0xa0fe…a106 Head {h00=0x0004, h01=0x0050, t00=0x0067, t01=0x003a}
0xa106…a11a Head {h00=0x0010, h01=0x0050, text=»TEST18 PROC «, t00=0x0067, t01=0x0042}
0xa11a…a12c Head {h00=0x000e, h01=0x0050, text=»* 0-99999 «, t00=0x0067, t01=0x0056}
0xa12c…a13e Head {h00=0x000e, h01=0x0050, text=» CMP W0,W0«, t00=0x0067, t01=0x0068}
0xa13e…a14a Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0067, t01=0x007a}
0xa14a…a158 Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0067, t01=0x0086}
0xa158…a160 Head {h00=0x0004, h01=0x0050, t00=0x0067, t01=0x0094}
0xa160…a168 Head {h00=0x0004, h01=0x0050, t00=0x0067, t01=0x009c}
0xa168…a170 Head {h00=0x0004, h01=0x0050, t00=0x0067, t01=0x00a4}
0xa170…a184 Head {h00=0x0010, h01=0x0050, text=»TEST19 PROC «, t00=0x0067, t01=0x00ac}
0xa184…a192 Head {h00=0x000a, h01=0x0050, text=»* 1-20«, t00=0x0067, t01=0x00c0}
0xa192…a1ac Head {h00=0x0016, h01=0x0050, text=» MOVE TBCD5,TKBBUF«, t00=0x0067, t01=0x00ce}
0xa1ac…a1ce Head {h00=0x001e, h01=0x0050, text=» CBL TBCD5,=D'1',TEST1998 «, t00=0x0067, t01=0x00e8}
0xa1ce…a1f0 Head {h00=0x001e, h01=0x0050, text=» CBG TBCD5,=D'20',TEST1998«, t00=0x0067, t01=0x010a}
0xa1f0…a202 Head {h00=0x000e, h01=0x0050, text=» CMP W0,W0«, t00=0x0067, t01=0x012c}
0xa202…a216 Head {h00=0x0010, h01=0x0050, text=» B TEST1999 «, t00=0x0067, t01=0x013e}
0xa216…a226 Head {h00=0x000c, h01=0x0050, text=»TEST1998«, t00=0x0067, t01=0x0152}
0xa226…a238 Head {h00=0x000e, h01=0x0050, text=» CMP W0,W1«, t00=0x0067, t01=0x0162}
0xa238…a248 Head {h00=0x000c, h01=0x0050, text=»TEST1999«, t00=0x0067, t01=0x0174}
0xa248…a254 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0067, t01=0x0184}
0xa254…a262 Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0067, t01=0x0190}
0xa262…a26a Head {h00=0x0004, h01=0x0050, t00=0x0068, t01=0x000e}
0xa26a…a272 Head {h00=0x0004, h01=0x0050, t00=0x0068, t01=0x0016}
0xa272…a27a Head {h00=0x0004, h01=0x0050, t00=0x0068, t01=0x001e}
0xa27a…a28e Head {h00=0x0010, h01=0x0050, text=»TEST20 PROC «, t00=0x0068, t01=0x0026}
0xa28e…a29c Head {h00=0x000a, h01=0x0050, text=»* 1-24«, t00=0x0068, t01=0x003a}
0xa29c…a2b6 Head {h00=0x0016, h01=0x0050, text=» MOVE TBCD5,TKBBUF«, t00=0x0068, t01=0x0048}
0xa2b6…a2d8 Head {h00=0x001e, h01=0x0050, text=» CBL TBCD5,=D'1',TEST2098 «, t00=0x0068, t01=0x0062}
0xa2d8…a2fa Head {h00=0x001e, h01=0x0050, text=» CBG TBCD5,=D'24',TEST2098«, t00=0x0068, t01=0x0084}
0xa2fa…a30c Head {h00=0x000e, h01=0x0050, text=» CMP W0,W0«, t00=0x0068, t01=0x00a6}
0xa30c…a320 Head {h00=0x0010, h01=0x0050, text=» B TEST2099 «, t00=0x0068, t01=0x00b8}
0xa320…a330 Head {h00=0x000c, h01=0x0050, text=»TEST2098«, t00=0x0068, t01=0x00cc}
0xa330…a342 Head {h00=0x000e, h01=0x0050, text=» CMP W0,W1«, t00=0x0068, t01=0x00dc}
0xa342…a352 Head {h00=0x000c, h01=0x0050, text=»TEST2099«, t00=0x0068, t01=0x00ee}
0xa352…a35e Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0068, t01=0x00fe}
0xa35e…a36c Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0068, t01=0x010a}
0xa36c…a374 Head {h00=0x0004, h01=0x0050, t00=0x0068, t01=0x0118}
0xa374…a37c Head {h00=0x0004, h01=0x0050, t00=0x0068, t01=0x0120}
0xa37c…a384 Head {h00=0x0004, h01=0x0050, t00=0x0068, t01=0x0128}
0xa384…a398 Head {h00=0x0010, h01=0x0050, text=»TEST21 PROC «, t00=0x0068, t01=0x0130}
0xa398…a3a8 Head {h00=0x000c, h01=0x0050, text=»* 1-999 «, t00=0x0068, t01=0x0144}
0xa3a8…a3c2 Head {h00=0x0016, h01=0x0050, text=» MOVE TBCD5,TKBBUF«, t00=0x0068, t01=0x0154}
0xa3c2…a3e4 Head {h00=0x001e, h01=0x0050, text=» CBL TBCD5,=D'1',TEST2198 «, t00=0x0068, t01=0x016e}
0xa3e4…a408 Head {h00=0x0020, h01=0x0050, text=» CBG TBCD5,=D'999',TEST2198 «, t00=0x0068, t01=0x0190}
0xa408…a41a Head {h00=0x000e, h01=0x0050, text=» CMP W0,W0«, t00=0x0069, t01=0x0024}
0xa41a…a42e Head {h00=0x0010, h01=0x0050, text=» B TEST2199 «, t00=0x0069, t01=0x0036}
0xa42e…a43e Head {h00=0x000c, h01=0x0050, text=»TEST2198«, t00=0x0069, t01=0x004a}
0xa43e…a450 Head {h00=0x000e, h01=0x0050, text=» CMP W0,W1«, t00=0x0069, t01=0x005a}
0xa450…a460 Head {h00=0x000c, h01=0x0050, text=»TEST2199«, t00=0x0069, t01=0x006c}
0xa460…a46c Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0069, t01=0x007c}
0xa46c…a47a Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0069, t01=0x0088}
0xa47a…a482 Head {h00=0x0004, h01=0x0050, t00=0x0069, t01=0x0096}
0xa482…a48a Head {h00=0x0004, h01=0x0050, t00=0x0069, t01=0x009e}
0xa48a…a492 Head {h00=0x0004, h01=0x0050, t00=0x0069, t01=0x00a6}
0xa492…a4a6 Head {h00=0x0010, h01=0x0050, text=»TEST22 PROC «, t00=0x0069, t01=0x00ae}
0xa4a6…a4b8 Head {h00=0x000e, h01=0x0050, text=»* 1-99998 «, t00=0x0069, t01=0x00c2}
0xa4b8…a4d2 Head {h00=0x0016, h01=0x0050, text=» MOVE TBCD5,TKBBUF«, t00=0x0069, t01=0x00d4}
0xa4d2…a4f4 Head {h00=0x001e, h01=0x0050, text=» CBL TBCD5,=D'1',TEST2298 «, t00=0x0069, t01=0x00ee}
0xa4f4…a51a Head {h00=0x0022, h01=0x0050, text=» CBG TBCD5,=D'99998',TEST2298 «, t00=0x0069, t01=0x0110}
0xa51a…a52c Head {h00=0x000e, h01=0x0050, text=» CMP W0,W0«, t00=0x0069, t01=0x0136}
0xa52c…a540 Head {h00=0x0010, h01=0x0050, text=» B TEST2299 «, t00=0x0069, t01=0x0148}
0xa540…a550 Head {h00=0x000c, h01=0x0050, text=»TEST2298«, t00=0x0069, t01=0x015c}
0xa550…a562 Head {h00=0x000e, h01=0x0050, text=» CMP W0,W1«, t00=0x0069, t01=0x016c}
0xa562…a572 Head {h00=0x000c, h01=0x0050, text=»TEST2299«, t00=0x0069, t01=0x017e}
0xa572…a57e Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0069, t01=0x018e}
0xa57e…a58c Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x006a, t01=0x000a}
0xa58c…a594 Head {h00=0x0004, h01=0x0050, t00=0x006a, t01=0x0018}
0xa594…a59c Head {h00=0x0004, h01=0x0050, t00=0x006a, t01=0x0020}
0xa59c…a5a4 Head {h00=0x0004, h01=0x0050, t00=0x006a, t01=0x0028}
0xa5a4…a5b8 Head {h00=0x0010, h01=0x0050, text=»TEST23 PROC «, t00=0x006a, t01=0x0030}
0xa5b8…a5ca Head {h00=0x000e, h01=0x0050, text=»* 1-99999 «, t00=0x006a, t01=0x0044}
0xa5ca…a5e4 Head {h00=0x0016, h01=0x0050, text=» MOVE TBCD5,TKBBUF«, t00=0x006a, t01=0x0056}
0xa5e4…a606 Head {h00=0x001e, h01=0x0050, text=» CBL TBCD5,=D'1',TEST2398 «, t00=0x006a, t01=0x0070}
0xa606…a62c Head {h00=0x0022, h01=0x0050, text=» CBG TBCD5,=D'99999',TEST2398 «, t00=0x006a, t01=0x0092}
0xa62c…a63e Head {h00=0x000e, h01=0x0050, text=» CMP W0,W0«, t00=0x006a, t01=0x00b8}
0xa63e…a652 Head {h00=0x0010, h01=0x0050, text=» B TEST2399 «, t00=0x006a, t01=0x00ca}
0xa652…a662 Head {h00=0x000c, h01=0x0050, text=»TEST2398«, t00=0x006a, t01=0x00de}
0xa662…a674 Head {h00=0x000e, h01=0x0050, text=» CMP W0,W1«, t00=0x006a, t01=0x00ee}
0xa674…a684 Head {h00=0x000c, h01=0x0050, text=»TEST2399«, t00=0x006a, t01=0x0100}
0xa684…a690 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x006a, t01=0x0110}
0xa690…a69e Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x006a, t01=0x011c}
0xa69e…a6a6 Head {h00=0x0004, h01=0x0050, t00=0x006a, t01=0x012a}
0xa6a6…a6ae Head {h00=0x0004, h01=0x0050, t00=0x006a, t01=0x0132}
0xa6ae…a6b6 Head {h00=0x0004, h01=0x0050, t00=0x006a, t01=0x013a}
0xa6b6…a6ca Head {h00=0x0010, h01=0x0050, text=»TEST24 PROC «, t00=0x006a, t01=0x0142}
0xa6ca…a6e0 Head {h00=0x0012, h01=0x0050, text=»* ALL FIGS 0-3«, t00=0x006a, t01=0x0156}
0xa6e0…a6f6 Head {h00=0x0012, h01=0x0050, text=» MOVE TBIN8,W1«, t00=0x006a, t01=0x016c}
0xa6f6…a706 Head {h00=0x000c, h01=0x0050, text=»TEST2410«, t00=0x006a, t01=0x0182}
0xa706…a738 (107, 0, 398) Head {h00=0x002e, h01=0x0050, text=» CBG TBIN8,TBIN5,TEST2498 LENGTH EXCEEDED?«, t00=0x006b, t01=0x0004}
0xa738…a760 Head {h00=0x0024, h01=0x0050, text=» XCOPY TSTRG1,W0,W1,TKBBUF,TBIN8«, t00=0x006b, t01=0x0036}
0xa760…a782 Head {h00=0x001e, h01=0x0050, text=» CBE TSTRG1,CNIL,TEST2498 «, t00=0x006b, t01=0x005e}
0xa782…a79c Head {h00=0x0016, h01=0x0050, text=» MOVE TBCD5,TSTRG1«, t00=0x006b, t01=0x0080}
0xa79c…a7be Head {h00=0x001e, h01=0x0050, text=» CBL TBCD5,=D'0',TEST2497 «, t00=0x006b, t01=0x009a}
0xa7be…a7e0 Head {h00=0x001e, h01=0x0050, text=» CBG TBCD5,=D'3',TEST2497 «, t00=0x006b, t01=0x00bc}
0xa7e0…a7f6 Head {h00=0x0012, h01=0x0050, text=» ADD TBIN8,W1 «, t00=0x006b, t01=0x00de}
0xa7f6…a80a Head {h00=0x0010, h01=0x0050, text=» B TEST2410 «, t00=0x006b, t01=0x00f4}
0xa80a…a81a Head {h00=0x000c, h01=0x0050, text=»TEST2497«, t00=0x006b, t01=0x0108}
0xa81a…a82c Head {h00=0x000e, h01=0x0050, text=» CMP W0,W1«, t00=0x006b, t01=0x0118}
0xa82c…a840 Head {h00=0x0010, h01=0x0050, text=» B TEST2499 «, t00=0x006b, t01=0x012a}
0xa840…a850 Head {h00=0x000c, h01=0x0050, text=»TEST2498«, t00=0x006b, t01=0x013e}
0xa850…a862 Head {h00=0x000e, h01=0x0050, text=» CMP W0,W0«, t00=0x006b, t01=0x014e}
0xa862…a872 Head {h00=0x000c, h01=0x0050, text=»TEST2499«, t00=0x006b, t01=0x0160}
0xa872…a87e Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x006b, t01=0x0170}
0xa87e…a88c Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x006b, t01=0x017c}
0xa88c…a894 Head {h00=0x0004, h01=0x0050, t00=0x006b, t01=0x018a}
0xa894…a89c (108, 0, 400) Head {h00=0x0004, h01=0x0050, t00=0x006c, t01=0x0004}
0xa89c…a8a4 Head {h00=0x0004, h01=0x0050, t00=0x006c, t01=0x000c}
0xa8a4…a8b8 Head {h00=0x0010, h01=0x0050, text=»TEST25 PROC «, t00=0x006c, t01=0x0014}
0xa8b8…a8d0 Head {h00=0x0014, h01=0x0050, text=»* 000000-999999 «, t00=0x006c, t01=0x0028}
0xa8d0…a8e2 Head {h00=0x000e, h01=0x0050, text=» CMP W0,W0«, t00=0x006c, t01=0x0040}
0xa8e2…a8ee Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x006c, t01=0x0052}
0xa8ee…a8fc Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x006c, t01=0x005e}
0xa8fc…a904 Head {h00=0x0004, h01=0x0050, t00=0x006c, t01=0x006c}
0xa904…a90c Head {h00=0x0004, h01=0x0050, t00=0x006c, t01=0x0074}
0xa90c…a914 Head {h00=0x0004, h01=0x0050, t00=0x006c, t01=0x007c}
0xa914…a928 Head {h00=0x0010, h01=0x0050, text=»TEST26 PROC «, t00=0x006c, t01=0x0084}
0xa928…a93e Head {h00=0x0012, h01=0x0050, text=»* ALL FIGS 0-4«, t00=0x006c, t01=0x0098}
0xa93e…a954 Head {h00=0x0012, h01=0x0050, text=» MOVE TBIN8,W1«, t00=0x006c, t01=0x00ae}
0xa954…a964 Head {h00=0x000c, h01=0x0050, text=»TEST2610«, t00=0x006c, t01=0x00c4}
0xa964…a996 Head {h00=0x002e, h01=0x0050, text=» CBG TBIN8,TBIN5,TEST2698 LENGTH EXCEEDED?«, t00=0x006c, t01=0x00d4}
0xa996…a9be Head {h00=0x0024, h01=0x0050, text=» XCOPY TSTRG1,W0,W1,TKBBUF,TBIN8«, t00=0x006c, t01=0x0106}
0xa9be…a9e0 Head {h00=0x001e, h01=0x0050, text=» CBE TSTRG1,CNIL,TEST2698 «, t00=0x006c, t01=0x012e}
0xa9e0…a9fa Head {h00=0x0016, h01=0x0050, text=» MOVE TBCD5,TSTRG1«, t00=0x006c, t01=0x0150}
0xa9fa…aa1c Head {h00=0x001e, h01=0x0050, text=» CBL TBCD5,=D'0',TEST2697 «, t00=0x006c, t01=0x016a}
0xaa1c…aa3e Head {h00=0x001e, h01=0x0050, text=» CBG TBCD5,=D'4',TEST2697 «, t00=0x006c, t01=0x018c}
0xaa3e…aa54 Head {h00=0x0012, h01=0x0050, text=» ADD TBIN8,W1 «, t00=0x006d, t01=0x001e}
0xaa54…aa68 Head {h00=0x0010, h01=0x0050, text=» B TEST2610 «, t00=0x006d, t01=0x0034}
0xaa68…aa78 Head {h00=0x000c, h01=0x0050, text=»TEST2697«, t00=0x006d, t01=0x0048}
0xaa78…aa8a Head {h00=0x000e, h01=0x0050, text=» CMP W0,W1«, t00=0x006d, t01=0x0058}
0xaa8a…aa9e Head {h00=0x0010, h01=0x0050, text=» B TEST2699 «, t00=0x006d, t01=0x006a}
0xaa9e…aaae Head {h00=0x000c, h01=0x0050, text=»TEST2698«, t00=0x006d, t01=0x007e}
0xaaae…aac0 Head {h00=0x000e, h01=0x0050, text=» CMP W0,W0«, t00=0x006d, t01=0x008e}
0xaac0…aad0 Head {h00=0x000c, h01=0x0050, text=»TEST2699«, t00=0x006d, t01=0x00a0}
0xaad0…aadc Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x006d, t01=0x00b0}
0xaadc…aaea Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x006d, t01=0x00bc}
0xaaea…aaf2 Head {h00=0x0004, h01=0x0050, t00=0x006d, t01=0x00ca}
0xaaf2…aafa Head {h00=0x0004, h01=0x0050, t00=0x006d, t01=0x00d2}
0xaafa…ab02 Head {h00=0x0004, h01=0x0050, t00=0x006d, t01=0x00da}
0xab02…ab16 Head {h00=0x0010, h01=0x0050, text=»TEST27 PROC «, t00=0x006d, t01=0x00e2}
0xab16…ab30 Head {h00=0x0016, h01=0x0050, text=»* DATOCHECK DD-MM «, t00=0x006d, t01=0x00f6}
0xab30…ab46 Head {h00=0x0012, h01=0x0050, text=» PERF PUSH,W2 «, t00=0x006d, t01=0x0110}
0xab46…ab62 Head {h00=0x0018, h01=0x0050, text=» MOVE TSTRG2,TKBBUF «, t00=0x006d, t01=0x0126}
0xab62…ab7c Head {h00=0x0016, h01=0x0050, text=» MOVE TBCD5,TSTRG2«, t00=0x006d, t01=0x0142}
0xab7c…ab9e Head {h00=0x001e, h01=0x0050, text=» CBL TBCD5,=D'1',TEST2798 «, t00=0x006d, t01=0x015c}
0xab9e…abc0 Head {h00=0x001e, h01=0x0050, text=» CBG TBCD5,=D'31',TEST2798«, t00=0x006d, t01=0x017e}
0xabc0…abda Head {h00=0x0016, h01=0x0050, text=» MOVE TBIN1,TBCD5 «, t00=0x006e, t01=0x0010}
0xabda…ac00 Head {h00=0x0022, h01=0x0050, text=» XCOPY TSTRG2,W0,W2,TKBBUF,W2 «, t00=0x006e, t01=0x002a}
0xac00…ac1a Head {h00=0x0016, h01=0x0050, text=» MOVE TBCD5,TSTRG2«, t00=0x006e, t01=0x0050}
0xac1a…ac3c Head {h00=0x001e, h01=0x0050, text=» CBL TBCD5,=D'1',TEST2798 «, t00=0x006e, t01=0x006a}
0xac3c…ac5e Head {h00=0x001e, h01=0x0050, text=» CBG TBCD5,=D'12',TEST2798«, t00=0x006e, t01=0x008c}
0xac5e…ac78 Head {h00=0x0016, h01=0x0050, text=» MOVE TBIN2,TBCD5 «, t00=0x006e, t01=0x00ae}
0xac78…acae Head {h00=0x0032, h01=0x0050, text=» CBL TBIN1,=W'29',TEST2799 <29 DAYS ALWAYS OK «, t00=0x006e, t01=0x00c8}
0xacae…ace8 Head {h00=0x0036, h01=0x0050, text=» IB TBIN2,TEST2701,TEST2702,TEST2703,TEST2704, C «, t00=0x006e, t01=0x00fe}
0xace8…ad22 Head {h00=0x0036, h01=0x0050, text=» TEST2705,TEST2706,TEST2707,TEST2708,TEST2709, C«, t00=0x006e, t01=0x0138}
0xad22…ad46 Head {h00=0x0020, h01=0x0050, text=» TEST2710,TEST2711,TEST2712«, t00=0x006e, t01=0x0172}
0xad46…ad56 Head {h00=0x000c, h01=0x0050, text=»TEST2701«, t00=0x006f, t01=0x0008}
0xad56…ad66 Head {h00=0x000c, h01=0x0050, text=»TEST2703«, t00=0x006f, t01=0x0018}
0xad66…ad76 Head {h00=0x000c, h01=0x0050, text=»TEST2705«, t00=0x006f, t01=0x0028}
0xad76…ad86 Head {h00=0x000c, h01=0x0050, text=»TEST2707«, t00=0x006f, t01=0x0038}
0xad86…ad96 Head {h00=0x000c, h01=0x0050, text=»TEST2708«, t00=0x006f, t01=0x0048}
0xad96…ada6 Head {h00=0x000c, h01=0x0050, text=»TEST2710«, t00=0x006f, t01=0x0058}
0xada6…adb6 Head {h00=0x000c, h01=0x0050, text=»TEST2712«, t00=0x006f, t01=0x0068}
0xadb6…adca Head {h00=0x0010, h01=0x0050, text=» B TEST2799 «, t00=0x006f, t01=0x0078}
0xadca…adda Head {h00=0x000c, h01=0x0050, text=»TEST2704«, t00=0x006f, t01=0x008c}
0xadda…adea Head {h00=0x000c, h01=0x0050, text=»TEST2706«, t00=0x006f, t01=0x009c}
0xadea…adfa Head {h00=0x000c, h01=0x0050, text=»TEST2709«, t00=0x006f, t01=0x00ac}
0xadfa…ae0a Head {h00=0x000c, h01=0x0050, text=»TEST2711«, t00=0x006f, t01=0x00bc}
0xae0a…ae3a Head {h00=0x002c, h01=0x0050, text=» CBE TBIN1,=W'31',TEST2798 ONLY 30 DAYS «, t00=0x006f, t01=0x00cc}
0xae3a…ae4e Head {h00=0x0010, h01=0x0050, text=» B TEST2799 «, t00=0x006f, t01=0x00fc}
0xae4e…ae5e Head {h00=0x000c, h01=0x0050, text=»TEST2702«, t00=0x006f, t01=0x0110}
0xae5e…ae80 Head {h00=0x001e, h01=0x0050, text=» CBG TBIN1,=W'29',TEST2798«, t00=0x006f, t01=0x0120}
0xae80…ae94 Head {h00=0x0010, h01=0x0050, text=» B TEST2799 «, t00=0x006f, t01=0x0142}
0xae94…aea4 Head {h00=0x000c, h01=0x0050, text=»TEST2798«, t00=0x006f, t01=0x0156}
0xaea4…aeba Head {h00=0x0012, h01=0x0050, text=» PERF PULL,W2 «, t00=0x006f, t01=0x0166}
0xaeba…aecc Head {h00=0x000e, h01=0x0050, text=» CMP W0,W1«, t00=0x006f, t01=0x017c}
0xaecc…aed8 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x006f, t01=0x018e}
0xaed8…aee8 Head {h00=0x000c, h01=0x0050, text=»TEST2799«, t00=0x0070, t01=0x000a}
0xaee8…aefe Head {h00=0x0012, h01=0x0050, text=» PERF PULL,W2 «, t00=0x0070, t01=0x001a}
0xaefe…af10 Head {h00=0x000e, h01=0x0050, text=» CMP W0,W0«, t00=0x0070, t01=0x0030}
0xaf10…af1c Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0070, t01=0x0042}
0xaf1c…af2a Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0070, t01=0x004e}
0xaf2a…af32 Head {h00=0x0004, h01=0x0050, t00=0x0070, t01=0x005c}
0xaf32…af3a Head {h00=0x0004, h01=0x0050, t00=0x0070, t01=0x0064}
0xaf3a…af42 Head {h00=0x0004, h01=0x0050, t00=0x0070, t01=0x006c}
0xaf42…af56 Head {h00=0x0010, h01=0x0050, text=»TEST28 PROC «, t00=0x0070, t01=0x0074}
0xaf56…af64 Head {h00=0x000a, h01=0x0050, text=»* 0-9 «, t00=0x0070, t01=0x0088}
0xaf64…af76 Head {h00=0x000e, h01=0x0050, text=» CMP W0,W0«, t00=0x0070, t01=0x0096}
0xaf76…af86 Head {h00=0x000c, h01=0x0050, text=»TEST2899«, t00=0x0070, t01=0x00a8}
0xaf86…af92 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0070, t01=0x00b8}
0xaf92…afa0 Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0070, t01=0x00c4}
0xafa0…afa8 Head {h00=0x0004, h01=0x0050, t00=0x0070, t01=0x00d2}
0xafa8…afb0 Head {h00=0x0004, h01=0x0050, t00=0x0070, t01=0x00da}
0xafb0…afb8 Head {h00=0x0004, h01=0x0050, t00=0x0070, t01=0x00e2}
0xafb8…afcc Head {h00=0x0010, h01=0x0050, text=»TEST29 PROC «, t00=0x0070, t01=0x00ea}
0xafcc…afe6 Head {h00=0x0016, h01=0x0050, text=» MOVE TBCD5,TKBBUF«, t00=0x0070, t01=0x00fe}
0xafe6…b008 Head {h00=0x001e, h01=0x0050, text=» CBE TBCD5,=D'0',TEST2999 «, t00=0x0070, t01=0x0118}
0xb008…b02a Head {h00=0x001e, h01=0x0050, text=» CBE TBCD5,=D'1',TEST2999 «, t00=0x0070, t01=0x013a}
0xb02a…b04c Head {h00=0x001e, h01=0x0050, text=» CBE TBCD5,=D'2',TEST2999 «, t00=0x0070, t01=0x015c}
0xb04c…b06e Head {h00=0x001e, h01=0x0050, text=» CBE TBCD5,=D'3',TEST2999 «, t00=0x0070, t01=0x017e}
0xb06e…b086 Head {h00=0x0014, h01=0x0050, text=» CMP TBCD5,=D'6'«, t00=0x0071, t01=0x0010}
0xb086…b096 Head {h00=0x000c, h01=0x0050, text=»TEST2999«, t00=0x0071, t01=0x0028}
0xb096…b0a2 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0071, t01=0x0038}
0xb0a2…b0b0 Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0071, t01=0x0044}
0xb0b0…b0b8 Head {h00=0x0004, h01=0x0050, t00=0x0071, t01=0x0052}
0xb0b8…b0c0 Head {h00=0x0004, h01=0x0050, t00=0x0071, t01=0x005a}
0xb0c0…b0c8 Head {h00=0x0004, h01=0x0050, t00=0x0071, t01=0x0062}
0xb0c8…b0dc Head {h00=0x0010, h01=0x0050, text=»TEST30 PROC «, t00=0x0071, t01=0x006a}
0xb0dc…b0ee Head {h00=0x000e, h01=0x0050, text=» CMP W0,W0«, t00=0x0071, t01=0x007e}
0xb0ee…b0fa Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0071, t01=0x0090}
0xb0fa…b108 Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0071, t01=0x009c}
0xb108…b110 Head {h00=0x0004, h01=0x0050, t00=0x0071, t01=0x00aa}
0xb110…b118 Head {h00=0x0004, h01=0x0050, t00=0x0071, t01=0x00b2}
0xb118…b120 Head {h00=0x0004, h01=0x0050, t00=0x0071, t01=0x00ba}
0xb120…b134 Head {h00=0x0010, h01=0x0050, text=»TEST31 PROC«, t00=0x0071, t01=0x00c2}
0xb134…b142 Head {h00=0x000a, h01=0x0050, text=»* 0-6 «, t00=0x0071, t01=0x00d6}
0xb142…b15c Head {h00=0x0016, h01=0x0050, text=» MOVE TBCD5,TKBBUF«, t00=0x0071, t01=0x00e4}
0xb15c…b17e Head {h00=0x001e, h01=0x0050, text=» CBL TBCD5,=D'0',TEST3198 «, t00=0x0071, t01=0x00fe}
0xb17e…b1a0 Head {h00=0x001e, h01=0x0050, text=» CBG TBCD5,=D'6',TEST3198 «, t00=0x0071, t01=0x0120}
0xb1a0…b1b2 Head {h00=0x000e, h01=0x0050, text=» CMP W0,W0«, t00=0x0071, t01=0x0142}
0xb1b2…b1be Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0071, t01=0x0154}
0xb1be…b1ce Head {h00=0x000c, h01=0x0050, text=»TEST3198«, t00=0x0071, t01=0x0160}
0xb1ce…b1e0 Head {h00=0x000e, h01=0x0050, text=» CMP W0,W1«, t00=0x0071, t01=0x0170}
0xb1e0…b1ec Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0071, t01=0x0182}
0xb1ec…b1fa Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0071, t01=0x018e}
0xb1fa…b202 Head {h00=0x0004, h01=0x0050, t00=0x0072, t01=0x000c}
0xb202…b20a Head {h00=0x0004, h01=0x0050, t00=0x0072, t01=0x0014}
0xb20a…b212 Head {h00=0x0004, h01=0x0050, t00=0x0072, t01=0x001c}
0xb212…b220 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0072, t01=0x0024}
0xb220…b232 Head {h00=0x000e, h01=0x0050, text=»KBINP PROC«, t00=0x0072, t01=0x0032}
0xb232…b23c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0072, t01=0x0044}
0xb23c…b26e Head {h00=0x002e, h01=0x0050, text=»* THIS PROCEDURE SCANS THE FIELD-TABLE AND«, t00=0x0072, t01=0x004e}
0xb26e…b2b0 Head {h00=0x003e, h01=0x0050, text=»* EXECUTES A KB-INPUT FOR EVERY ELEMENT IF TALLFLD IS SET,«, t00=0x0072, t01=0x0080}
0xb2b0…b2e8 Head {h00=0x0034, h01=0x0050, text=»* OTHERWISE, ONLY THE FLAGGED FIELDS ARE TREATED«, t00=0x0072, t01=0x00c2}
0xb2e8…b31c Head {h00=0x0030, h01=0x0050, text=»* THE LAYOUT OF THE FIELDTABLE CAN BE FOUND «, t00=0x0072, t01=0x00fa}
0xb31c…b33a Head {h00=0x001a, h01=0x0050, text=»* IN THE DATADIVISION.«, t00=0x0072, t01=0x012e}
0xb33a…b344 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0072, t01=0x014c}
0xb344…b368 Head {h00=0x0020, h01=0x0050, text=»* A 'KI' IS TERMINATED AFTER«, t00=0x0072, t01=0x0156}
0xb368…b386 Head {h00=0x001a, h01=0x0050, text=»* 1. LENGTH EXCEEDED«, t00=0x0072, t01=0x017a}
0xb386…b3a4 Head {h00=0x001a, h01=0x0050, text=»* 2. TABKEYS PRESSED«, t00=0x0073, t01=0x0008}
0xb3a4…b3c8 Head {h00=0x0020, h01=0x0050, text=»* 3. FUNCTION KEY PRESSED «, t00=0x0073, t01=0x0026}
0xb3c8…b3e6 Head {h00=0x001a, h01=0x0050, text=»* 4. KEYLOCK TURNED «, t00=0x0073, t01=0x004a}
0xb3e6…b402 Head {h00=0x0018, h01=0x0050, text=»* 5. POWER OFF/ON «, t00=0x0073, t01=0x0068}
0xb402…b40c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0073, t01=0x0084}
0xb40c…b43c Head {h00=0x002c, h01=0x0050, text=»* THE FOLLOWING BITS IN EL.4 MAY BE SET:«, t00=0x0073, t01=0x008e}
0xb43c…b464 Head {h00=0x0024, h01=0x0050, text=»* 0. DATA ERROR (INVALID DATA)«, t00=0x0073, t01=0x00be}
0xb464…b47e Head {h00=0x0016, h01=0x0050, text=»* 1. MUST-ENTER «, t00=0x0073, t01=0x00e6}
0xb47e…b49c Head {h00=0x001a, h01=0x0050, text=»* 2. FIELD MODIFIED «, t00=0x0073, t01=0x0100}
0xb49c…b4a6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0073, t01=0x011e}
0xb4a6…b4e6 Head {h00=0x003c, h01=0x0050, text=»* THE BINARY FIELDS ARE USED FOR THE FOLLOWING PURPOSES:«, t00=0x0073, t01=0x0128}
0xb4e6…b51e Head {h00=0x0034, h01=0x0050, text=»* TBIN1 - LOOP CONTROL (NUMBER OF INPUT FIELDS) «, t00=0x0073, t01=0x0168}
0xb51e…b544 Head {h00=0x0022, h01=0x0050, text=»* TBIN2 - 'NEW' CURRENT FIELD «, t00=0x0074, t01=0x0010}
0xb544…b56e Head {h00=0x0026, h01=0x0050, text=»* TBIN3 - SCRATCH / CURSORPOSITION«, t00=0x0074, t01=0x0036}
0xb56e…b58c Head {h00=0x001a, h01=0x0050, text=»* TBIN4 - FIELD INDEX «, t00=0x0074, t01=0x0060}
0xb58c…b5aa Head {h00=0x001a, h01=0x0050, text=»* TBIN5 - FIELD LENGTH«, t00=0x0074, t01=0x007e}
0xb5aa…b5d2 Head {h00=0x0024, h01=0x0050, text=»* TBIN6 - INDEX TO USED END-KEY «, t00=0x0074, t01=0x009c}
0xb5d2…b5f8 Head {h00=0x0022, h01=0x0050, text=»* TBIN7 - 'OLD' CURRENT FIELD «, t00=0x0074, t01=0x00c4}
0xb5f8…b62c Head {h00=0x0030, h01=0x0050, text=»* TBIN8 - RETURN VALUE FROM READKB / SCRATCH«, t00=0x0074, t01=0x00ea}
0xb62c…b634 Head {h00=0x0004, h01=0x0050, t00=0x0074, t01=0x011e}
0xb634…b63c Head {h00=0x0004, h01=0x0050, t00=0x0074, t01=0x0126}
0xb63c…b64a Head {h00=0x000a, h01=0x0050, text=»KB000 «, t00=0x0074, t01=0x012e}
0xb64a…b660 Head {h00=0x0012, h01=0x0050, text=» CLEAR TNODEP «, t00=0x0074, t01=0x013c}
0xb660…b69a Head {h00=0x0036, h01=0x0050, text=» MOVE TBIN1,FLDTAB(W1,W1) NBR OF FIELDS TO BE READ«, t00=0x0074, t01=0x0152}
0xb69a…b6c6 Head {h00=0x0028, h01=0x0050, text=» MOVE TBIN2,W2 FIRST ENTRY IN FLDTAB«, t00=0x0074, t01=0x018c}
0xb6c6…b6e0 Head {h00=0x0016, h01=0x0050, text=» TBT TALLFLD,KB015«, t00=0x0075, t01=0x0028}
0xb6e0…b6fa Head {h00=0x0016, h01=0x0050, text=» MOVE TBIN3,TBIN1 «, t00=0x0075, t01=0x0042}
0xb6fa…b710 Head {h00=0x0012, h01=0x0050, text=» ADD TBIN3,W1 «, t00=0x0075, t01=0x005c}
0xb710…b71e Head {h00=0x000a, h01=0x0050, text=»KB011 «, t00=0x0075, t01=0x0072}
0xb71e…b74e Head {h00=0x002c, h01=0x0050, text=» CALL BITTST,FLDTAB(TBIN2,W4),W0 ERROR? «, t00=0x0075, t01=0x0080}
0xb74e…b770 Head {h00=0x001e, h01=0x0050, text=» BNZ KB012 YES, WRITE TEXT«, t00=0x0075, t01=0x00b0}
0xb770…b790 Head {h00=0x001c, h01=0x0050, text=» ADD TBIN2,W1 NEXT FIELD«, t00=0x0075, t01=0x00d2}
0xb790…b7be Head {h00=0x002a, h01=0x0050, text=» CBNG TBIN2,TBIN3,KB011 OUT OF TABLE? «, t00=0x0075, t01=0x00f2}
0xb7be…b7d2 Head {h00=0x0010, h01=0x0050, text=» SET TALLFLD«, t00=0x0075, t01=0x0120}
0xb7d2…b7e2 Head {h00=0x000c, h01=0x0050, text=» B KB000«, t00=0x0075, t01=0x0134}
0xb7e2…b7f0 Head {h00=0x000a, h01=0x0050, text=»KB012 «, t00=0x0075, t01=0x0144}
0xb7f0…b828 Head {h00=0x0034, h01=0x0050, text=» MOVE TBIN3,FLDTAB(TBIN2,W4) ERRORMSG (NUM.PART)«, t00=0x0075, t01=0x0152}
0xb828…b854 Head {h00=0x0028, h01=0x0050, text=» CALL GMSGIX,TBIN3 ISOLATE ERRORNBR «, t00=0x0075, t01=0x018a}
0xb854…b86c Head {h00=0x0014, h01=0x0050, text=» TBT TCHNG,KB013«, t00=0x0076, t01=0x0026}
0xb86c…b896 Head {h00=0x0026, h01=0x0050, text=» PERF PDUWRT,TBIN3,W4 WRITE ON PDU«, t00=0x0076, t01=0x003e}
0xb896…b8a6 Head {h00=0x000c, h01=0x0050, text=» B KB015«, t00=0x0076, t01=0x0068}
0xb8a6…b8b4 Head {h00=0x000a, h01=0x0050, text=»KB013 «, t00=0x0076, t01=0x0078}
0xb8b4…b8e4 Head {h00=0x002c, h01=0x0050, text=» PERF PDUWRT,TBIN3,W6 LINE 6= ERRORLINE «, t00=0x0076, t01=0x0086}
0xb8e4…b8f2 Head {h00=0x000a, h01=0x0050, text=»KB015 «, t00=0x0076, t01=0x00b6}
0xb8f2…b928 Head {h00=0x0032, h01=0x0050, text=» MOVE TBIN7,TBIN2 SAVE INDEX TO CURRENT FIELD «, t00=0x0076, t01=0x00c4}
0xb928…b95e Head {h00=0x0032, h01=0x0050, text=» MOVE TCURPOS,FLDTAB(TBIN2,W1) START OF FIELD «, t00=0x0076, t01=0x00fa}
0xb95e…b98c Head {h00=0x002a, h01=0x0050, text=» DSC1 PDU,POS,TCURPOS POSITION CURSOR «, t00=0x0076, t01=0x0130}
0xb98c…b9b0 Head {h00=0x0020, h01=0x0050, text=» MOVE TBIN4,FLDTAB(TBIN2,W4)«, t00=0x0076, t01=0x015e}
0xb9b0…b9d6 Head {h00=0x0022, h01=0x0050, text=» CALL GFLDIX,TBIN4 FIELD INDEX«, t00=0x0076, t01=0x0182}
0xb9d6…ba06 Head {h00=0x002c, h01=0x0050, text=» MOVE TP1,FLDTAB(TBIN2,W3) FIELD LENGTH «, t00=0x0077, t01=0x0018}
0xba06…ba24 Head {h00=0x001a, h01=0x0050, text=» PERF READKB READ DATA«, t00=0x0077, t01=0x0048}
0xba24…ba4c Head {h00=0x0024, h01=0x0050, text=» MOVE TBIN5,TP1 RETURNED LENGTH «, t00=0x0077, t01=0x0066}
0xba4c…ba72 Head {h00=0x0022, h01=0x0050, text=» MOVE TBIN6,TP2 INDEX TOKEYTAB«, t00=0x0077, t01=0x008e}
0xba72…ba88 Head {h00=0x0012, h01=0x0050, text=» IB TBIN8, C «, t00=0x0077, t01=0x00b4}
0xba88…bab6 Head {h00=0x002a, h01=0x0050, text=» KB060, POWER FAILURE, DO AN UNPACK C«, t00=0x0077, t01=0x00ca}
0xbab6…bae6 Head {h00=0x002c, h01=0x0050, text=» KB015, KEYLOCK TURNED, RESTART INPUT C«, t00=0x0077, t01=0x00f8}
0xbae6…bb0c Head {h00=0x0022, h01=0x0050, text=» KB020, REQ.LENGTH EXCEEDED C«, t00=0x0077, t01=0x0128}
0xbb0c…bb34 Head {h00=0x0024, h01=0x0050, text=» KB030, NORMAL END OF INPUT, C «, t00=0x0077, t01=0x014e}
0xbb34…bb58 Head {h00=0x0020, h01=0x0050, text=» KB000 TIMEOUT ON KEYBOARD «, t00=0x0077, t01=0x0176}
0xbb58…bb66 Head {h00=0x000a, h01=0x0050, text=»KB020 «, t00=0x0078, t01=0x000a}
0xbb66…bb8c Head {h00=0x0022, h01=0x0050, text=» SET TAUTOTAB SIMULATE FTABKEY«, t00=0x0078, t01=0x0018}
0xbb8c…bbc0 Head {h00=0x0030, h01=0x0050, text=» XCOPY TKBBUF,TBIN5,W1,W4,W1 INSERT FTABKEY «, t00=0x0078, t01=0x003e}
0xbbc0…bbe4 Head {h00=0x0020, h01=0x0050, text=» ADD TBIN5,W1 ADJUST LENGTH «, t00=0x0078, t01=0x0072}
0xbbe4…bbfa Head {h00=0x0012, h01=0x0050, text=» MOVE TBIN6,W4«, t00=0x0078, t01=0x0096}
0xbbfa…bc08 Head {h00=0x000a, h01=0x0050, text=»KB030 «, t00=0x0078, t01=0x00ac}
0xbc08…bc36 Head {h00=0x002a, h01=0x0050, text=» PERFI TBIN6, FUNCTIONKEY DEPRESSED C «, t00=0x0078, t01=0x00ba}
0xbc36…bc6e Head {h00=0x0034, h01=0x0050, text=» FUNC01,FUNC01,FUNC03,FUNC04,FUNC05,FUNC06, C «, t00=0x0078, t01=0x00e8}
0xbc6e…bca6 Head {h00=0x0034, h01=0x0050, text=» FUNC07,FUNC01,FUNC01,FUNC01,FUNC01,FUNC01, C «, t00=0x0078, t01=0x0120}
0xbca6…bcde Head {h00=0x0034, h01=0x0050, text=» FUNC01,FUNC01,FUNC15,FUNC00,FUNC17,FUNC18, C «, t00=0x0078, t01=0x0158}
0xbcde…bd16 Head {h00=0x0034, h01=0x0050, text=» FUNC00,FUNC00,FUNC01,FUNC01,FUNC00,FUNC24, C «, t00=0x0078, t01=0x0190}
0xbd16…bd3c Head {h00=0x0022, h01=0x0050, text=» FUNC00,FUNC00,FUNC01,FUNC01 «, t00=0x0079, t01=0x0038}
0xbd3c…bd5e Head {h00=0x001e, h01=0x0050, text=» IB TBIN6, RESTARTPOINT C «, t00=0x0079, t01=0x005e}
0xbd5e…bd90 Head {h00=0x002e, h01=0x0050, text=» KB034,KB034,KB034,KB034,KB015,KB000, C «, t00=0x0079, t01=0x0080}
0xbd90…bdc2 Head {h00=0x002e, h01=0x0050, text=» KB034,KB034,KB034,KB034,KB034,KB034, C «, t00=0x0079, t01=0x00b2}
0xbdc2…bdf4 Head {h00=0x002e, h01=0x0050, text=» KB034,KB034,KB032,KB033,KB034,KB032, C «, t00=0x0079, t01=0x00e4}
0xbdf4…be26 Head {h00=0x002e, h01=0x0050, text=» KB034,KB034,KB034,KB034,KB034,KB034, C «, t00=0x0079, t01=0x0116}
0xbe26…be48 Head {h00=0x001e, h01=0x0050, text=» KB015,KB034,KB034,KB034 «, t00=0x0079, t01=0x0148}
0xbe48…be58 Head {h00=0x000c, h01=0x0050, text=» B KB034«, t00=0x0079, t01=0x016a}
0xbe58…be66 Head {h00=0x000a, h01=0x0050, text=»KB032 «, t00=0x0079, t01=0x017a}
0xbe66…be74 Head {h00=0x000a, h01=0x0050, text=»KB033 «, t00=0x0079, t01=0x0188}
0xbe74…be8a Head {h00=0x0012, h01=0x0050, text=» MOVE TBIN2,W2«, t00=0x007a, t01=0x0008}
0xbe8a…be98 Head {h00=0x000a, h01=0x0050, text=»KB034 «, t00=0x007a, t01=0x001e}
0xbe98…becc Head {h00=0x0030, h01=0x0050, text=» CBE TBIN5,W0,KB051 IF L=0, IT WAS FUNCTION «, t00=0x007a, t01=0x002c}
0xbecc…bef0 Head {h00=0x0020, h01=0x0050, text=» MOVE TBIN8,FLDTAB(TBIN7,W2)«, t00=0x007a, t01=0x0060}
0xbef0…bf1c Head {h00=0x0028, h01=0x0050, text=» XCOPY OUTBUF,TBIN8,TBIN5,TKBBUF,W0 «, t00=0x007a, t01=0x0084}
0xbf1c…bf52 Head {h00=0x0032, h01=0x0050, text=» CALL BITON,FLDTAB(TBIN7,W4),W2 SET 'MODIFIED'«, t00=0x007a, t01=0x00b0}
0xbf52…bf88 Head {h00=0x0032, h01=0x0050, text=» XCOPY TKBBUF,W0,FLDTAB(TBIN7,W3),OUTBUF,TBIN8«, t00=0x007a, t01=0x00e6}
0xbf88…bfae Head {h00=0x0022, h01=0x0050, text=» CMP W0,W0 SET COND.REG. TIL 0«, t00=0x007a, t01=0x011c}
0xbfae…bfd6 Head {h00=0x0024, h01=0x0050, text=» PERFI TBIN4, FIELD VALIDATION C«, t00=0x007a, t01=0x0142}
0xbfd6…c006 Head {h00=0x002c, h01=0x0050, text=» TEST01,TEST02,TEST03,TEST04,TEST05, C«, t00=0x007a, t01=0x016a}
0xc006…c036 Head {h00=0x002c, h01=0x0050, text=» TEST06,TEST07,TEST08,TEST09,TEST10, C«, t00=0x007b, t01=0x000a}
0xc036…c066 Head {h00=0x002c, h01=0x0050, text=» TEST11,TEST12,TEST13,TEST14,TEST15, C«, t00=0x007b, t01=0x003a}
0xc066…c096 Head {h00=0x002c, h01=0x0050, text=» TEST16,TEST17,TEST18,TEST19,TEST20, C«, t00=0x007b, t01=0x006a}
0xc096…c0c6 Head {h00=0x002c, h01=0x0050, text=» TEST21,TEST22,TEST23,TEST24,TEST25, C«, t00=0x007b, t01=0x009a}
0xc0c6…c0f6 Head {h00=0x002c, h01=0x0050, text=» TEST26,TEST27,TEST28,TEST29,TEST30, C«, t00=0x007b, t01=0x00ca}
0xc0f6…c106 Head {h00=0x000c, h01=0x0050, text=» TEST31«, t00=0x007b, t01=0x00fa}
0xc106…c124 Head {h00=0x001a, h01=0x0050, text=» BOK KB040 NO ERRORS? «, t00=0x007b, t01=0x010a}
0xc124…c15a Head {h00=0x0032, h01=0x0050, text=» CALL BITON,FLDTAB(TBIN7,W4),W0 INDICATE ERROR«, t00=0x007b, t01=0x0128}
0xc15a…c16a Head {h00=0x000c, h01=0x0050, text=» B KB050«, t00=0x007b, t01=0x015e}
0xc16a…c178 Head {h00=0x000a, h01=0x0050, text=»KB040 «, t00=0x007b, t01=0x016e}
0xc178…c1aa Head {h00=0x002e, h01=0x0050, text=» CALL BITOFF,FLDTAB(TBIN7,W4),W0 FIELD OK «, t00=0x007b, t01=0x017c}
0xc1aa…c1b8 Head {h00=0x000a, h01=0x0050, text=»KB050 «, t00=0x007c, t01=0x001e}
0xc1b8…c1c6 Head {h00=0x000a, h01=0x0050, text=»KB051 «, t00=0x007c, t01=0x002c}
0xc1c6…c1dc Head {h00=0x0012, h01=0x0050, text=» IB TBIN6, C «, t00=0x007c, t01=0x003a}
0xc1dc…c20e Head {h00=0x002e, h01=0x0050, text=» KB090,KB090,KB052,KB052,KB052,KB090, C «, t00=0x007c, t01=0x0050}
0xc20e…c240 Head {h00=0x002e, h01=0x0050, text=» KB080,KB090,KB090,KB090,KB090,KB090, C «, t00=0x007c, t01=0x0082}
0xc240…c272 Head {h00=0x002e, h01=0x0050, text=» KB090,KB090,KB090,KB000,KB015,KB090, C «, t00=0x007c, t01=0x00b4}
0xc272…c2a4 Head {h00=0x002e, h01=0x0050, text=» KB090,KB090,KB090,KB090,KB055,KB055, C «, t00=0x007c, t01=0x00e6}
0xc2a4…c2c6 Head {h00=0x001e, h01=0x0050, text=» KB090,KB080,KB090,KB090 «, t00=0x007c, t01=0x0118}
0xc2c6…c2d4 Head {h00=0x000a, h01=0x0050, text=»KB052 «, t00=0x007c, t01=0x013a}
0xc2d4…c30a Head {h00=0x0032, h01=0x0050, text=» CBNE TBIN2,TBIN7,KB015 IF DIFFERENT, TBIN2 OK«, t00=0x007c, t01=0x0148}
0xc30a…c318 Head {h00=0x000a, h01=0x0050, text=»KB055 «, t00=0x007c, t01=0x017e}
0xc318…c32e Head {h00=0x0012, h01=0x0050, text=» ADD TBIN2,W1 «, t00=0x007c, t01=0x018c}
0xc32e…c348 Head {h00=0x0016, h01=0x0050, text=» MOVE TBIN7,TBIN1 «, t00=0x007d, t01=0x0012}
0xc348…c35e Head {h00=0x0012, h01=0x0050, text=» ADD TBIN7,W1 «, t00=0x007d, t01=0x002c}
0xc35e…c37e Head {h00=0x001c, h01=0x0050, text=» CBNG TBIN2,TBIN7,KB015 «, t00=0x007d, t01=0x0042}
0xc37e…c3aa Head {h00=0x0028, h01=0x0050, text=» TBF TALLFLD,KB090 ERROR CORRECTION?«, t00=0x007d, t01=0x0062}
0xc3aa…c3d4 Head {h00=0x0026, h01=0x0050, text=» B KB000 WRAP AROUND IF DATAENTRY «, t00=0x007d, t01=0x008e}
0xc3d4…c3dc Head {h00=0x0004, h01=0x0050, t00=0x007d, t01=0x00b8}
0xc3dc…c402 Head {h00=0x0022, h01=0x0050, text=»KB060 POWER FAILURE DETECTED«, t00=0x007d, t01=0x00c0}
0xc402…c42c Head {h00=0x0026, h01=0x0050, text=» MOVE PRINTFLG,=W'-1' NO PRINTING «, t00=0x007d, t01=0x00e6}
0xc42c…c442 Head {h00=0x0012, h01=0x0050, text=» SET TPOWFAIL «, t00=0x007d, t01=0x0110}
0xc442…c452 Head {h00=0x000c, h01=0x0050, text=» B KB090«, t00=0x007d, t01=0x0126}
0xc452…c460 Head {h00=0x000a, h01=0x0050, text=»KB080 «, t00=0x007d, t01=0x0136}
0xc460…c484 Head {h00=0x0020, h01=0x0050, text=» CLEAR TALTBUF ETX/SEND ONLY«, t00=0x007d, t01=0x0144}
0xc484…c492 Head {h00=0x000a, h01=0x0050, text=»KB090 «, t00=0x007d, t01=0x0168}
0xc492…c49e Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x007d, t01=0x0176}
0xc49e…c4ac Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x007d, t01=0x0182}
0xc4ac…c4ba Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x007d, t01=0x0190}
0xc4ba…c4ce Head {h00=0x0010, h01=0x0050, text=»READKB PROC «, t00=0x007e, t01=0x000e}
0xc4ce…c506 Head {h00=0x0034, h01=0x0050, text=»* THE PROCEDURE READS A FIELD FROM THE KEYBOARD.«, t00=0x007e, t01=0x0022}
0xc506…c51c Head {h00=0x0012, h01=0x0050, text=»* PARAMETERS: «, t00=0x007e, t01=0x005a}
0xc51c…c538 Head {h00=0x0018, h01=0x0050, text=»* TP1 - FIELD LENGTH«, t00=0x007e, t01=0x0070}
0xc538…c554 Head {h00=0x0018, h01=0x0050, text=»* RETURNED BINARIES:«, t00=0x007e, t01=0x008c}
0xc554…c574 Head {h00=0x001c, h01=0x0050, text=»* TP1 - EFFECTIVE LENGTH«, t00=0x007e, t01=0x00a8}
0xc574…c594 Head {h00=0x001c, h01=0x0050, text=»* TP2 - INDEX TO KEYTAB «, t00=0x007e, t01=0x00c8}
0xc594…c5b6 Head {h00=0x001e, h01=0x0050, text=»* TBIN8 - 1=POWER FAILURE «, t00=0x007e, t01=0x00e8}
0xc5b6…c5d8 Head {h00=0x001e, h01=0x0050, text=»* 2=KEYLOCK TURNED«, t00=0x007e, t01=0x010a}
0xc5d8…c5f4 Head {h00=0x0018, h01=0x0050, text=»* 3=OVERFLOW«, t00=0x007e, t01=0x012c}
0xc5f4…c60e Head {h00=0x0016, h01=0x0050, text=»* 4=NORMAL«, t00=0x007e, t01=0x0148}
0xc60e…c632 Head {h00=0x0020, h01=0x0050, text=»* 5=KEYBOARDTIMEOUT«, t00=0x007e, t01=0x0162}
0xc632…c648 Head {h00=0x0012, h01=0x0050, text=» PERF PUSH,W4 «, t00=0x007e, t01=0x0186}
0xc648…c660 Head {h00=0x0014, h01=0x0050, text=» CLEAR TAUTOTAB «, t00=0x007f, t01=0x000c}
0xc660…c68a Head {h00=0x0026, h01=0x0050, text=» MOVE TBIN3,TP1 SAVE FIELD LENGTH «, t00=0x007f, t01=0x0024}
0xc68a…c69e Head {h00=0x0010, h01=0x0050, text=» PERF KBREAD«, t00=0x007f, t01=0x004e}
0xc69e…c6b2 Head {h00=0x0010, h01=0x0050, text=» BERR RKB010«, t00=0x007f, t01=0x0062}
0xc6b2…c6c6 Head {h00=0x0010, h01=0x0050, text=» CMP TP2,W0 «, t00=0x007f, t01=0x0076}
0xc6c6…c6e6 Head {h00=0x001c, h01=0x0050, text=» BE RKB020 POWER FAILURE«, t00=0x007f, t01=0x008a}
0xc6e6…c708 Head {h00=0x001e, h01=0x0050, text=» BL RKB030 KEYLOCK TURNED «, t00=0x007f, t01=0x00aa}
0xc708…c72e Head {h00=0x0022, h01=0x0050, text=» CBE TP2,=W'33',RKB060 TIMEOUT«, t00=0x007f, t01=0x00cc}
0xc72e…c740 Head {h00=0x000e, h01=0x0050, text=» B RKB050 «, t00=0x007f, t01=0x00f2}
0xc740…c74e Head {h00=0x000a, h01=0x0050, text=»RKB010«, t00=0x007f, t01=0x0104}
0xc74e…c77a Head {h00=0x0028, h01=0x0050, text=»* NOW ONE OF THREE THINGS HAPPENED: «, t00=0x007f, t01=0x0112}
0xc77a…c7b2 Head {h00=0x0034, h01=0x0050, text=»* CASE 2: NEITHER ALPHANUM NOR LISTED IN KEYTAB «, t00=0x007f, t01=0x013e}
0xc7b2…c7f0 Head {h00=0x003a, h01=0x0050, text=»* CASE 3: OVERFLOW IN DATAITEM (SHOULD BE IMPOSSIBLE) «, t00=0x007f, t01=0x0176}
0xc7f0…c818 Head {h00=0x0024, h01=0x0050, text=»* CASE 5: NBR OF CHARS. REACHED «, t00=0x0080, t01=0x0024}
0xc818…c846 Head {h00=0x002a, h01=0x0050, text=» CBE TP2,TBIN3,RKB040 THIS WAS CASE 5 «, t00=0x0080, t01=0x004c}
0xc846…c868 Head {h00=0x001e, h01=0x0050, text=»* NOW ONLY CASE 2 IS LEFT «, t00=0x0080, t01=0x007a}
0xc868…c8a0 Head {h00=0x0034, h01=0x0050, text=»* THIS IS CONSIDERED TO BE IMPOSSIBLE, RIGHT NOW«, t00=0x0080, t01=0x009c}
0xc8a0…c8b2 Head {h00=0x000e, h01=0x0050, text=» B RKB050 «, t00=0x0080, t01=0x00d4}
0xc8b2…c8d0 Head {h00=0x001a, h01=0x0050, text=»RKB020 POWER FAILURE«, t00=0x0080, t01=0x00e6}
0xc8d0…c8e6 Head {h00=0x0012, h01=0x0050, text=» MOVE TBIN8,W1«, t00=0x0080, t01=0x0104}
0xc8e6…c8f8 Head {h00=0x000e, h01=0x0050, text=» B RKB090 «, t00=0x0080, t01=0x011a}
0xc8f8…c918 Head {h00=0x001c, h01=0x0050, text=»RKB030 KEYLOCK TURNED «, t00=0x0080, t01=0x012c}
0xc918…c92c Head {h00=0x0010, h01=0x0050, text=» PERF LCKSET«, t00=0x0080, t01=0x014c}
0xc92c…c942 Head {h00=0x0012, h01=0x0050, text=» MOVE TBIN8,W2«, t00=0x0080, t01=0x0160}
0xc942…c954 Head {h00=0x000e, h01=0x0050, text=» B RKB090 «, t00=0x0080, t01=0x0176}
0xc954…c978 Head {h00=0x0020, h01=0x0050, text=»RKB040 TOO MANY INPUTCHARS«, t00=0x0080, t01=0x0188}
0xc978…c98e Head {h00=0x0012, h01=0x0050, text=» MOVE TBIN8,W3«, t00=0x0081, t01=0x001c}
0xc98e…c9a0 Head {h00=0x000e, h01=0x0050, text=» B RKB090 «, t00=0x0081, t01=0x0032}
0xc9a0…c9b8 Head {h00=0x0014, h01=0x0050, text=»RKB050 NORMAL «, t00=0x0081, t01=0x0044}
0xc9b8…c9ce Head {h00=0x0012, h01=0x0050, text=» MOVE TBIN8,W4«, t00=0x0081, t01=0x005c}
0xc9ce…c9e0 Head {h00=0x000e, h01=0x0050, text=» B RKB090 «, t00=0x0081, t01=0x0072}
0xc9e0…c9ee Head {h00=0x000a, h01=0x0050, text=»RKB060«, t00=0x0081, t01=0x0084}
0xc9ee…ca04 Head {h00=0x0012, h01=0x0050, text=» MOVE TBIN8,W5«, t00=0x0081, t01=0x0092}
0xca04…ca12 Head {h00=0x000a, h01=0x0050, text=»RKB090«, t00=0x0081, t01=0x00a8}
0xca12…ca28 Head {h00=0x0012, h01=0x0050, text=» PERF PULL,W4 «, t00=0x0081, t01=0x00b6}
0xca28…ca34 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0081, t01=0x00cc}
0xca34…ca42 Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0081, t01=0x00d8}
0xca42…ca50 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0081, t01=0x00e6}
0xca50…ca64 Head {h00=0x0010, h01=0x0050, text=»KBREAD PROC «, t00=0x0081, t01=0x00f4}
0xca64…ca6e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0081, t01=0x0108}
0xca6e…ca9c Head {h00=0x002a, h01=0x0050, text=»* THE PROCEDURE READS FROM THE KB6272.«, t00=0x0081, t01=0x0112}
0xca9c…cab2 Head {h00=0x0012, h01=0x0050, text=»* PARAMETERS: «, t00=0x0081, t01=0x0140}
0xcab2…cafa Head {h00=0x0044, h01=0x0050, text=»* TP1 - HOW MANY CHARACTERS TO READ (MAX), ON RETURN THIS ITEM«, t00=0x0081, t01=0x0156}
0xcafa…cb36 Head {h00=0x0038, h01=0x0050, text=»* WILL CONTAIN THE ACTUAL NBR OF CHARS READ «, t00=0x0082, t01=0x000e}
0xcb36…cb86 Head {h00=0x004c, h01=0x0050, text=»* TP2 - ON COMPLETION THIS ITEM WILL POINT AT THE END-OF-ITEM KEY USED«, t00=0x0082, t01=0x004a}
0xcb86…cb90 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0082, t01=0x009a}
0xcb90…cbac Head {h00=0x0018, h01=0x0050, text=»* SPECIAL FEATURES: «, t00=0x0082, t01=0x00a4}
0xcbac…cbee Head {h00=0x003e, h01=0x0050, text=»* BSP - BACKSPACE - NON-DESTRUCTIVE CURSOR MOVE TO LEFT «, t00=0x0082, t01=0x00c0}
0xcbee…cc30 Head {h00=0x003e, h01=0x0050, text=»* FSP - FWDSPACE - NON-DESTRUCTIVE CURSORMOVE TO RIGHT «, t00=0x0082, t01=0x0102}
0xcc30…cc3a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0082, t01=0x0144}
0xcc3a…cc68 Head {h00=0x002a, h01=0x0050, text=»* TBIN1 - LENGTH OF JUST COMPLETE 'KI'«, t00=0x0082, t01=0x014e}
0xcc68…ccb2 Head {h00=0x0046, h01=0x0050, text=»* TBIN2 - ORIG. LENGTH, DECREMENTS TO ZERO WHEN ALL POS ARE INPUT «, t00=0x0082, t01=0x017c}
0xccb2…ccdc Head {h00=0x0026, h01=0x0050, text=»* TBIN3 - DISPLACEMENT IN TSTRG40 «, t00=0x0083, t01=0x0036}
0xccdc…ccfa Head {h00=0x001a, h01=0x0050, text=»* TBIN4 - ORIG. LENGTH«, t00=0x0083, t01=0x0060}
0xccfa…cd1e Head {h00=0x0020, h01=0x0050, text=»* TBIN5 - INDEX TO KEYTABLE «, t00=0x0083, t01=0x007e}
0xcd1e…cd38 Head {h00=0x0016, h01=0x0050, text=»* TBIN6 - SCRATCH «, t00=0x0083, t01=0x00a2}
0xcd38…cd52 Head {h00=0x0016, h01=0x0050, text=»* TBIN7 - SCRATCH «, t00=0x0083, t01=0x00bc}
0xcd52…cd7c Head {h00=0x0026, h01=0x0050, text=»* TBIN8 - USED TO SAVE FIELDINDEX «, t00=0x0083, t01=0x00d6}
0xcd7c…cd86 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0083, t01=0x0100}
0xcd86…cd9c Head {h00=0x0012, h01=0x0050, text=» PERF PUSH,W8 «, t00=0x0083, t01=0x010a}
0xcd9c…cdc6 Head {h00=0x0026, h01=0x0050, text=» MOVE TBIN8,TBIN7 SAVE FIELD INDEX«, t00=0x0083, t01=0x0120}
0xcdc6…cde2 Head {h00=0x0018, h01=0x0050, text=» CBG TBIN8,W0,KBR010«, t00=0x0083, t01=0x014a}
0xcde2…cdf8 Head {h00=0x0012, h01=0x0050, text=» MOVE TBIN8,W1«, t00=0x0083, t01=0x0166}
0xcdf8…ce06 Head {h00=0x000a, h01=0x0050, text=»KBR010«, t00=0x0083, t01=0x017c}
0xce06…ce1a Head {h00=0x0010, h01=0x0050, text=» CLEAR TBOOL«, t00=0x0083, t01=0x018a}
0xce1a…ce30 Head {h00=0x0012, h01=0x0050, text=» MOVE TBIN3,W0«, t00=0x0084, t01=0x000e}
0xce30…ce58 Head {h00=0x0024, h01=0x0050, text=» MOVE TBIN4,TP1 SAVE ORIG.LENGTH«, t00=0x0084, t01=0x0024}
0xce58…ce70 Head {h00=0x0014, h01=0x0050, text=» MOVE TBIN2,TP1 «, t00=0x0084, t01=0x004c}
0xce70…ce8c Head {h00=0x0018, h01=0x0050, text=» MOVE TSTRG40,CZERO «, t00=0x0084, t01=0x0064}
0xce8c…cec2 Head {h00=0x0032, h01=0x0050, text=» MOVE TBIN7,TCURPOS TCURPOS MIGHT BE MODIFIED «, t00=0x0084, t01=0x0080}
0xcec2…cefa Head {h00=0x0034, h01=0x0050, text=» XCOPY TSTRG40,W0,TBIN4,OUTBUF,FLDTAB(TBIN8,W2) «, t00=0x0084, t01=0x00b6}
0xcefa…cf08 Head {h00=0x000a, h01=0x0050, text=»KBR016«, t00=0x0084, t01=0x00ee}
0xcf08…cf24 Head {h00=0x0018, h01=0x0050, text=» DSC1 PDU,POS,TBIN7 «, t00=0x0084, t01=0x00fc}
0xcf24…cf48 Head {h00=0x0020, h01=0x0050, text=» MOVE TBIN1,TBIN2 RESTLENGTH«, t00=0x0084, t01=0x0118}
0xcf48…cf78 Head {h00=0x002c, h01=0x0050, text=» CBNG TBIN1,W0,KBR030 FTAB IF FILLED UP «, t00=0x0084, t01=0x013c}
0xcf78…cfa0 Head {h00=0x0024, h01=0x0050, text=» KI KEYB,TKBBUF,KTAB02,TBIN1,TP2«, t00=0x0084, t01=0x016c}
0xcfa0…cfca (133, 0, 400) Head {h00=0x0026, h01=0x0050, text=» BOK KBR040 KEYLOCK OR TERM. CHAR.«, t00=0x0085, t01=0x0004}
0xcfca…cffa Head {h00=0x002c, h01=0x0050, text=»* A CHAR NEITHER ALPHANUM NOR LISTED IN «, t00=0x0085, t01=0x002e}
0xcffa…d01a Head {h00=0x001c, h01=0x0050, text=»* KEYTABLE IS INPUT«, t00=0x0085, t01=0x005e}
0xd01a…d03e Head {h00=0x0020, h01=0x0050, text=»* SIZE OF BUFFER IS REACHED «, t00=0x0085, t01=0x007e}
0xd03e…d056 Head {h00=0x0014, h01=0x0050, text=»* POWER FAILURE «, t00=0x0085, t01=0x00a2}
0xd056…d07c Head {h00=0x0022, h01=0x0050, text=»* REQ. NBR OF CHARS IS REACHED«, t00=0x0085, t01=0x00ba}
0xd07c…d09a Head {h00=0x001a, h01=0x0050, text=»* ONLY POSSIBILITIES: «, t00=0x0085, t01=0x00e0}
0xd09a…d0be Head {h00=0x0020, h01=0x0050, text=»* POWERFAILURE OR OVERFLOW«, t00=0x0085, t01=0x00fe}
0xd0be…d0da Head {h00=0x0018, h01=0x0050, text=» XSTAT KEYB,TKBSTAT «, t00=0x0085, t01=0x0122}
0xd0da…d0fc Head {h00=0x001e, h01=0x0050, text=» MOVE TBIN6,=X'0040' BIT 9«, t00=0x0085, t01=0x013e}
0xd0fc…d11c Head {h00=0x001c, h01=0x0050, text=» CALL MASK,TKBSTAT,TBIN6«, t00=0x0085, t01=0x0160}
0xd11c…d13a Head {h00=0x001a, h01=0x0050, text=» BZ KBR018 NO TIMEOUT «, t00=0x0085, t01=0x0180}
0xd13a…d14e Head {h00=0x0010, h01=0x0050, text=» PERF FUNC06«, t00=0x0086, t01=0x000e}
0xd14e…d166 Head {h00=0x0014, h01=0x0050, text=» MOVE TP2,=W'33'«, t00=0x0086, t01=0x0022}
0xd166…d178 Head {h00=0x000e, h01=0x0050, text=» B KBR025 «, t00=0x0086, t01=0x003a}
0xd178…d186 Head {h00=0x000a, h01=0x0050, text=»KBR018«, t00=0x0086, t01=0x004c}
0xd186…d1a2 Head {h00=0x0018, h01=0x0050, text=» CBNE W0,TP2,KBR030 «, t00=0x0086, t01=0x005a}
0xd1a2…d1b4 Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0086, t01=0x0076}
0xd1b4…d1c2 Head {h00=0x000a, h01=0x0050, text=»KBR020«, t00=0x0086, t01=0x0088}
0xd1c2…d1d8 Head {h00=0x0012, h01=0x0050, text=» PERF PULL,W8 «, t00=0x0086, t01=0x0096}
0xd1d8…d206 Head {h00=0x002a, h01=0x0050, text=» CMP W0,W1 UNDEF. ERROR OR PWR FAILURE«, t00=0x0086, t01=0x00ac}
0xd206…d21e Head {h00=0x0014, h01=0x0050, text=» B KBR099 RETURN«, t00=0x0086, t01=0x00da}
0xd21e…d230 Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0086, t01=0x00f2}
0xd230…d23e Head {h00=0x000a, h01=0x0050, text=»KBR025«, t00=0x0086, t01=0x0104}
0xd23e…d262 Head {h00=0x0020, h01=0x0050, text=» PERF PULL,W8 KEYLOCK TURNED«, t00=0x0086, t01=0x0112}
0xd262…d27a Head {h00=0x0014, h01=0x0050, text=» CMP W0,W0 CR=OK«, t00=0x0086, t01=0x0136}
0xd27a…d28c Head {h00=0x000e, h01=0x0050, text=» B KBR099 «, t00=0x0086, t01=0x014e}
0xd28c…d29e Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0086, t01=0x0160}
0xd29e…d2ac Head {h00=0x000a, h01=0x0050, text=»KBR030«, t00=0x0086, t01=0x0172}
0xd2ac…d2d2 Head {h00=0x0022, h01=0x0050, text=» MOVE TP2,W4 SIMULATE FTABKEY «, t00=0x0086, t01=0x0180}
0xd2d2…d2ea Head {h00=0x0014, h01=0x0050, text=» B KBR090 RETURN«, t00=0x0087, t01=0x0016}
0xd2ea…d2fc Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0087, t01=0x002e}
0xd2fc…d30a Head {h00=0x000a, h01=0x0050, text=»KBR040«, t00=0x0087, t01=0x0040}
0xd30a…d338 Head {h00=0x002a, h01=0x0050, text=» CBG TBIN1,W0,KBR045 IF ANY INPUTCHAR «, t00=0x0087, t01=0x004e}
0xd338…d360 Head {h00=0x0024, h01=0x0050, text=» CLEAR TBOOL WE CAN RESET TBOOL «, t00=0x0087, t01=0x007c}
0xd360…d36e Head {h00=0x000a, h01=0x0050, text=»KBR045«, t00=0x0087, t01=0x00a4}
0xd36e…d398 Head {h00=0x0026, h01=0x0050, text=» CBE TP2,W0,KBR020 POWER FAILURE ?«, t00=0x0087, t01=0x00b2}
0xd398…d3aa Head {h00=0x000e, h01=0x0050, text=» BL KBR025«, t00=0x0087, t01=0x00dc}
0xd3aa…d3c0 Head {h00=0x0012, h01=0x0050, text=» SUB TBIN1,W1 «, t00=0x0087, t01=0x00ee}
0xd3c0…d3ee Head {h00=0x002a, h01=0x0050, text=» MOVE TBIN5,TP2 SAVE INDEX TO KEYTABLE«, t00=0x0087, t01=0x0104}
0xd3ee…d412 Head {h00=0x0020, h01=0x0050, text=» CBE TBIN5,=W'19',KBR050 BSP«, t00=0x0087, t01=0x0132}
0xd412…d436 Head {h00=0x0020, h01=0x0050, text=» CBE TBIN5,=W'20',KBR060 FSP«, t00=0x0087, t01=0x0156}
0xd436…d456 Head {h00=0x001c, h01=0x0050, text=» CBE TBIN5,W7,KBR095 ETX«, t00=0x0087, t01=0x017a}
0xd456…d468 Head {h00=0x000e, h01=0x0050, text=» B KBR090 «, t00=0x0088, t01=0x000a}
0xd468…d47a Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0088, t01=0x001c}
0xd47a…d4a0 Head {h00=0x0022, h01=0x0050, text=»KBR050 BACKSPACE KEY PRESSED«, t00=0x0088, t01=0x002e}
0xd4a0…d4ba Head {h00=0x0016, h01=0x0050, text=» TBT TBOOL,KBR020 «, t00=0x0088, t01=0x0054}
0xd4ba…d4e6 Head {h00=0x0028, h01=0x0050, text=» SUB TBIN2,TBIN1 HOW MANY CHARS LEFT«, t00=0x0088, t01=0x006e}
0xd4e6…d4fc Head {h00=0x0012, h01=0x0050, text=» ADD TBIN2,W1 «, t00=0x0088, t01=0x009a}
0xd4fc…d532 Head {h00=0x0032, h01=0x0050, text=» CBNL TBIN2,TP1,KBR010 BACKSPACED WE TO START?«, t00=0x0088, t01=0x00b0}
0xd532…d55e Head {h00=0x0028, h01=0x0050, text=» XCOPY TSTRG40,TBIN3,TBIN1,TKBBUF,W0«, t00=0x0088, t01=0x00e6}
0xd55e…d584 Head {h00=0x0022, h01=0x0050, text=» ADD TBIN3,TBIN1 FIELD LENGTH «, t00=0x0088, t01=0x0112}
0xd584…d5a2 Head {h00=0x001a, h01=0x0050, text=» SUB TBIN3,W1 MINUS 1 «, t00=0x0088, t01=0x0138}
0xd5a2…d5d2 Head {h00=0x002c, h01=0x0050, text=» MOVE TBIN7,TCURPOS MOVE CURSOR ONE POS «, t00=0x0088, t01=0x0156}
0xd5d2…d5f0 Head {h00=0x001a, h01=0x0050, text=» ADD TBIN7,TBIN3 -//- «, t00=0x0088, t01=0x0186}
0xd5f0…d602 Head {h00=0x000e, h01=0x0050, text=» B KBR016 «, t00=0x0089, t01=0x0014}
0xd602…d614 Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0089, t01=0x0026}
0xd614…d636 Head {h00=0x001e, h01=0x0050, text=»KBR060 FORWARDSPACE KEY «, t00=0x0089, t01=0x0038}
0xd636…d66a Head {h00=0x0030, h01=0x0050, text=» SUB TBIN2,TBIN1 HOW MANY CHARS MAY WE READ «, t00=0x0089, t01=0x005a}
0xd66a…d680 Head {h00=0x0012, h01=0x0050, text=» SUB TBIN2,W1 «, t00=0x0089, t01=0x008e}
0xd680…d6ac Head {h00=0x0028, h01=0x0050, text=» XCOPY TSTRG40,TBIN3,TBIN1,TKBBUF,W0«, t00=0x0089, t01=0x00a4}
0xd6ac…d6d2 Head {h00=0x0022, h01=0x0050, text=» ADD TBIN3,TBIN1 FIELD LENGTH «, t00=0x0089, t01=0x00d0}
0xd6d2…d6f0 Head {h00=0x001a, h01=0x0050, text=» ADD TBIN3,W1 PLUS ONE«, t00=0x0089, t01=0x00f6}
0xd6f0…d720 Head {h00=0x002c, h01=0x0050, text=» MOVE TBIN7,TCURPOS MOVE CURSOR ONE POS «, t00=0x0089, t01=0x0114}
0xd720…d73e Head {h00=0x001a, h01=0x0050, text=» ADD TBIN7,TBIN3 -//- «, t00=0x0089, t01=0x0144}
0xd73e…d750 Head {h00=0x000e, h01=0x0050, text=» B KBR016 «, t00=0x0089, t01=0x0162}
0xd750…d764 Head {h00=0x0010, h01=0x0050, text=»*********** «, t00=0x0089, t01=0x0174}
0xd764…d772 Head {h00=0x000a, h01=0x0050, text=»KBR090«, t00=0x0089, t01=0x0188}
0xd772…d7ae Head {h00=0x0038, h01=0x0050, text=» XCOPY TSTRG40,TBIN3,TBIN1,TKBBUF,W0 COMPLETE BUFFER«, t00=0x008a, t01=0x0008}
0xd7ae…d7e8 Head {h00=0x0036, h01=0x0050, text=» MOVE TKBBUF,TSTRG40 MOVE COMPLETED BUFFER TO APPL«, t00=0x008a, t01=0x0044}
0xd7e8…d81a Head {h00=0x002e, h01=0x0050, text=» PERF FIND00,TKBBUF FIND TOTAL FIELDLENGTH«, t00=0x008a, t01=0x007e}
0xd81a…d828 Head {h00=0x000a, h01=0x0050, text=»KBR095«, t00=0x008a, t01=0x00b0}
0xd828…d844 Head {h00=0x0018, h01=0x0050, text=» MOVE TSTRG40,CZERO «, t00=0x008a, t01=0x00be}
0xd844…d86e Head {h00=0x0026, h01=0x0050, text=» XCOPY TSTRG40,W0,TBIN1,TKBBUF,W0 «, t00=0x008a, t01=0x00da}
0xd86e…d88a Head {h00=0x0018, h01=0x0050, text=» MOVE TKBBUF,TSTRG40«, t00=0x008a, t01=0x0104}
0xd88a…d8ac Head {h00=0x001e, h01=0x0050, text=» CBE TBIN5,W7,KBR097 ETX? «, t00=0x008a, t01=0x0120}
0xd8ac…d8de Head {h00=0x002e, h01=0x0050, text=» PERF FIND00,TKBBUF JA, FIND IKKE L[NGDEN «, t00=0x008a, t01=0x0142}
0xd8de…d8ec Head {h00=0x000a, h01=0x0050, text=»KBR097«, t00=0x008a, t01=0x0174}
0xd8ec…d904 Head {h00=0x0014, h01=0x0050, text=» MOVE TP1,TBIN1 «, t00=0x008a, t01=0x0182}
0xd904…d91a Head {h00=0x0012, h01=0x0050, text=» PERF PULL,W8 «, t00=0x008b, t01=0x000a}
0xd91a…d92c Head {h00=0x000e, h01=0x0050, text=» CMP W0,W0«, t00=0x008b, t01=0x0020}
0xd92c…d93a Head {h00=0x000a, h01=0x0050, text=»KBR099«, t00=0x008b, t01=0x0032}
0xd93a…d946 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x008b, t01=0x0040}
0xd946…d954 Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x008b, t01=0x004c}
0xd954…d962 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x008b, t01=0x005a}
0xd962…d976 Head {h00=0x0010, h01=0x0050, text=»LCKSET PROC «, t00=0x008b, t01=0x0068}
0xd976…d98e Head {h00=0x0014, h01=0x0050, text=» MUL TP2,=W'-1' «, t00=0x008b, t01=0x007c}
0xd98e…d9be Head {h00=0x002c, h01=0x0050, text=» IB TP2,RKB034,RKB033,RKB032,RKB031, C «, t00=0x008b, t01=0x0094}
0xd9be…d9e4 Head {h00=0x0022, h01=0x0050, text=» RKB038,RKB037,RKB036,RKB035 «, t00=0x008b, t01=0x00c4}
0xd9e4…d9f2 Head {h00=0x000a, h01=0x0050, text=»RKB031«, t00=0x008b, t01=0x00ea}
0xd9f2…da10 Head {h00=0x001a, h01=0x0050, text=» CALL BITOFF,TKEYS,W7 «, t00=0x008b, t01=0x00f8}
0xda10…da22 Head {h00=0x000e, h01=0x0050, text=» B RKB039 «, t00=0x008b, t01=0x0116}
0xda22…da30 Head {h00=0x000a, h01=0x0050, text=»RKB032«, t00=0x008b, t01=0x0128}
0xda30…da4e Head {h00=0x001a, h01=0x0050, text=» CALL BITOFF,TKEYS,W6 «, t00=0x008b, t01=0x0136}
0xda4e…da60 Head {h00=0x000e, h01=0x0050, text=» B RKB039 «, t00=0x008b, t01=0x0154}
0xda60…da6e Head {h00=0x000a, h01=0x0050, text=»RKB033«, t00=0x008b, t01=0x0166}
0xda6e…da8c Head {h00=0x001a, h01=0x0050, text=» CALL BITOFF,TKEYS,W5 «, t00=0x008b, t01=0x0174}
0xda8c…da9e (140, 0, 400) Head {h00=0x000e, h01=0x0050, text=» B RKB039 «, t00=0x008c, t01=0x0004}
0xda9e…daac Head {h00=0x000a, h01=0x0050, text=»RKB034«, t00=0x008c, t01=0x0016}
0xdaac…daca Head {h00=0x001a, h01=0x0050, text=» CALL BITOFF,TKEYS,W4 «, t00=0x008c, t01=0x0024}
0xdaca…dadc Head {h00=0x000e, h01=0x0050, text=» B RKB039 «, t00=0x008c, t01=0x0042}
0xdadc…daea Head {h00=0x000a, h01=0x0050, text=»RKB035«, t00=0x008c, t01=0x0054}
0xdaea…db06 Head {h00=0x0018, h01=0x0050, text=» CALL BITON,TKEYS,W7«, t00=0x008c, t01=0x0062}
0xdb06…db18 Head {h00=0x000e, h01=0x0050, text=» B RKB039 «, t00=0x008c, t01=0x007e}
0xdb18…db26 Head {h00=0x000a, h01=0x0050, text=»RKB036«, t00=0x008c, t01=0x0090}
0xdb26…db42 Head {h00=0x0018, h01=0x0050, text=» CALL BITON,TKEYS,W6«, t00=0x008c, t01=0x009e}
0xdb42…db54 Head {h00=0x000e, h01=0x0050, text=» B RKB039 «, t00=0x008c, t01=0x00ba}
0xdb54…db62 Head {h00=0x000a, h01=0x0050, text=»RKB037«, t00=0x008c, t01=0x00cc}
0xdb62…db7e Head {h00=0x0018, h01=0x0050, text=» CALL BITON,TKEYS,W5«, t00=0x008c, t01=0x00da}
0xdb7e…db90 Head {h00=0x000e, h01=0x0050, text=» B RKB039 «, t00=0x008c, t01=0x00f6}
0xdb90…db9e Head {h00=0x000a, h01=0x0050, text=»RKB038«, t00=0x008c, t01=0x0108}
0xdb9e…dbba Head {h00=0x0018, h01=0x0050, text=» CALL BITON,TKEYS,W4«, t00=0x008c, t01=0x0116}
0xdbba…dbc8 Head {h00=0x000a, h01=0x0050, text=»RKB039«, t00=0x008c, t01=0x0132}
0xdbc8…dbd4 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x008c, t01=0x0140}
0xdbd4…dbe2 Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x008c, t01=0x014c}
0xdbe2…dbf0 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x008c, t01=0x015a}
0xdbf0…dc08 Head {h00=0x0014, h01=0x0050, text=»FIND00 PROC BUF «, t00=0x008c, t01=0x0168}
0xdc08…dc12 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x008c, t01=0x0180}
0xdc12…dc44 Head {h00=0x002e, h01=0x0050, text=»* FIND THE LENGTH OF THE DATAFIELD IN THE «, t00=0x008c, t01=0x018a}
0xdc44…dc60 Head {h00=0x0018, h01=0x0050, text=»* BUFFER SPECIFIED. «, t00=0x008d, t01=0x002c}
0xdc60…dc92 Head {h00=0x002e, h01=0x0050, text=»* IF THE LAST NON-ZERO CHAR IS BELOW X'20'«, t00=0x008d, t01=0x0048}
0xdc92…dcc8 Head {h00=0x0032, h01=0x0050, text=»* (EOI-KEY) THE COUNT WILL BE DECREASED BY 1. «, t00=0x008d, t01=0x007a}
0xdcc8…dcd2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x008d, t01=0x00b0}
0xdcd2…dcec Head {h00=0x0016, h01=0x0050, text=» MOVE TSTRG1,CZERO«, t00=0x008d, t01=0x00ba}
0xdcec…dd02 Head {h00=0x0012, h01=0x0050, text=» MOVE TBIN1,W0«, t00=0x008d, t01=0x00d4}
0xdd02…dd36 Head {h00=0x0030, h01=0x0050, text=» MOVE TBIN7,=W'40' OBS OBS LENGTH OF TKBBUF «, t00=0x008d, t01=0x00ea}
0xdd36…dd62 Head {h00=0x0028, h01=0x0050, text=» MATCH BUF,TBIN1,TBIN7,TSTRG1,W0,W1 «, t00=0x008d, t01=0x011e}
0xdd62…dd7e Head {h00=0x0018, h01=0x0050, text=» CBE TBIN1,W0,FIN010«, t00=0x008d, t01=0x014a}
0xdd7e…dd98 Head {h00=0x0016, h01=0x0050, text=» MOVE TBIN7,TBIN1 «, t00=0x008d, t01=0x0166}
0xdd98…ddae Head {h00=0x0012, h01=0x0050, text=» SUB TBIN7,W1 «, t00=0x008d, t01=0x0180}
0xddae…ddd6 Head {h00=0x0024, h01=0x0050, text=» XCOPY TSTRG1,W0,W1,TKBBUF,TBIN7«, t00=0x008e, t01=0x0008}
0xddd6…de08 Head {h00=0x002e, h01=0x0050, text=» CBNL TSTRG1,CSP,FIN010 < X'20' IS EOI KEY«, t00=0x008e, t01=0x0030}
0xde08…de1e Head {h00=0x0012, h01=0x0050, text=» SUB TBIN1,W1 «, t00=0x008e, t01=0x0062}
0xde1e…de2c Head {h00=0x000a, h01=0x0050, text=»FIN010«, t00=0x008e, t01=0x0078}
0xde2c…de38 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x008e, t01=0x0086}
0xde38…de46 Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x008e, t01=0x0092}
0xde46…de52 Head {h00=0x0008, h01=0x0050, text=» END«, t00=0x008e, t01=0x00a0}
0xde52…de56 Head {h00=0x4004, h01=0x0000}
0xde56…de5a 00 8e 00 ac ┆ ┆
0xde5a…de62 (143, 1, 8) 20 04 00 00 00 8f 00 04 ┆ ┆
0xde62…deb2 (144, 0, 400) 3f 4c 00 46 66 3c 00 00 04 b6 03 68 03 f6 06 e2 06 e2 06 e2 06 e2 06 e2 06 e2 0e a0 06 e2 06 e2 16 7c 16 a6 08 22 06 e2 08 40 06 e2 06 e2 06 e2 06 e2 06 e2 06 e2 06 e2 08 22 08 2c 08 36 06 e2 06 e2 06 e2 06 e2 06 e2 06 e2 06 e2 06 e2 06 e2 ┆?L Ff< h | " @ " , 6 ┆
0xdeb2…df02 06 e2 06 e2 06 e2 06 e2 06 e2 06 e2 06 e2 06 e2 06 e2 06 e2 06 e2 06 e2 06 e2 06 e2 06 e2 06 e2 06 e2 06 e2 06 e2 06 e2 06 e2 06 e2 06 e2 06 e2 06 e2 06 e2 06 e2 00 8a 00 a6 01 0d f7 a1 06 e8 98 00 00 00 63 9a e8 ef 20 7f b5 96 b6 9a 81 40 ┆ c @┆
0xdf02…df52 00 d4 8c 04 20 7f 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 03 64 00 01 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 06 00 01 54 67 a4 74 89 b3 f0 7a fe 5e c0 be fe 62 ┆ d Tg t z ^ b┆
0xdf52…dfa2 e3 ff 62 4c 50 4c f4 48 f6 62 32 0e 98 5a de be 60 85 82 ba d2 e7 fe 7a 50 98 62 64 98 b8 c4 a2 e2 7a 98 00 b6 42 98 6c f0 64 56 82 24 28 b6 6c 30 f8 0e 47 74 d4 4e eb aa a2 aa 86 71 06 fa 7a 37 b5 4f 4c c6 c2 68 0c 6a ba e0 19 31 c6 74 d4 ┆ bLPL H b2 Z ` zP bd z B l dV $( l0 Gt N q z7 OL h j 1 t ┆
0xdfa2…dff2 f4 4d ec 48 4b 31 9e bc a2 9a 64 6b 3a 9a 88 db 9d 6c 32 c6 28 9e 5a 66 63 ed ab a2 1e 49 53 b2 f4 d8 ac 80 48 26 1a 46 fa 87 40 82 9e 82 6a cb 06 99 97 7e 52 82 50 2c 8f ff ff ff ff ff ff ff f9 70 80 00 02 00 6f 73 a2 bc e0 d8 96 84 f8 6c ┆ M HK1 dk: l2 ( Zfc IS H& F @ j ~R P, p os l┆
0xdff2…e042 (145, 0, 400) 80 0d 34 63 98 00 00 00 c2 86 b2 a2 90 40 53 7b a2 bc 44 e0 fa 8c 94 64 0a ab a8 a3 32 5a ac 24 22 7a c0 79 c8 8b 42 f9 b1 a0 25 fc b4 a2 8f 79 de f2 af 9f 88 e4 44 e3 fc c0 ec 44 62 66 fc 08 64 08 86 9e b4 01 ef 2a e4 14 b6 46 dc 3a 50 9e ┆ 4c @S{ D d 2Z $"z y B % y D Dbf d * F :P ┆
0xe042…e092 8f 7d 42 f6 af a3 db 1e 57 de 19 5b 7e d2 3f df 64 f2 11 f4 8f 6a 25 ea 4c ac f3 08 b1 a4 1c 09 22 7e bc f5 54 ea e2 a7 b8 01 26 62 f4 49 43 6e 10 e0 31 1a c0 bc fe 64 b9 ba c9 a0 40 d6 dd 14 ba 84 3c e7 91 d7 82 86 52 3a 52 3a b0 cc d8 60 ┆ }B W [~ ? d j% L "~ T &b ICn 1 d @ < R:R: `┆
0xe092…e0e2 df a6 4a c6 62 66 1c bb e7 62 25 80 62 66 70 4c c8 e3 30 82 d9 a4 3c 68 90 6c 6c 80 64 08 b0 c8 ea 3a 08 7c d0 60 fe 5e 20 a3 f5 44 29 68 48 20 50 98 16 89 de 44 1d fc ee c2 3e 7e d0 df d1 c2 e5 60 22 9a ee be 66 a5 b6 da 83 a2 3e 7e 9c 24 ┆ J bf b% bfpL 0 <h ll d : | ` ^ D)hH P D >~ `" f >~ $┆
0xe0e2…e132 1d ac 18 80 64 04 70 bf 85 84 8d b8 34 64 a8 40 75 07 bc 16 7b a2 ec 48 3e 82 53 82 16 62 04 48 c6 be fa 8a 1a 46 b0 6c fa 7a e6 c2 1a 46 02 a6 de be 4c e0 98 bc ec 44 90 bc b0 b8 85 00 00 00 c4 24 2a 9a fe 62 74 d4 ce c2 90 40 34 64 b4 a0 ┆ d p 4d @u { H> S b H F l z F L D $* bt @4d ┆
0xe132…e182 9e a2 b2 46 16 5e b6 3e da 7a 9e a2 f8 d8 f4 c0 64 04 6c 80 ac 28 fe 5e 3c e0 32 c6 ea a6 2b d4 2e f4 d5 88 0f dd de b8 f6 d8 7f c0 8f 66 59 25 77 bf 6e f8 e7 af 62 de 19 9e 9d 98 5d d0 de 8d 92 96 a5 24 db c9 da 8a fc 08 00 00 9a 5e c5 95 ┆ F ^ > z d l ( ^< 2 + . fY%w n b ] $ ^ ┆
0xe182…e1d2 (146, 0, 400) fe 5e 3c e0 32 c6 ea a6 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ ^< 2 ┆
0xe1d2…e222 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 fc c0 03 66 5f 02 80 41 06 de 20 fb 87 c1 03 80 87 c0 28 06 bf 5f 00 0c 85 40 28 06 87 a0 00 00 83 3e 82 3e 83 55 00 08 23 01 54 04 b8 40 ┆ f_ A ( _ @( > > U # T @┆
0xe222…e272 34 2e d3 48 ff fe d6 28 eb 20 28 04 50 0a eb 20 63 00 50 04 01 07 57 3a ee 20 00 09 50 2c a0 41 28 06 f7 a1 06 ba 04 00 83 18 56 06 12 02 9b 0d d4 28 12 02 82 55 00 0a 93 0c 50 22 eb 40 3b 6a 56 14 20 bf 83 4c 3b 6a 57 04 83 40 3b 7c 8c 0c ┆4. H ( ( P c P W: P, A( V ( U P" @;jV L;jW @;| ┆
0xe272…e2c2 01 0f f7 a1 06 e8 82 20 ff ff 82 55 00 18 f7 a1 05 20 8f 20 28 24 80 41 06 de 20 f7 90 41 04 a0 51 02 f0 3e bc 3f 84 40 00 00 84 41 3c cc 84 20 ff fc 84 41 04 a0 82 20 04 58 f7 a1 05 44 90 41 04 56 51 06 f7 a1 06 c8 5f 38 84 20 ff f7 84 41 ┆ U ($ A A Q > ? @ A< A X D A VQ _8 A┆
0xe2c2…e312 04 56 04 04 03 3c 90 51 04 50 b3 50 04 50 5c 1c a0 51 04 50 1c 02 5a 12 59 16 03 18 5f 18 00 00 00 00 00 00 00 00 00 00 20 bf 84 20 04 a2 86 10 84 38 88 20 28 0c 90 51 80 00 00 00 00 00 00 24 a2 00 80 00 a0 01 12 20 a9 02 2a 90 8a 40 02 2c ┆ V < Q P P P Q P Z Y _ 8 ( Q $ * @ ,┆
0xe312…e362 (147, 0, 400) 00 04 5a 0e 50 10 83 30 83 39 f7 a1 05 ee 84 08 f7 a1 05 ee 5f 1e f7 a1 04 8a f7 a1 06 ba 20 bf 5f 2c bc 3f 81 20 c4 c0 81 5f 00 12 82 50 00 02 81 48 00 04 8f 48 00 02 00 00 00 00 00 00 00 00 23 50 00 00 00 00 00 c0 04 d8 00 01 00 01 80 41 ┆ Z P 0 9 _ _, ? _ P H H #P A┆
0xe362…e3b2 06 de a0 41 3c c4 20 ef f8 41 04 b2 51 1c bc 3f 81 40 28 04 82 20 04 a6 81 29 82 41 28 04 5f e6 87 c1 04 ac 90 41 3c c2 20 7f 87 c0 04 ac a0 41 04 b4 f7 a1 06 a2 a0 41 28 06 90 41 3c c0 8f 20 03 f2 20 bf 83 3f 84 3f 85 3f 86 3f 87 3f 80 bf ┆ A< A Q ? @( ) A( _ A< A A( A< ? ? ? ? ? ┆
0xe3b2…e402 83 5e 00 10 83 41 05 1e 82 5f 00 0e 81 5f 00 10 83 5e 00 0c 8f 20 00 00 20 bf b9 bf 81 20 28 04 82 24 50 10 83 54 00 05 eb 49 00 05 52 06 81 08 82 24 5c 0c 82 35 85 25 b9 be f0 3e 20 bf bc 3f 85 20 07 14 57 0c 20 bf bc 3f 06 01 57 06 20 bf ┆ ^ A _ _ ^ ( $P T I R $ 5 % > ? W ? W ┆
0xe402…e452 bc 3f 06 00 87 54 00 0a 54 24 81 55 00 0c 82 55 00 0a 83 55 00 10 84 55 00 12 84 54 00 02 84 55 00 0e a0 55 ff fe f7 a1 05 20 bc 3e f0 3e 87 10 f7 a1 05 ca 81 1c 82 10 f7 a1 05 ca 95 20 00 06 83 14 85 34 16 00 54 04 15 00 5c 0c 84 2d 85 31 ┆ ? T T$ U U U U T U U > > 4 T - 1┆
0xe452…e4a2 5f 28 a0 55 00 0a 84 54 00 06 50 ec 83 30 83 55 00 06 f7 a1 05 ee 87 04 84 08 f7 a1 05 ee 84 1c 5f 74 20 bf 85 3f 84 40 27 dc 54 06 01 0b f7 a1 06 e8 85 30 85 41 27 dc 02 4a 00 00 08 a4 52 52 aa 80 10 01 00 00 40 00 00 08 44 00 00 22 08 95 ┆_( U T P 0 U _t ? @' T 0 A' J RR @ D " ┆
0xe4a2…e4f2 (148, 0, 400) 83 31 82 51 00 02 81 51 00 04 85 3e f0 3e 20 bf 83 30 81 40 27 dc 81 31 84 41 27 dc 82 50 00 02 81 50 00 04 f0 3e 81 3f 86 20 00 2a 96 14 81 58 ff fe d2 22 19 04 52 22 ea 59 00 01 54 18 81 3f 81 58 00 02 81 44 00 08 e9 20 28 02 54 3e f7 a1 ┆ 1 Q Q > > 0 @' 1 A' P P > ? * X " R" Y T ? X D ( T> ┆
0xe4f2…e542 28 02 57 38 81 3e 16 04 5f 26 86 40 00 d2 81 38 16 02 19 04 52 22 ea 59 00 01 54 18 81 3f 81 58 00 02 81 44 00 08 e9 20 28 02 54 10 f7 a1 28 02 57 0a 81 3e 16 04 5f 26 06 00 57 32 81 3e e2 38 86 58 00 02 57 28 81 3f 81 60 00 d0 91 40 00 d0 ┆( W8 > _& @ 8 R" Y T ? X D ( T ( W > _& W2 > 8 X W( ? ` @ ┆
0xe542…e592 19 02 e9 40 00 d0 50 0a 82 24 ef 48 00 02 5c 10 57 0c 02 00 57 08 bc 3e f0 3e b9 3e f0 3e 81 3e f0 3e 01 02 e9 40 3b 90 56 0e 81 3f 20 bf f7 c5 3b 90 81 3e 11 02 5f 14 f0 3e 81 3f 81 20 c0 c0 81 5f 00 04 81 3e f0 3e 81 3f e1 5e 00 18 21 fc ┆ @ P $ H W W > > > > > > @; V ? ; > _ > ? _ > > ? ^ ! ┆
0xe592…e5e2 19 bc 59 18 81 5e 00 18 a1 20 ff fe 5f 1e 00 00 00 00 01 05 f7 a1 06 e8 bf 3f 87 c1 06 e0 41 2e 20 7f 00 00 04 00 08 00 0c 00 10 00 14 00 18 00 1c 00 20 00 24 00 28 00 2c 00 30 00 34 00 38 00 3c 00 00 00 00 00 23 4d 00 31 00 00 c4 c0 00 00 ┆ Y ^ _ ? A. $ ( , 0 4 8 < #M 1 ┆
0xe5e2…e632 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 02 00 00 00 00 27 e2 4a 03 42 03 42 c3 00 00 00 00 00 00 00 00 00 00 27 e4 4a 13 00 24 00 00 04 82 00 09 00 05 20 00 10 80 00 00 12 00 00 00 00 00 40 2c ┆ ' J B B ' J $ @,┆