|
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: 71790 (0x1186e)
Notes: pts_type(SC)
Names: »KEYB2.SC«
└─⟦7a1dcd5a9⟧ Bits:30009673 Philips computer tape "600134"
└─⟦this⟧ »PT3272/KEYB2.SC«
IDENT KEYB2 REL 11.0 DK 830113 NJ 870150541100 DK3 PA 4-9 830113 NJ DK2 RESTORE A1 AFTER DC ABRT DK1,ERASE ONE LINE 'EOF' =3 ERASE TO END OF FIELD =2 TWO DC-LINES 82-02-28 =1, SYSTEM MODE CURSOR 81-01-26 *************************************************************** * * * MODULE KEYB * * MODULE HANDLING THE KEYBOARD DEVICE * * (EMULATION 3270 SNA/SDLC, BSC) * * * *************************************************************** EJECT *************************************************************** * * * LIST OF ROUTINES * * * * KBINP MAIN ROUTINE * * CPLKB KB-COMPLETION TABLE FOR DIFF. MODES * * KBCPLO KB-COMPLETION ROUTINE IN LOCAL MODE * KBCPSY KB-COMPLETION ROUTINE IN SYSTEM MODE * * KBCPJO KB-COMPLETION ROUTINE IN MY JOB MODE * * READKB READ KEYBOARD WITH NO WAIT * * RESKB RESET KEYBOARD-BUFFER * * ICVRED KB/VDU INTERTASK READ * ICINP INTERTASK INPUT * ICSET SET INTERTASK TIMEOUT * ICREAD READ INTERTASK * ICWRT WRITE INTERTASK * ERROR ILLEGAL KEY-HANDLING * * LAMPROUTINES * * SDISP SIGNAL ROUTINE * * KEYTAB KEY-TABLE, FIXED ENTRY FOR EACH FUNC. * * CHAR ALPHA. CHAR HANDLING * * NUM NUM. CHAR HANDLING * * ANCOMM ALPHANUM. CHAR HANDLING * * CURMOV MOVE CURSOR ON SCREEN * * BAKTAB TAB. UNPROT. BACKWARDS * * TAB TAB. UNPROT. FORWARDS * * CRNL TAB. UNPROT. NEXT LINE * * RDHOME TAB. UNPROT. FIRST ON SCREEN * * EREOF ERASE TO END OF FIELD * * ERINPT ERASE UNPROT. ENTIRE SCREEN * * INSERT INSERT HANDLING * * DELETE DELETE HANDLING * * RESET RESET HANDLING * * DUP DUPLICATE HANDLING * * FLDMRK FIELDMARK HANDLING * * ZERO:2,3 DOUBLE & TRIPLE ZERO HANDLING * * OFLINE OFFLINE HANDLING * * MFCHGE MAIN FRAME CHANGE * * COPY LOCAL HARDCOPY * * IDENT PRINTER IDENT. HANDLING * * KEYL KEYLOCK STATUS HANDLING * * TESTM TEST MODE * ENTER ENTER HANDLING * * CLEAR CLEAR HANDLING * * SYSREQ SYSTEM REQUEST HANDLING * * ATTN ATTENTION HANDLING * * PA PROGRAM ACCESS HANDLING * * PF PROGRAM FUNCTION HANDLING * * RETURN RETURN * * * *************************************************************** EJECT *************************************************** * * * ENTRY POINTS * * * **************************************************** ENTRY KBINP,KBINP2 START LABEL FOR MODULE ENTRY READKB,READK2 READ KEYBOARD ENTRY RESKB RESET KEYBOARD BUFFER ENTRY LMP1ON LAMPROUTINES ENTRY LMP1OF . ENTRY LMP2ON . ENTRY LMP2OF . ENTRY LMP3ON . ENTRY LMP3OF . ENTRY LMP4ON . ENTRY LMP4OF . ENTRY LMP5ON . ENTRY LMP5OF . ENTRY LMP6ON . ENTRY LMP6OF . ENTRY RDHOME TAB. UNPROTECTED FIRST ON SCREEN ENTRY COPY LOCAL HARDCOPY ENTRY ERROR ERROR INDICATION ENTRY TAB TAB FOREWARD UNPROTECTED ENTRY CRDOWN MOVE CURSOR DOWN ONE LINE ENTRY ICVRED VDU INTERTASK READ ENTRY ICINP INTERTASK INPUT ENTRY ICSET SET INTERTASK TIMEOUT ENTRY ICWRT WRITE INTERTASK ENTRY ICREAD READ INTERTASK EJECT ****************************************************** * * * EXTERNAL REFERENCES * * * ****************************************************** EXTRN I:RT1 RETURN TO CREDIT CODE EXTRN ATMASB SEARCH ATTRIBUTE BACKWARDS (VDU) EXTRN ATMASF SEARCH ATTRIBUTE FORWARD (VDU) EXTRN DCABOR ABORT DC-REQUEST (DCSNA,DCBSC) EXTRN ERASE ERASE ENTIRE SCREEN (VDU) EXTRN ERASUA ERASE ALL UNPROTECTED TO ADDRESS (VDU) EXTRN ERASUP ERASE ALL UNPROTECTED (VDU) EXTRN TRPA TRANSMIT SHORT READ (DCSNA,DCBSC) EXTRN TRPF TRANSMIT MODIFIED READ (DCSNA,DCBSC) EXTRN TSTSTA TEST STATUS (DCSNA,DCBSC) EXTRN WCHAR DISPLAY CHAR. AND CURSOR (VDU) EXTRN SOUND SOUND ALARM ON DISPLAY (VDU) EXTRN SCRINF GET SCREEN INFORMATION (VDU) EXTRN STOINF SAVE SCREEN INFORMATION (VDU) EXTRN GETVDU GET CHAR. IN VDU BUFFER (VDU) EXTRN STOVDU STORE CHAR. IN VDU BUFFER (VDU) EXTRN DISCHA DISPLAY CHAR. (VDU) EXTRN POSUNP MOVE CURSOR TO NEXT UNPR. POS. (VDU) EXTRN INSMOD INSERT MODE ROUTINE (VDU) EXTRN DCOFLN INDICATE OFFLINE TO DC (DCSNA,DCBSC) EXTRN DISMOD DISPLAY MODIFIED FIELDS (VDU) EXTRN CONPF CONVERT PF-KEY TABLE (CONVER) EXTRN OPSYS OPEN SYSTEM (DCSNA,DCBSC) EXTRN LINE GET LINE FLAG (VDU) EXTRN SAVE1 SAVE1 REGISTERS (PAD) EXTRN REST1 REST1E REGISTERS (PAD) EXTRN DISID DISPLAY HARDCOPY TASKID EXTRN GETBUF GET BUFFER (PAD) EXTRN RELBUF RELEASE BUFFER (PAD) EXTRN DISSTA DISPLAY STATISTICS (VDU) EXTRN RDSTAT READ STATISTICS (DCBSC) EXTRN CHKSTA CHECK LINE STATUS (DCBSC,DCSNA) EXTRN SETSTA SET STATUS (DCSNA) EXTRN CONCT CONNECT (DCXXX) =2 EXTRN DISCON DISCONNECT (DCXXX) =2 EJECT ************************************************************* * * * CONDITIONAL ASSEMBLY PARAMETERS * * * ************************************************************* X:A EQU 0 SNA HANDLING INCLUDED IF:=1 SNA EQU 0 X:C EQU 0 OFFLINE HANDLING IF :=1 OFLIN EQU 0 X:D EQU 1 NUMBER OF LINES (1-2) NBRLIN EQU 2 X:F EQU 0 KEY-LOCK STATUS IF:=1 KEYLST EQU 0 X:G EQU 0 PF KEY HANDLING IF:=1 PFX EQU 1 X:H EQU 0 PA KEY HANDLING IF :=1 PAX EQU 1 X:I EQU 1 INSERT/DELETE HANDLING IF :=1 IN:DL EQU 1 X:J EQU 1 KB6272 INCLUDED IF :=1 KB6272 EQU 1 X:M EQU 0 COPY COMMAND INCLUDED IF:=1 COPCMD EQU 1 X:O EQU 0 TEST MODE INCLUDED IF:=1 TEST EQU 0 X:P EQU 0 COPY LOCK FUNCTION INCLUDED IF:=1 COPL EQU 0 EJECT *************************************************************** * * * DECLARATIONS OF DATA AND EQUATES * * *************************************************************** * * PREDEFINED KEYS * CRUP EQU /80 FIRST "MOVE CURSOR " KEY ERFKEY EQU /88 ERASE TO END OF FIELD-KEY ERIKEY EQU /89 ERASE ALL UNPROT. RSET EQU /8C RESET KEY IDKEY EQU /93 IDENT KEY FKLKEY EQU /94 FIRST KEYLOCK VALUE LKLKEY EQU /9C LAST KEYLOCK VALUE FIPA EQU /9F FIRST PROGRAM ATTN. KEY ENTKEY EQU /A0 ENTER KEY SYSKEY EQU /A1 SYSTEM REQUEST KEY CLRKEY EQU /A2 CLEAR KEY PFKEY EQU /B1 PROGRAM FUNTION KEY LAKEY EQU /C9 LAST KEY IN KEY-TABLE * * EQUATES FOR ECB HANDLING * ECBBA EQU 2 BUFFER ADDRESS ECBRL EQU 4 REQUESTED LENGTH ECBEL EQU 6 EFFECTIVE LENGTH ECBRC EQU 8 RETURN CODE ECBCW EQU 10 CONTROL WORD ECBCW2 EQU 12 CONTROL WORD TWO DK * * SPECIAL CHARACTERS * NULL EQU 0 NULL CHAR. DUPCH EQU /1C DUPLICATE CHAR. FMCH EQU /1E FIELD MARK CHAR. * * LAMPCONSTANTS * LON EQU /B7 LOF EQU /B8 LFL EQU /B9 FLASH IFT KB6272=1 LAMP1 EQU /20 LAMP2 EQU /10 LAMP3 EQU 8 LAMP4 EQU 4 LAMP5 EQU 2 LAMP6 EQU 1 XIF IFF KB6272=1 LAMP1 EQU 0 LAMP2 EQU 0 LAMP3 EQU 1 LAMP4 EQU 2 LAMP5 EQU 4 LAMP6 EQU 8 XIF * * VDU SCREEN SIZE * LLINE EQU 80 LINE LENGTH LBVDU EQU 1920 TOTAL SIZE * * MODES * NEWMOD EQU /8000 NEW MODE HCPMOD EQU /4000 HARDCOPY OUTSTANDING MYJOB EQU /0004 MY JOB MODE SYSOP EQU /0002 SYSTEM OPERATOR MODE LOCMOD EQU /0000 LOCAL MODE * * TASK IDENTIFICATION CODE * VDUCOD EQU 'VV' VDU KB TASK EJECT * * RELATIVE ADDRESSES IN * TERMINAL WORKBLOCK * BVDU EQU 2 VDU SCREEN BUFFER LINFLG EQU BVDU+1920 LINE FLAGS WCC EQU LINFLG+30 WCC CHAR. KBINH EQU WCC+2 KEYBOARD INHIBIT INDICATOR OFFFLG EQU KBINH+8 OFFLINE FLAG PRTID EQU OFFFLG+2 HARDCOPY PRINTER MAIN EQU PRTID+6 MAIN FRAME MODE EQU MAIN+2 INSERT MODE SWITCH KEYS EQU MODE+2 KEY LOCK STATUS RDMORE EQU KEYS+12 BRANCH ADDRESS TO NEXT KB-KEY CURPOS EQU RDMORE+2 CURSOR POS. IN SYSTEM MODE REGI EQU CURPOS+4 SAVE AREA SNAMOD EQU REGI+32 SNA MODE BSCMOD EQU SNAMOD BSC MODE ECBKB EQU BSCMOD+2 ECB KB ECBSD EQU ECBKB+4 ECB SIGNAL DISPLAY ECBICR EQU ECBSD+4 ECB INTERTASK READ ECBICW EQU ECBICR+2 ECB INTERTAS WRITE ECBKB2 EQU ECBICW+6 ECB 2ND KEYBOARD DK * * RELATIVE ADDRESSES IN * COMMON WORKBLOCK * IFF TEST=1 TSKTAB EQU 26 TASK TABLE XIF IFT TEST=1 TSKTAB EQU 219 TASK TABLE XIF EJECT **************************************************************** * * * KBINP MAIN ROUTINE * * * **************************************************************** * REGISTERS * * A2= KEY-CHAR. * A3= KEY-TABLE INDEX * A4= RESERVED * A5= RESERVED * A6= RESERVED * A7= KEY-HANDLING INDICATOR * A11= CREDIT WORK AREA * A13= RESERVED * *********************************************************** KBINP2 EQU * LDK A1,1 INDICATE 2ND KEYBOARD PRESENT DK ST A1,ECBCW2,A8 DK KBINP EQU * * NO CHECK ON POWER OFF....DK 81-10-17 * IFT KEYLST=0 LD A1,ECBCW,A8 SEE IF KEYLOCK ? DK RF(N) KBIN80 SKIP IT DK XIF IFT KEYLST=1 LC* A2,ECBBA,A8 GET KEYLOCK VALUE ADKL A2,FKLKEY-/70 PREPARE FOR TABLE SC* A2,ECBBA,A8 RESTORE XIF LD A1,ECBRC,A8 ERROR? ANKL A1,/FFF3 RF(NZ) KBIN80 YES LD A1,KBINH,A11 ANK A1,1 KB TOTALY INHIBIT? RF(NZ) KBIN80 YES LC* A2,ECBBA,A8 GET INPUT CHAR. ANK A2,/FF LD A1,KBINH,A11 ANK A1,6 MUST BE A RESET KEY? RF(Z) KBIN30 NO CWK A2,RSET RESET KEY? IFT SNA=1 RF(E) KBIN30 YES CWK A2,SYSKEY SYSTEM REQUEST KEY? XIF RF(NE) KBIN80 NO KBIN30 EQU * LDR A3,A2 SUK A3,/20 INDEX TO KEY-TABLE RF(N) KBIN80 ILLEGAL CHAR CWK A2,LAKEY RF(G) KBIN80 ILLEGAL CHAR IFT SNA=1 LD A1,SNAMOD,A11 GET SNA MODE ANK A1,/FF CFI A14,CPLKB,A1 COMPLETE KB IN CURRENT MODE XIF IFF SNA=1 LDK A7,0 CWK A2,FIPA PROGRAM ATTN KEY? RF(L) KBIN40 NO CM MODE,A11 CF A14,LMP6OF CLEAR INSERT MODE CF A14,DCABOR KBIN40 EQU * XIF LDR A7,A7 ANY KEY-HANDLING RF(NZ) KBIN80 NO ADR A3,A3 PREPARE FOR KEY-TABLE LD A1,RDMORE,A11 KEY IN SEQUENCE? RF(Z) KBIN50 NO CF A14,DCABOR KILL DC AGAIN DK LD A1,RDMORE,A11 RESTORE A1 DK2 CFR A14,A1 CONTINUE AT SAVED LABEL RF KBIN90 KBIN50 EQU * CFI A14,KEYTAB,A3 BRANCH TO RESP. KEY-HANDLER RF KBIN90 KBIN80 EQU * CF A14,RESKB RESET KB BUFFER KBIN90 EQU * RTN A14 EJECT IFT SNA=1 ********************************************************************* * * * CPLKB KB-COMPLETION TABLE * * * ********************************************************************* CPLKB EQU * DATA KBCPLO KB-COMPL. IN LOCAL MODE DATA KBCPSY KB-COMPL. IN SYSTEM MODE DATA KBCPJO KB-COMPL. IN MY JOB MODE EJECT ********************************************************************* * * * KBCLO KB-COMPLETION IN LOCAL MODE * * * ********************************************************************* * REGISTERS * * A2= KEY-CHAR * A3= KEY-TABLE INDEX * A4= RESERVED * A5= RESERVED * A6= RESERVED * A7= KEY-HANDLING INDICATOR * A11= CREDIT WORK AREA * A13= RESERVED * *********************************************************** KBCPLO EQU * LDK A7,0 INDICATE KEY-HANDLING CWK A2,FIPA PROGRAM ATTN, KEY? RF(NG) KBCL90 NO LDK A7,1 NO KEY-HANDLING CWK A2,SYSKEY SYSTEM REQUEST? RF(NE) KBCL80 NO CF A14,OPSYS START COMMUNICATION CF A14,TSTSTA TEST STATUS ANKL A1,/101 ACTIVE? RF(NZ) KBCL90 NO LDK A1,SYSOP INDICATE SYSTEM MODE ORKL A1,/8000 INDICATE MODE ACTIVATION ST A1,SNAMOD,A11 RF KBCL90 KBCL80 EQU * CWK A2,ENTKEY ENTER KEY? RF(NE) KBCL85 NO LD A1,RDMORE,A11 INSIDE IDENT ROUTINE? RF(Z) KBCL85 NO LDK A7,0 INDICATE KEY-HANDLING RF KBCL90 KBCL85 EQU * CF A14,ERROR ILLEGAL KEY KBCL90 EQU * RTN A14 EJECT ******************************************************************** * * * KBCPSY KB-COMPLETION IN SYSTEM MODE * * * ******************************************************************** * REGISTERS * * A2= KEY-CHAR * A3= KEY-TABLE INDEX * A4= RESERVED * A5= RESERVED * A6= RESERVED * A7= KEY-HANDLING INDICATOR * A11= CREDIT WORK AREA * A13= RESERVED * *********************************************************** KBCPSY EQU * LDK A7,0 INDICATE KEY-HANDLING CWK A2,FIPA PROGRAM ATTN. KEY? RF(L) KBCS20 NO CWK A2,CLRKEY UNALLOWED PROGRAM ATTN. KEY? RF(NE) KBCS10 NOT CLEAR KEY LDK A7,1 INDICATE NO KEY-HANDLING CF A14,ERASE ERASE ENTIRE SCREEN RF KBCS80 KBCS10 EQU * RF(G) KBCS70 YES CM MODE,A11 CF A14,LMP6OF CLEAR INSERT MODE CF A14,DCABOR ABORT DC RF KBCS80 KBCS20 EQU * CWK A2,ERIKEY ERASE INPUT KEY? RF(E) KBCS80 YES CWK A2,ERFKEY ERASE END OF FIELD KEY? RF(E) KBCS80 YES CWK A2,CRUP INITIATE CURSOR? =1 RF(NL) KBCS90 NO =1 LD A1,CURPOS,A11 CWK A1,/800 CURSOR INITIATED? RF(NE) KBCS90 YES CF A14,SCRINF GET SCREEN INFO. ST A4,CURPOS,A11 INITIATE CURSOR RF KBCS90 KBCS70 EQU * CF A14,ERROR INDICATE ERROR LDK A7,1 NO KEY-HANDLING RF KBCS90 KBCS80 EQU * LDKL A1,NEWMOD INDICATE MODE ACTIVATION ORS A1,SNAMOD,A11 KBCS90 EQU * RTN A14 EJECT ****************************************************************** * * * KBCPJO KB-COMPLETION IN MY JOB MODE * * * ****************************************************************** * REGISTERS * * A2= KEY-CHAR * A3= KEY-TABLE INDEX * A4= RESERVED * A5= RESRVED * A6= RESRVED * A7= KEY-HANDLING INDICATOR * A11= CREDIT WORK AREA * A13= RESERVED * ************************************************************ KBCPJO EQU * LDK A7,0 INDICATE KEY-HANDLING CWK A2,FIPA PROGRAM ATTN. KEY? RF(L) KBCJ90 NO IFT OFLIN=1 RF(E) KBCJ80 XIF IFT SNA=1 CM MODE,A11 CF A14,LMP6OF TURN OFF INSERT LAMP CF A14,DCABOR ABORT DC IFT OFLIN=1 RF KBCJ90 KBCJ80 EQU * CF A14,ERROR INDICATE ERROR LDK A7,1 NO KEY-HANDLING XIF IFT SNA=1 KBCJ90 EQU * RTN A14 XIF EJECT *************************************************************** * * * READKB READ KEYBOARD WITH NO WAIT * * * *************************************************************** * REGISTERS * * A8= KB-ECB * A11= CREDIT WORK AREA * A13= RESERVED * ***************************************************** READKB EQU * LD A8,ECBKB,A11 LDK A7,0 CLEAR ECBCW ST A7,ECBCW,A8 LDK A7,1 ST A7,ECBRL,A8 * NO POWER OF INDICATOR ,...DK 81-10-17 * LDK A7,2 STANDARD READ LKM DATA 1 RTN A14 ** READ FROM SECOND KEYBOARD, P & T, DK ** READK2 EQU * LD A8,ECBKB2,A11 GET ECB LDK A7,0 CLEAR ECBCW ST A7,ECBCW,A8 LDK A7,1 ST A7,ECBRL,A8 LDK A7,2 STANDARD READ LKM DATA 1 RTN A14 **END DK MODIFICATION ** EJECT *************************************************************** * * * RESKB RESET KEYBOARD BUFFER * * * *************************************************************** * REGISTERS * * A11= CREDIT WORK AREA * A13= RESERVED * ****************************************************** RESKB EQU * * REMOVED UNTIL NEEDED......DK, 811028....** RTN A14 EJECT *********************************************************** * * * ICVRED KB/VDU INTERTASK READ * * *********************************************************** * REGISTERS * * A2= RESERVED * A11= CREDIT WORK AREA * A13= RESERVED * *********************************************************** ICVRED EQU * LD A8,ECBICR,A11 CF A14,ICSET SET NO TIMEOUT IFF COPCMD=1 LD A1,PRTID,A11 XIF IFT COPCMD=1 LDK A1,0 UNADDRESSED XIF LDKL A3,REGI ADR A3,A11 LDK A2,2 LENGTH CF A14,ICREAD READ INTERTASK RTN A14 EJECT **************************************************************** * * * ICINP INTERTASK INPUT * * * **************************************************************** * REGISTERS * * A11= CREDIT WORK AREA * A13= RESERVED * **************************************************************** ICINP EQU * LD* A2,ECBBA,A8 IFT COPCMD=1 LDR A1,A2 COPY COMMAND? RF(NN) ICIN80 NO LDKL A3,BVDU BUFFER TO SEND ADR A3,A11 IFT COPL=1 LCR A2,A3 CHECK IF ALLOWED TO COPY CCK A2,/8000 ATTRIBUTE? RF(L) ICIN20 NO ANK A2,/20 PROTECTED? RF(NZ) ICIN90 YES DON'T COPY ICIN20 EQU * XIF IFT COPCMD=1 LD A2,ECBCW,A8 GET TO WHOM LD A8,ECBICW,A11 CF A14,ICSET SET TIMEOUT LDR A1,A2 LDKL A2,LBVDU+/20 LENGTH CF A14,ICWRT SEND IT AWAY LDKL A1,HCPMOD HARDCOPY OUTSTANDING ORS A1,BSCMOD,A11 RF ICIN90 ICIN80 EQU * XIF LDKL A1,HCPMOD RESET HARDCOPY OUTSTANDING IFT SNA=1 XRS A1,SNAMOD,A11 XIF IFF SNA=1 XRS A1,BSCMOD,A11 XIF ANK A2,1 PRINTER OK? RF(Z) ICIN90 YES ICIN90 EQU * RTN A14 EJECT *********************************************************** * * * ICSET SET INTERTASK TIMEOUT * * * *********************************************************** * REGISTERS * * A2= RESERVED * A8= INTERTASK ECB * A11= RESERVED * A13= RESERVED * ********************************************************** ICSET EQU * LDKL A1,-1 NO TIMEOUT ST A1,ECBCW,A8 LDK A7,/B9 SET TIMEOUT LKM DATA 1 RTN A14 EJECT ************************************************************* * * * ICREAD INTERTASK READ * * * ************************************************************** * REGISTERS * * A1= TASK ID * A2= LENGTH * A3= BUFFER ADDRESS * A8= INTETASK READ ECB * A11= RESERVED * A13= RESERVED * ************************************************************* ICREAD EQU * ST A1,ECBCW,A8 TASK ID ST A2,ECBRL,A8 LENGTH ST A3,ECBBA,A8 BUFFER ADDRESS LDK A7,/02 READ LKM DATA 1 RTN A14 EJECT *************************************************************** * * * ICWRT INTERTASK WRITE * * * *************************************************************** * REGISTERS * * A1= TASK ID * A2= LENGTH * A3= BUFFER ADDRESS * A8= INTERTASK WRITE ECB * A11= RESERVED * A13= RESERVED * **************************************************************** ICWRT EQU * ST A1,ECBCW,A8 TASK ID ST A2,ECBRL,A8 LENGTH ST A3,ECBBA,A8 BUFFER ADDRESS LDK A7,/86 WRITE LKM DATA 1 RTN A14 EJECT ******************************************************************* * * * ERROR ILLEGAL KEY-HANDLING * * * ******************************************************************* * REGISTERS * * A11= CREDIT WORK AREA * A13= RESERVED * ******************************************************* ERROR EQU * CF A14,LMP4ON TURN ON 'ERROR' LAMP LDK A1,4 RESET ALLOWED ORS A1,KBINH,A11 CF A14,SOUND TURN ON SOUND ALARM RTN A14 EJECT ************************************************************* * * * LAMPROUTINES * * * ************************************************************* LMP1ON LDK A1,LAMP1 RF LMPON LMP1OF LDK A1,LAMP1 RF LMPOF LMP2ON LDK A1,LAMP2 RF LMPON LMP2OF LDK A1,LAMP2 RF LMPOF LMP3ON LDK A1,LAMP3 RF LMPON LMP3OF LDK A1,LAMP3 RF LMPOF LMP4ON LDK A1,LAMP4 RF LMPON LMP4OF LDK A1,LAMP4 RF LMPOF LMP5ON LDK A1,LAMP5 RF LMPON LMP5OF LDK A1,LAMP5 RF LMPOF LMP5FL LDK A1,LAMP5 RF LMPFL LMP6ON LDK A1,LAMP6 RF LMPON LMP6OF LDK A1,LAMP6 RF LMPOF * LMPON LDK A7,LON RF SDISP LMPOF LDK A7,LOF RF SDISP LMPFL LDK A7,LFL RF SDISP EJECT ************************************************************* * * * SDISP SIGNAL ROUTINE * * * ************************************************************* * REGISTERS * * A8= SIGNAL ECB * A11= CREDIT WORK AREA * A13= RESERVED * ******************************************************* SDISP EQU * LD A8,ECBSD,A11 ST A1,ECBCW,A8 ** SECOND KEYBOARD MODS, DK, P & T ** LD A8,ECBSD,A11 GET DISP. ECB LDK A1,/41 CHANGE FILE CODE SC A1,1,A8 LKM DATA 1 LAMPS ON SECOND KEYB'RD SDISP1 EQU * LD A8,ECBSD,A11 LDK A1,/40 RESTORE FILE CODE 1ST KB SC A1,1,A8 ** END OF DK MODS ** LKM DATA 1 RTN A14 EJECT **************************************************************** * * * KEYTAB KEY-TABLE, FIXED ENTRY FOR EACH FUNC. * * * **************************************************************** KEYTAB EQU * *20 DATA CHAR SPACE DATA CHAR ! DATA CHAR " DATA CHAR DATA CHAR $ DATA CHAR DATA CHAR & DATA CHAR ' DATA CHAR ( DATA CHAR ) DATA CHAR * DATA NUM + DATA NUM , DATA NUM - DATA NUM . DATA CHAR / *30 DATA NUM 0 DATA NUM 1 DATA NUM 2 DATA NUM 3 DATA NUM 4 DATA NUM 5 DATA NUM 6 DATA NUM 7 DATA NUM 8 DATA NUM 9 DATA CHAR : DATA CHAR ; DATA CHAR < DATA CHAR = DATA CHAR > DATA CHAR ? *40 DATA CHAR DATA CHAR A DATA CHAR B DATA CHAR C DATA CHAR D DATA CHAR E DATA CHAR F DATA CHAR G DATA CHAR H DATA CHAR I DATA CHAR J DATA CHAR K DATA CHAR L DATA CHAR M DATA CHAR N DATA CHAR O *50 DATA CHAR P DATA CHAR Q DATA CHAR R DATA CHAR S DATA CHAR T DATA CHAR U DATA CHAR V DATA CHAR W DATA CHAR X DATA CHAR Y DATA CHAR Z DATA CHAR DATA CHAR DATA CHAR DATA CHAR ^ DATA CHAR UNDERLINE *60 DATA CHAR DATA CHAR a LOWER CASE A-Z DATA CHAR b DATA CHAR c DATA CHAR d DATA CHAR e DATA CHAR f DATA CHAR g DATA CHAR h DATA CHAR i DATA CHAR j DATA CHAR k DATA CHAR l DATA CHAR m DATA CHAR n DATA CHAR o *70 DATA CHAR p DATA CHAR q DATA CHAR r DATA CHAR s DATA CHAR t DATA CHAR u DATA CHAR v DATA CHAR w DATA CHAR x DATA CHAR y DATA CHAR z DATA CHAR DATA CHAR DATA CHAR DATA CHAR DATA RETURN *80 DATA CURMOV DATA CURMOV DATA CURMOV DATA CURMOV DATA BAKTAB DATA TAB DATA CRNL DATA RDHOME DATA EREOF DATA ERINPT IFT IN:DL=1 DATA INSERT DATA DELETE XIF IFF IN:DL=1 DATA RETURN DATA RETURN XIF DATA RESET DATA DUP DATA FLDMRK DATA ZERO:2 *90 DATA ZERO:3 DATA NUMCOM DATA COPY DATA IDENT IFT KEYLST=1 DATA KEYL DATA KEYL DATA KEYL DATA KEYL DATA KEYL DATA KEYL DATA KEYL DATA KEYL XIF IFF KEYLST=1 DATA RETURN DATA RETURN DATA RETURN DATA RETURN DATA RETURN DATA RETURN DATA RETURN DATA RETURN XIF DATA RETURN FREE LABEL FOR NEW KEY (NOT P. A. KEY) DATA RETURN FREE LABEL FOR NEW KEY (NOT P. A. KEY) DATA RETURN FREE LABEL FOR NEW KEY (NOT P. A. KEY) *FIRST P. A. KEY IFT OFLIN=1 DATA OFLINE XIF IFF OFLIN=1 DATA RETURN XIF *A0 DATA ENTER IFT SNA=1 DATA SYSREQ DATA CLEAR DATA ATTN XIF IFF SNA=1 DATA RETURN DATA CLEAR DATA RETURN XIF IFT NBRLIN=2 DATA MFCHGE XIF IFF NBRLIN=2 DATA RETURN XIF IFT PAX=1 DATA PAEX XIF IFF PAX=1 DATA RETURN XIF DATA PA1 DATA PA2 DATA PA3 DATA PAALFA PA4-PA10 (ALFASKOP) DATA PAALFA DATA PAALFA DATA PAALFA DATA PAALFA DATA PAALFA DATA PAALFA *B0 IFT PFX=1 DATA PFEX XIF IFF PFX=1 DATA RETURN XIF DATA PF 1 DATA PF 2 DATA PF 3 DATA PF 4 DATA PF 5 DATA PF 6 DATA PF 7 DATA PF 8 DATA PF 9 DATA PF 10 DATA PF 11 DATA PF 12 DATA PF 13 DATA PF 14 DATA PF 15 *C0 DATA PF 16 DATA PF 17 DATA PF 18 DATA PF 19 DATA PF 20 DATA PF 21 DATA PF 22 DATA PF 23 DATA PF 24 IFF TEST=1 DATA RETURN XIF IFT TEST=1 DATA TESTM XIF EJECT ************************************************************** * * * CHAR ALPHABETIC AND SPEC. CHAR UPDAT. DISPL. * * * ************************************************************** * REGISTERS * * A2= KEY-CHAR * A3= ATTRIBUTE MASKL * A4= RESERVED * A5= RESERVED * A6= RESERVED * A11= RESERVED * A13= RESERVED * ************************************************************** CHAR EQU * LDK A3,/30 LOAD ATTRIBUTE MASK CF A14,ANCOMM TAKE CARE OF CHAR. RTN A14 EJECT ************************************************************** * * * NUM NUMERIC UPDAT. DISPL. * * NUMCOM NUMERIC COMMA * * * ************************************************************** * REGISTERS * * A2= KEY-CHAR * A3= ATTRIBUTE MASK * A4= RESERVED * A5= RESERVED * A6= RESERVED * A11= RESERVED * A13= RESERVED * ************************************************************* NUMCOM EQU * LDK A2,/2C INSERT COMMA NUM EQU * LDK A3,/20 LOAD ATTRIBUTE MASK CF A14,ANCOMM TAKE CARE OF CHAR. RTN A14 EJECT *************************************************************** * * * ANCOMM COMMON ROUTINE FOR ALPHANUM. CHAR. * * * *************************************************************** * REGISTERS * * A2= KEY-CHAR * A3= AT ENTRY ATTRIBUTE MASK * A4= REL. CURSOR POS. * A5= REL. ATTRIBUTE POS. * A6= ATTRIBUTE CHAR. * A11= CREDIT WORK AREA * A13= RESERVED * *************************************************************** ANCOMM EQU * CF A14,SCRINF GET SCREEN INFORMATION CWR A4,A5 CURSOR ON ATTRIBUTE RF(E) ANC800 YES LDR A1,A6 ANR A1,A3 ALLOWED POS. ? RF(NZ) ANC800 NO IFT IN:DL=1 LD A1,MODE,A11 INSERT MODE? RF(Z) ANC100 NO CF A14,INSMOD LDR A7,A1 ANK A7,1 INSRETED NORMAL? RF(NZ) ANC900 YES ANK A1,2 INSERT NOT ALLOWED? RF(NZ) ANC800 YES XIF ANC100 EQU * LDR A1,A4 LDR A7,A2 CF A14,STOVDU STORE KEY-CHAR IN VDU BUFFER CF A14,WCHAR DISPLAY CHAR AND CURSOR CF A14,POSUNP MOVE CURSOR TO NEXT UNPROTECTED POS. RF ANC900 ANC800 EQU * CF A14,ERROR INDICATE ERROR ANC900 EQU * RTN A14 EJECT ************************************************************ * * * CURMOV MOVE CURSOR ON SCREEN * * * ************************************************************ * REGISTERS * * A2= KEY-CHAR * A4= REL. CURSOR POS. * A5= REL. ATTRIBUTE POS. * A6= ATTRIBUTE CHAR * A11= RESERVED * A13= RESERVED * ************************************************************ CURMOV EQU * CF A14,SCRINF GET SCREEN INFO. SUK A2,CRUP GET INDEX ADR A2,A2 CFI A14,CURTAB,A2 JUMP IN CURSOR TABLE CF A14,STOINF SAVE SCREEN INFORMATION CWK A5,LBVDU+1 UNFORMATTED SCREEN RF(E) CURM10 YES LDR A1,A4 CF A14,ATMASB UPDATE ATTRIBUTE CURM10 EQU * LDK A1,2 REQ. LENGTH CF A14,DISCHA SET CURSOR RTN A14 EJECT * CURTAB CURSOR JUMP TABLE CURTAB EQU * DATA CRLEFT MOVE CURSOR TO LEFT DATA CRRIGT MOVE CURSOR TO RIGHT DATA CRDOWN MOVE CURSOR DOWN DATA CURUP MOVE CURSOR UP * CRLEFT MOVE CURSOR TO LEFT CRLEFT EQU * SUK A4,1 RF(NN) CRRET NOT LEFTMOST POS. LDKL A4,LBVDU-1 LAST POS. ON SCREEN RF CRRET * CRRIGT MOVE CURSOR TO RIGHT CRRIGT EQU * ADK A4,1 CWK A4,LBVDU END OF BUFFER? RF(L) CRRET NO LDK A4,0 RF CRRET * CRDOWN MOVE CURSOR DOWN CRDOWN EQU * ADKL A4,LLINE CWK A4,LBVDU LAST LINE? RF(L) CRRET NO SUKL A4,LBVDU RF CRRET * CURUP MOVE CURSOR UP CURUP EQU * SUKL A4,LLINE RF(NN) CRRET UPMOST LINE ADKL A4,LBVDU CRRET EQU * RTN A14 EJECT ************************************************************** * * * BAKTAB TAB. UNPROTECTED BACKWARDS * * * ************************************************************** * REGISTERS * * A4= REL. CURSOR POS. * A5= REL. ATTRIBUTE POS. * A6= ATTRIBUTE CHAR. * A9= REL. ATTRIBUTE START POS. * A11= RESERVED * A13= RESERVED * *************************************************************** BAKTAB EQU * CF A14,SCRINF GET SCREEN INFORMATION LDR A9,A5 CWK A5,LBVDU+1 UNFORMATTED SCREEN? RF(E) BAK600 YES CWR A4,A5 STANDING ON ATTRIBUTE? RF(E) BAK300 YES SUK A4,1 RF(NN) BAK100 NOT FIRST POS. ON SCREEN LDKL A4,LBVDU-1 LAST POS. ON SCREEN BAK100 EQU * CWR A4,A5 STANDING ON POS. AFTER ATTRIBUTE? RF(E) BAK300 YES LDR A4,A5 LDR A7,A6 ANK A7,/20 PROTECTED FIELD? RF(Z) BAK500 NO BAK300 EQU * SUK A4,1 RF(NN) BAK400 LDKL A4,LBVDU-1 BAK400 EQU * LDR A1,A4 CF A14,ATMASB SEARCH ATTRIBUTE BACKWARDS AND MASK IT LDR A7,A6 ANK A7,/20 PROTECTED FIELD? RF(Z) BAK500 NO LDR A4,A5 CWR A5,A9 WHOLE SCREEN SEARCHED? RB(NE) BAK300 NO LDK A1,0 FIRST SCREEN POS. CF A14,ATMASB UPDATE FIELD INFORMATION RF BAK600 BAK500 EQU * LDR A4,A5 ADK A4,1 CWK A4,LBVDU-1 WRAP AROUND? RF(NG) BAK700 NO BAK600 EQU * LDK A4,0 FIRST SCREEN POS. BAK700 EQU * CF A14,STOINF SAVE SCREEN INFORMATION LDK A1,2 REQ. LENGTH CF A14,DISCHA SET CURSOR RTN A14 EJECT ************************************************************* * * * TAB TAB. UNPROTECTED FORWARD * * * ************************************************************* * REGISTERS * * A4= REL. CURSOR POS. * A5= REL. ATTRIBUTE POS. * A6= ATTRIBUTE CHAR. * A9= REL. ATTRIBUTE START POS. * A11= RESERVED * A13= RESERVED * ************************************************************** TAB EQU * CF A14,SCRINF GET SCREEN INFORMATION LDR A9,A5 CWK A5,LBVDU+1 UNFORMATTED SCREEN? RF(E) TAB200 YES TAB100 EQU * LDR A1,A4 CF A14,ATMASF SEARCH ATTRIBUTE FORWARD LDR A4,A5 NEW CURSOR POS. LDR A7,A6 ANK A7,/20 PROTECTED FIELD? RF(Z) TAB150 NO CWR A5,A9 WHOLE SCREEN SEARCHED? RB(NE) TAB100 NO LDK A1,0 FIRST POS. ON SCREEN CF A14,ATMASB UPDATE FIELD INFORMATION RF TAB200 TAB150 EQU * ADK A4,1 CWK A4,LBVDU-1 LAST SCREEN POS.? RF(NG) TAB300 NO TAB200 EQU * LDK A4,0 FIRST SCREEN POS. TAB300 EQU * CF A14,STOINF SAVE SCREEN INFORMATION LDK A1,2 REQ. LENGTH CF A14,DISCHA SET CURSOR RTN A14 EJECT ******************************************************************* * * * CRNL TAB. UNPROTECTED TO NEXT LINE * * * ******************************************************************* * REGISTERS * * A4= REL. CURSOR POS. * A5= REL. ATTRIBUTE POS. * A6= ATTRIBUTE CHAR. * A11= RESERVED * A13= RESERVED * ***************************************************************** CRNL EQU * CF A14,SCRINF GET SCREEN INFORMATION CF A14,CRDOWN MOVE CURSOR DOWN LDK A1,0 COMPUTE LEFTMOST POS. CRN100 EQU * SUK A4,LLINE RF(N) CRN200 ADK A1,LLINE RB CRN100 CRN200 EQU * LDR A4,A1 CWK A5,LBVDU+1 UNFORMATTED SCREEN? RF(E) CRN800 YES CF A14,GETVDU GET CHAR. IN VDU BUFFER CCK A7,/80 ATTRIBUTE? RF(NL) CRN400 YES LDR A1,A4 CF A14,ATMASB SEARCH ATTRIBUTE BACKWARD LDR A7,A6 ANK A7,/20 PROTECTED? RF(Z) CRN800 NO RF CRN500 CRN400 EQU * SUK A4,1 RF(NN) CRN500 NOT WRAP AROUND LDKL A4,LBVDU-1 LAST SCREEN POS. CRN500 EQU * CF A14,STOINF SAVE SCREEN INFORMATION CF A14,TAB TAB. UNPROTECTED FORWARD RF CRN900 CRN800 EQU * CF A14,STOINF SAVE SCREEN INFORMATION LDK A1,2 REQ. LENGTH CF A14,DISCHA SET CURSOR CRN900 EQU * RTN A14 EJECT ********************************************************************* * * * RDHOME TAB. UNPROTECTED FIRST ON SCREEN * * * ********************************************************************* * REGISTERS * * A4= REL. CURSOR POS. * A5= REL. ATTRIBUTE POS. * A6= ATTRIBUTE CHAR. * A11= RESERVED * A13= RESERVED * ********************************************************************* RDHOME EQU * CF A14,SCRINF GET SCREEN INFORMATION LDK A4,0 FIRST POS. ON SCREEN CF A14,STOINF CWK A5,LBVDU+1 UNFORMATTED SCREEN? RF(E) RDH800 YES LDR A1,A4 CF A14,GETVDU GET CHAR. IN VDU BUFFER CCK A7,/8000 ATTRIBUTE? RF(L) RDH100 NO LDKL A4,LBVDU-1 LAST SCREEN POS. CF A14,STOINF SAVE SCREEN INFORMATION RF RDH300 RDH100 EQU * LDR A1,A4 CF A14,ATMASB GET ATTRIBUTE BACKWARD LDR A7,A6 ANK A7,/20 PROTECTED? RF(Z) RDH800 NO RDH300 EQU * CF A14,TAB TAB. UNPROTECTED FORWARD RF RDH900 RDH800 EQU * CF A14,STOINF SAVE SCREEN INFORMATION LDK A1,2 REQ. LENGTH CF A14,DISCHA SET CURSOR RDH900 EQU * RTN A14 EJECT ************************************************************* * * * EREOF ERASE TO END OF FIELD * * * ************************************************************* * REGISTERS * * A4= REL. CURSOR POS. * A5= REL. ATTRIBUTE POS. * A6= ATTRIBUTE CHAR. * A11= RESERVED * A13= RESERVED * ******************************************************************* EREOF EQU * CF A14,SCRINF GET SCREEN INFORMATION CWK A5,LBVDU+1 UNFORMATTED SCREEN? RF(E) ERE700 YES LDR A7,A6 ANK A7,/20 PROTECTED FIELD? RF(NZ) ERE600 YES CWR A5,A4 STANDING ON ATTRIBUTE? RF(E) ERE600 YES LDR A1,A4 LDR A8,A6 SAVE OLD LDR A9,A5 SAVE OLD CF A14,ATMASF SEARCH ATTRIBUTE FORWARD LDR A3,A5 LDR A6,A8 LDR A5,A9 ORK A6,1 SET MDT-BIT IN ATTRIBUTE LDR A7,A6 LDR A1,A5 CF A14,STOVDU STORE NEW ATTRIBUTE IN VDU BUFFER CF A14,STOINF SAVE NEW SCREEN INFORMATION LDR A1,A3 STOP ADDRESS RF ERE800 ERE600 EQU * CF A14,ERROR INDICATE ERROR RF ERE900 ERE700 EQU * CF A14,LINE ERASE ONE LINE DK1 LDR A1,A5 DK1 CWK A1,LBVDU DK1 RF(L) ERE710 DK1 LDK A1,0 STOP ADDRESS =3 ERE710 EQU * DK1 CF A14,SCRINF DK1 ERE800 EQU * SUR A10,A10 CF A14,ERASUA ERASE UNPROTECTED TO ADDRESS CF A14,DISMOD DISPLAY MODIFIED FIELD ERE900 EQU * RTN A14 EJECT ******************************************************************* * * * ERINPT ERASE UNPROTECTED ENTIRE SCREEN * * * ******************************************************************* * REGISTERS * * A4= REL. CURSOR POS. * A5= REL. ATTRIBUTE POS. * A6= ATTRIBUTE CHAR. * A11= RESERVED * A13= RESERVED * ******************************************************************* ERINPT EQU * CF A14,SCRINF GET SCREEN INFORMATION CWK A5,LBVDU+1 UNFORMATTED SCREEN? RF(NE) ERI100 NO CF A14,ERASE ERASE ENTIRE SCREEN RF ERI900 ERI100 EQU * CF A14,ERASUP ERASE ALL UNPROTECTED CF A14,DISMOD DISPLAY ERASED FIELDS CF A14,RDHOME TAB. UNPROTECTED FIRST ON SCREEN ERI900 EQU * RTN A14 EJECT IFT IN:DL=1 ******************************************************** * * * INSERT INSERT KEY HANDLING * * * ******************************************************** * REGISTERS * * A11= CREDIT WORK AREA * A13= RESERVED * *************************************************** INSERT EQU * IM MODE,A11 SET INSERT MODE RTN A14 EJECT ****************************************************** * * * DELETE DELETE CHAR. HANDLING * * * ******************************************************* * REGISTERS * * A4= REL. CURSOR POS. * A5= REL. ATTRIBUTE POS. * A6= ATTRIBUTE CHAR. * A11= CREDIT WORK AREA * A13= RESERVED * ******************************************************* DELETE EQU * CF A14,SCRINF GET SCREEN INFORMATION LDKL A3,-1 DEL025 EQU * ADK A3,LLINE CWR A3,A4 LAST POS. ON CURRENT LINE? RB(L) DEL025 NO CWK A5,LBVDU+1 UNFORMATTED SCREEN? RF(E) DEL200 YES CWR A4,A5 STANDING ON ATTRIBUTE? RF(E) DEL700 YES LDR A7,A6 ANK A7,/20 PROTECTED? RF(NZ) DEL700 YES ORK A6,1 SET MDT-BIT LDR A7,A6 LDR A1,A5 CF A14,STOVDU SAVE NEW ATTRIBUTE LDR A8,A6 SAVE OLD LDR A9,A5 SAVE OLD CF A14,ATMASF SEARCH ATTRIBUTE FORWARD LDR A1,A5 LDR A6,A8 LDR A5,A9 CF A14,STOINF SAVE SCREEN INFORMATION CWR A3,A1 ATTRIBUTE BEFOR END OF LINE? RF(NG) DEL200 NO LDR A3,A1 DEL200 EQU * LDR A1,A4 DEL300 EQU * ADK A1,1 CF A14,GETVDU GET CHAR. IN VDU BUFFER SUK A1,1 CF A14,STOVDU STORE CHAR. IN VDU BUFFER ADK A1,1 CWR A1,A3 ALL SHIFTED? RB(NE) DEL300 NO LDK A7,NULL GET NULL CHAR. CF A14,STOVDU STORE NULL CHAR IN VDU BUFFER CF A14,SAVE1 LDK A5,LLINE LDR A6,A11 SUR A10,A10 CF A14,LINE GET LINE FLAG LC A1,LINFLG,A6 ORK A1,1 SC A1,LINFLG,A6 CF A14,REST1 CF A14,DISMOD DISPLAY MODIFIED LINE RF DEL900 DEL700 EQU * CF A14,ERROR INDICATE ERROR DEL900 EQU * RTN A14 XIF EJECT ******************************************************** * * * RESET RESET KEY HANDLING * * * ******************************************************** * REGISTERS * * A11= CREDIT WORK AREA * A13= RESERVED * **************************************************** RESET EQU * CM MODE,A11 RESET INSERT MODE CF A14,LMP6OF TURN OFF "INSERT" LAMP CM KBINH,A11 RESSTORE KEYBOARD CF A14,LMP4OF TURN OFF 'ERROR' LAMP CF A14,LMP3OF TURN OFF 'KEYBOARD INHIBIT' LAMP RTN A14 EJECT *********************************************************** * * * DUP DUPLICATE KEY * * * *********************************************************** * REGISTERS * * A2= KEY-CHAR * A11= RESERVED * A13= RESERVED * ************************************************************ DUP EQU * LDK A2,DUPCH GET DUP CHAR. CF A14,NUM CF A14,TAB RTN A14 EJECT *********************************************************** * * * FLDMRK FIELD MARK KEY * * * *********************************************************** * REGISTERS * * A2= KEY-CHAR * A11= RESERVED * A13= RESERVED * *********************************************************** FLDMRK EQU * LDK A2,FMCH GET FIELD MARK CHAR. CF A14,NUM RTN A14 EJECT *************************************************************** * * Z E R O : 3 TRIPLE ZERO KEY * Z E R O : 2 DOUBLE ZERO KEY * ************************************************* * REGISTERS * * A2= KEY-CHAR * A11= RESERVED * A13= RESERVED * ********************************************************* ZERO:3 EQU * LDK A2,/30 ZERO CHAR. CF A14,NUM DISPLAY CHARACTER ZERO:2 EQU * LDK A2,/30 ZERO CHAR. CF A14,NUM DISPLAY CHARACTER LDK A2,/30 CF A14,NUM DISPLAY CHARACTER RTN A14 RETURN EJECT IFT OFLIN=1 ******************************************************** * * * OFLINE OFFLINE KEY HANDLING * * * ******************************************************** * REGISTERS * * A11= CREDIT WORK AREA * A13= RESERVED * ******************************************************* OFLINE EQU * CF A14,CLEAR CF A14,RESET CF A14,DCOFLN INDICATE OFFLINE TO DC CF A14,LMP6ON TURN ON OFFLINE LAMP IM OFFFLG,A11 SET OFFLINE FLAG ADKL A14,4 SKIP ONE STACK LEVEL LD A13,2,A14 RELOAD REGISTERS A12-A13 LD A12,4,A14 ADKL A14,4 UPDATE STACK POINTER ABL I:RT1 RETURN TO "OFFLINE" PROGRAM XIF EJECT ********************************************************* * * * MFCHGE MAIN FRAME CHANGE * * * ********************************************************* * REGISTERS * * A11= CREDIT WORK AREA * A13= RESERVED * ******************************************************* IFT NBRLIN=2 MFCHGE EQU * CF A14,CLEAR CF A14,RESET CF A14,LMP1OF CF A14,LMP2OF CF A14,LMP3OF CF A14,DISCON DISCONNECT ON OLD LINE =2 LDK A1,1 . =2 XRS A1,MAIN,A11 IND MAIN FRAME CHANGE =2 RF(NZ) MFCH10 CF A14,LMP1ON RF MFCH90 MFCH10 EQU * CF A14,LMP2ON MFCH90 EQU * . =2 CF A14,CONCT CONNECT ON NEW LINE =2 CF A14,CHKSTA CHECK LINE STATUS RTN A14 XIF EJECT *********************************************************** * * * COPY LOCAL HARDCOPY * * * *********************************************************** * REGISTERS * * A11= CREDIT WORK AREA * A13= T:A ADDRESS * ************************************************************* COPY EQU * LD A1,SNAMOD,A11 ANKL A1,HCPMOD HARDCOPY ALREADY OUTSTANDING? RF(NZ) COPY80 YES,WAIT A WHILE LD A1,PRTID,A11 RF(Z) COPY80 PRINTER NOT ASSIGNED ANK A1,/FF CHECK IF PRINTER OK IN TASK TABLE SUK A1,/30 SLL A1,2 LDK A3,TSKTAB LD A4,+6,A13 GET COMMON AREA ADR A3,A4 ADR A3,A1 PRINTER ASSIGNED FOUND LC A1,+3,A3 ANK A1,/FF PRINTER OK? RF(Z) COPY10 YES RF COPY90 COPY10 EQU * LDK A1,/38 INDICATE HARDCOPY IN WCC ST A1,WCC,A11 LDKL A3,BVDU BUFFER ADR A3,A11 ADDRESSS LD A8,ECBICW,A11 CF A14,ICSET SET NO TIMEOUT LD A1,PRTID,A11 HARDCOPY TASK ID LDKL A2,LBVDU+/20 BUFFER LENGTH CF A14,ICWRT WRITE INTERTASK IFT SNA=1 LDKL A1,HCPMOD INDICATE HARDCOPY OUTSTANDING ORS A1,SNAMOD,A11 XIF IFF SNA=1 LDKL A1,HCPMOD INDICATE HARDCOPY OUTSTANDING ORS A1,BSCMOD,A11 XIF RF COPY90 COPY80 EQU * CF A14,ERROR COPY90 EQU * RTN A14 EJECT *************************************************************** * * * IDENT PRINTER IDENT. HANDLING * * *************************************************************** * REGISTERS * * A3= POINTER IN TASK TABLE * A11= CREDIT WORK AREA * A13= T:A ADDRESS * ************************************************************* IDENT EQU * LD A1,PRTID,A11 GET CURRENT TASKID LD A4,+6,A13 COMMON BLOCK BASE ANK A1,X'FF' GET OFFSET SUK A1,/30 SLL A1,2 LDKL A3,TSKTAB ADR A3,A4 ADR A3,A1 IDEN30 EQU * LCR A5,A3 GET ID SLL A5,8 LC A5,+1,A3 LC A4,+3,A3 GET STATUS CF A14,SAVE1 SAVE REGISTERS CF A14,DISID DISPLAY TASKID LDKL A1,IDEN40 NEXT KEY ENTRY ST A1,RDMORE,A11 RF IDEN90 NEXT KEY IDEN40 EQU * CM RDMORE,A11 LDR A9,A2 CF A14,REST1 RESTORE REGISTERS CWK A9,ENTKEY SAVE CURRENT TASKID RF(E) IDEN80 YES CWK A9,IDKEY GET NEXT TASKID? RF(NE) IDEN90 NO KEEP THE FIRST ONE IDEN50 EQU * ADK A3,4 SEARCH FOR NEXT PRINTER LCR A2,A3 ANK A2,/FF LDR A1,A2 RB(Z) IDEN50 SLL A1,8 RF(N) IDEN60 CCK A2,VDUCOD PRINTER? RB(NE) IDEN30 YES RB IDEN50 IDEN60 EQU * LDKL A2,TSKTAB LD A3,6,A13 ADR A3,A2 SUK A3,4 RB IDEN50 IDEN80 EQU * LCR A1,A3 GET PRINTER TO SAVE SLL A1,8 LC A1,+1,A3 ST A1,PRTID,A11 NEW HARDCOPY TASKID IDEN90 EQU * RTN A14 EJECT ************************************************************* * * * KEYL KEYLOCK STATUS * * * ************************************************************* * REGISTERS * * A2= KEYLOCK VALUE * A11= CREDIT WORK AREA * A13= RESERVED * ************************************************************** IFT KEYLST=1 IFT KB6272=1 KEYL EQU * SUK A2,LKLKEY GET NEG KEY LOCK VALUE LD A3,KEYS,A11 OLD STATUS LDK A4,/10 KEYL10 EQU * SRL A4,1 ADK A2,2 1 = OFF,0 = ON RB(N) KEYL10 ANR A3,A4 CHECK OLD KEY POS RF(NZ) KEYL20 WAS ON LDR A2,A2 WAS OFF RF(NZ) KEYL99 NOW OFF, NO CHANGE RF KEYL30 NOW ON KEYL20 EQU * WAS ON LDR A2,A2 RF(Z) KEYL99 NOW ON, NO CHANGE KEYL30 EQU * CHANGE LD A3,KEYS,A11 XRR A3,A4 CHANGE STATUS ST A3,KEYS,A11 STORE NEW STATUS * * KEYLOCK STATUS CHANGED * A3 = NEW STATUS, RIGHTMOST BIT = RIGHTMOST LOCK, BIT ON = LOCK ON * A4 = KEYLOCK CHANGED, LAYOUT AS A3 * A2 = 1, IF CHANGED TO OFF ELSE 0 * * INSERT USER ROUTINE BELOW THIS LINE * KEYL99 EQU * RTN A14 XIF EJECT ********************************************************** * * TESTM TEST MODE * ********************************************************** * REGISTERS * * A11= RESERVED * A13= RESERVED * ********************************************************* IFT TEST=1 TESTM EQU * CF A14,ERASE CF A14,GETBUF CF A14,RDSTAT CF A14,DISSTA LDR A8,A12 CF A14,RELBUF RTN A14 XIF EJECT ********************************************************* * * * ENTER ENTER KEY HANDLING * * * ********************************************************* * REGISTERS * * A2= AID-CODE * A11= RESERVED * A13= RESERVED * ********************************************************* ENTER EQU * LDK A2,/27 AID-CODE CF A14,LMP3ON TURN ON "KEYBOARD INHIBIT" CF A14,TRPF AID+MODIFIED FIELDS+TRANSMIT RTN A14 EJECT ************************************************************** * * * CLEAR CLEAR KEY HANDLING * * * ************************************************************** * REGISTERS * * A2= AID-CODE * A11= RESERVED * A13= RESERVED * ************************************************************** CLEAR EQU * LDK A2,/5F POS FOR 'CLEAR' CF A14,LMP3ON TURN ON "KEYBOARD INHIBIT" CF A14,TRPA UPDATE AID AND TRANSMIT CF A14,ERASE ERASE ENTIRE SCREEN RTN A14 EJECT *************************************************************** * * * SYSREQ SYSTEM REQUEST HANDLING * * * *************************************************************** * REGISTERS * * A11= CREDIT WORK AREA * A13= RESERVED * **************************************************** IFT SNA=1 SYSREQ EQU * CF A14,TSTSTA TEST STATUS LDR A2,A1 GET STATUS ANKL A2,/101 ACTIVE? RF(Z) SYS100 YES LDK A1,LOCMOD INDICATE LOCAL MODE RF SYS500 SYS100 EQU * LDR A2,A1 GET STATUS ANKL A2,/C00 MY JOB MODE? RF(NZ) SYS200 NO CF A14,CLEAR CLEAR SCREEN AND DC CF A14,RESKB RESET KEYBOARD BUFFER LDK A1,SYSOP INDICATE SYSTEM MODE RF SYS500 SYS200 EQU * CWK A2,/C00 SSCP-LU AND NOT LU-LU? RF(NE) SYS300 NO LDK A1,SYSOP INDICATE SYSTEM MODE RF SYS500 SYS300 EQU * ANKL A2,/800 SSCP-LU AND LU-LU? RF(NZ) SYS400 YES LDK A1,SYSOP INDICATE SYSTEM MODE RF SYS500 SYS400 EQU * LDK A1,MYJOB INDICATE MY JOB MODE SYS500 EQU * ORKL A1,NEWMOD INDICATE NEW MODE ACTIVATION ST A1,SNAMOD,A11 RTN A14 XIF EJECT *************************************************************** * * * ATTN ATTENTION KEY HANDLING * * * *************************************************************** * REGISTERS * * A11= RESERVED * A13= RESERVED * ********************************************************** IFT SNA=1 ATTN EQU * LDK A1,/4B SIGNAL ATTENTION KEY CF A14,SETSTA SET STATUS RTN A14 XIF EJECT ************************************************************** * * * PA PROGRAM ACCESS KEY HANDLING * * * ************************************************************** * REGISTERS * * A2= AID-CODE * A11= RESERVED * A13= RESERVED * ************************************************************** PA1 EQU * LDK A2,/25 AID-CODE RF PA500 PA2 EQU * LDK A2,/3E AID-CODE RF PA500 PA3 EQU * LDK A2,/2C AID-CODE PA500 EQU * CF A14,LMP3ON TURN ON KEYBOARD INHIBIT CF A14,TRPA TRANSMIT AID-CODE PAALFA EQU * *INSERT ALFASKOP STATEMENTS RTN A14 EJECT ******************************************************************* * * * PAEX PAEX KEY FOLLOWED BY NUMBER * * * ******************************************************************* * REGISTERS * * A11= CREDIT WORK AREA * A13= RESERVED * *************************************************** IFT PAX=1 PAEX EQU * LDKL A1,PAEXA ST A1,RDMORE,A11 RTN A14 PAEXA EQU * CM RDMORE,A11 SUK A2,/31 CHECK IF NUM.1-3 RF(L) PAERR ILLEGAL CHAR. SUK A2,/2 CHECK IF NUM.1-3 RF(G) PAEXB ILLEGAL CHAR. RF(NZ) PAEX10 CF A14,PA3 PA3 KEY RF PARET PAEX10 EQU * ADK A2,1 RF(NZ) PAEX20 CF A14,PA2 PA2 KEY RF PARET PAEX20 EQU * CF A14,PA1 PA1 KEY RF PARET PAEXB EQU * DK3 SUK A2,/6 DK3 RF(G) PAERR DK3 ADK A2,/69 DK3 CF A14,PA500 DK3 RF PARET DK3 PAERR EQU * CF A14,ERROR INDICATE ERROR PARET EQU * RTN A14 XIF EJECT ****************************************************************** * * * PF PROGRAM FUNTION KEY HANDLING * * * ****************************************************************** * REGISTERS * * A2= AID-CODE * A11= RESERVED * A13= RESERVED * ****************************************************************** PF EQU * SUK A2,PFKEY GET INDEX TO CONVERT LC A2,CONPF,A2 GET AID CF A14,LMP3ON TURN ON KEYBOARD INHIBIT CF A14,TRPF TRANSMIT AID AND MODIFIED FIELDS RTN A14 EJECT ***************************************************************** * * * PFEX PFEX KEY FOLLOWED BY NUMBER * * * ***************************************************************** * REGISTERS * * A11= CREDIT WORK AREA * A13= RESERVED * ************************************************* IFT PFX=1 PFEX EQU * LDKL A1,PFEXA RF PFNXT PFEXA EQU * CM RDMORE,A11 SUK A2,/30 LEGAL CHAR ? RF(L) PFERR ILLEGAL,GO TO ERR.HANDLING RF(NZ) PFEX10 LDKL A1,PF0A FIRST NUM 0 RF PFNXT NEXT NUMBER PFEX10 EQU * SUK A2,1 RF(NZ) PFEX20 LDKL A1,PF1A FIRST NUM 1 RF PFNXT NEXT NUMBER PFEX20 EQU * SUK A2,1 RF(NZ) PFERR ILLEGAL NUM LDKL A1,PF2A FIRST NUM 2 RF PFNXT NEXT NUMBER PF0A EQU * CM RDMORE,A11 SUK A2,/31 ILLEGAL NUM? RF(N) PFERR YES SUK A2,9 ILLEGAL NUM? RF(NN) PFERR YES ADK A2,/9+PFKEY PF1-PF9 RF PFHAND PF1A EQU * CM RDMORE,A11 SUK A2,/30 ILLEGAL NUM? RF(N) PFERR YES SUK A2,/A ILLEGAL NUM? RF(NN) PFERR YES ADK A2,/A+PFKEY+/9 PF10-PF19 RF PFHAND PF2A EQU * CM RDMORE,A11 SUK A2,/30 ILLEGAL NUM? RF(N) PFERR YES SUK A2,5 ILLEGAL NUM? RF(NN) PFERR YES ADK A2,/5+PFKEY+/13 PF20-PF24 PFHAND EQU * CF A14,PF PROGRAM FUNCTION KEY HANDLING RF PFRET PFNXT EQU * ST A1,RDMORE,A11 RF PFRET PFERR EQU * CF A14,ERROR PFRET EQU * RTN A14 XIF EJECT ********************************************************** * * * RETURN RETURN * * * *********************************************************** * REGISTERS * * A11= RESERVED * A13= RESERVED * ******************************************************** RETURN EQU * RTN A14 END
0x00000…00038 (0, 0, 400) Head {h00=0x0034, h01=0x0050, text=» IDENT KEYB2 REL 11.0 DK 830113 NJ 870150541100 «, t00=0x0000, t01=0x0004}
0x00038…00058 Head {h00=0x001c, h01=0x0050, text=» DK3 PA 4-9 830113 NJ «, t00=0x0000, t01=0x003c}
0x00058…00080 Head {h00=0x0024, h01=0x0050, text=» DK2 RESTORE A1 AFTER DC ABRT «, t00=0x0000, t01=0x005c}
0x00080…000a4 Head {h00=0x0020, h01=0x0050, text=» DK1,ERASE ONE LINE 'EOF' «, t00=0x0000, t01=0x0084}
0x000a4…000c8 Head {h00=0x0020, h01=0x0050, text=» =3 ERASE TO END OF FIELD«, t00=0x0000, t01=0x00a8}
0x000c8…000e4 Head {h00=0x0018, h01=0x0050, text=» =2 TWO DC-LINES «, t00=0x0000, t01=0x00cc}
0x000e4…000f8 Head {h00=0x0010, h01=0x0050, text=» 82-02-28 «, t00=0x0000, t01=0x00e8}
0x000f8…0011a Head {h00=0x001e, h01=0x0050, text=» =1, SYSTEM MODE CURSOR «, t00=0x0000, t01=0x00fc}
0x0011a…0012e Head {h00=0x0010, h01=0x0050, text=» 81-01-26 «, t00=0x0000, t01=0x011e}
0x0012e…00176 Head {h00=0x0044, h01=0x0050, text=»*************************************************************** «, t00=0x0000, t01=0x0132}
0x00176…001be Head {h00=0x0044, h01=0x0050, text=»* * «, t00=0x0000, t01=0x017a}
0x001be…00206 Head {h00=0x0044, h01=0x0050, text=»* MODULE KEYB * «, t00=0x0001, t01=0x0032}
0x00206…0024e Head {h00=0x0044, h01=0x0050, text=»* MODULE HANDLING THE KEYBOARD DEVICE * «, t00=0x0001, t01=0x007a}
0x0024e…00296 Head {h00=0x0044, h01=0x0050, text=»* (EMULATION 3270 SNA/SDLC, BSC) * «, t00=0x0001, t01=0x00c2}
0x00296…002de Head {h00=0x0044, h01=0x0050, text=»* * «, t00=0x0001, t01=0x010a}
0x002de…00326 Head {h00=0x0044, h01=0x0050, text=»*************************************************************** «, t00=0x0001, t01=0x0152}
0x00326…00334 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0002, t01=0x000a}
0x00334…0037c Head {h00=0x0044, h01=0x0050, text=»*************************************************************** «, t00=0x0002, t01=0x0018}
0x0037c…003c4 Head {h00=0x0044, h01=0x0050, text=»* * «, t00=0x0002, t01=0x0060}
0x003c4…0040c Head {h00=0x0044, h01=0x0050, text=»* LIST OF ROUTINES * «, t00=0x0002, t01=0x00a8}
0x0040c…00454 Head {h00=0x0044, h01=0x0050, text=»* * «, t00=0x0002, t01=0x00f0}
0x00454…0049c Head {h00=0x0044, h01=0x0050, text=»* KBINP MAIN ROUTINE * «, t00=0x0002, t01=0x0138}
0x0049c…004e4 Head {h00=0x0044, h01=0x0050, text=»* CPLKB KB-COMPLETION TABLE FOR DIFF. MODES * «, t00=0x0002, t01=0x0180}
0x004e4…00524 Head {h00=0x003c, h01=0x0050, text=»* KBCPLO KB-COMPLETION ROUTINE IN LOCAL MODE«, t00=0x0003, t01=0x0038}
0x00524…0056c Head {h00=0x0044, h01=0x0050, text=»* KBCPSY KB-COMPLETION ROUTINE IN SYSTEM MODE * «, t00=0x0003, t01=0x0078}
0x0056c…005b4 Head {h00=0x0044, h01=0x0050, text=»* KBCPJO KB-COMPLETION ROUTINE IN MY JOB MODE * «, t00=0x0003, t01=0x00c0}
0x005b4…005fc Head {h00=0x0044, h01=0x0050, text=»* READKB READ KEYBOARD WITH NO WAIT * «, t00=0x0003, t01=0x0108}
0x005fc…00644 Head {h00=0x0044, h01=0x0050, text=»* RESKB RESET KEYBOARD-BUFFER * «, t00=0x0003, t01=0x0150}
0x00644…00676 Head {h00=0x002e, h01=0x0050, text=»* ICVRED KB/VDU INTERTASK READ«, t00=0x0004, t01=0x0008}
0x00676…006a2 Head {h00=0x0028, h01=0x0050, text=»* ICINP INTERTASK INPUT«, t00=0x0004, t01=0x003a}
0x006a2…006d4 Head {h00=0x002e, h01=0x0050, text=»* ICSET SET INTERTASK TIMEOUT«, t00=0x0004, t01=0x0066}
0x006d4…00700 Head {h00=0x0028, h01=0x0050, text=»* ICREAD READ INTERTASK «, t00=0x0004, t01=0x0098}
0x00700…0072c Head {h00=0x0028, h01=0x0050, text=»* ICWRT WRITE INTERTASK«, t00=0x0004, t01=0x00c4}
0x0072c…00774 Head {h00=0x0044, h01=0x0050, text=»* ERROR ILLEGAL KEY-HANDLING * «, t00=0x0004, t01=0x00f0}
0x00774…007bc Head {h00=0x0044, h01=0x0050, text=»* LAMPROUTINES * «, t00=0x0004, t01=0x0138}
0x007bc…00804 Head {h00=0x0044, h01=0x0050, text=»* SDISP SIGNAL ROUTINE * «, t00=0x0004, t01=0x0180}
0x00804…0084c Head {h00=0x0044, h01=0x0050, text=»* KEYTAB KEY-TABLE, FIXED ENTRY FOR EACH FUNC. * «, t00=0x0005, t01=0x0038}
0x0084c…00894 Head {h00=0x0044, h01=0x0050, text=»* CHAR ALPHA. CHAR HANDLING * «, t00=0x0005, t01=0x0080}
0x00894…008dc Head {h00=0x0044, h01=0x0050, text=»* NUM NUM. CHAR HANDLING * «, t00=0x0005, t01=0x00c8}
0x008dc…00924 Head {h00=0x0044, h01=0x0050, text=»* ANCOMM ALPHANUM. CHAR HANDLING * «, t00=0x0005, t01=0x0110}
0x00924…00978 Head {h00=0x0050, h01=0x0050, text=»* CURMOV MOVE CURSOR ON SCREEN * «, t00=0x0005, t01=0x0158}
0x00978…009c0 Head {h00=0x0044, h01=0x0050, text=»* BAKTAB TAB. UNPROT. BACKWARDS * «, t00=0x0006, t01=0x001c}
0x009c0…00a08 Head {h00=0x0044, h01=0x0050, text=»* TAB TAB. UNPROT. FORWARDS * «, t00=0x0006, t01=0x0064}
0x00a08…00a50 Head {h00=0x0044, h01=0x0050, text=»* CRNL TAB. UNPROT. NEXT LINE * «, t00=0x0006, t01=0x00ac}
0x00a50…00a98 Head {h00=0x0044, h01=0x0050, text=»* RDHOME TAB. UNPROT. FIRST ON SCREEN * «, t00=0x0006, t01=0x00f4}
0x00a98…00ae0 Head {h00=0x0044, h01=0x0050, text=»* EREOF ERASE TO END OF FIELD * «, t00=0x0006, t01=0x013c}
0x00ae0…00b28 Head {h00=0x0044, h01=0x0050, text=»* ERINPT ERASE UNPROT. ENTIRE SCREEN * «, t00=0x0006, t01=0x0184}
0x00b28…00b70 Head {h00=0x0044, h01=0x0050, text=»* INSERT INSERT HANDLING * «, t00=0x0007, t01=0x003c}
0x00b70…00bb8 Head {h00=0x0044, h01=0x0050, text=»* DELETE DELETE HANDLING * «, t00=0x0007, t01=0x0084}
0x00bb8…00c00 Head {h00=0x0044, h01=0x0050, text=»* RESET RESET HANDLING * «, t00=0x0007, t01=0x00cc}
0x00c00…00c48 Head {h00=0x0044, h01=0x0050, text=»* DUP DUPLICATE HANDLING * «, t00=0x0007, t01=0x0114}
0x00c48…00c90 Head {h00=0x0044, h01=0x0050, text=»* FLDMRK FIELDMARK HANDLING * «, t00=0x0007, t01=0x015c}
0x00c90…00cd8 Head {h00=0x0044, h01=0x0050, text=»* ZERO:2,3 DOUBLE & TRIPLE ZERO HANDLING * «, t00=0x0008, t01=0x0014}
0x00cd8…00d20 Head {h00=0x0044, h01=0x0050, text=»* OFLINE OFFLINE HANDLING * «, t00=0x0008, t01=0x005c}
0x00d20…00d68 Head {h00=0x0044, h01=0x0050, text=»* MFCHGE MAIN FRAME CHANGE * «, t00=0x0008, t01=0x00a4}
0x00d68…00db0 Head {h00=0x0044, h01=0x0050, text=»* COPY LOCAL HARDCOPY * «, t00=0x0008, t01=0x00ec}
0x00db0…00df8 Head {h00=0x0044, h01=0x0050, text=»* IDENT PRINTER IDENT. HANDLING * «, t00=0x0008, t01=0x0134}
0x00df8…00e40 Head {h00=0x0044, h01=0x0050, text=»* KEYL KEYLOCK STATUS HANDLING * «, t00=0x0008, t01=0x017c}
0x00e40…00e66 Head {h00=0x0022, h01=0x0050, text=»* TESTM TEST MODE«, t00=0x0009, t01=0x0034}
0x00e66…00eae Head {h00=0x0044, h01=0x0050, text=»* ENTER ENTER HANDLING * «, t00=0x0009, t01=0x005a}
0x00eae…00ef6 Head {h00=0x0044, h01=0x0050, text=»* CLEAR CLEAR HANDLING * «, t00=0x0009, t01=0x00a2}
0x00ef6…00f3e Head {h00=0x0044, h01=0x0050, text=»* SYSREQ SYSTEM REQUEST HANDLING * «, t00=0x0009, t01=0x00ea}
0x00f3e…00f86 Head {h00=0x0044, h01=0x0050, text=»* ATTN ATTENTION HANDLING * «, t00=0x0009, t01=0x0132}
0x00f86…00fce Head {h00=0x0044, h01=0x0050, text=»* PA PROGRAM ACCESS HANDLING *«, t00=0x0009, t01=0x017a}
0x00fce…01016 Head {h00=0x0044, h01=0x0050, text=»* PF PROGRAM FUNCTION HANDLING * «, t00=0x000a, t01=0x0032}
0x01016…0105e Head {h00=0x0044, h01=0x0050, text=»* RETURN RETURN * «, t00=0x000a, t01=0x007a}
0x0105e…010a6 Head {h00=0x0044, h01=0x0050, text=»* * «, t00=0x000a, t01=0x00c2}
0x010a6…010ee Head {h00=0x0044, h01=0x0050, text=»*************************************************************** «, t00=0x000a, t01=0x010a}
0x010ee…010fc Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000a, t01=0x0152}
0x010fc…01138 Head {h00=0x0038, h01=0x0050, text=»*************************************************** «, t00=0x000a, t01=0x0160}
0x01138…01174 Head {h00=0x0038, h01=0x0050, text=»* *«, t00=0x000b, t01=0x000c}
0x01174…011b0 Head {h00=0x0038, h01=0x0050, text=»* ENTRY POINTS *«, t00=0x000b, t01=0x0048}
0x011b0…011ec Head {h00=0x0038, h01=0x0050, text=»* *«, t00=0x000b, t01=0x0084}
0x011ec…01228 Head {h00=0x0038, h01=0x0050, text=»****************************************************«, t00=0x000b, t01=0x00c0}
0x01228…01230 Head {h00=0x0004, h01=0x0050, t00=0x000b, t01=0x00fc}
0x01230…01262 Head {h00=0x002e, h01=0x0050, text=» ENTRY KBINP,KBINP2 START LABEL FOR MODULE«, t00=0x000b, t01=0x0104}
0x01262…0128c Head {h00=0x0026, h01=0x0050, text=» ENTRY READKB,READK2 READ KEYBOARD«, t00=0x000b, t01=0x0136}
0x0128c…012b6 Head {h00=0x0026, h01=0x0050, text=» ENTRY RESKB RESET KEYBOARD BUFFER«, t00=0x000b, t01=0x0160}
0x012b6…012d8 Head {h00=0x001e, h01=0x0050, text=» ENTRY LMP1ON LAMPROUTINES«, t00=0x000b, t01=0x018a}
0x012d8…012f0 Head {h00=0x0014, h01=0x0050, text=» ENTRY LMP1OF . «, t00=0x000c, t01=0x001c}
0x012f0…01308 Head {h00=0x0014, h01=0x0050, text=» ENTRY LMP2ON . «, t00=0x000c, t01=0x0034}
0x01308…01320 Head {h00=0x0014, h01=0x0050, text=» ENTRY LMP2OF . «, t00=0x000c, t01=0x004c}
0x01320…01338 Head {h00=0x0014, h01=0x0050, text=» ENTRY LMP3ON . «, t00=0x000c, t01=0x0064}
0x01338…01350 Head {h00=0x0014, h01=0x0050, text=» ENTRY LMP3OF . «, t00=0x000c, t01=0x007c}
0x01350…01368 Head {h00=0x0014, h01=0x0050, text=» ENTRY LMP4ON . «, t00=0x000c, t01=0x0094}
0x01368…01380 Head {h00=0x0014, h01=0x0050, text=» ENTRY LMP4OF . «, t00=0x000c, t01=0x00ac}
0x01380…01398 Head {h00=0x0014, h01=0x0050, text=» ENTRY LMP5ON . «, t00=0x000c, t01=0x00c4}
0x01398…013b0 Head {h00=0x0014, h01=0x0050, text=» ENTRY LMP5OF . «, t00=0x000c, t01=0x00dc}
0x013b0…013c8 Head {h00=0x0014, h01=0x0050, text=» ENTRY LMP6ON . «, t00=0x000c, t01=0x00f4}
0x013c8…013e0 Head {h00=0x0014, h01=0x0050, text=» ENTRY LMP6OF . «, t00=0x000c, t01=0x010c}
0x013e0…01416 Head {h00=0x0032, h01=0x0050, text=» ENTRY RDHOME TAB. UNPROTECTED FIRST ON SCREEN«, t00=0x000c, t01=0x0124}
0x01416…01438 Head {h00=0x001e, h01=0x0050, text=» ENTRY COPY LOCAL HARDCOPY«, t00=0x000c, t01=0x015a}
0x01438…0145e Head {h00=0x0022, h01=0x0050, text=» ENTRY ERROR ERROR INDICATION «, t00=0x000c, t01=0x017c}
0x0145e…0148a Head {h00=0x0028, h01=0x0050, text=» ENTRY TAB TAB FOREWARD UNPROTECTED «, t00=0x000d, t01=0x0012}
0x0148a…014ba Head {h00=0x002c, h01=0x0050, text=» ENTRY CRDOWN MOVE CURSOR DOWN ONE LINE «, t00=0x000d, t01=0x003e}
0x014ba…014e2 Head {h00=0x0024, h01=0x0050, text=» ENTRY ICVRED VDU INTERTASK READ«, t00=0x000d, t01=0x006e}
0x014e2…01506 Head {h00=0x0020, h01=0x0050, text=» ENTRY ICINP INTERTASK INPUT«, t00=0x000d, t01=0x0096}
0x01506…01530 Head {h00=0x0026, h01=0x0050, text=» ENTRY ICSET SET INTERTASK TIMEOUT«, t00=0x000d, t01=0x00ba}
0x01530…01554 Head {h00=0x0020, h01=0x0050, text=» ENTRY ICWRT WRITE INTERTASK«, t00=0x000d, t01=0x00e4}
0x01554…01578 Head {h00=0x0020, h01=0x0050, text=» ENTRY ICREAD READ INTERTASK«, t00=0x000d, t01=0x0108}
0x01578…01586 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000d, t01=0x012c}
0x01586…0158e Head {h00=0x0004, h01=0x0050, t00=0x000d, t01=0x013a}
0x0158e…015cc Head {h00=0x003a, h01=0x0050, text=»******************************************************«, t00=0x000d, t01=0x0142}
0x015cc…0160a Head {h00=0x003a, h01=0x0050, text=»* *«, t00=0x000d, t01=0x0180}
0x0160a…01648 Head {h00=0x003a, h01=0x0050, text=»* EXTERNAL REFERENCES *«, t00=0x000e, t01=0x002e}
0x01648…01686 Head {h00=0x003a, h01=0x0050, text=»* *«, t00=0x000e, t01=0x006c}
0x01686…016c4 Head {h00=0x003a, h01=0x0050, text=»******************************************************«, t00=0x000e, t01=0x00aa}
0x016c4…016cc Head {h00=0x0004, h01=0x0050, t00=0x000e, t01=0x00e8}
0x016cc…016f6 Head {h00=0x0026, h01=0x0050, text=» EXTRN I:RT1 RETURN TO CREDIT CODE«, t00=0x000e, t01=0x00f0}
0x016f6…0172c Head {h00=0x0032, h01=0x0050, text=» EXTRN ATMASB SEARCH ATTRIBUTE BACKWARDS (VDU)«, t00=0x000e, t01=0x011a}
0x0172c…01760 Head {h00=0x0030, h01=0x0050, text=» EXTRN ATMASF SEARCH ATTRIBUTE FORWARD (VDU)«, t00=0x000e, t01=0x0150}
0x01760…01794 Head {h00=0x0030, h01=0x0050, text=» EXTRN DCABOR ABORT DC-REQUEST (DCSNA,DCBSC)«, t00=0x000e, t01=0x0184}
0x01794…017c2 Head {h00=0x002a, h01=0x0050, text=» EXTRN ERASE ERASE ENTIRE SCREEN (VDU)«, t00=0x000f, t01=0x0028}
0x017c2…017fe Head {h00=0x0038, h01=0x0050, text=» EXTRN ERASUA ERASE ALL UNPROTECTED TO ADDRESS (VDU)«, t00=0x000f, t01=0x0056}
0x017fe…01830 Head {h00=0x002e, h01=0x0050, text=» EXTRN ERASUP ERASE ALL UNPROTECTED (VDU) «, t00=0x000f, t01=0x0092}
0x01830…01866 Head {h00=0x0032, h01=0x0050, text=» EXTRN TRPA TRANSMIT SHORT READ (DCSNA,DCBSC) «, t00=0x000f, t01=0x00c4}
0x01866…0189e Head {h00=0x0034, h01=0x0050, text=» EXTRN TRPF TRANSMIT MODIFIED READ (DCSNA,DCBSC)«, t00=0x000f, t01=0x00fa}
0x0189e…018ce Head {h00=0x002c, h01=0x0050, text=» EXTRN TSTSTA TEST STATUS (DCSNA,DCBSC) «, t00=0x000f, t01=0x0132}
0x018ce…01902 Head {h00=0x0030, h01=0x0050, text=» EXTRN WCHAR DISPLAY CHAR. AND CURSOR (VDU) «, t00=0x000f, t01=0x0162}
0x01902…01934 Head {h00=0x002e, h01=0x0050, text=» EXTRN SOUND SOUND ALARM ON DISPLAY (VDU)«, t00=0x0010, t01=0x0008}
0x01934…01966 Head {h00=0x002e, h01=0x0050, text=» EXTRN SCRINF GET SCREEN INFORMATION (VDU)«, t00=0x0010, t01=0x003a}
0x01966…0199a Head {h00=0x0030, h01=0x0050, text=» EXTRN STOINF SAVE SCREEN INFORMATION (VDU) «, t00=0x0010, t01=0x006c}
0x0199a…019ce Head {h00=0x0030, h01=0x0050, text=» EXTRN GETVDU GET CHAR. IN VDU BUFFER (VDU) «, t00=0x0010, t01=0x00a0}
0x019ce…01a04 Head {h00=0x0032, h01=0x0050, text=» EXTRN STOVDU STORE CHAR. IN VDU BUFFER (VDU) «, t00=0x0010, t01=0x00d4}
0x01a04…01a2e Head {h00=0x0026, h01=0x0050, text=» EXTRN DISCHA DISPLAY CHAR. (VDU) «, t00=0x0010, t01=0x010a}
0x01a2e…01a68 Head {h00=0x0036, h01=0x0050, text=» EXTRN POSUNP MOVE CURSOR TO NEXT UNPR. POS. (VDU)«, t00=0x0010, t01=0x0134}
0x01a68…01a98 Head {h00=0x002c, h01=0x0050, text=» EXTRN INSMOD INSERT MODE ROUTINE (VDU) «, t00=0x0010, t01=0x016e}
0x01a98…01ad2 Head {h00=0x0036, h01=0x0050, text=» EXTRN DCOFLN INDICATE OFFLINE TO DC (DCSNA,DCBSC)«, t00=0x0011, t01=0x000e}
0x01ad2…01b06 Head {h00=0x0030, h01=0x0050, text=» EXTRN DISMOD DISPLAY MODIFIED FIELDS (VDU) «, t00=0x0011, t01=0x0048}
0x01b06…01b38 Head {h00=0x002e, h01=0x0050, text=» EXTRN CONPF CONVERT PF-KEY TABLE (CONVER)«, t00=0x0011, t01=0x007c}
0x01b38…01b66 Head {h00=0x002a, h01=0x0050, text=» EXTRN OPSYS OPEN SYSTEM (DCSNA,DCBSC)«, t00=0x0011, t01=0x00ae}
0x01b66…01b8e Head {h00=0x0024, h01=0x0050, text=» EXTRN LINE GET LINE FLAG (VDU) «, t00=0x0011, t01=0x00dc}
0x01b8e…01bb8 Head {h00=0x0026, h01=0x0050, text=» EXTRN SAVE1 SAVE1 REGISTERS (PAD)«, t00=0x0011, t01=0x0104}
0x01bb8…01be4 Head {h00=0x0028, h01=0x0050, text=» EXTRN REST1 REST1E REGISTERS (PAD) «, t00=0x0011, t01=0x012e}
0x01be4…01c10 Head {h00=0x0028, h01=0x0050, text=» EXTRN DISID DISPLAY HARDCOPY TASKID«, t00=0x0011, t01=0x015a}
0x01c10…01c36 Head {h00=0x0022, h01=0x0050, text=» EXTRN GETBUF GET BUFFER (PAD)«, t00=0x0011, t01=0x0186}
0x01c36…01c60 Head {h00=0x0026, h01=0x0050, text=» EXTRN RELBUF RELEASE BUFFER (PAD)«, t00=0x0012, t01=0x001c}
0x01c60…01c8e Head {h00=0x002a, h01=0x0050, text=» EXTRN DISSTA DISPLAY STATISTICS (VDU)«, t00=0x0012, t01=0x0046}
0x01c8e…01cbc Head {h00=0x002a, h01=0x0050, text=» EXTRN RDSTAT READ STATISTICS (DCBSC) «, t00=0x0012, t01=0x0074}
0x01cbc…01cf2 Head {h00=0x0032, h01=0x0050, text=» EXTRN CHKSTA CHECK LINE STATUS (DCBSC,DCSNA) «, t00=0x0012, t01=0x00a2}
0x01cf2…01d1a Head {h00=0x0024, h01=0x0050, text=» EXTRN SETSTA SET STATUS (DCSNA)«, t00=0x0012, t01=0x00d8}
0x01d1a…01d42 Head {h00=0x0024, h01=0x0050, text=» EXTRN CONCT CONNECT (DCXXX) =2 «, t00=0x0012, t01=0x0100}
0x01d42…01d6e Head {h00=0x0028, h01=0x0050, text=» EXTRN DISCON DISCONNECT (DCXXX) =2 «, t00=0x0012, t01=0x0128}
0x01d6e…01d7c Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0012, t01=0x0154}
0x01d7c…01dc2 Head {h00=0x0042, h01=0x0050, text=»************************************************************* «, t00=0x0012, t01=0x0162}
0x01dc2…01e08 Head {h00=0x0042, h01=0x0050, text=»* * «, t00=0x0013, t01=0x0018}
0x01e08…01e4e Head {h00=0x0042, h01=0x0050, text=»* CONDITIONAL ASSEMBLY PARAMETERS * «, t00=0x0013, t01=0x005e}
0x01e4e…01e94 Head {h00=0x0042, h01=0x0050, text=»* * «, t00=0x0013, t01=0x00a4}
0x01e94…01eda Head {h00=0x0042, h01=0x0050, text=»************************************************************* «, t00=0x0013, t01=0x00ea}
0x01eda…01ee2 Head {h00=0x0004, h01=0x0050, t00=0x0013, t01=0x0130}
0x01ee2…01f10 Head {h00=0x002a, h01=0x0050, text=»X:A EQU 0 SNA HANDLING INCLUDED IF:=1 «, t00=0x0013, t01=0x0138}
0x01f10…01f22 Head {h00=0x000e, h01=0x0050, text=»SNA EQU 0 «, t00=0x0013, t01=0x0166}
0x01f22…01f4c Head {h00=0x0026, h01=0x0050, text=»X:C EQU 0 OFFLINE HANDLING IF :=1 «, t00=0x0013, t01=0x0178}
0x01f4c…01f60 Head {h00=0x0010, h01=0x0050, text=»OFLIN EQU 0 «, t00=0x0014, t01=0x0012}
0x01f60…01f88 Head {h00=0x0024, h01=0x0050, text=»X:D EQU 1 NUMBER OF LINES (1-2) «, t00=0x0014, t01=0x0026}
0x01f88…01f9c Head {h00=0x0010, h01=0x0050, text=»NBRLIN EQU 2«, t00=0x0014, t01=0x004e}
0x01f9c…01fc4 Head {h00=0x0024, h01=0x0050, text=»X:F EQU 0 KEY-LOCK STATUS IF:=1 «, t00=0x0014, t01=0x0062}
0x01fc4…01fd8 Head {h00=0x0010, h01=0x0050, text=»KEYLST EQU 0«, t00=0x0014, t01=0x008a}
0x01fd8…02000 Head {h00=0x0024, h01=0x0050, text=»X:G EQU 0 PF KEY HANDLING IF:=1 «, t00=0x0014, t01=0x009e}
0x02000…02012 Head {h00=0x000e, h01=0x0050, text=»PFX EQU 1 «, t00=0x0014, t01=0x00c6}
0x02012…0203a Head {h00=0x0024, h01=0x0050, text=»X:H EQU 0 PA KEY HANDLING IF :=1«, t00=0x0014, t01=0x00d8}
0x0203a…0204c Head {h00=0x000e, h01=0x0050, text=»PAX EQU 1 «, t00=0x0014, t01=0x0100}
0x0204c…0207c Head {h00=0x002c, h01=0x0050, text=»X:I EQU 1 INSERT/DELETE HANDLING IF :=1 «, t00=0x0014, t01=0x0112}
0x0207c…02090 Head {h00=0x0010, h01=0x0050, text=»IN:DL EQU 1 «, t00=0x0014, t01=0x0142}
0x02090…020b8 Head {h00=0x0024, h01=0x0050, text=»X:J EQU 1 KB6272 INCLUDED IF :=1«, t00=0x0014, t01=0x0156}
0x020b8…020cc Head {h00=0x0010, h01=0x0050, text=»KB6272 EQU 1«, t00=0x0014, t01=0x017e}
0x020cc…020fa (21, 0, 400) Head {h00=0x002a, h01=0x0050, text=»X:M EQU 0 COPY COMMAND INCLUDED IF:=1 «, t00=0x0015, t01=0x0004}
0x020fa…0210e Head {h00=0x0010, h01=0x0050, text=»COPCMD EQU 1«, t00=0x0015, t01=0x0032}
0x0210e…02138 Head {h00=0x0026, h01=0x0050, text=»X:O EQU 0 TEST MODE INCLUDED IF:=1«, t00=0x0015, t01=0x0046}
0x02138…0214a Head {h00=0x000e, h01=0x0050, text=»TEST EQU 0«, t00=0x0015, t01=0x0070}
0x0214a…0217e Head {h00=0x0030, h01=0x0050, text=»X:P EQU 0 COPY LOCK FUNCTION INCLUDED IF:=1 «, t00=0x0015, t01=0x0082}
0x0217e…02190 Head {h00=0x000e, h01=0x0050, text=»COPL EQU 0«, t00=0x0015, t01=0x00b6}
0x02190…0219e Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0015, t01=0x00c8}
0x0219e…021e6 Head {h00=0x0044, h01=0x0050, text=»*************************************************************** «, t00=0x0015, t01=0x00d6}
0x021e6…0222e Head {h00=0x0044, h01=0x0050, text=»* * «, t00=0x0015, t01=0x011e}
0x0222e…02258 Head {h00=0x0026, h01=0x0050, text=»* DECLARATIONS OF DATA AND EQUATES«, t00=0x0015, t01=0x0166}
0x02258…022a0 Head {h00=0x0044, h01=0x0050, text=»* * «, t00=0x0015, t01=0x0190}
0x022a0…022e8 Head {h00=0x0044, h01=0x0050, text=»*************************************************************** «, t00=0x0016, t01=0x0048}
0x022e8…022f0 Head {h00=0x0004, h01=0x0050, t00=0x0016, t01=0x0090}
0x022f0…022fa Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0016, t01=0x0098}
0x022fa…0231a Head {h00=0x001c, h01=0x0050, text=»* PREDEFINED KEYS «, t00=0x0016, t01=0x00a2}
0x0231a…02324 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0016, t01=0x00c2}
0x02324…02352 Head {h00=0x002a, h01=0x0050, text=»CRUP EQU /80 FIRST "MOVE CURSOR " KEY «, t00=0x0016, t01=0x00cc}
0x02352…02382 Head {h00=0x002c, h01=0x0050, text=»ERFKEY EQU /88 ERASE TO END OF FIELD-KEY«, t00=0x0016, t01=0x00fa}
0x02382…023aa Head {h00=0x0024, h01=0x0050, text=»ERIKEY EQU /89 ERASE ALL UNPROT.«, t00=0x0016, t01=0x012a}
0x023aa…023c8 Head {h00=0x001a, h01=0x0050, text=»RSET EQU /8C RESET KEY«, t00=0x0016, t01=0x0152}
0x023c8…023e8 Head {h00=0x001c, h01=0x0050, text=»IDKEY EQU /93 IDENT KEY «, t00=0x0016, t01=0x0170}
0x023e8…02412 Head {h00=0x0026, h01=0x0050, text=»FKLKEY EQU /94 FIRST KEYLOCK VALUE«, t00=0x0016, t01=0x0190}
0x02412…0243c Head {h00=0x0026, h01=0x0050, text=»LKLKEY EQU /9C LAST KEYLOCK VALUE «, t00=0x0017, t01=0x002a}
0x0243c…02468 Head {h00=0x0028, h01=0x0050, text=»FIPA EQU /9F FIRST PROGRAM ATTN. KEY«, t00=0x0017, t01=0x0054}
0x02468…02488 Head {h00=0x001c, h01=0x0050, text=»ENTKEY EQU /A0 ENTER KEY«, t00=0x0017, t01=0x0080}
0x02488…024b2 Head {h00=0x0026, h01=0x0050, text=»SYSKEY EQU /A1 SYSTEM REQUEST KEY «, t00=0x0017, t01=0x00a0}
0x024b2…024d2 Head {h00=0x001c, h01=0x0050, text=»CLRKEY EQU /A2 CLEAR KEY«, t00=0x0017, t01=0x00ca}
0x024d2…024fc Head {h00=0x0026, h01=0x0050, text=»PFKEY EQU /B1 PROGRAM FUNTION KEY «, t00=0x0017, t01=0x00ea}
0x024fc…02528 Head {h00=0x0028, h01=0x0050, text=»LAKEY EQU /C9 LAST KEY IN KEY-TABLE «, t00=0x0017, t01=0x0114}
0x02528…02532 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0017, t01=0x0140}
0x02532…0255a Head {h00=0x0024, h01=0x0050, text=»* EQUATES FOR ECB HANDLING«, t00=0x0017, t01=0x014a}
0x0255a…02564 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0017, t01=0x0172}
0x02564…02586 Head {h00=0x001e, h01=0x0050, text=»ECBBA EQU 2 BUFFER ADDRESS«, t00=0x0017, t01=0x017c}
0x02586…025aa Head {h00=0x0020, h01=0x0050, text=»ECBRL EQU 4 REQUESTED LENGTH«, t00=0x0018, t01=0x000e}
0x025aa…025ce Head {h00=0x0020, h01=0x0050, text=»ECBEL EQU 6 EFFECTIVE LENGTH«, t00=0x0018, t01=0x0032}
0x025ce…025ee Head {h00=0x001c, h01=0x0050, text=»ECBRC EQU 8 RETURN CODE «, t00=0x0018, t01=0x0056}
0x025ee…02610 Head {h00=0x001e, h01=0x0050, text=»ECBCW EQU 10 CONTROL WORD «, t00=0x0018, t01=0x0076}
0x02610…0263a Head {h00=0x0026, h01=0x0050, text=»ECBCW2 EQU 12 CONTROL WORD TWO DK «, t00=0x0018, t01=0x0098}
0x0263a…02644 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0018, t01=0x00c2}
0x02644…02660 Head {h00=0x0018, h01=0x0050, text=»* SPECIAL CHARACTERS«, t00=0x0018, t01=0x00cc}
0x02660…0266a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0018, t01=0x00e8}
0x0266a…02688 Head {h00=0x001a, h01=0x0050, text=»NULL EQU 0 NULL CHAR. «, t00=0x0018, t01=0x00f2}
0x02688…026ae Head {h00=0x0022, h01=0x0050, text=»DUPCH EQU /1C DUPLICATE CHAR. «, t00=0x0018, t01=0x0110}
0x026ae…026d4 Head {h00=0x0022, h01=0x0050, text=»FMCH EQU /1E FIELD MARK CHAR. «, t00=0x0018, t01=0x0136}
0x026d4…026de Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0018, t01=0x015c}
0x026de…026fc Head {h00=0x001a, h01=0x0050, text=»* LAMPCONSTANTS«, t00=0x0018, t01=0x0166}
0x026fc…02706 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0018, t01=0x0184}
0x02706…0271a Head {h00=0x0010, h01=0x0050, text=»LON EQU /B7 «, t00=0x0018, t01=0x018e}
0x0271a…0272e Head {h00=0x0010, h01=0x0050, text=»LOF EQU /B8 «, t00=0x0019, t01=0x0012}
0x0272e…02748 Head {h00=0x0016, h01=0x0050, text=»LFL EQU /B9 FLASH «, t00=0x0019, t01=0x0026}
0x02748…0275e Head {h00=0x0012, h01=0x0050, text=» IFT KB6272=1 «, t00=0x0019, t01=0x0040}
0x0275e…02774 Head {h00=0x0012, h01=0x0050, text=»LAMP1 EQU /20 «, t00=0x0019, t01=0x0056}
0x02774…0278a Head {h00=0x0012, h01=0x0050, text=»LAMP2 EQU /10 «, t00=0x0019, t01=0x006c}
0x0278a…0279e Head {h00=0x0010, h01=0x0050, text=»LAMP3 EQU 8 «, t00=0x0019, t01=0x0082}
0x0279e…027b2 Head {h00=0x0010, h01=0x0050, text=»LAMP4 EQU 4 «, t00=0x0019, t01=0x0096}
0x027b2…027c6 Head {h00=0x0010, h01=0x0050, text=»LAMP5 EQU 2 «, t00=0x0019, t01=0x00aa}
0x027c6…027da Head {h00=0x0010, h01=0x0050, text=»LAMP6 EQU 1 «, t00=0x0019, t01=0x00be}
0x027da…027e6 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0019, t01=0x00d2}
0x027e6…027fc Head {h00=0x0012, h01=0x0050, text=» IFF KB6272=1 «, t00=0x0019, t01=0x00de}
0x027fc…02810 Head {h00=0x0010, h01=0x0050, text=»LAMP1 EQU 0 «, t00=0x0019, t01=0x00f4}
0x02810…02824 Head {h00=0x0010, h01=0x0050, text=»LAMP2 EQU 0 «, t00=0x0019, t01=0x0108}
0x02824…02838 Head {h00=0x0010, h01=0x0050, text=»LAMP3 EQU 1 «, t00=0x0019, t01=0x011c}
0x02838…0284c Head {h00=0x0010, h01=0x0050, text=»LAMP4 EQU 2 «, t00=0x0019, t01=0x0130}
0x0284c…02860 Head {h00=0x0010, h01=0x0050, text=»LAMP5 EQU 4 «, t00=0x0019, t01=0x0144}
0x02860…02874 Head {h00=0x0010, h01=0x0050, text=»LAMP6 EQU 8 «, t00=0x0019, t01=0x0158}
0x02874…02880 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0019, t01=0x016c}
0x02880…0288a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0019, t01=0x0178}
0x0288a…028a4 Head {h00=0x0016, h01=0x0050, text=»* VDU SCREEN SIZE «, t00=0x0019, t01=0x0182}
0x028a4…028ae Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001a, t01=0x000c}
0x028ae…028ce Head {h00=0x001c, h01=0x0050, text=»LLINE EQU 80 LINE LENGTH«, t00=0x001a, t01=0x0016}
0x028ce…028f0 Head {h00=0x001e, h01=0x0050, text=»LBVDU EQU 1920 TOTAL SIZE «, t00=0x001a, t01=0x0036}
0x028f0…028fa Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001a, t01=0x0058}
0x028fa…0290a Head {h00=0x000c, h01=0x0050, text=»* MODES «, t00=0x001a, t01=0x0062}
0x0290a…02914 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001a, t01=0x0072}
0x02914…02936 Head {h00=0x001e, h01=0x0050, text=»NEWMOD EQU /8000 NEW MODE «, t00=0x001a, t01=0x007c}
0x02936…02964 Head {h00=0x002a, h01=0x0050, text=»HCPMOD EQU /4000 HARDCOPY OUTSTANDING «, t00=0x001a, t01=0x009e}
0x02964…02988 Head {h00=0x0020, h01=0x0050, text=»MYJOB EQU /0004 MY JOB MODE «, t00=0x001a, t01=0x00cc}
0x02988…029b4 Head {h00=0x0028, h01=0x0050, text=»SYSOP EQU /0002 SYSTEM OPERATOR MODE«, t00=0x001a, t01=0x00f0}
0x029b4…029d8 Head {h00=0x0020, h01=0x0050, text=»LOCMOD EQU /0000 LOCAL MODE «, t00=0x001a, t01=0x011c}
0x029d8…029e2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001a, t01=0x0140}
0x029e2…02a04 Head {h00=0x001e, h01=0x0050, text=»* TASK IDENTIFICATION CODE«, t00=0x001a, t01=0x014a}
0x02a04…02a0e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001a, t01=0x016c}
0x02a0e…02a32 Head {h00=0x0020, h01=0x0050, text=»VDUCOD EQU 'VV' VDU KB TASK «, t00=0x001a, t01=0x0176}
0x02a32…02a40 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x001b, t01=0x000a}
0x02a40…02a4a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001b, t01=0x0018}
0x02a4a…02a6a Head {h00=0x001c, h01=0x0050, text=»* RELATIVE ADDRESSES IN «, t00=0x001b, t01=0x0022}
0x02a6a…02a86 Head {h00=0x0018, h01=0x0050, text=»* TERMINAL WORKBLOCK«, t00=0x001b, t01=0x0042}
0x02a86…02a90 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001b, t01=0x005e}
0x02a90…02ab4 Head {h00=0x0020, h01=0x0050, text=»BVDU EQU 2 VDU SCREEN BUFFER«, t00=0x001b, t01=0x0068}
0x02ab4…02adc Head {h00=0x0024, h01=0x0050, text=»LINFLG EQU BVDU+1920 LINE FLAGS «, t00=0x001b, t01=0x008c}
0x02adc…02b00 Head {h00=0x0020, h01=0x0050, text=»WCC EQU LINFLG+30 WCC CHAR. «, t00=0x001b, t01=0x00b4}
0x02b00…02b32 Head {h00=0x002e, h01=0x0050, text=»KBINH EQU WCC+2 KEYBOARD INHIBIT INDICATOR«, t00=0x001b, t01=0x00d8}
0x02b32…02b5a Head {h00=0x0024, h01=0x0050, text=»OFFFLG EQU KBINH+8 OFFLINE FLAG «, t00=0x001b, t01=0x010a}
0x02b5a…02b86 Head {h00=0x0028, h01=0x0050, text=»PRTID EQU OFFFLG+2 HARDCOPY PRINTER «, t00=0x001b, t01=0x0132}
0x02b86…02baa Head {h00=0x0020, h01=0x0050, text=»MAIN EQU PRTID+6 MAIN FRAME «, t00=0x001b, t01=0x015e}
0x02baa…02bd4 Head {h00=0x0026, h01=0x0050, text=»MODE EQU MAIN+2 INSERT MODE SWITCH«, t00=0x001b, t01=0x0182}
0x02bd4…02bfc Head {h00=0x0024, h01=0x0050, text=»KEYS EQU MODE+2 KEY LOCK STATUS «, t00=0x001c, t01=0x001c}
0x02bfc…02c34 Head {h00=0x0034, h01=0x0050, text=»RDMORE EQU KEYS+12 BRANCH ADDRESS TO NEXT KB-KEY«, t00=0x001c, t01=0x0044}
0x02c34…02c6a Head {h00=0x0032, h01=0x0050, text=»CURPOS EQU RDMORE+2 CURSOR POS. IN SYSTEM MODE«, t00=0x001c, t01=0x007c}
0x02c6a…02c8e Head {h00=0x0020, h01=0x0050, text=»REGI EQU CURPOS+4 SAVE AREA «, t00=0x001c, t01=0x00b2}
0x02c8e…02cb2 Head {h00=0x0020, h01=0x0050, text=»SNAMOD EQU REGI+32 SNA MODE «, t00=0x001c, t01=0x00d6}
0x02cb2…02cd4 Head {h00=0x001e, h01=0x0050, text=»BSCMOD EQU SNAMOD BSC MODE«, t00=0x001c, t01=0x00fa}
0x02cd4…02cf6 Head {h00=0x001e, h01=0x0050, text=»ECBKB EQU BSCMOD+2 ECB KB «, t00=0x001c, t01=0x011c}
0x02cf6…02d22 Head {h00=0x0028, h01=0x0050, text=»ECBSD EQU ECBKB+4 ECB SIGNAL DISPLAY«, t00=0x001c, t01=0x013e}
0x02d22…02d50 Head {h00=0x002a, h01=0x0050, text=»ECBICR EQU ECBSD+4 ECB INTERTASK READ «, t00=0x001c, t01=0x016a}
0x02d50…02d7e Head {h00=0x002a, h01=0x0050, text=»ECBICW EQU ECBICR+2 ECB INTERTAS WRITE«, t00=0x001d, t01=0x0008}
0x02d7e…02dae Head {h00=0x002c, h01=0x0050, text=»ECBKB2 EQU ECBICW+6 ECB 2ND KEYBOARD DK «, t00=0x001d, t01=0x0036}
0x02dae…02db8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001d, t01=0x0066}
0x02db8…02dd8 Head {h00=0x001c, h01=0x0050, text=»* RELATIVE ADDRESSES IN «, t00=0x001d, t01=0x0070}
0x02dd8…02df2 Head {h00=0x0016, h01=0x0050, text=»* COMMON WORKBLOCK«, t00=0x001d, t01=0x0090}
0x02df2…02dfc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001d, t01=0x00aa}
0x02dfc…02e10 Head {h00=0x0010, h01=0x0050, text=» IFF TEST=1 «, t00=0x001d, t01=0x00b4}
0x02e10…02e30 Head {h00=0x001c, h01=0x0050, text=»TSKTAB EQU 26 TASK TABLE«, t00=0x001d, t01=0x00c8}
0x02e30…02e3c Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x001d, t01=0x00e8}
0x02e3c…02e50 Head {h00=0x0010, h01=0x0050, text=» IFT TEST=1 «, t00=0x001d, t01=0x00f4}
0x02e50…02e72 Head {h00=0x001e, h01=0x0050, text=»TSKTAB EQU 219 TASK TABLE «, t00=0x001d, t01=0x0108}
0x02e72…02e7e Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x001d, t01=0x012a}
0x02e7e…02e8c Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x001d, t01=0x0136}
0x02e8c…02ed4 Head {h00=0x0044, h01=0x0050, text=»****************************************************************«, t00=0x001d, t01=0x0144}
0x02ed4…02f1c Head {h00=0x0044, h01=0x0050, text=»* *«, t00=0x001d, t01=0x018c}
0x02f1c…02f64 Head {h00=0x0044, h01=0x0050, text=»* KBINP MAIN ROUTINE *«, t00=0x001e, t01=0x0044}
0x02f64…02fac Head {h00=0x0044, h01=0x0050, text=»* *«, t00=0x001e, t01=0x008c}
0x02fac…02ff4 Head {h00=0x0044, h01=0x0050, text=»****************************************************************«, t00=0x001e, t01=0x00d4}
0x02ff4…03008 Head {h00=0x0010, h01=0x0050, text=»* REGISTERS«, t00=0x001e, t01=0x011c}
0x03008…03012 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001e, t01=0x0130}
0x03012…0302a Head {h00=0x0014, h01=0x0050, text=»* A2= KEY-CHAR. «, t00=0x001e, t01=0x013a}
0x0302a…03048 Head {h00=0x001a, h01=0x0050, text=»* A3= KEY-TABLE INDEX «, t00=0x001e, t01=0x0152}
0x03048…0305e Head {h00=0x0012, h01=0x0050, text=»* A4= RESERVED«, t00=0x001e, t01=0x0170}
0x0305e…03074 Head {h00=0x0012, h01=0x0050, text=»* A5= RESERVED«, t00=0x001e, t01=0x0186}
0x03074…0308a Head {h00=0x0012, h01=0x0050, text=»* A6= RESERVED«, t00=0x001f, t01=0x000c}
0x0308a…030ae Head {h00=0x0020, h01=0x0050, text=»* A7= KEY-HANDLING INDICATOR«, t00=0x001f, t01=0x0022}
0x030ae…030ce Head {h00=0x001c, h01=0x0050, text=»* A11= CREDIT WORK AREA «, t00=0x001f, t01=0x0046}
0x030ce…030e6 Head {h00=0x0014, h01=0x0050, text=»* A13= RESERVED «, t00=0x001f, t01=0x0066}
0x030e6…030f0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001f, t01=0x007e}
0x030f0…03134 Head {h00=0x0040, h01=0x0050, text=»*********************************************************** «, t00=0x001f, t01=0x0088}
0x03134…0314a Head {h00=0x0012, h01=0x0050, text=»KBINP2 EQU * «, t00=0x001f, t01=0x00cc}
0x0314a…0317c Head {h00=0x002e, h01=0x0050, text=» LDK A1,1 INDICATE 2ND KEYBOARD PRESENT DK«, t00=0x001f, t01=0x00e2}
0x0317c…03198 Head {h00=0x0018, h01=0x0050, text=» ST A1,ECBCW2,A8 DK«, t00=0x001f, t01=0x0114}
0x03198…031ac Head {h00=0x0010, h01=0x0050, text=»KBINP EQU * «, t00=0x001f, t01=0x0130}
0x031ac…031e0 Head {h00=0x0030, h01=0x0050, text=»* NO CHECK ON POWER OFF....DK 81-10-17 * «, t00=0x001f, t01=0x0144}
0x031e0…031f6 Head {h00=0x0012, h01=0x0050, text=» IFT KEYLST=0 «, t00=0x001f, t01=0x0178}
0x031f6…03222 Head {h00=0x0028, h01=0x0050, text=» LD A1,ECBCW,A8 SEE IF KEYLOCK ? DK «, t00=0x001f, t01=0x018e}
0x03222…03242 Head {h00=0x001c, h01=0x0050, text=» RF(N) KBIN80 SKIP IT DK«, t00=0x0020, t01=0x002a}
0x03242…0324e Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0020, t01=0x004a}
0x0324e…03264 Head {h00=0x0012, h01=0x0050, text=» IFT KEYLST=1 «, t00=0x0020, t01=0x0056}
0x03264…0328e Head {h00=0x0026, h01=0x0050, text=» LC* A2,ECBBA,A8 GET KEYLOCK VALUE«, t00=0x0020, t01=0x006c}
0x0328e…032bc Head {h00=0x002a, h01=0x0050, text=» ADKL A2,FKLKEY-/70 PREPARE FOR TABLE «, t00=0x0020, t01=0x0096}
0x032bc…032dc Head {h00=0x001c, h01=0x0050, text=» SC* A2,ECBBA,A8 RESTORE«, t00=0x0020, t01=0x00c4}
0x032dc…032e8 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0020, t01=0x00e4}
0x032e8…03306 Head {h00=0x001a, h01=0x0050, text=» LD A1,ECBRC,A8 ERROR?«, t00=0x0020, t01=0x00f0}
0x03306…0331c Head {h00=0x0012, h01=0x0050, text=» ANKL A1,/FFF3«, t00=0x0020, t01=0x010e}
0x0331c…03336 Head {h00=0x0016, h01=0x0050, text=» RF(NZ) KBIN80 YES«, t00=0x0020, t01=0x0124}
0x03336…0334e Head {h00=0x0014, h01=0x0050, text=» LD A1,KBINH,A11«, t00=0x0020, t01=0x013e}
0x0334e…03372 Head {h00=0x0020, h01=0x0050, text=» ANK A1,1 KB TOTALY INHIBIT?«, t00=0x0020, t01=0x0156}
0x03372…0338c Head {h00=0x0016, h01=0x0050, text=» RF(NZ) KBIN80 YES«, t00=0x0020, t01=0x017a}
0x0338c…033b4 (33, 0, 400) Head {h00=0x0024, h01=0x0050, text=» LC* A2,ECBBA,A8 GET INPUT CHAR.«, t00=0x0021, t01=0x0004}
0x033b4…033c8 Head {h00=0x0010, h01=0x0050, text=» ANK A2,/FF «, t00=0x0021, t01=0x002c}
0x033c8…033e0 Head {h00=0x0014, h01=0x0050, text=» LD A1,KBINH,A11«, t00=0x0021, t01=0x0040}
0x033e0…03406 Head {h00=0x0022, h01=0x0050, text=» ANK A1,6 MUST BE A RESET KEY?«, t00=0x0021, t01=0x0058}
0x03406…0341e Head {h00=0x0014, h01=0x0050, text=» RF(Z) KBIN30 NO«, t00=0x0021, t01=0x007e}
0x0341e…0343e Head {h00=0x001c, h01=0x0050, text=» CWK A2,RSET RESET KEY? «, t00=0x0021, t01=0x0096}
0x0343e…03450 Head {h00=0x000e, h01=0x0050, text=» IFT SNA=1«, t00=0x0021, t01=0x00b6}
0x03450…0346a Head {h00=0x0016, h01=0x0050, text=» RF(E) KBIN30 YES «, t00=0x0021, t01=0x00c8}
0x0346a…03494 Head {h00=0x0026, h01=0x0050, text=» CWK A2,SYSKEY SYSTEM REQUEST KEY?«, t00=0x0021, t01=0x00e2}
0x03494…034a0 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0021, t01=0x010c}
0x034a0…034ba Head {h00=0x0016, h01=0x0050, text=» RF(NE) KBIN80 NO «, t00=0x0021, t01=0x0118}
0x034ba…034ce Head {h00=0x0010, h01=0x0050, text=»KBIN30 EQU *«, t00=0x0021, t01=0x0132}
0x034ce…034e0 Head {h00=0x000e, h01=0x0050, text=» LDR A3,A2«, t00=0x0021, t01=0x0146}
0x034e0…03506 Head {h00=0x0022, h01=0x0050, text=» SUK A3,/20 INDEX TO KEY-TABLE«, t00=0x0021, t01=0x0158}
0x03506…03528 Head {h00=0x001e, h01=0x0050, text=» RF(N) KBIN80 ILLEGAL CHAR«, t00=0x0021, t01=0x017e}
0x03528…0353e Head {h00=0x0012, h01=0x0050, text=» CWK A2,LAKEY «, t00=0x0022, t01=0x0010}
0x0353e…03560 Head {h00=0x001e, h01=0x0050, text=» RF(G) KBIN80 ILLEGAL CHAR«, t00=0x0022, t01=0x0026}
0x03560…03572 Head {h00=0x000e, h01=0x0050, text=» IFT SNA=1«, t00=0x0022, t01=0x0048}
0x03572…03598 Head {h00=0x0022, h01=0x0050, text=» LD A1,SNAMOD,A11 GET SNA MODE«, t00=0x0022, t01=0x005a}
0x03598…035ac Head {h00=0x0010, h01=0x0050, text=» ANK A1,/FF «, t00=0x0022, t01=0x0080}
0x035ac…035e2 Head {h00=0x0032, h01=0x0050, text=» CFI A14,CPLKB,A1 COMPLETE KB IN CURRENT MODE «, t00=0x0022, t01=0x0094}
0x035e2…035ee Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0022, t01=0x00ca}
0x035ee…03600 Head {h00=0x000e, h01=0x0050, text=» IFF SNA=1«, t00=0x0022, t01=0x00d6}
0x03600…03612 Head {h00=0x000e, h01=0x0050, text=» LDK A7,0 «, t00=0x0022, t01=0x00e8}
0x03612…03638 Head {h00=0x0022, h01=0x0050, text=» CWK A2,FIPA PROGRAM ATTN KEY?«, t00=0x0022, t01=0x00fa}
0x03638…03650 Head {h00=0x0014, h01=0x0050, text=» RF(L) KBIN40 NO«, t00=0x0022, t01=0x0120}
0x03650…03664 Head {h00=0x0010, h01=0x0050, text=» CM MODE,A11«, t00=0x0022, t01=0x0138}
0x03664…0368c Head {h00=0x0024, h01=0x0050, text=» CF A14,LMP6OF CLEAR INSERT MODE«, t00=0x0022, t01=0x014c}
0x0368c…036a2 Head {h00=0x0012, h01=0x0050, text=» CF A14,DCABOR«, t00=0x0022, t01=0x0174}
0x036a2…036b6 Head {h00=0x0010, h01=0x0050, text=»KBIN40 EQU *«, t00=0x0022, t01=0x018a}
0x036b6…036c2 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0023, t01=0x000e}
0x036c2…036e6 Head {h00=0x0020, h01=0x0050, text=» LDR A7,A7 ANY KEY-HANDLING «, t00=0x0023, t01=0x001a}
0x036e6…03700 Head {h00=0x0016, h01=0x0050, text=» RF(NZ) KBIN80 NO «, t00=0x0023, t01=0x003e}
0x03700…03728 Head {h00=0x0024, h01=0x0050, text=» ADR A3,A3 PREPARE FOR KEY-TABLE«, t00=0x0023, t01=0x0058}
0x03728…03752 Head {h00=0x0026, h01=0x0050, text=» LD A1,RDMORE,A11 KEY IN SEQUENCE?«, t00=0x0023, t01=0x0080}
0x03752…0376a Head {h00=0x0014, h01=0x0050, text=» RF(Z) KBIN50 NO«, t00=0x0023, t01=0x00aa}
0x0376a…03792 Head {h00=0x0024, h01=0x0050, text=» CF A14,DCABOR KILL DC AGAIN DK «, t00=0x0023, t01=0x00c2}
0x03792…037ba Head {h00=0x0024, h01=0x0050, text=» LD A1,RDMORE,A11 RESTORE A1 DK2«, t00=0x0023, t01=0x00ea}
0x037ba…037e6 Head {h00=0x0028, h01=0x0050, text=» CFR A14,A1 CONTINUE AT SAVED LABEL «, t00=0x0023, t01=0x0112}
0x037e6…037f8 Head {h00=0x000e, h01=0x0050, text=» RF KBIN90«, t00=0x0023, t01=0x013e}
0x037f8…0380c Head {h00=0x0010, h01=0x0050, text=»KBIN50 EQU *«, t00=0x0023, t01=0x0150}
0x0380c…03842 Head {h00=0x0032, h01=0x0050, text=» CFI A14,KEYTAB,A3 BRANCH TO RESP. KEY-HANDLER«, t00=0x0023, t01=0x0164}
0x03842…03854 Head {h00=0x000e, h01=0x0050, text=» RF KBIN90«, t00=0x0024, t01=0x000a}
0x03854…03868 Head {h00=0x0010, h01=0x0050, text=»KBIN80 EQU *«, t00=0x0024, t01=0x001c}
0x03868…0388e Head {h00=0x0022, h01=0x0050, text=» CF A14,RESKB RESET KB BUFFER «, t00=0x0024, t01=0x0030}
0x0388e…038a2 Head {h00=0x0010, h01=0x0050, text=»KBIN90 EQU *«, t00=0x0024, t01=0x0056}
0x038a2…038b2 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0024, t01=0x006a}
0x038b2…038c0 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0024, t01=0x007a}
0x038c0…038d2 Head {h00=0x000e, h01=0x0050, text=» IFT SNA=1«, t00=0x0024, t01=0x0088}
0x038d2…03920 Head {h00=0x004a, h01=0x0050, text=»********************************************************************* «, t00=0x0024, t01=0x009a}
0x03920…0396e Head {h00=0x004a, h01=0x0050, text=»* * «, t00=0x0024, t01=0x00e8}
0x0396e…039bc Head {h00=0x004a, h01=0x0050, text=»* CPLKB KB-COMPLETION TABLE * «, t00=0x0024, t01=0x0136}
0x039bc…03a0a Head {h00=0x004a, h01=0x0050, text=»* * «, t00=0x0024, t01=0x0184}
0x03a0a…03a58 Head {h00=0x004a, h01=0x0050, text=»********************************************************************* «, t00=0x0025, t01=0x0042}
0x03a58…03a6c Head {h00=0x0010, h01=0x0050, text=»CPLKB EQU * «, t00=0x0025, t01=0x0090}
0x03a6c…03a98 Head {h00=0x0028, h01=0x0050, text=» DATA KBCPLO KB-COMPL. IN LOCAL MODE«, t00=0x0025, t01=0x00a4}
0x03a98…03ac6 Head {h00=0x002a, h01=0x0050, text=» DATA KBCPSY KB-COMPL. IN SYSTEM MODE «, t00=0x0025, t01=0x00d0}
0x03ac6…03af4 Head {h00=0x002a, h01=0x0050, text=» DATA KBCPJO KB-COMPL. IN MY JOB MODE «, t00=0x0025, t01=0x00fe}
0x03af4…03b02 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0025, t01=0x012c}
0x03b02…03b50 Head {h00=0x004a, h01=0x0050, text=»********************************************************************* «, t00=0x0025, t01=0x013a}
0x03b50…03b9e Head {h00=0x004a, h01=0x0050, text=»* * «, t00=0x0025, t01=0x0188}
0x03b9e…03bec Head {h00=0x004a, h01=0x0050, text=»* KBCLO KB-COMPLETION IN LOCAL MODE * «, t00=0x0026, t01=0x0046}
0x03bec…03c3a Head {h00=0x004a, h01=0x0050, text=»* * «, t00=0x0026, t01=0x0094}
0x03c3a…03c88 Head {h00=0x004a, h01=0x0050, text=»********************************************************************* «, t00=0x0026, t01=0x00e2}
0x03c88…03c9c Head {h00=0x0010, h01=0x0050, text=»* REGISTERS«, t00=0x0026, t01=0x0130}
0x03c9c…03ca6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0026, t01=0x0144}
0x03ca6…03cbc Head {h00=0x0012, h01=0x0050, text=»* A2= KEY-CHAR«, t00=0x0026, t01=0x014e}
0x03cbc…03cda Head {h00=0x001a, h01=0x0050, text=»* A3= KEY-TABLE INDEX «, t00=0x0026, t01=0x0164}
0x03cda…03cf0 Head {h00=0x0012, h01=0x0050, text=»* A4= RESERVED«, t00=0x0026, t01=0x0182}
0x03cf0…03d06 Head {h00=0x0012, h01=0x0050, text=»* A5= RESERVED«, t00=0x0027, t01=0x0008}
0x03d06…03d1c Head {h00=0x0012, h01=0x0050, text=»* A6= RESERVED«, t00=0x0027, t01=0x001e}
0x03d1c…03d40 Head {h00=0x0020, h01=0x0050, text=»* A7= KEY-HANDLING INDICATOR«, t00=0x0027, t01=0x0034}
0x03d40…03d60 Head {h00=0x001c, h01=0x0050, text=»* A11= CREDIT WORK AREA «, t00=0x0027, t01=0x0058}
0x03d60…03d78 Head {h00=0x0014, h01=0x0050, text=»* A13= RESERVED «, t00=0x0027, t01=0x0078}
0x03d78…03d82 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0027, t01=0x0090}
0x03d82…03dc6 Head {h00=0x0040, h01=0x0050, text=»*********************************************************** «, t00=0x0027, t01=0x009a}
0x03dc6…03dda Head {h00=0x0010, h01=0x0050, text=»KBCPLO EQU *«, t00=0x0027, t01=0x00de}
0x03dda…03e02 Head {h00=0x0024, h01=0x0050, text=» LDK A7,0 INDICATE KEY-HANDLING «, t00=0x0027, t01=0x00f2}
0x03e02…03e2a Head {h00=0x0024, h01=0x0050, text=» CWK A2,FIPA PROGRAM ATTN, KEY? «, t00=0x0027, t01=0x011a}
0x03e2a…03e44 Head {h00=0x0016, h01=0x0050, text=» RF(NG) KBCL90 NO «, t00=0x0027, t01=0x0142}
0x03e44…03e66 Head {h00=0x001e, h01=0x0050, text=» LDK A7,1 NO KEY-HANDLING «, t00=0x0027, t01=0x015c}
0x03e66…03e8c Head {h00=0x0022, h01=0x0050, text=» CWK A2,SYSKEY SYSTEM REQUEST?«, t00=0x0027, t01=0x017e}
0x03e8c…03ea6 Head {h00=0x0016, h01=0x0050, text=» RF(NE) KBCL80 NO «, t00=0x0028, t01=0x0014}
0x03ea6…03ed0 Head {h00=0x0026, h01=0x0050, text=» CF A14,OPSYS START COMMUNICATION «, t00=0x0028, t01=0x002e}
0x03ed0…03ef2 Head {h00=0x001e, h01=0x0050, text=» CF A14,TSTSTA TEST STATUS«, t00=0x0028, t01=0x0058}
0x03ef2…03f10 Head {h00=0x001a, h01=0x0050, text=» ANKL A1,/101 ACTIVE? «, t00=0x0028, t01=0x007a}
0x03f10…03f2a Head {h00=0x0016, h01=0x0050, text=» RF(NZ) KBCL90 NO «, t00=0x0028, t01=0x0098}
0x03f2a…03f54 Head {h00=0x0026, h01=0x0050, text=» LDK A1,SYSOP INDICATE SYSTEM MODE«, t00=0x0028, t01=0x00b2}
0x03f54…03f84 Head {h00=0x002c, h01=0x0050, text=» ORKL A1,/8000 INDICATE MODE ACTIVATION «, t00=0x0028, t01=0x00dc}
0x03f84…03f9e Head {h00=0x0016, h01=0x0050, text=» ST A1,SNAMOD,A11 «, t00=0x0028, t01=0x010c}
0x03f9e…03fb0 Head {h00=0x000e, h01=0x0050, text=» RF KBCL90«, t00=0x0028, t01=0x0126}
0x03fb0…03fc4 Head {h00=0x0010, h01=0x0050, text=»KBCL80 EQU *«, t00=0x0028, t01=0x0138}
0x03fc4…03fe6 Head {h00=0x001e, h01=0x0050, text=» CWK A2,ENTKEY ENTER KEY? «, t00=0x0028, t01=0x014c}
0x03fe6…04000 Head {h00=0x0016, h01=0x0050, text=» RF(NE) KBCL85 NO «, t00=0x0028, t01=0x016e}
0x04000…04030 Head {h00=0x002c, h01=0x0050, text=» LD A1,RDMORE,A11 INSIDE IDENT ROUTINE? «, t00=0x0028, t01=0x0188}
0x04030…04048 Head {h00=0x0014, h01=0x0050, text=» RF(Z) KBCL85 NO«, t00=0x0029, t01=0x0028}
0x04048…04070 Head {h00=0x0024, h01=0x0050, text=» LDK A7,0 INDICATE KEY-HANDLING «, t00=0x0029, t01=0x0040}
0x04070…04082 Head {h00=0x000e, h01=0x0050, text=» RF KBCL90«, t00=0x0029, t01=0x0068}
0x04082…04096 Head {h00=0x0010, h01=0x0050, text=»KBCL85 EQU *«, t00=0x0029, t01=0x007a}
0x04096…040b8 Head {h00=0x001e, h01=0x0050, text=» CF A14,ERROR ILLEGAL KEY «, t00=0x0029, t01=0x008e}
0x040b8…040cc Head {h00=0x0010, h01=0x0050, text=»KBCL90 EQU *«, t00=0x0029, t01=0x00b0}
0x040cc…040dc Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0029, t01=0x00c4}
0x040dc…040ea Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0029, t01=0x00d4}
0x040ea…04136 Head {h00=0x0048, h01=0x0050, text=»********************************************************************«, t00=0x0029, t01=0x00e2}
0x04136…04182 Head {h00=0x0048, h01=0x0050, text=»* *«, t00=0x0029, t01=0x012e}
0x04182…041ce Head {h00=0x0048, h01=0x0050, text=»* KBCPSY KB-COMPLETION IN SYSTEM MODE *«, t00=0x0029, t01=0x017a}
0x041ce…0421a Head {h00=0x0048, h01=0x0050, text=»* *«, t00=0x002a, t01=0x0036}
0x0421a…04266 Head {h00=0x0048, h01=0x0050, text=»********************************************************************«, t00=0x002a, t01=0x0082}
0x04266…0427a Head {h00=0x0010, h01=0x0050, text=»* REGISTERS«, t00=0x002a, t01=0x00ce}
0x0427a…04284 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002a, t01=0x00e2}
0x04284…0429a Head {h00=0x0012, h01=0x0050, text=»* A2= KEY-CHAR«, t00=0x002a, t01=0x00ec}
0x0429a…042b8 Head {h00=0x001a, h01=0x0050, text=»* A3= KEY-TABLE INDEX «, t00=0x002a, t01=0x0102}
0x042b8…042ce Head {h00=0x0012, h01=0x0050, text=»* A4= RESERVED«, t00=0x002a, t01=0x0120}
0x042ce…042e4 Head {h00=0x0012, h01=0x0050, text=»* A5= RESERVED«, t00=0x002a, t01=0x0136}
0x042e4…042fa Head {h00=0x0012, h01=0x0050, text=»* A6= RESERVED«, t00=0x002a, t01=0x014c}
0x042fa…0431e Head {h00=0x0020, h01=0x0050, text=»* A7= KEY-HANDLING INDICATOR«, t00=0x002a, t01=0x0162}
0x0431e…0433e Head {h00=0x001c, h01=0x0050, text=»* A11= CREDIT WORK AREA «, t00=0x002a, t01=0x0186}
0x0433e…04356 Head {h00=0x0014, h01=0x0050, text=»* A13= RESERVED «, t00=0x002b, t01=0x0016}
0x04356…04360 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002b, t01=0x002e}
0x04360…043a4 Head {h00=0x0040, h01=0x0050, text=»*********************************************************** «, t00=0x002b, t01=0x0038}
0x043a4…043b8 Head {h00=0x0010, h01=0x0050, text=»KBCPSY EQU *«, t00=0x002b, t01=0x007c}
0x043b8…043e0 Head {h00=0x0024, h01=0x0050, text=» LDK A7,0 INDICATE KEY-HANDLING «, t00=0x002b, t01=0x0090}
0x043e0…04408 Head {h00=0x0024, h01=0x0050, text=» CWK A2,FIPA PROGRAM ATTN. KEY? «, t00=0x002b, t01=0x00b8}
0x04408…04420 Head {h00=0x0014, h01=0x0050, text=» RF(L) KBCS20 NO«, t00=0x002b, t01=0x00e0}
0x04420…04454 Head {h00=0x0030, h01=0x0050, text=» CWK A2,CLRKEY UNALLOWED PROGRAM ATTN. KEY? «, t00=0x002b, t01=0x00f8}
0x04454…04478 Head {h00=0x0020, h01=0x0050, text=» RF(NE) KBCS10 NOT CLEAR KEY«, t00=0x002b, t01=0x012c}
0x04478…044a2 Head {h00=0x0026, h01=0x0050, text=» LDK A7,1 INDICATE NO KEY-HANDLING«, t00=0x002b, t01=0x0150}
0x044a2…044cc Head {h00=0x0026, h01=0x0050, text=» CF A14,ERASE ERASE ENTIRE SCREEN «, t00=0x002b, t01=0x017a}
0x044cc…044de Head {h00=0x000e, h01=0x0050, text=» RF KBCS80«, t00=0x002c, t01=0x0014}
0x044de…044f2 Head {h00=0x0010, h01=0x0050, text=»KBCS10 EQU *«, t00=0x002c, t01=0x0026}
0x044f2…0450c Head {h00=0x0016, h01=0x0050, text=» RF(G) KBCS70 YES «, t00=0x002c, t01=0x003a}
0x0450c…04520 Head {h00=0x0010, h01=0x0050, text=» CM MODE,A11«, t00=0x002c, t01=0x0054}
0x04520…04548 Head {h00=0x0024, h01=0x0050, text=» CF A14,LMP6OF CLEAR INSERT MODE«, t00=0x002c, t01=0x0068}
0x04548…04568 Head {h00=0x001c, h01=0x0050, text=» CF A14,DCABOR ABORT DC «, t00=0x002c, t01=0x0090}
0x04568…0457a Head {h00=0x000e, h01=0x0050, text=» RF KBCS80«, t00=0x002c, t01=0x00b0}
0x0457a…0458e Head {h00=0x0010, h01=0x0050, text=»KBCS20 EQU *«, t00=0x002c, t01=0x00c2}
0x0458e…045b6 Head {h00=0x0024, h01=0x0050, text=» CWK A2,ERIKEY ERASE INPUT KEY? «, t00=0x002c, t01=0x00d6}
0x045b6…045d0 Head {h00=0x0016, h01=0x0050, text=» RF(E) KBCS80 YES «, t00=0x002c, t01=0x00fe}
0x045d0…045fe Head {h00=0x002a, h01=0x0050, text=» CWK A2,ERFKEY ERASE END OF FIELD KEY?«, t00=0x002c, t01=0x0118}
0x045fe…04618 Head {h00=0x0016, h01=0x0050, text=» RF(E) KBCS80 YES «, t00=0x002c, t01=0x0146}
0x04618…04640 Head {h00=0x0024, h01=0x0050, text=» CWK A2,CRUP INITIATE CURSOR? =1«, t00=0x002c, t01=0x0160}
0x04640…0465c Head {h00=0x0018, h01=0x0050, text=» RF(NL) KBCS90 NO =1«, t00=0x002c, t01=0x0188}
0x0465c…04676 Head {h00=0x0016, h01=0x0050, text=» LD A1,CURPOS,A11 «, t00=0x002d, t01=0x0014}
0x04676…0469c Head {h00=0x0022, h01=0x0050, text=» CWK A1,/800 CURSOR INITIATED?«, t00=0x002d, t01=0x002e}
0x0469c…046b6 Head {h00=0x0016, h01=0x0050, text=» RF(NE) KBCS90 YES«, t00=0x002d, t01=0x0054}
0x046b6…046de Head {h00=0x0024, h01=0x0050, text=» CF A14,SCRINF GET SCREEN INFO. «, t00=0x002d, t01=0x006e}
0x046de…04708 Head {h00=0x0026, h01=0x0050, text=» ST A4,CURPOS,A11 INITIATE CURSOR «, t00=0x002d, t01=0x0096}
0x04708…0471a Head {h00=0x000e, h01=0x0050, text=» RF KBCS90«, t00=0x002d, t01=0x00c0}
0x0471a…0472e Head {h00=0x0010, h01=0x0050, text=»KBCS70 EQU *«, t00=0x002d, t01=0x00d2}
0x0472e…04752 Head {h00=0x0020, h01=0x0050, text=» CF A14,ERROR INDICATE ERROR«, t00=0x002d, t01=0x00e6}
0x04752…04774 Head {h00=0x001e, h01=0x0050, text=» LDK A7,1 NO KEY-HANDLING «, t00=0x002d, t01=0x010a}
0x04774…04786 Head {h00=0x000e, h01=0x0050, text=» RF KBCS90«, t00=0x002d, t01=0x012c}
0x04786…0479a Head {h00=0x0010, h01=0x0050, text=»KBCS80 EQU *«, t00=0x002d, t01=0x013e}
0x0479a…047ca Head {h00=0x002c, h01=0x0050, text=» LDKL A1,NEWMOD INDICATE MODE ACTIVATION«, t00=0x002d, t01=0x0152}
0x047ca…047e4 Head {h00=0x0016, h01=0x0050, text=» ORS A1,SNAMOD,A11«, t00=0x002d, t01=0x0182}
0x047e4…047f8 Head {h00=0x0010, h01=0x0050, text=»KBCS90 EQU *«, t00=0x002e, t01=0x000c}
0x047f8…04808 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x002e, t01=0x0020}
0x04808…04816 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x002e, t01=0x0030}
0x04816…04860 Head {h00=0x0046, h01=0x0050, text=»******************************************************************«, t00=0x002e, t01=0x003e}
0x04860…048aa Head {h00=0x0046, h01=0x0050, text=»* *«, t00=0x002e, t01=0x0088}
0x048aa…048f4 Head {h00=0x0046, h01=0x0050, text=»* KBCPJO KB-COMPLETION IN MY JOB MODE *«, t00=0x002e, t01=0x00d2}
0x048f4…0493e Head {h00=0x0046, h01=0x0050, text=»* *«, t00=0x002e, t01=0x011c}
0x0493e…04988 Head {h00=0x0046, h01=0x0050, text=»******************************************************************«, t00=0x002e, t01=0x0166}
0x04988…0499c Head {h00=0x0010, h01=0x0050, text=»* REGISTERS«, t00=0x002f, t01=0x0020}
0x0499c…049a6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002f, t01=0x0034}
0x049a6…049bc Head {h00=0x0012, h01=0x0050, text=»* A2= KEY-CHAR«, t00=0x002f, t01=0x003e}
0x049bc…049da Head {h00=0x001a, h01=0x0050, text=»* A3= KEY-TABLE INDEX «, t00=0x002f, t01=0x0054}
0x049da…049f0 Head {h00=0x0012, h01=0x0050, text=»* A4= RESERVED«, t00=0x002f, t01=0x0072}
0x049f0…04a06 Head {h00=0x0012, h01=0x0050, text=»* A5= RESRVED «, t00=0x002f, t01=0x0088}
0x04a06…04a1c Head {h00=0x0012, h01=0x0050, text=»* A6= RESRVED «, t00=0x002f, t01=0x009e}
0x04a1c…04a40 Head {h00=0x0020, h01=0x0050, text=»* A7= KEY-HANDLING INDICATOR«, t00=0x002f, t01=0x00b4}
0x04a40…04a60 Head {h00=0x001c, h01=0x0050, text=»* A11= CREDIT WORK AREA «, t00=0x002f, t01=0x00d8}
0x04a60…04a78 Head {h00=0x0014, h01=0x0050, text=»* A13= RESERVED «, t00=0x002f, t01=0x00f8}
0x04a78…04a82 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002f, t01=0x0110}
0x04a82…04ac6 Head {h00=0x0040, h01=0x0050, text=»************************************************************«, t00=0x002f, t01=0x011a}
0x04ac6…04ada Head {h00=0x0010, h01=0x0050, text=»KBCPJO EQU *«, t00=0x002f, t01=0x015e}
0x04ada…04b02 Head {h00=0x0024, h01=0x0050, text=» LDK A7,0 INDICATE KEY-HANDLING «, t00=0x002f, t01=0x0172}
0x04b02…04b2a Head {h00=0x0024, h01=0x0050, text=» CWK A2,FIPA PROGRAM ATTN. KEY? «, t00=0x0030, t01=0x000a}
0x04b2a…04b42 Head {h00=0x0014, h01=0x0050, text=» RF(L) KBCJ90 NO«, t00=0x0030, t01=0x0032}
0x04b42…04b56 Head {h00=0x0010, h01=0x0050, text=» IFT OFLIN=1«, t00=0x0030, t01=0x004a}
0x04b56…04b6c Head {h00=0x0012, h01=0x0050, text=» RF(E) KBCJ80 «, t00=0x0030, t01=0x005e}
0x04b6c…04b78 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0030, t01=0x0074}
0x04b78…04b8a Head {h00=0x000e, h01=0x0050, text=» IFT SNA=1«, t00=0x0030, t01=0x0080}
0x04b8a…04b9e Head {h00=0x0010, h01=0x0050, text=» CM MODE,A11«, t00=0x0030, t01=0x0092}
0x04b9e…04bca Head {h00=0x0028, h01=0x0050, text=» CF A14,LMP6OF TURN OFF INSERT LAMP «, t00=0x0030, t01=0x00a6}
0x04bca…04bea Head {h00=0x001c, h01=0x0050, text=» CF A14,DCABOR ABORT DC «, t00=0x0030, t01=0x00d2}
0x04bea…04bfe Head {h00=0x0010, h01=0x0050, text=» IFT OFLIN=1«, t00=0x0030, t01=0x00f2}
0x04bfe…04c10 Head {h00=0x000e, h01=0x0050, text=» RF KBCJ90«, t00=0x0030, t01=0x0106}
0x04c10…04c24 Head {h00=0x0010, h01=0x0050, text=»KBCJ80 EQU *«, t00=0x0030, t01=0x0118}
0x04c24…04c48 Head {h00=0x0020, h01=0x0050, text=» CF A14,ERROR INDICATE ERROR«, t00=0x0030, t01=0x012c}
0x04c48…04c6a Head {h00=0x001e, h01=0x0050, text=» LDK A7,1 NO KEY-HANDLING «, t00=0x0030, t01=0x0150}
0x04c6a…04c76 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0030, t01=0x0172}
0x04c76…04c88 Head {h00=0x000e, h01=0x0050, text=» IFT SNA=1«, t00=0x0030, t01=0x017e}
0x04c88…04c9c Head {h00=0x0010, h01=0x0050, text=»KBCJ90 EQU *«, t00=0x0030, t01=0x0190}
0x04c9c…04cac Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0031, t01=0x0014}
0x04cac…04cb8 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0031, t01=0x0024}
0x04cb8…04cc6 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0031, t01=0x0030}
0x04cc6…04d0e Head {h00=0x0044, h01=0x0050, text=»*************************************************************** «, t00=0x0031, t01=0x003e}
0x04d0e…04d56 Head {h00=0x0044, h01=0x0050, text=»* * «, t00=0x0031, t01=0x0086}
0x04d56…04d9e Head {h00=0x0044, h01=0x0050, text=»* READKB READ KEYBOARD WITH NO WAIT * «, t00=0x0031, t01=0x00ce}
0x04d9e…04de6 Head {h00=0x0044, h01=0x0050, text=»* * «, t00=0x0031, t01=0x0116}
0x04de6…04e2e Head {h00=0x0044, h01=0x0050, text=»*************************************************************** «, t00=0x0031, t01=0x015e}
0x04e2e…04e4a Head {h00=0x0018, h01=0x0050, text=»* REGISTERS«, t00=0x0032, t01=0x0016}
0x04e4a…04e54 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0032, t01=0x0032}
0x04e54…04e68 Head {h00=0x0010, h01=0x0050, text=»* A8= KB-ECB«, t00=0x0032, t01=0x003c}
0x04e68…04e88 Head {h00=0x001c, h01=0x0050, text=»* A11= CREDIT WORK AREA «, t00=0x0032, t01=0x0050}
0x04e88…04ea0 Head {h00=0x0014, h01=0x0050, text=»* A13= RESERVED «, t00=0x0032, t01=0x0070}
0x04ea0…04eaa Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0032, t01=0x0088}
0x04eaa…04ee8 Head {h00=0x003a, h01=0x0050, text=»***************************************************** «, t00=0x0032, t01=0x0092}
0x04ee8…04efc Head {h00=0x0010, h01=0x0050, text=»READKB EQU *«, t00=0x0032, t01=0x00d0}
0x04efc…04f14 Head {h00=0x0014, h01=0x0050, text=» LD A8,ECBKB,A11«, t00=0x0032, t01=0x00e4}
0x04f14…04f32 Head {h00=0x001a, h01=0x0050, text=» LDK A7,0 CLEAR ECBCW «, t00=0x0032, t01=0x00fc}
0x04f32…04f4c Head {h00=0x0016, h01=0x0050, text=» ST A7,ECBCW,A8 «, t00=0x0032, t01=0x011a}
0x04f4c…04f5e Head {h00=0x000e, h01=0x0050, text=» LDK A7,1 «, t00=0x0032, t01=0x0134}
0x04f5e…04f76 Head {h00=0x0014, h01=0x0050, text=» ST A7,ECBRL,A8 «, t00=0x0032, t01=0x0146}
0x04f76…04fac Head {h00=0x0032, h01=0x0050, text=»* NO POWER OF INDICATOR ,...DK 81-10-17 * «, t00=0x0032, t01=0x015e}
0x04fac…04fcc (51, 0, 400) Head {h00=0x001c, h01=0x0050, text=» LDK A7,2 STANDARD READ «, t00=0x0033, t01=0x0004}
0x04fcc…04fd8 Head {h00=0x0008, h01=0x0050, text=» LKM«, t00=0x0033, t01=0x0024}
0x04fd8…04fe8 Head {h00=0x000c, h01=0x0050, text=» DATA 1 «, t00=0x0033, t01=0x0030}
0x04fe8…04ff8 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0033, t01=0x0040}
0x04ff8…0502c Head {h00=0x0030, h01=0x0050, text=»** READ FROM SECOND KEYBOARD, P & T, DK ** «, t00=0x0033, t01=0x0050}
0x0502c…05042 Head {h00=0x0012, h01=0x0050, text=»READK2 EQU * «, t00=0x0033, t01=0x0084}
0x05042…05064 Head {h00=0x001e, h01=0x0050, text=» LD A8,ECBKB2,A11 GET ECB «, t00=0x0033, t01=0x009a}
0x05064…05082 Head {h00=0x001a, h01=0x0050, text=» LDK A7,0 CLEAR ECBCW «, t00=0x0033, t01=0x00bc}
0x05082…0509c Head {h00=0x0016, h01=0x0050, text=» ST A7,ECBCW,A8 «, t00=0x0033, t01=0x00da}
0x0509c…050ae Head {h00=0x000e, h01=0x0050, text=» LDK A7,1 «, t00=0x0033, t01=0x00f4}
0x050ae…050c6 Head {h00=0x0014, h01=0x0050, text=» ST A7,ECBRL,A8 «, t00=0x0033, t01=0x0106}
0x050c6…050e6 Head {h00=0x001c, h01=0x0050, text=» LDK A7,2 STANDARD READ «, t00=0x0033, t01=0x011e}
0x050e6…050f4 Head {h00=0x000a, h01=0x0050, text=» LKM «, t00=0x0033, t01=0x013e}
0x050f4…05104 Head {h00=0x000c, h01=0x0050, text=» DATA 1 «, t00=0x0033, t01=0x014c}
0x05104…05116 Head {h00=0x000e, h01=0x0050, text=» RTN A14 «, t00=0x0033, t01=0x015c}
0x05116…05138 Head {h00=0x001e, h01=0x0050, text=»**END DK MODIFICATION ** «, t00=0x0033, t01=0x016e}
0x05138…05146 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0033, t01=0x0190}
0x05146…0518e Head {h00=0x0044, h01=0x0050, text=»*************************************************************** «, t00=0x0034, t01=0x000e}
0x0518e…051d6 Head {h00=0x0044, h01=0x0050, text=»* * «, t00=0x0034, t01=0x0056}
0x051d6…0521e Head {h00=0x0044, h01=0x0050, text=»* RESKB RESET KEYBOARD BUFFER * «, t00=0x0034, t01=0x009e}
0x0521e…05266 Head {h00=0x0044, h01=0x0050, text=»* * «, t00=0x0034, t01=0x00e6}
0x05266…052ae Head {h00=0x0044, h01=0x0050, text=»*************************************************************** «, t00=0x0034, t01=0x012e}
0x052ae…052ce Head {h00=0x001c, h01=0x0050, text=»* REGISTERS «, t00=0x0034, t01=0x0176}
0x052ce…052d8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0035, t01=0x0008}
0x052d8…052f8 Head {h00=0x001c, h01=0x0050, text=»* A11= CREDIT WORK AREA «, t00=0x0035, t01=0x0012}
0x052f8…05310 Head {h00=0x0014, h01=0x0050, text=»* A13= RESERVED «, t00=0x0035, t01=0x0032}
0x05310…0531a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0035, t01=0x004a}
0x0531a…05358 Head {h00=0x003a, h01=0x0050, text=»******************************************************«, t00=0x0035, t01=0x0054}
0x05358…0536c Head {h00=0x0010, h01=0x0050, text=»RESKB EQU * «, t00=0x0035, t01=0x0092}
0x0536c…053a2 Head {h00=0x0032, h01=0x0050, text=»* REMOVED UNTIL NEEDED......DK, 811028....**«, t00=0x0035, t01=0x00a6}
0x053a2…053b2 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0035, t01=0x00dc}
0x053b2…053c0 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0035, t01=0x00ec}
0x053c0…05404 Head {h00=0x0040, h01=0x0050, text=»*********************************************************** «, t00=0x0035, t01=0x00fa}
0x05404…05448 Head {h00=0x0040, h01=0x0050, text=»* * «, t00=0x0035, t01=0x013e}
0x05448…0546e Head {h00=0x0022, h01=0x0050, text=»* ICVRED KB/VDU INTERTASK READ«, t00=0x0035, t01=0x0182}
0x0546e…054b2 Head {h00=0x0040, h01=0x0050, text=»* * «, t00=0x0036, t01=0x0018}
0x054b2…054f6 Head {h00=0x0040, h01=0x0050, text=»*********************************************************** «, t00=0x0036, t01=0x005c}
0x054f6…05514 Head {h00=0x001a, h01=0x0050, text=»* REGISTERS«, t00=0x0036, t01=0x00a0}
0x05514…0551e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0036, t01=0x00be}
0x0551e…05534 Head {h00=0x0012, h01=0x0050, text=»* A2= RESERVED«, t00=0x0036, t01=0x00c8}
0x05534…05554 Head {h00=0x001c, h01=0x0050, text=»* A11= CREDIT WORK AREA «, t00=0x0036, t01=0x00de}
0x05554…0556c Head {h00=0x0014, h01=0x0050, text=»* A13= RESERVED «, t00=0x0036, t01=0x00fe}
0x0556c…05576 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0036, t01=0x0116}
0x05576…055ba Head {h00=0x0040, h01=0x0050, text=»*********************************************************** «, t00=0x0036, t01=0x0120}
0x055ba…055ce Head {h00=0x0010, h01=0x0050, text=»ICVRED EQU *«, t00=0x0036, t01=0x0164}
0x055ce…055e8 Head {h00=0x0016, h01=0x0050, text=» LD A8,ECBICR,A11 «, t00=0x0036, t01=0x0178}
0x055e8…0560c (55, 0, 400) Head {h00=0x0020, h01=0x0050, text=» CF A14,ICSET SET NO TIMEOUT«, t00=0x0037, t01=0x0004}
0x0560c…05622 Head {h00=0x0012, h01=0x0050, text=» IFF COPCMD=1 «, t00=0x0037, t01=0x0028}
0x05622…0563a Head {h00=0x0014, h01=0x0050, text=» LD A1,PRTID,A11«, t00=0x0037, t01=0x003e}
0x0563a…05646 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0037, t01=0x0056}
0x05646…0565c Head {h00=0x0012, h01=0x0050, text=» IFT COPCMD=1 «, t00=0x0037, t01=0x0062}
0x0565c…0567a Head {h00=0x001a, h01=0x0050, text=» LDK A1,0 UNADDRESSED «, t00=0x0037, t01=0x0078}
0x0567a…05686 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0037, t01=0x0096}
0x05686…0569c Head {h00=0x0012, h01=0x0050, text=» LDKL A3,REGI «, t00=0x0037, t01=0x00a2}
0x0569c…056b0 Head {h00=0x0010, h01=0x0050, text=» ADR A3,A11 «, t00=0x0037, t01=0x00b8}
0x056b0…056c8 Head {h00=0x0014, h01=0x0050, text=» LDK A2,2 LENGTH«, t00=0x0037, t01=0x00cc}
0x056c8…056ee Head {h00=0x0022, h01=0x0050, text=» CF A14,ICREAD READ INTERTASK «, t00=0x0037, t01=0x00e4}
0x056ee…056fe Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0037, t01=0x010a}
0x056fe…0570c Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0037, t01=0x011a}
0x0570c…05754 Head {h00=0x0044, h01=0x0050, text=»****************************************************************«, t00=0x0037, t01=0x0128}
0x05754…0579c Head {h00=0x0044, h01=0x0050, text=»* *«, t00=0x0037, t01=0x0170}
0x0579c…057e4 Head {h00=0x0044, h01=0x0050, text=»* ICINP INTERTASK INPUT *«, t00=0x0038, t01=0x0028}
0x057e4…0582c Head {h00=0x0044, h01=0x0050, text=»* *«, t00=0x0038, t01=0x0070}
0x0582c…05874 Head {h00=0x0044, h01=0x0050, text=»****************************************************************«, t00=0x0038, t01=0x00b8}
0x05874…05894 Head {h00=0x001c, h01=0x0050, text=»* REGISTERS «, t00=0x0038, t01=0x0100}
0x05894…0589e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0038, t01=0x0120}
0x0589e…058be Head {h00=0x001c, h01=0x0050, text=»* A11= CREDIT WORK AREA «, t00=0x0038, t01=0x012a}
0x058be…058d6 Head {h00=0x0014, h01=0x0050, text=»* A13= RESERVED «, t00=0x0038, t01=0x014a}
0x058d6…058e0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0038, t01=0x0162}
0x058e0…05928 Head {h00=0x0044, h01=0x0050, text=»****************************************************************«, t00=0x0038, t01=0x016c}
0x05928…0593c Head {h00=0x0010, h01=0x0050, text=»ICINP EQU * «, t00=0x0039, t01=0x0024}
0x0593c…05954 Head {h00=0x0014, h01=0x0050, text=» LD* A2,ECBBA,A8«, t00=0x0039, t01=0x0038}
0x05954…0596a Head {h00=0x0012, h01=0x0050, text=» IFT COPCMD=1 «, t00=0x0039, t01=0x0050}
0x0596a…0598a Head {h00=0x001c, h01=0x0050, text=» LDR A1,A2 COPY COMMAND?«, t00=0x0039, t01=0x0066}
0x0598a…059a4 Head {h00=0x0016, h01=0x0050, text=» RF(NN) ICIN80 NO «, t00=0x0039, t01=0x0086}
0x059a4…059c8 Head {h00=0x0020, h01=0x0050, text=» LDKL A3,BVDU BUFFER TO SEND«, t00=0x0039, t01=0x00a0}
0x059c8…059dc Head {h00=0x0010, h01=0x0050, text=» ADR A3,A11 «, t00=0x0039, t01=0x00c4}
0x059dc…059f0 Head {h00=0x0010, h01=0x0050, text=» IFT COPL=1 «, t00=0x0039, t01=0x00d8}
0x059f0…05a1c Head {h00=0x0028, h01=0x0050, text=» LCR A2,A3 CHECK IF ALLOWED TO COPY «, t00=0x0039, t01=0x00ec}
0x05a1c…05a3c Head {h00=0x001c, h01=0x0050, text=» CCK A2,/8000 ATTRIBUTE?«, t00=0x0039, t01=0x0118}
0x05a3c…05a54 Head {h00=0x0014, h01=0x0050, text=» RF(L) ICIN20 NO«, t00=0x0039, t01=0x0138}
0x05a54…05a72 Head {h00=0x001a, h01=0x0050, text=» ANK A2,/20 PROTECTED?«, t00=0x0039, t01=0x0150}
0x05a72…05a98 Head {h00=0x0022, h01=0x0050, text=» RF(NZ) ICIN90 YES DON'T COPY «, t00=0x0039, t01=0x016e}
0x05a98…05aac (58, 0, 400) Head {h00=0x0010, h01=0x0050, text=»ICIN20 EQU *«, t00=0x003a, t01=0x0004}
0x05aac…05ab8 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x003a, t01=0x0018}
0x05ab8…05ace Head {h00=0x0012, h01=0x0050, text=» IFT COPCMD=1 «, t00=0x003a, t01=0x0024}
0x05ace…05af2 Head {h00=0x0020, h01=0x0050, text=» LD A2,ECBCW,A8 GET TO WHOM «, t00=0x003a, t01=0x003a}
0x05af2…05b0c Head {h00=0x0016, h01=0x0050, text=» LD A8,ECBICW,A11 «, t00=0x003a, t01=0x005e}
0x05b0c…05b2e Head {h00=0x001e, h01=0x0050, text=» CF A14,ICSET SET TIMEOUT «, t00=0x003a, t01=0x0078}
0x05b2e…05b40 Head {h00=0x000e, h01=0x0050, text=» LDR A1,A2«, t00=0x003a, t01=0x009a}
0x05b40…05b62 Head {h00=0x001e, h01=0x0050, text=» LDKL A2,LBVDU+/20 LENGTH «, t00=0x003a, t01=0x00ac}
0x05b62…05b84 Head {h00=0x001e, h01=0x0050, text=» CF A14,ICWRT SEND IT AWAY«, t00=0x003a, t01=0x00ce}
0x05b84…05bb0 Head {h00=0x0028, h01=0x0050, text=» LDKL A1,HCPMOD HARDCOPY OUTSTANDING«, t00=0x003a, t01=0x00f0}
0x05bb0…05bca Head {h00=0x0016, h01=0x0050, text=» ORS A1,BSCMOD,A11«, t00=0x003a, t01=0x011c}
0x05bca…05bdc Head {h00=0x000e, h01=0x0050, text=» RF ICIN90«, t00=0x003a, t01=0x0136}
0x05bdc…05bf0 Head {h00=0x0010, h01=0x0050, text=»ICIN80 EQU *«, t00=0x003a, t01=0x0148}
0x05bf0…05bfc Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x003a, t01=0x015c}
0x05bfc…05c2e Head {h00=0x002e, h01=0x0050, text=» LDKL A1,HCPMOD RESET HARDCOPY OUTSTANDING«, t00=0x003a, t01=0x0168}
0x05c2e…05c40 Head {h00=0x000e, h01=0x0050, text=» IFT SNA=1«, t00=0x003b, t01=0x000a}
0x05c40…05c5a Head {h00=0x0016, h01=0x0050, text=» XRS A1,SNAMOD,A11«, t00=0x003b, t01=0x001c}
0x05c5a…05c66 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x003b, t01=0x0036}
0x05c66…05c78 Head {h00=0x000e, h01=0x0050, text=» IFF SNA=1«, t00=0x003b, t01=0x0042}
0x05c78…05c92 Head {h00=0x0016, h01=0x0050, text=» XRS A1,BSCMOD,A11«, t00=0x003b, t01=0x0054}
0x05c92…05c9e Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x003b, t01=0x006e}
0x05c9e…05cbc Head {h00=0x001a, h01=0x0050, text=» ANK A2,1 PRINTER OK? «, t00=0x003b, t01=0x007a}
0x05cbc…05cd6 Head {h00=0x0016, h01=0x0050, text=» RF(Z) ICIN90 YES «, t00=0x003b, t01=0x0098}
0x05cd6…05cea Head {h00=0x0010, h01=0x0050, text=»ICIN90 EQU *«, t00=0x003b, t01=0x00b2}
0x05cea…05cfa Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x003b, t01=0x00c6}
0x05cfa…05d08 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x003b, t01=0x00d6}
0x05d08…05d4c Head {h00=0x0040, h01=0x0050, text=»*********************************************************** «, t00=0x003b, t01=0x00e4}
0x05d4c…05d8e Head {h00=0x003e, h01=0x0050, text=»* *«, t00=0x003b, t01=0x0128}
0x05d8e…05dd2 Head {h00=0x0040, h01=0x0050, text=»* ICSET SET INTERTASK TIMEOUT * «, t00=0x003b, t01=0x016a}
0x05dd2…05e14 Head {h00=0x003e, h01=0x0050, text=»* *«, t00=0x003c, t01=0x001e}
0x05e14…05e58 Head {h00=0x0040, h01=0x0050, text=»*********************************************************** «, t00=0x003c, t01=0x0060}
0x05e58…05e78 Head {h00=0x001c, h01=0x0050, text=»* REGISTERS «, t00=0x003c, t01=0x00a4}
0x05e78…05e82 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003c, t01=0x00c4}
0x05e82…05e98 Head {h00=0x0012, h01=0x0050, text=»* A2= RESERVED«, t00=0x003c, t01=0x00ce}
0x05e98…05eb4 Head {h00=0x0018, h01=0x0050, text=»* A8= INTERTASK ECB «, t00=0x003c, t01=0x00e4}
0x05eb4…05ecc Head {h00=0x0014, h01=0x0050, text=»* A11= RESERVED «, t00=0x003c, t01=0x0100}
0x05ecc…05ee4 Head {h00=0x0014, h01=0x0050, text=»* A13= RESERVED «, t00=0x003c, t01=0x0118}
0x05ee4…05eee Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003c, t01=0x0130}
0x05eee…05f30 Head {h00=0x003e, h01=0x0050, text=»**********************************************************«, t00=0x003c, t01=0x013a}
0x05f30…05f44 Head {h00=0x0010, h01=0x0050, text=»ICSET EQU * «, t00=0x003c, t01=0x017c}
0x05f44…05f62 Head {h00=0x001a, h01=0x0050, text=» LDKL A1,-1 NO TIMEOUT«, t00=0x003c, t01=0x0190}
0x05f62…05f7a Head {h00=0x0014, h01=0x0050, text=» ST A1,ECBCW,A8 «, t00=0x003d, t01=0x001e}
0x05f7a…05f9a Head {h00=0x001c, h01=0x0050, text=» LDK A7,/B9 SET TIMEOUT «, t00=0x003d, t01=0x0036}
0x05f9a…05fa6 Head {h00=0x0008, h01=0x0050, text=» LKM«, t00=0x003d, t01=0x0056}
0x05fa6…05fb6 Head {h00=0x000c, h01=0x0050, text=» DATA 1 «, t00=0x003d, t01=0x0062}
0x05fb6…05fc6 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x003d, t01=0x0072}
0x05fc6…05fd4 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x003d, t01=0x0082}
0x05fd4…0601a Head {h00=0x0042, h01=0x0050, text=»************************************************************* «, t00=0x003d, t01=0x0090}
0x0601a…06060 Head {h00=0x0042, h01=0x0050, text=»* * «, t00=0x003d, t01=0x00d6}
0x06060…060a6 Head {h00=0x0042, h01=0x0050, text=»* ICREAD INTERTASK READ * «, t00=0x003d, t01=0x011c}
0x060a6…060ec Head {h00=0x0042, h01=0x0050, text=»* * «, t00=0x003d, t01=0x0162}
0x060ec…06132 Head {h00=0x0042, h01=0x0050, text=»**************************************************************«, t00=0x003e, t01=0x0018}
0x06132…06154 Head {h00=0x001e, h01=0x0050, text=»* REGISTERS«, t00=0x003e, t01=0x005e}
0x06154…0615e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003e, t01=0x0080}
0x0615e…06174 Head {h00=0x0012, h01=0x0050, text=»* A1= TASK ID «, t00=0x003e, t01=0x008a}
0x06174…06188 Head {h00=0x0010, h01=0x0050, text=»* A2= LENGTH«, t00=0x003e, t01=0x00a0}
0x06188…061a4 Head {h00=0x0018, h01=0x0050, text=»* A3= BUFFER ADDRESS«, t00=0x003e, t01=0x00b4}
0x061a4…061c4 Head {h00=0x001c, h01=0x0050, text=»* A8= INTETASK READ ECB «, t00=0x003e, t01=0x00d0}
0x061c4…061dc Head {h00=0x0014, h01=0x0050, text=»* A11= RESERVED «, t00=0x003e, t01=0x00f0}
0x061dc…061f4 Head {h00=0x0014, h01=0x0050, text=»* A13= RESERVED «, t00=0x003e, t01=0x0108}
0x061f4…061fe Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003e, t01=0x0120}
0x061fe…06244 Head {h00=0x0042, h01=0x0050, text=»************************************************************* «, t00=0x003e, t01=0x012a}
0x06244…06258 Head {h00=0x0010, h01=0x0050, text=»ICREAD EQU *«, t00=0x003e, t01=0x0170}
0x06258…06278 Head {h00=0x001c, h01=0x0050, text=» ST A1,ECBCW,A8 TASK ID «, t00=0x003e, t01=0x0184}
0x06278…06296 Head {h00=0x001a, h01=0x0050, text=» ST A2,ECBRL,A8 LENGTH«, t00=0x003f, t01=0x0014}
0x06296…062bc Head {h00=0x0022, h01=0x0050, text=» ST A3,ECBBA,A8 BUFFER ADDRESS«, t00=0x003f, t01=0x0032}
0x062bc…062d4 Head {h00=0x0014, h01=0x0050, text=» LDK A7,/02 READ«, t00=0x003f, t01=0x0058}
0x062d4…062e0 Head {h00=0x0008, h01=0x0050, text=» LKM«, t00=0x003f, t01=0x0070}
0x062e0…062f0 Head {h00=0x000c, h01=0x0050, text=» DATA 1 «, t00=0x003f, t01=0x007c}
0x062f0…06300 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x003f, t01=0x008c}
0x06300…0630e Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x003f, t01=0x009c}
0x0630e…06356 Head {h00=0x0044, h01=0x0050, text=»*************************************************************** «, t00=0x003f, t01=0x00aa}
0x06356…0639e Head {h00=0x0044, h01=0x0050, text=»* * «, t00=0x003f, t01=0x00f2}
0x0639e…063e6 Head {h00=0x0044, h01=0x0050, text=»* ICWRT INTERTASK WRITE * «, t00=0x003f, t01=0x013a}
0x063e6…0642e Head {h00=0x0044, h01=0x0050, text=»* * «, t00=0x003f, t01=0x0182}
0x0642e…06476 Head {h00=0x0044, h01=0x0050, text=»*************************************************************** «, t00=0x0040, t01=0x003a}
0x06476…06498 Head {h00=0x001e, h01=0x0050, text=»* REGISTERS«, t00=0x0040, t01=0x0082}
0x06498…064a2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0040, t01=0x00a4}
0x064a2…064b8 Head {h00=0x0012, h01=0x0050, text=»* A1= TASK ID «, t00=0x0040, t01=0x00ae}
0x064b8…064cc Head {h00=0x0010, h01=0x0050, text=»* A2= LENGTH«, t00=0x0040, t01=0x00c4}
0x064cc…064e8 Head {h00=0x0018, h01=0x0050, text=»* A3= BUFFER ADDRESS«, t00=0x0040, t01=0x00d8}
0x064e8…0650a Head {h00=0x001e, h01=0x0050, text=»* A8= INTERTASK WRITE ECB «, t00=0x0040, t01=0x00f4}
0x0650a…06522 Head {h00=0x0014, h01=0x0050, text=»* A11= RESERVED «, t00=0x0040, t01=0x0116}
0x06522…0653a Head {h00=0x0014, h01=0x0050, text=»* A13= RESERVED «, t00=0x0040, t01=0x012e}
0x0653a…06544 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0040, t01=0x0146}
0x06544…0658c Head {h00=0x0044, h01=0x0050, text=»****************************************************************«, t00=0x0040, t01=0x0150}
0x0658c…065a0 Head {h00=0x0010, h01=0x0050, text=»ICWRT EQU * «, t00=0x0041, t01=0x0008}
0x065a0…065c0 Head {h00=0x001c, h01=0x0050, text=» ST A1,ECBCW,A8 TASK ID «, t00=0x0041, t01=0x001c}
0x065c0…065de Head {h00=0x001a, h01=0x0050, text=» ST A2,ECBRL,A8 LENGTH«, t00=0x0041, t01=0x003c}
0x065de…06604 Head {h00=0x0022, h01=0x0050, text=» ST A3,ECBBA,A8 BUFFER ADDRESS«, t00=0x0041, t01=0x005a}
0x06604…0661e Head {h00=0x0016, h01=0x0050, text=» LDK A7,/86 WRITE «, t00=0x0041, t01=0x0080}
0x0661e…0662a Head {h00=0x0008, h01=0x0050, text=» LKM«, t00=0x0041, t01=0x009a}
0x0662a…0663a Head {h00=0x000c, h01=0x0050, text=» DATA 1 «, t00=0x0041, t01=0x00a6}
0x0663a…0664a Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0041, t01=0x00b6}
0x0664a…06658 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0041, t01=0x00c6}
0x06658…066a4 Head {h00=0x0048, h01=0x0050, text=»******************************************************************* «, t00=0x0041, t01=0x00d4}
0x066a4…066f0 Head {h00=0x0048, h01=0x0050, text=»* * «, t00=0x0041, t01=0x0120}
0x066f0…0673c Head {h00=0x0048, h01=0x0050, text=»* ERROR ILLEGAL KEY-HANDLING * «, t00=0x0041, t01=0x016c}
0x0673c…06788 Head {h00=0x0048, h01=0x0050, text=»* * «, t00=0x0042, t01=0x0028}
0x06788…067d4 Head {h00=0x0048, h01=0x0050, text=»******************************************************************* «, t00=0x0042, t01=0x0074}
0x067d4…067f0 Head {h00=0x0018, h01=0x0050, text=»* REGISTERS«, t00=0x0042, t01=0x00c0}
0x067f0…067fa Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0042, t01=0x00dc}
0x067fa…0681a Head {h00=0x001c, h01=0x0050, text=»* A11= CREDIT WORK AREA «, t00=0x0042, t01=0x00e6}
0x0681a…06832 Head {h00=0x0014, h01=0x0050, text=»* A13= RESERVED «, t00=0x0042, t01=0x0106}
0x06832…0683c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0042, t01=0x011e}
0x0683c…0687c Head {h00=0x003c, h01=0x0050, text=»******************************************************* «, t00=0x0042, t01=0x0128}
0x0687c…06890 Head {h00=0x0010, h01=0x0050, text=»ERROR EQU * «, t00=0x0042, t01=0x0168}
0x06890…068bc Head {h00=0x0028, h01=0x0050, text=» CF A14,LMP4ON TURN ON 'ERROR' LAMP «, t00=0x0042, t01=0x017c}
0x068bc…068dc Head {h00=0x001c, h01=0x0050, text=» LDK A1,4 RESET ALLOWED «, t00=0x0043, t01=0x0018}
0x068dc…068f6 Head {h00=0x0016, h01=0x0050, text=» ORS A1,KBINH,A11 «, t00=0x0043, t01=0x0038}
0x068f6…06920 Head {h00=0x0026, h01=0x0050, text=» CF A14,SOUND TURN ON SOUND ALARM «, t00=0x0043, t01=0x0052}
0x06920…06930 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0043, t01=0x007c}
0x06930…06938 Head {h00=0x0004, h01=0x0050, t00=0x0043, t01=0x008c}
0x06938…06946 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0043, t01=0x0094}
0x06946…0698c Head {h00=0x0042, h01=0x0050, text=»************************************************************* «, t00=0x0043, t01=0x00a2}
0x0698c…069d2 Head {h00=0x0042, h01=0x0050, text=»* * «, t00=0x0043, t01=0x00e8}
0x069d2…06a18 Head {h00=0x0042, h01=0x0050, text=»* LAMPROUTINES * «, t00=0x0043, t01=0x012e}
0x06a18…06a5e Head {h00=0x0042, h01=0x0050, text=»* * «, t00=0x0043, t01=0x0174}
0x06a5e…06aa4 Head {h00=0x0042, h01=0x0050, text=»************************************************************* «, t00=0x0044, t01=0x002a}
0x06aa4…06ac0 Head {h00=0x0018, h01=0x0050, text=»LMP1ON LDK A1,LAMP1 «, t00=0x0044, t01=0x0070}
0x06ac0…06ad2 Head {h00=0x000e, h01=0x0050, text=» RF LMPON «, t00=0x0044, t01=0x008c}
0x06ad2…06aee Head {h00=0x0018, h01=0x0050, text=»LMP1OF LDK A1,LAMP1 «, t00=0x0044, t01=0x009e}
0x06aee…06b00 Head {h00=0x000e, h01=0x0050, text=» RF LMPOF «, t00=0x0044, t01=0x00ba}
0x06b00…06b1c Head {h00=0x0018, h01=0x0050, text=»LMP2ON LDK A1,LAMP2 «, t00=0x0044, t01=0x00cc}
0x06b1c…06b2e Head {h00=0x000e, h01=0x0050, text=» RF LMPON «, t00=0x0044, t01=0x00e8}
0x06b2e…06b4a Head {h00=0x0018, h01=0x0050, text=»LMP2OF LDK A1,LAMP2 «, t00=0x0044, t01=0x00fa}
0x06b4a…06b5c Head {h00=0x000e, h01=0x0050, text=» RF LMPOF «, t00=0x0044, t01=0x0116}
0x06b5c…06b78 Head {h00=0x0018, h01=0x0050, text=»LMP3ON LDK A1,LAMP3 «, t00=0x0044, t01=0x0128}
0x06b78…06b8a Head {h00=0x000e, h01=0x0050, text=» RF LMPON «, t00=0x0044, t01=0x0144}
0x06b8a…06ba6 Head {h00=0x0018, h01=0x0050, text=»LMP3OF LDK A1,LAMP3 «, t00=0x0044, t01=0x0156}
0x06ba6…06bb8 Head {h00=0x000e, h01=0x0050, text=» RF LMPOF «, t00=0x0044, t01=0x0172}
0x06bb8…06bd4 Head {h00=0x0018, h01=0x0050, text=»LMP4ON LDK A1,LAMP4 «, t00=0x0044, t01=0x0184}
0x06bd4…06be6 Head {h00=0x000e, h01=0x0050, text=» RF LMPON «, t00=0x0045, t01=0x0010}
0x06be6…06c02 Head {h00=0x0018, h01=0x0050, text=»LMP4OF LDK A1,LAMP4 «, t00=0x0045, t01=0x0022}
0x06c02…06c14 Head {h00=0x000e, h01=0x0050, text=» RF LMPOF «, t00=0x0045, t01=0x003e}
0x06c14…06c30 Head {h00=0x0018, h01=0x0050, text=»LMP5ON LDK A1,LAMP5 «, t00=0x0045, t01=0x0050}
0x06c30…06c42 Head {h00=0x000e, h01=0x0050, text=» RF LMPON «, t00=0x0045, t01=0x006c}
0x06c42…06c5e Head {h00=0x0018, h01=0x0050, text=»LMP5OF LDK A1,LAMP5 «, t00=0x0045, t01=0x007e}
0x06c5e…06c70 Head {h00=0x000e, h01=0x0050, text=» RF LMPOF «, t00=0x0045, t01=0x009a}
0x06c70…06c8c Head {h00=0x0018, h01=0x0050, text=»LMP5FL LDK A1,LAMP5 «, t00=0x0045, t01=0x00ac}
0x06c8c…06c9e Head {h00=0x000e, h01=0x0050, text=» RF LMPFL «, t00=0x0045, t01=0x00c8}
0x06c9e…06cba Head {h00=0x0018, h01=0x0050, text=»LMP6ON LDK A1,LAMP6 «, t00=0x0045, t01=0x00da}
0x06cba…06ccc Head {h00=0x000e, h01=0x0050, text=» RF LMPON «, t00=0x0045, t01=0x00f6}
0x06ccc…06ce8 Head {h00=0x0018, h01=0x0050, text=»LMP6OF LDK A1,LAMP6 «, t00=0x0045, t01=0x0108}
0x06ce8…06cfa Head {h00=0x000e, h01=0x0050, text=» RF LMPOF «, t00=0x0045, t01=0x0124}
0x06cfa…06d04 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0045, t01=0x0136}
0x06d04…06d1c Head {h00=0x0014, h01=0x0050, text=»LMPON LDK A7,LON«, t00=0x0045, t01=0x0140}
0x06d1c…06d2e Head {h00=0x000e, h01=0x0050, text=» RF SDISP «, t00=0x0045, t01=0x0158}
0x06d2e…06d46 Head {h00=0x0014, h01=0x0050, text=»LMPOF LDK A7,LOF«, t00=0x0045, t01=0x016a}
0x06d46…06d58 Head {h00=0x000e, h01=0x0050, text=» RF SDISP «, t00=0x0045, t01=0x0182}
0x06d58…06d70 (70, 0, 400) Head {h00=0x0014, h01=0x0050, text=»LMPFL LDK A7,LFL«, t00=0x0046, t01=0x0004}
0x06d70…06d82 Head {h00=0x000e, h01=0x0050, text=» RF SDISP «, t00=0x0046, t01=0x001c}
0x06d82…06d90 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0046, t01=0x002e}
0x06d90…06dd6 Head {h00=0x0042, h01=0x0050, text=»************************************************************* «, t00=0x0046, t01=0x003c}
0x06dd6…06e1c Head {h00=0x0042, h01=0x0050, text=»* * «, t00=0x0046, t01=0x0082}
0x06e1c…06e62 Head {h00=0x0042, h01=0x0050, text=»* SDISP SIGNAL ROUTINE * «, t00=0x0046, t01=0x00c8}
0x06e62…06ea8 Head {h00=0x0042, h01=0x0050, text=»* * «, t00=0x0046, t01=0x010e}
0x06ea8…06eee Head {h00=0x0042, h01=0x0050, text=»************************************************************* «, t00=0x0046, t01=0x0154}
0x06eee…06f0a Head {h00=0x0018, h01=0x0050, text=»* REGISTERS «, t00=0x0047, t01=0x000a}
0x06f0a…06f14 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0047, t01=0x0026}
0x06f14…06f2c Head {h00=0x0014, h01=0x0050, text=»* A8= SIGNAL ECB«, t00=0x0047, t01=0x0030}
0x06f2c…06f4c Head {h00=0x001c, h01=0x0050, text=»* A11= CREDIT WORK AREA «, t00=0x0047, t01=0x0048}
0x06f4c…06f64 Head {h00=0x0014, h01=0x0050, text=»* A13= RESERVED «, t00=0x0047, t01=0x0068}
0x06f64…06f6e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0047, t01=0x0080}
0x06f6e…06fae Head {h00=0x003c, h01=0x0050, text=»******************************************************* «, t00=0x0047, t01=0x008a}
0x06fae…06fc2 Head {h00=0x0010, h01=0x0050, text=»SDISP EQU * «, t00=0x0047, t01=0x00ca}
0x06fc2…06fda Head {h00=0x0014, h01=0x0050, text=» LD A8,ECBSD,A11«, t00=0x0047, t01=0x00de}
0x06fda…06ff2 Head {h00=0x0014, h01=0x0050, text=» ST A1,ECBCW,A8 «, t00=0x0047, t01=0x00f6}
0x06ff2…07020 Head {h00=0x002a, h01=0x0050, text=»** SECOND KEYBOARD MODS, DK, P & T **«, t00=0x0047, t01=0x010e}
0x07020…07048 Head {h00=0x0024, h01=0x0050, text=» LD A8,ECBSD,A11 GET DISP. ECB «, t00=0x0047, t01=0x013c}
0x07048…0706e Head {h00=0x0022, h01=0x0050, text=» LDK A1,/41 CHANGE FILE CODE «, t00=0x0047, t01=0x0164}
0x0706e…07082 Head {h00=0x0010, h01=0x0050, text=» SC A1,1,A8 «, t00=0x0047, t01=0x018a}
0x07082…07090 Head {h00=0x000a, h01=0x0050, text=» LKM «, t00=0x0048, t01=0x000e}
0x07090…070b8 Head {h00=0x0024, h01=0x0050, text=» DATA 1 LAMPS ON SECOND KEYB'RD «, t00=0x0048, t01=0x001c}
0x070b8…070ce Head {h00=0x0012, h01=0x0050, text=»SDISP1 EQU * «, t00=0x0048, t01=0x0044}
0x070ce…070e8 Head {h00=0x0016, h01=0x0050, text=» LD A8,ECBSD,A11 «, t00=0x0048, t01=0x005a}
0x070e8…07116 Head {h00=0x002a, h01=0x0050, text=» LDK A1,/40 RESTORE FILE CODE 1ST KB «, t00=0x0048, t01=0x0074}
0x07116…0712a Head {h00=0x0010, h01=0x0050, text=» SC A1,1,A8 «, t00=0x0048, t01=0x00a2}
0x0712a…07148 Head {h00=0x001a, h01=0x0050, text=»** END OF DK MODS ** «, t00=0x0048, t01=0x00b6}
0x07148…07154 Head {h00=0x0008, h01=0x0050, text=» LKM«, t00=0x0048, t01=0x00d4}
0x07154…07164 Head {h00=0x000c, h01=0x0050, text=» DATA 1 «, t00=0x0048, t01=0x00e0}
0x07164…07174 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0048, t01=0x00f0}
0x07174…07182 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0048, t01=0x0100}
0x07182…071ca Head {h00=0x0044, h01=0x0050, text=»****************************************************************«, t00=0x0048, t01=0x010e}
0x071ca…07212 Head {h00=0x0044, h01=0x0050, text=»* *«, t00=0x0048, t01=0x0156}
0x07212…0725a Head {h00=0x0044, h01=0x0050, text=»* KEYTAB KEY-TABLE, FIXED ENTRY FOR EACH FUNC. *«, t00=0x0049, t01=0x000e}
0x0725a…072a2 Head {h00=0x0044, h01=0x0050, text=»* *«, t00=0x0049, t01=0x0056}
0x072a2…072ea Head {h00=0x0044, h01=0x0050, text=»****************************************************************«, t00=0x0049, t01=0x009e}
0x072ea…072fe Head {h00=0x0010, h01=0x0050, text=»KEYTAB EQU *«, t00=0x0049, t01=0x00e6}
0x072fe…0730a Head {h00=0x0008, h01=0x0050, text=»*20 «, t00=0x0049, t01=0x00fa}
0x0730a…07322 Head {h00=0x0014, h01=0x0050, text=» DATA CHAR SPACE«, t00=0x0049, t01=0x0106}
0x07322…07336 Head {h00=0x0010, h01=0x0050, text=» DATA CHAR !«, t00=0x0049, t01=0x011e}
0x07336…0734a Head {h00=0x0010, h01=0x0050, text=» DATA CHAR "«, t00=0x0049, t01=0x0132}
0x0734a…0735c Head {h00=0x000e, h01=0x0050, text=» DATA CHAR«, t00=0x0049, t01=0x0146}
0x0735c…07370 Head {h00=0x0010, h01=0x0050, text=» DATA CHAR $«, t00=0x0049, t01=0x0158}
0x07370…07384 Head {h00=0x0010, h01=0x0050, text=» DATA CHAR «, t00=0x0049, t01=0x016c}
0x07384…07398 Head {h00=0x0010, h01=0x0050, text=» DATA CHAR &«, t00=0x0049, t01=0x0180}
0x07398…073ac (74, 0, 400) Head {h00=0x0010, h01=0x0050, text=» DATA CHAR '«, t00=0x004a, t01=0x0004}
0x073ac…073c0 Head {h00=0x0010, h01=0x0050, text=» DATA CHAR («, t00=0x004a, t01=0x0018}
0x073c0…073d4 Head {h00=0x0010, h01=0x0050, text=» DATA CHAR )«, t00=0x004a, t01=0x002c}
0x073d4…073e8 Head {h00=0x0010, h01=0x0050, text=» DATA CHAR *«, t00=0x004a, t01=0x0040}
0x073e8…073fc Head {h00=0x0010, h01=0x0050, text=» DATA NUM + «, t00=0x004a, t01=0x0054}
0x073fc…07410 Head {h00=0x0010, h01=0x0050, text=» DATA NUM , «, t00=0x004a, t01=0x0068}
0x07410…07424 Head {h00=0x0010, h01=0x0050, text=» DATA NUM - «, t00=0x004a, t01=0x007c}
0x07424…07438 Head {h00=0x0010, h01=0x0050, text=» DATA NUM . «, t00=0x004a, t01=0x0090}
0x07438…0744c Head {h00=0x0010, h01=0x0050, text=» DATA CHAR /«, t00=0x004a, t01=0x00a4}
0x0744c…07458 Head {h00=0x0008, h01=0x0050, text=»*30 «, t00=0x004a, t01=0x00b8}
0x07458…0746c Head {h00=0x0010, h01=0x0050, text=» DATA NUM 0 «, t00=0x004a, t01=0x00c4}
0x0746c…07480 Head {h00=0x0010, h01=0x0050, text=» DATA NUM 1 «, t00=0x004a, t01=0x00d8}
0x07480…07494 Head {h00=0x0010, h01=0x0050, text=» DATA NUM 2 «, t00=0x004a, t01=0x00ec}
0x07494…074a8 Head {h00=0x0010, h01=0x0050, text=» DATA NUM 3 «, t00=0x004a, t01=0x0100}
0x074a8…074bc Head {h00=0x0010, h01=0x0050, text=» DATA NUM 4 «, t00=0x004a, t01=0x0114}
0x074bc…074d0 Head {h00=0x0010, h01=0x0050, text=» DATA NUM 5 «, t00=0x004a, t01=0x0128}
0x074d0…074e4 Head {h00=0x0010, h01=0x0050, text=» DATA NUM 6 «, t00=0x004a, t01=0x013c}
0x074e4…074f8 Head {h00=0x0010, h01=0x0050, text=» DATA NUM 7 «, t00=0x004a, t01=0x0150}
0x074f8…0750c Head {h00=0x0010, h01=0x0050, text=» DATA NUM 8 «, t00=0x004a, t01=0x0164}
0x0750c…07520 Head {h00=0x0010, h01=0x0050, text=» DATA NUM 9 «, t00=0x004a, t01=0x0178}
0x07520…07534 Head {h00=0x0010, h01=0x0050, text=» DATA CHAR :«, t00=0x004a, t01=0x018c}
0x07534…07548 Head {h00=0x0010, h01=0x0050, text=» DATA CHAR ;«, t00=0x004b, t01=0x0010}
0x07548…0755c Head {h00=0x0010, h01=0x0050, text=» DATA CHAR <«, t00=0x004b, t01=0x0024}
0x0755c…07570 Head {h00=0x0010, h01=0x0050, text=» DATA CHAR =«, t00=0x004b, t01=0x0038}
0x07570…07584 Head {h00=0x0010, h01=0x0050, text=» DATA CHAR >«, t00=0x004b, t01=0x004c}
0x07584…07598 Head {h00=0x0010, h01=0x0050, text=» DATA CHAR ?«, t00=0x004b, t01=0x0060}
0x07598…075a4 Head {h00=0x0008, h01=0x0050, text=»*40 «, t00=0x004b, t01=0x0074}
0x075a4…075b6 Head {h00=0x000e, h01=0x0050, text=» DATA CHAR«, t00=0x004b, t01=0x0080}
0x075b6…075ca Head {h00=0x0010, h01=0x0050, text=» DATA CHAR A«, t00=0x004b, t01=0x0092}
0x075ca…075de Head {h00=0x0010, h01=0x0050, text=» DATA CHAR B«, t00=0x004b, t01=0x00a6}
0x075de…075f2 Head {h00=0x0010, h01=0x0050, text=» DATA CHAR C«, t00=0x004b, t01=0x00ba}
0x075f2…07606 Head {h00=0x0010, h01=0x0050, text=» DATA CHAR D«, t00=0x004b, t01=0x00ce}
0x07606…0761a Head {h00=0x0010, h01=0x0050, text=» DATA CHAR E«, t00=0x004b, t01=0x00e2}
0x0761a…0762e Head {h00=0x0010, h01=0x0050, text=» DATA CHAR F«, t00=0x004b, t01=0x00f6}
0x0762e…07642 Head {h00=0x0010, h01=0x0050, text=» DATA CHAR G«, t00=0x004b, t01=0x010a}
0x07642…07656 Head {h00=0x0010, h01=0x0050, text=» DATA CHAR H«, t00=0x004b, t01=0x011e}
0x07656…0766a Head {h00=0x0010, h01=0x0050, text=» DATA CHAR I«, t00=0x004b, t01=0x0132}
0x0766a…0767e Head {h00=0x0010, h01=0x0050, text=» DATA CHAR J«, t00=0x004b, t01=0x0146}
0x0767e…07692 Head {h00=0x0010, h01=0x0050, text=» DATA CHAR K«, t00=0x004b, t01=0x015a}
0x07692…076a6 Head {h00=0x0010, h01=0x0050, text=» DATA CHAR L«, t00=0x004b, t01=0x016e}
0x076a6…076ba Head {h00=0x0010, h01=0x0050, text=» DATA CHAR M«, t00=0x004b, t01=0x0182}
0x076ba…076ce Head {h00=0x0010, h01=0x0050, text=» DATA CHAR N«, t00=0x004c, t01=0x0008}
0x076ce…076e2 Head {h00=0x0010, h01=0x0050, text=» DATA CHAR O«, t00=0x004c, t01=0x001c}
0x076e2…076ee Head {h00=0x0008, h01=0x0050, text=»*50 «, t00=0x004c, t01=0x0030}
0x076ee…07702 Head {h00=0x0010, h01=0x0050, text=» DATA CHAR P«, t00=0x004c, t01=0x003c}
0x07702…07716 Head {h00=0x0010, h01=0x0050, text=» DATA CHAR Q«, t00=0x004c, t01=0x0050}
0x07716…0772a Head {h00=0x0010, h01=0x0050, text=» DATA CHAR R«, t00=0x004c, t01=0x0064}
0x0772a…0773e Head {h00=0x0010, h01=0x0050, text=» DATA CHAR S«, t00=0x004c, t01=0x0078}
0x0773e…07752 Head {h00=0x0010, h01=0x0050, text=» DATA CHAR T«, t00=0x004c, t01=0x008c}
0x07752…07766 Head {h00=0x0010, h01=0x0050, text=» DATA CHAR U«, t00=0x004c, t01=0x00a0}
0x07766…0777a Head {h00=0x0010, h01=0x0050, text=» DATA CHAR V«, t00=0x004c, t01=0x00b4}
0x0777a…0778e Head {h00=0x0010, h01=0x0050, text=» DATA CHAR W«, t00=0x004c, t01=0x00c8}
0x0778e…077a2 Head {h00=0x0010, h01=0x0050, text=» DATA CHAR X«, t00=0x004c, t01=0x00dc}
0x077a2…077b6 Head {h00=0x0010, h01=0x0050, text=» DATA CHAR Y«, t00=0x004c, t01=0x00f0}
0x077b6…077ca Head {h00=0x0010, h01=0x0050, text=» DATA CHAR Z«, t00=0x004c, t01=0x0104}
0x077ca…077dc Head {h00=0x000e, h01=0x0050, text=» DATA CHAR«, t00=0x004c, t01=0x0118}
0x077dc…077ee Head {h00=0x000e, h01=0x0050, text=» DATA CHAR«, t00=0x004c, t01=0x012a}
0x077ee…07800 Head {h00=0x000e, h01=0x0050, text=» DATA CHAR«, t00=0x004c, t01=0x013c}
0x07800…07814 Head {h00=0x0010, h01=0x0050, text=» DATA CHAR ^«, t00=0x004c, t01=0x014e}
0x07814…07830 Head {h00=0x0018, h01=0x0050, text=» DATA CHAR UNDERLINE«, t00=0x004c, t01=0x0162}
0x07830…0783c Head {h00=0x0008, h01=0x0050, text=»*60 «, t00=0x004c, t01=0x017e}
0x0783c…0784e Head {h00=0x000e, h01=0x0050, text=» DATA CHAR«, t00=0x004c, t01=0x018a}
0x0784e…07872 Head {h00=0x0020, h01=0x0050, text=» DATA CHAR a LOWER CASE A-Z «, t00=0x004d, t01=0x000c}
0x07872…07886 Head {h00=0x0010, h01=0x0050, text=» DATA CHAR b«, t00=0x004d, t01=0x0030}
0x07886…0789a Head {h00=0x0010, h01=0x0050, text=» DATA CHAR c«, t00=0x004d, t01=0x0044}
0x0789a…078ae Head {h00=0x0010, h01=0x0050, text=» DATA CHAR d«, t00=0x004d, t01=0x0058}
0x078ae…078c2 Head {h00=0x0010, h01=0x0050, text=» DATA CHAR e«, t00=0x004d, t01=0x006c}
0x078c2…078d6 Head {h00=0x0010, h01=0x0050, text=» DATA CHAR f«, t00=0x004d, t01=0x0080}
0x078d6…078ea Head {h00=0x0010, h01=0x0050, text=» DATA CHAR g«, t00=0x004d, t01=0x0094}
0x078ea…078fe Head {h00=0x0010, h01=0x0050, text=» DATA CHAR h«, t00=0x004d, t01=0x00a8}
0x078fe…07912 Head {h00=0x0010, h01=0x0050, text=» DATA CHAR i«, t00=0x004d, t01=0x00bc}
0x07912…07926 Head {h00=0x0010, h01=0x0050, text=» DATA CHAR j«, t00=0x004d, t01=0x00d0}
0x07926…0793a Head {h00=0x0010, h01=0x0050, text=» DATA CHAR k«, t00=0x004d, t01=0x00e4}
0x0793a…0794e Head {h00=0x0010, h01=0x0050, text=» DATA CHAR l«, t00=0x004d, t01=0x00f8}
0x0794e…07962 Head {h00=0x0010, h01=0x0050, text=» DATA CHAR m«, t00=0x004d, t01=0x010c}
0x07962…07976 Head {h00=0x0010, h01=0x0050, text=» DATA CHAR n«, t00=0x004d, t01=0x0120}
0x07976…0798a Head {h00=0x0010, h01=0x0050, text=» DATA CHAR o«, t00=0x004d, t01=0x0134}
0x0798a…07996 Head {h00=0x0008, h01=0x0050, text=»*70 «, t00=0x004d, t01=0x0148}
0x07996…079aa Head {h00=0x0010, h01=0x0050, text=» DATA CHAR p«, t00=0x004d, t01=0x0154}
0x079aa…079be Head {h00=0x0010, h01=0x0050, text=» DATA CHAR q«, t00=0x004d, t01=0x0168}
0x079be…079d2 Head {h00=0x0010, h01=0x0050, text=» DATA CHAR r«, t00=0x004d, t01=0x017c}
0x079d2…079e6 Head {h00=0x0010, h01=0x0050, text=» DATA CHAR s«, t00=0x004d, t01=0x0190}
0x079e6…079fa Head {h00=0x0010, h01=0x0050, text=» DATA CHAR t«, t00=0x004e, t01=0x0014}
0x079fa…07a0e Head {h00=0x0010, h01=0x0050, text=» DATA CHAR u«, t00=0x004e, t01=0x0028}
0x07a0e…07a22 Head {h00=0x0010, h01=0x0050, text=» DATA CHAR v«, t00=0x004e, t01=0x003c}
0x07a22…07a36 Head {h00=0x0010, h01=0x0050, text=» DATA CHAR w«, t00=0x004e, t01=0x0050}
0x07a36…07a4a Head {h00=0x0010, h01=0x0050, text=» DATA CHAR x«, t00=0x004e, t01=0x0064}
0x07a4a…07a5e Head {h00=0x0010, h01=0x0050, text=» DATA CHAR y«, t00=0x004e, t01=0x0078}
0x07a5e…07a72 Head {h00=0x0010, h01=0x0050, text=» DATA CHAR z«, t00=0x004e, t01=0x008c}
0x07a72…07a84 Head {h00=0x000e, h01=0x0050, text=» DATA CHAR«, t00=0x004e, t01=0x00a0}
0x07a84…07a96 Head {h00=0x000e, h01=0x0050, text=» DATA CHAR«, t00=0x004e, t01=0x00b2}
0x07a96…07aa8 Head {h00=0x000e, h01=0x0050, text=» DATA CHAR«, t00=0x004e, t01=0x00c4}
0x07aa8…07aba Head {h00=0x000e, h01=0x0050, text=» DATA CHAR«, t00=0x004e, t01=0x00d6}
0x07aba…07ace Head {h00=0x0010, h01=0x0050, text=» DATA RETURN«, t00=0x004e, t01=0x00e8}
0x07ace…07ada Head {h00=0x0008, h01=0x0050, text=»*80 «, t00=0x004e, t01=0x00fc}
0x07ada…07aee Head {h00=0x0010, h01=0x0050, text=» DATA CURMOV«, t00=0x004e, t01=0x0108}
0x07aee…07b02 Head {h00=0x0010, h01=0x0050, text=» DATA CURMOV«, t00=0x004e, t01=0x011c}
0x07b02…07b16 Head {h00=0x0010, h01=0x0050, text=» DATA CURMOV«, t00=0x004e, t01=0x0130}
0x07b16…07b2a Head {h00=0x0010, h01=0x0050, text=» DATA CURMOV«, t00=0x004e, t01=0x0144}
0x07b2a…07b3e Head {h00=0x0010, h01=0x0050, text=» DATA BAKTAB«, t00=0x004e, t01=0x0158}
0x07b3e…07b50 Head {h00=0x000e, h01=0x0050, text=» DATA TAB «, t00=0x004e, t01=0x016c}
0x07b50…07b62 Head {h00=0x000e, h01=0x0050, text=» DATA CRNL«, t00=0x004e, t01=0x017e}
0x07b62…07b76 Head {h00=0x0010, h01=0x0050, text=» DATA RDHOME«, t00=0x004e, t01=0x0190}
0x07b76…07b8a Head {h00=0x0010, h01=0x0050, text=» DATA EREOF «, t00=0x004f, t01=0x0014}
0x07b8a…07b9e Head {h00=0x0010, h01=0x0050, text=» DATA ERINPT«, t00=0x004f, t01=0x0028}
0x07b9e…07bb2 Head {h00=0x0010, h01=0x0050, text=» IFT IN:DL=1«, t00=0x004f, t01=0x003c}
0x07bb2…07bc6 Head {h00=0x0010, h01=0x0050, text=» DATA INSERT«, t00=0x004f, t01=0x0050}
0x07bc6…07bda Head {h00=0x0010, h01=0x0050, text=» DATA DELETE«, t00=0x004f, t01=0x0064}
0x07bda…07be6 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x004f, t01=0x0078}
0x07be6…07bfa Head {h00=0x0010, h01=0x0050, text=» IFF IN:DL=1«, t00=0x004f, t01=0x0084}
0x07bfa…07c0e Head {h00=0x0010, h01=0x0050, text=» DATA RETURN«, t00=0x004f, t01=0x0098}
0x07c0e…07c22 Head {h00=0x0010, h01=0x0050, text=» DATA RETURN«, t00=0x004f, t01=0x00ac}
0x07c22…07c2e Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x004f, t01=0x00c0}
0x07c2e…07c42 Head {h00=0x0010, h01=0x0050, text=» DATA RESET «, t00=0x004f, t01=0x00cc}
0x07c42…07c54 Head {h00=0x000e, h01=0x0050, text=» DATA DUP «, t00=0x004f, t01=0x00e0}
0x07c54…07c68 Head {h00=0x0010, h01=0x0050, text=» DATA FLDMRK«, t00=0x004f, t01=0x00f2}
0x07c68…07c7c Head {h00=0x0010, h01=0x0050, text=» DATA ZERO:2«, t00=0x004f, t01=0x0106}
0x07c7c…07c88 Head {h00=0x0008, h01=0x0050, text=»*90 «, t00=0x004f, t01=0x011a}
0x07c88…07c9c Head {h00=0x0010, h01=0x0050, text=» DATA ZERO:3«, t00=0x004f, t01=0x0126}
0x07c9c…07cb0 Head {h00=0x0010, h01=0x0050, text=» DATA NUMCOM«, t00=0x004f, t01=0x013a}
0x07cb0…07cc2 Head {h00=0x000e, h01=0x0050, text=» DATA COPY«, t00=0x004f, t01=0x014e}
0x07cc2…07cd6 Head {h00=0x0010, h01=0x0050, text=» DATA IDENT «, t00=0x004f, t01=0x0160}
0x07cd6…07cec Head {h00=0x0012, h01=0x0050, text=» IFT KEYLST=1 «, t00=0x004f, t01=0x0174}
0x07cec…07cfe Head {h00=0x000e, h01=0x0050, text=» DATA KEYL«, t00=0x004f, t01=0x018a}
0x07cfe…07d10 Head {h00=0x000e, h01=0x0050, text=» DATA KEYL«, t00=0x0050, t01=0x000c}
0x07d10…07d22 Head {h00=0x000e, h01=0x0050, text=» DATA KEYL«, t00=0x0050, t01=0x001e}
0x07d22…07d34 Head {h00=0x000e, h01=0x0050, text=» DATA KEYL«, t00=0x0050, t01=0x0030}
0x07d34…07d46 Head {h00=0x000e, h01=0x0050, text=» DATA KEYL«, t00=0x0050, t01=0x0042}
0x07d46…07d58 Head {h00=0x000e, h01=0x0050, text=» DATA KEYL«, t00=0x0050, t01=0x0054}
0x07d58…07d6a Head {h00=0x000e, h01=0x0050, text=» DATA KEYL«, t00=0x0050, t01=0x0066}
0x07d6a…07d7c Head {h00=0x000e, h01=0x0050, text=» DATA KEYL«, t00=0x0050, t01=0x0078}
0x07d7c…07d88 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0050, t01=0x008a}
0x07d88…07d9e Head {h00=0x0012, h01=0x0050, text=» IFF KEYLST=1 «, t00=0x0050, t01=0x0096}
0x07d9e…07db2 Head {h00=0x0010, h01=0x0050, text=» DATA RETURN«, t00=0x0050, t01=0x00ac}
0x07db2…07dc6 Head {h00=0x0010, h01=0x0050, text=» DATA RETURN«, t00=0x0050, t01=0x00c0}
0x07dc6…07dda Head {h00=0x0010, h01=0x0050, text=» DATA RETURN«, t00=0x0050, t01=0x00d4}
0x07dda…07dee Head {h00=0x0010, h01=0x0050, text=» DATA RETURN«, t00=0x0050, t01=0x00e8}
0x07dee…07e02 Head {h00=0x0010, h01=0x0050, text=» DATA RETURN«, t00=0x0050, t01=0x00fc}
0x07e02…07e16 Head {h00=0x0010, h01=0x0050, text=» DATA RETURN«, t00=0x0050, t01=0x0110}
0x07e16…07e2a Head {h00=0x0010, h01=0x0050, text=» DATA RETURN«, t00=0x0050, t01=0x0124}
0x07e2a…07e3e Head {h00=0x0010, h01=0x0050, text=» DATA RETURN«, t00=0x0050, t01=0x0138}
0x07e3e…07e4a Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0050, t01=0x014c}
0x07e4a…07e86 Head {h00=0x0038, h01=0x0050, text=» DATA RETURN FREE LABEL FOR NEW KEY (NOT P. A. KEY) «, t00=0x0050, t01=0x0158}
0x07e86…07ec2 (81, 0, 400) Head {h00=0x0038, h01=0x0050, text=» DATA RETURN FREE LABEL FOR NEW KEY (NOT P. A. KEY) «, t00=0x0051, t01=0x0004}
0x07ec2…07efe Head {h00=0x0038, h01=0x0050, text=» DATA RETURN FREE LABEL FOR NEW KEY (NOT P. A. KEY) «, t00=0x0051, t01=0x0040}
0x07efe…07f16 Head {h00=0x0014, h01=0x0050, text=»*FIRST P. A. KEY«, t00=0x0051, t01=0x007c}
0x07f16…07f2a Head {h00=0x0010, h01=0x0050, text=» IFT OFLIN=1«, t00=0x0051, t01=0x0094}
0x07f2a…07f3e Head {h00=0x0010, h01=0x0050, text=» DATA OFLINE«, t00=0x0051, t01=0x00a8}
0x07f3e…07f4a Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0051, t01=0x00bc}
0x07f4a…07f5e Head {h00=0x0010, h01=0x0050, text=» IFF OFLIN=1«, t00=0x0051, t01=0x00c8}
0x07f5e…07f72 Head {h00=0x0010, h01=0x0050, text=» DATA RETURN«, t00=0x0051, t01=0x00dc}
0x07f72…07f7e Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0051, t01=0x00f0}
0x07f7e…07f8a Head {h00=0x0008, h01=0x0050, text=»*A0 «, t00=0x0051, t01=0x00fc}
0x07f8a…07f9e Head {h00=0x0010, h01=0x0050, text=» DATA ENTER «, t00=0x0051, t01=0x0108}
0x07f9e…07fb0 Head {h00=0x000e, h01=0x0050, text=» IFT SNA=1«, t00=0x0051, t01=0x011c}
0x07fb0…07fc4 Head {h00=0x0010, h01=0x0050, text=» DATA SYSREQ«, t00=0x0051, t01=0x012e}
0x07fc4…07fd8 Head {h00=0x0010, h01=0x0050, text=» DATA CLEAR «, t00=0x0051, t01=0x0142}
0x07fd8…07fea Head {h00=0x000e, h01=0x0050, text=» DATA ATTN«, t00=0x0051, t01=0x0156}
0x07fea…07ff6 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0051, t01=0x0168}
0x07ff6…08008 Head {h00=0x000e, h01=0x0050, text=» IFF SNA=1«, t00=0x0051, t01=0x0174}
0x08008…0801c Head {h00=0x0010, h01=0x0050, text=» DATA RETURN«, t00=0x0051, t01=0x0186}
0x0801c…08030 Head {h00=0x0010, h01=0x0050, text=» DATA CLEAR «, t00=0x0052, t01=0x000a}
0x08030…08044 Head {h00=0x0010, h01=0x0050, text=» DATA RETURN«, t00=0x0052, t01=0x001e}
0x08044…08050 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0052, t01=0x0032}
0x08050…08066 Head {h00=0x0012, h01=0x0050, text=» IFT NBRLIN=2 «, t00=0x0052, t01=0x003e}
0x08066…0807a Head {h00=0x0010, h01=0x0050, text=» DATA MFCHGE«, t00=0x0052, t01=0x0054}
0x0807a…08086 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0052, t01=0x0068}
0x08086…0809c Head {h00=0x0012, h01=0x0050, text=» IFF NBRLIN=2 «, t00=0x0052, t01=0x0074}
0x0809c…080b0 Head {h00=0x0010, h01=0x0050, text=» DATA RETURN«, t00=0x0052, t01=0x008a}
0x080b0…080bc Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0052, t01=0x009e}
0x080bc…080ce Head {h00=0x000e, h01=0x0050, text=» IFT PAX=1«, t00=0x0052, t01=0x00aa}
0x080ce…080e0 Head {h00=0x000e, h01=0x0050, text=» DATA PAEX«, t00=0x0052, t01=0x00bc}
0x080e0…080ec Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0052, t01=0x00ce}
0x080ec…080fe Head {h00=0x000e, h01=0x0050, text=» IFF PAX=1«, t00=0x0052, t01=0x00da}
0x080fe…08112 Head {h00=0x0010, h01=0x0050, text=» DATA RETURN«, t00=0x0052, t01=0x00ec}
0x08112…0811e Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0052, t01=0x0100}
0x0811e…08130 Head {h00=0x000e, h01=0x0050, text=» DATA PA1 «, t00=0x0052, t01=0x010c}
0x08130…08142 Head {h00=0x000e, h01=0x0050, text=» DATA PA2 «, t00=0x0052, t01=0x011e}
0x08142…08154 Head {h00=0x000e, h01=0x0050, text=» DATA PA3 «, t00=0x0052, t01=0x0130}
0x08154…0817c Head {h00=0x0024, h01=0x0050, text=» DATA PAALFA PA4-PA10 (ALFASKOP)«, t00=0x0052, t01=0x0142}
0x0817c…08190 Head {h00=0x0010, h01=0x0050, text=» DATA PAALFA«, t00=0x0052, t01=0x016a}
0x08190…081a4 Head {h00=0x0010, h01=0x0050, text=» DATA PAALFA«, t00=0x0052, t01=0x017e}
0x081a4…081b8 (83, 0, 400) Head {h00=0x0010, h01=0x0050, text=» DATA PAALFA«, t00=0x0053, t01=0x0004}
0x081b8…081cc Head {h00=0x0010, h01=0x0050, text=» DATA PAALFA«, t00=0x0053, t01=0x0018}
0x081cc…081e0 Head {h00=0x0010, h01=0x0050, text=» DATA PAALFA«, t00=0x0053, t01=0x002c}
0x081e0…081f4 Head {h00=0x0010, h01=0x0050, text=» DATA PAALFA«, t00=0x0053, t01=0x0040}
0x081f4…08200 Head {h00=0x0008, h01=0x0050, text=»*B0 «, t00=0x0053, t01=0x0054}
0x08200…08212 Head {h00=0x000e, h01=0x0050, text=» IFT PFX=1«, t00=0x0053, t01=0x0060}
0x08212…08224 Head {h00=0x000e, h01=0x0050, text=» DATA PFEX«, t00=0x0053, t01=0x0072}
0x08224…08230 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0053, t01=0x0084}
0x08230…08242 Head {h00=0x000e, h01=0x0050, text=» IFF PFX=1«, t00=0x0053, t01=0x0090}
0x08242…08256 Head {h00=0x0010, h01=0x0050, text=» DATA RETURN«, t00=0x0053, t01=0x00a2}
0x08256…08262 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0053, t01=0x00b6}
0x08262…08274 Head {h00=0x000e, h01=0x0050, text=» DATA PF 1«, t00=0x0053, t01=0x00c2}
0x08274…08286 Head {h00=0x000e, h01=0x0050, text=» DATA PF 2«, t00=0x0053, t01=0x00d4}
0x08286…08298 Head {h00=0x000e, h01=0x0050, text=» DATA PF 3«, t00=0x0053, t01=0x00e6}
0x08298…082aa Head {h00=0x000e, h01=0x0050, text=» DATA PF 4«, t00=0x0053, t01=0x00f8}
0x082aa…082bc Head {h00=0x000e, h01=0x0050, text=» DATA PF 5«, t00=0x0053, t01=0x010a}
0x082bc…082ce Head {h00=0x000e, h01=0x0050, text=» DATA PF 6«, t00=0x0053, t01=0x011c}
0x082ce…082e0 Head {h00=0x000e, h01=0x0050, text=» DATA PF 7«, t00=0x0053, t01=0x012e}
0x082e0…082f2 Head {h00=0x000e, h01=0x0050, text=» DATA PF 8«, t00=0x0053, t01=0x0140}
0x082f2…08304 Head {h00=0x000e, h01=0x0050, text=» DATA PF 9«, t00=0x0053, t01=0x0152}
0x08304…08318 Head {h00=0x0010, h01=0x0050, text=» DATA PF 10 «, t00=0x0053, t01=0x0164}
0x08318…0832c Head {h00=0x0010, h01=0x0050, text=» DATA PF 11 «, t00=0x0053, t01=0x0178}
0x0832c…08340 Head {h00=0x0010, h01=0x0050, text=» DATA PF 12 «, t00=0x0053, t01=0x018c}
0x08340…08354 Head {h00=0x0010, h01=0x0050, text=» DATA PF 13 «, t00=0x0054, t01=0x0010}
0x08354…08368 Head {h00=0x0010, h01=0x0050, text=» DATA PF 14 «, t00=0x0054, t01=0x0024}
0x08368…0837c Head {h00=0x0010, h01=0x0050, text=» DATA PF 15 «, t00=0x0054, t01=0x0038}
0x0837c…08388 Head {h00=0x0008, h01=0x0050, text=»*C0 «, t00=0x0054, t01=0x004c}
0x08388…0839c Head {h00=0x0010, h01=0x0050, text=» DATA PF 16 «, t00=0x0054, t01=0x0058}
0x0839c…083b0 Head {h00=0x0010, h01=0x0050, text=» DATA PF 17 «, t00=0x0054, t01=0x006c}
0x083b0…083c4 Head {h00=0x0010, h01=0x0050, text=» DATA PF 18 «, t00=0x0054, t01=0x0080}
0x083c4…083d8 Head {h00=0x0010, h01=0x0050, text=» DATA PF 19 «, t00=0x0054, t01=0x0094}
0x083d8…083ec Head {h00=0x0010, h01=0x0050, text=» DATA PF 20 «, t00=0x0054, t01=0x00a8}
0x083ec…08400 Head {h00=0x0010, h01=0x0050, text=» DATA PF 21 «, t00=0x0054, t01=0x00bc}
0x08400…08414 Head {h00=0x0010, h01=0x0050, text=» DATA PF 22 «, t00=0x0054, t01=0x00d0}
0x08414…08428 Head {h00=0x0010, h01=0x0050, text=» DATA PF 23 «, t00=0x0054, t01=0x00e4}
0x08428…0843c Head {h00=0x0010, h01=0x0050, text=» DATA PF 24 «, t00=0x0054, t01=0x00f8}
0x0843c…08450 Head {h00=0x0010, h01=0x0050, text=» IFF TEST=1 «, t00=0x0054, t01=0x010c}
0x08450…08464 Head {h00=0x0010, h01=0x0050, text=» DATA RETURN«, t00=0x0054, t01=0x0120}
0x08464…08470 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0054, t01=0x0134}
0x08470…08484 Head {h00=0x0010, h01=0x0050, text=» IFT TEST=1 «, t00=0x0054, t01=0x0140}
0x08484…08498 Head {h00=0x0010, h01=0x0050, text=» DATA TESTM «, t00=0x0054, t01=0x0154}
0x08498…084a4 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0054, t01=0x0168}
0x084a4…084b2 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0054, t01=0x0174}
0x084b2…084f8 Head {h00=0x0042, h01=0x0050, text=»**************************************************************«, t00=0x0054, t01=0x0182}
0x084f8…08540 Head {h00=0x0044, h01=0x0050, text=»* * «, t00=0x0055, t01=0x0038}
0x08540…08586 Head {h00=0x0042, h01=0x0050, text=»* CHAR ALPHABETIC AND SPEC. CHAR UPDAT. DISPL. *«, t00=0x0055, t01=0x0080}
0x08586…085cc Head {h00=0x0042, h01=0x0050, text=»* *«, t00=0x0055, t01=0x00c6}
0x085cc…08612 Head {h00=0x0042, h01=0x0050, text=»**************************************************************«, t00=0x0055, t01=0x010c}
0x08612…08626 Head {h00=0x0010, h01=0x0050, text=»* REGISTERS«, t00=0x0055, t01=0x0152}
0x08626…08630 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0055, t01=0x0166}
0x08630…08646 Head {h00=0x0012, h01=0x0050, text=»* A2= KEY-CHAR«, t00=0x0055, t01=0x0170}
0x08646…08664 Head {h00=0x001a, h01=0x0050, text=»* A3= ATTRIBUTE MASKL «, t00=0x0055, t01=0x0186}
0x08664…0867a Head {h00=0x0012, h01=0x0050, text=»* A4= RESERVED«, t00=0x0056, t01=0x0014}
0x0867a…08690 Head {h00=0x0012, h01=0x0050, text=»* A5= RESERVED«, t00=0x0056, t01=0x002a}
0x08690…086a6 Head {h00=0x0012, h01=0x0050, text=»* A6= RESERVED«, t00=0x0056, t01=0x0040}
0x086a6…086be Head {h00=0x0014, h01=0x0050, text=»* A11= RESERVED «, t00=0x0056, t01=0x0056}
0x086be…086d6 Head {h00=0x0014, h01=0x0050, text=»* A13= RESERVED «, t00=0x0056, t01=0x006e}
0x086d6…086e0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0056, t01=0x0086}
0x086e0…08726 Head {h00=0x0042, h01=0x0050, text=»**************************************************************«, t00=0x0056, t01=0x0090}
0x08726…08738 Head {h00=0x000e, h01=0x0050, text=»CHAR EQU *«, t00=0x0056, t01=0x00d6}
0x08738…08760 Head {h00=0x0024, h01=0x0050, text=» LDK A3,/30 LOAD ATTRIBUTE MASK «, t00=0x0056, t01=0x00e8}
0x08760…0878a Head {h00=0x0026, h01=0x0050, text=» CF A14,ANCOMM TAKE CARE OF CHAR. «, t00=0x0056, t01=0x0110}
0x0878a…0879a Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0056, t01=0x013a}
0x0879a…087a8 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0056, t01=0x014a}
0x087a8…087ee Head {h00=0x0042, h01=0x0050, text=»**************************************************************«, t00=0x0056, t01=0x0158}
0x087ee…08834 Head {h00=0x0042, h01=0x0050, text=»* *«, t00=0x0057, t01=0x000e}
0x08834…0887a Head {h00=0x0042, h01=0x0050, text=»* NUM NUMERIC UPDAT. DISPL. *«, t00=0x0057, t01=0x0054}
0x0887a…088c0 Head {h00=0x0042, h01=0x0050, text=»* NUMCOM NUMERIC COMMA *«, t00=0x0057, t01=0x009a}
0x088c0…08908 Head {h00=0x0044, h01=0x0050, text=»* * «, t00=0x0057, t01=0x00e0}
0x08908…0894e Head {h00=0x0042, h01=0x0050, text=»**************************************************************«, t00=0x0057, t01=0x0128}
0x0894e…08962 Head {h00=0x0010, h01=0x0050, text=»* REGISTERS«, t00=0x0057, t01=0x016e}
0x08962…0896c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0057, t01=0x0182}
0x0896c…08982 Head {h00=0x0012, h01=0x0050, text=»* A2= KEY-CHAR«, t00=0x0057, t01=0x018c}
0x08982…0899e Head {h00=0x0018, h01=0x0050, text=»* A3= ATTRIBUTE MASK«, t00=0x0058, t01=0x0012}
0x0899e…089b4 Head {h00=0x0012, h01=0x0050, text=»* A4= RESERVED«, t00=0x0058, t01=0x002e}
0x089b4…089ca Head {h00=0x0012, h01=0x0050, text=»* A5= RESERVED«, t00=0x0058, t01=0x0044}
0x089ca…089e0 Head {h00=0x0012, h01=0x0050, text=»* A6= RESERVED«, t00=0x0058, t01=0x005a}
0x089e0…089f8 Head {h00=0x0014, h01=0x0050, text=»* A11= RESERVED «, t00=0x0058, t01=0x0070}
0x089f8…08a10 Head {h00=0x0014, h01=0x0050, text=»* A13= RESERVED «, t00=0x0058, t01=0x0088}
0x08a10…08a1a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0058, t01=0x00a0}
0x08a1a…08a60 Head {h00=0x0042, h01=0x0050, text=»************************************************************* «, t00=0x0058, t01=0x00aa}
0x08a60…08a74 Head {h00=0x0010, h01=0x0050, text=»NUMCOM EQU *«, t00=0x0058, t01=0x00f0}
0x08a74…08a94 Head {h00=0x001c, h01=0x0050, text=» LDK A2,/2C INSERT COMMA«, t00=0x0058, t01=0x0104}
0x08a94…08aa6 Head {h00=0x000e, h01=0x0050, text=»NUM EQU * «, t00=0x0058, t01=0x0124}
0x08aa6…08ace Head {h00=0x0024, h01=0x0050, text=» LDK A3,/20 LOAD ATTRIBUTE MASK «, t00=0x0058, t01=0x0136}
0x08ace…08af8 Head {h00=0x0026, h01=0x0050, text=» CF A14,ANCOMM TAKE CARE OF CHAR. «, t00=0x0058, t01=0x015e}
0x08af8…08b08 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0058, t01=0x0188}
0x08b08…08b16 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0059, t01=0x0008}
0x08b16…08b5e Head {h00=0x0044, h01=0x0050, text=»*************************************************************** «, t00=0x0059, t01=0x0016}
0x08b5e…08ba6 Head {h00=0x0044, h01=0x0050, text=»* * «, t00=0x0059, t01=0x005e}
0x08ba6…08bee Head {h00=0x0044, h01=0x0050, text=»* ANCOMM COMMON ROUTINE FOR ALPHANUM. CHAR. * «, t00=0x0059, t01=0x00a6}
0x08bee…08c36 Head {h00=0x0044, h01=0x0050, text=»* * «, t00=0x0059, t01=0x00ee}
0x08c36…08c7e Head {h00=0x0044, h01=0x0050, text=»*************************************************************** «, t00=0x0059, t01=0x0136}
0x08c7e…08c92 Head {h00=0x0010, h01=0x0050, text=»* REGISTERS«, t00=0x0059, t01=0x017e}
0x08c92…08c9c (90, 0, 400) Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005a, t01=0x0004}
0x08c9c…08cb2 Head {h00=0x0012, h01=0x0050, text=»* A2= KEY-CHAR«, t00=0x005a, t01=0x000e}
0x08cb2…08cd8 Head {h00=0x0022, h01=0x0050, text=»* A3= AT ENTRY ATTRIBUTE MASK «, t00=0x005a, t01=0x0024}
0x08cd8…08cf6 Head {h00=0x001a, h01=0x0050, text=»* A4= REL. CURSOR POS.«, t00=0x005a, t01=0x004a}
0x08cf6…08d18 Head {h00=0x001e, h01=0x0050, text=»* A5= REL. ATTRIBUTE POS. «, t00=0x005a, t01=0x0068}
0x08d18…08d36 Head {h00=0x001a, h01=0x0050, text=»* A6= ATTRIBUTE CHAR. «, t00=0x005a, t01=0x008a}
0x08d36…08d56 Head {h00=0x001c, h01=0x0050, text=»* A11= CREDIT WORK AREA «, t00=0x005a, t01=0x00a8}
0x08d56…08d6e Head {h00=0x0014, h01=0x0050, text=»* A13= RESERVED «, t00=0x005a, t01=0x00c8}
0x08d6e…08d78 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005a, t01=0x00e0}
0x08d78…08dc0 Head {h00=0x0044, h01=0x0050, text=»*************************************************************** «, t00=0x005a, t01=0x00ea}
0x08dc0…08dd4 Head {h00=0x0010, h01=0x0050, text=»ANCOMM EQU *«, t00=0x005a, t01=0x0132}
0x08dd4…08e02 Head {h00=0x002a, h01=0x0050, text=» CF A14,SCRINF GET SCREEN INFORMATION «, t00=0x005a, t01=0x0146}
0x08e02…08e28 Head {h00=0x0022, h01=0x0050, text=» CWR A4,A5 CURSOR ON ATTRIBUTE«, t00=0x005a, t01=0x0174}
0x08e28…08e42 Head {h00=0x0016, h01=0x0050, text=» RF(E) ANC800 YES «, t00=0x005b, t01=0x000a}
0x08e42…08e54 Head {h00=0x000e, h01=0x0050, text=» LDR A1,A6«, t00=0x005b, t01=0x0024}
0x08e54…08e76 Head {h00=0x001e, h01=0x0050, text=» ANR A1,A3 ALLOWED POS. ? «, t00=0x005b, t01=0x0036}
0x08e76…08e90 Head {h00=0x0016, h01=0x0050, text=» RF(NZ) ANC800 NO «, t00=0x005b, t01=0x0058}
0x08e90…08ea4 Head {h00=0x0010, h01=0x0050, text=» IFT IN:DL=1«, t00=0x005b, t01=0x0072}
0x08ea4…08ec8 Head {h00=0x0020, h01=0x0050, text=» LD A1,MODE,A11 INSERT MODE?«, t00=0x005b, t01=0x0086}
0x08ec8…08ee0 Head {h00=0x0014, h01=0x0050, text=» RF(Z) ANC100 NO«, t00=0x005b, t01=0x00aa}
0x08ee0…08ef6 Head {h00=0x0012, h01=0x0050, text=» CF A14,INSMOD«, t00=0x005b, t01=0x00c2}
0x08ef6…08f08 Head {h00=0x000e, h01=0x0050, text=» LDR A7,A1«, t00=0x005b, t01=0x00d8}
0x08f08…08f2a Head {h00=0x001e, h01=0x0050, text=» ANK A7,1 INSRETED NORMAL?«, t00=0x005b, t01=0x00ea}
0x08f2a…08f44 Head {h00=0x0016, h01=0x0050, text=» RF(NZ) ANC900 YES«, t00=0x005b, t01=0x010c}
0x08f44…08f6a Head {h00=0x0022, h01=0x0050, text=» ANK A1,2 INSERT NOT ALLOWED? «, t00=0x005b, t01=0x0126}
0x08f6a…08f84 Head {h00=0x0016, h01=0x0050, text=» RF(NZ) ANC800 YES«, t00=0x005b, t01=0x014c}
0x08f84…08f90 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x005b, t01=0x0166}
0x08f90…08fa4 Head {h00=0x0010, h01=0x0050, text=»ANC100 EQU *«, t00=0x005b, t01=0x0172}
0x08fa4…08fb6 Head {h00=0x000e, h01=0x0050, text=» LDR A1,A4«, t00=0x005b, t01=0x0186}
0x08fb6…08fc8 Head {h00=0x000e, h01=0x0050, text=» LDR A7,A2«, t00=0x005c, t01=0x0008}
0x08fc8…08ffc Head {h00=0x0030, h01=0x0050, text=» CF A14,STOVDU STORE KEY-CHAR IN VDU BUFFER «, t00=0x005c, t01=0x001a}
0x08ffc…0902a Head {h00=0x002a, h01=0x0050, text=» CF A14,WCHAR DISPLAY CHAR AND CURSOR «, t00=0x005c, t01=0x004e}
0x0902a…09066 Head {h00=0x0038, h01=0x0050, text=» CF A14,POSUNP MOVE CURSOR TO NEXT UNPROTECTED POS. «, t00=0x005c, t01=0x007c}
0x09066…09078 Head {h00=0x000e, h01=0x0050, text=» RF ANC900«, t00=0x005c, t01=0x00b8}
0x09078…0908c Head {h00=0x0010, h01=0x0050, text=»ANC800 EQU *«, t00=0x005c, t01=0x00ca}
0x0908c…090b0 Head {h00=0x0020, h01=0x0050, text=» CF A14,ERROR INDICATE ERROR«, t00=0x005c, t01=0x00de}
0x090b0…090c4 Head {h00=0x0010, h01=0x0050, text=»ANC900 EQU *«, t00=0x005c, t01=0x0102}
0x090c4…090d4 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x005c, t01=0x0116}
0x090d4…090e2 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x005c, t01=0x0126}
0x090e2…09126 Head {h00=0x0040, h01=0x0050, text=»************************************************************«, t00=0x005c, t01=0x0134}
0x09126…0916a Head {h00=0x0040, h01=0x0050, text=»* *«, t00=0x005c, t01=0x0178}
0x0916a…091ae Head {h00=0x0040, h01=0x0050, text=»* CURMOV MOVE CURSOR ON SCREEN *«, t00=0x005d, t01=0x002c}
0x091ae…091f2 Head {h00=0x0040, h01=0x0050, text=»* *«, t00=0x005d, t01=0x0070}
0x091f2…09236 Head {h00=0x0040, h01=0x0050, text=»************************************************************«, t00=0x005d, t01=0x00b4}
0x09236…0924a Head {h00=0x0010, h01=0x0050, text=»* REGISTERS«, t00=0x005d, t01=0x00f8}
0x0924a…09254 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005d, t01=0x010c}
0x09254…0926a Head {h00=0x0012, h01=0x0050, text=»* A2= KEY-CHAR«, t00=0x005d, t01=0x0116}
0x0926a…09288 Head {h00=0x001a, h01=0x0050, text=»* A4= REL. CURSOR POS.«, t00=0x005d, t01=0x012c}
0x09288…092aa Head {h00=0x001e, h01=0x0050, text=»* A5= REL. ATTRIBUTE POS. «, t00=0x005d, t01=0x014a}
0x092aa…092c6 Head {h00=0x0018, h01=0x0050, text=»* A6= ATTRIBUTE CHAR«, t00=0x005d, t01=0x016c}
0x092c6…092de Head {h00=0x0014, h01=0x0050, text=»* A11= RESERVED «, t00=0x005d, t01=0x0188}
0x092de…092f6 Head {h00=0x0014, h01=0x0050, text=»* A13= RESERVED «, t00=0x005e, t01=0x0010}
0x092f6…09300 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005e, t01=0x0028}
0x09300…09344 Head {h00=0x0040, h01=0x0050, text=»************************************************************«, t00=0x005e, t01=0x0032}
0x09344…09358 Head {h00=0x0010, h01=0x0050, text=»CURMOV EQU *«, t00=0x005e, t01=0x0076}
0x09358…09380 Head {h00=0x0024, h01=0x0050, text=» CF A14,SCRINF GET SCREEN INFO. «, t00=0x005e, t01=0x008a}
0x09380…0939e Head {h00=0x001a, h01=0x0050, text=» SUK A2,CRUP GET INDEX«, t00=0x005e, t01=0x00b2}
0x0939e…093b0 Head {h00=0x000e, h01=0x0050, text=» ADR A2,A2«, t00=0x005e, t01=0x00d0}
0x093b0…093e0 Head {h00=0x002c, h01=0x0050, text=» CFI A14,CURTAB,A2 JUMP IN CURSOR TABLE «, t00=0x005e, t01=0x00e2}
0x093e0…0940e Head {h00=0x002a, h01=0x0050, text=» CF A14,STOINF SAVE SCREEN INFORMATION«, t00=0x005e, t01=0x0112}
0x0940e…09438 Head {h00=0x0026, h01=0x0050, text=» CWK A5,LBVDU+1 UNFORMATTED SCREEN«, t00=0x005e, t01=0x0140}
0x09438…09452 Head {h00=0x0016, h01=0x0050, text=» RF(E) CURM10 YES «, t00=0x005e, t01=0x016a}
0x09452…09464 Head {h00=0x000e, h01=0x0050, text=» LDR A1,A4«, t00=0x005e, t01=0x0184}
0x09464…0948c Head {h00=0x0024, h01=0x0050, text=» CF A14,ATMASB UPDATE ATTRIBUTE «, t00=0x005f, t01=0x0008}
0x0948c…094a0 Head {h00=0x0010, h01=0x0050, text=»CURM10 EQU *«, t00=0x005f, t01=0x0030}
0x094a0…094be Head {h00=0x001a, h01=0x0050, text=» LDK A1,2 REQ. LENGTH «, t00=0x005f, t01=0x0044}
0x094be…094e0 Head {h00=0x001e, h01=0x0050, text=» CF A14,DISCHA SET CURSOR «, t00=0x005f, t01=0x0062}
0x094e0…094f0 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x005f, t01=0x0084}
0x094f0…094fe Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x005f, t01=0x0094}
0x094fe…09526 Head {h00=0x0024, h01=0x0050, text=»* CURTAB CURSOR JUMP TABLE«, t00=0x005f, t01=0x00a2}
0x09526…0953a Head {h00=0x0010, h01=0x0050, text=»CURTAB EQU *«, t00=0x005f, t01=0x00ca}
0x0953a…09562 Head {h00=0x0024, h01=0x0050, text=» DATA CRLEFT MOVE CURSOR TO LEFT«, t00=0x005f, t01=0x00de}
0x09562…0958c Head {h00=0x0026, h01=0x0050, text=» DATA CRRIGT MOVE CURSOR TO RIGHT «, t00=0x005f, t01=0x0106}
0x0958c…095b2 Head {h00=0x0022, h01=0x0050, text=» DATA CRDOWN MOVE CURSOR DOWN «, t00=0x005f, t01=0x0130}
0x095b2…095d4 Head {h00=0x001e, h01=0x0050, text=» DATA CURUP MOVE CURSOR UP«, t00=0x005f, t01=0x0156}
0x095d4…095fe Head {h00=0x0026, h01=0x0050, text=»* CRLEFT MOVE CURSOR TO LEFT«, t00=0x005f, t01=0x0178}
0x095fe…09612 Head {h00=0x0010, h01=0x0050, text=»CRLEFT EQU *«, t00=0x0060, t01=0x0012}
0x09612…09624 Head {h00=0x000e, h01=0x0050, text=» SUK A4,1 «, t00=0x0060, t01=0x0026}
0x09624…0964c Head {h00=0x0024, h01=0x0050, text=» RF(NN) CRRET NOT LEFTMOST POS. «, t00=0x0060, t01=0x0038}
0x0964c…09678 Head {h00=0x0028, h01=0x0050, text=» LDKL A4,LBVDU-1 LAST POS. ON SCREEN«, t00=0x0060, t01=0x0060}
0x09678…0968a Head {h00=0x000e, h01=0x0050, text=» RF CRRET «, t00=0x0060, t01=0x008c}
0x0968a…096b6 Head {h00=0x0028, h01=0x0050, text=»* CRRIGT MOVE CURSOR TO RIGHT «, t00=0x0060, t01=0x009e}
0x096b6…096ca Head {h00=0x0010, h01=0x0050, text=»CRRIGT EQU *«, t00=0x0060, t01=0x00ca}
0x096ca…096dc Head {h00=0x000e, h01=0x0050, text=» ADK A4,1 «, t00=0x0060, t01=0x00de}
0x096dc…09700 Head {h00=0x0020, h01=0x0050, text=» CWK A4,LBVDU END OF BUFFER?«, t00=0x0060, t01=0x00f0}
0x09700…09718 Head {h00=0x0014, h01=0x0050, text=» RF(L) CRRET NO «, t00=0x0060, t01=0x0114}
0x09718…0972a Head {h00=0x000e, h01=0x0050, text=» LDK A4,0 «, t00=0x0060, t01=0x012c}
0x0972a…0973c Head {h00=0x000e, h01=0x0050, text=» RF CRRET «, t00=0x0060, t01=0x013e}
0x0973c…09764 Head {h00=0x0024, h01=0x0050, text=»* CRDOWN MOVE CURSOR DOWN «, t00=0x0060, t01=0x0150}
0x09764…09778 Head {h00=0x0010, h01=0x0050, text=»CRDOWN EQU *«, t00=0x0060, t01=0x0178}
0x09778…0978e Head {h00=0x0012, h01=0x0050, text=» ADKL A4,LLINE«, t00=0x0060, t01=0x018c}
0x0978e…097ae Head {h00=0x001c, h01=0x0050, text=» CWK A4,LBVDU LAST LINE?«, t00=0x0061, t01=0x0012}
0x097ae…097c6 Head {h00=0x0014, h01=0x0050, text=» RF(L) CRRET NO «, t00=0x0061, t01=0x0032}
0x097c6…097dc Head {h00=0x0012, h01=0x0050, text=» SUKL A4,LBVDU«, t00=0x0061, t01=0x004a}
0x097dc…097ee Head {h00=0x000e, h01=0x0050, text=» RF CRRET «, t00=0x0061, t01=0x0060}
0x097ee…09812 Head {h00=0x0020, h01=0x0050, text=»* CURUP MOVE CURSOR UP«, t00=0x0061, t01=0x0072}
0x09812…09826 Head {h00=0x0010, h01=0x0050, text=»CURUP EQU * «, t00=0x0061, t01=0x0096}
0x09826…0983c Head {h00=0x0012, h01=0x0050, text=» SUKL A4,LLINE«, t00=0x0061, t01=0x00aa}
0x0983c…0985e Head {h00=0x001e, h01=0x0050, text=» RF(NN) CRRET UPMOST LINE «, t00=0x0061, t01=0x00c0}
0x0985e…09874 Head {h00=0x0012, h01=0x0050, text=» ADKL A4,LBVDU«, t00=0x0061, t01=0x00e2}
0x09874…09888 Head {h00=0x0010, h01=0x0050, text=»CRRET EQU * «, t00=0x0061, t01=0x00f8}
0x09888…09898 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0061, t01=0x010c}
0x09898…098a6 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0061, t01=0x011c}
0x098a6…098ec Head {h00=0x0042, h01=0x0050, text=»**************************************************************«, t00=0x0061, t01=0x012a}
0x098ec…09932 Head {h00=0x0042, h01=0x0050, text=»* *«, t00=0x0061, t01=0x0170}
0x09932…09978 Head {h00=0x0042, h01=0x0050, text=»* BAKTAB TAB. UNPROTECTED BACKWARDS *«, t00=0x0062, t01=0x0026}
0x09978…099be Head {h00=0x0042, h01=0x0050, text=»* *«, t00=0x0062, t01=0x006c}
0x099be…09a04 Head {h00=0x0042, h01=0x0050, text=»**************************************************************«, t00=0x0062, t01=0x00b2}
0x09a04…09a18 Head {h00=0x0010, h01=0x0050, text=»* REGISTERS«, t00=0x0062, t01=0x00f8}
0x09a18…09a22 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0062, t01=0x010c}
0x09a22…09a40 Head {h00=0x001a, h01=0x0050, text=»* A4= REL. CURSOR POS.«, t00=0x0062, t01=0x0116}
0x09a40…09a62 Head {h00=0x001e, h01=0x0050, text=»* A5= REL. ATTRIBUTE POS. «, t00=0x0062, t01=0x0134}
0x09a62…09a80 Head {h00=0x001a, h01=0x0050, text=»* A6= ATTRIBUTE CHAR. «, t00=0x0062, t01=0x0156}
0x09a80…09aa8 Head {h00=0x0024, h01=0x0050, text=»* A9= REL. ATTRIBUTE START POS. «, t00=0x0062, t01=0x0174}
0x09aa8…09ac0 Head {h00=0x0014, h01=0x0050, text=»* A11= RESERVED «, t00=0x0063, t01=0x000c}
0x09ac0…09ad8 Head {h00=0x0014, h01=0x0050, text=»* A13= RESERVED «, t00=0x0063, t01=0x0024}
0x09ad8…09ae2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0063, t01=0x003c}
0x09ae2…09b2a Head {h00=0x0044, h01=0x0050, text=»*************************************************************** «, t00=0x0063, t01=0x0046}
0x09b2a…09b3e Head {h00=0x0010, h01=0x0050, text=»BAKTAB EQU *«, t00=0x0063, t01=0x008e}
0x09b3e…09b6c Head {h00=0x002a, h01=0x0050, text=» CF A14,SCRINF GET SCREEN INFORMATION «, t00=0x0063, t01=0x00a2}
0x09b6c…09b7e Head {h00=0x000e, h01=0x0050, text=» LDR A9,A5«, t00=0x0063, t01=0x00d0}
0x09b7e…09baa Head {h00=0x0028, h01=0x0050, text=» CWK A5,LBVDU+1 UNFORMATTED SCREEN? «, t00=0x0063, t01=0x00e2}
0x09baa…09bc4 Head {h00=0x0016, h01=0x0050, text=» RF(E) BAK600 YES «, t00=0x0063, t01=0x010e}
0x09bc4…09bee Head {h00=0x0026, h01=0x0050, text=» CWR A4,A5 STANDING ON ATTRIBUTE? «, t00=0x0063, t01=0x0128}
0x09bee…09c08 Head {h00=0x0016, h01=0x0050, text=» RF(E) BAK300 YES «, t00=0x0063, t01=0x0152}
0x09c08…09c1a Head {h00=0x000e, h01=0x0050, text=» SUK A4,1 «, t00=0x0063, t01=0x016c}
0x09c1a…09c4a Head {h00=0x002c, h01=0x0050, text=» RF(NN) BAK100 NOT FIRST POS. ON SCREEN «, t00=0x0063, t01=0x017e}
0x09c4a…09c76 Head {h00=0x0028, h01=0x0050, text=» LDKL A4,LBVDU-1 LAST POS. ON SCREEN«, t00=0x0064, t01=0x001e}
0x09c76…09c8a Head {h00=0x0010, h01=0x0050, text=»BAK100 EQU *«, t00=0x0064, t01=0x004a}
0x09c8a…09cbe Head {h00=0x0030, h01=0x0050, text=» CWR A4,A5 STANDING ON POS. AFTER ATTRIBUTE?«, t00=0x0064, t01=0x005e}
0x09cbe…09cd8 Head {h00=0x0016, h01=0x0050, text=» RF(E) BAK300 YES «, t00=0x0064, t01=0x0092}
0x09cd8…09cea Head {h00=0x000e, h01=0x0050, text=» LDR A4,A5«, t00=0x0064, t01=0x00ac}
0x09cea…09cfc Head {h00=0x000e, h01=0x0050, text=» LDR A7,A6«, t00=0x0064, t01=0x00be}
0x09cfc…09d20 Head {h00=0x0020, h01=0x0050, text=» ANK A7,/20 PROTECTED FIELD?«, t00=0x0064, t01=0x00d0}
0x09d20…09d38 Head {h00=0x0014, h01=0x0050, text=» RF(Z) BAK500 NO«, t00=0x0064, t01=0x00f4}
0x09d38…09d4c Head {h00=0x0010, h01=0x0050, text=»BAK300 EQU *«, t00=0x0064, t01=0x010c}
0x09d4c…09d5e Head {h00=0x000e, h01=0x0050, text=» SUK A4,1 «, t00=0x0064, t01=0x0120}
0x09d5e…09d74 Head {h00=0x0012, h01=0x0050, text=» RF(NN) BAK400«, t00=0x0064, t01=0x0132}
0x09d74…09d8c Head {h00=0x0014, h01=0x0050, text=» LDKL A4,LBVDU-1«, t00=0x0064, t01=0x0148}
0x09d8c…09da0 Head {h00=0x0010, h01=0x0050, text=»BAK400 EQU *«, t00=0x0064, t01=0x0160}
0x09da0…09db2 Head {h00=0x000e, h01=0x0050, text=» LDR A1,A4«, t00=0x0064, t01=0x0174}
0x09db2…09df0 Head {h00=0x003a, h01=0x0050, text=» CF A14,ATMASB SEARCH ATTRIBUTE BACKWARDS AND MASK IT «, t00=0x0064, t01=0x0186}
0x09df0…09e02 Head {h00=0x000e, h01=0x0050, text=» LDR A7,A6«, t00=0x0065, t01=0x0034}
0x09e02…09e26 Head {h00=0x0020, h01=0x0050, text=» ANK A7,/20 PROTECTED FIELD?«, t00=0x0065, t01=0x0046}
0x09e26…09e3e Head {h00=0x0014, h01=0x0050, text=» RF(Z) BAK500 NO«, t00=0x0065, t01=0x006a}
0x09e3e…09e50 Head {h00=0x000e, h01=0x0050, text=» LDR A4,A5«, t00=0x0065, t01=0x0082}
0x09e50…09e7a Head {h00=0x0026, h01=0x0050, text=» CWR A5,A9 WHOLE SCREEN SEARCHED? «, t00=0x0065, t01=0x0094}
0x09e7a…09e94 Head {h00=0x0016, h01=0x0050, text=» RB(NE) BAK300 NO «, t00=0x0065, t01=0x00be}
0x09e94…09eb8 Head {h00=0x0020, h01=0x0050, text=» LDK A1,0 FIRST SCREEN POS. «, t00=0x0065, t01=0x00d8}
0x09eb8…09ee8 Head {h00=0x002c, h01=0x0050, text=» CF A14,ATMASB UPDATE FIELD INFORMATION «, t00=0x0065, t01=0x00fc}
0x09ee8…09efa Head {h00=0x000e, h01=0x0050, text=» RF BAK600«, t00=0x0065, t01=0x012c}
0x09efa…09f0e Head {h00=0x0010, h01=0x0050, text=»BAK500 EQU *«, t00=0x0065, t01=0x013e}
0x09f0e…09f20 Head {h00=0x000e, h01=0x0050, text=» LDR A4,A5«, t00=0x0065, t01=0x0152}
0x09f20…09f32 Head {h00=0x000e, h01=0x0050, text=» ADK A4,1 «, t00=0x0065, t01=0x0164}
0x09f32…09f56 Head {h00=0x0020, h01=0x0050, text=» CWK A4,LBVDU-1 WRAP AROUND?«, t00=0x0065, t01=0x0176}
0x09f56…09f70 Head {h00=0x0016, h01=0x0050, text=» RF(NG) BAK700 NO «, t00=0x0066, t01=0x000a}
0x09f70…09f84 Head {h00=0x0010, h01=0x0050, text=»BAK600 EQU *«, t00=0x0066, t01=0x0024}
0x09f84…09fa8 Head {h00=0x0020, h01=0x0050, text=» LDK A4,0 FIRST SCREEN POS. «, t00=0x0066, t01=0x0038}
0x09fa8…09fbc Head {h00=0x0010, h01=0x0050, text=»BAK700 EQU *«, t00=0x0066, t01=0x005c}
0x09fbc…09fea Head {h00=0x002a, h01=0x0050, text=» CF A14,STOINF SAVE SCREEN INFORMATION«, t00=0x0066, t01=0x0070}
0x09fea…0a008 Head {h00=0x001a, h01=0x0050, text=» LDK A1,2 REQ. LENGTH «, t00=0x0066, t01=0x009e}
0x0a008…0a02a Head {h00=0x001e, h01=0x0050, text=» CF A14,DISCHA SET CURSOR «, t00=0x0066, t01=0x00bc}
0x0a02a…0a03a Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0066, t01=0x00de}
0x0a03a…0a048 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0066, t01=0x00ee}
0x0a048…0a08e Head {h00=0x0042, h01=0x0050, text=»************************************************************* «, t00=0x0066, t01=0x00fc}
0x0a08e…0a0d4 Head {h00=0x0042, h01=0x0050, text=»* * «, t00=0x0066, t01=0x0142}
0x0a0d4…0a11a Head {h00=0x0042, h01=0x0050, text=»* TAB TAB. UNPROTECTED FORWARD * «, t00=0x0066, t01=0x0188}
0x0a11a…0a160 Head {h00=0x0042, h01=0x0050, text=»* * «, t00=0x0067, t01=0x003e}
0x0a160…0a1a6 Head {h00=0x0042, h01=0x0050, text=»************************************************************* «, t00=0x0067, t01=0x0084}
0x0a1a6…0a1ba Head {h00=0x0010, h01=0x0050, text=»* REGISTERS«, t00=0x0067, t01=0x00ca}
0x0a1ba…0a1c4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0067, t01=0x00de}
0x0a1c4…0a1e2 Head {h00=0x001a, h01=0x0050, text=»* A4= REL. CURSOR POS.«, t00=0x0067, t01=0x00e8}
0x0a1e2…0a204 Head {h00=0x001e, h01=0x0050, text=»* A5= REL. ATTRIBUTE POS. «, t00=0x0067, t01=0x0106}
0x0a204…0a222 Head {h00=0x001a, h01=0x0050, text=»* A6= ATTRIBUTE CHAR. «, t00=0x0067, t01=0x0128}
0x0a222…0a24a Head {h00=0x0024, h01=0x0050, text=»* A9= REL. ATTRIBUTE START POS. «, t00=0x0067, t01=0x0146}
0x0a24a…0a262 Head {h00=0x0014, h01=0x0050, text=»* A11= RESERVED «, t00=0x0067, t01=0x016e}
0x0a262…0a27a Head {h00=0x0014, h01=0x0050, text=»* A13= RESERVED «, t00=0x0067, t01=0x0186}
0x0a27a…0a284 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0068, t01=0x000e}
0x0a284…0a2ca Head {h00=0x0042, h01=0x0050, text=»**************************************************************«, t00=0x0068, t01=0x0018}
0x0a2ca…0a2dc Head {h00=0x000e, h01=0x0050, text=»TAB EQU * «, t00=0x0068, t01=0x005e}
0x0a2dc…0a30a Head {h00=0x002a, h01=0x0050, text=» CF A14,SCRINF GET SCREEN INFORMATION «, t00=0x0068, t01=0x0070}
0x0a30a…0a31c Head {h00=0x000e, h01=0x0050, text=» LDR A9,A5«, t00=0x0068, t01=0x009e}
0x0a31c…0a348 Head {h00=0x0028, h01=0x0050, text=» CWK A5,LBVDU+1 UNFORMATTED SCREEN? «, t00=0x0068, t01=0x00b0}
0x0a348…0a362 Head {h00=0x0016, h01=0x0050, text=» RF(E) TAB200 YES «, t00=0x0068, t01=0x00dc}
0x0a362…0a376 Head {h00=0x0010, h01=0x0050, text=»TAB100 EQU *«, t00=0x0068, t01=0x00f6}
0x0a376…0a388 Head {h00=0x000e, h01=0x0050, text=» LDR A1,A4«, t00=0x0068, t01=0x010a}
0x0a388…0a3b8 Head {h00=0x002c, h01=0x0050, text=» CF A14,ATMASF SEARCH ATTRIBUTE FORWARD «, t00=0x0068, t01=0x011c}
0x0a3b8…0a3da Head {h00=0x001e, h01=0x0050, text=» LDR A4,A5 NEW CURSOR POS.«, t00=0x0068, t01=0x014c}
0x0a3da…0a3ec Head {h00=0x000e, h01=0x0050, text=» LDR A7,A6«, t00=0x0068, t01=0x016e}
0x0a3ec…0a410 Head {h00=0x0020, h01=0x0050, text=» ANK A7,/20 PROTECTED FIELD?«, t00=0x0068, t01=0x0180}
0x0a410…0a428 Head {h00=0x0014, h01=0x0050, text=» RF(Z) TAB150 NO«, t00=0x0069, t01=0x0014}
0x0a428…0a452 Head {h00=0x0026, h01=0x0050, text=» CWR A5,A9 WHOLE SCREEN SEARCHED? «, t00=0x0069, t01=0x002c}
0x0a452…0a46c Head {h00=0x0016, h01=0x0050, text=» RB(NE) TAB100 NO «, t00=0x0069, t01=0x0056}
0x0a46c…0a492 Head {h00=0x0022, h01=0x0050, text=» LDK A1,0 FIRST POS. ON SCREEN«, t00=0x0069, t01=0x0070}
0x0a492…0a4c2 Head {h00=0x002c, h01=0x0050, text=» CF A14,ATMASB UPDATE FIELD INFORMATION «, t00=0x0069, t01=0x0096}
0x0a4c2…0a4d4 Head {h00=0x000e, h01=0x0050, text=» RF TAB200«, t00=0x0069, t01=0x00c6}
0x0a4d4…0a4e8 Head {h00=0x0010, h01=0x0050, text=»TAB150 EQU *«, t00=0x0069, t01=0x00d8}
0x0a4e8…0a4fa Head {h00=0x000e, h01=0x0050, text=» ADK A4,1 «, t00=0x0069, t01=0x00ec}
0x0a4fa…0a524 Head {h00=0x0026, h01=0x0050, text=» CWK A4,LBVDU-1 LAST SCREEN POS.? «, t00=0x0069, t01=0x00fe}
0x0a524…0a53e Head {h00=0x0016, h01=0x0050, text=» RF(NG) TAB300 NO «, t00=0x0069, t01=0x0128}
0x0a53e…0a552 Head {h00=0x0010, h01=0x0050, text=»TAB200 EQU *«, t00=0x0069, t01=0x0142}
0x0a552…0a576 Head {h00=0x0020, h01=0x0050, text=» LDK A4,0 FIRST SCREEN POS. «, t00=0x0069, t01=0x0156}
0x0a576…0a58a Head {h00=0x0010, h01=0x0050, text=»TAB300 EQU *«, t00=0x0069, t01=0x017a}
0x0a58a…0a5b8 Head {h00=0x002a, h01=0x0050, text=» CF A14,STOINF SAVE SCREEN INFORMATION«, t00=0x0069, t01=0x018e}
0x0a5b8…0a5d6 Head {h00=0x001a, h01=0x0050, text=» LDK A1,2 REQ. LENGTH «, t00=0x006a, t01=0x002c}
0x0a5d6…0a5f8 Head {h00=0x001e, h01=0x0050, text=» CF A14,DISCHA SET CURSOR «, t00=0x006a, t01=0x004a}
0x0a5f8…0a608 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x006a, t01=0x006c}
0x0a608…0a616 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x006a, t01=0x007c}
0x0a616…0a662 Head {h00=0x0048, h01=0x0050, text=»******************************************************************* «, t00=0x006a, t01=0x008a}
0x0a662…0a6ae Head {h00=0x0048, h01=0x0050, text=»* * «, t00=0x006a, t01=0x00d6}
0x0a6ae…0a6fa Head {h00=0x0048, h01=0x0050, text=»* CRNL TAB. UNPROTECTED TO NEXT LINE * «, t00=0x006a, t01=0x0122}
0x0a6fa…0a746 Head {h00=0x0048, h01=0x0050, text=»* * «, t00=0x006a, t01=0x016e}
0x0a746…0a792 Head {h00=0x0048, h01=0x0050, text=»******************************************************************* «, t00=0x006b, t01=0x002a}
0x0a792…0a7a6 Head {h00=0x0010, h01=0x0050, text=»* REGISTERS«, t00=0x006b, t01=0x0076}
0x0a7a6…0a7b0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006b, t01=0x008a}
0x0a7b0…0a7ce Head {h00=0x001a, h01=0x0050, text=»* A4= REL. CURSOR POS.«, t00=0x006b, t01=0x0094}
0x0a7ce…0a7f0 Head {h00=0x001e, h01=0x0050, text=»* A5= REL. ATTRIBUTE POS. «, t00=0x006b, t01=0x00b2}
0x0a7f0…0a80e Head {h00=0x001a, h01=0x0050, text=»* A6= ATTRIBUTE CHAR. «, t00=0x006b, t01=0x00d4}
0x0a80e…0a826 Head {h00=0x0014, h01=0x0050, text=»* A11= RESERVED «, t00=0x006b, t01=0x00f2}
0x0a826…0a83e Head {h00=0x0014, h01=0x0050, text=»* A13= RESERVED «, t00=0x006b, t01=0x010a}
0x0a83e…0a848 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006b, t01=0x0122}
0x0a848…0a892 Head {h00=0x0046, h01=0x0050, text=»***************************************************************** «, t00=0x006b, t01=0x012c}
0x0a892…0a8a4 Head {h00=0x000e, h01=0x0050, text=»CRNL EQU *«, t00=0x006b, t01=0x0176}
0x0a8a4…0a8d2 Head {h00=0x002a, h01=0x0050, text=» CF A14,SCRINF GET SCREEN INFORMATION «, t00=0x006b, t01=0x0188}
0x0a8d2…0a8fa Head {h00=0x0024, h01=0x0050, text=» CF A14,CRDOWN MOVE CURSOR DOWN «, t00=0x006c, t01=0x0026}
0x0a8fa…0a922 Head {h00=0x0024, h01=0x0050, text=» LDK A1,0 COMPUTE LEFTMOST POS. «, t00=0x006c, t01=0x004e}
0x0a922…0a936 Head {h00=0x0010, h01=0x0050, text=»CRN100 EQU *«, t00=0x006c, t01=0x0076}
0x0a936…0a94c Head {h00=0x0012, h01=0x0050, text=» SUK A4,LLINE «, t00=0x006c, t01=0x008a}
0x0a94c…0a962 Head {h00=0x0012, h01=0x0050, text=» RF(N) CRN200 «, t00=0x006c, t01=0x00a0}
0x0a962…0a978 Head {h00=0x0012, h01=0x0050, text=» ADK A1,LLINE «, t00=0x006c, t01=0x00b6}
0x0a978…0a98a Head {h00=0x000e, h01=0x0050, text=» RB CRN100«, t00=0x006c, t01=0x00cc}
0x0a98a…0a99e Head {h00=0x0010, h01=0x0050, text=»CRN200 EQU *«, t00=0x006c, t01=0x00de}
0x0a99e…0a9b0 Head {h00=0x000e, h01=0x0050, text=» LDR A4,A1«, t00=0x006c, t01=0x00f2}
0x0a9b0…0a9dc Head {h00=0x0028, h01=0x0050, text=» CWK A5,LBVDU+1 UNFORMATTED SCREEN? «, t00=0x006c, t01=0x0104}
0x0a9dc…0a9f6 Head {h00=0x0016, h01=0x0050, text=» RF(E) CRN800 YES «, t00=0x006c, t01=0x0130}
0x0a9f6…0aa24 Head {h00=0x002a, h01=0x0050, text=» CF A14,GETVDU GET CHAR. IN VDU BUFFER«, t00=0x006c, t01=0x014a}
0x0aa24…0aa42 Head {h00=0x001a, h01=0x0050, text=» CCK A7,/80 ATTRIBUTE?«, t00=0x006c, t01=0x0178}
0x0aa42…0aa5c Head {h00=0x0016, h01=0x0050, text=» RF(NL) CRN400 YES«, t00=0x006d, t01=0x0008}
0x0aa5c…0aa6e Head {h00=0x000e, h01=0x0050, text=» LDR A1,A4«, t00=0x006d, t01=0x0022}
0x0aa6e…0aa9e Head {h00=0x002c, h01=0x0050, text=» CF A14,ATMASB SEARCH ATTRIBUTE BACKWARD«, t00=0x006d, t01=0x0034}
0x0aa9e…0aab0 Head {h00=0x000e, h01=0x0050, text=» LDR A7,A6«, t00=0x006d, t01=0x0064}
0x0aab0…0aace Head {h00=0x001a, h01=0x0050, text=» ANK A7,/20 PROTECTED?«, t00=0x006d, t01=0x0076}
0x0aace…0aae6 Head {h00=0x0014, h01=0x0050, text=» RF(Z) CRN800 NO«, t00=0x006d, t01=0x0094}
0x0aae6…0aaf8 Head {h00=0x000e, h01=0x0050, text=» RF CRN500«, t00=0x006d, t01=0x00ac}
0x0aaf8…0ab0c Head {h00=0x0010, h01=0x0050, text=»CRN400 EQU *«, t00=0x006d, t01=0x00be}
0x0ab0c…0ab1e Head {h00=0x000e, h01=0x0050, text=» SUK A4,1 «, t00=0x006d, t01=0x00d2}
0x0ab1e…0ab44 Head {h00=0x0022, h01=0x0050, text=» RF(NN) CRN500 NOT WRAP AROUND«, t00=0x006d, t01=0x00e4}
0x0ab44…0ab6e Head {h00=0x0026, h01=0x0050, text=» LDKL A4,LBVDU-1 LAST SCREEN POS. «, t00=0x006d, t01=0x010a}
0x0ab6e…0ab82 Head {h00=0x0010, h01=0x0050, text=»CRN500 EQU *«, t00=0x006d, t01=0x0134}
0x0ab82…0abb0 Head {h00=0x002a, h01=0x0050, text=» CF A14,STOINF SAVE SCREEN INFORMATION«, t00=0x006d, t01=0x0148}
0x0abb0…0abdc Head {h00=0x0028, h01=0x0050, text=» CF A14,TAB TAB. UNPROTECTED FORWARD«, t00=0x006d, t01=0x0176}
0x0abdc…0abee Head {h00=0x000e, h01=0x0050, text=» RF CRN900«, t00=0x006e, t01=0x0012}
0x0abee…0ac02 Head {h00=0x0010, h01=0x0050, text=»CRN800 EQU *«, t00=0x006e, t01=0x0024}
0x0ac02…0ac30 Head {h00=0x002a, h01=0x0050, text=» CF A14,STOINF SAVE SCREEN INFORMATION«, t00=0x006e, t01=0x0038}
0x0ac30…0ac4e Head {h00=0x001a, h01=0x0050, text=» LDK A1,2 REQ. LENGTH «, t00=0x006e, t01=0x0066}
0x0ac4e…0ac70 Head {h00=0x001e, h01=0x0050, text=» CF A14,DISCHA SET CURSOR «, t00=0x006e, t01=0x0084}
0x0ac70…0ac84 Head {h00=0x0010, h01=0x0050, text=»CRN900 EQU *«, t00=0x006e, t01=0x00a6}
0x0ac84…0ac94 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x006e, t01=0x00ba}
0x0ac94…0aca2 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x006e, t01=0x00ca}
0x0aca2…0acf0 Head {h00=0x004a, h01=0x0050, text=»********************************************************************* «, t00=0x006e, t01=0x00d8}
0x0acf0…0ad3e Head {h00=0x004a, h01=0x0050, text=»* * «, t00=0x006e, t01=0x0126}
0x0ad3e…0ad8c Head {h00=0x004a, h01=0x0050, text=»* RDHOME TAB. UNPROTECTED FIRST ON SCREEN * «, t00=0x006e, t01=0x0174}
0x0ad8c…0adda Head {h00=0x004a, h01=0x0050, text=»* * «, t00=0x006f, t01=0x0032}
0x0adda…0ae28 Head {h00=0x004a, h01=0x0050, text=»********************************************************************* «, t00=0x006f, t01=0x0080}
0x0ae28…0ae3c Head {h00=0x0010, h01=0x0050, text=»* REGISTERS«, t00=0x006f, t01=0x00ce}
0x0ae3c…0ae46 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006f, t01=0x00e2}
0x0ae46…0ae64 Head {h00=0x001a, h01=0x0050, text=»* A4= REL. CURSOR POS.«, t00=0x006f, t01=0x00ec}
0x0ae64…0ae86 Head {h00=0x001e, h01=0x0050, text=»* A5= REL. ATTRIBUTE POS. «, t00=0x006f, t01=0x010a}
0x0ae86…0aea4 Head {h00=0x001a, h01=0x0050, text=»* A6= ATTRIBUTE CHAR. «, t00=0x006f, t01=0x012c}
0x0aea4…0aebc Head {h00=0x0014, h01=0x0050, text=»* A11= RESERVED «, t00=0x006f, t01=0x014a}
0x0aebc…0aed4 Head {h00=0x0014, h01=0x0050, text=»* A13= RESERVED «, t00=0x006f, t01=0x0162}
0x0aed4…0aede Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006f, t01=0x017a}
0x0aede…0af2c Head {h00=0x004a, h01=0x0050, text=»********************************************************************* «, t00=0x006f, t01=0x0184}
0x0af2c…0af40 Head {h00=0x0010, h01=0x0050, text=»RDHOME EQU *«, t00=0x0070, t01=0x0042}
0x0af40…0af6e Head {h00=0x002a, h01=0x0050, text=» CF A14,SCRINF GET SCREEN INFORMATION «, t00=0x0070, t01=0x0056}
0x0af6e…0af94 Head {h00=0x0022, h01=0x0050, text=» LDK A4,0 FIRST POS. ON SCREEN«, t00=0x0070, t01=0x0084}
0x0af94…0afaa Head {h00=0x0012, h01=0x0050, text=» CF A14,STOINF«, t00=0x0070, t01=0x00aa}
0x0afaa…0afd6 Head {h00=0x0028, h01=0x0050, text=» CWK A5,LBVDU+1 UNFORMATTED SCREEN? «, t00=0x0070, t01=0x00c0}
0x0afd6…0aff0 Head {h00=0x0016, h01=0x0050, text=» RF(E) RDH800 YES «, t00=0x0070, t01=0x00ec}
0x0aff0…0b002 Head {h00=0x000e, h01=0x0050, text=» LDR A1,A4«, t00=0x0070, t01=0x0106}
0x0b002…0b030 Head {h00=0x002a, h01=0x0050, text=» CF A14,GETVDU GET CHAR. IN VDU BUFFER«, t00=0x0070, t01=0x0118}
0x0b030…0b050 Head {h00=0x001c, h01=0x0050, text=» CCK A7,/8000 ATTRIBUTE?«, t00=0x0070, t01=0x0146}
0x0b050…0b068 Head {h00=0x0014, h01=0x0050, text=» RF(L) RDH100 NO«, t00=0x0070, t01=0x0166}
0x0b068…0b092 Head {h00=0x0026, h01=0x0050, text=» LDKL A4,LBVDU-1 LAST SCREEN POS. «, t00=0x0070, t01=0x017e}
0x0b092…0b0c0 Head {h00=0x002a, h01=0x0050, text=» CF A14,STOINF SAVE SCREEN INFORMATION«, t00=0x0071, t01=0x0018}
0x0b0c0…0b0d2 Head {h00=0x000e, h01=0x0050, text=» RF RDH300«, t00=0x0071, t01=0x0046}
0x0b0d2…0b0e6 Head {h00=0x0010, h01=0x0050, text=»RDH100 EQU *«, t00=0x0071, t01=0x0058}
0x0b0e6…0b0f8 Head {h00=0x000e, h01=0x0050, text=» LDR A1,A4«, t00=0x0071, t01=0x006c}
0x0b0f8…0b126 Head {h00=0x002a, h01=0x0050, text=» CF A14,ATMASB GET ATTRIBUTE BACKWARD «, t00=0x0071, t01=0x007e}
0x0b126…0b138 Head {h00=0x000e, h01=0x0050, text=» LDR A7,A6«, t00=0x0071, t01=0x00ac}
0x0b138…0b156 Head {h00=0x001a, h01=0x0050, text=» ANK A7,/20 PROTECTED?«, t00=0x0071, t01=0x00be}
0x0b156…0b16e Head {h00=0x0014, h01=0x0050, text=» RF(Z) RDH800 NO«, t00=0x0071, t01=0x00dc}
0x0b16e…0b182 Head {h00=0x0010, h01=0x0050, text=»RDH300 EQU *«, t00=0x0071, t01=0x00f4}
0x0b182…0b1ae Head {h00=0x0028, h01=0x0050, text=» CF A14,TAB TAB. UNPROTECTED FORWARD«, t00=0x0071, t01=0x0108}
0x0b1ae…0b1c0 Head {h00=0x000e, h01=0x0050, text=» RF RDH900«, t00=0x0071, t01=0x0134}
0x0b1c0…0b1d4 Head {h00=0x0010, h01=0x0050, text=»RDH800 EQU *«, t00=0x0071, t01=0x0146}
0x0b1d4…0b202 Head {h00=0x002a, h01=0x0050, text=» CF A14,STOINF SAVE SCREEN INFORMATION«, t00=0x0071, t01=0x015a}
0x0b202…0b220 Head {h00=0x001a, h01=0x0050, text=» LDK A1,2 REQ. LENGTH «, t00=0x0071, t01=0x0188}
0x0b220…0b242 Head {h00=0x001e, h01=0x0050, text=» CF A14,DISCHA SET CURSOR «, t00=0x0072, t01=0x0016}
0x0b242…0b256 Head {h00=0x0010, h01=0x0050, text=»RDH900 EQU *«, t00=0x0072, t01=0x0038}
0x0b256…0b266 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0072, t01=0x004c}
0x0b266…0b274 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0072, t01=0x005c}
0x0b274…0b2ba Head {h00=0x0042, h01=0x0050, text=»************************************************************* «, t00=0x0072, t01=0x006a}
0x0b2ba…0b300 Head {h00=0x0042, h01=0x0050, text=»* * «, t00=0x0072, t01=0x00b0}
0x0b300…0b346 Head {h00=0x0042, h01=0x0050, text=»* EREOF ERASE TO END OF FIELD * «, t00=0x0072, t01=0x00f6}
0x0b346…0b38a Head {h00=0x0040, h01=0x0050, text=»* *«, t00=0x0072, t01=0x013c}
0x0b38a…0b3d0 Head {h00=0x0042, h01=0x0050, text=»************************************************************* «, t00=0x0072, t01=0x0180}
0x0b3d0…0b3e4 Head {h00=0x0010, h01=0x0050, text=»* REGISTERS«, t00=0x0073, t01=0x0036}
0x0b3e4…0b3ee Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0073, t01=0x004a}
0x0b3ee…0b40c Head {h00=0x001a, h01=0x0050, text=»* A4= REL. CURSOR POS.«, t00=0x0073, t01=0x0054}
0x0b40c…0b42e Head {h00=0x001e, h01=0x0050, text=»* A5= REL. ATTRIBUTE POS. «, t00=0x0073, t01=0x0072}
0x0b42e…0b44c Head {h00=0x001a, h01=0x0050, text=»* A6= ATTRIBUTE CHAR. «, t00=0x0073, t01=0x0094}
0x0b44c…0b464 Head {h00=0x0014, h01=0x0050, text=»* A11= RESERVED «, t00=0x0073, t01=0x00b2}
0x0b464…0b47c Head {h00=0x0014, h01=0x0050, text=»* A13= RESERVED «, t00=0x0073, t01=0x00ca}
0x0b47c…0b486 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0073, t01=0x00e2}
0x0b486…0b4d2 Head {h00=0x0048, h01=0x0050, text=»******************************************************************* «, t00=0x0073, t01=0x00ec}
0x0b4d2…0b4e6 Head {h00=0x0010, h01=0x0050, text=»EREOF EQU * «, t00=0x0073, t01=0x0138}
0x0b4e6…0b514 Head {h00=0x002a, h01=0x0050, text=» CF A14,SCRINF GET SCREEN INFORMATION «, t00=0x0073, t01=0x014c}
0x0b514…0b540 Head {h00=0x0028, h01=0x0050, text=» CWK A5,LBVDU+1 UNFORMATTED SCREEN? «, t00=0x0073, t01=0x017a}
0x0b540…0b55a Head {h00=0x0016, h01=0x0050, text=» RF(E) ERE700 YES «, t00=0x0074, t01=0x0016}
0x0b55a…0b56c Head {h00=0x000e, h01=0x0050, text=» LDR A7,A6«, t00=0x0074, t01=0x0030}
0x0b56c…0b590 Head {h00=0x0020, h01=0x0050, text=» ANK A7,/20 PROTECTED FIELD?«, t00=0x0074, t01=0x0042}
0x0b590…0b5aa Head {h00=0x0016, h01=0x0050, text=» RF(NZ) ERE600 YES«, t00=0x0074, t01=0x0066}
0x0b5aa…0b5d4 Head {h00=0x0026, h01=0x0050, text=» CWR A5,A4 STANDING ON ATTRIBUTE? «, t00=0x0074, t01=0x0080}
0x0b5d4…0b5ee Head {h00=0x0016, h01=0x0050, text=» RF(E) ERE600 YES «, t00=0x0074, t01=0x00aa}
0x0b5ee…0b600 Head {h00=0x000e, h01=0x0050, text=» LDR A1,A4«, t00=0x0074, t01=0x00c4}
0x0b600…0b61c Head {h00=0x0018, h01=0x0050, text=» LDR A8,A6 SAVE OLD «, t00=0x0074, t01=0x00d6}
0x0b61c…0b638 Head {h00=0x0018, h01=0x0050, text=» LDR A9,A5 SAVE OLD «, t00=0x0074, t01=0x00f2}
0x0b638…0b668 Head {h00=0x002c, h01=0x0050, text=» CF A14,ATMASF SEARCH ATTRIBUTE FORWARD «, t00=0x0074, t01=0x010e}
0x0b668…0b67a Head {h00=0x000e, h01=0x0050, text=» LDR A3,A5«, t00=0x0074, t01=0x013e}
0x0b67a…0b68c Head {h00=0x000e, h01=0x0050, text=» LDR A6,A8«, t00=0x0074, t01=0x0150}
0x0b68c…0b69e Head {h00=0x000e, h01=0x0050, text=» LDR A5,A9«, t00=0x0074, t01=0x0162}
0x0b69e…0b6c8 Head {h00=0x0026, h01=0x0050, text=» ORK A6,1 SET MDT-BIT IN ATTRIBUTE«, t00=0x0074, t01=0x0174}
0x0b6c8…0b6da Head {h00=0x000e, h01=0x0050, text=» LDR A7,A6«, t00=0x0075, t01=0x000e}
0x0b6da…0b6ec Head {h00=0x000e, h01=0x0050, text=» LDR A1,A5«, t00=0x0075, t01=0x0020}
0x0b6ec…0b724 Head {h00=0x0034, h01=0x0050, text=» CF A14,STOVDU STORE NEW ATTRIBUTE IN VDU BUFFER«, t00=0x0075, t01=0x0032}
0x0b724…0b756 Head {h00=0x002e, h01=0x0050, text=» CF A14,STOINF SAVE NEW SCREEN INFORMATION«, t00=0x0075, t01=0x006a}
0x0b756…0b776 Head {h00=0x001c, h01=0x0050, text=» LDR A1,A3 STOP ADDRESS «, t00=0x0075, t01=0x009c}
0x0b776…0b788 Head {h00=0x000e, h01=0x0050, text=» RF ERE800«, t00=0x0075, t01=0x00bc}
0x0b788…0b79c Head {h00=0x0010, h01=0x0050, text=»ERE600 EQU *«, t00=0x0075, t01=0x00ce}
0x0b79c…0b7c0 Head {h00=0x0020, h01=0x0050, text=» CF A14,ERROR INDICATE ERROR«, t00=0x0075, t01=0x00e2}
0x0b7c0…0b7d2 Head {h00=0x000e, h01=0x0050, text=» RF ERE900«, t00=0x0075, t01=0x0106}
0x0b7d2…0b7e6 Head {h00=0x0010, h01=0x0050, text=»ERE700 EQU *«, t00=0x0075, t01=0x0118}
0x0b7e6…0b80e Head {h00=0x0024, h01=0x0050, text=» CF A14,LINE ERASE ONE LINE DK1 «, t00=0x0075, t01=0x012c}
0x0b80e…0b826 Head {h00=0x0014, h01=0x0050, text=» LDR A1,A5 DK1 «, t00=0x0075, t01=0x0154}
0x0b826…0b840 Head {h00=0x0016, h01=0x0050, text=» CWK A1,LBVDU DK1«, t00=0x0075, t01=0x016c}
0x0b840…0b85a Head {h00=0x0016, h01=0x0050, text=» RF(L) ERE710 DK1«, t00=0x0075, t01=0x0186}
0x0b85a…0b87c Head {h00=0x001e, h01=0x0050, text=» LDK A1,0 STOP ADDRESS =3 «, t00=0x0076, t01=0x0010}
0x0b87c…0b896 Head {h00=0x0016, h01=0x0050, text=»ERE710 EQU * DK1 «, t00=0x0076, t01=0x0032}
0x0b896…0b8b2 Head {h00=0x0018, h01=0x0050, text=» CF A14,SCRINF DK1 «, t00=0x0076, t01=0x004c}
0x0b8b2…0b8c6 Head {h00=0x0010, h01=0x0050, text=»ERE800 EQU *«, t00=0x0076, t01=0x0068}
0x0b8c6…0b8da Head {h00=0x0010, h01=0x0050, text=» SUR A10,A10«, t00=0x0076, t01=0x007c}
0x0b8da…0b90e Head {h00=0x0030, h01=0x0050, text=» CF A14,ERASUA ERASE UNPROTECTED TO ADDRESS «, t00=0x0076, t01=0x0090}
0x0b90e…0b93c Head {h00=0x002a, h01=0x0050, text=» CF A14,DISMOD DISPLAY MODIFIED FIELD «, t00=0x0076, t01=0x00c4}
0x0b93c…0b950 Head {h00=0x0010, h01=0x0050, text=»ERE900 EQU *«, t00=0x0076, t01=0x00f2}
0x0b950…0b960 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0076, t01=0x0106}
0x0b960…0b96e Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0076, t01=0x0116}
0x0b96e…0b9ba Head {h00=0x0048, h01=0x0050, text=»******************************************************************* «, t00=0x0076, t01=0x0124}
0x0b9ba…0ba06 Head {h00=0x0048, h01=0x0050, text=»* * «, t00=0x0076, t01=0x0170}
0x0ba06…0ba52 Head {h00=0x0048, h01=0x0050, text=»* ERINPT ERASE UNPROTECTED ENTIRE SCREEN * «, t00=0x0077, t01=0x002c}
0x0ba52…0ba9e Head {h00=0x0048, h01=0x0050, text=»* * «, t00=0x0077, t01=0x0078}
0x0ba9e…0baea Head {h00=0x0048, h01=0x0050, text=»******************************************************************* «, t00=0x0077, t01=0x00c4}
0x0baea…0bafe Head {h00=0x0010, h01=0x0050, text=»* REGISTERS«, t00=0x0077, t01=0x0110}
0x0bafe…0bb08 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0077, t01=0x0124}
0x0bb08…0bb26 Head {h00=0x001a, h01=0x0050, text=»* A4= REL. CURSOR POS.«, t00=0x0077, t01=0x012e}
0x0bb26…0bb48 Head {h00=0x001e, h01=0x0050, text=»* A5= REL. ATTRIBUTE POS. «, t00=0x0077, t01=0x014c}
0x0bb48…0bb66 Head {h00=0x001a, h01=0x0050, text=»* A6= ATTRIBUTE CHAR. «, t00=0x0077, t01=0x016e}
0x0bb66…0bb7e Head {h00=0x0014, h01=0x0050, text=»* A11= RESERVED «, t00=0x0077, t01=0x018c}
0x0bb7e…0bb96 Head {h00=0x0014, h01=0x0050, text=»* A13= RESERVED «, t00=0x0078, t01=0x0014}
0x0bb96…0bba0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0078, t01=0x002c}
0x0bba0…0bbec Head {h00=0x0048, h01=0x0050, text=»******************************************************************* «, t00=0x0078, t01=0x0036}
0x0bbec…0bc00 Head {h00=0x0010, h01=0x0050, text=»ERINPT EQU *«, t00=0x0078, t01=0x0082}
0x0bc00…0bc2e Head {h00=0x002a, h01=0x0050, text=» CF A14,SCRINF GET SCREEN INFORMATION «, t00=0x0078, t01=0x0096}
0x0bc2e…0bc5a Head {h00=0x0028, h01=0x0050, text=» CWK A5,LBVDU+1 UNFORMATTED SCREEN? «, t00=0x0078, t01=0x00c4}
0x0bc5a…0bc74 Head {h00=0x0016, h01=0x0050, text=» RF(NE) ERI100 NO «, t00=0x0078, t01=0x00f0}
0x0bc74…0bc9e Head {h00=0x0026, h01=0x0050, text=» CF A14,ERASE ERASE ENTIRE SCREEN «, t00=0x0078, t01=0x010a}
0x0bc9e…0bcb0 Head {h00=0x000e, h01=0x0050, text=» RF ERI900«, t00=0x0078, t01=0x0134}
0x0bcb0…0bcc4 Head {h00=0x0010, h01=0x0050, text=»ERI100 EQU *«, t00=0x0078, t01=0x0146}
0x0bcc4…0bcf0 Head {h00=0x0028, h01=0x0050, text=» CF A14,ERASUP ERASE ALL UNPROTECTED«, t00=0x0078, t01=0x015a}
0x0bcf0…0bd1c Head {h00=0x0028, h01=0x0050, text=» CF A14,DISMOD DISPLAY ERASED FIELDS«, t00=0x0078, t01=0x0186}
0x0bd1c…0bd54 Head {h00=0x0034, h01=0x0050, text=» CF A14,RDHOME TAB. UNPROTECTED FIRST ON SCREEN «, t00=0x0079, t01=0x0022}
0x0bd54…0bd68 Head {h00=0x0010, h01=0x0050, text=»ERI900 EQU *«, t00=0x0079, t01=0x005a}
0x0bd68…0bd78 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0079, t01=0x006e}
0x0bd78…0bd86 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0079, t01=0x007e}
0x0bd86…0bd9a Head {h00=0x0010, h01=0x0050, text=» IFT IN:DL=1«, t00=0x0079, t01=0x008c}
0x0bd9a…0bdda Head {h00=0x003c, h01=0x0050, text=»********************************************************«, t00=0x0079, t01=0x00a0}
0x0bdda…0be1a Head {h00=0x003c, h01=0x0050, text=»* *«, t00=0x0079, t01=0x00e0}
0x0be1a…0be5a Head {h00=0x003c, h01=0x0050, text=»* INSERT INSERT KEY HANDLING *«, t00=0x0079, t01=0x0120}
0x0be5a…0be9a Head {h00=0x003c, h01=0x0050, text=»* *«, t00=0x0079, t01=0x0160}
0x0be9a…0beda Head {h00=0x003c, h01=0x0050, text=»********************************************************«, t00=0x007a, t01=0x0010}
0x0beda…0beee Head {h00=0x0010, h01=0x0050, text=»* REGISTERS«, t00=0x007a, t01=0x0050}
0x0beee…0bef8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x007a, t01=0x0064}
0x0bef8…0bf18 Head {h00=0x001c, h01=0x0050, text=»* A11= CREDIT WORK AREA «, t00=0x007a, t01=0x006e}
0x0bf18…0bf30 Head {h00=0x0014, h01=0x0050, text=»* A13= RESERVED «, t00=0x007a, t01=0x008e}
0x0bf30…0bf3a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x007a, t01=0x00a6}
0x0bf3a…0bf76 Head {h00=0x0038, h01=0x0050, text=»*************************************************** «, t00=0x007a, t01=0x00b0}
0x0bf76…0bf8a Head {h00=0x0010, h01=0x0050, text=»INSERT EQU *«, t00=0x007a, t01=0x00ec}
0x0bf8a…0bfae Head {h00=0x0020, h01=0x0050, text=» IM MODE,A11 SET INSERT MODE«, t00=0x007a, t01=0x0100}
0x0bfae…0bfbe Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x007a, t01=0x0124}
0x0bfbe…0bfcc Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x007a, t01=0x0134}
0x0bfcc…0c00a Head {h00=0x003a, h01=0x0050, text=»******************************************************«, t00=0x007a, t01=0x0142}
0x0c00a…0c048 Head {h00=0x003a, h01=0x0050, text=»* *«, t00=0x007a, t01=0x0180}
0x0c048…0c086 Head {h00=0x003a, h01=0x0050, text=»* DELETE DELETE CHAR. HANDLING *«, t00=0x007b, t01=0x002e}
0x0c086…0c0c4 Head {h00=0x003a, h01=0x0050, text=»* *«, t00=0x007b, t01=0x006c}
0x0c0c4…0c104 Head {h00=0x003c, h01=0x0050, text=»******************************************************* «, t00=0x007b, t01=0x00aa}
0x0c104…0c118 Head {h00=0x0010, h01=0x0050, text=»* REGISTERS«, t00=0x007b, t01=0x00ea}
0x0c118…0c122 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x007b, t01=0x00fe}
0x0c122…0c140 Head {h00=0x001a, h01=0x0050, text=»* A4= REL. CURSOR POS.«, t00=0x007b, t01=0x0108}
0x0c140…0c162 Head {h00=0x001e, h01=0x0050, text=»* A5= REL. ATTRIBUTE POS. «, t00=0x007b, t01=0x0126}
0x0c162…0c180 Head {h00=0x001a, h01=0x0050, text=»* A6= ATTRIBUTE CHAR. «, t00=0x007b, t01=0x0148}
0x0c180…0c1a0 Head {h00=0x001c, h01=0x0050, text=»* A11= CREDIT WORK AREA «, t00=0x007b, t01=0x0166}
0x0c1a0…0c1b8 Head {h00=0x0014, h01=0x0050, text=»* A13= RESERVED «, t00=0x007b, t01=0x0186}
0x0c1b8…0c1c2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x007c, t01=0x000e}
0x0c1c2…0c202 Head {h00=0x003c, h01=0x0050, text=»******************************************************* «, t00=0x007c, t01=0x0018}
0x0c202…0c216 Head {h00=0x0010, h01=0x0050, text=»DELETE EQU *«, t00=0x007c, t01=0x0058}
0x0c216…0c244 Head {h00=0x002a, h01=0x0050, text=» CF A14,SCRINF GET SCREEN INFORMATION «, t00=0x007c, t01=0x006c}
0x0c244…0c258 Head {h00=0x0010, h01=0x0050, text=» LDKL A3,-1 «, t00=0x007c, t01=0x009a}
0x0c258…0c26c Head {h00=0x0010, h01=0x0050, text=»DEL025 EQU *«, t00=0x007c, t01=0x00ae}
0x0c26c…0c282 Head {h00=0x0012, h01=0x0050, text=» ADK A3,LLINE «, t00=0x007c, t01=0x00c2}
0x0c282…0c2b0 Head {h00=0x002a, h01=0x0050, text=» CWR A3,A4 LAST POS. ON CURRENT LINE? «, t00=0x007c, t01=0x00d8}
0x0c2b0…0c2c8 Head {h00=0x0014, h01=0x0050, text=» RB(L) DEL025 NO«, t00=0x007c, t01=0x0106}
0x0c2c8…0c2f4 Head {h00=0x0028, h01=0x0050, text=» CWK A5,LBVDU+1 UNFORMATTED SCREEN? «, t00=0x007c, t01=0x011e}
0x0c2f4…0c30e Head {h00=0x0016, h01=0x0050, text=» RF(E) DEL200 YES «, t00=0x007c, t01=0x014a}
0x0c30e…0c338 Head {h00=0x0026, h01=0x0050, text=» CWR A4,A5 STANDING ON ATTRIBUTE? «, t00=0x007c, t01=0x0164}
0x0c338…0c352 Head {h00=0x0016, h01=0x0050, text=» RF(E) DEL700 YES «, t00=0x007c, t01=0x018e}
0x0c352…0c364 Head {h00=0x000e, h01=0x0050, text=» LDR A7,A6«, t00=0x007d, t01=0x0018}
0x0c364…0c382 Head {h00=0x001a, h01=0x0050, text=» ANK A7,/20 PROTECTED?«, t00=0x007d, t01=0x002a}
0x0c382…0c39c Head {h00=0x0016, h01=0x0050, text=» RF(NZ) DEL700 YES«, t00=0x007d, t01=0x0048}
0x0c39c…0c3ba Head {h00=0x001a, h01=0x0050, text=» ORK A6,1 SET MDT-BIT «, t00=0x007d, t01=0x0062}
0x0c3ba…0c3cc Head {h00=0x000e, h01=0x0050, text=» LDR A7,A6«, t00=0x007d, t01=0x0080}
0x0c3cc…0c3de Head {h00=0x000e, h01=0x0050, text=» LDR A1,A5«, t00=0x007d, t01=0x0092}
0x0c3de…0c408 Head {h00=0x0026, h01=0x0050, text=» CF A14,STOVDU SAVE NEW ATTRIBUTE «, t00=0x007d, t01=0x00a4}
0x0c408…0c424 Head {h00=0x0018, h01=0x0050, text=» LDR A8,A6 SAVE OLD «, t00=0x007d, t01=0x00ce}
0x0c424…0c440 Head {h00=0x0018, h01=0x0050, text=» LDR A9,A5 SAVE OLD «, t00=0x007d, t01=0x00ea}
0x0c440…0c470 Head {h00=0x002c, h01=0x0050, text=» CF A14,ATMASF SEARCH ATTRIBUTE FORWARD «, t00=0x007d, t01=0x0106}
0x0c470…0c482 Head {h00=0x000e, h01=0x0050, text=» LDR A1,A5«, t00=0x007d, t01=0x0136}
0x0c482…0c494 Head {h00=0x000e, h01=0x0050, text=» LDR A6,A8«, t00=0x007d, t01=0x0148}
0x0c494…0c4a6 Head {h00=0x000e, h01=0x0050, text=» LDR A5,A9«, t00=0x007d, t01=0x015a}
0x0c4a6…0c4d4 Head {h00=0x002a, h01=0x0050, text=» CF A14,STOINF SAVE SCREEN INFORMATION«, t00=0x007d, t01=0x016c}
0x0c4d4…0c504 Head {h00=0x002c, h01=0x0050, text=» CWR A3,A1 ATTRIBUTE BEFOR END OF LINE? «, t00=0x007e, t01=0x000a}
0x0c504…0c51e Head {h00=0x0016, h01=0x0050, text=» RF(NG) DEL200 NO «, t00=0x007e, t01=0x003a}
0x0c51e…0c530 Head {h00=0x000e, h01=0x0050, text=» LDR A3,A1«, t00=0x007e, t01=0x0054}
0x0c530…0c544 Head {h00=0x0010, h01=0x0050, text=»DEL200 EQU *«, t00=0x007e, t01=0x0066}
0x0c544…0c556 Head {h00=0x000e, h01=0x0050, text=» LDR A1,A4«, t00=0x007e, t01=0x007a}
0x0c556…0c56a Head {h00=0x0010, h01=0x0050, text=»DEL300 EQU *«, t00=0x007e, t01=0x008c}
0x0c56a…0c57c Head {h00=0x000e, h01=0x0050, text=» ADK A1,1 «, t00=0x007e, t01=0x00a0}
0x0c57c…0c5ac Head {h00=0x002c, h01=0x0050, text=» CF A14,GETVDU GET CHAR. IN VDU BUFFER «, t00=0x007e, t01=0x00b2}
0x0c5ac…0c5be Head {h00=0x000e, h01=0x0050, text=» SUK A1,1 «, t00=0x007e, t01=0x00e2}
0x0c5be…0c5ee Head {h00=0x002c, h01=0x0050, text=» CF A14,STOVDU STORE CHAR. IN VDU BUFFER«, t00=0x007e, t01=0x00f4}
0x0c5ee…0c600 Head {h00=0x000e, h01=0x0050, text=» ADK A1,1 «, t00=0x007e, t01=0x0124}
0x0c600…0c620 Head {h00=0x001c, h01=0x0050, text=» CWR A1,A3 ALL SHIFTED? «, t00=0x007e, t01=0x0136}
0x0c620…0c63a Head {h00=0x0016, h01=0x0050, text=» RB(NE) DEL300 NO «, t00=0x007e, t01=0x0156}
0x0c63a…0c65e Head {h00=0x0020, h01=0x0050, text=» LDK A7,NULL GET NULL CHAR. «, t00=0x007e, t01=0x0170}
0x0c65e…0c692 (127, 0, 400) Head {h00=0x0030, h01=0x0050, text=» CF A14,STOVDU STORE NULL CHAR IN VDU BUFFER«, t00=0x007f, t01=0x0004}
0x0c692…0c6a8 Head {h00=0x0012, h01=0x0050, text=» CF A14,SAVE1 «, t00=0x007f, t01=0x0038}
0x0c6a8…0c6be Head {h00=0x0012, h01=0x0050, text=» LDK A5,LLINE «, t00=0x007f, t01=0x004e}
0x0c6be…0c6d2 Head {h00=0x0010, h01=0x0050, text=» LDR A6,A11 «, t00=0x007f, t01=0x0064}
0x0c6d2…0c6e6 Head {h00=0x0010, h01=0x0050, text=» SUR A10,A10«, t00=0x007f, t01=0x0078}
0x0c6e6…0c708 Head {h00=0x001e, h01=0x0050, text=» CF A14,LINE GET LINE FLAG«, t00=0x007f, t01=0x008c}
0x0c708…0c720 Head {h00=0x0014, h01=0x0050, text=» LC A1,LINFLG,A6«, t00=0x007f, t01=0x00ae}
0x0c720…0c732 Head {h00=0x000e, h01=0x0050, text=» ORK A1,1 «, t00=0x007f, t01=0x00c6}
0x0c732…0c74a Head {h00=0x0014, h01=0x0050, text=» SC A1,LINFLG,A6«, t00=0x007f, t01=0x00d8}
0x0c74a…0c760 Head {h00=0x0012, h01=0x0050, text=» CF A14,REST1 «, t00=0x007f, t01=0x00f0}
0x0c760…0c78c Head {h00=0x0028, h01=0x0050, text=» CF A14,DISMOD DISPLAY MODIFIED LINE«, t00=0x007f, t01=0x0106}
0x0c78c…0c79e Head {h00=0x000e, h01=0x0050, text=» RF DEL900«, t00=0x007f, t01=0x0132}
0x0c79e…0c7b2 Head {h00=0x0010, h01=0x0050, text=»DEL700 EQU *«, t00=0x007f, t01=0x0144}
0x0c7b2…0c7d6 Head {h00=0x0020, h01=0x0050, text=» CF A14,ERROR INDICATE ERROR«, t00=0x007f, t01=0x0158}
0x0c7d6…0c7ea Head {h00=0x0010, h01=0x0050, text=»DEL900 EQU *«, t00=0x007f, t01=0x017c}
0x0c7ea…0c7fa Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x007f, t01=0x0190}
0x0c7fa…0c806 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0080, t01=0x0010}
0x0c806…0c814 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0080, t01=0x001c}
0x0c814…0c854 Head {h00=0x003c, h01=0x0050, text=»********************************************************«, t00=0x0080, t01=0x002a}
0x0c854…0c894 Head {h00=0x003c, h01=0x0050, text=»* *«, t00=0x0080, t01=0x006a}
0x0c894…0c8d4 Head {h00=0x003c, h01=0x0050, text=»* RESET RESET KEY HANDLING *«, t00=0x0080, t01=0x00aa}
0x0c8d4…0c914 Head {h00=0x003c, h01=0x0050, text=»* *«, t00=0x0080, t01=0x00ea}
0x0c914…0c954 Head {h00=0x003c, h01=0x0050, text=»********************************************************«, t00=0x0080, t01=0x012a}
0x0c954…0c968 Head {h00=0x0010, h01=0x0050, text=»* REGISTERS«, t00=0x0080, t01=0x016a}
0x0c968…0c972 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0080, t01=0x017e}
0x0c972…0c992 Head {h00=0x001c, h01=0x0050, text=»* A11= CREDIT WORK AREA «, t00=0x0080, t01=0x0188}
0x0c992…0c9aa Head {h00=0x0014, h01=0x0050, text=»* A13= RESERVED «, t00=0x0081, t01=0x0018}
0x0c9aa…0c9b4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0081, t01=0x0030}
0x0c9b4…0c9f0 Head {h00=0x0038, h01=0x0050, text=»****************************************************«, t00=0x0081, t01=0x003a}
0x0c9f0…0ca04 Head {h00=0x0010, h01=0x0050, text=»RESET EQU * «, t00=0x0081, t01=0x0076}
0x0ca04…0ca2a Head {h00=0x0022, h01=0x0050, text=» CM MODE,A11 RESET INSERT MODE«, t00=0x0081, t01=0x008a}
0x0ca2a…0ca58 Head {h00=0x002a, h01=0x0050, text=» CF A14,LMP6OF TURN OFF "INSERT" LAMP «, t00=0x0081, t01=0x00b0}
0x0ca58…0ca80 Head {h00=0x0024, h01=0x0050, text=» CM KBINH,A11 RESSTORE KEYBOARD «, t00=0x0081, t01=0x00de}
0x0ca80…0caac Head {h00=0x0028, h01=0x0050, text=» CF A14,LMP4OF TURN OFF 'ERROR' LAMP«, t00=0x0081, t01=0x0106}
0x0caac…0cae4 Head {h00=0x0034, h01=0x0050, text=» CF A14,LMP3OF TURN OFF 'KEYBOARD INHIBIT' LAMP «, t00=0x0081, t01=0x0132}
0x0cae4…0caf4 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0081, t01=0x016a}
0x0caf4…0cb02 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0081, t01=0x017a}
0x0cb02…0cb46 Head {h00=0x0040, h01=0x0050, text=»*********************************************************** «, t00=0x0081, t01=0x0188}
0x0cb46…0cb8a Head {h00=0x0040, h01=0x0050, text=»* * «, t00=0x0082, t01=0x003c}
0x0cb8a…0cbce Head {h00=0x0040, h01=0x0050, text=»* DUP DUPLICATE KEY * «, t00=0x0082, t01=0x0080}
0x0cbce…0cc12 Head {h00=0x0040, h01=0x0050, text=»* * «, t00=0x0082, t01=0x00c4}
0x0cc12…0cc56 Head {h00=0x0040, h01=0x0050, text=»*********************************************************** «, t00=0x0082, t01=0x0108}
0x0cc56…0cc6a Head {h00=0x0010, h01=0x0050, text=»* REGISTERS«, t00=0x0082, t01=0x014c}
0x0cc6a…0cc74 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0082, t01=0x0160}
0x0cc74…0cc8a Head {h00=0x0012, h01=0x0050, text=»* A2= KEY-CHAR«, t00=0x0082, t01=0x016a}
0x0cc8a…0cca2 Head {h00=0x0014, h01=0x0050, text=»* A11= RESERVED «, t00=0x0082, t01=0x0180}
0x0cca2…0ccba Head {h00=0x0014, h01=0x0050, text=»* A13= RESERVED «, t00=0x0083, t01=0x0008}
0x0ccba…0ccc4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0083, t01=0x0020}
0x0ccc4…0cd08 Head {h00=0x0040, h01=0x0050, text=»************************************************************«, t00=0x0083, t01=0x002a}
0x0cd08…0cd1a Head {h00=0x000e, h01=0x0050, text=»DUP EQU * «, t00=0x0083, t01=0x006e}
0x0cd1a…0cd3e Head {h00=0x0020, h01=0x0050, text=» LDK A2,DUPCH GET DUP CHAR. «, t00=0x0083, t01=0x0080}
0x0cd3e…0cd52 Head {h00=0x0010, h01=0x0050, text=» CF A14,NUM «, t00=0x0083, t01=0x00a4}
0x0cd52…0cd66 Head {h00=0x0010, h01=0x0050, text=» CF A14,TAB «, t00=0x0083, t01=0x00b8}
0x0cd66…0cd76 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0083, t01=0x00cc}
0x0cd76…0cd84 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0083, t01=0x00dc}
0x0cd84…0cdc8 Head {h00=0x0040, h01=0x0050, text=»*********************************************************** «, t00=0x0083, t01=0x00ea}
0x0cdc8…0ce0c Head {h00=0x0040, h01=0x0050, text=»* * «, t00=0x0083, t01=0x012e}
0x0ce0c…0ce50 Head {h00=0x0040, h01=0x0050, text=»* FLDMRK FIELD MARK KEY * «, t00=0x0083, t01=0x0172}
0x0ce50…0ce94 Head {h00=0x0040, h01=0x0050, text=»* * «, t00=0x0084, t01=0x0026}
0x0ce94…0ced8 Head {h00=0x0040, h01=0x0050, text=»*********************************************************** «, t00=0x0084, t01=0x006a}
0x0ced8…0ceec Head {h00=0x0010, h01=0x0050, text=»* REGISTERS«, t00=0x0084, t01=0x00ae}
0x0ceec…0cef6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0084, t01=0x00c2}
0x0cef6…0cf0c Head {h00=0x0012, h01=0x0050, text=»* A2= KEY-CHAR«, t00=0x0084, t01=0x00cc}
0x0cf0c…0cf24 Head {h00=0x0014, h01=0x0050, text=»* A11= RESERVED «, t00=0x0084, t01=0x00e2}
0x0cf24…0cf3c Head {h00=0x0014, h01=0x0050, text=»* A13= RESERVED «, t00=0x0084, t01=0x00fa}
0x0cf3c…0cf46 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0084, t01=0x0112}
0x0cf46…0cf8a Head {h00=0x0040, h01=0x0050, text=»*********************************************************** «, t00=0x0084, t01=0x011c}
0x0cf8a…0cf9e Head {h00=0x0010, h01=0x0050, text=»FLDMRK EQU *«, t00=0x0084, t01=0x0160}
0x0cf9e…0cfc8 Head {h00=0x0026, h01=0x0050, text=» LDK A2,FMCH GET FIELD MARK CHAR. «, t00=0x0084, t01=0x0174}
0x0cfc8…0cfdc Head {h00=0x0010, h01=0x0050, text=» CF A14,NUM «, t00=0x0085, t01=0x000e}
0x0cfdc…0cfec Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0085, t01=0x0022}
0x0cfec…0cffa Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0085, t01=0x0032}
0x0cffa…0d042 Head {h00=0x0044, h01=0x0050, text=»*************************************************************** «, t00=0x0085, t01=0x0040}
0x0d042…0d04c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0085, t01=0x0088}
0x0d04c…0d076 Head {h00=0x0026, h01=0x0050, text=»* Z E R O : 3 TRIPLE ZERO KEY«, t00=0x0085, t01=0x0092}
0x0d076…0d0a2 Head {h00=0x0028, h01=0x0050, text=»* Z E R O : 2 DOUBLE ZERO KEY «, t00=0x0085, t01=0x00bc}
0x0d0a2…0d0ac Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0085, t01=0x00e8}
0x0d0ac…0d0e6 Head {h00=0x0036, h01=0x0050, text=»************************************************* «, t00=0x0085, t01=0x00f2}
0x0d0e6…0d0fa Head {h00=0x0010, h01=0x0050, text=»* REGISTERS«, t00=0x0085, t01=0x012c}
0x0d0fa…0d104 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0085, t01=0x0140}
0x0d104…0d11a Head {h00=0x0012, h01=0x0050, text=»* A2= KEY-CHAR«, t00=0x0085, t01=0x014a}
0x0d11a…0d132 Head {h00=0x0014, h01=0x0050, text=»* A11= RESERVED «, t00=0x0085, t01=0x0160}
0x0d132…0d14a Head {h00=0x0014, h01=0x0050, text=»* A13= RESERVED «, t00=0x0085, t01=0x0178}
0x0d14a…0d154 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0085, t01=0x0190}
0x0d154…0d196 Head {h00=0x003e, h01=0x0050, text=»********************************************************* «, t00=0x0086, t01=0x000a}
0x0d196…0d19e Head {h00=0x0004, h01=0x0050, t00=0x0086, t01=0x004c}
0x0d19e…0d1b2 Head {h00=0x0010, h01=0x0050, text=»ZERO:3 EQU *«, t00=0x0086, t01=0x0054}
0x0d1b2…0d1d0 Head {h00=0x001a, h01=0x0050, text=» LDK A2,/30 ZERO CHAR.«, t00=0x0086, t01=0x0068}
0x0d1d0…0d1f6 Head {h00=0x0022, h01=0x0050, text=» CF A14,NUM DISPLAY CHARACTER «, t00=0x0086, t01=0x0086}
0x0d1f6…0d20a Head {h00=0x0010, h01=0x0050, text=»ZERO:2 EQU *«, t00=0x0086, t01=0x00ac}
0x0d20a…0d228 Head {h00=0x001a, h01=0x0050, text=» LDK A2,/30 ZERO CHAR.«, t00=0x0086, t01=0x00c0}
0x0d228…0d24e Head {h00=0x0022, h01=0x0050, text=» CF A14,NUM DISPLAY CHARACTER «, t00=0x0086, t01=0x00de}
0x0d24e…0d262 Head {h00=0x0010, h01=0x0050, text=» LDK A2,/30 «, t00=0x0086, t01=0x0104}
0x0d262…0d288 Head {h00=0x0022, h01=0x0050, text=» CF A14,NUM DISPLAY CHARACTER «, t00=0x0086, t01=0x0118}
0x0d288…0d2a0 Head {h00=0x0014, h01=0x0050, text=» RTN A14 RETURN «, t00=0x0086, t01=0x013e}
0x0d2a0…0d2ae Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0086, t01=0x0156}
0x0d2ae…0d2c2 Head {h00=0x0010, h01=0x0050, text=» IFT OFLIN=1«, t00=0x0086, t01=0x0164}
0x0d2c2…0d302 Head {h00=0x003c, h01=0x0050, text=»********************************************************«, t00=0x0086, t01=0x0178}
0x0d302…0d342 Head {h00=0x003c, h01=0x0050, text=»* *«, t00=0x0087, t01=0x0028}
0x0d342…0d382 Head {h00=0x003c, h01=0x0050, text=»* OFLINE OFFLINE KEY HANDLING *«, t00=0x0087, t01=0x0068}
0x0d382…0d3c2 Head {h00=0x003c, h01=0x0050, text=»* *«, t00=0x0087, t01=0x00a8}
0x0d3c2…0d402 Head {h00=0x003c, h01=0x0050, text=»********************************************************«, t00=0x0087, t01=0x00e8}
0x0d402…0d416 Head {h00=0x0010, h01=0x0050, text=»* REGISTERS«, t00=0x0087, t01=0x0128}
0x0d416…0d420 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0087, t01=0x013c}
0x0d420…0d440 Head {h00=0x001c, h01=0x0050, text=»* A11= CREDIT WORK AREA «, t00=0x0087, t01=0x0146}
0x0d440…0d458 Head {h00=0x0014, h01=0x0050, text=»* A13= RESERVED «, t00=0x0087, t01=0x0166}
0x0d458…0d462 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0087, t01=0x017e}
0x0d462…0d4a2 Head {h00=0x003c, h01=0x0050, text=»******************************************************* «, t00=0x0087, t01=0x0188}
0x0d4a2…0d4b6 Head {h00=0x0010, h01=0x0050, text=»OFLINE EQU *«, t00=0x0088, t01=0x0038}
0x0d4b6…0d4cc Head {h00=0x0012, h01=0x0050, text=» CF A14,CLEAR «, t00=0x0088, t01=0x004c}
0x0d4cc…0d4e2 Head {h00=0x0012, h01=0x0050, text=» CF A14,RESET «, t00=0x0088, t01=0x0062}
0x0d4e2…0d510 Head {h00=0x002a, h01=0x0050, text=» CF A14,DCOFLN INDICATE OFFLINE TO DC «, t00=0x0088, t01=0x0078}
0x0d510…0d53c Head {h00=0x0028, h01=0x0050, text=» CF A14,LMP6ON TURN ON OFFLINE LAMP «, t00=0x0088, t01=0x00a6}
0x0d53c…0d564 Head {h00=0x0024, h01=0x0050, text=» IM OFFFLG,A11 SET OFFLINE FLAG «, t00=0x0088, t01=0x00d2}
0x0d564…0d58c Head {h00=0x0024, h01=0x0050, text=» ADKL A14,4 SKIP ONE STACK LEVEL«, t00=0x0088, t01=0x00fa}
0x0d58c…0d5ba Head {h00=0x002a, h01=0x0050, text=» LD A13,2,A14 RELOAD REGISTERS A12-A13«, t00=0x0088, t01=0x0122}
0x0d5ba…0d5d0 Head {h00=0x0012, h01=0x0050, text=» LD A12,4,A14 «, t00=0x0088, t01=0x0150}
0x0d5d0…0d5f8 Head {h00=0x0024, h01=0x0050, text=» ADKL A14,4 UPDATE STACK POINTER«, t00=0x0088, t01=0x0166}
0x0d5f8…0d626 Head {h00=0x002a, h01=0x0050, text=» ABL I:RT1 RETURN TO "OFFLINE" PROGRAM«, t00=0x0088, t01=0x018e}
0x0d626…0d632 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0089, t01=0x002c}
0x0d632…0d640 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0089, t01=0x0038}
0x0d640…0d682 Head {h00=0x003e, h01=0x0050, text=»********************************************************* «, t00=0x0089, t01=0x0046}
0x0d682…0d6c4 Head {h00=0x003e, h01=0x0050, text=»* * «, t00=0x0089, t01=0x0088}
0x0d6c4…0d706 Head {h00=0x003e, h01=0x0050, text=»* MFCHGE MAIN FRAME CHANGE * «, t00=0x0089, t01=0x00ca}
0x0d706…0d748 Head {h00=0x003e, h01=0x0050, text=»* * «, t00=0x0089, t01=0x010c}
0x0d748…0d78a Head {h00=0x003e, h01=0x0050, text=»********************************************************* «, t00=0x0089, t01=0x014e}
0x0d78a…0d79e Head {h00=0x0010, h01=0x0050, text=»* REGISTERS«, t00=0x0089, t01=0x0190}
0x0d79e…0d7a8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x008a, t01=0x0014}
0x0d7a8…0d7c8 Head {h00=0x001c, h01=0x0050, text=»* A11= CREDIT WORK AREA «, t00=0x008a, t01=0x001e}
0x0d7c8…0d7e0 Head {h00=0x0014, h01=0x0050, text=»* A13= RESERVED «, t00=0x008a, t01=0x003e}
0x0d7e0…0d7ea Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x008a, t01=0x0056}
0x0d7ea…0d82a Head {h00=0x003c, h01=0x0050, text=»******************************************************* «, t00=0x008a, t01=0x0060}
0x0d82a…0d840 Head {h00=0x0012, h01=0x0050, text=» IFT NBRLIN=2 «, t00=0x008a, t01=0x00a0}
0x0d840…0d854 Head {h00=0x0010, h01=0x0050, text=»MFCHGE EQU *«, t00=0x008a, t01=0x00b6}
0x0d854…0d86a Head {h00=0x0012, h01=0x0050, text=» CF A14,CLEAR «, t00=0x008a, t01=0x00ca}
0x0d86a…0d880 Head {h00=0x0012, h01=0x0050, text=» CF A14,RESET «, t00=0x008a, t01=0x00e0}
0x0d880…0d896 Head {h00=0x0012, h01=0x0050, text=» CF A14,LMP1OF«, t00=0x008a, t01=0x00f6}
0x0d896…0d8ac Head {h00=0x0012, h01=0x0050, text=» CF A14,LMP2OF«, t00=0x008a, t01=0x010c}
0x0d8ac…0d8c2 Head {h00=0x0012, h01=0x0050, text=» CF A14,LMP3OF«, t00=0x008a, t01=0x0122}
0x0d8c2…0d8f2 Head {h00=0x002c, h01=0x0050, text=» CF A14,DISCON DISCONNECT ON OLD LINE =2«, t00=0x008a, t01=0x0138}
0x0d8f2…0d908 Head {h00=0x0012, h01=0x0050, text=» LDK A1,1 . =2«, t00=0x008a, t01=0x0168}
0x0d908…0d93a Head {h00=0x002e, h01=0x0050, text=» XRS A1,MAIN,A11 IND MAIN FRAME CHANGE =2 «, t00=0x008a, t01=0x017e}
0x0d93a…0d950 Head {h00=0x0012, h01=0x0050, text=» RF(NZ) MFCH10«, t00=0x008b, t01=0x0020}
0x0d950…0d966 Head {h00=0x0012, h01=0x0050, text=» CF A14,LMP1ON«, t00=0x008b, t01=0x0036}
0x0d966…0d978 Head {h00=0x000e, h01=0x0050, text=» RF MFCH90«, t00=0x008b, t01=0x004c}
0x0d978…0d98c Head {h00=0x0010, h01=0x0050, text=»MFCH10 EQU *«, t00=0x008b, t01=0x005e}
0x0d98c…0d9a2 Head {h00=0x0012, h01=0x0050, text=» CF A14,LMP2ON«, t00=0x008b, t01=0x0072}
0x0d9a2…0d9b6 Head {h00=0x0010, h01=0x0050, text=»MFCH90 EQU *«, t00=0x008b, t01=0x0088}
0x0d9b6…0d9c6 Head {h00=0x000c, h01=0x0050, text=» . =2 «, t00=0x008b, t01=0x009c}
0x0d9c6…0d9f2 Head {h00=0x0028, h01=0x0050, text=» CF A14,CONCT CONNECT ON NEW LINE =2«, t00=0x008b, t01=0x00ac}
0x0d9f2…0da1a Head {h00=0x0024, h01=0x0050, text=» CF A14,CHKSTA CHECK LINE STATUS«, t00=0x008b, t01=0x00d8}
0x0da1a…0da2a Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x008b, t01=0x0100}
0x0da2a…0da36 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x008b, t01=0x0110}
0x0da36…0da44 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x008b, t01=0x011c}
0x0da44…0da88 Head {h00=0x0040, h01=0x0050, text=»*********************************************************** «, t00=0x008b, t01=0x012a}
0x0da88…0dacc Head {h00=0x0040, h01=0x0050, text=»* * «, t00=0x008b, t01=0x016e}
0x0dacc…0db10 Head {h00=0x0040, h01=0x0050, text=»* COPY LOCAL HARDCOPY * «, t00=0x008c, t01=0x0022}
0x0db10…0db54 Head {h00=0x0040, h01=0x0050, text=»* * «, t00=0x008c, t01=0x0066}
0x0db54…0db98 Head {h00=0x0040, h01=0x0050, text=»*********************************************************** «, t00=0x008c, t01=0x00aa}
0x0db98…0dbb6 Head {h00=0x001a, h01=0x0050, text=»* REGISTERS«, t00=0x008c, t01=0x00ee}
0x0dbb6…0dbc0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x008c, t01=0x010c}
0x0dbc0…0dbe0 Head {h00=0x001c, h01=0x0050, text=»* A11= CREDIT WORK AREA «, t00=0x008c, t01=0x0116}
0x0dbe0…0dbfa Head {h00=0x0016, h01=0x0050, text=»* A13= T:A ADDRESS«, t00=0x008c, t01=0x0136}
0x0dbfa…0dc04 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x008c, t01=0x0150}
0x0dc04…0dc4a Head {h00=0x0042, h01=0x0050, text=»************************************************************* «, t00=0x008c, t01=0x015a}
0x0dc4a…0dc5c Head {h00=0x000e, h01=0x0050, text=»COPY EQU *«, t00=0x008d, t01=0x0010}
0x0dc5c…0dc76 Head {h00=0x0016, h01=0x0050, text=» LD A1,SNAMOD,A11 «, t00=0x008d, t01=0x0022}
0x0dc76…0dcac Head {h00=0x0032, h01=0x0050, text=» ANKL A1,HCPMOD HARDCOPY ALREADY OUTSTANDING? «, t00=0x008d, t01=0x003c}
0x0dcac…0dcd4 Head {h00=0x0024, h01=0x0050, text=» RF(NZ) COPY80 YES,WAIT A WHILE «, t00=0x008d, t01=0x0072}
0x0dcd4…0dcec Head {h00=0x0014, h01=0x0050, text=» LD A1,PRTID,A11«, t00=0x008d, t01=0x009a}
0x0dcec…0dd16 Head {h00=0x0026, h01=0x0050, text=» RF(Z) COPY80 PRINTER NOT ASSIGNED«, t00=0x008d, t01=0x00b2}
0x0dd16…0dd4c Head {h00=0x0032, h01=0x0050, text=» ANK A1,/FF CHECK IF PRINTER OK IN TASK TABLE «, t00=0x008d, t01=0x00dc}
0x0dd4c…0dd60 Head {h00=0x0010, h01=0x0050, text=» SUK A1,/30 «, t00=0x008d, t01=0x0112}
0x0dd60…0dd72 Head {h00=0x000e, h01=0x0050, text=» SLL A1,2 «, t00=0x008d, t01=0x0126}
0x0dd72…0dd88 Head {h00=0x0012, h01=0x0050, text=» LDK A3,TSKTAB«, t00=0x008d, t01=0x0138}
0x0dd88…0ddae Head {h00=0x0022, h01=0x0050, text=» LD A4,+6,A13 GET COMMON AREA «, t00=0x008d, t01=0x014e}
0x0ddae…0ddc0 Head {h00=0x000e, h01=0x0050, text=» ADR A3,A4«, t00=0x008d, t01=0x0174}
0x0ddc0…0ddea Head {h00=0x0026, h01=0x0050, text=» ADR A3,A1 PRINTER ASSIGNED FOUND «, t00=0x008d, t01=0x0186}
0x0ddea…0ddfe Head {h00=0x0010, h01=0x0050, text=» LC A1,+3,A3«, t00=0x008e, t01=0x0020}
0x0ddfe…0de1e Head {h00=0x001c, h01=0x0050, text=» ANK A1,/FF PRINTER OK? «, t00=0x008e, t01=0x0034}
0x0de1e…0de38 Head {h00=0x0016, h01=0x0050, text=» RF(Z) COPY10 YES «, t00=0x008e, t01=0x0054}
0x0de38…0de4a Head {h00=0x000e, h01=0x0050, text=» RF COPY90«, t00=0x008e, t01=0x006e}
0x0de4a…0de5e Head {h00=0x0010, h01=0x0050, text=»COPY10 EQU *«, t00=0x008e, t01=0x0080}
0x0de5e…0de8a Head {h00=0x0028, h01=0x0050, text=» LDK A1,/38 INDICATE HARDCOPY IN WCC«, t00=0x008e, t01=0x0094}
0x0de8a…0dea0 Head {h00=0x0012, h01=0x0050, text=» ST A1,WCC,A11«, t00=0x008e, t01=0x00c0}
0x0dea0…0debc Head {h00=0x0018, h01=0x0050, text=» LDKL A3,BVDU BUFFER«, t00=0x008e, t01=0x00d6}
0x0debc…0deda Head {h00=0x001a, h01=0x0050, text=» ADR A3,A11 ADDRESSS«, t00=0x008e, t01=0x00f2}
0x0deda…0def4 Head {h00=0x0016, h01=0x0050, text=» LD A8,ECBICW,A11 «, t00=0x008e, t01=0x0110}
0x0def4…0df18 Head {h00=0x0020, h01=0x0050, text=» CF A14,ICSET SET NO TIMEOUT«, t00=0x008e, t01=0x012a}
0x0df18…0df42 Head {h00=0x0026, h01=0x0050, text=» LD A1,PRTID,A11 HARDCOPY TASK ID «, t00=0x008e, t01=0x014e}
0x0df42…0df6a Head {h00=0x0024, h01=0x0050, text=» LDKL A2,LBVDU+/20 BUFFER LENGTH«, t00=0x008e, t01=0x0178}
0x0df6a…0df90 Head {h00=0x0022, h01=0x0050, text=» CF A14,ICWRT WRITE INTERTASK «, t00=0x008f, t01=0x0010}
0x0df90…0dfa2 Head {h00=0x000e, h01=0x0050, text=» IFT SNA=1«, t00=0x008f, t01=0x0036}
0x0dfa2…0dfd8 Head {h00=0x0032, h01=0x0050, text=» LDKL A1,HCPMOD INDICATE HARDCOPY OUTSTANDING «, t00=0x008f, t01=0x0048}
0x0dfd8…0dff2 Head {h00=0x0016, h01=0x0050, text=» ORS A1,SNAMOD,A11«, t00=0x008f, t01=0x007e}
0x0dff2…0dffe Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x008f, t01=0x0098}
0x0dffe…0e010 Head {h00=0x000e, h01=0x0050, text=» IFF SNA=1«, t00=0x008f, t01=0x00a4}
0x0e010…0e046 Head {h00=0x0032, h01=0x0050, text=» LDKL A1,HCPMOD INDICATE HARDCOPY OUTSTANDING «, t00=0x008f, t01=0x00b6}
0x0e046…0e060 Head {h00=0x0016, h01=0x0050, text=» ORS A1,BSCMOD,A11«, t00=0x008f, t01=0x00ec}
0x0e060…0e06c Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x008f, t01=0x0106}
0x0e06c…0e07e Head {h00=0x000e, h01=0x0050, text=» RF COPY90«, t00=0x008f, t01=0x0112}
0x0e07e…0e092 Head {h00=0x0010, h01=0x0050, text=»COPY80 EQU *«, t00=0x008f, t01=0x0124}
0x0e092…0e0a8 Head {h00=0x0012, h01=0x0050, text=» CF A14,ERROR «, t00=0x008f, t01=0x0138}
0x0e0a8…0e0bc Head {h00=0x0010, h01=0x0050, text=»COPY90 EQU *«, t00=0x008f, t01=0x014e}
0x0e0bc…0e0cc Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x008f, t01=0x0162}
0x0e0cc…0e0da Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x008f, t01=0x0172}
0x0e0da…0e122 Head {h00=0x0044, h01=0x0050, text=»*************************************************************** «, t00=0x008f, t01=0x0180}
0x0e122…0e16a Head {h00=0x0044, h01=0x0050, text=»* * «, t00=0x0090, t01=0x0038}
0x0e16a…0e19e Head {h00=0x0030, h01=0x0050, text=»* IDENT PRINTER IDENT. HANDLING«, t00=0x0090, t01=0x0080}
0x0e19e…0e1e6 Head {h00=0x0044, h01=0x0050, text=»* * «, t00=0x0090, t01=0x00b4}
0x0e1e6…0e22e Head {h00=0x0044, h01=0x0050, text=»*************************************************************** «, t00=0x0090, t01=0x00fc}
0x0e22e…0e24e Head {h00=0x001c, h01=0x0050, text=»* REGISTERS «, t00=0x0090, t01=0x0144}
0x0e24e…0e258 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0090, t01=0x0164}
0x0e258…0e27c Head {h00=0x0020, h01=0x0050, text=»* A3= POINTER IN TASK TABLE «, t00=0x0090, t01=0x016e}
0x0e27c…0e29c (145, 0, 400) Head {h00=0x001c, h01=0x0050, text=»* A11= CREDIT WORK AREA «, t00=0x0091, t01=0x0004}
0x0e29c…0e2b6 Head {h00=0x0016, h01=0x0050, text=»* A13= T:A ADDRESS«, t00=0x0091, t01=0x0024}
0x0e2b6…0e2c0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0091, t01=0x003e}
0x0e2c0…0e306 Head {h00=0x0042, h01=0x0050, text=»************************************************************* «, t00=0x0091, t01=0x0048}
0x0e306…0e31a Head {h00=0x0010, h01=0x0050, text=»IDENT EQU * «, t00=0x0091, t01=0x008e}
0x0e31a…0e346 Head {h00=0x0028, h01=0x0050, text=» LD A1,PRTID,A11 GET CURRENT TASKID «, t00=0x0091, t01=0x00a2}
0x0e346…0e36e Head {h00=0x0024, h01=0x0050, text=» LD A4,+6,A13 COMMON BLOCK BASE «, t00=0x0091, t01=0x00ce}
0x0e36e…0e38e Head {h00=0x001c, h01=0x0050, text=» ANK A1,X'FF' GET OFFSET«, t00=0x0091, t01=0x00f6}
0x0e38e…0e3a2 Head {h00=0x0010, h01=0x0050, text=» SUK A1,/30 «, t00=0x0091, t01=0x0116}
0x0e3a2…0e3b4 Head {h00=0x000e, h01=0x0050, text=» SLL A1,2 «, t00=0x0091, t01=0x012a}
0x0e3b4…0e3cc Head {h00=0x0014, h01=0x0050, text=» LDKL A3,TSKTAB «, t00=0x0091, t01=0x013c}
0x0e3cc…0e3de Head {h00=0x000e, h01=0x0050, text=» ADR A3,A4«, t00=0x0091, t01=0x0154}
0x0e3de…0e3f0 Head {h00=0x000e, h01=0x0050, text=» ADR A3,A1«, t00=0x0091, t01=0x0166}
0x0e3f0…0e404 Head {h00=0x0010, h01=0x0050, text=»IDEN30 EQU *«, t00=0x0091, t01=0x0178}
0x0e404…0e41e Head {h00=0x0016, h01=0x0050, text=» LCR A5,A3 GET ID «, t00=0x0091, t01=0x018c}
0x0e41e…0e430 Head {h00=0x000e, h01=0x0050, text=» SLL A5,8 «, t00=0x0092, t01=0x0016}
0x0e430…0e444 Head {h00=0x0010, h01=0x0050, text=» LC A5,+1,A3«, t00=0x0092, t01=0x0028}
0x0e444…0e464 Head {h00=0x001c, h01=0x0050, text=» LC A4,+3,A3 GET STATUS «, t00=0x0092, t01=0x003c}
0x0e464…0e488 Head {h00=0x0020, h01=0x0050, text=» CF A14,SAVE1 SAVE REGISTERS«, t00=0x0092, t01=0x005c}
0x0e488…0e4ac Head {h00=0x0020, h01=0x0050, text=» CF A14,DISID DISPLAY TASKID«, t00=0x0092, t01=0x0080}
0x0e4ac…0e4d2 Head {h00=0x0022, h01=0x0050, text=» LDKL A1,IDEN40 NEXT KEY ENTRY«, t00=0x0092, t01=0x00a4}
0x0e4d2…0e4ec Head {h00=0x0016, h01=0x0050, text=» ST A1,RDMORE,A11 «, t00=0x0092, t01=0x00ca}
0x0e4ec…0e508 Head {h00=0x0018, h01=0x0050, text=» RF IDEN90 NEXT KEY «, t00=0x0092, t01=0x00e4}
0x0e508…0e51c Head {h00=0x0010, h01=0x0050, text=»IDEN40 EQU *«, t00=0x0092, t01=0x0100}
0x0e51c…0e532 Head {h00=0x0012, h01=0x0050, text=» CM RDMORE,A11«, t00=0x0092, t01=0x0114}
0x0e532…0e544 Head {h00=0x000e, h01=0x0050, text=» LDR A9,A2«, t00=0x0092, t01=0x012a}
0x0e544…0e56c Head {h00=0x0024, h01=0x0050, text=» CF A14,REST1 RESTORE REGISTERS «, t00=0x0092, t01=0x013c}
0x0e56c…0e596 Head {h00=0x0026, h01=0x0050, text=» CWK A9,ENTKEY SAVE CURRENT TASKID«, t00=0x0092, t01=0x0164}
0x0e596…0e5b0 Head {h00=0x0016, h01=0x0050, text=» RF(E) IDEN80 YES «, t00=0x0092, t01=0x018e}
0x0e5b0…0e5d6 Head {h00=0x0022, h01=0x0050, text=» CWK A9,IDKEY GET NEXT TASKID?«, t00=0x0093, t01=0x0018}
0x0e5d6…0e602 Head {h00=0x0028, h01=0x0050, text=» RF(NE) IDEN90 NO KEEP THE FIRST ONE«, t00=0x0093, t01=0x003e}
0x0e602…0e616 Head {h00=0x0010, h01=0x0050, text=»IDEN50 EQU *«, t00=0x0093, t01=0x006a}
0x0e616…0e640 Head {h00=0x0026, h01=0x0050, text=» ADK A3,4 SEARCH FOR NEXT PRINTER «, t00=0x0093, t01=0x007e}
0x0e640…0e652 Head {h00=0x000e, h01=0x0050, text=» LCR A2,A3«, t00=0x0093, t01=0x00a8}
0x0e652…0e666 Head {h00=0x0010, h01=0x0050, text=» ANK A2,/FF «, t00=0x0093, t01=0x00ba}
0x0e666…0e678 Head {h00=0x000e, h01=0x0050, text=» LDR A1,A2«, t00=0x0093, t01=0x00ce}
0x0e678…0e68e Head {h00=0x0012, h01=0x0050, text=» RB(Z) IDEN50 «, t00=0x0093, t01=0x00e0}
0x0e68e…0e6a0 Head {h00=0x000e, h01=0x0050, text=» SLL A1,8 «, t00=0x0093, t01=0x00f6}
0x0e6a0…0e6b6 Head {h00=0x0012, h01=0x0050, text=» RF(N) IDEN60 «, t00=0x0093, t01=0x0108}
0x0e6b6…0e6d6 Head {h00=0x001c, h01=0x0050, text=» CCK A2,VDUCOD PRINTER? «, t00=0x0093, t01=0x011e}
0x0e6d6…0e6f0 Head {h00=0x0016, h01=0x0050, text=» RB(NE) IDEN30 YES«, t00=0x0093, t01=0x013e}
0x0e6f0…0e702 Head {h00=0x000e, h01=0x0050, text=» RB IDEN50«, t00=0x0093, t01=0x0158}
0x0e702…0e716 Head {h00=0x0010, h01=0x0050, text=»IDEN60 EQU *«, t00=0x0093, t01=0x016a}
0x0e716…0e72e Head {h00=0x0014, h01=0x0050, text=» LDKL A2,TSKTAB «, t00=0x0093, t01=0x017e}
0x0e72e…0e742 Head {h00=0x0010, h01=0x0050, text=» LD A3,6,A13«, t00=0x0094, t01=0x0008}
0x0e742…0e754 Head {h00=0x000e, h01=0x0050, text=» ADR A3,A2«, t00=0x0094, t01=0x001c}
0x0e754…0e766 Head {h00=0x000e, h01=0x0050, text=» SUK A3,4 «, t00=0x0094, t01=0x002e}
0x0e766…0e778 Head {h00=0x000e, h01=0x0050, text=» RB IDEN50«, t00=0x0094, t01=0x0040}
0x0e778…0e78c Head {h00=0x0010, h01=0x0050, text=»IDEN80 EQU *«, t00=0x0094, t01=0x0052}
0x0e78c…0e7b2 Head {h00=0x0022, h01=0x0050, text=» LCR A1,A3 GET PRINTER TO SAVE«, t00=0x0094, t01=0x0066}
0x0e7b2…0e7c4 Head {h00=0x000e, h01=0x0050, text=» SLL A1,8 «, t00=0x0094, t01=0x008c}
0x0e7c4…0e7d8 Head {h00=0x0010, h01=0x0050, text=» LC A1,+1,A3«, t00=0x0094, t01=0x009e}
0x0e7d8…0e804 Head {h00=0x0028, h01=0x0050, text=» ST A1,PRTID,A11 NEW HARDCOPY TASKID«, t00=0x0094, t01=0x00b2}
0x0e804…0e818 Head {h00=0x0010, h01=0x0050, text=»IDEN90 EQU *«, t00=0x0094, t01=0x00de}
0x0e818…0e828 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0094, t01=0x00f2}
0x0e828…0e836 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0094, t01=0x0102}
0x0e836…0e87c Head {h00=0x0042, h01=0x0050, text=»************************************************************* «, t00=0x0094, t01=0x0110}
0x0e87c…0e8c2 Head {h00=0x0042, h01=0x0050, text=»* * «, t00=0x0094, t01=0x0156}
0x0e8c2…0e908 Head {h00=0x0042, h01=0x0050, text=»* KEYL KEYLOCK STATUS * «, t00=0x0095, t01=0x000c}
0x0e908…0e94e Head {h00=0x0042, h01=0x0050, text=»* * «, t00=0x0095, t01=0x0052}
0x0e94e…0e994 Head {h00=0x0042, h01=0x0050, text=»************************************************************* «, t00=0x0095, t01=0x0098}
0x0e994…0e9a8 Head {h00=0x0010, h01=0x0050, text=»* REGISTERS«, t00=0x0095, t01=0x00de}
0x0e9a8…0e9b2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0095, t01=0x00f2}
0x0e9b2…0e9ce Head {h00=0x0018, h01=0x0050, text=»* A2= KEYLOCK VALUE «, t00=0x0095, t01=0x00fc}
0x0e9ce…0e9ee Head {h00=0x001c, h01=0x0050, text=»* A11= CREDIT WORK AREA «, t00=0x0095, t01=0x0118}
0x0e9ee…0ea06 Head {h00=0x0014, h01=0x0050, text=»* A13= RESERVED «, t00=0x0095, t01=0x0138}
0x0ea06…0ea10 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0095, t01=0x0150}
0x0ea10…0ea56 Head {h00=0x0042, h01=0x0050, text=»**************************************************************«, t00=0x0095, t01=0x015a}
0x0ea56…0ea6c Head {h00=0x0012, h01=0x0050, text=» IFT KEYLST=1 «, t00=0x0096, t01=0x0010}
0x0ea6c…0ea82 Head {h00=0x0012, h01=0x0050, text=» IFT KB6272=1 «, t00=0x0096, t01=0x0026}
0x0ea82…0ea94 Head {h00=0x000e, h01=0x0050, text=»KEYL EQU *«, t00=0x0096, t01=0x003c}
0x0ea94…0eac2 Head {h00=0x002a, h01=0x0050, text=» SUK A2,LKLKEY GET NEG KEY LOCK VALUE «, t00=0x0096, t01=0x004e}
0x0eac2…0eae4 Head {h00=0x001e, h01=0x0050, text=» LD A3,KEYS,A11 OLD STATUS«, t00=0x0096, t01=0x007c}
0x0eae4…0eaf8 Head {h00=0x0010, h01=0x0050, text=» LDK A4,/10 «, t00=0x0096, t01=0x009e}
0x0eaf8…0eb0c Head {h00=0x0010, h01=0x0050, text=»KEYL10 EQU *«, t00=0x0096, t01=0x00b2}
0x0eb0c…0eb1e Head {h00=0x000e, h01=0x0050, text=» SRL A4,1 «, t00=0x0096, t01=0x00c6}
0x0eb1e…0eb3e Head {h00=0x001c, h01=0x0050, text=» ADK A2,2 1 = OFF,0 = ON«, t00=0x0096, t01=0x00d8}
0x0eb3e…0eb54 Head {h00=0x0012, h01=0x0050, text=» RB(N) KEYL10 «, t00=0x0096, t01=0x00f8}
0x0eb54…0eb78 Head {h00=0x0020, h01=0x0050, text=» ANR A3,A4 CHECK OLD KEY POS«, t00=0x0096, t01=0x010e}
0x0eb78…0eb96 Head {h00=0x001a, h01=0x0050, text=» RF(NZ) KEYL20 WAS ON «, t00=0x0096, t01=0x0132}
0x0eb96…0ebb0 Head {h00=0x0016, h01=0x0050, text=» LDR A2,A2 WAS OFF«, t00=0x0096, t01=0x0150}
0x0ebb0…0ebda Head {h00=0x0026, h01=0x0050, text=» RF(NZ) KEYL99 NOW OFF, NO CHANGE «, t00=0x0096, t01=0x016a}
0x0ebda…0ebf4 (151, 0, 398) Head {h00=0x0016, h01=0x0050, text=» RF KEYL30 NOW ON «, t00=0x0097, t01=0x0004}
0x0ebf4…0ec10 Head {h00=0x0018, h01=0x0050, text=»KEYL20 EQU * WAS ON «, t00=0x0097, t01=0x001e}
0x0ec10…0ec22 Head {h00=0x000e, h01=0x0050, text=» LDR A2,A2«, t00=0x0097, t01=0x003a}
0x0ec22…0ec4a Head {h00=0x0024, h01=0x0050, text=» RF(Z) KEYL99 NOW ON, NO CHANGE «, t00=0x0097, t01=0x004c}
0x0ec4a…0ec66 Head {h00=0x0018, h01=0x0050, text=»KEYL30 EQU * CHANGE«, t00=0x0097, t01=0x0074}
0x0ec66…0ec7e Head {h00=0x0014, h01=0x0050, text=» LD A3,KEYS,A11 «, t00=0x0097, t01=0x0090}
0x0ec7e…0ec9e Head {h00=0x001c, h01=0x0050, text=» XRR A3,A4 CHANGE STATUS«, t00=0x0097, t01=0x00a8}
0x0ec9e…0ecc6 Head {h00=0x0024, h01=0x0050, text=» ST A3,KEYS,A11 STORE NEW STATUS«, t00=0x0097, t01=0x00c8}
0x0ecc6…0ecd0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0097, t01=0x00f0}
0x0ecd0…0ecf0 Head {h00=0x001c, h01=0x0050, text=»* KEYLOCK STATUS CHANGED«, t00=0x0097, t01=0x00fa}
0x0ecf0…0ed3e Head {h00=0x004a, h01=0x0050, text=»* A3 = NEW STATUS, RIGHTMOST BIT = RIGHTMOST LOCK, BIT ON = LOCK ON «, t00=0x0097, t01=0x011a}
0x0ed3e…0ed6c Head {h00=0x002a, h01=0x0050, text=»* A4 = KEYLOCK CHANGED, LAYOUT AS A3«, t00=0x0097, t01=0x0168}
0x0ed6c…0ed98 Head {h00=0x0028, h01=0x0050, text=»* A2 = 1, IF CHANGED TO OFF ELSE 0«, t00=0x0098, t01=0x0008}
0x0ed98…0eda2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0098, t01=0x0034}
0x0eda2…0edd0 Head {h00=0x002a, h01=0x0050, text=»* INSERT USER ROUTINE BELOW THIS LINE «, t00=0x0098, t01=0x003e}
0x0edd0…0edda Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0098, t01=0x006c}
0x0edda…0edee Head {h00=0x0010, h01=0x0050, text=»KEYL99 EQU *«, t00=0x0098, t01=0x0076}
0x0edee…0edfe Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0098, t01=0x008a}
0x0edfe…0ee0a Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0098, t01=0x009a}
0x0ee0a…0ee18 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0098, t01=0x00a6}
0x0ee18…0ee5a Head {h00=0x003e, h01=0x0050, text=»**********************************************************«, t00=0x0098, t01=0x00b4}
0x0ee5a…0ee64 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0098, t01=0x00f6}
0x0ee64…0ee7e Head {h00=0x0016, h01=0x0050, text=»* TESTM TEST MODE «, t00=0x0098, t01=0x0100}
0x0ee7e…0ee88 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0098, t01=0x011a}
0x0ee88…0eeca Head {h00=0x003e, h01=0x0050, text=»**********************************************************«, t00=0x0098, t01=0x0124}
0x0eeca…0eee4 Head {h00=0x0016, h01=0x0050, text=»* REGISTERS«, t00=0x0098, t01=0x0166}
0x0eee4…0eeee Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0098, t01=0x0180}
0x0eeee…0ef06 Head {h00=0x0014, h01=0x0050, text=»* A11= RESERVED «, t00=0x0098, t01=0x018a}
0x0ef06…0ef1e Head {h00=0x0014, h01=0x0050, text=»* A13= RESERVED «, t00=0x0099, t01=0x0012}
0x0ef1e…0ef28 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0099, t01=0x002a}
0x0ef28…0ef6a Head {h00=0x003e, h01=0x0050, text=»********************************************************* «, t00=0x0099, t01=0x0034}
0x0ef6a…0ef7e Head {h00=0x0010, h01=0x0050, text=» IFT TEST=1 «, t00=0x0099, t01=0x0076}
0x0ef7e…0ef92 Head {h00=0x0010, h01=0x0050, text=»TESTM EQU * «, t00=0x0099, t01=0x008a}
0x0ef92…0efa8 Head {h00=0x0012, h01=0x0050, text=» CF A14,ERASE «, t00=0x0099, t01=0x009e}
0x0efa8…0efbe Head {h00=0x0012, h01=0x0050, text=» CF A14,GETBUF«, t00=0x0099, t01=0x00b4}
0x0efbe…0efd4 Head {h00=0x0012, h01=0x0050, text=» CF A14,RDSTAT«, t00=0x0099, t01=0x00ca}
0x0efd4…0efea Head {h00=0x0012, h01=0x0050, text=» CF A14,DISSTA«, t00=0x0099, t01=0x00e0}
0x0efea…0effe Head {h00=0x0010, h01=0x0050, text=» LDR A8,A12 «, t00=0x0099, t01=0x00f6}
0x0effe…0f014 Head {h00=0x0012, h01=0x0050, text=» CF A14,RELBUF«, t00=0x0099, t01=0x010a}
0x0f014…0f024 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0099, t01=0x0120}
0x0f024…0f030 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0099, t01=0x0130}
0x0f030…0f03e Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0099, t01=0x013c}
0x0f03e…0f080 Head {h00=0x003e, h01=0x0050, text=»********************************************************* «, t00=0x0099, t01=0x014a}
0x0f080…0f0c2 Head {h00=0x003e, h01=0x0050, text=»* * «, t00=0x0099, t01=0x018c}
0x0f0c2…0f104 Head {h00=0x003e, h01=0x0050, text=»* ENTER ENTER KEY HANDLING * «, t00=0x009a, t01=0x003e}
0x0f104…0f146 Head {h00=0x003e, h01=0x0050, text=»* * «, t00=0x009a, t01=0x0080}
0x0f146…0f188 Head {h00=0x003e, h01=0x0050, text=»********************************************************* «, t00=0x009a, t01=0x00c2}
0x0f188…0f19c Head {h00=0x0010, h01=0x0050, text=»* REGISTERS«, t00=0x009a, t01=0x0104}
0x0f19c…0f1a6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x009a, t01=0x0118}
0x0f1a6…0f1bc Head {h00=0x0012, h01=0x0050, text=»* A2= AID-CODE«, t00=0x009a, t01=0x0122}
0x0f1bc…0f1d4 Head {h00=0x0014, h01=0x0050, text=»* A11= RESERVED «, t00=0x009a, t01=0x0138}
0x0f1d4…0f1ec Head {h00=0x0014, h01=0x0050, text=»* A13= RESERVED «, t00=0x009a, t01=0x0150}
0x0f1ec…0f1f6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x009a, t01=0x0168}
0x0f1f6…0f238 Head {h00=0x003e, h01=0x0050, text=»********************************************************* «, t00=0x009a, t01=0x0172}
0x0f238…0f24c Head {h00=0x0010, h01=0x0050, text=»ENTER EQU * «, t00=0x009b, t01=0x0024}
0x0f24c…0f268 Head {h00=0x0018, h01=0x0050, text=» LDK A2,/27 AID-CODE«, t00=0x009b, t01=0x0038}
0x0f268…0f29a Head {h00=0x002e, h01=0x0050, text=» CF A14,LMP3ON TURN ON "KEYBOARD INHIBIT" «, t00=0x009b, t01=0x0054}
0x0f29a…0f2cc Head {h00=0x002e, h01=0x0050, text=» CF A14,TRPF AID+MODIFIED FIELDS+TRANSMIT «, t00=0x009b, t01=0x0086}
0x0f2cc…0f2dc Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x009b, t01=0x00b8}
0x0f2dc…0f2ea Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x009b, t01=0x00c8}
0x0f2ea…0f330 Head {h00=0x0042, h01=0x0050, text=»**************************************************************«, t00=0x009b, t01=0x00d6}
0x0f330…0f376 Head {h00=0x0042, h01=0x0050, text=»* *«, t00=0x009b, t01=0x011c}
0x0f376…0f3bc Head {h00=0x0042, h01=0x0050, text=»* CLEAR CLEAR KEY HANDLING *«, t00=0x009b, t01=0x0162}
0x0f3bc…0f402 Head {h00=0x0042, h01=0x0050, text=»* *«, t00=0x009c, t01=0x0018}
0x0f402…0f448 Head {h00=0x0042, h01=0x0050, text=»**************************************************************«, t00=0x009c, t01=0x005e}
0x0f448…0f45c Head {h00=0x0010, h01=0x0050, text=»* REGISTERS«, t00=0x009c, t01=0x00a4}
0x0f45c…0f466 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x009c, t01=0x00b8}
0x0f466…0f47c Head {h00=0x0012, h01=0x0050, text=»* A2= AID-CODE«, t00=0x009c, t01=0x00c2}
0x0f47c…0f494 Head {h00=0x0014, h01=0x0050, text=»* A11= RESERVED «, t00=0x009c, t01=0x00d8}
0x0f494…0f4ac Head {h00=0x0014, h01=0x0050, text=»* A13= RESERVED «, t00=0x009c, t01=0x00f0}
0x0f4ac…0f4b6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x009c, t01=0x0108}
0x0f4b6…0f4fc Head {h00=0x0042, h01=0x0050, text=»**************************************************************«, t00=0x009c, t01=0x0112}
0x0f4fc…0f510 Head {h00=0x0010, h01=0x0050, text=»CLEAR EQU * «, t00=0x009c, t01=0x0158}
0x0f510…0f534 Head {h00=0x0020, h01=0x0050, text=» LDK A2,/5F POS FOR 'CLEAR' «, t00=0x009c, t01=0x016c}
0x0f534…0f566 Head {h00=0x002e, h01=0x0050, text=» CF A14,LMP3ON TURN ON "KEYBOARD INHIBIT" «, t00=0x009c, t01=0x0190}
0x0f566…0f592 Head {h00=0x0028, h01=0x0050, text=» CF A14,TRPA UPDATE AID AND TRANSMIT«, t00=0x009d, t01=0x0032}
0x0f592…0f5bc Head {h00=0x0026, h01=0x0050, text=» CF A14,ERASE ERASE ENTIRE SCREEN «, t00=0x009d, t01=0x005e}
0x0f5bc…0f5cc Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x009d, t01=0x0088}
0x0f5cc…0f5da Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x009d, t01=0x0098}
0x0f5da…0f622 Head {h00=0x0044, h01=0x0050, text=»*************************************************************** «, t00=0x009d, t01=0x00a6}
0x0f622…0f66a Head {h00=0x0044, h01=0x0050, text=»* * «, t00=0x009d, t01=0x00ee}
0x0f66a…0f6b2 Head {h00=0x0044, h01=0x0050, text=»* SYSREQ SYSTEM REQUEST HANDLING * «, t00=0x009d, t01=0x0136}
0x0f6b2…0f6fa Head {h00=0x0044, h01=0x0050, text=»* * «, t00=0x009d, t01=0x017e}
0x0f6fa…0f742 Head {h00=0x0044, h01=0x0050, text=»*************************************************************** «, t00=0x009e, t01=0x0036}
0x0f742…0f756 Head {h00=0x0010, h01=0x0050, text=»* REGISTERS«, t00=0x009e, t01=0x007e}
0x0f756…0f760 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x009e, t01=0x0092}
0x0f760…0f780 Head {h00=0x001c, h01=0x0050, text=»* A11= CREDIT WORK AREA «, t00=0x009e, t01=0x009c}
0x0f780…0f798 Head {h00=0x0014, h01=0x0050, text=»* A13= RESERVED «, t00=0x009e, t01=0x00bc}
0x0f798…0f7a2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x009e, t01=0x00d4}
0x0f7a2…0f7de Head {h00=0x0038, h01=0x0050, text=»****************************************************«, t00=0x009e, t01=0x00de}
0x0f7de…0f7f0 Head {h00=0x000e, h01=0x0050, text=» IFT SNA=1«, t00=0x009e, t01=0x011a}
0x0f7f0…0f804 Head {h00=0x0010, h01=0x0050, text=»SYSREQ EQU *«, t00=0x009e, t01=0x012c}
0x0f804…0f826 Head {h00=0x001e, h01=0x0050, text=» CF A14,TSTSTA TEST STATUS«, t00=0x009e, t01=0x0140}
0x0f826…0f844 Head {h00=0x001a, h01=0x0050, text=» LDR A2,A1 GET STATUS «, t00=0x009e, t01=0x0162}
0x0f844…0f862 Head {h00=0x001a, h01=0x0050, text=» ANKL A2,/101 ACTIVE? «, t00=0x009e, t01=0x0180}
0x0f862…0f87c Head {h00=0x0016, h01=0x0050, text=» RF(Z) SYS100 YES «, t00=0x009f, t01=0x000e}
0x0f87c…0f8a6 Head {h00=0x0026, h01=0x0050, text=» LDK A1,LOCMOD INDICATE LOCAL MODE«, t00=0x009f, t01=0x0028}
0x0f8a6…0f8b8 Head {h00=0x000e, h01=0x0050, text=» RF SYS500«, t00=0x009f, t01=0x0052}
0x0f8b8…0f8cc Head {h00=0x0010, h01=0x0050, text=»SYS100 EQU *«, t00=0x009f, t01=0x0064}
0x0f8cc…0f8ea Head {h00=0x001a, h01=0x0050, text=» LDR A2,A1 GET STATUS «, t00=0x009f, t01=0x0078}
0x0f8ea…0f90c Head {h00=0x001e, h01=0x0050, text=» ANKL A2,/C00 MY JOB MODE?«, t00=0x009f, t01=0x0096}
0x0f90c…0f926 Head {h00=0x0016, h01=0x0050, text=» RF(NZ) SYS200 NO «, t00=0x009f, t01=0x00b8}
0x0f926…0f950 Head {h00=0x0026, h01=0x0050, text=» CF A14,CLEAR CLEAR SCREEN AND DC «, t00=0x009f, t01=0x00d2}
0x0f950…0f97c Head {h00=0x0028, h01=0x0050, text=» CF A14,RESKB RESET KEYBOARD BUFFER «, t00=0x009f, t01=0x00fc}
0x0f97c…0f9a6 Head {h00=0x0026, h01=0x0050, text=» LDK A1,SYSOP INDICATE SYSTEM MODE«, t00=0x009f, t01=0x0128}
0x0f9a6…0f9b8 Head {h00=0x000e, h01=0x0050, text=» RF SYS500«, t00=0x009f, t01=0x0152}
0x0f9b8…0f9cc Head {h00=0x0010, h01=0x0050, text=»SYS200 EQU *«, t00=0x009f, t01=0x0164}
0x0f9cc…0f9f8 Head {h00=0x0028, h01=0x0050, text=» CWK A2,/C00 SSCP-LU AND NOT LU-LU? «, t00=0x009f, t01=0x0178}
0x0f9f8…0fa12 Head {h00=0x0016, h01=0x0050, text=» RF(NE) SYS300 NO «, t00=0x00a0, t01=0x0014}
0x0fa12…0fa3c Head {h00=0x0026, h01=0x0050, text=» LDK A1,SYSOP INDICATE SYSTEM MODE«, t00=0x00a0, t01=0x002e}
0x0fa3c…0fa4e Head {h00=0x000e, h01=0x0050, text=» RF SYS500«, t00=0x00a0, t01=0x0058}
0x0fa4e…0fa62 Head {h00=0x0010, h01=0x0050, text=»SYS300 EQU *«, t00=0x00a0, t01=0x006a}
0x0fa62…0fa8a Head {h00=0x0024, h01=0x0050, text=» ANKL A2,/800 SSCP-LU AND LU-LU?«, t00=0x00a0, t01=0x007e}
0x0fa8a…0faa4 Head {h00=0x0016, h01=0x0050, text=» RF(NZ) SYS400 YES«, t00=0x00a0, t01=0x00a6}
0x0faa4…0face Head {h00=0x0026, h01=0x0050, text=» LDK A1,SYSOP INDICATE SYSTEM MODE«, t00=0x00a0, t01=0x00c0}
0x0face…0fae0 Head {h00=0x000e, h01=0x0050, text=» RF SYS500«, t00=0x00a0, t01=0x00ea}
0x0fae0…0faf4 Head {h00=0x0010, h01=0x0050, text=»SYS400 EQU *«, t00=0x00a0, t01=0x00fc}
0x0faf4…0fb1e Head {h00=0x0026, h01=0x0050, text=» LDK A1,MYJOB INDICATE MY JOB MODE«, t00=0x00a0, t01=0x0110}
0x0fb1e…0fb32 Head {h00=0x0010, h01=0x0050, text=»SYS500 EQU *«, t00=0x00a0, t01=0x013a}
0x0fb32…0fb66 Head {h00=0x0030, h01=0x0050, text=» ORKL A1,NEWMOD INDICATE NEW MODE ACTIVATION«, t00=0x00a0, t01=0x014e}
0x0fb66…0fb80 Head {h00=0x0016, h01=0x0050, text=» ST A1,SNAMOD,A11 «, t00=0x00a0, t01=0x0182}
0x0fb80…0fb90 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x00a1, t01=0x000c}
0x0fb90…0fb9c Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00a1, t01=0x001c}
0x0fb9c…0fbaa Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x00a1, t01=0x0028}
0x0fbaa…0fbf2 Head {h00=0x0044, h01=0x0050, text=»*************************************************************** «, t00=0x00a1, t01=0x0036}
0x0fbf2…0fc3a Head {h00=0x0044, h01=0x0050, text=»* * «, t00=0x00a1, t01=0x007e}
0x0fc3a…0fc82 Head {h00=0x0044, h01=0x0050, text=»* ATTN ATTENTION KEY HANDLING * «, t00=0x00a1, t01=0x00c6}
0x0fc82…0fcca Head {h00=0x0044, h01=0x0050, text=»* * «, t00=0x00a1, t01=0x010e}
0x0fcca…0fd12 Head {h00=0x0044, h01=0x0050, text=»*************************************************************** «, t00=0x00a1, t01=0x0156}
0x0fd12…0fd30 Head {h00=0x001a, h01=0x0050, text=»* REGISTERS «, t00=0x00a2, t01=0x000e}
0x0fd30…0fd3a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00a2, t01=0x002c}
0x0fd3a…0fd52 Head {h00=0x0014, h01=0x0050, text=»* A11= RESERVED «, t00=0x00a2, t01=0x0036}
0x0fd52…0fd6a Head {h00=0x0014, h01=0x0050, text=»* A13= RESERVED «, t00=0x00a2, t01=0x004e}
0x0fd6a…0fd74 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00a2, t01=0x0066}
0x0fd74…0fdb6 Head {h00=0x003e, h01=0x0050, text=»**********************************************************«, t00=0x00a2, t01=0x0070}
0x0fdb6…0fdc8 Head {h00=0x000e, h01=0x0050, text=» IFT SNA=1«, t00=0x00a2, t01=0x00b2}
0x0fdc8…0fdda Head {h00=0x000e, h01=0x0050, text=»ATTN EQU *«, t00=0x00a2, t01=0x00c4}
0x0fdda…0fe02 Head {h00=0x0024, h01=0x0050, text=» LDK A1,/4B SIGNAL ATTENTION KEY«, t00=0x00a2, t01=0x00d6}
0x0fe02…0fe24 Head {h00=0x001e, h01=0x0050, text=» CF A14,SETSTA SET STATUS «, t00=0x00a2, t01=0x00fe}
0x0fe24…0fe34 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x00a2, t01=0x0120}
0x0fe34…0fe40 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00a2, t01=0x0130}
0x0fe40…0fe4e Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x00a2, t01=0x013c}
0x0fe4e…0fe94 Head {h00=0x0042, h01=0x0050, text=»**************************************************************«, t00=0x00a2, t01=0x014a}
0x0fe94…0feda Head {h00=0x0042, h01=0x0050, text=»* *«, t00=0x00a2, t01=0x0190}
0x0feda…0ff1e Head {h00=0x0040, h01=0x0050, text=»* PA PROGRAM ACCESS KEY HANDLING * «, t00=0x00a3, t01=0x0046}
0x0ff1e…0ff64 Head {h00=0x0042, h01=0x0050, text=»* *«, t00=0x00a3, t01=0x008a}
0x0ff64…0ffaa Head {h00=0x0042, h01=0x0050, text=»**************************************************************«, t00=0x00a3, t01=0x00d0}
0x0ffaa…0ffbe Head {h00=0x0010, h01=0x0050, text=»* REGISTERS«, t00=0x00a3, t01=0x0116}
0x0ffbe…0ffc8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00a3, t01=0x012a}
0x0ffc8…0ffde Head {h00=0x0012, h01=0x0050, text=»* A2= AID-CODE«, t00=0x00a3, t01=0x0134}
0x0ffde…0fff6 Head {h00=0x0014, h01=0x0050, text=»* A11= RESERVED «, t00=0x00a3, t01=0x014a}
0x0fff6…1000e Head {h00=0x0014, h01=0x0050, text=»* A13= RESERVED «, t00=0x00a3, t01=0x0162}
0x1000e…10018 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00a3, t01=0x017a}
0x10018…1005e Head {h00=0x0042, h01=0x0050, text=»**************************************************************«, t00=0x00a3, t01=0x0184}
0x1005e…10070 Head {h00=0x000e, h01=0x0050, text=»PA1 EQU * «, t00=0x00a4, t01=0x003a}
0x10070…1008c Head {h00=0x0018, h01=0x0050, text=» LDK A2,/25 AID-CODE«, t00=0x00a4, t01=0x004c}
0x1008c…1009e Head {h00=0x000e, h01=0x0050, text=» RF PA500 «, t00=0x00a4, t01=0x0068}
0x1009e…100b0 Head {h00=0x000e, h01=0x0050, text=»PA2 EQU * «, t00=0x00a4, t01=0x007a}
0x100b0…100cc Head {h00=0x0018, h01=0x0050, text=» LDK A2,/3E AID-CODE«, t00=0x00a4, t01=0x008c}
0x100cc…100de Head {h00=0x000e, h01=0x0050, text=» RF PA500 «, t00=0x00a4, t01=0x00a8}
0x100de…100f0 Head {h00=0x000e, h01=0x0050, text=»PA3 EQU * «, t00=0x00a4, t01=0x00ba}
0x100f0…1010c Head {h00=0x0018, h01=0x0050, text=» LDK A2,/2C AID-CODE«, t00=0x00a4, t01=0x00cc}
0x1010c…10120 Head {h00=0x0010, h01=0x0050, text=»PA500 EQU * «, t00=0x00a4, t01=0x00e8}
0x10120…10150 Head {h00=0x002c, h01=0x0050, text=» CF A14,LMP3ON TURN ON KEYBOARD INHIBIT «, t00=0x00a4, t01=0x00fc}
0x10150…10176 Head {h00=0x0022, h01=0x0050, text=» CF A14,TRPA TRANSMIT AID-CODE«, t00=0x00a4, t01=0x012c}
0x10176…1018a Head {h00=0x0010, h01=0x0050, text=»PAALFA EQU *«, t00=0x00a4, t01=0x0152}
0x1018a…101ae Head {h00=0x0020, h01=0x0050, text=»*INSERT ALFASKOP STATEMENTS «, t00=0x00a4, t01=0x0166}
0x101ae…101be Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x00a4, t01=0x018a}
0x101be…101cc Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x00a5, t01=0x000a}
0x101cc…10218 Head {h00=0x0048, h01=0x0050, text=»******************************************************************* «, t00=0x00a5, t01=0x0018}
0x10218…10264 Head {h00=0x0048, h01=0x0050, text=»* * «, t00=0x00a5, t01=0x0064}
0x10264…102b0 Head {h00=0x0048, h01=0x0050, text=»* PAEX PAEX KEY FOLLOWED BY NUMBER * «, t00=0x00a5, t01=0x00b0}
0x102b0…102fc Head {h00=0x0048, h01=0x0050, text=»* * «, t00=0x00a5, t01=0x00fc}
0x102fc…10348 Head {h00=0x0048, h01=0x0050, text=»******************************************************************* «, t00=0x00a5, t01=0x0148}
0x10348…1035c (166, 0, 400) Head {h00=0x0010, h01=0x0050, text=»* REGISTERS«, t00=0x00a6, t01=0x0004}
0x1035c…10366 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00a6, t01=0x0018}
0x10366…10386 Head {h00=0x001c, h01=0x0050, text=»* A11= CREDIT WORK AREA «, t00=0x00a6, t01=0x0022}
0x10386…1039e Head {h00=0x0014, h01=0x0050, text=»* A13= RESERVED «, t00=0x00a6, t01=0x0042}
0x1039e…103a8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00a6, t01=0x005a}
0x103a8…103e4 Head {h00=0x0038, h01=0x0050, text=»*************************************************** «, t00=0x00a6, t01=0x0064}
0x103e4…103f6 Head {h00=0x000e, h01=0x0050, text=» IFT PAX=1«, t00=0x00a6, t01=0x00a0}
0x103f6…10408 Head {h00=0x000e, h01=0x0050, text=»PAEX EQU *«, t00=0x00a6, t01=0x00b2}
0x10408…1041e Head {h00=0x0012, h01=0x0050, text=» LDKL A1,PAEXA«, t00=0x00a6, t01=0x00c4}
0x1041e…10438 Head {h00=0x0016, h01=0x0050, text=» ST A1,RDMORE,A11 «, t00=0x00a6, t01=0x00da}
0x10438…10448 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x00a6, t01=0x00f4}
0x10448…1045c Head {h00=0x0010, h01=0x0050, text=»PAEXA EQU * «, t00=0x00a6, t01=0x0104}
0x1045c…10472 Head {h00=0x0012, h01=0x0050, text=» CM RDMORE,A11«, t00=0x00a6, t01=0x0118}
0x10472…10496 Head {h00=0x0020, h01=0x0050, text=» SUK A2,/31 CHECK IF NUM.1-3«, t00=0x00a6, t01=0x012e}
0x10496…104b8 Head {h00=0x001e, h01=0x0050, text=» RF(L) PAERR ILLEGAL CHAR.«, t00=0x00a6, t01=0x0152}
0x104b8…104dc Head {h00=0x0020, h01=0x0050, text=» SUK A2,/2 CHECK IF NUM.1-3 «, t00=0x00a6, t01=0x0174}
0x104dc…104fe Head {h00=0x001e, h01=0x0050, text=» RF(G) PAEXB ILLEGAL CHAR.«, t00=0x00a7, t01=0x0008}
0x104fe…10514 Head {h00=0x0012, h01=0x0050, text=» RF(NZ) PAEX10«, t00=0x00a7, t01=0x002a}
0x10514…10530 Head {h00=0x0018, h01=0x0050, text=» CF A14,PA3 PA3 KEY «, t00=0x00a7, t01=0x0040}
0x10530…10542 Head {h00=0x000e, h01=0x0050, text=» RF PARET «, t00=0x00a7, t01=0x005c}
0x10542…10556 Head {h00=0x0010, h01=0x0050, text=»PAEX10 EQU *«, t00=0x00a7, t01=0x006e}
0x10556…10568 Head {h00=0x000e, h01=0x0050, text=» ADK A2,1 «, t00=0x00a7, t01=0x0082}
0x10568…1057e Head {h00=0x0012, h01=0x0050, text=» RF(NZ) PAEX20«, t00=0x00a7, t01=0x0094}
0x1057e…1059a Head {h00=0x0018, h01=0x0050, text=» CF A14,PA2 PA2 KEY «, t00=0x00a7, t01=0x00aa}
0x1059a…105ac Head {h00=0x000e, h01=0x0050, text=» RF PARET «, t00=0x00a7, t01=0x00c6}
0x105ac…105c0 Head {h00=0x0010, h01=0x0050, text=»PAEX20 EQU *«, t00=0x00a7, t01=0x00d8}
0x105c0…105dc Head {h00=0x0018, h01=0x0050, text=» CF A14,PA1 PA1 KEY «, t00=0x00a7, t01=0x00ec}
0x105dc…105ee Head {h00=0x000e, h01=0x0050, text=» RF PARET «, t00=0x00a7, t01=0x0108}
0x105ee…10606 Head {h00=0x0014, h01=0x0050, text=»PAEXB EQU * DK3«, t00=0x00a7, t01=0x011a}
0x10606…1061e Head {h00=0x0014, h01=0x0050, text=» SUK A2,/6 DK3 «, t00=0x00a7, t01=0x0132}
0x1061e…10638 Head {h00=0x0016, h01=0x0050, text=» RF(G) PAERR DK3 «, t00=0x00a7, t01=0x014a}
0x10638…10650 Head {h00=0x0014, h01=0x0050, text=» ADK A2,/69 DK3«, t00=0x00a7, t01=0x0164}
0x10650…1066a Head {h00=0x0016, h01=0x0050, text=» CF A14,PA500 DK3«, t00=0x00a7, t01=0x017c}
0x1066a…10680 Head {h00=0x0012, h01=0x0050, text=» RF PARET DK3«, t00=0x00a8, t01=0x0008}
0x10680…10694 Head {h00=0x0010, h01=0x0050, text=»PAERR EQU * «, t00=0x00a8, t01=0x001e}
0x10694…106b8 Head {h00=0x0020, h01=0x0050, text=» CF A14,ERROR INDICATE ERROR«, t00=0x00a8, t01=0x0032}
0x106b8…106cc Head {h00=0x0010, h01=0x0050, text=»PARET EQU * «, t00=0x00a8, t01=0x0056}
0x106cc…106dc Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x00a8, t01=0x006a}
0x106dc…106e8 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00a8, t01=0x007a}
0x106e8…106f6 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x00a8, t01=0x0086}
0x106f6…10740 Head {h00=0x0046, h01=0x0050, text=»******************************************************************«, t00=0x00a8, t01=0x0094}
0x10740…1078a Head {h00=0x0046, h01=0x0050, text=»* *«, t00=0x00a8, t01=0x00de}
0x1078a…107d4 Head {h00=0x0046, h01=0x0050, text=»* PF PROGRAM FUNTION KEY HANDLING *«, t00=0x00a8, t01=0x0128}
0x107d4…1081e Head {h00=0x0046, h01=0x0050, text=»* *«, t00=0x00a8, t01=0x0172}
0x1081e…10868 Head {h00=0x0046, h01=0x0050, text=»******************************************************************«, t00=0x00a9, t01=0x002c}
0x10868…1087c Head {h00=0x0010, h01=0x0050, text=»* REGISTERS«, t00=0x00a9, t01=0x0076}
0x1087c…10886 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00a9, t01=0x008a}
0x10886…1089c Head {h00=0x0012, h01=0x0050, text=»* A2= AID-CODE«, t00=0x00a9, t01=0x0094}
0x1089c…108b4 Head {h00=0x0014, h01=0x0050, text=»* A11= RESERVED «, t00=0x00a9, t01=0x00aa}
0x108b4…108cc Head {h00=0x0014, h01=0x0050, text=»* A13= RESERVED «, t00=0x00a9, t01=0x00c2}
0x108cc…108d6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00a9, t01=0x00da}
0x108d6…10920 Head {h00=0x0046, h01=0x0050, text=»******************************************************************«, t00=0x00a9, t01=0x00e4}
0x10920…10930 Head {h00=0x000c, h01=0x0050, text=»PF EQU *«, t00=0x00a9, t01=0x012e}
0x10930…1095a Head {h00=0x0026, h01=0x0050, text=» SUK A2,PFKEY GET INDEX TO CONVERT«, t00=0x00a9, t01=0x013e}
0x1095a…1097a Head {h00=0x001c, h01=0x0050, text=» LC A2,CONPF,A2 GET AID «, t00=0x00a9, t01=0x0168}
0x1097a…109aa Head {h00=0x002c, h01=0x0050, text=» CF A14,LMP3ON TURN ON KEYBOARD INHIBIT «, t00=0x00a9, t01=0x0188}
0x109aa…109e0 Head {h00=0x0032, h01=0x0050, text=» CF A14,TRPF TRANSMIT AID AND MODIFIED FIELDS «, t00=0x00aa, t01=0x0028}
0x109e0…109f0 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x00aa, t01=0x005e}
0x109f0…109fe Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x00aa, t01=0x006e}
0x109fe…10a48 Head {h00=0x0046, h01=0x0050, text=»***************************************************************** «, t00=0x00aa, t01=0x007c}
0x10a48…10a92 Head {h00=0x0046, h01=0x0050, text=»* * «, t00=0x00aa, t01=0x00c6}
0x10a92…10adc Head {h00=0x0046, h01=0x0050, text=»* PFEX PFEX KEY FOLLOWED BY NUMBER * «, t00=0x00aa, t01=0x0110}
0x10adc…10b26 Head {h00=0x0046, h01=0x0050, text=»* * «, t00=0x00aa, t01=0x015a}
0x10b26…10b70 Head {h00=0x0046, h01=0x0050, text=»***************************************************************** «, t00=0x00ab, t01=0x0014}
0x10b70…10b84 Head {h00=0x0010, h01=0x0050, text=»* REGISTERS«, t00=0x00ab, t01=0x005e}
0x10b84…10b8e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00ab, t01=0x0072}
0x10b8e…10bae Head {h00=0x001c, h01=0x0050, text=»* A11= CREDIT WORK AREA «, t00=0x00ab, t01=0x007c}
0x10bae…10bc6 Head {h00=0x0014, h01=0x0050, text=»* A13= RESERVED «, t00=0x00ab, t01=0x009c}
0x10bc6…10bd0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00ab, t01=0x00b4}
0x10bd0…10c0a Head {h00=0x0036, h01=0x0050, text=»************************************************* «, t00=0x00ab, t01=0x00be}
0x10c0a…10c1c Head {h00=0x000e, h01=0x0050, text=» IFT PFX=1«, t00=0x00ab, t01=0x00f8}
0x10c1c…10c2e Head {h00=0x000e, h01=0x0050, text=»PFEX EQU *«, t00=0x00ab, t01=0x010a}
0x10c2e…10c44 Head {h00=0x0012, h01=0x0050, text=» LDKL A1,PFEXA«, t00=0x00ab, t01=0x011c}
0x10c44…10c56 Head {h00=0x000e, h01=0x0050, text=» RF PFNXT «, t00=0x00ab, t01=0x0132}
0x10c56…10c6a Head {h00=0x0010, h01=0x0050, text=»PFEXA EQU * «, t00=0x00ab, t01=0x0144}
0x10c6a…10c80 Head {h00=0x0012, h01=0x0050, text=» CM RDMORE,A11«, t00=0x00ab, t01=0x0158}
0x10c80…10ca0 Head {h00=0x001c, h01=0x0050, text=» SUK A2,/30 LEGAL CHAR ?«, t00=0x00ab, t01=0x016e}
0x10ca0…10cd0 Head {h00=0x002c, h01=0x0050, text=» RF(L) PFERR ILLEGAL,GO TO ERR.HANDLING «, t00=0x00ab, t01=0x018e}
0x10cd0…10ce6 Head {h00=0x0012, h01=0x0050, text=» RF(NZ) PFEX10«, t00=0x00ac, t01=0x002e}
0x10ce6…10d08 Head {h00=0x001e, h01=0x0050, text=» LDKL A1,PF0A FIRST NUM 0 «, t00=0x00ac, t01=0x0044}
0x10d08…10d26 Head {h00=0x001a, h01=0x0050, text=» RF PFNXT NEXT NUMBER «, t00=0x00ac, t01=0x0066}
0x10d26…10d3a Head {h00=0x0010, h01=0x0050, text=»PFEX10 EQU *«, t00=0x00ac, t01=0x0084}
0x10d3a…10d4c Head {h00=0x000e, h01=0x0050, text=» SUK A2,1 «, t00=0x00ac, t01=0x0098}
0x10d4c…10d62 Head {h00=0x0012, h01=0x0050, text=» RF(NZ) PFEX20«, t00=0x00ac, t01=0x00aa}
0x10d62…10d84 Head {h00=0x001e, h01=0x0050, text=» LDKL A1,PF1A FIRST NUM 1 «, t00=0x00ac, t01=0x00c0}
0x10d84…10da2 Head {h00=0x001a, h01=0x0050, text=» RF PFNXT NEXT NUMBER «, t00=0x00ac, t01=0x00e2}
0x10da2…10db6 Head {h00=0x0010, h01=0x0050, text=»PFEX20 EQU *«, t00=0x00ac, t01=0x0100}
0x10db6…10dc8 Head {h00=0x000e, h01=0x0050, text=» SUK A2,1 «, t00=0x00ac, t01=0x0114}
0x10dc8…10dea Head {h00=0x001e, h01=0x0050, text=» RF(NZ) PFERR ILLEGAL NUM «, t00=0x00ac, t01=0x0126}
0x10dea…10e0c Head {h00=0x001e, h01=0x0050, text=» LDKL A1,PF2A FIRST NUM 2 «, t00=0x00ac, t01=0x0148}
0x10e0c…10e2a Head {h00=0x001a, h01=0x0050, text=» RF PFNXT NEXT NUMBER «, t00=0x00ac, t01=0x016a}
0x10e2a…10e3c Head {h00=0x000e, h01=0x0050, text=»PF0A EQU *«, t00=0x00ac, t01=0x0188}
0x10e3c…10e52 Head {h00=0x0012, h01=0x0050, text=» CM RDMORE,A11«, t00=0x00ad, t01=0x000a}
0x10e52…10e72 Head {h00=0x001c, h01=0x0050, text=» SUK A2,/31 ILLEGAL NUM?«, t00=0x00ad, t01=0x0020}
0x10e72…10e8a Head {h00=0x0014, h01=0x0050, text=» RF(N) PFERR YES«, t00=0x00ad, t01=0x0040}
0x10e8a…10ea8 Head {h00=0x001a, h01=0x0050, text=» SUK A2,9 ILLEGAL NUM?«, t00=0x00ad, t01=0x0058}
0x10ea8…10ec2 Head {h00=0x0016, h01=0x0050, text=» RF(NN) PFERR YES «, t00=0x00ad, t01=0x0076}
0x10ec2…10ee2 Head {h00=0x001c, h01=0x0050, text=» ADK A2,/9+PFKEY PF1-PF9«, t00=0x00ad, t01=0x0090}
0x10ee2…10ef4 Head {h00=0x000e, h01=0x0050, text=» RF PFHAND«, t00=0x00ad, t01=0x00b0}
0x10ef4…10f06 Head {h00=0x000e, h01=0x0050, text=»PF1A EQU *«, t00=0x00ad, t01=0x00c2}
0x10f06…10f1c Head {h00=0x0012, h01=0x0050, text=» CM RDMORE,A11«, t00=0x00ad, t01=0x00d4}
0x10f1c…10f3c Head {h00=0x001c, h01=0x0050, text=» SUK A2,/30 ILLEGAL NUM?«, t00=0x00ad, t01=0x00ea}
0x10f3c…10f54 Head {h00=0x0014, h01=0x0050, text=» RF(N) PFERR YES«, t00=0x00ad, t01=0x010a}
0x10f54…10f74 Head {h00=0x001c, h01=0x0050, text=» SUK A2,/A ILLEGAL NUM? «, t00=0x00ad, t01=0x0122}
0x10f74…10f8e Head {h00=0x0016, h01=0x0050, text=» RF(NN) PFERR YES «, t00=0x00ad, t01=0x0142}
0x10f8e…10fb4 Head {h00=0x0022, h01=0x0050, text=» ADK A2,/A+PFKEY+/9 PF10-PF19 «, t00=0x00ad, t01=0x015c}
0x10fb4…10fc6 Head {h00=0x000e, h01=0x0050, text=» RF PFHAND«, t00=0x00ad, t01=0x0182}
0x10fc6…10fd8 (174, 0, 398) Head {h00=0x000e, h01=0x0050, text=»PF2A EQU *«, t00=0x00ae, t01=0x0004}
0x10fd8…10fee Head {h00=0x0012, h01=0x0050, text=» CM RDMORE,A11«, t00=0x00ae, t01=0x0016}
0x10fee…1100e Head {h00=0x001c, h01=0x0050, text=» SUK A2,/30 ILLEGAL NUM?«, t00=0x00ae, t01=0x002c}
0x1100e…11026 Head {h00=0x0014, h01=0x0050, text=» RF(N) PFERR YES«, t00=0x00ae, t01=0x004c}
0x11026…11044 Head {h00=0x001a, h01=0x0050, text=» SUK A2,5 ILLEGAL NUM?«, t00=0x00ae, t01=0x0064}
0x11044…1105e Head {h00=0x0016, h01=0x0050, text=» RF(NN) PFERR YES «, t00=0x00ae, t01=0x0082}
0x1105e…11084 Head {h00=0x0022, h01=0x0050, text=» ADK A2,/5+PFKEY+/13 PF20-PF24«, t00=0x00ae, t01=0x009c}
0x11084…11098 Head {h00=0x0010, h01=0x0050, text=»PFHAND EQU *«, t00=0x00ae, t01=0x00c2}
0x11098…110c8 Head {h00=0x002c, h01=0x0050, text=» CF A14,PF PROGRAM FUNCTION KEY HANDLING«, t00=0x00ae, t01=0x00d6}
0x110c8…110da Head {h00=0x000e, h01=0x0050, text=» RF PFRET «, t00=0x00ae, t01=0x0106}
0x110da…110ee Head {h00=0x0010, h01=0x0050, text=»PFNXT EQU * «, t00=0x00ae, t01=0x0118}
0x110ee…11108 Head {h00=0x0016, h01=0x0050, text=» ST A1,RDMORE,A11 «, t00=0x00ae, t01=0x012c}
0x11108…1111a Head {h00=0x000e, h01=0x0050, text=» RF PFRET «, t00=0x00ae, t01=0x0146}
0x1111a…1112e Head {h00=0x0010, h01=0x0050, text=»PFERR EQU * «, t00=0x00ae, t01=0x0158}
0x1112e…11144 Head {h00=0x0012, h01=0x0050, text=» CF A14,ERROR «, t00=0x00ae, t01=0x016c}
0x11144…11158 Head {h00=0x0010, h01=0x0050, text=»PFRET EQU * «, t00=0x00ae, t01=0x0182}
0x11158…11168 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x00af, t01=0x0008}
0x11168…11174 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00af, t01=0x0018}
0x11174…11182 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x00af, t01=0x0024}
0x11182…1118a Head {h00=0x0004, h01=0x0050, t00=0x00af, t01=0x0032}
0x1118a…111cc Head {h00=0x003e, h01=0x0050, text=»**********************************************************«, t00=0x00af, t01=0x003a}
0x111cc…1120e Head {h00=0x003e, h01=0x0050, text=»* *«, t00=0x00af, t01=0x007c}
0x1120e…11250 Head {h00=0x003e, h01=0x0050, text=»* RETURN RETURN *«, t00=0x00af, t01=0x00be}
0x11250…11292 Head {h00=0x003e, h01=0x0050, text=»* *«, t00=0x00af, t01=0x0100}
0x11292…112d6 Head {h00=0x0040, h01=0x0050, text=»*********************************************************** «, t00=0x00af, t01=0x0142}
0x112d6…112f2 Head {h00=0x0018, h01=0x0050, text=»* REGISTERS «, t00=0x00af, t01=0x0186}
0x112f2…112fc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00b0, t01=0x0012}
0x112fc…11314 Head {h00=0x0014, h01=0x0050, text=»* A11= RESERVED «, t00=0x00b0, t01=0x001c}
0x11314…1132c Head {h00=0x0014, h01=0x0050, text=»* A13= RESERVED «, t00=0x00b0, t01=0x0034}
0x1132c…11336 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00b0, t01=0x004c}
0x11336…11376 Head {h00=0x003c, h01=0x0050, text=»********************************************************«, t00=0x00b0, t01=0x0056}
0x11376…1138a Head {h00=0x0010, h01=0x0050, text=»RETURN EQU *«, t00=0x00b0, t01=0x0096}
0x1138a…1139a Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x00b0, t01=0x00aa}
0x1139a…113a2 Head {h00=0x0004, h01=0x0050, t00=0x00b0, t01=0x00ba}
0x113a2…113ae Head {h00=0x0008, h01=0x0050, text=» END«, t00=0x00b0, t01=0x00c2}
0x113ae…113b2 Head {h00=0x4004, h01=0x0000}
0x113b2…113b6 00 b0 00 ce ┆ ┆
0x113b6…113be (177, 1, 8) 20 04 00 00 00 b1 00 04 ┆ ┆
0x113be…1140e (178, 0, 400) 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 20 00 c1 01 88 00 3c 00 50 2a 20 20 53 55 42 52 4f 55 54 49 4e 45 53 3a 20 20 53 4f 50 49 4e 2c 43 ┆ * < P* SUBROUTINES: SOPIN,C┆
0x1140e…1145e 48 43 52 49 4f 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 20 00 c2 00 38 00 3c 00 50 2a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆HCRIO * 8 < P* ┆
0x1145e…114ae 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 20 00 c2 00 78 00 3c 00 50 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 20 ┆ * x < P******************************************************* ┆
0x114ae…114fe 00 c2 00 b8 00 10 00 50 43 41 53 53 49 4e 5c 45 51 55 5c 2a 00 c2 00 f8 00 0e 00 50 5c 4c 44 4b 5c 41 31 2c 2f 46 00 c2 01 0c 00 22 00 50 5c 43 46 5c 41 31 34 2c 43 48 43 52 49 4f 5c 55 4e 4c 4f 41 44 20 43 41 53 53 45 54 54 45 00 c2 01 1e ┆ PCASSIN EQU * P LDK A1,/F " P CF A14,CHCRIO UNLOAD CASSETTE ┆
0x114fe…1154e 00 32 00 50 5c 4c 44 4b 4c 5c 41 33 2c 4c 4d 50 31 2b 4c 4d 50 32 5c 49 4e 44 49 43 41 54 45 20 45 58 50 45 43 54 45 44 20 53 57 49 54 43 48 45 53 20 00 c2 01 44 00 12 00 50 5c 4f 54 52 5c 41 33 2c 30 2c 53 4f 50 20 00 c2 01 7a 00 10 00 50 ┆ 2 P LDKL A3,LMP1+LMP2 INDICATE EXPECTED SWITCHES D P OTR A3,0,SOP z P┆
0x1154e…1159e (179, 0, 400) 43 41 53 3a 31 30 5c 45 51 55 5c 2a 00 c2 01 90 00 1a 00 50 5c 43 46 5c 41 31 34 2c 53 4f 50 49 4e 5c 52 45 41 44 20 53 4f 50 00 c3 00 14 00 24 00 50 5c 41 4e 4b 4c 5c 41 31 2c 2f 30 33 30 30 5c 41 4c 4c 4f 57 45 44 20 53 57 49 54 43 48 45 ┆CAS:10 EQU * P CF A14,SOPIN READ SOP $ P ANKL A1,/0300 ALLOWED SWITCHE┆
0x1159e…115ee 53 3f 00 c3 00 32 00 16 00 50 5c 52 42 28 5a 29 5c 43 41 53 3a 31 30 5c 4e 4f 21 20 00 c3 00 5a 00 26 00 50 5c 4c 44 4b 4c 5c 41 33 2c 4c 4d 50 31 5c 53 57 49 54 43 48 20 4f 4e 20 4c 4f 41 44 20 4c 41 4d 50 20 00 c3 00 74 00 12 00 50 5c 4f ┆S? 2 P RB(Z) CAS:10 NO! Z & P LDKL A3,LMP1 SWITCH ON LOAD LAMP t P O┆
0x115ee…1163e 54 52 5c 41 33 2c 30 2c 53 4f 50 20 00 c3 00 9e 00 1a 00 50 5c 53 52 4c 5c 41 31 2c 38 5c 52 49 47 48 54 20 41 4c 49 47 4e 20 00 c3 00 b4 00 1a 00 50 5c 41 4e 4b 5c 41 31 2c 31 5c 53 45 4c 45 43 54 20 55 4e 49 54 20 00 c3 00 d2 00 1e 00 50 ┆TR A3,0,SOP P SRL A1,8 RIGHT ALIGN P ANK A1,1 SELECT UNIT P┆
0x1163e…1168e 5c 43 46 5c 41 31 34 2c 43 48 43 52 49 4f 5c 53 45 4c 45 43 54 20 55 4e 49 54 00 c3 00 f0 00 10 00 50 5c 4c 44 4b 5c 41 31 2c 4c 4f 43 4b 00 c3 01 12 00 20 00 50 5c 43 46 5c 41 31 34 2c 43 48 43 52 49 4f 5c 4c 4f 43 4b 20 43 41 53 53 45 54 ┆ CF A14,CHCRIO SELECT UNIT P LDK A1,LOCK P CF A14,CHCRIO LOCK CASSET┆
0x1168e…116de 54 45 00 c3 01 26 00 20 00 50 5c 41 4e 4b 5c 41 33 2c 31 5c 43 41 53 53 45 54 54 45 20 4f 50 45 52 41 42 4c 45 3f 00 c3 01 4a 00 16 00 50 5c 52 42 28 4e 5a 29 5c 43 41 53 3a 31 30 5c 4e 4f 21 00 c3 01 6e 00 12 00 50 5c 4c 44 4b 5c 41 31 2c ┆TE & P ANK A3,1 CASSETTE OPERABLE? J P RB(NZ) CAS:10 NO! n P LDK A1,┆
0x116de…1172e (180, 0, 400) 53 42 4f 54 5c 5c 00 c3 01 88 00 2c 00 50 5c 43 46 5c 41 31 34 2c 43 48 43 52 49 4f 5c 53 45 41 52 43 48 20 42 45 47 49 4e 4e 49 4e 47 20 4f 46 20 54 41 50 45 20 00 c4 00 0e 00 10 00 50 5c 4c 44 4b 5c 41 31 2c 53 54 4d 46 00 c4 00 3e 00 2a ┆SBOT , P CF A14,CHCRIO SEARCH BEGINNING OF TAPE P LDK A1,STMF > *┆
0x1172e…1177e 00 50 5c 43 46 5c 41 31 34 2c 43 48 43 52 49 4f 5c 53 45 41 52 43 48 20 54 41 50 45 4d 41 52 4b 20 46 4f 52 57 41 52 44 00 c4 00 52 00 0c 00 50 5c 52 54 4e 5c 41 31 34 00 c4 00 80 00 0a 00 50 5c 45 4a 45 43 54 00 c4 00 90 00 32 00 50 2a 2a ┆ P CF A14,CHCRIO SEARCH TAPEMARK FORWARD R P RTN A14 P EJECT 2 P**┆
0x1177e…117ce 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 20 00 c4 00 9e 00 32 00 50 2a 20 20 43 48 43 52 49 4f 20 2d 20 43 41 53 53 45 54 54 45 20 49 2f 4f 20 45 58 45 ┆******************************************* 2 P* CHCRIO - CASSETTE I/O EXE┆
0x117ce…1181e 43 55 54 49 4e 47 20 52 4f 55 54 49 4e 45 20 20 2a 20 00 c4 00 d4 00 32 00 50 2a 20 20 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 20 20 2a 20 00 c4 01 0a 00 32 00 50 ┆CUTING ROUTINE * 2 P* ======================================= * 2 P┆
0x1181e…1186e 2a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 20 00 c4 01 40 00 32 00 50 2a 20 20 52 45 46 45 52 45 4e 43 45 44 20 49 4e 3a 20 20 43 41 53 53 49 4e 2c ┆* * @ 2 P* REFERENCED IN: CASSIN,┆