|
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: 71710 (0x1181e)
Notes: pts_type(SC)
Names: »KEYB.SC«
└─⟦a16d9b08d⟧ Bits:30009712 Philips computer tape "TOSS11"
└─⟦this⟧ »U3270.1/KEYB.SC«
IDENT KEYB REL 11.1 82-02-12 870150541110 =4 ERROR IN DELETE FUNC. =3 INCORRECT A14 STACK POINTER 81-11-20 =2 CLEAR AT OFFLINE, POWER ON AT KB ABORT AT PFX AND PAX, ATTRIBUTE CHECK 81-04-08 =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 START LABEL FOR MODULE ENTRY READKB READ KEYBOARD ENTRY RESKB RESET KEYBOARD BUFFER ENTRY LMP1ON LAMPROUTINES ENTRY LMP1OF . ENTRY LMP2ON . ENTRY LMP2OF . ENTRY LMP3ON . ENTRY LMP3OF . ENTRY LMP4ON . ENTRY LMP4OF . ENTRY LMP5ON . ENTRY LMP5OF . ENTRY LMP6ON . ENTRY LMP6OF . ENTRY RDHOME TAB. UNPROTECTED FIRST ON SCREEN ENTRY COPY LOCAL HARDCOPY ENTRY ERROR ERROR INDICATION ENTRY TAB TAB FOREWARD UNPROTECTED ENTRY CRDOWN MOVE CURSOR DOWN ONE LINE ENTRY ICVRED VDU INTERTASK READ ENTRY ICINP INTERTASK INPUT ENTRY ICSET SET INTERTASK TIMEOUT ENTRY ICWRT WRITE INTERTASK ENTRY ICREAD READ INTERTASK EJECT ****************************************************** * * * EXTERNAL REFERENCES * * * ****************************************************** EXTRN I:RT1 RETURN TO CREDIT CODE EXTRN ATMASB SEARCH ATTRIBUTE BACKWARDS (VDU) EXTRN ATMASF SEARCH ATTRIBUTE FORWARD (VDU) EXTRN DCABOR ABORT DC-REQUEST (DCSNA,DCBSC) EXTRN ERASE ERASE ENTIRE SCREEN (VDU) EXTRN ERASUA ERASE ALL UNPROTECTED TO ADDRESS (VDU) EXTRN ERASUP ERASE ALL UNPROTECTED (VDU) EXTRN TRPA TRANSMIT SHORT READ (DCSNA,DCBSC) EXTRN TRPF TRANSMIT MODIFIED READ (DCSNA,DCBSC) EXTRN TSTSTA TEST STATUS (DCSNA,DCBSC) EXTRN WCHAR DISPLAY CHAR. AND CURSOR (VDU) EXTRN SOUND SOUND ALARM ON DISPLAY (VDU) EXTRN SCRINF GET SCREEN INFORMATION (VDU) EXTRN STOINF SAVE SCREEN INFORMATION (VDU) EXTRN GETVDU GET CHAR. IN VDU BUFFER (VDU) EXTRN STOVDU STORE CHAR. IN VDU BUFFER (VDU) EXTRN DISCHA DISPLAY CHAR. (VDU) EXTRN POSUNP MOVE CURSOR TO NEXT UNPR. POS. (VDU) EXTRN INSMOD INSERT MODE ROUTINE (VDU) EXTRN DCOFLN INDICATE OFFLINE TO DC (DCSNA,DCBSC) EXTRN DISMOD DISPLAY MODIFIED FIELDS (VDU) EXTRN CONPF CONVERT PF-KEY TABLE (CONVER) EXTRN OPSYS OPEN SYSTEM (DCSNA,DCBSC) EXTRN LINE GET LINE FLAG (VDU) EXTRN SAVE1 SAVE1 REGISTERS (PAD) EXTRN REST1 REST1E REGISTERS (PAD) EXTRN DISID DISPLAY HARDCOPY TASKID EXTRN GETBUF GET BUFFER (PAD) EXTRN RELBUF RELEASE BUFFER (PAD) EXTRN DISSTA DISPLAY STATISTICS (VDU) EXTRN RDSTAT READ STATISTICS (DCBSC) EXTRN CHKSTA CHECK LINE STATUS (DCBSC,DCSNA) EXTRN SETSTA SET STATUS (DCSNA) EJECT ************************************************************* * * * CONDITIONAL ASSEMBLY PARAMETERS * * * ************************************************************* X:A EQU 0 SNA HANDLING INCLUDED IF:=1 SNA EQU X:A X:C EQU 0 OFFLINE HANDLING IF :=1 OFLIN EQU X:C X:D EQU 1 NUMBER OF LINES (1-2) NBRLIN EQU X:D X:F EQU 0 KEY-LOCK STATUS IF:=1 KEYLST EQU X:F X:G EQU 0 PF KEY HANDLING IF:=1 PFX EQU X:G X:H EQU 0 PA KEY HANDLING IF :=1 PAX EQU X:H X:I EQU 1 INSERT/DELETE HANDLING IF :=1 IN:DL EQU X:I X:J EQU 1 KB6272 INCLUDED IF :=1 KB6272 EQU X:J X:M EQU 0 COPY COMMAND INCLUDED IF:=1 COPCMD EQU X:M X:O EQU 0 TEST MODE INCLUDED IF:=1 TEST EQU X:O X:P EQU 0 COPY LOCK FUNCTION INCLUDED IF:=1 COPL EQU X:P 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 * * 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 * * RELATIVE ADDRESSES IN * COMMON WORKBLOCK * IFF TEST=1 TSKTAB EQU 24 TASK TABLE XIF IFT TEST=1 TSKTAB EQU 219 TASK TABLE XIF EJECT **************************************************************** * * * KBINP MAIN ROUTINE * * * **************************************************************** * REGISTERS * * A2= KEY-CHAR. * A3= KEY-TABLE INDEX * A4= RESERVED * A5= RESERVED * A6= RESERVED * A7= KEY-HANDLING INDICATOR * A11= CREDIT WORK AREA * A13= RESERVED * *********************************************************** KBINP EQU * LD A1,ECBCW,A8 KEYS? =2 RF(N) KBIN10 YES =2 LD A3,ECBRC,A8 POWER ON? =2 RF(Z) KBIN80 YES =2 RF KBIN20 TAKE CARE OF KEY =2 KBIN10 EQU * . =2 IFT KEYLST=0 RF(N) KBIN80 SKIP KEYS XIF IFT KEYLST=1 LC* A2,ECBBA,A8 GET KEYLOCK VALUE ADKL A2,FKLKEY-/70 PREPARE FOR TABLE SC* A2,ECBBA,A8 RESTORE XIF KBIN20 EQU * . =2 ANKL A3,/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 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,1 ST A7,ECBRL,A8 CM ECBCW,A8 CLEAR TO SEE KEYS =2 LDK A7,2 STANDARD READ LKM DATA 1 RTN A14 EJECT *************************************************************** * * * RESKB RESET KEYBOARD BUFFER * * * *************************************************************** * REGISTERS * * A11= CREDIT WORK AREA * A13= RESERVED * ****************************************************** RESKB EQU * LD A8,ECBKB,A11 LDK A7,/31 RESET KEYBOARD BUFFER LKM DATA 1 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 CF A14,LMP5FL 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,LMP5ON 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 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 CHAR + DATA CHAR , 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,/8080 ATTRIBUTE? =2 RF(NL) CRN400 YES LDR A1,A4 CF A14,ATMASB SEARCH ATTRIBUTE BACKWARD LDR A7,A6 ANK A7,/20 PROTECTED? RF(Z) CRN800 NO RF CRN500 CRN400 EQU * SUK A4,1 RF(NN) CRN500 NOT WRAP AROUND LDKL A4,LBVDU-1 LAST SCREEN POS. CRN500 EQU * CF A14,STOINF SAVE SCREEN INFORMATION CF A14,TAB TAB. UNPROTECTED FORWARD RF CRN900 CRN800 EQU * CF A14,STOINF SAVE SCREEN INFORMATION LDK A1,2 REQ. LENGTH CF A14,DISCHA SET CURSOR CRN900 EQU * RTN A14 EJECT ********************************************************************* * * * RDHOME TAB. UNPROTECTED FIRST ON SCREEN * * * ********************************************************************* * REGISTERS * * A4= REL. CURSOR POS. * A5= REL. ATTRIBUTE POS. * A6= ATTRIBUTE CHAR. * A11= RESERVED * A13= RESERVED * ********************************************************************* RDHOME EQU * CF A14,SCRINF GET SCREEN INFORMATION LDK A4,0 FIRST POS. ON SCREEN CF A14,STOINF CWK A5,LBVDU+1 UNFORMATTED SCREEN? RF(E) RDH800 YES LDR A1,A4 CF A14,GETVDU GET CHAR. IN VDU BUFFER CCK A7,/8000 ATTRIBUTE? RF(L) RDH100 NO LDKL A4,LBVDU-1 LAST SCREEN POS. CF A14,STOINF SAVE SCREEN INFORMATION RF RDH300 RDH100 EQU * LDR A1,A4 CF A14,ATMASB GET ATTRIBUTE BACKWARD LDR A7,A6 ANK A7,/20 PROTECTED? RF(Z) RDH800 NO RDH300 EQU * CF A14,TAB TAB. UNPROTECTED FORWARD RF RDH900 RDH800 EQU * CF A14,STOINF SAVE SCREEN INFORMATION LDK A1,2 REQ. LENGTH CF A14,DISCHA SET CURSOR RDH900 EQU * RTN A14 EJECT ************************************************************* * * * EREOF ERASE TO END OF FIELD * * * ************************************************************* * REGISTERS * * A4= REL. CURSOR POS. * A5= REL. ATTRIBUTE POS. * A6= ATTRIBUTE CHAR. * A11= RESERVED * A13= RESERVED * ******************************************************************* EREOF EQU * CF A14,SCRINF GET SCREEN INFORMATION CWK A5,LBVDU+1 UNFORMATTED SCREEN? RF(E) ERE700 YES LDR A7,A6 ANK A7,/20 PROTECTED FIELD? RF(NZ) ERE600 YES CWR A5,A4 STANDING ON ATTRIBUTE? RF(E) ERE600 YES LDR A1,A4 LDR A8,A6 SAVE OLD LDR A9,A5 SAVE OLD CF A14,ATMASF SEARCH ATTRIBUTE FORWARD LDR A3,A5 LDR A6,A8 LDR A5,A9 ORK A6,1 SET MDT-BIT IN ATTRIBUTE LDR A7,A6 LDR A1,A5 CF A14,STOVDU STORE NEW ATTRIBUTE IN VDU BUFFER CF A14,STOINF SAVE NEW SCREEN INFORMATION LDR A1,A3 STOP ADDRESS RF ERE800 ERE600 EQU * CF A14,ERROR INDICATE ERROR RF ERE900 ERE700 EQU * LDR A10,A4 CF A14,ERASE ERASE ENTIRE SCREEN LDR A4,A10 CF A14,STOINF LDK A1,2 CF A14,DISCHA SET CURSOR RF ERE900 ERE800 EQU * SUR A10,A10 CF A14,ERASUA ERASE UNPROTECTED TO ADDRESS CF A14,DISMOD DISPLAY MODIFIED FIELD ERE900 EQU * RTN A14 EJECT ******************************************************************* * * * ERINPT ERASE UNPROTECTED ENTIRE SCREEN * * * ******************************************************************* * REGISTERS * * A4= REL. CURSOR POS. * A5= REL. ATTRIBUTE POS. * A6= ATTRIBUTE CHAR. * A11= RESERVED * A13= RESERVED * ******************************************************************* ERINPT EQU * CF A14,SCRINF GET SCREEN INFORMATION CWK A5,LBVDU+1 UNFORMATTED SCREEN? RF(NE) ERI100 NO CF A14,ERASE ERASE ENTIRE SCREEN RF ERI900 ERI100 EQU * CF A14,ERASUP ERASE ALL UNPROTECTED CF A14,DISMOD DISPLAY ERASED FIELDS CF A14,RDHOME TAB. UNPROTECTED FIRST ON SCREEN ERI900 EQU * RTN A14 EJECT IFT IN:DL=1 ******************************************************** * * * INSERT INSERT KEY HANDLING * * * ******************************************************** * REGISTERS * * A11= CREDIT WORK AREA * A13= RESERVED * *************************************************** INSERT EQU * IM MODE,A11 SET INSERT MODE CF A14,LMP6ON TURN ON "INSERT MODE" LAMP 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 * CWR A1,A3 ALREADY ON LAST? =4 RF(E) DEL400 YES =4 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 DEL400 EQU * . =4 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,LMP5OF TURN OFF 'ERROR' LAMP CF A14,LMP4OF 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,ERASE ERASE ENTIRE SCREEN =2 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,12 SKIP THREE STACK LEVELS =3 LD A13,2,A14 RELOAD REGISTERS A12-A13 LD A12,4,A14 ADKL A14,4 UPDATE STACK POINTER ABL I:RT1 RETURN TO "OFFLINE" PROGRAM XIF EJECT ********************************************************* * * * MFCHGE MAIN FRAME CHANGE * * * ********************************************************* * REGISTERS * * A11= CREDIT WORK AREA * A13= RESERVED * ******************************************************* IFT NBRLIN=2 MFCHGE EQU * CF A14,CLEAR CF A14,RESET CF A14,LMP1OF CF A14,LMP2OF CF A14,LMP3OF LD A1,MAIN,A11 XRK A1,1 RF(NZ) MFCH10 CF A14,LMP1ON RF MFCH90 MFCH10 EQU * CF A14,LMP2ON MFCH90 EQU * ST A1,MAIN,A11 CF A14,CHKSTA CHECK LINE STATUS RTN A14 XIF EJECT *********************************************************** * * * COPY LOCAL HARDCOPY * * * *********************************************************** * REGISTERS * * A11= CREDIT WORK AREA * A13= T:A ADDRESS * ************************************************************* COPY EQU * LD A1,SNAMOD,A11 ANKL A1,HCPMOD HARDCOPY ALREADY OUTSTANDING? RF(NZ) COPY80 YES,WAIT A WHILE LD A1,PRTID,A11 RF(Z) COPY80 PRINTER NOT ASSIGNED ANK A1,/FF CHECK IF PRINTER OK IN TASK TABLE SUK A1,/30 SLL A1,2 LDK A3,TSKTAB LD A4,+6,A13 GET COMMON AREA ADR A3,A4 ADR A3,A1 PRINTER ASSIGNED FOUND LC A1,+3,A3 ANK A1,/FF PRINTER OK? RF(Z) COPY10 YES CF A14,LMP5FL INDICATE PRINTER ERROR 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,LMP4ON 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,LMP4ON 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,LMP4ON TURN ON KEYBOARD INHIBIT CF A14,TRPA TRANSMIT AID-CODE PAALFA EQU * *INSERT ALFASKOP STATEMENTS RTN A14 EJECT ******************************************************************* * * * PAEX PAEX KEY FOLLOWED BY NUMBER * * * ******************************************************************* * REGISTERS * * A11= CREDIT WORK AREA * A13= RESERVED * *************************************************** IFT PAX=1 PAEX EQU * LDKL A1,PAEXA ST A1,RDMORE,A11 RTN A14 PAEXA EQU * CM RDMORE,A11 SUK A2,/31 CHECK IF NUM.1-3 RF(L) PAERR ILLEGAL CHAR. SUK A2,/2 CHECK IF NUM.1-3 RF(G) PAERR ILLEGAL CHAR. CF A14,DCABOR ABORT TEST MESSAGE =2 RF(NZ) PAEX10 CF A14,PA3 PA3 KEY RF PARET PAEX10 EQU * ADK A2,1 RF(NZ) PAEX20 CF A14,PA2 PA2 KEY RF PARET PAEX20 EQU * CF A14,PA1 PA1 KEY RF PARET PAERR EQU * CF A14,ERROR INDICATE ERROR PARET EQU * RTN A14 XIF EJECT ****************************************************************** * * * PF PROGRAM FUNTION KEY HANDLING * * * ****************************************************************** * REGISTERS * * A2= AID-CODE * A11= RESERVED * A13= RESERVED * ****************************************************************** PF EQU * SUK A2,PFKEY GET INDEX TO CONVERT LC A2,CONPF,A2 GET AID CF A14,LMP4ON 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,DCABOR ABORT TEST MESSAGE =2 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…00032 (0, 0, 400) Head {h00=0x002e, h01=0x0050, text=» IDENT KEYB REL 11.1 82-02-12 870150541110«, t00=0x0000, t01=0x0004}
0x00032…0003a Head {h00=0x0004, h01=0x0050, t00=0x0000, t01=0x0036}
0x0003a…0005e Head {h00=0x0020, h01=0x0050, text=» =4 ERROR IN DELETE FUNC. «, t00=0x0000, t01=0x003e}
0x0005e…00088 Head {h00=0x0026, h01=0x0050, text=» =3 INCORRECT A14 STACK POINTER «, t00=0x0000, t01=0x0062}
0x00088…0009c Head {h00=0x0010, h01=0x0050, text=» 81-11-20 «, t00=0x0000, t01=0x008c}
0x0009c…000ca Head {h00=0x002a, h01=0x0050, text=» =2 CLEAR AT OFFLINE, POWER ON AT KB«, t00=0x0000, t01=0x00a0}
0x000ca…000fa Head {h00=0x002c, h01=0x0050, text=» ABORT AT PFX AND PAX, ATTRIBUTE CHECK«, t00=0x0000, t01=0x00ce}
0x000fa…0010e Head {h00=0x0010, h01=0x0050, text=» 81-04-08 «, t00=0x0000, t01=0x00fe}
0x0010e…00130 Head {h00=0x001e, h01=0x0050, text=» =1, SYSTEM MODE CURSOR «, t00=0x0000, t01=0x0112}
0x00130…00144 Head {h00=0x0010, h01=0x0050, text=» 81-01-26 «, t00=0x0000, t01=0x0134}
0x00144…0018c Head {h00=0x0044, h01=0x003f, text=»*************************************************************** «, t00=0x0000, t01=0x0148}
0x0018c…001d4 Head {h00=0x0044, h01=0x003f, text=»* * «, t00=0x0000, t01=0x0190}
0x001d4…0021c Head {h00=0x0044, h01=0x003f, text=»* MODULE KEYB * «, t00=0x0001, t01=0x0048}
0x0021c…00264 Head {h00=0x0044, h01=0x003f, text=»* MODULE HANDLING THE KEYBOARD DEVICE * «, t00=0x0001, t01=0x0090}
0x00264…002ac Head {h00=0x0044, h01=0x003f, text=»* (EMULATION 3270 SNA/SDLC, BSC) * «, t00=0x0001, t01=0x00d8}
0x002ac…002f4 Head {h00=0x0044, h01=0x003f, text=»* * «, t00=0x0001, t01=0x0120}
0x002f4…0033c Head {h00=0x0044, h01=0x003f, text=»*************************************************************** «, t00=0x0001, t01=0x0168}
0x0033c…0034a Head {h00=0x000a, h01=0x0006, text=» EJECT«, t00=0x0002, t01=0x0020}
0x0034a…00392 Head {h00=0x0044, h01=0x003f, text=»*************************************************************** «, t00=0x0002, t01=0x002e}
0x00392…003da Head {h00=0x0044, h01=0x003f, text=»* * «, t00=0x0002, t01=0x0076}
0x003da…00422 Head {h00=0x0044, h01=0x003f, text=»* LIST OF ROUTINES * «, t00=0x0002, t01=0x00be}
0x00422…0046a Head {h00=0x0044, h01=0x003f, text=»* * «, t00=0x0002, t01=0x0106}
0x0046a…004b2 Head {h00=0x0044, h01=0x003f, text=»* KBINP MAIN ROUTINE * «, t00=0x0002, t01=0x014e}
0x004b2…004fa Head {h00=0x0044, h01=0x003f, text=»* CPLKB KB-COMPLETION TABLE FOR DIFF. MODES * «, t00=0x0003, t01=0x0008}
0x004fa…0053a Head {h00=0x003c, h01=0x0050, text=»* KBCPLO KB-COMPLETION ROUTINE IN LOCAL MODE«, t00=0x0003, t01=0x0050}
0x0053a…00582 Head {h00=0x0044, h01=0x003f, text=»* KBCPSY KB-COMPLETION ROUTINE IN SYSTEM MODE * «, t00=0x0003, t01=0x0090}
0x00582…005ca Head {h00=0x0044, h01=0x003f, text=»* KBCPJO KB-COMPLETION ROUTINE IN MY JOB MODE * «, t00=0x0003, t01=0x00d8}
0x005ca…00612 Head {h00=0x0044, h01=0x003f, text=»* READKB READ KEYBOARD WITH NO WAIT * «, t00=0x0003, t01=0x0120}
0x00612…0065a Head {h00=0x0044, h01=0x003f, text=»* RESKB RESET KEYBOARD-BUFFER * «, t00=0x0003, t01=0x0168}
0x0065a…0068c Head {h00=0x002e, h01=0x0050, text=»* ICVRED KB/VDU INTERTASK READ«, t00=0x0004, t01=0x0020}
0x0068c…006b8 Head {h00=0x0028, h01=0x0050, text=»* ICINP INTERTASK INPUT«, t00=0x0004, t01=0x0052}
0x006b8…006ea Head {h00=0x002e, h01=0x0050, text=»* ICSET SET INTERTASK TIMEOUT«, t00=0x0004, t01=0x007e}
0x006ea…00716 Head {h00=0x0028, h01=0x0050, text=»* ICREAD READ INTERTASK «, t00=0x0004, t01=0x00b0}
0x00716…00742 Head {h00=0x0028, h01=0x0050, text=»* ICWRT WRITE INTERTASK«, t00=0x0004, t01=0x00dc}
0x00742…0078a Head {h00=0x0044, h01=0x003f, text=»* ERROR ILLEGAL KEY-HANDLING * «, t00=0x0004, t01=0x0108}
0x0078a…007d2 Head {h00=0x0044, h01=0x003f, text=»* LAMPROUTINES * «, t00=0x0004, t01=0x0150}
0x007d2…0081a Head {h00=0x0044, h01=0x003f, text=»* SDISP SIGNAL ROUTINE * «, t00=0x0005, t01=0x0008}
0x0081a…00862 Head {h00=0x0044, h01=0x003f, text=»* KEYTAB KEY-TABLE, FIXED ENTRY FOR EACH FUNC. * «, t00=0x0005, t01=0x0050}
0x00862…008aa Head {h00=0x0044, h01=0x003f, text=»* CHAR ALPHA. CHAR HANDLING * «, t00=0x0005, t01=0x0098}
0x008aa…008f2 Head {h00=0x0044, h01=0x003f, text=»* NUM NUM. CHAR HANDLING * «, t00=0x0005, t01=0x00e0}
0x008f2…0093a Head {h00=0x0044, h01=0x003f, text=»* ANCOMM ALPHANUM. CHAR HANDLING * «, t00=0x0005, t01=0x0128}
0x0093a…0098e Head {h00=0x0050, h01=0x0050, text=»* CURMOV MOVE CURSOR ON SCREEN * «, t00=0x0005, t01=0x0170}
0x0098e…009d6 Head {h00=0x0044, h01=0x003f, text=»* BAKTAB TAB. UNPROT. BACKWARDS * «, t00=0x0006, t01=0x0034}
0x009d6…00a1e Head {h00=0x0044, h01=0x003f, text=»* TAB TAB. UNPROT. FORWARDS * «, t00=0x0006, t01=0x007c}
0x00a1e…00a66 Head {h00=0x0044, h01=0x003f, text=»* CRNL TAB. UNPROT. NEXT LINE * «, t00=0x0006, t01=0x00c4}
0x00a66…00aae Head {h00=0x0044, h01=0x003f, text=»* RDHOME TAB. UNPROT. FIRST ON SCREEN * «, t00=0x0006, t01=0x010c}
0x00aae…00af6 Head {h00=0x0044, h01=0x003f, text=»* EREOF ERASE TO END OF FIELD * «, t00=0x0006, t01=0x0154}
0x00af6…00b3e Head {h00=0x0044, h01=0x003f, text=»* ERINPT ERASE UNPROT. ENTIRE SCREEN * «, t00=0x0007, t01=0x000c}
0x00b3e…00b86 Head {h00=0x0044, h01=0x003f, text=»* INSERT INSERT HANDLING * «, t00=0x0007, t01=0x0054}
0x00b86…00bce Head {h00=0x0044, h01=0x003f, text=»* DELETE DELETE HANDLING * «, t00=0x0007, t01=0x009c}
0x00bce…00c16 Head {h00=0x0044, h01=0x003f, text=»* RESET RESET HANDLING * «, t00=0x0007, t01=0x00e4}
0x00c16…00c5e Head {h00=0x0044, h01=0x003f, text=»* DUP DUPLICATE HANDLING * «, t00=0x0007, t01=0x012c}
0x00c5e…00ca6 Head {h00=0x0044, h01=0x003f, text=»* FLDMRK FIELDMARK HANDLING * «, t00=0x0007, t01=0x0174}
0x00ca6…00cee Head {h00=0x0044, h01=0x003f, text=»* ZERO:2,3 DOUBLE & TRIPLE ZERO HANDLING * «, t00=0x0008, t01=0x002c}
0x00cee…00d36 Head {h00=0x0044, h01=0x003f, text=»* OFLINE OFFLINE HANDLING * «, t00=0x0008, t01=0x0074}
0x00d36…00d7e Head {h00=0x0044, h01=0x003f, text=»* MFCHGE MAIN FRAME CHANGE * «, t00=0x0008, t01=0x00bc}
0x00d7e…00dc6 Head {h00=0x0044, h01=0x003f, text=»* COPY LOCAL HARDCOPY * «, t00=0x0008, t01=0x0104}
0x00dc6…00e0e Head {h00=0x0044, h01=0x003f, text=»* IDENT PRINTER IDENT. HANDLING * «, t00=0x0008, t01=0x014c}
0x00e0e…00e56 (9, 0, 398) Head {h00=0x0044, h01=0x003f, text=»* KEYL KEYLOCK STATUS HANDLING * «, t00=0x0009, t01=0x0004}
0x00e56…00e7c Head {h00=0x0022, h01=0x0050, text=»* TESTM TEST MODE«, t00=0x0009, t01=0x004c}
0x00e7c…00ec4 Head {h00=0x0044, h01=0x003f, text=»* ENTER ENTER HANDLING * «, t00=0x0009, t01=0x0072}
0x00ec4…00f0c Head {h00=0x0044, h01=0x003f, text=»* CLEAR CLEAR HANDLING * «, t00=0x0009, t01=0x00ba}
0x00f0c…00f54 Head {h00=0x0044, h01=0x003f, text=»* SYSREQ SYSTEM REQUEST HANDLING * «, t00=0x0009, t01=0x0102}
0x00f54…00f9c Head {h00=0x0044, h01=0x003f, text=»* ATTN ATTENTION HANDLING * «, t00=0x0009, t01=0x014a}
0x00f9c…00fe4 (10, 0, 400) Head {h00=0x0044, h01=0x0050, text=»* PA PROGRAM ACCESS HANDLING *«, t00=0x000a, t01=0x0004}
0x00fe4…0102c Head {h00=0x0044, h01=0x003f, text=»* PF PROGRAM FUNCTION HANDLING * «, t00=0x000a, t01=0x004c}
0x0102c…01074 Head {h00=0x0044, h01=0x003f, text=»* RETURN RETURN * «, t00=0x000a, t01=0x0094}
0x01074…010bc Head {h00=0x0044, h01=0x003f, text=»* * «, t00=0x000a, t01=0x00dc}
0x010bc…01104 Head {h00=0x0044, h01=0x003f, text=»*************************************************************** «, t00=0x000a, t01=0x0124}
0x01104…01112 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000a, t01=0x016c}
0x01112…0114e Head {h00=0x0038, h01=0x0050, text=»*************************************************** «, t00=0x000a, t01=0x017a}
0x0114e…0118a Head {h00=0x0038, h01=0x0050, text=»* *«, t00=0x000b, t01=0x0026}
0x0118a…011c6 Head {h00=0x0038, h01=0x0050, text=»* ENTRY POINTS *«, t00=0x000b, t01=0x0062}
0x011c6…01202 Head {h00=0x0038, h01=0x0050, text=»* *«, t00=0x000b, t01=0x009e}
0x01202…0123e Head {h00=0x0038, h01=0x0050, text=»****************************************************«, t00=0x000b, t01=0x00da}
0x0123e…01246 Head {h00=0x0004, h01=0x0050, t00=0x000b, t01=0x0116}
0x01246…01272 Head {h00=0x0028, h01=0x0050, text=» ENTRY KBINP START LABEL FOR MODULE «, t00=0x000b, t01=0x011e}
0x01272…01296 Head {h00=0x0020, h01=0x0050, text=» ENTRY READKB READ KEYBOARD «, t00=0x000b, t01=0x014a}
0x01296…012c0 Head {h00=0x0026, h01=0x0050, text=» ENTRY RESKB RESET KEYBOARD BUFFER«, t00=0x000b, t01=0x016e}
0x012c0…012e2 Head {h00=0x001e, h01=0x0050, text=» ENTRY LMP1ON LAMPROUTINES«, t00=0x000c, t01=0x0008}
0x012e2…012fa Head {h00=0x0014, h01=0x0050, text=» ENTRY LMP1OF . «, t00=0x000c, t01=0x002a}
0x012fa…01312 Head {h00=0x0014, h01=0x0050, text=» ENTRY LMP2ON . «, t00=0x000c, t01=0x0042}
0x01312…0132a Head {h00=0x0014, h01=0x0050, text=» ENTRY LMP2OF . «, t00=0x000c, t01=0x005a}
0x0132a…01342 Head {h00=0x0014, h01=0x0050, text=» ENTRY LMP3ON . «, t00=0x000c, t01=0x0072}
0x01342…0135a Head {h00=0x0014, h01=0x0050, text=» ENTRY LMP3OF . «, t00=0x000c, t01=0x008a}
0x0135a…01372 Head {h00=0x0014, h01=0x0050, text=» ENTRY LMP4ON . «, t00=0x000c, t01=0x00a2}
0x01372…0138a Head {h00=0x0014, h01=0x0050, text=» ENTRY LMP4OF . «, t00=0x000c, t01=0x00ba}
0x0138a…013a2 Head {h00=0x0014, h01=0x0050, text=» ENTRY LMP5ON . «, t00=0x000c, t01=0x00d2}
0x013a2…013ba Head {h00=0x0014, h01=0x0050, text=» ENTRY LMP5OF . «, t00=0x000c, t01=0x00ea}
0x013ba…013d2 Head {h00=0x0014, h01=0x0050, text=» ENTRY LMP6ON . «, t00=0x000c, t01=0x0102}
0x013d2…013ea Head {h00=0x0014, h01=0x0050, text=» ENTRY LMP6OF . «, t00=0x000c, t01=0x011a}
0x013ea…01420 Head {h00=0x0032, h01=0x0050, text=» ENTRY RDHOME TAB. UNPROTECTED FIRST ON SCREEN«, t00=0x000c, t01=0x0132}
0x01420…01442 Head {h00=0x001e, h01=0x0050, text=» ENTRY COPY LOCAL HARDCOPY«, t00=0x000c, t01=0x0168}
0x01442…01468 Head {h00=0x0022, h01=0x0050, text=» ENTRY ERROR ERROR INDICATION «, t00=0x000c, t01=0x018a}
0x01468…01494 Head {h00=0x0028, h01=0x0050, text=» ENTRY TAB TAB FOREWARD UNPROTECTED «, t00=0x000d, t01=0x0020}
0x01494…014c4 Head {h00=0x002c, h01=0x0050, text=» ENTRY CRDOWN MOVE CURSOR DOWN ONE LINE «, t00=0x000d, t01=0x004c}
0x014c4…014ec Head {h00=0x0024, h01=0x0050, text=» ENTRY ICVRED VDU INTERTASK READ«, t00=0x000d, t01=0x007c}
0x014ec…01510 Head {h00=0x0020, h01=0x0050, text=» ENTRY ICINP INTERTASK INPUT«, t00=0x000d, t01=0x00a4}
0x01510…0153a Head {h00=0x0026, h01=0x0050, text=» ENTRY ICSET SET INTERTASK TIMEOUT«, t00=0x000d, t01=0x00c8}
0x0153a…0155e Head {h00=0x0020, h01=0x0050, text=» ENTRY ICWRT WRITE INTERTASK«, t00=0x000d, t01=0x00f2}
0x0155e…01582 Head {h00=0x0020, h01=0x0050, text=» ENTRY ICREAD READ INTERTASK«, t00=0x000d, t01=0x0116}
0x01582…01590 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000d, t01=0x013a}
0x01590…01598 Head {h00=0x0004, h01=0x0050, t00=0x000d, t01=0x0148}
0x01598…015d6 Head {h00=0x003a, h01=0x0050, text=»******************************************************«, t00=0x000d, t01=0x0150}
0x015d6…01614 Head {h00=0x003a, h01=0x0050, text=»* *«, t00=0x000d, t01=0x018e}
0x01614…01652 Head {h00=0x003a, h01=0x0050, text=»* EXTERNAL REFERENCES *«, t00=0x000e, t01=0x003c}
0x01652…01690 Head {h00=0x003a, h01=0x0050, text=»* *«, t00=0x000e, t01=0x007a}
0x01690…016ce Head {h00=0x003a, h01=0x0050, text=»******************************************************«, t00=0x000e, t01=0x00b8}
0x016ce…016d6 Head {h00=0x0004, h01=0x0050, t00=0x000e, t01=0x00f6}
0x016d6…01700 Head {h00=0x0026, h01=0x0050, text=» EXTRN I:RT1 RETURN TO CREDIT CODE«, t00=0x000e, t01=0x00fe}
0x01700…01736 Head {h00=0x0032, h01=0x0050, text=» EXTRN ATMASB SEARCH ATTRIBUTE BACKWARDS (VDU)«, t00=0x000e, t01=0x0128}
0x01736…0176a Head {h00=0x0030, h01=0x0050, text=» EXTRN ATMASF SEARCH ATTRIBUTE FORWARD (VDU)«, t00=0x000e, t01=0x015e}
0x0176a…0179e (15, 0, 400) Head {h00=0x0030, h01=0x0050, text=» EXTRN DCABOR ABORT DC-REQUEST (DCSNA,DCBSC)«, t00=0x000f, t01=0x0004}
0x0179e…017cc Head {h00=0x002a, h01=0x0050, text=» EXTRN ERASE ERASE ENTIRE SCREEN (VDU)«, t00=0x000f, t01=0x0038}
0x017cc…01808 Head {h00=0x0038, h01=0x0050, text=» EXTRN ERASUA ERASE ALL UNPROTECTED TO ADDRESS (VDU)«, t00=0x000f, t01=0x0066}
0x01808…0183a Head {h00=0x002e, h01=0x0050, text=» EXTRN ERASUP ERASE ALL UNPROTECTED (VDU) «, t00=0x000f, t01=0x00a2}
0x0183a…01870 Head {h00=0x0032, h01=0x0050, text=» EXTRN TRPA TRANSMIT SHORT READ (DCSNA,DCBSC) «, t00=0x000f, t01=0x00d4}
0x01870…018a8 Head {h00=0x0034, h01=0x0050, text=» EXTRN TRPF TRANSMIT MODIFIED READ (DCSNA,DCBSC)«, t00=0x000f, t01=0x010a}
0x018a8…018d8 Head {h00=0x002c, h01=0x0050, text=» EXTRN TSTSTA TEST STATUS (DCSNA,DCBSC) «, t00=0x000f, t01=0x0142}
0x018d8…0190c Head {h00=0x0030, h01=0x0050, text=» EXTRN WCHAR DISPLAY CHAR. AND CURSOR (VDU) «, t00=0x000f, t01=0x0172}
0x0190c…0193e Head {h00=0x002e, h01=0x0050, text=» EXTRN SOUND SOUND ALARM ON DISPLAY (VDU)«, t00=0x0010, t01=0x0016}
0x0193e…01970 Head {h00=0x002e, h01=0x0050, text=» EXTRN SCRINF GET SCREEN INFORMATION (VDU)«, t00=0x0010, t01=0x0048}
0x01970…019a4 Head {h00=0x0030, h01=0x0050, text=» EXTRN STOINF SAVE SCREEN INFORMATION (VDU) «, t00=0x0010, t01=0x007a}
0x019a4…019d8 Head {h00=0x0030, h01=0x0050, text=» EXTRN GETVDU GET CHAR. IN VDU BUFFER (VDU) «, t00=0x0010, t01=0x00ae}
0x019d8…01a0e Head {h00=0x0032, h01=0x0050, text=» EXTRN STOVDU STORE CHAR. IN VDU BUFFER (VDU) «, t00=0x0010, t01=0x00e2}
0x01a0e…01a38 Head {h00=0x0026, h01=0x0050, text=» EXTRN DISCHA DISPLAY CHAR. (VDU) «, t00=0x0010, t01=0x0118}
0x01a38…01a72 Head {h00=0x0036, h01=0x0050, text=» EXTRN POSUNP MOVE CURSOR TO NEXT UNPR. POS. (VDU)«, t00=0x0010, t01=0x0142}
0x01a72…01aa2 Head {h00=0x002c, h01=0x0050, text=» EXTRN INSMOD INSERT MODE ROUTINE (VDU) «, t00=0x0010, t01=0x017c}
0x01aa2…01adc Head {h00=0x0036, h01=0x0050, text=» EXTRN DCOFLN INDICATE OFFLINE TO DC (DCSNA,DCBSC)«, t00=0x0011, t01=0x001c}
0x01adc…01b10 Head {h00=0x0030, h01=0x0050, text=» EXTRN DISMOD DISPLAY MODIFIED FIELDS (VDU) «, t00=0x0011, t01=0x0056}
0x01b10…01b42 Head {h00=0x002e, h01=0x0050, text=» EXTRN CONPF CONVERT PF-KEY TABLE (CONVER)«, t00=0x0011, t01=0x008a}
0x01b42…01b70 Head {h00=0x002a, h01=0x0050, text=» EXTRN OPSYS OPEN SYSTEM (DCSNA,DCBSC)«, t00=0x0011, t01=0x00bc}
0x01b70…01b98 Head {h00=0x0024, h01=0x0050, text=» EXTRN LINE GET LINE FLAG (VDU) «, t00=0x0011, t01=0x00ea}
0x01b98…01bc2 Head {h00=0x0026, h01=0x0050, text=» EXTRN SAVE1 SAVE1 REGISTERS (PAD)«, t00=0x0011, t01=0x0112}
0x01bc2…01bee Head {h00=0x0028, h01=0x0050, text=» EXTRN REST1 REST1E REGISTERS (PAD) «, t00=0x0011, t01=0x013c}
0x01bee…01c1a Head {h00=0x0028, h01=0x0050, text=» EXTRN DISID DISPLAY HARDCOPY TASKID«, t00=0x0011, t01=0x0168}
0x01c1a…01c40 (18, 0, 400) Head {h00=0x0022, h01=0x0050, text=» EXTRN GETBUF GET BUFFER (PAD)«, t00=0x0012, t01=0x0004}
0x01c40…01c6a Head {h00=0x0026, h01=0x0050, text=» EXTRN RELBUF RELEASE BUFFER (PAD)«, t00=0x0012, t01=0x002a}
0x01c6a…01c98 Head {h00=0x002a, h01=0x0050, text=» EXTRN DISSTA DISPLAY STATISTICS (VDU)«, t00=0x0012, t01=0x0054}
0x01c98…01cc6 Head {h00=0x002a, h01=0x0050, text=» EXTRN RDSTAT READ STATISTICS (DCBSC) «, t00=0x0012, t01=0x0082}
0x01cc6…01cfc Head {h00=0x0032, h01=0x0050, text=» EXTRN CHKSTA CHECK LINE STATUS (DCBSC,DCSNA) «, t00=0x0012, t01=0x00b0}
0x01cfc…01d24 Head {h00=0x0024, h01=0x0050, text=» EXTRN SETSTA SET STATUS (DCSNA)«, t00=0x0012, t01=0x00e6}
0x01d24…01d32 Head {h00=0x000a, h01=0x0006, text=» EJECT«, t00=0x0012, t01=0x010e}
0x01d32…01d78 Head {h00=0x0042, h01=0x003d, text=»************************************************************* «, t00=0x0012, t01=0x011c}
0x01d78…01dbe Head {h00=0x0042, h01=0x003d, text=»* * «, t00=0x0012, t01=0x0162}
0x01dbe…01e04 Head {h00=0x0042, h01=0x003d, text=»* CONDITIONAL ASSEMBLY PARAMETERS * «, t00=0x0013, t01=0x0018}
0x01e04…01e4a Head {h00=0x0042, h01=0x003d, text=»* * «, t00=0x0013, t01=0x005e}
0x01e4a…01e90 Head {h00=0x0042, h01=0x003d, text=»************************************************************* «, t00=0x0013, t01=0x00a4}
0x01e90…01e98 Head {h00=0x0004, h01=0x0050, t00=0x0013, t01=0x00ea}
0x01e98…01ec6 Head {h00=0x002a, h01=0x0050, text=»X:A EQU 0 SNA HANDLING INCLUDED IF:=1 «, t00=0x0013, t01=0x00f2}
0x01ec6…01eda Head {h00=0x0010, h01=0x0050, text=»SNA EQU X:A «, t00=0x0013, t01=0x0120}
0x01eda…01f04 Head {h00=0x0026, h01=0x0050, text=»X:C EQU 0 OFFLINE HANDLING IF :=1 «, t00=0x0013, t01=0x0134}
0x01f04…01f1a Head {h00=0x0012, h01=0x000d, text=»OFLIN EQU X:C «, t00=0x0013, t01=0x015e}
0x01f1a…01f42 Head {h00=0x0024, h01=0x0050, text=»X:D EQU 1 NUMBER OF LINES (1-2) «, t00=0x0013, t01=0x0174}
0x01f42…01f58 Head {h00=0x0012, h01=0x0050, text=»NBRLIN EQU X:D«, t00=0x0014, t01=0x000c}
0x01f58…01f80 Head {h00=0x0024, h01=0x0050, text=»X:F EQU 0 KEY-LOCK STATUS IF:=1 «, t00=0x0014, t01=0x0022}
0x01f80…01f96 Head {h00=0x0012, h01=0x0050, text=»KEYLST EQU X:F«, t00=0x0014, t01=0x004a}
0x01f96…01fbe Head {h00=0x0024, h01=0x0050, text=»X:G EQU 0 PF KEY HANDLING IF:=1 «, t00=0x0014, t01=0x0060}
0x01fbe…01fd2 Head {h00=0x0010, h01=0x0050, text=»PFX EQU X:G «, t00=0x0014, t01=0x0088}
0x01fd2…01ffa Head {h00=0x0024, h01=0x0050, text=»X:H EQU 0 PA KEY HANDLING IF :=1«, t00=0x0014, t01=0x009c}
0x01ffa…0200e Head {h00=0x0010, h01=0x0050, text=»PAX EQU X:H «, t00=0x0014, t01=0x00c4}
0x0200e…0203e Head {h00=0x002c, h01=0x0050, text=»X:I EQU 1 INSERT/DELETE HANDLING IF :=1 «, t00=0x0014, t01=0x00d8}
0x0203e…02054 Head {h00=0x0012, h01=0x0050, text=»IN:DL EQU X:I «, t00=0x0014, t01=0x0108}
0x02054…0207c Head {h00=0x0024, h01=0x0050, text=»X:J EQU 1 KB6272 INCLUDED IF :=1«, t00=0x0014, t01=0x011e}
0x0207c…02092 Head {h00=0x0012, h01=0x0050, text=»KB6272 EQU X:J«, t00=0x0014, t01=0x0146}
0x02092…020c0 Head {h00=0x002a, h01=0x0050, text=»X:M EQU 0 COPY COMMAND INCLUDED IF:=1 «, t00=0x0014, t01=0x015c}
0x020c0…020d6 Head {h00=0x0012, h01=0x0050, text=»COPCMD EQU X:M«, t00=0x0014, t01=0x018a}
0x020d6…02100 Head {h00=0x0026, h01=0x0050, text=»X:O EQU 0 TEST MODE INCLUDED IF:=1«, t00=0x0015, t01=0x0010}
0x02100…02114 Head {h00=0x0010, h01=0x0050, text=»TEST EQU X:O«, t00=0x0015, t01=0x003a}
0x02114…02148 Head {h00=0x0030, h01=0x0050, text=»X:P EQU 0 COPY LOCK FUNCTION INCLUDED IF:=1 «, t00=0x0015, t01=0x004e}
0x02148…0215c Head {h00=0x0010, h01=0x0050, text=»COPL EQU X:P«, t00=0x0015, t01=0x0082}
0x0215c…0216a Head {h00=0x000a, h01=0x0006, text=» EJECT«, t00=0x0015, t01=0x0096}
0x0216a…021b2 Head {h00=0x0044, h01=0x003f, text=»*************************************************************** «, t00=0x0015, t01=0x00a4}
0x021b2…021fa Head {h00=0x0044, h01=0x003f, text=»* * «, t00=0x0015, t01=0x00ec}
0x021fa…02224 Head {h00=0x0026, h01=0x0050, text=»* DECLARATIONS OF DATA AND EQUATES«, t00=0x0015, t01=0x0134}
0x02224…0226c Head {h00=0x0044, h01=0x003f, text=»* * «, t00=0x0015, t01=0x015e}
0x0226c…022b4 Head {h00=0x0044, h01=0x003f, text=»*************************************************************** «, t00=0x0016, t01=0x0016}
0x022b4…022bc Head {h00=0x0004, h01=0x0002, t00=0x0016, t01=0x005e}
0x022bc…022c6 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0016, t01=0x0066}
0x022c6…022e6 Head {h00=0x001c, h01=0x0017, text=»* PREDEFINED KEYS «, t00=0x0016, t01=0x0070}
0x022e6…022f0 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0016, t01=0x0090}
0x022f0…0231e Head {h00=0x002a, h01=0x0050, text=»CRUP EQU /80 FIRST "MOVE CURSOR " KEY «, t00=0x0016, t01=0x009a}
0x0231e…0234e Head {h00=0x002c, h01=0x0028, text=»ERFKEY EQU /88 ERASE TO END OF FIELD-KEY«, t00=0x0016, t01=0x00c8}
0x0234e…02376 Head {h00=0x0024, h01=0x0020, text=»ERIKEY EQU /89 ERASE ALL UNPROT.«, t00=0x0016, t01=0x00f8}
0x02376…02394 Head {h00=0x001a, h01=0x0016, text=»RSET EQU /8C RESET KEY«, t00=0x0016, t01=0x0120}
0x02394…023b4 Head {h00=0x001c, h01=0x0050, text=»IDKEY EQU /93 IDENT KEY «, t00=0x0016, t01=0x013e}
0x023b4…023de Head {h00=0x0026, h01=0x0050, text=»FKLKEY EQU /94 FIRST KEYLOCK VALUE«, t00=0x0016, t01=0x015e}
0x023de…02408 Head {h00=0x0026, h01=0x0050, text=»LKLKEY EQU /9C LAST KEYLOCK VALUE «, t00=0x0016, t01=0x0188}
0x02408…02434 Head {h00=0x0028, h01=0x0050, text=»FIPA EQU /9F FIRST PROGRAM ATTN. KEY«, t00=0x0017, t01=0x0022}
0x02434…02454 Head {h00=0x001c, h01=0x0050, text=»ENTKEY EQU /A0 ENTER KEY«, t00=0x0017, t01=0x004e}
0x02454…0247e Head {h00=0x0026, h01=0x0050, text=»SYSKEY EQU /A1 SYSTEM REQUEST KEY «, t00=0x0017, t01=0x006e}
0x0247e…0249e Head {h00=0x001c, h01=0x0050, text=»CLRKEY EQU /A2 CLEAR KEY«, t00=0x0017, t01=0x0098}
0x0249e…024c8 Head {h00=0x0026, h01=0x0050, text=»PFKEY EQU /B1 PROGRAM FUNTION KEY «, t00=0x0017, t01=0x00b8}
0x024c8…024f4 Head {h00=0x0028, h01=0x0050, text=»LAKEY EQU /C9 LAST KEY IN KEY-TABLE «, t00=0x0017, t01=0x00e2}
0x024f4…024fe Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0017, t01=0x010e}
0x024fe…02526 Head {h00=0x0024, h01=0x0020, text=»* EQUATES FOR ECB HANDLING«, t00=0x0017, t01=0x0118}
0x02526…02530 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0017, t01=0x0140}
0x02530…02552 Head {h00=0x001e, h01=0x001a, text=»ECBBA EQU 2 BUFFER ADDRESS«, t00=0x0017, t01=0x014a}
0x02552…02576 Head {h00=0x0020, h01=0x001c, text=»ECBRL EQU 4 REQUESTED LENGTH«, t00=0x0017, t01=0x016c}
0x02576…0259a Head {h00=0x0020, h01=0x001c, text=»ECBEL EQU 6 EFFECTIVE LENGTH«, t00=0x0017, t01=0x0190}
0x0259a…025ba Head {h00=0x001c, h01=0x0017, text=»ECBRC EQU 8 RETURN CODE «, t00=0x0018, t01=0x0024}
0x025ba…025dc Head {h00=0x001e, h01=0x0019, text=»ECBCW EQU 10 CONTROL WORD «, t00=0x0018, t01=0x0044}
0x025dc…025e6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0018, t01=0x0066}
0x025e6…02602 Head {h00=0x0018, h01=0x0050, text=»* SPECIAL CHARACTERS«, t00=0x0018, t01=0x0070}
0x02602…0260c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0018, t01=0x008c}
0x0260c…0262a Head {h00=0x001a, h01=0x0050, text=»NULL EQU 0 NULL CHAR. «, t00=0x0018, t01=0x0096}
0x0262a…02650 Head {h00=0x0022, h01=0x0050, text=»DUPCH EQU /1C DUPLICATE CHAR. «, t00=0x0018, t01=0x00b4}
0x02650…02676 Head {h00=0x0022, h01=0x0050, text=»FMCH EQU /1E FIELD MARK CHAR. «, t00=0x0018, t01=0x00da}
0x02676…02680 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0018, t01=0x0100}
0x02680…0269e Head {h00=0x001a, h01=0x0050, text=»* LAMPCONSTANTS«, t00=0x0018, t01=0x010a}
0x0269e…026a8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0018, t01=0x0128}
0x026a8…026bc Head {h00=0x0010, h01=0x0050, text=»LON EQU /B7 «, t00=0x0018, t01=0x0132}
0x026bc…026d0 Head {h00=0x0010, h01=0x0050, text=»LOF EQU /B8 «, t00=0x0018, t01=0x0146}
0x026d0…026ea Head {h00=0x0016, h01=0x0050, text=»LFL EQU /B9 FLASH «, t00=0x0018, t01=0x015a}
0x026ea…02700 Head {h00=0x0012, h01=0x0050, text=» IFT KB6272=1 «, t00=0x0018, t01=0x0174}
0x02700…02716 Head {h00=0x0012, h01=0x0050, text=»LAMP1 EQU /20 «, t00=0x0018, t01=0x018a}
0x02716…0272c Head {h00=0x0012, h01=0x0050, text=»LAMP2 EQU /10 «, t00=0x0019, t01=0x0010}
0x0272c…02740 Head {h00=0x0010, h01=0x0050, text=»LAMP3 EQU 8 «, t00=0x0019, t01=0x0026}
0x02740…02754 Head {h00=0x0010, h01=0x0050, text=»LAMP4 EQU 4 «, t00=0x0019, t01=0x003a}
0x02754…02768 Head {h00=0x0010, h01=0x0050, text=»LAMP5 EQU 2 «, t00=0x0019, t01=0x004e}
0x02768…0277c Head {h00=0x0010, h01=0x0050, text=»LAMP6 EQU 1 «, t00=0x0019, t01=0x0062}
0x0277c…02788 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0019, t01=0x0076}
0x02788…0279e Head {h00=0x0012, h01=0x0050, text=» IFF KB6272=1 «, t00=0x0019, t01=0x0082}
0x0279e…027b2 Head {h00=0x0010, h01=0x0050, text=»LAMP1 EQU 0 «, t00=0x0019, t01=0x0098}
0x027b2…027c6 Head {h00=0x0010, h01=0x0050, text=»LAMP2 EQU 0 «, t00=0x0019, t01=0x00ac}
0x027c6…027da Head {h00=0x0010, h01=0x0050, text=»LAMP3 EQU 1 «, t00=0x0019, t01=0x00c0}
0x027da…027ee Head {h00=0x0010, h01=0x0050, text=»LAMP4 EQU 2 «, t00=0x0019, t01=0x00d4}
0x027ee…02802 Head {h00=0x0010, h01=0x0050, text=»LAMP5 EQU 4 «, t00=0x0019, t01=0x00e8}
0x02802…02816 Head {h00=0x0010, h01=0x0050, text=»LAMP6 EQU 8 «, t00=0x0019, t01=0x00fc}
0x02816…02822 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0019, t01=0x0110}
0x02822…0282c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0019, t01=0x011c}
0x0282c…02846 Head {h00=0x0016, h01=0x0050, text=»* VDU SCREEN SIZE «, t00=0x0019, t01=0x0126}
0x02846…02850 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0019, t01=0x0140}
0x02850…02870 Head {h00=0x001c, h01=0x0050, text=»LLINE EQU 80 LINE LENGTH«, t00=0x0019, t01=0x014a}
0x02870…02892 Head {h00=0x001e, h01=0x0050, text=»LBVDU EQU 1920 TOTAL SIZE «, t00=0x0019, t01=0x016a}
0x02892…0289c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0019, t01=0x018c}
0x0289c…028ac Head {h00=0x000c, h01=0x0050, text=»* MODES «, t00=0x001a, t01=0x0008}
0x028ac…028b6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001a, t01=0x0018}
0x028b6…028d8 Head {h00=0x001e, h01=0x0050, text=»NEWMOD EQU /8000 NEW MODE «, t00=0x001a, t01=0x0022}
0x028d8…02906 Head {h00=0x002a, h01=0x0050, text=»HCPMOD EQU /4000 HARDCOPY OUTSTANDING «, t00=0x001a, t01=0x0044}
0x02906…0292a Head {h00=0x0020, h01=0x0050, text=»MYJOB EQU /0004 MY JOB MODE «, t00=0x001a, t01=0x0072}
0x0292a…02956 Head {h00=0x0028, h01=0x0050, text=»SYSOP EQU /0002 SYSTEM OPERATOR MODE«, t00=0x001a, t01=0x0096}
0x02956…0297a Head {h00=0x0020, h01=0x0050, text=»LOCMOD EQU /0000 LOCAL MODE «, t00=0x001a, t01=0x00c2}
0x0297a…02984 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x001a, t01=0x00e6}
0x02984…029a6 Head {h00=0x001e, h01=0x0050, text=»* TASK IDENTIFICATION CODE«, t00=0x001a, t01=0x00f0}
0x029a6…029b0 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x001a, t01=0x0112}
0x029b0…029d4 Head {h00=0x0020, h01=0x0050, text=»VDUCOD EQU 'VV' VDU KB TASK «, t00=0x001a, t01=0x011c}
0x029d4…029e2 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x001a, t01=0x0140}
0x029e2…029ec Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001a, t01=0x014e}
0x029ec…02a0c Head {h00=0x001c, h01=0x0050, text=»* RELATIVE ADDRESSES IN «, t00=0x001a, t01=0x0158}
0x02a0c…02a28 Head {h00=0x0018, h01=0x0050, text=»* TERMINAL WORKBLOCK«, t00=0x001a, t01=0x0178}
0x02a28…02a32 (27, 0, 400) Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001b, t01=0x0004}
0x02a32…02a56 Head {h00=0x0020, h01=0x0050, text=»BVDU EQU 2 VDU SCREEN BUFFER«, t00=0x001b, t01=0x000e}
0x02a56…02a7e Head {h00=0x0024, h01=0x0050, text=»LINFLG EQU BVDU+1920 LINE FLAGS «, t00=0x001b, t01=0x0032}
0x02a7e…02aa2 Head {h00=0x0020, h01=0x0050, text=»WCC EQU LINFLG+30 WCC CHAR. «, t00=0x001b, t01=0x005a}
0x02aa2…02ad4 Head {h00=0x002e, h01=0x0050, text=»KBINH EQU WCC+2 KEYBOARD INHIBIT INDICATOR«, t00=0x001b, t01=0x007e}
0x02ad4…02afc Head {h00=0x0024, h01=0x0050, text=»OFFFLG EQU KBINH+8 OFFLINE FLAG «, t00=0x001b, t01=0x00b0}
0x02afc…02b28 Head {h00=0x0028, h01=0x0050, text=»PRTID EQU OFFFLG+2 HARDCOPY PRINTER «, t00=0x001b, t01=0x00d8}
0x02b28…02b4c Head {h00=0x0020, h01=0x0050, text=»MAIN EQU PRTID+6 MAIN FRAME «, t00=0x001b, t01=0x0104}
0x02b4c…02b76 Head {h00=0x0026, h01=0x0050, text=»MODE EQU MAIN+2 INSERT MODE SWITCH«, t00=0x001b, t01=0x0128}
0x02b76…02b9e Head {h00=0x0024, h01=0x0050, text=»KEYS EQU MODE+2 KEY LOCK STATUS «, t00=0x001b, t01=0x0152}
0x02b9e…02bd6 Head {h00=0x0034, h01=0x0050, text=»RDMORE EQU KEYS+12 BRANCH ADDRESS TO NEXT KB-KEY«, t00=0x001b, t01=0x017a}
0x02bd6…02c0c Head {h00=0x0032, h01=0x0050, text=»CURPOS EQU RDMORE+2 CURSOR POS. IN SYSTEM MODE«, t00=0x001c, t01=0x0022}
0x02c0c…02c30 Head {h00=0x0020, h01=0x0050, text=»REGI EQU CURPOS+4 SAVE AREA «, t00=0x001c, t01=0x0058}
0x02c30…02c54 Head {h00=0x0020, h01=0x0050, text=»SNAMOD EQU REGI+32 SNA MODE «, t00=0x001c, t01=0x007c}
0x02c54…02c76 Head {h00=0x001e, h01=0x0050, text=»BSCMOD EQU SNAMOD BSC MODE«, t00=0x001c, t01=0x00a0}
0x02c76…02c98 Head {h00=0x001e, h01=0x0050, text=»ECBKB EQU BSCMOD+2 ECB KB «, t00=0x001c, t01=0x00c2}
0x02c98…02cc4 Head {h00=0x0028, h01=0x0050, text=»ECBSD EQU ECBKB+4 ECB SIGNAL DISPLAY«, t00=0x001c, t01=0x00e4}
0x02cc4…02cf2 Head {h00=0x002a, h01=0x0050, text=»ECBICR EQU ECBSD+4 ECB INTERTASK READ «, t00=0x001c, t01=0x0110}
0x02cf2…02d20 Head {h00=0x002a, h01=0x0050, text=»ECBICW EQU ECBICR+2 ECB INTERTAS WRITE«, t00=0x001c, t01=0x013e}
0x02d20…02d2a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001c, t01=0x016c}
0x02d2a…02d4a Head {h00=0x001c, h01=0x0050, text=»* RELATIVE ADDRESSES IN «, t00=0x001c, t01=0x0176}
0x02d4a…02d64 Head {h00=0x0016, h01=0x0050, text=»* COMMON WORKBLOCK«, t00=0x001d, t01=0x0008}
0x02d64…02d6e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001d, t01=0x0022}
0x02d6e…02d82 Head {h00=0x0010, h01=0x0050, text=» IFF TEST=1 «, t00=0x001d, t01=0x002c}
0x02d82…02da2 Head {h00=0x001c, h01=0x0050, text=»TSKTAB EQU 24 TASK TABLE«, t00=0x001d, t01=0x0040}
0x02da2…02dae Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x001d, t01=0x0060}
0x02dae…02dc2 Head {h00=0x0010, h01=0x0050, text=» IFT TEST=1 «, t00=0x001d, t01=0x006c}
0x02dc2…02de4 Head {h00=0x001e, h01=0x0050, text=»TSKTAB EQU 219 TASK TABLE «, t00=0x001d, t01=0x0080}
0x02de4…02df0 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x001d, t01=0x00a2}
0x02df0…02dfe Head {h00=0x000a, h01=0x0006, text=» EJECT«, t00=0x001d, t01=0x00ae}
0x02dfe…02e46 Head {h00=0x0044, h01=0x0040, text=»****************************************************************«, t00=0x001d, t01=0x00bc}
0x02e46…02e8e Head {h00=0x0044, h01=0x0040, text=»* *«, t00=0x001d, t01=0x0104}
0x02e8e…02ed6 Head {h00=0x0044, h01=0x0040, text=»* KBINP MAIN ROUTINE *«, t00=0x001d, t01=0x014c}
0x02ed6…02f1e (30, 0, 400) Head {h00=0x0044, h01=0x0040, text=»* *«, t00=0x001e, t01=0x0004}
0x02f1e…02f66 Head {h00=0x0044, h01=0x0040, text=»****************************************************************«, t00=0x001e, t01=0x004c}
0x02f66…02f7a Head {h00=0x0010, h01=0x0050, text=»* REGISTERS«, t00=0x001e, t01=0x0094}
0x02f7a…02f84 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001e, t01=0x00a8}
0x02f84…02f9c Head {h00=0x0014, h01=0x0050, text=»* A2= KEY-CHAR. «, t00=0x001e, t01=0x00b2}
0x02f9c…02fba Head {h00=0x001a, h01=0x0050, text=»* A3= KEY-TABLE INDEX «, t00=0x001e, t01=0x00ca}
0x02fba…02fd0 Head {h00=0x0012, h01=0x0050, text=»* A4= RESERVED«, t00=0x001e, t01=0x00e8}
0x02fd0…02fe6 Head {h00=0x0012, h01=0x0050, text=»* A5= RESERVED«, t00=0x001e, t01=0x00fe}
0x02fe6…02ffc Head {h00=0x0012, h01=0x0050, text=»* A6= RESERVED«, t00=0x001e, t01=0x0114}
0x02ffc…03020 Head {h00=0x0020, h01=0x0050, text=»* A7= KEY-HANDLING INDICATOR«, t00=0x001e, t01=0x012a}
0x03020…03040 Head {h00=0x001c, h01=0x0050, text=»* A11= CREDIT WORK AREA «, t00=0x001e, t01=0x014e}
0x03040…03058 Head {h00=0x0014, h01=0x0050, text=»* A13= RESERVED «, t00=0x001e, t01=0x016e}
0x03058…03062 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001e, t01=0x0186}
0x03062…030a6 Head {h00=0x0040, h01=0x0050, text=»*********************************************************** «, t00=0x001e, t01=0x0190}
0x030a6…030ba Head {h00=0x0010, h01=0x000b, text=»KBINP EQU * «, t00=0x001f, t01=0x0044}
0x030ba…030da Head {h00=0x001c, h01=0x0050, text=» LD A1,ECBCW,A8 KEYS? =2«, t00=0x001f, t01=0x0058}
0x030da…030f6 Head {h00=0x0018, h01=0x0050, text=» RF(N) KBIN10 YES =2«, t00=0x001f, t01=0x0078}
0x030f6…0311a Head {h00=0x0020, h01=0x0050, text=» LD A3,ECBRC,A8 POWER ON? =2«, t00=0x001f, t01=0x0094}
0x0311a…03136 Head {h00=0x0018, h01=0x0050, text=» RF(Z) KBIN80 YES =2«, t00=0x001f, t01=0x00b8}
0x03136…0315c Head {h00=0x0022, h01=0x0050, text=» RF KBIN20 TAKE CARE OF KEY =2«, t00=0x001f, t01=0x00d4}
0x0315c…03176 Head {h00=0x0016, h01=0x0050, text=»KBIN10 EQU * . =2 «, t00=0x001f, t01=0x00fa}
0x03176…0318c Head {h00=0x0012, h01=0x0050, text=» IFT KEYLST=0 «, t00=0x001f, t01=0x0114}
0x0318c…031ac Head {h00=0x001c, h01=0x0050, text=» RF(N) KBIN80 SKIP KEYS «, t00=0x001f, t01=0x012a}
0x031ac…031b8 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x001f, t01=0x014a}
0x031b8…031ce Head {h00=0x0012, h01=0x0050, text=» IFT KEYLST=1 «, t00=0x001f, t01=0x0156}
0x031ce…031f8 Head {h00=0x0026, h01=0x0050, text=» LC* A2,ECBBA,A8 GET KEYLOCK VALUE«, t00=0x001f, t01=0x016c}
0x031f8…03226 Head {h00=0x002a, h01=0x0050, text=» ADKL A2,FKLKEY-/70 PREPARE FOR TABLE «, t00=0x0020, t01=0x0008}
0x03226…03246 Head {h00=0x001c, h01=0x0050, text=» SC* A2,ECBBA,A8 RESTORE«, t00=0x0020, t01=0x0036}
0x03246…03252 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0020, t01=0x0056}
0x03252…0326c Head {h00=0x0016, h01=0x0050, text=»KBIN20 EQU * . =2 «, t00=0x0020, t01=0x0062}
0x0326c…03282 Head {h00=0x0012, h01=0x0050, text=» ANKL A3,/FFF3«, t00=0x0020, t01=0x007c}
0x03282…0329c Head {h00=0x0016, h01=0x0050, text=» RF(NZ) KBIN80 YES«, t00=0x0020, t01=0x0092}
0x0329c…032b4 Head {h00=0x0014, h01=0x0050, text=» LD A1,KBINH,A11«, t00=0x0020, t01=0x00ac}
0x032b4…032d8 Head {h00=0x0020, h01=0x001c, text=» ANK A1,1 KB TOTALY INHIBIT?«, t00=0x0020, t01=0x00c4}
0x032d8…032f2 Head {h00=0x0016, h01=0x0050, text=» RF(NZ) KBIN80 YES«, t00=0x0020, t01=0x00e8}
0x032f2…0331a Head {h00=0x0024, h01=0x0020, text=» LC* A2,ECBBA,A8 GET INPUT CHAR.«, t00=0x0020, t01=0x0102}
0x0331a…0332e Head {h00=0x0010, h01=0x0050, text=» ANK A2,/FF «, t00=0x0020, t01=0x012a}
0x0332e…03346 Head {h00=0x0014, h01=0x0050, text=» LD A1,KBINH,A11«, t00=0x0020, t01=0x013e}
0x03346…0336c Head {h00=0x0022, h01=0x001e, text=» ANK A1,6 MUST BE A RESET KEY?«, t00=0x0020, t01=0x0156}
0x0336c…03384 Head {h00=0x0014, h01=0x0010, text=» RF(Z) KBIN30 NO«, t00=0x0020, t01=0x017c}
0x03384…033a4 (33, 0, 398) Head {h00=0x001c, h01=0x0017, text=» CWK A2,RSET RESET KEY? «, t00=0x0021, t01=0x0004}
0x033a4…033b6 Head {h00=0x000e, h01=0x000a, text=» IFT SNA=1«, t00=0x0021, t01=0x0024}
0x033b6…033d0 Head {h00=0x0016, h01=0x0011, text=» RF(E) KBIN30 YES «, t00=0x0021, t01=0x0036}
0x033d0…033fa Head {h00=0x0026, h01=0x0022, text=» CWK A2,SYSKEY SYSTEM REQUEST KEY?«, t00=0x0021, t01=0x0050}
0x033fa…03406 Head {h00=0x0008, h01=0x0004, text=» XIF«, t00=0x0021, t01=0x007a}
0x03406…03420 Head {h00=0x0016, h01=0x0050, text=» RF(NE) KBIN80 NO «, t00=0x0021, t01=0x0086}
0x03420…03434 Head {h00=0x0010, h01=0x000c, text=»KBIN30 EQU *«, t00=0x0021, t01=0x00a0}
0x03434…03446 Head {h00=0x000e, h01=0x0050, text=» LDR A3,A2«, t00=0x0021, t01=0x00b4}
0x03446…0346c Head {h00=0x0022, h01=0x0050, text=» SUK A3,/20 INDEX TO KEY-TABLE«, t00=0x0021, t01=0x00c6}
0x0346c…0348e Head {h00=0x001e, h01=0x0050, text=» RF(N) KBIN80 ILLEGAL CHAR«, t00=0x0021, t01=0x00ec}
0x0348e…034a4 Head {h00=0x0012, h01=0x000d, text=» CWK A2,LAKEY «, t00=0x0021, t01=0x010e}
0x034a4…034c6 Head {h00=0x001e, h01=0x0050, text=» RF(G) KBIN80 ILLEGAL CHAR«, t00=0x0021, t01=0x0124}
0x034c6…034d8 Head {h00=0x000e, h01=0x000a, text=» IFT SNA=1«, t00=0x0021, t01=0x0146}
0x034d8…034fe Head {h00=0x0022, h01=0x0050, text=» LD A1,SNAMOD,A11 GET SNA MODE«, t00=0x0021, t01=0x0158}
0x034fe…03512 Head {h00=0x0010, h01=0x0050, text=» ANK A1,/FF «, t00=0x0021, t01=0x017e}
0x03512…03548 (34, 0, 400) Head {h00=0x0032, h01=0x002d, text=» CFI A14,CPLKB,A1 COMPLETE KB IN CURRENT MODE «, t00=0x0022, t01=0x0004}
0x03548…03554 Head {h00=0x0008, h01=0x0004, text=» XIF«, t00=0x0022, t01=0x003a}
0x03554…03566 Head {h00=0x000e, h01=0x000a, text=» IFF SNA=1«, t00=0x0022, t01=0x0046}
0x03566…03578 Head {h00=0x000e, h01=0x0050, text=» LDK A7,0 «, t00=0x0022, t01=0x0058}
0x03578…0359e Head {h00=0x0022, h01=0x001e, text=» CWK A2,FIPA PROGRAM ATTN KEY?«, t00=0x0022, t01=0x006a}
0x0359e…035b6 Head {h00=0x0014, h01=0x0010, text=» RF(L) KBIN40 NO«, t00=0x0022, t01=0x0090}
0x035b6…035ca Head {h00=0x0010, h01=0x0050, text=» CM MODE,A11«, t00=0x0022, t01=0x00a8}
0x035ca…035f2 Head {h00=0x0024, h01=0x0050, text=» CF A14,LMP6OF CLEAR INSERT MODE«, t00=0x0022, t01=0x00bc}
0x035f2…03608 Head {h00=0x0012, h01=0x000e, text=» CF A14,DCABOR«, t00=0x0022, t01=0x00e4}
0x03608…0361c Head {h00=0x0010, h01=0x000c, text=»KBIN40 EQU *«, t00=0x0022, t01=0x00fa}
0x0361c…03628 Head {h00=0x0008, h01=0x0004, text=» XIF«, t00=0x0022, t01=0x010e}
0x03628…0364c Head {h00=0x0020, h01=0x0050, text=» LDR A7,A7 ANY KEY-HANDLING «, t00=0x0022, t01=0x011a}
0x0364c…03666 Head {h00=0x0016, h01=0x0050, text=» RF(NZ) KBIN80 NO «, t00=0x0022, t01=0x013e}
0x03666…0368e Head {h00=0x0024, h01=0x0050, text=» ADR A3,A3 PREPARE FOR KEY-TABLE«, t00=0x0022, t01=0x0158}
0x0368e…036b8 Head {h00=0x0026, h01=0x0050, text=» LD A1,RDMORE,A11 KEY IN SEQUENCE?«, t00=0x0022, t01=0x0180}
0x036b8…036d0 Head {h00=0x0014, h01=0x0010, text=» RF(Z) KBIN50 NO«, t00=0x0023, t01=0x001a}
0x036d0…036fc Head {h00=0x0028, h01=0x0023, text=» CFR A14,A1 CONTINUE AT SAVED LABEL «, t00=0x0023, t01=0x0032}
0x036fc…0370e Head {h00=0x000e, h01=0x000a, text=» RF KBIN90«, t00=0x0023, t01=0x005e}
0x0370e…03722 Head {h00=0x0010, h01=0x000c, text=»KBIN50 EQU *«, t00=0x0023, t01=0x0070}
0x03722…03758 Head {h00=0x0032, h01=0x0050, text=» CFI A14,KEYTAB,A3 BRANCH TO RESP. KEY-HANDLER«, t00=0x0023, t01=0x0084}
0x03758…0376a Head {h00=0x000e, h01=0x0050, text=» RF KBIN90«, t00=0x0023, t01=0x00ba}
0x0376a…0377e Head {h00=0x0010, h01=0x0050, text=»KBIN80 EQU *«, t00=0x0023, t01=0x00cc}
0x0377e…037a4 Head {h00=0x0022, h01=0x0050, text=» CF A14,RESKB RESET KB BUFFER «, t00=0x0023, t01=0x00e0}
0x037a4…037b8 Head {h00=0x0010, h01=0x000c, text=»KBIN90 EQU *«, t00=0x0023, t01=0x0106}
0x037b8…037c8 Head {h00=0x000c, h01=0x0008, text=» RTN A14«, t00=0x0023, t01=0x011a}
0x037c8…037d6 Head {h00=0x000a, h01=0x0006, text=» EJECT«, t00=0x0023, t01=0x012a}
0x037d6…037e8 Head {h00=0x000e, h01=0x0050, text=» IFT SNA=1«, t00=0x0023, t01=0x0138}
0x037e8…03836 Head {h00=0x004a, h01=0x0045, text=»********************************************************************* «, t00=0x0023, t01=0x014a}
0x03836…03884 Head {h00=0x004a, h01=0x0045, text=»* * «, t00=0x0024, t01=0x0008}
0x03884…038d2 Head {h00=0x004a, h01=0x0045, text=»* CPLKB KB-COMPLETION TABLE * «, t00=0x0024, t01=0x0056}
0x038d2…03920 Head {h00=0x004a, h01=0x0045, text=»* * «, t00=0x0024, t01=0x00a4}
0x03920…0396e Head {h00=0x004a, h01=0x0045, text=»********************************************************************* «, t00=0x0024, t01=0x00f2}
0x0396e…03982 Head {h00=0x0010, h01=0x000b, text=»CPLKB EQU * «, t00=0x0024, t01=0x0140}
0x03982…039ae Head {h00=0x0028, h01=0x0050, text=» DATA KBCPLO KB-COMPL. IN LOCAL MODE«, t00=0x0024, t01=0x0154}
0x039ae…039dc Head {h00=0x002a, h01=0x0025, text=» DATA KBCPSY KB-COMPL. IN SYSTEM MODE «, t00=0x0024, t01=0x0180}
0x039dc…03a0a Head {h00=0x002a, h01=0x0025, text=» DATA KBCPJO KB-COMPL. IN MY JOB MODE «, t00=0x0025, t01=0x001e}
0x03a0a…03a18 Head {h00=0x000a, h01=0x0006, text=» EJECT«, t00=0x0025, t01=0x004c}
0x03a18…03a66 Head {h00=0x004a, h01=0x0045, text=»********************************************************************* «, t00=0x0025, t01=0x005a}
0x03a66…03ab4 Head {h00=0x004a, h01=0x0045, text=»* * «, t00=0x0025, t01=0x00a8}
0x03ab4…03b02 Head {h00=0x004a, h01=0x0050, text=»* KBCLO KB-COMPLETION IN LOCAL MODE * «, t00=0x0025, t01=0x00f6}
0x03b02…03b50 Head {h00=0x004a, h01=0x0045, text=»* * «, t00=0x0025, t01=0x0144}
0x03b50…03b9e (38, 0, 400) Head {h00=0x004a, h01=0x0045, text=»********************************************************************* «, t00=0x0026, t01=0x0004}
0x03b9e…03bb2 Head {h00=0x0010, h01=0x0050, text=»* REGISTERS«, t00=0x0026, t01=0x0052}
0x03bb2…03bbc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0026, t01=0x0066}
0x03bbc…03bd2 Head {h00=0x0012, h01=0x0050, text=»* A2= KEY-CHAR«, t00=0x0026, t01=0x0070}
0x03bd2…03bf0 Head {h00=0x001a, h01=0x0050, text=»* A3= KEY-TABLE INDEX «, t00=0x0026, t01=0x0086}
0x03bf0…03c06 Head {h00=0x0012, h01=0x0050, text=»* A4= RESERVED«, t00=0x0026, t01=0x00a4}
0x03c06…03c1c Head {h00=0x0012, h01=0x0050, text=»* A5= RESERVED«, t00=0x0026, t01=0x00ba}
0x03c1c…03c32 Head {h00=0x0012, h01=0x0050, text=»* A6= RESERVED«, t00=0x0026, t01=0x00d0}
0x03c32…03c56 Head {h00=0x0020, h01=0x0050, text=»* A7= KEY-HANDLING INDICATOR«, t00=0x0026, t01=0x00e6}
0x03c56…03c76 Head {h00=0x001c, h01=0x0050, text=»* A11= CREDIT WORK AREA «, t00=0x0026, t01=0x010a}
0x03c76…03c8e Head {h00=0x0014, h01=0x0050, text=»* A13= RESERVED «, t00=0x0026, t01=0x012a}
0x03c8e…03c98 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0026, t01=0x0142}
0x03c98…03cdc Head {h00=0x0040, h01=0x0050, text=»*********************************************************** «, t00=0x0026, t01=0x014c}
0x03cdc…03cf0 Head {h00=0x0010, h01=0x0050, text=»KBCPLO EQU *«, t00=0x0026, t01=0x0190}
0x03cf0…03d18 Head {h00=0x0024, h01=0x001f, text=» LDK A7,0 INDICATE KEY-HANDLING «, t00=0x0027, t01=0x0014}
0x03d18…03d40 Head {h00=0x0024, h01=0x001f, text=» CWK A2,FIPA PROGRAM ATTN, KEY? «, t00=0x0027, t01=0x003c}
0x03d40…03d5a Head {h00=0x0016, h01=0x0050, text=» RF(NG) KBCL90 NO «, t00=0x0027, t01=0x0064}
0x03d5a…03d7c Head {h00=0x001e, h01=0x0019, text=» LDK A7,1 NO KEY-HANDLING «, t00=0x0027, t01=0x007e}
0x03d7c…03da2 Head {h00=0x0022, h01=0x001e, text=» CWK A2,SYSKEY SYSTEM REQUEST?«, t00=0x0027, t01=0x00a0}
0x03da2…03dbc Head {h00=0x0016, h01=0x0050, text=» RF(NE) KBCL80 NO «, t00=0x0027, t01=0x00c6}
0x03dbc…03de6 Head {h00=0x0026, h01=0x0050, text=» CF A14,OPSYS START COMMUNICATION «, t00=0x0027, t01=0x00e0}
0x03de6…03e08 Head {h00=0x001e, h01=0x0050, text=» CF A14,TSTSTA TEST STATUS«, t00=0x0027, t01=0x010a}
0x03e08…03e26 Head {h00=0x001a, h01=0x0050, text=» ANKL A1,/101 ACTIVE? «, t00=0x0027, t01=0x012c}
0x03e26…03e40 Head {h00=0x0016, h01=0x0050, text=» RF(NZ) KBCL90 NO «, t00=0x0027, t01=0x014a}
0x03e40…03e6a Head {h00=0x0026, h01=0x0050, text=» LDK A1,SYSOP INDICATE SYSTEM MODE«, t00=0x0027, t01=0x0164}
0x03e6a…03e9a Head {h00=0x002c, h01=0x0027, text=» ORKL A1,/8000 INDICATE MODE ACTIVATION «, t00=0x0027, t01=0x018e}
0x03e9a…03eb4 Head {h00=0x0016, h01=0x0050, text=» ST A1,SNAMOD,A11 «, t00=0x0028, t01=0x002e}
0x03eb4…03ec6 Head {h00=0x000e, h01=0x0050, text=» RF KBCL90«, t00=0x0028, t01=0x0048}
0x03ec6…03eda Head {h00=0x0010, h01=0x0050, text=»KBCL80 EQU *«, t00=0x0028, t01=0x005a}
0x03eda…03efc Head {h00=0x001e, h01=0x0050, text=» CWK A2,ENTKEY ENTER KEY? «, t00=0x0028, t01=0x006e}
0x03efc…03f16 Head {h00=0x0016, h01=0x0050, text=» RF(NE) KBCL85 NO «, t00=0x0028, t01=0x0090}
0x03f16…03f46 Head {h00=0x002c, h01=0x0050, text=» LD A1,RDMORE,A11 INSIDE IDENT ROUTINE? «, t00=0x0028, t01=0x00aa}
0x03f46…03f5e Head {h00=0x0014, h01=0x0050, text=» RF(Z) KBCL85 NO«, t00=0x0028, t01=0x00da}
0x03f5e…03f86 Head {h00=0x0024, h01=0x0050, text=» LDK A7,0 INDICATE KEY-HANDLING «, t00=0x0028, t01=0x00f2}
0x03f86…03f98 Head {h00=0x000e, h01=0x0050, text=» RF KBCL90«, t00=0x0028, t01=0x011a}
0x03f98…03fac Head {h00=0x0010, h01=0x0050, text=»KBCL85 EQU *«, t00=0x0028, t01=0x012c}
0x03fac…03fce Head {h00=0x001e, h01=0x0019, text=» CF A14,ERROR ILLEGAL KEY «, t00=0x0028, t01=0x0140}
0x03fce…03fe2 Head {h00=0x0010, h01=0x0050, text=»KBCL90 EQU *«, t00=0x0028, t01=0x0162}
0x03fe2…03ff2 Head {h00=0x000c, h01=0x0008, text=» RTN A14«, t00=0x0028, t01=0x0176}
0x03ff2…04000 Head {h00=0x000a, h01=0x0006, text=» EJECT«, t00=0x0028, t01=0x0186}
0x04000…0404c (41, 0, 400) Head {h00=0x0048, h01=0x0044, text=»********************************************************************«, t00=0x0029, t01=0x0004}
0x0404c…04098 Head {h00=0x0048, h01=0x0044, text=»* *«, t00=0x0029, t01=0x0050}
0x04098…040e4 Head {h00=0x0048, h01=0x0044, text=»* KBCPSY KB-COMPLETION IN SYSTEM MODE *«, t00=0x0029, t01=0x009c}
0x040e4…04130 Head {h00=0x0048, h01=0x0044, text=»* *«, t00=0x0029, t01=0x00e8}
0x04130…0417c Head {h00=0x0048, h01=0x0044, text=»********************************************************************«, t00=0x0029, t01=0x0134}
0x0417c…04190 Head {h00=0x0010, h01=0x0050, text=»* REGISTERS«, t00=0x0029, t01=0x0180}
0x04190…0419a (42, 0, 398) Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002a, t01=0x0004}
0x0419a…041b0 Head {h00=0x0012, h01=0x0050, text=»* A2= KEY-CHAR«, t00=0x002a, t01=0x000e}
0x041b0…041ce Head {h00=0x001a, h01=0x0050, text=»* A3= KEY-TABLE INDEX «, t00=0x002a, t01=0x0024}
0x041ce…041e4 Head {h00=0x0012, h01=0x0050, text=»* A4= RESERVED«, t00=0x002a, t01=0x0042}
0x041e4…041fa Head {h00=0x0012, h01=0x0050, text=»* A5= RESERVED«, t00=0x002a, t01=0x0058}
0x041fa…04210 Head {h00=0x0012, h01=0x0050, text=»* A6= RESERVED«, t00=0x002a, t01=0x006e}
0x04210…04234 Head {h00=0x0020, h01=0x0050, text=»* A7= KEY-HANDLING INDICATOR«, t00=0x002a, t01=0x0084}
0x04234…04254 Head {h00=0x001c, h01=0x0050, text=»* A11= CREDIT WORK AREA «, t00=0x002a, t01=0x00a8}
0x04254…0426c Head {h00=0x0014, h01=0x0050, text=»* A13= RESERVED «, t00=0x002a, t01=0x00c8}
0x0426c…04276 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002a, t01=0x00e0}
0x04276…042ba Head {h00=0x0040, h01=0x0050, text=»*********************************************************** «, t00=0x002a, t01=0x00ea}
0x042ba…042ce Head {h00=0x0010, h01=0x000c, text=»KBCPSY EQU *«, t00=0x002a, t01=0x012e}
0x042ce…042f6 Head {h00=0x0024, h01=0x001f, text=» LDK A7,0 INDICATE KEY-HANDLING «, t00=0x002a, t01=0x0142}
0x042f6…0431e Head {h00=0x0024, h01=0x001f, text=» CWK A2,FIPA PROGRAM ATTN. KEY? «, t00=0x002a, t01=0x016a}
0x0431e…04336 (43, 0, 400) Head {h00=0x0014, h01=0x0050, text=» RF(L) KBCS20 NO«, t00=0x002b, t01=0x0004}
0x04336…0436a Head {h00=0x0030, h01=0x0050, text=» CWK A2,CLRKEY UNALLOWED PROGRAM ATTN. KEY? «, t00=0x002b, t01=0x001c}
0x0436a…0438e Head {h00=0x0020, h01=0x0050, text=» RF(NE) KBCS10 NOT CLEAR KEY«, t00=0x002b, t01=0x0050}
0x0438e…043b8 Head {h00=0x0026, h01=0x0050, text=» LDK A7,1 INDICATE NO KEY-HANDLING«, t00=0x002b, t01=0x0074}
0x043b8…043e2 Head {h00=0x0026, h01=0x0050, text=» CF A14,ERASE ERASE ENTIRE SCREEN «, t00=0x002b, t01=0x009e}
0x043e2…043f4 Head {h00=0x000e, h01=0x0050, text=» RF KBCS80«, t00=0x002b, t01=0x00c8}
0x043f4…04408 Head {h00=0x0010, h01=0x0050, text=»KBCS10 EQU *«, t00=0x002b, t01=0x00da}
0x04408…04422 Head {h00=0x0016, h01=0x0011, text=» RF(G) KBCS70 YES «, t00=0x002b, t01=0x00ee}
0x04422…04436 Head {h00=0x0010, h01=0x0050, text=» CM MODE,A11«, t00=0x002b, t01=0x0108}
0x04436…0445e Head {h00=0x0024, h01=0x0050, text=» CF A14,LMP6OF CLEAR INSERT MODE«, t00=0x002b, t01=0x011c}
0x0445e…0447e Head {h00=0x001c, h01=0x0017, text=» CF A14,DCABOR ABORT DC «, t00=0x002b, t01=0x0144}
0x0447e…04490 Head {h00=0x000e, h01=0x000a, text=» RF KBCS80«, t00=0x002b, t01=0x0164}
0x04490…044a4 Head {h00=0x0010, h01=0x0050, text=»KBCS20 EQU *«, t00=0x002b, t01=0x0176}
0x044a4…044cc Head {h00=0x0024, h01=0x001f, text=» CWK A2,ERIKEY ERASE INPUT KEY? «, t00=0x002b, t01=0x018a}
0x044cc…044e6 Head {h00=0x0016, h01=0x0011, text=» RF(E) KBCS80 YES «, t00=0x002c, t01=0x0022}
0x044e6…04514 Head {h00=0x002a, h01=0x0026, text=» CWK A2,ERFKEY ERASE END OF FIELD KEY?«, t00=0x002c, t01=0x003c}
0x04514…0452e Head {h00=0x0016, h01=0x0011, text=» RF(E) KBCS80 YES «, t00=0x002c, t01=0x006a}
0x0452e…04556 Head {h00=0x0024, h01=0x0050, text=» CWK A2,CRUP INITIATE CURSOR? =1«, t00=0x002c, t01=0x0084}
0x04556…04572 Head {h00=0x0018, h01=0x0050, text=» RF(NL) KBCS90 NO =1«, t00=0x002c, t01=0x00ac}
0x04572…0458c Head {h00=0x0016, h01=0x0050, text=» LD A1,CURPOS,A11 «, t00=0x002c, t01=0x00c8}
0x0458c…045b2 Head {h00=0x0022, h01=0x0050, text=» CWK A1,/800 CURSOR INITIATED?«, t00=0x002c, t01=0x00e2}
0x045b2…045cc Head {h00=0x0016, h01=0x0012, text=» RF(NE) KBCS90 YES«, t00=0x002c, t01=0x0108}
0x045cc…045f4 Head {h00=0x0024, h01=0x0050, text=» CF A14,SCRINF GET SCREEN INFO. «, t00=0x002c, t01=0x0122}
0x045f4…0461e Head {h00=0x0026, h01=0x0050, text=» ST A4,CURPOS,A11 INITIATE CURSOR «, t00=0x002c, t01=0x014a}
0x0461e…04630 Head {h00=0x000e, h01=0x000a, text=» RF KBCS90«, t00=0x002c, t01=0x0174}
0x04630…04644 Head {h00=0x0010, h01=0x000c, text=»KBCS70 EQU *«, t00=0x002c, t01=0x0186}
0x04644…04668 Head {h00=0x0020, h01=0x001c, text=» CF A14,ERROR INDICATE ERROR«, t00=0x002d, t01=0x000a}
0x04668…0468a Head {h00=0x001e, h01=0x0019, text=» LDK A7,1 NO KEY-HANDLING «, t00=0x002d, t01=0x002e}
0x0468a…0469c Head {h00=0x000e, h01=0x000a, text=» RF KBCS90«, t00=0x002d, t01=0x0050}
0x0469c…046b0 Head {h00=0x0010, h01=0x000c, text=»KBCS80 EQU *«, t00=0x002d, t01=0x0062}
0x046b0…046e0 Head {h00=0x002c, h01=0x0050, text=» LDKL A1,NEWMOD INDICATE MODE ACTIVATION«, t00=0x002d, t01=0x0076}
0x046e0…046fa Head {h00=0x0016, h01=0x0050, text=» ORS A1,SNAMOD,A11«, t00=0x002d, t01=0x00a6}
0x046fa…0470e Head {h00=0x0010, h01=0x000c, text=»KBCS90 EQU *«, t00=0x002d, t01=0x00c0}
0x0470e…0471e Head {h00=0x000c, h01=0x0008, text=» RTN A14«, t00=0x002d, t01=0x00d4}
0x0471e…0472c Head {h00=0x000a, h01=0x0006, text=» EJECT«, t00=0x002d, t01=0x00e4}
0x0472c…04776 Head {h00=0x0046, h01=0x0042, text=»******************************************************************«, t00=0x002d, t01=0x00f2}
0x04776…047c0 Head {h00=0x0046, h01=0x0042, text=»* *«, t00=0x002d, t01=0x013c}
0x047c0…0480a Head {h00=0x0046, h01=0x0042, text=»* KBCPJO KB-COMPLETION IN MY JOB MODE *«, t00=0x002d, t01=0x0186}
0x0480a…04854 Head {h00=0x0046, h01=0x0042, text=»* *«, t00=0x002e, t01=0x0040}
0x04854…0489e Head {h00=0x0046, h01=0x0042, text=»******************************************************************«, t00=0x002e, t01=0x008a}
0x0489e…048b2 Head {h00=0x0010, h01=0x0050, text=»* REGISTERS«, t00=0x002e, t01=0x00d4}
0x048b2…048bc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002e, t01=0x00e8}
0x048bc…048d2 Head {h00=0x0012, h01=0x0050, text=»* A2= KEY-CHAR«, t00=0x002e, t01=0x00f2}
0x048d2…048f0 Head {h00=0x001a, h01=0x0050, text=»* A3= KEY-TABLE INDEX «, t00=0x002e, t01=0x0108}
0x048f0…04906 Head {h00=0x0012, h01=0x0050, text=»* A4= RESERVED«, t00=0x002e, t01=0x0126}
0x04906…0491c Head {h00=0x0012, h01=0x0050, text=»* A5= RESRVED «, t00=0x002e, t01=0x013c}
0x0491c…04932 Head {h00=0x0012, h01=0x0050, text=»* A6= RESRVED «, t00=0x002e, t01=0x0152}
0x04932…04956 Head {h00=0x0020, h01=0x0050, text=»* A7= KEY-HANDLING INDICATOR«, t00=0x002e, t01=0x0168}
0x04956…04976 Head {h00=0x001c, h01=0x0050, text=»* A11= CREDIT WORK AREA «, t00=0x002e, t01=0x018c}
0x04976…0498e Head {h00=0x0014, h01=0x0050, text=»* A13= RESERVED «, t00=0x002f, t01=0x001c}
0x0498e…04998 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002f, t01=0x0034}
0x04998…049dc Head {h00=0x0040, h01=0x0050, text=»************************************************************«, t00=0x002f, t01=0x003e}
0x049dc…049f0 Head {h00=0x0010, h01=0x000c, text=»KBCPJO EQU *«, t00=0x002f, t01=0x0082}
0x049f0…04a18 Head {h00=0x0024, h01=0x001f, text=» LDK A7,0 INDICATE KEY-HANDLING «, t00=0x002f, t01=0x0096}
0x04a18…04a40 Head {h00=0x0024, h01=0x001f, text=» CWK A2,FIPA PROGRAM ATTN. KEY? «, t00=0x002f, t01=0x00be}
0x04a40…04a58 Head {h00=0x0014, h01=0x0050, text=» RF(L) KBCJ90 NO«, t00=0x002f, t01=0x00e6}
0x04a58…04a6c Head {h00=0x0010, h01=0x0050, text=» IFT OFLIN=1«, t00=0x002f, t01=0x00fe}
0x04a6c…04a82 Head {h00=0x0012, h01=0x0050, text=» RF(E) KBCJ80 «, t00=0x002f, t01=0x0112}
0x04a82…04a8e Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x002f, t01=0x0128}
0x04a8e…04aa0 Head {h00=0x000e, h01=0x0050, text=» IFT SNA=1«, t00=0x002f, t01=0x0134}
0x04aa0…04ab4 Head {h00=0x0010, h01=0x0050, text=» CM MODE,A11«, t00=0x002f, t01=0x0146}
0x04ab4…04ae0 Head {h00=0x0028, h01=0x0050, text=» CF A14,LMP6OF TURN OFF INSERT LAMP «, t00=0x002f, t01=0x015a}
0x04ae0…04b00 Head {h00=0x001c, h01=0x0017, text=» CF A14,DCABOR ABORT DC «, t00=0x002f, t01=0x0186}
0x04b00…04b14 Head {h00=0x0010, h01=0x0050, text=» IFT OFLIN=1«, t00=0x0030, t01=0x0016}
0x04b14…04b26 Head {h00=0x000e, h01=0x0050, text=» RF KBCJ90«, t00=0x0030, t01=0x002a}
0x04b26…04b3a Head {h00=0x0010, h01=0x0050, text=»KBCJ80 EQU *«, t00=0x0030, t01=0x003c}
0x04b3a…04b5e Head {h00=0x0020, h01=0x0050, text=» CF A14,ERROR INDICATE ERROR«, t00=0x0030, t01=0x0050}
0x04b5e…04b80 Head {h00=0x001e, h01=0x0050, text=» LDK A7,1 NO KEY-HANDLING «, t00=0x0030, t01=0x0074}
0x04b80…04b8c Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0030, t01=0x0096}
0x04b8c…04b9e Head {h00=0x000e, h01=0x0050, text=» IFT SNA=1«, t00=0x0030, t01=0x00a2}
0x04b9e…04bb2 Head {h00=0x0010, h01=0x000c, text=»KBCJ90 EQU *«, t00=0x0030, t01=0x00b4}
0x04bb2…04bc2 Head {h00=0x000c, h01=0x0008, text=» RTN A14«, t00=0x0030, t01=0x00c8}
0x04bc2…04bce Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0030, t01=0x00d8}
0x04bce…04bdc Head {h00=0x000a, h01=0x0006, text=» EJECT«, t00=0x0030, t01=0x00e4}
0x04bdc…04c24 Head {h00=0x0044, h01=0x003f, text=»*************************************************************** «, t00=0x0030, t01=0x00f2}
0x04c24…04c6c Head {h00=0x0044, h01=0x003f, text=»* * «, t00=0x0030, t01=0x013a}
0x04c6c…04cb4 Head {h00=0x0044, h01=0x003f, text=»* READKB READ KEYBOARD WITH NO WAIT * «, t00=0x0030, t01=0x0182}
0x04cb4…04cfc Head {h00=0x0044, h01=0x003f, text=»* * «, t00=0x0031, t01=0x003a}
0x04cfc…04d44 Head {h00=0x0044, h01=0x003f, text=»*************************************************************** «, t00=0x0031, t01=0x0082}
0x04d44…04d60 Head {h00=0x0018, h01=0x0050, text=»* REGISTERS«, t00=0x0031, t01=0x00ca}
0x04d60…04d6a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0031, t01=0x00e6}
0x04d6a…04d7e Head {h00=0x0010, h01=0x0050, text=»* A8= KB-ECB«, t00=0x0031, t01=0x00f0}
0x04d7e…04d9e Head {h00=0x001c, h01=0x0050, text=»* A11= CREDIT WORK AREA «, t00=0x0031, t01=0x0104}
0x04d9e…04db6 Head {h00=0x0014, h01=0x0050, text=»* A13= RESERVED «, t00=0x0031, t01=0x0124}
0x04db6…04dc0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0031, t01=0x013c}
0x04dc0…04dfe Head {h00=0x003a, h01=0x0050, text=»***************************************************** «, t00=0x0031, t01=0x0146}
0x04dfe…04e12 Head {h00=0x0010, h01=0x000c, text=»READKB EQU *«, t00=0x0031, t01=0x0184}
0x04e12…04e2a Head {h00=0x0014, h01=0x0050, text=» LD A8,ECBKB,A11«, t00=0x0032, t01=0x0008}
0x04e2a…04e3c Head {h00=0x000e, h01=0x0009, text=» LDK A7,1 «, t00=0x0032, t01=0x0020}
0x04e3c…04e54 Head {h00=0x0014, h01=0x000f, text=» ST A7,ECBRL,A8 «, t00=0x0032, t01=0x0032}
0x04e54…04e7e Head {h00=0x0026, h01=0x0050, text=» CM ECBCW,A8 CLEAR TO SEE KEYS =2 «, t00=0x0032, t01=0x004a}
0x04e7e…04e9e Head {h00=0x001c, h01=0x0050, text=» LDK A7,2 STANDARD READ «, t00=0x0032, t01=0x0074}
0x04e9e…04eaa Head {h00=0x0008, h01=0x0004, text=» LKM«, t00=0x0032, t01=0x0094}
0x04eaa…04eba Head {h00=0x000c, h01=0x0007, text=» DATA 1 «, t00=0x0032, t01=0x00a0}
0x04eba…04eca Head {h00=0x000c, h01=0x0008, text=» RTN A14«, t00=0x0032, t01=0x00b0}
0x04eca…04ed8 Head {h00=0x000a, h01=0x0006, text=» EJECT«, t00=0x0032, t01=0x00c0}
0x04ed8…04f20 Head {h00=0x0044, h01=0x003f, text=»*************************************************************** «, t00=0x0032, t01=0x00ce}
0x04f20…04f68 Head {h00=0x0044, h01=0x003f, text=»* * «, t00=0x0032, t01=0x0116}
0x04f68…04fb0 Head {h00=0x0044, h01=0x003f, text=»* RESKB RESET KEYBOARD BUFFER * «, t00=0x0032, t01=0x015e}
0x04fb0…04ff8 Head {h00=0x0044, h01=0x003f, text=»* * «, t00=0x0033, t01=0x0016}
0x04ff8…05040 Head {h00=0x0044, h01=0x003f, text=»*************************************************************** «, t00=0x0033, t01=0x005e}
0x05040…05060 Head {h00=0x001c, h01=0x0050, text=»* REGISTERS «, t00=0x0033, t01=0x00a6}
0x05060…0506a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0033, t01=0x00c6}
0x0506a…0508a Head {h00=0x001c, h01=0x0050, text=»* A11= CREDIT WORK AREA «, t00=0x0033, t01=0x00d0}
0x0508a…050a2 Head {h00=0x0014, h01=0x0050, text=»* A13= RESERVED «, t00=0x0033, t01=0x00f0}
0x050a2…050ac Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0033, t01=0x0108}
0x050ac…050ea Head {h00=0x003a, h01=0x0050, text=»******************************************************«, t00=0x0033, t01=0x0112}
0x050ea…050fe Head {h00=0x0010, h01=0x000b, text=»RESKB EQU * «, t00=0x0033, t01=0x0150}
0x050fe…05116 Head {h00=0x0014, h01=0x0050, text=» LD A8,ECBKB,A11«, t00=0x0033, t01=0x0164}
0x05116…05140 Head {h00=0x0026, h01=0x0021, text=» LDK A7,/31 RESET KEYBOARD BUFFER «, t00=0x0033, t01=0x017c}
0x05140…0514c Head {h00=0x0008, h01=0x0004, text=» LKM«, t00=0x0034, t01=0x0016}
0x0514c…0515c Head {h00=0x000c, h01=0x0007, text=» DATA 1 «, t00=0x0034, t01=0x0022}
0x0515c…0516c Head {h00=0x000c, h01=0x0008, text=» RTN A14«, t00=0x0034, t01=0x0032}
0x0516c…0517a Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0034, t01=0x0042}
0x0517a…051be Head {h00=0x0040, h01=0x0050, text=»*********************************************************** «, t00=0x0034, t01=0x0050}
0x051be…05202 Head {h00=0x0040, h01=0x0050, text=»* * «, t00=0x0034, t01=0x0094}
0x05202…05228 Head {h00=0x0022, h01=0x0050, text=»* ICVRED KB/VDU INTERTASK READ«, t00=0x0034, t01=0x00d8}
0x05228…0526c Head {h00=0x0040, h01=0x0050, text=»* * «, t00=0x0034, t01=0x00fe}
0x0526c…052b0 Head {h00=0x0040, h01=0x0050, text=»*********************************************************** «, t00=0x0034, t01=0x0142}
0x052b0…052ce Head {h00=0x001a, h01=0x0050, text=»* REGISTERS«, t00=0x0034, t01=0x0186}
0x052ce…052d8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0035, t01=0x0014}
0x052d8…052ee Head {h00=0x0012, h01=0x0050, text=»* A2= RESERVED«, t00=0x0035, t01=0x001e}
0x052ee…0530e Head {h00=0x001c, h01=0x0050, text=»* A11= CREDIT WORK AREA «, t00=0x0035, t01=0x0034}
0x0530e…05326 Head {h00=0x0014, h01=0x0050, text=»* A13= RESERVED «, t00=0x0035, t01=0x0054}
0x05326…05330 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0035, t01=0x006c}
0x05330…05374 Head {h00=0x0040, h01=0x0050, text=»*********************************************************** «, t00=0x0035, t01=0x0076}
0x05374…05388 Head {h00=0x0010, h01=0x0050, text=»ICVRED EQU *«, t00=0x0035, t01=0x00ba}
0x05388…053a2 Head {h00=0x0016, h01=0x0050, text=» LD A8,ECBICR,A11 «, t00=0x0035, t01=0x00ce}
0x053a2…053c6 Head {h00=0x0020, h01=0x0050, text=» CF A14,ICSET SET NO TIMEOUT«, t00=0x0035, t01=0x00e8}
0x053c6…053dc Head {h00=0x0012, h01=0x0050, text=» IFF COPCMD=1 «, t00=0x0035, t01=0x010c}
0x053dc…053f4 Head {h00=0x0014, h01=0x0050, text=» LD A1,PRTID,A11«, t00=0x0035, t01=0x0122}
0x053f4…05400 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0035, t01=0x013a}
0x05400…05416 Head {h00=0x0012, h01=0x0050, text=» IFT COPCMD=1 «, t00=0x0035, t01=0x0146}
0x05416…05434 Head {h00=0x001a, h01=0x0050, text=» LDK A1,0 UNADDRESSED «, t00=0x0035, t01=0x015c}
0x05434…05440 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0035, t01=0x017a}
0x05440…05456 Head {h00=0x0012, h01=0x0050, text=» LDKL A3,REGI «, t00=0x0035, t01=0x0186}
0x05456…0546a Head {h00=0x0010, h01=0x0050, text=» ADR A3,A11 «, t00=0x0036, t01=0x000c}
0x0546a…05482 Head {h00=0x0014, h01=0x0050, text=» LDK A2,2 LENGTH«, t00=0x0036, t01=0x0020}
0x05482…054a8 Head {h00=0x0022, h01=0x0050, text=» CF A14,ICREAD READ INTERTASK «, t00=0x0036, t01=0x0038}
0x054a8…054b8 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0036, t01=0x005e}
0x054b8…054c6 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0036, t01=0x006e}
0x054c6…0550e Head {h00=0x0044, h01=0x0050, text=»****************************************************************«, t00=0x0036, t01=0x007c}
0x0550e…05556 Head {h00=0x0044, h01=0x0050, text=»* *«, t00=0x0036, t01=0x00c4}
0x05556…0559e Head {h00=0x0044, h01=0x0050, text=»* ICINP INTERTASK INPUT *«, t00=0x0036, t01=0x010c}
0x0559e…055e6 Head {h00=0x0044, h01=0x0050, text=»* *«, t00=0x0036, t01=0x0154}
0x055e6…0562e Head {h00=0x0044, h01=0x0050, text=»****************************************************************«, t00=0x0037, t01=0x000c}
0x0562e…0564e Head {h00=0x001c, h01=0x0050, text=»* REGISTERS «, t00=0x0037, t01=0x0054}
0x0564e…05658 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0037, t01=0x0074}
0x05658…05678 Head {h00=0x001c, h01=0x0050, text=»* A11= CREDIT WORK AREA «, t00=0x0037, t01=0x007e}
0x05678…05690 Head {h00=0x0014, h01=0x0050, text=»* A13= RESERVED «, t00=0x0037, t01=0x009e}
0x05690…0569a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0037, t01=0x00b6}
0x0569a…056e2 Head {h00=0x0044, h01=0x0050, text=»****************************************************************«, t00=0x0037, t01=0x00c0}
0x056e2…056f6 Head {h00=0x0010, h01=0x0050, text=»ICINP EQU * «, t00=0x0037, t01=0x0108}
0x056f6…0570e Head {h00=0x0014, h01=0x0050, text=» LD* A2,ECBBA,A8«, t00=0x0037, t01=0x011c}
0x0570e…05724 Head {h00=0x0012, h01=0x0050, text=» IFT COPCMD=1 «, t00=0x0037, t01=0x0134}
0x05724…05744 Head {h00=0x001c, h01=0x0050, text=» LDR A1,A2 COPY COMMAND?«, t00=0x0037, t01=0x014a}
0x05744…0575e Head {h00=0x0016, h01=0x0050, text=» RF(NN) ICIN80 NO «, t00=0x0037, t01=0x016a}
0x0575e…05782 Head {h00=0x0020, h01=0x0050, text=» LDKL A3,BVDU BUFFER TO SEND«, t00=0x0037, t01=0x0184}
0x05782…05796 Head {h00=0x0010, h01=0x0050, text=» ADR A3,A11 «, t00=0x0038, t01=0x0018}
0x05796…057aa Head {h00=0x0010, h01=0x0050, text=» IFT COPL=1 «, t00=0x0038, t01=0x002c}
0x057aa…057d6 Head {h00=0x0028, h01=0x0050, text=» LCR A2,A3 CHECK IF ALLOWED TO COPY «, t00=0x0038, t01=0x0040}
0x057d6…057f6 Head {h00=0x001c, h01=0x0050, text=» CCK A2,/8000 ATTRIBUTE?«, t00=0x0038, t01=0x006c}
0x057f6…0580e Head {h00=0x0014, h01=0x0050, text=» RF(L) ICIN20 NO«, t00=0x0038, t01=0x008c}
0x0580e…0582c Head {h00=0x001a, h01=0x0050, text=» ANK A2,/20 PROTECTED?«, t00=0x0038, t01=0x00a4}
0x0582c…05852 Head {h00=0x0022, h01=0x0050, text=» RF(NZ) ICIN90 YES DON'T COPY «, t00=0x0038, t01=0x00c2}
0x05852…05866 Head {h00=0x0010, h01=0x0050, text=»ICIN20 EQU *«, t00=0x0038, t01=0x00e8}
0x05866…05872 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0038, t01=0x00fc}
0x05872…05888 Head {h00=0x0012, h01=0x0050, text=» IFT COPCMD=1 «, t00=0x0038, t01=0x0108}
0x05888…058ac Head {h00=0x0020, h01=0x0050, text=» LD A2,ECBCW,A8 GET TO WHOM «, t00=0x0038, t01=0x011e}
0x058ac…058c6 Head {h00=0x0016, h01=0x0050, text=» LD A8,ECBICW,A11 «, t00=0x0038, t01=0x0142}
0x058c6…058e8 Head {h00=0x001e, h01=0x0050, text=» CF A14,ICSET SET TIMEOUT «, t00=0x0038, t01=0x015c}
0x058e8…058fa Head {h00=0x000e, h01=0x0050, text=» LDR A1,A2«, t00=0x0038, t01=0x017e}
0x058fa…0591c Head {h00=0x001e, h01=0x0050, text=» LDKL A2,LBVDU+/20 LENGTH «, t00=0x0038, t01=0x0190}
0x0591c…0593e Head {h00=0x001e, h01=0x0050, text=» CF A14,ICWRT SEND IT AWAY«, t00=0x0039, t01=0x0022}
0x0593e…0596a Head {h00=0x0028, h01=0x0050, text=» LDKL A1,HCPMOD HARDCOPY OUTSTANDING«, t00=0x0039, t01=0x0044}
0x0596a…05984 Head {h00=0x0016, h01=0x0050, text=» ORS A1,BSCMOD,A11«, t00=0x0039, t01=0x0070}
0x05984…05996 Head {h00=0x000e, h01=0x0050, text=» RF ICIN90«, t00=0x0039, t01=0x008a}
0x05996…059aa Head {h00=0x0010, h01=0x0050, text=»ICIN80 EQU *«, t00=0x0039, t01=0x009c}
0x059aa…059b6 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0039, t01=0x00b0}
0x059b6…059e8 Head {h00=0x002e, h01=0x0050, text=» LDKL A1,HCPMOD RESET HARDCOPY OUTSTANDING«, t00=0x0039, t01=0x00bc}
0x059e8…059fa Head {h00=0x000e, h01=0x0050, text=» IFT SNA=1«, t00=0x0039, t01=0x00ee}
0x059fa…05a14 Head {h00=0x0016, h01=0x0050, text=» XRS A1,SNAMOD,A11«, t00=0x0039, t01=0x0100}
0x05a14…05a20 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0039, t01=0x011a}
0x05a20…05a32 Head {h00=0x000e, h01=0x0050, text=» IFF SNA=1«, t00=0x0039, t01=0x0126}
0x05a32…05a4c Head {h00=0x0016, h01=0x0050, text=» XRS A1,BSCMOD,A11«, t00=0x0039, t01=0x0138}
0x05a4c…05a58 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0039, t01=0x0152}
0x05a58…05a76 Head {h00=0x001a, h01=0x0050, text=» ANK A2,1 PRINTER OK? «, t00=0x0039, t01=0x015e}
0x05a76…05a90 Head {h00=0x0016, h01=0x0050, text=» RF(Z) ICIN90 YES «, t00=0x0039, t01=0x017c}
0x05a90…05aa6 Head {h00=0x0012, h01=0x0050, text=» CF A14,LMP5FL«, t00=0x003a, t01=0x0008}
0x05aa6…05aba Head {h00=0x0010, h01=0x0050, text=»ICIN90 EQU *«, t00=0x003a, t01=0x001e}
0x05aba…05aca Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x003a, t01=0x0032}
0x05aca…05ad8 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x003a, t01=0x0042}
0x05ad8…05b1c Head {h00=0x0040, h01=0x0050, text=»*********************************************************** «, t00=0x003a, t01=0x0050}
0x05b1c…05b5e Head {h00=0x003e, h01=0x0050, text=»* *«, t00=0x003a, t01=0x0094}
0x05b5e…05ba2 Head {h00=0x0040, h01=0x0050, text=»* ICSET SET INTERTASK TIMEOUT * «, t00=0x003a, t01=0x00d6}
0x05ba2…05be4 Head {h00=0x003e, h01=0x0050, text=»* *«, t00=0x003a, t01=0x011a}
0x05be4…05c28 Head {h00=0x0040, h01=0x0050, text=»*********************************************************** «, t00=0x003a, t01=0x015c}
0x05c28…05c48 Head {h00=0x001c, h01=0x0050, text=»* REGISTERS «, t00=0x003b, t01=0x0010}
0x05c48…05c52 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003b, t01=0x0030}
0x05c52…05c68 Head {h00=0x0012, h01=0x0050, text=»* A2= RESERVED«, t00=0x003b, t01=0x003a}
0x05c68…05c84 Head {h00=0x0018, h01=0x0050, text=»* A8= INTERTASK ECB «, t00=0x003b, t01=0x0050}
0x05c84…05c9c Head {h00=0x0014, h01=0x0050, text=»* A11= RESERVED «, t00=0x003b, t01=0x006c}
0x05c9c…05cb4 Head {h00=0x0014, h01=0x0050, text=»* A13= RESERVED «, t00=0x003b, t01=0x0084}
0x05cb4…05cbe Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003b, t01=0x009c}
0x05cbe…05d00 Head {h00=0x003e, h01=0x0050, text=»**********************************************************«, t00=0x003b, t01=0x00a6}
0x05d00…05d14 Head {h00=0x0010, h01=0x0050, text=»ICSET EQU * «, t00=0x003b, t01=0x00e8}
0x05d14…05d32 Head {h00=0x001a, h01=0x0050, text=» LDKL A1,-1 NO TIMEOUT«, t00=0x003b, t01=0x00fc}
0x05d32…05d4a Head {h00=0x0014, h01=0x0050, text=» ST A1,ECBCW,A8 «, t00=0x003b, t01=0x011a}
0x05d4a…05d6a Head {h00=0x001c, h01=0x0050, text=» LDK A7,/B9 SET TIMEOUT «, t00=0x003b, t01=0x0132}
0x05d6a…05d76 Head {h00=0x0008, h01=0x0050, text=» LKM«, t00=0x003b, t01=0x0152}
0x05d76…05d86 Head {h00=0x000c, h01=0x0050, text=» DATA 1 «, t00=0x003b, t01=0x015e}
0x05d86…05d96 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x003b, t01=0x016e}
0x05d96…05da4 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x003b, t01=0x017e}
0x05da4…05dea Head {h00=0x0042, h01=0x0050, text=»************************************************************* «, t00=0x003b, t01=0x018c}
0x05dea…05e30 Head {h00=0x0042, h01=0x0050, text=»* * «, t00=0x003c, t01=0x0042}
0x05e30…05e76 Head {h00=0x0042, h01=0x0050, text=»* ICREAD INTERTASK READ * «, t00=0x003c, t01=0x0088}
0x05e76…05ebc Head {h00=0x0042, h01=0x0050, text=»* * «, t00=0x003c, t01=0x00ce}
0x05ebc…05f02 Head {h00=0x0042, h01=0x0050, text=»**************************************************************«, t00=0x003c, t01=0x0114}
0x05f02…05f24 Head {h00=0x001e, h01=0x0050, text=»* REGISTERS«, t00=0x003c, t01=0x015a}
0x05f24…05f2e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003c, t01=0x017c}
0x05f2e…05f44 Head {h00=0x0012, h01=0x0050, text=»* A1= TASK ID «, t00=0x003c, t01=0x0186}
0x05f44…05f58 Head {h00=0x0010, h01=0x0050, text=»* A2= LENGTH«, t00=0x003d, t01=0x000c}
0x05f58…05f74 Head {h00=0x0018, h01=0x0050, text=»* A3= BUFFER ADDRESS«, t00=0x003d, t01=0x0020}
0x05f74…05f94 Head {h00=0x001c, h01=0x0050, text=»* A8= INTETASK READ ECB «, t00=0x003d, t01=0x003c}
0x05f94…05fac Head {h00=0x0014, h01=0x0050, text=»* A11= RESERVED «, t00=0x003d, t01=0x005c}
0x05fac…05fc4 Head {h00=0x0014, h01=0x0050, text=»* A13= RESERVED «, t00=0x003d, t01=0x0074}
0x05fc4…05fce Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003d, t01=0x008c}
0x05fce…06014 Head {h00=0x0042, h01=0x0050, text=»************************************************************* «, t00=0x003d, t01=0x0096}
0x06014…06028 Head {h00=0x0010, h01=0x0050, text=»ICREAD EQU *«, t00=0x003d, t01=0x00dc}
0x06028…06048 Head {h00=0x001c, h01=0x0050, text=» ST A1,ECBCW,A8 TASK ID «, t00=0x003d, t01=0x00f0}
0x06048…06066 Head {h00=0x001a, h01=0x0050, text=» ST A2,ECBRL,A8 LENGTH«, t00=0x003d, t01=0x0110}
0x06066…0608c Head {h00=0x0022, h01=0x0050, text=» ST A3,ECBBA,A8 BUFFER ADDRESS«, t00=0x003d, t01=0x012e}
0x0608c…060a4 Head {h00=0x0014, h01=0x0050, text=» LDK A7,/02 READ«, t00=0x003d, t01=0x0154}
0x060a4…060b0 Head {h00=0x0008, h01=0x0050, text=» LKM«, t00=0x003d, t01=0x016c}
0x060b0…060c0 Head {h00=0x000c, h01=0x0050, text=» DATA 1 «, t00=0x003d, t01=0x0178}
0x060c0…060d0 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x003d, t01=0x0188}
0x060d0…060de Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x003e, t01=0x0008}
0x060de…06126 Head {h00=0x0044, h01=0x0050, text=»*************************************************************** «, t00=0x003e, t01=0x0016}
0x06126…0616e Head {h00=0x0044, h01=0x0050, text=»* * «, t00=0x003e, t01=0x005e}
0x0616e…061b6 Head {h00=0x0044, h01=0x0050, text=»* ICWRT INTERTASK WRITE * «, t00=0x003e, t01=0x00a6}
0x061b6…061fe Head {h00=0x0044, h01=0x0050, text=»* * «, t00=0x003e, t01=0x00ee}
0x061fe…06246 Head {h00=0x0044, h01=0x0050, text=»*************************************************************** «, t00=0x003e, t01=0x0136}
0x06246…06268 Head {h00=0x001e, h01=0x0050, text=»* REGISTERS«, t00=0x003e, t01=0x017e}
0x06268…06272 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003f, t01=0x0010}
0x06272…06288 Head {h00=0x0012, h01=0x0050, text=»* A1= TASK ID «, t00=0x003f, t01=0x001a}
0x06288…0629c Head {h00=0x0010, h01=0x0050, text=»* A2= LENGTH«, t00=0x003f, t01=0x0030}
0x0629c…062b8 Head {h00=0x0018, h01=0x0050, text=»* A3= BUFFER ADDRESS«, t00=0x003f, t01=0x0044}
0x062b8…062da Head {h00=0x001e, h01=0x0050, text=»* A8= INTERTASK WRITE ECB «, t00=0x003f, t01=0x0060}
0x062da…062f2 Head {h00=0x0014, h01=0x0050, text=»* A11= RESERVED «, t00=0x003f, t01=0x0082}
0x062f2…0630a Head {h00=0x0014, h01=0x0050, text=»* A13= RESERVED «, t00=0x003f, t01=0x009a}
0x0630a…06314 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003f, t01=0x00b2}
0x06314…0635c Head {h00=0x0044, h01=0x0050, text=»****************************************************************«, t00=0x003f, t01=0x00bc}
0x0635c…06370 Head {h00=0x0010, h01=0x0050, text=»ICWRT EQU * «, t00=0x003f, t01=0x0104}
0x06370…06390 Head {h00=0x001c, h01=0x0050, text=» ST A1,ECBCW,A8 TASK ID «, t00=0x003f, t01=0x0118}
0x06390…063ae Head {h00=0x001a, h01=0x0050, text=» ST A2,ECBRL,A8 LENGTH«, t00=0x003f, t01=0x0138}
0x063ae…063d4 Head {h00=0x0022, h01=0x0050, text=» ST A3,ECBBA,A8 BUFFER ADDRESS«, t00=0x003f, t01=0x0156}
0x063d4…063ee Head {h00=0x0016, h01=0x0050, text=» LDK A7,/86 WRITE «, t00=0x003f, t01=0x017c}
0x063ee…063fa Head {h00=0x0008, h01=0x0050, text=» LKM«, t00=0x0040, t01=0x0008}
0x063fa…0640a Head {h00=0x000c, h01=0x0050, text=» DATA 1 «, t00=0x0040, t01=0x0014}
0x0640a…0641a Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0040, t01=0x0024}
0x0641a…06428 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0040, t01=0x0034}
0x06428…06474 Head {h00=0x0048, h01=0x0050, text=»******************************************************************* «, t00=0x0040, t01=0x0042}
0x06474…064c0 Head {h00=0x0048, h01=0x0050, text=»* * «, t00=0x0040, t01=0x008e}
0x064c0…0650c Head {h00=0x0048, h01=0x0050, text=»* ERROR ILLEGAL KEY-HANDLING * «, t00=0x0040, t01=0x00da}
0x0650c…06558 Head {h00=0x0048, h01=0x0050, text=»* * «, t00=0x0040, t01=0x0126}
0x06558…065a4 Head {h00=0x0048, h01=0x0050, text=»******************************************************************* «, t00=0x0040, t01=0x0172}
0x065a4…065c0 Head {h00=0x0018, h01=0x0050, text=»* REGISTERS«, t00=0x0041, t01=0x002e}
0x065c0…065ca Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0041, t01=0x004a}
0x065ca…065ea Head {h00=0x001c, h01=0x0050, text=»* A11= CREDIT WORK AREA «, t00=0x0041, t01=0x0054}
0x065ea…06602 Head {h00=0x0014, h01=0x0050, text=»* A13= RESERVED «, t00=0x0041, t01=0x0074}
0x06602…0660c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0041, t01=0x008c}
0x0660c…0664c Head {h00=0x003c, h01=0x0050, text=»******************************************************* «, t00=0x0041, t01=0x0096}
0x0664c…06660 Head {h00=0x0010, h01=0x0050, text=»ERROR EQU * «, t00=0x0041, t01=0x00d6}
0x06660…0668c Head {h00=0x0028, h01=0x0050, text=» CF A14,LMP5ON TURN ON 'ERROR' LAMP «, t00=0x0041, t01=0x00ea}
0x0668c…066ac Head {h00=0x001c, h01=0x0050, text=» LDK A1,4 RESET ALLOWED «, t00=0x0041, t01=0x0116}
0x066ac…066c6 Head {h00=0x0016, h01=0x0050, text=» ORS A1,KBINH,A11 «, t00=0x0041, t01=0x0136}
0x066c6…066f0 Head {h00=0x0026, h01=0x0050, text=» CF A14,SOUND TURN ON SOUND ALARM «, t00=0x0041, t01=0x0150}
0x066f0…06700 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0041, t01=0x017a}
0x06700…06708 Head {h00=0x0004, h01=0x0050, t00=0x0041, t01=0x018a}
0x06708…06716 (66, 0, 400) Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0042, t01=0x0004}
0x06716…0675c Head {h00=0x0042, h01=0x0050, text=»************************************************************* «, t00=0x0042, t01=0x0012}
0x0675c…067a2 Head {h00=0x0042, h01=0x0050, text=»* * «, t00=0x0042, t01=0x0058}
0x067a2…067e8 Head {h00=0x0042, h01=0x0050, text=»* LAMPROUTINES * «, t00=0x0042, t01=0x009e}
0x067e8…0682e Head {h00=0x0042, h01=0x0050, text=»* * «, t00=0x0042, t01=0x00e4}
0x0682e…06874 Head {h00=0x0042, h01=0x0050, text=»************************************************************* «, t00=0x0042, t01=0x012a}
0x06874…06890 Head {h00=0x0018, h01=0x0050, text=»LMP1ON LDK A1,LAMP1 «, t00=0x0042, t01=0x0170}
0x06890…068a2 Head {h00=0x000e, h01=0x0050, text=» RF LMPON «, t00=0x0042, t01=0x018c}
0x068a2…068be Head {h00=0x0018, h01=0x0050, text=»LMP1OF LDK A1,LAMP1 «, t00=0x0043, t01=0x000e}
0x068be…068d0 Head {h00=0x000e, h01=0x0050, text=» RF LMPOF «, t00=0x0043, t01=0x002a}
0x068d0…068ec Head {h00=0x0018, h01=0x0050, text=»LMP2ON LDK A1,LAMP2 «, t00=0x0043, t01=0x003c}
0x068ec…068fe Head {h00=0x000e, h01=0x0050, text=» RF LMPON «, t00=0x0043, t01=0x0058}
0x068fe…0691a Head {h00=0x0018, h01=0x0050, text=»LMP2OF LDK A1,LAMP2 «, t00=0x0043, t01=0x006a}
0x0691a…0692c Head {h00=0x000e, h01=0x0050, text=» RF LMPOF «, t00=0x0043, t01=0x0086}
0x0692c…06948 Head {h00=0x0018, h01=0x0050, text=»LMP3ON LDK A1,LAMP3 «, t00=0x0043, t01=0x0098}
0x06948…0695a Head {h00=0x000e, h01=0x0050, text=» RF LMPON «, t00=0x0043, t01=0x00b4}
0x0695a…06976 Head {h00=0x0018, h01=0x0050, text=»LMP3OF LDK A1,LAMP3 «, t00=0x0043, t01=0x00c6}
0x06976…06988 Head {h00=0x000e, h01=0x0050, text=» RF LMPOF «, t00=0x0043, t01=0x00e2}
0x06988…069a4 Head {h00=0x0018, h01=0x0050, text=»LMP4ON LDK A1,LAMP4 «, t00=0x0043, t01=0x00f4}
0x069a4…069b6 Head {h00=0x000e, h01=0x0050, text=» RF LMPON «, t00=0x0043, t01=0x0110}
0x069b6…069d2 Head {h00=0x0018, h01=0x0050, text=»LMP4OF LDK A1,LAMP4 «, t00=0x0043, t01=0x0122}
0x069d2…069e4 Head {h00=0x000e, h01=0x0050, text=» RF LMPOF «, t00=0x0043, t01=0x013e}
0x069e4…06a00 Head {h00=0x0018, h01=0x0050, text=»LMP5ON LDK A1,LAMP5 «, t00=0x0043, t01=0x0150}
0x06a00…06a12 Head {h00=0x000e, h01=0x0050, text=» RF LMPON «, t00=0x0043, t01=0x016c}
0x06a12…06a2e Head {h00=0x0018, h01=0x0050, text=»LMP5OF LDK A1,LAMP5 «, t00=0x0043, t01=0x017e}
0x06a2e…06a40 Head {h00=0x000e, h01=0x0050, text=» RF LMPOF «, t00=0x0044, t01=0x000a}
0x06a40…06a5c Head {h00=0x0018, h01=0x0050, text=»LMP5FL LDK A1,LAMP5 «, t00=0x0044, t01=0x001c}
0x06a5c…06a6e Head {h00=0x000e, h01=0x0050, text=» RF LMPFL «, t00=0x0044, t01=0x0038}
0x06a6e…06a8a Head {h00=0x0018, h01=0x0050, text=»LMP6ON LDK A1,LAMP6 «, t00=0x0044, t01=0x004a}
0x06a8a…06a9c Head {h00=0x000e, h01=0x0050, text=» RF LMPON «, t00=0x0044, t01=0x0066}
0x06a9c…06ab8 Head {h00=0x0018, h01=0x0050, text=»LMP6OF LDK A1,LAMP6 «, t00=0x0044, t01=0x0078}
0x06ab8…06aca Head {h00=0x000e, h01=0x0050, text=» RF LMPOF «, t00=0x0044, t01=0x0094}
0x06aca…06ad4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0044, t01=0x00a6}
0x06ad4…06aec Head {h00=0x0014, h01=0x0050, text=»LMPON LDK A7,LON«, t00=0x0044, t01=0x00b0}
0x06aec…06afe Head {h00=0x000e, h01=0x0050, text=» RF SDISP «, t00=0x0044, t01=0x00c8}
0x06afe…06b16 Head {h00=0x0014, h01=0x0050, text=»LMPOF LDK A7,LOF«, t00=0x0044, t01=0x00da}
0x06b16…06b28 Head {h00=0x000e, h01=0x0050, text=» RF SDISP «, t00=0x0044, t01=0x00f2}
0x06b28…06b40 Head {h00=0x0014, h01=0x0050, text=»LMPFL LDK A7,LFL«, t00=0x0044, t01=0x0104}
0x06b40…06b52 Head {h00=0x000e, h01=0x0050, text=» RF SDISP «, t00=0x0044, t01=0x011c}
0x06b52…06b60 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0044, t01=0x012e}
0x06b60…06ba6 Head {h00=0x0042, h01=0x0050, text=»************************************************************* «, t00=0x0044, t01=0x013c}
0x06ba6…06bec Head {h00=0x0042, h01=0x0050, text=»* * «, t00=0x0044, t01=0x0182}
0x06bec…06c32 Head {h00=0x0042, h01=0x0050, text=»* SDISP SIGNAL ROUTINE * «, t00=0x0045, t01=0x0038}
0x06c32…06c78 Head {h00=0x0042, h01=0x0050, text=»* * «, t00=0x0045, t01=0x007e}
0x06c78…06cbe Head {h00=0x0042, h01=0x0050, text=»************************************************************* «, t00=0x0045, t01=0x00c4}
0x06cbe…06cda Head {h00=0x0018, h01=0x0050, text=»* REGISTERS «, t00=0x0045, t01=0x010a}
0x06cda…06ce4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0045, t01=0x0126}
0x06ce4…06cfc Head {h00=0x0014, h01=0x0050, text=»* A8= SIGNAL ECB«, t00=0x0045, t01=0x0130}
0x06cfc…06d1c Head {h00=0x001c, h01=0x0050, text=»* A11= CREDIT WORK AREA «, t00=0x0045, t01=0x0148}
0x06d1c…06d34 Head {h00=0x0014, h01=0x0050, text=»* A13= RESERVED «, t00=0x0045, t01=0x0168}
0x06d34…06d3e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0045, t01=0x0180}
0x06d3e…06d7e Head {h00=0x003c, h01=0x0050, text=»******************************************************* «, t00=0x0045, t01=0x018a}
0x06d7e…06d92 Head {h00=0x0010, h01=0x0050, text=»SDISP EQU * «, t00=0x0046, t01=0x003a}
0x06d92…06daa Head {h00=0x0014, h01=0x0050, text=» LD A8,ECBSD,A11«, t00=0x0046, t01=0x004e}
0x06daa…06dc2 Head {h00=0x0014, h01=0x0050, text=» ST A1,ECBCW,A8 «, t00=0x0046, t01=0x0066}
0x06dc2…06dce Head {h00=0x0008, h01=0x0050, text=» LKM«, t00=0x0046, t01=0x007e}
0x06dce…06dde Head {h00=0x000c, h01=0x0050, text=» DATA 1 «, t00=0x0046, t01=0x008a}
0x06dde…06dee Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0046, t01=0x009a}
0x06dee…06dfc Head {h00=0x000a, h01=0x0006, text=» EJECT«, t00=0x0046, t01=0x00aa}
0x06dfc…06e44 Head {h00=0x0044, h01=0x0040, text=»****************************************************************«, t00=0x0046, t01=0x00b8}
0x06e44…06e8c Head {h00=0x0044, h01=0x0040, text=»* *«, t00=0x0046, t01=0x0100}
0x06e8c…06ed4 Head {h00=0x0044, h01=0x0040, text=»* KEYTAB KEY-TABLE, FIXED ENTRY FOR EACH FUNC. *«, t00=0x0046, t01=0x0148}
0x06ed4…06f1c Head {h00=0x0044, h01=0x0040, text=»* *«, t00=0x0046, t01=0x0190}
0x06f1c…06f64 Head {h00=0x0044, h01=0x0040, text=»****************************************************************«, t00=0x0047, t01=0x0048}
0x06f64…06f78 Head {h00=0x0010, h01=0x000c, text=»KEYTAB EQU *«, t00=0x0047, t01=0x0090}
0x06f78…06f84 Head {h00=0x0008, h01=0x0003, text=»*20 «, t00=0x0047, t01=0x00a4}
0x06f84…06f9c Head {h00=0x0014, h01=0x0010, text=» DATA CHAR SPACE«, t00=0x0047, t01=0x00b0}
0x06f9c…06fb0 Head {h00=0x0010, h01=0x000c, text=» DATA CHAR !«, t00=0x0047, t01=0x00c8}
0x06fb0…06fc4 Head {h00=0x0010, h01=0x000c, text=» DATA CHAR "«, t00=0x0047, t01=0x00dc}
0x06fc4…06fd6 Head {h00=0x000e, h01=0x0050, text=» DATA CHAR«, t00=0x0047, t01=0x00f0}
0x06fd6…06fea Head {h00=0x0010, h01=0x000c, text=» DATA CHAR $«, t00=0x0047, t01=0x0102}
0x06fea…06ffe Head {h00=0x0010, h01=0x000c, text=» DATA CHAR «, t00=0x0047, t01=0x0116}
0x06ffe…07012 Head {h00=0x0010, h01=0x000c, text=» DATA CHAR &«, t00=0x0047, t01=0x012a}
0x07012…07026 Head {h00=0x0010, h01=0x000c, text=» DATA CHAR '«, t00=0x0047, t01=0x013e}
0x07026…0703a Head {h00=0x0010, h01=0x000c, text=» DATA CHAR («, t00=0x0047, t01=0x0152}
0x0703a…0704e Head {h00=0x0010, h01=0x000c, text=» DATA CHAR )«, t00=0x0047, t01=0x0166}
0x0704e…07062 Head {h00=0x0010, h01=0x000c, text=» DATA CHAR *«, t00=0x0047, t01=0x017a}
0x07062…07076 Head {h00=0x0010, h01=0x000c, text=» DATA CHAR +«, t00=0x0047, t01=0x018e}
0x07076…0708a Head {h00=0x0010, h01=0x000c, text=» DATA CHAR ,«, t00=0x0048, t01=0x0012}
0x0708a…0709e Head {h00=0x0010, h01=0x000b, text=» DATA NUM - «, t00=0x0048, t01=0x0026}
0x0709e…070b2 Head {h00=0x0010, h01=0x000b, text=» DATA NUM . «, t00=0x0048, t01=0x003a}
0x070b2…070c6 Head {h00=0x0010, h01=0x000c, text=» DATA CHAR /«, t00=0x0048, t01=0x004e}
0x070c6…070d2 Head {h00=0x0008, h01=0x0003, text=»*30 «, t00=0x0048, t01=0x0062}
0x070d2…070e6 Head {h00=0x0010, h01=0x000b, text=» DATA NUM 0 «, t00=0x0048, t01=0x006e}
0x070e6…070fa Head {h00=0x0010, h01=0x000b, text=» DATA NUM 1 «, t00=0x0048, t01=0x0082}
0x070fa…0710e Head {h00=0x0010, h01=0x000b, text=» DATA NUM 2 «, t00=0x0048, t01=0x0096}
0x0710e…07122 Head {h00=0x0010, h01=0x000b, text=» DATA NUM 3 «, t00=0x0048, t01=0x00aa}
0x07122…07136 Head {h00=0x0010, h01=0x000b, text=» DATA NUM 4 «, t00=0x0048, t01=0x00be}
0x07136…0714a Head {h00=0x0010, h01=0x000b, text=» DATA NUM 5 «, t00=0x0048, t01=0x00d2}
0x0714a…0715e Head {h00=0x0010, h01=0x000b, text=» DATA NUM 6 «, t00=0x0048, t01=0x00e6}
0x0715e…07172 Head {h00=0x0010, h01=0x000b, text=» DATA NUM 7 «, t00=0x0048, t01=0x00fa}
0x07172…07186 Head {h00=0x0010, h01=0x000b, text=» DATA NUM 8 «, t00=0x0048, t01=0x010e}
0x07186…0719a Head {h00=0x0010, h01=0x000b, text=» DATA NUM 9 «, t00=0x0048, t01=0x0122}
0x0719a…071ae Head {h00=0x0010, h01=0x000c, text=» DATA CHAR :«, t00=0x0048, t01=0x0136}
0x071ae…071c2 Head {h00=0x0010, h01=0x000c, text=» DATA CHAR ;«, t00=0x0048, t01=0x014a}
0x071c2…071d6 Head {h00=0x0010, h01=0x000c, text=» DATA CHAR <«, t00=0x0048, t01=0x015e}
0x071d6…071ea Head {h00=0x0010, h01=0x000c, text=» DATA CHAR =«, t00=0x0048, t01=0x0172}
0x071ea…071fe Head {h00=0x0010, h01=0x000c, text=» DATA CHAR >«, t00=0x0048, t01=0x0186}
0x071fe…07212 Head {h00=0x0010, h01=0x000c, text=» DATA CHAR ?«, t00=0x0049, t01=0x000a}
0x07212…0721e Head {h00=0x0008, h01=0x0003, text=»*40 «, t00=0x0049, t01=0x001e}
0x0721e…07230 Head {h00=0x000e, h01=0x0050, text=» DATA CHAR«, t00=0x0049, t01=0x002a}
0x07230…07244 Head {h00=0x0010, h01=0x000c, text=» DATA CHAR A«, t00=0x0049, t01=0x003c}
0x07244…07258 Head {h00=0x0010, h01=0x000c, text=» DATA CHAR B«, t00=0x0049, t01=0x0050}
0x07258…0726c Head {h00=0x0010, h01=0x000c, text=» DATA CHAR C«, t00=0x0049, t01=0x0064}
0x0726c…07280 Head {h00=0x0010, h01=0x000c, text=» DATA CHAR D«, t00=0x0049, t01=0x0078}
0x07280…07294 Head {h00=0x0010, h01=0x000c, text=» DATA CHAR E«, t00=0x0049, t01=0x008c}
0x07294…072a8 Head {h00=0x0010, h01=0x000c, text=» DATA CHAR F«, t00=0x0049, t01=0x00a0}
0x072a8…072bc Head {h00=0x0010, h01=0x000c, text=» DATA CHAR G«, t00=0x0049, t01=0x00b4}
0x072bc…072d0 Head {h00=0x0010, h01=0x000c, text=» DATA CHAR H«, t00=0x0049, t01=0x00c8}
0x072d0…072e4 Head {h00=0x0010, h01=0x000c, text=» DATA CHAR I«, t00=0x0049, t01=0x00dc}
0x072e4…072f8 Head {h00=0x0010, h01=0x000c, text=» DATA CHAR J«, t00=0x0049, t01=0x00f0}
0x072f8…0730c Head {h00=0x0010, h01=0x000c, text=» DATA CHAR K«, t00=0x0049, t01=0x0104}
0x0730c…07320 Head {h00=0x0010, h01=0x000c, text=» DATA CHAR L«, t00=0x0049, t01=0x0118}
0x07320…07334 Head {h00=0x0010, h01=0x000c, text=» DATA CHAR M«, t00=0x0049, t01=0x012c}
0x07334…07348 Head {h00=0x0010, h01=0x000c, text=» DATA CHAR N«, t00=0x0049, t01=0x0140}
0x07348…0735c Head {h00=0x0010, h01=0x000c, text=» DATA CHAR O«, t00=0x0049, t01=0x0154}
0x0735c…07368 Head {h00=0x0008, h01=0x0003, text=»*50 «, t00=0x0049, t01=0x0168}
0x07368…0737c Head {h00=0x0010, h01=0x000c, text=» DATA CHAR P«, t00=0x0049, t01=0x0174}
0x0737c…07390 Head {h00=0x0010, h01=0x000c, text=» DATA CHAR Q«, t00=0x0049, t01=0x0188}
0x07390…073a4 Head {h00=0x0010, h01=0x000c, text=» DATA CHAR R«, t00=0x004a, t01=0x000c}
0x073a4…073b8 Head {h00=0x0010, h01=0x000c, text=» DATA CHAR S«, t00=0x004a, t01=0x0020}
0x073b8…073cc Head {h00=0x0010, h01=0x000c, text=» DATA CHAR T«, t00=0x004a, t01=0x0034}
0x073cc…073e0 Head {h00=0x0010, h01=0x000c, text=» DATA CHAR U«, t00=0x004a, t01=0x0048}
0x073e0…073f4 Head {h00=0x0010, h01=0x000c, text=» DATA CHAR V«, t00=0x004a, t01=0x005c}
0x073f4…07408 Head {h00=0x0010, h01=0x000c, text=» DATA CHAR W«, t00=0x004a, t01=0x0070}
0x07408…0741c Head {h00=0x0010, h01=0x000c, text=» DATA CHAR X«, t00=0x004a, t01=0x0084}
0x0741c…07430 Head {h00=0x0010, h01=0x000c, text=» DATA CHAR Y«, t00=0x004a, t01=0x0098}
0x07430…07444 Head {h00=0x0010, h01=0x000c, text=» DATA CHAR Z«, t00=0x004a, t01=0x00ac}
0x07444…07456 Head {h00=0x000e, h01=0x0050, text=» DATA CHAR«, t00=0x004a, t01=0x00c0}
0x07456…07468 Head {h00=0x000e, h01=0x0050, text=» DATA CHAR«, t00=0x004a, t01=0x00d2}
0x07468…0747a Head {h00=0x000e, h01=0x0050, text=» DATA CHAR«, t00=0x004a, t01=0x00e4}
0x0747a…0748e Head {h00=0x0010, h01=0x000c, text=» DATA CHAR ^«, t00=0x004a, t01=0x00f6}
0x0748e…074aa Head {h00=0x0018, h01=0x0014, text=» DATA CHAR UNDERLINE«, t00=0x004a, t01=0x010a}
0x074aa…074b6 Head {h00=0x0008, h01=0x0003, text=»*60 «, t00=0x004a, t01=0x0126}
0x074b6…074c8 Head {h00=0x000e, h01=0x0050, text=» DATA CHAR«, t00=0x004a, t01=0x0132}
0x074c8…074ec Head {h00=0x0020, h01=0x001b, text=» DATA CHAR a LOWER CASE A-Z «, t00=0x004a, t01=0x0144}
0x074ec…07500 Head {h00=0x0010, h01=0x000c, text=» DATA CHAR b«, t00=0x004a, t01=0x0168}
0x07500…07514 Head {h00=0x0010, h01=0x000c, text=» DATA CHAR c«, t00=0x004a, t01=0x017c}
0x07514…07528 Head {h00=0x0010, h01=0x000c, text=» DATA CHAR d«, t00=0x004a, t01=0x0190}
0x07528…0753c Head {h00=0x0010, h01=0x000c, text=» DATA CHAR e«, t00=0x004b, t01=0x0014}
0x0753c…07550 Head {h00=0x0010, h01=0x000c, text=» DATA CHAR f«, t00=0x004b, t01=0x0028}
0x07550…07564 Head {h00=0x0010, h01=0x000c, text=» DATA CHAR g«, t00=0x004b, t01=0x003c}
0x07564…07578 Head {h00=0x0010, h01=0x000c, text=» DATA CHAR h«, t00=0x004b, t01=0x0050}
0x07578…0758c Head {h00=0x0010, h01=0x000c, text=» DATA CHAR i«, t00=0x004b, t01=0x0064}
0x0758c…075a0 Head {h00=0x0010, h01=0x000c, text=» DATA CHAR j«, t00=0x004b, t01=0x0078}
0x075a0…075b4 Head {h00=0x0010, h01=0x000c, text=» DATA CHAR k«, t00=0x004b, t01=0x008c}
0x075b4…075c8 Head {h00=0x0010, h01=0x000c, text=» DATA CHAR l«, t00=0x004b, t01=0x00a0}
0x075c8…075dc Head {h00=0x0010, h01=0x000c, text=» DATA CHAR m«, t00=0x004b, t01=0x00b4}
0x075dc…075f0 Head {h00=0x0010, h01=0x000c, text=» DATA CHAR n«, t00=0x004b, t01=0x00c8}
0x075f0…07604 Head {h00=0x0010, h01=0x000c, text=» DATA CHAR o«, t00=0x004b, t01=0x00dc}
0x07604…07610 Head {h00=0x0008, h01=0x0050, text=»*70 «, t00=0x004b, t01=0x00f0}
0x07610…07624 Head {h00=0x0010, h01=0x000c, text=» DATA CHAR p«, t00=0x004b, t01=0x00fc}
0x07624…07638 Head {h00=0x0010, h01=0x000c, text=» DATA CHAR q«, t00=0x004b, t01=0x0110}
0x07638…0764c Head {h00=0x0010, h01=0x000c, text=» DATA CHAR r«, t00=0x004b, t01=0x0124}
0x0764c…07660 Head {h00=0x0010, h01=0x000c, text=» DATA CHAR s«, t00=0x004b, t01=0x0138}
0x07660…07674 Head {h00=0x0010, h01=0x000c, text=» DATA CHAR t«, t00=0x004b, t01=0x014c}
0x07674…07688 Head {h00=0x0010, h01=0x000c, text=» DATA CHAR u«, t00=0x004b, t01=0x0160}
0x07688…0769c Head {h00=0x0010, h01=0x000c, text=» DATA CHAR v«, t00=0x004b, t01=0x0174}
0x0769c…076b0 Head {h00=0x0010, h01=0x000c, text=» DATA CHAR w«, t00=0x004b, t01=0x0188}
0x076b0…076c4 Head {h00=0x0010, h01=0x000c, text=» DATA CHAR x«, t00=0x004c, t01=0x000c}
0x076c4…076d8 Head {h00=0x0010, h01=0x000c, text=» DATA CHAR y«, t00=0x004c, t01=0x0020}
0x076d8…076ec Head {h00=0x0010, h01=0x000c, text=» DATA CHAR z«, t00=0x004c, t01=0x0034}
0x076ec…076fe Head {h00=0x000e, h01=0x0050, text=» DATA CHAR«, t00=0x004c, t01=0x0048}
0x076fe…07710 Head {h00=0x000e, h01=0x0050, text=» DATA CHAR«, t00=0x004c, t01=0x005a}
0x07710…07722 Head {h00=0x000e, h01=0x0050, text=» DATA CHAR«, t00=0x004c, t01=0x006c}
0x07722…07734 Head {h00=0x000e, h01=0x0050, text=» DATA CHAR«, t00=0x004c, t01=0x007e}
0x07734…07748 Head {h00=0x0010, h01=0x000c, text=» DATA RETURN«, t00=0x004c, t01=0x0090}
0x07748…07754 Head {h00=0x0008, h01=0x0003, text=»*80 «, t00=0x004c, t01=0x00a4}
0x07754…07768 Head {h00=0x0010, h01=0x0050, text=» DATA CURMOV«, t00=0x004c, t01=0x00b0}
0x07768…0777c Head {h00=0x0010, h01=0x0050, text=» DATA CURMOV«, t00=0x004c, t01=0x00c4}
0x0777c…07790 Head {h00=0x0010, h01=0x0050, text=» DATA CURMOV«, t00=0x004c, t01=0x00d8}
0x07790…077a4 Head {h00=0x0010, h01=0x0050, text=» DATA CURMOV«, t00=0x004c, t01=0x00ec}
0x077a4…077b8 Head {h00=0x0010, h01=0x000c, text=» DATA BAKTAB«, t00=0x004c, t01=0x0100}
0x077b8…077ca Head {h00=0x000e, h01=0x0009, text=» DATA TAB «, t00=0x004c, t01=0x0114}
0x077ca…077dc Head {h00=0x000e, h01=0x000a, text=» DATA CRNL«, t00=0x004c, t01=0x0126}
0x077dc…077f0 Head {h00=0x0010, h01=0x000c, text=» DATA RDHOME«, t00=0x004c, t01=0x0138}
0x077f0…07804 Head {h00=0x0010, h01=0x000b, text=» DATA EREOF «, t00=0x004c, t01=0x014c}
0x07804…07818 Head {h00=0x0010, h01=0x000c, text=» DATA ERINPT«, t00=0x004c, t01=0x0160}
0x07818…0782c Head {h00=0x0010, h01=0x000c, text=» IFT IN:DL=1«, t00=0x004c, t01=0x0174}
0x0782c…07840 Head {h00=0x0010, h01=0x000c, text=» DATA INSERT«, t00=0x004c, t01=0x0188}
0x07840…07854 Head {h00=0x0010, h01=0x000c, text=» DATA DELETE«, t00=0x004d, t01=0x000c}
0x07854…07860 Head {h00=0x0008, h01=0x0004, text=» XIF«, t00=0x004d, t01=0x0020}
0x07860…07874 Head {h00=0x0010, h01=0x000c, text=» IFF IN:DL=1«, t00=0x004d, t01=0x002c}
0x07874…07888 Head {h00=0x0010, h01=0x000c, text=» DATA RETURN«, t00=0x004d, t01=0x0040}
0x07888…0789c Head {h00=0x0010, h01=0x000c, text=» DATA RETURN«, t00=0x004d, t01=0x0054}
0x0789c…078a8 Head {h00=0x0008, h01=0x0004, text=» XIF«, t00=0x004d, t01=0x0068}
0x078a8…078bc Head {h00=0x0010, h01=0x000b, text=» DATA RESET «, t00=0x004d, t01=0x0074}
0x078bc…078ce Head {h00=0x000e, h01=0x0009, text=» DATA DUP «, t00=0x004d, t01=0x0088}
0x078ce…078e2 Head {h00=0x0010, h01=0x000c, text=» DATA FLDMRK«, t00=0x004d, t01=0x009a}
0x078e2…078f6 Head {h00=0x0010, h01=0x000c, text=» DATA ZERO:2«, t00=0x004d, t01=0x00ae}
0x078f6…07902 Head {h00=0x0008, h01=0x0003, text=»*90 «, t00=0x004d, t01=0x00c2}
0x07902…07916 Head {h00=0x0010, h01=0x000c, text=» DATA ZERO:3«, t00=0x004d, t01=0x00ce}
0x07916…0792a Head {h00=0x0010, h01=0x000c, text=» DATA NUMCOM«, t00=0x004d, t01=0x00e2}
0x0792a…0793c Head {h00=0x000e, h01=0x000a, text=» DATA COPY«, t00=0x004d, t01=0x00f6}
0x0793c…07950 Head {h00=0x0010, h01=0x000b, text=» DATA IDENT «, t00=0x004d, t01=0x0108}
0x07950…07966 Head {h00=0x0012, h01=0x000d, text=» IFT KEYLST=1 «, t00=0x004d, t01=0x011c}
0x07966…07978 Head {h00=0x000e, h01=0x000a, text=» DATA KEYL«, t00=0x004d, t01=0x0132}
0x07978…0798a Head {h00=0x000e, h01=0x000a, text=» DATA KEYL«, t00=0x004d, t01=0x0144}
0x0798a…0799c Head {h00=0x000e, h01=0x000a, text=» DATA KEYL«, t00=0x004d, t01=0x0156}
0x0799c…079ae Head {h00=0x000e, h01=0x000a, text=» DATA KEYL«, t00=0x004d, t01=0x0168}
0x079ae…079c0 Head {h00=0x000e, h01=0x000a, text=» DATA KEYL«, t00=0x004d, t01=0x017a}
0x079c0…079d2 Head {h00=0x000e, h01=0x000a, text=» DATA KEYL«, t00=0x004d, t01=0x018c}
0x079d2…079e4 Head {h00=0x000e, h01=0x000a, text=» DATA KEYL«, t00=0x004e, t01=0x000e}
0x079e4…079f6 Head {h00=0x000e, h01=0x000a, text=» DATA KEYL«, t00=0x004e, t01=0x0020}
0x079f6…07a02 Head {h00=0x0008, h01=0x0004, text=» XIF«, t00=0x004e, t01=0x0032}
0x07a02…07a18 Head {h00=0x0012, h01=0x000d, text=» IFF KEYLST=1 «, t00=0x004e, t01=0x003e}
0x07a18…07a2c Head {h00=0x0010, h01=0x000c, text=» DATA RETURN«, t00=0x004e, t01=0x0054}
0x07a2c…07a40 Head {h00=0x0010, h01=0x000c, text=» DATA RETURN«, t00=0x004e, t01=0x0068}
0x07a40…07a54 Head {h00=0x0010, h01=0x000c, text=» DATA RETURN«, t00=0x004e, t01=0x007c}
0x07a54…07a68 Head {h00=0x0010, h01=0x000c, text=» DATA RETURN«, t00=0x004e, t01=0x0090}
0x07a68…07a7c Head {h00=0x0010, h01=0x000c, text=» DATA RETURN«, t00=0x004e, t01=0x00a4}
0x07a7c…07a90 Head {h00=0x0010, h01=0x000c, text=» DATA RETURN«, t00=0x004e, t01=0x00b8}
0x07a90…07aa4 Head {h00=0x0010, h01=0x000c, text=» DATA RETURN«, t00=0x004e, t01=0x00cc}
0x07aa4…07ab8 Head {h00=0x0010, h01=0x000c, text=» DATA RETURN«, t00=0x004e, t01=0x00e0}
0x07ab8…07ac4 Head {h00=0x0008, h01=0x0004, text=» XIF«, t00=0x004e, t01=0x00f4}
0x07ac4…07b00 Head {h00=0x0038, h01=0x0050, text=» DATA RETURN FREE LABEL FOR NEW KEY (NOT P. A. KEY) «, t00=0x004e, t01=0x0100}
0x07b00…07b3c Head {h00=0x0038, h01=0x0033, text=» DATA RETURN FREE LABEL FOR NEW KEY (NOT P. A. KEY) «, t00=0x004e, t01=0x013c}
0x07b3c…07b78 Head {h00=0x0038, h01=0x0050, text=» DATA RETURN FREE LABEL FOR NEW KEY (NOT P. A. KEY) «, t00=0x004e, t01=0x0178}
0x07b78…07b90 Head {h00=0x0014, h01=0x0050, text=»*FIRST P. A. KEY«, t00=0x004f, t01=0x0024}
0x07b90…07ba4 Head {h00=0x0010, h01=0x0050, text=» IFT OFLIN=1«, t00=0x004f, t01=0x003c}
0x07ba4…07bb8 Head {h00=0x0010, h01=0x0050, text=» DATA OFLINE«, t00=0x004f, t01=0x0050}
0x07bb8…07bc4 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x004f, t01=0x0064}
0x07bc4…07bd8 Head {h00=0x0010, h01=0x0050, text=» IFF OFLIN=1«, t00=0x004f, t01=0x0070}
0x07bd8…07bec Head {h00=0x0010, h01=0x0050, text=» DATA RETURN«, t00=0x004f, t01=0x0084}
0x07bec…07bf8 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x004f, t01=0x0098}
0x07bf8…07c04 Head {h00=0x0008, h01=0x0050, text=»*A0 «, t00=0x004f, t01=0x00a4}
0x07c04…07c18 Head {h00=0x0010, h01=0x0050, text=» DATA ENTER «, t00=0x004f, t01=0x00b0}
0x07c18…07c2a Head {h00=0x000e, h01=0x0050, text=» IFT SNA=1«, t00=0x004f, t01=0x00c4}
0x07c2a…07c3e Head {h00=0x0010, h01=0x0050, text=» DATA SYSREQ«, t00=0x004f, t01=0x00d6}
0x07c3e…07c52 Head {h00=0x0010, h01=0x0050, text=» DATA CLEAR «, t00=0x004f, t01=0x00ea}
0x07c52…07c64 Head {h00=0x000e, h01=0x0050, text=» DATA ATTN«, t00=0x004f, t01=0x00fe}
0x07c64…07c70 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x004f, t01=0x0110}
0x07c70…07c82 Head {h00=0x000e, h01=0x0050, text=» IFF SNA=1«, t00=0x004f, t01=0x011c}
0x07c82…07c96 Head {h00=0x0010, h01=0x0050, text=» DATA RETURN«, t00=0x004f, t01=0x012e}
0x07c96…07caa Head {h00=0x0010, h01=0x0050, text=» DATA CLEAR «, t00=0x004f, t01=0x0142}
0x07caa…07cbe Head {h00=0x0010, h01=0x0050, text=» DATA RETURN«, t00=0x004f, t01=0x0156}
0x07cbe…07cca Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x004f, t01=0x016a}
0x07cca…07ce0 Head {h00=0x0012, h01=0x0050, text=» IFT NBRLIN=2 «, t00=0x004f, t01=0x0176}
0x07ce0…07cf4 Head {h00=0x0010, h01=0x0050, text=» DATA MFCHGE«, t00=0x004f, t01=0x018c}
0x07cf4…07d00 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0050, t01=0x0010}
0x07d00…07d16 Head {h00=0x0012, h01=0x0050, text=» IFF NBRLIN=2 «, t00=0x0050, t01=0x001c}
0x07d16…07d2a Head {h00=0x0010, h01=0x0050, text=» DATA RETURN«, t00=0x0050, t01=0x0032}
0x07d2a…07d36 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0050, t01=0x0046}
0x07d36…07d48 Head {h00=0x000e, h01=0x000a, text=» IFT PAX=1«, t00=0x0050, t01=0x0052}
0x07d48…07d5a Head {h00=0x000e, h01=0x000a, text=» DATA PAEX«, t00=0x0050, t01=0x0064}
0x07d5a…07d66 Head {h00=0x0008, h01=0x0004, text=» XIF«, t00=0x0050, t01=0x0076}
0x07d66…07d78 Head {h00=0x000e, h01=0x000a, text=» IFF PAX=1«, t00=0x0050, t01=0x0082}
0x07d78…07d8c Head {h00=0x0010, h01=0x000c, text=» DATA RETURN«, t00=0x0050, t01=0x0094}
0x07d8c…07d98 Head {h00=0x0008, h01=0x0004, text=» XIF«, t00=0x0050, t01=0x00a8}
0x07d98…07daa Head {h00=0x000e, h01=0x0009, text=» DATA PA1 «, t00=0x0050, t01=0x00b4}
0x07daa…07dbc Head {h00=0x000e, h01=0x0009, text=» DATA PA2 «, t00=0x0050, t01=0x00c6}
0x07dbc…07dce Head {h00=0x000e, h01=0x0009, text=» DATA PA3 «, t00=0x0050, t01=0x00d8}
0x07dce…07df6 Head {h00=0x0024, h01=0x0050, text=» DATA PAALFA PA4-PA10 (ALFASKOP)«, t00=0x0050, t01=0x00ea}
0x07df6…07e0a Head {h00=0x0010, h01=0x0050, text=» DATA PAALFA«, t00=0x0050, t01=0x0112}
0x07e0a…07e1e Head {h00=0x0010, h01=0x0050, text=» DATA PAALFA«, t00=0x0050, t01=0x0126}
0x07e1e…07e32 Head {h00=0x0010, h01=0x0050, text=» DATA PAALFA«, t00=0x0050, t01=0x013a}
0x07e32…07e46 Head {h00=0x0010, h01=0x0050, text=» DATA PAALFA«, t00=0x0050, t01=0x014e}
0x07e46…07e5a Head {h00=0x0010, h01=0x0050, text=» DATA PAALFA«, t00=0x0050, t01=0x0162}
0x07e5a…07e6e Head {h00=0x0010, h01=0x0050, text=» DATA PAALFA«, t00=0x0050, t01=0x0176}
0x07e6e…07e7a Head {h00=0x0008, h01=0x0003, text=»*B0 «, t00=0x0050, t01=0x018a}
0x07e7a…07e8c Head {h00=0x000e, h01=0x000a, text=» IFT PFX=1«, t00=0x0051, t01=0x0008}
0x07e8c…07e9e Head {h00=0x000e, h01=0x000a, text=» DATA PFEX«, t00=0x0051, t01=0x001a}
0x07e9e…07eaa Head {h00=0x0008, h01=0x0004, text=» XIF«, t00=0x0051, t01=0x002c}
0x07eaa…07ebc Head {h00=0x000e, h01=0x000a, text=» IFF PFX=1«, t00=0x0051, t01=0x0038}
0x07ebc…07ed0 Head {h00=0x0010, h01=0x000c, text=» DATA RETURN«, t00=0x0051, t01=0x004a}
0x07ed0…07edc Head {h00=0x0008, h01=0x0004, text=» XIF«, t00=0x0051, t01=0x005e}
0x07edc…07eee Head {h00=0x000e, h01=0x000a, text=» DATA PF 1«, t00=0x0051, t01=0x006a}
0x07eee…07f00 Head {h00=0x000e, h01=0x000a, text=» DATA PF 2«, t00=0x0051, t01=0x007c}
0x07f00…07f12 Head {h00=0x000e, h01=0x000a, text=» DATA PF 3«, t00=0x0051, t01=0x008e}
0x07f12…07f24 Head {h00=0x000e, h01=0x000a, text=» DATA PF 4«, t00=0x0051, t01=0x00a0}
0x07f24…07f36 Head {h00=0x000e, h01=0x000a, text=» DATA PF 5«, t00=0x0051, t01=0x00b2}
0x07f36…07f48 Head {h00=0x000e, h01=0x000a, text=» DATA PF 6«, t00=0x0051, t01=0x00c4}
0x07f48…07f5a Head {h00=0x000e, h01=0x000a, text=» DATA PF 7«, t00=0x0051, t01=0x00d6}
0x07f5a…07f6c Head {h00=0x000e, h01=0x000a, text=» DATA PF 8«, t00=0x0051, t01=0x00e8}
0x07f6c…07f7e Head {h00=0x000e, h01=0x000a, text=» DATA PF 9«, t00=0x0051, t01=0x00fa}
0x07f7e…07f92 Head {h00=0x0010, h01=0x000b, text=» DATA PF 10 «, t00=0x0051, t01=0x010c}
0x07f92…07fa6 Head {h00=0x0010, h01=0x000b, text=» DATA PF 11 «, t00=0x0051, t01=0x0120}
0x07fa6…07fba Head {h00=0x0010, h01=0x000b, text=» DATA PF 12 «, t00=0x0051, t01=0x0134}
0x07fba…07fce Head {h00=0x0010, h01=0x000b, text=» DATA PF 13 «, t00=0x0051, t01=0x0148}
0x07fce…07fe2 Head {h00=0x0010, h01=0x000b, text=» DATA PF 14 «, t00=0x0051, t01=0x015c}
0x07fe2…07ff6 Head {h00=0x0010, h01=0x000b, text=» DATA PF 15 «, t00=0x0051, t01=0x0170}
0x07ff6…08002 Head {h00=0x0008, h01=0x0003, text=»*C0 «, t00=0x0051, t01=0x0184}
0x08002…08016 Head {h00=0x0010, h01=0x000b, text=» DATA PF 16 «, t00=0x0051, t01=0x0190}
0x08016…0802a Head {h00=0x0010, h01=0x000b, text=» DATA PF 17 «, t00=0x0052, t01=0x0014}
0x0802a…0803e Head {h00=0x0010, h01=0x000b, text=» DATA PF 18 «, t00=0x0052, t01=0x0028}
0x0803e…08052 Head {h00=0x0010, h01=0x000b, text=» DATA PF 19 «, t00=0x0052, t01=0x003c}
0x08052…08066 Head {h00=0x0010, h01=0x000b, text=» DATA PF 20 «, t00=0x0052, t01=0x0050}
0x08066…0807a Head {h00=0x0010, h01=0x000b, text=» DATA PF 21 «, t00=0x0052, t01=0x0064}
0x0807a…0808e Head {h00=0x0010, h01=0x000b, text=» DATA PF 22 «, t00=0x0052, t01=0x0078}
0x0808e…080a2 Head {h00=0x0010, h01=0x000b, text=» DATA PF 23 «, t00=0x0052, t01=0x008c}
0x080a2…080b6 Head {h00=0x0010, h01=0x000b, text=» DATA PF 24 «, t00=0x0052, t01=0x00a0}
0x080b6…080ca Head {h00=0x0010, h01=0x0050, text=» IFF TEST=1 «, t00=0x0052, t01=0x00b4}
0x080ca…080de Head {h00=0x0010, h01=0x0050, text=» DATA RETURN«, t00=0x0052, t01=0x00c8}
0x080de…080ea Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0052, t01=0x00dc}
0x080ea…080fe Head {h00=0x0010, h01=0x0050, text=» IFT TEST=1 «, t00=0x0052, t01=0x00e8}
0x080fe…08112 Head {h00=0x0010, h01=0x0050, text=» DATA TESTM «, t00=0x0052, t01=0x00fc}
0x08112…0811e Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0052, t01=0x0110}
0x0811e…0812c Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0052, t01=0x011c}
0x0812c…08172 Head {h00=0x0042, h01=0x0050, text=»**************************************************************«, t00=0x0052, t01=0x012a}
0x08172…081ba Head {h00=0x0044, h01=0x0050, text=»* * «, t00=0x0052, t01=0x0170}
0x081ba…08200 Head {h00=0x0042, h01=0x0050, text=»* CHAR ALPHABETIC AND SPEC. CHAR UPDAT. DISPL. *«, t00=0x0053, t01=0x0028}
0x08200…08246 Head {h00=0x0042, h01=0x0050, text=»* *«, t00=0x0053, t01=0x006e}
0x08246…0828c Head {h00=0x0042, h01=0x0050, text=»**************************************************************«, t00=0x0053, t01=0x00b4}
0x0828c…082a0 Head {h00=0x0010, h01=0x0050, text=»* REGISTERS«, t00=0x0053, t01=0x00fa}
0x082a0…082aa Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0053, t01=0x010e}
0x082aa…082c0 Head {h00=0x0012, h01=0x0050, text=»* A2= KEY-CHAR«, t00=0x0053, t01=0x0118}
0x082c0…082de Head {h00=0x001a, h01=0x0050, text=»* A3= ATTRIBUTE MASKL «, t00=0x0053, t01=0x012e}
0x082de…082f4 Head {h00=0x0012, h01=0x0050, text=»* A4= RESERVED«, t00=0x0053, t01=0x014c}
0x082f4…0830a Head {h00=0x0012, h01=0x0050, text=»* A5= RESERVED«, t00=0x0053, t01=0x0162}
0x0830a…08320 Head {h00=0x0012, h01=0x0050, text=»* A6= RESERVED«, t00=0x0053, t01=0x0178}
0x08320…08338 Head {h00=0x0014, h01=0x0050, text=»* A11= RESERVED «, t00=0x0053, t01=0x018e}
0x08338…08350 Head {h00=0x0014, h01=0x0050, text=»* A13= RESERVED «, t00=0x0054, t01=0x0016}
0x08350…0835a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0054, t01=0x002e}
0x0835a…083a0 Head {h00=0x0042, h01=0x0050, text=»**************************************************************«, t00=0x0054, t01=0x0038}
0x083a0…083b2 Head {h00=0x000e, h01=0x0050, text=»CHAR EQU *«, t00=0x0054, t01=0x007e}
0x083b2…083da Head {h00=0x0024, h01=0x0050, text=» LDK A3,/30 LOAD ATTRIBUTE MASK «, t00=0x0054, t01=0x0090}
0x083da…08404 Head {h00=0x0026, h01=0x0050, text=» CF A14,ANCOMM TAKE CARE OF CHAR. «, t00=0x0054, t01=0x00b8}
0x08404…08414 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0054, t01=0x00e2}
0x08414…08422 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0054, t01=0x00f2}
0x08422…08468 Head {h00=0x0042, h01=0x0050, text=»**************************************************************«, t00=0x0054, t01=0x0100}
0x08468…084ae Head {h00=0x0042, h01=0x0050, text=»* *«, t00=0x0054, t01=0x0146}
0x084ae…084f4 Head {h00=0x0042, h01=0x0050, text=»* NUM NUMERIC UPDAT. DISPL. *«, t00=0x0054, t01=0x018c}
0x084f4…0853a Head {h00=0x0042, h01=0x0050, text=»* NUMCOM NUMERIC COMMA *«, t00=0x0055, t01=0x0042}
0x0853a…08582 Head {h00=0x0044, h01=0x0050, text=»* * «, t00=0x0055, t01=0x0088}
0x08582…085c8 Head {h00=0x0042, h01=0x0050, text=»**************************************************************«, t00=0x0055, t01=0x00d0}
0x085c8…085dc Head {h00=0x0010, h01=0x0050, text=»* REGISTERS«, t00=0x0055, t01=0x0116}
0x085dc…085e6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0055, t01=0x012a}
0x085e6…085fc Head {h00=0x0012, h01=0x0050, text=»* A2= KEY-CHAR«, t00=0x0055, t01=0x0134}
0x085fc…08618 Head {h00=0x0018, h01=0x0050, text=»* A3= ATTRIBUTE MASK«, t00=0x0055, t01=0x014a}
0x08618…0862e Head {h00=0x0012, h01=0x0050, text=»* A4= RESERVED«, t00=0x0055, t01=0x0166}
0x0862e…08644 Head {h00=0x0012, h01=0x0050, text=»* A5= RESERVED«, t00=0x0055, t01=0x017c}
0x08644…0865a (86, 0, 400) Head {h00=0x0012, h01=0x0050, text=»* A6= RESERVED«, t00=0x0056, t01=0x0004}
0x0865a…08672 Head {h00=0x0014, h01=0x0050, text=»* A11= RESERVED «, t00=0x0056, t01=0x001a}
0x08672…0868a Head {h00=0x0014, h01=0x0050, text=»* A13= RESERVED «, t00=0x0056, t01=0x0032}
0x0868a…08694 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0056, t01=0x004a}
0x08694…086da Head {h00=0x0042, h01=0x0050, text=»************************************************************* «, t00=0x0056, t01=0x0054}
0x086da…086ee Head {h00=0x0010, h01=0x0050, text=»NUMCOM EQU *«, t00=0x0056, t01=0x009a}
0x086ee…0870e Head {h00=0x001c, h01=0x0050, text=» LDK A2,/2C INSERT COMMA«, t00=0x0056, t01=0x00ae}
0x0870e…08720 Head {h00=0x000e, h01=0x0050, text=»NUM EQU * «, t00=0x0056, t01=0x00ce}
0x08720…08748 Head {h00=0x0024, h01=0x0050, text=» LDK A3,/20 LOAD ATTRIBUTE MASK «, t00=0x0056, t01=0x00e0}
0x08748…08772 Head {h00=0x0026, h01=0x0050, text=» CF A14,ANCOMM TAKE CARE OF CHAR. «, t00=0x0056, t01=0x0108}
0x08772…08782 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0056, t01=0x0132}
0x08782…08790 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0056, t01=0x0142}
0x08790…087d8 Head {h00=0x0044, h01=0x0050, text=»*************************************************************** «, t00=0x0056, t01=0x0150}
0x087d8…08820 Head {h00=0x0044, h01=0x0050, text=»* * «, t00=0x0057, t01=0x0008}
0x08820…08868 Head {h00=0x0044, h01=0x0050, text=»* ANCOMM COMMON ROUTINE FOR ALPHANUM. CHAR. * «, t00=0x0057, t01=0x0050}
0x08868…088b0 Head {h00=0x0044, h01=0x0050, text=»* * «, t00=0x0057, t01=0x0098}
0x088b0…088f8 Head {h00=0x0044, h01=0x0050, text=»*************************************************************** «, t00=0x0057, t01=0x00e0}
0x088f8…0890c Head {h00=0x0010, h01=0x0050, text=»* REGISTERS«, t00=0x0057, t01=0x0128}
0x0890c…08916 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0057, t01=0x013c}
0x08916…0892c Head {h00=0x0012, h01=0x0050, text=»* A2= KEY-CHAR«, t00=0x0057, t01=0x0146}
0x0892c…08952 Head {h00=0x0022, h01=0x0050, text=»* A3= AT ENTRY ATTRIBUTE MASK «, t00=0x0057, t01=0x015c}
0x08952…08970 Head {h00=0x001a, h01=0x0050, text=»* A4= REL. CURSOR POS.«, t00=0x0057, t01=0x0182}
0x08970…08992 Head {h00=0x001e, h01=0x0050, text=»* A5= REL. ATTRIBUTE POS. «, t00=0x0058, t01=0x0010}
0x08992…089b0 Head {h00=0x001a, h01=0x0050, text=»* A6= ATTRIBUTE CHAR. «, t00=0x0058, t01=0x0032}
0x089b0…089d0 Head {h00=0x001c, h01=0x0050, text=»* A11= CREDIT WORK AREA «, t00=0x0058, t01=0x0050}
0x089d0…089e8 Head {h00=0x0014, h01=0x0050, text=»* A13= RESERVED «, t00=0x0058, t01=0x0070}
0x089e8…089f2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0058, t01=0x0088}
0x089f2…08a3a Head {h00=0x0044, h01=0x0050, text=»*************************************************************** «, t00=0x0058, t01=0x0092}
0x08a3a…08a4e Head {h00=0x0010, h01=0x0050, text=»ANCOMM EQU *«, t00=0x0058, t01=0x00da}
0x08a4e…08a7c Head {h00=0x002a, h01=0x0050, text=» CF A14,SCRINF GET SCREEN INFORMATION «, t00=0x0058, t01=0x00ee}
0x08a7c…08aa2 Head {h00=0x0022, h01=0x0050, text=» CWR A4,A5 CURSOR ON ATTRIBUTE«, t00=0x0058, t01=0x011c}
0x08aa2…08abc Head {h00=0x0016, h01=0x0050, text=» RF(E) ANC800 YES «, t00=0x0058, t01=0x0142}
0x08abc…08ace Head {h00=0x000e, h01=0x0050, text=» LDR A1,A6«, t00=0x0058, t01=0x015c}
0x08ace…08af0 Head {h00=0x001e, h01=0x0050, text=» ANR A1,A3 ALLOWED POS. ? «, t00=0x0058, t01=0x016e}
0x08af0…08b0a Head {h00=0x0016, h01=0x0050, text=» RF(NZ) ANC800 NO «, t00=0x0058, t01=0x0190}
0x08b0a…08b1e Head {h00=0x0010, h01=0x0050, text=» IFT IN:DL=1«, t00=0x0059, t01=0x001a}
0x08b1e…08b42 Head {h00=0x0020, h01=0x0050, text=» LD A1,MODE,A11 INSERT MODE?«, t00=0x0059, t01=0x002e}
0x08b42…08b5a Head {h00=0x0014, h01=0x0050, text=» RF(Z) ANC100 NO«, t00=0x0059, t01=0x0052}
0x08b5a…08b70 Head {h00=0x0012, h01=0x0050, text=» CF A14,INSMOD«, t00=0x0059, t01=0x006a}
0x08b70…08b82 Head {h00=0x000e, h01=0x0050, text=» LDR A7,A1«, t00=0x0059, t01=0x0080}
0x08b82…08ba4 Head {h00=0x001e, h01=0x0050, text=» ANK A7,1 INSRETED NORMAL?«, t00=0x0059, t01=0x0092}
0x08ba4…08bbe Head {h00=0x0016, h01=0x0050, text=» RF(NZ) ANC900 YES«, t00=0x0059, t01=0x00b4}
0x08bbe…08be4 Head {h00=0x0022, h01=0x0050, text=» ANK A1,2 INSERT NOT ALLOWED? «, t00=0x0059, t01=0x00ce}
0x08be4…08bfe Head {h00=0x0016, h01=0x0050, text=» RF(NZ) ANC800 YES«, t00=0x0059, t01=0x00f4}
0x08bfe…08c0a Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0059, t01=0x010e}
0x08c0a…08c1e Head {h00=0x0010, h01=0x0050, text=»ANC100 EQU *«, t00=0x0059, t01=0x011a}
0x08c1e…08c30 Head {h00=0x000e, h01=0x0050, text=» LDR A1,A4«, t00=0x0059, t01=0x012e}
0x08c30…08c42 Head {h00=0x000e, h01=0x0050, text=» LDR A7,A2«, t00=0x0059, t01=0x0140}
0x08c42…08c76 Head {h00=0x0030, h01=0x0050, text=» CF A14,STOVDU STORE KEY-CHAR IN VDU BUFFER «, t00=0x0059, t01=0x0152}
0x08c76…08ca4 Head {h00=0x002a, h01=0x0050, text=» CF A14,WCHAR DISPLAY CHAR AND CURSOR «, t00=0x0059, t01=0x0186}
0x08ca4…08ce0 Head {h00=0x0038, h01=0x0050, text=» CF A14,POSUNP MOVE CURSOR TO NEXT UNPROTECTED POS. «, t00=0x005a, t01=0x0024}
0x08ce0…08cf2 Head {h00=0x000e, h01=0x0050, text=» RF ANC900«, t00=0x005a, t01=0x0060}
0x08cf2…08d06 Head {h00=0x0010, h01=0x0050, text=»ANC800 EQU *«, t00=0x005a, t01=0x0072}
0x08d06…08d2a Head {h00=0x0020, h01=0x0050, text=» CF A14,ERROR INDICATE ERROR«, t00=0x005a, t01=0x0086}
0x08d2a…08d3e Head {h00=0x0010, h01=0x0050, text=»ANC900 EQU *«, t00=0x005a, t01=0x00aa}
0x08d3e…08d4e Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x005a, t01=0x00be}
0x08d4e…08d5c Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x005a, t01=0x00ce}
0x08d5c…08da0 Head {h00=0x0040, h01=0x0050, text=»************************************************************«, t00=0x005a, t01=0x00dc}
0x08da0…08de4 Head {h00=0x0040, h01=0x0050, text=»* *«, t00=0x005a, t01=0x0120}
0x08de4…08e28 Head {h00=0x0040, h01=0x0050, text=»* CURMOV MOVE CURSOR ON SCREEN *«, t00=0x005a, t01=0x0164}
0x08e28…08e6c Head {h00=0x0040, h01=0x0050, text=»* *«, t00=0x005b, t01=0x0018}
0x08e6c…08eb0 Head {h00=0x0040, h01=0x0050, text=»************************************************************«, t00=0x005b, t01=0x005c}
0x08eb0…08ec4 Head {h00=0x0010, h01=0x0050, text=»* REGISTERS«, t00=0x005b, t01=0x00a0}
0x08ec4…08ece Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005b, t01=0x00b4}
0x08ece…08ee4 Head {h00=0x0012, h01=0x0050, text=»* A2= KEY-CHAR«, t00=0x005b, t01=0x00be}
0x08ee4…08f02 Head {h00=0x001a, h01=0x0050, text=»* A4= REL. CURSOR POS.«, t00=0x005b, t01=0x00d4}
0x08f02…08f24 Head {h00=0x001e, h01=0x0050, text=»* A5= REL. ATTRIBUTE POS. «, t00=0x005b, t01=0x00f2}
0x08f24…08f40 Head {h00=0x0018, h01=0x0050, text=»* A6= ATTRIBUTE CHAR«, t00=0x005b, t01=0x0114}
0x08f40…08f58 Head {h00=0x0014, h01=0x0050, text=»* A11= RESERVED «, t00=0x005b, t01=0x0130}
0x08f58…08f70 Head {h00=0x0014, h01=0x0050, text=»* A13= RESERVED «, t00=0x005b, t01=0x0148}
0x08f70…08f7a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005b, t01=0x0160}
0x08f7a…08fbe Head {h00=0x0040, h01=0x0050, text=»************************************************************«, t00=0x005b, t01=0x016a}
0x08fbe…08fd2 Head {h00=0x0010, h01=0x0050, text=»CURMOV EQU *«, t00=0x005c, t01=0x001e}
0x08fd2…08ffa Head {h00=0x0024, h01=0x0050, text=» CF A14,SCRINF GET SCREEN INFO. «, t00=0x005c, t01=0x0032}
0x08ffa…09018 Head {h00=0x001a, h01=0x0050, text=» SUK A2,CRUP GET INDEX«, t00=0x005c, t01=0x005a}
0x09018…0902a Head {h00=0x000e, h01=0x0050, text=» ADR A2,A2«, t00=0x005c, t01=0x0078}
0x0902a…0905a Head {h00=0x002c, h01=0x0050, text=» CFI A14,CURTAB,A2 JUMP IN CURSOR TABLE «, t00=0x005c, t01=0x008a}
0x0905a…09088 Head {h00=0x002a, h01=0x0050, text=» CF A14,STOINF SAVE SCREEN INFORMATION«, t00=0x005c, t01=0x00ba}
0x09088…090b2 Head {h00=0x0026, h01=0x0050, text=» CWK A5,LBVDU+1 UNFORMATTED SCREEN«, t00=0x005c, t01=0x00e8}
0x090b2…090cc Head {h00=0x0016, h01=0x0050, text=» RF(E) CURM10 YES «, t00=0x005c, t01=0x0112}
0x090cc…090de Head {h00=0x000e, h01=0x0050, text=» LDR A1,A4«, t00=0x005c, t01=0x012c}
0x090de…09106 Head {h00=0x0024, h01=0x0050, text=» CF A14,ATMASB UPDATE ATTRIBUTE «, t00=0x005c, t01=0x013e}
0x09106…0911a Head {h00=0x0010, h01=0x0050, text=»CURM10 EQU *«, t00=0x005c, t01=0x0166}
0x0911a…09138 Head {h00=0x001a, h01=0x0050, text=» LDK A1,2 REQ. LENGTH «, t00=0x005c, t01=0x017a}
0x09138…0915a Head {h00=0x001e, h01=0x0050, text=» CF A14,DISCHA SET CURSOR «, t00=0x005d, t01=0x0008}
0x0915a…0916a Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x005d, t01=0x002a}
0x0916a…09178 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x005d, t01=0x003a}
0x09178…091a0 Head {h00=0x0024, h01=0x0050, text=»* CURTAB CURSOR JUMP TABLE«, t00=0x005d, t01=0x0048}
0x091a0…091b4 Head {h00=0x0010, h01=0x0050, text=»CURTAB EQU *«, t00=0x005d, t01=0x0070}
0x091b4…091dc Head {h00=0x0024, h01=0x0050, text=» DATA CRLEFT MOVE CURSOR TO LEFT«, t00=0x005d, t01=0x0084}
0x091dc…09206 Head {h00=0x0026, h01=0x0050, text=» DATA CRRIGT MOVE CURSOR TO RIGHT «, t00=0x005d, t01=0x00ac}
0x09206…0922c Head {h00=0x0022, h01=0x0050, text=» DATA CRDOWN MOVE CURSOR DOWN «, t00=0x005d, t01=0x00d6}
0x0922c…0924e Head {h00=0x001e, h01=0x0050, text=» DATA CURUP MOVE CURSOR UP«, t00=0x005d, t01=0x00fc}
0x0924e…09278 Head {h00=0x0026, h01=0x0050, text=»* CRLEFT MOVE CURSOR TO LEFT«, t00=0x005d, t01=0x011e}
0x09278…0928c Head {h00=0x0010, h01=0x0050, text=»CRLEFT EQU *«, t00=0x005d, t01=0x0148}
0x0928c…0929e Head {h00=0x000e, h01=0x0050, text=» SUK A4,1 «, t00=0x005d, t01=0x015c}
0x0929e…092c6 Head {h00=0x0024, h01=0x0050, text=» RF(NN) CRRET NOT LEFTMOST POS. «, t00=0x005d, t01=0x016e}
0x092c6…092f2 Head {h00=0x0028, h01=0x0050, text=» LDKL A4,LBVDU-1 LAST POS. ON SCREEN«, t00=0x005e, t01=0x0008}
0x092f2…09304 Head {h00=0x000e, h01=0x0050, text=» RF CRRET «, t00=0x005e, t01=0x0034}
0x09304…09330 Head {h00=0x0028, h01=0x0050, text=»* CRRIGT MOVE CURSOR TO RIGHT «, t00=0x005e, t01=0x0046}
0x09330…09344 Head {h00=0x0010, h01=0x0050, text=»CRRIGT EQU *«, t00=0x005e, t01=0x0072}
0x09344…09356 Head {h00=0x000e, h01=0x0050, text=» ADK A4,1 «, t00=0x005e, t01=0x0086}
0x09356…0937a Head {h00=0x0020, h01=0x0050, text=» CWK A4,LBVDU END OF BUFFER?«, t00=0x005e, t01=0x0098}
0x0937a…09392 Head {h00=0x0014, h01=0x0050, text=» RF(L) CRRET NO «, t00=0x005e, t01=0x00bc}
0x09392…093a4 Head {h00=0x000e, h01=0x0050, text=» LDK A4,0 «, t00=0x005e, t01=0x00d4}
0x093a4…093b6 Head {h00=0x000e, h01=0x0050, text=» RF CRRET «, t00=0x005e, t01=0x00e6}
0x093b6…093de Head {h00=0x0024, h01=0x0050, text=»* CRDOWN MOVE CURSOR DOWN «, t00=0x005e, t01=0x00f8}
0x093de…093f2 Head {h00=0x0010, h01=0x0050, text=»CRDOWN EQU *«, t00=0x005e, t01=0x0120}
0x093f2…09408 Head {h00=0x0012, h01=0x0050, text=» ADKL A4,LLINE«, t00=0x005e, t01=0x0134}
0x09408…09428 Head {h00=0x001c, h01=0x0050, text=» CWK A4,LBVDU LAST LINE?«, t00=0x005e, t01=0x014a}
0x09428…09440 Head {h00=0x0014, h01=0x0050, text=» RF(L) CRRET NO «, t00=0x005e, t01=0x016a}
0x09440…09456 Head {h00=0x0012, h01=0x0050, text=» SUKL A4,LBVDU«, t00=0x005e, t01=0x0182}
0x09456…09468 Head {h00=0x000e, h01=0x0050, text=» RF CRRET «, t00=0x005f, t01=0x0008}
0x09468…0948c Head {h00=0x0020, h01=0x0050, text=»* CURUP MOVE CURSOR UP«, t00=0x005f, t01=0x001a}
0x0948c…094a0 Head {h00=0x0010, h01=0x0050, text=»CURUP EQU * «, t00=0x005f, t01=0x003e}
0x094a0…094b6 Head {h00=0x0012, h01=0x0050, text=» SUKL A4,LLINE«, t00=0x005f, t01=0x0052}
0x094b6…094d8 Head {h00=0x001e, h01=0x0050, text=» RF(NN) CRRET UPMOST LINE «, t00=0x005f, t01=0x0068}
0x094d8…094ee Head {h00=0x0012, h01=0x0050, text=» ADKL A4,LBVDU«, t00=0x005f, t01=0x008a}
0x094ee…09502 Head {h00=0x0010, h01=0x0050, text=»CRRET EQU * «, t00=0x005f, t01=0x00a0}
0x09502…09512 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x005f, t01=0x00b4}
0x09512…09520 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x005f, t01=0x00c4}
0x09520…09566 Head {h00=0x0042, h01=0x0050, text=»**************************************************************«, t00=0x005f, t01=0x00d2}
0x09566…095ac Head {h00=0x0042, h01=0x0050, text=»* *«, t00=0x005f, t01=0x0118}
0x095ac…095f2 Head {h00=0x0042, h01=0x0050, text=»* BAKTAB TAB. UNPROTECTED BACKWARDS *«, t00=0x005f, t01=0x015e}
0x095f2…09638 Head {h00=0x0042, h01=0x0050, text=»* *«, t00=0x0060, t01=0x0014}
0x09638…0967e Head {h00=0x0042, h01=0x0050, text=»**************************************************************«, t00=0x0060, t01=0x005a}
0x0967e…09692 Head {h00=0x0010, h01=0x0050, text=»* REGISTERS«, t00=0x0060, t01=0x00a0}
0x09692…0969c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0060, t01=0x00b4}
0x0969c…096ba Head {h00=0x001a, h01=0x0050, text=»* A4= REL. CURSOR POS.«, t00=0x0060, t01=0x00be}
0x096ba…096dc Head {h00=0x001e, h01=0x0050, text=»* A5= REL. ATTRIBUTE POS. «, t00=0x0060, t01=0x00dc}
0x096dc…096fa Head {h00=0x001a, h01=0x0050, text=»* A6= ATTRIBUTE CHAR. «, t00=0x0060, t01=0x00fe}
0x096fa…09722 Head {h00=0x0024, h01=0x0050, text=»* A9= REL. ATTRIBUTE START POS. «, t00=0x0060, t01=0x011c}
0x09722…0973a Head {h00=0x0014, h01=0x0050, text=»* A11= RESERVED «, t00=0x0060, t01=0x0144}
0x0973a…09752 Head {h00=0x0014, h01=0x0050, text=»* A13= RESERVED «, t00=0x0060, t01=0x015c}
0x09752…0975c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0060, t01=0x0174}
0x0975c…097a4 Head {h00=0x0044, h01=0x0050, text=»*************************************************************** «, t00=0x0060, t01=0x017e}
0x097a4…097b8 Head {h00=0x0010, h01=0x0050, text=»BAKTAB EQU *«, t00=0x0061, t01=0x0036}
0x097b8…097e6 Head {h00=0x002a, h01=0x0050, text=» CF A14,SCRINF GET SCREEN INFORMATION «, t00=0x0061, t01=0x004a}
0x097e6…097f8 Head {h00=0x000e, h01=0x0050, text=» LDR A9,A5«, t00=0x0061, t01=0x0078}
0x097f8…09824 Head {h00=0x0028, h01=0x0050, text=» CWK A5,LBVDU+1 UNFORMATTED SCREEN? «, t00=0x0061, t01=0x008a}
0x09824…0983e Head {h00=0x0016, h01=0x0050, text=» RF(E) BAK600 YES «, t00=0x0061, t01=0x00b6}
0x0983e…09868 Head {h00=0x0026, h01=0x0050, text=» CWR A4,A5 STANDING ON ATTRIBUTE? «, t00=0x0061, t01=0x00d0}
0x09868…09882 Head {h00=0x0016, h01=0x0050, text=» RF(E) BAK300 YES «, t00=0x0061, t01=0x00fa}
0x09882…09894 Head {h00=0x000e, h01=0x0050, text=» SUK A4,1 «, t00=0x0061, t01=0x0114}
0x09894…098c4 Head {h00=0x002c, h01=0x0050, text=» RF(NN) BAK100 NOT FIRST POS. ON SCREEN «, t00=0x0061, t01=0x0126}
0x098c4…098f0 Head {h00=0x0028, h01=0x0050, text=» LDKL A4,LBVDU-1 LAST POS. ON SCREEN«, t00=0x0061, t01=0x0156}
0x098f0…09904 Head {h00=0x0010, h01=0x0050, text=»BAK100 EQU *«, t00=0x0061, t01=0x0182}
0x09904…09938 Head {h00=0x0030, h01=0x0050, text=» CWR A4,A5 STANDING ON POS. AFTER ATTRIBUTE?«, t00=0x0062, t01=0x0008}
0x09938…09952 Head {h00=0x0016, h01=0x0050, text=» RF(E) BAK300 YES «, t00=0x0062, t01=0x003c}
0x09952…09964 Head {h00=0x000e, h01=0x0050, text=» LDR A4,A5«, t00=0x0062, t01=0x0056}
0x09964…09976 Head {h00=0x000e, h01=0x0050, text=» LDR A7,A6«, t00=0x0062, t01=0x0068}
0x09976…0999a Head {h00=0x0020, h01=0x0050, text=» ANK A7,/20 PROTECTED FIELD?«, t00=0x0062, t01=0x007a}
0x0999a…099b2 Head {h00=0x0014, h01=0x0050, text=» RF(Z) BAK500 NO«, t00=0x0062, t01=0x009e}
0x099b2…099c6 Head {h00=0x0010, h01=0x0050, text=»BAK300 EQU *«, t00=0x0062, t01=0x00b6}
0x099c6…099d8 Head {h00=0x000e, h01=0x0050, text=» SUK A4,1 «, t00=0x0062, t01=0x00ca}
0x099d8…099ee Head {h00=0x0012, h01=0x0050, text=» RF(NN) BAK400«, t00=0x0062, t01=0x00dc}
0x099ee…09a06 Head {h00=0x0014, h01=0x0050, text=» LDKL A4,LBVDU-1«, t00=0x0062, t01=0x00f2}
0x09a06…09a1a Head {h00=0x0010, h01=0x0050, text=»BAK400 EQU *«, t00=0x0062, t01=0x010a}
0x09a1a…09a2c Head {h00=0x000e, h01=0x0050, text=» LDR A1,A4«, t00=0x0062, t01=0x011e}
0x09a2c…09a6a Head {h00=0x003a, h01=0x0050, text=» CF A14,ATMASB SEARCH ATTRIBUTE BACKWARDS AND MASK IT «, t00=0x0062, t01=0x0130}
0x09a6a…09a7c Head {h00=0x000e, h01=0x0050, text=» LDR A7,A6«, t00=0x0062, t01=0x016e}
0x09a7c…09aa0 Head {h00=0x0020, h01=0x0050, text=» ANK A7,/20 PROTECTED FIELD?«, t00=0x0062, t01=0x0180}
0x09aa0…09ab8 Head {h00=0x0014, h01=0x0050, text=» RF(Z) BAK500 NO«, t00=0x0063, t01=0x0014}
0x09ab8…09aca Head {h00=0x000e, h01=0x0050, text=» LDR A4,A5«, t00=0x0063, t01=0x002c}
0x09aca…09af4 Head {h00=0x0026, h01=0x0050, text=» CWR A5,A9 WHOLE SCREEN SEARCHED? «, t00=0x0063, t01=0x003e}
0x09af4…09b0e Head {h00=0x0016, h01=0x0050, text=» RB(NE) BAK300 NO «, t00=0x0063, t01=0x0068}
0x09b0e…09b32 Head {h00=0x0020, h01=0x0050, text=» LDK A1,0 FIRST SCREEN POS. «, t00=0x0063, t01=0x0082}
0x09b32…09b62 Head {h00=0x002c, h01=0x0050, text=» CF A14,ATMASB UPDATE FIELD INFORMATION «, t00=0x0063, t01=0x00a6}
0x09b62…09b74 Head {h00=0x000e, h01=0x0050, text=» RF BAK600«, t00=0x0063, t01=0x00d6}
0x09b74…09b88 Head {h00=0x0010, h01=0x0050, text=»BAK500 EQU *«, t00=0x0063, t01=0x00e8}
0x09b88…09b9a Head {h00=0x000e, h01=0x0050, text=» LDR A4,A5«, t00=0x0063, t01=0x00fc}
0x09b9a…09bac Head {h00=0x000e, h01=0x0050, text=» ADK A4,1 «, t00=0x0063, t01=0x010e}
0x09bac…09bd0 Head {h00=0x0020, h01=0x0050, text=» CWK A4,LBVDU-1 WRAP AROUND?«, t00=0x0063, t01=0x0120}
0x09bd0…09bea Head {h00=0x0016, h01=0x0050, text=» RF(NG) BAK700 NO «, t00=0x0063, t01=0x0144}
0x09bea…09bfe Head {h00=0x0010, h01=0x0050, text=»BAK600 EQU *«, t00=0x0063, t01=0x015e}
0x09bfe…09c22 Head {h00=0x0020, h01=0x0050, text=» LDK A4,0 FIRST SCREEN POS. «, t00=0x0063, t01=0x0172}
0x09c22…09c36 Head {h00=0x0010, h01=0x0050, text=»BAK700 EQU *«, t00=0x0064, t01=0x0008}
0x09c36…09c64 Head {h00=0x002a, h01=0x0050, text=» CF A14,STOINF SAVE SCREEN INFORMATION«, t00=0x0064, t01=0x001c}
0x09c64…09c82 Head {h00=0x001a, h01=0x0050, text=» LDK A1,2 REQ. LENGTH «, t00=0x0064, t01=0x004a}
0x09c82…09ca4 Head {h00=0x001e, h01=0x0050, text=» CF A14,DISCHA SET CURSOR «, t00=0x0064, t01=0x0068}
0x09ca4…09cb4 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0064, t01=0x008a}
0x09cb4…09cc2 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0064, t01=0x009a}
0x09cc2…09d08 Head {h00=0x0042, h01=0x0050, text=»************************************************************* «, t00=0x0064, t01=0x00a8}
0x09d08…09d4e Head {h00=0x0042, h01=0x0050, text=»* * «, t00=0x0064, t01=0x00ee}
0x09d4e…09d94 Head {h00=0x0042, h01=0x0050, text=»* TAB TAB. UNPROTECTED FORWARD * «, t00=0x0064, t01=0x0134}
0x09d94…09dda Head {h00=0x0042, h01=0x0050, text=»* * «, t00=0x0064, t01=0x017a}
0x09dda…09e20 Head {h00=0x0042, h01=0x0050, text=»************************************************************* «, t00=0x0065, t01=0x0030}
0x09e20…09e34 Head {h00=0x0010, h01=0x0050, text=»* REGISTERS«, t00=0x0065, t01=0x0076}
0x09e34…09e3e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0065, t01=0x008a}
0x09e3e…09e5c Head {h00=0x001a, h01=0x0050, text=»* A4= REL. CURSOR POS.«, t00=0x0065, t01=0x0094}
0x09e5c…09e7e Head {h00=0x001e, h01=0x0050, text=»* A5= REL. ATTRIBUTE POS. «, t00=0x0065, t01=0x00b2}
0x09e7e…09e9c Head {h00=0x001a, h01=0x0050, text=»* A6= ATTRIBUTE CHAR. «, t00=0x0065, t01=0x00d4}
0x09e9c…09ec4 Head {h00=0x0024, h01=0x0050, text=»* A9= REL. ATTRIBUTE START POS. «, t00=0x0065, t01=0x00f2}
0x09ec4…09edc Head {h00=0x0014, h01=0x0050, text=»* A11= RESERVED «, t00=0x0065, t01=0x011a}
0x09edc…09ef4 Head {h00=0x0014, h01=0x0050, text=»* A13= RESERVED «, t00=0x0065, t01=0x0132}
0x09ef4…09efe Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0065, t01=0x014a}
0x09efe…09f44 Head {h00=0x0042, h01=0x0050, text=»**************************************************************«, t00=0x0065, t01=0x0154}
0x09f44…09f56 Head {h00=0x000e, h01=0x0050, text=»TAB EQU * «, t00=0x0066, t01=0x000a}
0x09f56…09f84 Head {h00=0x002a, h01=0x0050, text=» CF A14,SCRINF GET SCREEN INFORMATION «, t00=0x0066, t01=0x001c}
0x09f84…09f96 Head {h00=0x000e, h01=0x0050, text=» LDR A9,A5«, t00=0x0066, t01=0x004a}
0x09f96…09fc2 Head {h00=0x0028, h01=0x0050, text=» CWK A5,LBVDU+1 UNFORMATTED SCREEN? «, t00=0x0066, t01=0x005c}
0x09fc2…09fdc Head {h00=0x0016, h01=0x0050, text=» RF(E) TAB200 YES «, t00=0x0066, t01=0x0088}
0x09fdc…09ff0 Head {h00=0x0010, h01=0x0050, text=»TAB100 EQU *«, t00=0x0066, t01=0x00a2}
0x09ff0…0a002 Head {h00=0x000e, h01=0x0050, text=» LDR A1,A4«, t00=0x0066, t01=0x00b6}
0x0a002…0a032 Head {h00=0x002c, h01=0x0050, text=» CF A14,ATMASF SEARCH ATTRIBUTE FORWARD «, t00=0x0066, t01=0x00c8}
0x0a032…0a054 Head {h00=0x001e, h01=0x0050, text=» LDR A4,A5 NEW CURSOR POS.«, t00=0x0066, t01=0x00f8}
0x0a054…0a066 Head {h00=0x000e, h01=0x0050, text=» LDR A7,A6«, t00=0x0066, t01=0x011a}
0x0a066…0a08a Head {h00=0x0020, h01=0x0050, text=» ANK A7,/20 PROTECTED FIELD?«, t00=0x0066, t01=0x012c}
0x0a08a…0a0a2 Head {h00=0x0014, h01=0x0050, text=» RF(Z) TAB150 NO«, t00=0x0066, t01=0x0150}
0x0a0a2…0a0cc Head {h00=0x0026, h01=0x0050, text=» CWR A5,A9 WHOLE SCREEN SEARCHED? «, t00=0x0066, t01=0x0168}
0x0a0cc…0a0e6 (103, 0, 400) Head {h00=0x0016, h01=0x0050, text=» RB(NE) TAB100 NO «, t00=0x0067, t01=0x0004}
0x0a0e6…0a10c Head {h00=0x0022, h01=0x0050, text=» LDK A1,0 FIRST POS. ON SCREEN«, t00=0x0067, t01=0x001e}
0x0a10c…0a13c Head {h00=0x002c, h01=0x0050, text=» CF A14,ATMASB UPDATE FIELD INFORMATION «, t00=0x0067, t01=0x0044}
0x0a13c…0a14e Head {h00=0x000e, h01=0x0050, text=» RF TAB200«, t00=0x0067, t01=0x0074}
0x0a14e…0a162 Head {h00=0x0010, h01=0x0050, text=»TAB150 EQU *«, t00=0x0067, t01=0x0086}
0x0a162…0a174 Head {h00=0x000e, h01=0x0050, text=» ADK A4,1 «, t00=0x0067, t01=0x009a}
0x0a174…0a19e Head {h00=0x0026, h01=0x0050, text=» CWK A4,LBVDU-1 LAST SCREEN POS.? «, t00=0x0067, t01=0x00ac}
0x0a19e…0a1b8 Head {h00=0x0016, h01=0x0050, text=» RF(NG) TAB300 NO «, t00=0x0067, t01=0x00d6}
0x0a1b8…0a1cc Head {h00=0x0010, h01=0x0050, text=»TAB200 EQU *«, t00=0x0067, t01=0x00f0}
0x0a1cc…0a1f0 Head {h00=0x0020, h01=0x0050, text=» LDK A4,0 FIRST SCREEN POS. «, t00=0x0067, t01=0x0104}
0x0a1f0…0a204 Head {h00=0x0010, h01=0x0050, text=»TAB300 EQU *«, t00=0x0067, t01=0x0128}
0x0a204…0a232 Head {h00=0x002a, h01=0x0050, text=» CF A14,STOINF SAVE SCREEN INFORMATION«, t00=0x0067, t01=0x013c}
0x0a232…0a250 Head {h00=0x001a, h01=0x0050, text=» LDK A1,2 REQ. LENGTH «, t00=0x0067, t01=0x016a}
0x0a250…0a272 Head {h00=0x001e, h01=0x0050, text=» CF A14,DISCHA SET CURSOR «, t00=0x0067, t01=0x0188}
0x0a272…0a282 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0068, t01=0x001a}
0x0a282…0a290 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0068, t01=0x002a}
0x0a290…0a2dc Head {h00=0x0048, h01=0x0050, text=»******************************************************************* «, t00=0x0068, t01=0x0038}
0x0a2dc…0a328 Head {h00=0x0048, h01=0x0050, text=»* * «, t00=0x0068, t01=0x0084}
0x0a328…0a374 Head {h00=0x0048, h01=0x0050, text=»* CRNL TAB. UNPROTECTED TO NEXT LINE * «, t00=0x0068, t01=0x00d0}
0x0a374…0a3c0 Head {h00=0x0048, h01=0x0050, text=»* * «, t00=0x0068, t01=0x011c}
0x0a3c0…0a40c Head {h00=0x0048, h01=0x0050, text=»******************************************************************* «, t00=0x0068, t01=0x0168}
0x0a40c…0a420 Head {h00=0x0010, h01=0x0050, text=»* REGISTERS«, t00=0x0069, t01=0x0024}
0x0a420…0a42a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0069, t01=0x0038}
0x0a42a…0a448 Head {h00=0x001a, h01=0x0050, text=»* A4= REL. CURSOR POS.«, t00=0x0069, t01=0x0042}
0x0a448…0a46a Head {h00=0x001e, h01=0x0050, text=»* A5= REL. ATTRIBUTE POS. «, t00=0x0069, t01=0x0060}
0x0a46a…0a488 Head {h00=0x001a, h01=0x0050, text=»* A6= ATTRIBUTE CHAR. «, t00=0x0069, t01=0x0082}
0x0a488…0a4a0 Head {h00=0x0014, h01=0x0050, text=»* A11= RESERVED «, t00=0x0069, t01=0x00a0}
0x0a4a0…0a4b8 Head {h00=0x0014, h01=0x0050, text=»* A13= RESERVED «, t00=0x0069, t01=0x00b8}
0x0a4b8…0a4c2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0069, t01=0x00d0}
0x0a4c2…0a50c Head {h00=0x0046, h01=0x0050, text=»***************************************************************** «, t00=0x0069, t01=0x00da}
0x0a50c…0a51e Head {h00=0x000e, h01=0x0050, text=»CRNL EQU *«, t00=0x0069, t01=0x0124}
0x0a51e…0a54c Head {h00=0x002a, h01=0x0050, text=» CF A14,SCRINF GET SCREEN INFORMATION «, t00=0x0069, t01=0x0136}
0x0a54c…0a574 Head {h00=0x0024, h01=0x0050, text=» CF A14,CRDOWN MOVE CURSOR DOWN «, t00=0x0069, t01=0x0164}
0x0a574…0a59c Head {h00=0x0024, h01=0x0050, text=» LDK A1,0 COMPUTE LEFTMOST POS. «, t00=0x0069, t01=0x018c}
0x0a59c…0a5b0 Head {h00=0x0010, h01=0x0050, text=»CRN100 EQU *«, t00=0x006a, t01=0x0024}
0x0a5b0…0a5c6 Head {h00=0x0012, h01=0x0050, text=» SUK A4,LLINE «, t00=0x006a, t01=0x0038}
0x0a5c6…0a5dc Head {h00=0x0012, h01=0x0050, text=» RF(N) CRN200 «, t00=0x006a, t01=0x004e}
0x0a5dc…0a5f2 Head {h00=0x0012, h01=0x0050, text=» ADK A1,LLINE «, t00=0x006a, t01=0x0064}
0x0a5f2…0a604 Head {h00=0x000e, h01=0x0050, text=» RB CRN100«, t00=0x006a, t01=0x007a}
0x0a604…0a618 Head {h00=0x0010, h01=0x0050, text=»CRN200 EQU *«, t00=0x006a, t01=0x008c}
0x0a618…0a62a Head {h00=0x000e, h01=0x0050, text=» LDR A4,A1«, t00=0x006a, t01=0x00a0}
0x0a62a…0a656 Head {h00=0x0028, h01=0x0050, text=» CWK A5,LBVDU+1 UNFORMATTED SCREEN? «, t00=0x006a, t01=0x00b2}
0x0a656…0a670 Head {h00=0x0016, h01=0x0050, text=» RF(E) CRN800 YES «, t00=0x006a, t01=0x00de}
0x0a670…0a69e Head {h00=0x002a, h01=0x0050, text=» CF A14,GETVDU GET CHAR. IN VDU BUFFER«, t00=0x006a, t01=0x00f8}
0x0a69e…0a6c2 Head {h00=0x0020, h01=0x0050, text=» CCK A7,/8080 ATTRIBUTE? =2 «, t00=0x006a, t01=0x0126}
0x0a6c2…0a6dc Head {h00=0x0016, h01=0x0050, text=» RF(NL) CRN400 YES«, t00=0x006a, t01=0x014a}
0x0a6dc…0a6ee Head {h00=0x000e, h01=0x0050, text=» LDR A1,A4«, t00=0x006a, t01=0x0164}
0x0a6ee…0a71e Head {h00=0x002c, h01=0x0050, text=» CF A14,ATMASB SEARCH ATTRIBUTE BACKWARD«, t00=0x006a, t01=0x0176}
0x0a71e…0a730 Head {h00=0x000e, h01=0x0050, text=» LDR A7,A6«, t00=0x006b, t01=0x0016}
0x0a730…0a74e Head {h00=0x001a, h01=0x0050, text=» ANK A7,/20 PROTECTED?«, t00=0x006b, t01=0x0028}
0x0a74e…0a766 Head {h00=0x0014, h01=0x0050, text=» RF(Z) CRN800 NO«, t00=0x006b, t01=0x0046}
0x0a766…0a778 Head {h00=0x000e, h01=0x0050, text=» RF CRN500«, t00=0x006b, t01=0x005e}
0x0a778…0a78c Head {h00=0x0010, h01=0x0050, text=»CRN400 EQU *«, t00=0x006b, t01=0x0070}
0x0a78c…0a79e Head {h00=0x000e, h01=0x0050, text=» SUK A4,1 «, t00=0x006b, t01=0x0084}
0x0a79e…0a7c4 Head {h00=0x0022, h01=0x0050, text=» RF(NN) CRN500 NOT WRAP AROUND«, t00=0x006b, t01=0x0096}
0x0a7c4…0a7ee Head {h00=0x0026, h01=0x0050, text=» LDKL A4,LBVDU-1 LAST SCREEN POS. «, t00=0x006b, t01=0x00bc}
0x0a7ee…0a802 Head {h00=0x0010, h01=0x0050, text=»CRN500 EQU *«, t00=0x006b, t01=0x00e6}
0x0a802…0a830 Head {h00=0x002a, h01=0x0050, text=» CF A14,STOINF SAVE SCREEN INFORMATION«, t00=0x006b, t01=0x00fa}
0x0a830…0a85c Head {h00=0x0028, h01=0x0050, text=» CF A14,TAB TAB. UNPROTECTED FORWARD«, t00=0x006b, t01=0x0128}
0x0a85c…0a86e Head {h00=0x000e, h01=0x0050, text=» RF CRN900«, t00=0x006b, t01=0x0154}
0x0a86e…0a882 Head {h00=0x0010, h01=0x0050, text=»CRN800 EQU *«, t00=0x006b, t01=0x0166}
0x0a882…0a8b0 Head {h00=0x002a, h01=0x0050, text=» CF A14,STOINF SAVE SCREEN INFORMATION«, t00=0x006b, t01=0x017a}
0x0a8b0…0a8ce Head {h00=0x001a, h01=0x0050, text=» LDK A1,2 REQ. LENGTH «, t00=0x006c, t01=0x0018}
0x0a8ce…0a8f0 Head {h00=0x001e, h01=0x0050, text=» CF A14,DISCHA SET CURSOR «, t00=0x006c, t01=0x0036}
0x0a8f0…0a904 Head {h00=0x0010, h01=0x0050, text=»CRN900 EQU *«, t00=0x006c, t01=0x0058}
0x0a904…0a914 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x006c, t01=0x006c}
0x0a914…0a922 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x006c, t01=0x007c}
0x0a922…0a970 Head {h00=0x004a, h01=0x0050, text=»********************************************************************* «, t00=0x006c, t01=0x008a}
0x0a970…0a9be Head {h00=0x004a, h01=0x0050, text=»* * «, t00=0x006c, t01=0x00d8}
0x0a9be…0aa0c Head {h00=0x004a, h01=0x0050, text=»* RDHOME TAB. UNPROTECTED FIRST ON SCREEN * «, t00=0x006c, t01=0x0126}
0x0aa0c…0aa5a Head {h00=0x004a, h01=0x0050, text=»* * «, t00=0x006c, t01=0x0174}
0x0aa5a…0aaa8 Head {h00=0x004a, h01=0x0050, text=»********************************************************************* «, t00=0x006d, t01=0x0032}
0x0aaa8…0aabc Head {h00=0x0010, h01=0x0050, text=»* REGISTERS«, t00=0x006d, t01=0x0080}
0x0aabc…0aac6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006d, t01=0x0094}
0x0aac6…0aae4 Head {h00=0x001a, h01=0x0050, text=»* A4= REL. CURSOR POS.«, t00=0x006d, t01=0x009e}
0x0aae4…0ab06 Head {h00=0x001e, h01=0x0050, text=»* A5= REL. ATTRIBUTE POS. «, t00=0x006d, t01=0x00bc}
0x0ab06…0ab24 Head {h00=0x001a, h01=0x0050, text=»* A6= ATTRIBUTE CHAR. «, t00=0x006d, t01=0x00de}
0x0ab24…0ab3c Head {h00=0x0014, h01=0x0050, text=»* A11= RESERVED «, t00=0x006d, t01=0x00fc}
0x0ab3c…0ab54 Head {h00=0x0014, h01=0x0050, text=»* A13= RESERVED «, t00=0x006d, t01=0x0114}
0x0ab54…0ab5e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006d, t01=0x012c}
0x0ab5e…0abac Head {h00=0x004a, h01=0x0050, text=»********************************************************************* «, t00=0x006d, t01=0x0136}
0x0abac…0abc0 Head {h00=0x0010, h01=0x0050, text=»RDHOME EQU *«, t00=0x006d, t01=0x0184}
0x0abc0…0abee Head {h00=0x002a, h01=0x0050, text=» CF A14,SCRINF GET SCREEN INFORMATION «, t00=0x006e, t01=0x0008}
0x0abee…0ac14 Head {h00=0x0022, h01=0x0050, text=» LDK A4,0 FIRST POS. ON SCREEN«, t00=0x006e, t01=0x0036}
0x0ac14…0ac2a Head {h00=0x0012, h01=0x0050, text=» CF A14,STOINF«, t00=0x006e, t01=0x005c}
0x0ac2a…0ac56 Head {h00=0x0028, h01=0x0050, text=» CWK A5,LBVDU+1 UNFORMATTED SCREEN? «, t00=0x006e, t01=0x0072}
0x0ac56…0ac70 Head {h00=0x0016, h01=0x0050, text=» RF(E) RDH800 YES «, t00=0x006e, t01=0x009e}
0x0ac70…0ac82 Head {h00=0x000e, h01=0x0050, text=» LDR A1,A4«, t00=0x006e, t01=0x00b8}
0x0ac82…0acb0 Head {h00=0x002a, h01=0x0050, text=» CF A14,GETVDU GET CHAR. IN VDU BUFFER«, t00=0x006e, t01=0x00ca}
0x0acb0…0acd0 Head {h00=0x001c, h01=0x0050, text=» CCK A7,/8000 ATTRIBUTE?«, t00=0x006e, t01=0x00f8}
0x0acd0…0ace8 Head {h00=0x0014, h01=0x0050, text=» RF(L) RDH100 NO«, t00=0x006e, t01=0x0118}
0x0ace8…0ad12 Head {h00=0x0026, h01=0x0050, text=» LDKL A4,LBVDU-1 LAST SCREEN POS. «, t00=0x006e, t01=0x0130}
0x0ad12…0ad40 Head {h00=0x002a, h01=0x0050, text=» CF A14,STOINF SAVE SCREEN INFORMATION«, t00=0x006e, t01=0x015a}
0x0ad40…0ad52 Head {h00=0x000e, h01=0x0050, text=» RF RDH300«, t00=0x006e, t01=0x0188}
0x0ad52…0ad66 Head {h00=0x0010, h01=0x0050, text=»RDH100 EQU *«, t00=0x006f, t01=0x000a}
0x0ad66…0ad78 Head {h00=0x000e, h01=0x0050, text=» LDR A1,A4«, t00=0x006f, t01=0x001e}
0x0ad78…0ada6 Head {h00=0x002a, h01=0x0050, text=» CF A14,ATMASB GET ATTRIBUTE BACKWARD «, t00=0x006f, t01=0x0030}
0x0ada6…0adb8 Head {h00=0x000e, h01=0x0050, text=» LDR A7,A6«, t00=0x006f, t01=0x005e}
0x0adb8…0add6 Head {h00=0x001a, h01=0x0050, text=» ANK A7,/20 PROTECTED?«, t00=0x006f, t01=0x0070}
0x0add6…0adee Head {h00=0x0014, h01=0x0050, text=» RF(Z) RDH800 NO«, t00=0x006f, t01=0x008e}
0x0adee…0ae02 Head {h00=0x0010, h01=0x0050, text=»RDH300 EQU *«, t00=0x006f, t01=0x00a6}
0x0ae02…0ae2e Head {h00=0x0028, h01=0x0050, text=» CF A14,TAB TAB. UNPROTECTED FORWARD«, t00=0x006f, t01=0x00ba}
0x0ae2e…0ae40 Head {h00=0x000e, h01=0x0050, text=» RF RDH900«, t00=0x006f, t01=0x00e6}
0x0ae40…0ae54 Head {h00=0x0010, h01=0x0050, text=»RDH800 EQU *«, t00=0x006f, t01=0x00f8}
0x0ae54…0ae82 Head {h00=0x002a, h01=0x0050, text=» CF A14,STOINF SAVE SCREEN INFORMATION«, t00=0x006f, t01=0x010c}
0x0ae82…0aea0 Head {h00=0x001a, h01=0x0050, text=» LDK A1,2 REQ. LENGTH «, t00=0x006f, t01=0x013a}
0x0aea0…0aec2 Head {h00=0x001e, h01=0x0050, text=» CF A14,DISCHA SET CURSOR «, t00=0x006f, t01=0x0158}
0x0aec2…0aed6 Head {h00=0x0010, h01=0x0050, text=»RDH900 EQU *«, t00=0x006f, t01=0x017a}
0x0aed6…0aee6 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x006f, t01=0x018e}
0x0aee6…0aef4 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0070, t01=0x000e}
0x0aef4…0af3a Head {h00=0x0042, h01=0x0050, text=»************************************************************* «, t00=0x0070, t01=0x001c}
0x0af3a…0af80 Head {h00=0x0042, h01=0x0050, text=»* * «, t00=0x0070, t01=0x0062}
0x0af80…0afc6 Head {h00=0x0042, h01=0x0050, text=»* EREOF ERASE TO END OF FIELD * «, t00=0x0070, t01=0x00a8}
0x0afc6…0b00a Head {h00=0x0040, h01=0x0050, text=»* *«, t00=0x0070, t01=0x00ee}
0x0b00a…0b050 Head {h00=0x0042, h01=0x0050, text=»************************************************************* «, t00=0x0070, t01=0x0132}
0x0b050…0b064 Head {h00=0x0010, h01=0x0050, text=»* REGISTERS«, t00=0x0070, t01=0x0178}
0x0b064…0b06e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0070, t01=0x018c}
0x0b06e…0b08c Head {h00=0x001a, h01=0x0050, text=»* A4= REL. CURSOR POS.«, t00=0x0071, t01=0x0008}
0x0b08c…0b0ae Head {h00=0x001e, h01=0x0050, text=»* A5= REL. ATTRIBUTE POS. «, t00=0x0071, t01=0x0026}
0x0b0ae…0b0cc Head {h00=0x001a, h01=0x0050, text=»* A6= ATTRIBUTE CHAR. «, t00=0x0071, t01=0x0048}
0x0b0cc…0b0e4 Head {h00=0x0014, h01=0x0050, text=»* A11= RESERVED «, t00=0x0071, t01=0x0066}
0x0b0e4…0b0fc Head {h00=0x0014, h01=0x0050, text=»* A13= RESERVED «, t00=0x0071, t01=0x007e}
0x0b0fc…0b106 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0071, t01=0x0096}
0x0b106…0b152 Head {h00=0x0048, h01=0x0050, text=»******************************************************************* «, t00=0x0071, t01=0x00a0}
0x0b152…0b166 Head {h00=0x0010, h01=0x0050, text=»EREOF EQU * «, t00=0x0071, t01=0x00ec}
0x0b166…0b194 Head {h00=0x002a, h01=0x0050, text=» CF A14,SCRINF GET SCREEN INFORMATION «, t00=0x0071, t01=0x0100}
0x0b194…0b1c0 Head {h00=0x0028, h01=0x0050, text=» CWK A5,LBVDU+1 UNFORMATTED SCREEN? «, t00=0x0071, t01=0x012e}
0x0b1c0…0b1da Head {h00=0x0016, h01=0x0050, text=» RF(E) ERE700 YES «, t00=0x0071, t01=0x015a}
0x0b1da…0b1ec Head {h00=0x000e, h01=0x0050, text=» LDR A7,A6«, t00=0x0071, t01=0x0174}
0x0b1ec…0b210 Head {h00=0x0020, h01=0x0050, text=» ANK A7,/20 PROTECTED FIELD?«, t00=0x0071, t01=0x0186}
0x0b210…0b22a Head {h00=0x0016, h01=0x0050, text=» RF(NZ) ERE600 YES«, t00=0x0072, t01=0x001a}
0x0b22a…0b254 Head {h00=0x0026, h01=0x0050, text=» CWR A5,A4 STANDING ON ATTRIBUTE? «, t00=0x0072, t01=0x0034}
0x0b254…0b26e Head {h00=0x0016, h01=0x0050, text=» RF(E) ERE600 YES «, t00=0x0072, t01=0x005e}
0x0b26e…0b280 Head {h00=0x000e, h01=0x0050, text=» LDR A1,A4«, t00=0x0072, t01=0x0078}
0x0b280…0b29c Head {h00=0x0018, h01=0x0050, text=» LDR A8,A6 SAVE OLD «, t00=0x0072, t01=0x008a}
0x0b29c…0b2b8 Head {h00=0x0018, h01=0x0050, text=» LDR A9,A5 SAVE OLD «, t00=0x0072, t01=0x00a6}
0x0b2b8…0b2e8 Head {h00=0x002c, h01=0x0050, text=» CF A14,ATMASF SEARCH ATTRIBUTE FORWARD «, t00=0x0072, t01=0x00c2}
0x0b2e8…0b2fa Head {h00=0x000e, h01=0x0050, text=» LDR A3,A5«, t00=0x0072, t01=0x00f2}
0x0b2fa…0b30c Head {h00=0x000e, h01=0x0050, text=» LDR A6,A8«, t00=0x0072, t01=0x0104}
0x0b30c…0b31e Head {h00=0x000e, h01=0x0050, text=» LDR A5,A9«, t00=0x0072, t01=0x0116}
0x0b31e…0b348 Head {h00=0x0026, h01=0x0050, text=» ORK A6,1 SET MDT-BIT IN ATTRIBUTE«, t00=0x0072, t01=0x0128}
0x0b348…0b35a Head {h00=0x000e, h01=0x0050, text=» LDR A7,A6«, t00=0x0072, t01=0x0152}
0x0b35a…0b36c Head {h00=0x000e, h01=0x0050, text=» LDR A1,A5«, t00=0x0072, t01=0x0164}
0x0b36c…0b3a4 Head {h00=0x0034, h01=0x0050, text=» CF A14,STOVDU STORE NEW ATTRIBUTE IN VDU BUFFER«, t00=0x0072, t01=0x0176}
0x0b3a4…0b3d6 Head {h00=0x002e, h01=0x0050, text=» CF A14,STOINF SAVE NEW SCREEN INFORMATION«, t00=0x0073, t01=0x001e}
0x0b3d6…0b3f6 Head {h00=0x001c, h01=0x0050, text=» LDR A1,A3 STOP ADDRESS «, t00=0x0073, t01=0x0050}
0x0b3f6…0b408 Head {h00=0x000e, h01=0x0050, text=» RF ERE800«, t00=0x0073, t01=0x0070}
0x0b408…0b41c Head {h00=0x0010, h01=0x0050, text=»ERE600 EQU *«, t00=0x0073, t01=0x0082}
0x0b41c…0b440 Head {h00=0x0020, h01=0x0050, text=» CF A14,ERROR INDICATE ERROR«, t00=0x0073, t01=0x0096}
0x0b440…0b452 Head {h00=0x000e, h01=0x0050, text=» RF ERE900«, t00=0x0073, t01=0x00ba}
0x0b452…0b466 Head {h00=0x0010, h01=0x0050, text=»ERE700 EQU *«, t00=0x0073, t01=0x00cc}
0x0b466…0b47a Head {h00=0x0010, h01=0x0050, text=» LDR A10,A4 «, t00=0x0073, t01=0x00e0}
0x0b47a…0b4a4 Head {h00=0x0026, h01=0x0050, text=» CF A14,ERASE ERASE ENTIRE SCREEN «, t00=0x0073, t01=0x00f4}
0x0b4a4…0b4b8 Head {h00=0x0010, h01=0x0050, text=» LDR A4,A10 «, t00=0x0073, t01=0x011e}
0x0b4b8…0b4ce Head {h00=0x0012, h01=0x0050, text=» CF A14,STOINF«, t00=0x0073, t01=0x0132}
0x0b4ce…0b4e0 Head {h00=0x000e, h01=0x0050, text=» LDK A1,2 «, t00=0x0073, t01=0x0148}
0x0b4e0…0b502 Head {h00=0x001e, h01=0x0050, text=» CF A14,DISCHA SET CURSOR «, t00=0x0073, t01=0x015a}
0x0b502…0b514 Head {h00=0x000e, h01=0x0050, text=» RF ERE900«, t00=0x0073, t01=0x017c}
0x0b514…0b528 Head {h00=0x0010, h01=0x0050, text=»ERE800 EQU *«, t00=0x0073, t01=0x018e}
0x0b528…0b53c Head {h00=0x0010, h01=0x0050, text=» SUR A10,A10«, t00=0x0074, t01=0x0012}
0x0b53c…0b570 Head {h00=0x0030, h01=0x0050, text=» CF A14,ERASUA ERASE UNPROTECTED TO ADDRESS «, t00=0x0074, t01=0x0026}
0x0b570…0b59e Head {h00=0x002a, h01=0x0050, text=» CF A14,DISMOD DISPLAY MODIFIED FIELD «, t00=0x0074, t01=0x005a}
0x0b59e…0b5b2 Head {h00=0x0010, h01=0x0050, text=»ERE900 EQU *«, t00=0x0074, t01=0x0088}
0x0b5b2…0b5c2 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0074, t01=0x009c}
0x0b5c2…0b5d0 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0074, t01=0x00ac}
0x0b5d0…0b61c Head {h00=0x0048, h01=0x0050, text=»******************************************************************* «, t00=0x0074, t01=0x00ba}
0x0b61c…0b668 Head {h00=0x0048, h01=0x0050, text=»* * «, t00=0x0074, t01=0x0106}
0x0b668…0b6b4 Head {h00=0x0048, h01=0x0050, text=»* ERINPT ERASE UNPROTECTED ENTIRE SCREEN * «, t00=0x0074, t01=0x0152}
0x0b6b4…0b700 Head {h00=0x0048, h01=0x0050, text=»* * «, t00=0x0075, t01=0x000e}
0x0b700…0b74c Head {h00=0x0048, h01=0x0050, text=»******************************************************************* «, t00=0x0075, t01=0x005a}
0x0b74c…0b760 Head {h00=0x0010, h01=0x0050, text=»* REGISTERS«, t00=0x0075, t01=0x00a6}
0x0b760…0b76a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0075, t01=0x00ba}
0x0b76a…0b788 Head {h00=0x001a, h01=0x0050, text=»* A4= REL. CURSOR POS.«, t00=0x0075, t01=0x00c4}
0x0b788…0b7aa Head {h00=0x001e, h01=0x0050, text=»* A5= REL. ATTRIBUTE POS. «, t00=0x0075, t01=0x00e2}
0x0b7aa…0b7c8 Head {h00=0x001a, h01=0x0050, text=»* A6= ATTRIBUTE CHAR. «, t00=0x0075, t01=0x0104}
0x0b7c8…0b7e0 Head {h00=0x0014, h01=0x0050, text=»* A11= RESERVED «, t00=0x0075, t01=0x0122}
0x0b7e0…0b7f8 Head {h00=0x0014, h01=0x0050, text=»* A13= RESERVED «, t00=0x0075, t01=0x013a}
0x0b7f8…0b802 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0075, t01=0x0152}
0x0b802…0b84e Head {h00=0x0048, h01=0x0050, text=»******************************************************************* «, t00=0x0075, t01=0x015c}
0x0b84e…0b862 Head {h00=0x0010, h01=0x0050, text=»ERINPT EQU *«, t00=0x0076, t01=0x0018}
0x0b862…0b890 Head {h00=0x002a, h01=0x0050, text=» CF A14,SCRINF GET SCREEN INFORMATION «, t00=0x0076, t01=0x002c}
0x0b890…0b8bc Head {h00=0x0028, h01=0x0050, text=» CWK A5,LBVDU+1 UNFORMATTED SCREEN? «, t00=0x0076, t01=0x005a}
0x0b8bc…0b8d6 Head {h00=0x0016, h01=0x0050, text=» RF(NE) ERI100 NO «, t00=0x0076, t01=0x0086}
0x0b8d6…0b900 Head {h00=0x0026, h01=0x0050, text=» CF A14,ERASE ERASE ENTIRE SCREEN «, t00=0x0076, t01=0x00a0}
0x0b900…0b912 Head {h00=0x000e, h01=0x0050, text=» RF ERI900«, t00=0x0076, t01=0x00ca}
0x0b912…0b926 Head {h00=0x0010, h01=0x0050, text=»ERI100 EQU *«, t00=0x0076, t01=0x00dc}
0x0b926…0b952 Head {h00=0x0028, h01=0x0050, text=» CF A14,ERASUP ERASE ALL UNPROTECTED«, t00=0x0076, t01=0x00f0}
0x0b952…0b97e Head {h00=0x0028, h01=0x0050, text=» CF A14,DISMOD DISPLAY ERASED FIELDS«, t00=0x0076, t01=0x011c}
0x0b97e…0b9b6 Head {h00=0x0034, h01=0x0050, text=» CF A14,RDHOME TAB. UNPROTECTED FIRST ON SCREEN «, t00=0x0076, t01=0x0148}
0x0b9b6…0b9ca Head {h00=0x0010, h01=0x0050, text=»ERI900 EQU *«, t00=0x0076, t01=0x0180}
0x0b9ca…0b9da (119, 0, 400) Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0077, t01=0x0004}
0x0b9da…0b9e8 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0077, t01=0x0014}
0x0b9e8…0b9fc Head {h00=0x0010, h01=0x0050, text=» IFT IN:DL=1«, t00=0x0077, t01=0x0022}
0x0b9fc…0ba3c Head {h00=0x003c, h01=0x0050, text=»********************************************************«, t00=0x0077, t01=0x0036}
0x0ba3c…0ba7c Head {h00=0x003c, h01=0x0050, text=»* *«, t00=0x0077, t01=0x0076}
0x0ba7c…0babc Head {h00=0x003c, h01=0x0050, text=»* INSERT INSERT KEY HANDLING *«, t00=0x0077, t01=0x00b6}
0x0babc…0bafc Head {h00=0x003c, h01=0x0050, text=»* *«, t00=0x0077, t01=0x00f6}
0x0bafc…0bb3c Head {h00=0x003c, h01=0x0050, text=»********************************************************«, t00=0x0077, t01=0x0136}
0x0bb3c…0bb50 Head {h00=0x0010, h01=0x0050, text=»* REGISTERS«, t00=0x0077, t01=0x0176}
0x0bb50…0bb5a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0077, t01=0x018a}
0x0bb5a…0bb7a (120, 0, 400) Head {h00=0x001c, h01=0x0050, text=»* A11= CREDIT WORK AREA «, t00=0x0078, t01=0x0004}
0x0bb7a…0bb92 Head {h00=0x0014, h01=0x0050, text=»* A13= RESERVED «, t00=0x0078, t01=0x0024}
0x0bb92…0bb9c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0078, t01=0x003c}
0x0bb9c…0bbd8 Head {h00=0x0038, h01=0x0050, text=»*************************************************** «, t00=0x0078, t01=0x0046}
0x0bbd8…0bbec Head {h00=0x0010, h01=0x0050, text=»INSERT EQU *«, t00=0x0078, t01=0x0082}
0x0bbec…0bc10 Head {h00=0x0020, h01=0x0050, text=» IM MODE,A11 SET INSERT MODE«, t00=0x0078, t01=0x0096}
0x0bc10…0bc42 Head {h00=0x002e, h01=0x0050, text=» CF A14,LMP6ON TURN ON "INSERT MODE" LAMP «, t00=0x0078, t01=0x00ba}
0x0bc42…0bc52 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0078, t01=0x00ec}
0x0bc52…0bc60 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0078, t01=0x00fc}
0x0bc60…0bc9e Head {h00=0x003a, h01=0x0050, text=»******************************************************«, t00=0x0078, t01=0x010a}
0x0bc9e…0bcdc Head {h00=0x003a, h01=0x0050, text=»* *«, t00=0x0078, t01=0x0148}
0x0bcdc…0bd1a Head {h00=0x003a, h01=0x0050, text=»* DELETE DELETE CHAR. HANDLING *«, t00=0x0078, t01=0x0186}
0x0bd1a…0bd58 Head {h00=0x003a, h01=0x0050, text=»* *«, t00=0x0079, t01=0x0034}
0x0bd58…0bd98 Head {h00=0x003c, h01=0x0050, text=»******************************************************* «, t00=0x0079, t01=0x0072}
0x0bd98…0bdac Head {h00=0x0010, h01=0x0050, text=»* REGISTERS«, t00=0x0079, t01=0x00b2}
0x0bdac…0bdb6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0079, t01=0x00c6}
0x0bdb6…0bdd4 Head {h00=0x001a, h01=0x0050, text=»* A4= REL. CURSOR POS.«, t00=0x0079, t01=0x00d0}
0x0bdd4…0bdf6 Head {h00=0x001e, h01=0x0050, text=»* A5= REL. ATTRIBUTE POS. «, t00=0x0079, t01=0x00ee}
0x0bdf6…0be14 Head {h00=0x001a, h01=0x0050, text=»* A6= ATTRIBUTE CHAR. «, t00=0x0079, t01=0x0110}
0x0be14…0be34 Head {h00=0x001c, h01=0x0050, text=»* A11= CREDIT WORK AREA «, t00=0x0079, t01=0x012e}
0x0be34…0be4c Head {h00=0x0014, h01=0x0050, text=»* A13= RESERVED «, t00=0x0079, t01=0x014e}
0x0be4c…0be56 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0079, t01=0x0166}
0x0be56…0be96 Head {h00=0x003c, h01=0x0050, text=»******************************************************* «, t00=0x0079, t01=0x0170}
0x0be96…0beaa Head {h00=0x0010, h01=0x0050, text=»DELETE EQU *«, t00=0x007a, t01=0x0020}
0x0beaa…0bed8 Head {h00=0x002a, h01=0x0050, text=» CF A14,SCRINF GET SCREEN INFORMATION «, t00=0x007a, t01=0x0034}
0x0bed8…0beec Head {h00=0x0010, h01=0x0050, text=» LDKL A3,-1 «, t00=0x007a, t01=0x0062}
0x0beec…0bf00 Head {h00=0x0010, h01=0x0050, text=»DEL025 EQU *«, t00=0x007a, t01=0x0076}
0x0bf00…0bf16 Head {h00=0x0012, h01=0x0050, text=» ADK A3,LLINE «, t00=0x007a, t01=0x008a}
0x0bf16…0bf44 Head {h00=0x002a, h01=0x0050, text=» CWR A3,A4 LAST POS. ON CURRENT LINE? «, t00=0x007a, t01=0x00a0}
0x0bf44…0bf5c Head {h00=0x0014, h01=0x0050, text=» RB(L) DEL025 NO«, t00=0x007a, t01=0x00ce}
0x0bf5c…0bf88 Head {h00=0x0028, h01=0x0050, text=» CWK A5,LBVDU+1 UNFORMATTED SCREEN? «, t00=0x007a, t01=0x00e6}
0x0bf88…0bfa2 Head {h00=0x0016, h01=0x0050, text=» RF(E) DEL200 YES «, t00=0x007a, t01=0x0112}
0x0bfa2…0bfcc Head {h00=0x0026, h01=0x0050, text=» CWR A4,A5 STANDING ON ATTRIBUTE? «, t00=0x007a, t01=0x012c}
0x0bfcc…0bfe6 Head {h00=0x0016, h01=0x0050, text=» RF(E) DEL700 YES «, t00=0x007a, t01=0x0156}
0x0bfe6…0bff8 Head {h00=0x000e, h01=0x0050, text=» LDR A7,A6«, t00=0x007a, t01=0x0170}
0x0bff8…0c016 Head {h00=0x001a, h01=0x0050, text=» ANK A7,/20 PROTECTED?«, t00=0x007a, t01=0x0182}
0x0c016…0c030 Head {h00=0x0016, h01=0x0050, text=» RF(NZ) DEL700 YES«, t00=0x007b, t01=0x0010}
0x0c030…0c04e Head {h00=0x001a, h01=0x0050, text=» ORK A6,1 SET MDT-BIT «, t00=0x007b, t01=0x002a}
0x0c04e…0c060 Head {h00=0x000e, h01=0x0050, text=» LDR A7,A6«, t00=0x007b, t01=0x0048}
0x0c060…0c072 Head {h00=0x000e, h01=0x0050, text=» LDR A1,A5«, t00=0x007b, t01=0x005a}
0x0c072…0c09c Head {h00=0x0026, h01=0x0050, text=» CF A14,STOVDU SAVE NEW ATTRIBUTE «, t00=0x007b, t01=0x006c}
0x0c09c…0c0b8 Head {h00=0x0018, h01=0x0050, text=» LDR A8,A6 SAVE OLD «, t00=0x007b, t01=0x0096}
0x0c0b8…0c0d4 Head {h00=0x0018, h01=0x0050, text=» LDR A9,A5 SAVE OLD «, t00=0x007b, t01=0x00b2}
0x0c0d4…0c104 Head {h00=0x002c, h01=0x0050, text=» CF A14,ATMASF SEARCH ATTRIBUTE FORWARD «, t00=0x007b, t01=0x00ce}
0x0c104…0c116 Head {h00=0x000e, h01=0x0050, text=» LDR A1,A5«, t00=0x007b, t01=0x00fe}
0x0c116…0c128 Head {h00=0x000e, h01=0x0050, text=» LDR A6,A8«, t00=0x007b, t01=0x0110}
0x0c128…0c13a Head {h00=0x000e, h01=0x0050, text=» LDR A5,A9«, t00=0x007b, t01=0x0122}
0x0c13a…0c168 Head {h00=0x002a, h01=0x0050, text=» CF A14,STOINF SAVE SCREEN INFORMATION«, t00=0x007b, t01=0x0134}
0x0c168…0c198 Head {h00=0x002c, h01=0x0050, text=» CWR A3,A1 ATTRIBUTE BEFOR END OF LINE? «, t00=0x007b, t01=0x0162}
0x0c198…0c1b2 (124, 0, 398) Head {h00=0x0016, h01=0x0050, text=» RF(NG) DEL200 NO «, t00=0x007c, t01=0x0004}
0x0c1b2…0c1c4 Head {h00=0x000e, h01=0x0050, text=» LDR A3,A1«, t00=0x007c, t01=0x001e}
0x0c1c4…0c1d8 Head {h00=0x0010, h01=0x0050, text=»DEL200 EQU *«, t00=0x007c, t01=0x0030}
0x0c1d8…0c1ea Head {h00=0x000e, h01=0x0050, text=» LDR A1,A4«, t00=0x007c, t01=0x0044}
0x0c1ea…0c1fe Head {h00=0x0010, h01=0x0050, text=»DEL300 EQU *«, t00=0x007c, t01=0x0056}
0x0c1fe…0c224 Head {h00=0x0022, h01=0x0050, text=» CWR A1,A3 ALREADY ON LAST? =4«, t00=0x007c, t01=0x006a}
0x0c224…0c240 Head {h00=0x0018, h01=0x0050, text=» RF(E) DEL400 YES =4«, t00=0x007c, t01=0x0090}
0x0c240…0c252 Head {h00=0x000e, h01=0x0050, text=» ADK A1,1 «, t00=0x007c, t01=0x00ac}
0x0c252…0c282 Head {h00=0x002c, h01=0x0050, text=» CF A14,GETVDU GET CHAR. IN VDU BUFFER «, t00=0x007c, t01=0x00be}
0x0c282…0c294 Head {h00=0x000e, h01=0x0050, text=» SUK A1,1 «, t00=0x007c, t01=0x00ee}
0x0c294…0c2c4 Head {h00=0x002c, h01=0x0050, text=» CF A14,STOVDU STORE CHAR. IN VDU BUFFER«, t00=0x007c, t01=0x0100}
0x0c2c4…0c2d6 Head {h00=0x000e, h01=0x0050, text=» ADK A1,1 «, t00=0x007c, t01=0x0130}
0x0c2d6…0c2f6 Head {h00=0x001c, h01=0x0050, text=» CWR A1,A3 ALL SHIFTED? «, t00=0x007c, t01=0x0142}
0x0c2f6…0c310 Head {h00=0x0016, h01=0x0050, text=» RB(NE) DEL300 NO «, t00=0x007c, t01=0x0162}
0x0c310…0c32a Head {h00=0x0016, h01=0x0050, text=»DEL400 EQU * . =4 «, t00=0x007c, t01=0x017c}
0x0c32a…0c34e Head {h00=0x0020, h01=0x0050, text=» LDK A7,NULL GET NULL CHAR. «, t00=0x007d, t01=0x0008}
0x0c34e…0c382 Head {h00=0x0030, h01=0x0050, text=» CF A14,STOVDU STORE NULL CHAR IN VDU BUFFER«, t00=0x007d, t01=0x002c}
0x0c382…0c398 Head {h00=0x0012, h01=0x0050, text=» CF A14,SAVE1 «, t00=0x007d, t01=0x0060}
0x0c398…0c3ae Head {h00=0x0012, h01=0x0050, text=» LDK A5,LLINE «, t00=0x007d, t01=0x0076}
0x0c3ae…0c3c2 Head {h00=0x0010, h01=0x0050, text=» LDR A6,A11 «, t00=0x007d, t01=0x008c}
0x0c3c2…0c3d6 Head {h00=0x0010, h01=0x0050, text=» SUR A10,A10«, t00=0x007d, t01=0x00a0}
0x0c3d6…0c3f8 Head {h00=0x001e, h01=0x0050, text=» CF A14,LINE GET LINE FLAG«, t00=0x007d, t01=0x00b4}
0x0c3f8…0c410 Head {h00=0x0014, h01=0x0050, text=» LC A1,LINFLG,A6«, t00=0x007d, t01=0x00d6}
0x0c410…0c422 Head {h00=0x000e, h01=0x0050, text=» ORK A1,1 «, t00=0x007d, t01=0x00ee}
0x0c422…0c43a Head {h00=0x0014, h01=0x0050, text=» SC A1,LINFLG,A6«, t00=0x007d, t01=0x0100}
0x0c43a…0c450 Head {h00=0x0012, h01=0x0050, text=» CF A14,REST1 «, t00=0x007d, t01=0x0118}
0x0c450…0c47c Head {h00=0x0028, h01=0x0050, text=» CF A14,DISMOD DISPLAY MODIFIED LINE«, t00=0x007d, t01=0x012e}
0x0c47c…0c48e Head {h00=0x000e, h01=0x0050, text=» RF DEL900«, t00=0x007d, t01=0x015a}
0x0c48e…0c4a2 Head {h00=0x0010, h01=0x0050, text=»DEL700 EQU *«, t00=0x007d, t01=0x016c}
0x0c4a2…0c4c6 Head {h00=0x0020, h01=0x0050, text=» CF A14,ERROR INDICATE ERROR«, t00=0x007d, t01=0x0180}
0x0c4c6…0c4da Head {h00=0x0010, h01=0x0050, text=»DEL900 EQU *«, t00=0x007e, t01=0x0014}
0x0c4da…0c4ea Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x007e, t01=0x0028}
0x0c4ea…0c4f6 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x007e, t01=0x0038}
0x0c4f6…0c504 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x007e, t01=0x0044}
0x0c504…0c544 Head {h00=0x003c, h01=0x0050, text=»********************************************************«, t00=0x007e, t01=0x0052}
0x0c544…0c584 Head {h00=0x003c, h01=0x0050, text=»* *«, t00=0x007e, t01=0x0092}
0x0c584…0c5c4 Head {h00=0x003c, h01=0x0050, text=»* RESET RESET KEY HANDLING *«, t00=0x007e, t01=0x00d2}
0x0c5c4…0c604 Head {h00=0x003c, h01=0x0050, text=»* *«, t00=0x007e, t01=0x0112}
0x0c604…0c644 Head {h00=0x003c, h01=0x0050, text=»********************************************************«, t00=0x007e, t01=0x0152}
0x0c644…0c658 (127, 0, 400) Head {h00=0x0010, h01=0x0050, text=»* REGISTERS«, t00=0x007f, t01=0x0004}
0x0c658…0c662 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x007f, t01=0x0018}
0x0c662…0c682 Head {h00=0x001c, h01=0x0050, text=»* A11= CREDIT WORK AREA «, t00=0x007f, t01=0x0022}
0x0c682…0c69a Head {h00=0x0014, h01=0x0050, text=»* A13= RESERVED «, t00=0x007f, t01=0x0042}
0x0c69a…0c6a4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x007f, t01=0x005a}
0x0c6a4…0c6e0 Head {h00=0x0038, h01=0x0050, text=»****************************************************«, t00=0x007f, t01=0x0064}
0x0c6e0…0c6f4 Head {h00=0x0010, h01=0x0050, text=»RESET EQU * «, t00=0x007f, t01=0x00a0}
0x0c6f4…0c71a Head {h00=0x0022, h01=0x0050, text=» CM MODE,A11 RESET INSERT MODE«, t00=0x007f, t01=0x00b4}
0x0c71a…0c748 Head {h00=0x002a, h01=0x0050, text=» CF A14,LMP6OF TURN OFF "INSERT" LAMP «, t00=0x007f, t01=0x00da}
0x0c748…0c770 Head {h00=0x0024, h01=0x0050, text=» CM KBINH,A11 RESSTORE KEYBOARD «, t00=0x007f, t01=0x0108}
0x0c770…0c79c Head {h00=0x0028, h01=0x0050, text=» CF A14,LMP5OF TURN OFF 'ERROR' LAMP«, t00=0x007f, t01=0x0130}
0x0c79c…0c7d4 Head {h00=0x0034, h01=0x0050, text=» CF A14,LMP4OF TURN OFF 'KEYBOARD INHIBIT' LAMP «, t00=0x007f, t01=0x015c}
0x0c7d4…0c7e4 (128, 0, 400) Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0080, t01=0x0004}
0x0c7e4…0c7f2 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0080, t01=0x0014}
0x0c7f2…0c836 Head {h00=0x0040, h01=0x0050, text=»*********************************************************** «, t00=0x0080, t01=0x0022}
0x0c836…0c87a Head {h00=0x0040, h01=0x0050, text=»* * «, t00=0x0080, t01=0x0066}
0x0c87a…0c8be Head {h00=0x0040, h01=0x0050, text=»* DUP DUPLICATE KEY * «, t00=0x0080, t01=0x00aa}
0x0c8be…0c902 Head {h00=0x0040, h01=0x0050, text=»* * «, t00=0x0080, t01=0x00ee}
0x0c902…0c946 Head {h00=0x0040, h01=0x0050, text=»*********************************************************** «, t00=0x0080, t01=0x0132}
0x0c946…0c95a Head {h00=0x0010, h01=0x0050, text=»* REGISTERS«, t00=0x0080, t01=0x0176}
0x0c95a…0c964 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0080, t01=0x018a}
0x0c964…0c97a (129, 0, 400) Head {h00=0x0012, h01=0x0050, text=»* A2= KEY-CHAR«, t00=0x0081, t01=0x0004}
0x0c97a…0c992 Head {h00=0x0014, h01=0x0050, text=»* A11= RESERVED «, t00=0x0081, t01=0x001a}
0x0c992…0c9aa Head {h00=0x0014, h01=0x0050, text=»* A13= RESERVED «, t00=0x0081, t01=0x0032}
0x0c9aa…0c9b4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0081, t01=0x004a}
0x0c9b4…0c9f8 Head {h00=0x0040, h01=0x0050, text=»************************************************************«, t00=0x0081, t01=0x0054}
0x0c9f8…0ca0a Head {h00=0x000e, h01=0x0050, text=»DUP EQU * «, t00=0x0081, t01=0x0098}
0x0ca0a…0ca2e Head {h00=0x0020, h01=0x0050, text=» LDK A2,DUPCH GET DUP CHAR. «, t00=0x0081, t01=0x00aa}
0x0ca2e…0ca42 Head {h00=0x0010, h01=0x0050, text=» CF A14,NUM «, t00=0x0081, t01=0x00ce}
0x0ca42…0ca56 Head {h00=0x0010, h01=0x0050, text=» CF A14,TAB «, t00=0x0081, t01=0x00e2}
0x0ca56…0ca66 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0081, t01=0x00f6}
0x0ca66…0ca74 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0081, t01=0x0106}
0x0ca74…0cab8 Head {h00=0x0040, h01=0x0050, text=»*********************************************************** «, t00=0x0081, t01=0x0114}
0x0cab8…0cafc Head {h00=0x0040, h01=0x0050, text=»* * «, t00=0x0081, t01=0x0158}
0x0cafc…0cb40 Head {h00=0x0040, h01=0x0050, text=»* FLDMRK FIELD MARK KEY * «, t00=0x0082, t01=0x000c}
0x0cb40…0cb84 Head {h00=0x0040, h01=0x0050, text=»* * «, t00=0x0082, t01=0x0050}
0x0cb84…0cbc8 Head {h00=0x0040, h01=0x0050, text=»*********************************************************** «, t00=0x0082, t01=0x0094}
0x0cbc8…0cbdc Head {h00=0x0010, h01=0x0050, text=»* REGISTERS«, t00=0x0082, t01=0x00d8}
0x0cbdc…0cbe6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0082, t01=0x00ec}
0x0cbe6…0cbfc Head {h00=0x0012, h01=0x0050, text=»* A2= KEY-CHAR«, t00=0x0082, t01=0x00f6}
0x0cbfc…0cc14 Head {h00=0x0014, h01=0x0050, text=»* A11= RESERVED «, t00=0x0082, t01=0x010c}
0x0cc14…0cc2c Head {h00=0x0014, h01=0x0050, text=»* A13= RESERVED «, t00=0x0082, t01=0x0124}
0x0cc2c…0cc36 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0082, t01=0x013c}
0x0cc36…0cc7a Head {h00=0x0040, h01=0x0050, text=»*********************************************************** «, t00=0x0082, t01=0x0146}
0x0cc7a…0cc8e Head {h00=0x0010, h01=0x0050, text=»FLDMRK EQU *«, t00=0x0082, t01=0x018a}
0x0cc8e…0ccb8 Head {h00=0x0026, h01=0x0050, text=» LDK A2,FMCH GET FIELD MARK CHAR. «, t00=0x0083, t01=0x000e}
0x0ccb8…0cccc Head {h00=0x0010, h01=0x0050, text=» CF A14,NUM «, t00=0x0083, t01=0x0038}
0x0cccc…0ccdc Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0083, t01=0x004c}
0x0ccdc…0ccea Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0083, t01=0x005c}
0x0ccea…0cd32 Head {h00=0x0044, h01=0x0050, text=»*************************************************************** «, t00=0x0083, t01=0x006a}
0x0cd32…0cd3c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0083, t01=0x00b2}
0x0cd3c…0cd66 Head {h00=0x0026, h01=0x0050, text=»* Z E R O : 3 TRIPLE ZERO KEY«, t00=0x0083, t01=0x00bc}
0x0cd66…0cd92 Head {h00=0x0028, h01=0x0050, text=»* Z E R O : 2 DOUBLE ZERO KEY «, t00=0x0083, t01=0x00e6}
0x0cd92…0cd9c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0083, t01=0x0112}
0x0cd9c…0cdd6 Head {h00=0x0036, h01=0x0050, text=»************************************************* «, t00=0x0083, t01=0x011c}
0x0cdd6…0cdea Head {h00=0x0010, h01=0x0050, text=»* REGISTERS«, t00=0x0083, t01=0x0156}
0x0cdea…0cdf4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0083, t01=0x016a}
0x0cdf4…0ce0a Head {h00=0x0012, h01=0x0050, text=»* A2= KEY-CHAR«, t00=0x0083, t01=0x0174}
0x0ce0a…0ce22 Head {h00=0x0014, h01=0x0050, text=»* A11= RESERVED «, t00=0x0083, t01=0x018a}
0x0ce22…0ce3a Head {h00=0x0014, h01=0x0050, text=»* A13= RESERVED «, t00=0x0084, t01=0x0012}
0x0ce3a…0ce44 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0084, t01=0x002a}
0x0ce44…0ce86 Head {h00=0x003e, h01=0x0050, text=»********************************************************* «, t00=0x0084, t01=0x0034}
0x0ce86…0ce8e Head {h00=0x0004, h01=0x0050, t00=0x0084, t01=0x0076}
0x0ce8e…0cea2 Head {h00=0x0010, h01=0x0050, text=»ZERO:3 EQU *«, t00=0x0084, t01=0x007e}
0x0cea2…0cec0 Head {h00=0x001a, h01=0x0050, text=» LDK A2,/30 ZERO CHAR.«, t00=0x0084, t01=0x0092}
0x0cec0…0cee6 Head {h00=0x0022, h01=0x0050, text=» CF A14,NUM DISPLAY CHARACTER «, t00=0x0084, t01=0x00b0}
0x0cee6…0cefa Head {h00=0x0010, h01=0x0050, text=»ZERO:2 EQU *«, t00=0x0084, t01=0x00d6}
0x0cefa…0cf18 Head {h00=0x001a, h01=0x0050, text=» LDK A2,/30 ZERO CHAR.«, t00=0x0084, t01=0x00ea}
0x0cf18…0cf3e Head {h00=0x0022, h01=0x0050, text=» CF A14,NUM DISPLAY CHARACTER «, t00=0x0084, t01=0x0108}
0x0cf3e…0cf52 Head {h00=0x0010, h01=0x0050, text=» LDK A2,/30 «, t00=0x0084, t01=0x012e}
0x0cf52…0cf78 Head {h00=0x0022, h01=0x0050, text=» CF A14,NUM DISPLAY CHARACTER «, t00=0x0084, t01=0x0142}
0x0cf78…0cf90 Head {h00=0x0014, h01=0x0050, text=» RTN A14 RETURN «, t00=0x0084, t01=0x0168}
0x0cf90…0cf9e Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0084, t01=0x0180}
0x0cf9e…0cfb2 Head {h00=0x0010, h01=0x0050, text=» IFT OFLIN=1«, t00=0x0084, t01=0x018e}
0x0cfb2…0cff2 Head {h00=0x003c, h01=0x0050, text=»********************************************************«, t00=0x0085, t01=0x0012}
0x0cff2…0d032 Head {h00=0x003c, h01=0x0050, text=»* *«, t00=0x0085, t01=0x0052}
0x0d032…0d072 Head {h00=0x003c, h01=0x0050, text=»* OFLINE OFFLINE KEY HANDLING *«, t00=0x0085, t01=0x0092}
0x0d072…0d0b2 Head {h00=0x003c, h01=0x0050, text=»* *«, t00=0x0085, t01=0x00d2}
0x0d0b2…0d0f2 Head {h00=0x003c, h01=0x0050, text=»********************************************************«, t00=0x0085, t01=0x0112}
0x0d0f2…0d106 Head {h00=0x0010, h01=0x0050, text=»* REGISTERS«, t00=0x0085, t01=0x0152}
0x0d106…0d110 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0085, t01=0x0166}
0x0d110…0d130 Head {h00=0x001c, h01=0x0050, text=»* A11= CREDIT WORK AREA «, t00=0x0085, t01=0x0170}
0x0d130…0d148 Head {h00=0x0014, h01=0x0050, text=»* A13= RESERVED «, t00=0x0085, t01=0x0190}
0x0d148…0d152 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0086, t01=0x0018}
0x0d152…0d192 Head {h00=0x003c, h01=0x0050, text=»******************************************************* «, t00=0x0086, t01=0x0022}
0x0d192…0d1a6 Head {h00=0x0010, h01=0x0050, text=»OFLINE EQU *«, t00=0x0086, t01=0x0062}
0x0d1a6…0d1d2 Head {h00=0x0028, h01=0x0050, text=» CF A14,ERASE ERASE ENTIRE SCREEN =2«, t00=0x0086, t01=0x0076}
0x0d1d2…0d1e8 Head {h00=0x0012, h01=0x0050, text=» CF A14,RESET «, t00=0x0086, t01=0x00a2}
0x0d1e8…0d216 Head {h00=0x002a, h01=0x0050, text=» CF A14,DCOFLN INDICATE OFFLINE TO DC «, t00=0x0086, t01=0x00b8}
0x0d216…0d242 Head {h00=0x0028, h01=0x0050, text=» CF A14,LMP6ON TURN ON OFFLINE LAMP «, t00=0x0086, t01=0x00e6}
0x0d242…0d26a Head {h00=0x0024, h01=0x0050, text=» IM OFFFLG,A11 SET OFFLINE FLAG «, t00=0x0086, t01=0x0112}
0x0d26a…0d29a Head {h00=0x002c, h01=0x0050, text=» ADKL A14,12 SKIP THREE STACK LEVELS =3 «, t00=0x0086, t01=0x013a}
0x0d29a…0d2c8 Head {h00=0x002a, h01=0x0050, text=» LD A13,2,A14 RELOAD REGISTERS A12-A13«, t00=0x0086, t01=0x016a}
0x0d2c8…0d2de Head {h00=0x0012, h01=0x0050, text=» LD A12,4,A14 «, t00=0x0087, t01=0x0008}
0x0d2de…0d306 Head {h00=0x0024, h01=0x0050, text=» ADKL A14,4 UPDATE STACK POINTER«, t00=0x0087, t01=0x001e}
0x0d306…0d334 Head {h00=0x002a, h01=0x0050, text=» ABL I:RT1 RETURN TO "OFFLINE" PROGRAM«, t00=0x0087, t01=0x0046}
0x0d334…0d340 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0087, t01=0x0074}
0x0d340…0d34e Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0087, t01=0x0080}
0x0d34e…0d390 Head {h00=0x003e, h01=0x0050, text=»********************************************************* «, t00=0x0087, t01=0x008e}
0x0d390…0d3d2 Head {h00=0x003e, h01=0x0050, text=»* * «, t00=0x0087, t01=0x00d0}
0x0d3d2…0d414 Head {h00=0x003e, h01=0x0050, text=»* MFCHGE MAIN FRAME CHANGE * «, t00=0x0087, t01=0x0112}
0x0d414…0d456 Head {h00=0x003e, h01=0x0050, text=»* * «, t00=0x0087, t01=0x0154}
0x0d456…0d498 Head {h00=0x003e, h01=0x0050, text=»********************************************************* «, t00=0x0088, t01=0x0008}
0x0d498…0d4ac Head {h00=0x0010, h01=0x0050, text=»* REGISTERS«, t00=0x0088, t01=0x004a}
0x0d4ac…0d4b6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0088, t01=0x005e}
0x0d4b6…0d4d6 Head {h00=0x001c, h01=0x0050, text=»* A11= CREDIT WORK AREA «, t00=0x0088, t01=0x0068}
0x0d4d6…0d4ee Head {h00=0x0014, h01=0x0050, text=»* A13= RESERVED «, t00=0x0088, t01=0x0088}
0x0d4ee…0d4f8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0088, t01=0x00a0}
0x0d4f8…0d538 Head {h00=0x003c, h01=0x0050, text=»******************************************************* «, t00=0x0088, t01=0x00aa}
0x0d538…0d54e Head {h00=0x0012, h01=0x0050, text=» IFT NBRLIN=2 «, t00=0x0088, t01=0x00ea}
0x0d54e…0d562 Head {h00=0x0010, h01=0x0050, text=»MFCHGE EQU *«, t00=0x0088, t01=0x0100}
0x0d562…0d578 Head {h00=0x0012, h01=0x0050, text=» CF A14,CLEAR «, t00=0x0088, t01=0x0114}
0x0d578…0d58e Head {h00=0x0012, h01=0x0050, text=» CF A14,RESET «, t00=0x0088, t01=0x012a}
0x0d58e…0d5a4 Head {h00=0x0012, h01=0x0050, text=» CF A14,LMP1OF«, t00=0x0088, t01=0x0140}
0x0d5a4…0d5ba Head {h00=0x0012, h01=0x0050, text=» CF A14,LMP2OF«, t00=0x0088, t01=0x0156}
0x0d5ba…0d5d0 Head {h00=0x0012, h01=0x0050, text=» CF A14,LMP3OF«, t00=0x0088, t01=0x016c}
0x0d5d0…0d5e8 Head {h00=0x0014, h01=0x0050, text=» LD A1,MAIN,A11 «, t00=0x0088, t01=0x0182}
0x0d5e8…0d5fa Head {h00=0x000e, h01=0x0050, text=» XRK A1,1 «, t00=0x0089, t01=0x000a}
0x0d5fa…0d610 Head {h00=0x0012, h01=0x0050, text=» RF(NZ) MFCH10«, t00=0x0089, t01=0x001c}
0x0d610…0d626 Head {h00=0x0012, h01=0x0050, text=» CF A14,LMP1ON«, t00=0x0089, t01=0x0032}
0x0d626…0d638 Head {h00=0x000e, h01=0x0050, text=» RF MFCH90«, t00=0x0089, t01=0x0048}
0x0d638…0d64c Head {h00=0x0010, h01=0x0050, text=»MFCH10 EQU *«, t00=0x0089, t01=0x005a}
0x0d64c…0d662 Head {h00=0x0012, h01=0x0050, text=» CF A14,LMP2ON«, t00=0x0089, t01=0x006e}
0x0d662…0d676 Head {h00=0x0010, h01=0x0050, text=»MFCH90 EQU *«, t00=0x0089, t01=0x0084}
0x0d676…0d68e Head {h00=0x0014, h01=0x0050, text=» ST A1,MAIN,A11 «, t00=0x0089, t01=0x0098}
0x0d68e…0d6b6 Head {h00=0x0024, h01=0x0050, text=» CF A14,CHKSTA CHECK LINE STATUS«, t00=0x0089, t01=0x00b0}
0x0d6b6…0d6c6 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0089, t01=0x00d8}
0x0d6c6…0d6d2 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0089, t01=0x00e8}
0x0d6d2…0d6e0 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0089, t01=0x00f4}
0x0d6e0…0d724 Head {h00=0x0040, h01=0x0050, text=»*********************************************************** «, t00=0x0089, t01=0x0102}
0x0d724…0d768 Head {h00=0x0040, h01=0x0050, text=»* * «, t00=0x0089, t01=0x0146}
0x0d768…0d7ac Head {h00=0x0040, h01=0x0050, text=»* COPY LOCAL HARDCOPY * «, t00=0x0089, t01=0x018a}
0x0d7ac…0d7f0 Head {h00=0x0040, h01=0x0050, text=»* * «, t00=0x008a, t01=0x003e}
0x0d7f0…0d834 Head {h00=0x0040, h01=0x0050, text=»*********************************************************** «, t00=0x008a, t01=0x0082}
0x0d834…0d852 Head {h00=0x001a, h01=0x0050, text=»* REGISTERS«, t00=0x008a, t01=0x00c6}
0x0d852…0d85c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x008a, t01=0x00e4}
0x0d85c…0d87c Head {h00=0x001c, h01=0x0050, text=»* A11= CREDIT WORK AREA «, t00=0x008a, t01=0x00ee}
0x0d87c…0d896 Head {h00=0x0016, h01=0x0050, text=»* A13= T:A ADDRESS«, t00=0x008a, t01=0x010e}
0x0d896…0d8a0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x008a, t01=0x0128}
0x0d8a0…0d8e6 Head {h00=0x0042, h01=0x0050, text=»************************************************************* «, t00=0x008a, t01=0x0132}
0x0d8e6…0d8f8 Head {h00=0x000e, h01=0x0050, text=»COPY EQU *«, t00=0x008a, t01=0x0178}
0x0d8f8…0d912 Head {h00=0x0016, h01=0x0050, text=» LD A1,SNAMOD,A11 «, t00=0x008a, t01=0x018a}
0x0d912…0d948 Head {h00=0x0032, h01=0x0050, text=» ANKL A1,HCPMOD HARDCOPY ALREADY OUTSTANDING? «, t00=0x008b, t01=0x0014}
0x0d948…0d970 Head {h00=0x0024, h01=0x0050, text=» RF(NZ) COPY80 YES,WAIT A WHILE «, t00=0x008b, t01=0x004a}
0x0d970…0d988 Head {h00=0x0014, h01=0x0050, text=» LD A1,PRTID,A11«, t00=0x008b, t01=0x0072}
0x0d988…0d9b2 Head {h00=0x0026, h01=0x0050, text=» RF(Z) COPY80 PRINTER NOT ASSIGNED«, t00=0x008b, t01=0x008a}
0x0d9b2…0d9e8 Head {h00=0x0032, h01=0x0050, text=» ANK A1,/FF CHECK IF PRINTER OK IN TASK TABLE «, t00=0x008b, t01=0x00b4}
0x0d9e8…0d9fc Head {h00=0x0010, h01=0x0050, text=» SUK A1,/30 «, t00=0x008b, t01=0x00ea}
0x0d9fc…0da0e Head {h00=0x000e, h01=0x0050, text=» SLL A1,2 «, t00=0x008b, t01=0x00fe}
0x0da0e…0da24 Head {h00=0x0012, h01=0x0050, text=» LDK A3,TSKTAB«, t00=0x008b, t01=0x0110}
0x0da24…0da4a Head {h00=0x0022, h01=0x0050, text=» LD A4,+6,A13 GET COMMON AREA «, t00=0x008b, t01=0x0126}
0x0da4a…0da5c Head {h00=0x000e, h01=0x0050, text=» ADR A3,A4«, t00=0x008b, t01=0x014c}
0x0da5c…0da86 Head {h00=0x0026, h01=0x0050, text=» ADR A3,A1 PRINTER ASSIGNED FOUND «, t00=0x008b, t01=0x015e}
0x0da86…0da9a Head {h00=0x0010, h01=0x0050, text=» LC A1,+3,A3«, t00=0x008b, t01=0x0188}
0x0da9a…0daba Head {h00=0x001c, h01=0x0050, text=» ANK A1,/FF PRINTER OK? «, t00=0x008c, t01=0x000c}
0x0daba…0dad4 Head {h00=0x0016, h01=0x0050, text=» RF(Z) COPY10 YES «, t00=0x008c, t01=0x002c}
0x0dad4…0db02 Head {h00=0x002a, h01=0x0050, text=» CF A14,LMP5FL INDICATE PRINTER ERROR «, t00=0x008c, t01=0x0046}
0x0db02…0db14 Head {h00=0x000e, h01=0x0050, text=» RF COPY90«, t00=0x008c, t01=0x0074}
0x0db14…0db28 Head {h00=0x0010, h01=0x0050, text=»COPY10 EQU *«, t00=0x008c, t01=0x0086}
0x0db28…0db54 Head {h00=0x0028, h01=0x0050, text=» LDK A1,/38 INDICATE HARDCOPY IN WCC«, t00=0x008c, t01=0x009a}
0x0db54…0db6a Head {h00=0x0012, h01=0x0050, text=» ST A1,WCC,A11«, t00=0x008c, t01=0x00c6}
0x0db6a…0db86 Head {h00=0x0018, h01=0x0050, text=» LDKL A3,BVDU BUFFER«, t00=0x008c, t01=0x00dc}
0x0db86…0dba4 Head {h00=0x001a, h01=0x0050, text=» ADR A3,A11 ADDRESSS«, t00=0x008c, t01=0x00f8}
0x0dba4…0dbbe Head {h00=0x0016, h01=0x0050, text=» LD A8,ECBICW,A11 «, t00=0x008c, t01=0x0116}
0x0dbbe…0dbe2 Head {h00=0x0020, h01=0x0050, text=» CF A14,ICSET SET NO TIMEOUT«, t00=0x008c, t01=0x0130}
0x0dbe2…0dc0c Head {h00=0x0026, h01=0x0050, text=» LD A1,PRTID,A11 HARDCOPY TASK ID «, t00=0x008c, t01=0x0154}
0x0dc0c…0dc34 Head {h00=0x0024, h01=0x0050, text=» LDKL A2,LBVDU+/20 BUFFER LENGTH«, t00=0x008c, t01=0x017e}
0x0dc34…0dc5a Head {h00=0x0022, h01=0x0050, text=» CF A14,ICWRT WRITE INTERTASK «, t00=0x008d, t01=0x0016}
0x0dc5a…0dc6c Head {h00=0x000e, h01=0x0050, text=» IFT SNA=1«, t00=0x008d, t01=0x003c}
0x0dc6c…0dca2 Head {h00=0x0032, h01=0x0050, text=» LDKL A1,HCPMOD INDICATE HARDCOPY OUTSTANDING «, t00=0x008d, t01=0x004e}
0x0dca2…0dcbc Head {h00=0x0016, h01=0x0050, text=» ORS A1,SNAMOD,A11«, t00=0x008d, t01=0x0084}
0x0dcbc…0dcc8 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x008d, t01=0x009e}
0x0dcc8…0dcda Head {h00=0x000e, h01=0x0050, text=» IFF SNA=1«, t00=0x008d, t01=0x00aa}
0x0dcda…0dd10 Head {h00=0x0032, h01=0x0050, text=» LDKL A1,HCPMOD INDICATE HARDCOPY OUTSTANDING «, t00=0x008d, t01=0x00bc}
0x0dd10…0dd2a Head {h00=0x0016, h01=0x0050, text=» ORS A1,BSCMOD,A11«, t00=0x008d, t01=0x00f2}
0x0dd2a…0dd36 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x008d, t01=0x010c}
0x0dd36…0dd48 Head {h00=0x000e, h01=0x0050, text=» RF COPY90«, t00=0x008d, t01=0x0118}
0x0dd48…0dd5c Head {h00=0x0010, h01=0x0050, text=»COPY80 EQU *«, t00=0x008d, t01=0x012a}
0x0dd5c…0dd72 Head {h00=0x0012, h01=0x0050, text=» CF A14,ERROR «, t00=0x008d, t01=0x013e}
0x0dd72…0dd86 Head {h00=0x0010, h01=0x0050, text=»COPY90 EQU *«, t00=0x008d, t01=0x0154}
0x0dd86…0dd96 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x008d, t01=0x0168}
0x0dd96…0dda4 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x008d, t01=0x0178}
0x0dda4…0ddec Head {h00=0x0044, h01=0x0050, text=»*************************************************************** «, t00=0x008d, t01=0x0186}
0x0ddec…0de34 Head {h00=0x0044, h01=0x0050, text=»* * «, t00=0x008e, t01=0x003e}
0x0de34…0de68 Head {h00=0x0030, h01=0x0050, text=»* IDENT PRINTER IDENT. HANDLING«, t00=0x008e, t01=0x0086}
0x0de68…0deb0 Head {h00=0x0044, h01=0x0050, text=»* * «, t00=0x008e, t01=0x00ba}
0x0deb0…0def8 Head {h00=0x0044, h01=0x0050, text=»*************************************************************** «, t00=0x008e, t01=0x0102}
0x0def8…0df18 Head {h00=0x001c, h01=0x0050, text=»* REGISTERS «, t00=0x008e, t01=0x014a}
0x0df18…0df22 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x008e, t01=0x016a}
0x0df22…0df46 Head {h00=0x0020, h01=0x0050, text=»* A3= POINTER IN TASK TABLE «, t00=0x008e, t01=0x0174}
0x0df46…0df66 Head {h00=0x001c, h01=0x0050, text=»* A11= CREDIT WORK AREA «, t00=0x008f, t01=0x0008}
0x0df66…0df80 Head {h00=0x0016, h01=0x0050, text=»* A13= T:A ADDRESS«, t00=0x008f, t01=0x0028}
0x0df80…0df8a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x008f, t01=0x0042}
0x0df8a…0dfd0 Head {h00=0x0042, h01=0x0050, text=»************************************************************* «, t00=0x008f, t01=0x004c}
0x0dfd0…0dfe4 Head {h00=0x0010, h01=0x0050, text=»IDENT EQU * «, t00=0x008f, t01=0x0092}
0x0dfe4…0e010 Head {h00=0x0028, h01=0x0050, text=» LD A1,PRTID,A11 GET CURRENT TASKID «, t00=0x008f, t01=0x00a6}
0x0e010…0e038 Head {h00=0x0024, h01=0x0050, text=» LD A4,+6,A13 COMMON BLOCK BASE «, t00=0x008f, t01=0x00d2}
0x0e038…0e058 Head {h00=0x001c, h01=0x0050, text=» ANK A1,X'FF' GET OFFSET«, t00=0x008f, t01=0x00fa}
0x0e058…0e06c Head {h00=0x0010, h01=0x0050, text=» SUK A1,/30 «, t00=0x008f, t01=0x011a}
0x0e06c…0e07e Head {h00=0x000e, h01=0x0050, text=» SLL A1,2 «, t00=0x008f, t01=0x012e}
0x0e07e…0e096 Head {h00=0x0014, h01=0x0050, text=» LDKL A3,TSKTAB «, t00=0x008f, t01=0x0140}
0x0e096…0e0a8 Head {h00=0x000e, h01=0x0050, text=» ADR A3,A4«, t00=0x008f, t01=0x0158}
0x0e0a8…0e0ba Head {h00=0x000e, h01=0x0050, text=» ADR A3,A1«, t00=0x008f, t01=0x016a}
0x0e0ba…0e0ce Head {h00=0x0010, h01=0x0050, text=»IDEN30 EQU *«, t00=0x008f, t01=0x017c}
0x0e0ce…0e0e8 Head {h00=0x0016, h01=0x0050, text=» LCR A5,A3 GET ID «, t00=0x008f, t01=0x0190}
0x0e0e8…0e0fa Head {h00=0x000e, h01=0x0050, text=» SLL A5,8 «, t00=0x0090, t01=0x001a}
0x0e0fa…0e10e Head {h00=0x0010, h01=0x0050, text=» LC A5,+1,A3«, t00=0x0090, t01=0x002c}
0x0e10e…0e12e Head {h00=0x001c, h01=0x0050, text=» LC A4,+3,A3 GET STATUS «, t00=0x0090, t01=0x0040}
0x0e12e…0e152 Head {h00=0x0020, h01=0x0050, text=» CF A14,SAVE1 SAVE REGISTERS«, t00=0x0090, t01=0x0060}
0x0e152…0e176 Head {h00=0x0020, h01=0x0050, text=» CF A14,DISID DISPLAY TASKID«, t00=0x0090, t01=0x0084}
0x0e176…0e19c Head {h00=0x0022, h01=0x0050, text=» LDKL A1,IDEN40 NEXT KEY ENTRY«, t00=0x0090, t01=0x00a8}
0x0e19c…0e1b6 Head {h00=0x0016, h01=0x0050, text=» ST A1,RDMORE,A11 «, t00=0x0090, t01=0x00ce}
0x0e1b6…0e1d2 Head {h00=0x0018, h01=0x0050, text=» RF IDEN90 NEXT KEY «, t00=0x0090, t01=0x00e8}
0x0e1d2…0e1e6 Head {h00=0x0010, h01=0x0050, text=»IDEN40 EQU *«, t00=0x0090, t01=0x0104}
0x0e1e6…0e1fc Head {h00=0x0012, h01=0x0050, text=» CM RDMORE,A11«, t00=0x0090, t01=0x0118}
0x0e1fc…0e20e Head {h00=0x000e, h01=0x0050, text=» LDR A9,A2«, t00=0x0090, t01=0x012e}
0x0e20e…0e236 Head {h00=0x0024, h01=0x0050, text=» CF A14,REST1 RESTORE REGISTERS «, t00=0x0090, t01=0x0140}
0x0e236…0e260 Head {h00=0x0026, h01=0x0050, text=» CWK A9,ENTKEY SAVE CURRENT TASKID«, t00=0x0090, t01=0x0168}
0x0e260…0e27a (145, 0, 400) Head {h00=0x0016, h01=0x0050, text=» RF(E) IDEN80 YES «, t00=0x0091, t01=0x0004}
0x0e27a…0e2a0 Head {h00=0x0022, h01=0x0050, text=» CWK A9,IDKEY GET NEXT TASKID?«, t00=0x0091, t01=0x001e}
0x0e2a0…0e2cc Head {h00=0x0028, h01=0x0050, text=» RF(NE) IDEN90 NO KEEP THE FIRST ONE«, t00=0x0091, t01=0x0044}
0x0e2cc…0e2e0 Head {h00=0x0010, h01=0x0050, text=»IDEN50 EQU *«, t00=0x0091, t01=0x0070}
0x0e2e0…0e30a Head {h00=0x0026, h01=0x0050, text=» ADK A3,4 SEARCH FOR NEXT PRINTER «, t00=0x0091, t01=0x0084}
0x0e30a…0e31c Head {h00=0x000e, h01=0x0050, text=» LCR A2,A3«, t00=0x0091, t01=0x00ae}
0x0e31c…0e330 Head {h00=0x0010, h01=0x0050, text=» ANK A2,/FF «, t00=0x0091, t01=0x00c0}
0x0e330…0e342 Head {h00=0x000e, h01=0x0050, text=» LDR A1,A2«, t00=0x0091, t01=0x00d4}
0x0e342…0e358 Head {h00=0x0012, h01=0x0050, text=» RB(Z) IDEN50 «, t00=0x0091, t01=0x00e6}
0x0e358…0e36a Head {h00=0x000e, h01=0x0050, text=» SLL A1,8 «, t00=0x0091, t01=0x00fc}
0x0e36a…0e380 Head {h00=0x0012, h01=0x0050, text=» RF(N) IDEN60 «, t00=0x0091, t01=0x010e}
0x0e380…0e3a0 Head {h00=0x001c, h01=0x0050, text=» CCK A2,VDUCOD PRINTER? «, t00=0x0091, t01=0x0124}
0x0e3a0…0e3ba Head {h00=0x0016, h01=0x0050, text=» RB(NE) IDEN30 YES«, t00=0x0091, t01=0x0144}
0x0e3ba…0e3cc Head {h00=0x000e, h01=0x0050, text=» RB IDEN50«, t00=0x0091, t01=0x015e}
0x0e3cc…0e3e0 Head {h00=0x0010, h01=0x0050, text=»IDEN60 EQU *«, t00=0x0091, t01=0x0170}
0x0e3e0…0e3f8 Head {h00=0x0014, h01=0x0050, text=» LDKL A2,TSKTAB «, t00=0x0091, t01=0x0184}
0x0e3f8…0e40c Head {h00=0x0010, h01=0x0050, text=» LD A3,6,A13«, t00=0x0092, t01=0x000c}
0x0e40c…0e41e Head {h00=0x000e, h01=0x0050, text=» ADR A3,A2«, t00=0x0092, t01=0x0020}
0x0e41e…0e430 Head {h00=0x000e, h01=0x0050, text=» SUK A3,4 «, t00=0x0092, t01=0x0032}
0x0e430…0e442 Head {h00=0x000e, h01=0x0050, text=» RB IDEN50«, t00=0x0092, t01=0x0044}
0x0e442…0e456 Head {h00=0x0010, h01=0x0050, text=»IDEN80 EQU *«, t00=0x0092, t01=0x0056}
0x0e456…0e47c Head {h00=0x0022, h01=0x0050, text=» LCR A1,A3 GET PRINTER TO SAVE«, t00=0x0092, t01=0x006a}
0x0e47c…0e48e Head {h00=0x000e, h01=0x0050, text=» SLL A1,8 «, t00=0x0092, t01=0x0090}
0x0e48e…0e4a2 Head {h00=0x0010, h01=0x0050, text=» LC A1,+1,A3«, t00=0x0092, t01=0x00a2}
0x0e4a2…0e4ce Head {h00=0x0028, h01=0x0050, text=» ST A1,PRTID,A11 NEW HARDCOPY TASKID«, t00=0x0092, t01=0x00b6}
0x0e4ce…0e4e2 Head {h00=0x0010, h01=0x0050, text=»IDEN90 EQU *«, t00=0x0092, t01=0x00e2}
0x0e4e2…0e4f2 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0092, t01=0x00f6}
0x0e4f2…0e500 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0092, t01=0x0106}
0x0e500…0e546 Head {h00=0x0042, h01=0x0050, text=»************************************************************* «, t00=0x0092, t01=0x0114}
0x0e546…0e58c Head {h00=0x0042, h01=0x0050, text=»* * «, t00=0x0092, t01=0x015a}
0x0e58c…0e5d2 Head {h00=0x0042, h01=0x0050, text=»* KEYL KEYLOCK STATUS * «, t00=0x0093, t01=0x0010}
0x0e5d2…0e618 Head {h00=0x0042, h01=0x0050, text=»* * «, t00=0x0093, t01=0x0056}
0x0e618…0e65e Head {h00=0x0042, h01=0x0050, text=»************************************************************* «, t00=0x0093, t01=0x009c}
0x0e65e…0e672 Head {h00=0x0010, h01=0x0050, text=»* REGISTERS«, t00=0x0093, t01=0x00e2}
0x0e672…0e67c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0093, t01=0x00f6}
0x0e67c…0e698 Head {h00=0x0018, h01=0x0050, text=»* A2= KEYLOCK VALUE «, t00=0x0093, t01=0x0100}
0x0e698…0e6b8 Head {h00=0x001c, h01=0x0050, text=»* A11= CREDIT WORK AREA «, t00=0x0093, t01=0x011c}
0x0e6b8…0e6d0 Head {h00=0x0014, h01=0x0050, text=»* A13= RESERVED «, t00=0x0093, t01=0x013c}
0x0e6d0…0e6da Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0093, t01=0x0154}
0x0e6da…0e720 Head {h00=0x0042, h01=0x0050, text=»**************************************************************«, t00=0x0093, t01=0x015e}
0x0e720…0e736 Head {h00=0x0012, h01=0x0050, text=» IFT KEYLST=1 «, t00=0x0094, t01=0x0014}
0x0e736…0e74c Head {h00=0x0012, h01=0x0050, text=» IFT KB6272=1 «, t00=0x0094, t01=0x002a}
0x0e74c…0e75e Head {h00=0x000e, h01=0x0050, text=»KEYL EQU *«, t00=0x0094, t01=0x0040}
0x0e75e…0e78c Head {h00=0x002a, h01=0x0050, text=» SUK A2,LKLKEY GET NEG KEY LOCK VALUE «, t00=0x0094, t01=0x0052}
0x0e78c…0e7ae Head {h00=0x001e, h01=0x0050, text=» LD A3,KEYS,A11 OLD STATUS«, t00=0x0094, t01=0x0080}
0x0e7ae…0e7c2 Head {h00=0x0010, h01=0x0050, text=» LDK A4,/10 «, t00=0x0094, t01=0x00a2}
0x0e7c2…0e7d6 Head {h00=0x0010, h01=0x0050, text=»KEYL10 EQU *«, t00=0x0094, t01=0x00b6}
0x0e7d6…0e7e8 Head {h00=0x000e, h01=0x0050, text=» SRL A4,1 «, t00=0x0094, t01=0x00ca}
0x0e7e8…0e808 Head {h00=0x001c, h01=0x0050, text=» ADK A2,2 1 = OFF,0 = ON«, t00=0x0094, t01=0x00dc}
0x0e808…0e81e Head {h00=0x0012, h01=0x0050, text=» RB(N) KEYL10 «, t00=0x0094, t01=0x00fc}
0x0e81e…0e842 Head {h00=0x0020, h01=0x0050, text=» ANR A3,A4 CHECK OLD KEY POS«, t00=0x0094, t01=0x0112}
0x0e842…0e860 Head {h00=0x001a, h01=0x0050, text=» RF(NZ) KEYL20 WAS ON «, t00=0x0094, t01=0x0136}
0x0e860…0e87a Head {h00=0x0016, h01=0x0050, text=» LDR A2,A2 WAS OFF«, t00=0x0094, t01=0x0154}
0x0e87a…0e8a4 Head {h00=0x0026, h01=0x0050, text=» RF(NZ) KEYL99 NOW OFF, NO CHANGE «, t00=0x0094, t01=0x016e}
0x0e8a4…0e8be Head {h00=0x0016, h01=0x0050, text=» RF KEYL30 NOW ON «, t00=0x0095, t01=0x0008}
0x0e8be…0e8da Head {h00=0x0018, h01=0x0050, text=»KEYL20 EQU * WAS ON «, t00=0x0095, t01=0x0022}
0x0e8da…0e8ec Head {h00=0x000e, h01=0x0050, text=» LDR A2,A2«, t00=0x0095, t01=0x003e}
0x0e8ec…0e914 Head {h00=0x0024, h01=0x0050, text=» RF(Z) KEYL99 NOW ON, NO CHANGE «, t00=0x0095, t01=0x0050}
0x0e914…0e930 Head {h00=0x0018, h01=0x0050, text=»KEYL30 EQU * CHANGE«, t00=0x0095, t01=0x0078}
0x0e930…0e948 Head {h00=0x0014, h01=0x0050, text=» LD A3,KEYS,A11 «, t00=0x0095, t01=0x0094}
0x0e948…0e968 Head {h00=0x001c, h01=0x0050, text=» XRR A3,A4 CHANGE STATUS«, t00=0x0095, t01=0x00ac}
0x0e968…0e990 Head {h00=0x0024, h01=0x0050, text=» ST A3,KEYS,A11 STORE NEW STATUS«, t00=0x0095, t01=0x00cc}
0x0e990…0e99a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0095, t01=0x00f4}
0x0e99a…0e9ba Head {h00=0x001c, h01=0x0050, text=»* KEYLOCK STATUS CHANGED«, t00=0x0095, t01=0x00fe}
0x0e9ba…0ea08 Head {h00=0x004a, h01=0x0050, text=»* A3 = NEW STATUS, RIGHTMOST BIT = RIGHTMOST LOCK, BIT ON = LOCK ON «, t00=0x0095, t01=0x011e}
0x0ea08…0ea36 Head {h00=0x002a, h01=0x0050, text=»* A4 = KEYLOCK CHANGED, LAYOUT AS A3«, t00=0x0095, t01=0x016c}
0x0ea36…0ea62 Head {h00=0x0028, h01=0x0050, text=»* A2 = 1, IF CHANGED TO OFF ELSE 0«, t00=0x0096, t01=0x000a}
0x0ea62…0ea6c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0096, t01=0x0036}
0x0ea6c…0ea9a Head {h00=0x002a, h01=0x0050, text=»* INSERT USER ROUTINE BELOW THIS LINE «, t00=0x0096, t01=0x0040}
0x0ea9a…0eaa4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0096, t01=0x006e}
0x0eaa4…0eab8 Head {h00=0x0010, h01=0x0050, text=»KEYL99 EQU *«, t00=0x0096, t01=0x0078}
0x0eab8…0eac8 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0096, t01=0x008c}
0x0eac8…0ead4 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0096, t01=0x009c}
0x0ead4…0eae2 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0096, t01=0x00a8}
0x0eae2…0eb24 Head {h00=0x003e, h01=0x0050, text=»**********************************************************«, t00=0x0096, t01=0x00b6}
0x0eb24…0eb2e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0096, t01=0x00f8}
0x0eb2e…0eb48 Head {h00=0x0016, h01=0x0050, text=»* TESTM TEST MODE «, t00=0x0096, t01=0x0102}
0x0eb48…0eb52 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0096, t01=0x011c}
0x0eb52…0eb94 Head {h00=0x003e, h01=0x0050, text=»**********************************************************«, t00=0x0096, t01=0x0126}
0x0eb94…0ebae Head {h00=0x0016, h01=0x0050, text=»* REGISTERS«, t00=0x0096, t01=0x0168}
0x0ebae…0ebb8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0096, t01=0x0182}
0x0ebb8…0ebd0 Head {h00=0x0014, h01=0x0050, text=»* A11= RESERVED «, t00=0x0096, t01=0x018c}
0x0ebd0…0ebe8 Head {h00=0x0014, h01=0x0050, text=»* A13= RESERVED «, t00=0x0097, t01=0x0014}
0x0ebe8…0ebf2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0097, t01=0x002c}
0x0ebf2…0ec34 Head {h00=0x003e, h01=0x0050, text=»********************************************************* «, t00=0x0097, t01=0x0036}
0x0ec34…0ec48 Head {h00=0x0010, h01=0x0050, text=» IFT TEST=1 «, t00=0x0097, t01=0x0078}
0x0ec48…0ec5c Head {h00=0x0010, h01=0x0050, text=»TESTM EQU * «, t00=0x0097, t01=0x008c}
0x0ec5c…0ec72 Head {h00=0x0012, h01=0x0050, text=» CF A14,ERASE «, t00=0x0097, t01=0x00a0}
0x0ec72…0ec88 Head {h00=0x0012, h01=0x0050, text=» CF A14,GETBUF«, t00=0x0097, t01=0x00b6}
0x0ec88…0ec9e Head {h00=0x0012, h01=0x0050, text=» CF A14,RDSTAT«, t00=0x0097, t01=0x00cc}
0x0ec9e…0ecb4 Head {h00=0x0012, h01=0x0050, text=» CF A14,DISSTA«, t00=0x0097, t01=0x00e2}
0x0ecb4…0ecc8 Head {h00=0x0010, h01=0x0050, text=» LDR A8,A12 «, t00=0x0097, t01=0x00f8}
0x0ecc8…0ecde Head {h00=0x0012, h01=0x0050, text=» CF A14,RELBUF«, t00=0x0097, t01=0x010c}
0x0ecde…0ecee Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0097, t01=0x0122}
0x0ecee…0ecfa Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0097, t01=0x0132}
0x0ecfa…0ed08 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0097, t01=0x013e}
0x0ed08…0ed4a Head {h00=0x003e, h01=0x0050, text=»********************************************************* «, t00=0x0097, t01=0x014c}
0x0ed4a…0ed8c Head {h00=0x003e, h01=0x0050, text=»* * «, t00=0x0097, t01=0x018e}
0x0ed8c…0edce Head {h00=0x003e, h01=0x0050, text=»* ENTER ENTER KEY HANDLING * «, t00=0x0098, t01=0x0040}
0x0edce…0ee10 Head {h00=0x003e, h01=0x0050, text=»* * «, t00=0x0098, t01=0x0082}
0x0ee10…0ee52 Head {h00=0x003e, h01=0x0050, text=»********************************************************* «, t00=0x0098, t01=0x00c4}
0x0ee52…0ee66 Head {h00=0x0010, h01=0x0050, text=»* REGISTERS«, t00=0x0098, t01=0x0106}
0x0ee66…0ee70 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0098, t01=0x011a}
0x0ee70…0ee86 Head {h00=0x0012, h01=0x0050, text=»* A2= AID-CODE«, t00=0x0098, t01=0x0124}
0x0ee86…0ee9e Head {h00=0x0014, h01=0x0050, text=»* A11= RESERVED «, t00=0x0098, t01=0x013a}
0x0ee9e…0eeb6 Head {h00=0x0014, h01=0x0050, text=»* A13= RESERVED «, t00=0x0098, t01=0x0152}
0x0eeb6…0eec0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0098, t01=0x016a}
0x0eec0…0ef02 Head {h00=0x003e, h01=0x0050, text=»********************************************************* «, t00=0x0098, t01=0x0174}
0x0ef02…0ef16 Head {h00=0x0010, h01=0x0050, text=»ENTER EQU * «, t00=0x0099, t01=0x0026}
0x0ef16…0ef32 Head {h00=0x0018, h01=0x0050, text=» LDK A2,/27 AID-CODE«, t00=0x0099, t01=0x003a}
0x0ef32…0ef64 Head {h00=0x002e, h01=0x0050, text=» CF A14,LMP4ON TURN ON "KEYBOARD INHIBIT" «, t00=0x0099, t01=0x0056}
0x0ef64…0ef96 Head {h00=0x002e, h01=0x0050, text=» CF A14,TRPF AID+MODIFIED FIELDS+TRANSMIT «, t00=0x0099, t01=0x0088}
0x0ef96…0efa6 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0099, t01=0x00ba}
0x0efa6…0efb4 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0099, t01=0x00ca}
0x0efb4…0effa Head {h00=0x0042, h01=0x0050, text=»**************************************************************«, t00=0x0099, t01=0x00d8}
0x0effa…0f040 Head {h00=0x0042, h01=0x0050, text=»* *«, t00=0x0099, t01=0x011e}
0x0f040…0f086 Head {h00=0x0042, h01=0x0050, text=»* CLEAR CLEAR KEY HANDLING *«, t00=0x0099, t01=0x0164}
0x0f086…0f0cc Head {h00=0x0042, h01=0x0050, text=»* *«, t00=0x009a, t01=0x001a}
0x0f0cc…0f112 Head {h00=0x0042, h01=0x0050, text=»**************************************************************«, t00=0x009a, t01=0x0060}
0x0f112…0f126 Head {h00=0x0010, h01=0x0050, text=»* REGISTERS«, t00=0x009a, t01=0x00a6}
0x0f126…0f130 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x009a, t01=0x00ba}
0x0f130…0f146 Head {h00=0x0012, h01=0x0050, text=»* A2= AID-CODE«, t00=0x009a, t01=0x00c4}
0x0f146…0f15e Head {h00=0x0014, h01=0x0050, text=»* A11= RESERVED «, t00=0x009a, t01=0x00da}
0x0f15e…0f176 Head {h00=0x0014, h01=0x0050, text=»* A13= RESERVED «, t00=0x009a, t01=0x00f2}
0x0f176…0f180 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x009a, t01=0x010a}
0x0f180…0f1c6 Head {h00=0x0042, h01=0x0050, text=»**************************************************************«, t00=0x009a, t01=0x0114}
0x0f1c6…0f1da Head {h00=0x0010, h01=0x0050, text=»CLEAR EQU * «, t00=0x009a, t01=0x015a}
0x0f1da…0f1fe Head {h00=0x0020, h01=0x0050, text=» LDK A2,/5F POS FOR 'CLEAR' «, t00=0x009a, t01=0x016e}
0x0f1fe…0f230 (155, 0, 400) Head {h00=0x002e, h01=0x0050, text=» CF A14,LMP4ON TURN ON "KEYBOARD INHIBIT" «, t00=0x009b, t01=0x0004}
0x0f230…0f25c Head {h00=0x0028, h01=0x0050, text=» CF A14,TRPA UPDATE AID AND TRANSMIT«, t00=0x009b, t01=0x0036}
0x0f25c…0f286 Head {h00=0x0026, h01=0x0050, text=» CF A14,ERASE ERASE ENTIRE SCREEN «, t00=0x009b, t01=0x0062}
0x0f286…0f296 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x009b, t01=0x008c}
0x0f296…0f2a4 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x009b, t01=0x009c}
0x0f2a4…0f2ec Head {h00=0x0044, h01=0x0050, text=»*************************************************************** «, t00=0x009b, t01=0x00aa}
0x0f2ec…0f334 Head {h00=0x0044, h01=0x0050, text=»* * «, t00=0x009b, t01=0x00f2}
0x0f334…0f37c Head {h00=0x0044, h01=0x0050, text=»* SYSREQ SYSTEM REQUEST HANDLING * «, t00=0x009b, t01=0x013a}
0x0f37c…0f3c4 Head {h00=0x0044, h01=0x0050, text=»* * «, t00=0x009b, t01=0x0182}
0x0f3c4…0f40c Head {h00=0x0044, h01=0x0050, text=»*************************************************************** «, t00=0x009c, t01=0x003a}
0x0f40c…0f420 Head {h00=0x0010, h01=0x0050, text=»* REGISTERS«, t00=0x009c, t01=0x0082}
0x0f420…0f42a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x009c, t01=0x0096}
0x0f42a…0f44a Head {h00=0x001c, h01=0x0050, text=»* A11= CREDIT WORK AREA «, t00=0x009c, t01=0x00a0}
0x0f44a…0f462 Head {h00=0x0014, h01=0x0050, text=»* A13= RESERVED «, t00=0x009c, t01=0x00c0}
0x0f462…0f46c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x009c, t01=0x00d8}
0x0f46c…0f4a8 Head {h00=0x0038, h01=0x0050, text=»****************************************************«, t00=0x009c, t01=0x00e2}
0x0f4a8…0f4ba Head {h00=0x000e, h01=0x0050, text=» IFT SNA=1«, t00=0x009c, t01=0x011e}
0x0f4ba…0f4ce Head {h00=0x0010, h01=0x0050, text=»SYSREQ EQU *«, t00=0x009c, t01=0x0130}
0x0f4ce…0f4f0 Head {h00=0x001e, h01=0x0050, text=» CF A14,TSTSTA TEST STATUS«, t00=0x009c, t01=0x0144}
0x0f4f0…0f50e Head {h00=0x001a, h01=0x0050, text=» LDR A2,A1 GET STATUS «, t00=0x009c, t01=0x0166}
0x0f50e…0f52c Head {h00=0x001a, h01=0x0050, text=» ANKL A2,/101 ACTIVE? «, t00=0x009c, t01=0x0184}
0x0f52c…0f546 Head {h00=0x0016, h01=0x0050, text=» RF(Z) SYS100 YES «, t00=0x009d, t01=0x0012}
0x0f546…0f570 Head {h00=0x0026, h01=0x0050, text=» LDK A1,LOCMOD INDICATE LOCAL MODE«, t00=0x009d, t01=0x002c}
0x0f570…0f582 Head {h00=0x000e, h01=0x0050, text=» RF SYS500«, t00=0x009d, t01=0x0056}
0x0f582…0f596 Head {h00=0x0010, h01=0x0050, text=»SYS100 EQU *«, t00=0x009d, t01=0x0068}
0x0f596…0f5b4 Head {h00=0x001a, h01=0x0050, text=» LDR A2,A1 GET STATUS «, t00=0x009d, t01=0x007c}
0x0f5b4…0f5d6 Head {h00=0x001e, h01=0x0050, text=» ANKL A2,/C00 MY JOB MODE?«, t00=0x009d, t01=0x009a}
0x0f5d6…0f5f0 Head {h00=0x0016, h01=0x0050, text=» RF(NZ) SYS200 NO «, t00=0x009d, t01=0x00bc}
0x0f5f0…0f61a Head {h00=0x0026, h01=0x0050, text=» CF A14,CLEAR CLEAR SCREEN AND DC «, t00=0x009d, t01=0x00d6}
0x0f61a…0f646 Head {h00=0x0028, h01=0x0050, text=» CF A14,RESKB RESET KEYBOARD BUFFER «, t00=0x009d, t01=0x0100}
0x0f646…0f670 Head {h00=0x0026, h01=0x0050, text=» LDK A1,SYSOP INDICATE SYSTEM MODE«, t00=0x009d, t01=0x012c}
0x0f670…0f682 Head {h00=0x000e, h01=0x0050, text=» RF SYS500«, t00=0x009d, t01=0x0156}
0x0f682…0f696 Head {h00=0x0010, h01=0x0050, text=»SYS200 EQU *«, t00=0x009d, t01=0x0168}
0x0f696…0f6c2 Head {h00=0x0028, h01=0x0050, text=» CWK A2,/C00 SSCP-LU AND NOT LU-LU? «, t00=0x009d, t01=0x017c}
0x0f6c2…0f6dc Head {h00=0x0016, h01=0x0050, text=» RF(NE) SYS300 NO «, t00=0x009e, t01=0x0018}
0x0f6dc…0f706 Head {h00=0x0026, h01=0x0050, text=» LDK A1,SYSOP INDICATE SYSTEM MODE«, t00=0x009e, t01=0x0032}
0x0f706…0f718 Head {h00=0x000e, h01=0x0050, text=» RF SYS500«, t00=0x009e, t01=0x005c}
0x0f718…0f72c Head {h00=0x0010, h01=0x0050, text=»SYS300 EQU *«, t00=0x009e, t01=0x006e}
0x0f72c…0f754 Head {h00=0x0024, h01=0x0050, text=» ANKL A2,/800 SSCP-LU AND LU-LU?«, t00=0x009e, t01=0x0082}
0x0f754…0f76e Head {h00=0x0016, h01=0x0050, text=» RF(NZ) SYS400 YES«, t00=0x009e, t01=0x00aa}
0x0f76e…0f798 Head {h00=0x0026, h01=0x0050, text=» LDK A1,SYSOP INDICATE SYSTEM MODE«, t00=0x009e, t01=0x00c4}
0x0f798…0f7aa Head {h00=0x000e, h01=0x0050, text=» RF SYS500«, t00=0x009e, t01=0x00ee}
0x0f7aa…0f7be Head {h00=0x0010, h01=0x0050, text=»SYS400 EQU *«, t00=0x009e, t01=0x0100}
0x0f7be…0f7e8 Head {h00=0x0026, h01=0x0050, text=» LDK A1,MYJOB INDICATE MY JOB MODE«, t00=0x009e, t01=0x0114}
0x0f7e8…0f7fc Head {h00=0x0010, h01=0x0050, text=»SYS500 EQU *«, t00=0x009e, t01=0x013e}
0x0f7fc…0f830 Head {h00=0x0030, h01=0x0050, text=» ORKL A1,NEWMOD INDICATE NEW MODE ACTIVATION«, t00=0x009e, t01=0x0152}
0x0f830…0f84a Head {h00=0x0016, h01=0x0050, text=» ST A1,SNAMOD,A11 «, t00=0x009e, t01=0x0186}
0x0f84a…0f85a Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x009f, t01=0x0010}
0x0f85a…0f866 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x009f, t01=0x0020}
0x0f866…0f874 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x009f, t01=0x002c}
0x0f874…0f8bc Head {h00=0x0044, h01=0x0050, text=»*************************************************************** «, t00=0x009f, t01=0x003a}
0x0f8bc…0f904 Head {h00=0x0044, h01=0x0050, text=»* * «, t00=0x009f, t01=0x0082}
0x0f904…0f94c Head {h00=0x0044, h01=0x0050, text=»* ATTN ATTENTION KEY HANDLING * «, t00=0x009f, t01=0x00ca}
0x0f94c…0f994 Head {h00=0x0044, h01=0x0050, text=»* * «, t00=0x009f, t01=0x0112}
0x0f994…0f9dc Head {h00=0x0044, h01=0x0050, text=»*************************************************************** «, t00=0x009f, t01=0x015a}
0x0f9dc…0f9fa Head {h00=0x001a, h01=0x0050, text=»* REGISTERS «, t00=0x00a0, t01=0x0012}
0x0f9fa…0fa04 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00a0, t01=0x0030}
0x0fa04…0fa1c Head {h00=0x0014, h01=0x0050, text=»* A11= RESERVED «, t00=0x00a0, t01=0x003a}
0x0fa1c…0fa34 Head {h00=0x0014, h01=0x0050, text=»* A13= RESERVED «, t00=0x00a0, t01=0x0052}
0x0fa34…0fa3e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00a0, t01=0x006a}
0x0fa3e…0fa80 Head {h00=0x003e, h01=0x0050, text=»**********************************************************«, t00=0x00a0, t01=0x0074}
0x0fa80…0fa92 Head {h00=0x000e, h01=0x0050, text=» IFT SNA=1«, t00=0x00a0, t01=0x00b6}
0x0fa92…0faa4 Head {h00=0x000e, h01=0x0050, text=»ATTN EQU *«, t00=0x00a0, t01=0x00c8}
0x0faa4…0facc Head {h00=0x0024, h01=0x0050, text=» LDK A1,/4B SIGNAL ATTENTION KEY«, t00=0x00a0, t01=0x00da}
0x0facc…0faee Head {h00=0x001e, h01=0x0050, text=» CF A14,SETSTA SET STATUS «, t00=0x00a0, t01=0x0102}
0x0faee…0fafe Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x00a0, t01=0x0124}
0x0fafe…0fb0a Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00a0, t01=0x0134}
0x0fb0a…0fb18 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x00a0, t01=0x0140}
0x0fb18…0fb5e Head {h00=0x0042, h01=0x0050, text=»**************************************************************«, t00=0x00a0, t01=0x014e}
0x0fb5e…0fba4 (161, 0, 400) Head {h00=0x0042, h01=0x0050, text=»* *«, t00=0x00a1, t01=0x0004}
0x0fba4…0fbe8 Head {h00=0x0040, h01=0x0050, text=»* PA PROGRAM ACCESS KEY HANDLING * «, t00=0x00a1, t01=0x004a}
0x0fbe8…0fc2e Head {h00=0x0042, h01=0x0050, text=»* *«, t00=0x00a1, t01=0x008e}
0x0fc2e…0fc74 Head {h00=0x0042, h01=0x0050, text=»**************************************************************«, t00=0x00a1, t01=0x00d4}
0x0fc74…0fc88 Head {h00=0x0010, h01=0x0050, text=»* REGISTERS«, t00=0x00a1, t01=0x011a}
0x0fc88…0fc92 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00a1, t01=0x012e}
0x0fc92…0fca8 Head {h00=0x0012, h01=0x0050, text=»* A2= AID-CODE«, t00=0x00a1, t01=0x0138}
0x0fca8…0fcc0 Head {h00=0x0014, h01=0x0050, text=»* A11= RESERVED «, t00=0x00a1, t01=0x014e}
0x0fcc0…0fcd8 Head {h00=0x0014, h01=0x0050, text=»* A13= RESERVED «, t00=0x00a1, t01=0x0166}
0x0fcd8…0fce2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00a1, t01=0x017e}
0x0fce2…0fd28 Head {h00=0x0042, h01=0x0050, text=»**************************************************************«, t00=0x00a1, t01=0x0188}
0x0fd28…0fd3a Head {h00=0x000e, h01=0x0050, text=»PA1 EQU * «, t00=0x00a2, t01=0x003e}
0x0fd3a…0fd56 Head {h00=0x0018, h01=0x0050, text=» LDK A2,/25 AID-CODE«, t00=0x00a2, t01=0x0050}
0x0fd56…0fd68 Head {h00=0x000e, h01=0x0050, text=» RF PA500 «, t00=0x00a2, t01=0x006c}
0x0fd68…0fd7a Head {h00=0x000e, h01=0x0050, text=»PA2 EQU * «, t00=0x00a2, t01=0x007e}
0x0fd7a…0fd96 Head {h00=0x0018, h01=0x0050, text=» LDK A2,/3E AID-CODE«, t00=0x00a2, t01=0x0090}
0x0fd96…0fda8 Head {h00=0x000e, h01=0x0050, text=» RF PA500 «, t00=0x00a2, t01=0x00ac}
0x0fda8…0fdba Head {h00=0x000e, h01=0x0050, text=»PA3 EQU * «, t00=0x00a2, t01=0x00be}
0x0fdba…0fdd6 Head {h00=0x0018, h01=0x0050, text=» LDK A2,/2C AID-CODE«, t00=0x00a2, t01=0x00d0}
0x0fdd6…0fdea Head {h00=0x0010, h01=0x0050, text=»PA500 EQU * «, t00=0x00a2, t01=0x00ec}
0x0fdea…0fe1a Head {h00=0x002c, h01=0x0050, text=» CF A14,LMP4ON TURN ON KEYBOARD INHIBIT «, t00=0x00a2, t01=0x0100}
0x0fe1a…0fe40 Head {h00=0x0022, h01=0x0050, text=» CF A14,TRPA TRANSMIT AID-CODE«, t00=0x00a2, t01=0x0130}
0x0fe40…0fe54 Head {h00=0x0010, h01=0x0050, text=»PAALFA EQU *«, t00=0x00a2, t01=0x0156}
0x0fe54…0fe78 Head {h00=0x0020, h01=0x0050, text=»*INSERT ALFASKOP STATEMENTS «, t00=0x00a2, t01=0x016a}
0x0fe78…0fe88 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x00a2, t01=0x018e}
0x0fe88…0fe96 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x00a3, t01=0x000e}
0x0fe96…0fee2 Head {h00=0x0048, h01=0x0050, text=»******************************************************************* «, t00=0x00a3, t01=0x001c}
0x0fee2…0ff2e Head {h00=0x0048, h01=0x0050, text=»* * «, t00=0x00a3, t01=0x0068}
0x0ff2e…0ff7a Head {h00=0x0048, h01=0x0050, text=»* PAEX PAEX KEY FOLLOWED BY NUMBER * «, t00=0x00a3, t01=0x00b4}
0x0ff7a…0ffc6 Head {h00=0x0048, h01=0x0050, text=»* * «, t00=0x00a3, t01=0x0100}
0x0ffc6…10012 Head {h00=0x0048, h01=0x0050, text=»******************************************************************* «, t00=0x00a3, t01=0x014c}
0x10012…10026 Head {h00=0x0010, h01=0x0050, text=»* REGISTERS«, t00=0x00a4, t01=0x0008}
0x10026…10030 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00a4, t01=0x001c}
0x10030…10050 Head {h00=0x001c, h01=0x0050, text=»* A11= CREDIT WORK AREA «, t00=0x00a4, t01=0x0026}
0x10050…10068 Head {h00=0x0014, h01=0x0050, text=»* A13= RESERVED «, t00=0x00a4, t01=0x0046}
0x10068…10072 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00a4, t01=0x005e}
0x10072…100ae Head {h00=0x0038, h01=0x0050, text=»*************************************************** «, t00=0x00a4, t01=0x0068}
0x100ae…100c0 Head {h00=0x000e, h01=0x0050, text=» IFT PAX=1«, t00=0x00a4, t01=0x00a4}
0x100c0…100d2 Head {h00=0x000e, h01=0x0050, text=»PAEX EQU *«, t00=0x00a4, t01=0x00b6}
0x100d2…100e8 Head {h00=0x0012, h01=0x0050, text=» LDKL A1,PAEXA«, t00=0x00a4, t01=0x00c8}
0x100e8…10102 Head {h00=0x0016, h01=0x0050, text=» ST A1,RDMORE,A11 «, t00=0x00a4, t01=0x00de}
0x10102…10112 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x00a4, t01=0x00f8}
0x10112…10126 Head {h00=0x0010, h01=0x0050, text=»PAEXA EQU * «, t00=0x00a4, t01=0x0108}
0x10126…1013c Head {h00=0x0012, h01=0x0050, text=» CM RDMORE,A11«, t00=0x00a4, t01=0x011c}
0x1013c…10160 Head {h00=0x0020, h01=0x0050, text=» SUK A2,/31 CHECK IF NUM.1-3«, t00=0x00a4, t01=0x0132}
0x10160…10182 Head {h00=0x001e, h01=0x0050, text=» RF(L) PAERR ILLEGAL CHAR.«, t00=0x00a4, t01=0x0156}
0x10182…101a6 Head {h00=0x0020, h01=0x0050, text=» SUK A2,/2 CHECK IF NUM.1-3 «, t00=0x00a4, t01=0x0178}
0x101a6…101c8 Head {h00=0x001e, h01=0x0050, text=» RF(G) PAERR ILLEGAL CHAR.«, t00=0x00a5, t01=0x000c}
0x101c8…101f4 Head {h00=0x0028, h01=0x0050, text=» CF A14,DCABOR ABORT TEST MESSAGE =2«, t00=0x00a5, t01=0x002e}
0x101f4…1020a Head {h00=0x0012, h01=0x0050, text=» RF(NZ) PAEX10«, t00=0x00a5, t01=0x005a}
0x1020a…10226 Head {h00=0x0018, h01=0x0050, text=» CF A14,PA3 PA3 KEY «, t00=0x00a5, t01=0x0070}
0x10226…10238 Head {h00=0x000e, h01=0x0050, text=» RF PARET «, t00=0x00a5, t01=0x008c}
0x10238…1024c Head {h00=0x0010, h01=0x0050, text=»PAEX10 EQU *«, t00=0x00a5, t01=0x009e}
0x1024c…1025e Head {h00=0x000e, h01=0x0050, text=» ADK A2,1 «, t00=0x00a5, t01=0x00b2}
0x1025e…10274 Head {h00=0x0012, h01=0x0050, text=» RF(NZ) PAEX20«, t00=0x00a5, t01=0x00c4}
0x10274…10290 Head {h00=0x0018, h01=0x0050, text=» CF A14,PA2 PA2 KEY «, t00=0x00a5, t01=0x00da}
0x10290…102a2 Head {h00=0x000e, h01=0x0050, text=» RF PARET «, t00=0x00a5, t01=0x00f6}
0x102a2…102b6 Head {h00=0x0010, h01=0x0050, text=»PAEX20 EQU *«, t00=0x00a5, t01=0x0108}
0x102b6…102d2 Head {h00=0x0018, h01=0x0050, text=» CF A14,PA1 PA1 KEY «, t00=0x00a5, t01=0x011c}
0x102d2…102e4 Head {h00=0x000e, h01=0x0050, text=» RF PARET «, t00=0x00a5, t01=0x0138}
0x102e4…102f8 Head {h00=0x0010, h01=0x0050, text=»PAERR EQU * «, t00=0x00a5, t01=0x014a}
0x102f8…1031c Head {h00=0x0020, h01=0x0050, text=» CF A14,ERROR INDICATE ERROR«, t00=0x00a5, t01=0x015e}
0x1031c…10330 Head {h00=0x0010, h01=0x0050, text=»PARET EQU * «, t00=0x00a5, t01=0x0182}
0x10330…10340 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x00a6, t01=0x0008}
0x10340…1034c Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00a6, t01=0x0018}
0x1034c…1035a Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x00a6, t01=0x0024}
0x1035a…103a4 Head {h00=0x0046, h01=0x0050, text=»******************************************************************«, t00=0x00a6, t01=0x0032}
0x103a4…103ee Head {h00=0x0046, h01=0x0050, text=»* *«, t00=0x00a6, t01=0x007c}
0x103ee…10438 Head {h00=0x0046, h01=0x0050, text=»* PF PROGRAM FUNTION KEY HANDLING *«, t00=0x00a6, t01=0x00c6}
0x10438…10482 Head {h00=0x0046, h01=0x0050, text=»* *«, t00=0x00a6, t01=0x0110}
0x10482…104cc Head {h00=0x0046, h01=0x0050, text=»******************************************************************«, t00=0x00a6, t01=0x015a}
0x104cc…104e0 Head {h00=0x0010, h01=0x0050, text=»* REGISTERS«, t00=0x00a7, t01=0x0014}
0x104e0…104ea Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00a7, t01=0x0028}
0x104ea…10500 Head {h00=0x0012, h01=0x0050, text=»* A2= AID-CODE«, t00=0x00a7, t01=0x0032}
0x10500…10518 Head {h00=0x0014, h01=0x0050, text=»* A11= RESERVED «, t00=0x00a7, t01=0x0048}
0x10518…10530 Head {h00=0x0014, h01=0x0050, text=»* A13= RESERVED «, t00=0x00a7, t01=0x0060}
0x10530…1053a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00a7, t01=0x0078}
0x1053a…10584 Head {h00=0x0046, h01=0x0050, text=»******************************************************************«, t00=0x00a7, t01=0x0082}
0x10584…10594 Head {h00=0x000c, h01=0x0050, text=»PF EQU *«, t00=0x00a7, t01=0x00cc}
0x10594…105be Head {h00=0x0026, h01=0x0050, text=» SUK A2,PFKEY GET INDEX TO CONVERT«, t00=0x00a7, t01=0x00dc}
0x105be…105de Head {h00=0x001c, h01=0x0050, text=» LC A2,CONPF,A2 GET AID «, t00=0x00a7, t01=0x0106}
0x105de…1060e Head {h00=0x002c, h01=0x0050, text=» CF A14,LMP4ON TURN ON KEYBOARD INHIBIT «, t00=0x00a7, t01=0x0126}
0x1060e…10644 Head {h00=0x0032, h01=0x0050, text=» CF A14,TRPF TRANSMIT AID AND MODIFIED FIELDS «, t00=0x00a7, t01=0x0156}
0x10644…10654 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x00a7, t01=0x018c}
0x10654…10662 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x00a8, t01=0x000c}
0x10662…106ac Head {h00=0x0046, h01=0x0050, text=»***************************************************************** «, t00=0x00a8, t01=0x001a}
0x106ac…106f6 Head {h00=0x0046, h01=0x0050, text=»* * «, t00=0x00a8, t01=0x0064}
0x106f6…10740 Head {h00=0x0046, h01=0x0050, text=»* PFEX PFEX KEY FOLLOWED BY NUMBER * «, t00=0x00a8, t01=0x00ae}
0x10740…1078a Head {h00=0x0046, h01=0x0050, text=»* * «, t00=0x00a8, t01=0x00f8}
0x1078a…107d4 Head {h00=0x0046, h01=0x0050, text=»***************************************************************** «, t00=0x00a8, t01=0x0142}
0x107d4…107e8 Head {h00=0x0010, h01=0x0050, text=»* REGISTERS«, t00=0x00a8, t01=0x018c}
0x107e8…107f2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00a9, t01=0x0010}
0x107f2…10812 Head {h00=0x001c, h01=0x0050, text=»* A11= CREDIT WORK AREA «, t00=0x00a9, t01=0x001a}
0x10812…1082a Head {h00=0x0014, h01=0x0050, text=»* A13= RESERVED «, t00=0x00a9, t01=0x003a}
0x1082a…10834 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00a9, t01=0x0052}
0x10834…1086e Head {h00=0x0036, h01=0x0050, text=»************************************************* «, t00=0x00a9, t01=0x005c}
0x1086e…10880 Head {h00=0x000e, h01=0x0050, text=» IFT PFX=1«, t00=0x00a9, t01=0x0096}
0x10880…10892 Head {h00=0x000e, h01=0x0050, text=»PFEX EQU *«, t00=0x00a9, t01=0x00a8}
0x10892…108a8 Head {h00=0x0012, h01=0x0050, text=» LDKL A1,PFEXA«, t00=0x00a9, t01=0x00ba}
0x108a8…108ba Head {h00=0x000e, h01=0x0050, text=» RF PFNXT «, t00=0x00a9, t01=0x00d0}
0x108ba…108ce Head {h00=0x0010, h01=0x0050, text=»PFEXA EQU * «, t00=0x00a9, t01=0x00e2}
0x108ce…108e4 Head {h00=0x0012, h01=0x0050, text=» CM RDMORE,A11«, t00=0x00a9, t01=0x00f6}
0x108e4…10904 Head {h00=0x001c, h01=0x0050, text=» SUK A2,/30 LEGAL CHAR ?«, t00=0x00a9, t01=0x010c}
0x10904…10934 Head {h00=0x002c, h01=0x0050, text=» RF(L) PFERR ILLEGAL,GO TO ERR.HANDLING «, t00=0x00a9, t01=0x012c}
0x10934…1094a Head {h00=0x0012, h01=0x0050, text=» RF(NZ) PFEX10«, t00=0x00a9, t01=0x015c}
0x1094a…1096c Head {h00=0x001e, h01=0x0050, text=» LDKL A1,PF0A FIRST NUM 0 «, t00=0x00a9, t01=0x0172}
0x1096c…1098a (170, 0, 400) Head {h00=0x001a, h01=0x0050, text=» RF PFNXT NEXT NUMBER «, t00=0x00aa, t01=0x0004}
0x1098a…1099e Head {h00=0x0010, h01=0x0050, text=»PFEX10 EQU *«, t00=0x00aa, t01=0x0022}
0x1099e…109b0 Head {h00=0x000e, h01=0x0050, text=» SUK A2,1 «, t00=0x00aa, t01=0x0036}
0x109b0…109c6 Head {h00=0x0012, h01=0x0050, text=» RF(NZ) PFEX20«, t00=0x00aa, t01=0x0048}
0x109c6…109e8 Head {h00=0x001e, h01=0x0050, text=» LDKL A1,PF1A FIRST NUM 1 «, t00=0x00aa, t01=0x005e}
0x109e8…10a06 Head {h00=0x001a, h01=0x0050, text=» RF PFNXT NEXT NUMBER «, t00=0x00aa, t01=0x0080}
0x10a06…10a1a Head {h00=0x0010, h01=0x0050, text=»PFEX20 EQU *«, t00=0x00aa, t01=0x009e}
0x10a1a…10a2c Head {h00=0x000e, h01=0x0050, text=» SUK A2,1 «, t00=0x00aa, t01=0x00b2}
0x10a2c…10a4e Head {h00=0x001e, h01=0x0050, text=» RF(NZ) PFERR ILLEGAL NUM «, t00=0x00aa, t01=0x00c4}
0x10a4e…10a70 Head {h00=0x001e, h01=0x0050, text=» LDKL A1,PF2A FIRST NUM 2 «, t00=0x00aa, t01=0x00e6}
0x10a70…10a8e Head {h00=0x001a, h01=0x0050, text=» RF PFNXT NEXT NUMBER «, t00=0x00aa, t01=0x0108}
0x10a8e…10aa0 Head {h00=0x000e, h01=0x0050, text=»PF0A EQU *«, t00=0x00aa, t01=0x0126}
0x10aa0…10ab6 Head {h00=0x0012, h01=0x0050, text=» CM RDMORE,A11«, t00=0x00aa, t01=0x0138}
0x10ab6…10ad6 Head {h00=0x001c, h01=0x0050, text=» SUK A2,/31 ILLEGAL NUM?«, t00=0x00aa, t01=0x014e}
0x10ad6…10aee Head {h00=0x0014, h01=0x0050, text=» RF(N) PFERR YES«, t00=0x00aa, t01=0x016e}
0x10aee…10b0c Head {h00=0x001a, h01=0x0050, text=» SUK A2,9 ILLEGAL NUM?«, t00=0x00aa, t01=0x0186}
0x10b0c…10b26 Head {h00=0x0016, h01=0x0050, text=» RF(NN) PFERR YES «, t00=0x00ab, t01=0x0014}
0x10b26…10b46 Head {h00=0x001c, h01=0x0050, text=» ADK A2,/9+PFKEY PF1-PF9«, t00=0x00ab, t01=0x002e}
0x10b46…10b58 Head {h00=0x000e, h01=0x0050, text=» RF PFHAND«, t00=0x00ab, t01=0x004e}
0x10b58…10b6a Head {h00=0x000e, h01=0x0050, text=»PF1A EQU *«, t00=0x00ab, t01=0x0060}
0x10b6a…10b80 Head {h00=0x0012, h01=0x0050, text=» CM RDMORE,A11«, t00=0x00ab, t01=0x0072}
0x10b80…10ba0 Head {h00=0x001c, h01=0x0050, text=» SUK A2,/30 ILLEGAL NUM?«, t00=0x00ab, t01=0x0088}
0x10ba0…10bb8 Head {h00=0x0014, h01=0x0050, text=» RF(N) PFERR YES«, t00=0x00ab, t01=0x00a8}
0x10bb8…10bd8 Head {h00=0x001c, h01=0x0050, text=» SUK A2,/A ILLEGAL NUM? «, t00=0x00ab, t01=0x00c0}
0x10bd8…10bf2 Head {h00=0x0016, h01=0x0050, text=» RF(NN) PFERR YES «, t00=0x00ab, t01=0x00e0}
0x10bf2…10c18 Head {h00=0x0022, h01=0x0050, text=» ADK A2,/A+PFKEY+/9 PF10-PF19 «, t00=0x00ab, t01=0x00fa}
0x10c18…10c2a Head {h00=0x000e, h01=0x0050, text=» RF PFHAND«, t00=0x00ab, t01=0x0120}
0x10c2a…10c3c Head {h00=0x000e, h01=0x0050, text=»PF2A EQU *«, t00=0x00ab, t01=0x0132}
0x10c3c…10c52 Head {h00=0x0012, h01=0x0050, text=» CM RDMORE,A11«, t00=0x00ab, t01=0x0144}
0x10c52…10c72 Head {h00=0x001c, h01=0x0050, text=» SUK A2,/30 ILLEGAL NUM?«, t00=0x00ab, t01=0x015a}
0x10c72…10c8a Head {h00=0x0014, h01=0x0050, text=» RF(N) PFERR YES«, t00=0x00ab, t01=0x017a}
0x10c8a…10ca8 (172, 0, 400) Head {h00=0x001a, h01=0x0050, text=» SUK A2,5 ILLEGAL NUM?«, t00=0x00ac, t01=0x0004}
0x10ca8…10cc2 Head {h00=0x0016, h01=0x0050, text=» RF(NN) PFERR YES «, t00=0x00ac, t01=0x0022}
0x10cc2…10ce8 Head {h00=0x0022, h01=0x0050, text=» ADK A2,/5+PFKEY+/13 PF20-PF24«, t00=0x00ac, t01=0x003c}
0x10ce8…10cfc Head {h00=0x0010, h01=0x0050, text=»PFHAND EQU *«, t00=0x00ac, t01=0x0062}
0x10cfc…10d28 Head {h00=0x0028, h01=0x0050, text=» CF A14,DCABOR ABORT TEST MESSAGE =2«, t00=0x00ac, t01=0x0076}
0x10d28…10d58 Head {h00=0x002c, h01=0x0050, text=» CF A14,PF PROGRAM FUNCTION KEY HANDLING«, t00=0x00ac, t01=0x00a2}
0x10d58…10d6a Head {h00=0x000e, h01=0x0050, text=» RF PFRET «, t00=0x00ac, t01=0x00d2}
0x10d6a…10d7e Head {h00=0x0010, h01=0x0050, text=»PFNXT EQU * «, t00=0x00ac, t01=0x00e4}
0x10d7e…10d98 Head {h00=0x0016, h01=0x0050, text=» ST A1,RDMORE,A11 «, t00=0x00ac, t01=0x00f8}
0x10d98…10daa Head {h00=0x000e, h01=0x0050, text=» RF PFRET «, t00=0x00ac, t01=0x0112}
0x10daa…10dbe Head {h00=0x0010, h01=0x0050, text=»PFERR EQU * «, t00=0x00ac, t01=0x0124}
0x10dbe…10dd4 Head {h00=0x0012, h01=0x0050, text=» CF A14,ERROR «, t00=0x00ac, t01=0x0138}
0x10dd4…10de8 Head {h00=0x0010, h01=0x0050, text=»PFRET EQU * «, t00=0x00ac, t01=0x014e}
0x10de8…10df8 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x00ac, t01=0x0162}
0x10df8…10e04 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00ac, t01=0x0172}
0x10e04…10e12 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x00ac, t01=0x017e}
0x10e12…10e1a Head {h00=0x0004, h01=0x0050, t00=0x00ac, t01=0x018c}
0x10e1a…10e5c (173, 0, 400) Head {h00=0x003e, h01=0x0050, text=»**********************************************************«, t00=0x00ad, t01=0x0004}
0x10e5c…10e9e Head {h00=0x003e, h01=0x0050, text=»* *«, t00=0x00ad, t01=0x0046}
0x10e9e…10ee0 Head {h00=0x003e, h01=0x0050, text=»* RETURN RETURN *«, t00=0x00ad, t01=0x0088}
0x10ee0…10f22 Head {h00=0x003e, h01=0x0050, text=»* *«, t00=0x00ad, t01=0x00ca}
0x10f22…10f66 Head {h00=0x0040, h01=0x0050, text=»*********************************************************** «, t00=0x00ad, t01=0x010c}
0x10f66…10f82 Head {h00=0x0018, h01=0x0050, text=»* REGISTERS «, t00=0x00ad, t01=0x0150}
0x10f82…10f8c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00ad, t01=0x016c}
0x10f8c…10fa4 Head {h00=0x0014, h01=0x0050, text=»* A11= RESERVED «, t00=0x00ad, t01=0x0176}
0x10fa4…10fbc Head {h00=0x0014, h01=0x0050, text=»* A13= RESERVED «, t00=0x00ad, t01=0x018e}
0x10fbc…10fc6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00ae, t01=0x0016}
0x10fc6…11006 Head {h00=0x003c, h01=0x0050, text=»********************************************************«, t00=0x00ae, t01=0x0020}
0x11006…1101a Head {h00=0x0010, h01=0x0050, text=»RETURN EQU *«, t00=0x00ae, t01=0x0060}
0x1101a…1102a Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x00ae, t01=0x0074}
0x1102a…11032 Head {h00=0x0004, h01=0x0050, t00=0x00ae, t01=0x0084}
0x11032…1103e Head {h00=0x0008, h01=0x0004, text=» END«, t00=0x00ae, t01=0x008c}
0x1103e…11042 Head {h00=0x4004, h01=0x0000}
0x11042…11046 00 ae 00 98 ┆ ┆
0x11046…1104e (175, 1, 8) 20 04 00 00 00 af 00 04 ┆ ┆
0x1104e…1109e (176, 0, 400) 46 43 46 46 00 e7 01 86 00 20 00 50 5c 45 43 52 5c 41 32 2c 41 32 5c 43 4e 44 20 57 4f 52 44 20 46 52 4f 4d 20 50 52 47 00 e8 00 0c 00 1e 00 50 5c 4f 52 52 5c 41 31 2c 41 32 5c 43 4e 44 20 57 52 44 20 43 48 41 4e 47 45 44 00 e8 00 30 00 1e ┆FCFF P ECR A2,A2 CND WORD FROM PRG P ORR A1,A2 CND WRD CHANGED 0 ┆
0x1109e…110ee 00 50 5c 53 54 5c 41 31 2c 36 2c 41 35 5c 53 54 4f 52 45 20 49 4e 20 53 54 41 43 4b 00 e8 00 52 00 0c 00 50 5c 52 54 4e 5c 41 35 20 00 e8 00 74 00 0a 00 50 5c 45 4a 45 43 54 00 e8 00 84 00 16 00 50 5c 49 46 54 5c 44 43 4d 2d 4d 4d 55 4d 55 ┆ P ST A1,6,A5 STORE IN STACK R P RTN A5 t P EJECT P IFT DCM-MMUMU┆
0x110ee…1113e 58 3d 2d 32 00 e8 00 92 00 16 00 50 42 55 46 41 44 52 5c 45 51 55 5c 2a 5c 5c 3d 4d 4d 55 00 e8 00 ac 00 08 00 50 5c 49 4e 48 00 e8 00 c6 00 2a 00 50 5c 53 55 4b 4c 5c 41 31 35 2c 33 32 5c 41 44 4a 55 53 54 20 53 54 41 43 4b 50 4f 49 4e 54 ┆X=-2 PBUFADR EQU * =MMU P INH * P SUKL A15,32 ADJUST STACKPOINT┆
0x1113e…1118e 45 52 5c 3d 4d 4d 55 20 00 e8 00 d2 00 2e 00 50 5c 54 53 5c 32 2c 41 31 35 5c 53 41 56 45 20 4d 4d 55 20 52 45 47 49 53 54 45 52 53 20 4f 4e 20 53 54 41 43 4b 5c 3d 4d 4d 55 00 e8 01 00 00 28 00 50 5c 4c 44 5c 41 33 2c 44 57 54 54 41 42 2c ┆ER =MMU . P TS 2,A15 SAVE MMU REGISTERS ON STACK =MMU ( P LD A3,DWTTAB,┆
0x1118e…111de 41 37 5c 54 54 41 42 20 41 44 44 52 45 53 53 5c 3d 3d 4d 4d 55 20 00 e8 01 32 00 2a 00 50 5c 54 4c 5c 54 54 42 3a 4d 54 2c 41 33 5c 4c 4f 41 44 20 4d 4d 55 20 52 45 47 49 53 54 45 52 53 5c 3d 4d 4d 55 20 00 e8 01 5e 00 2a 00 50 5c 4c 44 5c ┆A7 TTAB ADDRESS ==MMU 2 * P TL TTB:MT,A3 LOAD MMU REGISTERS =MMU ^ * P LD ┆
0x111de…1122e (177, 0, 400) 41 34 2c 44 57 54 55 45 43 2c 41 37 5c 55 53 45 52 20 45 43 42 20 41 44 44 52 45 53 53 5c 3d 4d 4d 55 00 e8 01 8c 00 2c 00 50 5c 45 4c 5c 41 34 2c 45 43 42 42 41 2c 41 34 5c 55 53 45 52 20 42 55 46 46 45 52 20 41 44 44 52 45 53 53 5c 3d 4d ┆A4,DWTUEC,A7 USER ECB ADDRESS =MMU , P EL A4,ECBBA,A4 USER BUFFER ADDRESS =M┆
0x1122e…1127e 4d 55 00 e9 00 2a 00 1c 00 50 5c 4c 44 52 5c 41 31 2c 41 34 5c 53 41 56 45 20 49 54 5c 3d 4d 4d 55 20 00 e9 00 5a 00 38 00 50 5c 41 4e 4b 4c 5c 41 34 2c 2f 46 46 46 5c 47 45 54 20 54 57 45 4c 56 45 20 4c 45 41 53 54 20 53 49 47 4e 49 46 49 ┆MU * P LDR A1,A4 SAVE IT =MMU Z 8 P ANKL A4,/FFF GET TWELVE LEAST SIGNIFI┆
0x1127e…112ce 43 41 4e 54 20 42 49 54 53 5c 3d 4d 4d 55 00 e9 00 7a 00 2a 00 50 5c 53 52 4c 5c 41 31 2c 31 31 5c 47 45 54 20 49 4e 44 45 58 20 49 4e 20 4d 4d 55 20 54 41 42 4c 45 5c 3d 4d 4d 55 00 e9 00 b6 00 28 00 50 5c 41 44 52 5c 41 33 2c 41 31 5c 41 ┆CANT BITS =MMU z * P SRL A1,11 GET INDEX IN MMU TABLE =MMU ( P ADR A3,A1 A┆
0x112ce…1131e 44 44 20 54 4f 20 54 54 41 42 20 41 44 44 52 45 53 53 5c 3d 4d 4d 55 20 00 e9 00 e4 00 36 00 50 5c 4c 44 5c 41 31 2c 54 54 42 3a 4d 54 2c 41 33 5c 47 45 54 20 43 4f 4e 54 45 4e 54 53 20 46 52 4f 4d 20 4d 4d 55 20 54 41 42 4c 45 5c 3d 4d 4d ┆DD TO TTAB ADDRESS =MMU 6 P LD A1,TTB:MT,A3 GET CONTENTS FROM MMU TABLE =MM┆
0x1131e…1136e 55 20 00 e9 01 10 00 36 00 50 5c 41 4e 4b 4c 5c 41 31 2c 2f 46 43 30 30 5c 47 45 54 20 53 49 58 20 4d 4f 53 54 20 53 49 47 4e 49 46 49 43 41 4e 54 20 42 49 54 53 5c 3d 4d 4d 55 20 00 e9 01 4a 00 1c 00 50 5c 4c 44 52 5c 41 33 2c 41 31 5c 53 ┆U 6 P ANKL A1,/FC00 GET SIX MOST SIGNIFICANT BITS =MMU J P LDR A3,A1 S┆
0x1136e…113be (178, 0, 400) 41 56 45 20 49 54 5c 3d 4d 4d 55 20 00 e9 01 84 00 36 00 50 5c 53 4c 4c 5c 41 31 2c 32 5c 47 45 54 20 42 49 54 53 20 31 32 2d 31 35 20 4f 46 20 50 48 59 53 49 43 41 4c 20 41 44 44 52 45 53 53 5c 3d 4d 4d 55 20 00 ea 00 14 00 34 00 50 5c 4f ┆AVE IT =MMU 6 P SLL A1,2 GET BITS 12-15 OF PHYSICAL ADDRESS =MMU 4 P O┆
0x113be…1140e 52 52 5c 41 34 2c 41 31 5c 43 4f 4d 42 49 4e 45 20 49 54 20 57 49 54 48 20 4c 4f 43 49 43 41 4c 20 41 44 44 52 45 53 53 5c 3d 4d 4d 55 20 00 ea 00 4e 00 3c 00 50 5c 41 4e 4b 4c 5c 41 33 2c 2f 43 30 30 30 5c 47 45 54 20 42 49 54 53 20 31 36 ┆RR A4,A1 COMBINE IT WITH LOCICAL ADDRESS =MMU N < P ANKL A3,/C000 GET BITS 16┆
0x1140e…1145e 20 41 4e 44 20 31 37 20 4f 46 20 50 48 59 53 49 43 41 4c 20 41 44 44 52 2e 5c 3d 4d 4d 55 00 ea 00 86 00 38 00 50 5c 53 52 4c 5c 41 33 2c 31 5c 50 55 54 20 49 4e 20 52 49 47 48 54 20 50 4f 53 49 54 49 4f 4e 20 46 4f 52 20 57 45 52 20 49 4e ┆ AND 17 OF PHYSICAL ADDR. =MMU 8 P SRL A3,1 PUT IN RIGHT POSITION FOR WER IN┆
0x1145e…114ae 53 54 52 2e 5c 3d 4d 4d 55 20 00 ea 00 c6 00 12 00 50 5c 52 54 4e 5c 41 35 5c 5c 3d 4d 4d 55 20 00 ea 01 02 00 08 00 50 5c 58 49 46 00 ea 01 18 00 0a 00 50 5c 45 4a 45 43 54 00 ea 01 24 00 06 00 50 2a 20 00 ea 01 32 00 06 00 50 2a 20 00 ea ┆STR. =MMU P RTN A5 =MMU P XIF P EJECT $ P* 2 P* ┆
0x114ae…114fe 01 3c 00 26 00 50 2a 5c 53 54 41 52 54 20 41 43 54 49 56 49 54 59 20 53 55 50 45 52 56 49 53 4f 52 59 20 54 49 4d 45 52 00 ea 01 46 00 06 00 50 2a 20 00 ea 01 70 00 1e 00 50 2a 5c 49 4e 50 55 54 3a 20 41 36 20 3d 20 44 57 54 20 41 44 44 52 ┆ < & P* START ACTIVITY SUPERVISORY TIMER F P* p P* INPUT: A6 = DWT ADDR┆
0x114fe…1154e (179, 0, 400) 45 53 53 20 00 ea 01 7a 00 06 00 50 2a 20 00 eb 00 0c 00 16 00 50 2a 5c 44 45 53 54 52 4f 59 53 3a 20 41 31 2c 20 41 34 00 eb 00 16 00 06 00 50 2a 20 00 eb 00 30 00 06 00 50 2a 20 00 eb 00 3a 00 10 00 50 53 55 50 54 49 4d 5c 45 51 55 5c 2a ┆ESS z P* P* DESTROYS: A1, A4 P* 0 P* : PSUPTIM EQU *┆
0x1154e…1159e 00 eb 00 44 00 18 00 50 5c 4c 44 52 5c 41 31 2c 41 36 5c 50 41 52 41 4d 45 54 45 52 00 eb 00 58 00 0e 00 50 5c 4c 44 52 5c 41 34 2c 41 36 00 eb 00 74 00 28 00 50 5c 41 44 4b 5c 41 34 2c 44 57 54 41 54 50 5c 54 49 4d 45 52 20 50 4f 49 4e 54 ┆ D P LDR A1,A6 PARAMETER X P LDR A4,A6 t ( P ADK A4,DWTATP TIMER POINT┆
0x1159e…115ee 45 52 20 41 44 44 52 45 53 53 00 eb 00 86 00 08 00 50 5c 49 4e 48 00 eb 00 b2 00 1e 00 50 5c 43 46 5c 41 31 35 2c 53 45 54 49 4d 50 5c 53 54 41 52 54 20 54 49 4d 45 52 00 eb 00 be 00 30 00 50 5c 44 41 54 41 5c 4f 4c 49 31 35 39 2c 54 49 4d ┆ER ADDRESS P INH P CF A15,SETIMP START TIMER 0 P DATA OLI159,TIM┆
0x115ee…1163e 41 43 54 5c 41 43 54 20 41 44 44 52 45 53 53 2c 20 54 49 4d 45 52 20 56 41 4c 55 45 00 eb 00 e0 00 0c 00 50 5c 52 54 4e 5c 41 35 20 00 eb 01 14 00 0a 00 50 5c 45 4a 45 43 54 00 eb 01 24 00 06 00 50 2a 20 00 eb 01 32 00 06 00 50 2a 20 00 eb ┆ACT ACT ADDRESS, TIMER VALUE P RTN A5 P EJECT $ P* 2 P* ┆
0x1163e…1168e 01 3c 00 20 00 50 2a 5c 53 54 41 52 54 20 50 4f 4c 4c 2d 49 4e 41 43 54 49 56 45 20 54 49 4d 45 52 20 00 eb 01 46 00 06 00 50 2a 20 00 eb 01 6a 00 22 00 50 2a 5c 49 4e 50 55 54 3a 20 41 32 3d 20 49 4e 44 45 58 20 49 4e 20 50 4f 4c 4c 49 53 ┆ < P* START POLL-INACTIVE TIMER F P* j " P* INPUT: A2= INDEX IN POLLIS┆
0x1168e…116de (180, 0, 400) 54 20 00 eb 01 74 00 1c 00 50 2a 5c 20 20 20 20 20 20 20 41 33 3d 20 44 57 54 20 41 44 44 52 45 53 53 00 ec 00 0a 00 06 00 50 2a 20 00 ec 00 2a 00 1e 00 50 2a 5c 20 20 20 20 20 20 20 44 45 53 54 52 4f 59 53 20 41 31 2c 41 33 2c 41 34 00 ec ┆T t P* A3= DWT ADDRESS P* * P* DESTROYS A1,A3,A4 ┆
0x116de…1172e 00 34 00 06 00 50 2a 20 00 ec 00 56 00 10 00 50 53 45 54 50 4c 54 5c 45 51 55 5c 2a 00 ec 00 60 00 2e 00 50 5c 43 46 5c 41 31 35 2c 47 45 54 42 4c 4b 5c 41 33 2c 20 41 32 20 53 54 4f 52 45 44 20 49 4e 20 44 41 54 41 20 42 4c 4f 43 4b 00 ec ┆ 4 P* V PSETPLT EQU * ` . P CF A15,GETBLK A3, A2 STORED IN DATA BLOCK ┆
0x1172e…1177e 00 74 00 24 00 50 5c 4c 44 52 5c 41 31 2c 41 34 5c 53 41 56 45 20 41 44 44 52 45 53 53 20 54 4f 20 42 4c 4f 43 4b 00 ec 00 a6 00 1e 00 50 5c 4c 44 52 5c 41 34 2c 41 36 5c 47 45 54 20 44 57 54 20 41 44 44 52 45 53 53 00 ec 00 ce 00 20 00 50 ┆ t $ P LDR A1,A4 SAVE ADDRESS TO BLOCK P LDR A4,A6 GET DWT ADDRESS P┆
0x1177e…117ce 5c 41 44 52 5c 41 34 2c 41 32 5c 47 45 54 20 45 4e 54 52 59 20 41 44 44 52 45 53 53 00 ec 00 f0 00 1c 00 50 5c 41 44 4b 5c 41 34 2c 50 4c 49 53 54 5c 49 4e 20 50 4f 4c 4c 49 53 54 00 ec 01 14 00 30 00 50 5c 4c 44 4b 4c 5c 41 33 2c 2f 42 46 ┆ ADR A4,A2 GET ENTRY ADDRESS P ADK A4,PLIST IN POLLIST 0 P LDKL A3,/BF┆
0x117ce…1181e 46 46 5c 52 45 53 45 54 20 42 49 54 20 31 20 4f 46 20 41 44 44 52 45 53 53 45 44 20 57 4f 52 44 00 ec 01 34 00 2e 00 50 5c 41 4e 52 53 5c 41 33 2c 41 34 5c 49 4e 20 50 4f 4c 4c 49 53 54 20 28 50 4f 4c 4c 2d 41 43 54 49 56 45 20 46 4c 41 47 ┆FF RESET BIT 1 OF ADDRESSED WORD 4 . P ANRS A3,A4 IN POLLIST (POLL-ACTIVE FLAG┆