|
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: 71590 (0x117a6)
Notes: pts_type(SC)
Names: »KEYB.SC«
└─⟦928b1fd3e⟧ Bits:30009671 Philips computer tape "600131"
└─⟦this⟧ »MODIFY/KEYB.SC«
IDENT KEYB REL 11.0 DK 82-02-28 870150541100 =1, SYSTEM MODE CURSOR 81-01-26 *************************************************************** * * * MODULE KEYB * * MODULE HANDLING THE KEYBOARD DEVICE * * (EMULATION 3270 SNA/SDLC, BSC) * * * *************************************************************** EJECT *************************************************************** * * * LIST OF ROUTINES * * * * KBINP MAIN ROUTINE * * CPLKB KB-COMPLETION TABLE FOR DIFF. MODES * * KBCPLO KB-COMPLETION ROUTINE IN LOCAL MODE * KBCPSY KB-COMPLETION ROUTINE IN SYSTEM MODE * * KBCPJO KB-COMPLETION ROUTINE IN MY JOB MODE * * READKB READ KEYBOARD WITH NO WAIT * * RESKB RESET KEYBOARD-BUFFER * * ICVRED KB/VDU INTERTASK READ * ICINP INTERTASK INPUT * ICSET SET INTERTASK TIMEOUT * ICREAD READ INTERTASK * ICWRT WRITE INTERTASK * ERROR ILLEGAL KEY-HANDLING * * LAMPROUTINES * * SDISP SIGNAL ROUTINE * * KEYTAB KEY-TABLE, FIXED ENTRY FOR EACH FUNC. * * CHAR ALPHA. CHAR HANDLING * * NUM NUM. CHAR HANDLING * * ANCOMM ALPHANUM. CHAR HANDLING * * CURMOV MOVE CURSOR ON SCREEN * * BAKTAB TAB. UNPROT. BACKWARDS * * TAB TAB. UNPROT. FORWARDS * * CRNL TAB. UNPROT. NEXT LINE * * RDHOME TAB. UNPROT. FIRST ON SCREEN * * EREOF ERASE TO END OF FIELD * * ERINPT ERASE UNPROT. ENTIRE SCREEN * * INSERT INSERT HANDLING * * DELETE DELETE HANDLING * * RESET RESET HANDLING * * DUP DUPLICATE HANDLING * * FLDMRK FIELDMARK HANDLING * * ZERO:2,3 DOUBLE & TRIPLE ZERO HANDLING * * OFLINE OFFLINE HANDLING * * MFCHGE MAIN FRAME CHANGE * * COPY LOCAL HARDCOPY * * IDENT PRINTER IDENT. HANDLING * * KEYL KEYLOCK STATUS HANDLING * * TESTM TEST MODE * ENTER ENTER HANDLING * * CLEAR CLEAR HANDLING * * SYSREQ SYSTEM REQUEST HANDLING * * ATTN ATTENTION HANDLING * * PA PROGRAM ACCESS HANDLING * * PF PROGRAM FUNCTION HANDLING * * RETURN RETURN * * * *************************************************************** EJECT *************************************************** * * * ENTRY POINTS * * * **************************************************** ENTRY KBINP,KBINP2 START LABEL FOR MODULE ENTRY READKB,READK2 READ KEYBOARD ENTRY RESKB RESET KEYBOARD BUFFER ENTRY LMP1ON LAMPROUTINES ENTRY LMP1OF . ENTRY LMP2ON . ENTRY LMP2OF . ENTRY LMP3ON . ENTRY LMP3OF . ENTRY LMP4ON . ENTRY LMP4OF . ENTRY LMP5ON . ENTRY LMP5OF . ENTRY LMP6ON . ENTRY LMP6OF . ENTRY RDHOME TAB. UNPROTECTED FIRST ON SCREEN ENTRY COPY LOCAL HARDCOPY ENTRY ERROR ERROR INDICATION ENTRY TAB TAB FOREWARD UNPROTECTED ENTRY CRDOWN MOVE CURSOR DOWN ONE LINE ENTRY ICVRED VDU INTERTASK READ ENTRY ICINP INTERTASK INPUT ENTRY ICSET SET INTERTASK TIMEOUT ENTRY ICWRT WRITE INTERTASK ENTRY ICREAD READ INTERTASK EJECT ****************************************************** * * * EXTERNAL REFERENCES * * * ****************************************************** EXTRN I:RT1 RETURN TO CREDIT CODE EXTRN ATMASB SEARCH ATTRIBUTE BACKWARDS (VDU) EXTRN ATMASF SEARCH ATTRIBUTE FORWARD (VDU) EXTRN DCABOR ABORT DC-REQUEST (DCSNA,DCBSC) EXTRN ERASE ERASE ENTIRE SCREEN (VDU) EXTRN ERASUA ERASE ALL UNPROTECTED TO ADDRESS (VDU) EXTRN ERASUP ERASE ALL UNPROTECTED (VDU) EXTRN TRPA TRANSMIT SHORT READ (DCSNA,DCBSC) EXTRN TRPF TRANSMIT MODIFIED READ (DCSNA,DCBSC) EXTRN TSTSTA TEST STATUS (DCSNA,DCBSC) EXTRN WCHAR DISPLAY CHAR. AND CURSOR (VDU) EXTRN SOUND SOUND ALARM ON DISPLAY (VDU) EXTRN SCRINF GET SCREEN INFORMATION (VDU) EXTRN STOINF SAVE SCREEN INFORMATION (VDU) EXTRN GETVDU GET CHAR. IN VDU BUFFER (VDU) EXTRN STOVDU STORE CHAR. IN VDU BUFFER (VDU) EXTRN DISCHA DISPLAY CHAR. (VDU) EXTRN POSUNP MOVE CURSOR TO NEXT UNPR. POS. (VDU) EXTRN INSMOD INSERT MODE ROUTINE (VDU) EXTRN DCOFLN INDICATE OFFLINE TO DC (DCSNA,DCBSC) EXTRN DISMOD DISPLAY MODIFIED FIELDS (VDU) EXTRN CONPF CONVERT PF-KEY TABLE (CONVER) EXTRN OPSYS OPEN SYSTEM (DCSNA,DCBSC) EXTRN LINE GET LINE FLAG (VDU) EXTRN SAVE1 SAVE1 REGISTERS (PAD) EXTRN REST1 REST1E REGISTERS (PAD) EXTRN DISID DISPLAY HARDCOPY TASKID EXTRN GETBUF GET BUFFER (PAD) EXTRN RELBUF RELEASE BUFFER (PAD) EXTRN DISSTA DISPLAY STATISTICS (VDU) EXTRN RDSTAT READ STATISTICS (DCBSC) EXTRN CHKSTA CHECK LINE STATUS (DCBSC,DCSNA) EXTRN SETSTA SET STATUS (DCSNA) EJECT ************************************************************* * * * CONDITIONAL ASSEMBLY PARAMETERS * * * ************************************************************* X:A EQU 0 SNA HANDLING INCLUDED IF:=1 SNA EQU 0 X:C EQU 0 OFFLINE HANDLING IF :=1 OFLIN EQU 0 X:D EQU 1 NUMBER OF LINES (1-2) NBRLIN EQU 1 X:F EQU 0 KEY-LOCK STATUS IF:=1 KEYLST EQU 0 X:G EQU 0 PF KEY HANDLING IF:=1 PFX EQU 1 X:H EQU 0 PA KEY HANDLING IF :=1 PAX EQU 1 X:I EQU 1 INSERT/DELETE HANDLING IF :=1 IN:DL EQU 1 X:J EQU 1 KB6272 INCLUDED IF :=1 KB6272 EQU 1 X:M EQU 0 COPY COMMAND INCLUDED IF:=1 COPCMD EQU 1 X:O EQU 0 TEST MODE INCLUDED IF:=1 TEST EQU 0 X:P EQU 0 COPY LOCK FUNCTION INCLUDED IF:=1 COPL EQU 0 EJECT *************************************************************** * * * DECLARATIONS OF DATA AND EQUATES * * *************************************************************** * * PREDEFINED KEYS * CRUP EQU /80 FIRST "MOVE CURSOR " KEY ERFKEY EQU /88 ERASE TO END OF FIELD-KEY ERIKEY EQU /89 ERASE ALL UNPROT. RSET EQU /8C RESET KEY IDKEY EQU /93 IDENT KEY FKLKEY EQU /94 FIRST KEYLOCK VALUE LKLKEY EQU /9C LAST KEYLOCK VALUE FIPA EQU /9F FIRST PROGRAM ATTN. KEY ENTKEY EQU /A0 ENTER KEY SYSKEY EQU /A1 SYSTEM REQUEST KEY CLRKEY EQU /A2 CLEAR KEY PFKEY EQU /B1 PROGRAM FUNTION KEY LAKEY EQU /C9 LAST KEY IN KEY-TABLE * * EQUATES FOR ECB HANDLING * ECBBA EQU 2 BUFFER ADDRESS ECBRL EQU 4 REQUESTED LENGTH ECBEL EQU 6 EFFECTIVE LENGTH ECBRC EQU 8 RETURN CODE ECBCW EQU 10 CONTROL WORD ECBCW2 EQU 12 CONTROL WORD TWO DK * * SPECIAL CHARACTERS * NULL EQU 0 NULL CHAR. DUPCH EQU /1C DUPLICATE CHAR. FMCH EQU /1E FIELD MARK CHAR. * * LAMPCONSTANTS * LON EQU /B7 LOF EQU /B8 LFL EQU /B9 FLASH IFT KB6272=1 LAMP1 EQU /20 LAMP2 EQU /10 LAMP3 EQU 8 LAMP4 EQU 4 LAMP5 EQU 2 LAMP6 EQU 1 XIF IFF KB6272=1 LAMP1 EQU 0 LAMP2 EQU 0 LAMP3 EQU 1 LAMP4 EQU 2 LAMP5 EQU 4 LAMP6 EQU 8 XIF * * VDU SCREEN SIZE * LLINE EQU 80 LINE LENGTH LBVDU EQU 1920 TOTAL SIZE * * MODES * NEWMOD EQU /8000 NEW MODE HCPMOD EQU /4000 HARDCOPY OUTSTANDING MYJOB EQU /0004 MY JOB MODE SYSOP EQU /0002 SYSTEM OPERATOR MODE LOCMOD EQU /0000 LOCAL MODE * * TASK IDENTIFICATION CODE * VDUCOD EQU 'VV' VDU KB TASK EJECT * * RELATIVE ADDRESSES IN * TERMINAL WORKBLOCK * BVDU EQU 2 VDU SCREEN BUFFER LINFLG EQU BVDU+1920 LINE FLAGS WCC EQU LINFLG+30 WCC CHAR. KBINH EQU WCC+2 KEYBOARD INHIBIT INDICATOR OFFFLG EQU KBINH+8 OFFLINE FLAG PRTID EQU OFFFLG+2 HARDCOPY PRINTER MAIN EQU PRTID+6 MAIN FRAME MODE EQU MAIN+2 INSERT MODE SWITCH KEYS EQU MODE+2 KEY LOCK STATUS RDMORE EQU KEYS+12 BRANCH ADDRESS TO NEXT KB-KEY CURPOS EQU RDMORE+2 CURSOR POS. IN SYSTEM MODE REGI EQU CURPOS+4 SAVE AREA SNAMOD EQU REGI+32 SNA MODE BSCMOD EQU SNAMOD BSC MODE ECBKB EQU BSCMOD+2 ECB KB ECBSD EQU ECBKB+4 ECB SIGNAL DISPLAY ECBICR EQU ECBSD+4 ECB INTERTASK READ ECBICW EQU ECBICR+2 ECB INTERTAS WRITE ECBKB2 EQU ECBICW+4 ECB 2ND KEYBOARD DK * * RELATIVE ADDRESSES IN * COMMON WORKBLOCK * IFF TEST=1 TSKTAB EQU 24 TASK TABLE XIF IFT TEST=1 TSKTAB EQU 219 TASK TABLE XIF EJECT **************************************************************** * * * KBINP MAIN ROUTINE * * * **************************************************************** * REGISTERS * * A2= KEY-CHAR. * A3= KEY-TABLE INDEX * A4= RESERVED * A5= RESERVED * A6= RESERVED * A7= KEY-HANDLING INDICATOR * A11= CREDIT WORK AREA * A13= RESERVED * *********************************************************** KBINP2 EQU * LDK A1,1 INDICATE 2ND KEYBOARD PRESENT DK ST A1,ECBCW2,A8 DK KBINP EQU * * NO CHECK ON POWER OFF....DK 81-10-17 * IFT KEYLST=0 LD A1,ECBCW,A8 SEE IF KEYLOCK ? DK RF(N) KBIN80 SKIP IT DK XIF IFT KEYLST=1 LC* A2,ECBBA,A8 GET KEYLOCK VALUE ADKL A2,FKLKEY-/70 PREPARE FOR TABLE SC* A2,ECBBA,A8 RESTORE XIF LD A1,ECBRC,A8 ERROR? ANKL A1,/FFF3 RF(NZ) KBIN80 YES LD A1,KBINH,A11 ANK A1,1 KB TOTALY INHIBIT? RF(NZ) KBIN80 YES LC* A2,ECBBA,A8 GET INPUT CHAR. ANK A2,/FF LD A1,KBINH,A11 ANK A1,6 MUST BE A RESET KEY? RF(Z) KBIN30 NO CWK A2,RSET RESET KEY? IFT SNA=1 RF(E) KBIN30 YES CWK A2,SYSKEY SYSTEM REQUEST KEY? XIF RF(NE) KBIN80 NO KBIN30 EQU * LDR A3,A2 SUK A3,/20 INDEX TO KEY-TABLE RF(N) KBIN80 ILLEGAL CHAR CWK A2,LAKEY RF(G) KBIN80 ILLEGAL CHAR IFT SNA=1 LD A1,SNAMOD,A11 GET SNA MODE ANK A1,/FF CFI A14,CPLKB,A1 COMPLETE KB IN CURRENT MODE XIF IFF SNA=1 LDK A7,0 CWK A2,FIPA PROGRAM ATTN KEY? RF(L) KBIN40 NO CM MODE,A11 CF A14,LMP6OF CLEAR INSERT MODE CF A14,DCABOR KBIN40 EQU * XIF LDR A7,A7 ANY KEY-HANDLING RF(NZ) KBIN80 NO ADR A3,A3 PREPARE FOR KEY-TABLE LD A1,RDMORE,A11 KEY IN SEQUENCE? RF(Z) KBIN50 NO CF A14,DCABOR KILL DC AGAIN DK CFR A14,A1 CONTINUE AT SAVED LABEL RF KBIN90 KBIN50 EQU * CFI A14,KEYTAB,A3 BRANCH TO RESP. KEY-HANDLER RF KBIN90 KBIN80 EQU * CF A14,RESKB RESET KB BUFFER KBIN90 EQU * RTN A14 EJECT IFT SNA=1 ********************************************************************* * * * CPLKB KB-COMPLETION TABLE * * * ********************************************************************* CPLKB EQU * DATA KBCPLO KB-COMPL. IN LOCAL MODE DATA KBCPSY KB-COMPL. IN SYSTEM MODE DATA KBCPJO KB-COMPL. IN MY JOB MODE EJECT ********************************************************************* * * * KBCLO KB-COMPLETION IN LOCAL MODE * * * ********************************************************************* * REGISTERS * * A2= KEY-CHAR * A3= KEY-TABLE INDEX * A4= RESERVED * A5= RESERVED * A6= RESERVED * A7= KEY-HANDLING INDICATOR * A11= CREDIT WORK AREA * A13= RESERVED * *********************************************************** KBCPLO EQU * LDK A7,0 INDICATE KEY-HANDLING CWK A2,FIPA PROGRAM ATTN, KEY? RF(NG) KBCL90 NO LDK A7,1 NO KEY-HANDLING CWK A2,SYSKEY SYSTEM REQUEST? RF(NE) KBCL80 NO CF A14,OPSYS START COMMUNICATION CF A14,TSTSTA TEST STATUS ANKL A1,/101 ACTIVE? RF(NZ) KBCL90 NO LDK A1,SYSOP INDICATE SYSTEM MODE ORKL A1,/8000 INDICATE MODE ACTIVATION ST A1,SNAMOD,A11 RF KBCL90 KBCL80 EQU * CWK A2,ENTKEY ENTER KEY? RF(NE) KBCL85 NO LD A1,RDMORE,A11 INSIDE IDENT ROUTINE? RF(Z) KBCL85 NO LDK A7,0 INDICATE KEY-HANDLING RF KBCL90 KBCL85 EQU * CF A14,ERROR ILLEGAL KEY KBCL90 EQU * RTN A14 EJECT ******************************************************************** * * * KBCPSY KB-COMPLETION IN SYSTEM MODE * * * ******************************************************************** * REGISTERS * * A2= KEY-CHAR * A3= KEY-TABLE INDEX * A4= RESERVED * A5= RESERVED * A6= RESERVED * A7= KEY-HANDLING INDICATOR * A11= CREDIT WORK AREA * A13= RESERVED * *********************************************************** KBCPSY EQU * LDK A7,0 INDICATE KEY-HANDLING CWK A2,FIPA PROGRAM ATTN. KEY? RF(L) KBCS20 NO CWK A2,CLRKEY UNALLOWED PROGRAM ATTN. KEY? RF(NE) KBCS10 NOT CLEAR KEY LDK A7,1 INDICATE NO KEY-HANDLING CF A14,ERASE ERASE ENTIRE SCREEN RF KBCS80 KBCS10 EQU * RF(G) KBCS70 YES CM MODE,A11 CF A14,LMP6OF CLEAR INSERT MODE CF A14,DCABOR ABORT DC RF KBCS80 KBCS20 EQU * CWK A2,ERIKEY ERASE INPUT KEY? RF(E) KBCS80 YES CWK A2,ERFKEY ERASE END OF FIELD KEY? RF(E) KBCS80 YES CWK A2,CRUP INITIATE CURSOR? =1 RF(NL) KBCS90 NO =1 LD A1,CURPOS,A11 CWK A1,/800 CURSOR INITIATED? RF(NE) KBCS90 YES CF A14,SCRINF GET SCREEN INFO. ST A4,CURPOS,A11 INITIATE CURSOR RF KBCS90 KBCS70 EQU * CF A14,ERROR INDICATE ERROR LDK A7,1 NO KEY-HANDLING RF KBCS90 KBCS80 EQU * LDKL A1,NEWMOD INDICATE MODE ACTIVATION ORS A1,SNAMOD,A11 KBCS90 EQU * RTN A14 EJECT ****************************************************************** * * * KBCPJO KB-COMPLETION IN MY JOB MODE * * * ****************************************************************** * REGISTERS * * A2= KEY-CHAR * A3= KEY-TABLE INDEX * A4= RESERVED * A5= RESRVED * A6= RESRVED * A7= KEY-HANDLING INDICATOR * A11= CREDIT WORK AREA * A13= RESERVED * ************************************************************ KBCPJO EQU * LDK A7,0 INDICATE KEY-HANDLING CWK A2,FIPA PROGRAM ATTN. KEY? RF(L) KBCJ90 NO IFT OFLIN=1 RF(E) KBCJ80 XIF IFT SNA=1 CM MODE,A11 CF A14,LMP6OF TURN OFF INSERT LAMP CF A14,DCABOR ABORT DC IFT OFLIN=1 RF KBCJ90 KBCJ80 EQU * CF A14,ERROR INDICATE ERROR LDK A7,1 NO KEY-HANDLING XIF IFT SNA=1 KBCJ90 EQU * RTN A14 XIF EJECT *************************************************************** * * * READKB READ KEYBOARD WITH NO WAIT * * * *************************************************************** * REGISTERS * * A8= KB-ECB * A11= CREDIT WORK AREA * A13= RESERVED * ***************************************************** READKB EQU * LD A8,ECBKB,A11 LDK A7,0 CLEAR ECBCW ST A7,ECBCW,A8 LDK A7,1 ST A7,ECBRL,A8 * NO POWER OF INDICATOR ,...DK 81-10-17 * LDK A7,2 STANDARD READ LKM DATA 1 RTN A14 ** READ FROM SECOND KEYBOARD, P & T, DK ** READK2 EQU * LD A8,ECBKB2,A11 GET ECB LDK A7,0 CLEAR ECBCW ST A7,ECBCW,A8 LDK A7,1 ST A7,ECBRL,A8 LDK A7,2 STANDARD READ LKM DATA 1 RTN A14 **END DK MODIFICATION ** EJECT *************************************************************** * * * RESKB RESET KEYBOARD BUFFER * * * *************************************************************** * REGISTERS * * A11= CREDIT WORK AREA * A13= RESERVED * ****************************************************** RESKB EQU * * REMOVED UNTIL NEEDED......DK, 811028....** RTN A14 EJECT *********************************************************** * * * ICVRED KB/VDU INTERTASK READ * * *********************************************************** * REGISTERS * * A2= RESERVED * A11= CREDIT WORK AREA * A13= RESERVED * *********************************************************** ICVRED EQU * LD A8,ECBICR,A11 CF A14,ICSET SET NO TIMEOUT IFF COPCMD=1 LD A1,PRTID,A11 XIF IFT COPCMD=1 LDK A1,0 UNADDRESSED XIF LDKL A3,REGI ADR A3,A11 LDK A2,2 LENGTH CF A14,ICREAD READ INTERTASK RTN A14 EJECT **************************************************************** * * * ICINP INTERTASK INPUT * * * **************************************************************** * REGISTERS * * A11= CREDIT WORK AREA * A13= RESERVED * **************************************************************** ICINP EQU * LD* A2,ECBBA,A8 IFT COPCMD=1 LDR A1,A2 COPY COMMAND? RF(NN) ICIN80 NO LDKL A3,BVDU BUFFER TO SEND ADR A3,A11 IFT COPL=1 LCR A2,A3 CHECK IF ALLOWED TO COPY CCK A2,/8000 ATTRIBUTE? RF(L) ICIN20 NO ANK A2,/20 PROTECTED? RF(NZ) ICIN90 YES DON'T COPY ICIN20 EQU * XIF IFT COPCMD=1 LD A2,ECBCW,A8 GET TO WHOM LD A8,ECBICW,A11 CF A14,ICSET SET TIMEOUT LDR A1,A2 LDKL A2,LBVDU+/20 LENGTH CF A14,ICWRT SEND IT AWAY LDKL A1,HCPMOD HARDCOPY OUTSTANDING ORS A1,BSCMOD,A11 RF ICIN90 ICIN80 EQU * XIF LDKL A1,HCPMOD RESET HARDCOPY OUTSTANDING IFT SNA=1 XRS A1,SNAMOD,A11 XIF IFF SNA=1 XRS A1,BSCMOD,A11 XIF ANK A2,1 PRINTER OK? RF(Z) ICIN90 YES ICIN90 EQU * RTN A14 EJECT *********************************************************** * * * ICSET SET INTERTASK TIMEOUT * * * *********************************************************** * REGISTERS * * A2= RESERVED * A8= INTERTASK ECB * A11= RESERVED * A13= RESERVED * ********************************************************** ICSET EQU * LDKL A1,-1 NO TIMEOUT ST A1,ECBCW,A8 LDK A7,/B9 SET TIMEOUT LKM DATA 1 RTN A14 EJECT ************************************************************* * * * ICREAD INTERTASK READ * * * ************************************************************** * REGISTERS * * A1= TASK ID * A2= LENGTH * A3= BUFFER ADDRESS * A8= INTETASK READ ECB * A11= RESERVED * A13= RESERVED * ************************************************************* ICREAD EQU * ST A1,ECBCW,A8 TASK ID ST A2,ECBRL,A8 LENGTH ST A3,ECBBA,A8 BUFFER ADDRESS LDK A7,/02 READ LKM DATA 1 RTN A14 EJECT *************************************************************** * * * ICWRT INTERTASK WRITE * * * *************************************************************** * REGISTERS * * A1= TASK ID * A2= LENGTH * A3= BUFFER ADDRESS * A8= INTERTASK WRITE ECB * A11= RESERVED * A13= RESERVED * **************************************************************** ICWRT EQU * ST A1,ECBCW,A8 TASK ID ST A2,ECBRL,A8 LENGTH ST A3,ECBBA,A8 BUFFER ADDRESS LDK A7,/86 WRITE LKM DATA 1 RTN A14 EJECT ******************************************************************* * * * ERROR ILLEGAL KEY-HANDLING * * * ******************************************************************* * REGISTERS * * A11= CREDIT WORK AREA * A13= RESERVED * ******************************************************* ERROR EQU * CF A14,LMP4ON TURN ON 'ERROR' LAMP LDK A1,4 RESET ALLOWED ORS A1,KBINH,A11 CF A14,SOUND TURN ON SOUND ALARM RTN A14 EJECT ************************************************************* * * * LAMPROUTINES * * * ************************************************************* LMP1ON LDK A1,LAMP1 RF LMPON LMP1OF LDK A1,LAMP1 RF LMPOF LMP2ON LDK A1,LAMP2 RF LMPON LMP2OF LDK A1,LAMP2 RF LMPOF LMP3ON LDK A1,LAMP3 RF LMPON LMP3OF LDK A1,LAMP3 RF LMPOF LMP4ON LDK A1,LAMP4 RF LMPON LMP4OF LDK A1,LAMP4 RF LMPOF LMP5ON LDK A1,LAMP5 RF LMPON LMP5OF LDK A1,LAMP5 RF LMPOF LMP5FL LDK A1,LAMP5 RF LMPFL LMP6ON LDK A1,LAMP6 RF LMPON LMP6OF LDK A1,LAMP6 RF LMPOF * LMPON LDK A7,LON RF SDISP LMPOF LDK A7,LOF RF SDISP LMPFL LDK A7,LFL RF SDISP EJECT ************************************************************* * * * SDISP SIGNAL ROUTINE * * * ************************************************************* * REGISTERS * * A8= SIGNAL ECB * A11= CREDIT WORK AREA * A13= RESERVED * ******************************************************* SDISP EQU * LD A8,ECBSD,A11 ST A1,ECBCW,A8 ** SECOND KEYBOARD MODS, DK, P & T ** LD A8,ECBSD,A11 GET DISP. ECB LDK A1,/41 CHANGE FILE CODE SC A1,1,A8 LKM DATA 1 LAMPS ON SECOND KEYB'RD SDISP1 EQU * LD A8,ECBSD,A11 LDK A1,/40 RESTORE FILE CODE 1ST KB SC A1,1,A8 ** END OF DK MODS ** LKM DATA 1 RTN A14 EJECT **************************************************************** * * * KEYTAB KEY-TABLE, FIXED ENTRY FOR EACH FUNC. * * * **************************************************************** KEYTAB EQU * *20 DATA CHAR SPACE DATA CHAR ! DATA CHAR " DATA CHAR DATA CHAR $ DATA CHAR DATA CHAR & DATA CHAR ' DATA CHAR ( DATA CHAR ) DATA CHAR * DATA NUM + DATA NUM , DATA NUM - DATA NUM . DATA CHAR / *30 DATA NUM 0 DATA NUM 1 DATA NUM 2 DATA NUM 3 DATA NUM 4 DATA NUM 5 DATA NUM 6 DATA NUM 7 DATA NUM 8 DATA NUM 9 DATA CHAR : DATA CHAR ; DATA CHAR < DATA CHAR = DATA CHAR > DATA CHAR ? *40 DATA CHAR DATA CHAR A DATA CHAR B DATA CHAR C DATA CHAR D DATA CHAR E DATA CHAR F DATA CHAR G DATA CHAR H DATA CHAR I DATA CHAR J DATA CHAR K DATA CHAR L DATA CHAR M DATA CHAR N DATA CHAR O *50 DATA CHAR P DATA CHAR Q DATA CHAR R DATA CHAR S DATA CHAR T DATA CHAR U DATA CHAR V DATA CHAR W DATA CHAR X DATA CHAR Y DATA CHAR Z DATA CHAR DATA CHAR DATA CHAR DATA CHAR ^ DATA CHAR UNDERLINE *60 DATA CHAR DATA CHAR a LOWER CASE A-Z DATA CHAR b DATA CHAR c DATA CHAR d DATA CHAR e DATA CHAR f DATA CHAR g DATA CHAR h DATA CHAR i DATA CHAR j DATA CHAR k DATA CHAR l DATA CHAR m DATA CHAR n DATA CHAR o *70 DATA CHAR p DATA CHAR q DATA CHAR r DATA CHAR s DATA CHAR t DATA CHAR u DATA CHAR v DATA CHAR w DATA CHAR x DATA CHAR y DATA CHAR z DATA CHAR DATA CHAR DATA CHAR DATA CHAR DATA RETURN *80 DATA CURMOV DATA CURMOV DATA CURMOV DATA CURMOV DATA BAKTAB DATA TAB DATA CRNL DATA RDHOME DATA EREOF DATA ERINPT IFT IN:DL=1 DATA INSERT DATA DELETE XIF IFF IN:DL=1 DATA RETURN DATA RETURN XIF DATA RESET DATA DUP DATA FLDMRK DATA ZERO:2 *90 DATA ZERO:3 DATA NUMCOM DATA COPY DATA IDENT IFT KEYLST=1 DATA KEYL DATA KEYL DATA KEYL DATA KEYL DATA KEYL DATA KEYL DATA KEYL DATA KEYL XIF IFF KEYLST=1 DATA RETURN DATA RETURN DATA RETURN DATA RETURN DATA RETURN DATA RETURN DATA RETURN DATA RETURN XIF DATA RETURN FREE LABEL FOR NEW KEY (NOT P. A. KEY) DATA RETURN FREE LABEL FOR NEW KEY (NOT P. A. KEY) DATA RETURN FREE LABEL FOR NEW KEY (NOT P. A. KEY) *FIRST P. A. KEY IFT OFLIN=1 DATA OFLINE XIF IFF OFLIN=1 DATA RETURN XIF *A0 DATA ENTER IFT SNA=1 DATA SYSREQ DATA CLEAR DATA ATTN XIF IFF SNA=1 DATA RETURN DATA CLEAR DATA RETURN XIF IFT NBRLIN=2 DATA MFCHGE XIF IFF NBRLIN=2 DATA RETURN XIF IFT PAX=1 DATA PAEX XIF IFF PAX=1 DATA RETURN XIF DATA PA1 DATA PA2 DATA PA3 DATA PAALFA PA4-PA10 (ALFASKOP) DATA PAALFA DATA PAALFA DATA PAALFA DATA PAALFA DATA PAALFA DATA PAALFA *B0 IFT PFX=1 DATA PFEX XIF IFF PFX=1 DATA RETURN XIF DATA PF 1 DATA PF 2 DATA PF 3 DATA PF 4 DATA PF 5 DATA PF 6 DATA PF 7 DATA PF 8 DATA PF 9 DATA PF 10 DATA PF 11 DATA PF 12 DATA PF 13 DATA PF 14 DATA PF 15 *C0 DATA PF 16 DATA PF 17 DATA PF 18 DATA PF 19 DATA PF 20 DATA PF 21 DATA PF 22 DATA PF 23 DATA PF 24 IFF TEST=1 DATA RETURN XIF IFT TEST=1 DATA TESTM XIF EJECT ************************************************************** * * * CHAR ALPHABETIC AND SPEC. CHAR UPDAT. DISPL. * * * ************************************************************** * REGISTERS * * A2= KEY-CHAR * A3= ATTRIBUTE MASKL * A4= RESERVED * A5= RESERVED * A6= RESERVED * A11= RESERVED * A13= RESERVED * ************************************************************** CHAR EQU * LDK A3,/30 LOAD ATTRIBUTE MASK CF A14,ANCOMM TAKE CARE OF CHAR. RTN A14 EJECT ************************************************************** * * * NUM NUMERIC UPDAT. DISPL. * * NUMCOM NUMERIC COMMA * * * ************************************************************** * REGISTERS * * A2= KEY-CHAR * A3= ATTRIBUTE MASK * A4= RESERVED * A5= RESERVED * A6= RESERVED * A11= RESERVED * A13= RESERVED * ************************************************************* NUMCOM EQU * LDK A2,/2C INSERT COMMA NUM EQU * LDK A3,/20 LOAD ATTRIBUTE MASK CF A14,ANCOMM TAKE CARE OF CHAR. RTN A14 EJECT *************************************************************** * * * ANCOMM COMMON ROUTINE FOR ALPHANUM. CHAR. * * * *************************************************************** * REGISTERS * * A2= KEY-CHAR * A3= AT ENTRY ATTRIBUTE MASK * A4= REL. CURSOR POS. * A5= REL. ATTRIBUTE POS. * A6= ATTRIBUTE CHAR. * A11= CREDIT WORK AREA * A13= RESERVED * *************************************************************** ANCOMM EQU * CF A14,SCRINF GET SCREEN INFORMATION CWR A4,A5 CURSOR ON ATTRIBUTE RF(E) ANC800 YES LDR A1,A6 ANR A1,A3 ALLOWED POS. ? RF(NZ) ANC800 NO IFT IN:DL=1 LD A1,MODE,A11 INSERT MODE? RF(Z) ANC100 NO CF A14,INSMOD LDR A7,A1 ANK A7,1 INSRETED NORMAL? RF(NZ) ANC900 YES ANK A1,2 INSERT NOT ALLOWED? RF(NZ) ANC800 YES XIF ANC100 EQU * LDR A1,A4 LDR A7,A2 CF A14,STOVDU STORE KEY-CHAR IN VDU BUFFER CF A14,WCHAR DISPLAY CHAR AND CURSOR CF A14,POSUNP MOVE CURSOR TO NEXT UNPROTECTED POS. RF ANC900 ANC800 EQU * CF A14,ERROR INDICATE ERROR ANC900 EQU * RTN A14 EJECT ************************************************************ * * * CURMOV MOVE CURSOR ON SCREEN * * * ************************************************************ * REGISTERS * * A2= KEY-CHAR * A4= REL. CURSOR POS. * A5= REL. ATTRIBUTE POS. * A6= ATTRIBUTE CHAR * A11= RESERVED * A13= RESERVED * ************************************************************ CURMOV EQU * CF A14,SCRINF GET SCREEN INFO. SUK A2,CRUP GET INDEX ADR A2,A2 CFI A14,CURTAB,A2 JUMP IN CURSOR TABLE CF A14,STOINF SAVE SCREEN INFORMATION CWK A5,LBVDU+1 UNFORMATTED SCREEN RF(E) CURM10 YES LDR A1,A4 CF A14,ATMASB UPDATE ATTRIBUTE CURM10 EQU * LDK A1,2 REQ. LENGTH CF A14,DISCHA SET CURSOR RTN A14 EJECT * CURTAB CURSOR JUMP TABLE CURTAB EQU * DATA CRLEFT MOVE CURSOR TO LEFT DATA CRRIGT MOVE CURSOR TO RIGHT DATA CRDOWN MOVE CURSOR DOWN DATA CURUP MOVE CURSOR UP * CRLEFT MOVE CURSOR TO LEFT CRLEFT EQU * SUK A4,1 RF(NN) CRRET NOT LEFTMOST POS. LDKL A4,LBVDU-1 LAST POS. ON SCREEN RF CRRET * CRRIGT MOVE CURSOR TO RIGHT CRRIGT EQU * ADK A4,1 CWK A4,LBVDU END OF BUFFER? RF(L) CRRET NO LDK A4,0 RF CRRET * CRDOWN MOVE CURSOR DOWN CRDOWN EQU * ADKL A4,LLINE CWK A4,LBVDU LAST LINE? RF(L) CRRET NO SUKL A4,LBVDU RF CRRET * CURUP MOVE CURSOR UP CURUP EQU * SUKL A4,LLINE RF(NN) CRRET UPMOST LINE ADKL A4,LBVDU CRRET EQU * RTN A14 EJECT ************************************************************** * * * BAKTAB TAB. UNPROTECTED BACKWARDS * * * ************************************************************** * REGISTERS * * A4= REL. CURSOR POS. * A5= REL. ATTRIBUTE POS. * A6= ATTRIBUTE CHAR. * A9= REL. ATTRIBUTE START POS. * A11= RESERVED * A13= RESERVED * *************************************************************** BAKTAB EQU * CF A14,SCRINF GET SCREEN INFORMATION LDR A9,A5 CWK A5,LBVDU+1 UNFORMATTED SCREEN? RF(E) BAK600 YES CWR A4,A5 STANDING ON ATTRIBUTE? RF(E) BAK300 YES SUK A4,1 RF(NN) BAK100 NOT FIRST POS. ON SCREEN LDKL A4,LBVDU-1 LAST POS. ON SCREEN BAK100 EQU * CWR A4,A5 STANDING ON POS. AFTER ATTRIBUTE? RF(E) BAK300 YES LDR A4,A5 LDR A7,A6 ANK A7,/20 PROTECTED FIELD? RF(Z) BAK500 NO BAK300 EQU * SUK A4,1 RF(NN) BAK400 LDKL A4,LBVDU-1 BAK400 EQU * LDR A1,A4 CF A14,ATMASB SEARCH ATTRIBUTE BACKWARDS AND MASK IT LDR A7,A6 ANK A7,/20 PROTECTED FIELD? RF(Z) BAK500 NO LDR A4,A5 CWR A5,A9 WHOLE SCREEN SEARCHED? RB(NE) BAK300 NO LDK A1,0 FIRST SCREEN POS. CF A14,ATMASB UPDATE FIELD INFORMATION RF BAK600 BAK500 EQU * LDR A4,A5 ADK A4,1 CWK A4,LBVDU-1 WRAP AROUND? RF(NG) BAK700 NO BAK600 EQU * LDK A4,0 FIRST SCREEN POS. BAK700 EQU * CF A14,STOINF SAVE SCREEN INFORMATION LDK A1,2 REQ. LENGTH CF A14,DISCHA SET CURSOR RTN A14 EJECT ************************************************************* * * * TAB TAB. UNPROTECTED FORWARD * * * ************************************************************* * REGISTERS * * A4= REL. CURSOR POS. * A5= REL. ATTRIBUTE POS. * A6= ATTRIBUTE CHAR. * A9= REL. ATTRIBUTE START POS. * A11= RESERVED * A13= RESERVED * ************************************************************** TAB EQU * CF A14,SCRINF GET SCREEN INFORMATION LDR A9,A5 CWK A5,LBVDU+1 UNFORMATTED SCREEN? RF(E) TAB200 YES TAB100 EQU * LDR A1,A4 CF A14,ATMASF SEARCH ATTRIBUTE FORWARD LDR A4,A5 NEW CURSOR POS. LDR A7,A6 ANK A7,/20 PROTECTED FIELD? RF(Z) TAB150 NO CWR A5,A9 WHOLE SCREEN SEARCHED? RB(NE) TAB100 NO LDK A1,0 FIRST POS. ON SCREEN CF A14,ATMASB UPDATE FIELD INFORMATION RF TAB200 TAB150 EQU * ADK A4,1 CWK A4,LBVDU-1 LAST SCREEN POS.? RF(NG) TAB300 NO TAB200 EQU * LDK A4,0 FIRST SCREEN POS. TAB300 EQU * CF A14,STOINF SAVE SCREEN INFORMATION LDK A1,2 REQ. LENGTH CF A14,DISCHA SET CURSOR RTN A14 EJECT ******************************************************************* * * * CRNL TAB. UNPROTECTED TO NEXT LINE * * * ******************************************************************* * REGISTERS * * A4= REL. CURSOR POS. * A5= REL. ATTRIBUTE POS. * A6= ATTRIBUTE CHAR. * A11= RESERVED * A13= RESERVED * ***************************************************************** CRNL EQU * CF A14,SCRINF GET SCREEN INFORMATION CF A14,CRDOWN MOVE CURSOR DOWN LDK A1,0 COMPUTE LEFTMOST POS. CRN100 EQU * SUK A4,LLINE RF(N) CRN200 ADK A1,LLINE RB CRN100 CRN200 EQU * LDR A4,A1 CWK A5,LBVDU+1 UNFORMATTED SCREEN? RF(E) CRN800 YES CF A14,GETVDU GET CHAR. IN VDU BUFFER CCK A7,/80 ATTRIBUTE? RF(NL) CRN400 YES LDR A1,A4 CF A14,ATMASB SEARCH ATTRIBUTE BACKWARD LDR A7,A6 ANK A7,/20 PROTECTED? RF(Z) CRN800 NO RF CRN500 CRN400 EQU * SUK A4,1 RF(NN) CRN500 NOT WRAP AROUND LDKL A4,LBVDU-1 LAST SCREEN POS. CRN500 EQU * CF A14,STOINF SAVE SCREEN INFORMATION CF A14,TAB TAB. UNPROTECTED FORWARD RF CRN900 CRN800 EQU * CF A14,STOINF SAVE SCREEN INFORMATION LDK A1,2 REQ. LENGTH CF A14,DISCHA SET CURSOR CRN900 EQU * RTN A14 EJECT ********************************************************************* * * * RDHOME TAB. UNPROTECTED FIRST ON SCREEN * * * ********************************************************************* * REGISTERS * * A4= REL. CURSOR POS. * A5= REL. ATTRIBUTE POS. * A6= ATTRIBUTE CHAR. * A11= RESERVED * A13= RESERVED * ********************************************************************* RDHOME EQU * CF A14,SCRINF GET SCREEN INFORMATION LDK A4,0 FIRST POS. ON SCREEN CF A14,STOINF CWK A5,LBVDU+1 UNFORMATTED SCREEN? RF(E) RDH800 YES LDR A1,A4 CF A14,GETVDU GET CHAR. IN VDU BUFFER CCK A7,/8000 ATTRIBUTE? RF(L) RDH100 NO LDKL A4,LBVDU-1 LAST SCREEN POS. CF A14,STOINF SAVE SCREEN INFORMATION RF RDH300 RDH100 EQU * LDR A1,A4 CF A14,ATMASB GET ATTRIBUTE BACKWARD LDR A7,A6 ANK A7,/20 PROTECTED? RF(Z) RDH800 NO RDH300 EQU * CF A14,TAB TAB. UNPROTECTED FORWARD RF RDH900 RDH800 EQU * CF A14,STOINF SAVE SCREEN INFORMATION LDK A1,2 REQ. LENGTH CF A14,DISCHA SET CURSOR RDH900 EQU * RTN A14 EJECT ************************************************************* * * * EREOF ERASE TO END OF FIELD * * * ************************************************************* * REGISTERS * * A4= REL. CURSOR POS. * A5= REL. ATTRIBUTE POS. * A6= ATTRIBUTE CHAR. * A11= RESERVED * A13= RESERVED * ******************************************************************* EREOF EQU * CF A14,SCRINF GET SCREEN INFORMATION CWK A5,LBVDU+1 UNFORMATTED SCREEN? RF(E) ERE700 YES LDR A7,A6 ANK A7,/20 PROTECTED FIELD? RF(NZ) ERE600 YES CWR A5,A4 STANDING ON ATTRIBUTE? RF(E) ERE600 YES LDR A1,A4 LDR A8,A6 SAVE OLD LDR A9,A5 SAVE OLD CF A14,ATMASF SEARCH ATTRIBUTE FORWARD LDR A3,A5 LDR A6,A8 LDR A5,A9 ORK A6,1 SET MDT-BIT IN ATTRIBUTE LDR A7,A6 LDR A1,A5 CF A14,STOVDU STORE NEW ATTRIBUTE IN VDU BUFFER CF A14,STOINF SAVE NEW SCREEN INFORMATION LDR A1,A3 STOP ADDRESS RF ERE800 ERE600 EQU * CF A14,ERROR INDICATE ERROR RF ERE900 ERE700 EQU * LDR A10,A4 CF A14,ERASE ERASE ENTIRE SCREEN LDR A4,A10 CF A14,STOINF LDK A1,2 CF A14,DISCHA SET CURSOR RF ERE900 ERE800 EQU * SUR A10,A10 CF A14,ERASUA ERASE UNPROTECTED TO ADDRESS CF A14,DISMOD DISPLAY MODIFIED FIELD ERE900 EQU * RTN A14 EJECT ******************************************************************* * * * ERINPT ERASE UNPROTECTED ENTIRE SCREEN * * * ******************************************************************* * REGISTERS * * A4= REL. CURSOR POS. * A5= REL. ATTRIBUTE POS. * A6= ATTRIBUTE CHAR. * A11= RESERVED * A13= RESERVED * ******************************************************************* ERINPT EQU * CF A14,SCRINF GET SCREEN INFORMATION CWK A5,LBVDU+1 UNFORMATTED SCREEN? RF(NE) ERI100 NO CF A14,ERASE ERASE ENTIRE SCREEN RF ERI900 ERI100 EQU * CF A14,ERASUP ERASE ALL UNPROTECTED CF A14,DISMOD DISPLAY ERASED FIELDS CF A14,RDHOME TAB. UNPROTECTED FIRST ON SCREEN ERI900 EQU * RTN A14 EJECT IFT IN:DL=1 ******************************************************** * * * INSERT INSERT KEY HANDLING * * * ******************************************************** * REGISTERS * * A11= CREDIT WORK AREA * A13= RESERVED * *************************************************** INSERT EQU * IM MODE,A11 SET INSERT MODE RTN A14 EJECT ****************************************************** * * * DELETE DELETE CHAR. HANDLING * * * ******************************************************* * REGISTERS * * A4= REL. CURSOR POS. * A5= REL. ATTRIBUTE POS. * A6= ATTRIBUTE CHAR. * A11= CREDIT WORK AREA * A13= RESERVED * ******************************************************* DELETE EQU * CF A14,SCRINF GET SCREEN INFORMATION LDKL A3,-1 DEL025 EQU * ADK A3,LLINE CWR A3,A4 LAST POS. ON CURRENT LINE? RB(L) DEL025 NO CWK A5,LBVDU+1 UNFORMATTED SCREEN? RF(E) DEL200 YES CWR A4,A5 STANDING ON ATTRIBUTE? RF(E) DEL700 YES LDR A7,A6 ANK A7,/20 PROTECTED? RF(NZ) DEL700 YES ORK A6,1 SET MDT-BIT LDR A7,A6 LDR A1,A5 CF A14,STOVDU SAVE NEW ATTRIBUTE LDR A8,A6 SAVE OLD LDR A9,A5 SAVE OLD CF A14,ATMASF SEARCH ATTRIBUTE FORWARD LDR A1,A5 LDR A6,A8 LDR A5,A9 CF A14,STOINF SAVE SCREEN INFORMATION CWR A3,A1 ATTRIBUTE BEFOR END OF LINE? RF(NG) DEL200 NO LDR A3,A1 DEL200 EQU * LDR A1,A4 DEL300 EQU * ADK A1,1 CF A14,GETVDU GET CHAR. IN VDU BUFFER SUK A1,1 CF A14,STOVDU STORE CHAR. IN VDU BUFFER ADK A1,1 CWR A1,A3 ALL SHIFTED? RB(NE) DEL300 NO LDK A7,NULL GET NULL CHAR. CF A14,STOVDU STORE NULL CHAR IN VDU BUFFER CF A14,SAVE1 LDK A5,LLINE LDR A6,A11 SUR A10,A10 CF A14,LINE GET LINE FLAG LC A1,LINFLG,A6 ORK A1,1 SC A1,LINFLG,A6 CF A14,REST1 CF A14,DISMOD DISPLAY MODIFIED LINE RF DEL900 DEL700 EQU * CF A14,ERROR INDICATE ERROR DEL900 EQU * RTN A14 XIF EJECT ******************************************************** * * * RESET RESET KEY HANDLING * * * ******************************************************** * REGISTERS * * A11= CREDIT WORK AREA * A13= RESERVED * **************************************************** RESET EQU * CM MODE,A11 RESET INSERT MODE CF A14,LMP6OF TURN OFF "INSERT" LAMP CM KBINH,A11 RESSTORE KEYBOARD CF A14,LMP4OF TURN OFF 'ERROR' LAMP CF A14,LMP3OF TURN OFF 'KEYBOARD INHIBIT' LAMP RTN A14 EJECT *********************************************************** * * * DUP DUPLICATE KEY * * * *********************************************************** * REGISTERS * * A2= KEY-CHAR * A11= RESERVED * A13= RESERVED * ************************************************************ DUP EQU * LDK A2,DUPCH GET DUP CHAR. CF A14,NUM CF A14,TAB RTN A14 EJECT *********************************************************** * * * FLDMRK FIELD MARK KEY * * * *********************************************************** * REGISTERS * * A2= KEY-CHAR * A11= RESERVED * A13= RESERVED * *********************************************************** FLDMRK EQU * LDK A2,FMCH GET FIELD MARK CHAR. CF A14,NUM RTN A14 EJECT *************************************************************** * * Z E R O : 3 TRIPLE ZERO KEY * Z E R O : 2 DOUBLE ZERO KEY * ************************************************* * REGISTERS * * A2= KEY-CHAR * A11= RESERVED * A13= RESERVED * ********************************************************* ZERO:3 EQU * LDK A2,/30 ZERO CHAR. CF A14,NUM DISPLAY CHARACTER ZERO:2 EQU * LDK A2,/30 ZERO CHAR. CF A14,NUM DISPLAY CHARACTER LDK A2,/30 CF A14,NUM DISPLAY CHARACTER RTN A14 RETURN EJECT IFT OFLIN=1 ******************************************************** * * * OFLINE OFFLINE KEY HANDLING * * * ******************************************************** * REGISTERS * * A11= CREDIT WORK AREA * A13= RESERVED * ******************************************************* OFLINE EQU * CF A14,CLEAR CF A14,RESET CF A14,DCOFLN INDICATE OFFLINE TO DC CF A14,LMP6ON TURN ON OFFLINE LAMP IM OFFFLG,A11 SET OFFLINE FLAG ADKL A14,4 SKIP ONE STACK LEVEL LD A13,2,A14 RELOAD REGISTERS A12-A13 LD A12,4,A14 ADKL A14,4 UPDATE STACK POINTER ABL I:RT1 RETURN TO "OFFLINE" PROGRAM XIF EJECT ********************************************************* * * * MFCHGE MAIN FRAME CHANGE * * * ********************************************************* * REGISTERS * * A11= CREDIT WORK AREA * A13= RESERVED * ******************************************************* IFT NBRLIN=2 MFCHGE EQU * CF A14,CLEAR CF A14,RESET CF A14,LMP1OF CF A14,LMP2OF CF A14,LMP3OF LD A1,MAIN,A11 XRK A1,1 RF(NZ) MFCH10 CF A14,LMP1ON RF MFCH90 MFCH10 EQU * CF A14,LMP2ON MFCH90 EQU * ST A1,MAIN,A11 CF A14,CHKSTA CHECK LINE STATUS RTN A14 XIF EJECT *********************************************************** * * * COPY LOCAL HARDCOPY * * * *********************************************************** * REGISTERS * * A11= CREDIT WORK AREA * A13= T:A ADDRESS * ************************************************************* COPY EQU * LD A1,SNAMOD,A11 ANKL A1,HCPMOD HARDCOPY ALREADY OUTSTANDING? RF(NZ) COPY80 YES,WAIT A WHILE LD A1,PRTID,A11 RF(Z) COPY80 PRINTER NOT ASSIGNED ANK A1,/FF CHECK IF PRINTER OK IN TASK TABLE SUK A1,/30 SLL A1,2 LDK A3,TSKTAB LD A4,+6,A13 GET COMMON AREA ADR A3,A4 ADR A3,A1 PRINTER ASSIGNED FOUND LC A1,+3,A3 ANK A1,/FF PRINTER OK? RF(Z) COPY10 YES RF COPY90 COPY10 EQU * LDK A1,/38 INDICATE HARDCOPY IN WCC ST A1,WCC,A11 LDKL A3,BVDU BUFFER ADR A3,A11 ADDRESSS LD A8,ECBICW,A11 CF A14,ICSET SET NO TIMEOUT LD A1,PRTID,A11 HARDCOPY TASK ID LDKL A2,LBVDU+/20 BUFFER LENGTH CF A14,ICWRT WRITE INTERTASK IFT SNA=1 LDKL A1,HCPMOD INDICATE HARDCOPY OUTSTANDING ORS A1,SNAMOD,A11 XIF IFF SNA=1 LDKL A1,HCPMOD INDICATE HARDCOPY OUTSTANDING ORS A1,BSCMOD,A11 XIF RF COPY90 COPY80 EQU * CF A14,ERROR COPY90 EQU * RTN A14 EJECT *************************************************************** * * * IDENT PRINTER IDENT. HANDLING * * *************************************************************** * REGISTERS * * A3= POINTER IN TASK TABLE * A11= CREDIT WORK AREA * A13= T:A ADDRESS * ************************************************************* IDENT EQU * LD A1,PRTID,A11 GET CURRENT TASKID LD A4,+6,A13 COMMON BLOCK BASE ANK A1,X'FF' GET OFFSET SUK A1,/30 SLL A1,2 LDKL A3,TSKTAB ADR A3,A4 ADR A3,A1 IDEN30 EQU * LCR A5,A3 GET ID SLL A5,8 LC A5,+1,A3 LC A4,+3,A3 GET STATUS CF A14,SAVE1 SAVE REGISTERS CF A14,DISID DISPLAY TASKID LDKL A1,IDEN40 NEXT KEY ENTRY ST A1,RDMORE,A11 RF IDEN90 NEXT KEY IDEN40 EQU * CM RDMORE,A11 LDR A9,A2 CF A14,REST1 RESTORE REGISTERS CWK A9,ENTKEY SAVE CURRENT TASKID RF(E) IDEN80 YES CWK A9,IDKEY GET NEXT TASKID? RF(NE) IDEN90 NO KEEP THE FIRST ONE IDEN50 EQU * ADK A3,4 SEARCH FOR NEXT PRINTER LCR A2,A3 ANK A2,/FF LDR A1,A2 RB(Z) IDEN50 SLL A1,8 RF(N) IDEN60 CCK A2,VDUCOD PRINTER? RB(NE) IDEN30 YES RB IDEN50 IDEN60 EQU * LDKL A2,TSKTAB LD A3,6,A13 ADR A3,A2 SUK A3,4 RB IDEN50 IDEN80 EQU * LCR A1,A3 GET PRINTER TO SAVE SLL A1,8 LC A1,+1,A3 ST A1,PRTID,A11 NEW HARDCOPY TASKID IDEN90 EQU * RTN A14 EJECT ************************************************************* * * * KEYL KEYLOCK STATUS * * * ************************************************************* * REGISTERS * * A2= KEYLOCK VALUE * A11= CREDIT WORK AREA * A13= RESERVED * ************************************************************** IFT KEYLST=1 IFT KB6272=1 KEYL EQU * SUK A2,LKLKEY GET NEG KEY LOCK VALUE LD A3,KEYS,A11 OLD STATUS LDK A4,/10 KEYL10 EQU * SRL A4,1 ADK A2,2 1 = OFF,0 = ON RB(N) KEYL10 ANR A3,A4 CHECK OLD KEY POS RF(NZ) KEYL20 WAS ON LDR A2,A2 WAS OFF RF(NZ) KEYL99 NOW OFF, NO CHANGE RF KEYL30 NOW ON KEYL20 EQU * WAS ON LDR A2,A2 RF(Z) KEYL99 NOW ON, NO CHANGE KEYL30 EQU * CHANGE LD A3,KEYS,A11 XRR A3,A4 CHANGE STATUS ST A3,KEYS,A11 STORE NEW STATUS * * KEYLOCK STATUS CHANGED * A3 = NEW STATUS, RIGHTMOST BIT = RIGHTMOST LOCK, BIT ON = LOCK ON * A4 = KEYLOCK CHANGED, LAYOUT AS A3 * A2 = 1, IF CHANGED TO OFF ELSE 0 * * INSERT USER ROUTINE BELOW THIS LINE * KEYL99 EQU * RTN A14 XIF EJECT ********************************************************** * * TESTM TEST MODE * ********************************************************** * REGISTERS * * A11= RESERVED * A13= RESERVED * ********************************************************* IFT TEST=1 TESTM EQU * CF A14,ERASE CF A14,GETBUF CF A14,RDSTAT CF A14,DISSTA LDR A8,A12 CF A14,RELBUF RTN A14 XIF EJECT ********************************************************* * * * ENTER ENTER KEY HANDLING * * * ********************************************************* * REGISTERS * * A2= AID-CODE * A11= RESERVED * A13= RESERVED * ********************************************************* ENTER EQU * LDK A2,/27 AID-CODE CF A14,LMP3ON TURN ON "KEYBOARD INHIBIT" CF A14,TRPF AID+MODIFIED FIELDS+TRANSMIT RTN A14 EJECT ************************************************************** * * * CLEAR CLEAR KEY HANDLING * * * ************************************************************** * REGISTERS * * A2= AID-CODE * A11= RESERVED * A13= RESERVED * ************************************************************** CLEAR EQU * LDK A2,/5F POS FOR 'CLEAR' CF A14,LMP3ON TURN ON "KEYBOARD INHIBIT" CF A14,TRPA UPDATE AID AND TRANSMIT CF A14,ERASE ERASE ENTIRE SCREEN RTN A14 EJECT *************************************************************** * * * SYSREQ SYSTEM REQUEST HANDLING * * * *************************************************************** * REGISTERS * * A11= CREDIT WORK AREA * A13= RESERVED * **************************************************** IFT SNA=1 SYSREQ EQU * CF A14,TSTSTA TEST STATUS LDR A2,A1 GET STATUS ANKL A2,/101 ACTIVE? RF(Z) SYS100 YES LDK A1,LOCMOD INDICATE LOCAL MODE RF SYS500 SYS100 EQU * LDR A2,A1 GET STATUS ANKL A2,/C00 MY JOB MODE? RF(NZ) SYS200 NO CF A14,CLEAR CLEAR SCREEN AND DC CF A14,RESKB RESET KEYBOARD BUFFER LDK A1,SYSOP INDICATE SYSTEM MODE RF SYS500 SYS200 EQU * CWK A2,/C00 SSCP-LU AND NOT LU-LU? RF(NE) SYS300 NO LDK A1,SYSOP INDICATE SYSTEM MODE RF SYS500 SYS300 EQU * ANKL A2,/800 SSCP-LU AND LU-LU? RF(NZ) SYS400 YES LDK A1,SYSOP INDICATE SYSTEM MODE RF SYS500 SYS400 EQU * LDK A1,MYJOB INDICATE MY JOB MODE SYS500 EQU * ORKL A1,NEWMOD INDICATE NEW MODE ACTIVATION ST A1,SNAMOD,A11 RTN A14 XIF EJECT *************************************************************** * * * ATTN ATTENTION KEY HANDLING * * * *************************************************************** * REGISTERS * * A11= RESERVED * A13= RESERVED * ********************************************************** IFT SNA=1 ATTN EQU * LDK A1,/4B SIGNAL ATTENTION KEY CF A14,SETSTA SET STATUS RTN A14 XIF EJECT ************************************************************** * * * PA PROGRAM ACCESS KEY HANDLING * * * ************************************************************** * REGISTERS * * A2= AID-CODE * A11= RESERVED * A13= RESERVED * ************************************************************** PA1 EQU * LDK A2,/25 AID-CODE RF PA500 PA2 EQU * LDK A2,/3E AID-CODE RF PA500 PA3 EQU * LDK A2,/2C AID-CODE PA500 EQU * CF A14,LMP3ON TURN ON KEYBOARD INHIBIT CF A14,TRPA TRANSMIT AID-CODE PAALFA EQU * *INSERT ALFASKOP STATEMENTS RTN A14 EJECT ******************************************************************* * * * PAEX PAEX KEY FOLLOWED BY NUMBER * * * ******************************************************************* * REGISTERS * * A11= CREDIT WORK AREA * A13= RESERVED * *************************************************** IFT PAX=1 PAEX EQU * LDKL A1,PAEXA ST A1,RDMORE,A11 RTN A14 PAEXA EQU * CM RDMORE,A11 SUK A2,/31 CHECK IF NUM.1-3 RF(L) PAERR ILLEGAL CHAR. SUK A2,/2 CHECK IF NUM.1-3 RF(G) PAERR ILLEGAL CHAR. RF(NZ) PAEX10 CF A14,PA3 PA3 KEY RF PARET PAEX10 EQU * ADK A2,1 RF(NZ) PAEX20 CF A14,PA2 PA2 KEY RF PARET PAEX20 EQU * CF A14,PA1 PA1 KEY RF PARET PAERR EQU * CF A14,ERROR INDICATE ERROR PARET EQU * RTN A14 XIF EJECT ****************************************************************** * * * PF PROGRAM FUNTION KEY HANDLING * * * ****************************************************************** * REGISTERS * * A2= AID-CODE * A11= RESERVED * A13= RESERVED * ****************************************************************** PF EQU * SUK A2,PFKEY GET INDEX TO CONVERT LC A2,CONPF,A2 GET AID CF A14,LMP3ON TURN ON KEYBOARD INHIBIT CF A14,TRPF TRANSMIT AID AND MODIFIED FIELDS RTN A14 EJECT ***************************************************************** * * * PFEX PFEX KEY FOLLOWED BY NUMBER * * * ***************************************************************** * REGISTERS * * A11= CREDIT WORK AREA * A13= RESERVED * ************************************************* IFT PFX=1 PFEX EQU * LDKL A1,PFEXA RF PFNXT PFEXA EQU * CM RDMORE,A11 SUK A2,/30 LEGAL CHAR ? RF(L) PFERR ILLEGAL,GO TO ERR.HANDLING RF(NZ) PFEX10 LDKL A1,PF0A FIRST NUM 0 RF PFNXT NEXT NUMBER PFEX10 EQU * SUK A2,1 RF(NZ) PFEX20 LDKL A1,PF1A FIRST NUM 1 RF PFNXT NEXT NUMBER PFEX20 EQU * SUK A2,1 RF(NZ) PFERR ILLEGAL NUM LDKL A1,PF2A FIRST NUM 2 RF PFNXT NEXT NUMBER PF0A EQU * CM RDMORE,A11 SUK A2,/31 ILLEGAL NUM? RF(N) PFERR YES SUK A2,9 ILLEGAL NUM? RF(NN) PFERR YES ADK A2,/9+PFKEY PF1-PF9 RF PFHAND PF1A EQU * CM RDMORE,A11 SUK A2,/30 ILLEGAL NUM? RF(N) PFERR YES SUK A2,/A ILLEGAL NUM? RF(NN) PFERR YES ADK A2,/A+PFKEY+/9 PF10-PF19 RF PFHAND PF2A EQU * CM RDMORE,A11 SUK A2,/30 ILLEGAL NUM? RF(N) PFERR YES SUK A2,5 ILLEGAL NUM? RF(NN) PFERR YES ADK A2,/5+PFKEY+/13 PF20-PF24 PFHAND EQU * CF A14,PF PROGRAM FUNCTION KEY HANDLING RF PFRET PFNXT EQU * ST A1,RDMORE,A11 RF PFRET PFERR EQU * CF A14,ERROR PFRET EQU * RTN A14 XIF EJECT ********************************************************** * * * RETURN RETURN * * * *********************************************************** * REGISTERS * * A11= RESERVED * A13= RESERVED * ******************************************************** RETURN EQU * RTN A14 END
0x00000…00036 (0, 0, 400) Head {h00=0x0032, h01=0x0050, text=» IDENT KEYB REL 11.0 DK 82-02-28 870150541100 «, t00=0x0000, t01=0x0004}
0x00036…0003e Head {h00=0x0004, h01=0x0050, t00=0x0000, t01=0x003a}
0x0003e…00060 Head {h00=0x001e, h01=0x0050, text=» =1, SYSTEM MODE CURSOR «, t00=0x0000, t01=0x0042}
0x00060…00074 Head {h00=0x0010, h01=0x0050, text=» 81-01-26 «, t00=0x0000, t01=0x0064}
0x00074…000bc Head {h00=0x0044, h01=0x0050, text=»*************************************************************** «, t00=0x0000, t01=0x0078}
0x000bc…00104 Head {h00=0x0044, h01=0x0050, text=»* * «, t00=0x0000, t01=0x00c0}
0x00104…0014c Head {h00=0x0044, h01=0x0050, text=»* MODULE KEYB * «, t00=0x0000, t01=0x0108}
0x0014c…00194 Head {h00=0x0044, h01=0x0050, text=»* MODULE HANDLING THE KEYBOARD DEVICE * «, t00=0x0000, t01=0x0150}
0x00194…001dc Head {h00=0x0044, h01=0x0050, text=»* (EMULATION 3270 SNA/SDLC, BSC) * «, t00=0x0001, t01=0x0008}
0x001dc…00224 Head {h00=0x0044, h01=0x0050, text=»* * «, t00=0x0001, t01=0x0050}
0x00224…0026c Head {h00=0x0044, h01=0x0050, text=»*************************************************************** «, t00=0x0001, t01=0x0098}
0x0026c…0027a Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0001, t01=0x00e0}
0x0027a…002c2 Head {h00=0x0044, h01=0x0050, text=»*************************************************************** «, t00=0x0001, t01=0x00ee}
0x002c2…0030a Head {h00=0x0044, h01=0x0050, text=»* * «, t00=0x0001, t01=0x0136}
0x0030a…00352 Head {h00=0x0044, h01=0x0050, text=»* LIST OF ROUTINES * «, t00=0x0001, t01=0x017e}
0x00352…0039a Head {h00=0x0044, h01=0x0050, text=»* * «, t00=0x0002, t01=0x0036}
0x0039a…003e2 Head {h00=0x0044, h01=0x0050, text=»* KBINP MAIN ROUTINE * «, t00=0x0002, t01=0x007e}
0x003e2…0042a Head {h00=0x0044, h01=0x0050, text=»* CPLKB KB-COMPLETION TABLE FOR DIFF. MODES * «, t00=0x0002, t01=0x00c6}
0x0042a…0046a Head {h00=0x003c, h01=0x0050, text=»* KBCPLO KB-COMPLETION ROUTINE IN LOCAL MODE«, t00=0x0002, t01=0x010e}
0x0046a…004b2 Head {h00=0x0044, h01=0x0050, text=»* KBCPSY KB-COMPLETION ROUTINE IN SYSTEM MODE * «, t00=0x0002, t01=0x014e}
0x004b2…004fa Head {h00=0x0044, h01=0x0050, text=»* KBCPJO KB-COMPLETION ROUTINE IN MY JOB MODE * «, t00=0x0003, t01=0x0008}
0x004fa…00542 Head {h00=0x0044, h01=0x0050, text=»* READKB READ KEYBOARD WITH NO WAIT * «, t00=0x0003, t01=0x0050}
0x00542…0058a Head {h00=0x0044, h01=0x0050, text=»* RESKB RESET KEYBOARD-BUFFER * «, t00=0x0003, t01=0x0098}
0x0058a…005bc Head {h00=0x002e, h01=0x0050, text=»* ICVRED KB/VDU INTERTASK READ«, t00=0x0003, t01=0x00e0}
0x005bc…005e8 Head {h00=0x0028, h01=0x0050, text=»* ICINP INTERTASK INPUT«, t00=0x0003, t01=0x0112}
0x005e8…0061a Head {h00=0x002e, h01=0x0050, text=»* ICSET SET INTERTASK TIMEOUT«, t00=0x0003, t01=0x013e}
0x0061a…00646 Head {h00=0x0028, h01=0x0050, text=»* ICREAD READ INTERTASK «, t00=0x0003, t01=0x0170}
0x00646…00672 Head {h00=0x0028, h01=0x0050, text=»* ICWRT WRITE INTERTASK«, t00=0x0004, t01=0x000c}
0x00672…006ba Head {h00=0x0044, h01=0x0050, text=»* ERROR ILLEGAL KEY-HANDLING * «, t00=0x0004, t01=0x0038}
0x006ba…00702 Head {h00=0x0044, h01=0x0050, text=»* LAMPROUTINES * «, t00=0x0004, t01=0x0080}
0x00702…0074a Head {h00=0x0044, h01=0x0050, text=»* SDISP SIGNAL ROUTINE * «, t00=0x0004, t01=0x00c8}
0x0074a…00792 Head {h00=0x0044, h01=0x0050, text=»* KEYTAB KEY-TABLE, FIXED ENTRY FOR EACH FUNC. * «, t00=0x0004, t01=0x0110}
0x00792…007da Head {h00=0x0044, h01=0x0050, text=»* CHAR ALPHA. CHAR HANDLING * «, t00=0x0004, t01=0x0158}
0x007da…00822 Head {h00=0x0044, h01=0x0050, text=»* NUM NUM. CHAR HANDLING * «, t00=0x0005, t01=0x0010}
0x00822…0086a Head {h00=0x0044, h01=0x0050, text=»* ANCOMM ALPHANUM. CHAR HANDLING * «, t00=0x0005, t01=0x0058}
0x0086a…008be Head {h00=0x0050, h01=0x0050, text=»* CURMOV MOVE CURSOR ON SCREEN * «, t00=0x0005, t01=0x00a0}
0x008be…00906 Head {h00=0x0044, h01=0x0050, text=»* BAKTAB TAB. UNPROT. BACKWARDS * «, t00=0x0005, t01=0x00f4}
0x00906…0094e Head {h00=0x0044, h01=0x0050, text=»* TAB TAB. UNPROT. FORWARDS * «, t00=0x0005, t01=0x013c}
0x0094e…00996 Head {h00=0x0044, h01=0x0050, text=»* CRNL TAB. UNPROT. NEXT LINE * «, t00=0x0005, t01=0x0184}
0x00996…009de Head {h00=0x0044, h01=0x0050, text=»* RDHOME TAB. UNPROT. FIRST ON SCREEN * «, t00=0x0006, t01=0x003c}
0x009de…00a26 Head {h00=0x0044, h01=0x0050, text=»* EREOF ERASE TO END OF FIELD * «, t00=0x0006, t01=0x0084}
0x00a26…00a6e Head {h00=0x0044, h01=0x0050, text=»* ERINPT ERASE UNPROT. ENTIRE SCREEN * «, t00=0x0006, t01=0x00cc}
0x00a6e…00ab6 Head {h00=0x0044, h01=0x0050, text=»* INSERT INSERT HANDLING * «, t00=0x0006, t01=0x0114}
0x00ab6…00afe Head {h00=0x0044, h01=0x0050, text=»* DELETE DELETE HANDLING * «, t00=0x0006, t01=0x015c}
0x00afe…00b46 Head {h00=0x0044, h01=0x0050, text=»* RESET RESET HANDLING * «, t00=0x0007, t01=0x0014}
0x00b46…00b8e Head {h00=0x0044, h01=0x0050, text=»* DUP DUPLICATE HANDLING * «, t00=0x0007, t01=0x005c}
0x00b8e…00bd6 Head {h00=0x0044, h01=0x0050, text=»* FLDMRK FIELDMARK HANDLING * «, t00=0x0007, t01=0x00a4}
0x00bd6…00c1e Head {h00=0x0044, h01=0x0050, text=»* ZERO:2,3 DOUBLE & TRIPLE ZERO HANDLING * «, t00=0x0007, t01=0x00ec}
0x00c1e…00c66 Head {h00=0x0044, h01=0x0050, text=»* OFLINE OFFLINE HANDLING * «, t00=0x0007, t01=0x0134}
0x00c66…00cae Head {h00=0x0044, h01=0x0050, text=»* MFCHGE MAIN FRAME CHANGE * «, t00=0x0007, t01=0x017c}
0x00cae…00cf6 Head {h00=0x0044, h01=0x0050, text=»* COPY LOCAL HARDCOPY * «, t00=0x0008, t01=0x0034}
0x00cf6…00d3e Head {h00=0x0044, h01=0x0050, text=»* IDENT PRINTER IDENT. HANDLING * «, t00=0x0008, t01=0x007c}
0x00d3e…00d86 Head {h00=0x0044, h01=0x0050, text=»* KEYL KEYLOCK STATUS HANDLING * «, t00=0x0008, t01=0x00c4}
0x00d86…00dac Head {h00=0x0022, h01=0x0050, text=»* TESTM TEST MODE«, t00=0x0008, t01=0x010c}
0x00dac…00df4 Head {h00=0x0044, h01=0x0050, text=»* ENTER ENTER HANDLING * «, t00=0x0008, t01=0x0132}
0x00df4…00e3c Head {h00=0x0044, h01=0x0050, text=»* CLEAR CLEAR HANDLING * «, t00=0x0008, t01=0x017a}
0x00e3c…00e84 Head {h00=0x0044, h01=0x0050, text=»* SYSREQ SYSTEM REQUEST HANDLING * «, t00=0x0009, t01=0x0032}
0x00e84…00ecc Head {h00=0x0044, h01=0x0050, text=»* ATTN ATTENTION HANDLING * «, t00=0x0009, t01=0x007a}
0x00ecc…00f14 Head {h00=0x0044, h01=0x0050, text=»* PA PROGRAM ACCESS HANDLING *«, t00=0x0009, t01=0x00c2}
0x00f14…00f5c Head {h00=0x0044, h01=0x0050, text=»* PF PROGRAM FUNCTION HANDLING * «, t00=0x0009, t01=0x010a}
0x00f5c…00fa4 Head {h00=0x0044, h01=0x0050, text=»* RETURN RETURN * «, t00=0x0009, t01=0x0152}
0x00fa4…00fec Head {h00=0x0044, h01=0x0050, text=»* * «, t00=0x000a, t01=0x000a}
0x00fec…01034 Head {h00=0x0044, h01=0x0050, text=»*************************************************************** «, t00=0x000a, t01=0x0052}
0x01034…01042 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000a, t01=0x009a}
0x01042…0107e Head {h00=0x0038, h01=0x0050, text=»*************************************************** «, t00=0x000a, t01=0x00a8}
0x0107e…010ba Head {h00=0x0038, h01=0x0050, text=»* *«, t00=0x000a, t01=0x00e4}
0x010ba…010f6 Head {h00=0x0038, h01=0x0050, text=»* ENTRY POINTS *«, t00=0x000a, t01=0x0120}
0x010f6…01132 Head {h00=0x0038, h01=0x0050, text=»* *«, t00=0x000a, t01=0x015c}
0x01132…0116e Head {h00=0x0038, h01=0x0050, text=»****************************************************«, t00=0x000b, t01=0x0008}
0x0116e…01176 Head {h00=0x0004, h01=0x0050, t00=0x000b, t01=0x0044}
0x01176…011a8 Head {h00=0x002e, h01=0x0050, text=» ENTRY KBINP,KBINP2 START LABEL FOR MODULE«, t00=0x000b, t01=0x004c}
0x011a8…011d2 Head {h00=0x0026, h01=0x0050, text=» ENTRY READKB,READK2 READ KEYBOARD«, t00=0x000b, t01=0x007e}
0x011d2…011fc Head {h00=0x0026, h01=0x0050, text=» ENTRY RESKB RESET KEYBOARD BUFFER«, t00=0x000b, t01=0x00a8}
0x011fc…0121e Head {h00=0x001e, h01=0x0050, text=» ENTRY LMP1ON LAMPROUTINES«, t00=0x000b, t01=0x00d2}
0x0121e…01236 Head {h00=0x0014, h01=0x0050, text=» ENTRY LMP1OF . «, t00=0x000b, t01=0x00f4}
0x01236…0124e Head {h00=0x0014, h01=0x0050, text=» ENTRY LMP2ON . «, t00=0x000b, t01=0x010c}
0x0124e…01266 Head {h00=0x0014, h01=0x0050, text=» ENTRY LMP2OF . «, t00=0x000b, t01=0x0124}
0x01266…0127e Head {h00=0x0014, h01=0x0050, text=» ENTRY LMP3ON . «, t00=0x000b, t01=0x013c}
0x0127e…01296 Head {h00=0x0014, h01=0x0050, text=» ENTRY LMP3OF . «, t00=0x000b, t01=0x0154}
0x01296…012ae Head {h00=0x0014, h01=0x0050, text=» ENTRY LMP4ON . «, t00=0x000b, t01=0x016c}
0x012ae…012c6 Head {h00=0x0014, h01=0x0050, text=» ENTRY LMP4OF . «, t00=0x000b, t01=0x0184}
0x012c6…012de Head {h00=0x0014, h01=0x0050, text=» ENTRY LMP5ON . «, t00=0x000c, t01=0x000c}
0x012de…012f6 Head {h00=0x0014, h01=0x0050, text=» ENTRY LMP5OF . «, t00=0x000c, t01=0x0024}
0x012f6…0130e Head {h00=0x0014, h01=0x0050, text=» ENTRY LMP6ON . «, t00=0x000c, t01=0x003c}
0x0130e…01326 Head {h00=0x0014, h01=0x0050, text=» ENTRY LMP6OF . «, t00=0x000c, t01=0x0054}
0x01326…0135c Head {h00=0x0032, h01=0x0050, text=» ENTRY RDHOME TAB. UNPROTECTED FIRST ON SCREEN«, t00=0x000c, t01=0x006c}
0x0135c…0137e Head {h00=0x001e, h01=0x0050, text=» ENTRY COPY LOCAL HARDCOPY«, t00=0x000c, t01=0x00a2}
0x0137e…013a4 Head {h00=0x0022, h01=0x0050, text=» ENTRY ERROR ERROR INDICATION «, t00=0x000c, t01=0x00c4}
0x013a4…013d0 Head {h00=0x0028, h01=0x0050, text=» ENTRY TAB TAB FOREWARD UNPROTECTED «, t00=0x000c, t01=0x00ea}
0x013d0…01400 Head {h00=0x002c, h01=0x0050, text=» ENTRY CRDOWN MOVE CURSOR DOWN ONE LINE «, t00=0x000c, t01=0x0116}
0x01400…01428 Head {h00=0x0024, h01=0x0050, text=» ENTRY ICVRED VDU INTERTASK READ«, t00=0x000c, t01=0x0146}
0x01428…0144c Head {h00=0x0020, h01=0x0050, text=» ENTRY ICINP INTERTASK INPUT«, t00=0x000c, t01=0x016e}
0x0144c…01476 (13, 0, 400) Head {h00=0x0026, h01=0x0050, text=» ENTRY ICSET SET INTERTASK TIMEOUT«, t00=0x000d, t01=0x0004}
0x01476…0149a Head {h00=0x0020, h01=0x0050, text=» ENTRY ICWRT WRITE INTERTASK«, t00=0x000d, t01=0x002e}
0x0149a…014be Head {h00=0x0020, h01=0x0050, text=» ENTRY ICREAD READ INTERTASK«, t00=0x000d, t01=0x0052}
0x014be…014cc Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000d, t01=0x0076}
0x014cc…014d4 Head {h00=0x0004, h01=0x0050, t00=0x000d, t01=0x0084}
0x014d4…01512 Head {h00=0x003a, h01=0x0050, text=»******************************************************«, t00=0x000d, t01=0x008c}
0x01512…01550 Head {h00=0x003a, h01=0x0050, text=»* *«, t00=0x000d, t01=0x00ca}
0x01550…0158e Head {h00=0x003a, h01=0x0050, text=»* EXTERNAL REFERENCES *«, t00=0x000d, t01=0x0108}
0x0158e…015cc Head {h00=0x003a, h01=0x0050, text=»* *«, t00=0x000d, t01=0x0146}
0x015cc…0160a Head {h00=0x003a, h01=0x0050, text=»******************************************************«, t00=0x000d, t01=0x0184}
0x0160a…01612 Head {h00=0x0004, h01=0x0050, t00=0x000e, t01=0x0032}
0x01612…0163c Head {h00=0x0026, h01=0x0050, text=» EXTRN I:RT1 RETURN TO CREDIT CODE«, t00=0x000e, t01=0x003a}
0x0163c…01672 Head {h00=0x0032, h01=0x0050, text=» EXTRN ATMASB SEARCH ATTRIBUTE BACKWARDS (VDU)«, t00=0x000e, t01=0x0064}
0x01672…016a6 Head {h00=0x0030, h01=0x0050, text=» EXTRN ATMASF SEARCH ATTRIBUTE FORWARD (VDU)«, t00=0x000e, t01=0x009a}
0x016a6…016da Head {h00=0x0030, h01=0x0050, text=» EXTRN DCABOR ABORT DC-REQUEST (DCSNA,DCBSC)«, t00=0x000e, t01=0x00ce}
0x016da…01708 Head {h00=0x002a, h01=0x0050, text=» EXTRN ERASE ERASE ENTIRE SCREEN (VDU)«, t00=0x000e, t01=0x0102}
0x01708…01744 Head {h00=0x0038, h01=0x0050, text=» EXTRN ERASUA ERASE ALL UNPROTECTED TO ADDRESS (VDU)«, t00=0x000e, t01=0x0130}
0x01744…01776 Head {h00=0x002e, h01=0x0050, text=» EXTRN ERASUP ERASE ALL UNPROTECTED (VDU) «, t00=0x000e, t01=0x016c}
0x01776…017ac Head {h00=0x0032, h01=0x0050, text=» EXTRN TRPA TRANSMIT SHORT READ (DCSNA,DCBSC) «, t00=0x000f, t01=0x000e}
0x017ac…017e4 Head {h00=0x0034, h01=0x0050, text=» EXTRN TRPF TRANSMIT MODIFIED READ (DCSNA,DCBSC)«, t00=0x000f, t01=0x0044}
0x017e4…01814 Head {h00=0x002c, h01=0x0050, text=» EXTRN TSTSTA TEST STATUS (DCSNA,DCBSC) «, t00=0x000f, t01=0x007c}
0x01814…01848 Head {h00=0x0030, h01=0x0050, text=» EXTRN WCHAR DISPLAY CHAR. AND CURSOR (VDU) «, t00=0x000f, t01=0x00ac}
0x01848…0187a Head {h00=0x002e, h01=0x0050, text=» EXTRN SOUND SOUND ALARM ON DISPLAY (VDU)«, t00=0x000f, t01=0x00e0}
0x0187a…018ac Head {h00=0x002e, h01=0x0050, text=» EXTRN SCRINF GET SCREEN INFORMATION (VDU)«, t00=0x000f, t01=0x0112}
0x018ac…018e0 Head {h00=0x0030, h01=0x0050, text=» EXTRN STOINF SAVE SCREEN INFORMATION (VDU) «, t00=0x000f, t01=0x0144}
0x018e0…01914 Head {h00=0x0030, h01=0x0050, text=» EXTRN GETVDU GET CHAR. IN VDU BUFFER (VDU) «, t00=0x000f, t01=0x0178}
0x01914…0194a Head {h00=0x0032, h01=0x0050, text=» EXTRN STOVDU STORE CHAR. IN VDU BUFFER (VDU) «, t00=0x0010, t01=0x001c}
0x0194a…01974 Head {h00=0x0026, h01=0x0050, text=» EXTRN DISCHA DISPLAY CHAR. (VDU) «, t00=0x0010, t01=0x0052}
0x01974…019ae Head {h00=0x0036, h01=0x0050, text=» EXTRN POSUNP MOVE CURSOR TO NEXT UNPR. POS. (VDU)«, t00=0x0010, t01=0x007c}
0x019ae…019de Head {h00=0x002c, h01=0x0050, text=» EXTRN INSMOD INSERT MODE ROUTINE (VDU) «, t00=0x0010, t01=0x00b6}
0x019de…01a18 Head {h00=0x0036, h01=0x0050, text=» EXTRN DCOFLN INDICATE OFFLINE TO DC (DCSNA,DCBSC)«, t00=0x0010, t01=0x00e6}
0x01a18…01a4c Head {h00=0x0030, h01=0x0050, text=» EXTRN DISMOD DISPLAY MODIFIED FIELDS (VDU) «, t00=0x0010, t01=0x0120}
0x01a4c…01a7e Head {h00=0x002e, h01=0x0050, text=» EXTRN CONPF CONVERT PF-KEY TABLE (CONVER)«, t00=0x0010, t01=0x0154}
0x01a7e…01aac Head {h00=0x002a, h01=0x0050, text=» EXTRN OPSYS OPEN SYSTEM (DCSNA,DCBSC)«, t00=0x0010, t01=0x0186}
0x01aac…01ad4 Head {h00=0x0024, h01=0x0050, text=» EXTRN LINE GET LINE FLAG (VDU) «, t00=0x0011, t01=0x0024}
0x01ad4…01afe Head {h00=0x0026, h01=0x0050, text=» EXTRN SAVE1 SAVE1 REGISTERS (PAD)«, t00=0x0011, t01=0x004c}
0x01afe…01b2a Head {h00=0x0028, h01=0x0050, text=» EXTRN REST1 REST1E REGISTERS (PAD) «, t00=0x0011, t01=0x0076}
0x01b2a…01b56 Head {h00=0x0028, h01=0x0050, text=» EXTRN DISID DISPLAY HARDCOPY TASKID«, t00=0x0011, t01=0x00a2}
0x01b56…01b7c Head {h00=0x0022, h01=0x0050, text=» EXTRN GETBUF GET BUFFER (PAD)«, t00=0x0011, t01=0x00ce}
0x01b7c…01ba6 Head {h00=0x0026, h01=0x0050, text=» EXTRN RELBUF RELEASE BUFFER (PAD)«, t00=0x0011, t01=0x00f4}
0x01ba6…01bd4 Head {h00=0x002a, h01=0x0050, text=» EXTRN DISSTA DISPLAY STATISTICS (VDU)«, t00=0x0011, t01=0x011e}
0x01bd4…01c02 Head {h00=0x002a, h01=0x0050, text=» EXTRN RDSTAT READ STATISTICS (DCBSC) «, t00=0x0011, t01=0x014c}
0x01c02…01c38 Head {h00=0x0032, h01=0x0050, text=» EXTRN CHKSTA CHECK LINE STATUS (DCBSC,DCSNA) «, t00=0x0011, t01=0x017a}
0x01c38…01c60 Head {h00=0x0024, h01=0x0050, text=» EXTRN SETSTA SET STATUS (DCSNA)«, t00=0x0012, t01=0x0020}
0x01c60…01c6e Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0012, t01=0x0048}
0x01c6e…01cb4 Head {h00=0x0042, h01=0x0050, text=»************************************************************* «, t00=0x0012, t01=0x0056}
0x01cb4…01cfa Head {h00=0x0042, h01=0x0050, text=»* * «, t00=0x0012, t01=0x009c}
0x01cfa…01d40 Head {h00=0x0042, h01=0x0050, text=»* CONDITIONAL ASSEMBLY PARAMETERS * «, t00=0x0012, t01=0x00e2}
0x01d40…01d86 Head {h00=0x0042, h01=0x0050, text=»* * «, t00=0x0012, t01=0x0128}
0x01d86…01dcc Head {h00=0x0042, h01=0x0050, text=»************************************************************* «, t00=0x0012, t01=0x016e}
0x01dcc…01dd4 Head {h00=0x0004, h01=0x0050, t00=0x0013, t01=0x0024}
0x01dd4…01e02 Head {h00=0x002a, h01=0x0050, text=»X:A EQU 0 SNA HANDLING INCLUDED IF:=1 «, t00=0x0013, t01=0x002c}
0x01e02…01e14 Head {h00=0x000e, h01=0x0050, text=»SNA EQU 0 «, t00=0x0013, t01=0x005a}
0x01e14…01e3e Head {h00=0x0026, h01=0x0050, text=»X:C EQU 0 OFFLINE HANDLING IF :=1 «, t00=0x0013, t01=0x006c}
0x01e3e…01e52 Head {h00=0x0010, h01=0x0050, text=»OFLIN EQU 0 «, t00=0x0013, t01=0x0096}
0x01e52…01e7a Head {h00=0x0024, h01=0x0050, text=»X:D EQU 1 NUMBER OF LINES (1-2) «, t00=0x0013, t01=0x00aa}
0x01e7a…01e8e Head {h00=0x0010, h01=0x0050, text=»NBRLIN EQU 1«, t00=0x0013, t01=0x00d2}
0x01e8e…01eb6 Head {h00=0x0024, h01=0x0050, text=»X:F EQU 0 KEY-LOCK STATUS IF:=1 «, t00=0x0013, t01=0x00e6}
0x01eb6…01eca Head {h00=0x0010, h01=0x0050, text=»KEYLST EQU 0«, t00=0x0013, t01=0x010e}
0x01eca…01ef2 Head {h00=0x0024, h01=0x0050, text=»X:G EQU 0 PF KEY HANDLING IF:=1 «, t00=0x0013, t01=0x0122}
0x01ef2…01f04 Head {h00=0x000e, h01=0x0050, text=»PFX EQU 1 «, t00=0x0013, t01=0x014a}
0x01f04…01f2c Head {h00=0x0024, h01=0x0050, text=»X:H EQU 0 PA KEY HANDLING IF :=1«, t00=0x0013, t01=0x015c}
0x01f2c…01f3e Head {h00=0x000e, h01=0x0050, text=»PAX EQU 1 «, t00=0x0013, t01=0x0184}
0x01f3e…01f6e Head {h00=0x002c, h01=0x0050, text=»X:I EQU 1 INSERT/DELETE HANDLING IF :=1 «, t00=0x0014, t01=0x0008}
0x01f6e…01f82 Head {h00=0x0010, h01=0x0050, text=»IN:DL EQU 1 «, t00=0x0014, t01=0x0038}
0x01f82…01faa Head {h00=0x0024, h01=0x0050, text=»X:J EQU 1 KB6272 INCLUDED IF :=1«, t00=0x0014, t01=0x004c}
0x01faa…01fbe Head {h00=0x0010, h01=0x0050, text=»KB6272 EQU 1«, t00=0x0014, t01=0x0074}
0x01fbe…01fec Head {h00=0x002a, h01=0x0050, text=»X:M EQU 0 COPY COMMAND INCLUDED IF:=1 «, t00=0x0014, t01=0x0088}
0x01fec…02000 Head {h00=0x0010, h01=0x0050, text=»COPCMD EQU 1«, t00=0x0014, t01=0x00b6}
0x02000…0202a Head {h00=0x0026, h01=0x0050, text=»X:O EQU 0 TEST MODE INCLUDED IF:=1«, t00=0x0014, t01=0x00ca}
0x0202a…0203c Head {h00=0x000e, h01=0x0050, text=»TEST EQU 0«, t00=0x0014, t01=0x00f4}
0x0203c…02070 Head {h00=0x0030, h01=0x0050, text=»X:P EQU 0 COPY LOCK FUNCTION INCLUDED IF:=1 «, t00=0x0014, t01=0x0106}
0x02070…02082 Head {h00=0x000e, h01=0x0050, text=»COPL EQU 0«, t00=0x0014, t01=0x013a}
0x02082…02090 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0014, t01=0x014c}
0x02090…020d8 Head {h00=0x0044, h01=0x0050, text=»*************************************************************** «, t00=0x0014, t01=0x015a}
0x020d8…02120 Head {h00=0x0044, h01=0x0050, text=»* * «, t00=0x0015, t01=0x0012}
0x02120…0214a Head {h00=0x0026, h01=0x0050, text=»* DECLARATIONS OF DATA AND EQUATES«, t00=0x0015, t01=0x005a}
0x0214a…02192 Head {h00=0x0044, h01=0x0050, text=»* * «, t00=0x0015, t01=0x0084}
0x02192…021da Head {h00=0x0044, h01=0x0050, text=»*************************************************************** «, t00=0x0015, t01=0x00cc}
0x021da…021e2 Head {h00=0x0004, h01=0x0050, t00=0x0015, t01=0x0114}
0x021e2…021ec Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x011c}
0x021ec…0220c Head {h00=0x001c, h01=0x0050, text=»* PREDEFINED KEYS «, t00=0x0015, t01=0x0126}
0x0220c…02216 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x0146}
0x02216…02244 Head {h00=0x002a, h01=0x0050, text=»CRUP EQU /80 FIRST "MOVE CURSOR " KEY «, t00=0x0015, t01=0x0150}
0x02244…02274 Head {h00=0x002c, h01=0x0050, text=»ERFKEY EQU /88 ERASE TO END OF FIELD-KEY«, t00=0x0015, t01=0x017e}
0x02274…0229c Head {h00=0x0024, h01=0x0050, text=»ERIKEY EQU /89 ERASE ALL UNPROT.«, t00=0x0016, t01=0x001e}
0x0229c…022ba Head {h00=0x001a, h01=0x0050, text=»RSET EQU /8C RESET KEY«, t00=0x0016, t01=0x0046}
0x022ba…022da Head {h00=0x001c, h01=0x0050, text=»IDKEY EQU /93 IDENT KEY «, t00=0x0016, t01=0x0064}
0x022da…02304 Head {h00=0x0026, h01=0x0050, text=»FKLKEY EQU /94 FIRST KEYLOCK VALUE«, t00=0x0016, t01=0x0084}
0x02304…0232e Head {h00=0x0026, h01=0x0050, text=»LKLKEY EQU /9C LAST KEYLOCK VALUE «, t00=0x0016, t01=0x00ae}
0x0232e…0235a Head {h00=0x0028, h01=0x0050, text=»FIPA EQU /9F FIRST PROGRAM ATTN. KEY«, t00=0x0016, t01=0x00d8}
0x0235a…0237a Head {h00=0x001c, h01=0x0050, text=»ENTKEY EQU /A0 ENTER KEY«, t00=0x0016, t01=0x0104}
0x0237a…023a4 Head {h00=0x0026, h01=0x0050, text=»SYSKEY EQU /A1 SYSTEM REQUEST KEY «, t00=0x0016, t01=0x0124}
0x023a4…023c4 Head {h00=0x001c, h01=0x0050, text=»CLRKEY EQU /A2 CLEAR KEY«, t00=0x0016, t01=0x014e}
0x023c4…023ee Head {h00=0x0026, h01=0x0050, text=»PFKEY EQU /B1 PROGRAM FUNTION KEY «, t00=0x0016, t01=0x016e}
0x023ee…0241a Head {h00=0x0028, h01=0x0050, text=»LAKEY EQU /C9 LAST KEY IN KEY-TABLE «, t00=0x0017, t01=0x0008}
0x0241a…02424 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0017, t01=0x0034}
0x02424…0244c Head {h00=0x0024, h01=0x0050, text=»* EQUATES FOR ECB HANDLING«, t00=0x0017, t01=0x003e}
0x0244c…02456 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0017, t01=0x0066}
0x02456…02478 Head {h00=0x001e, h01=0x0050, text=»ECBBA EQU 2 BUFFER ADDRESS«, t00=0x0017, t01=0x0070}
0x02478…0249c Head {h00=0x0020, h01=0x0050, text=»ECBRL EQU 4 REQUESTED LENGTH«, t00=0x0017, t01=0x0092}
0x0249c…024c0 Head {h00=0x0020, h01=0x0050, text=»ECBEL EQU 6 EFFECTIVE LENGTH«, t00=0x0017, t01=0x00b6}
0x024c0…024e0 Head {h00=0x001c, h01=0x0050, text=»ECBRC EQU 8 RETURN CODE «, t00=0x0017, t01=0x00da}
0x024e0…02502 Head {h00=0x001e, h01=0x0050, text=»ECBCW EQU 10 CONTROL WORD «, t00=0x0017, t01=0x00fa}
0x02502…0252c Head {h00=0x0026, h01=0x0050, text=»ECBCW2 EQU 12 CONTROL WORD TWO DK «, t00=0x0017, t01=0x011c}
0x0252c…02536 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0017, t01=0x0146}
0x02536…02552 Head {h00=0x0018, h01=0x0050, text=»* SPECIAL CHARACTERS«, t00=0x0017, t01=0x0150}
0x02552…0255c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0017, t01=0x016c}
0x0255c…0257a Head {h00=0x001a, h01=0x0050, text=»NULL EQU 0 NULL CHAR. «, t00=0x0017, t01=0x0176}
0x0257a…025a0 (24, 0, 400) Head {h00=0x0022, h01=0x0050, text=»DUPCH EQU /1C DUPLICATE CHAR. «, t00=0x0018, t01=0x0004}
0x025a0…025c6 Head {h00=0x0022, h01=0x0050, text=»FMCH EQU /1E FIELD MARK CHAR. «, t00=0x0018, t01=0x002a}
0x025c6…025d0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0018, t01=0x0050}
0x025d0…025ee Head {h00=0x001a, h01=0x0050, text=»* LAMPCONSTANTS«, t00=0x0018, t01=0x005a}
0x025ee…025f8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0018, t01=0x0078}
0x025f8…0260c Head {h00=0x0010, h01=0x0050, text=»LON EQU /B7 «, t00=0x0018, t01=0x0082}
0x0260c…02620 Head {h00=0x0010, h01=0x0050, text=»LOF EQU /B8 «, t00=0x0018, t01=0x0096}
0x02620…0263a Head {h00=0x0016, h01=0x0050, text=»LFL EQU /B9 FLASH «, t00=0x0018, t01=0x00aa}
0x0263a…02650 Head {h00=0x0012, h01=0x0050, text=» IFT KB6272=1 «, t00=0x0018, t01=0x00c4}
0x02650…02666 Head {h00=0x0012, h01=0x0050, text=»LAMP1 EQU /20 «, t00=0x0018, t01=0x00da}
0x02666…0267c Head {h00=0x0012, h01=0x0050, text=»LAMP2 EQU /10 «, t00=0x0018, t01=0x00f0}
0x0267c…02690 Head {h00=0x0010, h01=0x0050, text=»LAMP3 EQU 8 «, t00=0x0018, t01=0x0106}
0x02690…026a4 Head {h00=0x0010, h01=0x0050, text=»LAMP4 EQU 4 «, t00=0x0018, t01=0x011a}
0x026a4…026b8 Head {h00=0x0010, h01=0x0050, text=»LAMP5 EQU 2 «, t00=0x0018, t01=0x012e}
0x026b8…026cc Head {h00=0x0010, h01=0x0050, text=»LAMP6 EQU 1 «, t00=0x0018, t01=0x0142}
0x026cc…026d8 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0018, t01=0x0156}
0x026d8…026ee Head {h00=0x0012, h01=0x0050, text=» IFF KB6272=1 «, t00=0x0018, t01=0x0162}
0x026ee…02702 Head {h00=0x0010, h01=0x0050, text=»LAMP1 EQU 0 «, t00=0x0018, t01=0x0178}
0x02702…02716 Head {h00=0x0010, h01=0x0050, text=»LAMP2 EQU 0 «, t00=0x0018, t01=0x018c}
0x02716…0272a Head {h00=0x0010, h01=0x0050, text=»LAMP3 EQU 1 «, t00=0x0019, t01=0x0010}
0x0272a…0273e Head {h00=0x0010, h01=0x0050, text=»LAMP4 EQU 2 «, t00=0x0019, t01=0x0024}
0x0273e…02752 Head {h00=0x0010, h01=0x0050, text=»LAMP5 EQU 4 «, t00=0x0019, t01=0x0038}
0x02752…02766 Head {h00=0x0010, h01=0x0050, text=»LAMP6 EQU 8 «, t00=0x0019, t01=0x004c}
0x02766…02772 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0019, t01=0x0060}
0x02772…0277c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0019, t01=0x006c}
0x0277c…02796 Head {h00=0x0016, h01=0x0050, text=»* VDU SCREEN SIZE «, t00=0x0019, t01=0x0076}
0x02796…027a0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0019, t01=0x0090}
0x027a0…027c0 Head {h00=0x001c, h01=0x0050, text=»LLINE EQU 80 LINE LENGTH«, t00=0x0019, t01=0x009a}
0x027c0…027e2 Head {h00=0x001e, h01=0x0050, text=»LBVDU EQU 1920 TOTAL SIZE «, t00=0x0019, t01=0x00ba}
0x027e2…027ec Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0019, t01=0x00dc}
0x027ec…027fc Head {h00=0x000c, h01=0x0050, text=»* MODES «, t00=0x0019, t01=0x00e6}
0x027fc…02806 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0019, t01=0x00f6}
0x02806…02828 Head {h00=0x001e, h01=0x0050, text=»NEWMOD EQU /8000 NEW MODE «, t00=0x0019, t01=0x0100}
0x02828…02856 Head {h00=0x002a, h01=0x0050, text=»HCPMOD EQU /4000 HARDCOPY OUTSTANDING «, t00=0x0019, t01=0x0122}
0x02856…0287a Head {h00=0x0020, h01=0x0050, text=»MYJOB EQU /0004 MY JOB MODE «, t00=0x0019, t01=0x0150}
0x0287a…028a6 Head {h00=0x0028, h01=0x0050, text=»SYSOP EQU /0002 SYSTEM OPERATOR MODE«, t00=0x0019, t01=0x0174}
0x028a6…028ca Head {h00=0x0020, h01=0x0050, text=»LOCMOD EQU /0000 LOCAL MODE «, t00=0x001a, t01=0x0010}
0x028ca…028d4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001a, t01=0x0034}
0x028d4…028f6 Head {h00=0x001e, h01=0x0050, text=»* TASK IDENTIFICATION CODE«, t00=0x001a, t01=0x003e}
0x028f6…02900 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001a, t01=0x0060}
0x02900…02924 Head {h00=0x0020, h01=0x0050, text=»VDUCOD EQU 'VV' VDU KB TASK «, t00=0x001a, t01=0x006a}
0x02924…02932 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x001a, t01=0x008e}
0x02932…0293c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001a, t01=0x009c}
0x0293c…0295c Head {h00=0x001c, h01=0x0050, text=»* RELATIVE ADDRESSES IN «, t00=0x001a, t01=0x00a6}
0x0295c…02978 Head {h00=0x0018, h01=0x0050, text=»* TERMINAL WORKBLOCK«, t00=0x001a, t01=0x00c6}
0x02978…02982 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001a, t01=0x00e2}
0x02982…029a6 Head {h00=0x0020, h01=0x0050, text=»BVDU EQU 2 VDU SCREEN BUFFER«, t00=0x001a, t01=0x00ec}
0x029a6…029ce Head {h00=0x0024, h01=0x0050, text=»LINFLG EQU BVDU+1920 LINE FLAGS «, t00=0x001a, t01=0x0110}
0x029ce…029f2 Head {h00=0x0020, h01=0x0050, text=»WCC EQU LINFLG+30 WCC CHAR. «, t00=0x001a, t01=0x0138}
0x029f2…02a24 Head {h00=0x002e, h01=0x0050, text=»KBINH EQU WCC+2 KEYBOARD INHIBIT INDICATOR«, t00=0x001a, t01=0x015c}
0x02a24…02a4c Head {h00=0x0024, h01=0x0050, text=»OFFFLG EQU KBINH+8 OFFLINE FLAG «, t00=0x001a, t01=0x018e}
0x02a4c…02a78 Head {h00=0x0028, h01=0x0050, text=»PRTID EQU OFFFLG+2 HARDCOPY PRINTER «, t00=0x001b, t01=0x0026}
0x02a78…02a9c Head {h00=0x0020, h01=0x0050, text=»MAIN EQU PRTID+6 MAIN FRAME «, t00=0x001b, t01=0x0052}
0x02a9c…02ac6 Head {h00=0x0026, h01=0x0050, text=»MODE EQU MAIN+2 INSERT MODE SWITCH«, t00=0x001b, t01=0x0076}
0x02ac6…02aee Head {h00=0x0024, h01=0x0050, text=»KEYS EQU MODE+2 KEY LOCK STATUS «, t00=0x001b, t01=0x00a0}
0x02aee…02b26 Head {h00=0x0034, h01=0x0050, text=»RDMORE EQU KEYS+12 BRANCH ADDRESS TO NEXT KB-KEY«, t00=0x001b, t01=0x00c8}
0x02b26…02b5c Head {h00=0x0032, h01=0x0050, text=»CURPOS EQU RDMORE+2 CURSOR POS. IN SYSTEM MODE«, t00=0x001b, t01=0x0100}
0x02b5c…02b80 Head {h00=0x0020, h01=0x0050, text=»REGI EQU CURPOS+4 SAVE AREA «, t00=0x001b, t01=0x0136}
0x02b80…02ba4 Head {h00=0x0020, h01=0x0050, text=»SNAMOD EQU REGI+32 SNA MODE «, t00=0x001b, t01=0x015a}
0x02ba4…02bc6 Head {h00=0x001e, h01=0x0050, text=»BSCMOD EQU SNAMOD BSC MODE«, t00=0x001b, t01=0x017e}
0x02bc6…02be8 Head {h00=0x001e, h01=0x0050, text=»ECBKB EQU BSCMOD+2 ECB KB «, t00=0x001c, t01=0x0010}
0x02be8…02c14 Head {h00=0x0028, h01=0x0050, text=»ECBSD EQU ECBKB+4 ECB SIGNAL DISPLAY«, t00=0x001c, t01=0x0032}
0x02c14…02c42 Head {h00=0x002a, h01=0x0050, text=»ECBICR EQU ECBSD+4 ECB INTERTASK READ «, t00=0x001c, t01=0x005e}
0x02c42…02c70 Head {h00=0x002a, h01=0x0050, text=»ECBICW EQU ECBICR+2 ECB INTERTAS WRITE«, t00=0x001c, t01=0x008c}
0x02c70…02ca0 Head {h00=0x002c, h01=0x0050, text=»ECBKB2 EQU ECBICW+4 ECB 2ND KEYBOARD DK «, t00=0x001c, t01=0x00ba}
0x02ca0…02caa Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001c, t01=0x00ea}
0x02caa…02cca Head {h00=0x001c, h01=0x0050, text=»* RELATIVE ADDRESSES IN «, t00=0x001c, t01=0x00f4}
0x02cca…02ce4 Head {h00=0x0016, h01=0x0050, text=»* COMMON WORKBLOCK«, t00=0x001c, t01=0x0114}
0x02ce4…02cee Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001c, t01=0x012e}
0x02cee…02d02 Head {h00=0x0010, h01=0x0050, text=» IFF TEST=1 «, t00=0x001c, t01=0x0138}
0x02d02…02d22 Head {h00=0x001c, h01=0x0050, text=»TSKTAB EQU 24 TASK TABLE«, t00=0x001c, t01=0x014c}
0x02d22…02d2e Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x001c, t01=0x016c}
0x02d2e…02d42 Head {h00=0x0010, h01=0x0050, text=» IFT TEST=1 «, t00=0x001c, t01=0x0178}
0x02d42…02d64 Head {h00=0x001e, h01=0x0050, text=»TSKTAB EQU 219 TASK TABLE «, t00=0x001c, t01=0x018c}
0x02d64…02d70 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x001d, t01=0x001e}
0x02d70…02d7e Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x001d, t01=0x002a}
0x02d7e…02dc6 Head {h00=0x0044, h01=0x0050, text=»****************************************************************«, t00=0x001d, t01=0x0038}
0x02dc6…02e0e Head {h00=0x0044, h01=0x0050, text=»* *«, t00=0x001d, t01=0x0080}
0x02e0e…02e56 Head {h00=0x0044, h01=0x0050, text=»* KBINP MAIN ROUTINE *«, t00=0x001d, t01=0x00c8}
0x02e56…02e9e Head {h00=0x0044, h01=0x0050, text=»* *«, t00=0x001d, t01=0x0110}
0x02e9e…02ee6 Head {h00=0x0044, h01=0x0050, text=»****************************************************************«, t00=0x001d, t01=0x0158}
0x02ee6…02efa Head {h00=0x0010, h01=0x0050, text=»* REGISTERS«, t00=0x001e, t01=0x0010}
0x02efa…02f04 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001e, t01=0x0024}
0x02f04…02f1c Head {h00=0x0014, h01=0x0050, text=»* A2= KEY-CHAR. «, t00=0x001e, t01=0x002e}
0x02f1c…02f3a Head {h00=0x001a, h01=0x0050, text=»* A3= KEY-TABLE INDEX «, t00=0x001e, t01=0x0046}
0x02f3a…02f50 Head {h00=0x0012, h01=0x0050, text=»* A4= RESERVED«, t00=0x001e, t01=0x0064}
0x02f50…02f66 Head {h00=0x0012, h01=0x0050, text=»* A5= RESERVED«, t00=0x001e, t01=0x007a}
0x02f66…02f7c Head {h00=0x0012, h01=0x0050, text=»* A6= RESERVED«, t00=0x001e, t01=0x0090}
0x02f7c…02fa0 Head {h00=0x0020, h01=0x0050, text=»* A7= KEY-HANDLING INDICATOR«, t00=0x001e, t01=0x00a6}
0x02fa0…02fc0 Head {h00=0x001c, h01=0x0050, text=»* A11= CREDIT WORK AREA «, t00=0x001e, t01=0x00ca}
0x02fc0…02fd8 Head {h00=0x0014, h01=0x0050, text=»* A13= RESERVED «, t00=0x001e, t01=0x00ea}
0x02fd8…02fe2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001e, t01=0x0102}
0x02fe2…03026 Head {h00=0x0040, h01=0x0050, text=»*********************************************************** «, t00=0x001e, t01=0x010c}
0x03026…0303c Head {h00=0x0012, h01=0x0050, text=»KBINP2 EQU * «, t00=0x001e, t01=0x0150}
0x0303c…0306e Head {h00=0x002e, h01=0x0050, text=» LDK A1,1 INDICATE 2ND KEYBOARD PRESENT DK«, t00=0x001e, t01=0x0166}
0x0306e…0308a Head {h00=0x0018, h01=0x0050, text=» ST A1,ECBCW2,A8 DK«, t00=0x001f, t01=0x0008}
0x0308a…0309e Head {h00=0x0010, h01=0x0050, text=»KBINP EQU * «, t00=0x001f, t01=0x0024}
0x0309e…030d2 Head {h00=0x0030, h01=0x0050, text=»* NO CHECK ON POWER OFF....DK 81-10-17 * «, t00=0x001f, t01=0x0038}
0x030d2…030e8 Head {h00=0x0012, h01=0x0050, text=» IFT KEYLST=0 «, t00=0x001f, t01=0x006c}
0x030e8…03114 Head {h00=0x0028, h01=0x0050, text=» LD A1,ECBCW,A8 SEE IF KEYLOCK ? DK «, t00=0x001f, t01=0x0082}
0x03114…03134 Head {h00=0x001c, h01=0x0050, text=» RF(N) KBIN80 SKIP IT DK«, t00=0x001f, t01=0x00ae}
0x03134…03140 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x001f, t01=0x00ce}
0x03140…03156 Head {h00=0x0012, h01=0x0050, text=» IFT KEYLST=1 «, t00=0x001f, t01=0x00da}
0x03156…03180 Head {h00=0x0026, h01=0x0050, text=» LC* A2,ECBBA,A8 GET KEYLOCK VALUE«, t00=0x001f, t01=0x00f0}
0x03180…031ae Head {h00=0x002a, h01=0x0050, text=» ADKL A2,FKLKEY-/70 PREPARE FOR TABLE «, t00=0x001f, t01=0x011a}
0x031ae…031ce Head {h00=0x001c, h01=0x0050, text=» SC* A2,ECBBA,A8 RESTORE«, t00=0x001f, t01=0x0148}
0x031ce…031da Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x001f, t01=0x0168}
0x031da…031f8 Head {h00=0x001a, h01=0x0050, text=» LD A1,ECBRC,A8 ERROR?«, t00=0x001f, t01=0x0174}
0x031f8…0320e (32, 0, 398) Head {h00=0x0012, h01=0x0050, text=» ANKL A1,/FFF3«, t00=0x0020, t01=0x0004}
0x0320e…03228 Head {h00=0x0016, h01=0x0050, text=» RF(NZ) KBIN80 YES«, t00=0x0020, t01=0x001a}
0x03228…03240 Head {h00=0x0014, h01=0x0050, text=» LD A1,KBINH,A11«, t00=0x0020, t01=0x0034}
0x03240…03264 Head {h00=0x0020, h01=0x0050, text=» ANK A1,1 KB TOTALY INHIBIT?«, t00=0x0020, t01=0x004c}
0x03264…0327e Head {h00=0x0016, h01=0x0050, text=» RF(NZ) KBIN80 YES«, t00=0x0020, t01=0x0070}
0x0327e…032a6 Head {h00=0x0024, h01=0x0050, text=» LC* A2,ECBBA,A8 GET INPUT CHAR.«, t00=0x0020, t01=0x008a}
0x032a6…032ba Head {h00=0x0010, h01=0x0050, text=» ANK A2,/FF «, t00=0x0020, t01=0x00b2}
0x032ba…032d2 Head {h00=0x0014, h01=0x0050, text=» LD A1,KBINH,A11«, t00=0x0020, t01=0x00c6}
0x032d2…032f8 Head {h00=0x0022, h01=0x0050, text=» ANK A1,6 MUST BE A RESET KEY?«, t00=0x0020, t01=0x00de}
0x032f8…03310 Head {h00=0x0014, h01=0x0050, text=» RF(Z) KBIN30 NO«, t00=0x0020, t01=0x0104}
0x03310…03330 Head {h00=0x001c, h01=0x0050, text=» CWK A2,RSET RESET KEY? «, t00=0x0020, t01=0x011c}
0x03330…03342 Head {h00=0x000e, h01=0x0050, text=» IFT SNA=1«, t00=0x0020, t01=0x013c}
0x03342…0335c Head {h00=0x0016, h01=0x0050, text=» RF(E) KBIN30 YES «, t00=0x0020, t01=0x014e}
0x0335c…03386 Head {h00=0x0026, h01=0x0050, text=» CWK A2,SYSKEY SYSTEM REQUEST KEY?«, t00=0x0020, t01=0x0168}
0x03386…03392 (33, 0, 400) Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0021, t01=0x0004}
0x03392…033ac Head {h00=0x0016, h01=0x0050, text=» RF(NE) KBIN80 NO «, t00=0x0021, t01=0x0010}
0x033ac…033c0 Head {h00=0x0010, h01=0x0050, text=»KBIN30 EQU *«, t00=0x0021, t01=0x002a}
0x033c0…033d2 Head {h00=0x000e, h01=0x0050, text=» LDR A3,A2«, t00=0x0021, t01=0x003e}
0x033d2…033f8 Head {h00=0x0022, h01=0x0050, text=» SUK A3,/20 INDEX TO KEY-TABLE«, t00=0x0021, t01=0x0050}
0x033f8…0341a Head {h00=0x001e, h01=0x0050, text=» RF(N) KBIN80 ILLEGAL CHAR«, t00=0x0021, t01=0x0076}
0x0341a…03430 Head {h00=0x0012, h01=0x0050, text=» CWK A2,LAKEY «, t00=0x0021, t01=0x0098}
0x03430…03452 Head {h00=0x001e, h01=0x0050, text=» RF(G) KBIN80 ILLEGAL CHAR«, t00=0x0021, t01=0x00ae}
0x03452…03464 Head {h00=0x000e, h01=0x0050, text=» IFT SNA=1«, t00=0x0021, t01=0x00d0}
0x03464…0348a Head {h00=0x0022, h01=0x0050, text=» LD A1,SNAMOD,A11 GET SNA MODE«, t00=0x0021, t01=0x00e2}
0x0348a…0349e Head {h00=0x0010, h01=0x0050, text=» ANK A1,/FF «, t00=0x0021, t01=0x0108}
0x0349e…034d4 Head {h00=0x0032, h01=0x0050, text=» CFI A14,CPLKB,A1 COMPLETE KB IN CURRENT MODE «, t00=0x0021, t01=0x011c}
0x034d4…034e0 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0021, t01=0x0152}
0x034e0…034f2 Head {h00=0x000e, h01=0x0050, text=» IFF SNA=1«, t00=0x0021, t01=0x015e}
0x034f2…03504 Head {h00=0x000e, h01=0x0050, text=» LDK A7,0 «, t00=0x0021, t01=0x0170}
0x03504…0352a Head {h00=0x0022, h01=0x0050, text=» CWK A2,FIPA PROGRAM ATTN KEY?«, t00=0x0021, t01=0x0182}
0x0352a…03542 Head {h00=0x0014, h01=0x0050, text=» RF(L) KBIN40 NO«, t00=0x0022, t01=0x0018}
0x03542…03556 Head {h00=0x0010, h01=0x0050, text=» CM MODE,A11«, t00=0x0022, t01=0x0030}
0x03556…0357e Head {h00=0x0024, h01=0x0050, text=» CF A14,LMP6OF CLEAR INSERT MODE«, t00=0x0022, t01=0x0044}
0x0357e…03594 Head {h00=0x0012, h01=0x0050, text=» CF A14,DCABOR«, t00=0x0022, t01=0x006c}
0x03594…035a8 Head {h00=0x0010, h01=0x0050, text=»KBIN40 EQU *«, t00=0x0022, t01=0x0082}
0x035a8…035b4 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0022, t01=0x0096}
0x035b4…035d8 Head {h00=0x0020, h01=0x0050, text=» LDR A7,A7 ANY KEY-HANDLING «, t00=0x0022, t01=0x00a2}
0x035d8…035f2 Head {h00=0x0016, h01=0x0050, text=» RF(NZ) KBIN80 NO «, t00=0x0022, t01=0x00c6}
0x035f2…0361a Head {h00=0x0024, h01=0x0050, text=» ADR A3,A3 PREPARE FOR KEY-TABLE«, t00=0x0022, t01=0x00e0}
0x0361a…03644 Head {h00=0x0026, h01=0x0050, text=» LD A1,RDMORE,A11 KEY IN SEQUENCE?«, t00=0x0022, t01=0x0108}
0x03644…0365c Head {h00=0x0014, h01=0x0050, text=» RF(Z) KBIN50 NO«, t00=0x0022, t01=0x0132}
0x0365c…03684 Head {h00=0x0024, h01=0x0050, text=» CF A14,DCABOR KILL DC AGAIN DK «, t00=0x0022, t01=0x014a}
0x03684…036b0 Head {h00=0x0028, h01=0x0050, text=» CFR A14,A1 CONTINUE AT SAVED LABEL «, t00=0x0022, t01=0x0172}
0x036b0…036c2 Head {h00=0x000e, h01=0x0050, text=» RF KBIN90«, t00=0x0023, t01=0x000e}
0x036c2…036d6 Head {h00=0x0010, h01=0x0050, text=»KBIN50 EQU *«, t00=0x0023, t01=0x0020}
0x036d6…0370c Head {h00=0x0032, h01=0x0050, text=» CFI A14,KEYTAB,A3 BRANCH TO RESP. KEY-HANDLER«, t00=0x0023, t01=0x0034}
0x0370c…0371e Head {h00=0x000e, h01=0x0050, text=» RF KBIN90«, t00=0x0023, t01=0x006a}
0x0371e…03732 Head {h00=0x0010, h01=0x0050, text=»KBIN80 EQU *«, t00=0x0023, t01=0x007c}
0x03732…03758 Head {h00=0x0022, h01=0x0050, text=» CF A14,RESKB RESET KB BUFFER «, t00=0x0023, t01=0x0090}
0x03758…0376c Head {h00=0x0010, h01=0x0050, text=»KBIN90 EQU *«, t00=0x0023, t01=0x00b6}
0x0376c…0377c Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0023, t01=0x00ca}
0x0377c…0378a Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0023, t01=0x00da}
0x0378a…0379c Head {h00=0x000e, h01=0x0050, text=» IFT SNA=1«, t00=0x0023, t01=0x00e8}
0x0379c…037ea Head {h00=0x004a, h01=0x0050, text=»********************************************************************* «, t00=0x0023, t01=0x00fa}
0x037ea…03838 Head {h00=0x004a, h01=0x0050, text=»* * «, t00=0x0023, t01=0x0148}
0x03838…03886 Head {h00=0x004a, h01=0x0050, text=»* CPLKB KB-COMPLETION TABLE * «, t00=0x0024, t01=0x0008}
0x03886…038d4 Head {h00=0x004a, h01=0x0050, text=»* * «, t00=0x0024, t01=0x0056}
0x038d4…03922 Head {h00=0x004a, h01=0x0050, text=»********************************************************************* «, t00=0x0024, t01=0x00a4}
0x03922…03936 Head {h00=0x0010, h01=0x0050, text=»CPLKB EQU * «, t00=0x0024, t01=0x00f2}
0x03936…03962 Head {h00=0x0028, h01=0x0050, text=» DATA KBCPLO KB-COMPL. IN LOCAL MODE«, t00=0x0024, t01=0x0106}
0x03962…03990 Head {h00=0x002a, h01=0x0050, text=» DATA KBCPSY KB-COMPL. IN SYSTEM MODE «, t00=0x0024, t01=0x0132}
0x03990…039be Head {h00=0x002a, h01=0x0050, text=» DATA KBCPJO KB-COMPL. IN MY JOB MODE «, t00=0x0024, t01=0x0160}
0x039be…039cc Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0024, t01=0x018e}
0x039cc…03a1a Head {h00=0x004a, h01=0x0050, text=»********************************************************************* «, t00=0x0025, t01=0x000c}
0x03a1a…03a68 Head {h00=0x004a, h01=0x0050, text=»* * «, t00=0x0025, t01=0x005a}
0x03a68…03ab6 Head {h00=0x004a, h01=0x0050, text=»* KBCLO KB-COMPLETION IN LOCAL MODE * «, t00=0x0025, t01=0x00a8}
0x03ab6…03b04 Head {h00=0x004a, h01=0x0050, text=»* * «, t00=0x0025, t01=0x00f6}
0x03b04…03b52 Head {h00=0x004a, h01=0x0050, text=»********************************************************************* «, t00=0x0025, t01=0x0144}
0x03b52…03b66 (38, 0, 400) Head {h00=0x0010, h01=0x0050, text=»* REGISTERS«, t00=0x0026, t01=0x0004}
0x03b66…03b70 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0026, t01=0x0018}
0x03b70…03b86 Head {h00=0x0012, h01=0x0050, text=»* A2= KEY-CHAR«, t00=0x0026, t01=0x0022}
0x03b86…03ba4 Head {h00=0x001a, h01=0x0050, text=»* A3= KEY-TABLE INDEX «, t00=0x0026, t01=0x0038}
0x03ba4…03bba Head {h00=0x0012, h01=0x0050, text=»* A4= RESERVED«, t00=0x0026, t01=0x0056}
0x03bba…03bd0 Head {h00=0x0012, h01=0x0050, text=»* A5= RESERVED«, t00=0x0026, t01=0x006c}
0x03bd0…03be6 Head {h00=0x0012, h01=0x0050, text=»* A6= RESERVED«, t00=0x0026, t01=0x0082}
0x03be6…03c0a Head {h00=0x0020, h01=0x0050, text=»* A7= KEY-HANDLING INDICATOR«, t00=0x0026, t01=0x0098}
0x03c0a…03c2a Head {h00=0x001c, h01=0x0050, text=»* A11= CREDIT WORK AREA «, t00=0x0026, t01=0x00bc}
0x03c2a…03c42 Head {h00=0x0014, h01=0x0050, text=»* A13= RESERVED «, t00=0x0026, t01=0x00dc}
0x03c42…03c4c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0026, t01=0x00f4}
0x03c4c…03c90 Head {h00=0x0040, h01=0x0050, text=»*********************************************************** «, t00=0x0026, t01=0x00fe}
0x03c90…03ca4 Head {h00=0x0010, h01=0x0050, text=»KBCPLO EQU *«, t00=0x0026, t01=0x0142}
0x03ca4…03ccc Head {h00=0x0024, h01=0x0050, text=» LDK A7,0 INDICATE KEY-HANDLING «, t00=0x0026, t01=0x0156}
0x03ccc…03cf4 Head {h00=0x0024, h01=0x0050, text=» CWK A2,FIPA PROGRAM ATTN, KEY? «, t00=0x0026, t01=0x017e}
0x03cf4…03d0e Head {h00=0x0016, h01=0x0050, text=» RF(NG) KBCL90 NO «, t00=0x0027, t01=0x0016}
0x03d0e…03d30 Head {h00=0x001e, h01=0x0050, text=» LDK A7,1 NO KEY-HANDLING «, t00=0x0027, t01=0x0030}
0x03d30…03d56 Head {h00=0x0022, h01=0x0050, text=» CWK A2,SYSKEY SYSTEM REQUEST?«, t00=0x0027, t01=0x0052}
0x03d56…03d70 Head {h00=0x0016, h01=0x0050, text=» RF(NE) KBCL80 NO «, t00=0x0027, t01=0x0078}
0x03d70…03d9a Head {h00=0x0026, h01=0x0050, text=» CF A14,OPSYS START COMMUNICATION «, t00=0x0027, t01=0x0092}
0x03d9a…03dbc Head {h00=0x001e, h01=0x0050, text=» CF A14,TSTSTA TEST STATUS«, t00=0x0027, t01=0x00bc}
0x03dbc…03dda Head {h00=0x001a, h01=0x0050, text=» ANKL A1,/101 ACTIVE? «, t00=0x0027, t01=0x00de}
0x03dda…03df4 Head {h00=0x0016, h01=0x0050, text=» RF(NZ) KBCL90 NO «, t00=0x0027, t01=0x00fc}
0x03df4…03e1e Head {h00=0x0026, h01=0x0050, text=» LDK A1,SYSOP INDICATE SYSTEM MODE«, t00=0x0027, t01=0x0116}
0x03e1e…03e4e Head {h00=0x002c, h01=0x0050, text=» ORKL A1,/8000 INDICATE MODE ACTIVATION «, t00=0x0027, t01=0x0140}
0x03e4e…03e68 Head {h00=0x0016, h01=0x0050, text=» ST A1,SNAMOD,A11 «, t00=0x0027, t01=0x0170}
0x03e68…03e7a Head {h00=0x000e, h01=0x0050, text=» RF KBCL90«, t00=0x0027, t01=0x018a}
0x03e7a…03e8e Head {h00=0x0010, h01=0x0050, text=»KBCL80 EQU *«, t00=0x0028, t01=0x000c}
0x03e8e…03eb0 Head {h00=0x001e, h01=0x0050, text=» CWK A2,ENTKEY ENTER KEY? «, t00=0x0028, t01=0x0020}
0x03eb0…03eca Head {h00=0x0016, h01=0x0050, text=» RF(NE) KBCL85 NO «, t00=0x0028, t01=0x0042}
0x03eca…03efa Head {h00=0x002c, h01=0x0050, text=» LD A1,RDMORE,A11 INSIDE IDENT ROUTINE? «, t00=0x0028, t01=0x005c}
0x03efa…03f12 Head {h00=0x0014, h01=0x0050, text=» RF(Z) KBCL85 NO«, t00=0x0028, t01=0x008c}
0x03f12…03f3a Head {h00=0x0024, h01=0x0050, text=» LDK A7,0 INDICATE KEY-HANDLING «, t00=0x0028, t01=0x00a4}
0x03f3a…03f4c Head {h00=0x000e, h01=0x0050, text=» RF KBCL90«, t00=0x0028, t01=0x00cc}
0x03f4c…03f60 Head {h00=0x0010, h01=0x0050, text=»KBCL85 EQU *«, t00=0x0028, t01=0x00de}
0x03f60…03f82 Head {h00=0x001e, h01=0x0050, text=» CF A14,ERROR ILLEGAL KEY «, t00=0x0028, t01=0x00f2}
0x03f82…03f96 Head {h00=0x0010, h01=0x0050, text=»KBCL90 EQU *«, t00=0x0028, t01=0x0114}
0x03f96…03fa6 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0028, t01=0x0128}
0x03fa6…03fb4 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0028, t01=0x0138}
0x03fb4…04000 Head {h00=0x0048, h01=0x0050, text=»********************************************************************«, t00=0x0028, t01=0x0146}
0x04000…0404c (41, 0, 400) Head {h00=0x0048, h01=0x0050, text=»* *«, t00=0x0029, t01=0x0004}
0x0404c…04098 Head {h00=0x0048, h01=0x0050, text=»* KBCPSY KB-COMPLETION IN SYSTEM MODE *«, t00=0x0029, t01=0x0050}
0x04098…040e4 Head {h00=0x0048, h01=0x0050, text=»* *«, t00=0x0029, t01=0x009c}
0x040e4…04130 Head {h00=0x0048, h01=0x0050, text=»********************************************************************«, t00=0x0029, t01=0x00e8}
0x04130…04144 Head {h00=0x0010, h01=0x0050, text=»* REGISTERS«, t00=0x0029, t01=0x0134}
0x04144…0414e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0029, t01=0x0148}
0x0414e…04164 Head {h00=0x0012, h01=0x0050, text=»* A2= KEY-CHAR«, t00=0x0029, t01=0x0152}
0x04164…04182 Head {h00=0x001a, h01=0x0050, text=»* A3= KEY-TABLE INDEX «, t00=0x0029, t01=0x0168}
0x04182…04198 Head {h00=0x0012, h01=0x0050, text=»* A4= RESERVED«, t00=0x0029, t01=0x0186}
0x04198…041ae Head {h00=0x0012, h01=0x0050, text=»* A5= RESERVED«, t00=0x002a, t01=0x000c}
0x041ae…041c4 Head {h00=0x0012, h01=0x0050, text=»* A6= RESERVED«, t00=0x002a, t01=0x0022}
0x041c4…041e8 Head {h00=0x0020, h01=0x0050, text=»* A7= KEY-HANDLING INDICATOR«, t00=0x002a, t01=0x0038}
0x041e8…04208 Head {h00=0x001c, h01=0x0050, text=»* A11= CREDIT WORK AREA «, t00=0x002a, t01=0x005c}
0x04208…04220 Head {h00=0x0014, h01=0x0050, text=»* A13= RESERVED «, t00=0x002a, t01=0x007c}
0x04220…0422a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002a, t01=0x0094}
0x0422a…0426e Head {h00=0x0040, h01=0x0050, text=»*********************************************************** «, t00=0x002a, t01=0x009e}
0x0426e…04282 Head {h00=0x0010, h01=0x0050, text=»KBCPSY EQU *«, t00=0x002a, t01=0x00e2}
0x04282…042aa Head {h00=0x0024, h01=0x0050, text=» LDK A7,0 INDICATE KEY-HANDLING «, t00=0x002a, t01=0x00f6}
0x042aa…042d2 Head {h00=0x0024, h01=0x0050, text=» CWK A2,FIPA PROGRAM ATTN. KEY? «, t00=0x002a, t01=0x011e}
0x042d2…042ea Head {h00=0x0014, h01=0x0050, text=» RF(L) KBCS20 NO«, t00=0x002a, t01=0x0146}
0x042ea…0431e Head {h00=0x0030, h01=0x0050, text=» CWK A2,CLRKEY UNALLOWED PROGRAM ATTN. KEY? «, t00=0x002a, t01=0x015e}
0x0431e…04342 (43, 0, 400) Head {h00=0x0020, h01=0x0050, text=» RF(NE) KBCS10 NOT CLEAR KEY«, t00=0x002b, t01=0x0004}
0x04342…0436c Head {h00=0x0026, h01=0x0050, text=» LDK A7,1 INDICATE NO KEY-HANDLING«, t00=0x002b, t01=0x0028}
0x0436c…04396 Head {h00=0x0026, h01=0x0050, text=» CF A14,ERASE ERASE ENTIRE SCREEN «, t00=0x002b, t01=0x0052}
0x04396…043a8 Head {h00=0x000e, h01=0x0050, text=» RF KBCS80«, t00=0x002b, t01=0x007c}
0x043a8…043bc Head {h00=0x0010, h01=0x0050, text=»KBCS10 EQU *«, t00=0x002b, t01=0x008e}
0x043bc…043d6 Head {h00=0x0016, h01=0x0050, text=» RF(G) KBCS70 YES «, t00=0x002b, t01=0x00a2}
0x043d6…043ea Head {h00=0x0010, h01=0x0050, text=» CM MODE,A11«, t00=0x002b, t01=0x00bc}
0x043ea…04412 Head {h00=0x0024, h01=0x0050, text=» CF A14,LMP6OF CLEAR INSERT MODE«, t00=0x002b, t01=0x00d0}
0x04412…04432 Head {h00=0x001c, h01=0x0050, text=» CF A14,DCABOR ABORT DC «, t00=0x002b, t01=0x00f8}
0x04432…04444 Head {h00=0x000e, h01=0x0050, text=» RF KBCS80«, t00=0x002b, t01=0x0118}
0x04444…04458 Head {h00=0x0010, h01=0x0050, text=»KBCS20 EQU *«, t00=0x002b, t01=0x012a}
0x04458…04480 Head {h00=0x0024, h01=0x0050, text=» CWK A2,ERIKEY ERASE INPUT KEY? «, t00=0x002b, t01=0x013e}
0x04480…0449a Head {h00=0x0016, h01=0x0050, text=» RF(E) KBCS80 YES «, t00=0x002b, t01=0x0166}
0x0449a…044c8 Head {h00=0x002a, h01=0x0050, text=» CWK A2,ERFKEY ERASE END OF FIELD KEY?«, t00=0x002b, t01=0x0180}
0x044c8…044e2 Head {h00=0x0016, h01=0x0050, text=» RF(E) KBCS80 YES «, t00=0x002c, t01=0x001e}
0x044e2…0450a Head {h00=0x0024, h01=0x0050, text=» CWK A2,CRUP INITIATE CURSOR? =1«, t00=0x002c, t01=0x0038}
0x0450a…04526 Head {h00=0x0018, h01=0x0050, text=» RF(NL) KBCS90 NO =1«, t00=0x002c, t01=0x0060}
0x04526…04540 Head {h00=0x0016, h01=0x0050, text=» LD A1,CURPOS,A11 «, t00=0x002c, t01=0x007c}
0x04540…04566 Head {h00=0x0022, h01=0x0050, text=» CWK A1,/800 CURSOR INITIATED?«, t00=0x002c, t01=0x0096}
0x04566…04580 Head {h00=0x0016, h01=0x0050, text=» RF(NE) KBCS90 YES«, t00=0x002c, t01=0x00bc}
0x04580…045a8 Head {h00=0x0024, h01=0x0050, text=» CF A14,SCRINF GET SCREEN INFO. «, t00=0x002c, t01=0x00d6}
0x045a8…045d2 Head {h00=0x0026, h01=0x0050, text=» ST A4,CURPOS,A11 INITIATE CURSOR «, t00=0x002c, t01=0x00fe}
0x045d2…045e4 Head {h00=0x000e, h01=0x0050, text=» RF KBCS90«, t00=0x002c, t01=0x0128}
0x045e4…045f8 Head {h00=0x0010, h01=0x0050, text=»KBCS70 EQU *«, t00=0x002c, t01=0x013a}
0x045f8…0461c Head {h00=0x0020, h01=0x0050, text=» CF A14,ERROR INDICATE ERROR«, t00=0x002c, t01=0x014e}
0x0461c…0463e Head {h00=0x001e, h01=0x0050, text=» LDK A7,1 NO KEY-HANDLING «, t00=0x002c, t01=0x0172}
0x0463e…04650 (45, 0, 400) Head {h00=0x000e, h01=0x0050, text=» RF KBCS90«, t00=0x002d, t01=0x0004}
0x04650…04664 Head {h00=0x0010, h01=0x0050, text=»KBCS80 EQU *«, t00=0x002d, t01=0x0016}
0x04664…04694 Head {h00=0x002c, h01=0x0050, text=» LDKL A1,NEWMOD INDICATE MODE ACTIVATION«, t00=0x002d, t01=0x002a}
0x04694…046ae Head {h00=0x0016, h01=0x0050, text=» ORS A1,SNAMOD,A11«, t00=0x002d, t01=0x005a}
0x046ae…046c2 Head {h00=0x0010, h01=0x0050, text=»KBCS90 EQU *«, t00=0x002d, t01=0x0074}
0x046c2…046d2 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x002d, t01=0x0088}
0x046d2…046e0 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x002d, t01=0x0098}
0x046e0…0472a Head {h00=0x0046, h01=0x0050, text=»******************************************************************«, t00=0x002d, t01=0x00a6}
0x0472a…04774 Head {h00=0x0046, h01=0x0050, text=»* *«, t00=0x002d, t01=0x00f0}
0x04774…047be Head {h00=0x0046, h01=0x0050, text=»* KBCPJO KB-COMPLETION IN MY JOB MODE *«, t00=0x002d, t01=0x013a}
0x047be…04808 Head {h00=0x0046, h01=0x0050, text=»* *«, t00=0x002d, t01=0x0184}
0x04808…04852 Head {h00=0x0046, h01=0x0050, text=»******************************************************************«, t00=0x002e, t01=0x003e}
0x04852…04866 Head {h00=0x0010, h01=0x0050, text=»* REGISTERS«, t00=0x002e, t01=0x0088}
0x04866…04870 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002e, t01=0x009c}
0x04870…04886 Head {h00=0x0012, h01=0x0050, text=»* A2= KEY-CHAR«, t00=0x002e, t01=0x00a6}
0x04886…048a4 Head {h00=0x001a, h01=0x0050, text=»* A3= KEY-TABLE INDEX «, t00=0x002e, t01=0x00bc}
0x048a4…048ba Head {h00=0x0012, h01=0x0050, text=»* A4= RESERVED«, t00=0x002e, t01=0x00da}
0x048ba…048d0 Head {h00=0x0012, h01=0x0050, text=»* A5= RESRVED «, t00=0x002e, t01=0x00f0}
0x048d0…048e6 Head {h00=0x0012, h01=0x0050, text=»* A6= RESRVED «, t00=0x002e, t01=0x0106}
0x048e6…0490a Head {h00=0x0020, h01=0x0050, text=»* A7= KEY-HANDLING INDICATOR«, t00=0x002e, t01=0x011c}
0x0490a…0492a Head {h00=0x001c, h01=0x0050, text=»* A11= CREDIT WORK AREA «, t00=0x002e, t01=0x0140}
0x0492a…04942 Head {h00=0x0014, h01=0x0050, text=»* A13= RESERVED «, t00=0x002e, t01=0x0160}
0x04942…0494c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002e, t01=0x0178}
0x0494c…04990 Head {h00=0x0040, h01=0x0050, text=»************************************************************«, t00=0x002e, t01=0x0182}
0x04990…049a4 Head {h00=0x0010, h01=0x0050, text=»KBCPJO EQU *«, t00=0x002f, t01=0x0036}
0x049a4…049cc Head {h00=0x0024, h01=0x0050, text=» LDK A7,0 INDICATE KEY-HANDLING «, t00=0x002f, t01=0x004a}
0x049cc…049f4 Head {h00=0x0024, h01=0x0050, text=» CWK A2,FIPA PROGRAM ATTN. KEY? «, t00=0x002f, t01=0x0072}
0x049f4…04a0c Head {h00=0x0014, h01=0x0050, text=» RF(L) KBCJ90 NO«, t00=0x002f, t01=0x009a}
0x04a0c…04a20 Head {h00=0x0010, h01=0x0050, text=» IFT OFLIN=1«, t00=0x002f, t01=0x00b2}
0x04a20…04a36 Head {h00=0x0012, h01=0x0050, text=» RF(E) KBCJ80 «, t00=0x002f, t01=0x00c6}
0x04a36…04a42 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x002f, t01=0x00dc}
0x04a42…04a54 Head {h00=0x000e, h01=0x0050, text=» IFT SNA=1«, t00=0x002f, t01=0x00e8}
0x04a54…04a68 Head {h00=0x0010, h01=0x0050, text=» CM MODE,A11«, t00=0x002f, t01=0x00fa}
0x04a68…04a94 Head {h00=0x0028, h01=0x0050, text=» CF A14,LMP6OF TURN OFF INSERT LAMP «, t00=0x002f, t01=0x010e}
0x04a94…04ab4 Head {h00=0x001c, h01=0x0050, text=» CF A14,DCABOR ABORT DC «, t00=0x002f, t01=0x013a}
0x04ab4…04ac8 Head {h00=0x0010, h01=0x0050, text=» IFT OFLIN=1«, t00=0x002f, t01=0x015a}
0x04ac8…04ada Head {h00=0x000e, h01=0x0050, text=» RF KBCJ90«, t00=0x002f, t01=0x016e}
0x04ada…04aee Head {h00=0x0010, h01=0x0050, text=»KBCJ80 EQU *«, t00=0x002f, t01=0x0180}
0x04aee…04b12 (48, 0, 400) Head {h00=0x0020, h01=0x0050, text=» CF A14,ERROR INDICATE ERROR«, t00=0x0030, t01=0x0004}
0x04b12…04b34 Head {h00=0x001e, h01=0x0050, text=» LDK A7,1 NO KEY-HANDLING «, t00=0x0030, t01=0x0028}
0x04b34…04b40 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0030, t01=0x004a}
0x04b40…04b52 Head {h00=0x000e, h01=0x0050, text=» IFT SNA=1«, t00=0x0030, t01=0x0056}
0x04b52…04b66 Head {h00=0x0010, h01=0x0050, text=»KBCJ90 EQU *«, t00=0x0030, t01=0x0068}
0x04b66…04b76 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0030, t01=0x007c}
0x04b76…04b82 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0030, t01=0x008c}
0x04b82…04b90 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0030, t01=0x0098}
0x04b90…04bd8 Head {h00=0x0044, h01=0x0050, text=»*************************************************************** «, t00=0x0030, t01=0x00a6}
0x04bd8…04c20 Head {h00=0x0044, h01=0x0050, text=»* * «, t00=0x0030, t01=0x00ee}
0x04c20…04c68 Head {h00=0x0044, h01=0x0050, text=»* READKB READ KEYBOARD WITH NO WAIT * «, t00=0x0030, t01=0x0136}
0x04c68…04cb0 Head {h00=0x0044, h01=0x0050, text=»* * «, t00=0x0030, t01=0x017e}
0x04cb0…04cf8 Head {h00=0x0044, h01=0x0050, text=»*************************************************************** «, t00=0x0031, t01=0x0036}
0x04cf8…04d14 Head {h00=0x0018, h01=0x0050, text=»* REGISTERS«, t00=0x0031, t01=0x007e}
0x04d14…04d1e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0031, t01=0x009a}
0x04d1e…04d32 Head {h00=0x0010, h01=0x0050, text=»* A8= KB-ECB«, t00=0x0031, t01=0x00a4}
0x04d32…04d52 Head {h00=0x001c, h01=0x0050, text=»* A11= CREDIT WORK AREA «, t00=0x0031, t01=0x00b8}
0x04d52…04d6a Head {h00=0x0014, h01=0x0050, text=»* A13= RESERVED «, t00=0x0031, t01=0x00d8}
0x04d6a…04d74 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0031, t01=0x00f0}
0x04d74…04db2 Head {h00=0x003a, h01=0x0050, text=»***************************************************** «, t00=0x0031, t01=0x00fa}
0x04db2…04dc6 Head {h00=0x0010, h01=0x0050, text=»READKB EQU *«, t00=0x0031, t01=0x0138}
0x04dc6…04dde Head {h00=0x0014, h01=0x0050, text=» LD A8,ECBKB,A11«, t00=0x0031, t01=0x014c}
0x04dde…04dfc Head {h00=0x001a, h01=0x0050, text=» LDK A7,0 CLEAR ECBCW «, t00=0x0031, t01=0x0164}
0x04dfc…04e16 Head {h00=0x0016, h01=0x0050, text=» ST A7,ECBCW,A8 «, t00=0x0031, t01=0x0182}
0x04e16…04e28 Head {h00=0x000e, h01=0x0050, text=» LDK A7,1 «, t00=0x0032, t01=0x000c}
0x04e28…04e40 Head {h00=0x0014, h01=0x0050, text=» ST A7,ECBRL,A8 «, t00=0x0032, t01=0x001e}
0x04e40…04e76 Head {h00=0x0032, h01=0x0050, text=»* NO POWER OF INDICATOR ,...DK 81-10-17 * «, t00=0x0032, t01=0x0036}
0x04e76…04e96 Head {h00=0x001c, h01=0x0050, text=» LDK A7,2 STANDARD READ «, t00=0x0032, t01=0x006c}
0x04e96…04ea2 Head {h00=0x0008, h01=0x0050, text=» LKM«, t00=0x0032, t01=0x008c}
0x04ea2…04eb2 Head {h00=0x000c, h01=0x0050, text=» DATA 1 «, t00=0x0032, t01=0x0098}
0x04eb2…04ec2 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0032, t01=0x00a8}
0x04ec2…04ef6 Head {h00=0x0030, h01=0x0050, text=»** READ FROM SECOND KEYBOARD, P & T, DK ** «, t00=0x0032, t01=0x00b8}
0x04ef6…04f0c Head {h00=0x0012, h01=0x0050, text=»READK2 EQU * «, t00=0x0032, t01=0x00ec}
0x04f0c…04f2e Head {h00=0x001e, h01=0x0050, text=» LD A8,ECBKB2,A11 GET ECB «, t00=0x0032, t01=0x0102}
0x04f2e…04f4c Head {h00=0x001a, h01=0x0050, text=» LDK A7,0 CLEAR ECBCW «, t00=0x0032, t01=0x0124}
0x04f4c…04f66 Head {h00=0x0016, h01=0x0050, text=» ST A7,ECBCW,A8 «, t00=0x0032, t01=0x0142}
0x04f66…04f78 Head {h00=0x000e, h01=0x0050, text=» LDK A7,1 «, t00=0x0032, t01=0x015c}
0x04f78…04f90 Head {h00=0x0014, h01=0x0050, text=» ST A7,ECBRL,A8 «, t00=0x0032, t01=0x016e}
0x04f90…04fb0 Head {h00=0x001c, h01=0x0050, text=» LDK A7,2 STANDARD READ «, t00=0x0032, t01=0x0186}
0x04fb0…04fbe Head {h00=0x000a, h01=0x0050, text=» LKM «, t00=0x0033, t01=0x0016}
0x04fbe…04fce Head {h00=0x000c, h01=0x0050, text=» DATA 1 «, t00=0x0033, t01=0x0024}
0x04fce…04fe0 Head {h00=0x000e, h01=0x0050, text=» RTN A14 «, t00=0x0033, t01=0x0034}
0x04fe0…05002 Head {h00=0x001e, h01=0x0050, text=»**END DK MODIFICATION ** «, t00=0x0033, t01=0x0046}
0x05002…05010 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0033, t01=0x0068}
0x05010…05058 Head {h00=0x0044, h01=0x0050, text=»*************************************************************** «, t00=0x0033, t01=0x0076}
0x05058…050a0 Head {h00=0x0044, h01=0x0050, text=»* * «, t00=0x0033, t01=0x00be}
0x050a0…050e8 Head {h00=0x0044, h01=0x0050, text=»* RESKB RESET KEYBOARD BUFFER * «, t00=0x0033, t01=0x0106}
0x050e8…05130 Head {h00=0x0044, h01=0x0050, text=»* * «, t00=0x0033, t01=0x014e}
0x05130…05178 Head {h00=0x0044, h01=0x0050, text=»*************************************************************** «, t00=0x0034, t01=0x0008}
0x05178…05198 Head {h00=0x001c, h01=0x0050, text=»* REGISTERS «, t00=0x0034, t01=0x0050}
0x05198…051a2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0034, t01=0x0070}
0x051a2…051c2 Head {h00=0x001c, h01=0x0050, text=»* A11= CREDIT WORK AREA «, t00=0x0034, t01=0x007a}
0x051c2…051da Head {h00=0x0014, h01=0x0050, text=»* A13= RESERVED «, t00=0x0034, t01=0x009a}
0x051da…051e4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0034, t01=0x00b2}
0x051e4…05222 Head {h00=0x003a, h01=0x0050, text=»******************************************************«, t00=0x0034, t01=0x00bc}
0x05222…05236 Head {h00=0x0010, h01=0x0050, text=»RESKB EQU * «, t00=0x0034, t01=0x00fa}
0x05236…0526c Head {h00=0x0032, h01=0x0050, text=»* REMOVED UNTIL NEEDED......DK, 811028....**«, t00=0x0034, t01=0x010e}
0x0526c…0527c Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0034, t01=0x0144}
0x0527c…0528a Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0034, t01=0x0154}
0x0528a…052ce Head {h00=0x0040, h01=0x0050, text=»*********************************************************** «, t00=0x0034, t01=0x0162}
0x052ce…05312 Head {h00=0x0040, h01=0x0050, text=»* * «, t00=0x0035, t01=0x0016}
0x05312…05338 Head {h00=0x0022, h01=0x0050, text=»* ICVRED KB/VDU INTERTASK READ«, t00=0x0035, t01=0x005a}
0x05338…0537c Head {h00=0x0040, h01=0x0050, text=»* * «, t00=0x0035, t01=0x0080}
0x0537c…053c0 Head {h00=0x0040, h01=0x0050, text=»*********************************************************** «, t00=0x0035, t01=0x00c4}
0x053c0…053de Head {h00=0x001a, h01=0x0050, text=»* REGISTERS«, t00=0x0035, t01=0x0108}
0x053de…053e8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0035, t01=0x0126}
0x053e8…053fe Head {h00=0x0012, h01=0x0050, text=»* A2= RESERVED«, t00=0x0035, t01=0x0130}
0x053fe…0541e Head {h00=0x001c, h01=0x0050, text=»* A11= CREDIT WORK AREA «, t00=0x0035, t01=0x0146}
0x0541e…05436 Head {h00=0x0014, h01=0x0050, text=»* A13= RESERVED «, t00=0x0035, t01=0x0166}
0x05436…05440 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0035, t01=0x017e}
0x05440…05484 Head {h00=0x0040, h01=0x0050, text=»*********************************************************** «, t00=0x0035, t01=0x0188}
0x05484…05498 Head {h00=0x0010, h01=0x0050, text=»ICVRED EQU *«, t00=0x0036, t01=0x003c}
0x05498…054b2 Head {h00=0x0016, h01=0x0050, text=» LD A8,ECBICR,A11 «, t00=0x0036, t01=0x0050}
0x054b2…054d6 Head {h00=0x0020, h01=0x0050, text=» CF A14,ICSET SET NO TIMEOUT«, t00=0x0036, t01=0x006a}
0x054d6…054ec Head {h00=0x0012, h01=0x0050, text=» IFF COPCMD=1 «, t00=0x0036, t01=0x008e}
0x054ec…05504 Head {h00=0x0014, h01=0x0050, text=» LD A1,PRTID,A11«, t00=0x0036, t01=0x00a4}
0x05504…05510 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0036, t01=0x00bc}
0x05510…05526 Head {h00=0x0012, h01=0x0050, text=» IFT COPCMD=1 «, t00=0x0036, t01=0x00c8}
0x05526…05544 Head {h00=0x001a, h01=0x0050, text=» LDK A1,0 UNADDRESSED «, t00=0x0036, t01=0x00de}
0x05544…05550 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0036, t01=0x00fc}
0x05550…05566 Head {h00=0x0012, h01=0x0050, text=» LDKL A3,REGI «, t00=0x0036, t01=0x0108}
0x05566…0557a Head {h00=0x0010, h01=0x0050, text=» ADR A3,A11 «, t00=0x0036, t01=0x011e}
0x0557a…05592 Head {h00=0x0014, h01=0x0050, text=» LDK A2,2 LENGTH«, t00=0x0036, t01=0x0132}
0x05592…055b8 Head {h00=0x0022, h01=0x0050, text=» CF A14,ICREAD READ INTERTASK «, t00=0x0036, t01=0x014a}
0x055b8…055c8 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0036, t01=0x0170}
0x055c8…055d6 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0036, t01=0x0180}
0x055d6…0561e Head {h00=0x0044, h01=0x0050, text=»****************************************************************«, t00=0x0036, t01=0x018e}
0x0561e…05666 Head {h00=0x0044, h01=0x0050, text=»* *«, t00=0x0037, t01=0x0046}
0x05666…056ae Head {h00=0x0044, h01=0x0050, text=»* ICINP INTERTASK INPUT *«, t00=0x0037, t01=0x008e}
0x056ae…056f6 Head {h00=0x0044, h01=0x0050, text=»* *«, t00=0x0037, t01=0x00d6}
0x056f6…0573e Head {h00=0x0044, h01=0x0050, text=»****************************************************************«, t00=0x0037, t01=0x011e}
0x0573e…0575e Head {h00=0x001c, h01=0x0050, text=»* REGISTERS «, t00=0x0037, t01=0x0166}
0x0575e…05768 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0037, t01=0x0186}
0x05768…05788 Head {h00=0x001c, h01=0x0050, text=»* A11= CREDIT WORK AREA «, t00=0x0037, t01=0x0190}
0x05788…057a0 Head {h00=0x0014, h01=0x0050, text=»* A13= RESERVED «, t00=0x0038, t01=0x0020}
0x057a0…057aa Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0038, t01=0x0038}
0x057aa…057f2 Head {h00=0x0044, h01=0x0050, text=»****************************************************************«, t00=0x0038, t01=0x0042}
0x057f2…05806 Head {h00=0x0010, h01=0x0050, text=»ICINP EQU * «, t00=0x0038, t01=0x008a}
0x05806…0581e Head {h00=0x0014, h01=0x0050, text=» LD* A2,ECBBA,A8«, t00=0x0038, t01=0x009e}
0x0581e…05834 Head {h00=0x0012, h01=0x0050, text=» IFT COPCMD=1 «, t00=0x0038, t01=0x00b6}
0x05834…05854 Head {h00=0x001c, h01=0x0050, text=» LDR A1,A2 COPY COMMAND?«, t00=0x0038, t01=0x00cc}
0x05854…0586e Head {h00=0x0016, h01=0x0050, text=» RF(NN) ICIN80 NO «, t00=0x0038, t01=0x00ec}
0x0586e…05892 Head {h00=0x0020, h01=0x0050, text=» LDKL A3,BVDU BUFFER TO SEND«, t00=0x0038, t01=0x0106}
0x05892…058a6 Head {h00=0x0010, h01=0x0050, text=» ADR A3,A11 «, t00=0x0038, t01=0x012a}
0x058a6…058ba Head {h00=0x0010, h01=0x0050, text=» IFT COPL=1 «, t00=0x0038, t01=0x013e}
0x058ba…058e6 Head {h00=0x0028, h01=0x0050, text=» LCR A2,A3 CHECK IF ALLOWED TO COPY «, t00=0x0038, t01=0x0152}
0x058e6…05906 Head {h00=0x001c, h01=0x0050, text=» CCK A2,/8000 ATTRIBUTE?«, t00=0x0038, t01=0x017e}
0x05906…0591e Head {h00=0x0014, h01=0x0050, text=» RF(L) ICIN20 NO«, t00=0x0039, t01=0x000e}
0x0591e…0593c Head {h00=0x001a, h01=0x0050, text=» ANK A2,/20 PROTECTED?«, t00=0x0039, t01=0x0026}
0x0593c…05962 Head {h00=0x0022, h01=0x0050, text=» RF(NZ) ICIN90 YES DON'T COPY «, t00=0x0039, t01=0x0044}
0x05962…05976 Head {h00=0x0010, h01=0x0050, text=»ICIN20 EQU *«, t00=0x0039, t01=0x006a}
0x05976…05982 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0039, t01=0x007e}
0x05982…05998 Head {h00=0x0012, h01=0x0050, text=» IFT COPCMD=1 «, t00=0x0039, t01=0x008a}
0x05998…059bc Head {h00=0x0020, h01=0x0050, text=» LD A2,ECBCW,A8 GET TO WHOM «, t00=0x0039, t01=0x00a0}
0x059bc…059d6 Head {h00=0x0016, h01=0x0050, text=» LD A8,ECBICW,A11 «, t00=0x0039, t01=0x00c4}
0x059d6…059f8 Head {h00=0x001e, h01=0x0050, text=» CF A14,ICSET SET TIMEOUT «, t00=0x0039, t01=0x00de}
0x059f8…05a0a Head {h00=0x000e, h01=0x0050, text=» LDR A1,A2«, t00=0x0039, t01=0x0100}
0x05a0a…05a2c Head {h00=0x001e, h01=0x0050, text=» LDKL A2,LBVDU+/20 LENGTH «, t00=0x0039, t01=0x0112}
0x05a2c…05a4e Head {h00=0x001e, h01=0x0050, text=» CF A14,ICWRT SEND IT AWAY«, t00=0x0039, t01=0x0134}
0x05a4e…05a7a Head {h00=0x0028, h01=0x0050, text=» LDKL A1,HCPMOD HARDCOPY OUTSTANDING«, t00=0x0039, t01=0x0156}
0x05a7a…05a94 Head {h00=0x0016, h01=0x0050, text=» ORS A1,BSCMOD,A11«, t00=0x0039, t01=0x0182}
0x05a94…05aa6 Head {h00=0x000e, h01=0x0050, text=» RF ICIN90«, t00=0x003a, t01=0x000c}
0x05aa6…05aba Head {h00=0x0010, h01=0x0050, text=»ICIN80 EQU *«, t00=0x003a, t01=0x001e}
0x05aba…05ac6 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x003a, t01=0x0032}
0x05ac6…05af8 Head {h00=0x002e, h01=0x0050, text=» LDKL A1,HCPMOD RESET HARDCOPY OUTSTANDING«, t00=0x003a, t01=0x003e}
0x05af8…05b0a Head {h00=0x000e, h01=0x0050, text=» IFT SNA=1«, t00=0x003a, t01=0x0070}
0x05b0a…05b24 Head {h00=0x0016, h01=0x0050, text=» XRS A1,SNAMOD,A11«, t00=0x003a, t01=0x0082}
0x05b24…05b30 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x003a, t01=0x009c}
0x05b30…05b42 Head {h00=0x000e, h01=0x0050, text=» IFF SNA=1«, t00=0x003a, t01=0x00a8}
0x05b42…05b5c Head {h00=0x0016, h01=0x0050, text=» XRS A1,BSCMOD,A11«, t00=0x003a, t01=0x00ba}
0x05b5c…05b68 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x003a, t01=0x00d4}
0x05b68…05b86 Head {h00=0x001a, h01=0x0050, text=» ANK A2,1 PRINTER OK? «, t00=0x003a, t01=0x00e0}
0x05b86…05ba0 Head {h00=0x0016, h01=0x0050, text=» RF(Z) ICIN90 YES «, t00=0x003a, t01=0x00fe}
0x05ba0…05bb4 Head {h00=0x0010, h01=0x0050, text=»ICIN90 EQU *«, t00=0x003a, t01=0x0118}
0x05bb4…05bc4 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x003a, t01=0x012c}
0x05bc4…05bd2 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x003a, t01=0x013c}
0x05bd2…05c16 Head {h00=0x0040, h01=0x0050, text=»*********************************************************** «, t00=0x003a, t01=0x014a}
0x05c16…05c58 Head {h00=0x003e, h01=0x0050, text=»* *«, t00=0x003a, t01=0x018e}
0x05c58…05c9c Head {h00=0x0040, h01=0x0050, text=»* ICSET SET INTERTASK TIMEOUT * «, t00=0x003b, t01=0x0040}
0x05c9c…05cde Head {h00=0x003e, h01=0x0050, text=»* *«, t00=0x003b, t01=0x0084}
0x05cde…05d22 Head {h00=0x0040, h01=0x0050, text=»*********************************************************** «, t00=0x003b, t01=0x00c6}
0x05d22…05d42 Head {h00=0x001c, h01=0x0050, text=»* REGISTERS «, t00=0x003b, t01=0x010a}
0x05d42…05d4c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003b, t01=0x012a}
0x05d4c…05d62 Head {h00=0x0012, h01=0x0050, text=»* A2= RESERVED«, t00=0x003b, t01=0x0134}
0x05d62…05d7e Head {h00=0x0018, h01=0x0050, text=»* A8= INTERTASK ECB «, t00=0x003b, t01=0x014a}
0x05d7e…05d96 Head {h00=0x0014, h01=0x0050, text=»* A11= RESERVED «, t00=0x003b, t01=0x0166}
0x05d96…05dae Head {h00=0x0014, h01=0x0050, text=»* A13= RESERVED «, t00=0x003b, t01=0x017e}
0x05dae…05db8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003c, t01=0x0008}
0x05db8…05dfa Head {h00=0x003e, h01=0x0050, text=»**********************************************************«, t00=0x003c, t01=0x0012}
0x05dfa…05e0e Head {h00=0x0010, h01=0x0050, text=»ICSET EQU * «, t00=0x003c, t01=0x0054}
0x05e0e…05e2c Head {h00=0x001a, h01=0x0050, text=» LDKL A1,-1 NO TIMEOUT«, t00=0x003c, t01=0x0068}
0x05e2c…05e44 Head {h00=0x0014, h01=0x0050, text=» ST A1,ECBCW,A8 «, t00=0x003c, t01=0x0086}
0x05e44…05e64 Head {h00=0x001c, h01=0x0050, text=» LDK A7,/B9 SET TIMEOUT «, t00=0x003c, t01=0x009e}
0x05e64…05e70 Head {h00=0x0008, h01=0x0050, text=» LKM«, t00=0x003c, t01=0x00be}
0x05e70…05e80 Head {h00=0x000c, h01=0x0050, text=» DATA 1 «, t00=0x003c, t01=0x00ca}
0x05e80…05e90 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x003c, t01=0x00da}
0x05e90…05e9e Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x003c, t01=0x00ea}
0x05e9e…05ee4 Head {h00=0x0042, h01=0x0050, text=»************************************************************* «, t00=0x003c, t01=0x00f8}
0x05ee4…05f2a Head {h00=0x0042, h01=0x0050, text=»* * «, t00=0x003c, t01=0x013e}
0x05f2a…05f70 Head {h00=0x0042, h01=0x0050, text=»* ICREAD INTERTASK READ * «, t00=0x003c, t01=0x0184}
0x05f70…05fb6 Head {h00=0x0042, h01=0x0050, text=»* * «, t00=0x003d, t01=0x003a}
0x05fb6…05ffc Head {h00=0x0042, h01=0x0050, text=»**************************************************************«, t00=0x003d, t01=0x0080}
0x05ffc…0601e Head {h00=0x001e, h01=0x0050, text=»* REGISTERS«, t00=0x003d, t01=0x00c6}
0x0601e…06028 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003d, t01=0x00e8}
0x06028…0603e Head {h00=0x0012, h01=0x0050, text=»* A1= TASK ID «, t00=0x003d, t01=0x00f2}
0x0603e…06052 Head {h00=0x0010, h01=0x0050, text=»* A2= LENGTH«, t00=0x003d, t01=0x0108}
0x06052…0606e Head {h00=0x0018, h01=0x0050, text=»* A3= BUFFER ADDRESS«, t00=0x003d, t01=0x011c}
0x0606e…0608e Head {h00=0x001c, h01=0x0050, text=»* A8= INTETASK READ ECB «, t00=0x003d, t01=0x0138}
0x0608e…060a6 Head {h00=0x0014, h01=0x0050, text=»* A11= RESERVED «, t00=0x003d, t01=0x0158}
0x060a6…060be Head {h00=0x0014, h01=0x0050, text=»* A13= RESERVED «, t00=0x003d, t01=0x0170}
0x060be…060c8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003d, t01=0x0188}
0x060c8…0610e (62, 0, 400) Head {h00=0x0042, h01=0x0050, text=»************************************************************* «, t00=0x003e, t01=0x0004}
0x0610e…06122 Head {h00=0x0010, h01=0x0050, text=»ICREAD EQU *«, t00=0x003e, t01=0x004a}
0x06122…06142 Head {h00=0x001c, h01=0x0050, text=» ST A1,ECBCW,A8 TASK ID «, t00=0x003e, t01=0x005e}
0x06142…06160 Head {h00=0x001a, h01=0x0050, text=» ST A2,ECBRL,A8 LENGTH«, t00=0x003e, t01=0x007e}
0x06160…06186 Head {h00=0x0022, h01=0x0050, text=» ST A3,ECBBA,A8 BUFFER ADDRESS«, t00=0x003e, t01=0x009c}
0x06186…0619e Head {h00=0x0014, h01=0x0050, text=» LDK A7,/02 READ«, t00=0x003e, t01=0x00c2}
0x0619e…061aa Head {h00=0x0008, h01=0x0050, text=» LKM«, t00=0x003e, t01=0x00da}
0x061aa…061ba Head {h00=0x000c, h01=0x0050, text=» DATA 1 «, t00=0x003e, t01=0x00e6}
0x061ba…061ca Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x003e, t01=0x00f6}
0x061ca…061d8 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x003e, t01=0x0106}
0x061d8…06220 Head {h00=0x0044, h01=0x0050, text=»*************************************************************** «, t00=0x003e, t01=0x0114}
0x06220…06268 Head {h00=0x0044, h01=0x0050, text=»* * «, t00=0x003e, t01=0x015c}
0x06268…062b0 Head {h00=0x0044, h01=0x0050, text=»* ICWRT INTERTASK WRITE * «, t00=0x003f, t01=0x0014}
0x062b0…062f8 Head {h00=0x0044, h01=0x0050, text=»* * «, t00=0x003f, t01=0x005c}
0x062f8…06340 Head {h00=0x0044, h01=0x0050, text=»*************************************************************** «, t00=0x003f, t01=0x00a4}
0x06340…06362 Head {h00=0x001e, h01=0x0050, text=»* REGISTERS«, t00=0x003f, t01=0x00ec}
0x06362…0636c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003f, t01=0x010e}
0x0636c…06382 Head {h00=0x0012, h01=0x0050, text=»* A1= TASK ID «, t00=0x003f, t01=0x0118}
0x06382…06396 Head {h00=0x0010, h01=0x0050, text=»* A2= LENGTH«, t00=0x003f, t01=0x012e}
0x06396…063b2 Head {h00=0x0018, h01=0x0050, text=»* A3= BUFFER ADDRESS«, t00=0x003f, t01=0x0142}
0x063b2…063d4 Head {h00=0x001e, h01=0x0050, text=»* A8= INTERTASK WRITE ECB «, t00=0x003f, t01=0x015e}
0x063d4…063ec Head {h00=0x0014, h01=0x0050, text=»* A11= RESERVED «, t00=0x003f, t01=0x0180}
0x063ec…06404 Head {h00=0x0014, h01=0x0050, text=»* A13= RESERVED «, t00=0x0040, t01=0x0008}
0x06404…0640e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0040, t01=0x0020}
0x0640e…06456 Head {h00=0x0044, h01=0x0050, text=»****************************************************************«, t00=0x0040, t01=0x002a}
0x06456…0646a Head {h00=0x0010, h01=0x0050, text=»ICWRT EQU * «, t00=0x0040, t01=0x0072}
0x0646a…0648a Head {h00=0x001c, h01=0x0050, text=» ST A1,ECBCW,A8 TASK ID «, t00=0x0040, t01=0x0086}
0x0648a…064a8 Head {h00=0x001a, h01=0x0050, text=» ST A2,ECBRL,A8 LENGTH«, t00=0x0040, t01=0x00a6}
0x064a8…064ce Head {h00=0x0022, h01=0x0050, text=» ST A3,ECBBA,A8 BUFFER ADDRESS«, t00=0x0040, t01=0x00c4}
0x064ce…064e8 Head {h00=0x0016, h01=0x0050, text=» LDK A7,/86 WRITE «, t00=0x0040, t01=0x00ea}
0x064e8…064f4 Head {h00=0x0008, h01=0x0050, text=» LKM«, t00=0x0040, t01=0x0104}
0x064f4…06504 Head {h00=0x000c, h01=0x0050, text=» DATA 1 «, t00=0x0040, t01=0x0110}
0x06504…06514 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0040, t01=0x0120}
0x06514…06522 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0040, t01=0x0130}
0x06522…0656e Head {h00=0x0048, h01=0x0050, text=»******************************************************************* «, t00=0x0040, t01=0x013e}
0x0656e…065ba Head {h00=0x0048, h01=0x0050, text=»* * «, t00=0x0040, t01=0x018a}
0x065ba…06606 Head {h00=0x0048, h01=0x0050, text=»* ERROR ILLEGAL KEY-HANDLING * «, t00=0x0041, t01=0x0046}
0x06606…06652 Head {h00=0x0048, h01=0x0050, text=»* * «, t00=0x0041, t01=0x0092}
0x06652…0669e Head {h00=0x0048, h01=0x0050, text=»******************************************************************* «, t00=0x0041, t01=0x00de}
0x0669e…066ba Head {h00=0x0018, h01=0x0050, text=»* REGISTERS«, t00=0x0041, t01=0x012a}
0x066ba…066c4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0041, t01=0x0146}
0x066c4…066e4 Head {h00=0x001c, h01=0x0050, text=»* A11= CREDIT WORK AREA «, t00=0x0041, t01=0x0150}
0x066e4…066fc Head {h00=0x0014, h01=0x0050, text=»* A13= RESERVED «, t00=0x0041, t01=0x0170}
0x066fc…06706 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0041, t01=0x0188}
0x06706…06746 (66, 0, 400) Head {h00=0x003c, h01=0x0050, text=»******************************************************* «, t00=0x0042, t01=0x0004}
0x06746…0675a Head {h00=0x0010, h01=0x0050, text=»ERROR EQU * «, t00=0x0042, t01=0x0044}
0x0675a…06786 Head {h00=0x0028, h01=0x0050, text=» CF A14,LMP4ON TURN ON 'ERROR' LAMP «, t00=0x0042, t01=0x0058}
0x06786…067a6 Head {h00=0x001c, h01=0x0050, text=» LDK A1,4 RESET ALLOWED «, t00=0x0042, t01=0x0084}
0x067a6…067c0 Head {h00=0x0016, h01=0x0050, text=» ORS A1,KBINH,A11 «, t00=0x0042, t01=0x00a4}
0x067c0…067ea Head {h00=0x0026, h01=0x0050, text=» CF A14,SOUND TURN ON SOUND ALARM «, t00=0x0042, t01=0x00be}
0x067ea…067fa Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0042, t01=0x00e8}
0x067fa…06802 Head {h00=0x0004, h01=0x0050, t00=0x0042, t01=0x00f8}
0x06802…06810 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0042, t01=0x0100}
0x06810…06856 Head {h00=0x0042, h01=0x0050, text=»************************************************************* «, t00=0x0042, t01=0x010e}
0x06856…0689c Head {h00=0x0042, h01=0x0050, text=»* * «, t00=0x0042, t01=0x0154}
0x0689c…068e2 Head {h00=0x0042, h01=0x0050, text=»* LAMPROUTINES * «, t00=0x0043, t01=0x000a}
0x068e2…06928 Head {h00=0x0042, h01=0x0050, text=»* * «, t00=0x0043, t01=0x0050}
0x06928…0696e Head {h00=0x0042, h01=0x0050, text=»************************************************************* «, t00=0x0043, t01=0x0096}
0x0696e…0698a Head {h00=0x0018, h01=0x0050, text=»LMP1ON LDK A1,LAMP1 «, t00=0x0043, t01=0x00dc}
0x0698a…0699c Head {h00=0x000e, h01=0x0050, text=» RF LMPON «, t00=0x0043, t01=0x00f8}
0x0699c…069b8 Head {h00=0x0018, h01=0x0050, text=»LMP1OF LDK A1,LAMP1 «, t00=0x0043, t01=0x010a}
0x069b8…069ca Head {h00=0x000e, h01=0x0050, text=» RF LMPOF «, t00=0x0043, t01=0x0126}
0x069ca…069e6 Head {h00=0x0018, h01=0x0050, text=»LMP2ON LDK A1,LAMP2 «, t00=0x0043, t01=0x0138}
0x069e6…069f8 Head {h00=0x000e, h01=0x0050, text=» RF LMPON «, t00=0x0043, t01=0x0154}
0x069f8…06a14 Head {h00=0x0018, h01=0x0050, text=»LMP2OF LDK A1,LAMP2 «, t00=0x0043, t01=0x0166}
0x06a14…06a26 Head {h00=0x000e, h01=0x0050, text=» RF LMPOF «, t00=0x0043, t01=0x0182}
0x06a26…06a42 (68, 0, 400) Head {h00=0x0018, h01=0x0050, text=»LMP3ON LDK A1,LAMP3 «, t00=0x0044, t01=0x0004}
0x06a42…06a54 Head {h00=0x000e, h01=0x0050, text=» RF LMPON «, t00=0x0044, t01=0x0020}
0x06a54…06a70 Head {h00=0x0018, h01=0x0050, text=»LMP3OF LDK A1,LAMP3 «, t00=0x0044, t01=0x0032}
0x06a70…06a82 Head {h00=0x000e, h01=0x0050, text=» RF LMPOF «, t00=0x0044, t01=0x004e}
0x06a82…06a9e Head {h00=0x0018, h01=0x0050, text=»LMP4ON LDK A1,LAMP4 «, t00=0x0044, t01=0x0060}
0x06a9e…06ab0 Head {h00=0x000e, h01=0x0050, text=» RF LMPON «, t00=0x0044, t01=0x007c}
0x06ab0…06acc Head {h00=0x0018, h01=0x0050, text=»LMP4OF LDK A1,LAMP4 «, t00=0x0044, t01=0x008e}
0x06acc…06ade Head {h00=0x000e, h01=0x0050, text=» RF LMPOF «, t00=0x0044, t01=0x00aa}
0x06ade…06afa Head {h00=0x0018, h01=0x0050, text=»LMP5ON LDK A1,LAMP5 «, t00=0x0044, t01=0x00bc}
0x06afa…06b0c Head {h00=0x000e, h01=0x0050, text=» RF LMPON «, t00=0x0044, t01=0x00d8}
0x06b0c…06b28 Head {h00=0x0018, h01=0x0050, text=»LMP5OF LDK A1,LAMP5 «, t00=0x0044, t01=0x00ea}
0x06b28…06b3a Head {h00=0x000e, h01=0x0050, text=» RF LMPOF «, t00=0x0044, t01=0x0106}
0x06b3a…06b56 Head {h00=0x0018, h01=0x0050, text=»LMP5FL LDK A1,LAMP5 «, t00=0x0044, t01=0x0118}
0x06b56…06b68 Head {h00=0x000e, h01=0x0050, text=» RF LMPFL «, t00=0x0044, t01=0x0134}
0x06b68…06b84 Head {h00=0x0018, h01=0x0050, text=»LMP6ON LDK A1,LAMP6 «, t00=0x0044, t01=0x0146}
0x06b84…06b96 Head {h00=0x000e, h01=0x0050, text=» RF LMPON «, t00=0x0044, t01=0x0162}
0x06b96…06bb2 Head {h00=0x0018, h01=0x0050, text=»LMP6OF LDK A1,LAMP6 «, t00=0x0044, t01=0x0174}
0x06bb2…06bc4 Head {h00=0x000e, h01=0x0050, text=» RF LMPOF «, t00=0x0044, t01=0x0190}
0x06bc4…06bce Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0045, t01=0x0012}
0x06bce…06be6 Head {h00=0x0014, h01=0x0050, text=»LMPON LDK A7,LON«, t00=0x0045, t01=0x001c}
0x06be6…06bf8 Head {h00=0x000e, h01=0x0050, text=» RF SDISP «, t00=0x0045, t01=0x0034}
0x06bf8…06c10 Head {h00=0x0014, h01=0x0050, text=»LMPOF LDK A7,LOF«, t00=0x0045, t01=0x0046}
0x06c10…06c22 Head {h00=0x000e, h01=0x0050, text=» RF SDISP «, t00=0x0045, t01=0x005e}
0x06c22…06c3a Head {h00=0x0014, h01=0x0050, text=»LMPFL LDK A7,LFL«, t00=0x0045, t01=0x0070}
0x06c3a…06c4c Head {h00=0x000e, h01=0x0050, text=» RF SDISP «, t00=0x0045, t01=0x0088}
0x06c4c…06c5a Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0045, t01=0x009a}
0x06c5a…06ca0 Head {h00=0x0042, h01=0x0050, text=»************************************************************* «, t00=0x0045, t01=0x00a8}
0x06ca0…06ce6 Head {h00=0x0042, h01=0x0050, text=»* * «, t00=0x0045, t01=0x00ee}
0x06ce6…06d2c Head {h00=0x0042, h01=0x0050, text=»* SDISP SIGNAL ROUTINE * «, t00=0x0045, t01=0x0134}
0x06d2c…06d72 Head {h00=0x0042, h01=0x0050, text=»* * «, t00=0x0045, t01=0x017a}
0x06d72…06db8 Head {h00=0x0042, h01=0x0050, text=»************************************************************* «, t00=0x0046, t01=0x0030}
0x06db8…06dd4 Head {h00=0x0018, h01=0x0050, text=»* REGISTERS «, t00=0x0046, t01=0x0076}
0x06dd4…06dde Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0046, t01=0x0092}
0x06dde…06df6 Head {h00=0x0014, h01=0x0050, text=»* A8= SIGNAL ECB«, t00=0x0046, t01=0x009c}
0x06df6…06e16 Head {h00=0x001c, h01=0x0050, text=»* A11= CREDIT WORK AREA «, t00=0x0046, t01=0x00b4}
0x06e16…06e2e Head {h00=0x0014, h01=0x0050, text=»* A13= RESERVED «, t00=0x0046, t01=0x00d4}
0x06e2e…06e38 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0046, t01=0x00ec}
0x06e38…06e78 Head {h00=0x003c, h01=0x0050, text=»******************************************************* «, t00=0x0046, t01=0x00f6}
0x06e78…06e8c Head {h00=0x0010, h01=0x0050, text=»SDISP EQU * «, t00=0x0046, t01=0x0136}
0x06e8c…06ea4 Head {h00=0x0014, h01=0x0050, text=» LD A8,ECBSD,A11«, t00=0x0046, t01=0x014a}
0x06ea4…06ebc Head {h00=0x0014, h01=0x0050, text=» ST A1,ECBCW,A8 «, t00=0x0046, t01=0x0162}
0x06ebc…06eea Head {h00=0x002a, h01=0x0050, text=»** SECOND KEYBOARD MODS, DK, P & T **«, t00=0x0046, t01=0x017a}
0x06eea…06f12 Head {h00=0x0024, h01=0x0050, text=» LD A8,ECBSD,A11 GET DISP. ECB «, t00=0x0047, t01=0x0018}
0x06f12…06f38 Head {h00=0x0022, h01=0x0050, text=» LDK A1,/41 CHANGE FILE CODE «, t00=0x0047, t01=0x0040}
0x06f38…06f4c Head {h00=0x0010, h01=0x0050, text=» SC A1,1,A8 «, t00=0x0047, t01=0x0066}
0x06f4c…06f5a Head {h00=0x000a, h01=0x0050, text=» LKM «, t00=0x0047, t01=0x007a}
0x06f5a…06f82 Head {h00=0x0024, h01=0x0050, text=» DATA 1 LAMPS ON SECOND KEYB'RD «, t00=0x0047, t01=0x0088}
0x06f82…06f98 Head {h00=0x0012, h01=0x0050, text=»SDISP1 EQU * «, t00=0x0047, t01=0x00b0}
0x06f98…06fb2 Head {h00=0x0016, h01=0x0050, text=» LD A8,ECBSD,A11 «, t00=0x0047, t01=0x00c6}
0x06fb2…06fe0 Head {h00=0x002a, h01=0x0050, text=» LDK A1,/40 RESTORE FILE CODE 1ST KB «, t00=0x0047, t01=0x00e0}
0x06fe0…06ff4 Head {h00=0x0010, h01=0x0050, text=» SC A1,1,A8 «, t00=0x0047, t01=0x010e}
0x06ff4…07012 Head {h00=0x001a, h01=0x0050, text=»** END OF DK MODS ** «, t00=0x0047, t01=0x0122}
0x07012…0701e Head {h00=0x0008, h01=0x0050, text=» LKM«, t00=0x0047, t01=0x0140}
0x0701e…0702e Head {h00=0x000c, h01=0x0050, text=» DATA 1 «, t00=0x0047, t01=0x014c}
0x0702e…0703e Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0047, t01=0x015c}
0x0703e…0704c Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0047, t01=0x016c}
0x0704c…07094 Head {h00=0x0044, h01=0x0050, text=»****************************************************************«, t00=0x0047, t01=0x017a}
0x07094…070dc Head {h00=0x0044, h01=0x0050, text=»* *«, t00=0x0048, t01=0x0032}
0x070dc…07124 Head {h00=0x0044, h01=0x0050, text=»* KEYTAB KEY-TABLE, FIXED ENTRY FOR EACH FUNC. *«, t00=0x0048, t01=0x007a}
0x07124…0716c Head {h00=0x0044, h01=0x0050, text=»* *«, t00=0x0048, t01=0x00c2}
0x0716c…071b4 Head {h00=0x0044, h01=0x0050, text=»****************************************************************«, t00=0x0048, t01=0x010a}
0x071b4…071c8 Head {h00=0x0010, h01=0x0050, text=»KEYTAB EQU *«, t00=0x0048, t01=0x0152}
0x071c8…071d4 Head {h00=0x0008, h01=0x0050, text=»*20 «, t00=0x0048, t01=0x0166}
0x071d4…071ec Head {h00=0x0014, h01=0x0050, text=» DATA CHAR SPACE«, t00=0x0048, t01=0x0172}
0x071ec…07200 Head {h00=0x0010, h01=0x0050, text=» DATA CHAR !«, t00=0x0048, t01=0x018a}
0x07200…07214 Head {h00=0x0010, h01=0x0050, text=» DATA CHAR "«, t00=0x0049, t01=0x000e}
0x07214…07226 Head {h00=0x000e, h01=0x0050, text=» DATA CHAR«, t00=0x0049, t01=0x0022}
0x07226…0723a Head {h00=0x0010, h01=0x0050, text=» DATA CHAR $«, t00=0x0049, t01=0x0034}
0x0723a…0724e Head {h00=0x0010, h01=0x0050, text=» DATA CHAR «, t00=0x0049, t01=0x0048}
0x0724e…07262 Head {h00=0x0010, h01=0x0050, text=» DATA CHAR &«, t00=0x0049, t01=0x005c}
0x07262…07276 Head {h00=0x0010, h01=0x0050, text=» DATA CHAR '«, t00=0x0049, t01=0x0070}
0x07276…0728a Head {h00=0x0010, h01=0x0050, text=» DATA CHAR («, t00=0x0049, t01=0x0084}
0x0728a…0729e Head {h00=0x0010, h01=0x0050, text=» DATA CHAR )«, t00=0x0049, t01=0x0098}
0x0729e…072b2 Head {h00=0x0010, h01=0x0050, text=» DATA CHAR *«, t00=0x0049, t01=0x00ac}
0x072b2…072c6 Head {h00=0x0010, h01=0x0050, text=» DATA NUM + «, t00=0x0049, t01=0x00c0}
0x072c6…072da Head {h00=0x0010, h01=0x0050, text=» DATA NUM , «, t00=0x0049, t01=0x00d4}
0x072da…072ee Head {h00=0x0010, h01=0x0050, text=» DATA NUM - «, t00=0x0049, t01=0x00e8}
0x072ee…07302 Head {h00=0x0010, h01=0x0050, text=» DATA NUM . «, t00=0x0049, t01=0x00fc}
0x07302…07316 Head {h00=0x0010, h01=0x0050, text=» DATA CHAR /«, t00=0x0049, t01=0x0110}
0x07316…07322 Head {h00=0x0008, h01=0x0050, text=»*30 «, t00=0x0049, t01=0x0124}
0x07322…07336 Head {h00=0x0010, h01=0x0050, text=» DATA NUM 0 «, t00=0x0049, t01=0x0130}
0x07336…0734a Head {h00=0x0010, h01=0x0050, text=» DATA NUM 1 «, t00=0x0049, t01=0x0144}
0x0734a…0735e Head {h00=0x0010, h01=0x0050, text=» DATA NUM 2 «, t00=0x0049, t01=0x0158}
0x0735e…07372 Head {h00=0x0010, h01=0x0050, text=» DATA NUM 3 «, t00=0x0049, t01=0x016c}
0x07372…07386 Head {h00=0x0010, h01=0x0050, text=» DATA NUM 4 «, t00=0x0049, t01=0x0180}
0x07386…0739a (74, 0, 400) Head {h00=0x0010, h01=0x0050, text=» DATA NUM 5 «, t00=0x004a, t01=0x0004}
0x0739a…073ae Head {h00=0x0010, h01=0x0050, text=» DATA NUM 6 «, t00=0x004a, t01=0x0018}
0x073ae…073c2 Head {h00=0x0010, h01=0x0050, text=» DATA NUM 7 «, t00=0x004a, t01=0x002c}
0x073c2…073d6 Head {h00=0x0010, h01=0x0050, text=» DATA NUM 8 «, t00=0x004a, t01=0x0040}
0x073d6…073ea Head {h00=0x0010, h01=0x0050, text=» DATA NUM 9 «, t00=0x004a, t01=0x0054}
0x073ea…073fe Head {h00=0x0010, h01=0x0050, text=» DATA CHAR :«, t00=0x004a, t01=0x0068}
0x073fe…07412 Head {h00=0x0010, h01=0x0050, text=» DATA CHAR ;«, t00=0x004a, t01=0x007c}
0x07412…07426 Head {h00=0x0010, h01=0x0050, text=» DATA CHAR <«, t00=0x004a, t01=0x0090}
0x07426…0743a Head {h00=0x0010, h01=0x0050, text=» DATA CHAR =«, t00=0x004a, t01=0x00a4}
0x0743a…0744e Head {h00=0x0010, h01=0x0050, text=» DATA CHAR >«, t00=0x004a, t01=0x00b8}
0x0744e…07462 Head {h00=0x0010, h01=0x0050, text=» DATA CHAR ?«, t00=0x004a, t01=0x00cc}
0x07462…0746e Head {h00=0x0008, h01=0x0050, text=»*40 «, t00=0x004a, t01=0x00e0}
0x0746e…07480 Head {h00=0x000e, h01=0x0050, text=» DATA CHAR«, t00=0x004a, t01=0x00ec}
0x07480…07494 Head {h00=0x0010, h01=0x0050, text=» DATA CHAR A«, t00=0x004a, t01=0x00fe}
0x07494…074a8 Head {h00=0x0010, h01=0x0050, text=» DATA CHAR B«, t00=0x004a, t01=0x0112}
0x074a8…074bc Head {h00=0x0010, h01=0x0050, text=» DATA CHAR C«, t00=0x004a, t01=0x0126}
0x074bc…074d0 Head {h00=0x0010, h01=0x0050, text=» DATA CHAR D«, t00=0x004a, t01=0x013a}
0x074d0…074e4 Head {h00=0x0010, h01=0x0050, text=» DATA CHAR E«, t00=0x004a, t01=0x014e}
0x074e4…074f8 Head {h00=0x0010, h01=0x0050, text=» DATA CHAR F«, t00=0x004a, t01=0x0162}
0x074f8…0750c Head {h00=0x0010, h01=0x0050, text=» DATA CHAR G«, t00=0x004a, t01=0x0176}
0x0750c…07520 Head {h00=0x0010, h01=0x0050, text=» DATA CHAR H«, t00=0x004a, t01=0x018a}
0x07520…07534 Head {h00=0x0010, h01=0x0050, text=» DATA CHAR I«, t00=0x004b, t01=0x000e}
0x07534…07548 Head {h00=0x0010, h01=0x0050, text=» DATA CHAR J«, t00=0x004b, t01=0x0022}
0x07548…0755c Head {h00=0x0010, h01=0x0050, text=» DATA CHAR K«, t00=0x004b, t01=0x0036}
0x0755c…07570 Head {h00=0x0010, h01=0x0050, text=» DATA CHAR L«, t00=0x004b, t01=0x004a}
0x07570…07584 Head {h00=0x0010, h01=0x0050, text=» DATA CHAR M«, t00=0x004b, t01=0x005e}
0x07584…07598 Head {h00=0x0010, h01=0x0050, text=» DATA CHAR N«, t00=0x004b, t01=0x0072}
0x07598…075ac Head {h00=0x0010, h01=0x0050, text=» DATA CHAR O«, t00=0x004b, t01=0x0086}
0x075ac…075b8 Head {h00=0x0008, h01=0x0050, text=»*50 «, t00=0x004b, t01=0x009a}
0x075b8…075cc Head {h00=0x0010, h01=0x0050, text=» DATA CHAR P«, t00=0x004b, t01=0x00a6}
0x075cc…075e0 Head {h00=0x0010, h01=0x0050, text=» DATA CHAR Q«, t00=0x004b, t01=0x00ba}
0x075e0…075f4 Head {h00=0x0010, h01=0x0050, text=» DATA CHAR R«, t00=0x004b, t01=0x00ce}
0x075f4…07608 Head {h00=0x0010, h01=0x0050, text=» DATA CHAR S«, t00=0x004b, t01=0x00e2}
0x07608…0761c Head {h00=0x0010, h01=0x0050, text=» DATA CHAR T«, t00=0x004b, t01=0x00f6}
0x0761c…07630 Head {h00=0x0010, h01=0x0050, text=» DATA CHAR U«, t00=0x004b, t01=0x010a}
0x07630…07644 Head {h00=0x0010, h01=0x0050, text=» DATA CHAR V«, t00=0x004b, t01=0x011e}
0x07644…07658 Head {h00=0x0010, h01=0x0050, text=» DATA CHAR W«, t00=0x004b, t01=0x0132}
0x07658…0766c Head {h00=0x0010, h01=0x0050, text=» DATA CHAR X«, t00=0x004b, t01=0x0146}
0x0766c…07680 Head {h00=0x0010, h01=0x0050, text=» DATA CHAR Y«, t00=0x004b, t01=0x015a}
0x07680…07694 Head {h00=0x0010, h01=0x0050, text=» DATA CHAR Z«, t00=0x004b, t01=0x016e}
0x07694…076a6 Head {h00=0x000e, h01=0x0050, text=» DATA CHAR«, t00=0x004b, t01=0x0182}
0x076a6…076b8 (76, 0, 400) Head {h00=0x000e, h01=0x0050, text=» DATA CHAR«, t00=0x004c, t01=0x0004}
0x076b8…076ca Head {h00=0x000e, h01=0x0050, text=» DATA CHAR«, t00=0x004c, t01=0x0016}
0x076ca…076de Head {h00=0x0010, h01=0x0050, text=» DATA CHAR ^«, t00=0x004c, t01=0x0028}
0x076de…076fa Head {h00=0x0018, h01=0x0050, text=» DATA CHAR UNDERLINE«, t00=0x004c, t01=0x003c}
0x076fa…07706 Head {h00=0x0008, h01=0x0050, text=»*60 «, t00=0x004c, t01=0x0058}
0x07706…07718 Head {h00=0x000e, h01=0x0050, text=» DATA CHAR«, t00=0x004c, t01=0x0064}
0x07718…0773c Head {h00=0x0020, h01=0x0050, text=» DATA CHAR a LOWER CASE A-Z «, t00=0x004c, t01=0x0076}
0x0773c…07750 Head {h00=0x0010, h01=0x0050, text=» DATA CHAR b«, t00=0x004c, t01=0x009a}
0x07750…07764 Head {h00=0x0010, h01=0x0050, text=» DATA CHAR c«, t00=0x004c, t01=0x00ae}
0x07764…07778 Head {h00=0x0010, h01=0x0050, text=» DATA CHAR d«, t00=0x004c, t01=0x00c2}
0x07778…0778c Head {h00=0x0010, h01=0x0050, text=» DATA CHAR e«, t00=0x004c, t01=0x00d6}
0x0778c…077a0 Head {h00=0x0010, h01=0x0050, text=» DATA CHAR f«, t00=0x004c, t01=0x00ea}
0x077a0…077b4 Head {h00=0x0010, h01=0x0050, text=» DATA CHAR g«, t00=0x004c, t01=0x00fe}
0x077b4…077c8 Head {h00=0x0010, h01=0x0050, text=» DATA CHAR h«, t00=0x004c, t01=0x0112}
0x077c8…077dc Head {h00=0x0010, h01=0x0050, text=» DATA CHAR i«, t00=0x004c, t01=0x0126}
0x077dc…077f0 Head {h00=0x0010, h01=0x0050, text=» DATA CHAR j«, t00=0x004c, t01=0x013a}
0x077f0…07804 Head {h00=0x0010, h01=0x0050, text=» DATA CHAR k«, t00=0x004c, t01=0x014e}
0x07804…07818 Head {h00=0x0010, h01=0x0050, text=» DATA CHAR l«, t00=0x004c, t01=0x0162}
0x07818…0782c Head {h00=0x0010, h01=0x0050, text=» DATA CHAR m«, t00=0x004c, t01=0x0176}
0x0782c…07840 Head {h00=0x0010, h01=0x0050, text=» DATA CHAR n«, t00=0x004c, t01=0x018a}
0x07840…07854 Head {h00=0x0010, h01=0x0050, text=» DATA CHAR o«, t00=0x004d, t01=0x000e}
0x07854…07860 Head {h00=0x0008, h01=0x0050, text=»*70 «, t00=0x004d, t01=0x0022}
0x07860…07874 Head {h00=0x0010, h01=0x0050, text=» DATA CHAR p«, t00=0x004d, t01=0x002e}
0x07874…07888 Head {h00=0x0010, h01=0x0050, text=» DATA CHAR q«, t00=0x004d, t01=0x0042}
0x07888…0789c Head {h00=0x0010, h01=0x0050, text=» DATA CHAR r«, t00=0x004d, t01=0x0056}
0x0789c…078b0 Head {h00=0x0010, h01=0x0050, text=» DATA CHAR s«, t00=0x004d, t01=0x006a}
0x078b0…078c4 Head {h00=0x0010, h01=0x0050, text=» DATA CHAR t«, t00=0x004d, t01=0x007e}
0x078c4…078d8 Head {h00=0x0010, h01=0x0050, text=» DATA CHAR u«, t00=0x004d, t01=0x0092}
0x078d8…078ec Head {h00=0x0010, h01=0x0050, text=» DATA CHAR v«, t00=0x004d, t01=0x00a6}
0x078ec…07900 Head {h00=0x0010, h01=0x0050, text=» DATA CHAR w«, t00=0x004d, t01=0x00ba}
0x07900…07914 Head {h00=0x0010, h01=0x0050, text=» DATA CHAR x«, t00=0x004d, t01=0x00ce}
0x07914…07928 Head {h00=0x0010, h01=0x0050, text=» DATA CHAR y«, t00=0x004d, t01=0x00e2}
0x07928…0793c Head {h00=0x0010, h01=0x0050, text=» DATA CHAR z«, t00=0x004d, t01=0x00f6}
0x0793c…0794e Head {h00=0x000e, h01=0x0050, text=» DATA CHAR«, t00=0x004d, t01=0x010a}
0x0794e…07960 Head {h00=0x000e, h01=0x0050, text=» DATA CHAR«, t00=0x004d, t01=0x011c}
0x07960…07972 Head {h00=0x000e, h01=0x0050, text=» DATA CHAR«, t00=0x004d, t01=0x012e}
0x07972…07984 Head {h00=0x000e, h01=0x0050, text=» DATA CHAR«, t00=0x004d, t01=0x0140}
0x07984…07998 Head {h00=0x0010, h01=0x0050, text=» DATA RETURN«, t00=0x004d, t01=0x0152}
0x07998…079a4 Head {h00=0x0008, h01=0x0050, text=»*80 «, t00=0x004d, t01=0x0166}
0x079a4…079b8 Head {h00=0x0010, h01=0x0050, text=» DATA CURMOV«, t00=0x004d, t01=0x0172}
0x079b8…079cc Head {h00=0x0010, h01=0x0050, text=» DATA CURMOV«, t00=0x004d, t01=0x0186}
0x079cc…079e0 Head {h00=0x0010, h01=0x0050, text=» DATA CURMOV«, t00=0x004e, t01=0x000a}
0x079e0…079f4 Head {h00=0x0010, h01=0x0050, text=» DATA CURMOV«, t00=0x004e, t01=0x001e}
0x079f4…07a08 Head {h00=0x0010, h01=0x0050, text=» DATA BAKTAB«, t00=0x004e, t01=0x0032}
0x07a08…07a1a Head {h00=0x000e, h01=0x0050, text=» DATA TAB «, t00=0x004e, t01=0x0046}
0x07a1a…07a2c Head {h00=0x000e, h01=0x0050, text=» DATA CRNL«, t00=0x004e, t01=0x0058}
0x07a2c…07a40 Head {h00=0x0010, h01=0x0050, text=» DATA RDHOME«, t00=0x004e, t01=0x006a}
0x07a40…07a54 Head {h00=0x0010, h01=0x0050, text=» DATA EREOF «, t00=0x004e, t01=0x007e}
0x07a54…07a68 Head {h00=0x0010, h01=0x0050, text=» DATA ERINPT«, t00=0x004e, t01=0x0092}
0x07a68…07a7c Head {h00=0x0010, h01=0x0050, text=» IFT IN:DL=1«, t00=0x004e, t01=0x00a6}
0x07a7c…07a90 Head {h00=0x0010, h01=0x0050, text=» DATA INSERT«, t00=0x004e, t01=0x00ba}
0x07a90…07aa4 Head {h00=0x0010, h01=0x0050, text=» DATA DELETE«, t00=0x004e, t01=0x00ce}
0x07aa4…07ab0 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x004e, t01=0x00e2}
0x07ab0…07ac4 Head {h00=0x0010, h01=0x0050, text=» IFF IN:DL=1«, t00=0x004e, t01=0x00ee}
0x07ac4…07ad8 Head {h00=0x0010, h01=0x0050, text=» DATA RETURN«, t00=0x004e, t01=0x0102}
0x07ad8…07aec Head {h00=0x0010, h01=0x0050, text=» DATA RETURN«, t00=0x004e, t01=0x0116}
0x07aec…07af8 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x004e, t01=0x012a}
0x07af8…07b0c Head {h00=0x0010, h01=0x0050, text=» DATA RESET «, t00=0x004e, t01=0x0136}
0x07b0c…07b1e Head {h00=0x000e, h01=0x0050, text=» DATA DUP «, t00=0x004e, t01=0x014a}
0x07b1e…07b32 Head {h00=0x0010, h01=0x0050, text=» DATA FLDMRK«, t00=0x004e, t01=0x015c}
0x07b32…07b46 Head {h00=0x0010, h01=0x0050, text=» DATA ZERO:2«, t00=0x004e, t01=0x0170}
0x07b46…07b52 Head {h00=0x0008, h01=0x0050, text=»*90 «, t00=0x004e, t01=0x0184}
0x07b52…07b66 Head {h00=0x0010, h01=0x0050, text=» DATA ZERO:3«, t00=0x004e, t01=0x0190}
0x07b66…07b7a Head {h00=0x0010, h01=0x0050, text=» DATA NUMCOM«, t00=0x004f, t01=0x0014}
0x07b7a…07b8c Head {h00=0x000e, h01=0x0050, text=» DATA COPY«, t00=0x004f, t01=0x0028}
0x07b8c…07ba0 Head {h00=0x0010, h01=0x0050, text=» DATA IDENT «, t00=0x004f, t01=0x003a}
0x07ba0…07bb6 Head {h00=0x0012, h01=0x0050, text=» IFT KEYLST=1 «, t00=0x004f, t01=0x004e}
0x07bb6…07bc8 Head {h00=0x000e, h01=0x0050, text=» DATA KEYL«, t00=0x004f, t01=0x0064}
0x07bc8…07bda Head {h00=0x000e, h01=0x0050, text=» DATA KEYL«, t00=0x004f, t01=0x0076}
0x07bda…07bec Head {h00=0x000e, h01=0x0050, text=» DATA KEYL«, t00=0x004f, t01=0x0088}
0x07bec…07bfe Head {h00=0x000e, h01=0x0050, text=» DATA KEYL«, t00=0x004f, t01=0x009a}
0x07bfe…07c10 Head {h00=0x000e, h01=0x0050, text=» DATA KEYL«, t00=0x004f, t01=0x00ac}
0x07c10…07c22 Head {h00=0x000e, h01=0x0050, text=» DATA KEYL«, t00=0x004f, t01=0x00be}
0x07c22…07c34 Head {h00=0x000e, h01=0x0050, text=» DATA KEYL«, t00=0x004f, t01=0x00d0}
0x07c34…07c46 Head {h00=0x000e, h01=0x0050, text=» DATA KEYL«, t00=0x004f, t01=0x00e2}
0x07c46…07c52 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x004f, t01=0x00f4}
0x07c52…07c68 Head {h00=0x0012, h01=0x0050, text=» IFF KEYLST=1 «, t00=0x004f, t01=0x0100}
0x07c68…07c7c Head {h00=0x0010, h01=0x0050, text=» DATA RETURN«, t00=0x004f, t01=0x0116}
0x07c7c…07c90 Head {h00=0x0010, h01=0x0050, text=» DATA RETURN«, t00=0x004f, t01=0x012a}
0x07c90…07ca4 Head {h00=0x0010, h01=0x0050, text=» DATA RETURN«, t00=0x004f, t01=0x013e}
0x07ca4…07cb8 Head {h00=0x0010, h01=0x0050, text=» DATA RETURN«, t00=0x004f, t01=0x0152}
0x07cb8…07ccc Head {h00=0x0010, h01=0x0050, text=» DATA RETURN«, t00=0x004f, t01=0x0166}
0x07ccc…07ce0 Head {h00=0x0010, h01=0x0050, text=» DATA RETURN«, t00=0x004f, t01=0x017a}
0x07ce0…07cf4 Head {h00=0x0010, h01=0x0050, text=» DATA RETURN«, t00=0x004f, t01=0x018e}
0x07cf4…07d08 Head {h00=0x0010, h01=0x0050, text=» DATA RETURN«, t00=0x0050, t01=0x0012}
0x07d08…07d14 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0050, t01=0x0026}
0x07d14…07d50 Head {h00=0x0038, h01=0x0050, text=» DATA RETURN FREE LABEL FOR NEW KEY (NOT P. A. KEY) «, t00=0x0050, t01=0x0032}
0x07d50…07d8c Head {h00=0x0038, h01=0x0050, text=» DATA RETURN FREE LABEL FOR NEW KEY (NOT P. A. KEY) «, t00=0x0050, t01=0x006e}
0x07d8c…07dc8 Head {h00=0x0038, h01=0x0050, text=» DATA RETURN FREE LABEL FOR NEW KEY (NOT P. A. KEY) «, t00=0x0050, t01=0x00aa}
0x07dc8…07de0 Head {h00=0x0014, h01=0x0050, text=»*FIRST P. A. KEY«, t00=0x0050, t01=0x00e6}
0x07de0…07df4 Head {h00=0x0010, h01=0x0050, text=» IFT OFLIN=1«, t00=0x0050, t01=0x00fe}
0x07df4…07e08 Head {h00=0x0010, h01=0x0050, text=» DATA OFLINE«, t00=0x0050, t01=0x0112}
0x07e08…07e14 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0050, t01=0x0126}
0x07e14…07e28 Head {h00=0x0010, h01=0x0050, text=» IFF OFLIN=1«, t00=0x0050, t01=0x0132}
0x07e28…07e3c Head {h00=0x0010, h01=0x0050, text=» DATA RETURN«, t00=0x0050, t01=0x0146}
0x07e3c…07e48 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0050, t01=0x015a}
0x07e48…07e54 Head {h00=0x0008, h01=0x0050, text=»*A0 «, t00=0x0050, t01=0x0166}
0x07e54…07e68 Head {h00=0x0010, h01=0x0050, text=» DATA ENTER «, t00=0x0050, t01=0x0172}
0x07e68…07e7a Head {h00=0x000e, h01=0x0050, text=» IFT SNA=1«, t00=0x0050, t01=0x0186}
0x07e7a…07e8e Head {h00=0x0010, h01=0x0050, text=» DATA SYSREQ«, t00=0x0051, t01=0x0008}
0x07e8e…07ea2 Head {h00=0x0010, h01=0x0050, text=» DATA CLEAR «, t00=0x0051, t01=0x001c}
0x07ea2…07eb4 Head {h00=0x000e, h01=0x0050, text=» DATA ATTN«, t00=0x0051, t01=0x0030}
0x07eb4…07ec0 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0051, t01=0x0042}
0x07ec0…07ed2 Head {h00=0x000e, h01=0x0050, text=» IFF SNA=1«, t00=0x0051, t01=0x004e}
0x07ed2…07ee6 Head {h00=0x0010, h01=0x0050, text=» DATA RETURN«, t00=0x0051, t01=0x0060}
0x07ee6…07efa Head {h00=0x0010, h01=0x0050, text=» DATA CLEAR «, t00=0x0051, t01=0x0074}
0x07efa…07f0e Head {h00=0x0010, h01=0x0050, text=» DATA RETURN«, t00=0x0051, t01=0x0088}
0x07f0e…07f1a Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0051, t01=0x009c}
0x07f1a…07f30 Head {h00=0x0012, h01=0x0050, text=» IFT NBRLIN=2 «, t00=0x0051, t01=0x00a8}
0x07f30…07f44 Head {h00=0x0010, h01=0x0050, text=» DATA MFCHGE«, t00=0x0051, t01=0x00be}
0x07f44…07f50 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0051, t01=0x00d2}
0x07f50…07f66 Head {h00=0x0012, h01=0x0050, text=» IFF NBRLIN=2 «, t00=0x0051, t01=0x00de}
0x07f66…07f7a Head {h00=0x0010, h01=0x0050, text=» DATA RETURN«, t00=0x0051, t01=0x00f4}
0x07f7a…07f86 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0051, t01=0x0108}
0x07f86…07f98 Head {h00=0x000e, h01=0x0050, text=» IFT PAX=1«, t00=0x0051, t01=0x0114}
0x07f98…07faa Head {h00=0x000e, h01=0x0050, text=» DATA PAEX«, t00=0x0051, t01=0x0126}
0x07faa…07fb6 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0051, t01=0x0138}
0x07fb6…07fc8 Head {h00=0x000e, h01=0x0050, text=» IFF PAX=1«, t00=0x0051, t01=0x0144}
0x07fc8…07fdc Head {h00=0x0010, h01=0x0050, text=» DATA RETURN«, t00=0x0051, t01=0x0156}
0x07fdc…07fe8 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0051, t01=0x016a}
0x07fe8…07ffa Head {h00=0x000e, h01=0x0050, text=» DATA PA1 «, t00=0x0051, t01=0x0176}
0x07ffa…0800c Head {h00=0x000e, h01=0x0050, text=» DATA PA2 «, t00=0x0051, t01=0x0188}
0x0800c…0801e Head {h00=0x000e, h01=0x0050, text=» DATA PA3 «, t00=0x0052, t01=0x000a}
0x0801e…08046 Head {h00=0x0024, h01=0x0050, text=» DATA PAALFA PA4-PA10 (ALFASKOP)«, t00=0x0052, t01=0x001c}
0x08046…0805a Head {h00=0x0010, h01=0x0050, text=» DATA PAALFA«, t00=0x0052, t01=0x0044}
0x0805a…0806e Head {h00=0x0010, h01=0x0050, text=» DATA PAALFA«, t00=0x0052, t01=0x0058}
0x0806e…08082 Head {h00=0x0010, h01=0x0050, text=» DATA PAALFA«, t00=0x0052, t01=0x006c}
0x08082…08096 Head {h00=0x0010, h01=0x0050, text=» DATA PAALFA«, t00=0x0052, t01=0x0080}
0x08096…080aa Head {h00=0x0010, h01=0x0050, text=» DATA PAALFA«, t00=0x0052, t01=0x0094}
0x080aa…080be Head {h00=0x0010, h01=0x0050, text=» DATA PAALFA«, t00=0x0052, t01=0x00a8}
0x080be…080ca Head {h00=0x0008, h01=0x0050, text=»*B0 «, t00=0x0052, t01=0x00bc}
0x080ca…080dc Head {h00=0x000e, h01=0x0050, text=» IFT PFX=1«, t00=0x0052, t01=0x00c8}
0x080dc…080ee Head {h00=0x000e, h01=0x0050, text=» DATA PFEX«, t00=0x0052, t01=0x00da}
0x080ee…080fa Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0052, t01=0x00ec}
0x080fa…0810c Head {h00=0x000e, h01=0x0050, text=» IFF PFX=1«, t00=0x0052, t01=0x00f8}
0x0810c…08120 Head {h00=0x0010, h01=0x0050, text=» DATA RETURN«, t00=0x0052, t01=0x010a}
0x08120…0812c Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0052, t01=0x011e}
0x0812c…0813e Head {h00=0x000e, h01=0x0050, text=» DATA PF 1«, t00=0x0052, t01=0x012a}
0x0813e…08150 Head {h00=0x000e, h01=0x0050, text=» DATA PF 2«, t00=0x0052, t01=0x013c}
0x08150…08162 Head {h00=0x000e, h01=0x0050, text=» DATA PF 3«, t00=0x0052, t01=0x014e}
0x08162…08174 Head {h00=0x000e, h01=0x0050, text=» DATA PF 4«, t00=0x0052, t01=0x0160}
0x08174…08186 Head {h00=0x000e, h01=0x0050, text=» DATA PF 5«, t00=0x0052, t01=0x0172}
0x08186…08198 Head {h00=0x000e, h01=0x0050, text=» DATA PF 6«, t00=0x0052, t01=0x0184}
0x08198…081aa Head {h00=0x000e, h01=0x0050, text=» DATA PF 7«, t00=0x0053, t01=0x0008}
0x081aa…081bc Head {h00=0x000e, h01=0x0050, text=» DATA PF 8«, t00=0x0053, t01=0x001a}
0x081bc…081ce Head {h00=0x000e, h01=0x0050, text=» DATA PF 9«, t00=0x0053, t01=0x002c}
0x081ce…081e2 Head {h00=0x0010, h01=0x0050, text=» DATA PF 10 «, t00=0x0053, t01=0x003e}
0x081e2…081f6 Head {h00=0x0010, h01=0x0050, text=» DATA PF 11 «, t00=0x0053, t01=0x0052}
0x081f6…0820a Head {h00=0x0010, h01=0x0050, text=» DATA PF 12 «, t00=0x0053, t01=0x0066}
0x0820a…0821e Head {h00=0x0010, h01=0x0050, text=» DATA PF 13 «, t00=0x0053, t01=0x007a}
0x0821e…08232 Head {h00=0x0010, h01=0x0050, text=» DATA PF 14 «, t00=0x0053, t01=0x008e}
0x08232…08246 Head {h00=0x0010, h01=0x0050, text=» DATA PF 15 «, t00=0x0053, t01=0x00a2}
0x08246…08252 Head {h00=0x0008, h01=0x0050, text=»*C0 «, t00=0x0053, t01=0x00b6}
0x08252…08266 Head {h00=0x0010, h01=0x0050, text=» DATA PF 16 «, t00=0x0053, t01=0x00c2}
0x08266…0827a Head {h00=0x0010, h01=0x0050, text=» DATA PF 17 «, t00=0x0053, t01=0x00d6}
0x0827a…0828e Head {h00=0x0010, h01=0x0050, text=» DATA PF 18 «, t00=0x0053, t01=0x00ea}
0x0828e…082a2 Head {h00=0x0010, h01=0x0050, text=» DATA PF 19 «, t00=0x0053, t01=0x00fe}
0x082a2…082b6 Head {h00=0x0010, h01=0x0050, text=» DATA PF 20 «, t00=0x0053, t01=0x0112}
0x082b6…082ca Head {h00=0x0010, h01=0x0050, text=» DATA PF 21 «, t00=0x0053, t01=0x0126}
0x082ca…082de Head {h00=0x0010, h01=0x0050, text=» DATA PF 22 «, t00=0x0053, t01=0x013a}
0x082de…082f2 Head {h00=0x0010, h01=0x0050, text=» DATA PF 23 «, t00=0x0053, t01=0x014e}
0x082f2…08306 Head {h00=0x0010, h01=0x0050, text=» DATA PF 24 «, t00=0x0053, t01=0x0162}
0x08306…0831a Head {h00=0x0010, h01=0x0050, text=» IFF TEST=1 «, t00=0x0053, t01=0x0176}
0x0831a…0832e Head {h00=0x0010, h01=0x0050, text=» DATA RETURN«, t00=0x0053, t01=0x018a}
0x0832e…0833a Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0054, t01=0x000e}
0x0833a…0834e Head {h00=0x0010, h01=0x0050, text=» IFT TEST=1 «, t00=0x0054, t01=0x001a}
0x0834e…08362 Head {h00=0x0010, h01=0x0050, text=» DATA TESTM «, t00=0x0054, t01=0x002e}
0x08362…0836e Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0054, t01=0x0042}
0x0836e…0837c Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0054, t01=0x004e}
0x0837c…083c2 Head {h00=0x0042, h01=0x0050, text=»**************************************************************«, t00=0x0054, t01=0x005c}
0x083c2…0840a Head {h00=0x0044, h01=0x0050, text=»* * «, t00=0x0054, t01=0x00a2}
0x0840a…08450 Head {h00=0x0042, h01=0x0050, text=»* CHAR ALPHABETIC AND SPEC. CHAR UPDAT. DISPL. *«, t00=0x0054, t01=0x00ea}
0x08450…08496 Head {h00=0x0042, h01=0x0050, text=»* *«, t00=0x0054, t01=0x0130}
0x08496…084dc Head {h00=0x0042, h01=0x0050, text=»**************************************************************«, t00=0x0054, t01=0x0176}
0x084dc…084f0 Head {h00=0x0010, h01=0x0050, text=»* REGISTERS«, t00=0x0055, t01=0x002c}
0x084f0…084fa Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0055, t01=0x0040}
0x084fa…08510 Head {h00=0x0012, h01=0x0050, text=»* A2= KEY-CHAR«, t00=0x0055, t01=0x004a}
0x08510…0852e Head {h00=0x001a, h01=0x0050, text=»* A3= ATTRIBUTE MASKL «, t00=0x0055, t01=0x0060}
0x0852e…08544 Head {h00=0x0012, h01=0x0050, text=»* A4= RESERVED«, t00=0x0055, t01=0x007e}
0x08544…0855a Head {h00=0x0012, h01=0x0050, text=»* A5= RESERVED«, t00=0x0055, t01=0x0094}
0x0855a…08570 Head {h00=0x0012, h01=0x0050, text=»* A6= RESERVED«, t00=0x0055, t01=0x00aa}
0x08570…08588 Head {h00=0x0014, h01=0x0050, text=»* A11= RESERVED «, t00=0x0055, t01=0x00c0}
0x08588…085a0 Head {h00=0x0014, h01=0x0050, text=»* A13= RESERVED «, t00=0x0055, t01=0x00d8}
0x085a0…085aa Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0055, t01=0x00f0}
0x085aa…085f0 Head {h00=0x0042, h01=0x0050, text=»**************************************************************«, t00=0x0055, t01=0x00fa}
0x085f0…08602 Head {h00=0x000e, h01=0x0050, text=»CHAR EQU *«, t00=0x0055, t01=0x0140}
0x08602…0862a Head {h00=0x0024, h01=0x0050, text=» LDK A3,/30 LOAD ATTRIBUTE MASK «, t00=0x0055, t01=0x0152}
0x0862a…08654 Head {h00=0x0026, h01=0x0050, text=» CF A14,ANCOMM TAKE CARE OF CHAR. «, t00=0x0055, t01=0x017a}
0x08654…08664 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0056, t01=0x0014}
0x08664…08672 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0056, t01=0x0024}
0x08672…086b8 Head {h00=0x0042, h01=0x0050, text=»**************************************************************«, t00=0x0056, t01=0x0032}
0x086b8…086fe Head {h00=0x0042, h01=0x0050, text=»* *«, t00=0x0056, t01=0x0078}
0x086fe…08744 Head {h00=0x0042, h01=0x0050, text=»* NUM NUMERIC UPDAT. DISPL. *«, t00=0x0056, t01=0x00be}
0x08744…0878a Head {h00=0x0042, h01=0x0050, text=»* NUMCOM NUMERIC COMMA *«, t00=0x0056, t01=0x0104}
0x0878a…087d2 Head {h00=0x0044, h01=0x0050, text=»* * «, t00=0x0056, t01=0x014a}
0x087d2…08818 (87, 0, 400) Head {h00=0x0042, h01=0x0050, text=»**************************************************************«, t00=0x0057, t01=0x0004}
0x08818…0882c Head {h00=0x0010, h01=0x0050, text=»* REGISTERS«, t00=0x0057, t01=0x004a}
0x0882c…08836 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0057, t01=0x005e}
0x08836…0884c Head {h00=0x0012, h01=0x0050, text=»* A2= KEY-CHAR«, t00=0x0057, t01=0x0068}
0x0884c…08868 Head {h00=0x0018, h01=0x0050, text=»* A3= ATTRIBUTE MASK«, t00=0x0057, t01=0x007e}
0x08868…0887e Head {h00=0x0012, h01=0x0050, text=»* A4= RESERVED«, t00=0x0057, t01=0x009a}
0x0887e…08894 Head {h00=0x0012, h01=0x0050, text=»* A5= RESERVED«, t00=0x0057, t01=0x00b0}
0x08894…088aa Head {h00=0x0012, h01=0x0050, text=»* A6= RESERVED«, t00=0x0057, t01=0x00c6}
0x088aa…088c2 Head {h00=0x0014, h01=0x0050, text=»* A11= RESERVED «, t00=0x0057, t01=0x00dc}
0x088c2…088da Head {h00=0x0014, h01=0x0050, text=»* A13= RESERVED «, t00=0x0057, t01=0x00f4}
0x088da…088e4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0057, t01=0x010c}
0x088e4…0892a Head {h00=0x0042, h01=0x0050, text=»************************************************************* «, t00=0x0057, t01=0x0116}
0x0892a…0893e Head {h00=0x0010, h01=0x0050, text=»NUMCOM EQU *«, t00=0x0057, t01=0x015c}
0x0893e…0895e Head {h00=0x001c, h01=0x0050, text=» LDK A2,/2C INSERT COMMA«, t00=0x0057, t01=0x0170}
0x0895e…08970 Head {h00=0x000e, h01=0x0050, text=»NUM EQU * «, t00=0x0057, t01=0x0190}
0x08970…08998 Head {h00=0x0024, h01=0x0050, text=» LDK A3,/20 LOAD ATTRIBUTE MASK «, t00=0x0058, t01=0x0012}
0x08998…089c2 Head {h00=0x0026, h01=0x0050, text=» CF A14,ANCOMM TAKE CARE OF CHAR. «, t00=0x0058, t01=0x003a}
0x089c2…089d2 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0058, t01=0x0064}
0x089d2…089e0 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0058, t01=0x0074}
0x089e0…08a28 Head {h00=0x0044, h01=0x0050, text=»*************************************************************** «, t00=0x0058, t01=0x0082}
0x08a28…08a70 Head {h00=0x0044, h01=0x0050, text=»* * «, t00=0x0058, t01=0x00ca}
0x08a70…08ab8 Head {h00=0x0044, h01=0x0050, text=»* ANCOMM COMMON ROUTINE FOR ALPHANUM. CHAR. * «, t00=0x0058, t01=0x0112}
0x08ab8…08b00 Head {h00=0x0044, h01=0x0050, text=»* * «, t00=0x0058, t01=0x015a}
0x08b00…08b48 Head {h00=0x0044, h01=0x0050, text=»*************************************************************** «, t00=0x0059, t01=0x0012}
0x08b48…08b5c Head {h00=0x0010, h01=0x0050, text=»* REGISTERS«, t00=0x0059, t01=0x005a}
0x08b5c…08b66 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0059, t01=0x006e}
0x08b66…08b7c Head {h00=0x0012, h01=0x0050, text=»* A2= KEY-CHAR«, t00=0x0059, t01=0x0078}
0x08b7c…08ba2 Head {h00=0x0022, h01=0x0050, text=»* A3= AT ENTRY ATTRIBUTE MASK «, t00=0x0059, t01=0x008e}
0x08ba2…08bc0 Head {h00=0x001a, h01=0x0050, text=»* A4= REL. CURSOR POS.«, t00=0x0059, t01=0x00b4}
0x08bc0…08be2 Head {h00=0x001e, h01=0x0050, text=»* A5= REL. ATTRIBUTE POS. «, t00=0x0059, t01=0x00d2}
0x08be2…08c00 Head {h00=0x001a, h01=0x0050, text=»* A6= ATTRIBUTE CHAR. «, t00=0x0059, t01=0x00f4}
0x08c00…08c20 Head {h00=0x001c, h01=0x0050, text=»* A11= CREDIT WORK AREA «, t00=0x0059, t01=0x0112}
0x08c20…08c38 Head {h00=0x0014, h01=0x0050, text=»* A13= RESERVED «, t00=0x0059, t01=0x0132}
0x08c38…08c42 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0059, t01=0x014a}
0x08c42…08c8a Head {h00=0x0044, h01=0x0050, text=»*************************************************************** «, t00=0x0059, t01=0x0154}
0x08c8a…08c9e Head {h00=0x0010, h01=0x0050, text=»ANCOMM EQU *«, t00=0x005a, t01=0x000c}
0x08c9e…08ccc Head {h00=0x002a, h01=0x0050, text=» CF A14,SCRINF GET SCREEN INFORMATION «, t00=0x005a, t01=0x0020}
0x08ccc…08cf2 Head {h00=0x0022, h01=0x0050, text=» CWR A4,A5 CURSOR ON ATTRIBUTE«, t00=0x005a, t01=0x004e}
0x08cf2…08d0c Head {h00=0x0016, h01=0x0050, text=» RF(E) ANC800 YES «, t00=0x005a, t01=0x0074}
0x08d0c…08d1e Head {h00=0x000e, h01=0x0050, text=» LDR A1,A6«, t00=0x005a, t01=0x008e}
0x08d1e…08d40 Head {h00=0x001e, h01=0x0050, text=» ANR A1,A3 ALLOWED POS. ? «, t00=0x005a, t01=0x00a0}
0x08d40…08d5a Head {h00=0x0016, h01=0x0050, text=» RF(NZ) ANC800 NO «, t00=0x005a, t01=0x00c2}
0x08d5a…08d6e Head {h00=0x0010, h01=0x0050, text=» IFT IN:DL=1«, t00=0x005a, t01=0x00dc}
0x08d6e…08d92 Head {h00=0x0020, h01=0x0050, text=» LD A1,MODE,A11 INSERT MODE?«, t00=0x005a, t01=0x00f0}
0x08d92…08daa Head {h00=0x0014, h01=0x0050, text=» RF(Z) ANC100 NO«, t00=0x005a, t01=0x0114}
0x08daa…08dc0 Head {h00=0x0012, h01=0x0050, text=» CF A14,INSMOD«, t00=0x005a, t01=0x012c}
0x08dc0…08dd2 Head {h00=0x000e, h01=0x0050, text=» LDR A7,A1«, t00=0x005a, t01=0x0142}
0x08dd2…08df4 Head {h00=0x001e, h01=0x0050, text=» ANK A7,1 INSRETED NORMAL?«, t00=0x005a, t01=0x0154}
0x08df4…08e0e Head {h00=0x0016, h01=0x0050, text=» RF(NZ) ANC900 YES«, t00=0x005a, t01=0x0176}
0x08e0e…08e34 Head {h00=0x0022, h01=0x0050, text=» ANK A1,2 INSERT NOT ALLOWED? «, t00=0x005a, t01=0x0190}
0x08e34…08e4e Head {h00=0x0016, h01=0x0050, text=» RF(NZ) ANC800 YES«, t00=0x005b, t01=0x0026}
0x08e4e…08e5a Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x005b, t01=0x0040}
0x08e5a…08e6e Head {h00=0x0010, h01=0x0050, text=»ANC100 EQU *«, t00=0x005b, t01=0x004c}
0x08e6e…08e80 Head {h00=0x000e, h01=0x0050, text=» LDR A1,A4«, t00=0x005b, t01=0x0060}
0x08e80…08e92 Head {h00=0x000e, h01=0x0050, text=» LDR A7,A2«, t00=0x005b, t01=0x0072}
0x08e92…08ec6 Head {h00=0x0030, h01=0x0050, text=» CF A14,STOVDU STORE KEY-CHAR IN VDU BUFFER «, t00=0x005b, t01=0x0084}
0x08ec6…08ef4 Head {h00=0x002a, h01=0x0050, text=» CF A14,WCHAR DISPLAY CHAR AND CURSOR «, t00=0x005b, t01=0x00b8}
0x08ef4…08f30 Head {h00=0x0038, h01=0x0050, text=» CF A14,POSUNP MOVE CURSOR TO NEXT UNPROTECTED POS. «, t00=0x005b, t01=0x00e6}
0x08f30…08f42 Head {h00=0x000e, h01=0x0050, text=» RF ANC900«, t00=0x005b, t01=0x0122}
0x08f42…08f56 Head {h00=0x0010, h01=0x0050, text=»ANC800 EQU *«, t00=0x005b, t01=0x0134}
0x08f56…08f7a Head {h00=0x0020, h01=0x0050, text=» CF A14,ERROR INDICATE ERROR«, t00=0x005b, t01=0x0148}
0x08f7a…08f8e Head {h00=0x0010, h01=0x0050, text=»ANC900 EQU *«, t00=0x005b, t01=0x016c}
0x08f8e…08f9e Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x005b, t01=0x0180}
0x08f9e…08fac Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x005b, t01=0x0190}
0x08fac…08ff0 Head {h00=0x0040, h01=0x0050, text=»************************************************************«, t00=0x005c, t01=0x000e}
0x08ff0…09034 Head {h00=0x0040, h01=0x0050, text=»* *«, t00=0x005c, t01=0x0052}
0x09034…09078 Head {h00=0x0040, h01=0x0050, text=»* CURMOV MOVE CURSOR ON SCREEN *«, t00=0x005c, t01=0x0096}
0x09078…090bc Head {h00=0x0040, h01=0x0050, text=»* *«, t00=0x005c, t01=0x00da}
0x090bc…09100 Head {h00=0x0040, h01=0x0050, text=»************************************************************«, t00=0x005c, t01=0x011e}
0x09100…09114 Head {h00=0x0010, h01=0x0050, text=»* REGISTERS«, t00=0x005c, t01=0x0162}
0x09114…0911e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005c, t01=0x0176}
0x0911e…09134 Head {h00=0x0012, h01=0x0050, text=»* A2= KEY-CHAR«, t00=0x005c, t01=0x0180}
0x09134…09152 Head {h00=0x001a, h01=0x0050, text=»* A4= REL. CURSOR POS.«, t00=0x005d, t01=0x0008}
0x09152…09174 Head {h00=0x001e, h01=0x0050, text=»* A5= REL. ATTRIBUTE POS. «, t00=0x005d, t01=0x0026}
0x09174…09190 Head {h00=0x0018, h01=0x0050, text=»* A6= ATTRIBUTE CHAR«, t00=0x005d, t01=0x0048}
0x09190…091a8 Head {h00=0x0014, h01=0x0050, text=»* A11= RESERVED «, t00=0x005d, t01=0x0064}
0x091a8…091c0 Head {h00=0x0014, h01=0x0050, text=»* A13= RESERVED «, t00=0x005d, t01=0x007c}
0x091c0…091ca Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005d, t01=0x0094}
0x091ca…0920e Head {h00=0x0040, h01=0x0050, text=»************************************************************«, t00=0x005d, t01=0x009e}
0x0920e…09222 Head {h00=0x0010, h01=0x0050, text=»CURMOV EQU *«, t00=0x005d, t01=0x00e2}
0x09222…0924a Head {h00=0x0024, h01=0x0050, text=» CF A14,SCRINF GET SCREEN INFO. «, t00=0x005d, t01=0x00f6}
0x0924a…09268 Head {h00=0x001a, h01=0x0050, text=» SUK A2,CRUP GET INDEX«, t00=0x005d, t01=0x011e}
0x09268…0927a Head {h00=0x000e, h01=0x0050, text=» ADR A2,A2«, t00=0x005d, t01=0x013c}
0x0927a…092aa Head {h00=0x002c, h01=0x0050, text=» CFI A14,CURTAB,A2 JUMP IN CURSOR TABLE «, t00=0x005d, t01=0x014e}
0x092aa…092d8 Head {h00=0x002a, h01=0x0050, text=» CF A14,STOINF SAVE SCREEN INFORMATION«, t00=0x005d, t01=0x017e}
0x092d8…09302 Head {h00=0x0026, h01=0x0050, text=» CWK A5,LBVDU+1 UNFORMATTED SCREEN«, t00=0x005e, t01=0x001c}
0x09302…0931c Head {h00=0x0016, h01=0x0050, text=» RF(E) CURM10 YES «, t00=0x005e, t01=0x0046}
0x0931c…0932e Head {h00=0x000e, h01=0x0050, text=» LDR A1,A4«, t00=0x005e, t01=0x0060}
0x0932e…09356 Head {h00=0x0024, h01=0x0050, text=» CF A14,ATMASB UPDATE ATTRIBUTE «, t00=0x005e, t01=0x0072}
0x09356…0936a Head {h00=0x0010, h01=0x0050, text=»CURM10 EQU *«, t00=0x005e, t01=0x009a}
0x0936a…09388 Head {h00=0x001a, h01=0x0050, text=» LDK A1,2 REQ. LENGTH «, t00=0x005e, t01=0x00ae}
0x09388…093aa Head {h00=0x001e, h01=0x0050, text=» CF A14,DISCHA SET CURSOR «, t00=0x005e, t01=0x00cc}
0x093aa…093ba Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x005e, t01=0x00ee}
0x093ba…093c8 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x005e, t01=0x00fe}
0x093c8…093f0 Head {h00=0x0024, h01=0x0050, text=»* CURTAB CURSOR JUMP TABLE«, t00=0x005e, t01=0x010c}
0x093f0…09404 Head {h00=0x0010, h01=0x0050, text=»CURTAB EQU *«, t00=0x005e, t01=0x0134}
0x09404…0942c Head {h00=0x0024, h01=0x0050, text=» DATA CRLEFT MOVE CURSOR TO LEFT«, t00=0x005e, t01=0x0148}
0x0942c…09456 Head {h00=0x0026, h01=0x0050, text=» DATA CRRIGT MOVE CURSOR TO RIGHT «, t00=0x005e, t01=0x0170}
0x09456…0947c Head {h00=0x0022, h01=0x0050, text=» DATA CRDOWN MOVE CURSOR DOWN «, t00=0x005f, t01=0x000a}
0x0947c…0949e Head {h00=0x001e, h01=0x0050, text=» DATA CURUP MOVE CURSOR UP«, t00=0x005f, t01=0x0030}
0x0949e…094c8 Head {h00=0x0026, h01=0x0050, text=»* CRLEFT MOVE CURSOR TO LEFT«, t00=0x005f, t01=0x0052}
0x094c8…094dc Head {h00=0x0010, h01=0x0050, text=»CRLEFT EQU *«, t00=0x005f, t01=0x007c}
0x094dc…094ee Head {h00=0x000e, h01=0x0050, text=» SUK A4,1 «, t00=0x005f, t01=0x0090}
0x094ee…09516 Head {h00=0x0024, h01=0x0050, text=» RF(NN) CRRET NOT LEFTMOST POS. «, t00=0x005f, t01=0x00a2}
0x09516…09542 Head {h00=0x0028, h01=0x0050, text=» LDKL A4,LBVDU-1 LAST POS. ON SCREEN«, t00=0x005f, t01=0x00ca}
0x09542…09554 Head {h00=0x000e, h01=0x0050, text=» RF CRRET «, t00=0x005f, t01=0x00f6}
0x09554…09580 Head {h00=0x0028, h01=0x0050, text=»* CRRIGT MOVE CURSOR TO RIGHT «, t00=0x005f, t01=0x0108}
0x09580…09594 Head {h00=0x0010, h01=0x0050, text=»CRRIGT EQU *«, t00=0x005f, t01=0x0134}
0x09594…095a6 Head {h00=0x000e, h01=0x0050, text=» ADK A4,1 «, t00=0x005f, t01=0x0148}
0x095a6…095ca Head {h00=0x0020, h01=0x0050, text=» CWK A4,LBVDU END OF BUFFER?«, t00=0x005f, t01=0x015a}
0x095ca…095e2 Head {h00=0x0014, h01=0x0050, text=» RF(L) CRRET NO «, t00=0x005f, t01=0x017e}
0x095e2…095f4 Head {h00=0x000e, h01=0x0050, text=» LDK A4,0 «, t00=0x0060, t01=0x0008}
0x095f4…09606 Head {h00=0x000e, h01=0x0050, text=» RF CRRET «, t00=0x0060, t01=0x001a}
0x09606…0962e Head {h00=0x0024, h01=0x0050, text=»* CRDOWN MOVE CURSOR DOWN «, t00=0x0060, t01=0x002c}
0x0962e…09642 Head {h00=0x0010, h01=0x0050, text=»CRDOWN EQU *«, t00=0x0060, t01=0x0054}
0x09642…09658 Head {h00=0x0012, h01=0x0050, text=» ADKL A4,LLINE«, t00=0x0060, t01=0x0068}
0x09658…09678 Head {h00=0x001c, h01=0x0050, text=» CWK A4,LBVDU LAST LINE?«, t00=0x0060, t01=0x007e}
0x09678…09690 Head {h00=0x0014, h01=0x0050, text=» RF(L) CRRET NO «, t00=0x0060, t01=0x009e}
0x09690…096a6 Head {h00=0x0012, h01=0x0050, text=» SUKL A4,LBVDU«, t00=0x0060, t01=0x00b6}
0x096a6…096b8 Head {h00=0x000e, h01=0x0050, text=» RF CRRET «, t00=0x0060, t01=0x00cc}
0x096b8…096dc Head {h00=0x0020, h01=0x0050, text=»* CURUP MOVE CURSOR UP«, t00=0x0060, t01=0x00de}
0x096dc…096f0 Head {h00=0x0010, h01=0x0050, text=»CURUP EQU * «, t00=0x0060, t01=0x0102}
0x096f0…09706 Head {h00=0x0012, h01=0x0050, text=» SUKL A4,LLINE«, t00=0x0060, t01=0x0116}
0x09706…09728 Head {h00=0x001e, h01=0x0050, text=» RF(NN) CRRET UPMOST LINE «, t00=0x0060, t01=0x012c}
0x09728…0973e Head {h00=0x0012, h01=0x0050, text=» ADKL A4,LBVDU«, t00=0x0060, t01=0x014e}
0x0973e…09752 Head {h00=0x0010, h01=0x0050, text=»CRRET EQU * «, t00=0x0060, t01=0x0164}
0x09752…09762 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0060, t01=0x0178}
0x09762…09770 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0060, t01=0x0188}
0x09770…097b6 Head {h00=0x0042, h01=0x0050, text=»**************************************************************«, t00=0x0061, t01=0x0008}
0x097b6…097fc Head {h00=0x0042, h01=0x0050, text=»* *«, t00=0x0061, t01=0x004e}
0x097fc…09842 Head {h00=0x0042, h01=0x0050, text=»* BAKTAB TAB. UNPROTECTED BACKWARDS *«, t00=0x0061, t01=0x0094}
0x09842…09888 Head {h00=0x0042, h01=0x0050, text=»* *«, t00=0x0061, t01=0x00da}
0x09888…098ce Head {h00=0x0042, h01=0x0050, text=»**************************************************************«, t00=0x0061, t01=0x0120}
0x098ce…098e2 Head {h00=0x0010, h01=0x0050, text=»* REGISTERS«, t00=0x0061, t01=0x0166}
0x098e2…098ec Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0061, t01=0x017a}
0x098ec…0990a Head {h00=0x001a, h01=0x0050, text=»* A4= REL. CURSOR POS.«, t00=0x0061, t01=0x0184}
0x0990a…0992c Head {h00=0x001e, h01=0x0050, text=»* A5= REL. ATTRIBUTE POS. «, t00=0x0062, t01=0x0012}
0x0992c…0994a Head {h00=0x001a, h01=0x0050, text=»* A6= ATTRIBUTE CHAR. «, t00=0x0062, t01=0x0034}
0x0994a…09972 Head {h00=0x0024, h01=0x0050, text=»* A9= REL. ATTRIBUTE START POS. «, t00=0x0062, t01=0x0052}
0x09972…0998a Head {h00=0x0014, h01=0x0050, text=»* A11= RESERVED «, t00=0x0062, t01=0x007a}
0x0998a…099a2 Head {h00=0x0014, h01=0x0050, text=»* A13= RESERVED «, t00=0x0062, t01=0x0092}
0x099a2…099ac Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0062, t01=0x00aa}
0x099ac…099f4 Head {h00=0x0044, h01=0x0050, text=»*************************************************************** «, t00=0x0062, t01=0x00b4}
0x099f4…09a08 Head {h00=0x0010, h01=0x0050, text=»BAKTAB EQU *«, t00=0x0062, t01=0x00fc}
0x09a08…09a36 Head {h00=0x002a, h01=0x0050, text=» CF A14,SCRINF GET SCREEN INFORMATION «, t00=0x0062, t01=0x0110}
0x09a36…09a48 Head {h00=0x000e, h01=0x0050, text=» LDR A9,A5«, t00=0x0062, t01=0x013e}
0x09a48…09a74 Head {h00=0x0028, h01=0x0050, text=» CWK A5,LBVDU+1 UNFORMATTED SCREEN? «, t00=0x0062, t01=0x0150}
0x09a74…09a8e Head {h00=0x0016, h01=0x0050, text=» RF(E) BAK600 YES «, t00=0x0062, t01=0x017c}
0x09a8e…09ab8 Head {h00=0x0026, h01=0x0050, text=» CWR A4,A5 STANDING ON ATTRIBUTE? «, t00=0x0063, t01=0x0008}
0x09ab8…09ad2 Head {h00=0x0016, h01=0x0050, text=» RF(E) BAK300 YES «, t00=0x0063, t01=0x0032}
0x09ad2…09ae4 Head {h00=0x000e, h01=0x0050, text=» SUK A4,1 «, t00=0x0063, t01=0x004c}
0x09ae4…09b14 Head {h00=0x002c, h01=0x0050, text=» RF(NN) BAK100 NOT FIRST POS. ON SCREEN «, t00=0x0063, t01=0x005e}
0x09b14…09b40 Head {h00=0x0028, h01=0x0050, text=» LDKL A4,LBVDU-1 LAST POS. ON SCREEN«, t00=0x0063, t01=0x008e}
0x09b40…09b54 Head {h00=0x0010, h01=0x0050, text=»BAK100 EQU *«, t00=0x0063, t01=0x00ba}
0x09b54…09b88 Head {h00=0x0030, h01=0x0050, text=» CWR A4,A5 STANDING ON POS. AFTER ATTRIBUTE?«, t00=0x0063, t01=0x00ce}
0x09b88…09ba2 Head {h00=0x0016, h01=0x0050, text=» RF(E) BAK300 YES «, t00=0x0063, t01=0x0102}
0x09ba2…09bb4 Head {h00=0x000e, h01=0x0050, text=» LDR A4,A5«, t00=0x0063, t01=0x011c}
0x09bb4…09bc6 Head {h00=0x000e, h01=0x0050, text=» LDR A7,A6«, t00=0x0063, t01=0x012e}
0x09bc6…09bea Head {h00=0x0020, h01=0x0050, text=» ANK A7,/20 PROTECTED FIELD?«, t00=0x0063, t01=0x0140}
0x09bea…09c02 Head {h00=0x0014, h01=0x0050, text=» RF(Z) BAK500 NO«, t00=0x0063, t01=0x0164}
0x09c02…09c16 Head {h00=0x0010, h01=0x0050, text=»BAK300 EQU *«, t00=0x0063, t01=0x017c}
0x09c16…09c28 Head {h00=0x000e, h01=0x0050, text=» SUK A4,1 «, t00=0x0063, t01=0x0190}
0x09c28…09c3e Head {h00=0x0012, h01=0x0050, text=» RF(NN) BAK400«, t00=0x0064, t01=0x0012}
0x09c3e…09c56 Head {h00=0x0014, h01=0x0050, text=» LDKL A4,LBVDU-1«, t00=0x0064, t01=0x0028}
0x09c56…09c6a Head {h00=0x0010, h01=0x0050, text=»BAK400 EQU *«, t00=0x0064, t01=0x0040}
0x09c6a…09c7c Head {h00=0x000e, h01=0x0050, text=» LDR A1,A4«, t00=0x0064, t01=0x0054}
0x09c7c…09cba Head {h00=0x003a, h01=0x0050, text=» CF A14,ATMASB SEARCH ATTRIBUTE BACKWARDS AND MASK IT «, t00=0x0064, t01=0x0066}
0x09cba…09ccc Head {h00=0x000e, h01=0x0050, text=» LDR A7,A6«, t00=0x0064, t01=0x00a4}
0x09ccc…09cf0 Head {h00=0x0020, h01=0x0050, text=» ANK A7,/20 PROTECTED FIELD?«, t00=0x0064, t01=0x00b6}
0x09cf0…09d08 Head {h00=0x0014, h01=0x0050, text=» RF(Z) BAK500 NO«, t00=0x0064, t01=0x00da}
0x09d08…09d1a Head {h00=0x000e, h01=0x0050, text=» LDR A4,A5«, t00=0x0064, t01=0x00f2}
0x09d1a…09d44 Head {h00=0x0026, h01=0x0050, text=» CWR A5,A9 WHOLE SCREEN SEARCHED? «, t00=0x0064, t01=0x0104}
0x09d44…09d5e Head {h00=0x0016, h01=0x0050, text=» RB(NE) BAK300 NO «, t00=0x0064, t01=0x012e}
0x09d5e…09d82 Head {h00=0x0020, h01=0x0050, text=» LDK A1,0 FIRST SCREEN POS. «, t00=0x0064, t01=0x0148}
0x09d82…09db2 Head {h00=0x002c, h01=0x0050, text=» CF A14,ATMASB UPDATE FIELD INFORMATION «, t00=0x0064, t01=0x016c}
0x09db2…09dc4 Head {h00=0x000e, h01=0x0050, text=» RF BAK600«, t00=0x0065, t01=0x000c}
0x09dc4…09dd8 Head {h00=0x0010, h01=0x0050, text=»BAK500 EQU *«, t00=0x0065, t01=0x001e}
0x09dd8…09dea Head {h00=0x000e, h01=0x0050, text=» LDR A4,A5«, t00=0x0065, t01=0x0032}
0x09dea…09dfc Head {h00=0x000e, h01=0x0050, text=» ADK A4,1 «, t00=0x0065, t01=0x0044}
0x09dfc…09e20 Head {h00=0x0020, h01=0x0050, text=» CWK A4,LBVDU-1 WRAP AROUND?«, t00=0x0065, t01=0x0056}
0x09e20…09e3a Head {h00=0x0016, h01=0x0050, text=» RF(NG) BAK700 NO «, t00=0x0065, t01=0x007a}
0x09e3a…09e4e Head {h00=0x0010, h01=0x0050, text=»BAK600 EQU *«, t00=0x0065, t01=0x0094}
0x09e4e…09e72 Head {h00=0x0020, h01=0x0050, text=» LDK A4,0 FIRST SCREEN POS. «, t00=0x0065, t01=0x00a8}
0x09e72…09e86 Head {h00=0x0010, h01=0x0050, text=»BAK700 EQU *«, t00=0x0065, t01=0x00cc}
0x09e86…09eb4 Head {h00=0x002a, h01=0x0050, text=» CF A14,STOINF SAVE SCREEN INFORMATION«, t00=0x0065, t01=0x00e0}
0x09eb4…09ed2 Head {h00=0x001a, h01=0x0050, text=» LDK A1,2 REQ. LENGTH «, t00=0x0065, t01=0x010e}
0x09ed2…09ef4 Head {h00=0x001e, h01=0x0050, text=» CF A14,DISCHA SET CURSOR «, t00=0x0065, t01=0x012c}
0x09ef4…09f04 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0065, t01=0x014e}
0x09f04…09f12 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0065, t01=0x015e}
0x09f12…09f58 Head {h00=0x0042, h01=0x0050, text=»************************************************************* «, t00=0x0065, t01=0x016c}
0x09f58…09f9e Head {h00=0x0042, h01=0x0050, text=»* * «, t00=0x0066, t01=0x0022}
0x09f9e…09fe4 Head {h00=0x0042, h01=0x0050, text=»* TAB TAB. UNPROTECTED FORWARD * «, t00=0x0066, t01=0x0068}
0x09fe4…0a02a Head {h00=0x0042, h01=0x0050, text=»* * «, t00=0x0066, t01=0x00ae}
0x0a02a…0a070 Head {h00=0x0042, h01=0x0050, text=»************************************************************* «, t00=0x0066, t01=0x00f4}
0x0a070…0a084 Head {h00=0x0010, h01=0x0050, text=»* REGISTERS«, t00=0x0066, t01=0x013a}
0x0a084…0a08e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0066, t01=0x014e}
0x0a08e…0a0ac Head {h00=0x001a, h01=0x0050, text=»* A4= REL. CURSOR POS.«, t00=0x0066, t01=0x0158}
0x0a0ac…0a0ce Head {h00=0x001e, h01=0x0050, text=»* A5= REL. ATTRIBUTE POS. «, t00=0x0066, t01=0x0176}
0x0a0ce…0a0ec Head {h00=0x001a, h01=0x0050, text=»* A6= ATTRIBUTE CHAR. «, t00=0x0067, t01=0x0008}
0x0a0ec…0a114 Head {h00=0x0024, h01=0x0050, text=»* A9= REL. ATTRIBUTE START POS. «, t00=0x0067, t01=0x0026}
0x0a114…0a12c Head {h00=0x0014, h01=0x0050, text=»* A11= RESERVED «, t00=0x0067, t01=0x004e}
0x0a12c…0a144 Head {h00=0x0014, h01=0x0050, text=»* A13= RESERVED «, t00=0x0067, t01=0x0066}
0x0a144…0a14e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0067, t01=0x007e}
0x0a14e…0a194 Head {h00=0x0042, h01=0x0050, text=»**************************************************************«, t00=0x0067, t01=0x0088}
0x0a194…0a1a6 Head {h00=0x000e, h01=0x0050, text=»TAB EQU * «, t00=0x0067, t01=0x00ce}
0x0a1a6…0a1d4 Head {h00=0x002a, h01=0x0050, text=» CF A14,SCRINF GET SCREEN INFORMATION «, t00=0x0067, t01=0x00e0}
0x0a1d4…0a1e6 Head {h00=0x000e, h01=0x0050, text=» LDR A9,A5«, t00=0x0067, t01=0x010e}
0x0a1e6…0a212 Head {h00=0x0028, h01=0x0050, text=» CWK A5,LBVDU+1 UNFORMATTED SCREEN? «, t00=0x0067, t01=0x0120}
0x0a212…0a22c Head {h00=0x0016, h01=0x0050, text=» RF(E) TAB200 YES «, t00=0x0067, t01=0x014c}
0x0a22c…0a240 Head {h00=0x0010, h01=0x0050, text=»TAB100 EQU *«, t00=0x0067, t01=0x0166}
0x0a240…0a252 Head {h00=0x000e, h01=0x0050, text=» LDR A1,A4«, t00=0x0067, t01=0x017a}
0x0a252…0a282 Head {h00=0x002c, h01=0x0050, text=» CF A14,ATMASF SEARCH ATTRIBUTE FORWARD «, t00=0x0067, t01=0x018c}
0x0a282…0a2a4 Head {h00=0x001e, h01=0x0050, text=» LDR A4,A5 NEW CURSOR POS.«, t00=0x0068, t01=0x002c}
0x0a2a4…0a2b6 Head {h00=0x000e, h01=0x0050, text=» LDR A7,A6«, t00=0x0068, t01=0x004e}
0x0a2b6…0a2da Head {h00=0x0020, h01=0x0050, text=» ANK A7,/20 PROTECTED FIELD?«, t00=0x0068, t01=0x0060}
0x0a2da…0a2f2 Head {h00=0x0014, h01=0x0050, text=» RF(Z) TAB150 NO«, t00=0x0068, t01=0x0084}
0x0a2f2…0a31c Head {h00=0x0026, h01=0x0050, text=» CWR A5,A9 WHOLE SCREEN SEARCHED? «, t00=0x0068, t01=0x009c}
0x0a31c…0a336 Head {h00=0x0016, h01=0x0050, text=» RB(NE) TAB100 NO «, t00=0x0068, t01=0x00c6}
0x0a336…0a35c Head {h00=0x0022, h01=0x0050, text=» LDK A1,0 FIRST POS. ON SCREEN«, t00=0x0068, t01=0x00e0}
0x0a35c…0a38c Head {h00=0x002c, h01=0x0050, text=» CF A14,ATMASB UPDATE FIELD INFORMATION «, t00=0x0068, t01=0x0106}
0x0a38c…0a39e Head {h00=0x000e, h01=0x0050, text=» RF TAB200«, t00=0x0068, t01=0x0136}
0x0a39e…0a3b2 Head {h00=0x0010, h01=0x0050, text=»TAB150 EQU *«, t00=0x0068, t01=0x0148}
0x0a3b2…0a3c4 Head {h00=0x000e, h01=0x0050, text=» ADK A4,1 «, t00=0x0068, t01=0x015c}
0x0a3c4…0a3ee Head {h00=0x0026, h01=0x0050, text=» CWK A4,LBVDU-1 LAST SCREEN POS.? «, t00=0x0068, t01=0x016e}
0x0a3ee…0a408 Head {h00=0x0016, h01=0x0050, text=» RF(NG) TAB300 NO «, t00=0x0069, t01=0x0008}
0x0a408…0a41c Head {h00=0x0010, h01=0x0050, text=»TAB200 EQU *«, t00=0x0069, t01=0x0022}
0x0a41c…0a440 Head {h00=0x0020, h01=0x0050, text=» LDK A4,0 FIRST SCREEN POS. «, t00=0x0069, t01=0x0036}
0x0a440…0a454 Head {h00=0x0010, h01=0x0050, text=»TAB300 EQU *«, t00=0x0069, t01=0x005a}
0x0a454…0a482 Head {h00=0x002a, h01=0x0050, text=» CF A14,STOINF SAVE SCREEN INFORMATION«, t00=0x0069, t01=0x006e}
0x0a482…0a4a0 Head {h00=0x001a, h01=0x0050, text=» LDK A1,2 REQ. LENGTH «, t00=0x0069, t01=0x009c}
0x0a4a0…0a4c2 Head {h00=0x001e, h01=0x0050, text=» CF A14,DISCHA SET CURSOR «, t00=0x0069, t01=0x00ba}
0x0a4c2…0a4d2 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0069, t01=0x00dc}
0x0a4d2…0a4e0 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0069, t01=0x00ec}
0x0a4e0…0a52c Head {h00=0x0048, h01=0x0050, text=»******************************************************************* «, t00=0x0069, t01=0x00fa}
0x0a52c…0a578 Head {h00=0x0048, h01=0x0050, text=»* * «, t00=0x0069, t01=0x0146}
0x0a578…0a5c4 (106, 0, 400) Head {h00=0x0048, h01=0x0050, text=»* CRNL TAB. UNPROTECTED TO NEXT LINE * «, t00=0x006a, t01=0x0004}
0x0a5c4…0a610 Head {h00=0x0048, h01=0x0050, text=»* * «, t00=0x006a, t01=0x0050}
0x0a610…0a65c Head {h00=0x0048, h01=0x0050, text=»******************************************************************* «, t00=0x006a, t01=0x009c}
0x0a65c…0a670 Head {h00=0x0010, h01=0x0050, text=»* REGISTERS«, t00=0x006a, t01=0x00e8}
0x0a670…0a67a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006a, t01=0x00fc}
0x0a67a…0a698 Head {h00=0x001a, h01=0x0050, text=»* A4= REL. CURSOR POS.«, t00=0x006a, t01=0x0106}
0x0a698…0a6ba Head {h00=0x001e, h01=0x0050, text=»* A5= REL. ATTRIBUTE POS. «, t00=0x006a, t01=0x0124}
0x0a6ba…0a6d8 Head {h00=0x001a, h01=0x0050, text=»* A6= ATTRIBUTE CHAR. «, t00=0x006a, t01=0x0146}
0x0a6d8…0a6f0 Head {h00=0x0014, h01=0x0050, text=»* A11= RESERVED «, t00=0x006a, t01=0x0164}
0x0a6f0…0a708 Head {h00=0x0014, h01=0x0050, text=»* A13= RESERVED «, t00=0x006a, t01=0x017c}
0x0a708…0a712 (107, 0, 400) Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006b, t01=0x0004}
0x0a712…0a75c Head {h00=0x0046, h01=0x0050, text=»***************************************************************** «, t00=0x006b, t01=0x000e}
0x0a75c…0a76e Head {h00=0x000e, h01=0x0050, text=»CRNL EQU *«, t00=0x006b, t01=0x0058}
0x0a76e…0a79c Head {h00=0x002a, h01=0x0050, text=» CF A14,SCRINF GET SCREEN INFORMATION «, t00=0x006b, t01=0x006a}
0x0a79c…0a7c4 Head {h00=0x0024, h01=0x0050, text=» CF A14,CRDOWN MOVE CURSOR DOWN «, t00=0x006b, t01=0x0098}
0x0a7c4…0a7ec Head {h00=0x0024, h01=0x0050, text=» LDK A1,0 COMPUTE LEFTMOST POS. «, t00=0x006b, t01=0x00c0}
0x0a7ec…0a800 Head {h00=0x0010, h01=0x0050, text=»CRN100 EQU *«, t00=0x006b, t01=0x00e8}
0x0a800…0a816 Head {h00=0x0012, h01=0x0050, text=» SUK A4,LLINE «, t00=0x006b, t01=0x00fc}
0x0a816…0a82c Head {h00=0x0012, h01=0x0050, text=» RF(N) CRN200 «, t00=0x006b, t01=0x0112}
0x0a82c…0a842 Head {h00=0x0012, h01=0x0050, text=» ADK A1,LLINE «, t00=0x006b, t01=0x0128}
0x0a842…0a854 Head {h00=0x000e, h01=0x0050, text=» RB CRN100«, t00=0x006b, t01=0x013e}
0x0a854…0a868 Head {h00=0x0010, h01=0x0050, text=»CRN200 EQU *«, t00=0x006b, t01=0x0150}
0x0a868…0a87a Head {h00=0x000e, h01=0x0050, text=» LDR A4,A1«, t00=0x006b, t01=0x0164}
0x0a87a…0a8a6 Head {h00=0x0028, h01=0x0050, text=» CWK A5,LBVDU+1 UNFORMATTED SCREEN? «, t00=0x006b, t01=0x0176}
0x0a8a6…0a8c0 Head {h00=0x0016, h01=0x0050, text=» RF(E) CRN800 YES «, t00=0x006c, t01=0x0012}
0x0a8c0…0a8ee Head {h00=0x002a, h01=0x0050, text=» CF A14,GETVDU GET CHAR. IN VDU BUFFER«, t00=0x006c, t01=0x002c}
0x0a8ee…0a90c Head {h00=0x001a, h01=0x0050, text=» CCK A7,/80 ATTRIBUTE?«, t00=0x006c, t01=0x005a}
0x0a90c…0a926 Head {h00=0x0016, h01=0x0050, text=» RF(NL) CRN400 YES«, t00=0x006c, t01=0x0078}
0x0a926…0a938 Head {h00=0x000e, h01=0x0050, text=» LDR A1,A4«, t00=0x006c, t01=0x0092}
0x0a938…0a968 Head {h00=0x002c, h01=0x0050, text=» CF A14,ATMASB SEARCH ATTRIBUTE BACKWARD«, t00=0x006c, t01=0x00a4}
0x0a968…0a97a Head {h00=0x000e, h01=0x0050, text=» LDR A7,A6«, t00=0x006c, t01=0x00d4}
0x0a97a…0a998 Head {h00=0x001a, h01=0x0050, text=» ANK A7,/20 PROTECTED?«, t00=0x006c, t01=0x00e6}
0x0a998…0a9b0 Head {h00=0x0014, h01=0x0050, text=» RF(Z) CRN800 NO«, t00=0x006c, t01=0x0104}
0x0a9b0…0a9c2 Head {h00=0x000e, h01=0x0050, text=» RF CRN500«, t00=0x006c, t01=0x011c}
0x0a9c2…0a9d6 Head {h00=0x0010, h01=0x0050, text=»CRN400 EQU *«, t00=0x006c, t01=0x012e}
0x0a9d6…0a9e8 Head {h00=0x000e, h01=0x0050, text=» SUK A4,1 «, t00=0x006c, t01=0x0142}
0x0a9e8…0aa0e Head {h00=0x0022, h01=0x0050, text=» RF(NN) CRN500 NOT WRAP AROUND«, t00=0x006c, t01=0x0154}
0x0aa0e…0aa38 Head {h00=0x0026, h01=0x0050, text=» LDKL A4,LBVDU-1 LAST SCREEN POS. «, t00=0x006c, t01=0x017a}
0x0aa38…0aa4c Head {h00=0x0010, h01=0x0050, text=»CRN500 EQU *«, t00=0x006d, t01=0x0014}
0x0aa4c…0aa7a Head {h00=0x002a, h01=0x0050, text=» CF A14,STOINF SAVE SCREEN INFORMATION«, t00=0x006d, t01=0x0028}
0x0aa7a…0aaa6 Head {h00=0x0028, h01=0x0050, text=» CF A14,TAB TAB. UNPROTECTED FORWARD«, t00=0x006d, t01=0x0056}
0x0aaa6…0aab8 Head {h00=0x000e, h01=0x0050, text=» RF CRN900«, t00=0x006d, t01=0x0082}
0x0aab8…0aacc Head {h00=0x0010, h01=0x0050, text=»CRN800 EQU *«, t00=0x006d, t01=0x0094}
0x0aacc…0aafa Head {h00=0x002a, h01=0x0050, text=» CF A14,STOINF SAVE SCREEN INFORMATION«, t00=0x006d, t01=0x00a8}
0x0aafa…0ab18 Head {h00=0x001a, h01=0x0050, text=» LDK A1,2 REQ. LENGTH «, t00=0x006d, t01=0x00d6}
0x0ab18…0ab3a Head {h00=0x001e, h01=0x0050, text=» CF A14,DISCHA SET CURSOR «, t00=0x006d, t01=0x00f4}
0x0ab3a…0ab4e Head {h00=0x0010, h01=0x0050, text=»CRN900 EQU *«, t00=0x006d, t01=0x0116}
0x0ab4e…0ab5e Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x006d, t01=0x012a}
0x0ab5e…0ab6c Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x006d, t01=0x013a}
0x0ab6c…0abba Head {h00=0x004a, h01=0x0050, text=»********************************************************************* «, t00=0x006d, t01=0x0148}
0x0abba…0ac08 Head {h00=0x004a, h01=0x0050, text=»* * «, t00=0x006e, t01=0x0008}
0x0ac08…0ac56 Head {h00=0x004a, h01=0x0050, text=»* RDHOME TAB. UNPROTECTED FIRST ON SCREEN * «, t00=0x006e, t01=0x0056}
0x0ac56…0aca4 Head {h00=0x004a, h01=0x0050, text=»* * «, t00=0x006e, t01=0x00a4}
0x0aca4…0acf2 Head {h00=0x004a, h01=0x0050, text=»********************************************************************* «, t00=0x006e, t01=0x00f2}
0x0acf2…0ad06 Head {h00=0x0010, h01=0x0050, text=»* REGISTERS«, t00=0x006e, t01=0x0140}
0x0ad06…0ad10 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006e, t01=0x0154}
0x0ad10…0ad2e Head {h00=0x001a, h01=0x0050, text=»* A4= REL. CURSOR POS.«, t00=0x006e, t01=0x015e}
0x0ad2e…0ad50 Head {h00=0x001e, h01=0x0050, text=»* A5= REL. ATTRIBUTE POS. «, t00=0x006e, t01=0x017c}
0x0ad50…0ad6e Head {h00=0x001a, h01=0x0050, text=»* A6= ATTRIBUTE CHAR. «, t00=0x006f, t01=0x000e}
0x0ad6e…0ad86 Head {h00=0x0014, h01=0x0050, text=»* A11= RESERVED «, t00=0x006f, t01=0x002c}
0x0ad86…0ad9e Head {h00=0x0014, h01=0x0050, text=»* A13= RESERVED «, t00=0x006f, t01=0x0044}
0x0ad9e…0ada8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006f, t01=0x005c}
0x0ada8…0adf6 Head {h00=0x004a, h01=0x0050, text=»********************************************************************* «, t00=0x006f, t01=0x0066}
0x0adf6…0ae0a Head {h00=0x0010, h01=0x0050, text=»RDHOME EQU *«, t00=0x006f, t01=0x00b4}
0x0ae0a…0ae38 Head {h00=0x002a, h01=0x0050, text=» CF A14,SCRINF GET SCREEN INFORMATION «, t00=0x006f, t01=0x00c8}
0x0ae38…0ae5e Head {h00=0x0022, h01=0x0050, text=» LDK A4,0 FIRST POS. ON SCREEN«, t00=0x006f, t01=0x00f6}
0x0ae5e…0ae74 Head {h00=0x0012, h01=0x0050, text=» CF A14,STOINF«, t00=0x006f, t01=0x011c}
0x0ae74…0aea0 Head {h00=0x0028, h01=0x0050, text=» CWK A5,LBVDU+1 UNFORMATTED SCREEN? «, t00=0x006f, t01=0x0132}
0x0aea0…0aeba Head {h00=0x0016, h01=0x0050, text=» RF(E) RDH800 YES «, t00=0x006f, t01=0x015e}
0x0aeba…0aecc Head {h00=0x000e, h01=0x0050, text=» LDR A1,A4«, t00=0x006f, t01=0x0178}
0x0aecc…0aefa Head {h00=0x002a, h01=0x0050, text=» CF A14,GETVDU GET CHAR. IN VDU BUFFER«, t00=0x006f, t01=0x018a}
0x0aefa…0af1a Head {h00=0x001c, h01=0x0050, text=» CCK A7,/8000 ATTRIBUTE?«, t00=0x0070, t01=0x0028}
0x0af1a…0af32 Head {h00=0x0014, h01=0x0050, text=» RF(L) RDH100 NO«, t00=0x0070, t01=0x0048}
0x0af32…0af5c Head {h00=0x0026, h01=0x0050, text=» LDKL A4,LBVDU-1 LAST SCREEN POS. «, t00=0x0070, t01=0x0060}
0x0af5c…0af8a Head {h00=0x002a, h01=0x0050, text=» CF A14,STOINF SAVE SCREEN INFORMATION«, t00=0x0070, t01=0x008a}
0x0af8a…0af9c Head {h00=0x000e, h01=0x0050, text=» RF RDH300«, t00=0x0070, t01=0x00b8}
0x0af9c…0afb0 Head {h00=0x0010, h01=0x0050, text=»RDH100 EQU *«, t00=0x0070, t01=0x00ca}
0x0afb0…0afc2 Head {h00=0x000e, h01=0x0050, text=» LDR A1,A4«, t00=0x0070, t01=0x00de}
0x0afc2…0aff0 Head {h00=0x002a, h01=0x0050, text=» CF A14,ATMASB GET ATTRIBUTE BACKWARD «, t00=0x0070, t01=0x00f0}
0x0aff0…0b002 Head {h00=0x000e, h01=0x0050, text=» LDR A7,A6«, t00=0x0070, t01=0x011e}
0x0b002…0b020 Head {h00=0x001a, h01=0x0050, text=» ANK A7,/20 PROTECTED?«, t00=0x0070, t01=0x0130}
0x0b020…0b038 Head {h00=0x0014, h01=0x0050, text=» RF(Z) RDH800 NO«, t00=0x0070, t01=0x014e}
0x0b038…0b04c Head {h00=0x0010, h01=0x0050, text=»RDH300 EQU *«, t00=0x0070, t01=0x0166}
0x0b04c…0b078 Head {h00=0x0028, h01=0x0050, text=» CF A14,TAB TAB. UNPROTECTED FORWARD«, t00=0x0070, t01=0x017a}
0x0b078…0b08a Head {h00=0x000e, h01=0x0050, text=» RF RDH900«, t00=0x0071, t01=0x0016}
0x0b08a…0b09e Head {h00=0x0010, h01=0x0050, text=»RDH800 EQU *«, t00=0x0071, t01=0x0028}
0x0b09e…0b0cc Head {h00=0x002a, h01=0x0050, text=» CF A14,STOINF SAVE SCREEN INFORMATION«, t00=0x0071, t01=0x003c}
0x0b0cc…0b0ea Head {h00=0x001a, h01=0x0050, text=» LDK A1,2 REQ. LENGTH «, t00=0x0071, t01=0x006a}
0x0b0ea…0b10c Head {h00=0x001e, h01=0x0050, text=» CF A14,DISCHA SET CURSOR «, t00=0x0071, t01=0x0088}
0x0b10c…0b120 Head {h00=0x0010, h01=0x0050, text=»RDH900 EQU *«, t00=0x0071, t01=0x00aa}
0x0b120…0b130 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0071, t01=0x00be}
0x0b130…0b13e Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0071, t01=0x00ce}
0x0b13e…0b184 Head {h00=0x0042, h01=0x0050, text=»************************************************************* «, t00=0x0071, t01=0x00dc}
0x0b184…0b1ca Head {h00=0x0042, h01=0x0050, text=»* * «, t00=0x0071, t01=0x0122}
0x0b1ca…0b210 Head {h00=0x0042, h01=0x0050, text=»* EREOF ERASE TO END OF FIELD * «, t00=0x0071, t01=0x0168}
0x0b210…0b254 Head {h00=0x0040, h01=0x0050, text=»* *«, t00=0x0072, t01=0x001e}
0x0b254…0b29a Head {h00=0x0042, h01=0x0050, text=»************************************************************* «, t00=0x0072, t01=0x0062}
0x0b29a…0b2ae Head {h00=0x0010, h01=0x0050, text=»* REGISTERS«, t00=0x0072, t01=0x00a8}
0x0b2ae…0b2b8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0072, t01=0x00bc}
0x0b2b8…0b2d6 Head {h00=0x001a, h01=0x0050, text=»* A4= REL. CURSOR POS.«, t00=0x0072, t01=0x00c6}
0x0b2d6…0b2f8 Head {h00=0x001e, h01=0x0050, text=»* A5= REL. ATTRIBUTE POS. «, t00=0x0072, t01=0x00e4}
0x0b2f8…0b316 Head {h00=0x001a, h01=0x0050, text=»* A6= ATTRIBUTE CHAR. «, t00=0x0072, t01=0x0106}
0x0b316…0b32e Head {h00=0x0014, h01=0x0050, text=»* A11= RESERVED «, t00=0x0072, t01=0x0124}
0x0b32e…0b346 Head {h00=0x0014, h01=0x0050, text=»* A13= RESERVED «, t00=0x0072, t01=0x013c}
0x0b346…0b350 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0072, t01=0x0154}
0x0b350…0b39c Head {h00=0x0048, h01=0x0050, text=»******************************************************************* «, t00=0x0072, t01=0x015e}
0x0b39c…0b3b0 Head {h00=0x0010, h01=0x0050, text=»EREOF EQU * «, t00=0x0073, t01=0x001a}
0x0b3b0…0b3de Head {h00=0x002a, h01=0x0050, text=» CF A14,SCRINF GET SCREEN INFORMATION «, t00=0x0073, t01=0x002e}
0x0b3de…0b40a Head {h00=0x0028, h01=0x0050, text=» CWK A5,LBVDU+1 UNFORMATTED SCREEN? «, t00=0x0073, t01=0x005c}
0x0b40a…0b424 Head {h00=0x0016, h01=0x0050, text=» RF(E) ERE700 YES «, t00=0x0073, t01=0x0088}
0x0b424…0b436 Head {h00=0x000e, h01=0x0050, text=» LDR A7,A6«, t00=0x0073, t01=0x00a2}
0x0b436…0b45a Head {h00=0x0020, h01=0x0050, text=» ANK A7,/20 PROTECTED FIELD?«, t00=0x0073, t01=0x00b4}
0x0b45a…0b474 Head {h00=0x0016, h01=0x0050, text=» RF(NZ) ERE600 YES«, t00=0x0073, t01=0x00d8}
0x0b474…0b49e Head {h00=0x0026, h01=0x0050, text=» CWR A5,A4 STANDING ON ATTRIBUTE? «, t00=0x0073, t01=0x00f2}
0x0b49e…0b4b8 Head {h00=0x0016, h01=0x0050, text=» RF(E) ERE600 YES «, t00=0x0073, t01=0x011c}
0x0b4b8…0b4ca Head {h00=0x000e, h01=0x0050, text=» LDR A1,A4«, t00=0x0073, t01=0x0136}
0x0b4ca…0b4e6 Head {h00=0x0018, h01=0x0050, text=» LDR A8,A6 SAVE OLD «, t00=0x0073, t01=0x0148}
0x0b4e6…0b502 Head {h00=0x0018, h01=0x0050, text=» LDR A9,A5 SAVE OLD «, t00=0x0073, t01=0x0164}
0x0b502…0b532 Head {h00=0x002c, h01=0x0050, text=» CF A14,ATMASF SEARCH ATTRIBUTE FORWARD «, t00=0x0073, t01=0x0180}
0x0b532…0b544 Head {h00=0x000e, h01=0x0050, text=» LDR A3,A5«, t00=0x0074, t01=0x0020}
0x0b544…0b556 Head {h00=0x000e, h01=0x0050, text=» LDR A6,A8«, t00=0x0074, t01=0x0032}
0x0b556…0b568 Head {h00=0x000e, h01=0x0050, text=» LDR A5,A9«, t00=0x0074, t01=0x0044}
0x0b568…0b592 Head {h00=0x0026, h01=0x0050, text=» ORK A6,1 SET MDT-BIT IN ATTRIBUTE«, t00=0x0074, t01=0x0056}
0x0b592…0b5a4 Head {h00=0x000e, h01=0x0050, text=» LDR A7,A6«, t00=0x0074, t01=0x0080}
0x0b5a4…0b5b6 Head {h00=0x000e, h01=0x0050, text=» LDR A1,A5«, t00=0x0074, t01=0x0092}
0x0b5b6…0b5ee Head {h00=0x0034, h01=0x0050, text=» CF A14,STOVDU STORE NEW ATTRIBUTE IN VDU BUFFER«, t00=0x0074, t01=0x00a4}
0x0b5ee…0b620 Head {h00=0x002e, h01=0x0050, text=» CF A14,STOINF SAVE NEW SCREEN INFORMATION«, t00=0x0074, t01=0x00dc}
0x0b620…0b640 Head {h00=0x001c, h01=0x0050, text=» LDR A1,A3 STOP ADDRESS «, t00=0x0074, t01=0x010e}
0x0b640…0b652 Head {h00=0x000e, h01=0x0050, text=» RF ERE800«, t00=0x0074, t01=0x012e}
0x0b652…0b666 Head {h00=0x0010, h01=0x0050, text=»ERE600 EQU *«, t00=0x0074, t01=0x0140}
0x0b666…0b68a Head {h00=0x0020, h01=0x0050, text=» CF A14,ERROR INDICATE ERROR«, t00=0x0074, t01=0x0154}
0x0b68a…0b69c Head {h00=0x000e, h01=0x0050, text=» RF ERE900«, t00=0x0074, t01=0x0178}
0x0b69c…0b6b0 Head {h00=0x0010, h01=0x0050, text=»ERE700 EQU *«, t00=0x0074, t01=0x018a}
0x0b6b0…0b6c4 Head {h00=0x0010, h01=0x0050, text=» LDR A10,A4 «, t00=0x0075, t01=0x000e}
0x0b6c4…0b6ee Head {h00=0x0026, h01=0x0050, text=» CF A14,ERASE ERASE ENTIRE SCREEN «, t00=0x0075, t01=0x0022}
0x0b6ee…0b702 Head {h00=0x0010, h01=0x0050, text=» LDR A4,A10 «, t00=0x0075, t01=0x004c}
0x0b702…0b718 Head {h00=0x0012, h01=0x0050, text=» CF A14,STOINF«, t00=0x0075, t01=0x0060}
0x0b718…0b72a Head {h00=0x000e, h01=0x0050, text=» LDK A1,2 «, t00=0x0075, t01=0x0076}
0x0b72a…0b74c Head {h00=0x001e, h01=0x0050, text=» CF A14,DISCHA SET CURSOR «, t00=0x0075, t01=0x0088}
0x0b74c…0b75e Head {h00=0x000e, h01=0x0050, text=» RF ERE900«, t00=0x0075, t01=0x00aa}
0x0b75e…0b772 Head {h00=0x0010, h01=0x0050, text=»ERE800 EQU *«, t00=0x0075, t01=0x00bc}
0x0b772…0b786 Head {h00=0x0010, h01=0x0050, text=» SUR A10,A10«, t00=0x0075, t01=0x00d0}
0x0b786…0b7ba Head {h00=0x0030, h01=0x0050, text=» CF A14,ERASUA ERASE UNPROTECTED TO ADDRESS «, t00=0x0075, t01=0x00e4}
0x0b7ba…0b7e8 Head {h00=0x002a, h01=0x0050, text=» CF A14,DISMOD DISPLAY MODIFIED FIELD «, t00=0x0075, t01=0x0118}
0x0b7e8…0b7fc Head {h00=0x0010, h01=0x0050, text=»ERE900 EQU *«, t00=0x0075, t01=0x0146}
0x0b7fc…0b80c Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0075, t01=0x015a}
0x0b80c…0b81a Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0075, t01=0x016a}
0x0b81a…0b866 Head {h00=0x0048, h01=0x0050, text=»******************************************************************* «, t00=0x0075, t01=0x0178}
0x0b866…0b8b2 Head {h00=0x0048, h01=0x0050, text=»* * «, t00=0x0076, t01=0x0034}
0x0b8b2…0b8fe Head {h00=0x0048, h01=0x0050, text=»* ERINPT ERASE UNPROTECTED ENTIRE SCREEN * «, t00=0x0076, t01=0x0080}
0x0b8fe…0b94a Head {h00=0x0048, h01=0x0050, text=»* * «, t00=0x0076, t01=0x00cc}
0x0b94a…0b996 Head {h00=0x0048, h01=0x0050, text=»******************************************************************* «, t00=0x0076, t01=0x0118}
0x0b996…0b9aa Head {h00=0x0010, h01=0x0050, text=»* REGISTERS«, t00=0x0076, t01=0x0164}
0x0b9aa…0b9b4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0076, t01=0x0178}
0x0b9b4…0b9d2 Head {h00=0x001a, h01=0x0050, text=»* A4= REL. CURSOR POS.«, t00=0x0076, t01=0x0182}
0x0b9d2…0b9f4 Head {h00=0x001e, h01=0x0050, text=»* A5= REL. ATTRIBUTE POS. «, t00=0x0077, t01=0x0010}
0x0b9f4…0ba12 Head {h00=0x001a, h01=0x0050, text=»* A6= ATTRIBUTE CHAR. «, t00=0x0077, t01=0x0032}
0x0ba12…0ba2a Head {h00=0x0014, h01=0x0050, text=»* A11= RESERVED «, t00=0x0077, t01=0x0050}
0x0ba2a…0ba42 Head {h00=0x0014, h01=0x0050, text=»* A13= RESERVED «, t00=0x0077, t01=0x0068}
0x0ba42…0ba4c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0077, t01=0x0080}
0x0ba4c…0ba98 Head {h00=0x0048, h01=0x0050, text=»******************************************************************* «, t00=0x0077, t01=0x008a}
0x0ba98…0baac Head {h00=0x0010, h01=0x0050, text=»ERINPT EQU *«, t00=0x0077, t01=0x00d6}
0x0baac…0bada Head {h00=0x002a, h01=0x0050, text=» CF A14,SCRINF GET SCREEN INFORMATION «, t00=0x0077, t01=0x00ea}
0x0bada…0bb06 Head {h00=0x0028, h01=0x0050, text=» CWK A5,LBVDU+1 UNFORMATTED SCREEN? «, t00=0x0077, t01=0x0118}
0x0bb06…0bb20 Head {h00=0x0016, h01=0x0050, text=» RF(NE) ERI100 NO «, t00=0x0077, t01=0x0144}
0x0bb20…0bb4a Head {h00=0x0026, h01=0x0050, text=» CF A14,ERASE ERASE ENTIRE SCREEN «, t00=0x0077, t01=0x015e}
0x0bb4a…0bb5c Head {h00=0x000e, h01=0x0050, text=» RF ERI900«, t00=0x0077, t01=0x0188}
0x0bb5c…0bb70 Head {h00=0x0010, h01=0x0050, text=»ERI100 EQU *«, t00=0x0078, t01=0x000a}
0x0bb70…0bb9c Head {h00=0x0028, h01=0x0050, text=» CF A14,ERASUP ERASE ALL UNPROTECTED«, t00=0x0078, t01=0x001e}
0x0bb9c…0bbc8 Head {h00=0x0028, h01=0x0050, text=» CF A14,DISMOD DISPLAY ERASED FIELDS«, t00=0x0078, t01=0x004a}
0x0bbc8…0bc00 Head {h00=0x0034, h01=0x0050, text=» CF A14,RDHOME TAB. UNPROTECTED FIRST ON SCREEN «, t00=0x0078, t01=0x0076}
0x0bc00…0bc14 Head {h00=0x0010, h01=0x0050, text=»ERI900 EQU *«, t00=0x0078, t01=0x00ae}
0x0bc14…0bc24 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0078, t01=0x00c2}
0x0bc24…0bc32 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0078, t01=0x00d2}
0x0bc32…0bc46 Head {h00=0x0010, h01=0x0050, text=» IFT IN:DL=1«, t00=0x0078, t01=0x00e0}
0x0bc46…0bc86 Head {h00=0x003c, h01=0x0050, text=»********************************************************«, t00=0x0078, t01=0x00f4}
0x0bc86…0bcc6 Head {h00=0x003c, h01=0x0050, text=»* *«, t00=0x0078, t01=0x0134}
0x0bcc6…0bd06 Head {h00=0x003c, h01=0x0050, text=»* INSERT INSERT KEY HANDLING *«, t00=0x0078, t01=0x0174}
0x0bd06…0bd46 Head {h00=0x003c, h01=0x0050, text=»* *«, t00=0x0079, t01=0x0024}
0x0bd46…0bd86 Head {h00=0x003c, h01=0x0050, text=»********************************************************«, t00=0x0079, t01=0x0064}
0x0bd86…0bd9a Head {h00=0x0010, h01=0x0050, text=»* REGISTERS«, t00=0x0079, t01=0x00a4}
0x0bd9a…0bda4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0079, t01=0x00b8}
0x0bda4…0bdc4 Head {h00=0x001c, h01=0x0050, text=»* A11= CREDIT WORK AREA «, t00=0x0079, t01=0x00c2}
0x0bdc4…0bddc Head {h00=0x0014, h01=0x0050, text=»* A13= RESERVED «, t00=0x0079, t01=0x00e2}
0x0bddc…0bde6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0079, t01=0x00fa}
0x0bde6…0be22 Head {h00=0x0038, h01=0x0050, text=»*************************************************** «, t00=0x0079, t01=0x0104}
0x0be22…0be36 Head {h00=0x0010, h01=0x0050, text=»INSERT EQU *«, t00=0x0079, t01=0x0140}
0x0be36…0be5a Head {h00=0x0020, h01=0x0050, text=» IM MODE,A11 SET INSERT MODE«, t00=0x0079, t01=0x0154}
0x0be5a…0be6a Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0079, t01=0x0178}
0x0be6a…0be78 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0079, t01=0x0188}
0x0be78…0beb6 Head {h00=0x003a, h01=0x0050, text=»******************************************************«, t00=0x007a, t01=0x0008}
0x0beb6…0bef4 Head {h00=0x003a, h01=0x0050, text=»* *«, t00=0x007a, t01=0x0046}
0x0bef4…0bf32 Head {h00=0x003a, h01=0x0050, text=»* DELETE DELETE CHAR. HANDLING *«, t00=0x007a, t01=0x0084}
0x0bf32…0bf70 Head {h00=0x003a, h01=0x0050, text=»* *«, t00=0x007a, t01=0x00c2}
0x0bf70…0bfb0 Head {h00=0x003c, h01=0x0050, text=»******************************************************* «, t00=0x007a, t01=0x0100}
0x0bfb0…0bfc4 Head {h00=0x0010, h01=0x0050, text=»* REGISTERS«, t00=0x007a, t01=0x0140}
0x0bfc4…0bfce Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x007a, t01=0x0154}
0x0bfce…0bfec Head {h00=0x001a, h01=0x0050, text=»* A4= REL. CURSOR POS.«, t00=0x007a, t01=0x015e}
0x0bfec…0c00e Head {h00=0x001e, h01=0x0050, text=»* A5= REL. ATTRIBUTE POS. «, t00=0x007a, t01=0x017c}
0x0c00e…0c02c Head {h00=0x001a, h01=0x0050, text=»* A6= ATTRIBUTE CHAR. «, t00=0x007b, t01=0x000e}
0x0c02c…0c04c Head {h00=0x001c, h01=0x0050, text=»* A11= CREDIT WORK AREA «, t00=0x007b, t01=0x002c}
0x0c04c…0c064 Head {h00=0x0014, h01=0x0050, text=»* A13= RESERVED «, t00=0x007b, t01=0x004c}
0x0c064…0c06e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x007b, t01=0x0064}
0x0c06e…0c0ae Head {h00=0x003c, h01=0x0050, text=»******************************************************* «, t00=0x007b, t01=0x006e}
0x0c0ae…0c0c2 Head {h00=0x0010, h01=0x0050, text=»DELETE EQU *«, t00=0x007b, t01=0x00ae}
0x0c0c2…0c0f0 Head {h00=0x002a, h01=0x0050, text=» CF A14,SCRINF GET SCREEN INFORMATION «, t00=0x007b, t01=0x00c2}
0x0c0f0…0c104 Head {h00=0x0010, h01=0x0050, text=» LDKL A3,-1 «, t00=0x007b, t01=0x00f0}
0x0c104…0c118 Head {h00=0x0010, h01=0x0050, text=»DEL025 EQU *«, t00=0x007b, t01=0x0104}
0x0c118…0c12e Head {h00=0x0012, h01=0x0050, text=» ADK A3,LLINE «, t00=0x007b, t01=0x0118}
0x0c12e…0c15c Head {h00=0x002a, h01=0x0050, text=» CWR A3,A4 LAST POS. ON CURRENT LINE? «, t00=0x007b, t01=0x012e}
0x0c15c…0c174 Head {h00=0x0014, h01=0x0050, text=» RB(L) DEL025 NO«, t00=0x007b, t01=0x015c}
0x0c174…0c1a0 Head {h00=0x0028, h01=0x0050, text=» CWK A5,LBVDU+1 UNFORMATTED SCREEN? «, t00=0x007b, t01=0x0174}
0x0c1a0…0c1ba Head {h00=0x0016, h01=0x0050, text=» RF(E) DEL200 YES «, t00=0x007c, t01=0x0010}
0x0c1ba…0c1e4 Head {h00=0x0026, h01=0x0050, text=» CWR A4,A5 STANDING ON ATTRIBUTE? «, t00=0x007c, t01=0x002a}
0x0c1e4…0c1fe Head {h00=0x0016, h01=0x0050, text=» RF(E) DEL700 YES «, t00=0x007c, t01=0x0054}
0x0c1fe…0c210 Head {h00=0x000e, h01=0x0050, text=» LDR A7,A6«, t00=0x007c, t01=0x006e}
0x0c210…0c22e Head {h00=0x001a, h01=0x0050, text=» ANK A7,/20 PROTECTED?«, t00=0x007c, t01=0x0080}
0x0c22e…0c248 Head {h00=0x0016, h01=0x0050, text=» RF(NZ) DEL700 YES«, t00=0x007c, t01=0x009e}
0x0c248…0c266 Head {h00=0x001a, h01=0x0050, text=» ORK A6,1 SET MDT-BIT «, t00=0x007c, t01=0x00b8}
0x0c266…0c278 Head {h00=0x000e, h01=0x0050, text=» LDR A7,A6«, t00=0x007c, t01=0x00d6}
0x0c278…0c28a Head {h00=0x000e, h01=0x0050, text=» LDR A1,A5«, t00=0x007c, t01=0x00e8}
0x0c28a…0c2b4 Head {h00=0x0026, h01=0x0050, text=» CF A14,STOVDU SAVE NEW ATTRIBUTE «, t00=0x007c, t01=0x00fa}
0x0c2b4…0c2d0 Head {h00=0x0018, h01=0x0050, text=» LDR A8,A6 SAVE OLD «, t00=0x007c, t01=0x0124}
0x0c2d0…0c2ec Head {h00=0x0018, h01=0x0050, text=» LDR A9,A5 SAVE OLD «, t00=0x007c, t01=0x0140}
0x0c2ec…0c31c Head {h00=0x002c, h01=0x0050, text=» CF A14,ATMASF SEARCH ATTRIBUTE FORWARD «, t00=0x007c, t01=0x015c}
0x0c31c…0c32e Head {h00=0x000e, h01=0x0050, text=» LDR A1,A5«, t00=0x007c, t01=0x018c}
0x0c32e…0c340 Head {h00=0x000e, h01=0x0050, text=» LDR A6,A8«, t00=0x007d, t01=0x000e}
0x0c340…0c352 Head {h00=0x000e, h01=0x0050, text=» LDR A5,A9«, t00=0x007d, t01=0x0020}
0x0c352…0c380 Head {h00=0x002a, h01=0x0050, text=» CF A14,STOINF SAVE SCREEN INFORMATION«, t00=0x007d, t01=0x0032}
0x0c380…0c3b0 Head {h00=0x002c, h01=0x0050, text=» CWR A3,A1 ATTRIBUTE BEFOR END OF LINE? «, t00=0x007d, t01=0x0060}
0x0c3b0…0c3ca Head {h00=0x0016, h01=0x0050, text=» RF(NG) DEL200 NO «, t00=0x007d, t01=0x0090}
0x0c3ca…0c3dc Head {h00=0x000e, h01=0x0050, text=» LDR A3,A1«, t00=0x007d, t01=0x00aa}
0x0c3dc…0c3f0 Head {h00=0x0010, h01=0x0050, text=»DEL200 EQU *«, t00=0x007d, t01=0x00bc}
0x0c3f0…0c402 Head {h00=0x000e, h01=0x0050, text=» LDR A1,A4«, t00=0x007d, t01=0x00d0}
0x0c402…0c416 Head {h00=0x0010, h01=0x0050, text=»DEL300 EQU *«, t00=0x007d, t01=0x00e2}
0x0c416…0c428 Head {h00=0x000e, h01=0x0050, text=» ADK A1,1 «, t00=0x007d, t01=0x00f6}
0x0c428…0c458 Head {h00=0x002c, h01=0x0050, text=» CF A14,GETVDU GET CHAR. IN VDU BUFFER «, t00=0x007d, t01=0x0108}
0x0c458…0c46a Head {h00=0x000e, h01=0x0050, text=» SUK A1,1 «, t00=0x007d, t01=0x0138}
0x0c46a…0c49a Head {h00=0x002c, h01=0x0050, text=» CF A14,STOVDU STORE CHAR. IN VDU BUFFER«, t00=0x007d, t01=0x014a}
0x0c49a…0c4ac Head {h00=0x000e, h01=0x0050, text=» ADK A1,1 «, t00=0x007d, t01=0x017a}
0x0c4ac…0c4cc Head {h00=0x001c, h01=0x0050, text=» CWR A1,A3 ALL SHIFTED? «, t00=0x007d, t01=0x018c}
0x0c4cc…0c4e6 Head {h00=0x0016, h01=0x0050, text=» RB(NE) DEL300 NO «, t00=0x007e, t01=0x001c}
0x0c4e6…0c50a Head {h00=0x0020, h01=0x0050, text=» LDK A7,NULL GET NULL CHAR. «, t00=0x007e, t01=0x0036}
0x0c50a…0c53e Head {h00=0x0030, h01=0x0050, text=» CF A14,STOVDU STORE NULL CHAR IN VDU BUFFER«, t00=0x007e, t01=0x005a}
0x0c53e…0c554 Head {h00=0x0012, h01=0x0050, text=» CF A14,SAVE1 «, t00=0x007e, t01=0x008e}
0x0c554…0c56a Head {h00=0x0012, h01=0x0050, text=» LDK A5,LLINE «, t00=0x007e, t01=0x00a4}
0x0c56a…0c57e Head {h00=0x0010, h01=0x0050, text=» LDR A6,A11 «, t00=0x007e, t01=0x00ba}
0x0c57e…0c592 Head {h00=0x0010, h01=0x0050, text=» SUR A10,A10«, t00=0x007e, t01=0x00ce}
0x0c592…0c5b4 Head {h00=0x001e, h01=0x0050, text=» CF A14,LINE GET LINE FLAG«, t00=0x007e, t01=0x00e2}
0x0c5b4…0c5cc Head {h00=0x0014, h01=0x0050, text=» LC A1,LINFLG,A6«, t00=0x007e, t01=0x0104}
0x0c5cc…0c5de Head {h00=0x000e, h01=0x0050, text=» ORK A1,1 «, t00=0x007e, t01=0x011c}
0x0c5de…0c5f6 Head {h00=0x0014, h01=0x0050, text=» SC A1,LINFLG,A6«, t00=0x007e, t01=0x012e}
0x0c5f6…0c60c Head {h00=0x0012, h01=0x0050, text=» CF A14,REST1 «, t00=0x007e, t01=0x0146}
0x0c60c…0c638 Head {h00=0x0028, h01=0x0050, text=» CF A14,DISMOD DISPLAY MODIFIED LINE«, t00=0x007e, t01=0x015c}
0x0c638…0c64a Head {h00=0x000e, h01=0x0050, text=» RF DEL900«, t00=0x007e, t01=0x0188}
0x0c64a…0c65e Head {h00=0x0010, h01=0x0050, text=»DEL700 EQU *«, t00=0x007f, t01=0x000a}
0x0c65e…0c682 Head {h00=0x0020, h01=0x0050, text=» CF A14,ERROR INDICATE ERROR«, t00=0x007f, t01=0x001e}
0x0c682…0c696 Head {h00=0x0010, h01=0x0050, text=»DEL900 EQU *«, t00=0x007f, t01=0x0042}
0x0c696…0c6a6 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x007f, t01=0x0056}
0x0c6a6…0c6b2 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x007f, t01=0x0066}
0x0c6b2…0c6c0 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x007f, t01=0x0072}
0x0c6c0…0c700 Head {h00=0x003c, h01=0x0050, text=»********************************************************«, t00=0x007f, t01=0x0080}
0x0c700…0c740 Head {h00=0x003c, h01=0x0050, text=»* *«, t00=0x007f, t01=0x00c0}
0x0c740…0c780 Head {h00=0x003c, h01=0x0050, text=»* RESET RESET KEY HANDLING *«, t00=0x007f, t01=0x0100}
0x0c780…0c7c0 Head {h00=0x003c, h01=0x0050, text=»* *«, t00=0x007f, t01=0x0140}
0x0c7c0…0c800 Head {h00=0x003c, h01=0x0050, text=»********************************************************«, t00=0x007f, t01=0x0180}
0x0c800…0c814 Head {h00=0x0010, h01=0x0050, text=»* REGISTERS«, t00=0x0080, t01=0x0030}
0x0c814…0c81e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0080, t01=0x0044}
0x0c81e…0c83e Head {h00=0x001c, h01=0x0050, text=»* A11= CREDIT WORK AREA «, t00=0x0080, t01=0x004e}
0x0c83e…0c856 Head {h00=0x0014, h01=0x0050, text=»* A13= RESERVED «, t00=0x0080, t01=0x006e}
0x0c856…0c860 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0080, t01=0x0086}
0x0c860…0c89c Head {h00=0x0038, h01=0x0050, text=»****************************************************«, t00=0x0080, t01=0x0090}
0x0c89c…0c8b0 Head {h00=0x0010, h01=0x0050, text=»RESET EQU * «, t00=0x0080, t01=0x00cc}
0x0c8b0…0c8d6 Head {h00=0x0022, h01=0x0050, text=» CM MODE,A11 RESET INSERT MODE«, t00=0x0080, t01=0x00e0}
0x0c8d6…0c904 Head {h00=0x002a, h01=0x0050, text=» CF A14,LMP6OF TURN OFF "INSERT" LAMP «, t00=0x0080, t01=0x0106}
0x0c904…0c92c Head {h00=0x0024, h01=0x0050, text=» CM KBINH,A11 RESSTORE KEYBOARD «, t00=0x0080, t01=0x0134}
0x0c92c…0c958 Head {h00=0x0028, h01=0x0050, text=» CF A14,LMP4OF TURN OFF 'ERROR' LAMP«, t00=0x0080, t01=0x015c}
0x0c958…0c990 Head {h00=0x0034, h01=0x0050, text=» CF A14,LMP3OF TURN OFF 'KEYBOARD INHIBIT' LAMP «, t00=0x0080, t01=0x0188}
0x0c990…0c9a0 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0081, t01=0x0030}
0x0c9a0…0c9ae Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0081, t01=0x0040}
0x0c9ae…0c9f2 Head {h00=0x0040, h01=0x0050, text=»*********************************************************** «, t00=0x0081, t01=0x004e}
0x0c9f2…0ca36 Head {h00=0x0040, h01=0x0050, text=»* * «, t00=0x0081, t01=0x0092}
0x0ca36…0ca7a Head {h00=0x0040, h01=0x0050, text=»* DUP DUPLICATE KEY * «, t00=0x0081, t01=0x00d6}
0x0ca7a…0cabe Head {h00=0x0040, h01=0x0050, text=»* * «, t00=0x0081, t01=0x011a}
0x0cabe…0cb02 Head {h00=0x0040, h01=0x0050, text=»*********************************************************** «, t00=0x0081, t01=0x015e}
0x0cb02…0cb16 Head {h00=0x0010, h01=0x0050, text=»* REGISTERS«, t00=0x0082, t01=0x0012}
0x0cb16…0cb20 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0082, t01=0x0026}
0x0cb20…0cb36 Head {h00=0x0012, h01=0x0050, text=»* A2= KEY-CHAR«, t00=0x0082, t01=0x0030}
0x0cb36…0cb4e Head {h00=0x0014, h01=0x0050, text=»* A11= RESERVED «, t00=0x0082, t01=0x0046}
0x0cb4e…0cb66 Head {h00=0x0014, h01=0x0050, text=»* A13= RESERVED «, t00=0x0082, t01=0x005e}
0x0cb66…0cb70 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0082, t01=0x0076}
0x0cb70…0cbb4 Head {h00=0x0040, h01=0x0050, text=»************************************************************«, t00=0x0082, t01=0x0080}
0x0cbb4…0cbc6 Head {h00=0x000e, h01=0x0050, text=»DUP EQU * «, t00=0x0082, t01=0x00c4}
0x0cbc6…0cbea Head {h00=0x0020, h01=0x0050, text=» LDK A2,DUPCH GET DUP CHAR. «, t00=0x0082, t01=0x00d6}
0x0cbea…0cbfe Head {h00=0x0010, h01=0x0050, text=» CF A14,NUM «, t00=0x0082, t01=0x00fa}
0x0cbfe…0cc12 Head {h00=0x0010, h01=0x0050, text=» CF A14,TAB «, t00=0x0082, t01=0x010e}
0x0cc12…0cc22 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0082, t01=0x0122}
0x0cc22…0cc30 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0082, t01=0x0132}
0x0cc30…0cc74 Head {h00=0x0040, h01=0x0050, text=»*********************************************************** «, t00=0x0082, t01=0x0140}
0x0cc74…0ccb8 Head {h00=0x0040, h01=0x0050, text=»* * «, t00=0x0082, t01=0x0184}
0x0ccb8…0ccfc Head {h00=0x0040, h01=0x0050, text=»* FLDMRK FIELD MARK KEY * «, t00=0x0083, t01=0x0038}
0x0ccfc…0cd40 Head {h00=0x0040, h01=0x0050, text=»* * «, t00=0x0083, t01=0x007c}
0x0cd40…0cd84 Head {h00=0x0040, h01=0x0050, text=»*********************************************************** «, t00=0x0083, t01=0x00c0}
0x0cd84…0cd98 Head {h00=0x0010, h01=0x0050, text=»* REGISTERS«, t00=0x0083, t01=0x0104}
0x0cd98…0cda2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0083, t01=0x0118}
0x0cda2…0cdb8 Head {h00=0x0012, h01=0x0050, text=»* A2= KEY-CHAR«, t00=0x0083, t01=0x0122}
0x0cdb8…0cdd0 Head {h00=0x0014, h01=0x0050, text=»* A11= RESERVED «, t00=0x0083, t01=0x0138}
0x0cdd0…0cde8 Head {h00=0x0014, h01=0x0050, text=»* A13= RESERVED «, t00=0x0083, t01=0x0150}
0x0cde8…0cdf2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0083, t01=0x0168}
0x0cdf2…0ce36 Head {h00=0x0040, h01=0x0050, text=»*********************************************************** «, t00=0x0083, t01=0x0172}
0x0ce36…0ce4a Head {h00=0x0010, h01=0x0050, text=»FLDMRK EQU *«, t00=0x0084, t01=0x0026}
0x0ce4a…0ce74 Head {h00=0x0026, h01=0x0050, text=» LDK A2,FMCH GET FIELD MARK CHAR. «, t00=0x0084, t01=0x003a}
0x0ce74…0ce88 Head {h00=0x0010, h01=0x0050, text=» CF A14,NUM «, t00=0x0084, t01=0x0064}
0x0ce88…0ce98 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0084, t01=0x0078}
0x0ce98…0cea6 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0084, t01=0x0088}
0x0cea6…0ceee Head {h00=0x0044, h01=0x0050, text=»*************************************************************** «, t00=0x0084, t01=0x0096}
0x0ceee…0cef8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0084, t01=0x00de}
0x0cef8…0cf22 Head {h00=0x0026, h01=0x0050, text=»* Z E R O : 3 TRIPLE ZERO KEY«, t00=0x0084, t01=0x00e8}
0x0cf22…0cf4e Head {h00=0x0028, h01=0x0050, text=»* Z E R O : 2 DOUBLE ZERO KEY «, t00=0x0084, t01=0x0112}
0x0cf4e…0cf58 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0084, t01=0x013e}
0x0cf58…0cf92 Head {h00=0x0036, h01=0x0050, text=»************************************************* «, t00=0x0084, t01=0x0148}
0x0cf92…0cfa6 Head {h00=0x0010, h01=0x0050, text=»* REGISTERS«, t00=0x0084, t01=0x0182}
0x0cfa6…0cfb0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0085, t01=0x0008}
0x0cfb0…0cfc6 Head {h00=0x0012, h01=0x0050, text=»* A2= KEY-CHAR«, t00=0x0085, t01=0x0012}
0x0cfc6…0cfde Head {h00=0x0014, h01=0x0050, text=»* A11= RESERVED «, t00=0x0085, t01=0x0028}
0x0cfde…0cff6 Head {h00=0x0014, h01=0x0050, text=»* A13= RESERVED «, t00=0x0085, t01=0x0040}
0x0cff6…0d000 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0085, t01=0x0058}
0x0d000…0d042 Head {h00=0x003e, h01=0x0050, text=»********************************************************* «, t00=0x0085, t01=0x0062}
0x0d042…0d04a Head {h00=0x0004, h01=0x0050, t00=0x0085, t01=0x00a4}
0x0d04a…0d05e Head {h00=0x0010, h01=0x0050, text=»ZERO:3 EQU *«, t00=0x0085, t01=0x00ac}
0x0d05e…0d07c Head {h00=0x001a, h01=0x0050, text=» LDK A2,/30 ZERO CHAR.«, t00=0x0085, t01=0x00c0}
0x0d07c…0d0a2 Head {h00=0x0022, h01=0x0050, text=» CF A14,NUM DISPLAY CHARACTER «, t00=0x0085, t01=0x00de}
0x0d0a2…0d0b6 Head {h00=0x0010, h01=0x0050, text=»ZERO:2 EQU *«, t00=0x0085, t01=0x0104}
0x0d0b6…0d0d4 Head {h00=0x001a, h01=0x0050, text=» LDK A2,/30 ZERO CHAR.«, t00=0x0085, t01=0x0118}
0x0d0d4…0d0fa Head {h00=0x0022, h01=0x0050, text=» CF A14,NUM DISPLAY CHARACTER «, t00=0x0085, t01=0x0136}
0x0d0fa…0d10e Head {h00=0x0010, h01=0x0050, text=» LDK A2,/30 «, t00=0x0085, t01=0x015c}
0x0d10e…0d134 Head {h00=0x0022, h01=0x0050, text=» CF A14,NUM DISPLAY CHARACTER «, t00=0x0085, t01=0x0170}
0x0d134…0d14c Head {h00=0x0014, h01=0x0050, text=» RTN A14 RETURN «, t00=0x0086, t01=0x0008}
0x0d14c…0d15a Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0086, t01=0x0020}
0x0d15a…0d16e Head {h00=0x0010, h01=0x0050, text=» IFT OFLIN=1«, t00=0x0086, t01=0x002e}
0x0d16e…0d1ae Head {h00=0x003c, h01=0x0050, text=»********************************************************«, t00=0x0086, t01=0x0042}
0x0d1ae…0d1ee Head {h00=0x003c, h01=0x0050, text=»* *«, t00=0x0086, t01=0x0082}
0x0d1ee…0d22e Head {h00=0x003c, h01=0x0050, text=»* OFLINE OFFLINE KEY HANDLING *«, t00=0x0086, t01=0x00c2}
0x0d22e…0d26e Head {h00=0x003c, h01=0x0050, text=»* *«, t00=0x0086, t01=0x0102}
0x0d26e…0d2ae Head {h00=0x003c, h01=0x0050, text=»********************************************************«, t00=0x0086, t01=0x0142}
0x0d2ae…0d2c2 Head {h00=0x0010, h01=0x0050, text=»* REGISTERS«, t00=0x0086, t01=0x0182}
0x0d2c2…0d2cc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0087, t01=0x0008}
0x0d2cc…0d2ec Head {h00=0x001c, h01=0x0050, text=»* A11= CREDIT WORK AREA «, t00=0x0087, t01=0x0012}
0x0d2ec…0d304 Head {h00=0x0014, h01=0x0050, text=»* A13= RESERVED «, t00=0x0087, t01=0x0032}
0x0d304…0d30e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0087, t01=0x004a}
0x0d30e…0d34e Head {h00=0x003c, h01=0x0050, text=»******************************************************* «, t00=0x0087, t01=0x0054}
0x0d34e…0d362 Head {h00=0x0010, h01=0x0050, text=»OFLINE EQU *«, t00=0x0087, t01=0x0094}
0x0d362…0d378 Head {h00=0x0012, h01=0x0050, text=» CF A14,CLEAR «, t00=0x0087, t01=0x00a8}
0x0d378…0d38e Head {h00=0x0012, h01=0x0050, text=» CF A14,RESET «, t00=0x0087, t01=0x00be}
0x0d38e…0d3bc Head {h00=0x002a, h01=0x0050, text=» CF A14,DCOFLN INDICATE OFFLINE TO DC «, t00=0x0087, t01=0x00d4}
0x0d3bc…0d3e8 Head {h00=0x0028, h01=0x0050, text=» CF A14,LMP6ON TURN ON OFFLINE LAMP «, t00=0x0087, t01=0x0102}
0x0d3e8…0d410 Head {h00=0x0024, h01=0x0050, text=» IM OFFFLG,A11 SET OFFLINE FLAG «, t00=0x0087, t01=0x012e}
0x0d410…0d438 Head {h00=0x0024, h01=0x0050, text=» ADKL A14,4 SKIP ONE STACK LEVEL«, t00=0x0087, t01=0x0156}
0x0d438…0d466 Head {h00=0x002a, h01=0x0050, text=» LD A13,2,A14 RELOAD REGISTERS A12-A13«, t00=0x0087, t01=0x017e}
0x0d466…0d47c Head {h00=0x0012, h01=0x0050, text=» LD A12,4,A14 «, t00=0x0088, t01=0x001c}
0x0d47c…0d4a4 Head {h00=0x0024, h01=0x0050, text=» ADKL A14,4 UPDATE STACK POINTER«, t00=0x0088, t01=0x0032}
0x0d4a4…0d4d2 Head {h00=0x002a, h01=0x0050, text=» ABL I:RT1 RETURN TO "OFFLINE" PROGRAM«, t00=0x0088, t01=0x005a}
0x0d4d2…0d4de Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0088, t01=0x0088}
0x0d4de…0d4ec Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0088, t01=0x0094}
0x0d4ec…0d52e Head {h00=0x003e, h01=0x0050, text=»********************************************************* «, t00=0x0088, t01=0x00a2}
0x0d52e…0d570 Head {h00=0x003e, h01=0x0050, text=»* * «, t00=0x0088, t01=0x00e4}
0x0d570…0d5b2 Head {h00=0x003e, h01=0x0050, text=»* MFCHGE MAIN FRAME CHANGE * «, t00=0x0088, t01=0x0126}
0x0d5b2…0d5f4 Head {h00=0x003e, h01=0x0050, text=»* * «, t00=0x0088, t01=0x0168}
0x0d5f4…0d636 Head {h00=0x003e, h01=0x0050, text=»********************************************************* «, t00=0x0089, t01=0x001a}
0x0d636…0d64a Head {h00=0x0010, h01=0x0050, text=»* REGISTERS«, t00=0x0089, t01=0x005c}
0x0d64a…0d654 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0089, t01=0x0070}
0x0d654…0d674 Head {h00=0x001c, h01=0x0050, text=»* A11= CREDIT WORK AREA «, t00=0x0089, t01=0x007a}
0x0d674…0d68c Head {h00=0x0014, h01=0x0050, text=»* A13= RESERVED «, t00=0x0089, t01=0x009a}
0x0d68c…0d696 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0089, t01=0x00b2}
0x0d696…0d6d6 Head {h00=0x003c, h01=0x0050, text=»******************************************************* «, t00=0x0089, t01=0x00bc}
0x0d6d6…0d6ec Head {h00=0x0012, h01=0x0050, text=» IFT NBRLIN=2 «, t00=0x0089, t01=0x00fc}
0x0d6ec…0d700 Head {h00=0x0010, h01=0x0050, text=»MFCHGE EQU *«, t00=0x0089, t01=0x0112}
0x0d700…0d716 Head {h00=0x0012, h01=0x0050, text=» CF A14,CLEAR «, t00=0x0089, t01=0x0126}
0x0d716…0d72c Head {h00=0x0012, h01=0x0050, text=» CF A14,RESET «, t00=0x0089, t01=0x013c}
0x0d72c…0d742 Head {h00=0x0012, h01=0x0050, text=» CF A14,LMP1OF«, t00=0x0089, t01=0x0152}
0x0d742…0d758 Head {h00=0x0012, h01=0x0050, text=» CF A14,LMP2OF«, t00=0x0089, t01=0x0168}
0x0d758…0d76e Head {h00=0x0012, h01=0x0050, text=» CF A14,LMP3OF«, t00=0x0089, t01=0x017e}
0x0d76e…0d786 (138, 0, 400) Head {h00=0x0014, h01=0x0050, text=» LD A1,MAIN,A11 «, t00=0x008a, t01=0x0004}
0x0d786…0d798 Head {h00=0x000e, h01=0x0050, text=» XRK A1,1 «, t00=0x008a, t01=0x001c}
0x0d798…0d7ae Head {h00=0x0012, h01=0x0050, text=» RF(NZ) MFCH10«, t00=0x008a, t01=0x002e}
0x0d7ae…0d7c4 Head {h00=0x0012, h01=0x0050, text=» CF A14,LMP1ON«, t00=0x008a, t01=0x0044}
0x0d7c4…0d7d6 Head {h00=0x000e, h01=0x0050, text=» RF MFCH90«, t00=0x008a, t01=0x005a}
0x0d7d6…0d7ea Head {h00=0x0010, h01=0x0050, text=»MFCH10 EQU *«, t00=0x008a, t01=0x006c}
0x0d7ea…0d800 Head {h00=0x0012, h01=0x0050, text=» CF A14,LMP2ON«, t00=0x008a, t01=0x0080}
0x0d800…0d814 Head {h00=0x0010, h01=0x0050, text=»MFCH90 EQU *«, t00=0x008a, t01=0x0096}
0x0d814…0d82c Head {h00=0x0014, h01=0x0050, text=» ST A1,MAIN,A11 «, t00=0x008a, t01=0x00aa}
0x0d82c…0d854 Head {h00=0x0024, h01=0x0050, text=» CF A14,CHKSTA CHECK LINE STATUS«, t00=0x008a, t01=0x00c2}
0x0d854…0d864 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x008a, t01=0x00ea}
0x0d864…0d870 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x008a, t01=0x00fa}
0x0d870…0d87e Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x008a, t01=0x0106}
0x0d87e…0d8c2 Head {h00=0x0040, h01=0x0050, text=»*********************************************************** «, t00=0x008a, t01=0x0114}
0x0d8c2…0d906 Head {h00=0x0040, h01=0x0050, text=»* * «, t00=0x008a, t01=0x0158}
0x0d906…0d94a Head {h00=0x0040, h01=0x0050, text=»* COPY LOCAL HARDCOPY * «, t00=0x008b, t01=0x000c}
0x0d94a…0d98e Head {h00=0x0040, h01=0x0050, text=»* * «, t00=0x008b, t01=0x0050}
0x0d98e…0d9d2 Head {h00=0x0040, h01=0x0050, text=»*********************************************************** «, t00=0x008b, t01=0x0094}
0x0d9d2…0d9f0 Head {h00=0x001a, h01=0x0050, text=»* REGISTERS«, t00=0x008b, t01=0x00d8}
0x0d9f0…0d9fa Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x008b, t01=0x00f6}
0x0d9fa…0da1a Head {h00=0x001c, h01=0x0050, text=»* A11= CREDIT WORK AREA «, t00=0x008b, t01=0x0100}
0x0da1a…0da34 Head {h00=0x0016, h01=0x0050, text=»* A13= T:A ADDRESS«, t00=0x008b, t01=0x0120}
0x0da34…0da3e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x008b, t01=0x013a}
0x0da3e…0da84 Head {h00=0x0042, h01=0x0050, text=»************************************************************* «, t00=0x008b, t01=0x0144}
0x0da84…0da96 Head {h00=0x000e, h01=0x0050, text=»COPY EQU *«, t00=0x008b, t01=0x018a}
0x0da96…0dab0 Head {h00=0x0016, h01=0x0050, text=» LD A1,SNAMOD,A11 «, t00=0x008c, t01=0x000c}
0x0dab0…0dae6 Head {h00=0x0032, h01=0x0050, text=» ANKL A1,HCPMOD HARDCOPY ALREADY OUTSTANDING? «, t00=0x008c, t01=0x0026}
0x0dae6…0db0e Head {h00=0x0024, h01=0x0050, text=» RF(NZ) COPY80 YES,WAIT A WHILE «, t00=0x008c, t01=0x005c}
0x0db0e…0db26 Head {h00=0x0014, h01=0x0050, text=» LD A1,PRTID,A11«, t00=0x008c, t01=0x0084}
0x0db26…0db50 Head {h00=0x0026, h01=0x0050, text=» RF(Z) COPY80 PRINTER NOT ASSIGNED«, t00=0x008c, t01=0x009c}
0x0db50…0db86 Head {h00=0x0032, h01=0x0050, text=» ANK A1,/FF CHECK IF PRINTER OK IN TASK TABLE «, t00=0x008c, t01=0x00c6}
0x0db86…0db9a Head {h00=0x0010, h01=0x0050, text=» SUK A1,/30 «, t00=0x008c, t01=0x00fc}
0x0db9a…0dbac Head {h00=0x000e, h01=0x0050, text=» SLL A1,2 «, t00=0x008c, t01=0x0110}
0x0dbac…0dbc2 Head {h00=0x0012, h01=0x0050, text=» LDK A3,TSKTAB«, t00=0x008c, t01=0x0122}
0x0dbc2…0dbe8 Head {h00=0x0022, h01=0x0050, text=» LD A4,+6,A13 GET COMMON AREA «, t00=0x008c, t01=0x0138}
0x0dbe8…0dbfa Head {h00=0x000e, h01=0x0050, text=» ADR A3,A4«, t00=0x008c, t01=0x015e}
0x0dbfa…0dc24 Head {h00=0x0026, h01=0x0050, text=» ADR A3,A1 PRINTER ASSIGNED FOUND «, t00=0x008c, t01=0x0170}
0x0dc24…0dc38 Head {h00=0x0010, h01=0x0050, text=» LC A1,+3,A3«, t00=0x008d, t01=0x000a}
0x0dc38…0dc58 Head {h00=0x001c, h01=0x0050, text=» ANK A1,/FF PRINTER OK? «, t00=0x008d, t01=0x001e}
0x0dc58…0dc72 Head {h00=0x0016, h01=0x0050, text=» RF(Z) COPY10 YES «, t00=0x008d, t01=0x003e}
0x0dc72…0dc84 Head {h00=0x000e, h01=0x0050, text=» RF COPY90«, t00=0x008d, t01=0x0058}
0x0dc84…0dc98 Head {h00=0x0010, h01=0x0050, text=»COPY10 EQU *«, t00=0x008d, t01=0x006a}
0x0dc98…0dcc4 Head {h00=0x0028, h01=0x0050, text=» LDK A1,/38 INDICATE HARDCOPY IN WCC«, t00=0x008d, t01=0x007e}
0x0dcc4…0dcda Head {h00=0x0012, h01=0x0050, text=» ST A1,WCC,A11«, t00=0x008d, t01=0x00aa}
0x0dcda…0dcf6 Head {h00=0x0018, h01=0x0050, text=» LDKL A3,BVDU BUFFER«, t00=0x008d, t01=0x00c0}
0x0dcf6…0dd14 Head {h00=0x001a, h01=0x0050, text=» ADR A3,A11 ADDRESSS«, t00=0x008d, t01=0x00dc}
0x0dd14…0dd2e Head {h00=0x0016, h01=0x0050, text=» LD A8,ECBICW,A11 «, t00=0x008d, t01=0x00fa}
0x0dd2e…0dd52 Head {h00=0x0020, h01=0x0050, text=» CF A14,ICSET SET NO TIMEOUT«, t00=0x008d, t01=0x0114}
0x0dd52…0dd7c Head {h00=0x0026, h01=0x0050, text=» LD A1,PRTID,A11 HARDCOPY TASK ID «, t00=0x008d, t01=0x0138}
0x0dd7c…0dda4 Head {h00=0x0024, h01=0x0050, text=» LDKL A2,LBVDU+/20 BUFFER LENGTH«, t00=0x008d, t01=0x0162}
0x0dda4…0ddca Head {h00=0x0022, h01=0x0050, text=» CF A14,ICWRT WRITE INTERTASK «, t00=0x008d, t01=0x018a}
0x0ddca…0dddc Head {h00=0x000e, h01=0x0050, text=» IFT SNA=1«, t00=0x008e, t01=0x0020}
0x0dddc…0de12 Head {h00=0x0032, h01=0x0050, text=» LDKL A1,HCPMOD INDICATE HARDCOPY OUTSTANDING «, t00=0x008e, t01=0x0032}
0x0de12…0de2c Head {h00=0x0016, h01=0x0050, text=» ORS A1,SNAMOD,A11«, t00=0x008e, t01=0x0068}
0x0de2c…0de38 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x008e, t01=0x0082}
0x0de38…0de4a Head {h00=0x000e, h01=0x0050, text=» IFF SNA=1«, t00=0x008e, t01=0x008e}
0x0de4a…0de80 Head {h00=0x0032, h01=0x0050, text=» LDKL A1,HCPMOD INDICATE HARDCOPY OUTSTANDING «, t00=0x008e, t01=0x00a0}
0x0de80…0de9a Head {h00=0x0016, h01=0x0050, text=» ORS A1,BSCMOD,A11«, t00=0x008e, t01=0x00d6}
0x0de9a…0dea6 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x008e, t01=0x00f0}
0x0dea6…0deb8 Head {h00=0x000e, h01=0x0050, text=» RF COPY90«, t00=0x008e, t01=0x00fc}
0x0deb8…0decc Head {h00=0x0010, h01=0x0050, text=»COPY80 EQU *«, t00=0x008e, t01=0x010e}
0x0decc…0dee2 Head {h00=0x0012, h01=0x0050, text=» CF A14,ERROR «, t00=0x008e, t01=0x0122}
0x0dee2…0def6 Head {h00=0x0010, h01=0x0050, text=»COPY90 EQU *«, t00=0x008e, t01=0x0138}
0x0def6…0df06 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x008e, t01=0x014c}
0x0df06…0df14 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x008e, t01=0x015c}
0x0df14…0df5c Head {h00=0x0044, h01=0x0050, text=»*************************************************************** «, t00=0x008e, t01=0x016a}
0x0df5c…0dfa4 Head {h00=0x0044, h01=0x0050, text=»* * «, t00=0x008f, t01=0x0022}
0x0dfa4…0dfd8 Head {h00=0x0030, h01=0x0050, text=»* IDENT PRINTER IDENT. HANDLING«, t00=0x008f, t01=0x006a}
0x0dfd8…0e020 Head {h00=0x0044, h01=0x0050, text=»* * «, t00=0x008f, t01=0x009e}
0x0e020…0e068 Head {h00=0x0044, h01=0x0050, text=»*************************************************************** «, t00=0x008f, t01=0x00e6}
0x0e068…0e088 Head {h00=0x001c, h01=0x0050, text=»* REGISTERS «, t00=0x008f, t01=0x012e}
0x0e088…0e092 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x008f, t01=0x014e}
0x0e092…0e0b6 Head {h00=0x0020, h01=0x0050, text=»* A3= POINTER IN TASK TABLE «, t00=0x008f, t01=0x0158}
0x0e0b6…0e0d6 Head {h00=0x001c, h01=0x0050, text=»* A11= CREDIT WORK AREA «, t00=0x008f, t01=0x017c}
0x0e0d6…0e0f0 Head {h00=0x0016, h01=0x0050, text=»* A13= T:A ADDRESS«, t00=0x0090, t01=0x000c}
0x0e0f0…0e0fa Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0090, t01=0x0026}
0x0e0fa…0e140 Head {h00=0x0042, h01=0x0050, text=»************************************************************* «, t00=0x0090, t01=0x0030}
0x0e140…0e154 Head {h00=0x0010, h01=0x0050, text=»IDENT EQU * «, t00=0x0090, t01=0x0076}
0x0e154…0e180 Head {h00=0x0028, h01=0x0050, text=» LD A1,PRTID,A11 GET CURRENT TASKID «, t00=0x0090, t01=0x008a}
0x0e180…0e1a8 Head {h00=0x0024, h01=0x0050, text=» LD A4,+6,A13 COMMON BLOCK BASE «, t00=0x0090, t01=0x00b6}
0x0e1a8…0e1c8 Head {h00=0x001c, h01=0x0050, text=» ANK A1,X'FF' GET OFFSET«, t00=0x0090, t01=0x00de}
0x0e1c8…0e1dc Head {h00=0x0010, h01=0x0050, text=» SUK A1,/30 «, t00=0x0090, t01=0x00fe}
0x0e1dc…0e1ee Head {h00=0x000e, h01=0x0050, text=» SLL A1,2 «, t00=0x0090, t01=0x0112}
0x0e1ee…0e206 Head {h00=0x0014, h01=0x0050, text=» LDKL A3,TSKTAB «, t00=0x0090, t01=0x0124}
0x0e206…0e218 Head {h00=0x000e, h01=0x0050, text=» ADR A3,A4«, t00=0x0090, t01=0x013c}
0x0e218…0e22a Head {h00=0x000e, h01=0x0050, text=» ADR A3,A1«, t00=0x0090, t01=0x014e}
0x0e22a…0e23e Head {h00=0x0010, h01=0x0050, text=»IDEN30 EQU *«, t00=0x0090, t01=0x0160}
0x0e23e…0e258 Head {h00=0x0016, h01=0x0050, text=» LCR A5,A3 GET ID «, t00=0x0090, t01=0x0174}
0x0e258…0e26a Head {h00=0x000e, h01=0x0050, text=» SLL A5,8 «, t00=0x0090, t01=0x018e}
0x0e26a…0e27e Head {h00=0x0010, h01=0x0050, text=» LC A5,+1,A3«, t00=0x0091, t01=0x0010}
0x0e27e…0e29e Head {h00=0x001c, h01=0x0050, text=» LC A4,+3,A3 GET STATUS «, t00=0x0091, t01=0x0024}
0x0e29e…0e2c2 Head {h00=0x0020, h01=0x0050, text=» CF A14,SAVE1 SAVE REGISTERS«, t00=0x0091, t01=0x0044}
0x0e2c2…0e2e6 Head {h00=0x0020, h01=0x0050, text=» CF A14,DISID DISPLAY TASKID«, t00=0x0091, t01=0x0068}
0x0e2e6…0e30c Head {h00=0x0022, h01=0x0050, text=» LDKL A1,IDEN40 NEXT KEY ENTRY«, t00=0x0091, t01=0x008c}
0x0e30c…0e326 Head {h00=0x0016, h01=0x0050, text=» ST A1,RDMORE,A11 «, t00=0x0091, t01=0x00b2}
0x0e326…0e342 Head {h00=0x0018, h01=0x0050, text=» RF IDEN90 NEXT KEY «, t00=0x0091, t01=0x00cc}
0x0e342…0e356 Head {h00=0x0010, h01=0x0050, text=»IDEN40 EQU *«, t00=0x0091, t01=0x00e8}
0x0e356…0e36c Head {h00=0x0012, h01=0x0050, text=» CM RDMORE,A11«, t00=0x0091, t01=0x00fc}
0x0e36c…0e37e Head {h00=0x000e, h01=0x0050, text=» LDR A9,A2«, t00=0x0091, t01=0x0112}
0x0e37e…0e3a6 Head {h00=0x0024, h01=0x0050, text=» CF A14,REST1 RESTORE REGISTERS «, t00=0x0091, t01=0x0124}
0x0e3a6…0e3d0 Head {h00=0x0026, h01=0x0050, text=» CWK A9,ENTKEY SAVE CURRENT TASKID«, t00=0x0091, t01=0x014c}
0x0e3d0…0e3ea Head {h00=0x0016, h01=0x0050, text=» RF(E) IDEN80 YES «, t00=0x0091, t01=0x0176}
0x0e3ea…0e410 Head {h00=0x0022, h01=0x0050, text=» CWK A9,IDKEY GET NEXT TASKID?«, t00=0x0091, t01=0x0190}
0x0e410…0e43c Head {h00=0x0028, h01=0x0050, text=» RF(NE) IDEN90 NO KEEP THE FIRST ONE«, t00=0x0092, t01=0x0026}
0x0e43c…0e450 Head {h00=0x0010, h01=0x0050, text=»IDEN50 EQU *«, t00=0x0092, t01=0x0052}
0x0e450…0e47a Head {h00=0x0026, h01=0x0050, text=» ADK A3,4 SEARCH FOR NEXT PRINTER «, t00=0x0092, t01=0x0066}
0x0e47a…0e48c Head {h00=0x000e, h01=0x0050, text=» LCR A2,A3«, t00=0x0092, t01=0x0090}
0x0e48c…0e4a0 Head {h00=0x0010, h01=0x0050, text=» ANK A2,/FF «, t00=0x0092, t01=0x00a2}
0x0e4a0…0e4b2 Head {h00=0x000e, h01=0x0050, text=» LDR A1,A2«, t00=0x0092, t01=0x00b6}
0x0e4b2…0e4c8 Head {h00=0x0012, h01=0x0050, text=» RB(Z) IDEN50 «, t00=0x0092, t01=0x00c8}
0x0e4c8…0e4da Head {h00=0x000e, h01=0x0050, text=» SLL A1,8 «, t00=0x0092, t01=0x00de}
0x0e4da…0e4f0 Head {h00=0x0012, h01=0x0050, text=» RF(N) IDEN60 «, t00=0x0092, t01=0x00f0}
0x0e4f0…0e510 Head {h00=0x001c, h01=0x0050, text=» CCK A2,VDUCOD PRINTER? «, t00=0x0092, t01=0x0106}
0x0e510…0e52a Head {h00=0x0016, h01=0x0050, text=» RB(NE) IDEN30 YES«, t00=0x0092, t01=0x0126}
0x0e52a…0e53c Head {h00=0x000e, h01=0x0050, text=» RB IDEN50«, t00=0x0092, t01=0x0140}
0x0e53c…0e550 Head {h00=0x0010, h01=0x0050, text=»IDEN60 EQU *«, t00=0x0092, t01=0x0152}
0x0e550…0e568 Head {h00=0x0014, h01=0x0050, text=» LDKL A2,TSKTAB «, t00=0x0092, t01=0x0166}
0x0e568…0e57c Head {h00=0x0010, h01=0x0050, text=» LD A3,6,A13«, t00=0x0092, t01=0x017e}
0x0e57c…0e58e (147, 0, 400) Head {h00=0x000e, h01=0x0050, text=» ADR A3,A2«, t00=0x0093, t01=0x0004}
0x0e58e…0e5a0 Head {h00=0x000e, h01=0x0050, text=» SUK A3,4 «, t00=0x0093, t01=0x0016}
0x0e5a0…0e5b2 Head {h00=0x000e, h01=0x0050, text=» RB IDEN50«, t00=0x0093, t01=0x0028}
0x0e5b2…0e5c6 Head {h00=0x0010, h01=0x0050, text=»IDEN80 EQU *«, t00=0x0093, t01=0x003a}
0x0e5c6…0e5ec Head {h00=0x0022, h01=0x0050, text=» LCR A1,A3 GET PRINTER TO SAVE«, t00=0x0093, t01=0x004e}
0x0e5ec…0e5fe Head {h00=0x000e, h01=0x0050, text=» SLL A1,8 «, t00=0x0093, t01=0x0074}
0x0e5fe…0e612 Head {h00=0x0010, h01=0x0050, text=» LC A1,+1,A3«, t00=0x0093, t01=0x0086}
0x0e612…0e63e Head {h00=0x0028, h01=0x0050, text=» ST A1,PRTID,A11 NEW HARDCOPY TASKID«, t00=0x0093, t01=0x009a}
0x0e63e…0e652 Head {h00=0x0010, h01=0x0050, text=»IDEN90 EQU *«, t00=0x0093, t01=0x00c6}
0x0e652…0e662 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0093, t01=0x00da}
0x0e662…0e670 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0093, t01=0x00ea}
0x0e670…0e6b6 Head {h00=0x0042, h01=0x0050, text=»************************************************************* «, t00=0x0093, t01=0x00f8}
0x0e6b6…0e6fc Head {h00=0x0042, h01=0x0050, text=»* * «, t00=0x0093, t01=0x013e}
0x0e6fc…0e742 Head {h00=0x0042, h01=0x0050, text=»* KEYL KEYLOCK STATUS * «, t00=0x0093, t01=0x0184}
0x0e742…0e788 Head {h00=0x0042, h01=0x0050, text=»* * «, t00=0x0094, t01=0x003a}
0x0e788…0e7ce Head {h00=0x0042, h01=0x0050, text=»************************************************************* «, t00=0x0094, t01=0x0080}
0x0e7ce…0e7e2 Head {h00=0x0010, h01=0x0050, text=»* REGISTERS«, t00=0x0094, t01=0x00c6}
0x0e7e2…0e7ec Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0094, t01=0x00da}
0x0e7ec…0e808 Head {h00=0x0018, h01=0x0050, text=»* A2= KEYLOCK VALUE «, t00=0x0094, t01=0x00e4}
0x0e808…0e828 Head {h00=0x001c, h01=0x0050, text=»* A11= CREDIT WORK AREA «, t00=0x0094, t01=0x0100}
0x0e828…0e840 Head {h00=0x0014, h01=0x0050, text=»* A13= RESERVED «, t00=0x0094, t01=0x0120}
0x0e840…0e84a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0094, t01=0x0138}
0x0e84a…0e890 Head {h00=0x0042, h01=0x0050, text=»**************************************************************«, t00=0x0094, t01=0x0142}
0x0e890…0e8a6 Head {h00=0x0012, h01=0x0050, text=» IFT KEYLST=1 «, t00=0x0094, t01=0x0188}
0x0e8a6…0e8bc Head {h00=0x0012, h01=0x0050, text=» IFT KB6272=1 «, t00=0x0095, t01=0x000e}
0x0e8bc…0e8ce Head {h00=0x000e, h01=0x0050, text=»KEYL EQU *«, t00=0x0095, t01=0x0024}
0x0e8ce…0e8fc Head {h00=0x002a, h01=0x0050, text=» SUK A2,LKLKEY GET NEG KEY LOCK VALUE «, t00=0x0095, t01=0x0036}
0x0e8fc…0e91e Head {h00=0x001e, h01=0x0050, text=» LD A3,KEYS,A11 OLD STATUS«, t00=0x0095, t01=0x0064}
0x0e91e…0e932 Head {h00=0x0010, h01=0x0050, text=» LDK A4,/10 «, t00=0x0095, t01=0x0086}
0x0e932…0e946 Head {h00=0x0010, h01=0x0050, text=»KEYL10 EQU *«, t00=0x0095, t01=0x009a}
0x0e946…0e958 Head {h00=0x000e, h01=0x0050, text=» SRL A4,1 «, t00=0x0095, t01=0x00ae}
0x0e958…0e978 Head {h00=0x001c, h01=0x0050, text=» ADK A2,2 1 = OFF,0 = ON«, t00=0x0095, t01=0x00c0}
0x0e978…0e98e Head {h00=0x0012, h01=0x0050, text=» RB(N) KEYL10 «, t00=0x0095, t01=0x00e0}
0x0e98e…0e9b2 Head {h00=0x0020, h01=0x0050, text=» ANR A3,A4 CHECK OLD KEY POS«, t00=0x0095, t01=0x00f6}
0x0e9b2…0e9d0 Head {h00=0x001a, h01=0x0050, text=» RF(NZ) KEYL20 WAS ON «, t00=0x0095, t01=0x011a}
0x0e9d0…0e9ea Head {h00=0x0016, h01=0x0050, text=» LDR A2,A2 WAS OFF«, t00=0x0095, t01=0x0138}
0x0e9ea…0ea14 Head {h00=0x0026, h01=0x0050, text=» RF(NZ) KEYL99 NOW OFF, NO CHANGE «, t00=0x0095, t01=0x0152}
0x0ea14…0ea2e Head {h00=0x0016, h01=0x0050, text=» RF KEYL30 NOW ON «, t00=0x0095, t01=0x017c}
0x0ea2e…0ea4a Head {h00=0x0018, h01=0x0050, text=»KEYL20 EQU * WAS ON «, t00=0x0096, t01=0x0008}
0x0ea4a…0ea5c Head {h00=0x000e, h01=0x0050, text=» LDR A2,A2«, t00=0x0096, t01=0x0024}
0x0ea5c…0ea84 Head {h00=0x0024, h01=0x0050, text=» RF(Z) KEYL99 NOW ON, NO CHANGE «, t00=0x0096, t01=0x0036}
0x0ea84…0eaa0 Head {h00=0x0018, h01=0x0050, text=»KEYL30 EQU * CHANGE«, t00=0x0096, t01=0x005e}
0x0eaa0…0eab8 Head {h00=0x0014, h01=0x0050, text=» LD A3,KEYS,A11 «, t00=0x0096, t01=0x007a}
0x0eab8…0ead8 Head {h00=0x001c, h01=0x0050, text=» XRR A3,A4 CHANGE STATUS«, t00=0x0096, t01=0x0092}
0x0ead8…0eb00 Head {h00=0x0024, h01=0x0050, text=» ST A3,KEYS,A11 STORE NEW STATUS«, t00=0x0096, t01=0x00b2}
0x0eb00…0eb0a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0096, t01=0x00da}
0x0eb0a…0eb2a Head {h00=0x001c, h01=0x0050, text=»* KEYLOCK STATUS CHANGED«, t00=0x0096, t01=0x00e4}
0x0eb2a…0eb78 Head {h00=0x004a, h01=0x0050, text=»* A3 = NEW STATUS, RIGHTMOST BIT = RIGHTMOST LOCK, BIT ON = LOCK ON «, t00=0x0096, t01=0x0104}
0x0eb78…0eba6 Head {h00=0x002a, h01=0x0050, text=»* A4 = KEYLOCK CHANGED, LAYOUT AS A3«, t00=0x0096, t01=0x0152}
0x0eba6…0ebd2 Head {h00=0x0028, h01=0x0050, text=»* A2 = 1, IF CHANGED TO OFF ELSE 0«, t00=0x0096, t01=0x0180}
0x0ebd2…0ebdc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0097, t01=0x001c}
0x0ebdc…0ec0a Head {h00=0x002a, h01=0x0050, text=»* INSERT USER ROUTINE BELOW THIS LINE «, t00=0x0097, t01=0x0026}
0x0ec0a…0ec14 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0097, t01=0x0054}
0x0ec14…0ec28 Head {h00=0x0010, h01=0x0050, text=»KEYL99 EQU *«, t00=0x0097, t01=0x005e}
0x0ec28…0ec38 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0097, t01=0x0072}
0x0ec38…0ec44 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0097, t01=0x0082}
0x0ec44…0ec52 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0097, t01=0x008e}
0x0ec52…0ec94 Head {h00=0x003e, h01=0x0050, text=»**********************************************************«, t00=0x0097, t01=0x009c}
0x0ec94…0ec9e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0097, t01=0x00de}
0x0ec9e…0ecb8 Head {h00=0x0016, h01=0x0050, text=»* TESTM TEST MODE «, t00=0x0097, t01=0x00e8}
0x0ecb8…0ecc2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0097, t01=0x0102}
0x0ecc2…0ed04 Head {h00=0x003e, h01=0x0050, text=»**********************************************************«, t00=0x0097, t01=0x010c}
0x0ed04…0ed1e Head {h00=0x0016, h01=0x0050, text=»* REGISTERS«, t00=0x0097, t01=0x014e}
0x0ed1e…0ed28 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0097, t01=0x0168}
0x0ed28…0ed40 Head {h00=0x0014, h01=0x0050, text=»* A11= RESERVED «, t00=0x0097, t01=0x0172}
0x0ed40…0ed58 Head {h00=0x0014, h01=0x0050, text=»* A13= RESERVED «, t00=0x0097, t01=0x018a}
0x0ed58…0ed62 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0098, t01=0x0012}
0x0ed62…0eda4 Head {h00=0x003e, h01=0x0050, text=»********************************************************* «, t00=0x0098, t01=0x001c}
0x0eda4…0edb8 Head {h00=0x0010, h01=0x0050, text=» IFT TEST=1 «, t00=0x0098, t01=0x005e}
0x0edb8…0edcc Head {h00=0x0010, h01=0x0050, text=»TESTM EQU * «, t00=0x0098, t01=0x0072}
0x0edcc…0ede2 Head {h00=0x0012, h01=0x0050, text=» CF A14,ERASE «, t00=0x0098, t01=0x0086}
0x0ede2…0edf8 Head {h00=0x0012, h01=0x0050, text=» CF A14,GETBUF«, t00=0x0098, t01=0x009c}
0x0edf8…0ee0e Head {h00=0x0012, h01=0x0050, text=» CF A14,RDSTAT«, t00=0x0098, t01=0x00b2}
0x0ee0e…0ee24 Head {h00=0x0012, h01=0x0050, text=» CF A14,DISSTA«, t00=0x0098, t01=0x00c8}
0x0ee24…0ee38 Head {h00=0x0010, h01=0x0050, text=» LDR A8,A12 «, t00=0x0098, t01=0x00de}
0x0ee38…0ee4e Head {h00=0x0012, h01=0x0050, text=» CF A14,RELBUF«, t00=0x0098, t01=0x00f2}
0x0ee4e…0ee5e Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0098, t01=0x0108}
0x0ee5e…0ee6a Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0098, t01=0x0118}
0x0ee6a…0ee78 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0098, t01=0x0124}
0x0ee78…0eeba Head {h00=0x003e, h01=0x0050, text=»********************************************************* «, t00=0x0098, t01=0x0132}
0x0eeba…0eefc Head {h00=0x003e, h01=0x0050, text=»* * «, t00=0x0098, t01=0x0174}
0x0eefc…0ef3e Head {h00=0x003e, h01=0x0050, text=»* ENTER ENTER KEY HANDLING * «, t00=0x0099, t01=0x0026}
0x0ef3e…0ef80 Head {h00=0x003e, h01=0x0050, text=»* * «, t00=0x0099, t01=0x0068}
0x0ef80…0efc2 Head {h00=0x003e, h01=0x0050, text=»********************************************************* «, t00=0x0099, t01=0x00aa}
0x0efc2…0efd6 Head {h00=0x0010, h01=0x0050, text=»* REGISTERS«, t00=0x0099, t01=0x00ec}
0x0efd6…0efe0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0099, t01=0x0100}
0x0efe0…0eff6 Head {h00=0x0012, h01=0x0050, text=»* A2= AID-CODE«, t00=0x0099, t01=0x010a}
0x0eff6…0f00e Head {h00=0x0014, h01=0x0050, text=»* A11= RESERVED «, t00=0x0099, t01=0x0120}
0x0f00e…0f026 Head {h00=0x0014, h01=0x0050, text=»* A13= RESERVED «, t00=0x0099, t01=0x0138}
0x0f026…0f030 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0099, t01=0x0150}
0x0f030…0f072 Head {h00=0x003e, h01=0x0050, text=»********************************************************* «, t00=0x0099, t01=0x015a}
0x0f072…0f086 Head {h00=0x0010, h01=0x0050, text=»ENTER EQU * «, t00=0x009a, t01=0x000c}
0x0f086…0f0a2 Head {h00=0x0018, h01=0x0050, text=» LDK A2,/27 AID-CODE«, t00=0x009a, t01=0x0020}
0x0f0a2…0f0d4 Head {h00=0x002e, h01=0x0050, text=» CF A14,LMP3ON TURN ON "KEYBOARD INHIBIT" «, t00=0x009a, t01=0x003c}
0x0f0d4…0f106 Head {h00=0x002e, h01=0x0050, text=» CF A14,TRPF AID+MODIFIED FIELDS+TRANSMIT «, t00=0x009a, t01=0x006e}
0x0f106…0f116 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x009a, t01=0x00a0}
0x0f116…0f124 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x009a, t01=0x00b0}
0x0f124…0f16a Head {h00=0x0042, h01=0x0050, text=»**************************************************************«, t00=0x009a, t01=0x00be}
0x0f16a…0f1b0 Head {h00=0x0042, h01=0x0050, text=»* *«, t00=0x009a, t01=0x0104}
0x0f1b0…0f1f6 Head {h00=0x0042, h01=0x0050, text=»* CLEAR CLEAR KEY HANDLING *«, t00=0x009a, t01=0x014a}
0x0f1f6…0f23c Head {h00=0x0042, h01=0x0050, text=»* *«, t00=0x009a, t01=0x0190}
0x0f23c…0f282 Head {h00=0x0042, h01=0x0050, text=»**************************************************************«, t00=0x009b, t01=0x0046}
0x0f282…0f296 Head {h00=0x0010, h01=0x0050, text=»* REGISTERS«, t00=0x009b, t01=0x008c}
0x0f296…0f2a0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x009b, t01=0x00a0}
0x0f2a0…0f2b6 Head {h00=0x0012, h01=0x0050, text=»* A2= AID-CODE«, t00=0x009b, t01=0x00aa}
0x0f2b6…0f2ce Head {h00=0x0014, h01=0x0050, text=»* A11= RESERVED «, t00=0x009b, t01=0x00c0}
0x0f2ce…0f2e6 Head {h00=0x0014, h01=0x0050, text=»* A13= RESERVED «, t00=0x009b, t01=0x00d8}
0x0f2e6…0f2f0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x009b, t01=0x00f0}
0x0f2f0…0f336 Head {h00=0x0042, h01=0x0050, text=»**************************************************************«, t00=0x009b, t01=0x00fa}
0x0f336…0f34a Head {h00=0x0010, h01=0x0050, text=»CLEAR EQU * «, t00=0x009b, t01=0x0140}
0x0f34a…0f36e Head {h00=0x0020, h01=0x0050, text=» LDK A2,/5F POS FOR 'CLEAR' «, t00=0x009b, t01=0x0154}
0x0f36e…0f3a0 Head {h00=0x002e, h01=0x0050, text=» CF A14,LMP3ON TURN ON "KEYBOARD INHIBIT" «, t00=0x009b, t01=0x0178}
0x0f3a0…0f3cc Head {h00=0x0028, h01=0x0050, text=» CF A14,TRPA UPDATE AID AND TRANSMIT«, t00=0x009c, t01=0x001a}
0x0f3cc…0f3f6 Head {h00=0x0026, h01=0x0050, text=» CF A14,ERASE ERASE ENTIRE SCREEN «, t00=0x009c, t01=0x0046}
0x0f3f6…0f406 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x009c, t01=0x0070}
0x0f406…0f414 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x009c, t01=0x0080}
0x0f414…0f45c Head {h00=0x0044, h01=0x0050, text=»*************************************************************** «, t00=0x009c, t01=0x008e}
0x0f45c…0f4a4 Head {h00=0x0044, h01=0x0050, text=»* * «, t00=0x009c, t01=0x00d6}
0x0f4a4…0f4ec Head {h00=0x0044, h01=0x0050, text=»* SYSREQ SYSTEM REQUEST HANDLING * «, t00=0x009c, t01=0x011e}
0x0f4ec…0f534 Head {h00=0x0044, h01=0x0050, text=»* * «, t00=0x009c, t01=0x0166}
0x0f534…0f57c Head {h00=0x0044, h01=0x0050, text=»*************************************************************** «, t00=0x009d, t01=0x001e}
0x0f57c…0f590 Head {h00=0x0010, h01=0x0050, text=»* REGISTERS«, t00=0x009d, t01=0x0066}
0x0f590…0f59a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x009d, t01=0x007a}
0x0f59a…0f5ba Head {h00=0x001c, h01=0x0050, text=»* A11= CREDIT WORK AREA «, t00=0x009d, t01=0x0084}
0x0f5ba…0f5d2 Head {h00=0x0014, h01=0x0050, text=»* A13= RESERVED «, t00=0x009d, t01=0x00a4}
0x0f5d2…0f5dc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x009d, t01=0x00bc}
0x0f5dc…0f618 Head {h00=0x0038, h01=0x0050, text=»****************************************************«, t00=0x009d, t01=0x00c6}
0x0f618…0f62a Head {h00=0x000e, h01=0x0050, text=» IFT SNA=1«, t00=0x009d, t01=0x0102}
0x0f62a…0f63e Head {h00=0x0010, h01=0x0050, text=»SYSREQ EQU *«, t00=0x009d, t01=0x0114}
0x0f63e…0f660 Head {h00=0x001e, h01=0x0050, text=» CF A14,TSTSTA TEST STATUS«, t00=0x009d, t01=0x0128}
0x0f660…0f67e Head {h00=0x001a, h01=0x0050, text=» LDR A2,A1 GET STATUS «, t00=0x009d, t01=0x014a}
0x0f67e…0f69c Head {h00=0x001a, h01=0x0050, text=» ANKL A2,/101 ACTIVE? «, t00=0x009d, t01=0x0168}
0x0f69c…0f6b6 Head {h00=0x0016, h01=0x0050, text=» RF(Z) SYS100 YES «, t00=0x009d, t01=0x0186}
0x0f6b6…0f6e0 Head {h00=0x0026, h01=0x0050, text=» LDK A1,LOCMOD INDICATE LOCAL MODE«, t00=0x009e, t01=0x0010}
0x0f6e0…0f6f2 Head {h00=0x000e, h01=0x0050, text=» RF SYS500«, t00=0x009e, t01=0x003a}
0x0f6f2…0f706 Head {h00=0x0010, h01=0x0050, text=»SYS100 EQU *«, t00=0x009e, t01=0x004c}
0x0f706…0f724 Head {h00=0x001a, h01=0x0050, text=» LDR A2,A1 GET STATUS «, t00=0x009e, t01=0x0060}
0x0f724…0f746 Head {h00=0x001e, h01=0x0050, text=» ANKL A2,/C00 MY JOB MODE?«, t00=0x009e, t01=0x007e}
0x0f746…0f760 Head {h00=0x0016, h01=0x0050, text=» RF(NZ) SYS200 NO «, t00=0x009e, t01=0x00a0}
0x0f760…0f78a Head {h00=0x0026, h01=0x0050, text=» CF A14,CLEAR CLEAR SCREEN AND DC «, t00=0x009e, t01=0x00ba}
0x0f78a…0f7b6 Head {h00=0x0028, h01=0x0050, text=» CF A14,RESKB RESET KEYBOARD BUFFER «, t00=0x009e, t01=0x00e4}
0x0f7b6…0f7e0 Head {h00=0x0026, h01=0x0050, text=» LDK A1,SYSOP INDICATE SYSTEM MODE«, t00=0x009e, t01=0x0110}
0x0f7e0…0f7f2 Head {h00=0x000e, h01=0x0050, text=» RF SYS500«, t00=0x009e, t01=0x013a}
0x0f7f2…0f806 Head {h00=0x0010, h01=0x0050, text=»SYS200 EQU *«, t00=0x009e, t01=0x014c}
0x0f806…0f832 Head {h00=0x0028, h01=0x0050, text=» CWK A2,/C00 SSCP-LU AND NOT LU-LU? «, t00=0x009e, t01=0x0160}
0x0f832…0f84c Head {h00=0x0016, h01=0x0050, text=» RF(NE) SYS300 NO «, t00=0x009e, t01=0x018c}
0x0f84c…0f876 Head {h00=0x0026, h01=0x0050, text=» LDK A1,SYSOP INDICATE SYSTEM MODE«, t00=0x009f, t01=0x0016}
0x0f876…0f888 Head {h00=0x000e, h01=0x0050, text=» RF SYS500«, t00=0x009f, t01=0x0040}
0x0f888…0f89c Head {h00=0x0010, h01=0x0050, text=»SYS300 EQU *«, t00=0x009f, t01=0x0052}
0x0f89c…0f8c4 Head {h00=0x0024, h01=0x0050, text=» ANKL A2,/800 SSCP-LU AND LU-LU?«, t00=0x009f, t01=0x0066}
0x0f8c4…0f8de Head {h00=0x0016, h01=0x0050, text=» RF(NZ) SYS400 YES«, t00=0x009f, t01=0x008e}
0x0f8de…0f908 Head {h00=0x0026, h01=0x0050, text=» LDK A1,SYSOP INDICATE SYSTEM MODE«, t00=0x009f, t01=0x00a8}
0x0f908…0f91a Head {h00=0x000e, h01=0x0050, text=» RF SYS500«, t00=0x009f, t01=0x00d2}
0x0f91a…0f92e Head {h00=0x0010, h01=0x0050, text=»SYS400 EQU *«, t00=0x009f, t01=0x00e4}
0x0f92e…0f958 Head {h00=0x0026, h01=0x0050, text=» LDK A1,MYJOB INDICATE MY JOB MODE«, t00=0x009f, t01=0x00f8}
0x0f958…0f96c Head {h00=0x0010, h01=0x0050, text=»SYS500 EQU *«, t00=0x009f, t01=0x0122}
0x0f96c…0f9a0 Head {h00=0x0030, h01=0x0050, text=» ORKL A1,NEWMOD INDICATE NEW MODE ACTIVATION«, t00=0x009f, t01=0x0136}
0x0f9a0…0f9ba Head {h00=0x0016, h01=0x0050, text=» ST A1,SNAMOD,A11 «, t00=0x009f, t01=0x016a}
0x0f9ba…0f9ca Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x009f, t01=0x0184}
0x0f9ca…0f9d6 (160, 0, 400) Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00a0, t01=0x0004}
0x0f9d6…0f9e4 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x00a0, t01=0x0010}
0x0f9e4…0fa2c Head {h00=0x0044, h01=0x0050, text=»*************************************************************** «, t00=0x00a0, t01=0x001e}
0x0fa2c…0fa74 Head {h00=0x0044, h01=0x0050, text=»* * «, t00=0x00a0, t01=0x0066}
0x0fa74…0fabc Head {h00=0x0044, h01=0x0050, text=»* ATTN ATTENTION KEY HANDLING * «, t00=0x00a0, t01=0x00ae}
0x0fabc…0fb04 Head {h00=0x0044, h01=0x0050, text=»* * «, t00=0x00a0, t01=0x00f6}
0x0fb04…0fb4c Head {h00=0x0044, h01=0x0050, text=»*************************************************************** «, t00=0x00a0, t01=0x013e}
0x0fb4c…0fb6a Head {h00=0x001a, h01=0x0050, text=»* REGISTERS «, t00=0x00a0, t01=0x0186}
0x0fb6a…0fb74 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00a1, t01=0x0014}
0x0fb74…0fb8c Head {h00=0x0014, h01=0x0050, text=»* A11= RESERVED «, t00=0x00a1, t01=0x001e}
0x0fb8c…0fba4 Head {h00=0x0014, h01=0x0050, text=»* A13= RESERVED «, t00=0x00a1, t01=0x0036}
0x0fba4…0fbae Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00a1, t01=0x004e}
0x0fbae…0fbf0 Head {h00=0x003e, h01=0x0050, text=»**********************************************************«, t00=0x00a1, t01=0x0058}
0x0fbf0…0fc02 Head {h00=0x000e, h01=0x0050, text=» IFT SNA=1«, t00=0x00a1, t01=0x009a}
0x0fc02…0fc14 Head {h00=0x000e, h01=0x0050, text=»ATTN EQU *«, t00=0x00a1, t01=0x00ac}
0x0fc14…0fc3c Head {h00=0x0024, h01=0x0050, text=» LDK A1,/4B SIGNAL ATTENTION KEY«, t00=0x00a1, t01=0x00be}
0x0fc3c…0fc5e Head {h00=0x001e, h01=0x0050, text=» CF A14,SETSTA SET STATUS «, t00=0x00a1, t01=0x00e6}
0x0fc5e…0fc6e Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x00a1, t01=0x0108}
0x0fc6e…0fc7a Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00a1, t01=0x0118}
0x0fc7a…0fc88 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x00a1, t01=0x0124}
0x0fc88…0fcce Head {h00=0x0042, h01=0x0050, text=»**************************************************************«, t00=0x00a1, t01=0x0132}
0x0fcce…0fd14 Head {h00=0x0042, h01=0x0050, text=»* *«, t00=0x00a1, t01=0x0178}
0x0fd14…0fd58 Head {h00=0x0040, h01=0x0050, text=»* PA PROGRAM ACCESS KEY HANDLING * «, t00=0x00a2, t01=0x002e}
0x0fd58…0fd9e Head {h00=0x0042, h01=0x0050, text=»* *«, t00=0x00a2, t01=0x0072}
0x0fd9e…0fde4 Head {h00=0x0042, h01=0x0050, text=»**************************************************************«, t00=0x00a2, t01=0x00b8}
0x0fde4…0fdf8 Head {h00=0x0010, h01=0x0050, text=»* REGISTERS«, t00=0x00a2, t01=0x00fe}
0x0fdf8…0fe02 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00a2, t01=0x0112}
0x0fe02…0fe18 Head {h00=0x0012, h01=0x0050, text=»* A2= AID-CODE«, t00=0x00a2, t01=0x011c}
0x0fe18…0fe30 Head {h00=0x0014, h01=0x0050, text=»* A11= RESERVED «, t00=0x00a2, t01=0x0132}
0x0fe30…0fe48 Head {h00=0x0014, h01=0x0050, text=»* A13= RESERVED «, t00=0x00a2, t01=0x014a}
0x0fe48…0fe52 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00a2, t01=0x0162}
0x0fe52…0fe98 Head {h00=0x0042, h01=0x0050, text=»**************************************************************«, t00=0x00a2, t01=0x016c}
0x0fe98…0feaa Head {h00=0x000e, h01=0x0050, text=»PA1 EQU * «, t00=0x00a3, t01=0x0022}
0x0feaa…0fec6 Head {h00=0x0018, h01=0x0050, text=» LDK A2,/25 AID-CODE«, t00=0x00a3, t01=0x0034}
0x0fec6…0fed8 Head {h00=0x000e, h01=0x0050, text=» RF PA500 «, t00=0x00a3, t01=0x0050}
0x0fed8…0feea Head {h00=0x000e, h01=0x0050, text=»PA2 EQU * «, t00=0x00a3, t01=0x0062}
0x0feea…0ff06 Head {h00=0x0018, h01=0x0050, text=» LDK A2,/3E AID-CODE«, t00=0x00a3, t01=0x0074}
0x0ff06…0ff18 Head {h00=0x000e, h01=0x0050, text=» RF PA500 «, t00=0x00a3, t01=0x0090}
0x0ff18…0ff2a Head {h00=0x000e, h01=0x0050, text=»PA3 EQU * «, t00=0x00a3, t01=0x00a2}
0x0ff2a…0ff46 Head {h00=0x0018, h01=0x0050, text=» LDK A2,/2C AID-CODE«, t00=0x00a3, t01=0x00b4}
0x0ff46…0ff5a Head {h00=0x0010, h01=0x0050, text=»PA500 EQU * «, t00=0x00a3, t01=0x00d0}
0x0ff5a…0ff8a Head {h00=0x002c, h01=0x0050, text=» CF A14,LMP3ON TURN ON KEYBOARD INHIBIT «, t00=0x00a3, t01=0x00e4}
0x0ff8a…0ffb0 Head {h00=0x0022, h01=0x0050, text=» CF A14,TRPA TRANSMIT AID-CODE«, t00=0x00a3, t01=0x0114}
0x0ffb0…0ffc4 Head {h00=0x0010, h01=0x0050, text=»PAALFA EQU *«, t00=0x00a3, t01=0x013a}
0x0ffc4…0ffe8 Head {h00=0x0020, h01=0x0050, text=»*INSERT ALFASKOP STATEMENTS «, t00=0x00a3, t01=0x014e}
0x0ffe8…0fff8 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x00a3, t01=0x0172}
0x0fff8…10006 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x00a3, t01=0x0182}
0x10006…10052 Head {h00=0x0048, h01=0x0050, text=»******************************************************************* «, t00=0x00a3, t01=0x0190}
0x10052…1009e Head {h00=0x0048, h01=0x0050, text=»* * «, t00=0x00a4, t01=0x004c}
0x1009e…100ea Head {h00=0x0048, h01=0x0050, text=»* PAEX PAEX KEY FOLLOWED BY NUMBER * «, t00=0x00a4, t01=0x0098}
0x100ea…10136 Head {h00=0x0048, h01=0x0050, text=»* * «, t00=0x00a4, t01=0x00e4}
0x10136…10182 Head {h00=0x0048, h01=0x0050, text=»******************************************************************* «, t00=0x00a4, t01=0x0130}
0x10182…10196 Head {h00=0x0010, h01=0x0050, text=»* REGISTERS«, t00=0x00a4, t01=0x017c}
0x10196…101a0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00a4, t01=0x0190}
0x101a0…101c0 Head {h00=0x001c, h01=0x0050, text=»* A11= CREDIT WORK AREA «, t00=0x00a5, t01=0x000a}
0x101c0…101d8 Head {h00=0x0014, h01=0x0050, text=»* A13= RESERVED «, t00=0x00a5, t01=0x002a}
0x101d8…101e2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00a5, t01=0x0042}
0x101e2…1021e Head {h00=0x0038, h01=0x0050, text=»*************************************************** «, t00=0x00a5, t01=0x004c}
0x1021e…10230 Head {h00=0x000e, h01=0x0050, text=» IFT PAX=1«, t00=0x00a5, t01=0x0088}
0x10230…10242 Head {h00=0x000e, h01=0x0050, text=»PAEX EQU *«, t00=0x00a5, t01=0x009a}
0x10242…10258 Head {h00=0x0012, h01=0x0050, text=» LDKL A1,PAEXA«, t00=0x00a5, t01=0x00ac}
0x10258…10272 Head {h00=0x0016, h01=0x0050, text=» ST A1,RDMORE,A11 «, t00=0x00a5, t01=0x00c2}
0x10272…10282 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x00a5, t01=0x00dc}
0x10282…10296 Head {h00=0x0010, h01=0x0050, text=»PAEXA EQU * «, t00=0x00a5, t01=0x00ec}
0x10296…102ac Head {h00=0x0012, h01=0x0050, text=» CM RDMORE,A11«, t00=0x00a5, t01=0x0100}
0x102ac…102d0 Head {h00=0x0020, h01=0x0050, text=» SUK A2,/31 CHECK IF NUM.1-3«, t00=0x00a5, t01=0x0116}
0x102d0…102f2 Head {h00=0x001e, h01=0x0050, text=» RF(L) PAERR ILLEGAL CHAR.«, t00=0x00a5, t01=0x013a}
0x102f2…10316 Head {h00=0x0020, h01=0x0050, text=» SUK A2,/2 CHECK IF NUM.1-3 «, t00=0x00a5, t01=0x015c}
0x10316…10338 Head {h00=0x001e, h01=0x0050, text=» RF(G) PAERR ILLEGAL CHAR.«, t00=0x00a5, t01=0x0180}
0x10338…1034e Head {h00=0x0012, h01=0x0050, text=» RF(NZ) PAEX10«, t00=0x00a6, t01=0x0012}
0x1034e…1036a Head {h00=0x0018, h01=0x0050, text=» CF A14,PA3 PA3 KEY «, t00=0x00a6, t01=0x0028}
0x1036a…1037c Head {h00=0x000e, h01=0x0050, text=» RF PARET «, t00=0x00a6, t01=0x0044}
0x1037c…10390 Head {h00=0x0010, h01=0x0050, text=»PAEX10 EQU *«, t00=0x00a6, t01=0x0056}
0x10390…103a2 Head {h00=0x000e, h01=0x0050, text=» ADK A2,1 «, t00=0x00a6, t01=0x006a}
0x103a2…103b8 Head {h00=0x0012, h01=0x0050, text=» RF(NZ) PAEX20«, t00=0x00a6, t01=0x007c}
0x103b8…103d4 Head {h00=0x0018, h01=0x0050, text=» CF A14,PA2 PA2 KEY «, t00=0x00a6, t01=0x0092}
0x103d4…103e6 Head {h00=0x000e, h01=0x0050, text=» RF PARET «, t00=0x00a6, t01=0x00ae}
0x103e6…103fa Head {h00=0x0010, h01=0x0050, text=»PAEX20 EQU *«, t00=0x00a6, t01=0x00c0}
0x103fa…10416 Head {h00=0x0018, h01=0x0050, text=» CF A14,PA1 PA1 KEY «, t00=0x00a6, t01=0x00d4}
0x10416…10428 Head {h00=0x000e, h01=0x0050, text=» RF PARET «, t00=0x00a6, t01=0x00f0}
0x10428…1043c Head {h00=0x0010, h01=0x0050, text=»PAERR EQU * «, t00=0x00a6, t01=0x0102}
0x1043c…10460 Head {h00=0x0020, h01=0x0050, text=» CF A14,ERROR INDICATE ERROR«, t00=0x00a6, t01=0x0116}
0x10460…10474 Head {h00=0x0010, h01=0x0050, text=»PARET EQU * «, t00=0x00a6, t01=0x013a}
0x10474…10484 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x00a6, t01=0x014e}
0x10484…10490 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00a6, t01=0x015e}
0x10490…1049e Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x00a6, t01=0x016a}
0x1049e…104e8 Head {h00=0x0046, h01=0x0050, text=»******************************************************************«, t00=0x00a6, t01=0x0178}
0x104e8…10532 Head {h00=0x0046, h01=0x0050, text=»* *«, t00=0x00a7, t01=0x0032}
0x10532…1057c Head {h00=0x0046, h01=0x0050, text=»* PF PROGRAM FUNTION KEY HANDLING *«, t00=0x00a7, t01=0x007c}
0x1057c…105c6 Head {h00=0x0046, h01=0x0050, text=»* *«, t00=0x00a7, t01=0x00c6}
0x105c6…10610 Head {h00=0x0046, h01=0x0050, text=»******************************************************************«, t00=0x00a7, t01=0x0110}
0x10610…10624 Head {h00=0x0010, h01=0x0050, text=»* REGISTERS«, t00=0x00a7, t01=0x015a}
0x10624…1062e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00a7, t01=0x016e}
0x1062e…10644 Head {h00=0x0012, h01=0x0050, text=»* A2= AID-CODE«, t00=0x00a7, t01=0x0178}
0x10644…1065c Head {h00=0x0014, h01=0x0050, text=»* A11= RESERVED «, t00=0x00a7, t01=0x018e}
0x1065c…10674 Head {h00=0x0014, h01=0x0050, text=»* A13= RESERVED «, t00=0x00a8, t01=0x0016}
0x10674…1067e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00a8, t01=0x002e}
0x1067e…106c8 Head {h00=0x0046, h01=0x0050, text=»******************************************************************«, t00=0x00a8, t01=0x0038}
0x106c8…106d8 Head {h00=0x000c, h01=0x0050, text=»PF EQU *«, t00=0x00a8, t01=0x0082}
0x106d8…10702 Head {h00=0x0026, h01=0x0050, text=» SUK A2,PFKEY GET INDEX TO CONVERT«, t00=0x00a8, t01=0x0092}
0x10702…10722 Head {h00=0x001c, h01=0x0050, text=» LC A2,CONPF,A2 GET AID «, t00=0x00a8, t01=0x00bc}
0x10722…10752 Head {h00=0x002c, h01=0x0050, text=» CF A14,LMP3ON TURN ON KEYBOARD INHIBIT «, t00=0x00a8, t01=0x00dc}
0x10752…10788 Head {h00=0x0032, h01=0x0050, text=» CF A14,TRPF TRANSMIT AID AND MODIFIED FIELDS «, t00=0x00a8, t01=0x010c}
0x10788…10798 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x00a8, t01=0x0142}
0x10798…107a6 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x00a8, t01=0x0152}
0x107a6…107f0 Head {h00=0x0046, h01=0x0050, text=»***************************************************************** «, t00=0x00a8, t01=0x0160}
0x107f0…1083a Head {h00=0x0046, h01=0x0050, text=»* * «, t00=0x00a9, t01=0x001a}
0x1083a…10884 Head {h00=0x0046, h01=0x0050, text=»* PFEX PFEX KEY FOLLOWED BY NUMBER * «, t00=0x00a9, t01=0x0064}
0x10884…108ce Head {h00=0x0046, h01=0x0050, text=»* * «, t00=0x00a9, t01=0x00ae}
0x108ce…10918 Head {h00=0x0046, h01=0x0050, text=»***************************************************************** «, t00=0x00a9, t01=0x00f8}
0x10918…1092c Head {h00=0x0010, h01=0x0050, text=»* REGISTERS«, t00=0x00a9, t01=0x0142}
0x1092c…10936 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00a9, t01=0x0156}
0x10936…10956 Head {h00=0x001c, h01=0x0050, text=»* A11= CREDIT WORK AREA «, t00=0x00a9, t01=0x0160}
0x10956…1096e Head {h00=0x0014, h01=0x0050, text=»* A13= RESERVED «, t00=0x00a9, t01=0x0180}
0x1096e…10978 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00aa, t01=0x0008}
0x10978…109b2 Head {h00=0x0036, h01=0x0050, text=»************************************************* «, t00=0x00aa, t01=0x0012}
0x109b2…109c4 Head {h00=0x000e, h01=0x0050, text=» IFT PFX=1«, t00=0x00aa, t01=0x004c}
0x109c4…109d6 Head {h00=0x000e, h01=0x0050, text=»PFEX EQU *«, t00=0x00aa, t01=0x005e}
0x109d6…109ec Head {h00=0x0012, h01=0x0050, text=» LDKL A1,PFEXA«, t00=0x00aa, t01=0x0070}
0x109ec…109fe Head {h00=0x000e, h01=0x0050, text=» RF PFNXT «, t00=0x00aa, t01=0x0086}
0x109fe…10a12 Head {h00=0x0010, h01=0x0050, text=»PFEXA EQU * «, t00=0x00aa, t01=0x0098}
0x10a12…10a28 Head {h00=0x0012, h01=0x0050, text=» CM RDMORE,A11«, t00=0x00aa, t01=0x00ac}
0x10a28…10a48 Head {h00=0x001c, h01=0x0050, text=» SUK A2,/30 LEGAL CHAR ?«, t00=0x00aa, t01=0x00c2}
0x10a48…10a78 Head {h00=0x002c, h01=0x0050, text=» RF(L) PFERR ILLEGAL,GO TO ERR.HANDLING «, t00=0x00aa, t01=0x00e2}
0x10a78…10a8e Head {h00=0x0012, h01=0x0050, text=» RF(NZ) PFEX10«, t00=0x00aa, t01=0x0112}
0x10a8e…10ab0 Head {h00=0x001e, h01=0x0050, text=» LDKL A1,PF0A FIRST NUM 0 «, t00=0x00aa, t01=0x0128}
0x10ab0…10ace Head {h00=0x001a, h01=0x0050, text=» RF PFNXT NEXT NUMBER «, t00=0x00aa, t01=0x014a}
0x10ace…10ae2 Head {h00=0x0010, h01=0x0050, text=»PFEX10 EQU *«, t00=0x00aa, t01=0x0168}
0x10ae2…10af4 Head {h00=0x000e, h01=0x0050, text=» SUK A2,1 «, t00=0x00aa, t01=0x017c}
0x10af4…10b0a Head {h00=0x0012, h01=0x0050, text=» RF(NZ) PFEX20«, t00=0x00aa, t01=0x018e}
0x10b0a…10b2c Head {h00=0x001e, h01=0x0050, text=» LDKL A1,PF1A FIRST NUM 1 «, t00=0x00ab, t01=0x0014}
0x10b2c…10b4a Head {h00=0x001a, h01=0x0050, text=» RF PFNXT NEXT NUMBER «, t00=0x00ab, t01=0x0036}
0x10b4a…10b5e Head {h00=0x0010, h01=0x0050, text=»PFEX20 EQU *«, t00=0x00ab, t01=0x0054}
0x10b5e…10b70 Head {h00=0x000e, h01=0x0050, text=» SUK A2,1 «, t00=0x00ab, t01=0x0068}
0x10b70…10b92 Head {h00=0x001e, h01=0x0050, text=» RF(NZ) PFERR ILLEGAL NUM «, t00=0x00ab, t01=0x007a}
0x10b92…10bb4 Head {h00=0x001e, h01=0x0050, text=» LDKL A1,PF2A FIRST NUM 2 «, t00=0x00ab, t01=0x009c}
0x10bb4…10bd2 Head {h00=0x001a, h01=0x0050, text=» RF PFNXT NEXT NUMBER «, t00=0x00ab, t01=0x00be}
0x10bd2…10be4 Head {h00=0x000e, h01=0x0050, text=»PF0A EQU *«, t00=0x00ab, t01=0x00dc}
0x10be4…10bfa Head {h00=0x0012, h01=0x0050, text=» CM RDMORE,A11«, t00=0x00ab, t01=0x00ee}
0x10bfa…10c1a Head {h00=0x001c, h01=0x0050, text=» SUK A2,/31 ILLEGAL NUM?«, t00=0x00ab, t01=0x0104}
0x10c1a…10c32 Head {h00=0x0014, h01=0x0050, text=» RF(N) PFERR YES«, t00=0x00ab, t01=0x0124}
0x10c32…10c50 Head {h00=0x001a, h01=0x0050, text=» SUK A2,9 ILLEGAL NUM?«, t00=0x00ab, t01=0x013c}
0x10c50…10c6a Head {h00=0x0016, h01=0x0050, text=» RF(NN) PFERR YES «, t00=0x00ab, t01=0x015a}
0x10c6a…10c8a Head {h00=0x001c, h01=0x0050, text=» ADK A2,/9+PFKEY PF1-PF9«, t00=0x00ab, t01=0x0174}
0x10c8a…10c9c (172, 0, 400) Head {h00=0x000e, h01=0x0050, text=» RF PFHAND«, t00=0x00ac, t01=0x0004}
0x10c9c…10cae Head {h00=0x000e, h01=0x0050, text=»PF1A EQU *«, t00=0x00ac, t01=0x0016}
0x10cae…10cc4 Head {h00=0x0012, h01=0x0050, text=» CM RDMORE,A11«, t00=0x00ac, t01=0x0028}
0x10cc4…10ce4 Head {h00=0x001c, h01=0x0050, text=» SUK A2,/30 ILLEGAL NUM?«, t00=0x00ac, t01=0x003e}
0x10ce4…10cfc Head {h00=0x0014, h01=0x0050, text=» RF(N) PFERR YES«, t00=0x00ac, t01=0x005e}
0x10cfc…10d1c Head {h00=0x001c, h01=0x0050, text=» SUK A2,/A ILLEGAL NUM? «, t00=0x00ac, t01=0x0076}
0x10d1c…10d36 Head {h00=0x0016, h01=0x0050, text=» RF(NN) PFERR YES «, t00=0x00ac, t01=0x0096}
0x10d36…10d5c Head {h00=0x0022, h01=0x0050, text=» ADK A2,/A+PFKEY+/9 PF10-PF19 «, t00=0x00ac, t01=0x00b0}
0x10d5c…10d6e Head {h00=0x000e, h01=0x0050, text=» RF PFHAND«, t00=0x00ac, t01=0x00d6}
0x10d6e…10d80 Head {h00=0x000e, h01=0x0050, text=»PF2A EQU *«, t00=0x00ac, t01=0x00e8}
0x10d80…10d96 Head {h00=0x0012, h01=0x0050, text=» CM RDMORE,A11«, t00=0x00ac, t01=0x00fa}
0x10d96…10db6 Head {h00=0x001c, h01=0x0050, text=» SUK A2,/30 ILLEGAL NUM?«, t00=0x00ac, t01=0x0110}
0x10db6…10dce Head {h00=0x0014, h01=0x0050, text=» RF(N) PFERR YES«, t00=0x00ac, t01=0x0130}
0x10dce…10dec Head {h00=0x001a, h01=0x0050, text=» SUK A2,5 ILLEGAL NUM?«, t00=0x00ac, t01=0x0148}
0x10dec…10e06 Head {h00=0x0016, h01=0x0050, text=» RF(NN) PFERR YES «, t00=0x00ac, t01=0x0166}
0x10e06…10e2c Head {h00=0x0022, h01=0x0050, text=» ADK A2,/5+PFKEY+/13 PF20-PF24«, t00=0x00ac, t01=0x0180}
0x10e2c…10e40 Head {h00=0x0010, h01=0x0050, text=»PFHAND EQU *«, t00=0x00ad, t01=0x0016}
0x10e40…10e70 Head {h00=0x002c, h01=0x0050, text=» CF A14,PF PROGRAM FUNCTION KEY HANDLING«, t00=0x00ad, t01=0x002a}
0x10e70…10e82 Head {h00=0x000e, h01=0x0050, text=» RF PFRET «, t00=0x00ad, t01=0x005a}
0x10e82…10e96 Head {h00=0x0010, h01=0x0050, text=»PFNXT EQU * «, t00=0x00ad, t01=0x006c}
0x10e96…10eb0 Head {h00=0x0016, h01=0x0050, text=» ST A1,RDMORE,A11 «, t00=0x00ad, t01=0x0080}
0x10eb0…10ec2 Head {h00=0x000e, h01=0x0050, text=» RF PFRET «, t00=0x00ad, t01=0x009a}
0x10ec2…10ed6 Head {h00=0x0010, h01=0x0050, text=»PFERR EQU * «, t00=0x00ad, t01=0x00ac}
0x10ed6…10eec Head {h00=0x0012, h01=0x0050, text=» CF A14,ERROR «, t00=0x00ad, t01=0x00c0}
0x10eec…10f00 Head {h00=0x0010, h01=0x0050, text=»PFRET EQU * «, t00=0x00ad, t01=0x00d6}
0x10f00…10f10 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x00ad, t01=0x00ea}
0x10f10…10f1c Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00ad, t01=0x00fa}
0x10f1c…10f2a Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x00ad, t01=0x0106}
0x10f2a…10f32 Head {h00=0x0004, h01=0x0050, t00=0x00ad, t01=0x0114}
0x10f32…10f74 Head {h00=0x003e, h01=0x0050, text=»**********************************************************«, t00=0x00ad, t01=0x011c}
0x10f74…10fb6 Head {h00=0x003e, h01=0x0050, text=»* *«, t00=0x00ad, t01=0x015e}
0x10fb6…10ff8 Head {h00=0x003e, h01=0x0050, text=»* RETURN RETURN *«, t00=0x00ae, t01=0x0010}
0x10ff8…1103a Head {h00=0x003e, h01=0x0050, text=»* *«, t00=0x00ae, t01=0x0052}
0x1103a…1107e Head {h00=0x0040, h01=0x0050, text=»*********************************************************** «, t00=0x00ae, t01=0x0094}
0x1107e…1109a Head {h00=0x0018, h01=0x0050, text=»* REGISTERS «, t00=0x00ae, t01=0x00d8}
0x1109a…110a4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00ae, t01=0x00f4}
0x110a4…110bc Head {h00=0x0014, h01=0x0050, text=»* A11= RESERVED «, t00=0x00ae, t01=0x00fe}
0x110bc…110d4 Head {h00=0x0014, h01=0x0050, text=»* A13= RESERVED «, t00=0x00ae, t01=0x0116}
0x110d4…110de Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00ae, t01=0x012e}
0x110de…1111e Head {h00=0x003c, h01=0x0050, text=»********************************************************«, t00=0x00ae, t01=0x0138}
0x1111e…11132 Head {h00=0x0010, h01=0x0050, text=»RETURN EQU *«, t00=0x00ae, t01=0x0178}
0x11132…11142 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x00ae, t01=0x018c}
0x11142…1114a Head {h00=0x0004, h01=0x0050, t00=0x00af, t01=0x000c}
0x1114a…11156 Head {h00=0x0008, h01=0x0050, text=» END«, t00=0x00af, t01=0x0014}
0x11156…1115a Head {h00=0x4004, h01=0x0000}
0x1115a…1115e 00 af 00 20 ┆ ┆
0x1115e…11166 (176, 1, 8) 20 04 00 00 00 b0 00 04 ┆ ┆
0x11166…112f6 (177, 0, 400) 0x00[0x190]
[…0x3…]