|
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: 70418 (0x11312)
Notes: pts_type(SC)
Names: »KEYB.SC«
└─⟦928b1fd3e⟧ Bits:30009671 Philips computer tape "600131"
└─⟦this⟧ »PT3272/KEYB.SC«
IDENT KEYB REL 11.0 DK 83-01-07 870150541100 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) PAERR ILLEGAL CHAR. RF(NZ) PAEX10 CF A14,PA3 PA3 KEY RF PARET PAEX10 EQU * ADK A2,1 RF(NZ) PAEX20 CF A14,PA2 PA2 KEY RF PARET PAEX20 EQU * CF A14,PA1 PA1 KEY RF PARET PAERR EQU * CF A14,ERROR INDICATE ERROR PARET EQU * RTN A14 XIF EJECT ****************************************************************** * * * PF PROGRAM FUNTION KEY HANDLING * * * ****************************************************************** * REGISTERS * * A2= AID-CODE * A11= RESERVED * A13= RESERVED * ****************************************************************** PF EQU * SUK A2,PFKEY GET INDEX TO CONVERT LC A2,CONPF,A2 GET AID CF A14,LMP3ON TURN ON KEYBOARD INHIBIT CF A14,TRPF TRANSMIT AID AND MODIFIED FIELDS RTN A14 EJECT ***************************************************************** * * * PFEX PFEX KEY FOLLOWED BY NUMBER * * * ***************************************************************** * REGISTERS * * A11= CREDIT WORK AREA * A13= RESERVED * ************************************************* IFT PFX=1 PFEX EQU * LDKL A1,PFEXA RF PFNXT PFEXA EQU * CM RDMORE,A11 SUK A2,/30 LEGAL CHAR ? RF(L) PFERR ILLEGAL,GO TO ERR.HANDLING RF(NZ) PFEX10 LDKL A1,PF0A FIRST NUM 0 RF PFNXT NEXT NUMBER PFEX10 EQU * SUK A2,1 RF(NZ) PFEX20 LDKL A1,PF1A FIRST NUM 1 RF PFNXT NEXT NUMBER PFEX20 EQU * SUK A2,1 RF(NZ) PFERR ILLEGAL NUM LDKL A1,PF2A FIRST NUM 2 RF PFNXT NEXT NUMBER PF0A EQU * CM RDMORE,A11 SUK A2,/31 ILLEGAL NUM? RF(N) PFERR YES SUK A2,9 ILLEGAL NUM? RF(NN) PFERR YES ADK A2,/9+PFKEY PF1-PF9 RF PFHAND PF1A EQU * CM RDMORE,A11 SUK A2,/30 ILLEGAL NUM? RF(N) PFERR YES SUK A2,/A ILLEGAL NUM? RF(NN) PFERR YES ADK A2,/A+PFKEY+/9 PF10-PF19 RF PFHAND PF2A EQU * CM RDMORE,A11 SUK A2,/30 ILLEGAL NUM? RF(N) PFERR YES SUK A2,5 ILLEGAL NUM? RF(NN) PFERR YES ADK A2,/5+PFKEY+/13 PF20-PF24 PFHAND EQU * CF A14,PF PROGRAM FUNCTION KEY HANDLING RF PFRET PFNXT EQU * ST A1,RDMORE,A11 RF PFRET PFERR EQU * CF A14,ERROR PFRET EQU * RTN A14 XIF EJECT ********************************************************** * * * RETURN RETURN * * * *********************************************************** * REGISTERS * * A11= RESERVED * A13= RESERVED * ******************************************************** RETURN EQU * RTN A14 END
0x00000…00036 (0, 0, 400) Head {h00=0x0032, h01=0x0050, text=» IDENT KEYB REL 11.0 DK 83-01-07 870150541100 «, t00=0x0000, t01=0x0004}
0x00036…0003e Head {h00=0x0004, h01=0x0050, t00=0x0000, t01=0x003a}
0x0003e…00066 Head {h00=0x0024, h01=0x0050, text=» DK2 RESTORE A1 AFTER DC ABRT «, t00=0x0000, t01=0x0042}
0x00066…0008a Head {h00=0x0020, h01=0x0050, text=» DK1,ERASE ONE LINE 'EOF' «, t00=0x0000, t01=0x006a}
0x0008a…000ae Head {h00=0x0020, h01=0x0050, text=» =3 ERASE TO END OF FIELD«, t00=0x0000, t01=0x008e}
0x000ae…000ca Head {h00=0x0018, h01=0x0050, text=» =2 TWO DC-LINES «, t00=0x0000, t01=0x00b2}
0x000ca…000de Head {h00=0x0010, h01=0x0050, text=» 82-02-28 «, t00=0x0000, t01=0x00ce}
0x000de…00100 Head {h00=0x001e, h01=0x0050, text=» =1, SYSTEM MODE CURSOR «, t00=0x0000, t01=0x00e2}
0x00100…00114 Head {h00=0x0010, h01=0x0050, text=» 81-01-26 «, t00=0x0000, t01=0x0104}
0x00114…0015c Head {h00=0x0044, h01=0x0050, text=»*************************************************************** «, t00=0x0000, t01=0x0118}
0x0015c…001a4 Head {h00=0x0044, h01=0x0050, text=»* * «, t00=0x0000, t01=0x0160}
0x001a4…001ec Head {h00=0x0044, h01=0x0050, text=»* MODULE KEYB * «, t00=0x0001, t01=0x0018}
0x001ec…00234 Head {h00=0x0044, h01=0x0050, text=»* MODULE HANDLING THE KEYBOARD DEVICE * «, t00=0x0001, t01=0x0060}
0x00234…0027c Head {h00=0x0044, h01=0x0050, text=»* (EMULATION 3270 SNA/SDLC, BSC) * «, t00=0x0001, t01=0x00a8}
0x0027c…002c4 Head {h00=0x0044, h01=0x0050, text=»* * «, t00=0x0001, t01=0x00f0}
0x002c4…0030c Head {h00=0x0044, h01=0x0050, text=»*************************************************************** «, t00=0x0001, t01=0x0138}
0x0030c…0031a Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0001, t01=0x0180}
0x0031a…00362 Head {h00=0x0044, h01=0x0050, text=»*************************************************************** «, t00=0x0001, t01=0x018e}
0x00362…003aa Head {h00=0x0044, h01=0x0050, text=»* * «, t00=0x0002, t01=0x0046}
0x003aa…003f2 Head {h00=0x0044, h01=0x0050, text=»* LIST OF ROUTINES * «, t00=0x0002, t01=0x008e}
0x003f2…0043a Head {h00=0x0044, h01=0x0050, text=»* * «, t00=0x0002, t01=0x00d6}
0x0043a…00482 Head {h00=0x0044, h01=0x0050, text=»* KBINP MAIN ROUTINE * «, t00=0x0002, t01=0x011e}
0x00482…004ca Head {h00=0x0044, h01=0x0050, text=»* CPLKB KB-COMPLETION TABLE FOR DIFF. MODES * «, t00=0x0002, t01=0x0166}
0x004ca…0050a Head {h00=0x003c, h01=0x0050, text=»* KBCPLO KB-COMPLETION ROUTINE IN LOCAL MODE«, t00=0x0003, t01=0x001e}
0x0050a…00552 Head {h00=0x0044, h01=0x0050, text=»* KBCPSY KB-COMPLETION ROUTINE IN SYSTEM MODE * «, t00=0x0003, t01=0x005e}
0x00552…0059a Head {h00=0x0044, h01=0x0050, text=»* KBCPJO KB-COMPLETION ROUTINE IN MY JOB MODE * «, t00=0x0003, t01=0x00a6}
0x0059a…005e2 Head {h00=0x0044, h01=0x0050, text=»* READKB READ KEYBOARD WITH NO WAIT * «, t00=0x0003, t01=0x00ee}
0x005e2…0062a Head {h00=0x0044, h01=0x0050, text=»* RESKB RESET KEYBOARD-BUFFER * «, t00=0x0003, t01=0x0136}
0x0062a…0065c Head {h00=0x002e, h01=0x0050, text=»* ICVRED KB/VDU INTERTASK READ«, t00=0x0003, t01=0x017e}
0x0065c…00688 Head {h00=0x0028, h01=0x0050, text=»* ICINP INTERTASK INPUT«, t00=0x0004, t01=0x0020}
0x00688…006ba Head {h00=0x002e, h01=0x0050, text=»* ICSET SET INTERTASK TIMEOUT«, t00=0x0004, t01=0x004c}
0x006ba…006e6 Head {h00=0x0028, h01=0x0050, text=»* ICREAD READ INTERTASK «, t00=0x0004, t01=0x007e}
0x006e6…00712 Head {h00=0x0028, h01=0x0050, text=»* ICWRT WRITE INTERTASK«, t00=0x0004, t01=0x00aa}
0x00712…0075a Head {h00=0x0044, h01=0x0050, text=»* ERROR ILLEGAL KEY-HANDLING * «, t00=0x0004, t01=0x00d6}
0x0075a…007a2 Head {h00=0x0044, h01=0x0050, text=»* LAMPROUTINES * «, t00=0x0004, t01=0x011e}
0x007a2…007ea Head {h00=0x0044, h01=0x0050, text=»* SDISP SIGNAL ROUTINE * «, t00=0x0004, t01=0x0166}
0x007ea…00832 Head {h00=0x0044, h01=0x0050, text=»* KEYTAB KEY-TABLE, FIXED ENTRY FOR EACH FUNC. * «, t00=0x0005, t01=0x001e}
0x00832…0087a Head {h00=0x0044, h01=0x0050, text=»* CHAR ALPHA. CHAR HANDLING * «, t00=0x0005, t01=0x0066}
0x0087a…008c2 Head {h00=0x0044, h01=0x0050, text=»* NUM NUM. CHAR HANDLING * «, t00=0x0005, t01=0x00ae}
0x008c2…0090a Head {h00=0x0044, h01=0x0050, text=»* ANCOMM ALPHANUM. CHAR HANDLING * «, t00=0x0005, t01=0x00f6}
0x0090a…0095e Head {h00=0x0050, h01=0x0050, text=»* CURMOV MOVE CURSOR ON SCREEN * «, t00=0x0005, t01=0x013e}
0x0095e…009a6 (6, 0, 400) Head {h00=0x0044, h01=0x0050, text=»* BAKTAB TAB. UNPROT. BACKWARDS * «, t00=0x0006, t01=0x0004}
0x009a6…009ee Head {h00=0x0044, h01=0x0050, text=»* TAB TAB. UNPROT. FORWARDS * «, t00=0x0006, t01=0x004c}
0x009ee…00a36 Head {h00=0x0044, h01=0x0050, text=»* CRNL TAB. UNPROT. NEXT LINE * «, t00=0x0006, t01=0x0094}
0x00a36…00a7e Head {h00=0x0044, h01=0x0050, text=»* RDHOME TAB. UNPROT. FIRST ON SCREEN * «, t00=0x0006, t01=0x00dc}
0x00a7e…00ac6 Head {h00=0x0044, h01=0x0050, text=»* EREOF ERASE TO END OF FIELD * «, t00=0x0006, t01=0x0124}
0x00ac6…00b0e Head {h00=0x0044, h01=0x0050, text=»* ERINPT ERASE UNPROT. ENTIRE SCREEN * «, t00=0x0006, t01=0x016c}
0x00b0e…00b56 Head {h00=0x0044, h01=0x0050, text=»* INSERT INSERT HANDLING * «, t00=0x0007, t01=0x0024}
0x00b56…00b9e Head {h00=0x0044, h01=0x0050, text=»* DELETE DELETE HANDLING * «, t00=0x0007, t01=0x006c}
0x00b9e…00be6 Head {h00=0x0044, h01=0x0050, text=»* RESET RESET HANDLING * «, t00=0x0007, t01=0x00b4}
0x00be6…00c2e Head {h00=0x0044, h01=0x0050, text=»* DUP DUPLICATE HANDLING * «, t00=0x0007, t01=0x00fc}
0x00c2e…00c76 Head {h00=0x0044, h01=0x0050, text=»* FLDMRK FIELDMARK HANDLING * «, t00=0x0007, t01=0x0144}
0x00c76…00cbe Head {h00=0x0044, h01=0x0050, text=»* ZERO:2,3 DOUBLE & TRIPLE ZERO HANDLING * «, t00=0x0007, t01=0x018c}
0x00cbe…00d06 Head {h00=0x0044, h01=0x0050, text=»* OFLINE OFFLINE HANDLING * «, t00=0x0008, t01=0x0044}
0x00d06…00d4e Head {h00=0x0044, h01=0x0050, text=»* MFCHGE MAIN FRAME CHANGE * «, t00=0x0008, t01=0x008c}
0x00d4e…00d96 Head {h00=0x0044, h01=0x0050, text=»* COPY LOCAL HARDCOPY * «, t00=0x0008, t01=0x00d4}
0x00d96…00dde Head {h00=0x0044, h01=0x0050, text=»* IDENT PRINTER IDENT. HANDLING * «, t00=0x0008, t01=0x011c}
0x00dde…00e26 Head {h00=0x0044, h01=0x0050, text=»* KEYL KEYLOCK STATUS HANDLING * «, t00=0x0008, t01=0x0164}
0x00e26…00e4c Head {h00=0x0022, h01=0x0050, text=»* TESTM TEST MODE«, t00=0x0009, t01=0x001c}
0x00e4c…00e94 Head {h00=0x0044, h01=0x0050, text=»* ENTER ENTER HANDLING * «, t00=0x0009, t01=0x0042}
0x00e94…00edc Head {h00=0x0044, h01=0x0050, text=»* CLEAR CLEAR HANDLING * «, t00=0x0009, t01=0x008a}
0x00edc…00f24 Head {h00=0x0044, h01=0x0050, text=»* SYSREQ SYSTEM REQUEST HANDLING * «, t00=0x0009, t01=0x00d2}
0x00f24…00f6c Head {h00=0x0044, h01=0x0050, text=»* ATTN ATTENTION HANDLING * «, t00=0x0009, t01=0x011a}
0x00f6c…00fb4 Head {h00=0x0044, h01=0x0050, text=»* PA PROGRAM ACCESS HANDLING *«, t00=0x0009, t01=0x0162}
0x00fb4…00ffc Head {h00=0x0044, h01=0x0050, text=»* PF PROGRAM FUNCTION HANDLING * «, t00=0x000a, t01=0x001a}
0x00ffc…01044 Head {h00=0x0044, h01=0x0050, text=»* RETURN RETURN * «, t00=0x000a, t01=0x0062}
0x01044…0108c Head {h00=0x0044, h01=0x0050, text=»* * «, t00=0x000a, t01=0x00aa}
0x0108c…010d4 Head {h00=0x0044, h01=0x0050, text=»*************************************************************** «, t00=0x000a, t01=0x00f2}
0x010d4…010e2 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000a, t01=0x013a}
0x010e2…0111e Head {h00=0x0038, h01=0x0050, text=»*************************************************** «, t00=0x000a, t01=0x0148}
0x0111e…0115a Head {h00=0x0038, h01=0x0050, text=»* *«, t00=0x000a, t01=0x0184}
0x0115a…01196 Head {h00=0x0038, h01=0x0050, text=»* ENTRY POINTS *«, t00=0x000b, t01=0x0030}
0x01196…011d2 Head {h00=0x0038, h01=0x0050, text=»* *«, t00=0x000b, t01=0x006c}
0x011d2…0120e Head {h00=0x0038, h01=0x0050, text=»****************************************************«, t00=0x000b, t01=0x00a8}
0x0120e…01216 Head {h00=0x0004, h01=0x0050, t00=0x000b, t01=0x00e4}
0x01216…01248 Head {h00=0x002e, h01=0x0050, text=» ENTRY KBINP,KBINP2 START LABEL FOR MODULE«, t00=0x000b, t01=0x00ec}
0x01248…01272 Head {h00=0x0026, h01=0x0050, text=» ENTRY READKB,READK2 READ KEYBOARD«, t00=0x000b, t01=0x011e}
0x01272…0129c Head {h00=0x0026, h01=0x0050, text=» ENTRY RESKB RESET KEYBOARD BUFFER«, t00=0x000b, t01=0x0148}
0x0129c…012be Head {h00=0x001e, h01=0x0050, text=» ENTRY LMP1ON LAMPROUTINES«, t00=0x000b, t01=0x0172}
0x012be…012d6 (12, 0, 400) Head {h00=0x0014, h01=0x0050, text=» ENTRY LMP1OF . «, t00=0x000c, t01=0x0004}
0x012d6…012ee Head {h00=0x0014, h01=0x0050, text=» ENTRY LMP2ON . «, t00=0x000c, t01=0x001c}
0x012ee…01306 Head {h00=0x0014, h01=0x0050, text=» ENTRY LMP2OF . «, t00=0x000c, t01=0x0034}
0x01306…0131e Head {h00=0x0014, h01=0x0050, text=» ENTRY LMP3ON . «, t00=0x000c, t01=0x004c}
0x0131e…01336 Head {h00=0x0014, h01=0x0050, text=» ENTRY LMP3OF . «, t00=0x000c, t01=0x0064}
0x01336…0134e Head {h00=0x0014, h01=0x0050, text=» ENTRY LMP4ON . «, t00=0x000c, t01=0x007c}
0x0134e…01366 Head {h00=0x0014, h01=0x0050, text=» ENTRY LMP4OF . «, t00=0x000c, t01=0x0094}
0x01366…0137e Head {h00=0x0014, h01=0x0050, text=» ENTRY LMP5ON . «, t00=0x000c, t01=0x00ac}
0x0137e…01396 Head {h00=0x0014, h01=0x0050, text=» ENTRY LMP5OF . «, t00=0x000c, t01=0x00c4}
0x01396…013ae Head {h00=0x0014, h01=0x0050, text=» ENTRY LMP6ON . «, t00=0x000c, t01=0x00dc}
0x013ae…013c6 Head {h00=0x0014, h01=0x0050, text=» ENTRY LMP6OF . «, t00=0x000c, t01=0x00f4}
0x013c6…013fc Head {h00=0x0032, h01=0x0050, text=» ENTRY RDHOME TAB. UNPROTECTED FIRST ON SCREEN«, t00=0x000c, t01=0x010c}
0x013fc…0141e Head {h00=0x001e, h01=0x0050, text=» ENTRY COPY LOCAL HARDCOPY«, t00=0x000c, t01=0x0142}
0x0141e…01444 Head {h00=0x0022, h01=0x0050, text=» ENTRY ERROR ERROR INDICATION «, t00=0x000c, t01=0x0164}
0x01444…01470 Head {h00=0x0028, h01=0x0050, text=» ENTRY TAB TAB FOREWARD UNPROTECTED «, t00=0x000c, t01=0x018a}
0x01470…014a0 Head {h00=0x002c, h01=0x0050, text=» ENTRY CRDOWN MOVE CURSOR DOWN ONE LINE «, t00=0x000d, t01=0x0026}
0x014a0…014c8 Head {h00=0x0024, h01=0x0050, text=» ENTRY ICVRED VDU INTERTASK READ«, t00=0x000d, t01=0x0056}
0x014c8…014ec Head {h00=0x0020, h01=0x0050, text=» ENTRY ICINP INTERTASK INPUT«, t00=0x000d, t01=0x007e}
0x014ec…01516 Head {h00=0x0026, h01=0x0050, text=» ENTRY ICSET SET INTERTASK TIMEOUT«, t00=0x000d, t01=0x00a2}
0x01516…0153a Head {h00=0x0020, h01=0x0050, text=» ENTRY ICWRT WRITE INTERTASK«, t00=0x000d, t01=0x00cc}
0x0153a…0155e Head {h00=0x0020, h01=0x0050, text=» ENTRY ICREAD READ INTERTASK«, t00=0x000d, t01=0x00f0}
0x0155e…0156c Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000d, t01=0x0114}
0x0156c…01574 Head {h00=0x0004, h01=0x0050, t00=0x000d, t01=0x0122}
0x01574…015b2 Head {h00=0x003a, h01=0x0050, text=»******************************************************«, t00=0x000d, t01=0x012a}
0x015b2…015f0 Head {h00=0x003a, h01=0x0050, text=»* *«, t00=0x000d, t01=0x0168}
0x015f0…0162e Head {h00=0x003a, h01=0x0050, text=»* EXTERNAL REFERENCES *«, t00=0x000e, t01=0x0016}
0x0162e…0166c Head {h00=0x003a, h01=0x0050, text=»* *«, t00=0x000e, t01=0x0054}
0x0166c…016aa Head {h00=0x003a, h01=0x0050, text=»******************************************************«, t00=0x000e, t01=0x0092}
0x016aa…016b2 Head {h00=0x0004, h01=0x0050, t00=0x000e, t01=0x00d0}
0x016b2…016dc Head {h00=0x0026, h01=0x0050, text=» EXTRN I:RT1 RETURN TO CREDIT CODE«, t00=0x000e, t01=0x00d8}
0x016dc…01712 Head {h00=0x0032, h01=0x0050, text=» EXTRN ATMASB SEARCH ATTRIBUTE BACKWARDS (VDU)«, t00=0x000e, t01=0x0102}
0x01712…01746 Head {h00=0x0030, h01=0x0050, text=» EXTRN ATMASF SEARCH ATTRIBUTE FORWARD (VDU)«, t00=0x000e, t01=0x0138}
0x01746…0177a Head {h00=0x0030, h01=0x0050, text=» EXTRN DCABOR ABORT DC-REQUEST (DCSNA,DCBSC)«, t00=0x000e, t01=0x016c}
0x0177a…017a8 Head {h00=0x002a, h01=0x0050, text=» EXTRN ERASE ERASE ENTIRE SCREEN (VDU)«, t00=0x000f, t01=0x0010}
0x017a8…017e4 Head {h00=0x0038, h01=0x0050, text=» EXTRN ERASUA ERASE ALL UNPROTECTED TO ADDRESS (VDU)«, t00=0x000f, t01=0x003e}
0x017e4…01816 Head {h00=0x002e, h01=0x0050, text=» EXTRN ERASUP ERASE ALL UNPROTECTED (VDU) «, t00=0x000f, t01=0x007a}
0x01816…0184c Head {h00=0x0032, h01=0x0050, text=» EXTRN TRPA TRANSMIT SHORT READ (DCSNA,DCBSC) «, t00=0x000f, t01=0x00ac}
0x0184c…01884 Head {h00=0x0034, h01=0x0050, text=» EXTRN TRPF TRANSMIT MODIFIED READ (DCSNA,DCBSC)«, t00=0x000f, t01=0x00e2}
0x01884…018b4 Head {h00=0x002c, h01=0x0050, text=» EXTRN TSTSTA TEST STATUS (DCSNA,DCBSC) «, t00=0x000f, t01=0x011a}
0x018b4…018e8 Head {h00=0x0030, h01=0x0050, text=» EXTRN WCHAR DISPLAY CHAR. AND CURSOR (VDU) «, t00=0x000f, t01=0x014a}
0x018e8…0191a Head {h00=0x002e, h01=0x0050, text=» EXTRN SOUND SOUND ALARM ON DISPLAY (VDU)«, t00=0x000f, t01=0x017e}
0x0191a…0194c Head {h00=0x002e, h01=0x0050, text=» EXTRN SCRINF GET SCREEN INFORMATION (VDU)«, t00=0x0010, t01=0x0020}
0x0194c…01980 Head {h00=0x0030, h01=0x0050, text=» EXTRN STOINF SAVE SCREEN INFORMATION (VDU) «, t00=0x0010, t01=0x0052}
0x01980…019b4 Head {h00=0x0030, h01=0x0050, text=» EXTRN GETVDU GET CHAR. IN VDU BUFFER (VDU) «, t00=0x0010, t01=0x0086}
0x019b4…019ea Head {h00=0x0032, h01=0x0050, text=» EXTRN STOVDU STORE CHAR. IN VDU BUFFER (VDU) «, t00=0x0010, t01=0x00ba}
0x019ea…01a14 Head {h00=0x0026, h01=0x0050, text=» EXTRN DISCHA DISPLAY CHAR. (VDU) «, t00=0x0010, t01=0x00f0}
0x01a14…01a4e Head {h00=0x0036, h01=0x0050, text=» EXTRN POSUNP MOVE CURSOR TO NEXT UNPR. POS. (VDU)«, t00=0x0010, t01=0x011a}
0x01a4e…01a7e Head {h00=0x002c, h01=0x0050, text=» EXTRN INSMOD INSERT MODE ROUTINE (VDU) «, t00=0x0010, t01=0x0154}
0x01a7e…01ab8 Head {h00=0x0036, h01=0x0050, text=» EXTRN DCOFLN INDICATE OFFLINE TO DC (DCSNA,DCBSC)«, t00=0x0010, t01=0x0184}
0x01ab8…01aec Head {h00=0x0030, h01=0x0050, text=» EXTRN DISMOD DISPLAY MODIFIED FIELDS (VDU) «, t00=0x0011, t01=0x002e}
0x01aec…01b1e Head {h00=0x002e, h01=0x0050, text=» EXTRN CONPF CONVERT PF-KEY TABLE (CONVER)«, t00=0x0011, t01=0x0062}
0x01b1e…01b4c Head {h00=0x002a, h01=0x0050, text=» EXTRN OPSYS OPEN SYSTEM (DCSNA,DCBSC)«, t00=0x0011, t01=0x0094}
0x01b4c…01b74 Head {h00=0x0024, h01=0x0050, text=» EXTRN LINE GET LINE FLAG (VDU) «, t00=0x0011, t01=0x00c2}
0x01b74…01b9e Head {h00=0x0026, h01=0x0050, text=» EXTRN SAVE1 SAVE1 REGISTERS (PAD)«, t00=0x0011, t01=0x00ea}
0x01b9e…01bca Head {h00=0x0028, h01=0x0050, text=» EXTRN REST1 REST1E REGISTERS (PAD) «, t00=0x0011, t01=0x0114}
0x01bca…01bf6 Head {h00=0x0028, h01=0x0050, text=» EXTRN DISID DISPLAY HARDCOPY TASKID«, t00=0x0011, t01=0x0140}
0x01bf6…01c1c Head {h00=0x0022, h01=0x0050, text=» EXTRN GETBUF GET BUFFER (PAD)«, t00=0x0011, t01=0x016c}
0x01c1c…01c46 (18, 0, 400) Head {h00=0x0026, h01=0x0050, text=» EXTRN RELBUF RELEASE BUFFER (PAD)«, t00=0x0012, t01=0x0004}
0x01c46…01c74 Head {h00=0x002a, h01=0x0050, text=» EXTRN DISSTA DISPLAY STATISTICS (VDU)«, t00=0x0012, t01=0x002e}
0x01c74…01ca2 Head {h00=0x002a, h01=0x0050, text=» EXTRN RDSTAT READ STATISTICS (DCBSC) «, t00=0x0012, t01=0x005c}
0x01ca2…01cd8 Head {h00=0x0032, h01=0x0050, text=» EXTRN CHKSTA CHECK LINE STATUS (DCBSC,DCSNA) «, t00=0x0012, t01=0x008a}
0x01cd8…01d00 Head {h00=0x0024, h01=0x0050, text=» EXTRN SETSTA SET STATUS (DCSNA)«, t00=0x0012, t01=0x00c0}
0x01d00…01d28 Head {h00=0x0024, h01=0x0050, text=» EXTRN CONCT CONNECT (DCXXX) =2 «, t00=0x0012, t01=0x00e8}
0x01d28…01d54 Head {h00=0x0028, h01=0x0050, text=» EXTRN DISCON DISCONNECT (DCXXX) =2 «, t00=0x0012, t01=0x0110}
0x01d54…01d62 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0012, t01=0x013c}
0x01d62…01da8 Head {h00=0x0042, h01=0x0050, text=»************************************************************* «, t00=0x0012, t01=0x014a}
0x01da8…01dee Head {h00=0x0042, h01=0x0050, text=»* * «, t00=0x0012, t01=0x0190}
0x01dee…01e34 Head {h00=0x0042, h01=0x0050, text=»* CONDITIONAL ASSEMBLY PARAMETERS * «, t00=0x0013, t01=0x0046}
0x01e34…01e7a Head {h00=0x0042, h01=0x0050, text=»* * «, t00=0x0013, t01=0x008c}
0x01e7a…01ec0 Head {h00=0x0042, h01=0x0050, text=»************************************************************* «, t00=0x0013, t01=0x00d2}
0x01ec0…01ec8 Head {h00=0x0004, h01=0x0050, t00=0x0013, t01=0x0118}
0x01ec8…01ef6 Head {h00=0x002a, h01=0x0050, text=»X:A EQU 0 SNA HANDLING INCLUDED IF:=1 «, t00=0x0013, t01=0x0120}
0x01ef6…01f08 Head {h00=0x000e, h01=0x0050, text=»SNA EQU 0 «, t00=0x0013, t01=0x014e}
0x01f08…01f32 Head {h00=0x0026, h01=0x0050, text=»X:C EQU 0 OFFLINE HANDLING IF :=1 «, t00=0x0013, t01=0x0160}
0x01f32…01f46 Head {h00=0x0010, h01=0x0050, text=»OFLIN EQU 0 «, t00=0x0013, t01=0x018a}
0x01f46…01f6e Head {h00=0x0024, h01=0x0050, text=»X:D EQU 1 NUMBER OF LINES (1-2) «, t00=0x0014, t01=0x000e}
0x01f6e…01f82 Head {h00=0x0010, h01=0x0050, text=»NBRLIN EQU 2«, t00=0x0014, t01=0x0036}
0x01f82…01faa Head {h00=0x0024, h01=0x0050, text=»X:F EQU 0 KEY-LOCK STATUS IF:=1 «, t00=0x0014, t01=0x004a}
0x01faa…01fbe Head {h00=0x0010, h01=0x0050, text=»KEYLST EQU 0«, t00=0x0014, t01=0x0072}
0x01fbe…01fe6 Head {h00=0x0024, h01=0x0050, text=»X:G EQU 0 PF KEY HANDLING IF:=1 «, t00=0x0014, t01=0x0086}
0x01fe6…01ff8 Head {h00=0x000e, h01=0x0050, text=»PFX EQU 1 «, t00=0x0014, t01=0x00ae}
0x01ff8…02020 Head {h00=0x0024, h01=0x0050, text=»X:H EQU 0 PA KEY HANDLING IF :=1«, t00=0x0014, t01=0x00c0}
0x02020…02032 Head {h00=0x000e, h01=0x0050, text=»PAX EQU 1 «, t00=0x0014, t01=0x00e8}
0x02032…02062 Head {h00=0x002c, h01=0x0050, text=»X:I EQU 1 INSERT/DELETE HANDLING IF :=1 «, t00=0x0014, t01=0x00fa}
0x02062…02076 Head {h00=0x0010, h01=0x0050, text=»IN:DL EQU 1 «, t00=0x0014, t01=0x012a}
0x02076…0209e Head {h00=0x0024, h01=0x0050, text=»X:J EQU 1 KB6272 INCLUDED IF :=1«, t00=0x0014, t01=0x013e}
0x0209e…020b2 Head {h00=0x0010, h01=0x0050, text=»KB6272 EQU 1«, t00=0x0014, t01=0x0166}
0x020b2…020e0 Head {h00=0x002a, h01=0x0050, text=»X:M EQU 0 COPY COMMAND INCLUDED IF:=1 «, t00=0x0014, t01=0x017a}
0x020e0…020f4 Head {h00=0x0010, h01=0x0050, text=»COPCMD EQU 1«, t00=0x0015, t01=0x0018}
0x020f4…0211e Head {h00=0x0026, h01=0x0050, text=»X:O EQU 0 TEST MODE INCLUDED IF:=1«, t00=0x0015, t01=0x002c}
0x0211e…02130 Head {h00=0x000e, h01=0x0050, text=»TEST EQU 0«, t00=0x0015, t01=0x0056}
0x02130…02164 Head {h00=0x0030, h01=0x0050, text=»X:P EQU 0 COPY LOCK FUNCTION INCLUDED IF:=1 «, t00=0x0015, t01=0x0068}
0x02164…02176 Head {h00=0x000e, h01=0x0050, text=»COPL EQU 0«, t00=0x0015, t01=0x009c}
0x02176…02184 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0015, t01=0x00ae}
0x02184…021cc Head {h00=0x0044, h01=0x0050, text=»*************************************************************** «, t00=0x0015, t01=0x00bc}
0x021cc…02214 Head {h00=0x0044, h01=0x0050, text=»* * «, t00=0x0015, t01=0x0104}
0x02214…0223e Head {h00=0x0026, h01=0x0050, text=»* DECLARATIONS OF DATA AND EQUATES«, t00=0x0015, t01=0x014c}
0x0223e…02286 Head {h00=0x0044, h01=0x0050, text=»* * «, t00=0x0015, t01=0x0176}
0x02286…022ce Head {h00=0x0044, h01=0x0050, text=»*************************************************************** «, t00=0x0016, t01=0x002e}
0x022ce…022d6 Head {h00=0x0004, h01=0x0050, t00=0x0016, t01=0x0076}
0x022d6…022e0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0016, t01=0x007e}
0x022e0…02300 Head {h00=0x001c, h01=0x0050, text=»* PREDEFINED KEYS «, t00=0x0016, t01=0x0088}
0x02300…0230a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0016, t01=0x00a8}
0x0230a…02338 Head {h00=0x002a, h01=0x0050, text=»CRUP EQU /80 FIRST "MOVE CURSOR " KEY «, t00=0x0016, t01=0x00b2}
0x02338…02368 Head {h00=0x002c, h01=0x0050, text=»ERFKEY EQU /88 ERASE TO END OF FIELD-KEY«, t00=0x0016, t01=0x00e0}
0x02368…02390 Head {h00=0x0024, h01=0x0050, text=»ERIKEY EQU /89 ERASE ALL UNPROT.«, t00=0x0016, t01=0x0110}
0x02390…023ae Head {h00=0x001a, h01=0x0050, text=»RSET EQU /8C RESET KEY«, t00=0x0016, t01=0x0138}
0x023ae…023ce Head {h00=0x001c, h01=0x0050, text=»IDKEY EQU /93 IDENT KEY «, t00=0x0016, t01=0x0156}
0x023ce…023f8 Head {h00=0x0026, h01=0x0050, text=»FKLKEY EQU /94 FIRST KEYLOCK VALUE«, t00=0x0016, t01=0x0176}
0x023f8…02422 Head {h00=0x0026, h01=0x0050, text=»LKLKEY EQU /9C LAST KEYLOCK VALUE «, t00=0x0017, t01=0x0010}
0x02422…0244e Head {h00=0x0028, h01=0x0050, text=»FIPA EQU /9F FIRST PROGRAM ATTN. KEY«, t00=0x0017, t01=0x003a}
0x0244e…0246e Head {h00=0x001c, h01=0x0050, text=»ENTKEY EQU /A0 ENTER KEY«, t00=0x0017, t01=0x0066}
0x0246e…02498 Head {h00=0x0026, h01=0x0050, text=»SYSKEY EQU /A1 SYSTEM REQUEST KEY «, t00=0x0017, t01=0x0086}
0x02498…024b8 Head {h00=0x001c, h01=0x0050, text=»CLRKEY EQU /A2 CLEAR KEY«, t00=0x0017, t01=0x00b0}
0x024b8…024e2 Head {h00=0x0026, h01=0x0050, text=»PFKEY EQU /B1 PROGRAM FUNTION KEY «, t00=0x0017, t01=0x00d0}
0x024e2…0250e Head {h00=0x0028, h01=0x0050, text=»LAKEY EQU /C9 LAST KEY IN KEY-TABLE «, t00=0x0017, t01=0x00fa}
0x0250e…02518 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0017, t01=0x0126}
0x02518…02540 Head {h00=0x0024, h01=0x0050, text=»* EQUATES FOR ECB HANDLING«, t00=0x0017, t01=0x0130}
0x02540…0254a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0017, t01=0x0158}
0x0254a…0256c Head {h00=0x001e, h01=0x0050, text=»ECBBA EQU 2 BUFFER ADDRESS«, t00=0x0017, t01=0x0162}
0x0256c…02590 Head {h00=0x0020, h01=0x0050, text=»ECBRL EQU 4 REQUESTED LENGTH«, t00=0x0017, t01=0x0184}
0x02590…025b4 Head {h00=0x0020, h01=0x0050, text=»ECBEL EQU 6 EFFECTIVE LENGTH«, t00=0x0018, t01=0x0018}
0x025b4…025d4 Head {h00=0x001c, h01=0x0050, text=»ECBRC EQU 8 RETURN CODE «, t00=0x0018, t01=0x003c}
0x025d4…025f6 Head {h00=0x001e, h01=0x0050, text=»ECBCW EQU 10 CONTROL WORD «, t00=0x0018, t01=0x005c}
0x025f6…02620 Head {h00=0x0026, h01=0x0050, text=»ECBCW2 EQU 12 CONTROL WORD TWO DK «, t00=0x0018, t01=0x007e}
0x02620…0262a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0018, t01=0x00a8}
0x0262a…02646 Head {h00=0x0018, h01=0x0050, text=»* SPECIAL CHARACTERS«, t00=0x0018, t01=0x00b2}
0x02646…02650 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0018, t01=0x00ce}
0x02650…0266e Head {h00=0x001a, h01=0x0050, text=»NULL EQU 0 NULL CHAR. «, t00=0x0018, t01=0x00d8}
0x0266e…02694 Head {h00=0x0022, h01=0x0050, text=»DUPCH EQU /1C DUPLICATE CHAR. «, t00=0x0018, t01=0x00f6}
0x02694…026ba Head {h00=0x0022, h01=0x0050, text=»FMCH EQU /1E FIELD MARK CHAR. «, t00=0x0018, t01=0x011c}
0x026ba…026c4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0018, t01=0x0142}
0x026c4…026e2 Head {h00=0x001a, h01=0x0050, text=»* LAMPCONSTANTS«, t00=0x0018, t01=0x014c}
0x026e2…026ec Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0018, t01=0x016a}
0x026ec…02700 Head {h00=0x0010, h01=0x0050, text=»LON EQU /B7 «, t00=0x0018, t01=0x0174}
0x02700…02714 Head {h00=0x0010, h01=0x0050, text=»LOF EQU /B8 «, t00=0x0018, t01=0x0188}
0x02714…0272e Head {h00=0x0016, h01=0x0050, text=»LFL EQU /B9 FLASH «, t00=0x0019, t01=0x000c}
0x0272e…02744 Head {h00=0x0012, h01=0x0050, text=» IFT KB6272=1 «, t00=0x0019, t01=0x0026}
0x02744…0275a Head {h00=0x0012, h01=0x0050, text=»LAMP1 EQU /20 «, t00=0x0019, t01=0x003c}
0x0275a…02770 Head {h00=0x0012, h01=0x0050, text=»LAMP2 EQU /10 «, t00=0x0019, t01=0x0052}
0x02770…02784 Head {h00=0x0010, h01=0x0050, text=»LAMP3 EQU 8 «, t00=0x0019, t01=0x0068}
0x02784…02798 Head {h00=0x0010, h01=0x0050, text=»LAMP4 EQU 4 «, t00=0x0019, t01=0x007c}
0x02798…027ac Head {h00=0x0010, h01=0x0050, text=»LAMP5 EQU 2 «, t00=0x0019, t01=0x0090}
0x027ac…027c0 Head {h00=0x0010, h01=0x0050, text=»LAMP6 EQU 1 «, t00=0x0019, t01=0x00a4}
0x027c0…027cc Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0019, t01=0x00b8}
0x027cc…027e2 Head {h00=0x0012, h01=0x0050, text=» IFF KB6272=1 «, t00=0x0019, t01=0x00c4}
0x027e2…027f6 Head {h00=0x0010, h01=0x0050, text=»LAMP1 EQU 0 «, t00=0x0019, t01=0x00da}
0x027f6…0280a Head {h00=0x0010, h01=0x0050, text=»LAMP2 EQU 0 «, t00=0x0019, t01=0x00ee}
0x0280a…0281e Head {h00=0x0010, h01=0x0050, text=»LAMP3 EQU 1 «, t00=0x0019, t01=0x0102}
0x0281e…02832 Head {h00=0x0010, h01=0x0050, text=»LAMP4 EQU 2 «, t00=0x0019, t01=0x0116}
0x02832…02846 Head {h00=0x0010, h01=0x0050, text=»LAMP5 EQU 4 «, t00=0x0019, t01=0x012a}
0x02846…0285a Head {h00=0x0010, h01=0x0050, text=»LAMP6 EQU 8 «, t00=0x0019, t01=0x013e}
0x0285a…02866 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0019, t01=0x0152}
0x02866…02870 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0019, t01=0x015e}
0x02870…0288a Head {h00=0x0016, h01=0x0050, text=»* VDU SCREEN SIZE «, t00=0x0019, t01=0x0168}
0x0288a…02894 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0019, t01=0x0182}
0x02894…028b4 Head {h00=0x001c, h01=0x0050, text=»LLINE EQU 80 LINE LENGTH«, t00=0x0019, t01=0x018c}
0x028b4…028d6 Head {h00=0x001e, h01=0x0050, text=»LBVDU EQU 1920 TOTAL SIZE «, t00=0x001a, t01=0x001c}
0x028d6…028e0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001a, t01=0x003e}
0x028e0…028f0 Head {h00=0x000c, h01=0x0050, text=»* MODES «, t00=0x001a, t01=0x0048}
0x028f0…028fa Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001a, t01=0x0058}
0x028fa…0291c Head {h00=0x001e, h01=0x0050, text=»NEWMOD EQU /8000 NEW MODE «, t00=0x001a, t01=0x0062}
0x0291c…0294a Head {h00=0x002a, h01=0x0050, text=»HCPMOD EQU /4000 HARDCOPY OUTSTANDING «, t00=0x001a, t01=0x0084}
0x0294a…0296e Head {h00=0x0020, h01=0x0050, text=»MYJOB EQU /0004 MY JOB MODE «, t00=0x001a, t01=0x00b2}
0x0296e…0299a Head {h00=0x0028, h01=0x0050, text=»SYSOP EQU /0002 SYSTEM OPERATOR MODE«, t00=0x001a, t01=0x00d6}
0x0299a…029be Head {h00=0x0020, h01=0x0050, text=»LOCMOD EQU /0000 LOCAL MODE «, t00=0x001a, t01=0x0102}
0x029be…029c8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001a, t01=0x0126}
0x029c8…029ea Head {h00=0x001e, h01=0x0050, text=»* TASK IDENTIFICATION CODE«, t00=0x001a, t01=0x0130}
0x029ea…029f4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001a, t01=0x0152}
0x029f4…02a18 Head {h00=0x0020, h01=0x0050, text=»VDUCOD EQU 'VV' VDU KB TASK «, t00=0x001a, t01=0x015c}
0x02a18…02a26 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x001a, t01=0x0180}
0x02a26…02a30 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001a, t01=0x018e}
0x02a30…02a50 Head {h00=0x001c, h01=0x0050, text=»* RELATIVE ADDRESSES IN «, t00=0x001b, t01=0x0008}
0x02a50…02a6c Head {h00=0x0018, h01=0x0050, text=»* TERMINAL WORKBLOCK«, t00=0x001b, t01=0x0028}
0x02a6c…02a76 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001b, t01=0x0044}
0x02a76…02a9a Head {h00=0x0020, h01=0x0050, text=»BVDU EQU 2 VDU SCREEN BUFFER«, t00=0x001b, t01=0x004e}
0x02a9a…02ac2 Head {h00=0x0024, h01=0x0050, text=»LINFLG EQU BVDU+1920 LINE FLAGS «, t00=0x001b, t01=0x0072}
0x02ac2…02ae6 Head {h00=0x0020, h01=0x0050, text=»WCC EQU LINFLG+30 WCC CHAR. «, t00=0x001b, t01=0x009a}
0x02ae6…02b18 Head {h00=0x002e, h01=0x0050, text=»KBINH EQU WCC+2 KEYBOARD INHIBIT INDICATOR«, t00=0x001b, t01=0x00be}
0x02b18…02b40 Head {h00=0x0024, h01=0x0050, text=»OFFFLG EQU KBINH+8 OFFLINE FLAG «, t00=0x001b, t01=0x00f0}
0x02b40…02b6c Head {h00=0x0028, h01=0x0050, text=»PRTID EQU OFFFLG+2 HARDCOPY PRINTER «, t00=0x001b, t01=0x0118}
0x02b6c…02b90 Head {h00=0x0020, h01=0x0050, text=»MAIN EQU PRTID+6 MAIN FRAME «, t00=0x001b, t01=0x0144}
0x02b90…02bba Head {h00=0x0026, h01=0x0050, text=»MODE EQU MAIN+2 INSERT MODE SWITCH«, t00=0x001b, t01=0x0168}
0x02bba…02be2 (28, 0, 400) Head {h00=0x0024, h01=0x0050, text=»KEYS EQU MODE+2 KEY LOCK STATUS «, t00=0x001c, t01=0x0004}
0x02be2…02c1a Head {h00=0x0034, h01=0x0050, text=»RDMORE EQU KEYS+12 BRANCH ADDRESS TO NEXT KB-KEY«, t00=0x001c, t01=0x002c}
0x02c1a…02c50 Head {h00=0x0032, h01=0x0050, text=»CURPOS EQU RDMORE+2 CURSOR POS. IN SYSTEM MODE«, t00=0x001c, t01=0x0064}
0x02c50…02c74 Head {h00=0x0020, h01=0x0050, text=»REGI EQU CURPOS+4 SAVE AREA «, t00=0x001c, t01=0x009a}
0x02c74…02c98 Head {h00=0x0020, h01=0x0050, text=»SNAMOD EQU REGI+32 SNA MODE «, t00=0x001c, t01=0x00be}
0x02c98…02cba Head {h00=0x001e, h01=0x0050, text=»BSCMOD EQU SNAMOD BSC MODE«, t00=0x001c, t01=0x00e2}
0x02cba…02cdc Head {h00=0x001e, h01=0x0050, text=»ECBKB EQU BSCMOD+2 ECB KB «, t00=0x001c, t01=0x0104}
0x02cdc…02d08 Head {h00=0x0028, h01=0x0050, text=»ECBSD EQU ECBKB+4 ECB SIGNAL DISPLAY«, t00=0x001c, t01=0x0126}
0x02d08…02d36 Head {h00=0x002a, h01=0x0050, text=»ECBICR EQU ECBSD+4 ECB INTERTASK READ «, t00=0x001c, t01=0x0152}
0x02d36…02d64 Head {h00=0x002a, h01=0x0050, text=»ECBICW EQU ECBICR+2 ECB INTERTAS WRITE«, t00=0x001c, t01=0x0180}
0x02d64…02d94 Head {h00=0x002c, h01=0x0050, text=»ECBKB2 EQU ECBICW+6 ECB 2ND KEYBOARD DK «, t00=0x001d, t01=0x001e}
0x02d94…02d9e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001d, t01=0x004e}
0x02d9e…02dbe Head {h00=0x001c, h01=0x0050, text=»* RELATIVE ADDRESSES IN «, t00=0x001d, t01=0x0058}
0x02dbe…02dd8 Head {h00=0x0016, h01=0x0050, text=»* COMMON WORKBLOCK«, t00=0x001d, t01=0x0078}
0x02dd8…02de2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001d, t01=0x0092}
0x02de2…02df6 Head {h00=0x0010, h01=0x0050, text=» IFF TEST=1 «, t00=0x001d, t01=0x009c}
0x02df6…02e16 Head {h00=0x001c, h01=0x0050, text=»TSKTAB EQU 26 TASK TABLE«, t00=0x001d, t01=0x00b0}
0x02e16…02e22 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x001d, t01=0x00d0}
0x02e22…02e36 Head {h00=0x0010, h01=0x0050, text=» IFT TEST=1 «, t00=0x001d, t01=0x00dc}
0x02e36…02e58 Head {h00=0x001e, h01=0x0050, text=»TSKTAB EQU 219 TASK TABLE «, t00=0x001d, t01=0x00f0}
0x02e58…02e64 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x001d, t01=0x0112}
0x02e64…02e72 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x001d, t01=0x011e}
0x02e72…02eba Head {h00=0x0044, h01=0x0050, text=»****************************************************************«, t00=0x001d, t01=0x012c}
0x02eba…02f02 Head {h00=0x0044, h01=0x0050, text=»* *«, t00=0x001d, t01=0x0174}
0x02f02…02f4a Head {h00=0x0044, h01=0x0050, text=»* KBINP MAIN ROUTINE *«, t00=0x001e, t01=0x002c}
0x02f4a…02f92 Head {h00=0x0044, h01=0x0050, text=»* *«, t00=0x001e, t01=0x0074}
0x02f92…02fda Head {h00=0x0044, h01=0x0050, text=»****************************************************************«, t00=0x001e, t01=0x00bc}
0x02fda…02fee Head {h00=0x0010, h01=0x0050, text=»* REGISTERS«, t00=0x001e, t01=0x0104}
0x02fee…02ff8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001e, t01=0x0118}
0x02ff8…03010 Head {h00=0x0014, h01=0x0050, text=»* A2= KEY-CHAR. «, t00=0x001e, t01=0x0122}
0x03010…0302e Head {h00=0x001a, h01=0x0050, text=»* A3= KEY-TABLE INDEX «, t00=0x001e, t01=0x013a}
0x0302e…03044 Head {h00=0x0012, h01=0x0050, text=»* A4= RESERVED«, t00=0x001e, t01=0x0158}
0x03044…0305a Head {h00=0x0012, h01=0x0050, text=»* A5= RESERVED«, t00=0x001e, t01=0x016e}
0x0305a…03070 Head {h00=0x0012, h01=0x0050, text=»* A6= RESERVED«, t00=0x001e, t01=0x0184}
0x03070…03094 Head {h00=0x0020, h01=0x0050, text=»* A7= KEY-HANDLING INDICATOR«, t00=0x001f, t01=0x000a}
0x03094…030b4 Head {h00=0x001c, h01=0x0050, text=»* A11= CREDIT WORK AREA «, t00=0x001f, t01=0x002e}
0x030b4…030cc Head {h00=0x0014, h01=0x0050, text=»* A13= RESERVED «, t00=0x001f, t01=0x004e}
0x030cc…030d6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001f, t01=0x0066}
0x030d6…0311a Head {h00=0x0040, h01=0x0050, text=»*********************************************************** «, t00=0x001f, t01=0x0070}
0x0311a…03130 Head {h00=0x0012, h01=0x0050, text=»KBINP2 EQU * «, t00=0x001f, t01=0x00b4}
0x03130…03162 Head {h00=0x002e, h01=0x0050, text=» LDK A1,1 INDICATE 2ND KEYBOARD PRESENT DK«, t00=0x001f, t01=0x00ca}
0x03162…0317e Head {h00=0x0018, h01=0x0050, text=» ST A1,ECBCW2,A8 DK«, t00=0x001f, t01=0x00fc}
0x0317e…03192 Head {h00=0x0010, h01=0x0050, text=»KBINP EQU * «, t00=0x001f, t01=0x0118}
0x03192…031c6 Head {h00=0x0030, h01=0x0050, text=»* NO CHECK ON POWER OFF....DK 81-10-17 * «, t00=0x001f, t01=0x012c}
0x031c6…031dc Head {h00=0x0012, h01=0x0050, text=» IFT KEYLST=0 «, t00=0x001f, t01=0x0160}
0x031dc…03208 Head {h00=0x0028, h01=0x0050, text=» LD A1,ECBCW,A8 SEE IF KEYLOCK ? DK «, t00=0x001f, t01=0x0176}
0x03208…03228 Head {h00=0x001c, h01=0x0050, text=» RF(N) KBIN80 SKIP IT DK«, t00=0x0020, t01=0x0012}
0x03228…03234 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0020, t01=0x0032}
0x03234…0324a Head {h00=0x0012, h01=0x0050, text=» IFT KEYLST=1 «, t00=0x0020, t01=0x003e}
0x0324a…03274 Head {h00=0x0026, h01=0x0050, text=» LC* A2,ECBBA,A8 GET KEYLOCK VALUE«, t00=0x0020, t01=0x0054}
0x03274…032a2 Head {h00=0x002a, h01=0x0050, text=» ADKL A2,FKLKEY-/70 PREPARE FOR TABLE «, t00=0x0020, t01=0x007e}
0x032a2…032c2 Head {h00=0x001c, h01=0x0050, text=» SC* A2,ECBBA,A8 RESTORE«, t00=0x0020, t01=0x00ac}
0x032c2…032ce Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0020, t01=0x00cc}
0x032ce…032ec Head {h00=0x001a, h01=0x0050, text=» LD A1,ECBRC,A8 ERROR?«, t00=0x0020, t01=0x00d8}
0x032ec…03302 Head {h00=0x0012, h01=0x0050, text=» ANKL A1,/FFF3«, t00=0x0020, t01=0x00f6}
0x03302…0331c Head {h00=0x0016, h01=0x0050, text=» RF(NZ) KBIN80 YES«, t00=0x0020, t01=0x010c}
0x0331c…03334 Head {h00=0x0014, h01=0x0050, text=» LD A1,KBINH,A11«, t00=0x0020, t01=0x0126}
0x03334…03358 Head {h00=0x0020, h01=0x0050, text=» ANK A1,1 KB TOTALY INHIBIT?«, t00=0x0020, t01=0x013e}
0x03358…03372 Head {h00=0x0016, h01=0x0050, text=» RF(NZ) KBIN80 YES«, t00=0x0020, t01=0x0162}
0x03372…0339a Head {h00=0x0024, h01=0x0050, text=» LC* A2,ECBBA,A8 GET INPUT CHAR.«, t00=0x0020, t01=0x017c}
0x0339a…033ae Head {h00=0x0010, h01=0x0050, text=» ANK A2,/FF «, t00=0x0021, t01=0x0014}
0x033ae…033c6 Head {h00=0x0014, h01=0x0050, text=» LD A1,KBINH,A11«, t00=0x0021, t01=0x0028}
0x033c6…033ec Head {h00=0x0022, h01=0x0050, text=» ANK A1,6 MUST BE A RESET KEY?«, t00=0x0021, t01=0x0040}
0x033ec…03404 Head {h00=0x0014, h01=0x0050, text=» RF(Z) KBIN30 NO«, t00=0x0021, t01=0x0066}
0x03404…03424 Head {h00=0x001c, h01=0x0050, text=» CWK A2,RSET RESET KEY? «, t00=0x0021, t01=0x007e}
0x03424…03436 Head {h00=0x000e, h01=0x0050, text=» IFT SNA=1«, t00=0x0021, t01=0x009e}
0x03436…03450 Head {h00=0x0016, h01=0x0050, text=» RF(E) KBIN30 YES «, t00=0x0021, t01=0x00b0}
0x03450…0347a Head {h00=0x0026, h01=0x0050, text=» CWK A2,SYSKEY SYSTEM REQUEST KEY?«, t00=0x0021, t01=0x00ca}
0x0347a…03486 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0021, t01=0x00f4}
0x03486…034a0 Head {h00=0x0016, h01=0x0050, text=» RF(NE) KBIN80 NO «, t00=0x0021, t01=0x0100}
0x034a0…034b4 Head {h00=0x0010, h01=0x0050, text=»KBIN30 EQU *«, t00=0x0021, t01=0x011a}
0x034b4…034c6 Head {h00=0x000e, h01=0x0050, text=» LDR A3,A2«, t00=0x0021, t01=0x012e}
0x034c6…034ec Head {h00=0x0022, h01=0x0050, text=» SUK A3,/20 INDEX TO KEY-TABLE«, t00=0x0021, t01=0x0140}
0x034ec…0350e Head {h00=0x001e, h01=0x0050, text=» RF(N) KBIN80 ILLEGAL CHAR«, t00=0x0021, t01=0x0166}
0x0350e…03524 Head {h00=0x0012, h01=0x0050, text=» CWK A2,LAKEY «, t00=0x0021, t01=0x0188}
0x03524…03546 Head {h00=0x001e, h01=0x0050, text=» RF(G) KBIN80 ILLEGAL CHAR«, t00=0x0022, t01=0x000e}
0x03546…03558 Head {h00=0x000e, h01=0x0050, text=» IFT SNA=1«, t00=0x0022, t01=0x0030}
0x03558…0357e Head {h00=0x0022, h01=0x0050, text=» LD A1,SNAMOD,A11 GET SNA MODE«, t00=0x0022, t01=0x0042}
0x0357e…03592 Head {h00=0x0010, h01=0x0050, text=» ANK A1,/FF «, t00=0x0022, t01=0x0068}
0x03592…035c8 Head {h00=0x0032, h01=0x0050, text=» CFI A14,CPLKB,A1 COMPLETE KB IN CURRENT MODE «, t00=0x0022, t01=0x007c}
0x035c8…035d4 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0022, t01=0x00b2}
0x035d4…035e6 Head {h00=0x000e, h01=0x0050, text=» IFF SNA=1«, t00=0x0022, t01=0x00be}
0x035e6…035f8 Head {h00=0x000e, h01=0x0050, text=» LDK A7,0 «, t00=0x0022, t01=0x00d0}
0x035f8…0361e Head {h00=0x0022, h01=0x0050, text=» CWK A2,FIPA PROGRAM ATTN KEY?«, t00=0x0022, t01=0x00e2}
0x0361e…03636 Head {h00=0x0014, h01=0x0050, text=» RF(L) KBIN40 NO«, t00=0x0022, t01=0x0108}
0x03636…0364a Head {h00=0x0010, h01=0x0050, text=» CM MODE,A11«, t00=0x0022, t01=0x0120}
0x0364a…03672 Head {h00=0x0024, h01=0x0050, text=» CF A14,LMP6OF CLEAR INSERT MODE«, t00=0x0022, t01=0x0134}
0x03672…03688 Head {h00=0x0012, h01=0x0050, text=» CF A14,DCABOR«, t00=0x0022, t01=0x015c}
0x03688…0369c Head {h00=0x0010, h01=0x0050, text=»KBIN40 EQU *«, t00=0x0022, t01=0x0172}
0x0369c…036a8 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0022, t01=0x0186}
0x036a8…036cc (35, 0, 398) Head {h00=0x0020, h01=0x0050, text=» LDR A7,A7 ANY KEY-HANDLING «, t00=0x0023, t01=0x0004}
0x036cc…036e6 Head {h00=0x0016, h01=0x0050, text=» RF(NZ) KBIN80 NO «, t00=0x0023, t01=0x0028}
0x036e6…0370e Head {h00=0x0024, h01=0x0050, text=» ADR A3,A3 PREPARE FOR KEY-TABLE«, t00=0x0023, t01=0x0042}
0x0370e…03738 Head {h00=0x0026, h01=0x0050, text=» LD A1,RDMORE,A11 KEY IN SEQUENCE?«, t00=0x0023, t01=0x006a}
0x03738…03750 Head {h00=0x0014, h01=0x0050, text=» RF(Z) KBIN50 NO«, t00=0x0023, t01=0x0094}
0x03750…03778 Head {h00=0x0024, h01=0x0050, text=» CF A14,DCABOR KILL DC AGAIN DK «, t00=0x0023, t01=0x00ac}
0x03778…037a0 Head {h00=0x0024, h01=0x0050, text=» LD A1,RDMORE,A11 RESTORE A1 DK2«, t00=0x0023, t01=0x00d4}
0x037a0…037cc Head {h00=0x0028, h01=0x0050, text=» CFR A14,A1 CONTINUE AT SAVED LABEL «, t00=0x0023, t01=0x00fc}
0x037cc…037de Head {h00=0x000e, h01=0x0050, text=» RF KBIN90«, t00=0x0023, t01=0x0128}
0x037de…037f2 Head {h00=0x0010, h01=0x0050, text=»KBIN50 EQU *«, t00=0x0023, t01=0x013a}
0x037f2…03828 Head {h00=0x0032, h01=0x0050, text=» CFI A14,KEYTAB,A3 BRANCH TO RESP. KEY-HANDLER«, t00=0x0023, t01=0x014e}
0x03828…0383a Head {h00=0x000e, h01=0x0050, text=» RF KBIN90«, t00=0x0023, t01=0x0184}
0x0383a…0384e Head {h00=0x0010, h01=0x0050, text=»KBIN80 EQU *«, t00=0x0024, t01=0x0008}
0x0384e…03874 Head {h00=0x0022, h01=0x0050, text=» CF A14,RESKB RESET KB BUFFER «, t00=0x0024, t01=0x001c}
0x03874…03888 Head {h00=0x0010, h01=0x0050, text=»KBIN90 EQU *«, t00=0x0024, t01=0x0042}
0x03888…03898 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0024, t01=0x0056}
0x03898…038a6 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0024, t01=0x0066}
0x038a6…038b8 Head {h00=0x000e, h01=0x0050, text=» IFT SNA=1«, t00=0x0024, t01=0x0074}
0x038b8…03906 Head {h00=0x004a, h01=0x0050, text=»********************************************************************* «, t00=0x0024, t01=0x0086}
0x03906…03954 Head {h00=0x004a, h01=0x0050, text=»* * «, t00=0x0024, t01=0x00d4}
0x03954…039a2 Head {h00=0x004a, h01=0x0050, text=»* CPLKB KB-COMPLETION TABLE * «, t00=0x0024, t01=0x0122}
0x039a2…039f0 Head {h00=0x004a, h01=0x0050, text=»* * «, t00=0x0024, t01=0x0170}
0x039f0…03a3e Head {h00=0x004a, h01=0x0050, text=»********************************************************************* «, t00=0x0025, t01=0x002e}
0x03a3e…03a52 Head {h00=0x0010, h01=0x0050, text=»CPLKB EQU * «, t00=0x0025, t01=0x007c}
0x03a52…03a7e Head {h00=0x0028, h01=0x0050, text=» DATA KBCPLO KB-COMPL. IN LOCAL MODE«, t00=0x0025, t01=0x0090}
0x03a7e…03aac Head {h00=0x002a, h01=0x0050, text=» DATA KBCPSY KB-COMPL. IN SYSTEM MODE «, t00=0x0025, t01=0x00bc}
0x03aac…03ada Head {h00=0x002a, h01=0x0050, text=» DATA KBCPJO KB-COMPL. IN MY JOB MODE «, t00=0x0025, t01=0x00ea}
0x03ada…03ae8 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0025, t01=0x0118}
0x03ae8…03b36 Head {h00=0x004a, h01=0x0050, text=»********************************************************************* «, t00=0x0025, t01=0x0126}
0x03b36…03b84 Head {h00=0x004a, h01=0x0050, text=»* * «, t00=0x0025, t01=0x0174}
0x03b84…03bd2 Head {h00=0x004a, h01=0x0050, text=»* KBCLO KB-COMPLETION IN LOCAL MODE * «, t00=0x0026, t01=0x0032}
0x03bd2…03c20 Head {h00=0x004a, h01=0x0050, text=»* * «, t00=0x0026, t01=0x0080}
0x03c20…03c6e Head {h00=0x004a, h01=0x0050, text=»********************************************************************* «, t00=0x0026, t01=0x00ce}
0x03c6e…03c82 Head {h00=0x0010, h01=0x0050, text=»* REGISTERS«, t00=0x0026, t01=0x011c}
0x03c82…03c8c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0026, t01=0x0130}
0x03c8c…03ca2 Head {h00=0x0012, h01=0x0050, text=»* A2= KEY-CHAR«, t00=0x0026, t01=0x013a}
0x03ca2…03cc0 Head {h00=0x001a, h01=0x0050, text=»* A3= KEY-TABLE INDEX «, t00=0x0026, t01=0x0150}
0x03cc0…03cd6 Head {h00=0x0012, h01=0x0050, text=»* A4= RESERVED«, t00=0x0026, t01=0x016e}
0x03cd6…03cec Head {h00=0x0012, h01=0x0050, text=»* A5= RESERVED«, t00=0x0026, t01=0x0184}
0x03cec…03d02 Head {h00=0x0012, h01=0x0050, text=»* A6= RESERVED«, t00=0x0027, t01=0x000a}
0x03d02…03d26 Head {h00=0x0020, h01=0x0050, text=»* A7= KEY-HANDLING INDICATOR«, t00=0x0027, t01=0x0020}
0x03d26…03d46 Head {h00=0x001c, h01=0x0050, text=»* A11= CREDIT WORK AREA «, t00=0x0027, t01=0x0044}
0x03d46…03d5e Head {h00=0x0014, h01=0x0050, text=»* A13= RESERVED «, t00=0x0027, t01=0x0064}
0x03d5e…03d68 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0027, t01=0x007c}
0x03d68…03dac Head {h00=0x0040, h01=0x0050, text=»*********************************************************** «, t00=0x0027, t01=0x0086}
0x03dac…03dc0 Head {h00=0x0010, h01=0x0050, text=»KBCPLO EQU *«, t00=0x0027, t01=0x00ca}
0x03dc0…03de8 Head {h00=0x0024, h01=0x0050, text=» LDK A7,0 INDICATE KEY-HANDLING «, t00=0x0027, t01=0x00de}
0x03de8…03e10 Head {h00=0x0024, h01=0x0050, text=» CWK A2,FIPA PROGRAM ATTN, KEY? «, t00=0x0027, t01=0x0106}
0x03e10…03e2a Head {h00=0x0016, h01=0x0050, text=» RF(NG) KBCL90 NO «, t00=0x0027, t01=0x012e}
0x03e2a…03e4c Head {h00=0x001e, h01=0x0050, text=» LDK A7,1 NO KEY-HANDLING «, t00=0x0027, t01=0x0148}
0x03e4c…03e72 Head {h00=0x0022, h01=0x0050, text=» CWK A2,SYSKEY SYSTEM REQUEST?«, t00=0x0027, t01=0x016a}
0x03e72…03e8c Head {h00=0x0016, h01=0x0050, text=» RF(NE) KBCL80 NO «, t00=0x0027, t01=0x0190}
0x03e8c…03eb6 Head {h00=0x0026, h01=0x0050, text=» CF A14,OPSYS START COMMUNICATION «, t00=0x0028, t01=0x001a}
0x03eb6…03ed8 Head {h00=0x001e, h01=0x0050, text=» CF A14,TSTSTA TEST STATUS«, t00=0x0028, t01=0x0044}
0x03ed8…03ef6 Head {h00=0x001a, h01=0x0050, text=» ANKL A1,/101 ACTIVE? «, t00=0x0028, t01=0x0066}
0x03ef6…03f10 Head {h00=0x0016, h01=0x0050, text=» RF(NZ) KBCL90 NO «, t00=0x0028, t01=0x0084}
0x03f10…03f3a Head {h00=0x0026, h01=0x0050, text=» LDK A1,SYSOP INDICATE SYSTEM MODE«, t00=0x0028, t01=0x009e}
0x03f3a…03f6a Head {h00=0x002c, h01=0x0050, text=» ORKL A1,/8000 INDICATE MODE ACTIVATION «, t00=0x0028, t01=0x00c8}
0x03f6a…03f84 Head {h00=0x0016, h01=0x0050, text=» ST A1,SNAMOD,A11 «, t00=0x0028, t01=0x00f8}
0x03f84…03f96 Head {h00=0x000e, h01=0x0050, text=» RF KBCL90«, t00=0x0028, t01=0x0112}
0x03f96…03faa Head {h00=0x0010, h01=0x0050, text=»KBCL80 EQU *«, t00=0x0028, t01=0x0124}
0x03faa…03fcc Head {h00=0x001e, h01=0x0050, text=» CWK A2,ENTKEY ENTER KEY? «, t00=0x0028, t01=0x0138}
0x03fcc…03fe6 Head {h00=0x0016, h01=0x0050, text=» RF(NE) KBCL85 NO «, t00=0x0028, t01=0x015a}
0x03fe6…04016 Head {h00=0x002c, h01=0x0050, text=» LD A1,RDMORE,A11 INSIDE IDENT ROUTINE? «, t00=0x0028, t01=0x0174}
0x04016…0402e Head {h00=0x0014, h01=0x0050, text=» RF(Z) KBCL85 NO«, t00=0x0029, t01=0x0014}
0x0402e…04056 Head {h00=0x0024, h01=0x0050, text=» LDK A7,0 INDICATE KEY-HANDLING «, t00=0x0029, t01=0x002c}
0x04056…04068 Head {h00=0x000e, h01=0x0050, text=» RF KBCL90«, t00=0x0029, t01=0x0054}
0x04068…0407c Head {h00=0x0010, h01=0x0050, text=»KBCL85 EQU *«, t00=0x0029, t01=0x0066}
0x0407c…0409e Head {h00=0x001e, h01=0x0050, text=» CF A14,ERROR ILLEGAL KEY «, t00=0x0029, t01=0x007a}
0x0409e…040b2 Head {h00=0x0010, h01=0x0050, text=»KBCL90 EQU *«, t00=0x0029, t01=0x009c}
0x040b2…040c2 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0029, t01=0x00b0}
0x040c2…040d0 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0029, t01=0x00c0}
0x040d0…0411c Head {h00=0x0048, h01=0x0050, text=»********************************************************************«, t00=0x0029, t01=0x00ce}
0x0411c…04168 Head {h00=0x0048, h01=0x0050, text=»* *«, t00=0x0029, t01=0x011a}
0x04168…041b4 Head {h00=0x0048, h01=0x0050, text=»* KBCPSY KB-COMPLETION IN SYSTEM MODE *«, t00=0x0029, t01=0x0166}
0x041b4…04200 Head {h00=0x0048, h01=0x0050, text=»* *«, t00=0x002a, t01=0x0022}
0x04200…0424c Head {h00=0x0048, h01=0x0050, text=»********************************************************************«, t00=0x002a, t01=0x006e}
0x0424c…04260 Head {h00=0x0010, h01=0x0050, text=»* REGISTERS«, t00=0x002a, t01=0x00ba}
0x04260…0426a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002a, t01=0x00ce}
0x0426a…04280 Head {h00=0x0012, h01=0x0050, text=»* A2= KEY-CHAR«, t00=0x002a, t01=0x00d8}
0x04280…0429e Head {h00=0x001a, h01=0x0050, text=»* A3= KEY-TABLE INDEX «, t00=0x002a, t01=0x00ee}
0x0429e…042b4 Head {h00=0x0012, h01=0x0050, text=»* A4= RESERVED«, t00=0x002a, t01=0x010c}
0x042b4…042ca Head {h00=0x0012, h01=0x0050, text=»* A5= RESERVED«, t00=0x002a, t01=0x0122}
0x042ca…042e0 Head {h00=0x0012, h01=0x0050, text=»* A6= RESERVED«, t00=0x002a, t01=0x0138}
0x042e0…04304 Head {h00=0x0020, h01=0x0050, text=»* A7= KEY-HANDLING INDICATOR«, t00=0x002a, t01=0x014e}
0x04304…04324 Head {h00=0x001c, h01=0x0050, text=»* A11= CREDIT WORK AREA «, t00=0x002a, t01=0x0172}
0x04324…0433c (43, 0, 398) Head {h00=0x0014, h01=0x0050, text=»* A13= RESERVED «, t00=0x002b, t01=0x0004}
0x0433c…04346 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002b, t01=0x001c}
0x04346…0438a Head {h00=0x0040, h01=0x0050, text=»*********************************************************** «, t00=0x002b, t01=0x0026}
0x0438a…0439e Head {h00=0x0010, h01=0x0050, text=»KBCPSY EQU *«, t00=0x002b, t01=0x006a}
0x0439e…043c6 Head {h00=0x0024, h01=0x0050, text=» LDK A7,0 INDICATE KEY-HANDLING «, t00=0x002b, t01=0x007e}
0x043c6…043ee Head {h00=0x0024, h01=0x0050, text=» CWK A2,FIPA PROGRAM ATTN. KEY? «, t00=0x002b, t01=0x00a6}
0x043ee…04406 Head {h00=0x0014, h01=0x0050, text=» RF(L) KBCS20 NO«, t00=0x002b, t01=0x00ce}
0x04406…0443a Head {h00=0x0030, h01=0x0050, text=» CWK A2,CLRKEY UNALLOWED PROGRAM ATTN. KEY? «, t00=0x002b, t01=0x00e6}
0x0443a…0445e Head {h00=0x0020, h01=0x0050, text=» RF(NE) KBCS10 NOT CLEAR KEY«, t00=0x002b, t01=0x011a}
0x0445e…04488 Head {h00=0x0026, h01=0x0050, text=» LDK A7,1 INDICATE NO KEY-HANDLING«, t00=0x002b, t01=0x013e}
0x04488…044b2 Head {h00=0x0026, h01=0x0050, text=» CF A14,ERASE ERASE ENTIRE SCREEN «, t00=0x002b, t01=0x0168}
0x044b2…044c4 (44, 0, 400) Head {h00=0x000e, h01=0x0050, text=» RF KBCS80«, t00=0x002c, t01=0x0004}
0x044c4…044d8 Head {h00=0x0010, h01=0x0050, text=»KBCS10 EQU *«, t00=0x002c, t01=0x0016}
0x044d8…044f2 Head {h00=0x0016, h01=0x0050, text=» RF(G) KBCS70 YES «, t00=0x002c, t01=0x002a}
0x044f2…04506 Head {h00=0x0010, h01=0x0050, text=» CM MODE,A11«, t00=0x002c, t01=0x0044}
0x04506…0452e Head {h00=0x0024, h01=0x0050, text=» CF A14,LMP6OF CLEAR INSERT MODE«, t00=0x002c, t01=0x0058}
0x0452e…0454e Head {h00=0x001c, h01=0x0050, text=» CF A14,DCABOR ABORT DC «, t00=0x002c, t01=0x0080}
0x0454e…04560 Head {h00=0x000e, h01=0x0050, text=» RF KBCS80«, t00=0x002c, t01=0x00a0}
0x04560…04574 Head {h00=0x0010, h01=0x0050, text=»KBCS20 EQU *«, t00=0x002c, t01=0x00b2}
0x04574…0459c Head {h00=0x0024, h01=0x0050, text=» CWK A2,ERIKEY ERASE INPUT KEY? «, t00=0x002c, t01=0x00c6}
0x0459c…045b6 Head {h00=0x0016, h01=0x0050, text=» RF(E) KBCS80 YES «, t00=0x002c, t01=0x00ee}
0x045b6…045e4 Head {h00=0x002a, h01=0x0050, text=» CWK A2,ERFKEY ERASE END OF FIELD KEY?«, t00=0x002c, t01=0x0108}
0x045e4…045fe Head {h00=0x0016, h01=0x0050, text=» RF(E) KBCS80 YES «, t00=0x002c, t01=0x0136}
0x045fe…04626 Head {h00=0x0024, h01=0x0050, text=» CWK A2,CRUP INITIATE CURSOR? =1«, t00=0x002c, t01=0x0150}
0x04626…04642 Head {h00=0x0018, h01=0x0050, text=» RF(NL) KBCS90 NO =1«, t00=0x002c, t01=0x0178}
0x04642…0465c (45, 0, 400) Head {h00=0x0016, h01=0x0050, text=» LD A1,CURPOS,A11 «, t00=0x002d, t01=0x0004}
0x0465c…04682 Head {h00=0x0022, h01=0x0050, text=» CWK A1,/800 CURSOR INITIATED?«, t00=0x002d, t01=0x001e}
0x04682…0469c Head {h00=0x0016, h01=0x0050, text=» RF(NE) KBCS90 YES«, t00=0x002d, t01=0x0044}
0x0469c…046c4 Head {h00=0x0024, h01=0x0050, text=» CF A14,SCRINF GET SCREEN INFO. «, t00=0x002d, t01=0x005e}
0x046c4…046ee Head {h00=0x0026, h01=0x0050, text=» ST A4,CURPOS,A11 INITIATE CURSOR «, t00=0x002d, t01=0x0086}
0x046ee…04700 Head {h00=0x000e, h01=0x0050, text=» RF KBCS90«, t00=0x002d, t01=0x00b0}
0x04700…04714 Head {h00=0x0010, h01=0x0050, text=»KBCS70 EQU *«, t00=0x002d, t01=0x00c2}
0x04714…04738 Head {h00=0x0020, h01=0x0050, text=» CF A14,ERROR INDICATE ERROR«, t00=0x002d, t01=0x00d6}
0x04738…0475a Head {h00=0x001e, h01=0x0050, text=» LDK A7,1 NO KEY-HANDLING «, t00=0x002d, t01=0x00fa}
0x0475a…0476c Head {h00=0x000e, h01=0x0050, text=» RF KBCS90«, t00=0x002d, t01=0x011c}
0x0476c…04780 Head {h00=0x0010, h01=0x0050, text=»KBCS80 EQU *«, t00=0x002d, t01=0x012e}
0x04780…047b0 Head {h00=0x002c, h01=0x0050, text=» LDKL A1,NEWMOD INDICATE MODE ACTIVATION«, t00=0x002d, t01=0x0142}
0x047b0…047ca Head {h00=0x0016, h01=0x0050, text=» ORS A1,SNAMOD,A11«, t00=0x002d, t01=0x0172}
0x047ca…047de Head {h00=0x0010, h01=0x0050, text=»KBCS90 EQU *«, t00=0x002d, t01=0x018c}
0x047de…047ee Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x002e, t01=0x0010}
0x047ee…047fc Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x002e, t01=0x0020}
0x047fc…04846 Head {h00=0x0046, h01=0x0050, text=»******************************************************************«, t00=0x002e, t01=0x002e}
0x04846…04890 Head {h00=0x0046, h01=0x0050, text=»* *«, t00=0x002e, t01=0x0078}
0x04890…048da Head {h00=0x0046, h01=0x0050, text=»* KBCPJO KB-COMPLETION IN MY JOB MODE *«, t00=0x002e, t01=0x00c2}
0x048da…04924 Head {h00=0x0046, h01=0x0050, text=»* *«, t00=0x002e, t01=0x010c}
0x04924…0496e Head {h00=0x0046, h01=0x0050, text=»******************************************************************«, t00=0x002e, t01=0x0156}
0x0496e…04982 Head {h00=0x0010, h01=0x0050, text=»* REGISTERS«, t00=0x002f, t01=0x0010}
0x04982…0498c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002f, t01=0x0024}
0x0498c…049a2 Head {h00=0x0012, h01=0x0050, text=»* A2= KEY-CHAR«, t00=0x002f, t01=0x002e}
0x049a2…049c0 Head {h00=0x001a, h01=0x0050, text=»* A3= KEY-TABLE INDEX «, t00=0x002f, t01=0x0044}
0x049c0…049d6 Head {h00=0x0012, h01=0x0050, text=»* A4= RESERVED«, t00=0x002f, t01=0x0062}
0x049d6…049ec Head {h00=0x0012, h01=0x0050, text=»* A5= RESRVED «, t00=0x002f, t01=0x0078}
0x049ec…04a02 Head {h00=0x0012, h01=0x0050, text=»* A6= RESRVED «, t00=0x002f, t01=0x008e}
0x04a02…04a26 Head {h00=0x0020, h01=0x0050, text=»* A7= KEY-HANDLING INDICATOR«, t00=0x002f, t01=0x00a4}
0x04a26…04a46 Head {h00=0x001c, h01=0x0050, text=»* A11= CREDIT WORK AREA «, t00=0x002f, t01=0x00c8}
0x04a46…04a5e Head {h00=0x0014, h01=0x0050, text=»* A13= RESERVED «, t00=0x002f, t01=0x00e8}
0x04a5e…04a68 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002f, t01=0x0100}
0x04a68…04aac Head {h00=0x0040, h01=0x0050, text=»************************************************************«, t00=0x002f, t01=0x010a}
0x04aac…04ac0 Head {h00=0x0010, h01=0x0050, text=»KBCPJO EQU *«, t00=0x002f, t01=0x014e}
0x04ac0…04ae8 Head {h00=0x0024, h01=0x0050, text=» LDK A7,0 INDICATE KEY-HANDLING «, t00=0x002f, t01=0x0162}
0x04ae8…04b10 Head {h00=0x0024, h01=0x0050, text=» CWK A2,FIPA PROGRAM ATTN. KEY? «, t00=0x002f, t01=0x018a}
0x04b10…04b28 Head {h00=0x0014, h01=0x0050, text=» RF(L) KBCJ90 NO«, t00=0x0030, t01=0x0022}
0x04b28…04b3c Head {h00=0x0010, h01=0x0050, text=» IFT OFLIN=1«, t00=0x0030, t01=0x003a}
0x04b3c…04b52 Head {h00=0x0012, h01=0x0050, text=» RF(E) KBCJ80 «, t00=0x0030, t01=0x004e}
0x04b52…04b5e Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0030, t01=0x0064}
0x04b5e…04b70 Head {h00=0x000e, h01=0x0050, text=» IFT SNA=1«, t00=0x0030, t01=0x0070}
0x04b70…04b84 Head {h00=0x0010, h01=0x0050, text=» CM MODE,A11«, t00=0x0030, t01=0x0082}
0x04b84…04bb0 Head {h00=0x0028, h01=0x0050, text=» CF A14,LMP6OF TURN OFF INSERT LAMP «, t00=0x0030, t01=0x0096}
0x04bb0…04bd0 Head {h00=0x001c, h01=0x0050, text=» CF A14,DCABOR ABORT DC «, t00=0x0030, t01=0x00c2}
0x04bd0…04be4 Head {h00=0x0010, h01=0x0050, text=» IFT OFLIN=1«, t00=0x0030, t01=0x00e2}
0x04be4…04bf6 Head {h00=0x000e, h01=0x0050, text=» RF KBCJ90«, t00=0x0030, t01=0x00f6}
0x04bf6…04c0a Head {h00=0x0010, h01=0x0050, text=»KBCJ80 EQU *«, t00=0x0030, t01=0x0108}
0x04c0a…04c2e Head {h00=0x0020, h01=0x0050, text=» CF A14,ERROR INDICATE ERROR«, t00=0x0030, t01=0x011c}
0x04c2e…04c50 Head {h00=0x001e, h01=0x0050, text=» LDK A7,1 NO KEY-HANDLING «, t00=0x0030, t01=0x0140}
0x04c50…04c5c Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0030, t01=0x0162}
0x04c5c…04c6e Head {h00=0x000e, h01=0x0050, text=» IFT SNA=1«, t00=0x0030, t01=0x016e}
0x04c6e…04c82 Head {h00=0x0010, h01=0x0050, text=»KBCJ90 EQU *«, t00=0x0030, t01=0x0180}
0x04c82…04c92 (49, 0, 398) Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0031, t01=0x0004}
0x04c92…04c9e Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0031, t01=0x0014}
0x04c9e…04cac Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0031, t01=0x0020}
0x04cac…04cf4 Head {h00=0x0044, h01=0x0050, text=»*************************************************************** «, t00=0x0031, t01=0x002e}
0x04cf4…04d3c Head {h00=0x0044, h01=0x0050, text=»* * «, t00=0x0031, t01=0x0076}
0x04d3c…04d84 Head {h00=0x0044, h01=0x0050, text=»* READKB READ KEYBOARD WITH NO WAIT * «, t00=0x0031, t01=0x00be}
0x04d84…04dcc Head {h00=0x0044, h01=0x0050, text=»* * «, t00=0x0031, t01=0x0106}
0x04dcc…04e14 Head {h00=0x0044, h01=0x0050, text=»*************************************************************** «, t00=0x0031, t01=0x014e}
0x04e14…04e30 Head {h00=0x0018, h01=0x0050, text=»* REGISTERS«, t00=0x0032, t01=0x0008}
0x04e30…04e3a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0032, t01=0x0024}
0x04e3a…04e4e Head {h00=0x0010, h01=0x0050, text=»* A8= KB-ECB«, t00=0x0032, t01=0x002e}
0x04e4e…04e6e Head {h00=0x001c, h01=0x0050, text=»* A11= CREDIT WORK AREA «, t00=0x0032, t01=0x0042}
0x04e6e…04e86 Head {h00=0x0014, h01=0x0050, text=»* A13= RESERVED «, t00=0x0032, t01=0x0062}
0x04e86…04e90 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0032, t01=0x007a}
0x04e90…04ece Head {h00=0x003a, h01=0x0050, text=»***************************************************** «, t00=0x0032, t01=0x0084}
0x04ece…04ee2 Head {h00=0x0010, h01=0x0050, text=»READKB EQU *«, t00=0x0032, t01=0x00c2}
0x04ee2…04efa Head {h00=0x0014, h01=0x0050, text=» LD A8,ECBKB,A11«, t00=0x0032, t01=0x00d6}
0x04efa…04f18 Head {h00=0x001a, h01=0x0050, text=» LDK A7,0 CLEAR ECBCW «, t00=0x0032, t01=0x00ee}
0x04f18…04f32 Head {h00=0x0016, h01=0x0050, text=» ST A7,ECBCW,A8 «, t00=0x0032, t01=0x010c}
0x04f32…04f44 Head {h00=0x000e, h01=0x0050, text=» LDK A7,1 «, t00=0x0032, t01=0x0126}
0x04f44…04f5c Head {h00=0x0014, h01=0x0050, text=» ST A7,ECBRL,A8 «, t00=0x0032, t01=0x0138}
0x04f5c…04f92 Head {h00=0x0032, h01=0x0050, text=»* NO POWER OF INDICATOR ,...DK 81-10-17 * «, t00=0x0032, t01=0x0150}
0x04f92…04fb2 Head {h00=0x001c, h01=0x0050, text=» LDK A7,2 STANDARD READ «, t00=0x0032, t01=0x0186}
0x04fb2…04fbe Head {h00=0x0008, h01=0x0050, text=» LKM«, t00=0x0033, t01=0x0016}
0x04fbe…04fce Head {h00=0x000c, h01=0x0050, text=» DATA 1 «, t00=0x0033, t01=0x0022}
0x04fce…04fde Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0033, t01=0x0032}
0x04fde…05012 Head {h00=0x0030, h01=0x0050, text=»** READ FROM SECOND KEYBOARD, P & T, DK ** «, t00=0x0033, t01=0x0042}
0x05012…05028 Head {h00=0x0012, h01=0x0050, text=»READK2 EQU * «, t00=0x0033, t01=0x0076}
0x05028…0504a Head {h00=0x001e, h01=0x0050, text=» LD A8,ECBKB2,A11 GET ECB «, t00=0x0033, t01=0x008c}
0x0504a…05068 Head {h00=0x001a, h01=0x0050, text=» LDK A7,0 CLEAR ECBCW «, t00=0x0033, t01=0x00ae}
0x05068…05082 Head {h00=0x0016, h01=0x0050, text=» ST A7,ECBCW,A8 «, t00=0x0033, t01=0x00cc}
0x05082…05094 Head {h00=0x000e, h01=0x0050, text=» LDK A7,1 «, t00=0x0033, t01=0x00e6}
0x05094…050ac Head {h00=0x0014, h01=0x0050, text=» ST A7,ECBRL,A8 «, t00=0x0033, t01=0x00f8}
0x050ac…050cc Head {h00=0x001c, h01=0x0050, text=» LDK A7,2 STANDARD READ «, t00=0x0033, t01=0x0110}
0x050cc…050da Head {h00=0x000a, h01=0x0050, text=» LKM «, t00=0x0033, t01=0x0130}
0x050da…050ea Head {h00=0x000c, h01=0x0050, text=» DATA 1 «, t00=0x0033, t01=0x013e}
0x050ea…050fc Head {h00=0x000e, h01=0x0050, text=» RTN A14 «, t00=0x0033, t01=0x014e}
0x050fc…0511e Head {h00=0x001e, h01=0x0050, text=»**END DK MODIFICATION ** «, t00=0x0033, t01=0x0160}
0x0511e…0512c Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0033, t01=0x0182}
0x0512c…05174 Head {h00=0x0044, h01=0x0050, text=»*************************************************************** «, t00=0x0033, t01=0x0190}
0x05174…051bc Head {h00=0x0044, h01=0x0050, text=»* * «, t00=0x0034, t01=0x0048}
0x051bc…05204 Head {h00=0x0044, h01=0x0050, text=»* RESKB RESET KEYBOARD BUFFER * «, t00=0x0034, t01=0x0090}
0x05204…0524c Head {h00=0x0044, h01=0x0050, text=»* * «, t00=0x0034, t01=0x00d8}
0x0524c…05294 Head {h00=0x0044, h01=0x0050, text=»*************************************************************** «, t00=0x0034, t01=0x0120}
0x05294…052b4 Head {h00=0x001c, h01=0x0050, text=»* REGISTERS «, t00=0x0034, t01=0x0168}
0x052b4…052be Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0034, t01=0x0188}
0x052be…052de (53, 0, 400) Head {h00=0x001c, h01=0x0050, text=»* A11= CREDIT WORK AREA «, t00=0x0035, t01=0x0004}
0x052de…052f6 Head {h00=0x0014, h01=0x0050, text=»* A13= RESERVED «, t00=0x0035, t01=0x0024}
0x052f6…05300 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0035, t01=0x003c}
0x05300…0533e Head {h00=0x003a, h01=0x0050, text=»******************************************************«, t00=0x0035, t01=0x0046}
0x0533e…05352 Head {h00=0x0010, h01=0x0050, text=»RESKB EQU * «, t00=0x0035, t01=0x0084}
0x05352…05388 Head {h00=0x0032, h01=0x0050, text=»* REMOVED UNTIL NEEDED......DK, 811028....**«, t00=0x0035, t01=0x0098}
0x05388…05398 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0035, t01=0x00ce}
0x05398…053a6 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0035, t01=0x00de}
0x053a6…053ea Head {h00=0x0040, h01=0x0050, text=»*********************************************************** «, t00=0x0035, t01=0x00ec}
0x053ea…0542e Head {h00=0x0040, h01=0x0050, text=»* * «, t00=0x0035, t01=0x0130}
0x0542e…05454 Head {h00=0x0022, h01=0x0050, text=»* ICVRED KB/VDU INTERTASK READ«, t00=0x0035, t01=0x0174}
0x05454…05498 Head {h00=0x0040, h01=0x0050, text=»* * «, t00=0x0036, t01=0x000a}
0x05498…054dc Head {h00=0x0040, h01=0x0050, text=»*********************************************************** «, t00=0x0036, t01=0x004e}
0x054dc…054fa Head {h00=0x001a, h01=0x0050, text=»* REGISTERS«, t00=0x0036, t01=0x0092}
0x054fa…05504 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0036, t01=0x00b0}
0x05504…0551a Head {h00=0x0012, h01=0x0050, text=»* A2= RESERVED«, t00=0x0036, t01=0x00ba}
0x0551a…0553a Head {h00=0x001c, h01=0x0050, text=»* A11= CREDIT WORK AREA «, t00=0x0036, t01=0x00d0}
0x0553a…05552 Head {h00=0x0014, h01=0x0050, text=»* A13= RESERVED «, t00=0x0036, t01=0x00f0}
0x05552…0555c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0036, t01=0x0108}
0x0555c…055a0 Head {h00=0x0040, h01=0x0050, text=»*********************************************************** «, t00=0x0036, t01=0x0112}
0x055a0…055b4 Head {h00=0x0010, h01=0x0050, text=»ICVRED EQU *«, t00=0x0036, t01=0x0156}
0x055b4…055ce Head {h00=0x0016, h01=0x0050, text=» LD A8,ECBICR,A11 «, t00=0x0036, t01=0x016a}
0x055ce…055f2 Head {h00=0x0020, h01=0x0050, text=» CF A14,ICSET SET NO TIMEOUT«, t00=0x0036, t01=0x0184}
0x055f2…05608 Head {h00=0x0012, h01=0x0050, text=» IFF COPCMD=1 «, t00=0x0037, t01=0x0018}
0x05608…05620 Head {h00=0x0014, h01=0x0050, text=» LD A1,PRTID,A11«, t00=0x0037, t01=0x002e}
0x05620…0562c Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0037, t01=0x0046}
0x0562c…05642 Head {h00=0x0012, h01=0x0050, text=» IFT COPCMD=1 «, t00=0x0037, t01=0x0052}
0x05642…05660 Head {h00=0x001a, h01=0x0050, text=» LDK A1,0 UNADDRESSED «, t00=0x0037, t01=0x0068}
0x05660…0566c Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0037, t01=0x0086}
0x0566c…05682 Head {h00=0x0012, h01=0x0050, text=» LDKL A3,REGI «, t00=0x0037, t01=0x0092}
0x05682…05696 Head {h00=0x0010, h01=0x0050, text=» ADR A3,A11 «, t00=0x0037, t01=0x00a8}
0x05696…056ae Head {h00=0x0014, h01=0x0050, text=» LDK A2,2 LENGTH«, t00=0x0037, t01=0x00bc}
0x056ae…056d4 Head {h00=0x0022, h01=0x0050, text=» CF A14,ICREAD READ INTERTASK «, t00=0x0037, t01=0x00d4}
0x056d4…056e4 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0037, t01=0x00fa}
0x056e4…056f2 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0037, t01=0x010a}
0x056f2…0573a Head {h00=0x0044, h01=0x0050, text=»****************************************************************«, t00=0x0037, t01=0x0118}
0x0573a…05782 Head {h00=0x0044, h01=0x0050, text=»* *«, t00=0x0037, t01=0x0160}
0x05782…057ca Head {h00=0x0044, h01=0x0050, text=»* ICINP INTERTASK INPUT *«, t00=0x0038, t01=0x0018}
0x057ca…05812 Head {h00=0x0044, h01=0x0050, text=»* *«, t00=0x0038, t01=0x0060}
0x05812…0585a Head {h00=0x0044, h01=0x0050, text=»****************************************************************«, t00=0x0038, t01=0x00a8}
0x0585a…0587a Head {h00=0x001c, h01=0x0050, text=»* REGISTERS «, t00=0x0038, t01=0x00f0}
0x0587a…05884 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0038, t01=0x0110}
0x05884…058a4 Head {h00=0x001c, h01=0x0050, text=»* A11= CREDIT WORK AREA «, t00=0x0038, t01=0x011a}
0x058a4…058bc Head {h00=0x0014, h01=0x0050, text=»* A13= RESERVED «, t00=0x0038, t01=0x013a}
0x058bc…058c6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0038, t01=0x0152}
0x058c6…0590e Head {h00=0x0044, h01=0x0050, text=»****************************************************************«, t00=0x0038, t01=0x015c}
0x0590e…05922 Head {h00=0x0010, h01=0x0050, text=»ICINP EQU * «, t00=0x0039, t01=0x0014}
0x05922…0593a Head {h00=0x0014, h01=0x0050, text=» LD* A2,ECBBA,A8«, t00=0x0039, t01=0x0028}
0x0593a…05950 Head {h00=0x0012, h01=0x0050, text=» IFT COPCMD=1 «, t00=0x0039, t01=0x0040}
0x05950…05970 Head {h00=0x001c, h01=0x0050, text=» LDR A1,A2 COPY COMMAND?«, t00=0x0039, t01=0x0056}
0x05970…0598a Head {h00=0x0016, h01=0x0050, text=» RF(NN) ICIN80 NO «, t00=0x0039, t01=0x0076}
0x0598a…059ae Head {h00=0x0020, h01=0x0050, text=» LDKL A3,BVDU BUFFER TO SEND«, t00=0x0039, t01=0x0090}
0x059ae…059c2 Head {h00=0x0010, h01=0x0050, text=» ADR A3,A11 «, t00=0x0039, t01=0x00b4}
0x059c2…059d6 Head {h00=0x0010, h01=0x0050, text=» IFT COPL=1 «, t00=0x0039, t01=0x00c8}
0x059d6…05a02 Head {h00=0x0028, h01=0x0050, text=» LCR A2,A3 CHECK IF ALLOWED TO COPY «, t00=0x0039, t01=0x00dc}
0x05a02…05a22 Head {h00=0x001c, h01=0x0050, text=» CCK A2,/8000 ATTRIBUTE?«, t00=0x0039, t01=0x0108}
0x05a22…05a3a Head {h00=0x0014, h01=0x0050, text=» RF(L) ICIN20 NO«, t00=0x0039, t01=0x0128}
0x05a3a…05a58 Head {h00=0x001a, h01=0x0050, text=» ANK A2,/20 PROTECTED?«, t00=0x0039, t01=0x0140}
0x05a58…05a7e Head {h00=0x0022, h01=0x0050, text=» RF(NZ) ICIN90 YES DON'T COPY «, t00=0x0039, t01=0x015e}
0x05a7e…05a92 Head {h00=0x0010, h01=0x0050, text=»ICIN20 EQU *«, t00=0x0039, t01=0x0184}
0x05a92…05a9e Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x003a, t01=0x0008}
0x05a9e…05ab4 Head {h00=0x0012, h01=0x0050, text=» IFT COPCMD=1 «, t00=0x003a, t01=0x0014}
0x05ab4…05ad8 Head {h00=0x0020, h01=0x0050, text=» LD A2,ECBCW,A8 GET TO WHOM «, t00=0x003a, t01=0x002a}
0x05ad8…05af2 Head {h00=0x0016, h01=0x0050, text=» LD A8,ECBICW,A11 «, t00=0x003a, t01=0x004e}
0x05af2…05b14 Head {h00=0x001e, h01=0x0050, text=» CF A14,ICSET SET TIMEOUT «, t00=0x003a, t01=0x0068}
0x05b14…05b26 Head {h00=0x000e, h01=0x0050, text=» LDR A1,A2«, t00=0x003a, t01=0x008a}
0x05b26…05b48 Head {h00=0x001e, h01=0x0050, text=» LDKL A2,LBVDU+/20 LENGTH «, t00=0x003a, t01=0x009c}
0x05b48…05b6a Head {h00=0x001e, h01=0x0050, text=» CF A14,ICWRT SEND IT AWAY«, t00=0x003a, t01=0x00be}
0x05b6a…05b96 Head {h00=0x0028, h01=0x0050, text=» LDKL A1,HCPMOD HARDCOPY OUTSTANDING«, t00=0x003a, t01=0x00e0}
0x05b96…05bb0 Head {h00=0x0016, h01=0x0050, text=» ORS A1,BSCMOD,A11«, t00=0x003a, t01=0x010c}
0x05bb0…05bc2 Head {h00=0x000e, h01=0x0050, text=» RF ICIN90«, t00=0x003a, t01=0x0126}
0x05bc2…05bd6 Head {h00=0x0010, h01=0x0050, text=»ICIN80 EQU *«, t00=0x003a, t01=0x0138}
0x05bd6…05be2 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x003a, t01=0x014c}
0x05be2…05c14 Head {h00=0x002e, h01=0x0050, text=» LDKL A1,HCPMOD RESET HARDCOPY OUTSTANDING«, t00=0x003a, t01=0x0158}
0x05c14…05c26 Head {h00=0x000e, h01=0x0050, text=» IFT SNA=1«, t00=0x003a, t01=0x018a}
0x05c26…05c40 Head {h00=0x0016, h01=0x0050, text=» XRS A1,SNAMOD,A11«, t00=0x003b, t01=0x000c}
0x05c40…05c4c Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x003b, t01=0x0026}
0x05c4c…05c5e Head {h00=0x000e, h01=0x0050, text=» IFF SNA=1«, t00=0x003b, t01=0x0032}
0x05c5e…05c78 Head {h00=0x0016, h01=0x0050, text=» XRS A1,BSCMOD,A11«, t00=0x003b, t01=0x0044}
0x05c78…05c84 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x003b, t01=0x005e}
0x05c84…05ca2 Head {h00=0x001a, h01=0x0050, text=» ANK A2,1 PRINTER OK? «, t00=0x003b, t01=0x006a}
0x05ca2…05cbc Head {h00=0x0016, h01=0x0050, text=» RF(Z) ICIN90 YES «, t00=0x003b, t01=0x0088}
0x05cbc…05cd0 Head {h00=0x0010, h01=0x0050, text=»ICIN90 EQU *«, t00=0x003b, t01=0x00a2}
0x05cd0…05ce0 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x003b, t01=0x00b6}
0x05ce0…05cee Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x003b, t01=0x00c6}
0x05cee…05d32 Head {h00=0x0040, h01=0x0050, text=»*********************************************************** «, t00=0x003b, t01=0x00d4}
0x05d32…05d74 Head {h00=0x003e, h01=0x0050, text=»* *«, t00=0x003b, t01=0x0118}
0x05d74…05db8 Head {h00=0x0040, h01=0x0050, text=»* ICSET SET INTERTASK TIMEOUT * «, t00=0x003b, t01=0x015a}
0x05db8…05dfa Head {h00=0x003e, h01=0x0050, text=»* *«, t00=0x003c, t01=0x000e}
0x05dfa…05e3e Head {h00=0x0040, h01=0x0050, text=»*********************************************************** «, t00=0x003c, t01=0x0050}
0x05e3e…05e5e Head {h00=0x001c, h01=0x0050, text=»* REGISTERS «, t00=0x003c, t01=0x0094}
0x05e5e…05e68 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003c, t01=0x00b4}
0x05e68…05e7e Head {h00=0x0012, h01=0x0050, text=»* A2= RESERVED«, t00=0x003c, t01=0x00be}
0x05e7e…05e9a Head {h00=0x0018, h01=0x0050, text=»* A8= INTERTASK ECB «, t00=0x003c, t01=0x00d4}
0x05e9a…05eb2 Head {h00=0x0014, h01=0x0050, text=»* A11= RESERVED «, t00=0x003c, t01=0x00f0}
0x05eb2…05eca Head {h00=0x0014, h01=0x0050, text=»* A13= RESERVED «, t00=0x003c, t01=0x0108}
0x05eca…05ed4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003c, t01=0x0120}
0x05ed4…05f16 Head {h00=0x003e, h01=0x0050, text=»**********************************************************«, t00=0x003c, t01=0x012a}
0x05f16…05f2a Head {h00=0x0010, h01=0x0050, text=»ICSET EQU * «, t00=0x003c, t01=0x016c}
0x05f2a…05f48 Head {h00=0x001a, h01=0x0050, text=» LDKL A1,-1 NO TIMEOUT«, t00=0x003c, t01=0x0180}
0x05f48…05f60 Head {h00=0x0014, h01=0x0050, text=» ST A1,ECBCW,A8 «, t00=0x003d, t01=0x000e}
0x05f60…05f80 Head {h00=0x001c, h01=0x0050, text=» LDK A7,/B9 SET TIMEOUT «, t00=0x003d, t01=0x0026}
0x05f80…05f8c Head {h00=0x0008, h01=0x0050, text=» LKM«, t00=0x003d, t01=0x0046}
0x05f8c…05f9c Head {h00=0x000c, h01=0x0050, text=» DATA 1 «, t00=0x003d, t01=0x0052}
0x05f9c…05fac Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x003d, t01=0x0062}
0x05fac…05fba Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x003d, t01=0x0072}
0x05fba…06000 Head {h00=0x0042, h01=0x0050, text=»************************************************************* «, t00=0x003d, t01=0x0080}
0x06000…06046 Head {h00=0x0042, h01=0x0050, text=»* * «, t00=0x003d, t01=0x00c6}
0x06046…0608c Head {h00=0x0042, h01=0x0050, text=»* ICREAD INTERTASK READ * «, t00=0x003d, t01=0x010c}
0x0608c…060d2 Head {h00=0x0042, h01=0x0050, text=»* * «, t00=0x003d, t01=0x0152}
0x060d2…06118 Head {h00=0x0042, h01=0x0050, text=»**************************************************************«, t00=0x003e, t01=0x0008}
0x06118…0613a Head {h00=0x001e, h01=0x0050, text=»* REGISTERS«, t00=0x003e, t01=0x004e}
0x0613a…06144 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003e, t01=0x0070}
0x06144…0615a Head {h00=0x0012, h01=0x0050, text=»* A1= TASK ID «, t00=0x003e, t01=0x007a}
0x0615a…0616e Head {h00=0x0010, h01=0x0050, text=»* A2= LENGTH«, t00=0x003e, t01=0x0090}
0x0616e…0618a Head {h00=0x0018, h01=0x0050, text=»* A3= BUFFER ADDRESS«, t00=0x003e, t01=0x00a4}
0x0618a…061aa Head {h00=0x001c, h01=0x0050, text=»* A8= INTETASK READ ECB «, t00=0x003e, t01=0x00c0}
0x061aa…061c2 Head {h00=0x0014, h01=0x0050, text=»* A11= RESERVED «, t00=0x003e, t01=0x00e0}
0x061c2…061da Head {h00=0x0014, h01=0x0050, text=»* A13= RESERVED «, t00=0x003e, t01=0x00f8}
0x061da…061e4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003e, t01=0x0110}
0x061e4…0622a Head {h00=0x0042, h01=0x0050, text=»************************************************************* «, t00=0x003e, t01=0x011a}
0x0622a…0623e Head {h00=0x0010, h01=0x0050, text=»ICREAD EQU *«, t00=0x003e, t01=0x0160}
0x0623e…0625e Head {h00=0x001c, h01=0x0050, text=» ST A1,ECBCW,A8 TASK ID «, t00=0x003e, t01=0x0174}
0x0625e…0627c (63, 0, 400) Head {h00=0x001a, h01=0x0050, text=» ST A2,ECBRL,A8 LENGTH«, t00=0x003f, t01=0x0004}
0x0627c…062a2 Head {h00=0x0022, h01=0x0050, text=» ST A3,ECBBA,A8 BUFFER ADDRESS«, t00=0x003f, t01=0x0022}
0x062a2…062ba Head {h00=0x0014, h01=0x0050, text=» LDK A7,/02 READ«, t00=0x003f, t01=0x0048}
0x062ba…062c6 Head {h00=0x0008, h01=0x0050, text=» LKM«, t00=0x003f, t01=0x0060}
0x062c6…062d6 Head {h00=0x000c, h01=0x0050, text=» DATA 1 «, t00=0x003f, t01=0x006c}
0x062d6…062e6 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x003f, t01=0x007c}
0x062e6…062f4 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x003f, t01=0x008c}
0x062f4…0633c Head {h00=0x0044, h01=0x0050, text=»*************************************************************** «, t00=0x003f, t01=0x009a}
0x0633c…06384 Head {h00=0x0044, h01=0x0050, text=»* * «, t00=0x003f, t01=0x00e2}
0x06384…063cc Head {h00=0x0044, h01=0x0050, text=»* ICWRT INTERTASK WRITE * «, t00=0x003f, t01=0x012a}
0x063cc…06414 Head {h00=0x0044, h01=0x0050, text=»* * «, t00=0x003f, t01=0x0172}
0x06414…0645c Head {h00=0x0044, h01=0x0050, text=»*************************************************************** «, t00=0x0040, t01=0x002a}
0x0645c…0647e Head {h00=0x001e, h01=0x0050, text=»* REGISTERS«, t00=0x0040, t01=0x0072}
0x0647e…06488 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0040, t01=0x0094}
0x06488…0649e Head {h00=0x0012, h01=0x0050, text=»* A1= TASK ID «, t00=0x0040, t01=0x009e}
0x0649e…064b2 Head {h00=0x0010, h01=0x0050, text=»* A2= LENGTH«, t00=0x0040, t01=0x00b4}
0x064b2…064ce Head {h00=0x0018, h01=0x0050, text=»* A3= BUFFER ADDRESS«, t00=0x0040, t01=0x00c8}
0x064ce…064f0 Head {h00=0x001e, h01=0x0050, text=»* A8= INTERTASK WRITE ECB «, t00=0x0040, t01=0x00e4}
0x064f0…06508 Head {h00=0x0014, h01=0x0050, text=»* A11= RESERVED «, t00=0x0040, t01=0x0106}
0x06508…06520 Head {h00=0x0014, h01=0x0050, text=»* A13= RESERVED «, t00=0x0040, t01=0x011e}
0x06520…0652a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0040, t01=0x0136}
0x0652a…06572 Head {h00=0x0044, h01=0x0050, text=»****************************************************************«, t00=0x0040, t01=0x0140}
0x06572…06586 Head {h00=0x0010, h01=0x0050, text=»ICWRT EQU * «, t00=0x0040, t01=0x0188}
0x06586…065a6 Head {h00=0x001c, h01=0x0050, text=» ST A1,ECBCW,A8 TASK ID «, t00=0x0041, t01=0x000c}
0x065a6…065c4 Head {h00=0x001a, h01=0x0050, text=» ST A2,ECBRL,A8 LENGTH«, t00=0x0041, t01=0x002c}
0x065c4…065ea Head {h00=0x0022, h01=0x0050, text=» ST A3,ECBBA,A8 BUFFER ADDRESS«, t00=0x0041, t01=0x004a}
0x065ea…06604 Head {h00=0x0016, h01=0x0050, text=» LDK A7,/86 WRITE «, t00=0x0041, t01=0x0070}
0x06604…06610 Head {h00=0x0008, h01=0x0050, text=» LKM«, t00=0x0041, t01=0x008a}
0x06610…06620 Head {h00=0x000c, h01=0x0050, text=» DATA 1 «, t00=0x0041, t01=0x0096}
0x06620…06630 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0041, t01=0x00a6}
0x06630…0663e Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0041, t01=0x00b6}
0x0663e…0668a Head {h00=0x0048, h01=0x0050, text=»******************************************************************* «, t00=0x0041, t01=0x00c4}
0x0668a…066d6 Head {h00=0x0048, h01=0x0050, text=»* * «, t00=0x0041, t01=0x0110}
0x066d6…06722 Head {h00=0x0048, h01=0x0050, text=»* ERROR ILLEGAL KEY-HANDLING * «, t00=0x0041, t01=0x015c}
0x06722…0676e Head {h00=0x0048, h01=0x0050, text=»* * «, t00=0x0042, t01=0x0018}
0x0676e…067ba Head {h00=0x0048, h01=0x0050, text=»******************************************************************* «, t00=0x0042, t01=0x0064}
0x067ba…067d6 Head {h00=0x0018, h01=0x0050, text=»* REGISTERS«, t00=0x0042, t01=0x00b0}
0x067d6…067e0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0042, t01=0x00cc}
0x067e0…06800 Head {h00=0x001c, h01=0x0050, text=»* A11= CREDIT WORK AREA «, t00=0x0042, t01=0x00d6}
0x06800…06818 Head {h00=0x0014, h01=0x0050, text=»* A13= RESERVED «, t00=0x0042, t01=0x00f6}
0x06818…06822 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0042, t01=0x010e}
0x06822…06862 Head {h00=0x003c, h01=0x0050, text=»******************************************************* «, t00=0x0042, t01=0x0118}
0x06862…06876 Head {h00=0x0010, h01=0x0050, text=»ERROR EQU * «, t00=0x0042, t01=0x0158}
0x06876…068a2 Head {h00=0x0028, h01=0x0050, text=» CF A14,LMP4ON TURN ON 'ERROR' LAMP «, t00=0x0042, t01=0x016c}
0x068a2…068c2 Head {h00=0x001c, h01=0x0050, text=» LDK A1,4 RESET ALLOWED «, t00=0x0043, t01=0x0008}
0x068c2…068dc Head {h00=0x0016, h01=0x0050, text=» ORS A1,KBINH,A11 «, t00=0x0043, t01=0x0028}
0x068dc…06906 Head {h00=0x0026, h01=0x0050, text=» CF A14,SOUND TURN ON SOUND ALARM «, t00=0x0043, t01=0x0042}
0x06906…06916 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0043, t01=0x006c}
0x06916…0691e Head {h00=0x0004, h01=0x0050, t00=0x0043, t01=0x007c}
0x0691e…0692c Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0043, t01=0x0084}
0x0692c…06972 Head {h00=0x0042, h01=0x0050, text=»************************************************************* «, t00=0x0043, t01=0x0092}
0x06972…069b8 Head {h00=0x0042, h01=0x0050, text=»* * «, t00=0x0043, t01=0x00d8}
0x069b8…069fe Head {h00=0x0042, h01=0x0050, text=»* LAMPROUTINES * «, t00=0x0043, t01=0x011e}
0x069fe…06a44 Head {h00=0x0042, h01=0x0050, text=»* * «, t00=0x0043, t01=0x0164}
0x06a44…06a8a Head {h00=0x0042, h01=0x0050, text=»************************************************************* «, t00=0x0044, t01=0x001a}
0x06a8a…06aa6 Head {h00=0x0018, h01=0x0050, text=»LMP1ON LDK A1,LAMP1 «, t00=0x0044, t01=0x0060}
0x06aa6…06ab8 Head {h00=0x000e, h01=0x0050, text=» RF LMPON «, t00=0x0044, t01=0x007c}
0x06ab8…06ad4 Head {h00=0x0018, h01=0x0050, text=»LMP1OF LDK A1,LAMP1 «, t00=0x0044, t01=0x008e}
0x06ad4…06ae6 Head {h00=0x000e, h01=0x0050, text=» RF LMPOF «, t00=0x0044, t01=0x00aa}
0x06ae6…06b02 Head {h00=0x0018, h01=0x0050, text=»LMP2ON LDK A1,LAMP2 «, t00=0x0044, t01=0x00bc}
0x06b02…06b14 Head {h00=0x000e, h01=0x0050, text=» RF LMPON «, t00=0x0044, t01=0x00d8}
0x06b14…06b30 Head {h00=0x0018, h01=0x0050, text=»LMP2OF LDK A1,LAMP2 «, t00=0x0044, t01=0x00ea}
0x06b30…06b42 Head {h00=0x000e, h01=0x0050, text=» RF LMPOF «, t00=0x0044, t01=0x0106}
0x06b42…06b5e Head {h00=0x0018, h01=0x0050, text=»LMP3ON LDK A1,LAMP3 «, t00=0x0044, t01=0x0118}
0x06b5e…06b70 Head {h00=0x000e, h01=0x0050, text=» RF LMPON «, t00=0x0044, t01=0x0134}
0x06b70…06b8c Head {h00=0x0018, h01=0x0050, text=»LMP3OF LDK A1,LAMP3 «, t00=0x0044, t01=0x0146}
0x06b8c…06b9e Head {h00=0x000e, h01=0x0050, text=» RF LMPOF «, t00=0x0044, t01=0x0162}
0x06b9e…06bba Head {h00=0x0018, h01=0x0050, text=»LMP4ON LDK A1,LAMP4 «, t00=0x0044, t01=0x0174}
0x06bba…06bcc Head {h00=0x000e, h01=0x0050, text=» RF LMPON «, t00=0x0044, t01=0x0190}
0x06bcc…06be8 Head {h00=0x0018, h01=0x0050, text=»LMP4OF LDK A1,LAMP4 «, t00=0x0045, t01=0x0012}
0x06be8…06bfa Head {h00=0x000e, h01=0x0050, text=» RF LMPOF «, t00=0x0045, t01=0x002e}
0x06bfa…06c16 Head {h00=0x0018, h01=0x0050, text=»LMP5ON LDK A1,LAMP5 «, t00=0x0045, t01=0x0040}
0x06c16…06c28 Head {h00=0x000e, h01=0x0050, text=» RF LMPON «, t00=0x0045, t01=0x005c}
0x06c28…06c44 Head {h00=0x0018, h01=0x0050, text=»LMP5OF LDK A1,LAMP5 «, t00=0x0045, t01=0x006e}
0x06c44…06c56 Head {h00=0x000e, h01=0x0050, text=» RF LMPOF «, t00=0x0045, t01=0x008a}
0x06c56…06c72 Head {h00=0x0018, h01=0x0050, text=»LMP5FL LDK A1,LAMP5 «, t00=0x0045, t01=0x009c}
0x06c72…06c84 Head {h00=0x000e, h01=0x0050, text=» RF LMPFL «, t00=0x0045, t01=0x00b8}
0x06c84…06ca0 Head {h00=0x0018, h01=0x0050, text=»LMP6ON LDK A1,LAMP6 «, t00=0x0045, t01=0x00ca}
0x06ca0…06cb2 Head {h00=0x000e, h01=0x0050, text=» RF LMPON «, t00=0x0045, t01=0x00e6}
0x06cb2…06cce Head {h00=0x0018, h01=0x0050, text=»LMP6OF LDK A1,LAMP6 «, t00=0x0045, t01=0x00f8}
0x06cce…06ce0 Head {h00=0x000e, h01=0x0050, text=» RF LMPOF «, t00=0x0045, t01=0x0114}
0x06ce0…06cea Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0045, t01=0x0126}
0x06cea…06d02 Head {h00=0x0014, h01=0x0050, text=»LMPON LDK A7,LON«, t00=0x0045, t01=0x0130}
0x06d02…06d14 Head {h00=0x000e, h01=0x0050, text=» RF SDISP «, t00=0x0045, t01=0x0148}
0x06d14…06d2c Head {h00=0x0014, h01=0x0050, text=»LMPOF LDK A7,LOF«, t00=0x0045, t01=0x015a}
0x06d2c…06d3e Head {h00=0x000e, h01=0x0050, text=» RF SDISP «, t00=0x0045, t01=0x0172}
0x06d3e…06d56 Head {h00=0x0014, h01=0x0050, text=»LMPFL LDK A7,LFL«, t00=0x0045, t01=0x0184}
0x06d56…06d68 Head {h00=0x000e, h01=0x0050, text=» RF SDISP «, t00=0x0046, t01=0x000c}
0x06d68…06d76 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0046, t01=0x001e}
0x06d76…06dbc Head {h00=0x0042, h01=0x0050, text=»************************************************************* «, t00=0x0046, t01=0x002c}
0x06dbc…06e02 Head {h00=0x0042, h01=0x0050, text=»* * «, t00=0x0046, t01=0x0072}
0x06e02…06e48 Head {h00=0x0042, h01=0x0050, text=»* SDISP SIGNAL ROUTINE * «, t00=0x0046, t01=0x00b8}
0x06e48…06e8e Head {h00=0x0042, h01=0x0050, text=»* * «, t00=0x0046, t01=0x00fe}
0x06e8e…06ed4 Head {h00=0x0042, h01=0x0050, text=»************************************************************* «, t00=0x0046, t01=0x0144}
0x06ed4…06ef0 Head {h00=0x0018, h01=0x0050, text=»* REGISTERS «, t00=0x0046, t01=0x018a}
0x06ef0…06efa Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0047, t01=0x0016}
0x06efa…06f12 Head {h00=0x0014, h01=0x0050, text=»* A8= SIGNAL ECB«, t00=0x0047, t01=0x0020}
0x06f12…06f32 Head {h00=0x001c, h01=0x0050, text=»* A11= CREDIT WORK AREA «, t00=0x0047, t01=0x0038}
0x06f32…06f4a Head {h00=0x0014, h01=0x0050, text=»* A13= RESERVED «, t00=0x0047, t01=0x0058}
0x06f4a…06f54 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0047, t01=0x0070}
0x06f54…06f94 Head {h00=0x003c, h01=0x0050, text=»******************************************************* «, t00=0x0047, t01=0x007a}
0x06f94…06fa8 Head {h00=0x0010, h01=0x0050, text=»SDISP EQU * «, t00=0x0047, t01=0x00ba}
0x06fa8…06fc0 Head {h00=0x0014, h01=0x0050, text=» LD A8,ECBSD,A11«, t00=0x0047, t01=0x00ce}
0x06fc0…06fd8 Head {h00=0x0014, h01=0x0050, text=» ST A1,ECBCW,A8 «, t00=0x0047, t01=0x00e6}
0x06fd8…07006 Head {h00=0x002a, h01=0x0050, text=»** SECOND KEYBOARD MODS, DK, P & T **«, t00=0x0047, t01=0x00fe}
0x07006…0702e Head {h00=0x0024, h01=0x0050, text=» LD A8,ECBSD,A11 GET DISP. ECB «, t00=0x0047, t01=0x012c}
0x0702e…07054 Head {h00=0x0022, h01=0x0050, text=» LDK A1,/41 CHANGE FILE CODE «, t00=0x0047, t01=0x0154}
0x07054…07068 Head {h00=0x0010, h01=0x0050, text=» SC A1,1,A8 «, t00=0x0047, t01=0x017a}
0x07068…07076 Head {h00=0x000a, h01=0x0050, text=» LKM «, t00=0x0047, t01=0x018e}
0x07076…0709e Head {h00=0x0024, h01=0x0050, text=» DATA 1 LAMPS ON SECOND KEYB'RD «, t00=0x0048, t01=0x000c}
0x0709e…070b4 Head {h00=0x0012, h01=0x0050, text=»SDISP1 EQU * «, t00=0x0048, t01=0x0034}
0x070b4…070ce Head {h00=0x0016, h01=0x0050, text=» LD A8,ECBSD,A11 «, t00=0x0048, t01=0x004a}
0x070ce…070fc Head {h00=0x002a, h01=0x0050, text=» LDK A1,/40 RESTORE FILE CODE 1ST KB «, t00=0x0048, t01=0x0064}
0x070fc…07110 Head {h00=0x0010, h01=0x0050, text=» SC A1,1,A8 «, t00=0x0048, t01=0x0092}
0x07110…0712e Head {h00=0x001a, h01=0x0050, text=»** END OF DK MODS ** «, t00=0x0048, t01=0x00a6}
0x0712e…0713a Head {h00=0x0008, h01=0x0050, text=» LKM«, t00=0x0048, t01=0x00c4}
0x0713a…0714a Head {h00=0x000c, h01=0x0050, text=» DATA 1 «, t00=0x0048, t01=0x00d0}
0x0714a…0715a Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0048, t01=0x00e0}
0x0715a…07168 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0048, t01=0x00f0}
0x07168…071b0 Head {h00=0x0044, h01=0x0050, text=»****************************************************************«, t00=0x0048, t01=0x00fe}
0x071b0…071f8 Head {h00=0x0044, h01=0x0050, text=»* *«, t00=0x0048, t01=0x0146}
0x071f8…07240 Head {h00=0x0044, h01=0x0050, text=»* KEYTAB KEY-TABLE, FIXED ENTRY FOR EACH FUNC. *«, t00=0x0048, t01=0x018e}
0x07240…07288 Head {h00=0x0044, h01=0x0050, text=»* *«, t00=0x0049, t01=0x0046}
0x07288…072d0 Head {h00=0x0044, h01=0x0050, text=»****************************************************************«, t00=0x0049, t01=0x008e}
0x072d0…072e4 Head {h00=0x0010, h01=0x0050, text=»KEYTAB EQU *«, t00=0x0049, t01=0x00d6}
0x072e4…072f0 Head {h00=0x0008, h01=0x0050, text=»*20 «, t00=0x0049, t01=0x00ea}
0x072f0…07308 Head {h00=0x0014, h01=0x0050, text=» DATA CHAR SPACE«, t00=0x0049, t01=0x00f6}
0x07308…0731c Head {h00=0x0010, h01=0x0050, text=» DATA CHAR !«, t00=0x0049, t01=0x010e}
0x0731c…07330 Head {h00=0x0010, h01=0x0050, text=» DATA CHAR "«, t00=0x0049, t01=0x0122}
0x07330…07342 Head {h00=0x000e, h01=0x0050, text=» DATA CHAR«, t00=0x0049, t01=0x0136}
0x07342…07356 Head {h00=0x0010, h01=0x0050, text=» DATA CHAR $«, t00=0x0049, t01=0x0148}
0x07356…0736a Head {h00=0x0010, h01=0x0050, text=» DATA CHAR «, t00=0x0049, t01=0x015c}
0x0736a…0737e Head {h00=0x0010, h01=0x0050, text=» DATA CHAR &«, t00=0x0049, t01=0x0170}
0x0737e…07392 Head {h00=0x0010, h01=0x0050, text=» DATA CHAR '«, t00=0x0049, t01=0x0184}
0x07392…073a6 Head {h00=0x0010, h01=0x0050, text=» DATA CHAR («, t00=0x004a, t01=0x0008}
0x073a6…073ba Head {h00=0x0010, h01=0x0050, text=» DATA CHAR )«, t00=0x004a, t01=0x001c}
0x073ba…073ce Head {h00=0x0010, h01=0x0050, text=» DATA CHAR *«, t00=0x004a, t01=0x0030}
0x073ce…073e2 Head {h00=0x0010, h01=0x0050, text=» DATA NUM + «, t00=0x004a, t01=0x0044}
0x073e2…073f6 Head {h00=0x0010, h01=0x0050, text=» DATA NUM , «, t00=0x004a, t01=0x0058}
0x073f6…0740a Head {h00=0x0010, h01=0x0050, text=» DATA NUM - «, t00=0x004a, t01=0x006c}
0x0740a…0741e Head {h00=0x0010, h01=0x0050, text=» DATA NUM . «, t00=0x004a, t01=0x0080}
0x0741e…07432 Head {h00=0x0010, h01=0x0050, text=» DATA CHAR /«, t00=0x004a, t01=0x0094}
0x07432…0743e Head {h00=0x0008, h01=0x0050, text=»*30 «, t00=0x004a, t01=0x00a8}
0x0743e…07452 Head {h00=0x0010, h01=0x0050, text=» DATA NUM 0 «, t00=0x004a, t01=0x00b4}
0x07452…07466 Head {h00=0x0010, h01=0x0050, text=» DATA NUM 1 «, t00=0x004a, t01=0x00c8}
0x07466…0747a Head {h00=0x0010, h01=0x0050, text=» DATA NUM 2 «, t00=0x004a, t01=0x00dc}
0x0747a…0748e Head {h00=0x0010, h01=0x0050, text=» DATA NUM 3 «, t00=0x004a, t01=0x00f0}
0x0748e…074a2 Head {h00=0x0010, h01=0x0050, text=» DATA NUM 4 «, t00=0x004a, t01=0x0104}
0x074a2…074b6 Head {h00=0x0010, h01=0x0050, text=» DATA NUM 5 «, t00=0x004a, t01=0x0118}
0x074b6…074ca Head {h00=0x0010, h01=0x0050, text=» DATA NUM 6 «, t00=0x004a, t01=0x012c}
0x074ca…074de Head {h00=0x0010, h01=0x0050, text=» DATA NUM 7 «, t00=0x004a, t01=0x0140}
0x074de…074f2 Head {h00=0x0010, h01=0x0050, text=» DATA NUM 8 «, t00=0x004a, t01=0x0154}
0x074f2…07506 Head {h00=0x0010, h01=0x0050, text=» DATA NUM 9 «, t00=0x004a, t01=0x0168}
0x07506…0751a Head {h00=0x0010, h01=0x0050, text=» DATA CHAR :«, t00=0x004a, t01=0x017c}
0x0751a…0752e Head {h00=0x0010, h01=0x0050, text=» DATA CHAR ;«, t00=0x004a, t01=0x0190}
0x0752e…07542 Head {h00=0x0010, h01=0x0050, text=» DATA CHAR <«, t00=0x004b, t01=0x0014}
0x07542…07556 Head {h00=0x0010, h01=0x0050, text=» DATA CHAR =«, t00=0x004b, t01=0x0028}
0x07556…0756a Head {h00=0x0010, h01=0x0050, text=» DATA CHAR >«, t00=0x004b, t01=0x003c}
0x0756a…0757e Head {h00=0x0010, h01=0x0050, text=» DATA CHAR ?«, t00=0x004b, t01=0x0050}
0x0757e…0758a Head {h00=0x0008, h01=0x0050, text=»*40 «, t00=0x004b, t01=0x0064}
0x0758a…0759c Head {h00=0x000e, h01=0x0050, text=» DATA CHAR«, t00=0x004b, t01=0x0070}
0x0759c…075b0 Head {h00=0x0010, h01=0x0050, text=» DATA CHAR A«, t00=0x004b, t01=0x0082}
0x075b0…075c4 Head {h00=0x0010, h01=0x0050, text=» DATA CHAR B«, t00=0x004b, t01=0x0096}
0x075c4…075d8 Head {h00=0x0010, h01=0x0050, text=» DATA CHAR C«, t00=0x004b, t01=0x00aa}
0x075d8…075ec Head {h00=0x0010, h01=0x0050, text=» DATA CHAR D«, t00=0x004b, t01=0x00be}
0x075ec…07600 Head {h00=0x0010, h01=0x0050, text=» DATA CHAR E«, t00=0x004b, t01=0x00d2}
0x07600…07614 Head {h00=0x0010, h01=0x0050, text=» DATA CHAR F«, t00=0x004b, t01=0x00e6}
0x07614…07628 Head {h00=0x0010, h01=0x0050, text=» DATA CHAR G«, t00=0x004b, t01=0x00fa}
0x07628…0763c Head {h00=0x0010, h01=0x0050, text=» DATA CHAR H«, t00=0x004b, t01=0x010e}
0x0763c…07650 Head {h00=0x0010, h01=0x0050, text=» DATA CHAR I«, t00=0x004b, t01=0x0122}
0x07650…07664 Head {h00=0x0010, h01=0x0050, text=» DATA CHAR J«, t00=0x004b, t01=0x0136}
0x07664…07678 Head {h00=0x0010, h01=0x0050, text=» DATA CHAR K«, t00=0x004b, t01=0x014a}
0x07678…0768c Head {h00=0x0010, h01=0x0050, text=» DATA CHAR L«, t00=0x004b, t01=0x015e}
0x0768c…076a0 Head {h00=0x0010, h01=0x0050, text=» DATA CHAR M«, t00=0x004b, t01=0x0172}
0x076a0…076b4 Head {h00=0x0010, h01=0x0050, text=» DATA CHAR N«, t00=0x004b, t01=0x0186}
0x076b4…076c8 Head {h00=0x0010, h01=0x0050, text=» DATA CHAR O«, t00=0x004c, t01=0x000a}
0x076c8…076d4 Head {h00=0x0008, h01=0x0050, text=»*50 «, t00=0x004c, t01=0x001e}
0x076d4…076e8 Head {h00=0x0010, h01=0x0050, text=» DATA CHAR P«, t00=0x004c, t01=0x002a}
0x076e8…076fc Head {h00=0x0010, h01=0x0050, text=» DATA CHAR Q«, t00=0x004c, t01=0x003e}
0x076fc…07710 Head {h00=0x0010, h01=0x0050, text=» DATA CHAR R«, t00=0x004c, t01=0x0052}
0x07710…07724 Head {h00=0x0010, h01=0x0050, text=» DATA CHAR S«, t00=0x004c, t01=0x0066}
0x07724…07738 Head {h00=0x0010, h01=0x0050, text=» DATA CHAR T«, t00=0x004c, t01=0x007a}
0x07738…0774c Head {h00=0x0010, h01=0x0050, text=» DATA CHAR U«, t00=0x004c, t01=0x008e}
0x0774c…07760 Head {h00=0x0010, h01=0x0050, text=» DATA CHAR V«, t00=0x004c, t01=0x00a2}
0x07760…07774 Head {h00=0x0010, h01=0x0050, text=» DATA CHAR W«, t00=0x004c, t01=0x00b6}
0x07774…07788 Head {h00=0x0010, h01=0x0050, text=» DATA CHAR X«, t00=0x004c, t01=0x00ca}
0x07788…0779c Head {h00=0x0010, h01=0x0050, text=» DATA CHAR Y«, t00=0x004c, t01=0x00de}
0x0779c…077b0 Head {h00=0x0010, h01=0x0050, text=» DATA CHAR Z«, t00=0x004c, t01=0x00f2}
0x077b0…077c2 Head {h00=0x000e, h01=0x0050, text=» DATA CHAR«, t00=0x004c, t01=0x0106}
0x077c2…077d4 Head {h00=0x000e, h01=0x0050, text=» DATA CHAR«, t00=0x004c, t01=0x0118}
0x077d4…077e6 Head {h00=0x000e, h01=0x0050, text=» DATA CHAR«, t00=0x004c, t01=0x012a}
0x077e6…077fa Head {h00=0x0010, h01=0x0050, text=» DATA CHAR ^«, t00=0x004c, t01=0x013c}
0x077fa…07816 Head {h00=0x0018, h01=0x0050, text=» DATA CHAR UNDERLINE«, t00=0x004c, t01=0x0150}
0x07816…07822 Head {h00=0x0008, h01=0x0050, text=»*60 «, t00=0x004c, t01=0x016c}
0x07822…07834 Head {h00=0x000e, h01=0x0050, text=» DATA CHAR«, t00=0x004c, t01=0x0178}
0x07834…07858 Head {h00=0x0020, h01=0x0050, text=» DATA CHAR a LOWER CASE A-Z «, t00=0x004c, t01=0x018a}
0x07858…0786c Head {h00=0x0010, h01=0x0050, text=» DATA CHAR b«, t00=0x004d, t01=0x001e}
0x0786c…07880 Head {h00=0x0010, h01=0x0050, text=» DATA CHAR c«, t00=0x004d, t01=0x0032}
0x07880…07894 Head {h00=0x0010, h01=0x0050, text=» DATA CHAR d«, t00=0x004d, t01=0x0046}
0x07894…078a8 Head {h00=0x0010, h01=0x0050, text=» DATA CHAR e«, t00=0x004d, t01=0x005a}
0x078a8…078bc Head {h00=0x0010, h01=0x0050, text=» DATA CHAR f«, t00=0x004d, t01=0x006e}
0x078bc…078d0 Head {h00=0x0010, h01=0x0050, text=» DATA CHAR g«, t00=0x004d, t01=0x0082}
0x078d0…078e4 Head {h00=0x0010, h01=0x0050, text=» DATA CHAR h«, t00=0x004d, t01=0x0096}
0x078e4…078f8 Head {h00=0x0010, h01=0x0050, text=» DATA CHAR i«, t00=0x004d, t01=0x00aa}
0x078f8…0790c Head {h00=0x0010, h01=0x0050, text=» DATA CHAR j«, t00=0x004d, t01=0x00be}
0x0790c…07920 Head {h00=0x0010, h01=0x0050, text=» DATA CHAR k«, t00=0x004d, t01=0x00d2}
0x07920…07934 Head {h00=0x0010, h01=0x0050, text=» DATA CHAR l«, t00=0x004d, t01=0x00e6}
0x07934…07948 Head {h00=0x0010, h01=0x0050, text=» DATA CHAR m«, t00=0x004d, t01=0x00fa}
0x07948…0795c Head {h00=0x0010, h01=0x0050, text=» DATA CHAR n«, t00=0x004d, t01=0x010e}
0x0795c…07970 Head {h00=0x0010, h01=0x0050, text=» DATA CHAR o«, t00=0x004d, t01=0x0122}
0x07970…0797c Head {h00=0x0008, h01=0x0050, text=»*70 «, t00=0x004d, t01=0x0136}
0x0797c…07990 Head {h00=0x0010, h01=0x0050, text=» DATA CHAR p«, t00=0x004d, t01=0x0142}
0x07990…079a4 Head {h00=0x0010, h01=0x0050, text=» DATA CHAR q«, t00=0x004d, t01=0x0156}
0x079a4…079b8 Head {h00=0x0010, h01=0x0050, text=» DATA CHAR r«, t00=0x004d, t01=0x016a}
0x079b8…079cc Head {h00=0x0010, h01=0x0050, text=» DATA CHAR s«, t00=0x004d, t01=0x017e}
0x079cc…079e0 (78, 0, 400) Head {h00=0x0010, h01=0x0050, text=» DATA CHAR t«, t00=0x004e, t01=0x0004}
0x079e0…079f4 Head {h00=0x0010, h01=0x0050, text=» DATA CHAR u«, t00=0x004e, t01=0x0018}
0x079f4…07a08 Head {h00=0x0010, h01=0x0050, text=» DATA CHAR v«, t00=0x004e, t01=0x002c}
0x07a08…07a1c Head {h00=0x0010, h01=0x0050, text=» DATA CHAR w«, t00=0x004e, t01=0x0040}
0x07a1c…07a30 Head {h00=0x0010, h01=0x0050, text=» DATA CHAR x«, t00=0x004e, t01=0x0054}
0x07a30…07a44 Head {h00=0x0010, h01=0x0050, text=» DATA CHAR y«, t00=0x004e, t01=0x0068}
0x07a44…07a58 Head {h00=0x0010, h01=0x0050, text=» DATA CHAR z«, t00=0x004e, t01=0x007c}
0x07a58…07a6a Head {h00=0x000e, h01=0x0050, text=» DATA CHAR«, t00=0x004e, t01=0x0090}
0x07a6a…07a7c Head {h00=0x000e, h01=0x0050, text=» DATA CHAR«, t00=0x004e, t01=0x00a2}
0x07a7c…07a8e Head {h00=0x000e, h01=0x0050, text=» DATA CHAR«, t00=0x004e, t01=0x00b4}
0x07a8e…07aa0 Head {h00=0x000e, h01=0x0050, text=» DATA CHAR«, t00=0x004e, t01=0x00c6}
0x07aa0…07ab4 Head {h00=0x0010, h01=0x0050, text=» DATA RETURN«, t00=0x004e, t01=0x00d8}
0x07ab4…07ac0 Head {h00=0x0008, h01=0x0050, text=»*80 «, t00=0x004e, t01=0x00ec}
0x07ac0…07ad4 Head {h00=0x0010, h01=0x0050, text=» DATA CURMOV«, t00=0x004e, t01=0x00f8}
0x07ad4…07ae8 Head {h00=0x0010, h01=0x0050, text=» DATA CURMOV«, t00=0x004e, t01=0x010c}
0x07ae8…07afc Head {h00=0x0010, h01=0x0050, text=» DATA CURMOV«, t00=0x004e, t01=0x0120}
0x07afc…07b10 Head {h00=0x0010, h01=0x0050, text=» DATA CURMOV«, t00=0x004e, t01=0x0134}
0x07b10…07b24 Head {h00=0x0010, h01=0x0050, text=» DATA BAKTAB«, t00=0x004e, t01=0x0148}
0x07b24…07b36 Head {h00=0x000e, h01=0x0050, text=» DATA TAB «, t00=0x004e, t01=0x015c}
0x07b36…07b48 Head {h00=0x000e, h01=0x0050, text=» DATA CRNL«, t00=0x004e, t01=0x016e}
0x07b48…07b5c Head {h00=0x0010, h01=0x0050, text=» DATA RDHOME«, t00=0x004e, t01=0x0180}
0x07b5c…07b70 (79, 0, 400) Head {h00=0x0010, h01=0x0050, text=» DATA EREOF «, t00=0x004f, t01=0x0004}
0x07b70…07b84 Head {h00=0x0010, h01=0x0050, text=» DATA ERINPT«, t00=0x004f, t01=0x0018}
0x07b84…07b98 Head {h00=0x0010, h01=0x0050, text=» IFT IN:DL=1«, t00=0x004f, t01=0x002c}
0x07b98…07bac Head {h00=0x0010, h01=0x0050, text=» DATA INSERT«, t00=0x004f, t01=0x0040}
0x07bac…07bc0 Head {h00=0x0010, h01=0x0050, text=» DATA DELETE«, t00=0x004f, t01=0x0054}
0x07bc0…07bcc Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x004f, t01=0x0068}
0x07bcc…07be0 Head {h00=0x0010, h01=0x0050, text=» IFF IN:DL=1«, t00=0x004f, t01=0x0074}
0x07be0…07bf4 Head {h00=0x0010, h01=0x0050, text=» DATA RETURN«, t00=0x004f, t01=0x0088}
0x07bf4…07c08 Head {h00=0x0010, h01=0x0050, text=» DATA RETURN«, t00=0x004f, t01=0x009c}
0x07c08…07c14 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x004f, t01=0x00b0}
0x07c14…07c28 Head {h00=0x0010, h01=0x0050, text=» DATA RESET «, t00=0x004f, t01=0x00bc}
0x07c28…07c3a Head {h00=0x000e, h01=0x0050, text=» DATA DUP «, t00=0x004f, t01=0x00d0}
0x07c3a…07c4e Head {h00=0x0010, h01=0x0050, text=» DATA FLDMRK«, t00=0x004f, t01=0x00e2}
0x07c4e…07c62 Head {h00=0x0010, h01=0x0050, text=» DATA ZERO:2«, t00=0x004f, t01=0x00f6}
0x07c62…07c6e Head {h00=0x0008, h01=0x0050, text=»*90 «, t00=0x004f, t01=0x010a}
0x07c6e…07c82 Head {h00=0x0010, h01=0x0050, text=» DATA ZERO:3«, t00=0x004f, t01=0x0116}
0x07c82…07c96 Head {h00=0x0010, h01=0x0050, text=» DATA NUMCOM«, t00=0x004f, t01=0x012a}
0x07c96…07ca8 Head {h00=0x000e, h01=0x0050, text=» DATA COPY«, t00=0x004f, t01=0x013e}
0x07ca8…07cbc Head {h00=0x0010, h01=0x0050, text=» DATA IDENT «, t00=0x004f, t01=0x0150}
0x07cbc…07cd2 Head {h00=0x0012, h01=0x0050, text=» IFT KEYLST=1 «, t00=0x004f, t01=0x0164}
0x07cd2…07ce4 Head {h00=0x000e, h01=0x0050, text=» DATA KEYL«, t00=0x004f, t01=0x017a}
0x07ce4…07cf6 Head {h00=0x000e, h01=0x0050, text=» DATA KEYL«, t00=0x004f, t01=0x018c}
0x07cf6…07d08 Head {h00=0x000e, h01=0x0050, text=» DATA KEYL«, t00=0x0050, t01=0x000e}
0x07d08…07d1a Head {h00=0x000e, h01=0x0050, text=» DATA KEYL«, t00=0x0050, t01=0x0020}
0x07d1a…07d2c Head {h00=0x000e, h01=0x0050, text=» DATA KEYL«, t00=0x0050, t01=0x0032}
0x07d2c…07d3e Head {h00=0x000e, h01=0x0050, text=» DATA KEYL«, t00=0x0050, t01=0x0044}
0x07d3e…07d50 Head {h00=0x000e, h01=0x0050, text=» DATA KEYL«, t00=0x0050, t01=0x0056}
0x07d50…07d62 Head {h00=0x000e, h01=0x0050, text=» DATA KEYL«, t00=0x0050, t01=0x0068}
0x07d62…07d6e Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0050, t01=0x007a}
0x07d6e…07d84 Head {h00=0x0012, h01=0x0050, text=» IFF KEYLST=1 «, t00=0x0050, t01=0x0086}
0x07d84…07d98 Head {h00=0x0010, h01=0x0050, text=» DATA RETURN«, t00=0x0050, t01=0x009c}
0x07d98…07dac Head {h00=0x0010, h01=0x0050, text=» DATA RETURN«, t00=0x0050, t01=0x00b0}
0x07dac…07dc0 Head {h00=0x0010, h01=0x0050, text=» DATA RETURN«, t00=0x0050, t01=0x00c4}
0x07dc0…07dd4 Head {h00=0x0010, h01=0x0050, text=» DATA RETURN«, t00=0x0050, t01=0x00d8}
0x07dd4…07de8 Head {h00=0x0010, h01=0x0050, text=» DATA RETURN«, t00=0x0050, t01=0x00ec}
0x07de8…07dfc Head {h00=0x0010, h01=0x0050, text=» DATA RETURN«, t00=0x0050, t01=0x0100}
0x07dfc…07e10 Head {h00=0x0010, h01=0x0050, text=» DATA RETURN«, t00=0x0050, t01=0x0114}
0x07e10…07e24 Head {h00=0x0010, h01=0x0050, text=» DATA RETURN«, t00=0x0050, t01=0x0128}
0x07e24…07e30 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0050, t01=0x013c}
0x07e30…07e6c Head {h00=0x0038, h01=0x0050, text=» DATA RETURN FREE LABEL FOR NEW KEY (NOT P. A. KEY) «, t00=0x0050, t01=0x0148}
0x07e6c…07ea8 Head {h00=0x0038, h01=0x0050, text=» DATA RETURN FREE LABEL FOR NEW KEY (NOT P. A. KEY) «, t00=0x0050, t01=0x0184}
0x07ea8…07ee4 Head {h00=0x0038, h01=0x0050, text=» DATA RETURN FREE LABEL FOR NEW KEY (NOT P. A. KEY) «, t00=0x0051, t01=0x0030}
0x07ee4…07efc Head {h00=0x0014, h01=0x0050, text=»*FIRST P. A. KEY«, t00=0x0051, t01=0x006c}
0x07efc…07f10 Head {h00=0x0010, h01=0x0050, text=» IFT OFLIN=1«, t00=0x0051, t01=0x0084}
0x07f10…07f24 Head {h00=0x0010, h01=0x0050, text=» DATA OFLINE«, t00=0x0051, t01=0x0098}
0x07f24…07f30 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0051, t01=0x00ac}
0x07f30…07f44 Head {h00=0x0010, h01=0x0050, text=» IFF OFLIN=1«, t00=0x0051, t01=0x00b8}
0x07f44…07f58 Head {h00=0x0010, h01=0x0050, text=» DATA RETURN«, t00=0x0051, t01=0x00cc}
0x07f58…07f64 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0051, t01=0x00e0}
0x07f64…07f70 Head {h00=0x0008, h01=0x0050, text=»*A0 «, t00=0x0051, t01=0x00ec}
0x07f70…07f84 Head {h00=0x0010, h01=0x0050, text=» DATA ENTER «, t00=0x0051, t01=0x00f8}
0x07f84…07f96 Head {h00=0x000e, h01=0x0050, text=» IFT SNA=1«, t00=0x0051, t01=0x010c}
0x07f96…07faa Head {h00=0x0010, h01=0x0050, text=» DATA SYSREQ«, t00=0x0051, t01=0x011e}
0x07faa…07fbe Head {h00=0x0010, h01=0x0050, text=» DATA CLEAR «, t00=0x0051, t01=0x0132}
0x07fbe…07fd0 Head {h00=0x000e, h01=0x0050, text=» DATA ATTN«, t00=0x0051, t01=0x0146}
0x07fd0…07fdc Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0051, t01=0x0158}
0x07fdc…07fee Head {h00=0x000e, h01=0x0050, text=» IFF SNA=1«, t00=0x0051, t01=0x0164}
0x07fee…08002 Head {h00=0x0010, h01=0x0050, text=» DATA RETURN«, t00=0x0051, t01=0x0176}
0x08002…08016 Head {h00=0x0010, h01=0x0050, text=» DATA CLEAR «, t00=0x0051, t01=0x018a}
0x08016…0802a Head {h00=0x0010, h01=0x0050, text=» DATA RETURN«, t00=0x0052, t01=0x000e}
0x0802a…08036 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0052, t01=0x0022}
0x08036…0804c Head {h00=0x0012, h01=0x0050, text=» IFT NBRLIN=2 «, t00=0x0052, t01=0x002e}
0x0804c…08060 Head {h00=0x0010, h01=0x0050, text=» DATA MFCHGE«, t00=0x0052, t01=0x0044}
0x08060…0806c Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0052, t01=0x0058}
0x0806c…08082 Head {h00=0x0012, h01=0x0050, text=» IFF NBRLIN=2 «, t00=0x0052, t01=0x0064}
0x08082…08096 Head {h00=0x0010, h01=0x0050, text=» DATA RETURN«, t00=0x0052, t01=0x007a}
0x08096…080a2 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0052, t01=0x008e}
0x080a2…080b4 Head {h00=0x000e, h01=0x0050, text=» IFT PAX=1«, t00=0x0052, t01=0x009a}
0x080b4…080c6 Head {h00=0x000e, h01=0x0050, text=» DATA PAEX«, t00=0x0052, t01=0x00ac}
0x080c6…080d2 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0052, t01=0x00be}
0x080d2…080e4 Head {h00=0x000e, h01=0x0050, text=» IFF PAX=1«, t00=0x0052, t01=0x00ca}
0x080e4…080f8 Head {h00=0x0010, h01=0x0050, text=» DATA RETURN«, t00=0x0052, t01=0x00dc}
0x080f8…08104 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0052, t01=0x00f0}
0x08104…08116 Head {h00=0x000e, h01=0x0050, text=» DATA PA1 «, t00=0x0052, t01=0x00fc}
0x08116…08128 Head {h00=0x000e, h01=0x0050, text=» DATA PA2 «, t00=0x0052, t01=0x010e}
0x08128…0813a Head {h00=0x000e, h01=0x0050, text=» DATA PA3 «, t00=0x0052, t01=0x0120}
0x0813a…08162 Head {h00=0x0024, h01=0x0050, text=» DATA PAALFA PA4-PA10 (ALFASKOP)«, t00=0x0052, t01=0x0132}
0x08162…08176 Head {h00=0x0010, h01=0x0050, text=» DATA PAALFA«, t00=0x0052, t01=0x015a}
0x08176…0818a Head {h00=0x0010, h01=0x0050, text=» DATA PAALFA«, t00=0x0052, t01=0x016e}
0x0818a…0819e Head {h00=0x0010, h01=0x0050, text=» DATA PAALFA«, t00=0x0052, t01=0x0182}
0x0819e…081b2 Head {h00=0x0010, h01=0x0050, text=» DATA PAALFA«, t00=0x0053, t01=0x0008}
0x081b2…081c6 Head {h00=0x0010, h01=0x0050, text=» DATA PAALFA«, t00=0x0053, t01=0x001c}
0x081c6…081da Head {h00=0x0010, h01=0x0050, text=» DATA PAALFA«, t00=0x0053, t01=0x0030}
0x081da…081e6 Head {h00=0x0008, h01=0x0050, text=»*B0 «, t00=0x0053, t01=0x0044}
0x081e6…081f8 Head {h00=0x000e, h01=0x0050, text=» IFT PFX=1«, t00=0x0053, t01=0x0050}
0x081f8…0820a Head {h00=0x000e, h01=0x0050, text=» DATA PFEX«, t00=0x0053, t01=0x0062}
0x0820a…08216 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0053, t01=0x0074}
0x08216…08228 Head {h00=0x000e, h01=0x0050, text=» IFF PFX=1«, t00=0x0053, t01=0x0080}
0x08228…0823c Head {h00=0x0010, h01=0x0050, text=» DATA RETURN«, t00=0x0053, t01=0x0092}
0x0823c…08248 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0053, t01=0x00a6}
0x08248…0825a Head {h00=0x000e, h01=0x0050, text=» DATA PF 1«, t00=0x0053, t01=0x00b2}
0x0825a…0826c Head {h00=0x000e, h01=0x0050, text=» DATA PF 2«, t00=0x0053, t01=0x00c4}
0x0826c…0827e Head {h00=0x000e, h01=0x0050, text=» DATA PF 3«, t00=0x0053, t01=0x00d6}
0x0827e…08290 Head {h00=0x000e, h01=0x0050, text=» DATA PF 4«, t00=0x0053, t01=0x00e8}
0x08290…082a2 Head {h00=0x000e, h01=0x0050, text=» DATA PF 5«, t00=0x0053, t01=0x00fa}
0x082a2…082b4 Head {h00=0x000e, h01=0x0050, text=» DATA PF 6«, t00=0x0053, t01=0x010c}
0x082b4…082c6 Head {h00=0x000e, h01=0x0050, text=» DATA PF 7«, t00=0x0053, t01=0x011e}
0x082c6…082d8 Head {h00=0x000e, h01=0x0050, text=» DATA PF 8«, t00=0x0053, t01=0x0130}
0x082d8…082ea Head {h00=0x000e, h01=0x0050, text=» DATA PF 9«, t00=0x0053, t01=0x0142}
0x082ea…082fe Head {h00=0x0010, h01=0x0050, text=» DATA PF 10 «, t00=0x0053, t01=0x0154}
0x082fe…08312 Head {h00=0x0010, h01=0x0050, text=» DATA PF 11 «, t00=0x0053, t01=0x0168}
0x08312…08326 Head {h00=0x0010, h01=0x0050, text=» DATA PF 12 «, t00=0x0053, t01=0x017c}
0x08326…0833a Head {h00=0x0010, h01=0x0050, text=» DATA PF 13 «, t00=0x0053, t01=0x0190}
0x0833a…0834e Head {h00=0x0010, h01=0x0050, text=» DATA PF 14 «, t00=0x0054, t01=0x0014}
0x0834e…08362 Head {h00=0x0010, h01=0x0050, text=» DATA PF 15 «, t00=0x0054, t01=0x0028}
0x08362…0836e Head {h00=0x0008, h01=0x0050, text=»*C0 «, t00=0x0054, t01=0x003c}
0x0836e…08382 Head {h00=0x0010, h01=0x0050, text=» DATA PF 16 «, t00=0x0054, t01=0x0048}
0x08382…08396 Head {h00=0x0010, h01=0x0050, text=» DATA PF 17 «, t00=0x0054, t01=0x005c}
0x08396…083aa Head {h00=0x0010, h01=0x0050, text=» DATA PF 18 «, t00=0x0054, t01=0x0070}
0x083aa…083be Head {h00=0x0010, h01=0x0050, text=» DATA PF 19 «, t00=0x0054, t01=0x0084}
0x083be…083d2 Head {h00=0x0010, h01=0x0050, text=» DATA PF 20 «, t00=0x0054, t01=0x0098}
0x083d2…083e6 Head {h00=0x0010, h01=0x0050, text=» DATA PF 21 «, t00=0x0054, t01=0x00ac}
0x083e6…083fa Head {h00=0x0010, h01=0x0050, text=» DATA PF 22 «, t00=0x0054, t01=0x00c0}
0x083fa…0840e Head {h00=0x0010, h01=0x0050, text=» DATA PF 23 «, t00=0x0054, t01=0x00d4}
0x0840e…08422 Head {h00=0x0010, h01=0x0050, text=» DATA PF 24 «, t00=0x0054, t01=0x00e8}
0x08422…08436 Head {h00=0x0010, h01=0x0050, text=» IFF TEST=1 «, t00=0x0054, t01=0x00fc}
0x08436…0844a Head {h00=0x0010, h01=0x0050, text=» DATA RETURN«, t00=0x0054, t01=0x0110}
0x0844a…08456 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0054, t01=0x0124}
0x08456…0846a Head {h00=0x0010, h01=0x0050, text=» IFT TEST=1 «, t00=0x0054, t01=0x0130}
0x0846a…0847e Head {h00=0x0010, h01=0x0050, text=» DATA TESTM «, t00=0x0054, t01=0x0144}
0x0847e…0848a Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0054, t01=0x0158}
0x0848a…08498 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0054, t01=0x0164}
0x08498…084de Head {h00=0x0042, h01=0x0050, text=»**************************************************************«, t00=0x0054, t01=0x0172}
0x084de…08526 Head {h00=0x0044, h01=0x0050, text=»* * «, t00=0x0055, t01=0x0028}
0x08526…0856c Head {h00=0x0042, h01=0x0050, text=»* CHAR ALPHABETIC AND SPEC. CHAR UPDAT. DISPL. *«, t00=0x0055, t01=0x0070}
0x0856c…085b2 Head {h00=0x0042, h01=0x0050, text=»* *«, t00=0x0055, t01=0x00b6}
0x085b2…085f8 Head {h00=0x0042, h01=0x0050, text=»**************************************************************«, t00=0x0055, t01=0x00fc}
0x085f8…0860c Head {h00=0x0010, h01=0x0050, text=»* REGISTERS«, t00=0x0055, t01=0x0142}
0x0860c…08616 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0055, t01=0x0156}
0x08616…0862c Head {h00=0x0012, h01=0x0050, text=»* A2= KEY-CHAR«, t00=0x0055, t01=0x0160}
0x0862c…0864a Head {h00=0x001a, h01=0x0050, text=»* A3= ATTRIBUTE MASKL «, t00=0x0055, t01=0x0176}
0x0864a…08660 (86, 0, 400) Head {h00=0x0012, h01=0x0050, text=»* A4= RESERVED«, t00=0x0056, t01=0x0004}
0x08660…08676 Head {h00=0x0012, h01=0x0050, text=»* A5= RESERVED«, t00=0x0056, t01=0x001a}
0x08676…0868c Head {h00=0x0012, h01=0x0050, text=»* A6= RESERVED«, t00=0x0056, t01=0x0030}
0x0868c…086a4 Head {h00=0x0014, h01=0x0050, text=»* A11= RESERVED «, t00=0x0056, t01=0x0046}
0x086a4…086bc Head {h00=0x0014, h01=0x0050, text=»* A13= RESERVED «, t00=0x0056, t01=0x005e}
0x086bc…086c6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0056, t01=0x0076}
0x086c6…0870c Head {h00=0x0042, h01=0x0050, text=»**************************************************************«, t00=0x0056, t01=0x0080}
0x0870c…0871e Head {h00=0x000e, h01=0x0050, text=»CHAR EQU *«, t00=0x0056, t01=0x00c6}
0x0871e…08746 Head {h00=0x0024, h01=0x0050, text=» LDK A3,/30 LOAD ATTRIBUTE MASK «, t00=0x0056, t01=0x00d8}
0x08746…08770 Head {h00=0x0026, h01=0x0050, text=» CF A14,ANCOMM TAKE CARE OF CHAR. «, t00=0x0056, t01=0x0100}
0x08770…08780 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0056, t01=0x012a}
0x08780…0878e Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0056, t01=0x013a}
0x0878e…087d4 Head {h00=0x0042, h01=0x0050, text=»**************************************************************«, t00=0x0056, t01=0x0148}
0x087d4…0881a Head {h00=0x0042, h01=0x0050, text=»* *«, t00=0x0056, t01=0x018e}
0x0881a…08860 Head {h00=0x0042, h01=0x0050, text=»* NUM NUMERIC UPDAT. DISPL. *«, t00=0x0057, t01=0x0044}
0x08860…088a6 Head {h00=0x0042, h01=0x0050, text=»* NUMCOM NUMERIC COMMA *«, t00=0x0057, t01=0x008a}
0x088a6…088ee Head {h00=0x0044, h01=0x0050, text=»* * «, t00=0x0057, t01=0x00d0}
0x088ee…08934 Head {h00=0x0042, h01=0x0050, text=»**************************************************************«, t00=0x0057, t01=0x0118}
0x08934…08948 Head {h00=0x0010, h01=0x0050, text=»* REGISTERS«, t00=0x0057, t01=0x015e}
0x08948…08952 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0057, t01=0x0172}
0x08952…08968 Head {h00=0x0012, h01=0x0050, text=»* A2= KEY-CHAR«, t00=0x0057, t01=0x017c}
0x08968…08984 (88, 0, 400) Head {h00=0x0018, h01=0x0050, text=»* A3= ATTRIBUTE MASK«, t00=0x0058, t01=0x0004}
0x08984…0899a Head {h00=0x0012, h01=0x0050, text=»* A4= RESERVED«, t00=0x0058, t01=0x0020}
0x0899a…089b0 Head {h00=0x0012, h01=0x0050, text=»* A5= RESERVED«, t00=0x0058, t01=0x0036}
0x089b0…089c6 Head {h00=0x0012, h01=0x0050, text=»* A6= RESERVED«, t00=0x0058, t01=0x004c}
0x089c6…089de Head {h00=0x0014, h01=0x0050, text=»* A11= RESERVED «, t00=0x0058, t01=0x0062}
0x089de…089f6 Head {h00=0x0014, h01=0x0050, text=»* A13= RESERVED «, t00=0x0058, t01=0x007a}
0x089f6…08a00 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0058, t01=0x0092}
0x08a00…08a46 Head {h00=0x0042, h01=0x0050, text=»************************************************************* «, t00=0x0058, t01=0x009c}
0x08a46…08a5a Head {h00=0x0010, h01=0x0050, text=»NUMCOM EQU *«, t00=0x0058, t01=0x00e2}
0x08a5a…08a7a Head {h00=0x001c, h01=0x0050, text=» LDK A2,/2C INSERT COMMA«, t00=0x0058, t01=0x00f6}
0x08a7a…08a8c Head {h00=0x000e, h01=0x0050, text=»NUM EQU * «, t00=0x0058, t01=0x0116}
0x08a8c…08ab4 Head {h00=0x0024, h01=0x0050, text=» LDK A3,/20 LOAD ATTRIBUTE MASK «, t00=0x0058, t01=0x0128}
0x08ab4…08ade Head {h00=0x0026, h01=0x0050, text=» CF A14,ANCOMM TAKE CARE OF CHAR. «, t00=0x0058, t01=0x0150}
0x08ade…08aee Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0058, t01=0x017a}
0x08aee…08afc Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0058, t01=0x018a}
0x08afc…08b44 Head {h00=0x0044, h01=0x0050, text=»*************************************************************** «, t00=0x0059, t01=0x0008}
0x08b44…08b8c Head {h00=0x0044, h01=0x0050, text=»* * «, t00=0x0059, t01=0x0050}
0x08b8c…08bd4 Head {h00=0x0044, h01=0x0050, text=»* ANCOMM COMMON ROUTINE FOR ALPHANUM. CHAR. * «, t00=0x0059, t01=0x0098}
0x08bd4…08c1c Head {h00=0x0044, h01=0x0050, text=»* * «, t00=0x0059, t01=0x00e0}
0x08c1c…08c64 Head {h00=0x0044, h01=0x0050, text=»*************************************************************** «, t00=0x0059, t01=0x0128}
0x08c64…08c78 Head {h00=0x0010, h01=0x0050, text=»* REGISTERS«, t00=0x0059, t01=0x0170}
0x08c78…08c82 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0059, t01=0x0184}
0x08c82…08c98 Head {h00=0x0012, h01=0x0050, text=»* A2= KEY-CHAR«, t00=0x0059, t01=0x018e}
0x08c98…08cbe Head {h00=0x0022, h01=0x0050, text=»* A3= AT ENTRY ATTRIBUTE MASK «, t00=0x005a, t01=0x0014}
0x08cbe…08cdc Head {h00=0x001a, h01=0x0050, text=»* A4= REL. CURSOR POS.«, t00=0x005a, t01=0x003a}
0x08cdc…08cfe Head {h00=0x001e, h01=0x0050, text=»* A5= REL. ATTRIBUTE POS. «, t00=0x005a, t01=0x0058}
0x08cfe…08d1c Head {h00=0x001a, h01=0x0050, text=»* A6= ATTRIBUTE CHAR. «, t00=0x005a, t01=0x007a}
0x08d1c…08d3c Head {h00=0x001c, h01=0x0050, text=»* A11= CREDIT WORK AREA «, t00=0x005a, t01=0x0098}
0x08d3c…08d54 Head {h00=0x0014, h01=0x0050, text=»* A13= RESERVED «, t00=0x005a, t01=0x00b8}
0x08d54…08d5e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005a, t01=0x00d0}
0x08d5e…08da6 Head {h00=0x0044, h01=0x0050, text=»*************************************************************** «, t00=0x005a, t01=0x00da}
0x08da6…08dba Head {h00=0x0010, h01=0x0050, text=»ANCOMM EQU *«, t00=0x005a, t01=0x0122}
0x08dba…08de8 Head {h00=0x002a, h01=0x0050, text=» CF A14,SCRINF GET SCREEN INFORMATION «, t00=0x005a, t01=0x0136}
0x08de8…08e0e Head {h00=0x0022, h01=0x0050, text=» CWR A4,A5 CURSOR ON ATTRIBUTE«, t00=0x005a, t01=0x0164}
0x08e0e…08e28 Head {h00=0x0016, h01=0x0050, text=» RF(E) ANC800 YES «, t00=0x005a, t01=0x018a}
0x08e28…08e3a Head {h00=0x000e, h01=0x0050, text=» LDR A1,A6«, t00=0x005b, t01=0x0014}
0x08e3a…08e5c Head {h00=0x001e, h01=0x0050, text=» ANR A1,A3 ALLOWED POS. ? «, t00=0x005b, t01=0x0026}
0x08e5c…08e76 Head {h00=0x0016, h01=0x0050, text=» RF(NZ) ANC800 NO «, t00=0x005b, t01=0x0048}
0x08e76…08e8a Head {h00=0x0010, h01=0x0050, text=» IFT IN:DL=1«, t00=0x005b, t01=0x0062}
0x08e8a…08eae Head {h00=0x0020, h01=0x0050, text=» LD A1,MODE,A11 INSERT MODE?«, t00=0x005b, t01=0x0076}
0x08eae…08ec6 Head {h00=0x0014, h01=0x0050, text=» RF(Z) ANC100 NO«, t00=0x005b, t01=0x009a}
0x08ec6…08edc Head {h00=0x0012, h01=0x0050, text=» CF A14,INSMOD«, t00=0x005b, t01=0x00b2}
0x08edc…08eee Head {h00=0x000e, h01=0x0050, text=» LDR A7,A1«, t00=0x005b, t01=0x00c8}
0x08eee…08f10 Head {h00=0x001e, h01=0x0050, text=» ANK A7,1 INSRETED NORMAL?«, t00=0x005b, t01=0x00da}
0x08f10…08f2a Head {h00=0x0016, h01=0x0050, text=» RF(NZ) ANC900 YES«, t00=0x005b, t01=0x00fc}
0x08f2a…08f50 Head {h00=0x0022, h01=0x0050, text=» ANK A1,2 INSERT NOT ALLOWED? «, t00=0x005b, t01=0x0116}
0x08f50…08f6a Head {h00=0x0016, h01=0x0050, text=» RF(NZ) ANC800 YES«, t00=0x005b, t01=0x013c}
0x08f6a…08f76 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x005b, t01=0x0156}
0x08f76…08f8a Head {h00=0x0010, h01=0x0050, text=»ANC100 EQU *«, t00=0x005b, t01=0x0162}
0x08f8a…08f9c Head {h00=0x000e, h01=0x0050, text=» LDR A1,A4«, t00=0x005b, t01=0x0176}
0x08f9c…08fae Head {h00=0x000e, h01=0x0050, text=» LDR A7,A2«, t00=0x005b, t01=0x0188}
0x08fae…08fe2 Head {h00=0x0030, h01=0x0050, text=» CF A14,STOVDU STORE KEY-CHAR IN VDU BUFFER «, t00=0x005c, t01=0x000a}
0x08fe2…09010 Head {h00=0x002a, h01=0x0050, text=» CF A14,WCHAR DISPLAY CHAR AND CURSOR «, t00=0x005c, t01=0x003e}
0x09010…0904c Head {h00=0x0038, h01=0x0050, text=» CF A14,POSUNP MOVE CURSOR TO NEXT UNPROTECTED POS. «, t00=0x005c, t01=0x006c}
0x0904c…0905e Head {h00=0x000e, h01=0x0050, text=» RF ANC900«, t00=0x005c, t01=0x00a8}
0x0905e…09072 Head {h00=0x0010, h01=0x0050, text=»ANC800 EQU *«, t00=0x005c, t01=0x00ba}
0x09072…09096 Head {h00=0x0020, h01=0x0050, text=» CF A14,ERROR INDICATE ERROR«, t00=0x005c, t01=0x00ce}
0x09096…090aa Head {h00=0x0010, h01=0x0050, text=»ANC900 EQU *«, t00=0x005c, t01=0x00f2}
0x090aa…090ba Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x005c, t01=0x0106}
0x090ba…090c8 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x005c, t01=0x0116}
0x090c8…0910c Head {h00=0x0040, h01=0x0050, text=»************************************************************«, t00=0x005c, t01=0x0124}
0x0910c…09150 Head {h00=0x0040, h01=0x0050, text=»* *«, t00=0x005c, t01=0x0168}
0x09150…09194 Head {h00=0x0040, h01=0x0050, text=»* CURMOV MOVE CURSOR ON SCREEN *«, t00=0x005d, t01=0x001c}
0x09194…091d8 Head {h00=0x0040, h01=0x0050, text=»* *«, t00=0x005d, t01=0x0060}
0x091d8…0921c Head {h00=0x0040, h01=0x0050, text=»************************************************************«, t00=0x005d, t01=0x00a4}
0x0921c…09230 Head {h00=0x0010, h01=0x0050, text=»* REGISTERS«, t00=0x005d, t01=0x00e8}
0x09230…0923a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005d, t01=0x00fc}
0x0923a…09250 Head {h00=0x0012, h01=0x0050, text=»* A2= KEY-CHAR«, t00=0x005d, t01=0x0106}
0x09250…0926e Head {h00=0x001a, h01=0x0050, text=»* A4= REL. CURSOR POS.«, t00=0x005d, t01=0x011c}
0x0926e…09290 Head {h00=0x001e, h01=0x0050, text=»* A5= REL. ATTRIBUTE POS. «, t00=0x005d, t01=0x013a}
0x09290…092ac Head {h00=0x0018, h01=0x0050, text=»* A6= ATTRIBUTE CHAR«, t00=0x005d, t01=0x015c}
0x092ac…092c4 Head {h00=0x0014, h01=0x0050, text=»* A11= RESERVED «, t00=0x005d, t01=0x0178}
0x092c4…092dc Head {h00=0x0014, h01=0x0050, text=»* A13= RESERVED «, t00=0x005d, t01=0x0190}
0x092dc…092e6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005e, t01=0x0018}
0x092e6…0932a Head {h00=0x0040, h01=0x0050, text=»************************************************************«, t00=0x005e, t01=0x0022}
0x0932a…0933e Head {h00=0x0010, h01=0x0050, text=»CURMOV EQU *«, t00=0x005e, t01=0x0066}
0x0933e…09366 Head {h00=0x0024, h01=0x0050, text=» CF A14,SCRINF GET SCREEN INFO. «, t00=0x005e, t01=0x007a}
0x09366…09384 Head {h00=0x001a, h01=0x0050, text=» SUK A2,CRUP GET INDEX«, t00=0x005e, t01=0x00a2}
0x09384…09396 Head {h00=0x000e, h01=0x0050, text=» ADR A2,A2«, t00=0x005e, t01=0x00c0}
0x09396…093c6 Head {h00=0x002c, h01=0x0050, text=» CFI A14,CURTAB,A2 JUMP IN CURSOR TABLE «, t00=0x005e, t01=0x00d2}
0x093c6…093f4 Head {h00=0x002a, h01=0x0050, text=» CF A14,STOINF SAVE SCREEN INFORMATION«, t00=0x005e, t01=0x0102}
0x093f4…0941e Head {h00=0x0026, h01=0x0050, text=» CWK A5,LBVDU+1 UNFORMATTED SCREEN«, t00=0x005e, t01=0x0130}
0x0941e…09438 Head {h00=0x0016, h01=0x0050, text=» RF(E) CURM10 YES «, t00=0x005e, t01=0x015a}
0x09438…0944a Head {h00=0x000e, h01=0x0050, text=» LDR A1,A4«, t00=0x005e, t01=0x0174}
0x0944a…09472 Head {h00=0x0024, h01=0x0050, text=» CF A14,ATMASB UPDATE ATTRIBUTE «, t00=0x005e, t01=0x0186}
0x09472…09486 Head {h00=0x0010, h01=0x0050, text=»CURM10 EQU *«, t00=0x005f, t01=0x001e}
0x09486…094a4 Head {h00=0x001a, h01=0x0050, text=» LDK A1,2 REQ. LENGTH «, t00=0x005f, t01=0x0032}
0x094a4…094c6 Head {h00=0x001e, h01=0x0050, text=» CF A14,DISCHA SET CURSOR «, t00=0x005f, t01=0x0050}
0x094c6…094d6 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x005f, t01=0x0072}
0x094d6…094e4 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x005f, t01=0x0082}
0x094e4…0950c Head {h00=0x0024, h01=0x0050, text=»* CURTAB CURSOR JUMP TABLE«, t00=0x005f, t01=0x0090}
0x0950c…09520 Head {h00=0x0010, h01=0x0050, text=»CURTAB EQU *«, t00=0x005f, t01=0x00b8}
0x09520…09548 Head {h00=0x0024, h01=0x0050, text=» DATA CRLEFT MOVE CURSOR TO LEFT«, t00=0x005f, t01=0x00cc}
0x09548…09572 Head {h00=0x0026, h01=0x0050, text=» DATA CRRIGT MOVE CURSOR TO RIGHT «, t00=0x005f, t01=0x00f4}
0x09572…09598 Head {h00=0x0022, h01=0x0050, text=» DATA CRDOWN MOVE CURSOR DOWN «, t00=0x005f, t01=0x011e}
0x09598…095ba Head {h00=0x001e, h01=0x0050, text=» DATA CURUP MOVE CURSOR UP«, t00=0x005f, t01=0x0144}
0x095ba…095e4 Head {h00=0x0026, h01=0x0050, text=»* CRLEFT MOVE CURSOR TO LEFT«, t00=0x005f, t01=0x0166}
0x095e4…095f8 Head {h00=0x0010, h01=0x0050, text=»CRLEFT EQU *«, t00=0x005f, t01=0x0190}
0x095f8…0960a Head {h00=0x000e, h01=0x0050, text=» SUK A4,1 «, t00=0x0060, t01=0x0014}
0x0960a…09632 Head {h00=0x0024, h01=0x0050, text=» RF(NN) CRRET NOT LEFTMOST POS. «, t00=0x0060, t01=0x0026}
0x09632…0965e Head {h00=0x0028, h01=0x0050, text=» LDKL A4,LBVDU-1 LAST POS. ON SCREEN«, t00=0x0060, t01=0x004e}
0x0965e…09670 Head {h00=0x000e, h01=0x0050, text=» RF CRRET «, t00=0x0060, t01=0x007a}
0x09670…0969c Head {h00=0x0028, h01=0x0050, text=»* CRRIGT MOVE CURSOR TO RIGHT «, t00=0x0060, t01=0x008c}
0x0969c…096b0 Head {h00=0x0010, h01=0x0050, text=»CRRIGT EQU *«, t00=0x0060, t01=0x00b8}
0x096b0…096c2 Head {h00=0x000e, h01=0x0050, text=» ADK A4,1 «, t00=0x0060, t01=0x00cc}
0x096c2…096e6 Head {h00=0x0020, h01=0x0050, text=» CWK A4,LBVDU END OF BUFFER?«, t00=0x0060, t01=0x00de}
0x096e6…096fe Head {h00=0x0014, h01=0x0050, text=» RF(L) CRRET NO «, t00=0x0060, t01=0x0102}
0x096fe…09710 Head {h00=0x000e, h01=0x0050, text=» LDK A4,0 «, t00=0x0060, t01=0x011a}
0x09710…09722 Head {h00=0x000e, h01=0x0050, text=» RF CRRET «, t00=0x0060, t01=0x012c}
0x09722…0974a Head {h00=0x0024, h01=0x0050, text=»* CRDOWN MOVE CURSOR DOWN «, t00=0x0060, t01=0x013e}
0x0974a…0975e Head {h00=0x0010, h01=0x0050, text=»CRDOWN EQU *«, t00=0x0060, t01=0x0166}
0x0975e…09774 Head {h00=0x0012, h01=0x0050, text=» ADKL A4,LLINE«, t00=0x0060, t01=0x017a}
0x09774…09794 Head {h00=0x001c, h01=0x0050, text=» CWK A4,LBVDU LAST LINE?«, t00=0x0060, t01=0x0190}
0x09794…097ac Head {h00=0x0014, h01=0x0050, text=» RF(L) CRRET NO «, t00=0x0061, t01=0x0020}
0x097ac…097c2 Head {h00=0x0012, h01=0x0050, text=» SUKL A4,LBVDU«, t00=0x0061, t01=0x0038}
0x097c2…097d4 Head {h00=0x000e, h01=0x0050, text=» RF CRRET «, t00=0x0061, t01=0x004e}
0x097d4…097f8 Head {h00=0x0020, h01=0x0050, text=»* CURUP MOVE CURSOR UP«, t00=0x0061, t01=0x0060}
0x097f8…0980c Head {h00=0x0010, h01=0x0050, text=»CURUP EQU * «, t00=0x0061, t01=0x0084}
0x0980c…09822 Head {h00=0x0012, h01=0x0050, text=» SUKL A4,LLINE«, t00=0x0061, t01=0x0098}
0x09822…09844 Head {h00=0x001e, h01=0x0050, text=» RF(NN) CRRET UPMOST LINE «, t00=0x0061, t01=0x00ae}
0x09844…0985a Head {h00=0x0012, h01=0x0050, text=» ADKL A4,LBVDU«, t00=0x0061, t01=0x00d0}
0x0985a…0986e Head {h00=0x0010, h01=0x0050, text=»CRRET EQU * «, t00=0x0061, t01=0x00e6}
0x0986e…0987e Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0061, t01=0x00fa}
0x0987e…0988c Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0061, t01=0x010a}
0x0988c…098d2 Head {h00=0x0042, h01=0x0050, text=»**************************************************************«, t00=0x0061, t01=0x0118}
0x098d2…09918 Head {h00=0x0042, h01=0x0050, text=»* *«, t00=0x0061, t01=0x015e}
0x09918…0995e Head {h00=0x0042, h01=0x0050, text=»* BAKTAB TAB. UNPROTECTED BACKWARDS *«, t00=0x0062, t01=0x0014}
0x0995e…099a4 Head {h00=0x0042, h01=0x0050, text=»* *«, t00=0x0062, t01=0x005a}
0x099a4…099ea Head {h00=0x0042, h01=0x0050, text=»**************************************************************«, t00=0x0062, t01=0x00a0}
0x099ea…099fe Head {h00=0x0010, h01=0x0050, text=»* REGISTERS«, t00=0x0062, t01=0x00e6}
0x099fe…09a08 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0062, t01=0x00fa}
0x09a08…09a26 Head {h00=0x001a, h01=0x0050, text=»* A4= REL. CURSOR POS.«, t00=0x0062, t01=0x0104}
0x09a26…09a48 Head {h00=0x001e, h01=0x0050, text=»* A5= REL. ATTRIBUTE POS. «, t00=0x0062, t01=0x0122}
0x09a48…09a66 Head {h00=0x001a, h01=0x0050, text=»* A6= ATTRIBUTE CHAR. «, t00=0x0062, t01=0x0144}
0x09a66…09a8e Head {h00=0x0024, h01=0x0050, text=»* A9= REL. ATTRIBUTE START POS. «, t00=0x0062, t01=0x0162}
0x09a8e…09aa6 Head {h00=0x0014, h01=0x0050, text=»* A11= RESERVED «, t00=0x0062, t01=0x018a}
0x09aa6…09abe Head {h00=0x0014, h01=0x0050, text=»* A13= RESERVED «, t00=0x0063, t01=0x0012}
0x09abe…09ac8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0063, t01=0x002a}
0x09ac8…09b10 Head {h00=0x0044, h01=0x0050, text=»*************************************************************** «, t00=0x0063, t01=0x0034}
0x09b10…09b24 Head {h00=0x0010, h01=0x0050, text=»BAKTAB EQU *«, t00=0x0063, t01=0x007c}
0x09b24…09b52 Head {h00=0x002a, h01=0x0050, text=» CF A14,SCRINF GET SCREEN INFORMATION «, t00=0x0063, t01=0x0090}
0x09b52…09b64 Head {h00=0x000e, h01=0x0050, text=» LDR A9,A5«, t00=0x0063, t01=0x00be}
0x09b64…09b90 Head {h00=0x0028, h01=0x0050, text=» CWK A5,LBVDU+1 UNFORMATTED SCREEN? «, t00=0x0063, t01=0x00d0}
0x09b90…09baa Head {h00=0x0016, h01=0x0050, text=» RF(E) BAK600 YES «, t00=0x0063, t01=0x00fc}
0x09baa…09bd4 Head {h00=0x0026, h01=0x0050, text=» CWR A4,A5 STANDING ON ATTRIBUTE? «, t00=0x0063, t01=0x0116}
0x09bd4…09bee Head {h00=0x0016, h01=0x0050, text=» RF(E) BAK300 YES «, t00=0x0063, t01=0x0140}
0x09bee…09c00 Head {h00=0x000e, h01=0x0050, text=» SUK A4,1 «, t00=0x0063, t01=0x015a}
0x09c00…09c30 Head {h00=0x002c, h01=0x0050, text=» RF(NN) BAK100 NOT FIRST POS. ON SCREEN «, t00=0x0063, t01=0x016c}
0x09c30…09c5c Head {h00=0x0028, h01=0x0050, text=» LDKL A4,LBVDU-1 LAST POS. ON SCREEN«, t00=0x0064, t01=0x000c}
0x09c5c…09c70 Head {h00=0x0010, h01=0x0050, text=»BAK100 EQU *«, t00=0x0064, t01=0x0038}
0x09c70…09ca4 Head {h00=0x0030, h01=0x0050, text=» CWR A4,A5 STANDING ON POS. AFTER ATTRIBUTE?«, t00=0x0064, t01=0x004c}
0x09ca4…09cbe Head {h00=0x0016, h01=0x0050, text=» RF(E) BAK300 YES «, t00=0x0064, t01=0x0080}
0x09cbe…09cd0 Head {h00=0x000e, h01=0x0050, text=» LDR A4,A5«, t00=0x0064, t01=0x009a}
0x09cd0…09ce2 Head {h00=0x000e, h01=0x0050, text=» LDR A7,A6«, t00=0x0064, t01=0x00ac}
0x09ce2…09d06 Head {h00=0x0020, h01=0x0050, text=» ANK A7,/20 PROTECTED FIELD?«, t00=0x0064, t01=0x00be}
0x09d06…09d1e Head {h00=0x0014, h01=0x0050, text=» RF(Z) BAK500 NO«, t00=0x0064, t01=0x00e2}
0x09d1e…09d32 Head {h00=0x0010, h01=0x0050, text=»BAK300 EQU *«, t00=0x0064, t01=0x00fa}
0x09d32…09d44 Head {h00=0x000e, h01=0x0050, text=» SUK A4,1 «, t00=0x0064, t01=0x010e}
0x09d44…09d5a Head {h00=0x0012, h01=0x0050, text=» RF(NN) BAK400«, t00=0x0064, t01=0x0120}
0x09d5a…09d72 Head {h00=0x0014, h01=0x0050, text=» LDKL A4,LBVDU-1«, t00=0x0064, t01=0x0136}
0x09d72…09d86 Head {h00=0x0010, h01=0x0050, text=»BAK400 EQU *«, t00=0x0064, t01=0x014e}
0x09d86…09d98 Head {h00=0x000e, h01=0x0050, text=» LDR A1,A4«, t00=0x0064, t01=0x0162}
0x09d98…09dd6 Head {h00=0x003a, h01=0x0050, text=» CF A14,ATMASB SEARCH ATTRIBUTE BACKWARDS AND MASK IT «, t00=0x0064, t01=0x0174}
0x09dd6…09de8 Head {h00=0x000e, h01=0x0050, text=» LDR A7,A6«, t00=0x0065, t01=0x0022}
0x09de8…09e0c Head {h00=0x0020, h01=0x0050, text=» ANK A7,/20 PROTECTED FIELD?«, t00=0x0065, t01=0x0034}
0x09e0c…09e24 Head {h00=0x0014, h01=0x0050, text=» RF(Z) BAK500 NO«, t00=0x0065, t01=0x0058}
0x09e24…09e36 Head {h00=0x000e, h01=0x0050, text=» LDR A4,A5«, t00=0x0065, t01=0x0070}
0x09e36…09e60 Head {h00=0x0026, h01=0x0050, text=» CWR A5,A9 WHOLE SCREEN SEARCHED? «, t00=0x0065, t01=0x0082}
0x09e60…09e7a Head {h00=0x0016, h01=0x0050, text=» RB(NE) BAK300 NO «, t00=0x0065, t01=0x00ac}
0x09e7a…09e9e Head {h00=0x0020, h01=0x0050, text=» LDK A1,0 FIRST SCREEN POS. «, t00=0x0065, t01=0x00c6}
0x09e9e…09ece Head {h00=0x002c, h01=0x0050, text=» CF A14,ATMASB UPDATE FIELD INFORMATION «, t00=0x0065, t01=0x00ea}
0x09ece…09ee0 Head {h00=0x000e, h01=0x0050, text=» RF BAK600«, t00=0x0065, t01=0x011a}
0x09ee0…09ef4 Head {h00=0x0010, h01=0x0050, text=»BAK500 EQU *«, t00=0x0065, t01=0x012c}
0x09ef4…09f06 Head {h00=0x000e, h01=0x0050, text=» LDR A4,A5«, t00=0x0065, t01=0x0140}
0x09f06…09f18 Head {h00=0x000e, h01=0x0050, text=» ADK A4,1 «, t00=0x0065, t01=0x0152}
0x09f18…09f3c Head {h00=0x0020, h01=0x0050, text=» CWK A4,LBVDU-1 WRAP AROUND?«, t00=0x0065, t01=0x0164}
0x09f3c…09f56 Head {h00=0x0016, h01=0x0050, text=» RF(NG) BAK700 NO «, t00=0x0065, t01=0x0188}
0x09f56…09f6a Head {h00=0x0010, h01=0x0050, text=»BAK600 EQU *«, t00=0x0066, t01=0x0012}
0x09f6a…09f8e Head {h00=0x0020, h01=0x0050, text=» LDK A4,0 FIRST SCREEN POS. «, t00=0x0066, t01=0x0026}
0x09f8e…09fa2 Head {h00=0x0010, h01=0x0050, text=»BAK700 EQU *«, t00=0x0066, t01=0x004a}
0x09fa2…09fd0 Head {h00=0x002a, h01=0x0050, text=» CF A14,STOINF SAVE SCREEN INFORMATION«, t00=0x0066, t01=0x005e}
0x09fd0…09fee Head {h00=0x001a, h01=0x0050, text=» LDK A1,2 REQ. LENGTH «, t00=0x0066, t01=0x008c}
0x09fee…0a010 Head {h00=0x001e, h01=0x0050, text=» CF A14,DISCHA SET CURSOR «, t00=0x0066, t01=0x00aa}
0x0a010…0a020 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0066, t01=0x00cc}
0x0a020…0a02e Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0066, t01=0x00dc}
0x0a02e…0a074 Head {h00=0x0042, h01=0x0050, text=»************************************************************* «, t00=0x0066, t01=0x00ea}
0x0a074…0a0ba Head {h00=0x0042, h01=0x0050, text=»* * «, t00=0x0066, t01=0x0130}
0x0a0ba…0a100 Head {h00=0x0042, h01=0x0050, text=»* TAB TAB. UNPROTECTED FORWARD * «, t00=0x0066, t01=0x0176}
0x0a100…0a146 Head {h00=0x0042, h01=0x0050, text=»* * «, t00=0x0067, t01=0x002c}
0x0a146…0a18c Head {h00=0x0042, h01=0x0050, text=»************************************************************* «, t00=0x0067, t01=0x0072}
0x0a18c…0a1a0 Head {h00=0x0010, h01=0x0050, text=»* REGISTERS«, t00=0x0067, t01=0x00b8}
0x0a1a0…0a1aa Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0067, t01=0x00cc}
0x0a1aa…0a1c8 Head {h00=0x001a, h01=0x0050, text=»* A4= REL. CURSOR POS.«, t00=0x0067, t01=0x00d6}
0x0a1c8…0a1ea Head {h00=0x001e, h01=0x0050, text=»* A5= REL. ATTRIBUTE POS. «, t00=0x0067, t01=0x00f4}
0x0a1ea…0a208 Head {h00=0x001a, h01=0x0050, text=»* A6= ATTRIBUTE CHAR. «, t00=0x0067, t01=0x0116}
0x0a208…0a230 Head {h00=0x0024, h01=0x0050, text=»* A9= REL. ATTRIBUTE START POS. «, t00=0x0067, t01=0x0134}
0x0a230…0a248 Head {h00=0x0014, h01=0x0050, text=»* A11= RESERVED «, t00=0x0067, t01=0x015c}
0x0a248…0a260 Head {h00=0x0014, h01=0x0050, text=»* A13= RESERVED «, t00=0x0067, t01=0x0174}
0x0a260…0a26a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0067, t01=0x018c}
0x0a26a…0a2b0 Head {h00=0x0042, h01=0x0050, text=»**************************************************************«, t00=0x0068, t01=0x0008}
0x0a2b0…0a2c2 Head {h00=0x000e, h01=0x0050, text=»TAB EQU * «, t00=0x0068, t01=0x004e}
0x0a2c2…0a2f0 Head {h00=0x002a, h01=0x0050, text=» CF A14,SCRINF GET SCREEN INFORMATION «, t00=0x0068, t01=0x0060}
0x0a2f0…0a302 Head {h00=0x000e, h01=0x0050, text=» LDR A9,A5«, t00=0x0068, t01=0x008e}
0x0a302…0a32e Head {h00=0x0028, h01=0x0050, text=» CWK A5,LBVDU+1 UNFORMATTED SCREEN? «, t00=0x0068, t01=0x00a0}
0x0a32e…0a348 Head {h00=0x0016, h01=0x0050, text=» RF(E) TAB200 YES «, t00=0x0068, t01=0x00cc}
0x0a348…0a35c Head {h00=0x0010, h01=0x0050, text=»TAB100 EQU *«, t00=0x0068, t01=0x00e6}
0x0a35c…0a36e Head {h00=0x000e, h01=0x0050, text=» LDR A1,A4«, t00=0x0068, t01=0x00fa}
0x0a36e…0a39e Head {h00=0x002c, h01=0x0050, text=» CF A14,ATMASF SEARCH ATTRIBUTE FORWARD «, t00=0x0068, t01=0x010c}
0x0a39e…0a3c0 Head {h00=0x001e, h01=0x0050, text=» LDR A4,A5 NEW CURSOR POS.«, t00=0x0068, t01=0x013c}
0x0a3c0…0a3d2 Head {h00=0x000e, h01=0x0050, text=» LDR A7,A6«, t00=0x0068, t01=0x015e}
0x0a3d2…0a3f6 Head {h00=0x0020, h01=0x0050, text=» ANK A7,/20 PROTECTED FIELD?«, t00=0x0068, t01=0x0170}
0x0a3f6…0a40e (105, 0, 400) Head {h00=0x0014, h01=0x0050, text=» RF(Z) TAB150 NO«, t00=0x0069, t01=0x0004}
0x0a40e…0a438 Head {h00=0x0026, h01=0x0050, text=» CWR A5,A9 WHOLE SCREEN SEARCHED? «, t00=0x0069, t01=0x001c}
0x0a438…0a452 Head {h00=0x0016, h01=0x0050, text=» RB(NE) TAB100 NO «, t00=0x0069, t01=0x0046}
0x0a452…0a478 Head {h00=0x0022, h01=0x0050, text=» LDK A1,0 FIRST POS. ON SCREEN«, t00=0x0069, t01=0x0060}
0x0a478…0a4a8 Head {h00=0x002c, h01=0x0050, text=» CF A14,ATMASB UPDATE FIELD INFORMATION «, t00=0x0069, t01=0x0086}
0x0a4a8…0a4ba Head {h00=0x000e, h01=0x0050, text=» RF TAB200«, t00=0x0069, t01=0x00b6}
0x0a4ba…0a4ce Head {h00=0x0010, h01=0x0050, text=»TAB150 EQU *«, t00=0x0069, t01=0x00c8}
0x0a4ce…0a4e0 Head {h00=0x000e, h01=0x0050, text=» ADK A4,1 «, t00=0x0069, t01=0x00dc}
0x0a4e0…0a50a Head {h00=0x0026, h01=0x0050, text=» CWK A4,LBVDU-1 LAST SCREEN POS.? «, t00=0x0069, t01=0x00ee}
0x0a50a…0a524 Head {h00=0x0016, h01=0x0050, text=» RF(NG) TAB300 NO «, t00=0x0069, t01=0x0118}
0x0a524…0a538 Head {h00=0x0010, h01=0x0050, text=»TAB200 EQU *«, t00=0x0069, t01=0x0132}
0x0a538…0a55c Head {h00=0x0020, h01=0x0050, text=» LDK A4,0 FIRST SCREEN POS. «, t00=0x0069, t01=0x0146}
0x0a55c…0a570 Head {h00=0x0010, h01=0x0050, text=»TAB300 EQU *«, t00=0x0069, t01=0x016a}
0x0a570…0a59e Head {h00=0x002a, h01=0x0050, text=» CF A14,STOINF SAVE SCREEN INFORMATION«, t00=0x0069, t01=0x017e}
0x0a59e…0a5bc Head {h00=0x001a, h01=0x0050, text=» LDK A1,2 REQ. LENGTH «, t00=0x006a, t01=0x001c}
0x0a5bc…0a5de Head {h00=0x001e, h01=0x0050, text=» CF A14,DISCHA SET CURSOR «, t00=0x006a, t01=0x003a}
0x0a5de…0a5ee Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x006a, t01=0x005c}
0x0a5ee…0a5fc Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x006a, t01=0x006c}
0x0a5fc…0a648 Head {h00=0x0048, h01=0x0050, text=»******************************************************************* «, t00=0x006a, t01=0x007a}
0x0a648…0a694 Head {h00=0x0048, h01=0x0050, text=»* * «, t00=0x006a, t01=0x00c6}
0x0a694…0a6e0 Head {h00=0x0048, h01=0x0050, text=»* CRNL TAB. UNPROTECTED TO NEXT LINE * «, t00=0x006a, t01=0x0112}
0x0a6e0…0a72c Head {h00=0x0048, h01=0x0050, text=»* * «, t00=0x006a, t01=0x015e}
0x0a72c…0a778 Head {h00=0x0048, h01=0x0050, text=»******************************************************************* «, t00=0x006b, t01=0x001a}
0x0a778…0a78c Head {h00=0x0010, h01=0x0050, text=»* REGISTERS«, t00=0x006b, t01=0x0066}
0x0a78c…0a796 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006b, t01=0x007a}
0x0a796…0a7b4 Head {h00=0x001a, h01=0x0050, text=»* A4= REL. CURSOR POS.«, t00=0x006b, t01=0x0084}
0x0a7b4…0a7d6 Head {h00=0x001e, h01=0x0050, text=»* A5= REL. ATTRIBUTE POS. «, t00=0x006b, t01=0x00a2}
0x0a7d6…0a7f4 Head {h00=0x001a, h01=0x0050, text=»* A6= ATTRIBUTE CHAR. «, t00=0x006b, t01=0x00c4}
0x0a7f4…0a80c Head {h00=0x0014, h01=0x0050, text=»* A11= RESERVED «, t00=0x006b, t01=0x00e2}
0x0a80c…0a824 Head {h00=0x0014, h01=0x0050, text=»* A13= RESERVED «, t00=0x006b, t01=0x00fa}
0x0a824…0a82e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006b, t01=0x0112}
0x0a82e…0a878 Head {h00=0x0046, h01=0x0050, text=»***************************************************************** «, t00=0x006b, t01=0x011c}
0x0a878…0a88a Head {h00=0x000e, h01=0x0050, text=»CRNL EQU *«, t00=0x006b, t01=0x0166}
0x0a88a…0a8b8 Head {h00=0x002a, h01=0x0050, text=» CF A14,SCRINF GET SCREEN INFORMATION «, t00=0x006b, t01=0x0178}
0x0a8b8…0a8e0 Head {h00=0x0024, h01=0x0050, text=» CF A14,CRDOWN MOVE CURSOR DOWN «, t00=0x006c, t01=0x0016}
0x0a8e0…0a908 Head {h00=0x0024, h01=0x0050, text=» LDK A1,0 COMPUTE LEFTMOST POS. «, t00=0x006c, t01=0x003e}
0x0a908…0a91c Head {h00=0x0010, h01=0x0050, text=»CRN100 EQU *«, t00=0x006c, t01=0x0066}
0x0a91c…0a932 Head {h00=0x0012, h01=0x0050, text=» SUK A4,LLINE «, t00=0x006c, t01=0x007a}
0x0a932…0a948 Head {h00=0x0012, h01=0x0050, text=» RF(N) CRN200 «, t00=0x006c, t01=0x0090}
0x0a948…0a95e Head {h00=0x0012, h01=0x0050, text=» ADK A1,LLINE «, t00=0x006c, t01=0x00a6}
0x0a95e…0a970 Head {h00=0x000e, h01=0x0050, text=» RB CRN100«, t00=0x006c, t01=0x00bc}
0x0a970…0a984 Head {h00=0x0010, h01=0x0050, text=»CRN200 EQU *«, t00=0x006c, t01=0x00ce}
0x0a984…0a996 Head {h00=0x000e, h01=0x0050, text=» LDR A4,A1«, t00=0x006c, t01=0x00e2}
0x0a996…0a9c2 Head {h00=0x0028, h01=0x0050, text=» CWK A5,LBVDU+1 UNFORMATTED SCREEN? «, t00=0x006c, t01=0x00f4}
0x0a9c2…0a9dc Head {h00=0x0016, h01=0x0050, text=» RF(E) CRN800 YES «, t00=0x006c, t01=0x0120}
0x0a9dc…0aa0a Head {h00=0x002a, h01=0x0050, text=» CF A14,GETVDU GET CHAR. IN VDU BUFFER«, t00=0x006c, t01=0x013a}
0x0aa0a…0aa28 Head {h00=0x001a, h01=0x0050, text=» CCK A7,/80 ATTRIBUTE?«, t00=0x006c, t01=0x0168}
0x0aa28…0aa42 Head {h00=0x0016, h01=0x0050, text=» RF(NL) CRN400 YES«, t00=0x006c, t01=0x0186}
0x0aa42…0aa54 Head {h00=0x000e, h01=0x0050, text=» LDR A1,A4«, t00=0x006d, t01=0x0010}
0x0aa54…0aa84 Head {h00=0x002c, h01=0x0050, text=» CF A14,ATMASB SEARCH ATTRIBUTE BACKWARD«, t00=0x006d, t01=0x0022}
0x0aa84…0aa96 Head {h00=0x000e, h01=0x0050, text=» LDR A7,A6«, t00=0x006d, t01=0x0052}
0x0aa96…0aab4 Head {h00=0x001a, h01=0x0050, text=» ANK A7,/20 PROTECTED?«, t00=0x006d, t01=0x0064}
0x0aab4…0aacc Head {h00=0x0014, h01=0x0050, text=» RF(Z) CRN800 NO«, t00=0x006d, t01=0x0082}
0x0aacc…0aade Head {h00=0x000e, h01=0x0050, text=» RF CRN500«, t00=0x006d, t01=0x009a}
0x0aade…0aaf2 Head {h00=0x0010, h01=0x0050, text=»CRN400 EQU *«, t00=0x006d, t01=0x00ac}
0x0aaf2…0ab04 Head {h00=0x000e, h01=0x0050, text=» SUK A4,1 «, t00=0x006d, t01=0x00c0}
0x0ab04…0ab2a Head {h00=0x0022, h01=0x0050, text=» RF(NN) CRN500 NOT WRAP AROUND«, t00=0x006d, t01=0x00d2}
0x0ab2a…0ab54 Head {h00=0x0026, h01=0x0050, text=» LDKL A4,LBVDU-1 LAST SCREEN POS. «, t00=0x006d, t01=0x00f8}
0x0ab54…0ab68 Head {h00=0x0010, h01=0x0050, text=»CRN500 EQU *«, t00=0x006d, t01=0x0122}
0x0ab68…0ab96 Head {h00=0x002a, h01=0x0050, text=» CF A14,STOINF SAVE SCREEN INFORMATION«, t00=0x006d, t01=0x0136}
0x0ab96…0abc2 Head {h00=0x0028, h01=0x0050, text=» CF A14,TAB TAB. UNPROTECTED FORWARD«, t00=0x006d, t01=0x0164}
0x0abc2…0abd4 Head {h00=0x000e, h01=0x0050, text=» RF CRN900«, t00=0x006d, t01=0x0190}
0x0abd4…0abe8 Head {h00=0x0010, h01=0x0050, text=»CRN800 EQU *«, t00=0x006e, t01=0x0012}
0x0abe8…0ac16 Head {h00=0x002a, h01=0x0050, text=» CF A14,STOINF SAVE SCREEN INFORMATION«, t00=0x006e, t01=0x0026}
0x0ac16…0ac34 Head {h00=0x001a, h01=0x0050, text=» LDK A1,2 REQ. LENGTH «, t00=0x006e, t01=0x0054}
0x0ac34…0ac56 Head {h00=0x001e, h01=0x0050, text=» CF A14,DISCHA SET CURSOR «, t00=0x006e, t01=0x0072}
0x0ac56…0ac6a Head {h00=0x0010, h01=0x0050, text=»CRN900 EQU *«, t00=0x006e, t01=0x0094}
0x0ac6a…0ac7a Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x006e, t01=0x00a8}
0x0ac7a…0ac88 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x006e, t01=0x00b8}
0x0ac88…0acd6 Head {h00=0x004a, h01=0x0050, text=»********************************************************************* «, t00=0x006e, t01=0x00c6}
0x0acd6…0ad24 Head {h00=0x004a, h01=0x0050, text=»* * «, t00=0x006e, t01=0x0114}
0x0ad24…0ad72 Head {h00=0x004a, h01=0x0050, text=»* RDHOME TAB. UNPROTECTED FIRST ON SCREEN * «, t00=0x006e, t01=0x0162}
0x0ad72…0adc0 Head {h00=0x004a, h01=0x0050, text=»* * «, t00=0x006f, t01=0x0020}
0x0adc0…0ae0e Head {h00=0x004a, h01=0x0050, text=»********************************************************************* «, t00=0x006f, t01=0x006e}
0x0ae0e…0ae22 Head {h00=0x0010, h01=0x0050, text=»* REGISTERS«, t00=0x006f, t01=0x00bc}
0x0ae22…0ae2c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006f, t01=0x00d0}
0x0ae2c…0ae4a Head {h00=0x001a, h01=0x0050, text=»* A4= REL. CURSOR POS.«, t00=0x006f, t01=0x00da}
0x0ae4a…0ae6c Head {h00=0x001e, h01=0x0050, text=»* A5= REL. ATTRIBUTE POS. «, t00=0x006f, t01=0x00f8}
0x0ae6c…0ae8a Head {h00=0x001a, h01=0x0050, text=»* A6= ATTRIBUTE CHAR. «, t00=0x006f, t01=0x011a}
0x0ae8a…0aea2 Head {h00=0x0014, h01=0x0050, text=»* A11= RESERVED «, t00=0x006f, t01=0x0138}
0x0aea2…0aeba Head {h00=0x0014, h01=0x0050, text=»* A13= RESERVED «, t00=0x006f, t01=0x0150}
0x0aeba…0aec4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006f, t01=0x0168}
0x0aec4…0af12 Head {h00=0x004a, h01=0x0050, text=»********************************************************************* «, t00=0x006f, t01=0x0172}
0x0af12…0af26 Head {h00=0x0010, h01=0x0050, text=»RDHOME EQU *«, t00=0x0070, t01=0x0030}
0x0af26…0af54 Head {h00=0x002a, h01=0x0050, text=» CF A14,SCRINF GET SCREEN INFORMATION «, t00=0x0070, t01=0x0044}
0x0af54…0af7a Head {h00=0x0022, h01=0x0050, text=» LDK A4,0 FIRST POS. ON SCREEN«, t00=0x0070, t01=0x0072}
0x0af7a…0af90 Head {h00=0x0012, h01=0x0050, text=» CF A14,STOINF«, t00=0x0070, t01=0x0098}
0x0af90…0afbc Head {h00=0x0028, h01=0x0050, text=» CWK A5,LBVDU+1 UNFORMATTED SCREEN? «, t00=0x0070, t01=0x00ae}
0x0afbc…0afd6 Head {h00=0x0016, h01=0x0050, text=» RF(E) RDH800 YES «, t00=0x0070, t01=0x00da}
0x0afd6…0afe8 Head {h00=0x000e, h01=0x0050, text=» LDR A1,A4«, t00=0x0070, t01=0x00f4}
0x0afe8…0b016 Head {h00=0x002a, h01=0x0050, text=» CF A14,GETVDU GET CHAR. IN VDU BUFFER«, t00=0x0070, t01=0x0106}
0x0b016…0b036 Head {h00=0x001c, h01=0x0050, text=» CCK A7,/8000 ATTRIBUTE?«, t00=0x0070, t01=0x0134}
0x0b036…0b04e Head {h00=0x0014, h01=0x0050, text=» RF(L) RDH100 NO«, t00=0x0070, t01=0x0154}
0x0b04e…0b078 Head {h00=0x0026, h01=0x0050, text=» LDKL A4,LBVDU-1 LAST SCREEN POS. «, t00=0x0070, t01=0x016c}
0x0b078…0b0a6 Head {h00=0x002a, h01=0x0050, text=» CF A14,STOINF SAVE SCREEN INFORMATION«, t00=0x0071, t01=0x0008}
0x0b0a6…0b0b8 Head {h00=0x000e, h01=0x0050, text=» RF RDH300«, t00=0x0071, t01=0x0036}
0x0b0b8…0b0cc Head {h00=0x0010, h01=0x0050, text=»RDH100 EQU *«, t00=0x0071, t01=0x0048}
0x0b0cc…0b0de Head {h00=0x000e, h01=0x0050, text=» LDR A1,A4«, t00=0x0071, t01=0x005c}
0x0b0de…0b10c Head {h00=0x002a, h01=0x0050, text=» CF A14,ATMASB GET ATTRIBUTE BACKWARD «, t00=0x0071, t01=0x006e}
0x0b10c…0b11e Head {h00=0x000e, h01=0x0050, text=» LDR A7,A6«, t00=0x0071, t01=0x009c}
0x0b11e…0b13c Head {h00=0x001a, h01=0x0050, text=» ANK A7,/20 PROTECTED?«, t00=0x0071, t01=0x00ae}
0x0b13c…0b154 Head {h00=0x0014, h01=0x0050, text=» RF(Z) RDH800 NO«, t00=0x0071, t01=0x00cc}
0x0b154…0b168 Head {h00=0x0010, h01=0x0050, text=»RDH300 EQU *«, t00=0x0071, t01=0x00e4}
0x0b168…0b194 Head {h00=0x0028, h01=0x0050, text=» CF A14,TAB TAB. UNPROTECTED FORWARD«, t00=0x0071, t01=0x00f8}
0x0b194…0b1a6 Head {h00=0x000e, h01=0x0050, text=» RF RDH900«, t00=0x0071, t01=0x0124}
0x0b1a6…0b1ba Head {h00=0x0010, h01=0x0050, text=»RDH800 EQU *«, t00=0x0071, t01=0x0136}
0x0b1ba…0b1e8 Head {h00=0x002a, h01=0x0050, text=» CF A14,STOINF SAVE SCREEN INFORMATION«, t00=0x0071, t01=0x014a}
0x0b1e8…0b206 Head {h00=0x001a, h01=0x0050, text=» LDK A1,2 REQ. LENGTH «, t00=0x0071, t01=0x0178}
0x0b206…0b228 Head {h00=0x001e, h01=0x0050, text=» CF A14,DISCHA SET CURSOR «, t00=0x0072, t01=0x0008}
0x0b228…0b23c Head {h00=0x0010, h01=0x0050, text=»RDH900 EQU *«, t00=0x0072, t01=0x002a}
0x0b23c…0b24c Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0072, t01=0x003e}
0x0b24c…0b25a Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0072, t01=0x004e}
0x0b25a…0b2a0 Head {h00=0x0042, h01=0x0050, text=»************************************************************* «, t00=0x0072, t01=0x005c}
0x0b2a0…0b2e6 Head {h00=0x0042, h01=0x0050, text=»* * «, t00=0x0072, t01=0x00a2}
0x0b2e6…0b32c Head {h00=0x0042, h01=0x0050, text=»* EREOF ERASE TO END OF FIELD * «, t00=0x0072, t01=0x00e8}
0x0b32c…0b370 Head {h00=0x0040, h01=0x0050, text=»* *«, t00=0x0072, t01=0x012e}
0x0b370…0b3b6 Head {h00=0x0042, h01=0x0050, text=»************************************************************* «, t00=0x0072, t01=0x0172}
0x0b3b6…0b3ca Head {h00=0x0010, h01=0x0050, text=»* REGISTERS«, t00=0x0073, t01=0x0028}
0x0b3ca…0b3d4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0073, t01=0x003c}
0x0b3d4…0b3f2 Head {h00=0x001a, h01=0x0050, text=»* A4= REL. CURSOR POS.«, t00=0x0073, t01=0x0046}
0x0b3f2…0b414 Head {h00=0x001e, h01=0x0050, text=»* A5= REL. ATTRIBUTE POS. «, t00=0x0073, t01=0x0064}
0x0b414…0b432 Head {h00=0x001a, h01=0x0050, text=»* A6= ATTRIBUTE CHAR. «, t00=0x0073, t01=0x0086}
0x0b432…0b44a Head {h00=0x0014, h01=0x0050, text=»* A11= RESERVED «, t00=0x0073, t01=0x00a4}
0x0b44a…0b462 Head {h00=0x0014, h01=0x0050, text=»* A13= RESERVED «, t00=0x0073, t01=0x00bc}
0x0b462…0b46c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0073, t01=0x00d4}
0x0b46c…0b4b8 Head {h00=0x0048, h01=0x0050, text=»******************************************************************* «, t00=0x0073, t01=0x00de}
0x0b4b8…0b4cc Head {h00=0x0010, h01=0x0050, text=»EREOF EQU * «, t00=0x0073, t01=0x012a}
0x0b4cc…0b4fa Head {h00=0x002a, h01=0x0050, text=» CF A14,SCRINF GET SCREEN INFORMATION «, t00=0x0073, t01=0x013e}
0x0b4fa…0b526 Head {h00=0x0028, h01=0x0050, text=» CWK A5,LBVDU+1 UNFORMATTED SCREEN? «, t00=0x0073, t01=0x016c}
0x0b526…0b540 Head {h00=0x0016, h01=0x0050, text=» RF(E) ERE700 YES «, t00=0x0074, t01=0x0008}
0x0b540…0b552 Head {h00=0x000e, h01=0x0050, text=» LDR A7,A6«, t00=0x0074, t01=0x0022}
0x0b552…0b576 Head {h00=0x0020, h01=0x0050, text=» ANK A7,/20 PROTECTED FIELD?«, t00=0x0074, t01=0x0034}
0x0b576…0b590 Head {h00=0x0016, h01=0x0050, text=» RF(NZ) ERE600 YES«, t00=0x0074, t01=0x0058}
0x0b590…0b5ba Head {h00=0x0026, h01=0x0050, text=» CWR A5,A4 STANDING ON ATTRIBUTE? «, t00=0x0074, t01=0x0072}
0x0b5ba…0b5d4 Head {h00=0x0016, h01=0x0050, text=» RF(E) ERE600 YES «, t00=0x0074, t01=0x009c}
0x0b5d4…0b5e6 Head {h00=0x000e, h01=0x0050, text=» LDR A1,A4«, t00=0x0074, t01=0x00b6}
0x0b5e6…0b602 Head {h00=0x0018, h01=0x0050, text=» LDR A8,A6 SAVE OLD «, t00=0x0074, t01=0x00c8}
0x0b602…0b61e Head {h00=0x0018, h01=0x0050, text=» LDR A9,A5 SAVE OLD «, t00=0x0074, t01=0x00e4}
0x0b61e…0b64e Head {h00=0x002c, h01=0x0050, text=» CF A14,ATMASF SEARCH ATTRIBUTE FORWARD «, t00=0x0074, t01=0x0100}
0x0b64e…0b660 Head {h00=0x000e, h01=0x0050, text=» LDR A3,A5«, t00=0x0074, t01=0x0130}
0x0b660…0b672 Head {h00=0x000e, h01=0x0050, text=» LDR A6,A8«, t00=0x0074, t01=0x0142}
0x0b672…0b684 Head {h00=0x000e, h01=0x0050, text=» LDR A5,A9«, t00=0x0074, t01=0x0154}
0x0b684…0b6ae Head {h00=0x0026, h01=0x0050, text=» ORK A6,1 SET MDT-BIT IN ATTRIBUTE«, t00=0x0074, t01=0x0166}
0x0b6ae…0b6c0 Head {h00=0x000e, h01=0x0050, text=» LDR A7,A6«, t00=0x0074, t01=0x0190}
0x0b6c0…0b6d2 Head {h00=0x000e, h01=0x0050, text=» LDR A1,A5«, t00=0x0075, t01=0x0012}
0x0b6d2…0b70a Head {h00=0x0034, h01=0x0050, text=» CF A14,STOVDU STORE NEW ATTRIBUTE IN VDU BUFFER«, t00=0x0075, t01=0x0024}
0x0b70a…0b73c Head {h00=0x002e, h01=0x0050, text=» CF A14,STOINF SAVE NEW SCREEN INFORMATION«, t00=0x0075, t01=0x005c}
0x0b73c…0b75c Head {h00=0x001c, h01=0x0050, text=» LDR A1,A3 STOP ADDRESS «, t00=0x0075, t01=0x008e}
0x0b75c…0b76e Head {h00=0x000e, h01=0x0050, text=» RF ERE800«, t00=0x0075, t01=0x00ae}
0x0b76e…0b782 Head {h00=0x0010, h01=0x0050, text=»ERE600 EQU *«, t00=0x0075, t01=0x00c0}
0x0b782…0b7a6 Head {h00=0x0020, h01=0x0050, text=» CF A14,ERROR INDICATE ERROR«, t00=0x0075, t01=0x00d4}
0x0b7a6…0b7b8 Head {h00=0x000e, h01=0x0050, text=» RF ERE900«, t00=0x0075, t01=0x00f8}
0x0b7b8…0b7cc Head {h00=0x0010, h01=0x0050, text=»ERE700 EQU *«, t00=0x0075, t01=0x010a}
0x0b7cc…0b7f4 Head {h00=0x0024, h01=0x0050, text=» CF A14,LINE ERASE ONE LINE DK1 «, t00=0x0075, t01=0x011e}
0x0b7f4…0b80c Head {h00=0x0014, h01=0x0050, text=» LDR A1,A5 DK1 «, t00=0x0075, t01=0x0146}
0x0b80c…0b826 Head {h00=0x0016, h01=0x0050, text=» CWK A1,LBVDU DK1«, t00=0x0075, t01=0x015e}
0x0b826…0b840 Head {h00=0x0016, h01=0x0050, text=» RF(L) ERE710 DK1«, t00=0x0075, t01=0x0178}
0x0b840…0b862 (118, 0, 400) Head {h00=0x001e, h01=0x0050, text=» LDK A1,0 STOP ADDRESS =3 «, t00=0x0076, t01=0x0004}
0x0b862…0b87c Head {h00=0x0016, h01=0x0050, text=»ERE710 EQU * DK1 «, t00=0x0076, t01=0x0026}
0x0b87c…0b898 Head {h00=0x0018, h01=0x0050, text=» CF A14,SCRINF DK1 «, t00=0x0076, t01=0x0040}
0x0b898…0b8ac Head {h00=0x0010, h01=0x0050, text=»ERE800 EQU *«, t00=0x0076, t01=0x005c}
0x0b8ac…0b8c0 Head {h00=0x0010, h01=0x0050, text=» SUR A10,A10«, t00=0x0076, t01=0x0070}
0x0b8c0…0b8f4 Head {h00=0x0030, h01=0x0050, text=» CF A14,ERASUA ERASE UNPROTECTED TO ADDRESS «, t00=0x0076, t01=0x0084}
0x0b8f4…0b922 Head {h00=0x002a, h01=0x0050, text=» CF A14,DISMOD DISPLAY MODIFIED FIELD «, t00=0x0076, t01=0x00b8}
0x0b922…0b936 Head {h00=0x0010, h01=0x0050, text=»ERE900 EQU *«, t00=0x0076, t01=0x00e6}
0x0b936…0b946 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0076, t01=0x00fa}
0x0b946…0b954 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0076, t01=0x010a}
0x0b954…0b9a0 Head {h00=0x0048, h01=0x0050, text=»******************************************************************* «, t00=0x0076, t01=0x0118}
0x0b9a0…0b9ec Head {h00=0x0048, h01=0x0050, text=»* * «, t00=0x0076, t01=0x0164}
0x0b9ec…0ba38 Head {h00=0x0048, h01=0x0050, text=»* ERINPT ERASE UNPROTECTED ENTIRE SCREEN * «, t00=0x0077, t01=0x0020}
0x0ba38…0ba84 Head {h00=0x0048, h01=0x0050, text=»* * «, t00=0x0077, t01=0x006c}
0x0ba84…0bad0 Head {h00=0x0048, h01=0x0050, text=»******************************************************************* «, t00=0x0077, t01=0x00b8}
0x0bad0…0bae4 Head {h00=0x0010, h01=0x0050, text=»* REGISTERS«, t00=0x0077, t01=0x0104}
0x0bae4…0baee Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0077, t01=0x0118}
0x0baee…0bb0c Head {h00=0x001a, h01=0x0050, text=»* A4= REL. CURSOR POS.«, t00=0x0077, t01=0x0122}
0x0bb0c…0bb2e Head {h00=0x001e, h01=0x0050, text=»* A5= REL. ATTRIBUTE POS. «, t00=0x0077, t01=0x0140}
0x0bb2e…0bb4c Head {h00=0x001a, h01=0x0050, text=»* A6= ATTRIBUTE CHAR. «, t00=0x0077, t01=0x0162}
0x0bb4c…0bb64 Head {h00=0x0014, h01=0x0050, text=»* A11= RESERVED «, t00=0x0077, t01=0x0180}
0x0bb64…0bb7c Head {h00=0x0014, h01=0x0050, text=»* A13= RESERVED «, t00=0x0078, t01=0x0008}
0x0bb7c…0bb86 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0078, t01=0x0020}
0x0bb86…0bbd2 Head {h00=0x0048, h01=0x0050, text=»******************************************************************* «, t00=0x0078, t01=0x002a}
0x0bbd2…0bbe6 Head {h00=0x0010, h01=0x0050, text=»ERINPT EQU *«, t00=0x0078, t01=0x0076}
0x0bbe6…0bc14 Head {h00=0x002a, h01=0x0050, text=» CF A14,SCRINF GET SCREEN INFORMATION «, t00=0x0078, t01=0x008a}
0x0bc14…0bc40 Head {h00=0x0028, h01=0x0050, text=» CWK A5,LBVDU+1 UNFORMATTED SCREEN? «, t00=0x0078, t01=0x00b8}
0x0bc40…0bc5a Head {h00=0x0016, h01=0x0050, text=» RF(NE) ERI100 NO «, t00=0x0078, t01=0x00e4}
0x0bc5a…0bc84 Head {h00=0x0026, h01=0x0050, text=» CF A14,ERASE ERASE ENTIRE SCREEN «, t00=0x0078, t01=0x00fe}
0x0bc84…0bc96 Head {h00=0x000e, h01=0x0050, text=» RF ERI900«, t00=0x0078, t01=0x0128}
0x0bc96…0bcaa Head {h00=0x0010, h01=0x0050, text=»ERI100 EQU *«, t00=0x0078, t01=0x013a}
0x0bcaa…0bcd6 Head {h00=0x0028, h01=0x0050, text=» CF A14,ERASUP ERASE ALL UNPROTECTED«, t00=0x0078, t01=0x014e}
0x0bcd6…0bd02 Head {h00=0x0028, h01=0x0050, text=» CF A14,DISMOD DISPLAY ERASED FIELDS«, t00=0x0078, t01=0x017a}
0x0bd02…0bd3a Head {h00=0x0034, h01=0x0050, text=» CF A14,RDHOME TAB. UNPROTECTED FIRST ON SCREEN «, t00=0x0079, t01=0x0016}
0x0bd3a…0bd4e Head {h00=0x0010, h01=0x0050, text=»ERI900 EQU *«, t00=0x0079, t01=0x004e}
0x0bd4e…0bd5e Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0079, t01=0x0062}
0x0bd5e…0bd6c Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0079, t01=0x0072}
0x0bd6c…0bd80 Head {h00=0x0010, h01=0x0050, text=» IFT IN:DL=1«, t00=0x0079, t01=0x0080}
0x0bd80…0bdc0 Head {h00=0x003c, h01=0x0050, text=»********************************************************«, t00=0x0079, t01=0x0094}
0x0bdc0…0be00 Head {h00=0x003c, h01=0x0050, text=»* *«, t00=0x0079, t01=0x00d4}
0x0be00…0be40 Head {h00=0x003c, h01=0x0050, text=»* INSERT INSERT KEY HANDLING *«, t00=0x0079, t01=0x0114}
0x0be40…0be80 Head {h00=0x003c, h01=0x0050, text=»* *«, t00=0x0079, t01=0x0154}
0x0be80…0bec0 (122, 0, 400) Head {h00=0x003c, h01=0x0050, text=»********************************************************«, t00=0x007a, t01=0x0004}
0x0bec0…0bed4 Head {h00=0x0010, h01=0x0050, text=»* REGISTERS«, t00=0x007a, t01=0x0044}
0x0bed4…0bede Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x007a, t01=0x0058}
0x0bede…0befe Head {h00=0x001c, h01=0x0050, text=»* A11= CREDIT WORK AREA «, t00=0x007a, t01=0x0062}
0x0befe…0bf16 Head {h00=0x0014, h01=0x0050, text=»* A13= RESERVED «, t00=0x007a, t01=0x0082}
0x0bf16…0bf20 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x007a, t01=0x009a}
0x0bf20…0bf5c Head {h00=0x0038, h01=0x0050, text=»*************************************************** «, t00=0x007a, t01=0x00a4}
0x0bf5c…0bf70 Head {h00=0x0010, h01=0x0050, text=»INSERT EQU *«, t00=0x007a, t01=0x00e0}
0x0bf70…0bf94 Head {h00=0x0020, h01=0x0050, text=» IM MODE,A11 SET INSERT MODE«, t00=0x007a, t01=0x00f4}
0x0bf94…0bfa4 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x007a, t01=0x0118}
0x0bfa4…0bfb2 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x007a, t01=0x0128}
0x0bfb2…0bff0 Head {h00=0x003a, h01=0x0050, text=»******************************************************«, t00=0x007a, t01=0x0136}
0x0bff0…0c02e Head {h00=0x003a, h01=0x0050, text=»* *«, t00=0x007a, t01=0x0174}
0x0c02e…0c06c Head {h00=0x003a, h01=0x0050, text=»* DELETE DELETE CHAR. HANDLING *«, t00=0x007b, t01=0x0022}
0x0c06c…0c0aa Head {h00=0x003a, h01=0x0050, text=»* *«, t00=0x007b, t01=0x0060}
0x0c0aa…0c0ea Head {h00=0x003c, h01=0x0050, text=»******************************************************* «, t00=0x007b, t01=0x009e}
0x0c0ea…0c0fe Head {h00=0x0010, h01=0x0050, text=»* REGISTERS«, t00=0x007b, t01=0x00de}
0x0c0fe…0c108 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x007b, t01=0x00f2}
0x0c108…0c126 Head {h00=0x001a, h01=0x0050, text=»* A4= REL. CURSOR POS.«, t00=0x007b, t01=0x00fc}
0x0c126…0c148 Head {h00=0x001e, h01=0x0050, text=»* A5= REL. ATTRIBUTE POS. «, t00=0x007b, t01=0x011a}
0x0c148…0c166 Head {h00=0x001a, h01=0x0050, text=»* A6= ATTRIBUTE CHAR. «, t00=0x007b, t01=0x013c}
0x0c166…0c186 Head {h00=0x001c, h01=0x0050, text=»* A11= CREDIT WORK AREA «, t00=0x007b, t01=0x015a}
0x0c186…0c19e Head {h00=0x0014, h01=0x0050, text=»* A13= RESERVED «, t00=0x007b, t01=0x017a}
0x0c19e…0c1a8 (124, 0, 400) Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x007c, t01=0x0004}
0x0c1a8…0c1e8 Head {h00=0x003c, h01=0x0050, text=»******************************************************* «, t00=0x007c, t01=0x000e}
0x0c1e8…0c1fc Head {h00=0x0010, h01=0x0050, text=»DELETE EQU *«, t00=0x007c, t01=0x004e}
0x0c1fc…0c22a Head {h00=0x002a, h01=0x0050, text=» CF A14,SCRINF GET SCREEN INFORMATION «, t00=0x007c, t01=0x0062}
0x0c22a…0c23e Head {h00=0x0010, h01=0x0050, text=» LDKL A3,-1 «, t00=0x007c, t01=0x0090}
0x0c23e…0c252 Head {h00=0x0010, h01=0x0050, text=»DEL025 EQU *«, t00=0x007c, t01=0x00a4}
0x0c252…0c268 Head {h00=0x0012, h01=0x0050, text=» ADK A3,LLINE «, t00=0x007c, t01=0x00b8}
0x0c268…0c296 Head {h00=0x002a, h01=0x0050, text=» CWR A3,A4 LAST POS. ON CURRENT LINE? «, t00=0x007c, t01=0x00ce}
0x0c296…0c2ae Head {h00=0x0014, h01=0x0050, text=» RB(L) DEL025 NO«, t00=0x007c, t01=0x00fc}
0x0c2ae…0c2da Head {h00=0x0028, h01=0x0050, text=» CWK A5,LBVDU+1 UNFORMATTED SCREEN? «, t00=0x007c, t01=0x0114}
0x0c2da…0c2f4 Head {h00=0x0016, h01=0x0050, text=» RF(E) DEL200 YES «, t00=0x007c, t01=0x0140}
0x0c2f4…0c31e Head {h00=0x0026, h01=0x0050, text=» CWR A4,A5 STANDING ON ATTRIBUTE? «, t00=0x007c, t01=0x015a}
0x0c31e…0c338 Head {h00=0x0016, h01=0x0050, text=» RF(E) DEL700 YES «, t00=0x007c, t01=0x0184}
0x0c338…0c34a Head {h00=0x000e, h01=0x0050, text=» LDR A7,A6«, t00=0x007d, t01=0x000e}
0x0c34a…0c368 Head {h00=0x001a, h01=0x0050, text=» ANK A7,/20 PROTECTED?«, t00=0x007d, t01=0x0020}
0x0c368…0c382 Head {h00=0x0016, h01=0x0050, text=» RF(NZ) DEL700 YES«, t00=0x007d, t01=0x003e}
0x0c382…0c3a0 Head {h00=0x001a, h01=0x0050, text=» ORK A6,1 SET MDT-BIT «, t00=0x007d, t01=0x0058}
0x0c3a0…0c3b2 Head {h00=0x000e, h01=0x0050, text=» LDR A7,A6«, t00=0x007d, t01=0x0076}
0x0c3b2…0c3c4 Head {h00=0x000e, h01=0x0050, text=» LDR A1,A5«, t00=0x007d, t01=0x0088}
0x0c3c4…0c3ee Head {h00=0x0026, h01=0x0050, text=» CF A14,STOVDU SAVE NEW ATTRIBUTE «, t00=0x007d, t01=0x009a}
0x0c3ee…0c40a Head {h00=0x0018, h01=0x0050, text=» LDR A8,A6 SAVE OLD «, t00=0x007d, t01=0x00c4}
0x0c40a…0c426 Head {h00=0x0018, h01=0x0050, text=» LDR A9,A5 SAVE OLD «, t00=0x007d, t01=0x00e0}
0x0c426…0c456 Head {h00=0x002c, h01=0x0050, text=» CF A14,ATMASF SEARCH ATTRIBUTE FORWARD «, t00=0x007d, t01=0x00fc}
0x0c456…0c468 Head {h00=0x000e, h01=0x0050, text=» LDR A1,A5«, t00=0x007d, t01=0x012c}
0x0c468…0c47a Head {h00=0x000e, h01=0x0050, text=» LDR A6,A8«, t00=0x007d, t01=0x013e}
0x0c47a…0c48c Head {h00=0x000e, h01=0x0050, text=» LDR A5,A9«, t00=0x007d, t01=0x0150}
0x0c48c…0c4ba Head {h00=0x002a, h01=0x0050, text=» CF A14,STOINF SAVE SCREEN INFORMATION«, t00=0x007d, t01=0x0162}
0x0c4ba…0c4ea Head {h00=0x002c, h01=0x0050, text=» CWR A3,A1 ATTRIBUTE BEFOR END OF LINE? «, t00=0x007d, t01=0x0190}
0x0c4ea…0c504 Head {h00=0x0016, h01=0x0050, text=» RF(NG) DEL200 NO «, t00=0x007e, t01=0x0030}
0x0c504…0c516 Head {h00=0x000e, h01=0x0050, text=» LDR A3,A1«, t00=0x007e, t01=0x004a}
0x0c516…0c52a Head {h00=0x0010, h01=0x0050, text=»DEL200 EQU *«, t00=0x007e, t01=0x005c}
0x0c52a…0c53c Head {h00=0x000e, h01=0x0050, text=» LDR A1,A4«, t00=0x007e, t01=0x0070}
0x0c53c…0c550 Head {h00=0x0010, h01=0x0050, text=»DEL300 EQU *«, t00=0x007e, t01=0x0082}
0x0c550…0c562 Head {h00=0x000e, h01=0x0050, text=» ADK A1,1 «, t00=0x007e, t01=0x0096}
0x0c562…0c592 Head {h00=0x002c, h01=0x0050, text=» CF A14,GETVDU GET CHAR. IN VDU BUFFER «, t00=0x007e, t01=0x00a8}
0x0c592…0c5a4 Head {h00=0x000e, h01=0x0050, text=» SUK A1,1 «, t00=0x007e, t01=0x00d8}
0x0c5a4…0c5d4 Head {h00=0x002c, h01=0x0050, text=» CF A14,STOVDU STORE CHAR. IN VDU BUFFER«, t00=0x007e, t01=0x00ea}
0x0c5d4…0c5e6 Head {h00=0x000e, h01=0x0050, text=» ADK A1,1 «, t00=0x007e, t01=0x011a}
0x0c5e6…0c606 Head {h00=0x001c, h01=0x0050, text=» CWR A1,A3 ALL SHIFTED? «, t00=0x007e, t01=0x012c}
0x0c606…0c620 Head {h00=0x0016, h01=0x0050, text=» RB(NE) DEL300 NO «, t00=0x007e, t01=0x014c}
0x0c620…0c644 Head {h00=0x0020, h01=0x0050, text=» LDK A7,NULL GET NULL CHAR. «, t00=0x007e, t01=0x0166}
0x0c644…0c678 Head {h00=0x0030, h01=0x0050, text=» CF A14,STOVDU STORE NULL CHAR IN VDU BUFFER«, t00=0x007e, t01=0x018a}
0x0c678…0c68e Head {h00=0x0012, h01=0x0050, text=» CF A14,SAVE1 «, t00=0x007f, t01=0x002e}
0x0c68e…0c6a4 Head {h00=0x0012, h01=0x0050, text=» LDK A5,LLINE «, t00=0x007f, t01=0x0044}
0x0c6a4…0c6b8 Head {h00=0x0010, h01=0x0050, text=» LDR A6,A11 «, t00=0x007f, t01=0x005a}
0x0c6b8…0c6cc Head {h00=0x0010, h01=0x0050, text=» SUR A10,A10«, t00=0x007f, t01=0x006e}
0x0c6cc…0c6ee Head {h00=0x001e, h01=0x0050, text=» CF A14,LINE GET LINE FLAG«, t00=0x007f, t01=0x0082}
0x0c6ee…0c706 Head {h00=0x0014, h01=0x0050, text=» LC A1,LINFLG,A6«, t00=0x007f, t01=0x00a4}
0x0c706…0c718 Head {h00=0x000e, h01=0x0050, text=» ORK A1,1 «, t00=0x007f, t01=0x00bc}
0x0c718…0c730 Head {h00=0x0014, h01=0x0050, text=» SC A1,LINFLG,A6«, t00=0x007f, t01=0x00ce}
0x0c730…0c746 Head {h00=0x0012, h01=0x0050, text=» CF A14,REST1 «, t00=0x007f, t01=0x00e6}
0x0c746…0c772 Head {h00=0x0028, h01=0x0050, text=» CF A14,DISMOD DISPLAY MODIFIED LINE«, t00=0x007f, t01=0x00fc}
0x0c772…0c784 Head {h00=0x000e, h01=0x0050, text=» RF DEL900«, t00=0x007f, t01=0x0128}
0x0c784…0c798 Head {h00=0x0010, h01=0x0050, text=»DEL700 EQU *«, t00=0x007f, t01=0x013a}
0x0c798…0c7bc Head {h00=0x0020, h01=0x0050, text=» CF A14,ERROR INDICATE ERROR«, t00=0x007f, t01=0x014e}
0x0c7bc…0c7d0 Head {h00=0x0010, h01=0x0050, text=»DEL900 EQU *«, t00=0x007f, t01=0x0172}
0x0c7d0…0c7e0 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x007f, t01=0x0186}
0x0c7e0…0c7ec Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0080, t01=0x0008}
0x0c7ec…0c7fa Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0080, t01=0x0014}
0x0c7fa…0c83a Head {h00=0x003c, h01=0x0050, text=»********************************************************«, t00=0x0080, t01=0x0022}
0x0c83a…0c87a Head {h00=0x003c, h01=0x0050, text=»* *«, t00=0x0080, t01=0x0062}
0x0c87a…0c8ba Head {h00=0x003c, h01=0x0050, text=»* RESET RESET KEY HANDLING *«, t00=0x0080, t01=0x00a2}
0x0c8ba…0c8fa Head {h00=0x003c, h01=0x0050, text=»* *«, t00=0x0080, t01=0x00e2}
0x0c8fa…0c93a Head {h00=0x003c, h01=0x0050, text=»********************************************************«, t00=0x0080, t01=0x0122}
0x0c93a…0c94e Head {h00=0x0010, h01=0x0050, text=»* REGISTERS«, t00=0x0080, t01=0x0162}
0x0c94e…0c958 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0080, t01=0x0176}
0x0c958…0c978 Head {h00=0x001c, h01=0x0050, text=»* A11= CREDIT WORK AREA «, t00=0x0080, t01=0x0180}
0x0c978…0c990 Head {h00=0x0014, h01=0x0050, text=»* A13= RESERVED «, t00=0x0081, t01=0x0010}
0x0c990…0c99a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0081, t01=0x0028}
0x0c99a…0c9d6 Head {h00=0x0038, h01=0x0050, text=»****************************************************«, t00=0x0081, t01=0x0032}
0x0c9d6…0c9ea Head {h00=0x0010, h01=0x0050, text=»RESET EQU * «, t00=0x0081, t01=0x006e}
0x0c9ea…0ca10 Head {h00=0x0022, h01=0x0050, text=» CM MODE,A11 RESET INSERT MODE«, t00=0x0081, t01=0x0082}
0x0ca10…0ca3e Head {h00=0x002a, h01=0x0050, text=» CF A14,LMP6OF TURN OFF "INSERT" LAMP «, t00=0x0081, t01=0x00a8}
0x0ca3e…0ca66 Head {h00=0x0024, h01=0x0050, text=» CM KBINH,A11 RESSTORE KEYBOARD «, t00=0x0081, t01=0x00d6}
0x0ca66…0ca92 Head {h00=0x0028, h01=0x0050, text=» CF A14,LMP4OF TURN OFF 'ERROR' LAMP«, t00=0x0081, t01=0x00fe}
0x0ca92…0caca Head {h00=0x0034, h01=0x0050, text=» CF A14,LMP3OF TURN OFF 'KEYBOARD INHIBIT' LAMP «, t00=0x0081, t01=0x012a}
0x0caca…0cada Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0081, t01=0x0162}
0x0cada…0cae8 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0081, t01=0x0172}
0x0cae8…0cb2c Head {h00=0x0040, h01=0x0050, text=»*********************************************************** «, t00=0x0081, t01=0x0180}
0x0cb2c…0cb70 Head {h00=0x0040, h01=0x0050, text=»* * «, t00=0x0082, t01=0x0034}
0x0cb70…0cbb4 Head {h00=0x0040, h01=0x0050, text=»* DUP DUPLICATE KEY * «, t00=0x0082, t01=0x0078}
0x0cbb4…0cbf8 Head {h00=0x0040, h01=0x0050, text=»* * «, t00=0x0082, t01=0x00bc}
0x0cbf8…0cc3c Head {h00=0x0040, h01=0x0050, text=»*********************************************************** «, t00=0x0082, t01=0x0100}
0x0cc3c…0cc50 Head {h00=0x0010, h01=0x0050, text=»* REGISTERS«, t00=0x0082, t01=0x0144}
0x0cc50…0cc5a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0082, t01=0x0158}
0x0cc5a…0cc70 Head {h00=0x0012, h01=0x0050, text=»* A2= KEY-CHAR«, t00=0x0082, t01=0x0162}
0x0cc70…0cc88 Head {h00=0x0014, h01=0x0050, text=»* A11= RESERVED «, t00=0x0082, t01=0x0178}
0x0cc88…0cca0 Head {h00=0x0014, h01=0x0050, text=»* A13= RESERVED «, t00=0x0082, t01=0x0190}
0x0cca0…0ccaa Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0083, t01=0x0018}
0x0ccaa…0ccee Head {h00=0x0040, h01=0x0050, text=»************************************************************«, t00=0x0083, t01=0x0022}
0x0ccee…0cd00 Head {h00=0x000e, h01=0x0050, text=»DUP EQU * «, t00=0x0083, t01=0x0066}
0x0cd00…0cd24 Head {h00=0x0020, h01=0x0050, text=» LDK A2,DUPCH GET DUP CHAR. «, t00=0x0083, t01=0x0078}
0x0cd24…0cd38 Head {h00=0x0010, h01=0x0050, text=» CF A14,NUM «, t00=0x0083, t01=0x009c}
0x0cd38…0cd4c Head {h00=0x0010, h01=0x0050, text=» CF A14,TAB «, t00=0x0083, t01=0x00b0}
0x0cd4c…0cd5c Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0083, t01=0x00c4}
0x0cd5c…0cd6a Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0083, t01=0x00d4}
0x0cd6a…0cdae Head {h00=0x0040, h01=0x0050, text=»*********************************************************** «, t00=0x0083, t01=0x00e2}
0x0cdae…0cdf2 Head {h00=0x0040, h01=0x0050, text=»* * «, t00=0x0083, t01=0x0126}
0x0cdf2…0ce36 Head {h00=0x0040, h01=0x0050, text=»* FLDMRK FIELD MARK KEY * «, t00=0x0083, t01=0x016a}
0x0ce36…0ce7a Head {h00=0x0040, h01=0x0050, text=»* * «, t00=0x0084, t01=0x001e}
0x0ce7a…0cebe Head {h00=0x0040, h01=0x0050, text=»*********************************************************** «, t00=0x0084, t01=0x0062}
0x0cebe…0ced2 Head {h00=0x0010, h01=0x0050, text=»* REGISTERS«, t00=0x0084, t01=0x00a6}
0x0ced2…0cedc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0084, t01=0x00ba}
0x0cedc…0cef2 Head {h00=0x0012, h01=0x0050, text=»* A2= KEY-CHAR«, t00=0x0084, t01=0x00c4}
0x0cef2…0cf0a Head {h00=0x0014, h01=0x0050, text=»* A11= RESERVED «, t00=0x0084, t01=0x00da}
0x0cf0a…0cf22 Head {h00=0x0014, h01=0x0050, text=»* A13= RESERVED «, t00=0x0084, t01=0x00f2}
0x0cf22…0cf2c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0084, t01=0x010a}
0x0cf2c…0cf70 Head {h00=0x0040, h01=0x0050, text=»*********************************************************** «, t00=0x0084, t01=0x0114}
0x0cf70…0cf84 Head {h00=0x0010, h01=0x0050, text=»FLDMRK EQU *«, t00=0x0084, t01=0x0158}
0x0cf84…0cfae Head {h00=0x0026, h01=0x0050, text=» LDK A2,FMCH GET FIELD MARK CHAR. «, t00=0x0084, t01=0x016c}
0x0cfae…0cfc2 Head {h00=0x0010, h01=0x0050, text=» CF A14,NUM «, t00=0x0085, t01=0x0008}
0x0cfc2…0cfd2 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0085, t01=0x001c}
0x0cfd2…0cfe0 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0085, t01=0x002c}
0x0cfe0…0d028 Head {h00=0x0044, h01=0x0050, text=»*************************************************************** «, t00=0x0085, t01=0x003a}
0x0d028…0d032 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0085, t01=0x0082}
0x0d032…0d05c Head {h00=0x0026, h01=0x0050, text=»* Z E R O : 3 TRIPLE ZERO KEY«, t00=0x0085, t01=0x008c}
0x0d05c…0d088 Head {h00=0x0028, h01=0x0050, text=»* Z E R O : 2 DOUBLE ZERO KEY «, t00=0x0085, t01=0x00b6}
0x0d088…0d092 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0085, t01=0x00e2}
0x0d092…0d0cc Head {h00=0x0036, h01=0x0050, text=»************************************************* «, t00=0x0085, t01=0x00ec}
0x0d0cc…0d0e0 Head {h00=0x0010, h01=0x0050, text=»* REGISTERS«, t00=0x0085, t01=0x0126}
0x0d0e0…0d0ea Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0085, t01=0x013a}
0x0d0ea…0d100 Head {h00=0x0012, h01=0x0050, text=»* A2= KEY-CHAR«, t00=0x0085, t01=0x0144}
0x0d100…0d118 Head {h00=0x0014, h01=0x0050, text=»* A11= RESERVED «, t00=0x0085, t01=0x015a}
0x0d118…0d130 Head {h00=0x0014, h01=0x0050, text=»* A13= RESERVED «, t00=0x0085, t01=0x0172}
0x0d130…0d13a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0085, t01=0x018a}
0x0d13a…0d17c (134, 0, 400) Head {h00=0x003e, h01=0x0050, text=»********************************************************* «, t00=0x0086, t01=0x0004}
0x0d17c…0d184 Head {h00=0x0004, h01=0x0050, t00=0x0086, t01=0x0046}
0x0d184…0d198 Head {h00=0x0010, h01=0x0050, text=»ZERO:3 EQU *«, t00=0x0086, t01=0x004e}
0x0d198…0d1b6 Head {h00=0x001a, h01=0x0050, text=» LDK A2,/30 ZERO CHAR.«, t00=0x0086, t01=0x0062}
0x0d1b6…0d1dc Head {h00=0x0022, h01=0x0050, text=» CF A14,NUM DISPLAY CHARACTER «, t00=0x0086, t01=0x0080}
0x0d1dc…0d1f0 Head {h00=0x0010, h01=0x0050, text=»ZERO:2 EQU *«, t00=0x0086, t01=0x00a6}
0x0d1f0…0d20e Head {h00=0x001a, h01=0x0050, text=» LDK A2,/30 ZERO CHAR.«, t00=0x0086, t01=0x00ba}
0x0d20e…0d234 Head {h00=0x0022, h01=0x0050, text=» CF A14,NUM DISPLAY CHARACTER «, t00=0x0086, t01=0x00d8}
0x0d234…0d248 Head {h00=0x0010, h01=0x0050, text=» LDK A2,/30 «, t00=0x0086, t01=0x00fe}
0x0d248…0d26e Head {h00=0x0022, h01=0x0050, text=» CF A14,NUM DISPLAY CHARACTER «, t00=0x0086, t01=0x0112}
0x0d26e…0d286 Head {h00=0x0014, h01=0x0050, text=» RTN A14 RETURN «, t00=0x0086, t01=0x0138}
0x0d286…0d294 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0086, t01=0x0150}
0x0d294…0d2a8 Head {h00=0x0010, h01=0x0050, text=» IFT OFLIN=1«, t00=0x0086, t01=0x015e}
0x0d2a8…0d2e8 Head {h00=0x003c, h01=0x0050, text=»********************************************************«, t00=0x0086, t01=0x0172}
0x0d2e8…0d328 Head {h00=0x003c, h01=0x0050, text=»* *«, t00=0x0087, t01=0x0022}
0x0d328…0d368 Head {h00=0x003c, h01=0x0050, text=»* OFLINE OFFLINE KEY HANDLING *«, t00=0x0087, t01=0x0062}
0x0d368…0d3a8 Head {h00=0x003c, h01=0x0050, text=»* *«, t00=0x0087, t01=0x00a2}
0x0d3a8…0d3e8 Head {h00=0x003c, h01=0x0050, text=»********************************************************«, t00=0x0087, t01=0x00e2}
0x0d3e8…0d3fc Head {h00=0x0010, h01=0x0050, text=»* REGISTERS«, t00=0x0087, t01=0x0122}
0x0d3fc…0d406 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0087, t01=0x0136}
0x0d406…0d426 Head {h00=0x001c, h01=0x0050, text=»* A11= CREDIT WORK AREA «, t00=0x0087, t01=0x0140}
0x0d426…0d43e Head {h00=0x0014, h01=0x0050, text=»* A13= RESERVED «, t00=0x0087, t01=0x0160}
0x0d43e…0d448 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0087, t01=0x0178}
0x0d448…0d488 Head {h00=0x003c, h01=0x0050, text=»******************************************************* «, t00=0x0087, t01=0x0182}
0x0d488…0d49c Head {h00=0x0010, h01=0x0050, text=»OFLINE EQU *«, t00=0x0088, t01=0x0032}
0x0d49c…0d4b2 Head {h00=0x0012, h01=0x0050, text=» CF A14,CLEAR «, t00=0x0088, t01=0x0046}
0x0d4b2…0d4c8 Head {h00=0x0012, h01=0x0050, text=» CF A14,RESET «, t00=0x0088, t01=0x005c}
0x0d4c8…0d4f6 Head {h00=0x002a, h01=0x0050, text=» CF A14,DCOFLN INDICATE OFFLINE TO DC «, t00=0x0088, t01=0x0072}
0x0d4f6…0d522 Head {h00=0x0028, h01=0x0050, text=» CF A14,LMP6ON TURN ON OFFLINE LAMP «, t00=0x0088, t01=0x00a0}
0x0d522…0d54a Head {h00=0x0024, h01=0x0050, text=» IM OFFFLG,A11 SET OFFLINE FLAG «, t00=0x0088, t01=0x00cc}
0x0d54a…0d572 Head {h00=0x0024, h01=0x0050, text=» ADKL A14,4 SKIP ONE STACK LEVEL«, t00=0x0088, t01=0x00f4}
0x0d572…0d5a0 Head {h00=0x002a, h01=0x0050, text=» LD A13,2,A14 RELOAD REGISTERS A12-A13«, t00=0x0088, t01=0x011c}
0x0d5a0…0d5b6 Head {h00=0x0012, h01=0x0050, text=» LD A12,4,A14 «, t00=0x0088, t01=0x014a}
0x0d5b6…0d5de Head {h00=0x0024, h01=0x0050, text=» ADKL A14,4 UPDATE STACK POINTER«, t00=0x0088, t01=0x0160}
0x0d5de…0d60c Head {h00=0x002a, h01=0x0050, text=» ABL I:RT1 RETURN TO "OFFLINE" PROGRAM«, t00=0x0088, t01=0x0188}
0x0d60c…0d618 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0089, t01=0x0026}
0x0d618…0d626 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0089, t01=0x0032}
0x0d626…0d668 Head {h00=0x003e, h01=0x0050, text=»********************************************************* «, t00=0x0089, t01=0x0040}
0x0d668…0d6aa Head {h00=0x003e, h01=0x0050, text=»* * «, t00=0x0089, t01=0x0082}
0x0d6aa…0d6ec Head {h00=0x003e, h01=0x0050, text=»* MFCHGE MAIN FRAME CHANGE * «, t00=0x0089, t01=0x00c4}
0x0d6ec…0d72e Head {h00=0x003e, h01=0x0050, text=»* * «, t00=0x0089, t01=0x0106}
0x0d72e…0d770 Head {h00=0x003e, h01=0x0050, text=»********************************************************* «, t00=0x0089, t01=0x0148}
0x0d770…0d784 Head {h00=0x0010, h01=0x0050, text=»* REGISTERS«, t00=0x0089, t01=0x018a}
0x0d784…0d78e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x008a, t01=0x000e}
0x0d78e…0d7ae Head {h00=0x001c, h01=0x0050, text=»* A11= CREDIT WORK AREA «, t00=0x008a, t01=0x0018}
0x0d7ae…0d7c6 Head {h00=0x0014, h01=0x0050, text=»* A13= RESERVED «, t00=0x008a, t01=0x0038}
0x0d7c6…0d7d0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x008a, t01=0x0050}
0x0d7d0…0d810 Head {h00=0x003c, h01=0x0050, text=»******************************************************* «, t00=0x008a, t01=0x005a}
0x0d810…0d826 Head {h00=0x0012, h01=0x0050, text=» IFT NBRLIN=2 «, t00=0x008a, t01=0x009a}
0x0d826…0d83a Head {h00=0x0010, h01=0x0050, text=»MFCHGE EQU *«, t00=0x008a, t01=0x00b0}
0x0d83a…0d850 Head {h00=0x0012, h01=0x0050, text=» CF A14,CLEAR «, t00=0x008a, t01=0x00c4}
0x0d850…0d866 Head {h00=0x0012, h01=0x0050, text=» CF A14,RESET «, t00=0x008a, t01=0x00da}
0x0d866…0d87c Head {h00=0x0012, h01=0x0050, text=» CF A14,LMP1OF«, t00=0x008a, t01=0x00f0}
0x0d87c…0d892 Head {h00=0x0012, h01=0x0050, text=» CF A14,LMP2OF«, t00=0x008a, t01=0x0106}
0x0d892…0d8a8 Head {h00=0x0012, h01=0x0050, text=» CF A14,LMP3OF«, t00=0x008a, t01=0x011c}
0x0d8a8…0d8d8 Head {h00=0x002c, h01=0x0050, text=» CF A14,DISCON DISCONNECT ON OLD LINE =2«, t00=0x008a, t01=0x0132}
0x0d8d8…0d8ee Head {h00=0x0012, h01=0x0050, text=» LDK A1,1 . =2«, t00=0x008a, t01=0x0162}
0x0d8ee…0d920 Head {h00=0x002e, h01=0x0050, text=» XRS A1,MAIN,A11 IND MAIN FRAME CHANGE =2 «, t00=0x008a, t01=0x0178}
0x0d920…0d936 Head {h00=0x0012, h01=0x0050, text=» RF(NZ) MFCH10«, t00=0x008b, t01=0x001a}
0x0d936…0d94c Head {h00=0x0012, h01=0x0050, text=» CF A14,LMP1ON«, t00=0x008b, t01=0x0030}
0x0d94c…0d95e Head {h00=0x000e, h01=0x0050, text=» RF MFCH90«, t00=0x008b, t01=0x0046}
0x0d95e…0d972 Head {h00=0x0010, h01=0x0050, text=»MFCH10 EQU *«, t00=0x008b, t01=0x0058}
0x0d972…0d988 Head {h00=0x0012, h01=0x0050, text=» CF A14,LMP2ON«, t00=0x008b, t01=0x006c}
0x0d988…0d99c Head {h00=0x0010, h01=0x0050, text=»MFCH90 EQU *«, t00=0x008b, t01=0x0082}
0x0d99c…0d9ac Head {h00=0x000c, h01=0x0050, text=» . =2 «, t00=0x008b, t01=0x0096}
0x0d9ac…0d9d8 Head {h00=0x0028, h01=0x0050, text=» CF A14,CONCT CONNECT ON NEW LINE =2«, t00=0x008b, t01=0x00a6}
0x0d9d8…0da00 Head {h00=0x0024, h01=0x0050, text=» CF A14,CHKSTA CHECK LINE STATUS«, t00=0x008b, t01=0x00d2}
0x0da00…0da10 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x008b, t01=0x00fa}
0x0da10…0da1c Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x008b, t01=0x010a}
0x0da1c…0da2a Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x008b, t01=0x0116}
0x0da2a…0da6e Head {h00=0x0040, h01=0x0050, text=»*********************************************************** «, t00=0x008b, t01=0x0124}
0x0da6e…0dab2 Head {h00=0x0040, h01=0x0050, text=»* * «, t00=0x008b, t01=0x0168}
0x0dab2…0daf6 Head {h00=0x0040, h01=0x0050, text=»* COPY LOCAL HARDCOPY * «, t00=0x008c, t01=0x001c}
0x0daf6…0db3a Head {h00=0x0040, h01=0x0050, text=»* * «, t00=0x008c, t01=0x0060}
0x0db3a…0db7e Head {h00=0x0040, h01=0x0050, text=»*********************************************************** «, t00=0x008c, t01=0x00a4}
0x0db7e…0db9c Head {h00=0x001a, h01=0x0050, text=»* REGISTERS«, t00=0x008c, t01=0x00e8}
0x0db9c…0dba6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x008c, t01=0x0106}
0x0dba6…0dbc6 Head {h00=0x001c, h01=0x0050, text=»* A11= CREDIT WORK AREA «, t00=0x008c, t01=0x0110}
0x0dbc6…0dbe0 Head {h00=0x0016, h01=0x0050, text=»* A13= T:A ADDRESS«, t00=0x008c, t01=0x0130}
0x0dbe0…0dbea Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x008c, t01=0x014a}
0x0dbea…0dc30 Head {h00=0x0042, h01=0x0050, text=»************************************************************* «, t00=0x008c, t01=0x0154}
0x0dc30…0dc42 Head {h00=0x000e, h01=0x0050, text=»COPY EQU *«, t00=0x008d, t01=0x000a}
0x0dc42…0dc5c Head {h00=0x0016, h01=0x0050, text=» LD A1,SNAMOD,A11 «, t00=0x008d, t01=0x001c}
0x0dc5c…0dc92 Head {h00=0x0032, h01=0x0050, text=» ANKL A1,HCPMOD HARDCOPY ALREADY OUTSTANDING? «, t00=0x008d, t01=0x0036}
0x0dc92…0dcba Head {h00=0x0024, h01=0x0050, text=» RF(NZ) COPY80 YES,WAIT A WHILE «, t00=0x008d, t01=0x006c}
0x0dcba…0dcd2 Head {h00=0x0014, h01=0x0050, text=» LD A1,PRTID,A11«, t00=0x008d, t01=0x0094}
0x0dcd2…0dcfc Head {h00=0x0026, h01=0x0050, text=» RF(Z) COPY80 PRINTER NOT ASSIGNED«, t00=0x008d, t01=0x00ac}
0x0dcfc…0dd32 Head {h00=0x0032, h01=0x0050, text=» ANK A1,/FF CHECK IF PRINTER OK IN TASK TABLE «, t00=0x008d, t01=0x00d6}
0x0dd32…0dd46 Head {h00=0x0010, h01=0x0050, text=» SUK A1,/30 «, t00=0x008d, t01=0x010c}
0x0dd46…0dd58 Head {h00=0x000e, h01=0x0050, text=» SLL A1,2 «, t00=0x008d, t01=0x0120}
0x0dd58…0dd6e Head {h00=0x0012, h01=0x0050, text=» LDK A3,TSKTAB«, t00=0x008d, t01=0x0132}
0x0dd6e…0dd94 Head {h00=0x0022, h01=0x0050, text=» LD A4,+6,A13 GET COMMON AREA «, t00=0x008d, t01=0x0148}
0x0dd94…0dda6 Head {h00=0x000e, h01=0x0050, text=» ADR A3,A4«, t00=0x008d, t01=0x016e}
0x0dda6…0ddd0 Head {h00=0x0026, h01=0x0050, text=» ADR A3,A1 PRINTER ASSIGNED FOUND «, t00=0x008d, t01=0x0180}
0x0ddd0…0dde4 Head {h00=0x0010, h01=0x0050, text=» LC A1,+3,A3«, t00=0x008e, t01=0x001a}
0x0dde4…0de04 Head {h00=0x001c, h01=0x0050, text=» ANK A1,/FF PRINTER OK? «, t00=0x008e, t01=0x002e}
0x0de04…0de1e Head {h00=0x0016, h01=0x0050, text=» RF(Z) COPY10 YES «, t00=0x008e, t01=0x004e}
0x0de1e…0de30 Head {h00=0x000e, h01=0x0050, text=» RF COPY90«, t00=0x008e, t01=0x0068}
0x0de30…0de44 Head {h00=0x0010, h01=0x0050, text=»COPY10 EQU *«, t00=0x008e, t01=0x007a}
0x0de44…0de70 Head {h00=0x0028, h01=0x0050, text=» LDK A1,/38 INDICATE HARDCOPY IN WCC«, t00=0x008e, t01=0x008e}
0x0de70…0de86 Head {h00=0x0012, h01=0x0050, text=» ST A1,WCC,A11«, t00=0x008e, t01=0x00ba}
0x0de86…0dea2 Head {h00=0x0018, h01=0x0050, text=» LDKL A3,BVDU BUFFER«, t00=0x008e, t01=0x00d0}
0x0dea2…0dec0 Head {h00=0x001a, h01=0x0050, text=» ADR A3,A11 ADDRESSS«, t00=0x008e, t01=0x00ec}
0x0dec0…0deda Head {h00=0x0016, h01=0x0050, text=» LD A8,ECBICW,A11 «, t00=0x008e, t01=0x010a}
0x0deda…0defe Head {h00=0x0020, h01=0x0050, text=» CF A14,ICSET SET NO TIMEOUT«, t00=0x008e, t01=0x0124}
0x0defe…0df28 Head {h00=0x0026, h01=0x0050, text=» LD A1,PRTID,A11 HARDCOPY TASK ID «, t00=0x008e, t01=0x0148}
0x0df28…0df50 Head {h00=0x0024, h01=0x0050, text=» LDKL A2,LBVDU+/20 BUFFER LENGTH«, t00=0x008e, t01=0x0172}
0x0df50…0df76 Head {h00=0x0022, h01=0x0050, text=» CF A14,ICWRT WRITE INTERTASK «, t00=0x008f, t01=0x000a}
0x0df76…0df88 Head {h00=0x000e, h01=0x0050, text=» IFT SNA=1«, t00=0x008f, t01=0x0030}
0x0df88…0dfbe Head {h00=0x0032, h01=0x0050, text=» LDKL A1,HCPMOD INDICATE HARDCOPY OUTSTANDING «, t00=0x008f, t01=0x0042}
0x0dfbe…0dfd8 Head {h00=0x0016, h01=0x0050, text=» ORS A1,SNAMOD,A11«, t00=0x008f, t01=0x0078}
0x0dfd8…0dfe4 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x008f, t01=0x0092}
0x0dfe4…0dff6 Head {h00=0x000e, h01=0x0050, text=» IFF SNA=1«, t00=0x008f, t01=0x009e}
0x0dff6…0e02c Head {h00=0x0032, h01=0x0050, text=» LDKL A1,HCPMOD INDICATE HARDCOPY OUTSTANDING «, t00=0x008f, t01=0x00b0}
0x0e02c…0e046 Head {h00=0x0016, h01=0x0050, text=» ORS A1,BSCMOD,A11«, t00=0x008f, t01=0x00e6}
0x0e046…0e052 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x008f, t01=0x0100}
0x0e052…0e064 Head {h00=0x000e, h01=0x0050, text=» RF COPY90«, t00=0x008f, t01=0x010c}
0x0e064…0e078 Head {h00=0x0010, h01=0x0050, text=»COPY80 EQU *«, t00=0x008f, t01=0x011e}
0x0e078…0e08e Head {h00=0x0012, h01=0x0050, text=» CF A14,ERROR «, t00=0x008f, t01=0x0132}
0x0e08e…0e0a2 Head {h00=0x0010, h01=0x0050, text=»COPY90 EQU *«, t00=0x008f, t01=0x0148}
0x0e0a2…0e0b2 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x008f, t01=0x015c}
0x0e0b2…0e0c0 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x008f, t01=0x016c}
0x0e0c0…0e108 Head {h00=0x0044, h01=0x0050, text=»*************************************************************** «, t00=0x008f, t01=0x017a}
0x0e108…0e150 Head {h00=0x0044, h01=0x0050, text=»* * «, t00=0x0090, t01=0x0032}
0x0e150…0e184 Head {h00=0x0030, h01=0x0050, text=»* IDENT PRINTER IDENT. HANDLING«, t00=0x0090, t01=0x007a}
0x0e184…0e1cc Head {h00=0x0044, h01=0x0050, text=»* * «, t00=0x0090, t01=0x00ae}
0x0e1cc…0e214 Head {h00=0x0044, h01=0x0050, text=»*************************************************************** «, t00=0x0090, t01=0x00f6}
0x0e214…0e234 Head {h00=0x001c, h01=0x0050, text=»* REGISTERS «, t00=0x0090, t01=0x013e}
0x0e234…0e23e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0090, t01=0x015e}
0x0e23e…0e262 Head {h00=0x0020, h01=0x0050, text=»* A3= POINTER IN TASK TABLE «, t00=0x0090, t01=0x0168}
0x0e262…0e282 Head {h00=0x001c, h01=0x0050, text=»* A11= CREDIT WORK AREA «, t00=0x0090, t01=0x018c}
0x0e282…0e29c Head {h00=0x0016, h01=0x0050, text=»* A13= T:A ADDRESS«, t00=0x0091, t01=0x001c}
0x0e29c…0e2a6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0091, t01=0x0036}
0x0e2a6…0e2ec Head {h00=0x0042, h01=0x0050, text=»************************************************************* «, t00=0x0091, t01=0x0040}
0x0e2ec…0e300 Head {h00=0x0010, h01=0x0050, text=»IDENT EQU * «, t00=0x0091, t01=0x0086}
0x0e300…0e32c Head {h00=0x0028, h01=0x0050, text=» LD A1,PRTID,A11 GET CURRENT TASKID «, t00=0x0091, t01=0x009a}
0x0e32c…0e354 Head {h00=0x0024, h01=0x0050, text=» LD A4,+6,A13 COMMON BLOCK BASE «, t00=0x0091, t01=0x00c6}
0x0e354…0e374 Head {h00=0x001c, h01=0x0050, text=» ANK A1,X'FF' GET OFFSET«, t00=0x0091, t01=0x00ee}
0x0e374…0e388 Head {h00=0x0010, h01=0x0050, text=» SUK A1,/30 «, t00=0x0091, t01=0x010e}
0x0e388…0e39a Head {h00=0x000e, h01=0x0050, text=» SLL A1,2 «, t00=0x0091, t01=0x0122}
0x0e39a…0e3b2 Head {h00=0x0014, h01=0x0050, text=» LDKL A3,TSKTAB «, t00=0x0091, t01=0x0134}
0x0e3b2…0e3c4 Head {h00=0x000e, h01=0x0050, text=» ADR A3,A4«, t00=0x0091, t01=0x014c}
0x0e3c4…0e3d6 Head {h00=0x000e, h01=0x0050, text=» ADR A3,A1«, t00=0x0091, t01=0x015e}
0x0e3d6…0e3ea Head {h00=0x0010, h01=0x0050, text=»IDEN30 EQU *«, t00=0x0091, t01=0x0170}
0x0e3ea…0e404 Head {h00=0x0016, h01=0x0050, text=» LCR A5,A3 GET ID «, t00=0x0091, t01=0x0184}
0x0e404…0e416 Head {h00=0x000e, h01=0x0050, text=» SLL A5,8 «, t00=0x0092, t01=0x000e}
0x0e416…0e42a Head {h00=0x0010, h01=0x0050, text=» LC A5,+1,A3«, t00=0x0092, t01=0x0020}
0x0e42a…0e44a Head {h00=0x001c, h01=0x0050, text=» LC A4,+3,A3 GET STATUS «, t00=0x0092, t01=0x0034}
0x0e44a…0e46e Head {h00=0x0020, h01=0x0050, text=» CF A14,SAVE1 SAVE REGISTERS«, t00=0x0092, t01=0x0054}
0x0e46e…0e492 Head {h00=0x0020, h01=0x0050, text=» CF A14,DISID DISPLAY TASKID«, t00=0x0092, t01=0x0078}
0x0e492…0e4b8 Head {h00=0x0022, h01=0x0050, text=» LDKL A1,IDEN40 NEXT KEY ENTRY«, t00=0x0092, t01=0x009c}
0x0e4b8…0e4d2 Head {h00=0x0016, h01=0x0050, text=» ST A1,RDMORE,A11 «, t00=0x0092, t01=0x00c2}
0x0e4d2…0e4ee Head {h00=0x0018, h01=0x0050, text=» RF IDEN90 NEXT KEY «, t00=0x0092, t01=0x00dc}
0x0e4ee…0e502 Head {h00=0x0010, h01=0x0050, text=»IDEN40 EQU *«, t00=0x0092, t01=0x00f8}
0x0e502…0e518 Head {h00=0x0012, h01=0x0050, text=» CM RDMORE,A11«, t00=0x0092, t01=0x010c}
0x0e518…0e52a Head {h00=0x000e, h01=0x0050, text=» LDR A9,A2«, t00=0x0092, t01=0x0122}
0x0e52a…0e552 Head {h00=0x0024, h01=0x0050, text=» CF A14,REST1 RESTORE REGISTERS «, t00=0x0092, t01=0x0134}
0x0e552…0e57c Head {h00=0x0026, h01=0x0050, text=» CWK A9,ENTKEY SAVE CURRENT TASKID«, t00=0x0092, t01=0x015c}
0x0e57c…0e596 Head {h00=0x0016, h01=0x0050, text=» RF(E) IDEN80 YES «, t00=0x0092, t01=0x0186}
0x0e596…0e5bc Head {h00=0x0022, h01=0x0050, text=» CWK A9,IDKEY GET NEXT TASKID?«, t00=0x0093, t01=0x0010}
0x0e5bc…0e5e8 Head {h00=0x0028, h01=0x0050, text=» RF(NE) IDEN90 NO KEEP THE FIRST ONE«, t00=0x0093, t01=0x0036}
0x0e5e8…0e5fc Head {h00=0x0010, h01=0x0050, text=»IDEN50 EQU *«, t00=0x0093, t01=0x0062}
0x0e5fc…0e626 Head {h00=0x0026, h01=0x0050, text=» ADK A3,4 SEARCH FOR NEXT PRINTER «, t00=0x0093, t01=0x0076}
0x0e626…0e638 Head {h00=0x000e, h01=0x0050, text=» LCR A2,A3«, t00=0x0093, t01=0x00a0}
0x0e638…0e64c Head {h00=0x0010, h01=0x0050, text=» ANK A2,/FF «, t00=0x0093, t01=0x00b2}
0x0e64c…0e65e Head {h00=0x000e, h01=0x0050, text=» LDR A1,A2«, t00=0x0093, t01=0x00c6}
0x0e65e…0e674 Head {h00=0x0012, h01=0x0050, text=» RB(Z) IDEN50 «, t00=0x0093, t01=0x00d8}
0x0e674…0e686 Head {h00=0x000e, h01=0x0050, text=» SLL A1,8 «, t00=0x0093, t01=0x00ee}
0x0e686…0e69c Head {h00=0x0012, h01=0x0050, text=» RF(N) IDEN60 «, t00=0x0093, t01=0x0100}
0x0e69c…0e6bc Head {h00=0x001c, h01=0x0050, text=» CCK A2,VDUCOD PRINTER? «, t00=0x0093, t01=0x0116}
0x0e6bc…0e6d6 Head {h00=0x0016, h01=0x0050, text=» RB(NE) IDEN30 YES«, t00=0x0093, t01=0x0136}
0x0e6d6…0e6e8 Head {h00=0x000e, h01=0x0050, text=» RB IDEN50«, t00=0x0093, t01=0x0150}
0x0e6e8…0e6fc Head {h00=0x0010, h01=0x0050, text=»IDEN60 EQU *«, t00=0x0093, t01=0x0162}
0x0e6fc…0e714 Head {h00=0x0014, h01=0x0050, text=» LDKL A2,TSKTAB «, t00=0x0093, t01=0x0176}
0x0e714…0e728 Head {h00=0x0010, h01=0x0050, text=» LD A3,6,A13«, t00=0x0093, t01=0x018e}
0x0e728…0e73a Head {h00=0x000e, h01=0x0050, text=» ADR A3,A2«, t00=0x0094, t01=0x0012}
0x0e73a…0e74c Head {h00=0x000e, h01=0x0050, text=» SUK A3,4 «, t00=0x0094, t01=0x0024}
0x0e74c…0e75e Head {h00=0x000e, h01=0x0050, text=» RB IDEN50«, t00=0x0094, t01=0x0036}
0x0e75e…0e772 Head {h00=0x0010, h01=0x0050, text=»IDEN80 EQU *«, t00=0x0094, t01=0x0048}
0x0e772…0e798 Head {h00=0x0022, h01=0x0050, text=» LCR A1,A3 GET PRINTER TO SAVE«, t00=0x0094, t01=0x005c}
0x0e798…0e7aa Head {h00=0x000e, h01=0x0050, text=» SLL A1,8 «, t00=0x0094, t01=0x0082}
0x0e7aa…0e7be Head {h00=0x0010, h01=0x0050, text=» LC A1,+1,A3«, t00=0x0094, t01=0x0094}
0x0e7be…0e7ea Head {h00=0x0028, h01=0x0050, text=» ST A1,PRTID,A11 NEW HARDCOPY TASKID«, t00=0x0094, t01=0x00a8}
0x0e7ea…0e7fe Head {h00=0x0010, h01=0x0050, text=»IDEN90 EQU *«, t00=0x0094, t01=0x00d4}
0x0e7fe…0e80e Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0094, t01=0x00e8}
0x0e80e…0e81c Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0094, t01=0x00f8}
0x0e81c…0e862 Head {h00=0x0042, h01=0x0050, text=»************************************************************* «, t00=0x0094, t01=0x0106}
0x0e862…0e8a8 Head {h00=0x0042, h01=0x0050, text=»* * «, t00=0x0094, t01=0x014c}
0x0e8a8…0e8ee (149, 0, 400) Head {h00=0x0042, h01=0x0050, text=»* KEYL KEYLOCK STATUS * «, t00=0x0095, t01=0x0004}
0x0e8ee…0e934 Head {h00=0x0042, h01=0x0050, text=»* * «, t00=0x0095, t01=0x004a}
0x0e934…0e97a Head {h00=0x0042, h01=0x0050, text=»************************************************************* «, t00=0x0095, t01=0x0090}
0x0e97a…0e98e Head {h00=0x0010, h01=0x0050, text=»* REGISTERS«, t00=0x0095, t01=0x00d6}
0x0e98e…0e998 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0095, t01=0x00ea}
0x0e998…0e9b4 Head {h00=0x0018, h01=0x0050, text=»* A2= KEYLOCK VALUE «, t00=0x0095, t01=0x00f4}
0x0e9b4…0e9d4 Head {h00=0x001c, h01=0x0050, text=»* A11= CREDIT WORK AREA «, t00=0x0095, t01=0x0110}
0x0e9d4…0e9ec Head {h00=0x0014, h01=0x0050, text=»* A13= RESERVED «, t00=0x0095, t01=0x0130}
0x0e9ec…0e9f6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0095, t01=0x0148}
0x0e9f6…0ea3c Head {h00=0x0042, h01=0x0050, text=»**************************************************************«, t00=0x0095, t01=0x0152}
0x0ea3c…0ea52 Head {h00=0x0012, h01=0x0050, text=» IFT KEYLST=1 «, t00=0x0096, t01=0x0008}
0x0ea52…0ea68 Head {h00=0x0012, h01=0x0050, text=» IFT KB6272=1 «, t00=0x0096, t01=0x001e}
0x0ea68…0ea7a Head {h00=0x000e, h01=0x0050, text=»KEYL EQU *«, t00=0x0096, t01=0x0034}
0x0ea7a…0eaa8 Head {h00=0x002a, h01=0x0050, text=» SUK A2,LKLKEY GET NEG KEY LOCK VALUE «, t00=0x0096, t01=0x0046}
0x0eaa8…0eaca Head {h00=0x001e, h01=0x0050, text=» LD A3,KEYS,A11 OLD STATUS«, t00=0x0096, t01=0x0074}
0x0eaca…0eade Head {h00=0x0010, h01=0x0050, text=» LDK A4,/10 «, t00=0x0096, t01=0x0096}
0x0eade…0eaf2 Head {h00=0x0010, h01=0x0050, text=»KEYL10 EQU *«, t00=0x0096, t01=0x00aa}
0x0eaf2…0eb04 Head {h00=0x000e, h01=0x0050, text=» SRL A4,1 «, t00=0x0096, t01=0x00be}
0x0eb04…0eb24 Head {h00=0x001c, h01=0x0050, text=» ADK A2,2 1 = OFF,0 = ON«, t00=0x0096, t01=0x00d0}
0x0eb24…0eb3a Head {h00=0x0012, h01=0x0050, text=» RB(N) KEYL10 «, t00=0x0096, t01=0x00f0}
0x0eb3a…0eb5e Head {h00=0x0020, h01=0x0050, text=» ANR A3,A4 CHECK OLD KEY POS«, t00=0x0096, t01=0x0106}
0x0eb5e…0eb7c Head {h00=0x001a, h01=0x0050, text=» RF(NZ) KEYL20 WAS ON «, t00=0x0096, t01=0x012a}
0x0eb7c…0eb96 Head {h00=0x0016, h01=0x0050, text=» LDR A2,A2 WAS OFF«, t00=0x0096, t01=0x0148}
0x0eb96…0ebc0 Head {h00=0x0026, h01=0x0050, text=» RF(NZ) KEYL99 NOW OFF, NO CHANGE «, t00=0x0096, t01=0x0162}
0x0ebc0…0ebda Head {h00=0x0016, h01=0x0050, text=» RF KEYL30 NOW ON «, t00=0x0096, t01=0x018c}
0x0ebda…0ebf6 Head {h00=0x0018, h01=0x0050, text=»KEYL20 EQU * WAS ON «, t00=0x0097, t01=0x0016}
0x0ebf6…0ec08 Head {h00=0x000e, h01=0x0050, text=» LDR A2,A2«, t00=0x0097, t01=0x0032}
0x0ec08…0ec30 Head {h00=0x0024, h01=0x0050, text=» RF(Z) KEYL99 NOW ON, NO CHANGE «, t00=0x0097, t01=0x0044}
0x0ec30…0ec4c Head {h00=0x0018, h01=0x0050, text=»KEYL30 EQU * CHANGE«, t00=0x0097, t01=0x006c}
0x0ec4c…0ec64 Head {h00=0x0014, h01=0x0050, text=» LD A3,KEYS,A11 «, t00=0x0097, t01=0x0088}
0x0ec64…0ec84 Head {h00=0x001c, h01=0x0050, text=» XRR A3,A4 CHANGE STATUS«, t00=0x0097, t01=0x00a0}
0x0ec84…0ecac Head {h00=0x0024, h01=0x0050, text=» ST A3,KEYS,A11 STORE NEW STATUS«, t00=0x0097, t01=0x00c0}
0x0ecac…0ecb6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0097, t01=0x00e8}
0x0ecb6…0ecd6 Head {h00=0x001c, h01=0x0050, text=»* KEYLOCK STATUS CHANGED«, t00=0x0097, t01=0x00f2}
0x0ecd6…0ed24 Head {h00=0x004a, h01=0x0050, text=»* A3 = NEW STATUS, RIGHTMOST BIT = RIGHTMOST LOCK, BIT ON = LOCK ON «, t00=0x0097, t01=0x0112}
0x0ed24…0ed52 Head {h00=0x002a, h01=0x0050, text=»* A4 = KEYLOCK CHANGED, LAYOUT AS A3«, t00=0x0097, t01=0x0160}
0x0ed52…0ed7e Head {h00=0x0028, h01=0x0050, text=»* A2 = 1, IF CHANGED TO OFF ELSE 0«, t00=0x0097, t01=0x018e}
0x0ed7e…0ed88 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0098, t01=0x002a}
0x0ed88…0edb6 Head {h00=0x002a, h01=0x0050, text=»* INSERT USER ROUTINE BELOW THIS LINE «, t00=0x0098, t01=0x0034}
0x0edb6…0edc0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0098, t01=0x0062}
0x0edc0…0edd4 Head {h00=0x0010, h01=0x0050, text=»KEYL99 EQU *«, t00=0x0098, t01=0x006c}
0x0edd4…0ede4 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0098, t01=0x0080}
0x0ede4…0edf0 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0098, t01=0x0090}
0x0edf0…0edfe Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0098, t01=0x009c}
0x0edfe…0ee40 Head {h00=0x003e, h01=0x0050, text=»**********************************************************«, t00=0x0098, t01=0x00aa}
0x0ee40…0ee4a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0098, t01=0x00ec}
0x0ee4a…0ee64 Head {h00=0x0016, h01=0x0050, text=»* TESTM TEST MODE «, t00=0x0098, t01=0x00f6}
0x0ee64…0ee6e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0098, t01=0x0110}
0x0ee6e…0eeb0 Head {h00=0x003e, h01=0x0050, text=»**********************************************************«, t00=0x0098, t01=0x011a}
0x0eeb0…0eeca Head {h00=0x0016, h01=0x0050, text=»* REGISTERS«, t00=0x0098, t01=0x015c}
0x0eeca…0eed4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0098, t01=0x0176}
0x0eed4…0eeec Head {h00=0x0014, h01=0x0050, text=»* A11= RESERVED «, t00=0x0098, t01=0x0180}
0x0eeec…0ef04 Head {h00=0x0014, h01=0x0050, text=»* A13= RESERVED «, t00=0x0099, t01=0x0008}
0x0ef04…0ef0e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0099, t01=0x0020}
0x0ef0e…0ef50 Head {h00=0x003e, h01=0x0050, text=»********************************************************* «, t00=0x0099, t01=0x002a}
0x0ef50…0ef64 Head {h00=0x0010, h01=0x0050, text=» IFT TEST=1 «, t00=0x0099, t01=0x006c}
0x0ef64…0ef78 Head {h00=0x0010, h01=0x0050, text=»TESTM EQU * «, t00=0x0099, t01=0x0080}
0x0ef78…0ef8e Head {h00=0x0012, h01=0x0050, text=» CF A14,ERASE «, t00=0x0099, t01=0x0094}
0x0ef8e…0efa4 Head {h00=0x0012, h01=0x0050, text=» CF A14,GETBUF«, t00=0x0099, t01=0x00aa}
0x0efa4…0efba Head {h00=0x0012, h01=0x0050, text=» CF A14,RDSTAT«, t00=0x0099, t01=0x00c0}
0x0efba…0efd0 Head {h00=0x0012, h01=0x0050, text=» CF A14,DISSTA«, t00=0x0099, t01=0x00d6}
0x0efd0…0efe4 Head {h00=0x0010, h01=0x0050, text=» LDR A8,A12 «, t00=0x0099, t01=0x00ec}
0x0efe4…0effa Head {h00=0x0012, h01=0x0050, text=» CF A14,RELBUF«, t00=0x0099, t01=0x0100}
0x0effa…0f00a Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0099, t01=0x0116}
0x0f00a…0f016 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0099, t01=0x0126}
0x0f016…0f024 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0099, t01=0x0132}
0x0f024…0f066 Head {h00=0x003e, h01=0x0050, text=»********************************************************* «, t00=0x0099, t01=0x0140}
0x0f066…0f0a8 Head {h00=0x003e, h01=0x0050, text=»* * «, t00=0x0099, t01=0x0182}
0x0f0a8…0f0ea Head {h00=0x003e, h01=0x0050, text=»* ENTER ENTER KEY HANDLING * «, t00=0x009a, t01=0x0034}
0x0f0ea…0f12c Head {h00=0x003e, h01=0x0050, text=»* * «, t00=0x009a, t01=0x0076}
0x0f12c…0f16e Head {h00=0x003e, h01=0x0050, text=»********************************************************* «, t00=0x009a, t01=0x00b8}
0x0f16e…0f182 Head {h00=0x0010, h01=0x0050, text=»* REGISTERS«, t00=0x009a, t01=0x00fa}
0x0f182…0f18c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x009a, t01=0x010e}
0x0f18c…0f1a2 Head {h00=0x0012, h01=0x0050, text=»* A2= AID-CODE«, t00=0x009a, t01=0x0118}
0x0f1a2…0f1ba Head {h00=0x0014, h01=0x0050, text=»* A11= RESERVED «, t00=0x009a, t01=0x012e}
0x0f1ba…0f1d2 Head {h00=0x0014, h01=0x0050, text=»* A13= RESERVED «, t00=0x009a, t01=0x0146}
0x0f1d2…0f1dc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x009a, t01=0x015e}
0x0f1dc…0f21e Head {h00=0x003e, h01=0x0050, text=»********************************************************* «, t00=0x009a, t01=0x0168}
0x0f21e…0f232 Head {h00=0x0010, h01=0x0050, text=»ENTER EQU * «, t00=0x009b, t01=0x001a}
0x0f232…0f24e Head {h00=0x0018, h01=0x0050, text=» LDK A2,/27 AID-CODE«, t00=0x009b, t01=0x002e}
0x0f24e…0f280 Head {h00=0x002e, h01=0x0050, text=» CF A14,LMP3ON TURN ON "KEYBOARD INHIBIT" «, t00=0x009b, t01=0x004a}
0x0f280…0f2b2 Head {h00=0x002e, h01=0x0050, text=» CF A14,TRPF AID+MODIFIED FIELDS+TRANSMIT «, t00=0x009b, t01=0x007c}
0x0f2b2…0f2c2 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x009b, t01=0x00ae}
0x0f2c2…0f2d0 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x009b, t01=0x00be}
0x0f2d0…0f316 Head {h00=0x0042, h01=0x0050, text=»**************************************************************«, t00=0x009b, t01=0x00cc}
0x0f316…0f35c Head {h00=0x0042, h01=0x0050, text=»* *«, t00=0x009b, t01=0x0112}
0x0f35c…0f3a2 Head {h00=0x0042, h01=0x0050, text=»* CLEAR CLEAR KEY HANDLING *«, t00=0x009b, t01=0x0158}
0x0f3a2…0f3e8 Head {h00=0x0042, h01=0x0050, text=»* *«, t00=0x009c, t01=0x000e}
0x0f3e8…0f42e Head {h00=0x0042, h01=0x0050, text=»**************************************************************«, t00=0x009c, t01=0x0054}
0x0f42e…0f442 Head {h00=0x0010, h01=0x0050, text=»* REGISTERS«, t00=0x009c, t01=0x009a}
0x0f442…0f44c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x009c, t01=0x00ae}
0x0f44c…0f462 Head {h00=0x0012, h01=0x0050, text=»* A2= AID-CODE«, t00=0x009c, t01=0x00b8}
0x0f462…0f47a Head {h00=0x0014, h01=0x0050, text=»* A11= RESERVED «, t00=0x009c, t01=0x00ce}
0x0f47a…0f492 Head {h00=0x0014, h01=0x0050, text=»* A13= RESERVED «, t00=0x009c, t01=0x00e6}
0x0f492…0f49c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x009c, t01=0x00fe}
0x0f49c…0f4e2 Head {h00=0x0042, h01=0x0050, text=»**************************************************************«, t00=0x009c, t01=0x0108}
0x0f4e2…0f4f6 Head {h00=0x0010, h01=0x0050, text=»CLEAR EQU * «, t00=0x009c, t01=0x014e}
0x0f4f6…0f51a Head {h00=0x0020, h01=0x0050, text=» LDK A2,/5F POS FOR 'CLEAR' «, t00=0x009c, t01=0x0162}
0x0f51a…0f54c Head {h00=0x002e, h01=0x0050, text=» CF A14,LMP3ON TURN ON "KEYBOARD INHIBIT" «, t00=0x009c, t01=0x0186}
0x0f54c…0f578 Head {h00=0x0028, h01=0x0050, text=» CF A14,TRPA UPDATE AID AND TRANSMIT«, t00=0x009d, t01=0x0028}
0x0f578…0f5a2 Head {h00=0x0026, h01=0x0050, text=» CF A14,ERASE ERASE ENTIRE SCREEN «, t00=0x009d, t01=0x0054}
0x0f5a2…0f5b2 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x009d, t01=0x007e}
0x0f5b2…0f5c0 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x009d, t01=0x008e}
0x0f5c0…0f608 Head {h00=0x0044, h01=0x0050, text=»*************************************************************** «, t00=0x009d, t01=0x009c}
0x0f608…0f650 Head {h00=0x0044, h01=0x0050, text=»* * «, t00=0x009d, t01=0x00e4}
0x0f650…0f698 Head {h00=0x0044, h01=0x0050, text=»* SYSREQ SYSTEM REQUEST HANDLING * «, t00=0x009d, t01=0x012c}
0x0f698…0f6e0 Head {h00=0x0044, h01=0x0050, text=»* * «, t00=0x009d, t01=0x0174}
0x0f6e0…0f728 Head {h00=0x0044, h01=0x0050, text=»*************************************************************** «, t00=0x009e, t01=0x002c}
0x0f728…0f73c Head {h00=0x0010, h01=0x0050, text=»* REGISTERS«, t00=0x009e, t01=0x0074}
0x0f73c…0f746 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x009e, t01=0x0088}
0x0f746…0f766 Head {h00=0x001c, h01=0x0050, text=»* A11= CREDIT WORK AREA «, t00=0x009e, t01=0x0092}
0x0f766…0f77e Head {h00=0x0014, h01=0x0050, text=»* A13= RESERVED «, t00=0x009e, t01=0x00b2}
0x0f77e…0f788 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x009e, t01=0x00ca}
0x0f788…0f7c4 Head {h00=0x0038, h01=0x0050, text=»****************************************************«, t00=0x009e, t01=0x00d4}
0x0f7c4…0f7d6 Head {h00=0x000e, h01=0x0050, text=» IFT SNA=1«, t00=0x009e, t01=0x0110}
0x0f7d6…0f7ea Head {h00=0x0010, h01=0x0050, text=»SYSREQ EQU *«, t00=0x009e, t01=0x0122}
0x0f7ea…0f80c Head {h00=0x001e, h01=0x0050, text=» CF A14,TSTSTA TEST STATUS«, t00=0x009e, t01=0x0136}
0x0f80c…0f82a Head {h00=0x001a, h01=0x0050, text=» LDR A2,A1 GET STATUS «, t00=0x009e, t01=0x0158}
0x0f82a…0f848 Head {h00=0x001a, h01=0x0050, text=» ANKL A2,/101 ACTIVE? «, t00=0x009e, t01=0x0176}
0x0f848…0f862 (159, 0, 400) Head {h00=0x0016, h01=0x0050, text=» RF(Z) SYS100 YES «, t00=0x009f, t01=0x0004}
0x0f862…0f88c Head {h00=0x0026, h01=0x0050, text=» LDK A1,LOCMOD INDICATE LOCAL MODE«, t00=0x009f, t01=0x001e}
0x0f88c…0f89e Head {h00=0x000e, h01=0x0050, text=» RF SYS500«, t00=0x009f, t01=0x0048}
0x0f89e…0f8b2 Head {h00=0x0010, h01=0x0050, text=»SYS100 EQU *«, t00=0x009f, t01=0x005a}
0x0f8b2…0f8d0 Head {h00=0x001a, h01=0x0050, text=» LDR A2,A1 GET STATUS «, t00=0x009f, t01=0x006e}
0x0f8d0…0f8f2 Head {h00=0x001e, h01=0x0050, text=» ANKL A2,/C00 MY JOB MODE?«, t00=0x009f, t01=0x008c}
0x0f8f2…0f90c Head {h00=0x0016, h01=0x0050, text=» RF(NZ) SYS200 NO «, t00=0x009f, t01=0x00ae}
0x0f90c…0f936 Head {h00=0x0026, h01=0x0050, text=» CF A14,CLEAR CLEAR SCREEN AND DC «, t00=0x009f, t01=0x00c8}
0x0f936…0f962 Head {h00=0x0028, h01=0x0050, text=» CF A14,RESKB RESET KEYBOARD BUFFER «, t00=0x009f, t01=0x00f2}
0x0f962…0f98c Head {h00=0x0026, h01=0x0050, text=» LDK A1,SYSOP INDICATE SYSTEM MODE«, t00=0x009f, t01=0x011e}
0x0f98c…0f99e Head {h00=0x000e, h01=0x0050, text=» RF SYS500«, t00=0x009f, t01=0x0148}
0x0f99e…0f9b2 Head {h00=0x0010, h01=0x0050, text=»SYS200 EQU *«, t00=0x009f, t01=0x015a}
0x0f9b2…0f9de Head {h00=0x0028, h01=0x0050, text=» CWK A2,/C00 SSCP-LU AND NOT LU-LU? «, t00=0x009f, t01=0x016e}
0x0f9de…0f9f8 Head {h00=0x0016, h01=0x0050, text=» RF(NE) SYS300 NO «, t00=0x00a0, t01=0x000a}
0x0f9f8…0fa22 Head {h00=0x0026, h01=0x0050, text=» LDK A1,SYSOP INDICATE SYSTEM MODE«, t00=0x00a0, t01=0x0024}
0x0fa22…0fa34 Head {h00=0x000e, h01=0x0050, text=» RF SYS500«, t00=0x00a0, t01=0x004e}
0x0fa34…0fa48 Head {h00=0x0010, h01=0x0050, text=»SYS300 EQU *«, t00=0x00a0, t01=0x0060}
0x0fa48…0fa70 Head {h00=0x0024, h01=0x0050, text=» ANKL A2,/800 SSCP-LU AND LU-LU?«, t00=0x00a0, t01=0x0074}
0x0fa70…0fa8a Head {h00=0x0016, h01=0x0050, text=» RF(NZ) SYS400 YES«, t00=0x00a0, t01=0x009c}
0x0fa8a…0fab4 Head {h00=0x0026, h01=0x0050, text=» LDK A1,SYSOP INDICATE SYSTEM MODE«, t00=0x00a0, t01=0x00b6}
0x0fab4…0fac6 Head {h00=0x000e, h01=0x0050, text=» RF SYS500«, t00=0x00a0, t01=0x00e0}
0x0fac6…0fada Head {h00=0x0010, h01=0x0050, text=»SYS400 EQU *«, t00=0x00a0, t01=0x00f2}
0x0fada…0fb04 Head {h00=0x0026, h01=0x0050, text=» LDK A1,MYJOB INDICATE MY JOB MODE«, t00=0x00a0, t01=0x0106}
0x0fb04…0fb18 Head {h00=0x0010, h01=0x0050, text=»SYS500 EQU *«, t00=0x00a0, t01=0x0130}
0x0fb18…0fb4c Head {h00=0x0030, h01=0x0050, text=» ORKL A1,NEWMOD INDICATE NEW MODE ACTIVATION«, t00=0x00a0, t01=0x0144}
0x0fb4c…0fb66 Head {h00=0x0016, h01=0x0050, text=» ST A1,SNAMOD,A11 «, t00=0x00a0, t01=0x0178}
0x0fb66…0fb76 (161, 0, 398) Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x00a1, t01=0x0004}
0x0fb76…0fb82 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00a1, t01=0x0014}
0x0fb82…0fb90 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x00a1, t01=0x0020}
0x0fb90…0fbd8 Head {h00=0x0044, h01=0x0050, text=»*************************************************************** «, t00=0x00a1, t01=0x002e}
0x0fbd8…0fc20 Head {h00=0x0044, h01=0x0050, text=»* * «, t00=0x00a1, t01=0x0076}
0x0fc20…0fc68 Head {h00=0x0044, h01=0x0050, text=»* ATTN ATTENTION KEY HANDLING * «, t00=0x00a1, t01=0x00be}
0x0fc68…0fcb0 Head {h00=0x0044, h01=0x0050, text=»* * «, t00=0x00a1, t01=0x0106}
0x0fcb0…0fcf8 Head {h00=0x0044, h01=0x0050, text=»*************************************************************** «, t00=0x00a1, t01=0x014e}
0x0fcf8…0fd16 Head {h00=0x001a, h01=0x0050, text=»* REGISTERS «, t00=0x00a2, t01=0x0008}
0x0fd16…0fd20 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00a2, t01=0x0026}
0x0fd20…0fd38 Head {h00=0x0014, h01=0x0050, text=»* A11= RESERVED «, t00=0x00a2, t01=0x0030}
0x0fd38…0fd50 Head {h00=0x0014, h01=0x0050, text=»* A13= RESERVED «, t00=0x00a2, t01=0x0048}
0x0fd50…0fd5a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00a2, t01=0x0060}
0x0fd5a…0fd9c Head {h00=0x003e, h01=0x0050, text=»**********************************************************«, t00=0x00a2, t01=0x006a}
0x0fd9c…0fdae Head {h00=0x000e, h01=0x0050, text=» IFT SNA=1«, t00=0x00a2, t01=0x00ac}
0x0fdae…0fdc0 Head {h00=0x000e, h01=0x0050, text=»ATTN EQU *«, t00=0x00a2, t01=0x00be}
0x0fdc0…0fde8 Head {h00=0x0024, h01=0x0050, text=» LDK A1,/4B SIGNAL ATTENTION KEY«, t00=0x00a2, t01=0x00d0}
0x0fde8…0fe0a Head {h00=0x001e, h01=0x0050, text=» CF A14,SETSTA SET STATUS «, t00=0x00a2, t01=0x00f8}
0x0fe0a…0fe1a Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x00a2, t01=0x011a}
0x0fe1a…0fe26 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00a2, t01=0x012a}
0x0fe26…0fe34 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x00a2, t01=0x0136}
0x0fe34…0fe7a Head {h00=0x0042, h01=0x0050, text=»**************************************************************«, t00=0x00a2, t01=0x0144}
0x0fe7a…0fec0 Head {h00=0x0042, h01=0x0050, text=»* *«, t00=0x00a2, t01=0x018a}
0x0fec0…0ff04 Head {h00=0x0040, h01=0x0050, text=»* PA PROGRAM ACCESS KEY HANDLING * «, t00=0x00a3, t01=0x0040}
0x0ff04…0ff4a Head {h00=0x0042, h01=0x0050, text=»* *«, t00=0x00a3, t01=0x0084}
0x0ff4a…0ff90 Head {h00=0x0042, h01=0x0050, text=»**************************************************************«, t00=0x00a3, t01=0x00ca}
0x0ff90…0ffa4 Head {h00=0x0010, h01=0x0050, text=»* REGISTERS«, t00=0x00a3, t01=0x0110}
0x0ffa4…0ffae Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00a3, t01=0x0124}
0x0ffae…0ffc4 Head {h00=0x0012, h01=0x0050, text=»* A2= AID-CODE«, t00=0x00a3, t01=0x012e}
0x0ffc4…0ffdc Head {h00=0x0014, h01=0x0050, text=»* A11= RESERVED «, t00=0x00a3, t01=0x0144}
0x0ffdc…0fff4 Head {h00=0x0014, h01=0x0050, text=»* A13= RESERVED «, t00=0x00a3, t01=0x015c}
0x0fff4…0fffe Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00a3, t01=0x0174}
0x0fffe…10044 Head {h00=0x0042, h01=0x0050, text=»**************************************************************«, t00=0x00a3, t01=0x017e}
0x10044…10056 Head {h00=0x000e, h01=0x0050, text=»PA1 EQU * «, t00=0x00a4, t01=0x0034}
0x10056…10072 Head {h00=0x0018, h01=0x0050, text=» LDK A2,/25 AID-CODE«, t00=0x00a4, t01=0x0046}
0x10072…10084 Head {h00=0x000e, h01=0x0050, text=» RF PA500 «, t00=0x00a4, t01=0x0062}
0x10084…10096 Head {h00=0x000e, h01=0x0050, text=»PA2 EQU * «, t00=0x00a4, t01=0x0074}
0x10096…100b2 Head {h00=0x0018, h01=0x0050, text=» LDK A2,/3E AID-CODE«, t00=0x00a4, t01=0x0086}
0x100b2…100c4 Head {h00=0x000e, h01=0x0050, text=» RF PA500 «, t00=0x00a4, t01=0x00a2}
0x100c4…100d6 Head {h00=0x000e, h01=0x0050, text=»PA3 EQU * «, t00=0x00a4, t01=0x00b4}
0x100d6…100f2 Head {h00=0x0018, h01=0x0050, text=» LDK A2,/2C AID-CODE«, t00=0x00a4, t01=0x00c6}
0x100f2…10106 Head {h00=0x0010, h01=0x0050, text=»PA500 EQU * «, t00=0x00a4, t01=0x00e2}
0x10106…10136 Head {h00=0x002c, h01=0x0050, text=» CF A14,LMP3ON TURN ON KEYBOARD INHIBIT «, t00=0x00a4, t01=0x00f6}
0x10136…1015c Head {h00=0x0022, h01=0x0050, text=» CF A14,TRPA TRANSMIT AID-CODE«, t00=0x00a4, t01=0x0126}
0x1015c…10170 Head {h00=0x0010, h01=0x0050, text=»PAALFA EQU *«, t00=0x00a4, t01=0x014c}
0x10170…10194 Head {h00=0x0020, h01=0x0050, text=»*INSERT ALFASKOP STATEMENTS «, t00=0x00a4, t01=0x0160}
0x10194…101a4 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x00a4, t01=0x0184}
0x101a4…101b2 (165, 0, 400) Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x00a5, t01=0x0004}
0x101b2…101fe Head {h00=0x0048, h01=0x0050, text=»******************************************************************* «, t00=0x00a5, t01=0x0012}
0x101fe…1024a Head {h00=0x0048, h01=0x0050, text=»* * «, t00=0x00a5, t01=0x005e}
0x1024a…10296 Head {h00=0x0048, h01=0x0050, text=»* PAEX PAEX KEY FOLLOWED BY NUMBER * «, t00=0x00a5, t01=0x00aa}
0x10296…102e2 Head {h00=0x0048, h01=0x0050, text=»* * «, t00=0x00a5, t01=0x00f6}
0x102e2…1032e Head {h00=0x0048, h01=0x0050, text=»******************************************************************* «, t00=0x00a5, t01=0x0142}
0x1032e…10342 Head {h00=0x0010, h01=0x0050, text=»* REGISTERS«, t00=0x00a5, t01=0x018e}
0x10342…1034c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00a6, t01=0x0012}
0x1034c…1036c Head {h00=0x001c, h01=0x0050, text=»* A11= CREDIT WORK AREA «, t00=0x00a6, t01=0x001c}
0x1036c…10384 Head {h00=0x0014, h01=0x0050, text=»* A13= RESERVED «, t00=0x00a6, t01=0x003c}
0x10384…1038e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00a6, t01=0x0054}
0x1038e…103ca Head {h00=0x0038, h01=0x0050, text=»*************************************************** «, t00=0x00a6, t01=0x005e}
0x103ca…103dc Head {h00=0x000e, h01=0x0050, text=» IFT PAX=1«, t00=0x00a6, t01=0x009a}
0x103dc…103ee Head {h00=0x000e, h01=0x0050, text=»PAEX EQU *«, t00=0x00a6, t01=0x00ac}
0x103ee…10404 Head {h00=0x0012, h01=0x0050, text=» LDKL A1,PAEXA«, t00=0x00a6, t01=0x00be}
0x10404…1041e Head {h00=0x0016, h01=0x0050, text=» ST A1,RDMORE,A11 «, t00=0x00a6, t01=0x00d4}
0x1041e…1042e Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x00a6, t01=0x00ee}
0x1042e…10442 Head {h00=0x0010, h01=0x0050, text=»PAEXA EQU * «, t00=0x00a6, t01=0x00fe}
0x10442…10458 Head {h00=0x0012, h01=0x0050, text=» CM RDMORE,A11«, t00=0x00a6, t01=0x0112}
0x10458…1047c Head {h00=0x0020, h01=0x0050, text=» SUK A2,/31 CHECK IF NUM.1-3«, t00=0x00a6, t01=0x0128}
0x1047c…1049e Head {h00=0x001e, h01=0x0050, text=» RF(L) PAERR ILLEGAL CHAR.«, t00=0x00a6, t01=0x014c}
0x1049e…104c2 Head {h00=0x0020, h01=0x0050, text=» SUK A2,/2 CHECK IF NUM.1-3 «, t00=0x00a6, t01=0x016e}
0x104c2…104e4 (167, 0, 400) Head {h00=0x001e, h01=0x0050, text=» RF(G) PAERR ILLEGAL CHAR.«, t00=0x00a7, t01=0x0004}
0x104e4…104fa Head {h00=0x0012, h01=0x0050, text=» RF(NZ) PAEX10«, t00=0x00a7, t01=0x0026}
0x104fa…10516 Head {h00=0x0018, h01=0x0050, text=» CF A14,PA3 PA3 KEY «, t00=0x00a7, t01=0x003c}
0x10516…10528 Head {h00=0x000e, h01=0x0050, text=» RF PARET «, t00=0x00a7, t01=0x0058}
0x10528…1053c Head {h00=0x0010, h01=0x0050, text=»PAEX10 EQU *«, t00=0x00a7, t01=0x006a}
0x1053c…1054e Head {h00=0x000e, h01=0x0050, text=» ADK A2,1 «, t00=0x00a7, t01=0x007e}
0x1054e…10564 Head {h00=0x0012, h01=0x0050, text=» RF(NZ) PAEX20«, t00=0x00a7, t01=0x0090}
0x10564…10580 Head {h00=0x0018, h01=0x0050, text=» CF A14,PA2 PA2 KEY «, t00=0x00a7, t01=0x00a6}
0x10580…10592 Head {h00=0x000e, h01=0x0050, text=» RF PARET «, t00=0x00a7, t01=0x00c2}
0x10592…105a6 Head {h00=0x0010, h01=0x0050, text=»PAEX20 EQU *«, t00=0x00a7, t01=0x00d4}
0x105a6…105c2 Head {h00=0x0018, h01=0x0050, text=» CF A14,PA1 PA1 KEY «, t00=0x00a7, t01=0x00e8}
0x105c2…105d4 Head {h00=0x000e, h01=0x0050, text=» RF PARET «, t00=0x00a7, t01=0x0104}
0x105d4…105e8 Head {h00=0x0010, h01=0x0050, text=»PAERR EQU * «, t00=0x00a7, t01=0x0116}
0x105e8…1060c Head {h00=0x0020, h01=0x0050, text=» CF A14,ERROR INDICATE ERROR«, t00=0x00a7, t01=0x012a}
0x1060c…10620 Head {h00=0x0010, h01=0x0050, text=»PARET EQU * «, t00=0x00a7, t01=0x014e}
0x10620…10630 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x00a7, t01=0x0162}
0x10630…1063c Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00a7, t01=0x0172}
0x1063c…1064a Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x00a7, t01=0x017e}
0x1064a…10694 Head {h00=0x0046, h01=0x0050, text=»******************************************************************«, t00=0x00a7, t01=0x018c}
0x10694…106de Head {h00=0x0046, h01=0x0050, text=»* *«, t00=0x00a8, t01=0x0046}
0x106de…10728 Head {h00=0x0046, h01=0x0050, text=»* PF PROGRAM FUNTION KEY HANDLING *«, t00=0x00a8, t01=0x0090}
0x10728…10772 Head {h00=0x0046, h01=0x0050, text=»* *«, t00=0x00a8, t01=0x00da}
0x10772…107bc Head {h00=0x0046, h01=0x0050, text=»******************************************************************«, t00=0x00a8, t01=0x0124}
0x107bc…107d0 Head {h00=0x0010, h01=0x0050, text=»* REGISTERS«, t00=0x00a8, t01=0x016e}
0x107d0…107da Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00a8, t01=0x0182}
0x107da…107f0 Head {h00=0x0012, h01=0x0050, text=»* A2= AID-CODE«, t00=0x00a8, t01=0x018c}
0x107f0…10808 Head {h00=0x0014, h01=0x0050, text=»* A11= RESERVED «, t00=0x00a9, t01=0x0012}
0x10808…10820 Head {h00=0x0014, h01=0x0050, text=»* A13= RESERVED «, t00=0x00a9, t01=0x002a}
0x10820…1082a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00a9, t01=0x0042}
0x1082a…10874 Head {h00=0x0046, h01=0x0050, text=»******************************************************************«, t00=0x00a9, t01=0x004c}
0x10874…10884 Head {h00=0x000c, h01=0x0050, text=»PF EQU *«, t00=0x00a9, t01=0x0096}
0x10884…108ae Head {h00=0x0026, h01=0x0050, text=» SUK A2,PFKEY GET INDEX TO CONVERT«, t00=0x00a9, t01=0x00a6}
0x108ae…108ce Head {h00=0x001c, h01=0x0050, text=» LC A2,CONPF,A2 GET AID «, t00=0x00a9, t01=0x00d0}
0x108ce…108fe Head {h00=0x002c, h01=0x0050, text=» CF A14,LMP3ON TURN ON KEYBOARD INHIBIT «, t00=0x00a9, t01=0x00f0}
0x108fe…10934 Head {h00=0x0032, h01=0x0050, text=» CF A14,TRPF TRANSMIT AID AND MODIFIED FIELDS «, t00=0x00a9, t01=0x0120}
0x10934…10944 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x00a9, t01=0x0156}
0x10944…10952 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x00a9, t01=0x0166}
0x10952…1099c Head {h00=0x0046, h01=0x0050, text=»***************************************************************** «, t00=0x00a9, t01=0x0174}
0x1099c…109e6 Head {h00=0x0046, h01=0x0050, text=»* * «, t00=0x00aa, t01=0x002e}
0x109e6…10a30 Head {h00=0x0046, h01=0x0050, text=»* PFEX PFEX KEY FOLLOWED BY NUMBER * «, t00=0x00aa, t01=0x0078}
0x10a30…10a7a Head {h00=0x0046, h01=0x0050, text=»* * «, t00=0x00aa, t01=0x00c2}
0x10a7a…10ac4 Head {h00=0x0046, h01=0x0050, text=»***************************************************************** «, t00=0x00aa, t01=0x010c}
0x10ac4…10ad8 Head {h00=0x0010, h01=0x0050, text=»* REGISTERS«, t00=0x00aa, t01=0x0156}
0x10ad8…10ae2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00aa, t01=0x016a}
0x10ae2…10b02 Head {h00=0x001c, h01=0x0050, text=»* A11= CREDIT WORK AREA «, t00=0x00aa, t01=0x0174}
0x10b02…10b1a (171, 0, 400) Head {h00=0x0014, h01=0x0050, text=»* A13= RESERVED «, t00=0x00ab, t01=0x0004}
0x10b1a…10b24 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00ab, t01=0x001c}
0x10b24…10b5e Head {h00=0x0036, h01=0x0050, text=»************************************************* «, t00=0x00ab, t01=0x0026}
0x10b5e…10b70 Head {h00=0x000e, h01=0x0050, text=» IFT PFX=1«, t00=0x00ab, t01=0x0060}
0x10b70…10b82 Head {h00=0x000e, h01=0x0050, text=»PFEX EQU *«, t00=0x00ab, t01=0x0072}
0x10b82…10b98 Head {h00=0x0012, h01=0x0050, text=» LDKL A1,PFEXA«, t00=0x00ab, t01=0x0084}
0x10b98…10baa Head {h00=0x000e, h01=0x0050, text=» RF PFNXT «, t00=0x00ab, t01=0x009a}
0x10baa…10bbe Head {h00=0x0010, h01=0x0050, text=»PFEXA EQU * «, t00=0x00ab, t01=0x00ac}
0x10bbe…10bd4 Head {h00=0x0012, h01=0x0050, text=» CM RDMORE,A11«, t00=0x00ab, t01=0x00c0}
0x10bd4…10bf4 Head {h00=0x001c, h01=0x0050, text=» SUK A2,/30 LEGAL CHAR ?«, t00=0x00ab, t01=0x00d6}
0x10bf4…10c24 Head {h00=0x002c, h01=0x0050, text=» RF(L) PFERR ILLEGAL,GO TO ERR.HANDLING «, t00=0x00ab, t01=0x00f6}
0x10c24…10c3a Head {h00=0x0012, h01=0x0050, text=» RF(NZ) PFEX10«, t00=0x00ab, t01=0x0126}
0x10c3a…10c5c Head {h00=0x001e, h01=0x0050, text=» LDKL A1,PF0A FIRST NUM 0 «, t00=0x00ab, t01=0x013c}
0x10c5c…10c7a Head {h00=0x001a, h01=0x0050, text=» RF PFNXT NEXT NUMBER «, t00=0x00ab, t01=0x015e}
0x10c7a…10c8e Head {h00=0x0010, h01=0x0050, text=»PFEX10 EQU *«, t00=0x00ab, t01=0x017c}
0x10c8e…10ca0 Head {h00=0x000e, h01=0x0050, text=» SUK A2,1 «, t00=0x00ab, t01=0x0190}
0x10ca0…10cb6 Head {h00=0x0012, h01=0x0050, text=» RF(NZ) PFEX20«, t00=0x00ac, t01=0x0012}
0x10cb6…10cd8 Head {h00=0x001e, h01=0x0050, text=» LDKL A1,PF1A FIRST NUM 1 «, t00=0x00ac, t01=0x0028}
0x10cd8…10cf6 Head {h00=0x001a, h01=0x0050, text=» RF PFNXT NEXT NUMBER «, t00=0x00ac, t01=0x004a}
0x10cf6…10d0a Head {h00=0x0010, h01=0x0050, text=»PFEX20 EQU *«, t00=0x00ac, t01=0x0068}
0x10d0a…10d1c Head {h00=0x000e, h01=0x0050, text=» SUK A2,1 «, t00=0x00ac, t01=0x007c}
0x10d1c…10d3e Head {h00=0x001e, h01=0x0050, text=» RF(NZ) PFERR ILLEGAL NUM «, t00=0x00ac, t01=0x008e}
0x10d3e…10d60 Head {h00=0x001e, h01=0x0050, text=» LDKL A1,PF2A FIRST NUM 2 «, t00=0x00ac, t01=0x00b0}
0x10d60…10d7e Head {h00=0x001a, h01=0x0050, text=» RF PFNXT NEXT NUMBER «, t00=0x00ac, t01=0x00d2}
0x10d7e…10d90 Head {h00=0x000e, h01=0x0050, text=»PF0A EQU *«, t00=0x00ac, t01=0x00f0}
0x10d90…10da6 Head {h00=0x0012, h01=0x0050, text=» CM RDMORE,A11«, t00=0x00ac, t01=0x0102}
0x10da6…10dc6 Head {h00=0x001c, h01=0x0050, text=» SUK A2,/31 ILLEGAL NUM?«, t00=0x00ac, t01=0x0118}
0x10dc6…10dde Head {h00=0x0014, h01=0x0050, text=» RF(N) PFERR YES«, t00=0x00ac, t01=0x0138}
0x10dde…10dfc Head {h00=0x001a, h01=0x0050, text=» SUK A2,9 ILLEGAL NUM?«, t00=0x00ac, t01=0x0150}
0x10dfc…10e16 Head {h00=0x0016, h01=0x0050, text=» RF(NN) PFERR YES «, t00=0x00ac, t01=0x016e}
0x10e16…10e36 Head {h00=0x001c, h01=0x0050, text=» ADK A2,/9+PFKEY PF1-PF9«, t00=0x00ac, t01=0x0188}
0x10e36…10e48 Head {h00=0x000e, h01=0x0050, text=» RF PFHAND«, t00=0x00ad, t01=0x0018}
0x10e48…10e5a Head {h00=0x000e, h01=0x0050, text=»PF1A EQU *«, t00=0x00ad, t01=0x002a}
0x10e5a…10e70 Head {h00=0x0012, h01=0x0050, text=» CM RDMORE,A11«, t00=0x00ad, t01=0x003c}
0x10e70…10e90 Head {h00=0x001c, h01=0x0050, text=» SUK A2,/30 ILLEGAL NUM?«, t00=0x00ad, t01=0x0052}
0x10e90…10ea8 Head {h00=0x0014, h01=0x0050, text=» RF(N) PFERR YES«, t00=0x00ad, t01=0x0072}
0x10ea8…10ec8 Head {h00=0x001c, h01=0x0050, text=» SUK A2,/A ILLEGAL NUM? «, t00=0x00ad, t01=0x008a}
0x10ec8…10ee2 Head {h00=0x0016, h01=0x0050, text=» RF(NN) PFERR YES «, t00=0x00ad, t01=0x00aa}
0x10ee2…10f08 Head {h00=0x0022, h01=0x0050, text=» ADK A2,/A+PFKEY+/9 PF10-PF19 «, t00=0x00ad, t01=0x00c4}
0x10f08…10f1a Head {h00=0x000e, h01=0x0050, text=» RF PFHAND«, t00=0x00ad, t01=0x00ea}
0x10f1a…10f2c Head {h00=0x000e, h01=0x0050, text=»PF2A EQU *«, t00=0x00ad, t01=0x00fc}
0x10f2c…10f42 Head {h00=0x0012, h01=0x0050, text=» CM RDMORE,A11«, t00=0x00ad, t01=0x010e}
0x10f42…10f62 Head {h00=0x001c, h01=0x0050, text=» SUK A2,/30 ILLEGAL NUM?«, t00=0x00ad, t01=0x0124}
0x10f62…10f7a Head {h00=0x0014, h01=0x0050, text=» RF(N) PFERR YES«, t00=0x00ad, t01=0x0144}
0x10f7a…10f98 Head {h00=0x001a, h01=0x0050, text=» SUK A2,5 ILLEGAL NUM?«, t00=0x00ad, t01=0x015c}
0x10f98…10fb2 Head {h00=0x0016, h01=0x0050, text=» RF(NN) PFERR YES «, t00=0x00ad, t01=0x017a}
0x10fb2…10fd8 (174, 0, 400) Head {h00=0x0022, h01=0x0050, text=» ADK A2,/5+PFKEY+/13 PF20-PF24«, t00=0x00ae, t01=0x0004}
0x10fd8…10fec Head {h00=0x0010, h01=0x0050, text=»PFHAND EQU *«, t00=0x00ae, t01=0x002a}
0x10fec…1101c Head {h00=0x002c, h01=0x0050, text=» CF A14,PF PROGRAM FUNCTION KEY HANDLING«, t00=0x00ae, t01=0x003e}
0x1101c…1102e Head {h00=0x000e, h01=0x0050, text=» RF PFRET «, t00=0x00ae, t01=0x006e}
0x1102e…11042 Head {h00=0x0010, h01=0x0050, text=»PFNXT EQU * «, t00=0x00ae, t01=0x0080}
0x11042…1105c Head {h00=0x0016, h01=0x0050, text=» ST A1,RDMORE,A11 «, t00=0x00ae, t01=0x0094}
0x1105c…1106e Head {h00=0x000e, h01=0x0050, text=» RF PFRET «, t00=0x00ae, t01=0x00ae}
0x1106e…11082 Head {h00=0x0010, h01=0x0050, text=»PFERR EQU * «, t00=0x00ae, t01=0x00c0}
0x11082…11098 Head {h00=0x0012, h01=0x0050, text=» CF A14,ERROR «, t00=0x00ae, t01=0x00d4}
0x11098…110ac Head {h00=0x0010, h01=0x0050, text=»PFRET EQU * «, t00=0x00ae, t01=0x00ea}
0x110ac…110bc Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x00ae, t01=0x00fe}
0x110bc…110c8 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00ae, t01=0x010e}
0x110c8…110d6 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x00ae, t01=0x011a}
0x110d6…110de Head {h00=0x0004, h01=0x0050, t00=0x00ae, t01=0x0128}
0x110de…11120 Head {h00=0x003e, h01=0x0050, text=»**********************************************************«, t00=0x00ae, t01=0x0130}
0x11120…11162 Head {h00=0x003e, h01=0x0050, text=»* *«, t00=0x00ae, t01=0x0172}
0x11162…111a4 Head {h00=0x003e, h01=0x0050, text=»* RETURN RETURN *«, t00=0x00af, t01=0x0024}
0x111a4…111e6 Head {h00=0x003e, h01=0x0050, text=»* *«, t00=0x00af, t01=0x0066}
0x111e6…1122a Head {h00=0x0040, h01=0x0050, text=»*********************************************************** «, t00=0x00af, t01=0x00a8}
0x1122a…11246 Head {h00=0x0018, h01=0x0050, text=»* REGISTERS «, t00=0x00af, t01=0x00ec}
0x11246…11250 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00af, t01=0x0108}
0x11250…11268 Head {h00=0x0014, h01=0x0050, text=»* A11= RESERVED «, t00=0x00af, t01=0x0112}
0x11268…11280 Head {h00=0x0014, h01=0x0050, text=»* A13= RESERVED «, t00=0x00af, t01=0x012a}
0x11280…1128a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00af, t01=0x0142}
0x1128a…112ca Head {h00=0x003c, h01=0x0050, text=»********************************************************«, t00=0x00af, t01=0x014c}
0x112ca…112de Head {h00=0x0010, h01=0x0050, text=»RETURN EQU *«, t00=0x00af, t01=0x018c}
0x112de…112ee Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x00b0, t01=0x0010}
0x112ee…112f6 Head {h00=0x0004, h01=0x0050, t00=0x00b0, t01=0x0020}
0x112f6…11302 Head {h00=0x0008, h01=0x0050, text=» END«, t00=0x00b0, t01=0x0028}
0x11302…11306 Head {h00=0x4004, h01=0x0000}
0x11306…1130a 00 b0 00 34 ┆ 4┆
0x1130a…11312 (177, 1, 8) 20 04 00 00 00 b1 00 04 ┆ ┆