|
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: 71784 (0x11868)
Notes: pts_type(SC)
Names: »KEYB.SC«
└─⟦7a1dcd5a9⟧ Bits:30009673 Philips computer tape "600134"
└─⟦this⟧ »PT3272/KEYB.SC«
IDENT KEYB REL 11.0 DK 830113 NJ 870150541100 DK3 PA 4-9 830113 NJ DK2 RESTORE A1 AFTER DC ABRT DK1,ERASE ONE LINE 'EOF' =3 ERASE TO END OF FIELD =2 TWO DC-LINES 82-02-28 =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) EXTRN CONCT CONNECT (DCXXX) =2 EXTRN DISCON DISCONNECT (DCXXX) =2 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 2 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+6 ECB 2ND KEYBOARD DK * * RELATIVE ADDRESSES IN * COMMON WORKBLOCK * IFF TEST=1 TSKTAB EQU 26 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 LD A1,RDMORE,A11 RESTORE A1 DK2 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 * CF A14,LINE ERASE ONE LINE DK1 LDR A1,A5 DK1 CWK A1,LBVDU DK1 RF(L) ERE710 DK1 LDK A1,0 STOP ADDRESS =3 ERE710 EQU * DK1 CF A14,SCRINF DK1 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 CF A14,DISCON DISCONNECT ON OLD LINE =2 LDK A1,1 . =2 XRS A1,MAIN,A11 IND MAIN FRAME CHANGE =2 RF(NZ) MFCH10 CF A14,LMP1ON RF MFCH90 MFCH10 EQU * CF A14,LMP2ON MFCH90 EQU * . =2 CF A14,CONCT CONNECT ON NEW LINE =2 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) PAEXB 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 PAEXB EQU * DK3 SUK A2,/6 DK3 RF(G) PAERR DK3 ADK A2,/69 DK3 CF A14,PA500 DK3 RF PARET DK3 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 830113 NJ 870150541100«, t00=0x0000, t01=0x0004}
0x00036…00056 Head {h00=0x001c, h01=0x0050, text=» DK3 PA 4-9 830113 NJ «, t00=0x0000, t01=0x003a}
0x00056…0007e Head {h00=0x0024, h01=0x0050, text=» DK2 RESTORE A1 AFTER DC ABRT «, t00=0x0000, t01=0x005a}
0x0007e…000a2 Head {h00=0x0020, h01=0x0050, text=» DK1,ERASE ONE LINE 'EOF' «, t00=0x0000, t01=0x0082}
0x000a2…000c6 Head {h00=0x0020, h01=0x0050, text=» =3 ERASE TO END OF FIELD«, t00=0x0000, t01=0x00a6}
0x000c6…000e2 Head {h00=0x0018, h01=0x0050, text=» =2 TWO DC-LINES «, t00=0x0000, t01=0x00ca}
0x000e2…000f6 Head {h00=0x0010, h01=0x0050, text=» 82-02-28 «, t00=0x0000, t01=0x00e6}
0x000f6…00118 Head {h00=0x001e, h01=0x0050, text=» =1, SYSTEM MODE CURSOR «, t00=0x0000, t01=0x00fa}
0x00118…0012c Head {h00=0x0010, h01=0x0050, text=» 81-01-26 «, t00=0x0000, t01=0x011c}
0x0012c…00174 Head {h00=0x0044, h01=0x0050, text=»*************************************************************** «, t00=0x0000, t01=0x0130}
0x00174…001bc Head {h00=0x0044, h01=0x0050, text=»* * «, t00=0x0000, t01=0x0178}
0x001bc…00204 Head {h00=0x0044, h01=0x0050, text=»* MODULE KEYB * «, t00=0x0001, t01=0x0030}
0x00204…0024c Head {h00=0x0044, h01=0x0050, text=»* MODULE HANDLING THE KEYBOARD DEVICE * «, t00=0x0001, t01=0x0078}
0x0024c…00294 Head {h00=0x0044, h01=0x0050, text=»* (EMULATION 3270 SNA/SDLC, BSC) * «, t00=0x0001, t01=0x00c0}
0x00294…002dc Head {h00=0x0044, h01=0x0050, text=»* * «, t00=0x0001, t01=0x0108}
0x002dc…00324 Head {h00=0x0044, h01=0x0050, text=»*************************************************************** «, t00=0x0001, t01=0x0150}
0x00324…00332 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0002, t01=0x0008}
0x00332…0037a Head {h00=0x0044, h01=0x0050, text=»*************************************************************** «, t00=0x0002, t01=0x0016}
0x0037a…003c2 Head {h00=0x0044, h01=0x0050, text=»* * «, t00=0x0002, t01=0x005e}
0x003c2…0040a Head {h00=0x0044, h01=0x0050, text=»* LIST OF ROUTINES * «, t00=0x0002, t01=0x00a6}
0x0040a…00452 Head {h00=0x0044, h01=0x0050, text=»* * «, t00=0x0002, t01=0x00ee}
0x00452…0049a Head {h00=0x0044, h01=0x0050, text=»* KBINP MAIN ROUTINE * «, t00=0x0002, t01=0x0136}
0x0049a…004e2 Head {h00=0x0044, h01=0x0050, text=»* CPLKB KB-COMPLETION TABLE FOR DIFF. MODES * «, t00=0x0002, t01=0x017e}
0x004e2…00522 Head {h00=0x003c, h01=0x0050, text=»* KBCPLO KB-COMPLETION ROUTINE IN LOCAL MODE«, t00=0x0003, t01=0x0036}
0x00522…0056a Head {h00=0x0044, h01=0x0050, text=»* KBCPSY KB-COMPLETION ROUTINE IN SYSTEM MODE * «, t00=0x0003, t01=0x0076}
0x0056a…005b2 Head {h00=0x0044, h01=0x0050, text=»* KBCPJO KB-COMPLETION ROUTINE IN MY JOB MODE * «, t00=0x0003, t01=0x00be}
0x005b2…005fa Head {h00=0x0044, h01=0x0050, text=»* READKB READ KEYBOARD WITH NO WAIT * «, t00=0x0003, t01=0x0106}
0x005fa…00642 Head {h00=0x0044, h01=0x0050, text=»* RESKB RESET KEYBOARD-BUFFER * «, t00=0x0003, t01=0x014e}
0x00642…00674 Head {h00=0x002e, h01=0x0050, text=»* ICVRED KB/VDU INTERTASK READ«, t00=0x0004, t01=0x0008}
0x00674…006a0 Head {h00=0x0028, h01=0x0050, text=»* ICINP INTERTASK INPUT«, t00=0x0004, t01=0x003a}
0x006a0…006d2 Head {h00=0x002e, h01=0x0050, text=»* ICSET SET INTERTASK TIMEOUT«, t00=0x0004, t01=0x0066}
0x006d2…006fe Head {h00=0x0028, h01=0x0050, text=»* ICREAD READ INTERTASK «, t00=0x0004, t01=0x0098}
0x006fe…0072a Head {h00=0x0028, h01=0x0050, text=»* ICWRT WRITE INTERTASK«, t00=0x0004, t01=0x00c4}
0x0072a…00772 Head {h00=0x0044, h01=0x0050, text=»* ERROR ILLEGAL KEY-HANDLING * «, t00=0x0004, t01=0x00f0}
0x00772…007ba Head {h00=0x0044, h01=0x0050, text=»* LAMPROUTINES * «, t00=0x0004, t01=0x0138}
0x007ba…00802 Head {h00=0x0044, h01=0x0050, text=»* SDISP SIGNAL ROUTINE * «, t00=0x0004, t01=0x0180}
0x00802…0084a Head {h00=0x0044, h01=0x0050, text=»* KEYTAB KEY-TABLE, FIXED ENTRY FOR EACH FUNC. * «, t00=0x0005, t01=0x0038}
0x0084a…00892 Head {h00=0x0044, h01=0x0050, text=»* CHAR ALPHA. CHAR HANDLING * «, t00=0x0005, t01=0x0080}
0x00892…008da Head {h00=0x0044, h01=0x0050, text=»* NUM NUM. CHAR HANDLING * «, t00=0x0005, t01=0x00c8}
0x008da…00922 Head {h00=0x0044, h01=0x0050, text=»* ANCOMM ALPHANUM. CHAR HANDLING * «, t00=0x0005, t01=0x0110}
0x00922…00976 Head {h00=0x0050, h01=0x0050, text=»* CURMOV MOVE CURSOR ON SCREEN * «, t00=0x0005, t01=0x0158}
0x00976…009be Head {h00=0x0044, h01=0x0050, text=»* BAKTAB TAB. UNPROT. BACKWARDS * «, t00=0x0006, t01=0x001c}
0x009be…00a06 Head {h00=0x0044, h01=0x0050, text=»* TAB TAB. UNPROT. FORWARDS * «, t00=0x0006, t01=0x0064}
0x00a06…00a4e Head {h00=0x0044, h01=0x0050, text=»* CRNL TAB. UNPROT. NEXT LINE * «, t00=0x0006, t01=0x00ac}
0x00a4e…00a96 Head {h00=0x0044, h01=0x0050, text=»* RDHOME TAB. UNPROT. FIRST ON SCREEN * «, t00=0x0006, t01=0x00f4}
0x00a96…00ade Head {h00=0x0044, h01=0x0050, text=»* EREOF ERASE TO END OF FIELD * «, t00=0x0006, t01=0x013c}
0x00ade…00b26 Head {h00=0x0044, h01=0x0050, text=»* ERINPT ERASE UNPROT. ENTIRE SCREEN * «, t00=0x0006, t01=0x0184}
0x00b26…00b6e Head {h00=0x0044, h01=0x0050, text=»* INSERT INSERT HANDLING * «, t00=0x0007, t01=0x003c}
0x00b6e…00bb6 Head {h00=0x0044, h01=0x0050, text=»* DELETE DELETE HANDLING * «, t00=0x0007, t01=0x0084}
0x00bb6…00bfe Head {h00=0x0044, h01=0x0050, text=»* RESET RESET HANDLING * «, t00=0x0007, t01=0x00cc}
0x00bfe…00c46 Head {h00=0x0044, h01=0x0050, text=»* DUP DUPLICATE HANDLING * «, t00=0x0007, t01=0x0114}
0x00c46…00c8e Head {h00=0x0044, h01=0x0050, text=»* FLDMRK FIELDMARK HANDLING * «, t00=0x0007, t01=0x015c}
0x00c8e…00cd6 Head {h00=0x0044, h01=0x0050, text=»* ZERO:2,3 DOUBLE & TRIPLE ZERO HANDLING * «, t00=0x0008, t01=0x0014}
0x00cd6…00d1e Head {h00=0x0044, h01=0x0050, text=»* OFLINE OFFLINE HANDLING * «, t00=0x0008, t01=0x005c}
0x00d1e…00d66 Head {h00=0x0044, h01=0x0050, text=»* MFCHGE MAIN FRAME CHANGE * «, t00=0x0008, t01=0x00a4}
0x00d66…00dae Head {h00=0x0044, h01=0x0050, text=»* COPY LOCAL HARDCOPY * «, t00=0x0008, t01=0x00ec}
0x00dae…00df6 Head {h00=0x0044, h01=0x0050, text=»* IDENT PRINTER IDENT. HANDLING * «, t00=0x0008, t01=0x0134}
0x00df6…00e3e Head {h00=0x0044, h01=0x0050, text=»* KEYL KEYLOCK STATUS HANDLING * «, t00=0x0008, t01=0x017c}
0x00e3e…00e64 Head {h00=0x0022, h01=0x0050, text=»* TESTM TEST MODE«, t00=0x0009, t01=0x0034}
0x00e64…00eac Head {h00=0x0044, h01=0x0050, text=»* ENTER ENTER HANDLING * «, t00=0x0009, t01=0x005a}
0x00eac…00ef4 Head {h00=0x0044, h01=0x0050, text=»* CLEAR CLEAR HANDLING * «, t00=0x0009, t01=0x00a2}
0x00ef4…00f3c Head {h00=0x0044, h01=0x0050, text=»* SYSREQ SYSTEM REQUEST HANDLING * «, t00=0x0009, t01=0x00ea}
0x00f3c…00f84 Head {h00=0x0044, h01=0x0050, text=»* ATTN ATTENTION HANDLING * «, t00=0x0009, t01=0x0132}
0x00f84…00fcc Head {h00=0x0044, h01=0x0050, text=»* PA PROGRAM ACCESS HANDLING *«, t00=0x0009, t01=0x017a}
0x00fcc…01014 Head {h00=0x0044, h01=0x0050, text=»* PF PROGRAM FUNCTION HANDLING * «, t00=0x000a, t01=0x0032}
0x01014…0105c Head {h00=0x0044, h01=0x0050, text=»* RETURN RETURN * «, t00=0x000a, t01=0x007a}
0x0105c…010a4 Head {h00=0x0044, h01=0x0050, text=»* * «, t00=0x000a, t01=0x00c2}
0x010a4…010ec Head {h00=0x0044, h01=0x0050, text=»*************************************************************** «, t00=0x000a, t01=0x010a}
0x010ec…010fa Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000a, t01=0x0152}
0x010fa…01136 Head {h00=0x0038, h01=0x0050, text=»*************************************************** «, t00=0x000a, t01=0x0160}
0x01136…01172 Head {h00=0x0038, h01=0x0050, text=»* *«, t00=0x000b, t01=0x000c}
0x01172…011ae Head {h00=0x0038, h01=0x0050, text=»* ENTRY POINTS *«, t00=0x000b, t01=0x0048}
0x011ae…011ea Head {h00=0x0038, h01=0x0050, text=»* *«, t00=0x000b, t01=0x0084}
0x011ea…01226 Head {h00=0x0038, h01=0x0050, text=»****************************************************«, t00=0x000b, t01=0x00c0}
0x01226…0122e Head {h00=0x0004, h01=0x0050, t00=0x000b, t01=0x00fc}
0x0122e…01260 Head {h00=0x002e, h01=0x0050, text=» ENTRY KBINP,KBINP2 START LABEL FOR MODULE«, t00=0x000b, t01=0x0104}
0x01260…0128a Head {h00=0x0026, h01=0x0050, text=» ENTRY READKB,READK2 READ KEYBOARD«, t00=0x000b, t01=0x0136}
0x0128a…012b4 Head {h00=0x0026, h01=0x0050, text=» ENTRY RESKB RESET KEYBOARD BUFFER«, t00=0x000b, t01=0x0160}
0x012b4…012d6 Head {h00=0x001e, h01=0x0050, text=» ENTRY LMP1ON LAMPROUTINES«, t00=0x000b, t01=0x018a}
0x012d6…012ee Head {h00=0x0014, h01=0x0050, text=» ENTRY LMP1OF . «, t00=0x000c, t01=0x001c}
0x012ee…01306 Head {h00=0x0014, h01=0x0050, text=» ENTRY LMP2ON . «, t00=0x000c, t01=0x0034}
0x01306…0131e Head {h00=0x0014, h01=0x0050, text=» ENTRY LMP2OF . «, t00=0x000c, t01=0x004c}
0x0131e…01336 Head {h00=0x0014, h01=0x0050, text=» ENTRY LMP3ON . «, t00=0x000c, t01=0x0064}
0x01336…0134e Head {h00=0x0014, h01=0x0050, text=» ENTRY LMP3OF . «, t00=0x000c, t01=0x007c}
0x0134e…01366 Head {h00=0x0014, h01=0x0050, text=» ENTRY LMP4ON . «, t00=0x000c, t01=0x0094}
0x01366…0137e Head {h00=0x0014, h01=0x0050, text=» ENTRY LMP4OF . «, t00=0x000c, t01=0x00ac}
0x0137e…01396 Head {h00=0x0014, h01=0x0050, text=» ENTRY LMP5ON . «, t00=0x000c, t01=0x00c4}
0x01396…013ae Head {h00=0x0014, h01=0x0050, text=» ENTRY LMP5OF . «, t00=0x000c, t01=0x00dc}
0x013ae…013c6 Head {h00=0x0014, h01=0x0050, text=» ENTRY LMP6ON . «, t00=0x000c, t01=0x00f4}
0x013c6…013de Head {h00=0x0014, h01=0x0050, text=» ENTRY LMP6OF . «, t00=0x000c, t01=0x010c}
0x013de…01414 Head {h00=0x0032, h01=0x0050, text=» ENTRY RDHOME TAB. UNPROTECTED FIRST ON SCREEN«, t00=0x000c, t01=0x0124}
0x01414…01436 Head {h00=0x001e, h01=0x0050, text=» ENTRY COPY LOCAL HARDCOPY«, t00=0x000c, t01=0x015a}
0x01436…0145c Head {h00=0x0022, h01=0x0050, text=» ENTRY ERROR ERROR INDICATION «, t00=0x000c, t01=0x017c}
0x0145c…01488 Head {h00=0x0028, h01=0x0050, text=» ENTRY TAB TAB FOREWARD UNPROTECTED «, t00=0x000d, t01=0x0012}
0x01488…014b8 Head {h00=0x002c, h01=0x0050, text=» ENTRY CRDOWN MOVE CURSOR DOWN ONE LINE «, t00=0x000d, t01=0x003e}
0x014b8…014e0 Head {h00=0x0024, h01=0x0050, text=» ENTRY ICVRED VDU INTERTASK READ«, t00=0x000d, t01=0x006e}
0x014e0…01504 Head {h00=0x0020, h01=0x0050, text=» ENTRY ICINP INTERTASK INPUT«, t00=0x000d, t01=0x0096}
0x01504…0152e Head {h00=0x0026, h01=0x0050, text=» ENTRY ICSET SET INTERTASK TIMEOUT«, t00=0x000d, t01=0x00ba}
0x0152e…01552 Head {h00=0x0020, h01=0x0050, text=» ENTRY ICWRT WRITE INTERTASK«, t00=0x000d, t01=0x00e4}
0x01552…01576 Head {h00=0x0020, h01=0x0050, text=» ENTRY ICREAD READ INTERTASK«, t00=0x000d, t01=0x0108}
0x01576…01584 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000d, t01=0x012c}
0x01584…0158c Head {h00=0x0004, h01=0x0050, t00=0x000d, t01=0x013a}
0x0158c…015ca Head {h00=0x003a, h01=0x0050, text=»******************************************************«, t00=0x000d, t01=0x0142}
0x015ca…01608 Head {h00=0x003a, h01=0x0050, text=»* *«, t00=0x000d, t01=0x0180}
0x01608…01646 Head {h00=0x003a, h01=0x0050, text=»* EXTERNAL REFERENCES *«, t00=0x000e, t01=0x002e}
0x01646…01684 Head {h00=0x003a, h01=0x0050, text=»* *«, t00=0x000e, t01=0x006c}
0x01684…016c2 Head {h00=0x003a, h01=0x0050, text=»******************************************************«, t00=0x000e, t01=0x00aa}
0x016c2…016ca Head {h00=0x0004, h01=0x0050, t00=0x000e, t01=0x00e8}
0x016ca…016f4 Head {h00=0x0026, h01=0x0050, text=» EXTRN I:RT1 RETURN TO CREDIT CODE«, t00=0x000e, t01=0x00f0}
0x016f4…0172a Head {h00=0x0032, h01=0x0050, text=» EXTRN ATMASB SEARCH ATTRIBUTE BACKWARDS (VDU)«, t00=0x000e, t01=0x011a}
0x0172a…0175e Head {h00=0x0030, h01=0x0050, text=» EXTRN ATMASF SEARCH ATTRIBUTE FORWARD (VDU)«, t00=0x000e, t01=0x0150}
0x0175e…01792 Head {h00=0x0030, h01=0x0050, text=» EXTRN DCABOR ABORT DC-REQUEST (DCSNA,DCBSC)«, t00=0x000e, t01=0x0184}
0x01792…017c0 Head {h00=0x002a, h01=0x0050, text=» EXTRN ERASE ERASE ENTIRE SCREEN (VDU)«, t00=0x000f, t01=0x0028}
0x017c0…017fc Head {h00=0x0038, h01=0x0050, text=» EXTRN ERASUA ERASE ALL UNPROTECTED TO ADDRESS (VDU)«, t00=0x000f, t01=0x0056}
0x017fc…0182e Head {h00=0x002e, h01=0x0050, text=» EXTRN ERASUP ERASE ALL UNPROTECTED (VDU) «, t00=0x000f, t01=0x0092}
0x0182e…01864 Head {h00=0x0032, h01=0x0050, text=» EXTRN TRPA TRANSMIT SHORT READ (DCSNA,DCBSC) «, t00=0x000f, t01=0x00c4}
0x01864…0189c Head {h00=0x0034, h01=0x0050, text=» EXTRN TRPF TRANSMIT MODIFIED READ (DCSNA,DCBSC)«, t00=0x000f, t01=0x00fa}
0x0189c…018cc Head {h00=0x002c, h01=0x0050, text=» EXTRN TSTSTA TEST STATUS (DCSNA,DCBSC) «, t00=0x000f, t01=0x0132}
0x018cc…01900 Head {h00=0x0030, h01=0x0050, text=» EXTRN WCHAR DISPLAY CHAR. AND CURSOR (VDU) «, t00=0x000f, t01=0x0162}
0x01900…01932 Head {h00=0x002e, h01=0x0050, text=» EXTRN SOUND SOUND ALARM ON DISPLAY (VDU)«, t00=0x0010, t01=0x0008}
0x01932…01964 Head {h00=0x002e, h01=0x0050, text=» EXTRN SCRINF GET SCREEN INFORMATION (VDU)«, t00=0x0010, t01=0x003a}
0x01964…01998 Head {h00=0x0030, h01=0x0050, text=» EXTRN STOINF SAVE SCREEN INFORMATION (VDU) «, t00=0x0010, t01=0x006c}
0x01998…019cc Head {h00=0x0030, h01=0x0050, text=» EXTRN GETVDU GET CHAR. IN VDU BUFFER (VDU) «, t00=0x0010, t01=0x00a0}
0x019cc…01a02 Head {h00=0x0032, h01=0x0050, text=» EXTRN STOVDU STORE CHAR. IN VDU BUFFER (VDU) «, t00=0x0010, t01=0x00d4}
0x01a02…01a2c Head {h00=0x0026, h01=0x0050, text=» EXTRN DISCHA DISPLAY CHAR. (VDU) «, t00=0x0010, t01=0x010a}
0x01a2c…01a66 Head {h00=0x0036, h01=0x0050, text=» EXTRN POSUNP MOVE CURSOR TO NEXT UNPR. POS. (VDU)«, t00=0x0010, t01=0x0134}
0x01a66…01a96 Head {h00=0x002c, h01=0x0050, text=» EXTRN INSMOD INSERT MODE ROUTINE (VDU) «, t00=0x0010, t01=0x016e}
0x01a96…01ad0 Head {h00=0x0036, h01=0x0050, text=» EXTRN DCOFLN INDICATE OFFLINE TO DC (DCSNA,DCBSC)«, t00=0x0011, t01=0x000e}
0x01ad0…01b04 Head {h00=0x0030, h01=0x0050, text=» EXTRN DISMOD DISPLAY MODIFIED FIELDS (VDU) «, t00=0x0011, t01=0x0048}
0x01b04…01b36 Head {h00=0x002e, h01=0x0050, text=» EXTRN CONPF CONVERT PF-KEY TABLE (CONVER)«, t00=0x0011, t01=0x007c}
0x01b36…01b64 Head {h00=0x002a, h01=0x0050, text=» EXTRN OPSYS OPEN SYSTEM (DCSNA,DCBSC)«, t00=0x0011, t01=0x00ae}
0x01b64…01b8c Head {h00=0x0024, h01=0x0050, text=» EXTRN LINE GET LINE FLAG (VDU) «, t00=0x0011, t01=0x00dc}
0x01b8c…01bb6 Head {h00=0x0026, h01=0x0050, text=» EXTRN SAVE1 SAVE1 REGISTERS (PAD)«, t00=0x0011, t01=0x0104}
0x01bb6…01be2 Head {h00=0x0028, h01=0x0050, text=» EXTRN REST1 REST1E REGISTERS (PAD) «, t00=0x0011, t01=0x012e}
0x01be2…01c0e Head {h00=0x0028, h01=0x0050, text=» EXTRN DISID DISPLAY HARDCOPY TASKID«, t00=0x0011, t01=0x015a}
0x01c0e…01c34 Head {h00=0x0022, h01=0x0050, text=» EXTRN GETBUF GET BUFFER (PAD)«, t00=0x0011, t01=0x0186}
0x01c34…01c5e Head {h00=0x0026, h01=0x0050, text=» EXTRN RELBUF RELEASE BUFFER (PAD)«, t00=0x0012, t01=0x001c}
0x01c5e…01c8c Head {h00=0x002a, h01=0x0050, text=» EXTRN DISSTA DISPLAY STATISTICS (VDU)«, t00=0x0012, t01=0x0046}
0x01c8c…01cba Head {h00=0x002a, h01=0x0050, text=» EXTRN RDSTAT READ STATISTICS (DCBSC) «, t00=0x0012, t01=0x0074}
0x01cba…01cf0 Head {h00=0x0032, h01=0x0050, text=» EXTRN CHKSTA CHECK LINE STATUS (DCBSC,DCSNA) «, t00=0x0012, t01=0x00a2}
0x01cf0…01d18 Head {h00=0x0024, h01=0x0050, text=» EXTRN SETSTA SET STATUS (DCSNA)«, t00=0x0012, t01=0x00d8}
0x01d18…01d40 Head {h00=0x0024, h01=0x0050, text=» EXTRN CONCT CONNECT (DCXXX) =2 «, t00=0x0012, t01=0x0100}
0x01d40…01d6c Head {h00=0x0028, h01=0x0050, text=» EXTRN DISCON DISCONNECT (DCXXX) =2 «, t00=0x0012, t01=0x0128}
0x01d6c…01d7a Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0012, t01=0x0154}
0x01d7a…01dc0 Head {h00=0x0042, h01=0x0050, text=»************************************************************* «, t00=0x0012, t01=0x0162}
0x01dc0…01e06 Head {h00=0x0042, h01=0x0050, text=»* * «, t00=0x0013, t01=0x0018}
0x01e06…01e4c Head {h00=0x0042, h01=0x0050, text=»* CONDITIONAL ASSEMBLY PARAMETERS * «, t00=0x0013, t01=0x005e}
0x01e4c…01e92 Head {h00=0x0042, h01=0x0050, text=»* * «, t00=0x0013, t01=0x00a4}
0x01e92…01ed8 Head {h00=0x0042, h01=0x0050, text=»************************************************************* «, t00=0x0013, t01=0x00ea}
0x01ed8…01ee0 Head {h00=0x0004, h01=0x0050, t00=0x0013, t01=0x0130}
0x01ee0…01f0e Head {h00=0x002a, h01=0x0050, text=»X:A EQU 0 SNA HANDLING INCLUDED IF:=1 «, t00=0x0013, t01=0x0138}
0x01f0e…01f20 Head {h00=0x000e, h01=0x0050, text=»SNA EQU 0 «, t00=0x0013, t01=0x0166}
0x01f20…01f4a Head {h00=0x0026, h01=0x0050, text=»X:C EQU 0 OFFLINE HANDLING IF :=1 «, t00=0x0013, t01=0x0178}
0x01f4a…01f5e Head {h00=0x0010, h01=0x0050, text=»OFLIN EQU 0 «, t00=0x0014, t01=0x0012}
0x01f5e…01f86 Head {h00=0x0024, h01=0x0050, text=»X:D EQU 1 NUMBER OF LINES (1-2) «, t00=0x0014, t01=0x0026}
0x01f86…01f9a Head {h00=0x0010, h01=0x0050, text=»NBRLIN EQU 2«, t00=0x0014, t01=0x004e}
0x01f9a…01fc2 Head {h00=0x0024, h01=0x0050, text=»X:F EQU 0 KEY-LOCK STATUS IF:=1 «, t00=0x0014, t01=0x0062}
0x01fc2…01fd6 Head {h00=0x0010, h01=0x0050, text=»KEYLST EQU 0«, t00=0x0014, t01=0x008a}
0x01fd6…01ffe Head {h00=0x0024, h01=0x0050, text=»X:G EQU 0 PF KEY HANDLING IF:=1 «, t00=0x0014, t01=0x009e}
0x01ffe…02010 Head {h00=0x000e, h01=0x0050, text=»PFX EQU 1 «, t00=0x0014, t01=0x00c6}
0x02010…02038 Head {h00=0x0024, h01=0x0050, text=»X:H EQU 0 PA KEY HANDLING IF :=1«, t00=0x0014, t01=0x00d8}
0x02038…0204a Head {h00=0x000e, h01=0x0050, text=»PAX EQU 1 «, t00=0x0014, t01=0x0100}
0x0204a…0207a Head {h00=0x002c, h01=0x0050, text=»X:I EQU 1 INSERT/DELETE HANDLING IF :=1 «, t00=0x0014, t01=0x0112}
0x0207a…0208e Head {h00=0x0010, h01=0x0050, text=»IN:DL EQU 1 «, t00=0x0014, t01=0x0142}
0x0208e…020b6 Head {h00=0x0024, h01=0x0050, text=»X:J EQU 1 KB6272 INCLUDED IF :=1«, t00=0x0014, t01=0x0156}
0x020b6…020ca Head {h00=0x0010, h01=0x0050, text=»KB6272 EQU 1«, t00=0x0014, t01=0x017e}
0x020ca…020f8 (21, 0, 400) Head {h00=0x002a, h01=0x0050, text=»X:M EQU 0 COPY COMMAND INCLUDED IF:=1 «, t00=0x0015, t01=0x0004}
0x020f8…0210c Head {h00=0x0010, h01=0x0050, text=»COPCMD EQU 1«, t00=0x0015, t01=0x0032}
0x0210c…02136 Head {h00=0x0026, h01=0x0050, text=»X:O EQU 0 TEST MODE INCLUDED IF:=1«, t00=0x0015, t01=0x0046}
0x02136…02148 Head {h00=0x000e, h01=0x0050, text=»TEST EQU 0«, t00=0x0015, t01=0x0070}
0x02148…0217c Head {h00=0x0030, h01=0x0050, text=»X:P EQU 0 COPY LOCK FUNCTION INCLUDED IF:=1 «, t00=0x0015, t01=0x0082}
0x0217c…0218e Head {h00=0x000e, h01=0x0050, text=»COPL EQU 0«, t00=0x0015, t01=0x00b6}
0x0218e…0219c Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0015, t01=0x00c8}
0x0219c…021e4 Head {h00=0x0044, h01=0x0050, text=»*************************************************************** «, t00=0x0015, t01=0x00d6}
0x021e4…0222c Head {h00=0x0044, h01=0x0050, text=»* * «, t00=0x0015, t01=0x011e}
0x0222c…02256 Head {h00=0x0026, h01=0x0050, text=»* DECLARATIONS OF DATA AND EQUATES«, t00=0x0015, t01=0x0166}
0x02256…0229e Head {h00=0x0044, h01=0x0050, text=»* * «, t00=0x0015, t01=0x0190}
0x0229e…022e6 Head {h00=0x0044, h01=0x0050, text=»*************************************************************** «, t00=0x0016, t01=0x0048}
0x022e6…022ee Head {h00=0x0004, h01=0x0050, t00=0x0016, t01=0x0090}
0x022ee…022f8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0016, t01=0x0098}
0x022f8…02318 Head {h00=0x001c, h01=0x0050, text=»* PREDEFINED KEYS «, t00=0x0016, t01=0x00a2}
0x02318…02322 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0016, t01=0x00c2}
0x02322…02350 Head {h00=0x002a, h01=0x0050, text=»CRUP EQU /80 FIRST "MOVE CURSOR " KEY «, t00=0x0016, t01=0x00cc}
0x02350…02380 Head {h00=0x002c, h01=0x0050, text=»ERFKEY EQU /88 ERASE TO END OF FIELD-KEY«, t00=0x0016, t01=0x00fa}
0x02380…023a8 Head {h00=0x0024, h01=0x0050, text=»ERIKEY EQU /89 ERASE ALL UNPROT.«, t00=0x0016, t01=0x012a}
0x023a8…023c6 Head {h00=0x001a, h01=0x0050, text=»RSET EQU /8C RESET KEY«, t00=0x0016, t01=0x0152}
0x023c6…023e6 Head {h00=0x001c, h01=0x0050, text=»IDKEY EQU /93 IDENT KEY «, t00=0x0016, t01=0x0170}
0x023e6…02410 Head {h00=0x0026, h01=0x0050, text=»FKLKEY EQU /94 FIRST KEYLOCK VALUE«, t00=0x0016, t01=0x0190}
0x02410…0243a Head {h00=0x0026, h01=0x0050, text=»LKLKEY EQU /9C LAST KEYLOCK VALUE «, t00=0x0017, t01=0x002a}
0x0243a…02466 Head {h00=0x0028, h01=0x0050, text=»FIPA EQU /9F FIRST PROGRAM ATTN. KEY«, t00=0x0017, t01=0x0054}
0x02466…02486 Head {h00=0x001c, h01=0x0050, text=»ENTKEY EQU /A0 ENTER KEY«, t00=0x0017, t01=0x0080}
0x02486…024b0 Head {h00=0x0026, h01=0x0050, text=»SYSKEY EQU /A1 SYSTEM REQUEST KEY «, t00=0x0017, t01=0x00a0}
0x024b0…024d0 Head {h00=0x001c, h01=0x0050, text=»CLRKEY EQU /A2 CLEAR KEY«, t00=0x0017, t01=0x00ca}
0x024d0…024fa Head {h00=0x0026, h01=0x0050, text=»PFKEY EQU /B1 PROGRAM FUNTION KEY «, t00=0x0017, t01=0x00ea}
0x024fa…02526 Head {h00=0x0028, h01=0x0050, text=»LAKEY EQU /C9 LAST KEY IN KEY-TABLE «, t00=0x0017, t01=0x0114}
0x02526…02530 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0017, t01=0x0140}
0x02530…02558 Head {h00=0x0024, h01=0x0050, text=»* EQUATES FOR ECB HANDLING«, t00=0x0017, t01=0x014a}
0x02558…02562 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0017, t01=0x0172}
0x02562…02584 Head {h00=0x001e, h01=0x0050, text=»ECBBA EQU 2 BUFFER ADDRESS«, t00=0x0017, t01=0x017c}
0x02584…025a8 Head {h00=0x0020, h01=0x0050, text=»ECBRL EQU 4 REQUESTED LENGTH«, t00=0x0018, t01=0x000e}
0x025a8…025cc Head {h00=0x0020, h01=0x0050, text=»ECBEL EQU 6 EFFECTIVE LENGTH«, t00=0x0018, t01=0x0032}
0x025cc…025ec Head {h00=0x001c, h01=0x0050, text=»ECBRC EQU 8 RETURN CODE «, t00=0x0018, t01=0x0056}
0x025ec…0260e Head {h00=0x001e, h01=0x0050, text=»ECBCW EQU 10 CONTROL WORD «, t00=0x0018, t01=0x0076}
0x0260e…02638 Head {h00=0x0026, h01=0x0050, text=»ECBCW2 EQU 12 CONTROL WORD TWO DK «, t00=0x0018, t01=0x0098}
0x02638…02642 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0018, t01=0x00c2}
0x02642…0265e Head {h00=0x0018, h01=0x0050, text=»* SPECIAL CHARACTERS«, t00=0x0018, t01=0x00cc}
0x0265e…02668 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0018, t01=0x00e8}
0x02668…02686 Head {h00=0x001a, h01=0x0050, text=»NULL EQU 0 NULL CHAR. «, t00=0x0018, t01=0x00f2}
0x02686…026ac Head {h00=0x0022, h01=0x0050, text=»DUPCH EQU /1C DUPLICATE CHAR. «, t00=0x0018, t01=0x0110}
0x026ac…026d2 Head {h00=0x0022, h01=0x0050, text=»FMCH EQU /1E FIELD MARK CHAR. «, t00=0x0018, t01=0x0136}
0x026d2…026dc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0018, t01=0x015c}
0x026dc…026fa Head {h00=0x001a, h01=0x0050, text=»* LAMPCONSTANTS«, t00=0x0018, t01=0x0166}
0x026fa…02704 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0018, t01=0x0184}
0x02704…02718 Head {h00=0x0010, h01=0x0050, text=»LON EQU /B7 «, t00=0x0018, t01=0x018e}
0x02718…0272c Head {h00=0x0010, h01=0x0050, text=»LOF EQU /B8 «, t00=0x0019, t01=0x0012}
0x0272c…02746 Head {h00=0x0016, h01=0x0050, text=»LFL EQU /B9 FLASH «, t00=0x0019, t01=0x0026}
0x02746…0275c Head {h00=0x0012, h01=0x0050, text=» IFT KB6272=1 «, t00=0x0019, t01=0x0040}
0x0275c…02772 Head {h00=0x0012, h01=0x0050, text=»LAMP1 EQU /20 «, t00=0x0019, t01=0x0056}
0x02772…02788 Head {h00=0x0012, h01=0x0050, text=»LAMP2 EQU /10 «, t00=0x0019, t01=0x006c}
0x02788…0279c Head {h00=0x0010, h01=0x0050, text=»LAMP3 EQU 8 «, t00=0x0019, t01=0x0082}
0x0279c…027b0 Head {h00=0x0010, h01=0x0050, text=»LAMP4 EQU 4 «, t00=0x0019, t01=0x0096}
0x027b0…027c4 Head {h00=0x0010, h01=0x0050, text=»LAMP5 EQU 2 «, t00=0x0019, t01=0x00aa}
0x027c4…027d8 Head {h00=0x0010, h01=0x0050, text=»LAMP6 EQU 1 «, t00=0x0019, t01=0x00be}
0x027d8…027e4 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0019, t01=0x00d2}
0x027e4…027fa Head {h00=0x0012, h01=0x0050, text=» IFF KB6272=1 «, t00=0x0019, t01=0x00de}
0x027fa…0280e Head {h00=0x0010, h01=0x0050, text=»LAMP1 EQU 0 «, t00=0x0019, t01=0x00f4}
0x0280e…02822 Head {h00=0x0010, h01=0x0050, text=»LAMP2 EQU 0 «, t00=0x0019, t01=0x0108}
0x02822…02836 Head {h00=0x0010, h01=0x0050, text=»LAMP3 EQU 1 «, t00=0x0019, t01=0x011c}
0x02836…0284a Head {h00=0x0010, h01=0x0050, text=»LAMP4 EQU 2 «, t00=0x0019, t01=0x0130}
0x0284a…0285e Head {h00=0x0010, h01=0x0050, text=»LAMP5 EQU 4 «, t00=0x0019, t01=0x0144}
0x0285e…02872 Head {h00=0x0010, h01=0x0050, text=»LAMP6 EQU 8 «, t00=0x0019, t01=0x0158}
0x02872…0287e Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0019, t01=0x016c}
0x0287e…02888 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0019, t01=0x0178}
0x02888…028a2 Head {h00=0x0016, h01=0x0050, text=»* VDU SCREEN SIZE «, t00=0x0019, t01=0x0182}
0x028a2…028ac Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001a, t01=0x000c}
0x028ac…028cc Head {h00=0x001c, h01=0x0050, text=»LLINE EQU 80 LINE LENGTH«, t00=0x001a, t01=0x0016}
0x028cc…028ee Head {h00=0x001e, h01=0x0050, text=»LBVDU EQU 1920 TOTAL SIZE «, t00=0x001a, t01=0x0036}
0x028ee…028f8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001a, t01=0x0058}
0x028f8…02908 Head {h00=0x000c, h01=0x0050, text=»* MODES «, t00=0x001a, t01=0x0062}
0x02908…02912 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001a, t01=0x0072}
0x02912…02934 Head {h00=0x001e, h01=0x0050, text=»NEWMOD EQU /8000 NEW MODE «, t00=0x001a, t01=0x007c}
0x02934…02962 Head {h00=0x002a, h01=0x0050, text=»HCPMOD EQU /4000 HARDCOPY OUTSTANDING «, t00=0x001a, t01=0x009e}
0x02962…02986 Head {h00=0x0020, h01=0x0050, text=»MYJOB EQU /0004 MY JOB MODE «, t00=0x001a, t01=0x00cc}
0x02986…029b2 Head {h00=0x0028, h01=0x0050, text=»SYSOP EQU /0002 SYSTEM OPERATOR MODE«, t00=0x001a, t01=0x00f0}
0x029b2…029d6 Head {h00=0x0020, h01=0x0050, text=»LOCMOD EQU /0000 LOCAL MODE «, t00=0x001a, t01=0x011c}
0x029d6…029e0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001a, t01=0x0140}
0x029e0…02a02 Head {h00=0x001e, h01=0x0050, text=»* TASK IDENTIFICATION CODE«, t00=0x001a, t01=0x014a}
0x02a02…02a0c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001a, t01=0x016c}
0x02a0c…02a30 Head {h00=0x0020, h01=0x0050, text=»VDUCOD EQU 'VV' VDU KB TASK «, t00=0x001a, t01=0x0176}
0x02a30…02a3e Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x001b, t01=0x000a}
0x02a3e…02a48 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001b, t01=0x0018}
0x02a48…02a68 Head {h00=0x001c, h01=0x0050, text=»* RELATIVE ADDRESSES IN «, t00=0x001b, t01=0x0022}
0x02a68…02a84 Head {h00=0x0018, h01=0x0050, text=»* TERMINAL WORKBLOCK«, t00=0x001b, t01=0x0042}
0x02a84…02a8e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001b, t01=0x005e}
0x02a8e…02ab2 Head {h00=0x0020, h01=0x0050, text=»BVDU EQU 2 VDU SCREEN BUFFER«, t00=0x001b, t01=0x0068}
0x02ab2…02ada Head {h00=0x0024, h01=0x0050, text=»LINFLG EQU BVDU+1920 LINE FLAGS «, t00=0x001b, t01=0x008c}
0x02ada…02afe Head {h00=0x0020, h01=0x0050, text=»WCC EQU LINFLG+30 WCC CHAR. «, t00=0x001b, t01=0x00b4}
0x02afe…02b30 Head {h00=0x002e, h01=0x0050, text=»KBINH EQU WCC+2 KEYBOARD INHIBIT INDICATOR«, t00=0x001b, t01=0x00d8}
0x02b30…02b58 Head {h00=0x0024, h01=0x0050, text=»OFFFLG EQU KBINH+8 OFFLINE FLAG «, t00=0x001b, t01=0x010a}
0x02b58…02b84 Head {h00=0x0028, h01=0x0050, text=»PRTID EQU OFFFLG+2 HARDCOPY PRINTER «, t00=0x001b, t01=0x0132}
0x02b84…02ba8 Head {h00=0x0020, h01=0x0050, text=»MAIN EQU PRTID+6 MAIN FRAME «, t00=0x001b, t01=0x015e}
0x02ba8…02bd2 Head {h00=0x0026, h01=0x0050, text=»MODE EQU MAIN+2 INSERT MODE SWITCH«, t00=0x001b, t01=0x0182}
0x02bd2…02bfa Head {h00=0x0024, h01=0x0050, text=»KEYS EQU MODE+2 KEY LOCK STATUS «, t00=0x001c, t01=0x001c}
0x02bfa…02c32 Head {h00=0x0034, h01=0x0050, text=»RDMORE EQU KEYS+12 BRANCH ADDRESS TO NEXT KB-KEY«, t00=0x001c, t01=0x0044}
0x02c32…02c68 Head {h00=0x0032, h01=0x0050, text=»CURPOS EQU RDMORE+2 CURSOR POS. IN SYSTEM MODE«, t00=0x001c, t01=0x007c}
0x02c68…02c8c Head {h00=0x0020, h01=0x0050, text=»REGI EQU CURPOS+4 SAVE AREA «, t00=0x001c, t01=0x00b2}
0x02c8c…02cb0 Head {h00=0x0020, h01=0x0050, text=»SNAMOD EQU REGI+32 SNA MODE «, t00=0x001c, t01=0x00d6}
0x02cb0…02cd2 Head {h00=0x001e, h01=0x0050, text=»BSCMOD EQU SNAMOD BSC MODE«, t00=0x001c, t01=0x00fa}
0x02cd2…02cf4 Head {h00=0x001e, h01=0x0050, text=»ECBKB EQU BSCMOD+2 ECB KB «, t00=0x001c, t01=0x011c}
0x02cf4…02d20 Head {h00=0x0028, h01=0x0050, text=»ECBSD EQU ECBKB+4 ECB SIGNAL DISPLAY«, t00=0x001c, t01=0x013e}
0x02d20…02d4e Head {h00=0x002a, h01=0x0050, text=»ECBICR EQU ECBSD+4 ECB INTERTASK READ «, t00=0x001c, t01=0x016a}
0x02d4e…02d7c Head {h00=0x002a, h01=0x0050, text=»ECBICW EQU ECBICR+2 ECB INTERTAS WRITE«, t00=0x001d, t01=0x0008}
0x02d7c…02dac Head {h00=0x002c, h01=0x0050, text=»ECBKB2 EQU ECBICW+6 ECB 2ND KEYBOARD DK «, t00=0x001d, t01=0x0036}
0x02dac…02db6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001d, t01=0x0066}
0x02db6…02dd6 Head {h00=0x001c, h01=0x0050, text=»* RELATIVE ADDRESSES IN «, t00=0x001d, t01=0x0070}
0x02dd6…02df0 Head {h00=0x0016, h01=0x0050, text=»* COMMON WORKBLOCK«, t00=0x001d, t01=0x0090}
0x02df0…02dfa Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001d, t01=0x00aa}
0x02dfa…02e0e Head {h00=0x0010, h01=0x0050, text=» IFF TEST=1 «, t00=0x001d, t01=0x00b4}
0x02e0e…02e2e Head {h00=0x001c, h01=0x0050, text=»TSKTAB EQU 26 TASK TABLE«, t00=0x001d, t01=0x00c8}
0x02e2e…02e3a Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x001d, t01=0x00e8}
0x02e3a…02e4e Head {h00=0x0010, h01=0x0050, text=» IFT TEST=1 «, t00=0x001d, t01=0x00f4}
0x02e4e…02e70 Head {h00=0x001e, h01=0x0050, text=»TSKTAB EQU 219 TASK TABLE «, t00=0x001d, t01=0x0108}
0x02e70…02e7c Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x001d, t01=0x012a}
0x02e7c…02e8a Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x001d, t01=0x0136}
0x02e8a…02ed2 Head {h00=0x0044, h01=0x0050, text=»****************************************************************«, t00=0x001d, t01=0x0144}
0x02ed2…02f1a Head {h00=0x0044, h01=0x0050, text=»* *«, t00=0x001d, t01=0x018c}
0x02f1a…02f62 Head {h00=0x0044, h01=0x0050, text=»* KBINP MAIN ROUTINE *«, t00=0x001e, t01=0x0044}
0x02f62…02faa Head {h00=0x0044, h01=0x0050, text=»* *«, t00=0x001e, t01=0x008c}
0x02faa…02ff2 Head {h00=0x0044, h01=0x0050, text=»****************************************************************«, t00=0x001e, t01=0x00d4}
0x02ff2…03006 Head {h00=0x0010, h01=0x0050, text=»* REGISTERS«, t00=0x001e, t01=0x011c}
0x03006…03010 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001e, t01=0x0130}
0x03010…03028 Head {h00=0x0014, h01=0x0050, text=»* A2= KEY-CHAR. «, t00=0x001e, t01=0x013a}
0x03028…03046 Head {h00=0x001a, h01=0x0050, text=»* A3= KEY-TABLE INDEX «, t00=0x001e, t01=0x0152}
0x03046…0305c Head {h00=0x0012, h01=0x0050, text=»* A4= RESERVED«, t00=0x001e, t01=0x0170}
0x0305c…03072 Head {h00=0x0012, h01=0x0050, text=»* A5= RESERVED«, t00=0x001e, t01=0x0186}
0x03072…03088 Head {h00=0x0012, h01=0x0050, text=»* A6= RESERVED«, t00=0x001f, t01=0x000c}
0x03088…030ac Head {h00=0x0020, h01=0x0050, text=»* A7= KEY-HANDLING INDICATOR«, t00=0x001f, t01=0x0022}
0x030ac…030cc Head {h00=0x001c, h01=0x0050, text=»* A11= CREDIT WORK AREA «, t00=0x001f, t01=0x0046}
0x030cc…030e4 Head {h00=0x0014, h01=0x0050, text=»* A13= RESERVED «, t00=0x001f, t01=0x0066}
0x030e4…030ee Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001f, t01=0x007e}
0x030ee…03132 Head {h00=0x0040, h01=0x0050, text=»*********************************************************** «, t00=0x001f, t01=0x0088}
0x03132…03148 Head {h00=0x0012, h01=0x0050, text=»KBINP2 EQU * «, t00=0x001f, t01=0x00cc}
0x03148…0317a Head {h00=0x002e, h01=0x0050, text=» LDK A1,1 INDICATE 2ND KEYBOARD PRESENT DK«, t00=0x001f, t01=0x00e2}
0x0317a…03196 Head {h00=0x0018, h01=0x0050, text=» ST A1,ECBCW2,A8 DK«, t00=0x001f, t01=0x0114}
0x03196…031aa Head {h00=0x0010, h01=0x0050, text=»KBINP EQU * «, t00=0x001f, t01=0x0130}
0x031aa…031de Head {h00=0x0030, h01=0x0050, text=»* NO CHECK ON POWER OFF....DK 81-10-17 * «, t00=0x001f, t01=0x0144}
0x031de…031f4 Head {h00=0x0012, h01=0x0050, text=» IFT KEYLST=0 «, t00=0x001f, t01=0x0178}
0x031f4…03220 Head {h00=0x0028, h01=0x0050, text=» LD A1,ECBCW,A8 SEE IF KEYLOCK ? DK «, t00=0x001f, t01=0x018e}
0x03220…03240 Head {h00=0x001c, h01=0x0050, text=» RF(N) KBIN80 SKIP IT DK«, t00=0x0020, t01=0x002a}
0x03240…0324c Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0020, t01=0x004a}
0x0324c…03262 Head {h00=0x0012, h01=0x0050, text=» IFT KEYLST=1 «, t00=0x0020, t01=0x0056}
0x03262…0328c Head {h00=0x0026, h01=0x0050, text=» LC* A2,ECBBA,A8 GET KEYLOCK VALUE«, t00=0x0020, t01=0x006c}
0x0328c…032ba Head {h00=0x002a, h01=0x0050, text=» ADKL A2,FKLKEY-/70 PREPARE FOR TABLE «, t00=0x0020, t01=0x0096}
0x032ba…032da Head {h00=0x001c, h01=0x0050, text=» SC* A2,ECBBA,A8 RESTORE«, t00=0x0020, t01=0x00c4}
0x032da…032e6 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0020, t01=0x00e4}
0x032e6…03304 Head {h00=0x001a, h01=0x0050, text=» LD A1,ECBRC,A8 ERROR?«, t00=0x0020, t01=0x00f0}
0x03304…0331a Head {h00=0x0012, h01=0x0050, text=» ANKL A1,/FFF3«, t00=0x0020, t01=0x010e}
0x0331a…03334 Head {h00=0x0016, h01=0x0050, text=» RF(NZ) KBIN80 YES«, t00=0x0020, t01=0x0124}
0x03334…0334c Head {h00=0x0014, h01=0x0050, text=» LD A1,KBINH,A11«, t00=0x0020, t01=0x013e}
0x0334c…03370 Head {h00=0x0020, h01=0x0050, text=» ANK A1,1 KB TOTALY INHIBIT?«, t00=0x0020, t01=0x0156}
0x03370…0338a Head {h00=0x0016, h01=0x0050, text=» RF(NZ) KBIN80 YES«, t00=0x0020, t01=0x017a}
0x0338a…033b2 (33, 0, 400) Head {h00=0x0024, h01=0x0050, text=» LC* A2,ECBBA,A8 GET INPUT CHAR.«, t00=0x0021, t01=0x0004}
0x033b2…033c6 Head {h00=0x0010, h01=0x0050, text=» ANK A2,/FF «, t00=0x0021, t01=0x002c}
0x033c6…033de Head {h00=0x0014, h01=0x0050, text=» LD A1,KBINH,A11«, t00=0x0021, t01=0x0040}
0x033de…03404 Head {h00=0x0022, h01=0x0050, text=» ANK A1,6 MUST BE A RESET KEY?«, t00=0x0021, t01=0x0058}
0x03404…0341c Head {h00=0x0014, h01=0x0050, text=» RF(Z) KBIN30 NO«, t00=0x0021, t01=0x007e}
0x0341c…0343c Head {h00=0x001c, h01=0x0050, text=» CWK A2,RSET RESET KEY? «, t00=0x0021, t01=0x0096}
0x0343c…0344e Head {h00=0x000e, h01=0x0050, text=» IFT SNA=1«, t00=0x0021, t01=0x00b6}
0x0344e…03468 Head {h00=0x0016, h01=0x0050, text=» RF(E) KBIN30 YES «, t00=0x0021, t01=0x00c8}
0x03468…03492 Head {h00=0x0026, h01=0x0050, text=» CWK A2,SYSKEY SYSTEM REQUEST KEY?«, t00=0x0021, t01=0x00e2}
0x03492…0349e Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0021, t01=0x010c}
0x0349e…034b8 Head {h00=0x0016, h01=0x0050, text=» RF(NE) KBIN80 NO «, t00=0x0021, t01=0x0118}
0x034b8…034cc Head {h00=0x0010, h01=0x0050, text=»KBIN30 EQU *«, t00=0x0021, t01=0x0132}
0x034cc…034de Head {h00=0x000e, h01=0x0050, text=» LDR A3,A2«, t00=0x0021, t01=0x0146}
0x034de…03504 Head {h00=0x0022, h01=0x0050, text=» SUK A3,/20 INDEX TO KEY-TABLE«, t00=0x0021, t01=0x0158}
0x03504…03526 Head {h00=0x001e, h01=0x0050, text=» RF(N) KBIN80 ILLEGAL CHAR«, t00=0x0021, t01=0x017e}
0x03526…0353c Head {h00=0x0012, h01=0x0050, text=» CWK A2,LAKEY «, t00=0x0022, t01=0x0010}
0x0353c…0355e Head {h00=0x001e, h01=0x0050, text=» RF(G) KBIN80 ILLEGAL CHAR«, t00=0x0022, t01=0x0026}
0x0355e…03570 Head {h00=0x000e, h01=0x0050, text=» IFT SNA=1«, t00=0x0022, t01=0x0048}
0x03570…03596 Head {h00=0x0022, h01=0x0050, text=» LD A1,SNAMOD,A11 GET SNA MODE«, t00=0x0022, t01=0x005a}
0x03596…035aa Head {h00=0x0010, h01=0x0050, text=» ANK A1,/FF «, t00=0x0022, t01=0x0080}
0x035aa…035e0 Head {h00=0x0032, h01=0x0050, text=» CFI A14,CPLKB,A1 COMPLETE KB IN CURRENT MODE «, t00=0x0022, t01=0x0094}
0x035e0…035ec Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0022, t01=0x00ca}
0x035ec…035fe Head {h00=0x000e, h01=0x0050, text=» IFF SNA=1«, t00=0x0022, t01=0x00d6}
0x035fe…03610 Head {h00=0x000e, h01=0x0050, text=» LDK A7,0 «, t00=0x0022, t01=0x00e8}
0x03610…03636 Head {h00=0x0022, h01=0x0050, text=» CWK A2,FIPA PROGRAM ATTN KEY?«, t00=0x0022, t01=0x00fa}
0x03636…0364e Head {h00=0x0014, h01=0x0050, text=» RF(L) KBIN40 NO«, t00=0x0022, t01=0x0120}
0x0364e…03662 Head {h00=0x0010, h01=0x0050, text=» CM MODE,A11«, t00=0x0022, t01=0x0138}
0x03662…0368a Head {h00=0x0024, h01=0x0050, text=» CF A14,LMP6OF CLEAR INSERT MODE«, t00=0x0022, t01=0x014c}
0x0368a…036a0 Head {h00=0x0012, h01=0x0050, text=» CF A14,DCABOR«, t00=0x0022, t01=0x0174}
0x036a0…036b4 Head {h00=0x0010, h01=0x0050, text=»KBIN40 EQU *«, t00=0x0022, t01=0x018a}
0x036b4…036c0 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0023, t01=0x000e}
0x036c0…036e4 Head {h00=0x0020, h01=0x0050, text=» LDR A7,A7 ANY KEY-HANDLING «, t00=0x0023, t01=0x001a}
0x036e4…036fe Head {h00=0x0016, h01=0x0050, text=» RF(NZ) KBIN80 NO «, t00=0x0023, t01=0x003e}
0x036fe…03726 Head {h00=0x0024, h01=0x0050, text=» ADR A3,A3 PREPARE FOR KEY-TABLE«, t00=0x0023, t01=0x0058}
0x03726…03750 Head {h00=0x0026, h01=0x0050, text=» LD A1,RDMORE,A11 KEY IN SEQUENCE?«, t00=0x0023, t01=0x0080}
0x03750…03768 Head {h00=0x0014, h01=0x0050, text=» RF(Z) KBIN50 NO«, t00=0x0023, t01=0x00aa}
0x03768…03790 Head {h00=0x0024, h01=0x0050, text=» CF A14,DCABOR KILL DC AGAIN DK «, t00=0x0023, t01=0x00c2}
0x03790…037b8 Head {h00=0x0024, h01=0x0050, text=» LD A1,RDMORE,A11 RESTORE A1 DK2«, t00=0x0023, t01=0x00ea}
0x037b8…037e4 Head {h00=0x0028, h01=0x0050, text=» CFR A14,A1 CONTINUE AT SAVED LABEL «, t00=0x0023, t01=0x0112}
0x037e4…037f6 Head {h00=0x000e, h01=0x0050, text=» RF KBIN90«, t00=0x0023, t01=0x013e}
0x037f6…0380a Head {h00=0x0010, h01=0x0050, text=»KBIN50 EQU *«, t00=0x0023, t01=0x0150}
0x0380a…03840 Head {h00=0x0032, h01=0x0050, text=» CFI A14,KEYTAB,A3 BRANCH TO RESP. KEY-HANDLER«, t00=0x0023, t01=0x0164}
0x03840…03852 Head {h00=0x000e, h01=0x0050, text=» RF KBIN90«, t00=0x0024, t01=0x000a}
0x03852…03866 Head {h00=0x0010, h01=0x0050, text=»KBIN80 EQU *«, t00=0x0024, t01=0x001c}
0x03866…0388c Head {h00=0x0022, h01=0x0050, text=» CF A14,RESKB RESET KB BUFFER «, t00=0x0024, t01=0x0030}
0x0388c…038a0 Head {h00=0x0010, h01=0x0050, text=»KBIN90 EQU *«, t00=0x0024, t01=0x0056}
0x038a0…038b0 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0024, t01=0x006a}
0x038b0…038be Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0024, t01=0x007a}
0x038be…038d0 Head {h00=0x000e, h01=0x0050, text=» IFT SNA=1«, t00=0x0024, t01=0x0088}
0x038d0…0391e Head {h00=0x004a, h01=0x0050, text=»********************************************************************* «, t00=0x0024, t01=0x009a}
0x0391e…0396c Head {h00=0x004a, h01=0x0050, text=»* * «, t00=0x0024, t01=0x00e8}
0x0396c…039ba Head {h00=0x004a, h01=0x0050, text=»* CPLKB KB-COMPLETION TABLE * «, t00=0x0024, t01=0x0136}
0x039ba…03a08 Head {h00=0x004a, h01=0x0050, text=»* * «, t00=0x0024, t01=0x0184}
0x03a08…03a56 Head {h00=0x004a, h01=0x0050, text=»********************************************************************* «, t00=0x0025, t01=0x0042}
0x03a56…03a6a Head {h00=0x0010, h01=0x0050, text=»CPLKB EQU * «, t00=0x0025, t01=0x0090}
0x03a6a…03a96 Head {h00=0x0028, h01=0x0050, text=» DATA KBCPLO KB-COMPL. IN LOCAL MODE«, t00=0x0025, t01=0x00a4}
0x03a96…03ac4 Head {h00=0x002a, h01=0x0050, text=» DATA KBCPSY KB-COMPL. IN SYSTEM MODE «, t00=0x0025, t01=0x00d0}
0x03ac4…03af2 Head {h00=0x002a, h01=0x0050, text=» DATA KBCPJO KB-COMPL. IN MY JOB MODE «, t00=0x0025, t01=0x00fe}
0x03af2…03b00 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0025, t01=0x012c}
0x03b00…03b4e Head {h00=0x004a, h01=0x0050, text=»********************************************************************* «, t00=0x0025, t01=0x013a}
0x03b4e…03b9c Head {h00=0x004a, h01=0x0050, text=»* * «, t00=0x0025, t01=0x0188}
0x03b9c…03bea Head {h00=0x004a, h01=0x0050, text=»* KBCLO KB-COMPLETION IN LOCAL MODE * «, t00=0x0026, t01=0x0046}
0x03bea…03c38 Head {h00=0x004a, h01=0x0050, text=»* * «, t00=0x0026, t01=0x0094}
0x03c38…03c86 Head {h00=0x004a, h01=0x0050, text=»********************************************************************* «, t00=0x0026, t01=0x00e2}
0x03c86…03c9a Head {h00=0x0010, h01=0x0050, text=»* REGISTERS«, t00=0x0026, t01=0x0130}
0x03c9a…03ca4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0026, t01=0x0144}
0x03ca4…03cba Head {h00=0x0012, h01=0x0050, text=»* A2= KEY-CHAR«, t00=0x0026, t01=0x014e}
0x03cba…03cd8 Head {h00=0x001a, h01=0x0050, text=»* A3= KEY-TABLE INDEX «, t00=0x0026, t01=0x0164}
0x03cd8…03cee Head {h00=0x0012, h01=0x0050, text=»* A4= RESERVED«, t00=0x0026, t01=0x0182}
0x03cee…03d04 Head {h00=0x0012, h01=0x0050, text=»* A5= RESERVED«, t00=0x0027, t01=0x0008}
0x03d04…03d1a Head {h00=0x0012, h01=0x0050, text=»* A6= RESERVED«, t00=0x0027, t01=0x001e}
0x03d1a…03d3e Head {h00=0x0020, h01=0x0050, text=»* A7= KEY-HANDLING INDICATOR«, t00=0x0027, t01=0x0034}
0x03d3e…03d5e Head {h00=0x001c, h01=0x0050, text=»* A11= CREDIT WORK AREA «, t00=0x0027, t01=0x0058}
0x03d5e…03d76 Head {h00=0x0014, h01=0x0050, text=»* A13= RESERVED «, t00=0x0027, t01=0x0078}
0x03d76…03d80 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0027, t01=0x0090}
0x03d80…03dc4 Head {h00=0x0040, h01=0x0050, text=»*********************************************************** «, t00=0x0027, t01=0x009a}
0x03dc4…03dd8 Head {h00=0x0010, h01=0x0050, text=»KBCPLO EQU *«, t00=0x0027, t01=0x00de}
0x03dd8…03e00 Head {h00=0x0024, h01=0x0050, text=» LDK A7,0 INDICATE KEY-HANDLING «, t00=0x0027, t01=0x00f2}
0x03e00…03e28 Head {h00=0x0024, h01=0x0050, text=» CWK A2,FIPA PROGRAM ATTN, KEY? «, t00=0x0027, t01=0x011a}
0x03e28…03e42 Head {h00=0x0016, h01=0x0050, text=» RF(NG) KBCL90 NO «, t00=0x0027, t01=0x0142}
0x03e42…03e64 Head {h00=0x001e, h01=0x0050, text=» LDK A7,1 NO KEY-HANDLING «, t00=0x0027, t01=0x015c}
0x03e64…03e8a Head {h00=0x0022, h01=0x0050, text=» CWK A2,SYSKEY SYSTEM REQUEST?«, t00=0x0027, t01=0x017e}
0x03e8a…03ea4 Head {h00=0x0016, h01=0x0050, text=» RF(NE) KBCL80 NO «, t00=0x0028, t01=0x0014}
0x03ea4…03ece Head {h00=0x0026, h01=0x0050, text=» CF A14,OPSYS START COMMUNICATION «, t00=0x0028, t01=0x002e}
0x03ece…03ef0 Head {h00=0x001e, h01=0x0050, text=» CF A14,TSTSTA TEST STATUS«, t00=0x0028, t01=0x0058}
0x03ef0…03f0e Head {h00=0x001a, h01=0x0050, text=» ANKL A1,/101 ACTIVE? «, t00=0x0028, t01=0x007a}
0x03f0e…03f28 Head {h00=0x0016, h01=0x0050, text=» RF(NZ) KBCL90 NO «, t00=0x0028, t01=0x0098}
0x03f28…03f52 Head {h00=0x0026, h01=0x0050, text=» LDK A1,SYSOP INDICATE SYSTEM MODE«, t00=0x0028, t01=0x00b2}
0x03f52…03f82 Head {h00=0x002c, h01=0x0050, text=» ORKL A1,/8000 INDICATE MODE ACTIVATION «, t00=0x0028, t01=0x00dc}
0x03f82…03f9c Head {h00=0x0016, h01=0x0050, text=» ST A1,SNAMOD,A11 «, t00=0x0028, t01=0x010c}
0x03f9c…03fae Head {h00=0x000e, h01=0x0050, text=» RF KBCL90«, t00=0x0028, t01=0x0126}
0x03fae…03fc2 Head {h00=0x0010, h01=0x0050, text=»KBCL80 EQU *«, t00=0x0028, t01=0x0138}
0x03fc2…03fe4 Head {h00=0x001e, h01=0x0050, text=» CWK A2,ENTKEY ENTER KEY? «, t00=0x0028, t01=0x014c}
0x03fe4…03ffe Head {h00=0x0016, h01=0x0050, text=» RF(NE) KBCL85 NO «, t00=0x0028, t01=0x016e}
0x03ffe…0402e Head {h00=0x002c, h01=0x0050, text=» LD A1,RDMORE,A11 INSIDE IDENT ROUTINE? «, t00=0x0028, t01=0x0188}
0x0402e…04046 Head {h00=0x0014, h01=0x0050, text=» RF(Z) KBCL85 NO«, t00=0x0029, t01=0x0028}
0x04046…0406e Head {h00=0x0024, h01=0x0050, text=» LDK A7,0 INDICATE KEY-HANDLING «, t00=0x0029, t01=0x0040}
0x0406e…04080 Head {h00=0x000e, h01=0x0050, text=» RF KBCL90«, t00=0x0029, t01=0x0068}
0x04080…04094 Head {h00=0x0010, h01=0x0050, text=»KBCL85 EQU *«, t00=0x0029, t01=0x007a}
0x04094…040b6 Head {h00=0x001e, h01=0x0050, text=» CF A14,ERROR ILLEGAL KEY «, t00=0x0029, t01=0x008e}
0x040b6…040ca Head {h00=0x0010, h01=0x0050, text=»KBCL90 EQU *«, t00=0x0029, t01=0x00b0}
0x040ca…040da Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0029, t01=0x00c4}
0x040da…040e8 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0029, t01=0x00d4}
0x040e8…04134 Head {h00=0x0048, h01=0x0050, text=»********************************************************************«, t00=0x0029, t01=0x00e2}
0x04134…04180 Head {h00=0x0048, h01=0x0050, text=»* *«, t00=0x0029, t01=0x012e}
0x04180…041cc Head {h00=0x0048, h01=0x0050, text=»* KBCPSY KB-COMPLETION IN SYSTEM MODE *«, t00=0x0029, t01=0x017a}
0x041cc…04218 Head {h00=0x0048, h01=0x0050, text=»* *«, t00=0x002a, t01=0x0036}
0x04218…04264 Head {h00=0x0048, h01=0x0050, text=»********************************************************************«, t00=0x002a, t01=0x0082}
0x04264…04278 Head {h00=0x0010, h01=0x0050, text=»* REGISTERS«, t00=0x002a, t01=0x00ce}
0x04278…04282 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002a, t01=0x00e2}
0x04282…04298 Head {h00=0x0012, h01=0x0050, text=»* A2= KEY-CHAR«, t00=0x002a, t01=0x00ec}
0x04298…042b6 Head {h00=0x001a, h01=0x0050, text=»* A3= KEY-TABLE INDEX «, t00=0x002a, t01=0x0102}
0x042b6…042cc Head {h00=0x0012, h01=0x0050, text=»* A4= RESERVED«, t00=0x002a, t01=0x0120}
0x042cc…042e2 Head {h00=0x0012, h01=0x0050, text=»* A5= RESERVED«, t00=0x002a, t01=0x0136}
0x042e2…042f8 Head {h00=0x0012, h01=0x0050, text=»* A6= RESERVED«, t00=0x002a, t01=0x014c}
0x042f8…0431c Head {h00=0x0020, h01=0x0050, text=»* A7= KEY-HANDLING INDICATOR«, t00=0x002a, t01=0x0162}
0x0431c…0433c Head {h00=0x001c, h01=0x0050, text=»* A11= CREDIT WORK AREA «, t00=0x002a, t01=0x0186}
0x0433c…04354 Head {h00=0x0014, h01=0x0050, text=»* A13= RESERVED «, t00=0x002b, t01=0x0016}
0x04354…0435e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002b, t01=0x002e}
0x0435e…043a2 Head {h00=0x0040, h01=0x0050, text=»*********************************************************** «, t00=0x002b, t01=0x0038}
0x043a2…043b6 Head {h00=0x0010, h01=0x0050, text=»KBCPSY EQU *«, t00=0x002b, t01=0x007c}
0x043b6…043de Head {h00=0x0024, h01=0x0050, text=» LDK A7,0 INDICATE KEY-HANDLING «, t00=0x002b, t01=0x0090}
0x043de…04406 Head {h00=0x0024, h01=0x0050, text=» CWK A2,FIPA PROGRAM ATTN. KEY? «, t00=0x002b, t01=0x00b8}
0x04406…0441e Head {h00=0x0014, h01=0x0050, text=» RF(L) KBCS20 NO«, t00=0x002b, t01=0x00e0}
0x0441e…04452 Head {h00=0x0030, h01=0x0050, text=» CWK A2,CLRKEY UNALLOWED PROGRAM ATTN. KEY? «, t00=0x002b, t01=0x00f8}
0x04452…04476 Head {h00=0x0020, h01=0x0050, text=» RF(NE) KBCS10 NOT CLEAR KEY«, t00=0x002b, t01=0x012c}
0x04476…044a0 Head {h00=0x0026, h01=0x0050, text=» LDK A7,1 INDICATE NO KEY-HANDLING«, t00=0x002b, t01=0x0150}
0x044a0…044ca Head {h00=0x0026, h01=0x0050, text=» CF A14,ERASE ERASE ENTIRE SCREEN «, t00=0x002b, t01=0x017a}
0x044ca…044dc Head {h00=0x000e, h01=0x0050, text=» RF KBCS80«, t00=0x002c, t01=0x0014}
0x044dc…044f0 Head {h00=0x0010, h01=0x0050, text=»KBCS10 EQU *«, t00=0x002c, t01=0x0026}
0x044f0…0450a Head {h00=0x0016, h01=0x0050, text=» RF(G) KBCS70 YES «, t00=0x002c, t01=0x003a}
0x0450a…0451e Head {h00=0x0010, h01=0x0050, text=» CM MODE,A11«, t00=0x002c, t01=0x0054}
0x0451e…04546 Head {h00=0x0024, h01=0x0050, text=» CF A14,LMP6OF CLEAR INSERT MODE«, t00=0x002c, t01=0x0068}
0x04546…04566 Head {h00=0x001c, h01=0x0050, text=» CF A14,DCABOR ABORT DC «, t00=0x002c, t01=0x0090}
0x04566…04578 Head {h00=0x000e, h01=0x0050, text=» RF KBCS80«, t00=0x002c, t01=0x00b0}
0x04578…0458c Head {h00=0x0010, h01=0x0050, text=»KBCS20 EQU *«, t00=0x002c, t01=0x00c2}
0x0458c…045b4 Head {h00=0x0024, h01=0x0050, text=» CWK A2,ERIKEY ERASE INPUT KEY? «, t00=0x002c, t01=0x00d6}
0x045b4…045ce Head {h00=0x0016, h01=0x0050, text=» RF(E) KBCS80 YES «, t00=0x002c, t01=0x00fe}
0x045ce…045fc Head {h00=0x002a, h01=0x0050, text=» CWK A2,ERFKEY ERASE END OF FIELD KEY?«, t00=0x002c, t01=0x0118}
0x045fc…04616 Head {h00=0x0016, h01=0x0050, text=» RF(E) KBCS80 YES «, t00=0x002c, t01=0x0146}
0x04616…0463e Head {h00=0x0024, h01=0x0050, text=» CWK A2,CRUP INITIATE CURSOR? =1«, t00=0x002c, t01=0x0160}
0x0463e…0465a Head {h00=0x0018, h01=0x0050, text=» RF(NL) KBCS90 NO =1«, t00=0x002c, t01=0x0188}
0x0465a…04674 Head {h00=0x0016, h01=0x0050, text=» LD A1,CURPOS,A11 «, t00=0x002d, t01=0x0014}
0x04674…0469a Head {h00=0x0022, h01=0x0050, text=» CWK A1,/800 CURSOR INITIATED?«, t00=0x002d, t01=0x002e}
0x0469a…046b4 Head {h00=0x0016, h01=0x0050, text=» RF(NE) KBCS90 YES«, t00=0x002d, t01=0x0054}
0x046b4…046dc Head {h00=0x0024, h01=0x0050, text=» CF A14,SCRINF GET SCREEN INFO. «, t00=0x002d, t01=0x006e}
0x046dc…04706 Head {h00=0x0026, h01=0x0050, text=» ST A4,CURPOS,A11 INITIATE CURSOR «, t00=0x002d, t01=0x0096}
0x04706…04718 Head {h00=0x000e, h01=0x0050, text=» RF KBCS90«, t00=0x002d, t01=0x00c0}
0x04718…0472c Head {h00=0x0010, h01=0x0050, text=»KBCS70 EQU *«, t00=0x002d, t01=0x00d2}
0x0472c…04750 Head {h00=0x0020, h01=0x0050, text=» CF A14,ERROR INDICATE ERROR«, t00=0x002d, t01=0x00e6}
0x04750…04772 Head {h00=0x001e, h01=0x0050, text=» LDK A7,1 NO KEY-HANDLING «, t00=0x002d, t01=0x010a}
0x04772…04784 Head {h00=0x000e, h01=0x0050, text=» RF KBCS90«, t00=0x002d, t01=0x012c}
0x04784…04798 Head {h00=0x0010, h01=0x0050, text=»KBCS80 EQU *«, t00=0x002d, t01=0x013e}
0x04798…047c8 Head {h00=0x002c, h01=0x0050, text=» LDKL A1,NEWMOD INDICATE MODE ACTIVATION«, t00=0x002d, t01=0x0152}
0x047c8…047e2 Head {h00=0x0016, h01=0x0050, text=» ORS A1,SNAMOD,A11«, t00=0x002d, t01=0x0182}
0x047e2…047f6 Head {h00=0x0010, h01=0x0050, text=»KBCS90 EQU *«, t00=0x002e, t01=0x000c}
0x047f6…04806 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x002e, t01=0x0020}
0x04806…04814 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x002e, t01=0x0030}
0x04814…0485e Head {h00=0x0046, h01=0x0050, text=»******************************************************************«, t00=0x002e, t01=0x003e}
0x0485e…048a8 Head {h00=0x0046, h01=0x0050, text=»* *«, t00=0x002e, t01=0x0088}
0x048a8…048f2 Head {h00=0x0046, h01=0x0050, text=»* KBCPJO KB-COMPLETION IN MY JOB MODE *«, t00=0x002e, t01=0x00d2}
0x048f2…0493c Head {h00=0x0046, h01=0x0050, text=»* *«, t00=0x002e, t01=0x011c}
0x0493c…04986 Head {h00=0x0046, h01=0x0050, text=»******************************************************************«, t00=0x002e, t01=0x0166}
0x04986…0499a Head {h00=0x0010, h01=0x0050, text=»* REGISTERS«, t00=0x002f, t01=0x0020}
0x0499a…049a4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002f, t01=0x0034}
0x049a4…049ba Head {h00=0x0012, h01=0x0050, text=»* A2= KEY-CHAR«, t00=0x002f, t01=0x003e}
0x049ba…049d8 Head {h00=0x001a, h01=0x0050, text=»* A3= KEY-TABLE INDEX «, t00=0x002f, t01=0x0054}
0x049d8…049ee Head {h00=0x0012, h01=0x0050, text=»* A4= RESERVED«, t00=0x002f, t01=0x0072}
0x049ee…04a04 Head {h00=0x0012, h01=0x0050, text=»* A5= RESRVED «, t00=0x002f, t01=0x0088}
0x04a04…04a1a Head {h00=0x0012, h01=0x0050, text=»* A6= RESRVED «, t00=0x002f, t01=0x009e}
0x04a1a…04a3e Head {h00=0x0020, h01=0x0050, text=»* A7= KEY-HANDLING INDICATOR«, t00=0x002f, t01=0x00b4}
0x04a3e…04a5e Head {h00=0x001c, h01=0x0050, text=»* A11= CREDIT WORK AREA «, t00=0x002f, t01=0x00d8}
0x04a5e…04a76 Head {h00=0x0014, h01=0x0050, text=»* A13= RESERVED «, t00=0x002f, t01=0x00f8}
0x04a76…04a80 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002f, t01=0x0110}
0x04a80…04ac4 Head {h00=0x0040, h01=0x0050, text=»************************************************************«, t00=0x002f, t01=0x011a}
0x04ac4…04ad8 Head {h00=0x0010, h01=0x0050, text=»KBCPJO EQU *«, t00=0x002f, t01=0x015e}
0x04ad8…04b00 Head {h00=0x0024, h01=0x0050, text=» LDK A7,0 INDICATE KEY-HANDLING «, t00=0x002f, t01=0x0172}
0x04b00…04b28 Head {h00=0x0024, h01=0x0050, text=» CWK A2,FIPA PROGRAM ATTN. KEY? «, t00=0x0030, t01=0x000a}
0x04b28…04b40 Head {h00=0x0014, h01=0x0050, text=» RF(L) KBCJ90 NO«, t00=0x0030, t01=0x0032}
0x04b40…04b54 Head {h00=0x0010, h01=0x0050, text=» IFT OFLIN=1«, t00=0x0030, t01=0x004a}
0x04b54…04b6a Head {h00=0x0012, h01=0x0050, text=» RF(E) KBCJ80 «, t00=0x0030, t01=0x005e}
0x04b6a…04b76 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0030, t01=0x0074}
0x04b76…04b88 Head {h00=0x000e, h01=0x0050, text=» IFT SNA=1«, t00=0x0030, t01=0x0080}
0x04b88…04b9c Head {h00=0x0010, h01=0x0050, text=» CM MODE,A11«, t00=0x0030, t01=0x0092}
0x04b9c…04bc8 Head {h00=0x0028, h01=0x0050, text=» CF A14,LMP6OF TURN OFF INSERT LAMP «, t00=0x0030, t01=0x00a6}
0x04bc8…04be8 Head {h00=0x001c, h01=0x0050, text=» CF A14,DCABOR ABORT DC «, t00=0x0030, t01=0x00d2}
0x04be8…04bfc Head {h00=0x0010, h01=0x0050, text=» IFT OFLIN=1«, t00=0x0030, t01=0x00f2}
0x04bfc…04c0e Head {h00=0x000e, h01=0x0050, text=» RF KBCJ90«, t00=0x0030, t01=0x0106}
0x04c0e…04c22 Head {h00=0x0010, h01=0x0050, text=»KBCJ80 EQU *«, t00=0x0030, t01=0x0118}
0x04c22…04c46 Head {h00=0x0020, h01=0x0050, text=» CF A14,ERROR INDICATE ERROR«, t00=0x0030, t01=0x012c}
0x04c46…04c68 Head {h00=0x001e, h01=0x0050, text=» LDK A7,1 NO KEY-HANDLING «, t00=0x0030, t01=0x0150}
0x04c68…04c74 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0030, t01=0x0172}
0x04c74…04c86 Head {h00=0x000e, h01=0x0050, text=» IFT SNA=1«, t00=0x0030, t01=0x017e}
0x04c86…04c9a Head {h00=0x0010, h01=0x0050, text=»KBCJ90 EQU *«, t00=0x0030, t01=0x0190}
0x04c9a…04caa Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0031, t01=0x0014}
0x04caa…04cb6 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0031, t01=0x0024}
0x04cb6…04cc4 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0031, t01=0x0030}
0x04cc4…04d0c Head {h00=0x0044, h01=0x0050, text=»*************************************************************** «, t00=0x0031, t01=0x003e}
0x04d0c…04d54 Head {h00=0x0044, h01=0x0050, text=»* * «, t00=0x0031, t01=0x0086}
0x04d54…04d9c Head {h00=0x0044, h01=0x0050, text=»* READKB READ KEYBOARD WITH NO WAIT * «, t00=0x0031, t01=0x00ce}
0x04d9c…04de4 Head {h00=0x0044, h01=0x0050, text=»* * «, t00=0x0031, t01=0x0116}
0x04de4…04e2c Head {h00=0x0044, h01=0x0050, text=»*************************************************************** «, t00=0x0031, t01=0x015e}
0x04e2c…04e48 Head {h00=0x0018, h01=0x0050, text=»* REGISTERS«, t00=0x0032, t01=0x0016}
0x04e48…04e52 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0032, t01=0x0032}
0x04e52…04e66 Head {h00=0x0010, h01=0x0050, text=»* A8= KB-ECB«, t00=0x0032, t01=0x003c}
0x04e66…04e86 Head {h00=0x001c, h01=0x0050, text=»* A11= CREDIT WORK AREA «, t00=0x0032, t01=0x0050}
0x04e86…04e9e Head {h00=0x0014, h01=0x0050, text=»* A13= RESERVED «, t00=0x0032, t01=0x0070}
0x04e9e…04ea8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0032, t01=0x0088}
0x04ea8…04ee6 Head {h00=0x003a, h01=0x0050, text=»***************************************************** «, t00=0x0032, t01=0x0092}
0x04ee6…04efa Head {h00=0x0010, h01=0x0050, text=»READKB EQU *«, t00=0x0032, t01=0x00d0}
0x04efa…04f12 Head {h00=0x0014, h01=0x0050, text=» LD A8,ECBKB,A11«, t00=0x0032, t01=0x00e4}
0x04f12…04f30 Head {h00=0x001a, h01=0x0050, text=» LDK A7,0 CLEAR ECBCW «, t00=0x0032, t01=0x00fc}
0x04f30…04f4a Head {h00=0x0016, h01=0x0050, text=» ST A7,ECBCW,A8 «, t00=0x0032, t01=0x011a}
0x04f4a…04f5c Head {h00=0x000e, h01=0x0050, text=» LDK A7,1 «, t00=0x0032, t01=0x0134}
0x04f5c…04f74 Head {h00=0x0014, h01=0x0050, text=» ST A7,ECBRL,A8 «, t00=0x0032, t01=0x0146}
0x04f74…04faa Head {h00=0x0032, h01=0x0050, text=»* NO POWER OF INDICATOR ,...DK 81-10-17 * «, t00=0x0032, t01=0x015e}
0x04faa…04fca (51, 0, 400) Head {h00=0x001c, h01=0x0050, text=» LDK A7,2 STANDARD READ «, t00=0x0033, t01=0x0004}
0x04fca…04fd6 Head {h00=0x0008, h01=0x0050, text=» LKM«, t00=0x0033, t01=0x0024}
0x04fd6…04fe6 Head {h00=0x000c, h01=0x0050, text=» DATA 1 «, t00=0x0033, t01=0x0030}
0x04fe6…04ff6 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0033, t01=0x0040}
0x04ff6…0502a Head {h00=0x0030, h01=0x0050, text=»** READ FROM SECOND KEYBOARD, P & T, DK ** «, t00=0x0033, t01=0x0050}
0x0502a…05040 Head {h00=0x0012, h01=0x0050, text=»READK2 EQU * «, t00=0x0033, t01=0x0084}
0x05040…05062 Head {h00=0x001e, h01=0x0050, text=» LD A8,ECBKB2,A11 GET ECB «, t00=0x0033, t01=0x009a}
0x05062…05080 Head {h00=0x001a, h01=0x0050, text=» LDK A7,0 CLEAR ECBCW «, t00=0x0033, t01=0x00bc}
0x05080…0509a Head {h00=0x0016, h01=0x0050, text=» ST A7,ECBCW,A8 «, t00=0x0033, t01=0x00da}
0x0509a…050ac Head {h00=0x000e, h01=0x0050, text=» LDK A7,1 «, t00=0x0033, t01=0x00f4}
0x050ac…050c4 Head {h00=0x0014, h01=0x0050, text=» ST A7,ECBRL,A8 «, t00=0x0033, t01=0x0106}
0x050c4…050e4 Head {h00=0x001c, h01=0x0050, text=» LDK A7,2 STANDARD READ «, t00=0x0033, t01=0x011e}
0x050e4…050f2 Head {h00=0x000a, h01=0x0050, text=» LKM «, t00=0x0033, t01=0x013e}
0x050f2…05102 Head {h00=0x000c, h01=0x0050, text=» DATA 1 «, t00=0x0033, t01=0x014c}
0x05102…05114 Head {h00=0x000e, h01=0x0050, text=» RTN A14 «, t00=0x0033, t01=0x015c}
0x05114…05136 Head {h00=0x001e, h01=0x0050, text=»**END DK MODIFICATION ** «, t00=0x0033, t01=0x016e}
0x05136…05144 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0033, t01=0x0190}
0x05144…0518c Head {h00=0x0044, h01=0x0050, text=»*************************************************************** «, t00=0x0034, t01=0x000e}
0x0518c…051d4 Head {h00=0x0044, h01=0x0050, text=»* * «, t00=0x0034, t01=0x0056}
0x051d4…0521c Head {h00=0x0044, h01=0x0050, text=»* RESKB RESET KEYBOARD BUFFER * «, t00=0x0034, t01=0x009e}
0x0521c…05264 Head {h00=0x0044, h01=0x0050, text=»* * «, t00=0x0034, t01=0x00e6}
0x05264…052ac Head {h00=0x0044, h01=0x0050, text=»*************************************************************** «, t00=0x0034, t01=0x012e}
0x052ac…052cc Head {h00=0x001c, h01=0x0050, text=»* REGISTERS «, t00=0x0034, t01=0x0176}
0x052cc…052d6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0035, t01=0x0008}
0x052d6…052f6 Head {h00=0x001c, h01=0x0050, text=»* A11= CREDIT WORK AREA «, t00=0x0035, t01=0x0012}
0x052f6…0530e Head {h00=0x0014, h01=0x0050, text=»* A13= RESERVED «, t00=0x0035, t01=0x0032}
0x0530e…05318 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0035, t01=0x004a}
0x05318…05356 Head {h00=0x003a, h01=0x0050, text=»******************************************************«, t00=0x0035, t01=0x0054}
0x05356…0536a Head {h00=0x0010, h01=0x0050, text=»RESKB EQU * «, t00=0x0035, t01=0x0092}
0x0536a…053a0 Head {h00=0x0032, h01=0x0050, text=»* REMOVED UNTIL NEEDED......DK, 811028....**«, t00=0x0035, t01=0x00a6}
0x053a0…053b0 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0035, t01=0x00dc}
0x053b0…053be Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0035, t01=0x00ec}
0x053be…05402 Head {h00=0x0040, h01=0x0050, text=»*********************************************************** «, t00=0x0035, t01=0x00fa}
0x05402…05446 Head {h00=0x0040, h01=0x0050, text=»* * «, t00=0x0035, t01=0x013e}
0x05446…0546c Head {h00=0x0022, h01=0x0050, text=»* ICVRED KB/VDU INTERTASK READ«, t00=0x0035, t01=0x0182}
0x0546c…054b0 Head {h00=0x0040, h01=0x0050, text=»* * «, t00=0x0036, t01=0x0018}
0x054b0…054f4 Head {h00=0x0040, h01=0x0050, text=»*********************************************************** «, t00=0x0036, t01=0x005c}
0x054f4…05512 Head {h00=0x001a, h01=0x0050, text=»* REGISTERS«, t00=0x0036, t01=0x00a0}
0x05512…0551c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0036, t01=0x00be}
0x0551c…05532 Head {h00=0x0012, h01=0x0050, text=»* A2= RESERVED«, t00=0x0036, t01=0x00c8}
0x05532…05552 Head {h00=0x001c, h01=0x0050, text=»* A11= CREDIT WORK AREA «, t00=0x0036, t01=0x00de}
0x05552…0556a Head {h00=0x0014, h01=0x0050, text=»* A13= RESERVED «, t00=0x0036, t01=0x00fe}
0x0556a…05574 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0036, t01=0x0116}
0x05574…055b8 Head {h00=0x0040, h01=0x0050, text=»*********************************************************** «, t00=0x0036, t01=0x0120}
0x055b8…055cc Head {h00=0x0010, h01=0x0050, text=»ICVRED EQU *«, t00=0x0036, t01=0x0164}
0x055cc…055e6 Head {h00=0x0016, h01=0x0050, text=» LD A8,ECBICR,A11 «, t00=0x0036, t01=0x0178}
0x055e6…0560a (55, 0, 400) Head {h00=0x0020, h01=0x0050, text=» CF A14,ICSET SET NO TIMEOUT«, t00=0x0037, t01=0x0004}
0x0560a…05620 Head {h00=0x0012, h01=0x0050, text=» IFF COPCMD=1 «, t00=0x0037, t01=0x0028}
0x05620…05638 Head {h00=0x0014, h01=0x0050, text=» LD A1,PRTID,A11«, t00=0x0037, t01=0x003e}
0x05638…05644 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0037, t01=0x0056}
0x05644…0565a Head {h00=0x0012, h01=0x0050, text=» IFT COPCMD=1 «, t00=0x0037, t01=0x0062}
0x0565a…05678 Head {h00=0x001a, h01=0x0050, text=» LDK A1,0 UNADDRESSED «, t00=0x0037, t01=0x0078}
0x05678…05684 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0037, t01=0x0096}
0x05684…0569a Head {h00=0x0012, h01=0x0050, text=» LDKL A3,REGI «, t00=0x0037, t01=0x00a2}
0x0569a…056ae Head {h00=0x0010, h01=0x0050, text=» ADR A3,A11 «, t00=0x0037, t01=0x00b8}
0x056ae…056c6 Head {h00=0x0014, h01=0x0050, text=» LDK A2,2 LENGTH«, t00=0x0037, t01=0x00cc}
0x056c6…056ec Head {h00=0x0022, h01=0x0050, text=» CF A14,ICREAD READ INTERTASK «, t00=0x0037, t01=0x00e4}
0x056ec…056fc Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0037, t01=0x010a}
0x056fc…0570a Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0037, t01=0x011a}
0x0570a…05752 Head {h00=0x0044, h01=0x0050, text=»****************************************************************«, t00=0x0037, t01=0x0128}
0x05752…0579a Head {h00=0x0044, h01=0x0050, text=»* *«, t00=0x0037, t01=0x0170}
0x0579a…057e2 Head {h00=0x0044, h01=0x0050, text=»* ICINP INTERTASK INPUT *«, t00=0x0038, t01=0x0028}
0x057e2…0582a Head {h00=0x0044, h01=0x0050, text=»* *«, t00=0x0038, t01=0x0070}
0x0582a…05872 Head {h00=0x0044, h01=0x0050, text=»****************************************************************«, t00=0x0038, t01=0x00b8}
0x05872…05892 Head {h00=0x001c, h01=0x0050, text=»* REGISTERS «, t00=0x0038, t01=0x0100}
0x05892…0589c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0038, t01=0x0120}
0x0589c…058bc Head {h00=0x001c, h01=0x0050, text=»* A11= CREDIT WORK AREA «, t00=0x0038, t01=0x012a}
0x058bc…058d4 Head {h00=0x0014, h01=0x0050, text=»* A13= RESERVED «, t00=0x0038, t01=0x014a}
0x058d4…058de Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0038, t01=0x0162}
0x058de…05926 Head {h00=0x0044, h01=0x0050, text=»****************************************************************«, t00=0x0038, t01=0x016c}
0x05926…0593a Head {h00=0x0010, h01=0x0050, text=»ICINP EQU * «, t00=0x0039, t01=0x0024}
0x0593a…05952 Head {h00=0x0014, h01=0x0050, text=» LD* A2,ECBBA,A8«, t00=0x0039, t01=0x0038}
0x05952…05968 Head {h00=0x0012, h01=0x0050, text=» IFT COPCMD=1 «, t00=0x0039, t01=0x0050}
0x05968…05988 Head {h00=0x001c, h01=0x0050, text=» LDR A1,A2 COPY COMMAND?«, t00=0x0039, t01=0x0066}
0x05988…059a2 Head {h00=0x0016, h01=0x0050, text=» RF(NN) ICIN80 NO «, t00=0x0039, t01=0x0086}
0x059a2…059c6 Head {h00=0x0020, h01=0x0050, text=» LDKL A3,BVDU BUFFER TO SEND«, t00=0x0039, t01=0x00a0}
0x059c6…059da Head {h00=0x0010, h01=0x0050, text=» ADR A3,A11 «, t00=0x0039, t01=0x00c4}
0x059da…059ee Head {h00=0x0010, h01=0x0050, text=» IFT COPL=1 «, t00=0x0039, t01=0x00d8}
0x059ee…05a1a Head {h00=0x0028, h01=0x0050, text=» LCR A2,A3 CHECK IF ALLOWED TO COPY «, t00=0x0039, t01=0x00ec}
0x05a1a…05a3a Head {h00=0x001c, h01=0x0050, text=» CCK A2,/8000 ATTRIBUTE?«, t00=0x0039, t01=0x0118}
0x05a3a…05a52 Head {h00=0x0014, h01=0x0050, text=» RF(L) ICIN20 NO«, t00=0x0039, t01=0x0138}
0x05a52…05a70 Head {h00=0x001a, h01=0x0050, text=» ANK A2,/20 PROTECTED?«, t00=0x0039, t01=0x0150}
0x05a70…05a96 Head {h00=0x0022, h01=0x0050, text=» RF(NZ) ICIN90 YES DON'T COPY «, t00=0x0039, t01=0x016e}
0x05a96…05aaa (58, 0, 400) Head {h00=0x0010, h01=0x0050, text=»ICIN20 EQU *«, t00=0x003a, t01=0x0004}
0x05aaa…05ab6 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x003a, t01=0x0018}
0x05ab6…05acc Head {h00=0x0012, h01=0x0050, text=» IFT COPCMD=1 «, t00=0x003a, t01=0x0024}
0x05acc…05af0 Head {h00=0x0020, h01=0x0050, text=» LD A2,ECBCW,A8 GET TO WHOM «, t00=0x003a, t01=0x003a}
0x05af0…05b0a Head {h00=0x0016, h01=0x0050, text=» LD A8,ECBICW,A11 «, t00=0x003a, t01=0x005e}
0x05b0a…05b2c Head {h00=0x001e, h01=0x0050, text=» CF A14,ICSET SET TIMEOUT «, t00=0x003a, t01=0x0078}
0x05b2c…05b3e Head {h00=0x000e, h01=0x0050, text=» LDR A1,A2«, t00=0x003a, t01=0x009a}
0x05b3e…05b60 Head {h00=0x001e, h01=0x0050, text=» LDKL A2,LBVDU+/20 LENGTH «, t00=0x003a, t01=0x00ac}
0x05b60…05b82 Head {h00=0x001e, h01=0x0050, text=» CF A14,ICWRT SEND IT AWAY«, t00=0x003a, t01=0x00ce}
0x05b82…05bae Head {h00=0x0028, h01=0x0050, text=» LDKL A1,HCPMOD HARDCOPY OUTSTANDING«, t00=0x003a, t01=0x00f0}
0x05bae…05bc8 Head {h00=0x0016, h01=0x0050, text=» ORS A1,BSCMOD,A11«, t00=0x003a, t01=0x011c}
0x05bc8…05bda Head {h00=0x000e, h01=0x0050, text=» RF ICIN90«, t00=0x003a, t01=0x0136}
0x05bda…05bee Head {h00=0x0010, h01=0x0050, text=»ICIN80 EQU *«, t00=0x003a, t01=0x0148}
0x05bee…05bfa Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x003a, t01=0x015c}
0x05bfa…05c2c Head {h00=0x002e, h01=0x0050, text=» LDKL A1,HCPMOD RESET HARDCOPY OUTSTANDING«, t00=0x003a, t01=0x0168}
0x05c2c…05c3e Head {h00=0x000e, h01=0x0050, text=» IFT SNA=1«, t00=0x003b, t01=0x000a}
0x05c3e…05c58 Head {h00=0x0016, h01=0x0050, text=» XRS A1,SNAMOD,A11«, t00=0x003b, t01=0x001c}
0x05c58…05c64 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x003b, t01=0x0036}
0x05c64…05c76 Head {h00=0x000e, h01=0x0050, text=» IFF SNA=1«, t00=0x003b, t01=0x0042}
0x05c76…05c90 Head {h00=0x0016, h01=0x0050, text=» XRS A1,BSCMOD,A11«, t00=0x003b, t01=0x0054}
0x05c90…05c9c Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x003b, t01=0x006e}
0x05c9c…05cba Head {h00=0x001a, h01=0x0050, text=» ANK A2,1 PRINTER OK? «, t00=0x003b, t01=0x007a}
0x05cba…05cd4 Head {h00=0x0016, h01=0x0050, text=» RF(Z) ICIN90 YES «, t00=0x003b, t01=0x0098}
0x05cd4…05ce8 Head {h00=0x0010, h01=0x0050, text=»ICIN90 EQU *«, t00=0x003b, t01=0x00b2}
0x05ce8…05cf8 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x003b, t01=0x00c6}
0x05cf8…05d06 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x003b, t01=0x00d6}
0x05d06…05d4a Head {h00=0x0040, h01=0x0050, text=»*********************************************************** «, t00=0x003b, t01=0x00e4}
0x05d4a…05d8c Head {h00=0x003e, h01=0x0050, text=»* *«, t00=0x003b, t01=0x0128}
0x05d8c…05dd0 Head {h00=0x0040, h01=0x0050, text=»* ICSET SET INTERTASK TIMEOUT * «, t00=0x003b, t01=0x016a}
0x05dd0…05e12 Head {h00=0x003e, h01=0x0050, text=»* *«, t00=0x003c, t01=0x001e}
0x05e12…05e56 Head {h00=0x0040, h01=0x0050, text=»*********************************************************** «, t00=0x003c, t01=0x0060}
0x05e56…05e76 Head {h00=0x001c, h01=0x0050, text=»* REGISTERS «, t00=0x003c, t01=0x00a4}
0x05e76…05e80 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003c, t01=0x00c4}
0x05e80…05e96 Head {h00=0x0012, h01=0x0050, text=»* A2= RESERVED«, t00=0x003c, t01=0x00ce}
0x05e96…05eb2 Head {h00=0x0018, h01=0x0050, text=»* A8= INTERTASK ECB «, t00=0x003c, t01=0x00e4}
0x05eb2…05eca Head {h00=0x0014, h01=0x0050, text=»* A11= RESERVED «, t00=0x003c, t01=0x0100}
0x05eca…05ee2 Head {h00=0x0014, h01=0x0050, text=»* A13= RESERVED «, t00=0x003c, t01=0x0118}
0x05ee2…05eec Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003c, t01=0x0130}
0x05eec…05f2e Head {h00=0x003e, h01=0x0050, text=»**********************************************************«, t00=0x003c, t01=0x013a}
0x05f2e…05f42 Head {h00=0x0010, h01=0x0050, text=»ICSET EQU * «, t00=0x003c, t01=0x017c}
0x05f42…05f60 Head {h00=0x001a, h01=0x0050, text=» LDKL A1,-1 NO TIMEOUT«, t00=0x003c, t01=0x0190}
0x05f60…05f78 Head {h00=0x0014, h01=0x0050, text=» ST A1,ECBCW,A8 «, t00=0x003d, t01=0x001e}
0x05f78…05f98 Head {h00=0x001c, h01=0x0050, text=» LDK A7,/B9 SET TIMEOUT «, t00=0x003d, t01=0x0036}
0x05f98…05fa4 Head {h00=0x0008, h01=0x0050, text=» LKM«, t00=0x003d, t01=0x0056}
0x05fa4…05fb4 Head {h00=0x000c, h01=0x0050, text=» DATA 1 «, t00=0x003d, t01=0x0062}
0x05fb4…05fc4 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x003d, t01=0x0072}
0x05fc4…05fd2 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x003d, t01=0x0082}
0x05fd2…06018 Head {h00=0x0042, h01=0x0050, text=»************************************************************* «, t00=0x003d, t01=0x0090}
0x06018…0605e Head {h00=0x0042, h01=0x0050, text=»* * «, t00=0x003d, t01=0x00d6}
0x0605e…060a4 Head {h00=0x0042, h01=0x0050, text=»* ICREAD INTERTASK READ * «, t00=0x003d, t01=0x011c}
0x060a4…060ea Head {h00=0x0042, h01=0x0050, text=»* * «, t00=0x003d, t01=0x0162}
0x060ea…06130 Head {h00=0x0042, h01=0x0050, text=»**************************************************************«, t00=0x003e, t01=0x0018}
0x06130…06152 Head {h00=0x001e, h01=0x0050, text=»* REGISTERS«, t00=0x003e, t01=0x005e}
0x06152…0615c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003e, t01=0x0080}
0x0615c…06172 Head {h00=0x0012, h01=0x0050, text=»* A1= TASK ID «, t00=0x003e, t01=0x008a}
0x06172…06186 Head {h00=0x0010, h01=0x0050, text=»* A2= LENGTH«, t00=0x003e, t01=0x00a0}
0x06186…061a2 Head {h00=0x0018, h01=0x0050, text=»* A3= BUFFER ADDRESS«, t00=0x003e, t01=0x00b4}
0x061a2…061c2 Head {h00=0x001c, h01=0x0050, text=»* A8= INTETASK READ ECB «, t00=0x003e, t01=0x00d0}
0x061c2…061da Head {h00=0x0014, h01=0x0050, text=»* A11= RESERVED «, t00=0x003e, t01=0x00f0}
0x061da…061f2 Head {h00=0x0014, h01=0x0050, text=»* A13= RESERVED «, t00=0x003e, t01=0x0108}
0x061f2…061fc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003e, t01=0x0120}
0x061fc…06242 Head {h00=0x0042, h01=0x0050, text=»************************************************************* «, t00=0x003e, t01=0x012a}
0x06242…06256 Head {h00=0x0010, h01=0x0050, text=»ICREAD EQU *«, t00=0x003e, t01=0x0170}
0x06256…06276 Head {h00=0x001c, h01=0x0050, text=» ST A1,ECBCW,A8 TASK ID «, t00=0x003e, t01=0x0184}
0x06276…06294 Head {h00=0x001a, h01=0x0050, text=» ST A2,ECBRL,A8 LENGTH«, t00=0x003f, t01=0x0014}
0x06294…062ba Head {h00=0x0022, h01=0x0050, text=» ST A3,ECBBA,A8 BUFFER ADDRESS«, t00=0x003f, t01=0x0032}
0x062ba…062d2 Head {h00=0x0014, h01=0x0050, text=» LDK A7,/02 READ«, t00=0x003f, t01=0x0058}
0x062d2…062de Head {h00=0x0008, h01=0x0050, text=» LKM«, t00=0x003f, t01=0x0070}
0x062de…062ee Head {h00=0x000c, h01=0x0050, text=» DATA 1 «, t00=0x003f, t01=0x007c}
0x062ee…062fe Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x003f, t01=0x008c}
0x062fe…0630c Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x003f, t01=0x009c}
0x0630c…06354 Head {h00=0x0044, h01=0x0050, text=»*************************************************************** «, t00=0x003f, t01=0x00aa}
0x06354…0639c Head {h00=0x0044, h01=0x0050, text=»* * «, t00=0x003f, t01=0x00f2}
0x0639c…063e4 Head {h00=0x0044, h01=0x0050, text=»* ICWRT INTERTASK WRITE * «, t00=0x003f, t01=0x013a}
0x063e4…0642c Head {h00=0x0044, h01=0x0050, text=»* * «, t00=0x003f, t01=0x0182}
0x0642c…06474 Head {h00=0x0044, h01=0x0050, text=»*************************************************************** «, t00=0x0040, t01=0x003a}
0x06474…06496 Head {h00=0x001e, h01=0x0050, text=»* REGISTERS«, t00=0x0040, t01=0x0082}
0x06496…064a0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0040, t01=0x00a4}
0x064a0…064b6 Head {h00=0x0012, h01=0x0050, text=»* A1= TASK ID «, t00=0x0040, t01=0x00ae}
0x064b6…064ca Head {h00=0x0010, h01=0x0050, text=»* A2= LENGTH«, t00=0x0040, t01=0x00c4}
0x064ca…064e6 Head {h00=0x0018, h01=0x0050, text=»* A3= BUFFER ADDRESS«, t00=0x0040, t01=0x00d8}
0x064e6…06508 Head {h00=0x001e, h01=0x0050, text=»* A8= INTERTASK WRITE ECB «, t00=0x0040, t01=0x00f4}
0x06508…06520 Head {h00=0x0014, h01=0x0050, text=»* A11= RESERVED «, t00=0x0040, t01=0x0116}
0x06520…06538 Head {h00=0x0014, h01=0x0050, text=»* A13= RESERVED «, t00=0x0040, t01=0x012e}
0x06538…06542 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0040, t01=0x0146}
0x06542…0658a Head {h00=0x0044, h01=0x0050, text=»****************************************************************«, t00=0x0040, t01=0x0150}
0x0658a…0659e Head {h00=0x0010, h01=0x0050, text=»ICWRT EQU * «, t00=0x0041, t01=0x0008}
0x0659e…065be Head {h00=0x001c, h01=0x0050, text=» ST A1,ECBCW,A8 TASK ID «, t00=0x0041, t01=0x001c}
0x065be…065dc Head {h00=0x001a, h01=0x0050, text=» ST A2,ECBRL,A8 LENGTH«, t00=0x0041, t01=0x003c}
0x065dc…06602 Head {h00=0x0022, h01=0x0050, text=» ST A3,ECBBA,A8 BUFFER ADDRESS«, t00=0x0041, t01=0x005a}
0x06602…0661c Head {h00=0x0016, h01=0x0050, text=» LDK A7,/86 WRITE «, t00=0x0041, t01=0x0080}
0x0661c…06628 Head {h00=0x0008, h01=0x0050, text=» LKM«, t00=0x0041, t01=0x009a}
0x06628…06638 Head {h00=0x000c, h01=0x0050, text=» DATA 1 «, t00=0x0041, t01=0x00a6}
0x06638…06648 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0041, t01=0x00b6}
0x06648…06656 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0041, t01=0x00c6}
0x06656…066a2 Head {h00=0x0048, h01=0x0050, text=»******************************************************************* «, t00=0x0041, t01=0x00d4}
0x066a2…066ee Head {h00=0x0048, h01=0x0050, text=»* * «, t00=0x0041, t01=0x0120}
0x066ee…0673a Head {h00=0x0048, h01=0x0050, text=»* ERROR ILLEGAL KEY-HANDLING * «, t00=0x0041, t01=0x016c}
0x0673a…06786 Head {h00=0x0048, h01=0x0050, text=»* * «, t00=0x0042, t01=0x0028}
0x06786…067d2 Head {h00=0x0048, h01=0x0050, text=»******************************************************************* «, t00=0x0042, t01=0x0074}
0x067d2…067ee Head {h00=0x0018, h01=0x0050, text=»* REGISTERS«, t00=0x0042, t01=0x00c0}
0x067ee…067f8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0042, t01=0x00dc}
0x067f8…06818 Head {h00=0x001c, h01=0x0050, text=»* A11= CREDIT WORK AREA «, t00=0x0042, t01=0x00e6}
0x06818…06830 Head {h00=0x0014, h01=0x0050, text=»* A13= RESERVED «, t00=0x0042, t01=0x0106}
0x06830…0683a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0042, t01=0x011e}
0x0683a…0687a Head {h00=0x003c, h01=0x0050, text=»******************************************************* «, t00=0x0042, t01=0x0128}
0x0687a…0688e Head {h00=0x0010, h01=0x0050, text=»ERROR EQU * «, t00=0x0042, t01=0x0168}
0x0688e…068ba Head {h00=0x0028, h01=0x0050, text=» CF A14,LMP4ON TURN ON 'ERROR' LAMP «, t00=0x0042, t01=0x017c}
0x068ba…068da Head {h00=0x001c, h01=0x0050, text=» LDK A1,4 RESET ALLOWED «, t00=0x0043, t01=0x0018}
0x068da…068f4 Head {h00=0x0016, h01=0x0050, text=» ORS A1,KBINH,A11 «, t00=0x0043, t01=0x0038}
0x068f4…0691e Head {h00=0x0026, h01=0x0050, text=» CF A14,SOUND TURN ON SOUND ALARM «, t00=0x0043, t01=0x0052}
0x0691e…0692e Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0043, t01=0x007c}
0x0692e…06936 Head {h00=0x0004, h01=0x0050, t00=0x0043, t01=0x008c}
0x06936…06944 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0043, t01=0x0094}
0x06944…0698a Head {h00=0x0042, h01=0x0050, text=»************************************************************* «, t00=0x0043, t01=0x00a2}
0x0698a…069d0 Head {h00=0x0042, h01=0x0050, text=»* * «, t00=0x0043, t01=0x00e8}
0x069d0…06a16 Head {h00=0x0042, h01=0x0050, text=»* LAMPROUTINES * «, t00=0x0043, t01=0x012e}
0x06a16…06a5c Head {h00=0x0042, h01=0x0050, text=»* * «, t00=0x0043, t01=0x0174}
0x06a5c…06aa2 Head {h00=0x0042, h01=0x0050, text=»************************************************************* «, t00=0x0044, t01=0x002a}
0x06aa2…06abe Head {h00=0x0018, h01=0x0050, text=»LMP1ON LDK A1,LAMP1 «, t00=0x0044, t01=0x0070}
0x06abe…06ad0 Head {h00=0x000e, h01=0x0050, text=» RF LMPON «, t00=0x0044, t01=0x008c}
0x06ad0…06aec Head {h00=0x0018, h01=0x0050, text=»LMP1OF LDK A1,LAMP1 «, t00=0x0044, t01=0x009e}
0x06aec…06afe Head {h00=0x000e, h01=0x0050, text=» RF LMPOF «, t00=0x0044, t01=0x00ba}
0x06afe…06b1a Head {h00=0x0018, h01=0x0050, text=»LMP2ON LDK A1,LAMP2 «, t00=0x0044, t01=0x00cc}
0x06b1a…06b2c Head {h00=0x000e, h01=0x0050, text=» RF LMPON «, t00=0x0044, t01=0x00e8}
0x06b2c…06b48 Head {h00=0x0018, h01=0x0050, text=»LMP2OF LDK A1,LAMP2 «, t00=0x0044, t01=0x00fa}
0x06b48…06b5a Head {h00=0x000e, h01=0x0050, text=» RF LMPOF «, t00=0x0044, t01=0x0116}
0x06b5a…06b76 Head {h00=0x0018, h01=0x0050, text=»LMP3ON LDK A1,LAMP3 «, t00=0x0044, t01=0x0128}
0x06b76…06b88 Head {h00=0x000e, h01=0x0050, text=» RF LMPON «, t00=0x0044, t01=0x0144}
0x06b88…06ba4 Head {h00=0x0018, h01=0x0050, text=»LMP3OF LDK A1,LAMP3 «, t00=0x0044, t01=0x0156}
0x06ba4…06bb6 Head {h00=0x000e, h01=0x0050, text=» RF LMPOF «, t00=0x0044, t01=0x0172}
0x06bb6…06bd2 Head {h00=0x0018, h01=0x0050, text=»LMP4ON LDK A1,LAMP4 «, t00=0x0044, t01=0x0184}
0x06bd2…06be4 Head {h00=0x000e, h01=0x0050, text=» RF LMPON «, t00=0x0045, t01=0x0010}
0x06be4…06c00 Head {h00=0x0018, h01=0x0050, text=»LMP4OF LDK A1,LAMP4 «, t00=0x0045, t01=0x0022}
0x06c00…06c12 Head {h00=0x000e, h01=0x0050, text=» RF LMPOF «, t00=0x0045, t01=0x003e}
0x06c12…06c2e Head {h00=0x0018, h01=0x0050, text=»LMP5ON LDK A1,LAMP5 «, t00=0x0045, t01=0x0050}
0x06c2e…06c40 Head {h00=0x000e, h01=0x0050, text=» RF LMPON «, t00=0x0045, t01=0x006c}
0x06c40…06c5c Head {h00=0x0018, h01=0x0050, text=»LMP5OF LDK A1,LAMP5 «, t00=0x0045, t01=0x007e}
0x06c5c…06c6e Head {h00=0x000e, h01=0x0050, text=» RF LMPOF «, t00=0x0045, t01=0x009a}
0x06c6e…06c8a Head {h00=0x0018, h01=0x0050, text=»LMP5FL LDK A1,LAMP5 «, t00=0x0045, t01=0x00ac}
0x06c8a…06c9c Head {h00=0x000e, h01=0x0050, text=» RF LMPFL «, t00=0x0045, t01=0x00c8}
0x06c9c…06cb8 Head {h00=0x0018, h01=0x0050, text=»LMP6ON LDK A1,LAMP6 «, t00=0x0045, t01=0x00da}
0x06cb8…06cca Head {h00=0x000e, h01=0x0050, text=» RF LMPON «, t00=0x0045, t01=0x00f6}
0x06cca…06ce6 Head {h00=0x0018, h01=0x0050, text=»LMP6OF LDK A1,LAMP6 «, t00=0x0045, t01=0x0108}
0x06ce6…06cf8 Head {h00=0x000e, h01=0x0050, text=» RF LMPOF «, t00=0x0045, t01=0x0124}
0x06cf8…06d02 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0045, t01=0x0136}
0x06d02…06d1a Head {h00=0x0014, h01=0x0050, text=»LMPON LDK A7,LON«, t00=0x0045, t01=0x0140}
0x06d1a…06d2c Head {h00=0x000e, h01=0x0050, text=» RF SDISP «, t00=0x0045, t01=0x0158}
0x06d2c…06d44 Head {h00=0x0014, h01=0x0050, text=»LMPOF LDK A7,LOF«, t00=0x0045, t01=0x016a}
0x06d44…06d56 Head {h00=0x000e, h01=0x0050, text=» RF SDISP «, t00=0x0045, t01=0x0182}
0x06d56…06d6e (70, 0, 400) Head {h00=0x0014, h01=0x0050, text=»LMPFL LDK A7,LFL«, t00=0x0046, t01=0x0004}
0x06d6e…06d80 Head {h00=0x000e, h01=0x0050, text=» RF SDISP «, t00=0x0046, t01=0x001c}
0x06d80…06d8e Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0046, t01=0x002e}
0x06d8e…06dd4 Head {h00=0x0042, h01=0x0050, text=»************************************************************* «, t00=0x0046, t01=0x003c}
0x06dd4…06e1a Head {h00=0x0042, h01=0x0050, text=»* * «, t00=0x0046, t01=0x0082}
0x06e1a…06e60 Head {h00=0x0042, h01=0x0050, text=»* SDISP SIGNAL ROUTINE * «, t00=0x0046, t01=0x00c8}
0x06e60…06ea6 Head {h00=0x0042, h01=0x0050, text=»* * «, t00=0x0046, t01=0x010e}
0x06ea6…06eec Head {h00=0x0042, h01=0x0050, text=»************************************************************* «, t00=0x0046, t01=0x0154}
0x06eec…06f08 Head {h00=0x0018, h01=0x0050, text=»* REGISTERS «, t00=0x0047, t01=0x000a}
0x06f08…06f12 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0047, t01=0x0026}
0x06f12…06f2a Head {h00=0x0014, h01=0x0050, text=»* A8= SIGNAL ECB«, t00=0x0047, t01=0x0030}
0x06f2a…06f4a Head {h00=0x001c, h01=0x0050, text=»* A11= CREDIT WORK AREA «, t00=0x0047, t01=0x0048}
0x06f4a…06f62 Head {h00=0x0014, h01=0x0050, text=»* A13= RESERVED «, t00=0x0047, t01=0x0068}
0x06f62…06f6c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0047, t01=0x0080}
0x06f6c…06fac Head {h00=0x003c, h01=0x0050, text=»******************************************************* «, t00=0x0047, t01=0x008a}
0x06fac…06fc0 Head {h00=0x0010, h01=0x0050, text=»SDISP EQU * «, t00=0x0047, t01=0x00ca}
0x06fc0…06fd8 Head {h00=0x0014, h01=0x0050, text=» LD A8,ECBSD,A11«, t00=0x0047, t01=0x00de}
0x06fd8…06ff0 Head {h00=0x0014, h01=0x0050, text=» ST A1,ECBCW,A8 «, t00=0x0047, t01=0x00f6}
0x06ff0…0701e Head {h00=0x002a, h01=0x0050, text=»** SECOND KEYBOARD MODS, DK, P & T **«, t00=0x0047, t01=0x010e}
0x0701e…07046 Head {h00=0x0024, h01=0x0050, text=» LD A8,ECBSD,A11 GET DISP. ECB «, t00=0x0047, t01=0x013c}
0x07046…0706c Head {h00=0x0022, h01=0x0050, text=» LDK A1,/41 CHANGE FILE CODE «, t00=0x0047, t01=0x0164}
0x0706c…07080 Head {h00=0x0010, h01=0x0050, text=» SC A1,1,A8 «, t00=0x0047, t01=0x018a}
0x07080…0708e Head {h00=0x000a, h01=0x0050, text=» LKM «, t00=0x0048, t01=0x000e}
0x0708e…070b6 Head {h00=0x0024, h01=0x0050, text=» DATA 1 LAMPS ON SECOND KEYB'RD «, t00=0x0048, t01=0x001c}
0x070b6…070cc Head {h00=0x0012, h01=0x0050, text=»SDISP1 EQU * «, t00=0x0048, t01=0x0044}
0x070cc…070e6 Head {h00=0x0016, h01=0x0050, text=» LD A8,ECBSD,A11 «, t00=0x0048, t01=0x005a}
0x070e6…07114 Head {h00=0x002a, h01=0x0050, text=» LDK A1,/40 RESTORE FILE CODE 1ST KB «, t00=0x0048, t01=0x0074}
0x07114…07128 Head {h00=0x0010, h01=0x0050, text=» SC A1,1,A8 «, t00=0x0048, t01=0x00a2}
0x07128…07146 Head {h00=0x001a, h01=0x0050, text=»** END OF DK MODS ** «, t00=0x0048, t01=0x00b6}
0x07146…07152 Head {h00=0x0008, h01=0x0050, text=» LKM«, t00=0x0048, t01=0x00d4}
0x07152…07162 Head {h00=0x000c, h01=0x0050, text=» DATA 1 «, t00=0x0048, t01=0x00e0}
0x07162…07172 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0048, t01=0x00f0}
0x07172…07180 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0048, t01=0x0100}
0x07180…071c8 Head {h00=0x0044, h01=0x0050, text=»****************************************************************«, t00=0x0048, t01=0x010e}
0x071c8…07210 Head {h00=0x0044, h01=0x0050, text=»* *«, t00=0x0048, t01=0x0156}
0x07210…07258 Head {h00=0x0044, h01=0x0050, text=»* KEYTAB KEY-TABLE, FIXED ENTRY FOR EACH FUNC. *«, t00=0x0049, t01=0x000e}
0x07258…072a0 Head {h00=0x0044, h01=0x0050, text=»* *«, t00=0x0049, t01=0x0056}
0x072a0…072e8 Head {h00=0x0044, h01=0x0050, text=»****************************************************************«, t00=0x0049, t01=0x009e}
0x072e8…072fc Head {h00=0x0010, h01=0x0050, text=»KEYTAB EQU *«, t00=0x0049, t01=0x00e6}
0x072fc…07308 Head {h00=0x0008, h01=0x0050, text=»*20 «, t00=0x0049, t01=0x00fa}
0x07308…07320 Head {h00=0x0014, h01=0x0050, text=» DATA CHAR SPACE«, t00=0x0049, t01=0x0106}
0x07320…07334 Head {h00=0x0010, h01=0x0050, text=» DATA CHAR !«, t00=0x0049, t01=0x011e}
0x07334…07348 Head {h00=0x0010, h01=0x0050, text=» DATA CHAR "«, t00=0x0049, t01=0x0132}
0x07348…0735a Head {h00=0x000e, h01=0x0050, text=» DATA CHAR«, t00=0x0049, t01=0x0146}
0x0735a…0736e Head {h00=0x0010, h01=0x0050, text=» DATA CHAR $«, t00=0x0049, t01=0x0158}
0x0736e…07382 Head {h00=0x0010, h01=0x0050, text=» DATA CHAR «, t00=0x0049, t01=0x016c}
0x07382…07396 Head {h00=0x0010, h01=0x0050, text=» DATA CHAR &«, t00=0x0049, t01=0x0180}
0x07396…073aa (74, 0, 400) Head {h00=0x0010, h01=0x0050, text=» DATA CHAR '«, t00=0x004a, t01=0x0004}
0x073aa…073be Head {h00=0x0010, h01=0x0050, text=» DATA CHAR («, t00=0x004a, t01=0x0018}
0x073be…073d2 Head {h00=0x0010, h01=0x0050, text=» DATA CHAR )«, t00=0x004a, t01=0x002c}
0x073d2…073e6 Head {h00=0x0010, h01=0x0050, text=» DATA CHAR *«, t00=0x004a, t01=0x0040}
0x073e6…073fa Head {h00=0x0010, h01=0x0050, text=» DATA NUM + «, t00=0x004a, t01=0x0054}
0x073fa…0740e Head {h00=0x0010, h01=0x0050, text=» DATA NUM , «, t00=0x004a, t01=0x0068}
0x0740e…07422 Head {h00=0x0010, h01=0x0050, text=» DATA NUM - «, t00=0x004a, t01=0x007c}
0x07422…07436 Head {h00=0x0010, h01=0x0050, text=» DATA NUM . «, t00=0x004a, t01=0x0090}
0x07436…0744a Head {h00=0x0010, h01=0x0050, text=» DATA CHAR /«, t00=0x004a, t01=0x00a4}
0x0744a…07456 Head {h00=0x0008, h01=0x0050, text=»*30 «, t00=0x004a, t01=0x00b8}
0x07456…0746a Head {h00=0x0010, h01=0x0050, text=» DATA NUM 0 «, t00=0x004a, t01=0x00c4}
0x0746a…0747e Head {h00=0x0010, h01=0x0050, text=» DATA NUM 1 «, t00=0x004a, t01=0x00d8}
0x0747e…07492 Head {h00=0x0010, h01=0x0050, text=» DATA NUM 2 «, t00=0x004a, t01=0x00ec}
0x07492…074a6 Head {h00=0x0010, h01=0x0050, text=» DATA NUM 3 «, t00=0x004a, t01=0x0100}
0x074a6…074ba Head {h00=0x0010, h01=0x0050, text=» DATA NUM 4 «, t00=0x004a, t01=0x0114}
0x074ba…074ce Head {h00=0x0010, h01=0x0050, text=» DATA NUM 5 «, t00=0x004a, t01=0x0128}
0x074ce…074e2 Head {h00=0x0010, h01=0x0050, text=» DATA NUM 6 «, t00=0x004a, t01=0x013c}
0x074e2…074f6 Head {h00=0x0010, h01=0x0050, text=» DATA NUM 7 «, t00=0x004a, t01=0x0150}
0x074f6…0750a Head {h00=0x0010, h01=0x0050, text=» DATA NUM 8 «, t00=0x004a, t01=0x0164}
0x0750a…0751e Head {h00=0x0010, h01=0x0050, text=» DATA NUM 9 «, t00=0x004a, t01=0x0178}
0x0751e…07532 Head {h00=0x0010, h01=0x0050, text=» DATA CHAR :«, t00=0x004a, t01=0x018c}
0x07532…07546 Head {h00=0x0010, h01=0x0050, text=» DATA CHAR ;«, t00=0x004b, t01=0x0010}
0x07546…0755a Head {h00=0x0010, h01=0x0050, text=» DATA CHAR <«, t00=0x004b, t01=0x0024}
0x0755a…0756e Head {h00=0x0010, h01=0x0050, text=» DATA CHAR =«, t00=0x004b, t01=0x0038}
0x0756e…07582 Head {h00=0x0010, h01=0x0050, text=» DATA CHAR >«, t00=0x004b, t01=0x004c}
0x07582…07596 Head {h00=0x0010, h01=0x0050, text=» DATA CHAR ?«, t00=0x004b, t01=0x0060}
0x07596…075a2 Head {h00=0x0008, h01=0x0050, text=»*40 «, t00=0x004b, t01=0x0074}
0x075a2…075b4 Head {h00=0x000e, h01=0x0050, text=» DATA CHAR«, t00=0x004b, t01=0x0080}
0x075b4…075c8 Head {h00=0x0010, h01=0x0050, text=» DATA CHAR A«, t00=0x004b, t01=0x0092}
0x075c8…075dc Head {h00=0x0010, h01=0x0050, text=» DATA CHAR B«, t00=0x004b, t01=0x00a6}
0x075dc…075f0 Head {h00=0x0010, h01=0x0050, text=» DATA CHAR C«, t00=0x004b, t01=0x00ba}
0x075f0…07604 Head {h00=0x0010, h01=0x0050, text=» DATA CHAR D«, t00=0x004b, t01=0x00ce}
0x07604…07618 Head {h00=0x0010, h01=0x0050, text=» DATA CHAR E«, t00=0x004b, t01=0x00e2}
0x07618…0762c Head {h00=0x0010, h01=0x0050, text=» DATA CHAR F«, t00=0x004b, t01=0x00f6}
0x0762c…07640 Head {h00=0x0010, h01=0x0050, text=» DATA CHAR G«, t00=0x004b, t01=0x010a}
0x07640…07654 Head {h00=0x0010, h01=0x0050, text=» DATA CHAR H«, t00=0x004b, t01=0x011e}
0x07654…07668 Head {h00=0x0010, h01=0x0050, text=» DATA CHAR I«, t00=0x004b, t01=0x0132}
0x07668…0767c Head {h00=0x0010, h01=0x0050, text=» DATA CHAR J«, t00=0x004b, t01=0x0146}
0x0767c…07690 Head {h00=0x0010, h01=0x0050, text=» DATA CHAR K«, t00=0x004b, t01=0x015a}
0x07690…076a4 Head {h00=0x0010, h01=0x0050, text=» DATA CHAR L«, t00=0x004b, t01=0x016e}
0x076a4…076b8 Head {h00=0x0010, h01=0x0050, text=» DATA CHAR M«, t00=0x004b, t01=0x0182}
0x076b8…076cc Head {h00=0x0010, h01=0x0050, text=» DATA CHAR N«, t00=0x004c, t01=0x0008}
0x076cc…076e0 Head {h00=0x0010, h01=0x0050, text=» DATA CHAR O«, t00=0x004c, t01=0x001c}
0x076e0…076ec Head {h00=0x0008, h01=0x0050, text=»*50 «, t00=0x004c, t01=0x0030}
0x076ec…07700 Head {h00=0x0010, h01=0x0050, text=» DATA CHAR P«, t00=0x004c, t01=0x003c}
0x07700…07714 Head {h00=0x0010, h01=0x0050, text=» DATA CHAR Q«, t00=0x004c, t01=0x0050}
0x07714…07728 Head {h00=0x0010, h01=0x0050, text=» DATA CHAR R«, t00=0x004c, t01=0x0064}
0x07728…0773c Head {h00=0x0010, h01=0x0050, text=» DATA CHAR S«, t00=0x004c, t01=0x0078}
0x0773c…07750 Head {h00=0x0010, h01=0x0050, text=» DATA CHAR T«, t00=0x004c, t01=0x008c}
0x07750…07764 Head {h00=0x0010, h01=0x0050, text=» DATA CHAR U«, t00=0x004c, t01=0x00a0}
0x07764…07778 Head {h00=0x0010, h01=0x0050, text=» DATA CHAR V«, t00=0x004c, t01=0x00b4}
0x07778…0778c Head {h00=0x0010, h01=0x0050, text=» DATA CHAR W«, t00=0x004c, t01=0x00c8}
0x0778c…077a0 Head {h00=0x0010, h01=0x0050, text=» DATA CHAR X«, t00=0x004c, t01=0x00dc}
0x077a0…077b4 Head {h00=0x0010, h01=0x0050, text=» DATA CHAR Y«, t00=0x004c, t01=0x00f0}
0x077b4…077c8 Head {h00=0x0010, h01=0x0050, text=» DATA CHAR Z«, t00=0x004c, t01=0x0104}
0x077c8…077da Head {h00=0x000e, h01=0x0050, text=» DATA CHAR«, t00=0x004c, t01=0x0118}
0x077da…077ec Head {h00=0x000e, h01=0x0050, text=» DATA CHAR«, t00=0x004c, t01=0x012a}
0x077ec…077fe Head {h00=0x000e, h01=0x0050, text=» DATA CHAR«, t00=0x004c, t01=0x013c}
0x077fe…07812 Head {h00=0x0010, h01=0x0050, text=» DATA CHAR ^«, t00=0x004c, t01=0x014e}
0x07812…0782e Head {h00=0x0018, h01=0x0050, text=» DATA CHAR UNDERLINE«, t00=0x004c, t01=0x0162}
0x0782e…0783a Head {h00=0x0008, h01=0x0050, text=»*60 «, t00=0x004c, t01=0x017e}
0x0783a…0784c Head {h00=0x000e, h01=0x0050, text=» DATA CHAR«, t00=0x004c, t01=0x018a}
0x0784c…07870 Head {h00=0x0020, h01=0x0050, text=» DATA CHAR a LOWER CASE A-Z «, t00=0x004d, t01=0x000c}
0x07870…07884 Head {h00=0x0010, h01=0x0050, text=» DATA CHAR b«, t00=0x004d, t01=0x0030}
0x07884…07898 Head {h00=0x0010, h01=0x0050, text=» DATA CHAR c«, t00=0x004d, t01=0x0044}
0x07898…078ac Head {h00=0x0010, h01=0x0050, text=» DATA CHAR d«, t00=0x004d, t01=0x0058}
0x078ac…078c0 Head {h00=0x0010, h01=0x0050, text=» DATA CHAR e«, t00=0x004d, t01=0x006c}
0x078c0…078d4 Head {h00=0x0010, h01=0x0050, text=» DATA CHAR f«, t00=0x004d, t01=0x0080}
0x078d4…078e8 Head {h00=0x0010, h01=0x0050, text=» DATA CHAR g«, t00=0x004d, t01=0x0094}
0x078e8…078fc Head {h00=0x0010, h01=0x0050, text=» DATA CHAR h«, t00=0x004d, t01=0x00a8}
0x078fc…07910 Head {h00=0x0010, h01=0x0050, text=» DATA CHAR i«, t00=0x004d, t01=0x00bc}
0x07910…07924 Head {h00=0x0010, h01=0x0050, text=» DATA CHAR j«, t00=0x004d, t01=0x00d0}
0x07924…07938 Head {h00=0x0010, h01=0x0050, text=» DATA CHAR k«, t00=0x004d, t01=0x00e4}
0x07938…0794c Head {h00=0x0010, h01=0x0050, text=» DATA CHAR l«, t00=0x004d, t01=0x00f8}
0x0794c…07960 Head {h00=0x0010, h01=0x0050, text=» DATA CHAR m«, t00=0x004d, t01=0x010c}
0x07960…07974 Head {h00=0x0010, h01=0x0050, text=» DATA CHAR n«, t00=0x004d, t01=0x0120}
0x07974…07988 Head {h00=0x0010, h01=0x0050, text=» DATA CHAR o«, t00=0x004d, t01=0x0134}
0x07988…07994 Head {h00=0x0008, h01=0x0050, text=»*70 «, t00=0x004d, t01=0x0148}
0x07994…079a8 Head {h00=0x0010, h01=0x0050, text=» DATA CHAR p«, t00=0x004d, t01=0x0154}
0x079a8…079bc Head {h00=0x0010, h01=0x0050, text=» DATA CHAR q«, t00=0x004d, t01=0x0168}
0x079bc…079d0 Head {h00=0x0010, h01=0x0050, text=» DATA CHAR r«, t00=0x004d, t01=0x017c}
0x079d0…079e4 Head {h00=0x0010, h01=0x0050, text=» DATA CHAR s«, t00=0x004d, t01=0x0190}
0x079e4…079f8 Head {h00=0x0010, h01=0x0050, text=» DATA CHAR t«, t00=0x004e, t01=0x0014}
0x079f8…07a0c Head {h00=0x0010, h01=0x0050, text=» DATA CHAR u«, t00=0x004e, t01=0x0028}
0x07a0c…07a20 Head {h00=0x0010, h01=0x0050, text=» DATA CHAR v«, t00=0x004e, t01=0x003c}
0x07a20…07a34 Head {h00=0x0010, h01=0x0050, text=» DATA CHAR w«, t00=0x004e, t01=0x0050}
0x07a34…07a48 Head {h00=0x0010, h01=0x0050, text=» DATA CHAR x«, t00=0x004e, t01=0x0064}
0x07a48…07a5c Head {h00=0x0010, h01=0x0050, text=» DATA CHAR y«, t00=0x004e, t01=0x0078}
0x07a5c…07a70 Head {h00=0x0010, h01=0x0050, text=» DATA CHAR z«, t00=0x004e, t01=0x008c}
0x07a70…07a82 Head {h00=0x000e, h01=0x0050, text=» DATA CHAR«, t00=0x004e, t01=0x00a0}
0x07a82…07a94 Head {h00=0x000e, h01=0x0050, text=» DATA CHAR«, t00=0x004e, t01=0x00b2}
0x07a94…07aa6 Head {h00=0x000e, h01=0x0050, text=» DATA CHAR«, t00=0x004e, t01=0x00c4}
0x07aa6…07ab8 Head {h00=0x000e, h01=0x0050, text=» DATA CHAR«, t00=0x004e, t01=0x00d6}
0x07ab8…07acc Head {h00=0x0010, h01=0x0050, text=» DATA RETURN«, t00=0x004e, t01=0x00e8}
0x07acc…07ad8 Head {h00=0x0008, h01=0x0050, text=»*80 «, t00=0x004e, t01=0x00fc}
0x07ad8…07aec Head {h00=0x0010, h01=0x0050, text=» DATA CURMOV«, t00=0x004e, t01=0x0108}
0x07aec…07b00 Head {h00=0x0010, h01=0x0050, text=» DATA CURMOV«, t00=0x004e, t01=0x011c}
0x07b00…07b14 Head {h00=0x0010, h01=0x0050, text=» DATA CURMOV«, t00=0x004e, t01=0x0130}
0x07b14…07b28 Head {h00=0x0010, h01=0x0050, text=» DATA CURMOV«, t00=0x004e, t01=0x0144}
0x07b28…07b3c Head {h00=0x0010, h01=0x0050, text=» DATA BAKTAB«, t00=0x004e, t01=0x0158}
0x07b3c…07b4e Head {h00=0x000e, h01=0x0050, text=» DATA TAB «, t00=0x004e, t01=0x016c}
0x07b4e…07b60 Head {h00=0x000e, h01=0x0050, text=» DATA CRNL«, t00=0x004e, t01=0x017e}
0x07b60…07b74 Head {h00=0x0010, h01=0x0050, text=» DATA RDHOME«, t00=0x004e, t01=0x0190}
0x07b74…07b88 Head {h00=0x0010, h01=0x0050, text=» DATA EREOF «, t00=0x004f, t01=0x0014}
0x07b88…07b9c Head {h00=0x0010, h01=0x0050, text=» DATA ERINPT«, t00=0x004f, t01=0x0028}
0x07b9c…07bb0 Head {h00=0x0010, h01=0x0050, text=» IFT IN:DL=1«, t00=0x004f, t01=0x003c}
0x07bb0…07bc4 Head {h00=0x0010, h01=0x0050, text=» DATA INSERT«, t00=0x004f, t01=0x0050}
0x07bc4…07bd8 Head {h00=0x0010, h01=0x0050, text=» DATA DELETE«, t00=0x004f, t01=0x0064}
0x07bd8…07be4 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x004f, t01=0x0078}
0x07be4…07bf8 Head {h00=0x0010, h01=0x0050, text=» IFF IN:DL=1«, t00=0x004f, t01=0x0084}
0x07bf8…07c0c Head {h00=0x0010, h01=0x0050, text=» DATA RETURN«, t00=0x004f, t01=0x0098}
0x07c0c…07c20 Head {h00=0x0010, h01=0x0050, text=» DATA RETURN«, t00=0x004f, t01=0x00ac}
0x07c20…07c2c Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x004f, t01=0x00c0}
0x07c2c…07c40 Head {h00=0x0010, h01=0x0050, text=» DATA RESET «, t00=0x004f, t01=0x00cc}
0x07c40…07c52 Head {h00=0x000e, h01=0x0050, text=» DATA DUP «, t00=0x004f, t01=0x00e0}
0x07c52…07c66 Head {h00=0x0010, h01=0x0050, text=» DATA FLDMRK«, t00=0x004f, t01=0x00f2}
0x07c66…07c7a Head {h00=0x0010, h01=0x0050, text=» DATA ZERO:2«, t00=0x004f, t01=0x0106}
0x07c7a…07c86 Head {h00=0x0008, h01=0x0050, text=»*90 «, t00=0x004f, t01=0x011a}
0x07c86…07c9a Head {h00=0x0010, h01=0x0050, text=» DATA ZERO:3«, t00=0x004f, t01=0x0126}
0x07c9a…07cae Head {h00=0x0010, h01=0x0050, text=» DATA NUMCOM«, t00=0x004f, t01=0x013a}
0x07cae…07cc0 Head {h00=0x000e, h01=0x0050, text=» DATA COPY«, t00=0x004f, t01=0x014e}
0x07cc0…07cd4 Head {h00=0x0010, h01=0x0050, text=» DATA IDENT «, t00=0x004f, t01=0x0160}
0x07cd4…07cea Head {h00=0x0012, h01=0x0050, text=» IFT KEYLST=1 «, t00=0x004f, t01=0x0174}
0x07cea…07cfc Head {h00=0x000e, h01=0x0050, text=» DATA KEYL«, t00=0x004f, t01=0x018a}
0x07cfc…07d0e Head {h00=0x000e, h01=0x0050, text=» DATA KEYL«, t00=0x0050, t01=0x000c}
0x07d0e…07d20 Head {h00=0x000e, h01=0x0050, text=» DATA KEYL«, t00=0x0050, t01=0x001e}
0x07d20…07d32 Head {h00=0x000e, h01=0x0050, text=» DATA KEYL«, t00=0x0050, t01=0x0030}
0x07d32…07d44 Head {h00=0x000e, h01=0x0050, text=» DATA KEYL«, t00=0x0050, t01=0x0042}
0x07d44…07d56 Head {h00=0x000e, h01=0x0050, text=» DATA KEYL«, t00=0x0050, t01=0x0054}
0x07d56…07d68 Head {h00=0x000e, h01=0x0050, text=» DATA KEYL«, t00=0x0050, t01=0x0066}
0x07d68…07d7a Head {h00=0x000e, h01=0x0050, text=» DATA KEYL«, t00=0x0050, t01=0x0078}
0x07d7a…07d86 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0050, t01=0x008a}
0x07d86…07d9c Head {h00=0x0012, h01=0x0050, text=» IFF KEYLST=1 «, t00=0x0050, t01=0x0096}
0x07d9c…07db0 Head {h00=0x0010, h01=0x0050, text=» DATA RETURN«, t00=0x0050, t01=0x00ac}
0x07db0…07dc4 Head {h00=0x0010, h01=0x0050, text=» DATA RETURN«, t00=0x0050, t01=0x00c0}
0x07dc4…07dd8 Head {h00=0x0010, h01=0x0050, text=» DATA RETURN«, t00=0x0050, t01=0x00d4}
0x07dd8…07dec Head {h00=0x0010, h01=0x0050, text=» DATA RETURN«, t00=0x0050, t01=0x00e8}
0x07dec…07e00 Head {h00=0x0010, h01=0x0050, text=» DATA RETURN«, t00=0x0050, t01=0x00fc}
0x07e00…07e14 Head {h00=0x0010, h01=0x0050, text=» DATA RETURN«, t00=0x0050, t01=0x0110}
0x07e14…07e28 Head {h00=0x0010, h01=0x0050, text=» DATA RETURN«, t00=0x0050, t01=0x0124}
0x07e28…07e3c Head {h00=0x0010, h01=0x0050, text=» DATA RETURN«, t00=0x0050, t01=0x0138}
0x07e3c…07e48 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0050, t01=0x014c}
0x07e48…07e84 Head {h00=0x0038, h01=0x0050, text=» DATA RETURN FREE LABEL FOR NEW KEY (NOT P. A. KEY) «, t00=0x0050, t01=0x0158}
0x07e84…07ec0 (81, 0, 400) Head {h00=0x0038, h01=0x0050, text=» DATA RETURN FREE LABEL FOR NEW KEY (NOT P. A. KEY) «, t00=0x0051, t01=0x0004}
0x07ec0…07efc Head {h00=0x0038, h01=0x0050, text=» DATA RETURN FREE LABEL FOR NEW KEY (NOT P. A. KEY) «, t00=0x0051, t01=0x0040}
0x07efc…07f14 Head {h00=0x0014, h01=0x0050, text=»*FIRST P. A. KEY«, t00=0x0051, t01=0x007c}
0x07f14…07f28 Head {h00=0x0010, h01=0x0050, text=» IFT OFLIN=1«, t00=0x0051, t01=0x0094}
0x07f28…07f3c Head {h00=0x0010, h01=0x0050, text=» DATA OFLINE«, t00=0x0051, t01=0x00a8}
0x07f3c…07f48 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0051, t01=0x00bc}
0x07f48…07f5c Head {h00=0x0010, h01=0x0050, text=» IFF OFLIN=1«, t00=0x0051, t01=0x00c8}
0x07f5c…07f70 Head {h00=0x0010, h01=0x0050, text=» DATA RETURN«, t00=0x0051, t01=0x00dc}
0x07f70…07f7c Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0051, t01=0x00f0}
0x07f7c…07f88 Head {h00=0x0008, h01=0x0050, text=»*A0 «, t00=0x0051, t01=0x00fc}
0x07f88…07f9c Head {h00=0x0010, h01=0x0050, text=» DATA ENTER «, t00=0x0051, t01=0x0108}
0x07f9c…07fae Head {h00=0x000e, h01=0x0050, text=» IFT SNA=1«, t00=0x0051, t01=0x011c}
0x07fae…07fc2 Head {h00=0x0010, h01=0x0050, text=» DATA SYSREQ«, t00=0x0051, t01=0x012e}
0x07fc2…07fd6 Head {h00=0x0010, h01=0x0050, text=» DATA CLEAR «, t00=0x0051, t01=0x0142}
0x07fd6…07fe8 Head {h00=0x000e, h01=0x0050, text=» DATA ATTN«, t00=0x0051, t01=0x0156}
0x07fe8…07ff4 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0051, t01=0x0168}
0x07ff4…08006 Head {h00=0x000e, h01=0x0050, text=» IFF SNA=1«, t00=0x0051, t01=0x0174}
0x08006…0801a Head {h00=0x0010, h01=0x0050, text=» DATA RETURN«, t00=0x0051, t01=0x0186}
0x0801a…0802e Head {h00=0x0010, h01=0x0050, text=» DATA CLEAR «, t00=0x0052, t01=0x000a}
0x0802e…08042 Head {h00=0x0010, h01=0x0050, text=» DATA RETURN«, t00=0x0052, t01=0x001e}
0x08042…0804e Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0052, t01=0x0032}
0x0804e…08064 Head {h00=0x0012, h01=0x0050, text=» IFT NBRLIN=2 «, t00=0x0052, t01=0x003e}
0x08064…08078 Head {h00=0x0010, h01=0x0050, text=» DATA MFCHGE«, t00=0x0052, t01=0x0054}
0x08078…08084 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0052, t01=0x0068}
0x08084…0809a Head {h00=0x0012, h01=0x0050, text=» IFF NBRLIN=2 «, t00=0x0052, t01=0x0074}
0x0809a…080ae Head {h00=0x0010, h01=0x0050, text=» DATA RETURN«, t00=0x0052, t01=0x008a}
0x080ae…080ba Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0052, t01=0x009e}
0x080ba…080cc Head {h00=0x000e, h01=0x0050, text=» IFT PAX=1«, t00=0x0052, t01=0x00aa}
0x080cc…080de Head {h00=0x000e, h01=0x0050, text=» DATA PAEX«, t00=0x0052, t01=0x00bc}
0x080de…080ea Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0052, t01=0x00ce}
0x080ea…080fc Head {h00=0x000e, h01=0x0050, text=» IFF PAX=1«, t00=0x0052, t01=0x00da}
0x080fc…08110 Head {h00=0x0010, h01=0x0050, text=» DATA RETURN«, t00=0x0052, t01=0x00ec}
0x08110…0811c Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0052, t01=0x0100}
0x0811c…0812e Head {h00=0x000e, h01=0x0050, text=» DATA PA1 «, t00=0x0052, t01=0x010c}
0x0812e…08140 Head {h00=0x000e, h01=0x0050, text=» DATA PA2 «, t00=0x0052, t01=0x011e}
0x08140…08152 Head {h00=0x000e, h01=0x0050, text=» DATA PA3 «, t00=0x0052, t01=0x0130}
0x08152…0817a Head {h00=0x0024, h01=0x0050, text=» DATA PAALFA PA4-PA10 (ALFASKOP)«, t00=0x0052, t01=0x0142}
0x0817a…0818e Head {h00=0x0010, h01=0x0050, text=» DATA PAALFA«, t00=0x0052, t01=0x016a}
0x0818e…081a2 Head {h00=0x0010, h01=0x0050, text=» DATA PAALFA«, t00=0x0052, t01=0x017e}
0x081a2…081b6 (83, 0, 400) Head {h00=0x0010, h01=0x0050, text=» DATA PAALFA«, t00=0x0053, t01=0x0004}
0x081b6…081ca Head {h00=0x0010, h01=0x0050, text=» DATA PAALFA«, t00=0x0053, t01=0x0018}
0x081ca…081de Head {h00=0x0010, h01=0x0050, text=» DATA PAALFA«, t00=0x0053, t01=0x002c}
0x081de…081f2 Head {h00=0x0010, h01=0x0050, text=» DATA PAALFA«, t00=0x0053, t01=0x0040}
0x081f2…081fe Head {h00=0x0008, h01=0x0050, text=»*B0 «, t00=0x0053, t01=0x0054}
0x081fe…08210 Head {h00=0x000e, h01=0x0050, text=» IFT PFX=1«, t00=0x0053, t01=0x0060}
0x08210…08222 Head {h00=0x000e, h01=0x0050, text=» DATA PFEX«, t00=0x0053, t01=0x0072}
0x08222…0822e Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0053, t01=0x0084}
0x0822e…08240 Head {h00=0x000e, h01=0x0050, text=» IFF PFX=1«, t00=0x0053, t01=0x0090}
0x08240…08254 Head {h00=0x0010, h01=0x0050, text=» DATA RETURN«, t00=0x0053, t01=0x00a2}
0x08254…08260 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0053, t01=0x00b6}
0x08260…08272 Head {h00=0x000e, h01=0x0050, text=» DATA PF 1«, t00=0x0053, t01=0x00c2}
0x08272…08284 Head {h00=0x000e, h01=0x0050, text=» DATA PF 2«, t00=0x0053, t01=0x00d4}
0x08284…08296 Head {h00=0x000e, h01=0x0050, text=» DATA PF 3«, t00=0x0053, t01=0x00e6}
0x08296…082a8 Head {h00=0x000e, h01=0x0050, text=» DATA PF 4«, t00=0x0053, t01=0x00f8}
0x082a8…082ba Head {h00=0x000e, h01=0x0050, text=» DATA PF 5«, t00=0x0053, t01=0x010a}
0x082ba…082cc Head {h00=0x000e, h01=0x0050, text=» DATA PF 6«, t00=0x0053, t01=0x011c}
0x082cc…082de Head {h00=0x000e, h01=0x0050, text=» DATA PF 7«, t00=0x0053, t01=0x012e}
0x082de…082f0 Head {h00=0x000e, h01=0x0050, text=» DATA PF 8«, t00=0x0053, t01=0x0140}
0x082f0…08302 Head {h00=0x000e, h01=0x0050, text=» DATA PF 9«, t00=0x0053, t01=0x0152}
0x08302…08316 Head {h00=0x0010, h01=0x0050, text=» DATA PF 10 «, t00=0x0053, t01=0x0164}
0x08316…0832a Head {h00=0x0010, h01=0x0050, text=» DATA PF 11 «, t00=0x0053, t01=0x0178}
0x0832a…0833e Head {h00=0x0010, h01=0x0050, text=» DATA PF 12 «, t00=0x0053, t01=0x018c}
0x0833e…08352 Head {h00=0x0010, h01=0x0050, text=» DATA PF 13 «, t00=0x0054, t01=0x0010}
0x08352…08366 Head {h00=0x0010, h01=0x0050, text=» DATA PF 14 «, t00=0x0054, t01=0x0024}
0x08366…0837a Head {h00=0x0010, h01=0x0050, text=» DATA PF 15 «, t00=0x0054, t01=0x0038}
0x0837a…08386 Head {h00=0x0008, h01=0x0050, text=»*C0 «, t00=0x0054, t01=0x004c}
0x08386…0839a Head {h00=0x0010, h01=0x0050, text=» DATA PF 16 «, t00=0x0054, t01=0x0058}
0x0839a…083ae Head {h00=0x0010, h01=0x0050, text=» DATA PF 17 «, t00=0x0054, t01=0x006c}
0x083ae…083c2 Head {h00=0x0010, h01=0x0050, text=» DATA PF 18 «, t00=0x0054, t01=0x0080}
0x083c2…083d6 Head {h00=0x0010, h01=0x0050, text=» DATA PF 19 «, t00=0x0054, t01=0x0094}
0x083d6…083ea Head {h00=0x0010, h01=0x0050, text=» DATA PF 20 «, t00=0x0054, t01=0x00a8}
0x083ea…083fe Head {h00=0x0010, h01=0x0050, text=» DATA PF 21 «, t00=0x0054, t01=0x00bc}
0x083fe…08412 Head {h00=0x0010, h01=0x0050, text=» DATA PF 22 «, t00=0x0054, t01=0x00d0}
0x08412…08426 Head {h00=0x0010, h01=0x0050, text=» DATA PF 23 «, t00=0x0054, t01=0x00e4}
0x08426…0843a Head {h00=0x0010, h01=0x0050, text=» DATA PF 24 «, t00=0x0054, t01=0x00f8}
0x0843a…0844e Head {h00=0x0010, h01=0x0050, text=» IFF TEST=1 «, t00=0x0054, t01=0x010c}
0x0844e…08462 Head {h00=0x0010, h01=0x0050, text=» DATA RETURN«, t00=0x0054, t01=0x0120}
0x08462…0846e Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0054, t01=0x0134}
0x0846e…08482 Head {h00=0x0010, h01=0x0050, text=» IFT TEST=1 «, t00=0x0054, t01=0x0140}
0x08482…08496 Head {h00=0x0010, h01=0x0050, text=» DATA TESTM «, t00=0x0054, t01=0x0154}
0x08496…084a2 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0054, t01=0x0168}
0x084a2…084b0 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0054, t01=0x0174}
0x084b0…084f6 Head {h00=0x0042, h01=0x0050, text=»**************************************************************«, t00=0x0054, t01=0x0182}
0x084f6…0853e Head {h00=0x0044, h01=0x0050, text=»* * «, t00=0x0055, t01=0x0038}
0x0853e…08584 Head {h00=0x0042, h01=0x0050, text=»* CHAR ALPHABETIC AND SPEC. CHAR UPDAT. DISPL. *«, t00=0x0055, t01=0x0080}
0x08584…085ca Head {h00=0x0042, h01=0x0050, text=»* *«, t00=0x0055, t01=0x00c6}
0x085ca…08610 Head {h00=0x0042, h01=0x0050, text=»**************************************************************«, t00=0x0055, t01=0x010c}
0x08610…08624 Head {h00=0x0010, h01=0x0050, text=»* REGISTERS«, t00=0x0055, t01=0x0152}
0x08624…0862e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0055, t01=0x0166}
0x0862e…08644 Head {h00=0x0012, h01=0x0050, text=»* A2= KEY-CHAR«, t00=0x0055, t01=0x0170}
0x08644…08662 Head {h00=0x001a, h01=0x0050, text=»* A3= ATTRIBUTE MASKL «, t00=0x0055, t01=0x0186}
0x08662…08678 Head {h00=0x0012, h01=0x0050, text=»* A4= RESERVED«, t00=0x0056, t01=0x0014}
0x08678…0868e Head {h00=0x0012, h01=0x0050, text=»* A5= RESERVED«, t00=0x0056, t01=0x002a}
0x0868e…086a4 Head {h00=0x0012, h01=0x0050, text=»* A6= RESERVED«, t00=0x0056, t01=0x0040}
0x086a4…086bc Head {h00=0x0014, h01=0x0050, text=»* A11= RESERVED «, t00=0x0056, t01=0x0056}
0x086bc…086d4 Head {h00=0x0014, h01=0x0050, text=»* A13= RESERVED «, t00=0x0056, t01=0x006e}
0x086d4…086de Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0056, t01=0x0086}
0x086de…08724 Head {h00=0x0042, h01=0x0050, text=»**************************************************************«, t00=0x0056, t01=0x0090}
0x08724…08736 Head {h00=0x000e, h01=0x0050, text=»CHAR EQU *«, t00=0x0056, t01=0x00d6}
0x08736…0875e Head {h00=0x0024, h01=0x0050, text=» LDK A3,/30 LOAD ATTRIBUTE MASK «, t00=0x0056, t01=0x00e8}
0x0875e…08788 Head {h00=0x0026, h01=0x0050, text=» CF A14,ANCOMM TAKE CARE OF CHAR. «, t00=0x0056, t01=0x0110}
0x08788…08798 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0056, t01=0x013a}
0x08798…087a6 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0056, t01=0x014a}
0x087a6…087ec Head {h00=0x0042, h01=0x0050, text=»**************************************************************«, t00=0x0056, t01=0x0158}
0x087ec…08832 Head {h00=0x0042, h01=0x0050, text=»* *«, t00=0x0057, t01=0x000e}
0x08832…08878 Head {h00=0x0042, h01=0x0050, text=»* NUM NUMERIC UPDAT. DISPL. *«, t00=0x0057, t01=0x0054}
0x08878…088be Head {h00=0x0042, h01=0x0050, text=»* NUMCOM NUMERIC COMMA *«, t00=0x0057, t01=0x009a}
0x088be…08906 Head {h00=0x0044, h01=0x0050, text=»* * «, t00=0x0057, t01=0x00e0}
0x08906…0894c Head {h00=0x0042, h01=0x0050, text=»**************************************************************«, t00=0x0057, t01=0x0128}
0x0894c…08960 Head {h00=0x0010, h01=0x0050, text=»* REGISTERS«, t00=0x0057, t01=0x016e}
0x08960…0896a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0057, t01=0x0182}
0x0896a…08980 Head {h00=0x0012, h01=0x0050, text=»* A2= KEY-CHAR«, t00=0x0057, t01=0x018c}
0x08980…0899c Head {h00=0x0018, h01=0x0050, text=»* A3= ATTRIBUTE MASK«, t00=0x0058, t01=0x0012}
0x0899c…089b2 Head {h00=0x0012, h01=0x0050, text=»* A4= RESERVED«, t00=0x0058, t01=0x002e}
0x089b2…089c8 Head {h00=0x0012, h01=0x0050, text=»* A5= RESERVED«, t00=0x0058, t01=0x0044}
0x089c8…089de Head {h00=0x0012, h01=0x0050, text=»* A6= RESERVED«, t00=0x0058, t01=0x005a}
0x089de…089f6 Head {h00=0x0014, h01=0x0050, text=»* A11= RESERVED «, t00=0x0058, t01=0x0070}
0x089f6…08a0e Head {h00=0x0014, h01=0x0050, text=»* A13= RESERVED «, t00=0x0058, t01=0x0088}
0x08a0e…08a18 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0058, t01=0x00a0}
0x08a18…08a5e Head {h00=0x0042, h01=0x0050, text=»************************************************************* «, t00=0x0058, t01=0x00aa}
0x08a5e…08a72 Head {h00=0x0010, h01=0x0050, text=»NUMCOM EQU *«, t00=0x0058, t01=0x00f0}
0x08a72…08a92 Head {h00=0x001c, h01=0x0050, text=» LDK A2,/2C INSERT COMMA«, t00=0x0058, t01=0x0104}
0x08a92…08aa4 Head {h00=0x000e, h01=0x0050, text=»NUM EQU * «, t00=0x0058, t01=0x0124}
0x08aa4…08acc Head {h00=0x0024, h01=0x0050, text=» LDK A3,/20 LOAD ATTRIBUTE MASK «, t00=0x0058, t01=0x0136}
0x08acc…08af6 Head {h00=0x0026, h01=0x0050, text=» CF A14,ANCOMM TAKE CARE OF CHAR. «, t00=0x0058, t01=0x015e}
0x08af6…08b06 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0058, t01=0x0188}
0x08b06…08b14 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0059, t01=0x0008}
0x08b14…08b5c Head {h00=0x0044, h01=0x0050, text=»*************************************************************** «, t00=0x0059, t01=0x0016}
0x08b5c…08ba4 Head {h00=0x0044, h01=0x0050, text=»* * «, t00=0x0059, t01=0x005e}
0x08ba4…08bec Head {h00=0x0044, h01=0x0050, text=»* ANCOMM COMMON ROUTINE FOR ALPHANUM. CHAR. * «, t00=0x0059, t01=0x00a6}
0x08bec…08c34 Head {h00=0x0044, h01=0x0050, text=»* * «, t00=0x0059, t01=0x00ee}
0x08c34…08c7c Head {h00=0x0044, h01=0x0050, text=»*************************************************************** «, t00=0x0059, t01=0x0136}
0x08c7c…08c90 Head {h00=0x0010, h01=0x0050, text=»* REGISTERS«, t00=0x0059, t01=0x017e}
0x08c90…08c9a (90, 0, 400) Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005a, t01=0x0004}
0x08c9a…08cb0 Head {h00=0x0012, h01=0x0050, text=»* A2= KEY-CHAR«, t00=0x005a, t01=0x000e}
0x08cb0…08cd6 Head {h00=0x0022, h01=0x0050, text=»* A3= AT ENTRY ATTRIBUTE MASK «, t00=0x005a, t01=0x0024}
0x08cd6…08cf4 Head {h00=0x001a, h01=0x0050, text=»* A4= REL. CURSOR POS.«, t00=0x005a, t01=0x004a}
0x08cf4…08d16 Head {h00=0x001e, h01=0x0050, text=»* A5= REL. ATTRIBUTE POS. «, t00=0x005a, t01=0x0068}
0x08d16…08d34 Head {h00=0x001a, h01=0x0050, text=»* A6= ATTRIBUTE CHAR. «, t00=0x005a, t01=0x008a}
0x08d34…08d54 Head {h00=0x001c, h01=0x0050, text=»* A11= CREDIT WORK AREA «, t00=0x005a, t01=0x00a8}
0x08d54…08d6c Head {h00=0x0014, h01=0x0050, text=»* A13= RESERVED «, t00=0x005a, t01=0x00c8}
0x08d6c…08d76 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005a, t01=0x00e0}
0x08d76…08dbe Head {h00=0x0044, h01=0x0050, text=»*************************************************************** «, t00=0x005a, t01=0x00ea}
0x08dbe…08dd2 Head {h00=0x0010, h01=0x0050, text=»ANCOMM EQU *«, t00=0x005a, t01=0x0132}
0x08dd2…08e00 Head {h00=0x002a, h01=0x0050, text=» CF A14,SCRINF GET SCREEN INFORMATION «, t00=0x005a, t01=0x0146}
0x08e00…08e26 Head {h00=0x0022, h01=0x0050, text=» CWR A4,A5 CURSOR ON ATTRIBUTE«, t00=0x005a, t01=0x0174}
0x08e26…08e40 Head {h00=0x0016, h01=0x0050, text=» RF(E) ANC800 YES «, t00=0x005b, t01=0x000a}
0x08e40…08e52 Head {h00=0x000e, h01=0x0050, text=» LDR A1,A6«, t00=0x005b, t01=0x0024}
0x08e52…08e74 Head {h00=0x001e, h01=0x0050, text=» ANR A1,A3 ALLOWED POS. ? «, t00=0x005b, t01=0x0036}
0x08e74…08e8e Head {h00=0x0016, h01=0x0050, text=» RF(NZ) ANC800 NO «, t00=0x005b, t01=0x0058}
0x08e8e…08ea2 Head {h00=0x0010, h01=0x0050, text=» IFT IN:DL=1«, t00=0x005b, t01=0x0072}
0x08ea2…08ec6 Head {h00=0x0020, h01=0x0050, text=» LD A1,MODE,A11 INSERT MODE?«, t00=0x005b, t01=0x0086}
0x08ec6…08ede Head {h00=0x0014, h01=0x0050, text=» RF(Z) ANC100 NO«, t00=0x005b, t01=0x00aa}
0x08ede…08ef4 Head {h00=0x0012, h01=0x0050, text=» CF A14,INSMOD«, t00=0x005b, t01=0x00c2}
0x08ef4…08f06 Head {h00=0x000e, h01=0x0050, text=» LDR A7,A1«, t00=0x005b, t01=0x00d8}
0x08f06…08f28 Head {h00=0x001e, h01=0x0050, text=» ANK A7,1 INSRETED NORMAL?«, t00=0x005b, t01=0x00ea}
0x08f28…08f42 Head {h00=0x0016, h01=0x0050, text=» RF(NZ) ANC900 YES«, t00=0x005b, t01=0x010c}
0x08f42…08f68 Head {h00=0x0022, h01=0x0050, text=» ANK A1,2 INSERT NOT ALLOWED? «, t00=0x005b, t01=0x0126}
0x08f68…08f82 Head {h00=0x0016, h01=0x0050, text=» RF(NZ) ANC800 YES«, t00=0x005b, t01=0x014c}
0x08f82…08f8e Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x005b, t01=0x0166}
0x08f8e…08fa2 Head {h00=0x0010, h01=0x0050, text=»ANC100 EQU *«, t00=0x005b, t01=0x0172}
0x08fa2…08fb4 Head {h00=0x000e, h01=0x0050, text=» LDR A1,A4«, t00=0x005b, t01=0x0186}
0x08fb4…08fc6 Head {h00=0x000e, h01=0x0050, text=» LDR A7,A2«, t00=0x005c, t01=0x0008}
0x08fc6…08ffa Head {h00=0x0030, h01=0x0050, text=» CF A14,STOVDU STORE KEY-CHAR IN VDU BUFFER «, t00=0x005c, t01=0x001a}
0x08ffa…09028 Head {h00=0x002a, h01=0x0050, text=» CF A14,WCHAR DISPLAY CHAR AND CURSOR «, t00=0x005c, t01=0x004e}
0x09028…09064 Head {h00=0x0038, h01=0x0050, text=» CF A14,POSUNP MOVE CURSOR TO NEXT UNPROTECTED POS. «, t00=0x005c, t01=0x007c}
0x09064…09076 Head {h00=0x000e, h01=0x0050, text=» RF ANC900«, t00=0x005c, t01=0x00b8}
0x09076…0908a Head {h00=0x0010, h01=0x0050, text=»ANC800 EQU *«, t00=0x005c, t01=0x00ca}
0x0908a…090ae Head {h00=0x0020, h01=0x0050, text=» CF A14,ERROR INDICATE ERROR«, t00=0x005c, t01=0x00de}
0x090ae…090c2 Head {h00=0x0010, h01=0x0050, text=»ANC900 EQU *«, t00=0x005c, t01=0x0102}
0x090c2…090d2 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x005c, t01=0x0116}
0x090d2…090e0 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x005c, t01=0x0126}
0x090e0…09124 Head {h00=0x0040, h01=0x0050, text=»************************************************************«, t00=0x005c, t01=0x0134}
0x09124…09168 Head {h00=0x0040, h01=0x0050, text=»* *«, t00=0x005c, t01=0x0178}
0x09168…091ac Head {h00=0x0040, h01=0x0050, text=»* CURMOV MOVE CURSOR ON SCREEN *«, t00=0x005d, t01=0x002c}
0x091ac…091f0 Head {h00=0x0040, h01=0x0050, text=»* *«, t00=0x005d, t01=0x0070}
0x091f0…09234 Head {h00=0x0040, h01=0x0050, text=»************************************************************«, t00=0x005d, t01=0x00b4}
0x09234…09248 Head {h00=0x0010, h01=0x0050, text=»* REGISTERS«, t00=0x005d, t01=0x00f8}
0x09248…09252 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005d, t01=0x010c}
0x09252…09268 Head {h00=0x0012, h01=0x0050, text=»* A2= KEY-CHAR«, t00=0x005d, t01=0x0116}
0x09268…09286 Head {h00=0x001a, h01=0x0050, text=»* A4= REL. CURSOR POS.«, t00=0x005d, t01=0x012c}
0x09286…092a8 Head {h00=0x001e, h01=0x0050, text=»* A5= REL. ATTRIBUTE POS. «, t00=0x005d, t01=0x014a}
0x092a8…092c4 Head {h00=0x0018, h01=0x0050, text=»* A6= ATTRIBUTE CHAR«, t00=0x005d, t01=0x016c}
0x092c4…092dc Head {h00=0x0014, h01=0x0050, text=»* A11= RESERVED «, t00=0x005d, t01=0x0188}
0x092dc…092f4 Head {h00=0x0014, h01=0x0050, text=»* A13= RESERVED «, t00=0x005e, t01=0x0010}
0x092f4…092fe Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005e, t01=0x0028}
0x092fe…09342 Head {h00=0x0040, h01=0x0050, text=»************************************************************«, t00=0x005e, t01=0x0032}
0x09342…09356 Head {h00=0x0010, h01=0x0050, text=»CURMOV EQU *«, t00=0x005e, t01=0x0076}
0x09356…0937e Head {h00=0x0024, h01=0x0050, text=» CF A14,SCRINF GET SCREEN INFO. «, t00=0x005e, t01=0x008a}
0x0937e…0939c Head {h00=0x001a, h01=0x0050, text=» SUK A2,CRUP GET INDEX«, t00=0x005e, t01=0x00b2}
0x0939c…093ae Head {h00=0x000e, h01=0x0050, text=» ADR A2,A2«, t00=0x005e, t01=0x00d0}
0x093ae…093de Head {h00=0x002c, h01=0x0050, text=» CFI A14,CURTAB,A2 JUMP IN CURSOR TABLE «, t00=0x005e, t01=0x00e2}
0x093de…0940c Head {h00=0x002a, h01=0x0050, text=» CF A14,STOINF SAVE SCREEN INFORMATION«, t00=0x005e, t01=0x0112}
0x0940c…09436 Head {h00=0x0026, h01=0x0050, text=» CWK A5,LBVDU+1 UNFORMATTED SCREEN«, t00=0x005e, t01=0x0140}
0x09436…09450 Head {h00=0x0016, h01=0x0050, text=» RF(E) CURM10 YES «, t00=0x005e, t01=0x016a}
0x09450…09462 Head {h00=0x000e, h01=0x0050, text=» LDR A1,A4«, t00=0x005e, t01=0x0184}
0x09462…0948a Head {h00=0x0024, h01=0x0050, text=» CF A14,ATMASB UPDATE ATTRIBUTE «, t00=0x005f, t01=0x0008}
0x0948a…0949e Head {h00=0x0010, h01=0x0050, text=»CURM10 EQU *«, t00=0x005f, t01=0x0030}
0x0949e…094bc Head {h00=0x001a, h01=0x0050, text=» LDK A1,2 REQ. LENGTH «, t00=0x005f, t01=0x0044}
0x094bc…094de Head {h00=0x001e, h01=0x0050, text=» CF A14,DISCHA SET CURSOR «, t00=0x005f, t01=0x0062}
0x094de…094ee Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x005f, t01=0x0084}
0x094ee…094fc Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x005f, t01=0x0094}
0x094fc…09524 Head {h00=0x0024, h01=0x0050, text=»* CURTAB CURSOR JUMP TABLE«, t00=0x005f, t01=0x00a2}
0x09524…09538 Head {h00=0x0010, h01=0x0050, text=»CURTAB EQU *«, t00=0x005f, t01=0x00ca}
0x09538…09560 Head {h00=0x0024, h01=0x0050, text=» DATA CRLEFT MOVE CURSOR TO LEFT«, t00=0x005f, t01=0x00de}
0x09560…0958a Head {h00=0x0026, h01=0x0050, text=» DATA CRRIGT MOVE CURSOR TO RIGHT «, t00=0x005f, t01=0x0106}
0x0958a…095b0 Head {h00=0x0022, h01=0x0050, text=» DATA CRDOWN MOVE CURSOR DOWN «, t00=0x005f, t01=0x0130}
0x095b0…095d2 Head {h00=0x001e, h01=0x0050, text=» DATA CURUP MOVE CURSOR UP«, t00=0x005f, t01=0x0156}
0x095d2…095fc Head {h00=0x0026, h01=0x0050, text=»* CRLEFT MOVE CURSOR TO LEFT«, t00=0x005f, t01=0x0178}
0x095fc…09610 Head {h00=0x0010, h01=0x0050, text=»CRLEFT EQU *«, t00=0x0060, t01=0x0012}
0x09610…09622 Head {h00=0x000e, h01=0x0050, text=» SUK A4,1 «, t00=0x0060, t01=0x0026}
0x09622…0964a Head {h00=0x0024, h01=0x0050, text=» RF(NN) CRRET NOT LEFTMOST POS. «, t00=0x0060, t01=0x0038}
0x0964a…09676 Head {h00=0x0028, h01=0x0050, text=» LDKL A4,LBVDU-1 LAST POS. ON SCREEN«, t00=0x0060, t01=0x0060}
0x09676…09688 Head {h00=0x000e, h01=0x0050, text=» RF CRRET «, t00=0x0060, t01=0x008c}
0x09688…096b4 Head {h00=0x0028, h01=0x0050, text=»* CRRIGT MOVE CURSOR TO RIGHT «, t00=0x0060, t01=0x009e}
0x096b4…096c8 Head {h00=0x0010, h01=0x0050, text=»CRRIGT EQU *«, t00=0x0060, t01=0x00ca}
0x096c8…096da Head {h00=0x000e, h01=0x0050, text=» ADK A4,1 «, t00=0x0060, t01=0x00de}
0x096da…096fe Head {h00=0x0020, h01=0x0050, text=» CWK A4,LBVDU END OF BUFFER?«, t00=0x0060, t01=0x00f0}
0x096fe…09716 Head {h00=0x0014, h01=0x0050, text=» RF(L) CRRET NO «, t00=0x0060, t01=0x0114}
0x09716…09728 Head {h00=0x000e, h01=0x0050, text=» LDK A4,0 «, t00=0x0060, t01=0x012c}
0x09728…0973a Head {h00=0x000e, h01=0x0050, text=» RF CRRET «, t00=0x0060, t01=0x013e}
0x0973a…09762 Head {h00=0x0024, h01=0x0050, text=»* CRDOWN MOVE CURSOR DOWN «, t00=0x0060, t01=0x0150}
0x09762…09776 Head {h00=0x0010, h01=0x0050, text=»CRDOWN EQU *«, t00=0x0060, t01=0x0178}
0x09776…0978c Head {h00=0x0012, h01=0x0050, text=» ADKL A4,LLINE«, t00=0x0060, t01=0x018c}
0x0978c…097ac Head {h00=0x001c, h01=0x0050, text=» CWK A4,LBVDU LAST LINE?«, t00=0x0061, t01=0x0012}
0x097ac…097c4 Head {h00=0x0014, h01=0x0050, text=» RF(L) CRRET NO «, t00=0x0061, t01=0x0032}
0x097c4…097da Head {h00=0x0012, h01=0x0050, text=» SUKL A4,LBVDU«, t00=0x0061, t01=0x004a}
0x097da…097ec Head {h00=0x000e, h01=0x0050, text=» RF CRRET «, t00=0x0061, t01=0x0060}
0x097ec…09810 Head {h00=0x0020, h01=0x0050, text=»* CURUP MOVE CURSOR UP«, t00=0x0061, t01=0x0072}
0x09810…09824 Head {h00=0x0010, h01=0x0050, text=»CURUP EQU * «, t00=0x0061, t01=0x0096}
0x09824…0983a Head {h00=0x0012, h01=0x0050, text=» SUKL A4,LLINE«, t00=0x0061, t01=0x00aa}
0x0983a…0985c Head {h00=0x001e, h01=0x0050, text=» RF(NN) CRRET UPMOST LINE «, t00=0x0061, t01=0x00c0}
0x0985c…09872 Head {h00=0x0012, h01=0x0050, text=» ADKL A4,LBVDU«, t00=0x0061, t01=0x00e2}
0x09872…09886 Head {h00=0x0010, h01=0x0050, text=»CRRET EQU * «, t00=0x0061, t01=0x00f8}
0x09886…09896 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0061, t01=0x010c}
0x09896…098a4 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0061, t01=0x011c}
0x098a4…098ea Head {h00=0x0042, h01=0x0050, text=»**************************************************************«, t00=0x0061, t01=0x012a}
0x098ea…09930 Head {h00=0x0042, h01=0x0050, text=»* *«, t00=0x0061, t01=0x0170}
0x09930…09976 Head {h00=0x0042, h01=0x0050, text=»* BAKTAB TAB. UNPROTECTED BACKWARDS *«, t00=0x0062, t01=0x0026}
0x09976…099bc Head {h00=0x0042, h01=0x0050, text=»* *«, t00=0x0062, t01=0x006c}
0x099bc…09a02 Head {h00=0x0042, h01=0x0050, text=»**************************************************************«, t00=0x0062, t01=0x00b2}
0x09a02…09a16 Head {h00=0x0010, h01=0x0050, text=»* REGISTERS«, t00=0x0062, t01=0x00f8}
0x09a16…09a20 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0062, t01=0x010c}
0x09a20…09a3e Head {h00=0x001a, h01=0x0050, text=»* A4= REL. CURSOR POS.«, t00=0x0062, t01=0x0116}
0x09a3e…09a60 Head {h00=0x001e, h01=0x0050, text=»* A5= REL. ATTRIBUTE POS. «, t00=0x0062, t01=0x0134}
0x09a60…09a7e Head {h00=0x001a, h01=0x0050, text=»* A6= ATTRIBUTE CHAR. «, t00=0x0062, t01=0x0156}
0x09a7e…09aa6 Head {h00=0x0024, h01=0x0050, text=»* A9= REL. ATTRIBUTE START POS. «, t00=0x0062, t01=0x0174}
0x09aa6…09abe Head {h00=0x0014, h01=0x0050, text=»* A11= RESERVED «, t00=0x0063, t01=0x000c}
0x09abe…09ad6 Head {h00=0x0014, h01=0x0050, text=»* A13= RESERVED «, t00=0x0063, t01=0x0024}
0x09ad6…09ae0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0063, t01=0x003c}
0x09ae0…09b28 Head {h00=0x0044, h01=0x0050, text=»*************************************************************** «, t00=0x0063, t01=0x0046}
0x09b28…09b3c Head {h00=0x0010, h01=0x0050, text=»BAKTAB EQU *«, t00=0x0063, t01=0x008e}
0x09b3c…09b6a Head {h00=0x002a, h01=0x0050, text=» CF A14,SCRINF GET SCREEN INFORMATION «, t00=0x0063, t01=0x00a2}
0x09b6a…09b7c Head {h00=0x000e, h01=0x0050, text=» LDR A9,A5«, t00=0x0063, t01=0x00d0}
0x09b7c…09ba8 Head {h00=0x0028, h01=0x0050, text=» CWK A5,LBVDU+1 UNFORMATTED SCREEN? «, t00=0x0063, t01=0x00e2}
0x09ba8…09bc2 Head {h00=0x0016, h01=0x0050, text=» RF(E) BAK600 YES «, t00=0x0063, t01=0x010e}
0x09bc2…09bec Head {h00=0x0026, h01=0x0050, text=» CWR A4,A5 STANDING ON ATTRIBUTE? «, t00=0x0063, t01=0x0128}
0x09bec…09c06 Head {h00=0x0016, h01=0x0050, text=» RF(E) BAK300 YES «, t00=0x0063, t01=0x0152}
0x09c06…09c18 Head {h00=0x000e, h01=0x0050, text=» SUK A4,1 «, t00=0x0063, t01=0x016c}
0x09c18…09c48 Head {h00=0x002c, h01=0x0050, text=» RF(NN) BAK100 NOT FIRST POS. ON SCREEN «, t00=0x0063, t01=0x017e}
0x09c48…09c74 Head {h00=0x0028, h01=0x0050, text=» LDKL A4,LBVDU-1 LAST POS. ON SCREEN«, t00=0x0064, t01=0x001e}
0x09c74…09c88 Head {h00=0x0010, h01=0x0050, text=»BAK100 EQU *«, t00=0x0064, t01=0x004a}
0x09c88…09cbc Head {h00=0x0030, h01=0x0050, text=» CWR A4,A5 STANDING ON POS. AFTER ATTRIBUTE?«, t00=0x0064, t01=0x005e}
0x09cbc…09cd6 Head {h00=0x0016, h01=0x0050, text=» RF(E) BAK300 YES «, t00=0x0064, t01=0x0092}
0x09cd6…09ce8 Head {h00=0x000e, h01=0x0050, text=» LDR A4,A5«, t00=0x0064, t01=0x00ac}
0x09ce8…09cfa Head {h00=0x000e, h01=0x0050, text=» LDR A7,A6«, t00=0x0064, t01=0x00be}
0x09cfa…09d1e Head {h00=0x0020, h01=0x0050, text=» ANK A7,/20 PROTECTED FIELD?«, t00=0x0064, t01=0x00d0}
0x09d1e…09d36 Head {h00=0x0014, h01=0x0050, text=» RF(Z) BAK500 NO«, t00=0x0064, t01=0x00f4}
0x09d36…09d4a Head {h00=0x0010, h01=0x0050, text=»BAK300 EQU *«, t00=0x0064, t01=0x010c}
0x09d4a…09d5c Head {h00=0x000e, h01=0x0050, text=» SUK A4,1 «, t00=0x0064, t01=0x0120}
0x09d5c…09d72 Head {h00=0x0012, h01=0x0050, text=» RF(NN) BAK400«, t00=0x0064, t01=0x0132}
0x09d72…09d8a Head {h00=0x0014, h01=0x0050, text=» LDKL A4,LBVDU-1«, t00=0x0064, t01=0x0148}
0x09d8a…09d9e Head {h00=0x0010, h01=0x0050, text=»BAK400 EQU *«, t00=0x0064, t01=0x0160}
0x09d9e…09db0 Head {h00=0x000e, h01=0x0050, text=» LDR A1,A4«, t00=0x0064, t01=0x0174}
0x09db0…09dee Head {h00=0x003a, h01=0x0050, text=» CF A14,ATMASB SEARCH ATTRIBUTE BACKWARDS AND MASK IT «, t00=0x0064, t01=0x0186}
0x09dee…09e00 Head {h00=0x000e, h01=0x0050, text=» LDR A7,A6«, t00=0x0065, t01=0x0034}
0x09e00…09e24 Head {h00=0x0020, h01=0x0050, text=» ANK A7,/20 PROTECTED FIELD?«, t00=0x0065, t01=0x0046}
0x09e24…09e3c Head {h00=0x0014, h01=0x0050, text=» RF(Z) BAK500 NO«, t00=0x0065, t01=0x006a}
0x09e3c…09e4e Head {h00=0x000e, h01=0x0050, text=» LDR A4,A5«, t00=0x0065, t01=0x0082}
0x09e4e…09e78 Head {h00=0x0026, h01=0x0050, text=» CWR A5,A9 WHOLE SCREEN SEARCHED? «, t00=0x0065, t01=0x0094}
0x09e78…09e92 Head {h00=0x0016, h01=0x0050, text=» RB(NE) BAK300 NO «, t00=0x0065, t01=0x00be}
0x09e92…09eb6 Head {h00=0x0020, h01=0x0050, text=» LDK A1,0 FIRST SCREEN POS. «, t00=0x0065, t01=0x00d8}
0x09eb6…09ee6 Head {h00=0x002c, h01=0x0050, text=» CF A14,ATMASB UPDATE FIELD INFORMATION «, t00=0x0065, t01=0x00fc}
0x09ee6…09ef8 Head {h00=0x000e, h01=0x0050, text=» RF BAK600«, t00=0x0065, t01=0x012c}
0x09ef8…09f0c Head {h00=0x0010, h01=0x0050, text=»BAK500 EQU *«, t00=0x0065, t01=0x013e}
0x09f0c…09f1e Head {h00=0x000e, h01=0x0050, text=» LDR A4,A5«, t00=0x0065, t01=0x0152}
0x09f1e…09f30 Head {h00=0x000e, h01=0x0050, text=» ADK A4,1 «, t00=0x0065, t01=0x0164}
0x09f30…09f54 Head {h00=0x0020, h01=0x0050, text=» CWK A4,LBVDU-1 WRAP AROUND?«, t00=0x0065, t01=0x0176}
0x09f54…09f6e Head {h00=0x0016, h01=0x0050, text=» RF(NG) BAK700 NO «, t00=0x0066, t01=0x000a}
0x09f6e…09f82 Head {h00=0x0010, h01=0x0050, text=»BAK600 EQU *«, t00=0x0066, t01=0x0024}
0x09f82…09fa6 Head {h00=0x0020, h01=0x0050, text=» LDK A4,0 FIRST SCREEN POS. «, t00=0x0066, t01=0x0038}
0x09fa6…09fba Head {h00=0x0010, h01=0x0050, text=»BAK700 EQU *«, t00=0x0066, t01=0x005c}
0x09fba…09fe8 Head {h00=0x002a, h01=0x0050, text=» CF A14,STOINF SAVE SCREEN INFORMATION«, t00=0x0066, t01=0x0070}
0x09fe8…0a006 Head {h00=0x001a, h01=0x0050, text=» LDK A1,2 REQ. LENGTH «, t00=0x0066, t01=0x009e}
0x0a006…0a028 Head {h00=0x001e, h01=0x0050, text=» CF A14,DISCHA SET CURSOR «, t00=0x0066, t01=0x00bc}
0x0a028…0a038 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0066, t01=0x00de}
0x0a038…0a046 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0066, t01=0x00ee}
0x0a046…0a08c Head {h00=0x0042, h01=0x0050, text=»************************************************************* «, t00=0x0066, t01=0x00fc}
0x0a08c…0a0d2 Head {h00=0x0042, h01=0x0050, text=»* * «, t00=0x0066, t01=0x0142}
0x0a0d2…0a118 Head {h00=0x0042, h01=0x0050, text=»* TAB TAB. UNPROTECTED FORWARD * «, t00=0x0066, t01=0x0188}
0x0a118…0a15e Head {h00=0x0042, h01=0x0050, text=»* * «, t00=0x0067, t01=0x003e}
0x0a15e…0a1a4 Head {h00=0x0042, h01=0x0050, text=»************************************************************* «, t00=0x0067, t01=0x0084}
0x0a1a4…0a1b8 Head {h00=0x0010, h01=0x0050, text=»* REGISTERS«, t00=0x0067, t01=0x00ca}
0x0a1b8…0a1c2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0067, t01=0x00de}
0x0a1c2…0a1e0 Head {h00=0x001a, h01=0x0050, text=»* A4= REL. CURSOR POS.«, t00=0x0067, t01=0x00e8}
0x0a1e0…0a202 Head {h00=0x001e, h01=0x0050, text=»* A5= REL. ATTRIBUTE POS. «, t00=0x0067, t01=0x0106}
0x0a202…0a220 Head {h00=0x001a, h01=0x0050, text=»* A6= ATTRIBUTE CHAR. «, t00=0x0067, t01=0x0128}
0x0a220…0a248 Head {h00=0x0024, h01=0x0050, text=»* A9= REL. ATTRIBUTE START POS. «, t00=0x0067, t01=0x0146}
0x0a248…0a260 Head {h00=0x0014, h01=0x0050, text=»* A11= RESERVED «, t00=0x0067, t01=0x016e}
0x0a260…0a278 Head {h00=0x0014, h01=0x0050, text=»* A13= RESERVED «, t00=0x0067, t01=0x0186}
0x0a278…0a282 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0068, t01=0x000e}
0x0a282…0a2c8 Head {h00=0x0042, h01=0x0050, text=»**************************************************************«, t00=0x0068, t01=0x0018}
0x0a2c8…0a2da Head {h00=0x000e, h01=0x0050, text=»TAB EQU * «, t00=0x0068, t01=0x005e}
0x0a2da…0a308 Head {h00=0x002a, h01=0x0050, text=» CF A14,SCRINF GET SCREEN INFORMATION «, t00=0x0068, t01=0x0070}
0x0a308…0a31a Head {h00=0x000e, h01=0x0050, text=» LDR A9,A5«, t00=0x0068, t01=0x009e}
0x0a31a…0a346 Head {h00=0x0028, h01=0x0050, text=» CWK A5,LBVDU+1 UNFORMATTED SCREEN? «, t00=0x0068, t01=0x00b0}
0x0a346…0a360 Head {h00=0x0016, h01=0x0050, text=» RF(E) TAB200 YES «, t00=0x0068, t01=0x00dc}
0x0a360…0a374 Head {h00=0x0010, h01=0x0050, text=»TAB100 EQU *«, t00=0x0068, t01=0x00f6}
0x0a374…0a386 Head {h00=0x000e, h01=0x0050, text=» LDR A1,A4«, t00=0x0068, t01=0x010a}
0x0a386…0a3b6 Head {h00=0x002c, h01=0x0050, text=» CF A14,ATMASF SEARCH ATTRIBUTE FORWARD «, t00=0x0068, t01=0x011c}
0x0a3b6…0a3d8 Head {h00=0x001e, h01=0x0050, text=» LDR A4,A5 NEW CURSOR POS.«, t00=0x0068, t01=0x014c}
0x0a3d8…0a3ea Head {h00=0x000e, h01=0x0050, text=» LDR A7,A6«, t00=0x0068, t01=0x016e}
0x0a3ea…0a40e Head {h00=0x0020, h01=0x0050, text=» ANK A7,/20 PROTECTED FIELD?«, t00=0x0068, t01=0x0180}
0x0a40e…0a426 Head {h00=0x0014, h01=0x0050, text=» RF(Z) TAB150 NO«, t00=0x0069, t01=0x0014}
0x0a426…0a450 Head {h00=0x0026, h01=0x0050, text=» CWR A5,A9 WHOLE SCREEN SEARCHED? «, t00=0x0069, t01=0x002c}
0x0a450…0a46a Head {h00=0x0016, h01=0x0050, text=» RB(NE) TAB100 NO «, t00=0x0069, t01=0x0056}
0x0a46a…0a490 Head {h00=0x0022, h01=0x0050, text=» LDK A1,0 FIRST POS. ON SCREEN«, t00=0x0069, t01=0x0070}
0x0a490…0a4c0 Head {h00=0x002c, h01=0x0050, text=» CF A14,ATMASB UPDATE FIELD INFORMATION «, t00=0x0069, t01=0x0096}
0x0a4c0…0a4d2 Head {h00=0x000e, h01=0x0050, text=» RF TAB200«, t00=0x0069, t01=0x00c6}
0x0a4d2…0a4e6 Head {h00=0x0010, h01=0x0050, text=»TAB150 EQU *«, t00=0x0069, t01=0x00d8}
0x0a4e6…0a4f8 Head {h00=0x000e, h01=0x0050, text=» ADK A4,1 «, t00=0x0069, t01=0x00ec}
0x0a4f8…0a522 Head {h00=0x0026, h01=0x0050, text=» CWK A4,LBVDU-1 LAST SCREEN POS.? «, t00=0x0069, t01=0x00fe}
0x0a522…0a53c Head {h00=0x0016, h01=0x0050, text=» RF(NG) TAB300 NO «, t00=0x0069, t01=0x0128}
0x0a53c…0a550 Head {h00=0x0010, h01=0x0050, text=»TAB200 EQU *«, t00=0x0069, t01=0x0142}
0x0a550…0a574 Head {h00=0x0020, h01=0x0050, text=» LDK A4,0 FIRST SCREEN POS. «, t00=0x0069, t01=0x0156}
0x0a574…0a588 Head {h00=0x0010, h01=0x0050, text=»TAB300 EQU *«, t00=0x0069, t01=0x017a}
0x0a588…0a5b6 Head {h00=0x002a, h01=0x0050, text=» CF A14,STOINF SAVE SCREEN INFORMATION«, t00=0x0069, t01=0x018e}
0x0a5b6…0a5d4 Head {h00=0x001a, h01=0x0050, text=» LDK A1,2 REQ. LENGTH «, t00=0x006a, t01=0x002c}
0x0a5d4…0a5f6 Head {h00=0x001e, h01=0x0050, text=» CF A14,DISCHA SET CURSOR «, t00=0x006a, t01=0x004a}
0x0a5f6…0a606 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x006a, t01=0x006c}
0x0a606…0a614 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x006a, t01=0x007c}
0x0a614…0a660 Head {h00=0x0048, h01=0x0050, text=»******************************************************************* «, t00=0x006a, t01=0x008a}
0x0a660…0a6ac Head {h00=0x0048, h01=0x0050, text=»* * «, t00=0x006a, t01=0x00d6}
0x0a6ac…0a6f8 Head {h00=0x0048, h01=0x0050, text=»* CRNL TAB. UNPROTECTED TO NEXT LINE * «, t00=0x006a, t01=0x0122}
0x0a6f8…0a744 Head {h00=0x0048, h01=0x0050, text=»* * «, t00=0x006a, t01=0x016e}
0x0a744…0a790 Head {h00=0x0048, h01=0x0050, text=»******************************************************************* «, t00=0x006b, t01=0x002a}
0x0a790…0a7a4 Head {h00=0x0010, h01=0x0050, text=»* REGISTERS«, t00=0x006b, t01=0x0076}
0x0a7a4…0a7ae Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006b, t01=0x008a}
0x0a7ae…0a7cc Head {h00=0x001a, h01=0x0050, text=»* A4= REL. CURSOR POS.«, t00=0x006b, t01=0x0094}
0x0a7cc…0a7ee Head {h00=0x001e, h01=0x0050, text=»* A5= REL. ATTRIBUTE POS. «, t00=0x006b, t01=0x00b2}
0x0a7ee…0a80c Head {h00=0x001a, h01=0x0050, text=»* A6= ATTRIBUTE CHAR. «, t00=0x006b, t01=0x00d4}
0x0a80c…0a824 Head {h00=0x0014, h01=0x0050, text=»* A11= RESERVED «, t00=0x006b, t01=0x00f2}
0x0a824…0a83c Head {h00=0x0014, h01=0x0050, text=»* A13= RESERVED «, t00=0x006b, t01=0x010a}
0x0a83c…0a846 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006b, t01=0x0122}
0x0a846…0a890 Head {h00=0x0046, h01=0x0050, text=»***************************************************************** «, t00=0x006b, t01=0x012c}
0x0a890…0a8a2 Head {h00=0x000e, h01=0x0050, text=»CRNL EQU *«, t00=0x006b, t01=0x0176}
0x0a8a2…0a8d0 Head {h00=0x002a, h01=0x0050, text=» CF A14,SCRINF GET SCREEN INFORMATION «, t00=0x006b, t01=0x0188}
0x0a8d0…0a8f8 Head {h00=0x0024, h01=0x0050, text=» CF A14,CRDOWN MOVE CURSOR DOWN «, t00=0x006c, t01=0x0026}
0x0a8f8…0a920 Head {h00=0x0024, h01=0x0050, text=» LDK A1,0 COMPUTE LEFTMOST POS. «, t00=0x006c, t01=0x004e}
0x0a920…0a934 Head {h00=0x0010, h01=0x0050, text=»CRN100 EQU *«, t00=0x006c, t01=0x0076}
0x0a934…0a94a Head {h00=0x0012, h01=0x0050, text=» SUK A4,LLINE «, t00=0x006c, t01=0x008a}
0x0a94a…0a960 Head {h00=0x0012, h01=0x0050, text=» RF(N) CRN200 «, t00=0x006c, t01=0x00a0}
0x0a960…0a976 Head {h00=0x0012, h01=0x0050, text=» ADK A1,LLINE «, t00=0x006c, t01=0x00b6}
0x0a976…0a988 Head {h00=0x000e, h01=0x0050, text=» RB CRN100«, t00=0x006c, t01=0x00cc}
0x0a988…0a99c Head {h00=0x0010, h01=0x0050, text=»CRN200 EQU *«, t00=0x006c, t01=0x00de}
0x0a99c…0a9ae Head {h00=0x000e, h01=0x0050, text=» LDR A4,A1«, t00=0x006c, t01=0x00f2}
0x0a9ae…0a9da Head {h00=0x0028, h01=0x0050, text=» CWK A5,LBVDU+1 UNFORMATTED SCREEN? «, t00=0x006c, t01=0x0104}
0x0a9da…0a9f4 Head {h00=0x0016, h01=0x0050, text=» RF(E) CRN800 YES «, t00=0x006c, t01=0x0130}
0x0a9f4…0aa22 Head {h00=0x002a, h01=0x0050, text=» CF A14,GETVDU GET CHAR. IN VDU BUFFER«, t00=0x006c, t01=0x014a}
0x0aa22…0aa40 Head {h00=0x001a, h01=0x0050, text=» CCK A7,/80 ATTRIBUTE?«, t00=0x006c, t01=0x0178}
0x0aa40…0aa5a Head {h00=0x0016, h01=0x0050, text=» RF(NL) CRN400 YES«, t00=0x006d, t01=0x0008}
0x0aa5a…0aa6c Head {h00=0x000e, h01=0x0050, text=» LDR A1,A4«, t00=0x006d, t01=0x0022}
0x0aa6c…0aa9c Head {h00=0x002c, h01=0x0050, text=» CF A14,ATMASB SEARCH ATTRIBUTE BACKWARD«, t00=0x006d, t01=0x0034}
0x0aa9c…0aaae Head {h00=0x000e, h01=0x0050, text=» LDR A7,A6«, t00=0x006d, t01=0x0064}
0x0aaae…0aacc Head {h00=0x001a, h01=0x0050, text=» ANK A7,/20 PROTECTED?«, t00=0x006d, t01=0x0076}
0x0aacc…0aae4 Head {h00=0x0014, h01=0x0050, text=» RF(Z) CRN800 NO«, t00=0x006d, t01=0x0094}
0x0aae4…0aaf6 Head {h00=0x000e, h01=0x0050, text=» RF CRN500«, t00=0x006d, t01=0x00ac}
0x0aaf6…0ab0a Head {h00=0x0010, h01=0x0050, text=»CRN400 EQU *«, t00=0x006d, t01=0x00be}
0x0ab0a…0ab1c Head {h00=0x000e, h01=0x0050, text=» SUK A4,1 «, t00=0x006d, t01=0x00d2}
0x0ab1c…0ab42 Head {h00=0x0022, h01=0x0050, text=» RF(NN) CRN500 NOT WRAP AROUND«, t00=0x006d, t01=0x00e4}
0x0ab42…0ab6c Head {h00=0x0026, h01=0x0050, text=» LDKL A4,LBVDU-1 LAST SCREEN POS. «, t00=0x006d, t01=0x010a}
0x0ab6c…0ab80 Head {h00=0x0010, h01=0x0050, text=»CRN500 EQU *«, t00=0x006d, t01=0x0134}
0x0ab80…0abae Head {h00=0x002a, h01=0x0050, text=» CF A14,STOINF SAVE SCREEN INFORMATION«, t00=0x006d, t01=0x0148}
0x0abae…0abda Head {h00=0x0028, h01=0x0050, text=» CF A14,TAB TAB. UNPROTECTED FORWARD«, t00=0x006d, t01=0x0176}
0x0abda…0abec Head {h00=0x000e, h01=0x0050, text=» RF CRN900«, t00=0x006e, t01=0x0012}
0x0abec…0ac00 Head {h00=0x0010, h01=0x0050, text=»CRN800 EQU *«, t00=0x006e, t01=0x0024}
0x0ac00…0ac2e Head {h00=0x002a, h01=0x0050, text=» CF A14,STOINF SAVE SCREEN INFORMATION«, t00=0x006e, t01=0x0038}
0x0ac2e…0ac4c Head {h00=0x001a, h01=0x0050, text=» LDK A1,2 REQ. LENGTH «, t00=0x006e, t01=0x0066}
0x0ac4c…0ac6e Head {h00=0x001e, h01=0x0050, text=» CF A14,DISCHA SET CURSOR «, t00=0x006e, t01=0x0084}
0x0ac6e…0ac82 Head {h00=0x0010, h01=0x0050, text=»CRN900 EQU *«, t00=0x006e, t01=0x00a6}
0x0ac82…0ac92 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x006e, t01=0x00ba}
0x0ac92…0aca0 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x006e, t01=0x00ca}
0x0aca0…0acee Head {h00=0x004a, h01=0x0050, text=»********************************************************************* «, t00=0x006e, t01=0x00d8}
0x0acee…0ad3c Head {h00=0x004a, h01=0x0050, text=»* * «, t00=0x006e, t01=0x0126}
0x0ad3c…0ad8a Head {h00=0x004a, h01=0x0050, text=»* RDHOME TAB. UNPROTECTED FIRST ON SCREEN * «, t00=0x006e, t01=0x0174}
0x0ad8a…0add8 Head {h00=0x004a, h01=0x0050, text=»* * «, t00=0x006f, t01=0x0032}
0x0add8…0ae26 Head {h00=0x004a, h01=0x0050, text=»********************************************************************* «, t00=0x006f, t01=0x0080}
0x0ae26…0ae3a Head {h00=0x0010, h01=0x0050, text=»* REGISTERS«, t00=0x006f, t01=0x00ce}
0x0ae3a…0ae44 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006f, t01=0x00e2}
0x0ae44…0ae62 Head {h00=0x001a, h01=0x0050, text=»* A4= REL. CURSOR POS.«, t00=0x006f, t01=0x00ec}
0x0ae62…0ae84 Head {h00=0x001e, h01=0x0050, text=»* A5= REL. ATTRIBUTE POS. «, t00=0x006f, t01=0x010a}
0x0ae84…0aea2 Head {h00=0x001a, h01=0x0050, text=»* A6= ATTRIBUTE CHAR. «, t00=0x006f, t01=0x012c}
0x0aea2…0aeba Head {h00=0x0014, h01=0x0050, text=»* A11= RESERVED «, t00=0x006f, t01=0x014a}
0x0aeba…0aed2 Head {h00=0x0014, h01=0x0050, text=»* A13= RESERVED «, t00=0x006f, t01=0x0162}
0x0aed2…0aedc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006f, t01=0x017a}
0x0aedc…0af2a Head {h00=0x004a, h01=0x0050, text=»********************************************************************* «, t00=0x006f, t01=0x0184}
0x0af2a…0af3e Head {h00=0x0010, h01=0x0050, text=»RDHOME EQU *«, t00=0x0070, t01=0x0042}
0x0af3e…0af6c Head {h00=0x002a, h01=0x0050, text=» CF A14,SCRINF GET SCREEN INFORMATION «, t00=0x0070, t01=0x0056}
0x0af6c…0af92 Head {h00=0x0022, h01=0x0050, text=» LDK A4,0 FIRST POS. ON SCREEN«, t00=0x0070, t01=0x0084}
0x0af92…0afa8 Head {h00=0x0012, h01=0x0050, text=» CF A14,STOINF«, t00=0x0070, t01=0x00aa}
0x0afa8…0afd4 Head {h00=0x0028, h01=0x0050, text=» CWK A5,LBVDU+1 UNFORMATTED SCREEN? «, t00=0x0070, t01=0x00c0}
0x0afd4…0afee Head {h00=0x0016, h01=0x0050, text=» RF(E) RDH800 YES «, t00=0x0070, t01=0x00ec}
0x0afee…0b000 Head {h00=0x000e, h01=0x0050, text=» LDR A1,A4«, t00=0x0070, t01=0x0106}
0x0b000…0b02e Head {h00=0x002a, h01=0x0050, text=» CF A14,GETVDU GET CHAR. IN VDU BUFFER«, t00=0x0070, t01=0x0118}
0x0b02e…0b04e Head {h00=0x001c, h01=0x0050, text=» CCK A7,/8000 ATTRIBUTE?«, t00=0x0070, t01=0x0146}
0x0b04e…0b066 Head {h00=0x0014, h01=0x0050, text=» RF(L) RDH100 NO«, t00=0x0070, t01=0x0166}
0x0b066…0b090 Head {h00=0x0026, h01=0x0050, text=» LDKL A4,LBVDU-1 LAST SCREEN POS. «, t00=0x0070, t01=0x017e}
0x0b090…0b0be Head {h00=0x002a, h01=0x0050, text=» CF A14,STOINF SAVE SCREEN INFORMATION«, t00=0x0071, t01=0x0018}
0x0b0be…0b0d0 Head {h00=0x000e, h01=0x0050, text=» RF RDH300«, t00=0x0071, t01=0x0046}
0x0b0d0…0b0e4 Head {h00=0x0010, h01=0x0050, text=»RDH100 EQU *«, t00=0x0071, t01=0x0058}
0x0b0e4…0b0f6 Head {h00=0x000e, h01=0x0050, text=» LDR A1,A4«, t00=0x0071, t01=0x006c}
0x0b0f6…0b124 Head {h00=0x002a, h01=0x0050, text=» CF A14,ATMASB GET ATTRIBUTE BACKWARD «, t00=0x0071, t01=0x007e}
0x0b124…0b136 Head {h00=0x000e, h01=0x0050, text=» LDR A7,A6«, t00=0x0071, t01=0x00ac}
0x0b136…0b154 Head {h00=0x001a, h01=0x0050, text=» ANK A7,/20 PROTECTED?«, t00=0x0071, t01=0x00be}
0x0b154…0b16c Head {h00=0x0014, h01=0x0050, text=» RF(Z) RDH800 NO«, t00=0x0071, t01=0x00dc}
0x0b16c…0b180 Head {h00=0x0010, h01=0x0050, text=»RDH300 EQU *«, t00=0x0071, t01=0x00f4}
0x0b180…0b1ac Head {h00=0x0028, h01=0x0050, text=» CF A14,TAB TAB. UNPROTECTED FORWARD«, t00=0x0071, t01=0x0108}
0x0b1ac…0b1be Head {h00=0x000e, h01=0x0050, text=» RF RDH900«, t00=0x0071, t01=0x0134}
0x0b1be…0b1d2 Head {h00=0x0010, h01=0x0050, text=»RDH800 EQU *«, t00=0x0071, t01=0x0146}
0x0b1d2…0b200 Head {h00=0x002a, h01=0x0050, text=» CF A14,STOINF SAVE SCREEN INFORMATION«, t00=0x0071, t01=0x015a}
0x0b200…0b21e Head {h00=0x001a, h01=0x0050, text=» LDK A1,2 REQ. LENGTH «, t00=0x0071, t01=0x0188}
0x0b21e…0b240 Head {h00=0x001e, h01=0x0050, text=» CF A14,DISCHA SET CURSOR «, t00=0x0072, t01=0x0016}
0x0b240…0b254 Head {h00=0x0010, h01=0x0050, text=»RDH900 EQU *«, t00=0x0072, t01=0x0038}
0x0b254…0b264 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0072, t01=0x004c}
0x0b264…0b272 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0072, t01=0x005c}
0x0b272…0b2b8 Head {h00=0x0042, h01=0x0050, text=»************************************************************* «, t00=0x0072, t01=0x006a}
0x0b2b8…0b2fe Head {h00=0x0042, h01=0x0050, text=»* * «, t00=0x0072, t01=0x00b0}
0x0b2fe…0b344 Head {h00=0x0042, h01=0x0050, text=»* EREOF ERASE TO END OF FIELD * «, t00=0x0072, t01=0x00f6}
0x0b344…0b388 Head {h00=0x0040, h01=0x0050, text=»* *«, t00=0x0072, t01=0x013c}
0x0b388…0b3ce Head {h00=0x0042, h01=0x0050, text=»************************************************************* «, t00=0x0072, t01=0x0180}
0x0b3ce…0b3e2 Head {h00=0x0010, h01=0x0050, text=»* REGISTERS«, t00=0x0073, t01=0x0036}
0x0b3e2…0b3ec Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0073, t01=0x004a}
0x0b3ec…0b40a Head {h00=0x001a, h01=0x0050, text=»* A4= REL. CURSOR POS.«, t00=0x0073, t01=0x0054}
0x0b40a…0b42c Head {h00=0x001e, h01=0x0050, text=»* A5= REL. ATTRIBUTE POS. «, t00=0x0073, t01=0x0072}
0x0b42c…0b44a Head {h00=0x001a, h01=0x0050, text=»* A6= ATTRIBUTE CHAR. «, t00=0x0073, t01=0x0094}
0x0b44a…0b462 Head {h00=0x0014, h01=0x0050, text=»* A11= RESERVED «, t00=0x0073, t01=0x00b2}
0x0b462…0b47a Head {h00=0x0014, h01=0x0050, text=»* A13= RESERVED «, t00=0x0073, t01=0x00ca}
0x0b47a…0b484 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0073, t01=0x00e2}
0x0b484…0b4d0 Head {h00=0x0048, h01=0x0050, text=»******************************************************************* «, t00=0x0073, t01=0x00ec}
0x0b4d0…0b4e4 Head {h00=0x0010, h01=0x0050, text=»EREOF EQU * «, t00=0x0073, t01=0x0138}
0x0b4e4…0b512 Head {h00=0x002a, h01=0x0050, text=» CF A14,SCRINF GET SCREEN INFORMATION «, t00=0x0073, t01=0x014c}
0x0b512…0b53e Head {h00=0x0028, h01=0x0050, text=» CWK A5,LBVDU+1 UNFORMATTED SCREEN? «, t00=0x0073, t01=0x017a}
0x0b53e…0b558 Head {h00=0x0016, h01=0x0050, text=» RF(E) ERE700 YES «, t00=0x0074, t01=0x0016}
0x0b558…0b56a Head {h00=0x000e, h01=0x0050, text=» LDR A7,A6«, t00=0x0074, t01=0x0030}
0x0b56a…0b58e Head {h00=0x0020, h01=0x0050, text=» ANK A7,/20 PROTECTED FIELD?«, t00=0x0074, t01=0x0042}
0x0b58e…0b5a8 Head {h00=0x0016, h01=0x0050, text=» RF(NZ) ERE600 YES«, t00=0x0074, t01=0x0066}
0x0b5a8…0b5d2 Head {h00=0x0026, h01=0x0050, text=» CWR A5,A4 STANDING ON ATTRIBUTE? «, t00=0x0074, t01=0x0080}
0x0b5d2…0b5ec Head {h00=0x0016, h01=0x0050, text=» RF(E) ERE600 YES «, t00=0x0074, t01=0x00aa}
0x0b5ec…0b5fe Head {h00=0x000e, h01=0x0050, text=» LDR A1,A4«, t00=0x0074, t01=0x00c4}
0x0b5fe…0b61a Head {h00=0x0018, h01=0x0050, text=» LDR A8,A6 SAVE OLD «, t00=0x0074, t01=0x00d6}
0x0b61a…0b636 Head {h00=0x0018, h01=0x0050, text=» LDR A9,A5 SAVE OLD «, t00=0x0074, t01=0x00f2}
0x0b636…0b666 Head {h00=0x002c, h01=0x0050, text=» CF A14,ATMASF SEARCH ATTRIBUTE FORWARD «, t00=0x0074, t01=0x010e}
0x0b666…0b678 Head {h00=0x000e, h01=0x0050, text=» LDR A3,A5«, t00=0x0074, t01=0x013e}
0x0b678…0b68a Head {h00=0x000e, h01=0x0050, text=» LDR A6,A8«, t00=0x0074, t01=0x0150}
0x0b68a…0b69c Head {h00=0x000e, h01=0x0050, text=» LDR A5,A9«, t00=0x0074, t01=0x0162}
0x0b69c…0b6c6 Head {h00=0x0026, h01=0x0050, text=» ORK A6,1 SET MDT-BIT IN ATTRIBUTE«, t00=0x0074, t01=0x0174}
0x0b6c6…0b6d8 Head {h00=0x000e, h01=0x0050, text=» LDR A7,A6«, t00=0x0075, t01=0x000e}
0x0b6d8…0b6ea Head {h00=0x000e, h01=0x0050, text=» LDR A1,A5«, t00=0x0075, t01=0x0020}
0x0b6ea…0b722 Head {h00=0x0034, h01=0x0050, text=» CF A14,STOVDU STORE NEW ATTRIBUTE IN VDU BUFFER«, t00=0x0075, t01=0x0032}
0x0b722…0b754 Head {h00=0x002e, h01=0x0050, text=» CF A14,STOINF SAVE NEW SCREEN INFORMATION«, t00=0x0075, t01=0x006a}
0x0b754…0b774 Head {h00=0x001c, h01=0x0050, text=» LDR A1,A3 STOP ADDRESS «, t00=0x0075, t01=0x009c}
0x0b774…0b786 Head {h00=0x000e, h01=0x0050, text=» RF ERE800«, t00=0x0075, t01=0x00bc}
0x0b786…0b79a Head {h00=0x0010, h01=0x0050, text=»ERE600 EQU *«, t00=0x0075, t01=0x00ce}
0x0b79a…0b7be Head {h00=0x0020, h01=0x0050, text=» CF A14,ERROR INDICATE ERROR«, t00=0x0075, t01=0x00e2}
0x0b7be…0b7d0 Head {h00=0x000e, h01=0x0050, text=» RF ERE900«, t00=0x0075, t01=0x0106}
0x0b7d0…0b7e4 Head {h00=0x0010, h01=0x0050, text=»ERE700 EQU *«, t00=0x0075, t01=0x0118}
0x0b7e4…0b80c Head {h00=0x0024, h01=0x0050, text=» CF A14,LINE ERASE ONE LINE DK1 «, t00=0x0075, t01=0x012c}
0x0b80c…0b824 Head {h00=0x0014, h01=0x0050, text=» LDR A1,A5 DK1 «, t00=0x0075, t01=0x0154}
0x0b824…0b83e Head {h00=0x0016, h01=0x0050, text=» CWK A1,LBVDU DK1«, t00=0x0075, t01=0x016c}
0x0b83e…0b858 Head {h00=0x0016, h01=0x0050, text=» RF(L) ERE710 DK1«, t00=0x0075, t01=0x0186}
0x0b858…0b87a Head {h00=0x001e, h01=0x0050, text=» LDK A1,0 STOP ADDRESS =3 «, t00=0x0076, t01=0x0010}
0x0b87a…0b894 Head {h00=0x0016, h01=0x0050, text=»ERE710 EQU * DK1 «, t00=0x0076, t01=0x0032}
0x0b894…0b8b0 Head {h00=0x0018, h01=0x0050, text=» CF A14,SCRINF DK1 «, t00=0x0076, t01=0x004c}
0x0b8b0…0b8c4 Head {h00=0x0010, h01=0x0050, text=»ERE800 EQU *«, t00=0x0076, t01=0x0068}
0x0b8c4…0b8d8 Head {h00=0x0010, h01=0x0050, text=» SUR A10,A10«, t00=0x0076, t01=0x007c}
0x0b8d8…0b90c Head {h00=0x0030, h01=0x0050, text=» CF A14,ERASUA ERASE UNPROTECTED TO ADDRESS «, t00=0x0076, t01=0x0090}
0x0b90c…0b93a Head {h00=0x002a, h01=0x0050, text=» CF A14,DISMOD DISPLAY MODIFIED FIELD «, t00=0x0076, t01=0x00c4}
0x0b93a…0b94e Head {h00=0x0010, h01=0x0050, text=»ERE900 EQU *«, t00=0x0076, t01=0x00f2}
0x0b94e…0b95e Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0076, t01=0x0106}
0x0b95e…0b96c Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0076, t01=0x0116}
0x0b96c…0b9b8 Head {h00=0x0048, h01=0x0050, text=»******************************************************************* «, t00=0x0076, t01=0x0124}
0x0b9b8…0ba04 Head {h00=0x0048, h01=0x0050, text=»* * «, t00=0x0076, t01=0x0170}
0x0ba04…0ba50 Head {h00=0x0048, h01=0x0050, text=»* ERINPT ERASE UNPROTECTED ENTIRE SCREEN * «, t00=0x0077, t01=0x002c}
0x0ba50…0ba9c Head {h00=0x0048, h01=0x0050, text=»* * «, t00=0x0077, t01=0x0078}
0x0ba9c…0bae8 Head {h00=0x0048, h01=0x0050, text=»******************************************************************* «, t00=0x0077, t01=0x00c4}
0x0bae8…0bafc Head {h00=0x0010, h01=0x0050, text=»* REGISTERS«, t00=0x0077, t01=0x0110}
0x0bafc…0bb06 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0077, t01=0x0124}
0x0bb06…0bb24 Head {h00=0x001a, h01=0x0050, text=»* A4= REL. CURSOR POS.«, t00=0x0077, t01=0x012e}
0x0bb24…0bb46 Head {h00=0x001e, h01=0x0050, text=»* A5= REL. ATTRIBUTE POS. «, t00=0x0077, t01=0x014c}
0x0bb46…0bb64 Head {h00=0x001a, h01=0x0050, text=»* A6= ATTRIBUTE CHAR. «, t00=0x0077, t01=0x016e}
0x0bb64…0bb7c Head {h00=0x0014, h01=0x0050, text=»* A11= RESERVED «, t00=0x0077, t01=0x018c}
0x0bb7c…0bb94 Head {h00=0x0014, h01=0x0050, text=»* A13= RESERVED «, t00=0x0078, t01=0x0014}
0x0bb94…0bb9e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0078, t01=0x002c}
0x0bb9e…0bbea Head {h00=0x0048, h01=0x0050, text=»******************************************************************* «, t00=0x0078, t01=0x0036}
0x0bbea…0bbfe Head {h00=0x0010, h01=0x0050, text=»ERINPT EQU *«, t00=0x0078, t01=0x0082}
0x0bbfe…0bc2c Head {h00=0x002a, h01=0x0050, text=» CF A14,SCRINF GET SCREEN INFORMATION «, t00=0x0078, t01=0x0096}
0x0bc2c…0bc58 Head {h00=0x0028, h01=0x0050, text=» CWK A5,LBVDU+1 UNFORMATTED SCREEN? «, t00=0x0078, t01=0x00c4}
0x0bc58…0bc72 Head {h00=0x0016, h01=0x0050, text=» RF(NE) ERI100 NO «, t00=0x0078, t01=0x00f0}
0x0bc72…0bc9c Head {h00=0x0026, h01=0x0050, text=» CF A14,ERASE ERASE ENTIRE SCREEN «, t00=0x0078, t01=0x010a}
0x0bc9c…0bcae Head {h00=0x000e, h01=0x0050, text=» RF ERI900«, t00=0x0078, t01=0x0134}
0x0bcae…0bcc2 Head {h00=0x0010, h01=0x0050, text=»ERI100 EQU *«, t00=0x0078, t01=0x0146}
0x0bcc2…0bcee Head {h00=0x0028, h01=0x0050, text=» CF A14,ERASUP ERASE ALL UNPROTECTED«, t00=0x0078, t01=0x015a}
0x0bcee…0bd1a Head {h00=0x0028, h01=0x0050, text=» CF A14,DISMOD DISPLAY ERASED FIELDS«, t00=0x0078, t01=0x0186}
0x0bd1a…0bd52 Head {h00=0x0034, h01=0x0050, text=» CF A14,RDHOME TAB. UNPROTECTED FIRST ON SCREEN «, t00=0x0079, t01=0x0022}
0x0bd52…0bd66 Head {h00=0x0010, h01=0x0050, text=»ERI900 EQU *«, t00=0x0079, t01=0x005a}
0x0bd66…0bd76 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0079, t01=0x006e}
0x0bd76…0bd84 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0079, t01=0x007e}
0x0bd84…0bd98 Head {h00=0x0010, h01=0x0050, text=» IFT IN:DL=1«, t00=0x0079, t01=0x008c}
0x0bd98…0bdd8 Head {h00=0x003c, h01=0x0050, text=»********************************************************«, t00=0x0079, t01=0x00a0}
0x0bdd8…0be18 Head {h00=0x003c, h01=0x0050, text=»* *«, t00=0x0079, t01=0x00e0}
0x0be18…0be58 Head {h00=0x003c, h01=0x0050, text=»* INSERT INSERT KEY HANDLING *«, t00=0x0079, t01=0x0120}
0x0be58…0be98 Head {h00=0x003c, h01=0x0050, text=»* *«, t00=0x0079, t01=0x0160}
0x0be98…0bed8 Head {h00=0x003c, h01=0x0050, text=»********************************************************«, t00=0x007a, t01=0x0010}
0x0bed8…0beec Head {h00=0x0010, h01=0x0050, text=»* REGISTERS«, t00=0x007a, t01=0x0050}
0x0beec…0bef6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x007a, t01=0x0064}
0x0bef6…0bf16 Head {h00=0x001c, h01=0x0050, text=»* A11= CREDIT WORK AREA «, t00=0x007a, t01=0x006e}
0x0bf16…0bf2e Head {h00=0x0014, h01=0x0050, text=»* A13= RESERVED «, t00=0x007a, t01=0x008e}
0x0bf2e…0bf38 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x007a, t01=0x00a6}
0x0bf38…0bf74 Head {h00=0x0038, h01=0x0050, text=»*************************************************** «, t00=0x007a, t01=0x00b0}
0x0bf74…0bf88 Head {h00=0x0010, h01=0x0050, text=»INSERT EQU *«, t00=0x007a, t01=0x00ec}
0x0bf88…0bfac Head {h00=0x0020, h01=0x0050, text=» IM MODE,A11 SET INSERT MODE«, t00=0x007a, t01=0x0100}
0x0bfac…0bfbc Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x007a, t01=0x0124}
0x0bfbc…0bfca Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x007a, t01=0x0134}
0x0bfca…0c008 Head {h00=0x003a, h01=0x0050, text=»******************************************************«, t00=0x007a, t01=0x0142}
0x0c008…0c046 Head {h00=0x003a, h01=0x0050, text=»* *«, t00=0x007a, t01=0x0180}
0x0c046…0c084 Head {h00=0x003a, h01=0x0050, text=»* DELETE DELETE CHAR. HANDLING *«, t00=0x007b, t01=0x002e}
0x0c084…0c0c2 Head {h00=0x003a, h01=0x0050, text=»* *«, t00=0x007b, t01=0x006c}
0x0c0c2…0c102 Head {h00=0x003c, h01=0x0050, text=»******************************************************* «, t00=0x007b, t01=0x00aa}
0x0c102…0c116 Head {h00=0x0010, h01=0x0050, text=»* REGISTERS«, t00=0x007b, t01=0x00ea}
0x0c116…0c120 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x007b, t01=0x00fe}
0x0c120…0c13e Head {h00=0x001a, h01=0x0050, text=»* A4= REL. CURSOR POS.«, t00=0x007b, t01=0x0108}
0x0c13e…0c160 Head {h00=0x001e, h01=0x0050, text=»* A5= REL. ATTRIBUTE POS. «, t00=0x007b, t01=0x0126}
0x0c160…0c17e Head {h00=0x001a, h01=0x0050, text=»* A6= ATTRIBUTE CHAR. «, t00=0x007b, t01=0x0148}
0x0c17e…0c19e Head {h00=0x001c, h01=0x0050, text=»* A11= CREDIT WORK AREA «, t00=0x007b, t01=0x0166}
0x0c19e…0c1b6 Head {h00=0x0014, h01=0x0050, text=»* A13= RESERVED «, t00=0x007b, t01=0x0186}
0x0c1b6…0c1c0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x007c, t01=0x000e}
0x0c1c0…0c200 Head {h00=0x003c, h01=0x0050, text=»******************************************************* «, t00=0x007c, t01=0x0018}
0x0c200…0c214 Head {h00=0x0010, h01=0x0050, text=»DELETE EQU *«, t00=0x007c, t01=0x0058}
0x0c214…0c242 Head {h00=0x002a, h01=0x0050, text=» CF A14,SCRINF GET SCREEN INFORMATION «, t00=0x007c, t01=0x006c}
0x0c242…0c256 Head {h00=0x0010, h01=0x0050, text=» LDKL A3,-1 «, t00=0x007c, t01=0x009a}
0x0c256…0c26a Head {h00=0x0010, h01=0x0050, text=»DEL025 EQU *«, t00=0x007c, t01=0x00ae}
0x0c26a…0c280 Head {h00=0x0012, h01=0x0050, text=» ADK A3,LLINE «, t00=0x007c, t01=0x00c2}
0x0c280…0c2ae Head {h00=0x002a, h01=0x0050, text=» CWR A3,A4 LAST POS. ON CURRENT LINE? «, t00=0x007c, t01=0x00d8}
0x0c2ae…0c2c6 Head {h00=0x0014, h01=0x0050, text=» RB(L) DEL025 NO«, t00=0x007c, t01=0x0106}
0x0c2c6…0c2f2 Head {h00=0x0028, h01=0x0050, text=» CWK A5,LBVDU+1 UNFORMATTED SCREEN? «, t00=0x007c, t01=0x011e}
0x0c2f2…0c30c Head {h00=0x0016, h01=0x0050, text=» RF(E) DEL200 YES «, t00=0x007c, t01=0x014a}
0x0c30c…0c336 Head {h00=0x0026, h01=0x0050, text=» CWR A4,A5 STANDING ON ATTRIBUTE? «, t00=0x007c, t01=0x0164}
0x0c336…0c350 Head {h00=0x0016, h01=0x0050, text=» RF(E) DEL700 YES «, t00=0x007c, t01=0x018e}
0x0c350…0c362 Head {h00=0x000e, h01=0x0050, text=» LDR A7,A6«, t00=0x007d, t01=0x0018}
0x0c362…0c380 Head {h00=0x001a, h01=0x0050, text=» ANK A7,/20 PROTECTED?«, t00=0x007d, t01=0x002a}
0x0c380…0c39a Head {h00=0x0016, h01=0x0050, text=» RF(NZ) DEL700 YES«, t00=0x007d, t01=0x0048}
0x0c39a…0c3b8 Head {h00=0x001a, h01=0x0050, text=» ORK A6,1 SET MDT-BIT «, t00=0x007d, t01=0x0062}
0x0c3b8…0c3ca Head {h00=0x000e, h01=0x0050, text=» LDR A7,A6«, t00=0x007d, t01=0x0080}
0x0c3ca…0c3dc Head {h00=0x000e, h01=0x0050, text=» LDR A1,A5«, t00=0x007d, t01=0x0092}
0x0c3dc…0c406 Head {h00=0x0026, h01=0x0050, text=» CF A14,STOVDU SAVE NEW ATTRIBUTE «, t00=0x007d, t01=0x00a4}
0x0c406…0c422 Head {h00=0x0018, h01=0x0050, text=» LDR A8,A6 SAVE OLD «, t00=0x007d, t01=0x00ce}
0x0c422…0c43e Head {h00=0x0018, h01=0x0050, text=» LDR A9,A5 SAVE OLD «, t00=0x007d, t01=0x00ea}
0x0c43e…0c46e Head {h00=0x002c, h01=0x0050, text=» CF A14,ATMASF SEARCH ATTRIBUTE FORWARD «, t00=0x007d, t01=0x0106}
0x0c46e…0c480 Head {h00=0x000e, h01=0x0050, text=» LDR A1,A5«, t00=0x007d, t01=0x0136}
0x0c480…0c492 Head {h00=0x000e, h01=0x0050, text=» LDR A6,A8«, t00=0x007d, t01=0x0148}
0x0c492…0c4a4 Head {h00=0x000e, h01=0x0050, text=» LDR A5,A9«, t00=0x007d, t01=0x015a}
0x0c4a4…0c4d2 Head {h00=0x002a, h01=0x0050, text=» CF A14,STOINF SAVE SCREEN INFORMATION«, t00=0x007d, t01=0x016c}
0x0c4d2…0c502 Head {h00=0x002c, h01=0x0050, text=» CWR A3,A1 ATTRIBUTE BEFOR END OF LINE? «, t00=0x007e, t01=0x000a}
0x0c502…0c51c Head {h00=0x0016, h01=0x0050, text=» RF(NG) DEL200 NO «, t00=0x007e, t01=0x003a}
0x0c51c…0c52e Head {h00=0x000e, h01=0x0050, text=» LDR A3,A1«, t00=0x007e, t01=0x0054}
0x0c52e…0c542 Head {h00=0x0010, h01=0x0050, text=»DEL200 EQU *«, t00=0x007e, t01=0x0066}
0x0c542…0c554 Head {h00=0x000e, h01=0x0050, text=» LDR A1,A4«, t00=0x007e, t01=0x007a}
0x0c554…0c568 Head {h00=0x0010, h01=0x0050, text=»DEL300 EQU *«, t00=0x007e, t01=0x008c}
0x0c568…0c57a Head {h00=0x000e, h01=0x0050, text=» ADK A1,1 «, t00=0x007e, t01=0x00a0}
0x0c57a…0c5aa Head {h00=0x002c, h01=0x0050, text=» CF A14,GETVDU GET CHAR. IN VDU BUFFER «, t00=0x007e, t01=0x00b2}
0x0c5aa…0c5bc Head {h00=0x000e, h01=0x0050, text=» SUK A1,1 «, t00=0x007e, t01=0x00e2}
0x0c5bc…0c5ec Head {h00=0x002c, h01=0x0050, text=» CF A14,STOVDU STORE CHAR. IN VDU BUFFER«, t00=0x007e, t01=0x00f4}
0x0c5ec…0c5fe Head {h00=0x000e, h01=0x0050, text=» ADK A1,1 «, t00=0x007e, t01=0x0124}
0x0c5fe…0c61e Head {h00=0x001c, h01=0x0050, text=» CWR A1,A3 ALL SHIFTED? «, t00=0x007e, t01=0x0136}
0x0c61e…0c638 Head {h00=0x0016, h01=0x0050, text=» RB(NE) DEL300 NO «, t00=0x007e, t01=0x0156}
0x0c638…0c65c Head {h00=0x0020, h01=0x0050, text=» LDK A7,NULL GET NULL CHAR. «, t00=0x007e, t01=0x0170}
0x0c65c…0c690 (127, 0, 400) Head {h00=0x0030, h01=0x0050, text=» CF A14,STOVDU STORE NULL CHAR IN VDU BUFFER«, t00=0x007f, t01=0x0004}
0x0c690…0c6a6 Head {h00=0x0012, h01=0x0050, text=» CF A14,SAVE1 «, t00=0x007f, t01=0x0038}
0x0c6a6…0c6bc Head {h00=0x0012, h01=0x0050, text=» LDK A5,LLINE «, t00=0x007f, t01=0x004e}
0x0c6bc…0c6d0 Head {h00=0x0010, h01=0x0050, text=» LDR A6,A11 «, t00=0x007f, t01=0x0064}
0x0c6d0…0c6e4 Head {h00=0x0010, h01=0x0050, text=» SUR A10,A10«, t00=0x007f, t01=0x0078}
0x0c6e4…0c706 Head {h00=0x001e, h01=0x0050, text=» CF A14,LINE GET LINE FLAG«, t00=0x007f, t01=0x008c}
0x0c706…0c71e Head {h00=0x0014, h01=0x0050, text=» LC A1,LINFLG,A6«, t00=0x007f, t01=0x00ae}
0x0c71e…0c730 Head {h00=0x000e, h01=0x0050, text=» ORK A1,1 «, t00=0x007f, t01=0x00c6}
0x0c730…0c748 Head {h00=0x0014, h01=0x0050, text=» SC A1,LINFLG,A6«, t00=0x007f, t01=0x00d8}
0x0c748…0c75e Head {h00=0x0012, h01=0x0050, text=» CF A14,REST1 «, t00=0x007f, t01=0x00f0}
0x0c75e…0c78a Head {h00=0x0028, h01=0x0050, text=» CF A14,DISMOD DISPLAY MODIFIED LINE«, t00=0x007f, t01=0x0106}
0x0c78a…0c79c Head {h00=0x000e, h01=0x0050, text=» RF DEL900«, t00=0x007f, t01=0x0132}
0x0c79c…0c7b0 Head {h00=0x0010, h01=0x0050, text=»DEL700 EQU *«, t00=0x007f, t01=0x0144}
0x0c7b0…0c7d4 Head {h00=0x0020, h01=0x0050, text=» CF A14,ERROR INDICATE ERROR«, t00=0x007f, t01=0x0158}
0x0c7d4…0c7e8 Head {h00=0x0010, h01=0x0050, text=»DEL900 EQU *«, t00=0x007f, t01=0x017c}
0x0c7e8…0c7f8 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x007f, t01=0x0190}
0x0c7f8…0c804 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0080, t01=0x0010}
0x0c804…0c812 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0080, t01=0x001c}
0x0c812…0c852 Head {h00=0x003c, h01=0x0050, text=»********************************************************«, t00=0x0080, t01=0x002a}
0x0c852…0c892 Head {h00=0x003c, h01=0x0050, text=»* *«, t00=0x0080, t01=0x006a}
0x0c892…0c8d2 Head {h00=0x003c, h01=0x0050, text=»* RESET RESET KEY HANDLING *«, t00=0x0080, t01=0x00aa}
0x0c8d2…0c912 Head {h00=0x003c, h01=0x0050, text=»* *«, t00=0x0080, t01=0x00ea}
0x0c912…0c952 Head {h00=0x003c, h01=0x0050, text=»********************************************************«, t00=0x0080, t01=0x012a}
0x0c952…0c966 Head {h00=0x0010, h01=0x0050, text=»* REGISTERS«, t00=0x0080, t01=0x016a}
0x0c966…0c970 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0080, t01=0x017e}
0x0c970…0c990 Head {h00=0x001c, h01=0x0050, text=»* A11= CREDIT WORK AREA «, t00=0x0080, t01=0x0188}
0x0c990…0c9a8 Head {h00=0x0014, h01=0x0050, text=»* A13= RESERVED «, t00=0x0081, t01=0x0018}
0x0c9a8…0c9b2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0081, t01=0x0030}
0x0c9b2…0c9ee Head {h00=0x0038, h01=0x0050, text=»****************************************************«, t00=0x0081, t01=0x003a}
0x0c9ee…0ca02 Head {h00=0x0010, h01=0x0050, text=»RESET EQU * «, t00=0x0081, t01=0x0076}
0x0ca02…0ca28 Head {h00=0x0022, h01=0x0050, text=» CM MODE,A11 RESET INSERT MODE«, t00=0x0081, t01=0x008a}
0x0ca28…0ca56 Head {h00=0x002a, h01=0x0050, text=» CF A14,LMP6OF TURN OFF "INSERT" LAMP «, t00=0x0081, t01=0x00b0}
0x0ca56…0ca7e Head {h00=0x0024, h01=0x0050, text=» CM KBINH,A11 RESSTORE KEYBOARD «, t00=0x0081, t01=0x00de}
0x0ca7e…0caaa Head {h00=0x0028, h01=0x0050, text=» CF A14,LMP4OF TURN OFF 'ERROR' LAMP«, t00=0x0081, t01=0x0106}
0x0caaa…0cae2 Head {h00=0x0034, h01=0x0050, text=» CF A14,LMP3OF TURN OFF 'KEYBOARD INHIBIT' LAMP «, t00=0x0081, t01=0x0132}
0x0cae2…0caf2 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0081, t01=0x016a}
0x0caf2…0cb00 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0081, t01=0x017a}
0x0cb00…0cb44 Head {h00=0x0040, h01=0x0050, text=»*********************************************************** «, t00=0x0081, t01=0x0188}
0x0cb44…0cb88 Head {h00=0x0040, h01=0x0050, text=»* * «, t00=0x0082, t01=0x003c}
0x0cb88…0cbcc Head {h00=0x0040, h01=0x0050, text=»* DUP DUPLICATE KEY * «, t00=0x0082, t01=0x0080}
0x0cbcc…0cc10 Head {h00=0x0040, h01=0x0050, text=»* * «, t00=0x0082, t01=0x00c4}
0x0cc10…0cc54 Head {h00=0x0040, h01=0x0050, text=»*********************************************************** «, t00=0x0082, t01=0x0108}
0x0cc54…0cc68 Head {h00=0x0010, h01=0x0050, text=»* REGISTERS«, t00=0x0082, t01=0x014c}
0x0cc68…0cc72 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0082, t01=0x0160}
0x0cc72…0cc88 Head {h00=0x0012, h01=0x0050, text=»* A2= KEY-CHAR«, t00=0x0082, t01=0x016a}
0x0cc88…0cca0 Head {h00=0x0014, h01=0x0050, text=»* A11= RESERVED «, t00=0x0082, t01=0x0180}
0x0cca0…0ccb8 Head {h00=0x0014, h01=0x0050, text=»* A13= RESERVED «, t00=0x0083, t01=0x0008}
0x0ccb8…0ccc2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0083, t01=0x0020}
0x0ccc2…0cd06 Head {h00=0x0040, h01=0x0050, text=»************************************************************«, t00=0x0083, t01=0x002a}
0x0cd06…0cd18 Head {h00=0x000e, h01=0x0050, text=»DUP EQU * «, t00=0x0083, t01=0x006e}
0x0cd18…0cd3c Head {h00=0x0020, h01=0x0050, text=» LDK A2,DUPCH GET DUP CHAR. «, t00=0x0083, t01=0x0080}
0x0cd3c…0cd50 Head {h00=0x0010, h01=0x0050, text=» CF A14,NUM «, t00=0x0083, t01=0x00a4}
0x0cd50…0cd64 Head {h00=0x0010, h01=0x0050, text=» CF A14,TAB «, t00=0x0083, t01=0x00b8}
0x0cd64…0cd74 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0083, t01=0x00cc}
0x0cd74…0cd82 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0083, t01=0x00dc}
0x0cd82…0cdc6 Head {h00=0x0040, h01=0x0050, text=»*********************************************************** «, t00=0x0083, t01=0x00ea}
0x0cdc6…0ce0a Head {h00=0x0040, h01=0x0050, text=»* * «, t00=0x0083, t01=0x012e}
0x0ce0a…0ce4e Head {h00=0x0040, h01=0x0050, text=»* FLDMRK FIELD MARK KEY * «, t00=0x0083, t01=0x0172}
0x0ce4e…0ce92 Head {h00=0x0040, h01=0x0050, text=»* * «, t00=0x0084, t01=0x0026}
0x0ce92…0ced6 Head {h00=0x0040, h01=0x0050, text=»*********************************************************** «, t00=0x0084, t01=0x006a}
0x0ced6…0ceea Head {h00=0x0010, h01=0x0050, text=»* REGISTERS«, t00=0x0084, t01=0x00ae}
0x0ceea…0cef4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0084, t01=0x00c2}
0x0cef4…0cf0a Head {h00=0x0012, h01=0x0050, text=»* A2= KEY-CHAR«, t00=0x0084, t01=0x00cc}
0x0cf0a…0cf22 Head {h00=0x0014, h01=0x0050, text=»* A11= RESERVED «, t00=0x0084, t01=0x00e2}
0x0cf22…0cf3a Head {h00=0x0014, h01=0x0050, text=»* A13= RESERVED «, t00=0x0084, t01=0x00fa}
0x0cf3a…0cf44 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0084, t01=0x0112}
0x0cf44…0cf88 Head {h00=0x0040, h01=0x0050, text=»*********************************************************** «, t00=0x0084, t01=0x011c}
0x0cf88…0cf9c Head {h00=0x0010, h01=0x0050, text=»FLDMRK EQU *«, t00=0x0084, t01=0x0160}
0x0cf9c…0cfc6 Head {h00=0x0026, h01=0x0050, text=» LDK A2,FMCH GET FIELD MARK CHAR. «, t00=0x0084, t01=0x0174}
0x0cfc6…0cfda Head {h00=0x0010, h01=0x0050, text=» CF A14,NUM «, t00=0x0085, t01=0x000e}
0x0cfda…0cfea Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0085, t01=0x0022}
0x0cfea…0cff8 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0085, t01=0x0032}
0x0cff8…0d040 Head {h00=0x0044, h01=0x0050, text=»*************************************************************** «, t00=0x0085, t01=0x0040}
0x0d040…0d04a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0085, t01=0x0088}
0x0d04a…0d074 Head {h00=0x0026, h01=0x0050, text=»* Z E R O : 3 TRIPLE ZERO KEY«, t00=0x0085, t01=0x0092}
0x0d074…0d0a0 Head {h00=0x0028, h01=0x0050, text=»* Z E R O : 2 DOUBLE ZERO KEY «, t00=0x0085, t01=0x00bc}
0x0d0a0…0d0aa Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0085, t01=0x00e8}
0x0d0aa…0d0e4 Head {h00=0x0036, h01=0x0050, text=»************************************************* «, t00=0x0085, t01=0x00f2}
0x0d0e4…0d0f8 Head {h00=0x0010, h01=0x0050, text=»* REGISTERS«, t00=0x0085, t01=0x012c}
0x0d0f8…0d102 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0085, t01=0x0140}
0x0d102…0d118 Head {h00=0x0012, h01=0x0050, text=»* A2= KEY-CHAR«, t00=0x0085, t01=0x014a}
0x0d118…0d130 Head {h00=0x0014, h01=0x0050, text=»* A11= RESERVED «, t00=0x0085, t01=0x0160}
0x0d130…0d148 Head {h00=0x0014, h01=0x0050, text=»* A13= RESERVED «, t00=0x0085, t01=0x0178}
0x0d148…0d152 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0085, t01=0x0190}
0x0d152…0d194 Head {h00=0x003e, h01=0x0050, text=»********************************************************* «, t00=0x0086, t01=0x000a}
0x0d194…0d19c Head {h00=0x0004, h01=0x0050, t00=0x0086, t01=0x004c}
0x0d19c…0d1b0 Head {h00=0x0010, h01=0x0050, text=»ZERO:3 EQU *«, t00=0x0086, t01=0x0054}
0x0d1b0…0d1ce Head {h00=0x001a, h01=0x0050, text=» LDK A2,/30 ZERO CHAR.«, t00=0x0086, t01=0x0068}
0x0d1ce…0d1f4 Head {h00=0x0022, h01=0x0050, text=» CF A14,NUM DISPLAY CHARACTER «, t00=0x0086, t01=0x0086}
0x0d1f4…0d208 Head {h00=0x0010, h01=0x0050, text=»ZERO:2 EQU *«, t00=0x0086, t01=0x00ac}
0x0d208…0d226 Head {h00=0x001a, h01=0x0050, text=» LDK A2,/30 ZERO CHAR.«, t00=0x0086, t01=0x00c0}
0x0d226…0d24c Head {h00=0x0022, h01=0x0050, text=» CF A14,NUM DISPLAY CHARACTER «, t00=0x0086, t01=0x00de}
0x0d24c…0d260 Head {h00=0x0010, h01=0x0050, text=» LDK A2,/30 «, t00=0x0086, t01=0x0104}
0x0d260…0d286 Head {h00=0x0022, h01=0x0050, text=» CF A14,NUM DISPLAY CHARACTER «, t00=0x0086, t01=0x0118}
0x0d286…0d29e Head {h00=0x0014, h01=0x0050, text=» RTN A14 RETURN «, t00=0x0086, t01=0x013e}
0x0d29e…0d2ac Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0086, t01=0x0156}
0x0d2ac…0d2c0 Head {h00=0x0010, h01=0x0050, text=» IFT OFLIN=1«, t00=0x0086, t01=0x0164}
0x0d2c0…0d300 Head {h00=0x003c, h01=0x0050, text=»********************************************************«, t00=0x0086, t01=0x0178}
0x0d300…0d340 Head {h00=0x003c, h01=0x0050, text=»* *«, t00=0x0087, t01=0x0028}
0x0d340…0d380 Head {h00=0x003c, h01=0x0050, text=»* OFLINE OFFLINE KEY HANDLING *«, t00=0x0087, t01=0x0068}
0x0d380…0d3c0 Head {h00=0x003c, h01=0x0050, text=»* *«, t00=0x0087, t01=0x00a8}
0x0d3c0…0d400 Head {h00=0x003c, h01=0x0050, text=»********************************************************«, t00=0x0087, t01=0x00e8}
0x0d400…0d414 Head {h00=0x0010, h01=0x0050, text=»* REGISTERS«, t00=0x0087, t01=0x0128}
0x0d414…0d41e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0087, t01=0x013c}
0x0d41e…0d43e Head {h00=0x001c, h01=0x0050, text=»* A11= CREDIT WORK AREA «, t00=0x0087, t01=0x0146}
0x0d43e…0d456 Head {h00=0x0014, h01=0x0050, text=»* A13= RESERVED «, t00=0x0087, t01=0x0166}
0x0d456…0d460 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0087, t01=0x017e}
0x0d460…0d4a0 Head {h00=0x003c, h01=0x0050, text=»******************************************************* «, t00=0x0087, t01=0x0188}
0x0d4a0…0d4b4 Head {h00=0x0010, h01=0x0050, text=»OFLINE EQU *«, t00=0x0088, t01=0x0038}
0x0d4b4…0d4ca Head {h00=0x0012, h01=0x0050, text=» CF A14,CLEAR «, t00=0x0088, t01=0x004c}
0x0d4ca…0d4e0 Head {h00=0x0012, h01=0x0050, text=» CF A14,RESET «, t00=0x0088, t01=0x0062}
0x0d4e0…0d50e Head {h00=0x002a, h01=0x0050, text=» CF A14,DCOFLN INDICATE OFFLINE TO DC «, t00=0x0088, t01=0x0078}
0x0d50e…0d53a Head {h00=0x0028, h01=0x0050, text=» CF A14,LMP6ON TURN ON OFFLINE LAMP «, t00=0x0088, t01=0x00a6}
0x0d53a…0d562 Head {h00=0x0024, h01=0x0050, text=» IM OFFFLG,A11 SET OFFLINE FLAG «, t00=0x0088, t01=0x00d2}
0x0d562…0d58a Head {h00=0x0024, h01=0x0050, text=» ADKL A14,4 SKIP ONE STACK LEVEL«, t00=0x0088, t01=0x00fa}
0x0d58a…0d5b8 Head {h00=0x002a, h01=0x0050, text=» LD A13,2,A14 RELOAD REGISTERS A12-A13«, t00=0x0088, t01=0x0122}
0x0d5b8…0d5ce Head {h00=0x0012, h01=0x0050, text=» LD A12,4,A14 «, t00=0x0088, t01=0x0150}
0x0d5ce…0d5f6 Head {h00=0x0024, h01=0x0050, text=» ADKL A14,4 UPDATE STACK POINTER«, t00=0x0088, t01=0x0166}
0x0d5f6…0d624 Head {h00=0x002a, h01=0x0050, text=» ABL I:RT1 RETURN TO "OFFLINE" PROGRAM«, t00=0x0088, t01=0x018e}
0x0d624…0d630 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0089, t01=0x002c}
0x0d630…0d63e Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0089, t01=0x0038}
0x0d63e…0d680 Head {h00=0x003e, h01=0x0050, text=»********************************************************* «, t00=0x0089, t01=0x0046}
0x0d680…0d6c2 Head {h00=0x003e, h01=0x0050, text=»* * «, t00=0x0089, t01=0x0088}
0x0d6c2…0d704 Head {h00=0x003e, h01=0x0050, text=»* MFCHGE MAIN FRAME CHANGE * «, t00=0x0089, t01=0x00ca}
0x0d704…0d746 Head {h00=0x003e, h01=0x0050, text=»* * «, t00=0x0089, t01=0x010c}
0x0d746…0d788 Head {h00=0x003e, h01=0x0050, text=»********************************************************* «, t00=0x0089, t01=0x014e}
0x0d788…0d79c Head {h00=0x0010, h01=0x0050, text=»* REGISTERS«, t00=0x0089, t01=0x0190}
0x0d79c…0d7a6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x008a, t01=0x0014}
0x0d7a6…0d7c6 Head {h00=0x001c, h01=0x0050, text=»* A11= CREDIT WORK AREA «, t00=0x008a, t01=0x001e}
0x0d7c6…0d7de Head {h00=0x0014, h01=0x0050, text=»* A13= RESERVED «, t00=0x008a, t01=0x003e}
0x0d7de…0d7e8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x008a, t01=0x0056}
0x0d7e8…0d828 Head {h00=0x003c, h01=0x0050, text=»******************************************************* «, t00=0x008a, t01=0x0060}
0x0d828…0d83e Head {h00=0x0012, h01=0x0050, text=» IFT NBRLIN=2 «, t00=0x008a, t01=0x00a0}
0x0d83e…0d852 Head {h00=0x0010, h01=0x0050, text=»MFCHGE EQU *«, t00=0x008a, t01=0x00b6}
0x0d852…0d868 Head {h00=0x0012, h01=0x0050, text=» CF A14,CLEAR «, t00=0x008a, t01=0x00ca}
0x0d868…0d87e Head {h00=0x0012, h01=0x0050, text=» CF A14,RESET «, t00=0x008a, t01=0x00e0}
0x0d87e…0d894 Head {h00=0x0012, h01=0x0050, text=» CF A14,LMP1OF«, t00=0x008a, t01=0x00f6}
0x0d894…0d8aa Head {h00=0x0012, h01=0x0050, text=» CF A14,LMP2OF«, t00=0x008a, t01=0x010c}
0x0d8aa…0d8c0 Head {h00=0x0012, h01=0x0050, text=» CF A14,LMP3OF«, t00=0x008a, t01=0x0122}
0x0d8c0…0d8f0 Head {h00=0x002c, h01=0x0050, text=» CF A14,DISCON DISCONNECT ON OLD LINE =2«, t00=0x008a, t01=0x0138}
0x0d8f0…0d906 Head {h00=0x0012, h01=0x0050, text=» LDK A1,1 . =2«, t00=0x008a, t01=0x0168}
0x0d906…0d938 Head {h00=0x002e, h01=0x0050, text=» XRS A1,MAIN,A11 IND MAIN FRAME CHANGE =2 «, t00=0x008a, t01=0x017e}
0x0d938…0d94e Head {h00=0x0012, h01=0x0050, text=» RF(NZ) MFCH10«, t00=0x008b, t01=0x0020}
0x0d94e…0d964 Head {h00=0x0012, h01=0x0050, text=» CF A14,LMP1ON«, t00=0x008b, t01=0x0036}
0x0d964…0d976 Head {h00=0x000e, h01=0x0050, text=» RF MFCH90«, t00=0x008b, t01=0x004c}
0x0d976…0d98a Head {h00=0x0010, h01=0x0050, text=»MFCH10 EQU *«, t00=0x008b, t01=0x005e}
0x0d98a…0d9a0 Head {h00=0x0012, h01=0x0050, text=» CF A14,LMP2ON«, t00=0x008b, t01=0x0072}
0x0d9a0…0d9b4 Head {h00=0x0010, h01=0x0050, text=»MFCH90 EQU *«, t00=0x008b, t01=0x0088}
0x0d9b4…0d9c4 Head {h00=0x000c, h01=0x0050, text=» . =2 «, t00=0x008b, t01=0x009c}
0x0d9c4…0d9f0 Head {h00=0x0028, h01=0x0050, text=» CF A14,CONCT CONNECT ON NEW LINE =2«, t00=0x008b, t01=0x00ac}
0x0d9f0…0da18 Head {h00=0x0024, h01=0x0050, text=» CF A14,CHKSTA CHECK LINE STATUS«, t00=0x008b, t01=0x00d8}
0x0da18…0da28 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x008b, t01=0x0100}
0x0da28…0da34 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x008b, t01=0x0110}
0x0da34…0da42 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x008b, t01=0x011c}
0x0da42…0da86 Head {h00=0x0040, h01=0x0050, text=»*********************************************************** «, t00=0x008b, t01=0x012a}
0x0da86…0daca Head {h00=0x0040, h01=0x0050, text=»* * «, t00=0x008b, t01=0x016e}
0x0daca…0db0e Head {h00=0x0040, h01=0x0050, text=»* COPY LOCAL HARDCOPY * «, t00=0x008c, t01=0x0022}
0x0db0e…0db52 Head {h00=0x0040, h01=0x0050, text=»* * «, t00=0x008c, t01=0x0066}
0x0db52…0db96 Head {h00=0x0040, h01=0x0050, text=»*********************************************************** «, t00=0x008c, t01=0x00aa}
0x0db96…0dbb4 Head {h00=0x001a, h01=0x0050, text=»* REGISTERS«, t00=0x008c, t01=0x00ee}
0x0dbb4…0dbbe Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x008c, t01=0x010c}
0x0dbbe…0dbde Head {h00=0x001c, h01=0x0050, text=»* A11= CREDIT WORK AREA «, t00=0x008c, t01=0x0116}
0x0dbde…0dbf8 Head {h00=0x0016, h01=0x0050, text=»* A13= T:A ADDRESS«, t00=0x008c, t01=0x0136}
0x0dbf8…0dc02 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x008c, t01=0x0150}
0x0dc02…0dc48 Head {h00=0x0042, h01=0x0050, text=»************************************************************* «, t00=0x008c, t01=0x015a}
0x0dc48…0dc5a Head {h00=0x000e, h01=0x0050, text=»COPY EQU *«, t00=0x008d, t01=0x0010}
0x0dc5a…0dc74 Head {h00=0x0016, h01=0x0050, text=» LD A1,SNAMOD,A11 «, t00=0x008d, t01=0x0022}
0x0dc74…0dcaa Head {h00=0x0032, h01=0x0050, text=» ANKL A1,HCPMOD HARDCOPY ALREADY OUTSTANDING? «, t00=0x008d, t01=0x003c}
0x0dcaa…0dcd2 Head {h00=0x0024, h01=0x0050, text=» RF(NZ) COPY80 YES,WAIT A WHILE «, t00=0x008d, t01=0x0072}
0x0dcd2…0dcea Head {h00=0x0014, h01=0x0050, text=» LD A1,PRTID,A11«, t00=0x008d, t01=0x009a}
0x0dcea…0dd14 Head {h00=0x0026, h01=0x0050, text=» RF(Z) COPY80 PRINTER NOT ASSIGNED«, t00=0x008d, t01=0x00b2}
0x0dd14…0dd4a Head {h00=0x0032, h01=0x0050, text=» ANK A1,/FF CHECK IF PRINTER OK IN TASK TABLE «, t00=0x008d, t01=0x00dc}
0x0dd4a…0dd5e Head {h00=0x0010, h01=0x0050, text=» SUK A1,/30 «, t00=0x008d, t01=0x0112}
0x0dd5e…0dd70 Head {h00=0x000e, h01=0x0050, text=» SLL A1,2 «, t00=0x008d, t01=0x0126}
0x0dd70…0dd86 Head {h00=0x0012, h01=0x0050, text=» LDK A3,TSKTAB«, t00=0x008d, t01=0x0138}
0x0dd86…0ddac Head {h00=0x0022, h01=0x0050, text=» LD A4,+6,A13 GET COMMON AREA «, t00=0x008d, t01=0x014e}
0x0ddac…0ddbe Head {h00=0x000e, h01=0x0050, text=» ADR A3,A4«, t00=0x008d, t01=0x0174}
0x0ddbe…0dde8 Head {h00=0x0026, h01=0x0050, text=» ADR A3,A1 PRINTER ASSIGNED FOUND «, t00=0x008d, t01=0x0186}
0x0dde8…0ddfc Head {h00=0x0010, h01=0x0050, text=» LC A1,+3,A3«, t00=0x008e, t01=0x0020}
0x0ddfc…0de1c Head {h00=0x001c, h01=0x0050, text=» ANK A1,/FF PRINTER OK? «, t00=0x008e, t01=0x0034}
0x0de1c…0de36 Head {h00=0x0016, h01=0x0050, text=» RF(Z) COPY10 YES «, t00=0x008e, t01=0x0054}
0x0de36…0de48 Head {h00=0x000e, h01=0x0050, text=» RF COPY90«, t00=0x008e, t01=0x006e}
0x0de48…0de5c Head {h00=0x0010, h01=0x0050, text=»COPY10 EQU *«, t00=0x008e, t01=0x0080}
0x0de5c…0de88 Head {h00=0x0028, h01=0x0050, text=» LDK A1,/38 INDICATE HARDCOPY IN WCC«, t00=0x008e, t01=0x0094}
0x0de88…0de9e Head {h00=0x0012, h01=0x0050, text=» ST A1,WCC,A11«, t00=0x008e, t01=0x00c0}
0x0de9e…0deba Head {h00=0x0018, h01=0x0050, text=» LDKL A3,BVDU BUFFER«, t00=0x008e, t01=0x00d6}
0x0deba…0ded8 Head {h00=0x001a, h01=0x0050, text=» ADR A3,A11 ADDRESSS«, t00=0x008e, t01=0x00f2}
0x0ded8…0def2 Head {h00=0x0016, h01=0x0050, text=» LD A8,ECBICW,A11 «, t00=0x008e, t01=0x0110}
0x0def2…0df16 Head {h00=0x0020, h01=0x0050, text=» CF A14,ICSET SET NO TIMEOUT«, t00=0x008e, t01=0x012a}
0x0df16…0df40 Head {h00=0x0026, h01=0x0050, text=» LD A1,PRTID,A11 HARDCOPY TASK ID «, t00=0x008e, t01=0x014e}
0x0df40…0df68 Head {h00=0x0024, h01=0x0050, text=» LDKL A2,LBVDU+/20 BUFFER LENGTH«, t00=0x008e, t01=0x0178}
0x0df68…0df8e Head {h00=0x0022, h01=0x0050, text=» CF A14,ICWRT WRITE INTERTASK «, t00=0x008f, t01=0x0010}
0x0df8e…0dfa0 Head {h00=0x000e, h01=0x0050, text=» IFT SNA=1«, t00=0x008f, t01=0x0036}
0x0dfa0…0dfd6 Head {h00=0x0032, h01=0x0050, text=» LDKL A1,HCPMOD INDICATE HARDCOPY OUTSTANDING «, t00=0x008f, t01=0x0048}
0x0dfd6…0dff0 Head {h00=0x0016, h01=0x0050, text=» ORS A1,SNAMOD,A11«, t00=0x008f, t01=0x007e}
0x0dff0…0dffc Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x008f, t01=0x0098}
0x0dffc…0e00e Head {h00=0x000e, h01=0x0050, text=» IFF SNA=1«, t00=0x008f, t01=0x00a4}
0x0e00e…0e044 Head {h00=0x0032, h01=0x0050, text=» LDKL A1,HCPMOD INDICATE HARDCOPY OUTSTANDING «, t00=0x008f, t01=0x00b6}
0x0e044…0e05e Head {h00=0x0016, h01=0x0050, text=» ORS A1,BSCMOD,A11«, t00=0x008f, t01=0x00ec}
0x0e05e…0e06a Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x008f, t01=0x0106}
0x0e06a…0e07c Head {h00=0x000e, h01=0x0050, text=» RF COPY90«, t00=0x008f, t01=0x0112}
0x0e07c…0e090 Head {h00=0x0010, h01=0x0050, text=»COPY80 EQU *«, t00=0x008f, t01=0x0124}
0x0e090…0e0a6 Head {h00=0x0012, h01=0x0050, text=» CF A14,ERROR «, t00=0x008f, t01=0x0138}
0x0e0a6…0e0ba Head {h00=0x0010, h01=0x0050, text=»COPY90 EQU *«, t00=0x008f, t01=0x014e}
0x0e0ba…0e0ca Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x008f, t01=0x0162}
0x0e0ca…0e0d8 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x008f, t01=0x0172}
0x0e0d8…0e120 Head {h00=0x0044, h01=0x0050, text=»*************************************************************** «, t00=0x008f, t01=0x0180}
0x0e120…0e168 Head {h00=0x0044, h01=0x0050, text=»* * «, t00=0x0090, t01=0x0038}
0x0e168…0e19c Head {h00=0x0030, h01=0x0050, text=»* IDENT PRINTER IDENT. HANDLING«, t00=0x0090, t01=0x0080}
0x0e19c…0e1e4 Head {h00=0x0044, h01=0x0050, text=»* * «, t00=0x0090, t01=0x00b4}
0x0e1e4…0e22c Head {h00=0x0044, h01=0x0050, text=»*************************************************************** «, t00=0x0090, t01=0x00fc}
0x0e22c…0e24c Head {h00=0x001c, h01=0x0050, text=»* REGISTERS «, t00=0x0090, t01=0x0144}
0x0e24c…0e256 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0090, t01=0x0164}
0x0e256…0e27a Head {h00=0x0020, h01=0x0050, text=»* A3= POINTER IN TASK TABLE «, t00=0x0090, t01=0x016e}
0x0e27a…0e29a (145, 0, 400) Head {h00=0x001c, h01=0x0050, text=»* A11= CREDIT WORK AREA «, t00=0x0091, t01=0x0004}
0x0e29a…0e2b4 Head {h00=0x0016, h01=0x0050, text=»* A13= T:A ADDRESS«, t00=0x0091, t01=0x0024}
0x0e2b4…0e2be Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0091, t01=0x003e}
0x0e2be…0e304 Head {h00=0x0042, h01=0x0050, text=»************************************************************* «, t00=0x0091, t01=0x0048}
0x0e304…0e318 Head {h00=0x0010, h01=0x0050, text=»IDENT EQU * «, t00=0x0091, t01=0x008e}
0x0e318…0e344 Head {h00=0x0028, h01=0x0050, text=» LD A1,PRTID,A11 GET CURRENT TASKID «, t00=0x0091, t01=0x00a2}
0x0e344…0e36c Head {h00=0x0024, h01=0x0050, text=» LD A4,+6,A13 COMMON BLOCK BASE «, t00=0x0091, t01=0x00ce}
0x0e36c…0e38c Head {h00=0x001c, h01=0x0050, text=» ANK A1,X'FF' GET OFFSET«, t00=0x0091, t01=0x00f6}
0x0e38c…0e3a0 Head {h00=0x0010, h01=0x0050, text=» SUK A1,/30 «, t00=0x0091, t01=0x0116}
0x0e3a0…0e3b2 Head {h00=0x000e, h01=0x0050, text=» SLL A1,2 «, t00=0x0091, t01=0x012a}
0x0e3b2…0e3ca Head {h00=0x0014, h01=0x0050, text=» LDKL A3,TSKTAB «, t00=0x0091, t01=0x013c}
0x0e3ca…0e3dc Head {h00=0x000e, h01=0x0050, text=» ADR A3,A4«, t00=0x0091, t01=0x0154}
0x0e3dc…0e3ee Head {h00=0x000e, h01=0x0050, text=» ADR A3,A1«, t00=0x0091, t01=0x0166}
0x0e3ee…0e402 Head {h00=0x0010, h01=0x0050, text=»IDEN30 EQU *«, t00=0x0091, t01=0x0178}
0x0e402…0e41c Head {h00=0x0016, h01=0x0050, text=» LCR A5,A3 GET ID «, t00=0x0091, t01=0x018c}
0x0e41c…0e42e Head {h00=0x000e, h01=0x0050, text=» SLL A5,8 «, t00=0x0092, t01=0x0016}
0x0e42e…0e442 Head {h00=0x0010, h01=0x0050, text=» LC A5,+1,A3«, t00=0x0092, t01=0x0028}
0x0e442…0e462 Head {h00=0x001c, h01=0x0050, text=» LC A4,+3,A3 GET STATUS «, t00=0x0092, t01=0x003c}
0x0e462…0e486 Head {h00=0x0020, h01=0x0050, text=» CF A14,SAVE1 SAVE REGISTERS«, t00=0x0092, t01=0x005c}
0x0e486…0e4aa Head {h00=0x0020, h01=0x0050, text=» CF A14,DISID DISPLAY TASKID«, t00=0x0092, t01=0x0080}
0x0e4aa…0e4d0 Head {h00=0x0022, h01=0x0050, text=» LDKL A1,IDEN40 NEXT KEY ENTRY«, t00=0x0092, t01=0x00a4}
0x0e4d0…0e4ea Head {h00=0x0016, h01=0x0050, text=» ST A1,RDMORE,A11 «, t00=0x0092, t01=0x00ca}
0x0e4ea…0e506 Head {h00=0x0018, h01=0x0050, text=» RF IDEN90 NEXT KEY «, t00=0x0092, t01=0x00e4}
0x0e506…0e51a Head {h00=0x0010, h01=0x0050, text=»IDEN40 EQU *«, t00=0x0092, t01=0x0100}
0x0e51a…0e530 Head {h00=0x0012, h01=0x0050, text=» CM RDMORE,A11«, t00=0x0092, t01=0x0114}
0x0e530…0e542 Head {h00=0x000e, h01=0x0050, text=» LDR A9,A2«, t00=0x0092, t01=0x012a}
0x0e542…0e56a Head {h00=0x0024, h01=0x0050, text=» CF A14,REST1 RESTORE REGISTERS «, t00=0x0092, t01=0x013c}
0x0e56a…0e594 Head {h00=0x0026, h01=0x0050, text=» CWK A9,ENTKEY SAVE CURRENT TASKID«, t00=0x0092, t01=0x0164}
0x0e594…0e5ae Head {h00=0x0016, h01=0x0050, text=» RF(E) IDEN80 YES «, t00=0x0092, t01=0x018e}
0x0e5ae…0e5d4 Head {h00=0x0022, h01=0x0050, text=» CWK A9,IDKEY GET NEXT TASKID?«, t00=0x0093, t01=0x0018}
0x0e5d4…0e600 Head {h00=0x0028, h01=0x0050, text=» RF(NE) IDEN90 NO KEEP THE FIRST ONE«, t00=0x0093, t01=0x003e}
0x0e600…0e614 Head {h00=0x0010, h01=0x0050, text=»IDEN50 EQU *«, t00=0x0093, t01=0x006a}
0x0e614…0e63e Head {h00=0x0026, h01=0x0050, text=» ADK A3,4 SEARCH FOR NEXT PRINTER «, t00=0x0093, t01=0x007e}
0x0e63e…0e650 Head {h00=0x000e, h01=0x0050, text=» LCR A2,A3«, t00=0x0093, t01=0x00a8}
0x0e650…0e664 Head {h00=0x0010, h01=0x0050, text=» ANK A2,/FF «, t00=0x0093, t01=0x00ba}
0x0e664…0e676 Head {h00=0x000e, h01=0x0050, text=» LDR A1,A2«, t00=0x0093, t01=0x00ce}
0x0e676…0e68c Head {h00=0x0012, h01=0x0050, text=» RB(Z) IDEN50 «, t00=0x0093, t01=0x00e0}
0x0e68c…0e69e Head {h00=0x000e, h01=0x0050, text=» SLL A1,8 «, t00=0x0093, t01=0x00f6}
0x0e69e…0e6b4 Head {h00=0x0012, h01=0x0050, text=» RF(N) IDEN60 «, t00=0x0093, t01=0x0108}
0x0e6b4…0e6d4 Head {h00=0x001c, h01=0x0050, text=» CCK A2,VDUCOD PRINTER? «, t00=0x0093, t01=0x011e}
0x0e6d4…0e6ee Head {h00=0x0016, h01=0x0050, text=» RB(NE) IDEN30 YES«, t00=0x0093, t01=0x013e}
0x0e6ee…0e700 Head {h00=0x000e, h01=0x0050, text=» RB IDEN50«, t00=0x0093, t01=0x0158}
0x0e700…0e714 Head {h00=0x0010, h01=0x0050, text=»IDEN60 EQU *«, t00=0x0093, t01=0x016a}
0x0e714…0e72c Head {h00=0x0014, h01=0x0050, text=» LDKL A2,TSKTAB «, t00=0x0093, t01=0x017e}
0x0e72c…0e740 Head {h00=0x0010, h01=0x0050, text=» LD A3,6,A13«, t00=0x0094, t01=0x0008}
0x0e740…0e752 Head {h00=0x000e, h01=0x0050, text=» ADR A3,A2«, t00=0x0094, t01=0x001c}
0x0e752…0e764 Head {h00=0x000e, h01=0x0050, text=» SUK A3,4 «, t00=0x0094, t01=0x002e}
0x0e764…0e776 Head {h00=0x000e, h01=0x0050, text=» RB IDEN50«, t00=0x0094, t01=0x0040}
0x0e776…0e78a Head {h00=0x0010, h01=0x0050, text=»IDEN80 EQU *«, t00=0x0094, t01=0x0052}
0x0e78a…0e7b0 Head {h00=0x0022, h01=0x0050, text=» LCR A1,A3 GET PRINTER TO SAVE«, t00=0x0094, t01=0x0066}
0x0e7b0…0e7c2 Head {h00=0x000e, h01=0x0050, text=» SLL A1,8 «, t00=0x0094, t01=0x008c}
0x0e7c2…0e7d6 Head {h00=0x0010, h01=0x0050, text=» LC A1,+1,A3«, t00=0x0094, t01=0x009e}
0x0e7d6…0e802 Head {h00=0x0028, h01=0x0050, text=» ST A1,PRTID,A11 NEW HARDCOPY TASKID«, t00=0x0094, t01=0x00b2}
0x0e802…0e816 Head {h00=0x0010, h01=0x0050, text=»IDEN90 EQU *«, t00=0x0094, t01=0x00de}
0x0e816…0e826 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0094, t01=0x00f2}
0x0e826…0e834 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0094, t01=0x0102}
0x0e834…0e87a Head {h00=0x0042, h01=0x0050, text=»************************************************************* «, t00=0x0094, t01=0x0110}
0x0e87a…0e8c0 Head {h00=0x0042, h01=0x0050, text=»* * «, t00=0x0094, t01=0x0156}
0x0e8c0…0e906 Head {h00=0x0042, h01=0x0050, text=»* KEYL KEYLOCK STATUS * «, t00=0x0095, t01=0x000c}
0x0e906…0e94c Head {h00=0x0042, h01=0x0050, text=»* * «, t00=0x0095, t01=0x0052}
0x0e94c…0e992 Head {h00=0x0042, h01=0x0050, text=»************************************************************* «, t00=0x0095, t01=0x0098}
0x0e992…0e9a6 Head {h00=0x0010, h01=0x0050, text=»* REGISTERS«, t00=0x0095, t01=0x00de}
0x0e9a6…0e9b0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0095, t01=0x00f2}
0x0e9b0…0e9cc Head {h00=0x0018, h01=0x0050, text=»* A2= KEYLOCK VALUE «, t00=0x0095, t01=0x00fc}
0x0e9cc…0e9ec Head {h00=0x001c, h01=0x0050, text=»* A11= CREDIT WORK AREA «, t00=0x0095, t01=0x0118}
0x0e9ec…0ea04 Head {h00=0x0014, h01=0x0050, text=»* A13= RESERVED «, t00=0x0095, t01=0x0138}
0x0ea04…0ea0e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0095, t01=0x0150}
0x0ea0e…0ea54 Head {h00=0x0042, h01=0x0050, text=»**************************************************************«, t00=0x0095, t01=0x015a}
0x0ea54…0ea6a Head {h00=0x0012, h01=0x0050, text=» IFT KEYLST=1 «, t00=0x0096, t01=0x0010}
0x0ea6a…0ea80 Head {h00=0x0012, h01=0x0050, text=» IFT KB6272=1 «, t00=0x0096, t01=0x0026}
0x0ea80…0ea92 Head {h00=0x000e, h01=0x0050, text=»KEYL EQU *«, t00=0x0096, t01=0x003c}
0x0ea92…0eac0 Head {h00=0x002a, h01=0x0050, text=» SUK A2,LKLKEY GET NEG KEY LOCK VALUE «, t00=0x0096, t01=0x004e}
0x0eac0…0eae2 Head {h00=0x001e, h01=0x0050, text=» LD A3,KEYS,A11 OLD STATUS«, t00=0x0096, t01=0x007c}
0x0eae2…0eaf6 Head {h00=0x0010, h01=0x0050, text=» LDK A4,/10 «, t00=0x0096, t01=0x009e}
0x0eaf6…0eb0a Head {h00=0x0010, h01=0x0050, text=»KEYL10 EQU *«, t00=0x0096, t01=0x00b2}
0x0eb0a…0eb1c Head {h00=0x000e, h01=0x0050, text=» SRL A4,1 «, t00=0x0096, t01=0x00c6}
0x0eb1c…0eb3c Head {h00=0x001c, h01=0x0050, text=» ADK A2,2 1 = OFF,0 = ON«, t00=0x0096, t01=0x00d8}
0x0eb3c…0eb52 Head {h00=0x0012, h01=0x0050, text=» RB(N) KEYL10 «, t00=0x0096, t01=0x00f8}
0x0eb52…0eb76 Head {h00=0x0020, h01=0x0050, text=» ANR A3,A4 CHECK OLD KEY POS«, t00=0x0096, t01=0x010e}
0x0eb76…0eb94 Head {h00=0x001a, h01=0x0050, text=» RF(NZ) KEYL20 WAS ON «, t00=0x0096, t01=0x0132}
0x0eb94…0ebae Head {h00=0x0016, h01=0x0050, text=» LDR A2,A2 WAS OFF«, t00=0x0096, t01=0x0150}
0x0ebae…0ebd8 Head {h00=0x0026, h01=0x0050, text=» RF(NZ) KEYL99 NOW OFF, NO CHANGE «, t00=0x0096, t01=0x016a}
0x0ebd8…0ebf2 (151, 0, 398) Head {h00=0x0016, h01=0x0050, text=» RF KEYL30 NOW ON «, t00=0x0097, t01=0x0004}
0x0ebf2…0ec0e Head {h00=0x0018, h01=0x0050, text=»KEYL20 EQU * WAS ON «, t00=0x0097, t01=0x001e}
0x0ec0e…0ec20 Head {h00=0x000e, h01=0x0050, text=» LDR A2,A2«, t00=0x0097, t01=0x003a}
0x0ec20…0ec48 Head {h00=0x0024, h01=0x0050, text=» RF(Z) KEYL99 NOW ON, NO CHANGE «, t00=0x0097, t01=0x004c}
0x0ec48…0ec64 Head {h00=0x0018, h01=0x0050, text=»KEYL30 EQU * CHANGE«, t00=0x0097, t01=0x0074}
0x0ec64…0ec7c Head {h00=0x0014, h01=0x0050, text=» LD A3,KEYS,A11 «, t00=0x0097, t01=0x0090}
0x0ec7c…0ec9c Head {h00=0x001c, h01=0x0050, text=» XRR A3,A4 CHANGE STATUS«, t00=0x0097, t01=0x00a8}
0x0ec9c…0ecc4 Head {h00=0x0024, h01=0x0050, text=» ST A3,KEYS,A11 STORE NEW STATUS«, t00=0x0097, t01=0x00c8}
0x0ecc4…0ecce Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0097, t01=0x00f0}
0x0ecce…0ecee Head {h00=0x001c, h01=0x0050, text=»* KEYLOCK STATUS CHANGED«, t00=0x0097, t01=0x00fa}
0x0ecee…0ed3c Head {h00=0x004a, h01=0x0050, text=»* A3 = NEW STATUS, RIGHTMOST BIT = RIGHTMOST LOCK, BIT ON = LOCK ON «, t00=0x0097, t01=0x011a}
0x0ed3c…0ed6a Head {h00=0x002a, h01=0x0050, text=»* A4 = KEYLOCK CHANGED, LAYOUT AS A3«, t00=0x0097, t01=0x0168}
0x0ed6a…0ed96 Head {h00=0x0028, h01=0x0050, text=»* A2 = 1, IF CHANGED TO OFF ELSE 0«, t00=0x0098, t01=0x0008}
0x0ed96…0eda0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0098, t01=0x0034}
0x0eda0…0edce Head {h00=0x002a, h01=0x0050, text=»* INSERT USER ROUTINE BELOW THIS LINE «, t00=0x0098, t01=0x003e}
0x0edce…0edd8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0098, t01=0x006c}
0x0edd8…0edec Head {h00=0x0010, h01=0x0050, text=»KEYL99 EQU *«, t00=0x0098, t01=0x0076}
0x0edec…0edfc Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0098, t01=0x008a}
0x0edfc…0ee08 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0098, t01=0x009a}
0x0ee08…0ee16 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0098, t01=0x00a6}
0x0ee16…0ee58 Head {h00=0x003e, h01=0x0050, text=»**********************************************************«, t00=0x0098, t01=0x00b4}
0x0ee58…0ee62 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0098, t01=0x00f6}
0x0ee62…0ee7c Head {h00=0x0016, h01=0x0050, text=»* TESTM TEST MODE «, t00=0x0098, t01=0x0100}
0x0ee7c…0ee86 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0098, t01=0x011a}
0x0ee86…0eec8 Head {h00=0x003e, h01=0x0050, text=»**********************************************************«, t00=0x0098, t01=0x0124}
0x0eec8…0eee2 Head {h00=0x0016, h01=0x0050, text=»* REGISTERS«, t00=0x0098, t01=0x0166}
0x0eee2…0eeec Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0098, t01=0x0180}
0x0eeec…0ef04 Head {h00=0x0014, h01=0x0050, text=»* A11= RESERVED «, t00=0x0098, t01=0x018a}
0x0ef04…0ef1c Head {h00=0x0014, h01=0x0050, text=»* A13= RESERVED «, t00=0x0099, t01=0x0012}
0x0ef1c…0ef26 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0099, t01=0x002a}
0x0ef26…0ef68 Head {h00=0x003e, h01=0x0050, text=»********************************************************* «, t00=0x0099, t01=0x0034}
0x0ef68…0ef7c Head {h00=0x0010, h01=0x0050, text=» IFT TEST=1 «, t00=0x0099, t01=0x0076}
0x0ef7c…0ef90 Head {h00=0x0010, h01=0x0050, text=»TESTM EQU * «, t00=0x0099, t01=0x008a}
0x0ef90…0efa6 Head {h00=0x0012, h01=0x0050, text=» CF A14,ERASE «, t00=0x0099, t01=0x009e}
0x0efa6…0efbc Head {h00=0x0012, h01=0x0050, text=» CF A14,GETBUF«, t00=0x0099, t01=0x00b4}
0x0efbc…0efd2 Head {h00=0x0012, h01=0x0050, text=» CF A14,RDSTAT«, t00=0x0099, t01=0x00ca}
0x0efd2…0efe8 Head {h00=0x0012, h01=0x0050, text=» CF A14,DISSTA«, t00=0x0099, t01=0x00e0}
0x0efe8…0effc Head {h00=0x0010, h01=0x0050, text=» LDR A8,A12 «, t00=0x0099, t01=0x00f6}
0x0effc…0f012 Head {h00=0x0012, h01=0x0050, text=» CF A14,RELBUF«, t00=0x0099, t01=0x010a}
0x0f012…0f022 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0099, t01=0x0120}
0x0f022…0f02e Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0099, t01=0x0130}
0x0f02e…0f03c Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0099, t01=0x013c}
0x0f03c…0f07e Head {h00=0x003e, h01=0x0050, text=»********************************************************* «, t00=0x0099, t01=0x014a}
0x0f07e…0f0c0 Head {h00=0x003e, h01=0x0050, text=»* * «, t00=0x0099, t01=0x018c}
0x0f0c0…0f102 Head {h00=0x003e, h01=0x0050, text=»* ENTER ENTER KEY HANDLING * «, t00=0x009a, t01=0x003e}
0x0f102…0f144 Head {h00=0x003e, h01=0x0050, text=»* * «, t00=0x009a, t01=0x0080}
0x0f144…0f186 Head {h00=0x003e, h01=0x0050, text=»********************************************************* «, t00=0x009a, t01=0x00c2}
0x0f186…0f19a Head {h00=0x0010, h01=0x0050, text=»* REGISTERS«, t00=0x009a, t01=0x0104}
0x0f19a…0f1a4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x009a, t01=0x0118}
0x0f1a4…0f1ba Head {h00=0x0012, h01=0x0050, text=»* A2= AID-CODE«, t00=0x009a, t01=0x0122}
0x0f1ba…0f1d2 Head {h00=0x0014, h01=0x0050, text=»* A11= RESERVED «, t00=0x009a, t01=0x0138}
0x0f1d2…0f1ea Head {h00=0x0014, h01=0x0050, text=»* A13= RESERVED «, t00=0x009a, t01=0x0150}
0x0f1ea…0f1f4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x009a, t01=0x0168}
0x0f1f4…0f236 Head {h00=0x003e, h01=0x0050, text=»********************************************************* «, t00=0x009a, t01=0x0172}
0x0f236…0f24a Head {h00=0x0010, h01=0x0050, text=»ENTER EQU * «, t00=0x009b, t01=0x0024}
0x0f24a…0f266 Head {h00=0x0018, h01=0x0050, text=» LDK A2,/27 AID-CODE«, t00=0x009b, t01=0x0038}
0x0f266…0f298 Head {h00=0x002e, h01=0x0050, text=» CF A14,LMP3ON TURN ON "KEYBOARD INHIBIT" «, t00=0x009b, t01=0x0054}
0x0f298…0f2ca Head {h00=0x002e, h01=0x0050, text=» CF A14,TRPF AID+MODIFIED FIELDS+TRANSMIT «, t00=0x009b, t01=0x0086}
0x0f2ca…0f2da Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x009b, t01=0x00b8}
0x0f2da…0f2e8 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x009b, t01=0x00c8}
0x0f2e8…0f32e Head {h00=0x0042, h01=0x0050, text=»**************************************************************«, t00=0x009b, t01=0x00d6}
0x0f32e…0f374 Head {h00=0x0042, h01=0x0050, text=»* *«, t00=0x009b, t01=0x011c}
0x0f374…0f3ba Head {h00=0x0042, h01=0x0050, text=»* CLEAR CLEAR KEY HANDLING *«, t00=0x009b, t01=0x0162}
0x0f3ba…0f400 Head {h00=0x0042, h01=0x0050, text=»* *«, t00=0x009c, t01=0x0018}
0x0f400…0f446 Head {h00=0x0042, h01=0x0050, text=»**************************************************************«, t00=0x009c, t01=0x005e}
0x0f446…0f45a Head {h00=0x0010, h01=0x0050, text=»* REGISTERS«, t00=0x009c, t01=0x00a4}
0x0f45a…0f464 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x009c, t01=0x00b8}
0x0f464…0f47a Head {h00=0x0012, h01=0x0050, text=»* A2= AID-CODE«, t00=0x009c, t01=0x00c2}
0x0f47a…0f492 Head {h00=0x0014, h01=0x0050, text=»* A11= RESERVED «, t00=0x009c, t01=0x00d8}
0x0f492…0f4aa Head {h00=0x0014, h01=0x0050, text=»* A13= RESERVED «, t00=0x009c, t01=0x00f0}
0x0f4aa…0f4b4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x009c, t01=0x0108}
0x0f4b4…0f4fa Head {h00=0x0042, h01=0x0050, text=»**************************************************************«, t00=0x009c, t01=0x0112}
0x0f4fa…0f50e Head {h00=0x0010, h01=0x0050, text=»CLEAR EQU * «, t00=0x009c, t01=0x0158}
0x0f50e…0f532 Head {h00=0x0020, h01=0x0050, text=» LDK A2,/5F POS FOR 'CLEAR' «, t00=0x009c, t01=0x016c}
0x0f532…0f564 Head {h00=0x002e, h01=0x0050, text=» CF A14,LMP3ON TURN ON "KEYBOARD INHIBIT" «, t00=0x009c, t01=0x0190}
0x0f564…0f590 Head {h00=0x0028, h01=0x0050, text=» CF A14,TRPA UPDATE AID AND TRANSMIT«, t00=0x009d, t01=0x0032}
0x0f590…0f5ba Head {h00=0x0026, h01=0x0050, text=» CF A14,ERASE ERASE ENTIRE SCREEN «, t00=0x009d, t01=0x005e}
0x0f5ba…0f5ca Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x009d, t01=0x0088}
0x0f5ca…0f5d8 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x009d, t01=0x0098}
0x0f5d8…0f620 Head {h00=0x0044, h01=0x0050, text=»*************************************************************** «, t00=0x009d, t01=0x00a6}
0x0f620…0f668 Head {h00=0x0044, h01=0x0050, text=»* * «, t00=0x009d, t01=0x00ee}
0x0f668…0f6b0 Head {h00=0x0044, h01=0x0050, text=»* SYSREQ SYSTEM REQUEST HANDLING * «, t00=0x009d, t01=0x0136}
0x0f6b0…0f6f8 Head {h00=0x0044, h01=0x0050, text=»* * «, t00=0x009d, t01=0x017e}
0x0f6f8…0f740 Head {h00=0x0044, h01=0x0050, text=»*************************************************************** «, t00=0x009e, t01=0x0036}
0x0f740…0f754 Head {h00=0x0010, h01=0x0050, text=»* REGISTERS«, t00=0x009e, t01=0x007e}
0x0f754…0f75e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x009e, t01=0x0092}
0x0f75e…0f77e Head {h00=0x001c, h01=0x0050, text=»* A11= CREDIT WORK AREA «, t00=0x009e, t01=0x009c}
0x0f77e…0f796 Head {h00=0x0014, h01=0x0050, text=»* A13= RESERVED «, t00=0x009e, t01=0x00bc}
0x0f796…0f7a0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x009e, t01=0x00d4}
0x0f7a0…0f7dc Head {h00=0x0038, h01=0x0050, text=»****************************************************«, t00=0x009e, t01=0x00de}
0x0f7dc…0f7ee Head {h00=0x000e, h01=0x0050, text=» IFT SNA=1«, t00=0x009e, t01=0x011a}
0x0f7ee…0f802 Head {h00=0x0010, h01=0x0050, text=»SYSREQ EQU *«, t00=0x009e, t01=0x012c}
0x0f802…0f824 Head {h00=0x001e, h01=0x0050, text=» CF A14,TSTSTA TEST STATUS«, t00=0x009e, t01=0x0140}
0x0f824…0f842 Head {h00=0x001a, h01=0x0050, text=» LDR A2,A1 GET STATUS «, t00=0x009e, t01=0x0162}
0x0f842…0f860 Head {h00=0x001a, h01=0x0050, text=» ANKL A2,/101 ACTIVE? «, t00=0x009e, t01=0x0180}
0x0f860…0f87a Head {h00=0x0016, h01=0x0050, text=» RF(Z) SYS100 YES «, t00=0x009f, t01=0x000e}
0x0f87a…0f8a4 Head {h00=0x0026, h01=0x0050, text=» LDK A1,LOCMOD INDICATE LOCAL MODE«, t00=0x009f, t01=0x0028}
0x0f8a4…0f8b6 Head {h00=0x000e, h01=0x0050, text=» RF SYS500«, t00=0x009f, t01=0x0052}
0x0f8b6…0f8ca Head {h00=0x0010, h01=0x0050, text=»SYS100 EQU *«, t00=0x009f, t01=0x0064}
0x0f8ca…0f8e8 Head {h00=0x001a, h01=0x0050, text=» LDR A2,A1 GET STATUS «, t00=0x009f, t01=0x0078}
0x0f8e8…0f90a Head {h00=0x001e, h01=0x0050, text=» ANKL A2,/C00 MY JOB MODE?«, t00=0x009f, t01=0x0096}
0x0f90a…0f924 Head {h00=0x0016, h01=0x0050, text=» RF(NZ) SYS200 NO «, t00=0x009f, t01=0x00b8}
0x0f924…0f94e Head {h00=0x0026, h01=0x0050, text=» CF A14,CLEAR CLEAR SCREEN AND DC «, t00=0x009f, t01=0x00d2}
0x0f94e…0f97a Head {h00=0x0028, h01=0x0050, text=» CF A14,RESKB RESET KEYBOARD BUFFER «, t00=0x009f, t01=0x00fc}
0x0f97a…0f9a4 Head {h00=0x0026, h01=0x0050, text=» LDK A1,SYSOP INDICATE SYSTEM MODE«, t00=0x009f, t01=0x0128}
0x0f9a4…0f9b6 Head {h00=0x000e, h01=0x0050, text=» RF SYS500«, t00=0x009f, t01=0x0152}
0x0f9b6…0f9ca Head {h00=0x0010, h01=0x0050, text=»SYS200 EQU *«, t00=0x009f, t01=0x0164}
0x0f9ca…0f9f6 Head {h00=0x0028, h01=0x0050, text=» CWK A2,/C00 SSCP-LU AND NOT LU-LU? «, t00=0x009f, t01=0x0178}
0x0f9f6…0fa10 Head {h00=0x0016, h01=0x0050, text=» RF(NE) SYS300 NO «, t00=0x00a0, t01=0x0014}
0x0fa10…0fa3a Head {h00=0x0026, h01=0x0050, text=» LDK A1,SYSOP INDICATE SYSTEM MODE«, t00=0x00a0, t01=0x002e}
0x0fa3a…0fa4c Head {h00=0x000e, h01=0x0050, text=» RF SYS500«, t00=0x00a0, t01=0x0058}
0x0fa4c…0fa60 Head {h00=0x0010, h01=0x0050, text=»SYS300 EQU *«, t00=0x00a0, t01=0x006a}
0x0fa60…0fa88 Head {h00=0x0024, h01=0x0050, text=» ANKL A2,/800 SSCP-LU AND LU-LU?«, t00=0x00a0, t01=0x007e}
0x0fa88…0faa2 Head {h00=0x0016, h01=0x0050, text=» RF(NZ) SYS400 YES«, t00=0x00a0, t01=0x00a6}
0x0faa2…0facc Head {h00=0x0026, h01=0x0050, text=» LDK A1,SYSOP INDICATE SYSTEM MODE«, t00=0x00a0, t01=0x00c0}
0x0facc…0fade Head {h00=0x000e, h01=0x0050, text=» RF SYS500«, t00=0x00a0, t01=0x00ea}
0x0fade…0faf2 Head {h00=0x0010, h01=0x0050, text=»SYS400 EQU *«, t00=0x00a0, t01=0x00fc}
0x0faf2…0fb1c Head {h00=0x0026, h01=0x0050, text=» LDK A1,MYJOB INDICATE MY JOB MODE«, t00=0x00a0, t01=0x0110}
0x0fb1c…0fb30 Head {h00=0x0010, h01=0x0050, text=»SYS500 EQU *«, t00=0x00a0, t01=0x013a}
0x0fb30…0fb64 Head {h00=0x0030, h01=0x0050, text=» ORKL A1,NEWMOD INDICATE NEW MODE ACTIVATION«, t00=0x00a0, t01=0x014e}
0x0fb64…0fb7e Head {h00=0x0016, h01=0x0050, text=» ST A1,SNAMOD,A11 «, t00=0x00a0, t01=0x0182}
0x0fb7e…0fb8e Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x00a1, t01=0x000c}
0x0fb8e…0fb9a Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00a1, t01=0x001c}
0x0fb9a…0fba8 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x00a1, t01=0x0028}
0x0fba8…0fbf0 Head {h00=0x0044, h01=0x0050, text=»*************************************************************** «, t00=0x00a1, t01=0x0036}
0x0fbf0…0fc38 Head {h00=0x0044, h01=0x0050, text=»* * «, t00=0x00a1, t01=0x007e}
0x0fc38…0fc80 Head {h00=0x0044, h01=0x0050, text=»* ATTN ATTENTION KEY HANDLING * «, t00=0x00a1, t01=0x00c6}
0x0fc80…0fcc8 Head {h00=0x0044, h01=0x0050, text=»* * «, t00=0x00a1, t01=0x010e}
0x0fcc8…0fd10 Head {h00=0x0044, h01=0x0050, text=»*************************************************************** «, t00=0x00a1, t01=0x0156}
0x0fd10…0fd2e Head {h00=0x001a, h01=0x0050, text=»* REGISTERS «, t00=0x00a2, t01=0x000e}
0x0fd2e…0fd38 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00a2, t01=0x002c}
0x0fd38…0fd50 Head {h00=0x0014, h01=0x0050, text=»* A11= RESERVED «, t00=0x00a2, t01=0x0036}
0x0fd50…0fd68 Head {h00=0x0014, h01=0x0050, text=»* A13= RESERVED «, t00=0x00a2, t01=0x004e}
0x0fd68…0fd72 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00a2, t01=0x0066}
0x0fd72…0fdb4 Head {h00=0x003e, h01=0x0050, text=»**********************************************************«, t00=0x00a2, t01=0x0070}
0x0fdb4…0fdc6 Head {h00=0x000e, h01=0x0050, text=» IFT SNA=1«, t00=0x00a2, t01=0x00b2}
0x0fdc6…0fdd8 Head {h00=0x000e, h01=0x0050, text=»ATTN EQU *«, t00=0x00a2, t01=0x00c4}
0x0fdd8…0fe00 Head {h00=0x0024, h01=0x0050, text=» LDK A1,/4B SIGNAL ATTENTION KEY«, t00=0x00a2, t01=0x00d6}
0x0fe00…0fe22 Head {h00=0x001e, h01=0x0050, text=» CF A14,SETSTA SET STATUS «, t00=0x00a2, t01=0x00fe}
0x0fe22…0fe32 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x00a2, t01=0x0120}
0x0fe32…0fe3e Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00a2, t01=0x0130}
0x0fe3e…0fe4c Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x00a2, t01=0x013c}
0x0fe4c…0fe92 Head {h00=0x0042, h01=0x0050, text=»**************************************************************«, t00=0x00a2, t01=0x014a}
0x0fe92…0fed8 Head {h00=0x0042, h01=0x0050, text=»* *«, t00=0x00a2, t01=0x0190}
0x0fed8…0ff1c Head {h00=0x0040, h01=0x0050, text=»* PA PROGRAM ACCESS KEY HANDLING * «, t00=0x00a3, t01=0x0046}
0x0ff1c…0ff62 Head {h00=0x0042, h01=0x0050, text=»* *«, t00=0x00a3, t01=0x008a}
0x0ff62…0ffa8 Head {h00=0x0042, h01=0x0050, text=»**************************************************************«, t00=0x00a3, t01=0x00d0}
0x0ffa8…0ffbc Head {h00=0x0010, h01=0x0050, text=»* REGISTERS«, t00=0x00a3, t01=0x0116}
0x0ffbc…0ffc6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00a3, t01=0x012a}
0x0ffc6…0ffdc Head {h00=0x0012, h01=0x0050, text=»* A2= AID-CODE«, t00=0x00a3, t01=0x0134}
0x0ffdc…0fff4 Head {h00=0x0014, h01=0x0050, text=»* A11= RESERVED «, t00=0x00a3, t01=0x014a}
0x0fff4…1000c Head {h00=0x0014, h01=0x0050, text=»* A13= RESERVED «, t00=0x00a3, t01=0x0162}
0x1000c…10016 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00a3, t01=0x017a}
0x10016…1005c Head {h00=0x0042, h01=0x0050, text=»**************************************************************«, t00=0x00a3, t01=0x0184}
0x1005c…1006e Head {h00=0x000e, h01=0x0050, text=»PA1 EQU * «, t00=0x00a4, t01=0x003a}
0x1006e…1008a Head {h00=0x0018, h01=0x0050, text=» LDK A2,/25 AID-CODE«, t00=0x00a4, t01=0x004c}
0x1008a…1009c Head {h00=0x000e, h01=0x0050, text=» RF PA500 «, t00=0x00a4, t01=0x0068}
0x1009c…100ae Head {h00=0x000e, h01=0x0050, text=»PA2 EQU * «, t00=0x00a4, t01=0x007a}
0x100ae…100ca Head {h00=0x0018, h01=0x0050, text=» LDK A2,/3E AID-CODE«, t00=0x00a4, t01=0x008c}
0x100ca…100dc Head {h00=0x000e, h01=0x0050, text=» RF PA500 «, t00=0x00a4, t01=0x00a8}
0x100dc…100ee Head {h00=0x000e, h01=0x0050, text=»PA3 EQU * «, t00=0x00a4, t01=0x00ba}
0x100ee…1010a Head {h00=0x0018, h01=0x0050, text=» LDK A2,/2C AID-CODE«, t00=0x00a4, t01=0x00cc}
0x1010a…1011e Head {h00=0x0010, h01=0x0050, text=»PA500 EQU * «, t00=0x00a4, t01=0x00e8}
0x1011e…1014e Head {h00=0x002c, h01=0x0050, text=» CF A14,LMP3ON TURN ON KEYBOARD INHIBIT «, t00=0x00a4, t01=0x00fc}
0x1014e…10174 Head {h00=0x0022, h01=0x0050, text=» CF A14,TRPA TRANSMIT AID-CODE«, t00=0x00a4, t01=0x012c}
0x10174…10188 Head {h00=0x0010, h01=0x0050, text=»PAALFA EQU *«, t00=0x00a4, t01=0x0152}
0x10188…101ac Head {h00=0x0020, h01=0x0050, text=»*INSERT ALFASKOP STATEMENTS «, t00=0x00a4, t01=0x0166}
0x101ac…101bc Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x00a4, t01=0x018a}
0x101bc…101ca Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x00a5, t01=0x000a}
0x101ca…10216 Head {h00=0x0048, h01=0x0050, text=»******************************************************************* «, t00=0x00a5, t01=0x0018}
0x10216…10262 Head {h00=0x0048, h01=0x0050, text=»* * «, t00=0x00a5, t01=0x0064}
0x10262…102ae Head {h00=0x0048, h01=0x0050, text=»* PAEX PAEX KEY FOLLOWED BY NUMBER * «, t00=0x00a5, t01=0x00b0}
0x102ae…102fa Head {h00=0x0048, h01=0x0050, text=»* * «, t00=0x00a5, t01=0x00fc}
0x102fa…10346 Head {h00=0x0048, h01=0x0050, text=»******************************************************************* «, t00=0x00a5, t01=0x0148}
0x10346…1035a (166, 0, 400) Head {h00=0x0010, h01=0x0050, text=»* REGISTERS«, t00=0x00a6, t01=0x0004}
0x1035a…10364 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00a6, t01=0x0018}
0x10364…10384 Head {h00=0x001c, h01=0x0050, text=»* A11= CREDIT WORK AREA «, t00=0x00a6, t01=0x0022}
0x10384…1039c Head {h00=0x0014, h01=0x0050, text=»* A13= RESERVED «, t00=0x00a6, t01=0x0042}
0x1039c…103a6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00a6, t01=0x005a}
0x103a6…103e2 Head {h00=0x0038, h01=0x0050, text=»*************************************************** «, t00=0x00a6, t01=0x0064}
0x103e2…103f4 Head {h00=0x000e, h01=0x0050, text=» IFT PAX=1«, t00=0x00a6, t01=0x00a0}
0x103f4…10406 Head {h00=0x000e, h01=0x0050, text=»PAEX EQU *«, t00=0x00a6, t01=0x00b2}
0x10406…1041c Head {h00=0x0012, h01=0x0050, text=» LDKL A1,PAEXA«, t00=0x00a6, t01=0x00c4}
0x1041c…10436 Head {h00=0x0016, h01=0x0050, text=» ST A1,RDMORE,A11 «, t00=0x00a6, t01=0x00da}
0x10436…10446 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x00a6, t01=0x00f4}
0x10446…1045a Head {h00=0x0010, h01=0x0050, text=»PAEXA EQU * «, t00=0x00a6, t01=0x0104}
0x1045a…10470 Head {h00=0x0012, h01=0x0050, text=» CM RDMORE,A11«, t00=0x00a6, t01=0x0118}
0x10470…10494 Head {h00=0x0020, h01=0x0050, text=» SUK A2,/31 CHECK IF NUM.1-3«, t00=0x00a6, t01=0x012e}
0x10494…104b6 Head {h00=0x001e, h01=0x0050, text=» RF(L) PAERR ILLEGAL CHAR.«, t00=0x00a6, t01=0x0152}
0x104b6…104da Head {h00=0x0020, h01=0x0050, text=» SUK A2,/2 CHECK IF NUM.1-3 «, t00=0x00a6, t01=0x0174}
0x104da…104fc Head {h00=0x001e, h01=0x0050, text=» RF(G) PAEXB ILLEGAL CHAR.«, t00=0x00a7, t01=0x0008}
0x104fc…10512 Head {h00=0x0012, h01=0x0050, text=» RF(NZ) PAEX10«, t00=0x00a7, t01=0x002a}
0x10512…1052e Head {h00=0x0018, h01=0x0050, text=» CF A14,PA3 PA3 KEY «, t00=0x00a7, t01=0x0040}
0x1052e…10540 Head {h00=0x000e, h01=0x0050, text=» RF PARET «, t00=0x00a7, t01=0x005c}
0x10540…10554 Head {h00=0x0010, h01=0x0050, text=»PAEX10 EQU *«, t00=0x00a7, t01=0x006e}
0x10554…10566 Head {h00=0x000e, h01=0x0050, text=» ADK A2,1 «, t00=0x00a7, t01=0x0082}
0x10566…1057c Head {h00=0x0012, h01=0x0050, text=» RF(NZ) PAEX20«, t00=0x00a7, t01=0x0094}
0x1057c…10598 Head {h00=0x0018, h01=0x0050, text=» CF A14,PA2 PA2 KEY «, t00=0x00a7, t01=0x00aa}
0x10598…105aa Head {h00=0x000e, h01=0x0050, text=» RF PARET «, t00=0x00a7, t01=0x00c6}
0x105aa…105be Head {h00=0x0010, h01=0x0050, text=»PAEX20 EQU *«, t00=0x00a7, t01=0x00d8}
0x105be…105da Head {h00=0x0018, h01=0x0050, text=» CF A14,PA1 PA1 KEY «, t00=0x00a7, t01=0x00ec}
0x105da…105ec Head {h00=0x000e, h01=0x0050, text=» RF PARET «, t00=0x00a7, t01=0x0108}
0x105ec…10604 Head {h00=0x0014, h01=0x0050, text=»PAEXB EQU * DK3«, t00=0x00a7, t01=0x011a}
0x10604…1061c Head {h00=0x0014, h01=0x0050, text=» SUK A2,/6 DK3 «, t00=0x00a7, t01=0x0132}
0x1061c…10636 Head {h00=0x0016, h01=0x0050, text=» RF(G) PAERR DK3 «, t00=0x00a7, t01=0x014a}
0x10636…1064e Head {h00=0x0014, h01=0x0050, text=» ADK A2,/69 DK3«, t00=0x00a7, t01=0x0164}
0x1064e…10668 Head {h00=0x0016, h01=0x0050, text=» CF A14,PA500 DK3«, t00=0x00a7, t01=0x017c}
0x10668…1067e Head {h00=0x0012, h01=0x0050, text=» RF PARET DK3«, t00=0x00a8, t01=0x0008}
0x1067e…10692 Head {h00=0x0010, h01=0x0050, text=»PAERR EQU * «, t00=0x00a8, t01=0x001e}
0x10692…106b6 Head {h00=0x0020, h01=0x0050, text=» CF A14,ERROR INDICATE ERROR«, t00=0x00a8, t01=0x0032}
0x106b6…106ca Head {h00=0x0010, h01=0x0050, text=»PARET EQU * «, t00=0x00a8, t01=0x0056}
0x106ca…106da Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x00a8, t01=0x006a}
0x106da…106e6 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00a8, t01=0x007a}
0x106e6…106f4 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x00a8, t01=0x0086}
0x106f4…1073e Head {h00=0x0046, h01=0x0050, text=»******************************************************************«, t00=0x00a8, t01=0x0094}
0x1073e…10788 Head {h00=0x0046, h01=0x0050, text=»* *«, t00=0x00a8, t01=0x00de}
0x10788…107d2 Head {h00=0x0046, h01=0x0050, text=»* PF PROGRAM FUNTION KEY HANDLING *«, t00=0x00a8, t01=0x0128}
0x107d2…1081c Head {h00=0x0046, h01=0x0050, text=»* *«, t00=0x00a8, t01=0x0172}
0x1081c…10866 Head {h00=0x0046, h01=0x0050, text=»******************************************************************«, t00=0x00a9, t01=0x002c}
0x10866…1087a Head {h00=0x0010, h01=0x0050, text=»* REGISTERS«, t00=0x00a9, t01=0x0076}
0x1087a…10884 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00a9, t01=0x008a}
0x10884…1089a Head {h00=0x0012, h01=0x0050, text=»* A2= AID-CODE«, t00=0x00a9, t01=0x0094}
0x1089a…108b2 Head {h00=0x0014, h01=0x0050, text=»* A11= RESERVED «, t00=0x00a9, t01=0x00aa}
0x108b2…108ca Head {h00=0x0014, h01=0x0050, text=»* A13= RESERVED «, t00=0x00a9, t01=0x00c2}
0x108ca…108d4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00a9, t01=0x00da}
0x108d4…1091e Head {h00=0x0046, h01=0x0050, text=»******************************************************************«, t00=0x00a9, t01=0x00e4}
0x1091e…1092e Head {h00=0x000c, h01=0x0050, text=»PF EQU *«, t00=0x00a9, t01=0x012e}
0x1092e…10958 Head {h00=0x0026, h01=0x0050, text=» SUK A2,PFKEY GET INDEX TO CONVERT«, t00=0x00a9, t01=0x013e}
0x10958…10978 Head {h00=0x001c, h01=0x0050, text=» LC A2,CONPF,A2 GET AID «, t00=0x00a9, t01=0x0168}
0x10978…109a8 Head {h00=0x002c, h01=0x0050, text=» CF A14,LMP3ON TURN ON KEYBOARD INHIBIT «, t00=0x00a9, t01=0x0188}
0x109a8…109de Head {h00=0x0032, h01=0x0050, text=» CF A14,TRPF TRANSMIT AID AND MODIFIED FIELDS «, t00=0x00aa, t01=0x0028}
0x109de…109ee Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x00aa, t01=0x005e}
0x109ee…109fc Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x00aa, t01=0x006e}
0x109fc…10a46 Head {h00=0x0046, h01=0x0050, text=»***************************************************************** «, t00=0x00aa, t01=0x007c}
0x10a46…10a90 Head {h00=0x0046, h01=0x0050, text=»* * «, t00=0x00aa, t01=0x00c6}
0x10a90…10ada Head {h00=0x0046, h01=0x0050, text=»* PFEX PFEX KEY FOLLOWED BY NUMBER * «, t00=0x00aa, t01=0x0110}
0x10ada…10b24 Head {h00=0x0046, h01=0x0050, text=»* * «, t00=0x00aa, t01=0x015a}
0x10b24…10b6e Head {h00=0x0046, h01=0x0050, text=»***************************************************************** «, t00=0x00ab, t01=0x0014}
0x10b6e…10b82 Head {h00=0x0010, h01=0x0050, text=»* REGISTERS«, t00=0x00ab, t01=0x005e}
0x10b82…10b8c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00ab, t01=0x0072}
0x10b8c…10bac Head {h00=0x001c, h01=0x0050, text=»* A11= CREDIT WORK AREA «, t00=0x00ab, t01=0x007c}
0x10bac…10bc4 Head {h00=0x0014, h01=0x0050, text=»* A13= RESERVED «, t00=0x00ab, t01=0x009c}
0x10bc4…10bce Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00ab, t01=0x00b4}
0x10bce…10c08 Head {h00=0x0036, h01=0x0050, text=»************************************************* «, t00=0x00ab, t01=0x00be}
0x10c08…10c1a Head {h00=0x000e, h01=0x0050, text=» IFT PFX=1«, t00=0x00ab, t01=0x00f8}
0x10c1a…10c2c Head {h00=0x000e, h01=0x0050, text=»PFEX EQU *«, t00=0x00ab, t01=0x010a}
0x10c2c…10c42 Head {h00=0x0012, h01=0x0050, text=» LDKL A1,PFEXA«, t00=0x00ab, t01=0x011c}
0x10c42…10c54 Head {h00=0x000e, h01=0x0050, text=» RF PFNXT «, t00=0x00ab, t01=0x0132}
0x10c54…10c68 Head {h00=0x0010, h01=0x0050, text=»PFEXA EQU * «, t00=0x00ab, t01=0x0144}
0x10c68…10c7e Head {h00=0x0012, h01=0x0050, text=» CM RDMORE,A11«, t00=0x00ab, t01=0x0158}
0x10c7e…10c9e Head {h00=0x001c, h01=0x0050, text=» SUK A2,/30 LEGAL CHAR ?«, t00=0x00ab, t01=0x016e}
0x10c9e…10cce Head {h00=0x002c, h01=0x0050, text=» RF(L) PFERR ILLEGAL,GO TO ERR.HANDLING «, t00=0x00ab, t01=0x018e}
0x10cce…10ce4 Head {h00=0x0012, h01=0x0050, text=» RF(NZ) PFEX10«, t00=0x00ac, t01=0x002e}
0x10ce4…10d06 Head {h00=0x001e, h01=0x0050, text=» LDKL A1,PF0A FIRST NUM 0 «, t00=0x00ac, t01=0x0044}
0x10d06…10d24 Head {h00=0x001a, h01=0x0050, text=» RF PFNXT NEXT NUMBER «, t00=0x00ac, t01=0x0066}
0x10d24…10d38 Head {h00=0x0010, h01=0x0050, text=»PFEX10 EQU *«, t00=0x00ac, t01=0x0084}
0x10d38…10d4a Head {h00=0x000e, h01=0x0050, text=» SUK A2,1 «, t00=0x00ac, t01=0x0098}
0x10d4a…10d60 Head {h00=0x0012, h01=0x0050, text=» RF(NZ) PFEX20«, t00=0x00ac, t01=0x00aa}
0x10d60…10d82 Head {h00=0x001e, h01=0x0050, text=» LDKL A1,PF1A FIRST NUM 1 «, t00=0x00ac, t01=0x00c0}
0x10d82…10da0 Head {h00=0x001a, h01=0x0050, text=» RF PFNXT NEXT NUMBER «, t00=0x00ac, t01=0x00e2}
0x10da0…10db4 Head {h00=0x0010, h01=0x0050, text=»PFEX20 EQU *«, t00=0x00ac, t01=0x0100}
0x10db4…10dc6 Head {h00=0x000e, h01=0x0050, text=» SUK A2,1 «, t00=0x00ac, t01=0x0114}
0x10dc6…10de8 Head {h00=0x001e, h01=0x0050, text=» RF(NZ) PFERR ILLEGAL NUM «, t00=0x00ac, t01=0x0126}
0x10de8…10e0a Head {h00=0x001e, h01=0x0050, text=» LDKL A1,PF2A FIRST NUM 2 «, t00=0x00ac, t01=0x0148}
0x10e0a…10e28 Head {h00=0x001a, h01=0x0050, text=» RF PFNXT NEXT NUMBER «, t00=0x00ac, t01=0x016a}
0x10e28…10e3a Head {h00=0x000e, h01=0x0050, text=»PF0A EQU *«, t00=0x00ac, t01=0x0188}
0x10e3a…10e50 Head {h00=0x0012, h01=0x0050, text=» CM RDMORE,A11«, t00=0x00ad, t01=0x000a}
0x10e50…10e70 Head {h00=0x001c, h01=0x0050, text=» SUK A2,/31 ILLEGAL NUM?«, t00=0x00ad, t01=0x0020}
0x10e70…10e88 Head {h00=0x0014, h01=0x0050, text=» RF(N) PFERR YES«, t00=0x00ad, t01=0x0040}
0x10e88…10ea6 Head {h00=0x001a, h01=0x0050, text=» SUK A2,9 ILLEGAL NUM?«, t00=0x00ad, t01=0x0058}
0x10ea6…10ec0 Head {h00=0x0016, h01=0x0050, text=» RF(NN) PFERR YES «, t00=0x00ad, t01=0x0076}
0x10ec0…10ee0 Head {h00=0x001c, h01=0x0050, text=» ADK A2,/9+PFKEY PF1-PF9«, t00=0x00ad, t01=0x0090}
0x10ee0…10ef2 Head {h00=0x000e, h01=0x0050, text=» RF PFHAND«, t00=0x00ad, t01=0x00b0}
0x10ef2…10f04 Head {h00=0x000e, h01=0x0050, text=»PF1A EQU *«, t00=0x00ad, t01=0x00c2}
0x10f04…10f1a Head {h00=0x0012, h01=0x0050, text=» CM RDMORE,A11«, t00=0x00ad, t01=0x00d4}
0x10f1a…10f3a Head {h00=0x001c, h01=0x0050, text=» SUK A2,/30 ILLEGAL NUM?«, t00=0x00ad, t01=0x00ea}
0x10f3a…10f52 Head {h00=0x0014, h01=0x0050, text=» RF(N) PFERR YES«, t00=0x00ad, t01=0x010a}
0x10f52…10f72 Head {h00=0x001c, h01=0x0050, text=» SUK A2,/A ILLEGAL NUM? «, t00=0x00ad, t01=0x0122}
0x10f72…10f8c Head {h00=0x0016, h01=0x0050, text=» RF(NN) PFERR YES «, t00=0x00ad, t01=0x0142}
0x10f8c…10fb2 Head {h00=0x0022, h01=0x0050, text=» ADK A2,/A+PFKEY+/9 PF10-PF19 «, t00=0x00ad, t01=0x015c}
0x10fb2…10fc4 Head {h00=0x000e, h01=0x0050, text=» RF PFHAND«, t00=0x00ad, t01=0x0182}
0x10fc4…10fd6 (174, 0, 398) Head {h00=0x000e, h01=0x0050, text=»PF2A EQU *«, t00=0x00ae, t01=0x0004}
0x10fd6…10fec Head {h00=0x0012, h01=0x0050, text=» CM RDMORE,A11«, t00=0x00ae, t01=0x0016}
0x10fec…1100c Head {h00=0x001c, h01=0x0050, text=» SUK A2,/30 ILLEGAL NUM?«, t00=0x00ae, t01=0x002c}
0x1100c…11024 Head {h00=0x0014, h01=0x0050, text=» RF(N) PFERR YES«, t00=0x00ae, t01=0x004c}
0x11024…11042 Head {h00=0x001a, h01=0x0050, text=» SUK A2,5 ILLEGAL NUM?«, t00=0x00ae, t01=0x0064}
0x11042…1105c Head {h00=0x0016, h01=0x0050, text=» RF(NN) PFERR YES «, t00=0x00ae, t01=0x0082}
0x1105c…11082 Head {h00=0x0022, h01=0x0050, text=» ADK A2,/5+PFKEY+/13 PF20-PF24«, t00=0x00ae, t01=0x009c}
0x11082…11096 Head {h00=0x0010, h01=0x0050, text=»PFHAND EQU *«, t00=0x00ae, t01=0x00c2}
0x11096…110c6 Head {h00=0x002c, h01=0x0050, text=» CF A14,PF PROGRAM FUNCTION KEY HANDLING«, t00=0x00ae, t01=0x00d6}
0x110c6…110d8 Head {h00=0x000e, h01=0x0050, text=» RF PFRET «, t00=0x00ae, t01=0x0106}
0x110d8…110ec Head {h00=0x0010, h01=0x0050, text=»PFNXT EQU * «, t00=0x00ae, t01=0x0118}
0x110ec…11106 Head {h00=0x0016, h01=0x0050, text=» ST A1,RDMORE,A11 «, t00=0x00ae, t01=0x012c}
0x11106…11118 Head {h00=0x000e, h01=0x0050, text=» RF PFRET «, t00=0x00ae, t01=0x0146}
0x11118…1112c Head {h00=0x0010, h01=0x0050, text=»PFERR EQU * «, t00=0x00ae, t01=0x0158}
0x1112c…11142 Head {h00=0x0012, h01=0x0050, text=» CF A14,ERROR «, t00=0x00ae, t01=0x016c}
0x11142…11156 Head {h00=0x0010, h01=0x0050, text=»PFRET EQU * «, t00=0x00ae, t01=0x0182}
0x11156…11166 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x00af, t01=0x0008}
0x11166…11172 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00af, t01=0x0018}
0x11172…11180 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x00af, t01=0x0024}
0x11180…11188 Head {h00=0x0004, h01=0x0050, t00=0x00af, t01=0x0032}
0x11188…111ca Head {h00=0x003e, h01=0x0050, text=»**********************************************************«, t00=0x00af, t01=0x003a}
0x111ca…1120c Head {h00=0x003e, h01=0x0050, text=»* *«, t00=0x00af, t01=0x007c}
0x1120c…1124e Head {h00=0x003e, h01=0x0050, text=»* RETURN RETURN *«, t00=0x00af, t01=0x00be}
0x1124e…11290 Head {h00=0x003e, h01=0x0050, text=»* *«, t00=0x00af, t01=0x0100}
0x11290…112d4 Head {h00=0x0040, h01=0x0050, text=»*********************************************************** «, t00=0x00af, t01=0x0142}
0x112d4…112f0 Head {h00=0x0018, h01=0x0050, text=»* REGISTERS «, t00=0x00af, t01=0x0186}
0x112f0…112fa Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00b0, t01=0x0012}
0x112fa…11312 Head {h00=0x0014, h01=0x0050, text=»* A11= RESERVED «, t00=0x00b0, t01=0x001c}
0x11312…1132a Head {h00=0x0014, h01=0x0050, text=»* A13= RESERVED «, t00=0x00b0, t01=0x0034}
0x1132a…11334 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00b0, t01=0x004c}
0x11334…11374 Head {h00=0x003c, h01=0x0050, text=»********************************************************«, t00=0x00b0, t01=0x0056}
0x11374…11388 Head {h00=0x0010, h01=0x0050, text=»RETURN EQU *«, t00=0x00b0, t01=0x0096}
0x11388…11398 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x00b0, t01=0x00aa}
0x11398…113a0 Head {h00=0x0004, h01=0x0050, t00=0x00b0, t01=0x00ba}
0x113a0…113ac Head {h00=0x0008, h01=0x0050, text=» END«, t00=0x00b0, t01=0x00c2}
0x113ac…113b0 Head {h00=0x4004, h01=0x0000}
0x113b0…113b4 00 b0 00 ce ┆ ┆
0x113b4…113bc (177, 1, 8) 20 04 00 00 00 b1 00 04 ┆ ┆
0x113bc…1140c (178, 0, 398) 4c 41 4b 45 59 20 00 21 01 88 00 1e 00 50 5c 52 46 28 47 29 5c 4b 42 49 4e 38 30 5c 49 4c 4c 45 47 41 4c 20 43 48 41 52 00 22 00 0e 00 0e 00 50 5c 49 46 54 5c 53 4e 41 3d 31 00 22 00 30 00 22 00 50 5c 4c 44 5c 41 31 2c 53 4e 41 4d 4f 44 2c ┆LAKEY ! P RF(G) KBIN80 ILLEGAL CHAR " P IFT SNA=1 " 0 " P LD A1,SNAMOD,┆
0x1140c…1145c 41 31 31 5c 47 45 54 20 53 4e 41 20 4d 4f 44 45 00 22 00 42 00 10 00 50 5c 41 4e 4b 5c 41 31 2c 2f 46 46 20 00 22 00 68 00 32 00 50 5c 43 46 49 5c 41 31 34 2c 43 50 4c 4b 42 2c 41 31 5c 43 4f 4d 50 4c 45 54 45 20 4b 42 20 49 4e 20 43 55 52 ┆A11 GET SNA MODE " B P ANK A1,/FF " h 2 P CFI A14,CPLKB,A1 COMPLETE KB IN CUR┆
0x1145c…114ac 52 45 4e 54 20 4d 4f 44 45 20 00 22 00 7c 00 08 00 50 5c 58 49 46 00 22 00 b2 00 0e 00 50 5c 49 46 46 5c 53 4e 41 3d 31 00 22 00 be 00 0e 00 50 5c 4c 44 4b 5c 41 37 2c 30 20 00 22 00 d0 00 22 00 50 5c 43 57 4b 5c 41 32 2c 46 49 50 41 5c 50 ┆RENT MODE " | P XIF " P IFF SNA=1 " P LDK A7,0 " " P CWK A2,FIPA P┆
0x114ac…114fc 52 4f 47 52 41 4d 20 41 54 54 4e 20 4b 45 59 3f 00 22 00 e2 00 14 00 50 5c 52 46 28 4c 29 5c 4b 42 49 4e 34 30 5c 4e 4f 00 22 01 08 00 10 00 50 5c 43 4d 5c 4d 4f 44 45 2c 41 31 31 00 22 01 20 00 24 00 50 5c 43 46 5c 41 31 34 2c 4c 4d 50 36 ┆ROGRAM ATTN KEY? " P RF(L) KBIN40 NO " P CM MODE,A11 " $ P CF A14,LMP6┆
0x114fc…1154a 4f 46 5c 43 4c 45 41 52 20 49 4e 53 45 52 54 20 4d 4f 44 45 00 22 01 34 00 12 00 50 5c 43 46 5c 41 31 34 2c 44 43 41 42 4f 52 00 22 01 5c 00 10 00 50 4b 42 49 4e 34 30 5c 45 51 55 5c 2a 00 22 01 72 00 08 00 50 5c 58 49 46 00 22 01 86 ┆OF CLEAR INSERT MODE " 4 P CF A14,DCABOR " PKBIN40 EQU * " r P XIF " ┆
0x1154a…1159a (179, 0, 398) 00 20 00 50 5c 4c 44 52 5c 41 37 2c 41 37 5c 41 4e 59 20 4b 45 59 2d 48 41 4e 44 4c 49 4e 47 20 00 23 00 04 00 16 00 50 5c 52 46 28 4e 5a 29 5c 4b 42 49 4e 38 30 5c 4e 4f 20 00 23 00 28 00 24 00 50 5c 41 44 52 5c 41 33 2c 41 33 5c 50 52 45 ┆ P LDR A7,A7 ANY KEY-HANDLING # P RF(NZ) KBIN80 NO # ( $ P ADR A3,A3 PRE┆
0x1159a…115ea 50 41 52 45 20 46 4f 52 20 4b 45 59 2d 54 41 42 4c 45 00 23 00 42 00 26 00 50 5c 4c 44 5c 41 31 2c 52 44 4d 4f 52 45 2c 41 31 31 5c 4b 45 59 20 49 4e 20 53 45 51 55 45 4e 43 45 3f 00 23 00 6a 00 14 00 50 5c 52 46 28 5a 29 5c 4b 42 49 4e 35 ┆PARE FOR KEY-TABLE # B & P LD A1,RDMORE,A11 KEY IN SEQUENCE? # j P RF(Z) KBIN5┆
0x115ea…1163a 30 5c 4e 4f 00 23 00 94 00 24 00 50 5c 43 46 5c 41 31 34 2c 44 43 41 42 4f 52 5c 4b 49 4c 4c 20 44 43 20 41 47 41 49 4e 5c 44 4b 20 00 23 00 ac 00 24 00 50 5c 4c 44 5c 41 31 2c 52 44 4d 4f 52 45 2c 41 31 31 5c 52 45 53 54 4f 52 45 20 41 31 ┆0 NO # $ P CF A14,DCABOR KILL DC AGAIN DK # $ P LD A1,RDMORE,A11 RESTORE A1┆
0x1163a…1168a 5c 44 4b 32 00 23 00 d4 00 28 00 50 5c 43 46 52 5c 41 31 34 2c 41 31 5c 43 4f 4e 54 49 4e 55 45 20 41 54 20 53 41 56 45 44 20 4c 41 42 45 4c 20 00 23 00 fc 00 0e 00 50 5c 52 46 5c 4b 42 49 4e 39 30 00 23 01 28 00 10 00 50 4b 42 49 4e 35 30 ┆ DK2 # ( P CFR A14,A1 CONTINUE AT SAVED LABEL # P RF KBIN90 # ( PKBIN50┆
0x1168a…116d8 5c 45 51 55 5c 2a 00 23 01 3a 00 32 00 50 5c 43 46 49 5c 41 31 34 2c 4b 45 59 54 41 42 2c 41 33 5c 42 52 41 4e 43 48 20 54 4f 20 52 45 53 50 2e 20 4b 45 59 2d 48 41 4e 44 4c 45 52 00 23 01 4e 00 0e 00 50 5c 52 46 5c 4b 42 49 4e 39 30 ┆ EQU * # : 2 P CFI A14,KEYTAB,A3 BRANCH TO RESP. KEY-HANDLER # N P RF KBIN90┆
0x116d8…11728 (180, 0, 400) 00 23 01 84 00 10 00 50 4b 42 49 4e 38 30 5c 45 51 55 5c 2a 00 24 00 08 00 22 00 50 5c 43 46 5c 41 31 34 2c 52 45 53 4b 42 5c 52 45 53 45 54 20 4b 42 20 42 55 46 46 45 52 20 00 24 00 1c 00 10 00 50 4b 42 49 4e 39 30 5c 45 51 55 5c 2a 00 24 ┆ # PKBIN80 EQU * $ " P CF A14,RESKB RESET KB BUFFER $ PKBIN90 EQU * $┆
0x11728…11778 00 42 00 0c 00 50 5c 52 54 4e 5c 41 31 34 00 24 00 56 00 0a 00 50 5c 45 4a 45 43 54 00 24 00 66 00 0e 00 50 5c 49 46 54 5c 53 4e 41 3d 31 00 24 00 74 00 4a 00 50 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆ B P RTN A14 $ V P EJECT $ f P IFT SNA=1 $ t J P**************************┆
0x11778…117c8 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 20 00 24 00 86 00 4a 00 50 2a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆******************************************* $ J P* ┆
0x117c8…11818 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 20 00 24 00 d4 00 4a 00 50 2a 20 20 20 20 20 20 20 43 50 4c 4b 42 20 20 20 20 20 20 20 4b 42 2d 43 4f 4d 50 4c 45 54 ┆ * $ J P* CPLKB KB-COMPLET┆
0x11818…11868 49 4f 4e 20 54 41 42 4c 45 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 20 00 24 01 22 00 4a 00 50 2a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ION TABLE * $ " J P* ┆