|
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: 71808 (0x11880)
Notes: pts_type(SC)
Names: »KEYB1.SC«
└─⟦7a1dcd5a9⟧ Bits:30009673 Philips computer tape "600134"
└─⟦this⟧ »PT3272/KEYB1.SC«
IDENT KEYB1 REL 11.0 DK 831110 NJ 870150541100 DK3 PA 4-9 830113 NJ DK2 RESTORE A1 AFTER DC ABRT DK1,ERASE ONE LINE 'EOF' =3 ERASE TO END OF FIELD =2 TWO DC-LINES 82-02-28 =1, SYSTEM MODE CURSOR 81-01-26 *************************************************************** * * * MODULE KEYB * * MODULE HANDLING THE KEYBOARD DEVICE * * (EMULATION 3270 SNA/SDLC, BSC) * * * *************************************************************** EJECT *************************************************************** * * * LIST OF ROUTINES * * * * KBINP MAIN ROUTINE * * CPLKB KB-COMPLETION TABLE FOR DIFF. MODES * * KBCPLO KB-COMPLETION ROUTINE IN LOCAL MODE * KBCPSY KB-COMPLETION ROUTINE IN SYSTEM MODE * * KBCPJO KB-COMPLETION ROUTINE IN MY JOB MODE * * READKB READ KEYBOARD WITH NO WAIT * * RESKB RESET KEYBOARD-BUFFER * * ICVRED KB/VDU INTERTASK READ * ICINP INTERTASK INPUT * ICSET SET INTERTASK TIMEOUT * ICREAD READ INTERTASK * ICWRT WRITE INTERTASK * ERROR ILLEGAL KEY-HANDLING * * LAMPROUTINES * * SDISP SIGNAL ROUTINE * * KEYTAB KEY-TABLE, FIXED ENTRY FOR EACH FUNC. * * CHAR ALPHA. CHAR HANDLING * * NUM NUM. CHAR HANDLING * * ANCOMM ALPHANUM. CHAR HANDLING * * CURMOV MOVE CURSOR ON SCREEN * * BAKTAB TAB. UNPROT. BACKWARDS * * TAB TAB. UNPROT. FORWARDS * * CRNL TAB. UNPROT. NEXT LINE * * RDHOME TAB. UNPROT. FIRST ON SCREEN * * EREOF ERASE TO END OF FIELD * * ERINPT ERASE UNPROT. ENTIRE SCREEN * * INSERT INSERT HANDLING * * DELETE DELETE HANDLING * * RESET RESET HANDLING * * DUP DUPLICATE HANDLING * * FLDMRK FIELDMARK HANDLING * * ZERO:2,3 DOUBLE & TRIPLE ZERO HANDLING * * OFLINE OFFLINE HANDLING * * MFCHGE MAIN FRAME CHANGE * * COPY LOCAL HARDCOPY * * IDENT PRINTER IDENT. HANDLING * * KEYL KEYLOCK STATUS HANDLING * * TESTM TEST MODE * ENTER ENTER HANDLING * * CLEAR CLEAR HANDLING * * SYSREQ SYSTEM REQUEST HANDLING * * ATTN ATTENTION HANDLING * * PA PROGRAM ACCESS HANDLING * * PF PROGRAM FUNCTION HANDLING * * RETURN RETURN * * * *************************************************************** EJECT *************************************************** * * * ENTRY POINTS * * * **************************************************** ENTRY KBINP,KBINP2 START LABEL FOR MODULE ENTRY READKB,READK2 READ KEYBOARD ENTRY RESKB RESET KEYBOARD BUFFER ENTRY LMP1ON LAMPROUTINES ENTRY LMP1OF . ENTRY LMP2ON . ENTRY LMP2OF . ENTRY LMP3ON . ENTRY LMP3OF . ENTRY LMP4ON . ENTRY LMP4OF . ENTRY LMP5ON . ENTRY LMP5OF . ENTRY LMP6ON . ENTRY LMP6OF . ENTRY RDHOME TAB. UNPROTECTED FIRST ON SCREEN ENTRY COPY LOCAL HARDCOPY ENTRY ERROR ERROR INDICATION ENTRY TAB TAB FOREWARD UNPROTECTED ENTRY CRDOWN MOVE CURSOR DOWN ONE LINE ENTRY ICVRED VDU INTERTASK READ ENTRY ICINP INTERTASK INPUT ENTRY ICSET SET INTERTASK TIMEOUT ENTRY ICWRT WRITE INTERTASK ENTRY ICREAD READ INTERTASK EJECT ****************************************************** * * * EXTERNAL REFERENCES * * * ****************************************************** EXTRN I:RT1 RETURN TO CREDIT CODE EXTRN ATMASB SEARCH ATTRIBUTE BACKWARDS (VDU) EXTRN ATMASF SEARCH ATTRIBUTE FORWARD (VDU) EXTRN DCABOR ABORT DC-REQUEST (DCSNA,DCBSC) EXTRN ERASE ERASE ENTIRE SCREEN (VDU) EXTRN ERASUA ERASE ALL UNPROTECTED TO ADDRESS (VDU) EXTRN ERASUP ERASE ALL UNPROTECTED (VDU) EXTRN TRPA TRANSMIT SHORT READ (DCSNA,DCBSC) EXTRN TRPF TRANSMIT MODIFIED READ (DCSNA,DCBSC) EXTRN TSTSTA TEST STATUS (DCSNA,DCBSC) EXTRN WCHAR DISPLAY CHAR. AND CURSOR (VDU) EXTRN SOUND SOUND ALARM ON DISPLAY (VDU) EXTRN SCRINF GET SCREEN INFORMATION (VDU) EXTRN STOINF SAVE SCREEN INFORMATION (VDU) EXTRN GETVDU GET CHAR. IN VDU BUFFER (VDU) EXTRN STOVDU STORE CHAR. IN VDU BUFFER (VDU) EXTRN DISCHA DISPLAY CHAR. (VDU) EXTRN POSUNP MOVE CURSOR TO NEXT UNPR. POS. (VDU) EXTRN INSMOD INSERT MODE ROUTINE (VDU) EXTRN DCOFLN INDICATE OFFLINE TO DC (DCSNA,DCBSC) EXTRN DISMOD DISPLAY MODIFIED FIELDS (VDU) EXTRN CONPF CONVERT PF-KEY TABLE (CONVER) EXTRN OPSYS OPEN SYSTEM (DCSNA,DCBSC) EXTRN LINE GET LINE FLAG (VDU) EXTRN SAVE1 SAVE1 REGISTERS (PAD) EXTRN REST1 REST1E REGISTERS (PAD) EXTRN DISID DISPLAY HARDCOPY TASKID EXTRN GETBUF GET BUFFER (PAD) EXTRN RELBUF RELEASE BUFFER (PAD) EXTRN DISSTA DISPLAY STATISTICS (VDU) EXTRN RDSTAT READ STATISTICS (DCBSC) EXTRN CHKSTA CHECK LINE STATUS (DCBSC,DCSNA) EXTRN SETSTA SET STATUS (DCSNA) EXTRN CONCT CONNECT (DCXXX) =2 EXTRN DISCON DISCONNECT (DCXXX) =2 EJECT ************************************************************* * * * CONDITIONAL ASSEMBLY PARAMETERS * * * ************************************************************* X:A EQU 0 SNA HANDLING INCLUDED IF:=1 SNA EQU 0 X:C EQU 0 OFFLINE HANDLING IF :=1 OFLIN EQU 0 X:D EQU 1 NUMBER OF LINES (1-2) NBRLIN EQU 2 X:F EQU 0 KEY-LOCK STATUS IF:=1 KEYLST EQU 0 X:G EQU 0 PF KEY HANDLING IF:=1 PFX EQU 1 X:H EQU 0 PA KEY HANDLING IF :=1 PAX EQU 1 X:I EQU 1 INSERT/DELETE HANDLING IF :=1 IN:DL EQU 1 X:J EQU 1 KB6272 INCLUDED IF :=1 KB6272 EQU 1 X:M EQU 0 COPY COMMAND INCLUDED IF:=1 COPCMD EQU 1 X:O EQU 0 TEST MODE INCLUDED IF:=1 TEST EQU 0 X:P EQU 0 COPY LOCK FUNCTION INCLUDED IF:=1 COPL EQU 0 EJECT *************************************************************** * * * DECLARATIONS OF DATA AND EQUATES * * *************************************************************** * * PREDEFINED KEYS * CRUP EQU /80 FIRST "MOVE CURSOR " KEY ERFKEY EQU /88 ERASE TO END OF FIELD-KEY ERIKEY EQU /89 ERASE ALL UNPROT. RSET EQU /8C RESET KEY IDKEY EQU /93 IDENT KEY FKLKEY EQU /94 FIRST KEYLOCK VALUE LKLKEY EQU /9C LAST KEYLOCK VALUE FIPA EQU /9F FIRST PROGRAM ATTN. KEY ENTKEY EQU /A0 ENTER KEY SYSKEY EQU /A1 SYSTEM REQUEST KEY CLRKEY EQU /A2 CLEAR KEY PFKEY EQU /B1 PROGRAM FUNTION KEY LAKEY EQU /C9 LAST KEY IN KEY-TABLE * * EQUATES FOR ECB HANDLING * ECBBA EQU 2 BUFFER ADDRESS ECBRL EQU 4 REQUESTED LENGTH ECBEL EQU 6 EFFECTIVE LENGTH ECBRC EQU 8 RETURN CODE ECBCW EQU 10 CONTROL WORD ECBCW2 EQU 12 CONTROL WORD TWO DK * * SPECIAL CHARACTERS * NULL EQU 0 NULL CHAR. DUPCH EQU /1C DUPLICATE CHAR. FMCH EQU /1E FIELD MARK CHAR. * * LAMPCONSTANTS * LON EQU /B7 LOF EQU /B8 LFL EQU /B9 FLASH IFT KB6272=1 LAMP1 EQU /20 LAMP2 EQU /10 LAMP3 EQU 8 LAMP4 EQU 4 LAMP5 EQU 2 LAMP6 EQU 1 XIF IFF KB6272=1 LAMP1 EQU 0 LAMP2 EQU 0 LAMP3 EQU 1 LAMP4 EQU 2 LAMP5 EQU 4 LAMP6 EQU 8 XIF * * VDU SCREEN SIZE * LLINE EQU 80 LINE LENGTH LBVDU EQU 1920 TOTAL SIZE * * MODES * NEWMOD EQU /8000 NEW MODE HCPMOD EQU /4000 HARDCOPY OUTSTANDING MYJOB EQU /0004 MY JOB MODE SYSOP EQU /0002 SYSTEM OPERATOR MODE LOCMOD EQU /0000 LOCAL MODE * * TASK IDENTIFICATION CODE * VDUCOD EQU 'VV' VDU KB TASK EJECT * * RELATIVE ADDRESSES IN * TERMINAL WORKBLOCK * BVDU EQU 2 VDU SCREEN BUFFER LINFLG EQU BVDU+1920 LINE FLAGS WCC EQU LINFLG+30 WCC CHAR. KBINH EQU WCC+2 KEYBOARD INHIBIT INDICATOR OFFFLG EQU KBINH+8 OFFLINE FLAG PRTID EQU OFFFLG+2 HARDCOPY PRINTER MAIN EQU PRTID+6 MAIN FRAME MODE EQU MAIN+2 INSERT MODE SWITCH KEYS EQU MODE+2 KEY LOCK STATUS RDMORE EQU KEYS+12 BRANCH ADDRESS TO NEXT KB-KEY CURPOS EQU RDMORE+2 CURSOR POS. IN SYSTEM MODE REGI EQU CURPOS+4 SAVE AREA SNAMOD EQU REGI+32 SNA MODE BSCMOD EQU SNAMOD BSC MODE ECBKB EQU BSCMOD+2 ECB KB ECBSD EQU ECBKB+4 ECB SIGNAL DISPLAY ECBICR EQU ECBSD+4 ECB INTERTASK READ ECBICW EQU ECBICR+2 ECB INTERTAS WRITE ECBKB2 EQU ECBICW+6 ECB 2ND KEYBOARD DK * * RELATIVE ADDRESSES IN * COMMON WORKBLOCK * IFF TEST=1 TSKTAB EQU 26 TASK TABLE XIF IFT TEST=1 TSKTAB EQU 219 TASK TABLE XIF EJECT **************************************************************** * * * KBINP MAIN ROUTINE * * * **************************************************************** * REGISTERS * * A2= KEY-CHAR. * A3= KEY-TABLE INDEX * A4= RESERVED * A5= RESERVED * A6= RESERVED * A7= KEY-HANDLING INDICATOR * A11= CREDIT WORK AREA * A13= RESERVED * *********************************************************** KBINP2 EQU * LDK A1,1 INDICATE 2ND KEYBOARD PRESENT DK ST A1,ECBCW2,A8 DK KBINP EQU * LD A1,ECBRC,A8 POWER ON? RF(Z) KBIN90 YES, SKIP IT IFT KEYLST=0 LD A1,ECBCW,A8 SEE IF KEYLOCK ? DK RF(N) KBIN80 SKIP IT DK XIF IFT KEYLST=1 LC* A2,ECBBA,A8 GET KEYLOCK VALUE ADKL A2,FKLKEY-/70 PREPARE FOR TABLE SC* A2,ECBBA,A8 RESTORE XIF LD A1,ECBRC,A8 ERROR? ANKL A1,/FFF3 RF(NZ) KBIN80 YES LD A1,KBINH,A11 ANK A1,1 KB TOTALY INHIBIT? RF(NZ) KBIN80 YES LC* A2,ECBBA,A8 GET INPUT CHAR. ANK A2,/FF LD A1,KBINH,A11 ANK A1,6 MUST BE A RESET KEY? RF(Z) KBIN30 NO CWK A2,RSET RESET KEY? IFT SNA=1 RF(E) KBIN30 YES CWK A2,SYSKEY SYSTEM REQUEST KEY? XIF RF(NE) KBIN80 NO KBIN30 EQU * LDR A3,A2 SUK A3,/20 INDEX TO KEY-TABLE RF(N) KBIN80 ILLEGAL CHAR CWK A2,LAKEY RF(G) KBIN80 ILLEGAL CHAR IFT SNA=1 LD A1,SNAMOD,A11 GET SNA MODE ANK A1,/FF CFI A14,CPLKB,A1 COMPLETE KB IN CURRENT MODE XIF IFF SNA=1 LDK A7,0 CWK A2,FIPA PROGRAM ATTN KEY? RF(L) KBIN40 NO CM MODE,A11 CF A14,LMP6OF CLEAR INSERT MODE CF A14,DCABOR KBIN40 EQU * XIF LDR A7,A7 ANY KEY-HANDLING RF(NZ) KBIN80 NO ADR A3,A3 PREPARE FOR KEY-TABLE LD A1,RDMORE,A11 KEY IN SEQUENCE? RF(Z) KBIN50 NO CF A14,DCABOR KILL DC AGAIN DK LD A1,RDMORE,A11 RESTORE A1 DK2 CFR A14,A1 CONTINUE AT SAVED LABEL RF KBIN90 KBIN50 EQU * CFI A14,KEYTAB,A3 BRANCH TO RESP. KEY-HANDLER RF KBIN90 KBIN80 EQU * CF A14,RESKB RESET KB BUFFER KBIN90 EQU * RTN A14 EJECT IFT SNA=1 ********************************************************************* * * * CPLKB KB-COMPLETION TABLE * * * ********************************************************************* CPLKB EQU * DATA KBCPLO KB-COMPL. IN LOCAL MODE DATA KBCPSY KB-COMPL. IN SYSTEM MODE DATA KBCPJO KB-COMPL. IN MY JOB MODE EJECT ********************************************************************* * * * KBCLO KB-COMPLETION IN LOCAL MODE * * * ********************************************************************* * REGISTERS * * A2= KEY-CHAR * A3= KEY-TABLE INDEX * A4= RESERVED * A5= RESERVED * A6= RESERVED * A7= KEY-HANDLING INDICATOR * A11= CREDIT WORK AREA * A13= RESERVED * *********************************************************** KBCPLO EQU * LDK A7,0 INDICATE KEY-HANDLING CWK A2,FIPA PROGRAM ATTN, KEY? RF(NG) KBCL90 NO LDK A7,1 NO KEY-HANDLING CWK A2,SYSKEY SYSTEM REQUEST? RF(NE) KBCL80 NO CF A14,OPSYS START COMMUNICATION CF A14,TSTSTA TEST STATUS ANKL A1,/101 ACTIVE? RF(NZ) KBCL90 NO LDK A1,SYSOP INDICATE SYSTEM MODE ORKL A1,/8000 INDICATE MODE ACTIVATION ST A1,SNAMOD,A11 RF KBCL90 KBCL80 EQU * CWK A2,ENTKEY ENTER KEY? RF(NE) KBCL85 NO LD A1,RDMORE,A11 INSIDE IDENT ROUTINE? RF(Z) KBCL85 NO LDK A7,0 INDICATE KEY-HANDLING RF KBCL90 KBCL85 EQU * CF A14,ERROR ILLEGAL KEY KBCL90 EQU * RTN A14 EJECT ******************************************************************** * * * KBCPSY KB-COMPLETION IN SYSTEM MODE * * * ******************************************************************** * REGISTERS * * A2= KEY-CHAR * A3= KEY-TABLE INDEX * A4= RESERVED * A5= RESERVED * A6= RESERVED * A7= KEY-HANDLING INDICATOR * A11= CREDIT WORK AREA * A13= RESERVED * *********************************************************** KBCPSY EQU * LDK A7,0 INDICATE KEY-HANDLING CWK A2,FIPA PROGRAM ATTN. KEY? RF(L) KBCS20 NO CWK A2,CLRKEY UNALLOWED PROGRAM ATTN. KEY? RF(NE) KBCS10 NOT CLEAR KEY LDK A7,1 INDICATE NO KEY-HANDLING CF A14,ERASE ERASE ENTIRE SCREEN RF KBCS80 KBCS10 EQU * RF(G) KBCS70 YES CM MODE,A11 CF A14,LMP6OF CLEAR INSERT MODE CF A14,DCABOR ABORT DC RF KBCS80 KBCS20 EQU * CWK A2,ERIKEY ERASE INPUT KEY? RF(E) KBCS80 YES CWK A2,ERFKEY ERASE END OF FIELD KEY? RF(E) KBCS80 YES CWK A2,CRUP INITIATE CURSOR? =1 RF(NL) KBCS90 NO =1 LD A1,CURPOS,A11 CWK A1,/800 CURSOR INITIATED? RF(NE) KBCS90 YES CF A14,SCRINF GET SCREEN INFO. ST A4,CURPOS,A11 INITIATE CURSOR RF KBCS90 KBCS70 EQU * CF A14,ERROR INDICATE ERROR LDK A7,1 NO KEY-HANDLING RF KBCS90 KBCS80 EQU * LDKL A1,NEWMOD INDICATE MODE ACTIVATION ORS A1,SNAMOD,A11 KBCS90 EQU * RTN A14 EJECT ****************************************************************** * * * KBCPJO KB-COMPLETION IN MY JOB MODE * * * ****************************************************************** * REGISTERS * * A2= KEY-CHAR * A3= KEY-TABLE INDEX * A4= RESERVED * A5= RESRVED * A6= RESRVED * A7= KEY-HANDLING INDICATOR * A11= CREDIT WORK AREA * A13= RESERVED * ************************************************************ KBCPJO EQU * LDK A7,0 INDICATE KEY-HANDLING CWK A2,FIPA PROGRAM ATTN. KEY? RF(L) KBCJ90 NO IFT OFLIN=1 RF(E) KBCJ80 XIF IFT SNA=1 CM MODE,A11 CF A14,LMP6OF TURN OFF INSERT LAMP CF A14,DCABOR ABORT DC IFT OFLIN=1 RF KBCJ90 KBCJ80 EQU * CF A14,ERROR INDICATE ERROR LDK A7,1 NO KEY-HANDLING XIF IFT SNA=1 KBCJ90 EQU * RTN A14 XIF EJECT *************************************************************** * * * READKB READ KEYBOARD WITH NO WAIT * * * *************************************************************** * REGISTERS * * A8= KB-ECB * A11= CREDIT WORK AREA * A13= RESERVED * ***************************************************** READKB EQU * LD A8,ECBKB,A11 LDK A7,0 CLEAR ECBCW ST A7,ECBCW,A8 LDK A7,1 ST A7,ECBRL,A8 * NO POWER OF INDICATOR ,...DK 81-10-17 * LDK A7,2 STANDARD READ LKM DATA 1 RTN A14 ** READ FROM SECOND KEYBOARD, P & T, DK ** READK2 EQU * LD A8,ECBKB2,A11 GET ECB LDK A7,0 CLEAR ECBCW ST A7,ECBCW,A8 LDK A7,1 ST A7,ECBRL,A8 LDK A7,2 STANDARD READ LKM DATA 1 RTN A14 **END DK MODIFICATION ** EJECT *************************************************************** * * * RESKB RESET KEYBOARD BUFFER * * * *************************************************************** * REGISTERS * * A11= CREDIT WORK AREA * A13= RESERVED * ****************************************************** RESKB EQU * * REMOVED UNTIL NEEDED......DK, 811028....** RTN A14 EJECT *********************************************************** * * * ICVRED KB/VDU INTERTASK READ * * *********************************************************** * REGISTERS * * A2= RESERVED * A11= CREDIT WORK AREA * A13= RESERVED * *********************************************************** ICVRED EQU * LD A8,ECBICR,A11 CF A14,ICSET SET NO TIMEOUT IFF COPCMD=1 LD A1,PRTID,A11 XIF IFT COPCMD=1 LDK A1,0 UNADDRESSED XIF LDKL A3,REGI ADR A3,A11 LDK A2,2 LENGTH CF A14,ICREAD READ INTERTASK RTN A14 EJECT **************************************************************** * * * ICINP INTERTASK INPUT * * * **************************************************************** * REGISTERS * * A11= CREDIT WORK AREA * A13= RESERVED * **************************************************************** ICINP EQU * LD* A2,ECBBA,A8 IFT COPCMD=1 LDR A1,A2 COPY COMMAND? RF(NN) ICIN80 NO LDKL A3,BVDU BUFFER TO SEND ADR A3,A11 IFT COPL=1 LCR A2,A3 CHECK IF ALLOWED TO COPY CCK A2,/8000 ATTRIBUTE? RF(L) ICIN20 NO ANK A2,/20 PROTECTED? RF(NZ) ICIN90 YES DON'T COPY ICIN20 EQU * XIF IFT COPCMD=1 LD A2,ECBCW,A8 GET TO WHOM LD A8,ECBICW,A11 CF A14,ICSET SET TIMEOUT LDR A1,A2 LDKL A2,LBVDU+/20 LENGTH CF A14,ICWRT SEND IT AWAY LDKL A1,HCPMOD HARDCOPY OUTSTANDING ORS A1,BSCMOD,A11 RF ICIN90 ICIN80 EQU * XIF LDKL A1,HCPMOD RESET HARDCOPY OUTSTANDING IFT SNA=1 XRS A1,SNAMOD,A11 XIF IFF SNA=1 XRS A1,BSCMOD,A11 XIF ANK A2,1 PRINTER OK? RF(Z) ICIN90 YES ICIN90 EQU * RTN A14 EJECT *********************************************************** * * * ICSET SET INTERTASK TIMEOUT * * * *********************************************************** * REGISTERS * * A2= RESERVED * A8= INTERTASK ECB * A11= RESERVED * A13= RESERVED * ********************************************************** ICSET EQU * LDKL A1,-1 NO TIMEOUT ST A1,ECBCW,A8 LDK A7,/B9 SET TIMEOUT LKM DATA 1 RTN A14 EJECT ************************************************************* * * * ICREAD INTERTASK READ * * * ************************************************************** * REGISTERS * * A1= TASK ID * A2= LENGTH * A3= BUFFER ADDRESS * A8= INTETASK READ ECB * A11= RESERVED * A13= RESERVED * ************************************************************* ICREAD EQU * ST A1,ECBCW,A8 TASK ID ST A2,ECBRL,A8 LENGTH ST A3,ECBBA,A8 BUFFER ADDRESS LDK A7,/02 READ LKM DATA 1 RTN A14 EJECT *************************************************************** * * * ICWRT INTERTASK WRITE * * * *************************************************************** * REGISTERS * * A1= TASK ID * A2= LENGTH * A3= BUFFER ADDRESS * A8= INTERTASK WRITE ECB * A11= RESERVED * A13= RESERVED * **************************************************************** ICWRT EQU * ST A1,ECBCW,A8 TASK ID ST A2,ECBRL,A8 LENGTH ST A3,ECBBA,A8 BUFFER ADDRESS LDK A7,/86 WRITE LKM DATA 1 RTN A14 EJECT ******************************************************************* * * * ERROR ILLEGAL KEY-HANDLING * * * ******************************************************************* * REGISTERS * * A11= CREDIT WORK AREA * A13= RESERVED * ******************************************************* ERROR EQU * CF A14,LMP4ON TURN ON 'ERROR' LAMP LDK A1,4 RESET ALLOWED ORS A1,KBINH,A11 CF A14,SOUND TURN ON SOUND ALARM RTN A14 EJECT ************************************************************* * * * LAMPROUTINES * * * ************************************************************* LMP1ON LDK A1,LAMP1 RF LMPON LMP1OF LDK A1,LAMP1 RF LMPOF LMP2ON LDK A1,LAMP2 RF LMPON LMP2OF LDK A1,LAMP2 RF LMPOF LMP3ON LDK A1,LAMP3 RF LMPON LMP3OF LDK A1,LAMP3 RF LMPOF LMP4ON LDK A1,LAMP4 RF LMPON LMP4OF LDK A1,LAMP4 RF LMPOF LMP5ON LDK A1,LAMP5 RF LMPON LMP5OF LDK A1,LAMP5 RF LMPOF LMP5FL LDK A1,LAMP5 RF LMPFL LMP6ON LDK A1,LAMP6 RF LMPON LMP6OF LDK A1,LAMP6 RF LMPOF * LMPON LDK A7,LON RF SDISP LMPOF LDK A7,LOF RF SDISP LMPFL LDK A7,LFL RF SDISP EJECT ************************************************************* * * * SDISP SIGNAL ROUTINE * * * ************************************************************* * REGISTERS * * A8= SIGNAL ECB * A11= CREDIT WORK AREA * A13= RESERVED * ******************************************************* SDISP EQU * LD A8,ECBSD,A11 ST A1,ECBCW,A8 ** SECOND KEYBOARD MODS, DK, P & T ** LD A8,ECBSD,A11 GET DISP. ECB LDK A1,/41 CHANGE FILE CODE SC A1,1,A8 LKM DATA 1 LAMPS ON SECOND KEYB'RD SDISP1 EQU * LD A8,ECBSD,A11 LDK A1,/40 RESTORE FILE CODE 1ST KB SC A1,1,A8 ** END OF DK MODS ** LKM DATA 1 RTN A14 EJECT **************************************************************** * * * KEYTAB KEY-TABLE, FIXED ENTRY FOR EACH FUNC. * * * **************************************************************** KEYTAB EQU * *20 DATA CHAR SPACE DATA CHAR ! DATA CHAR " DATA CHAR DATA CHAR $ DATA CHAR DATA CHAR & DATA CHAR ' DATA CHAR ( DATA CHAR ) DATA CHAR * DATA NUM + DATA NUM , DATA NUM - DATA NUM . DATA CHAR / *30 DATA NUM 0 DATA NUM 1 DATA NUM 2 DATA NUM 3 DATA NUM 4 DATA NUM 5 DATA NUM 6 DATA NUM 7 DATA NUM 8 DATA NUM 9 DATA CHAR : DATA CHAR ; DATA CHAR < DATA CHAR = DATA CHAR > DATA CHAR ? *40 DATA CHAR DATA CHAR A DATA CHAR B DATA CHAR C DATA CHAR D DATA CHAR E DATA CHAR F DATA CHAR G DATA CHAR H DATA CHAR I DATA CHAR J DATA CHAR K DATA CHAR L DATA CHAR M DATA CHAR N DATA CHAR O *50 DATA CHAR P DATA CHAR Q DATA CHAR R DATA CHAR S DATA CHAR T DATA CHAR U DATA CHAR V DATA CHAR W DATA CHAR X DATA CHAR Y DATA CHAR Z DATA CHAR DATA CHAR DATA CHAR DATA CHAR ^ DATA CHAR UNDERLINE *60 DATA CHAR DATA CHAR a LOWER CASE A-Z DATA CHAR b DATA CHAR c DATA CHAR d DATA CHAR e DATA CHAR f DATA CHAR g DATA CHAR h DATA CHAR i DATA CHAR j DATA CHAR k DATA CHAR l DATA CHAR m DATA CHAR n DATA CHAR o *70 DATA CHAR p DATA CHAR q DATA CHAR r DATA CHAR s DATA CHAR t DATA CHAR u DATA CHAR v DATA CHAR w DATA CHAR x DATA CHAR y DATA CHAR z DATA CHAR DATA CHAR DATA CHAR DATA CHAR DATA RETURN *80 DATA CURMOV DATA CURMOV DATA CURMOV DATA CURMOV DATA BAKTAB DATA TAB DATA CRNL DATA RDHOME DATA EREOF DATA ERINPT IFT IN:DL=1 DATA INSERT DATA DELETE XIF IFF IN:DL=1 DATA RETURN DATA RETURN XIF DATA RESET DATA DUP DATA FLDMRK DATA ZERO:2 *90 DATA ZERO:3 DATA NUMCOM DATA COPY DATA IDENT IFT KEYLST=1 DATA KEYL DATA KEYL DATA KEYL DATA KEYL DATA KEYL DATA KEYL DATA KEYL DATA KEYL XIF IFF KEYLST=1 DATA RETURN DATA RETURN DATA RETURN DATA RETURN DATA RETURN DATA RETURN DATA RETURN DATA RETURN XIF DATA RETURN FREE LABEL FOR NEW KEY (NOT P. A. KEY) DATA RETURN FREE LABEL FOR NEW KEY (NOT P. A. KEY) DATA RETURN FREE LABEL FOR NEW KEY (NOT P. A. KEY) *FIRST P. A. KEY IFT OFLIN=1 DATA OFLINE XIF IFF OFLIN=1 DATA RETURN XIF *A0 DATA ENTER IFT SNA=1 DATA SYSREQ DATA CLEAR DATA ATTN XIF IFF SNA=1 DATA RETURN DATA CLEAR DATA RETURN XIF IFT NBRLIN=2 DATA RETURN XIF IFF NBRLIN=2 DATA RETURN XIF IFT PAX=1 DATA PAEX XIF IFF PAX=1 DATA RETURN XIF DATA PA1 DATA PA2 DATA PA3 DATA PAALFA PA4-PA10 (ALFASKOP) DATA PAALFA DATA PAALFA DATA PAALFA DATA PAALFA DATA PAALFA DATA PAALFA *B0 IFT PFX=1 DATA PFEX XIF IFF PFX=1 DATA RETURN XIF DATA PF 1 DATA PF 2 DATA PF 3 DATA PF 4 DATA PF 5 DATA PF 6 DATA PF 7 DATA PF 8 DATA PF 9 DATA PF 10 DATA PF 11 DATA PF 12 DATA PF 13 DATA PF 14 DATA PF 15 *C0 DATA PF 16 DATA PF 17 DATA PF 18 DATA PF 19 DATA PF 20 DATA PF 21 DATA PF 22 DATA PF 23 DATA PF 24 IFF TEST=1 DATA RETURN XIF IFT TEST=1 DATA TESTM XIF EJECT ************************************************************** * * * CHAR ALPHABETIC AND SPEC. CHAR UPDAT. DISPL. * * * ************************************************************** * REGISTERS * * A2= KEY-CHAR * A3= ATTRIBUTE MASKL * A4= RESERVED * A5= RESERVED * A6= RESERVED * A11= RESERVED * A13= RESERVED * ************************************************************** CHAR EQU * LDK A3,/30 LOAD ATTRIBUTE MASK CF A14,ANCOMM TAKE CARE OF CHAR. RTN A14 EJECT ************************************************************** * * * NUM NUMERIC UPDAT. DISPL. * * NUMCOM NUMERIC COMMA * * * ************************************************************** * REGISTERS * * A2= KEY-CHAR * A3= ATTRIBUTE MASK * A4= RESERVED * A5= RESERVED * A6= RESERVED * A11= RESERVED * A13= RESERVED * ************************************************************* NUMCOM EQU * LDK A2,/2C INSERT COMMA NUM EQU * LDK A3,/20 LOAD ATTRIBUTE MASK CF A14,ANCOMM TAKE CARE OF CHAR. RTN A14 EJECT *************************************************************** * * * ANCOMM COMMON ROUTINE FOR ALPHANUM. CHAR. * * * *************************************************************** * REGISTERS * * A2= KEY-CHAR * A3= AT ENTRY ATTRIBUTE MASK * A4= REL. CURSOR POS. * A5= REL. ATTRIBUTE POS. * A6= ATTRIBUTE CHAR. * A11= CREDIT WORK AREA * A13= RESERVED * *************************************************************** ANCOMM EQU * CF A14,SCRINF GET SCREEN INFORMATION CWR A4,A5 CURSOR ON ATTRIBUTE RF(E) ANC800 YES LDR A1,A6 ANR A1,A3 ALLOWED POS. ? RF(NZ) ANC800 NO IFT IN:DL=1 LD A1,MODE,A11 INSERT MODE? RF(Z) ANC100 NO CF A14,INSMOD LDR A7,A1 ANK A7,1 INSRETED NORMAL? RF(NZ) ANC900 YES ANK A1,2 INSERT NOT ALLOWED? RF(NZ) ANC800 YES XIF ANC100 EQU * LDR A1,A4 LDR A7,A2 CF A14,STOVDU STORE KEY-CHAR IN VDU BUFFER CF A14,WCHAR DISPLAY CHAR AND CURSOR CF A14,POSUNP MOVE CURSOR TO NEXT UNPROTECTED POS. RF ANC900 ANC800 EQU * CF A14,ERROR INDICATE ERROR ANC900 EQU * RTN A14 EJECT ************************************************************ * * * CURMOV MOVE CURSOR ON SCREEN * * * ************************************************************ * REGISTERS * * A2= KEY-CHAR * A4= REL. CURSOR POS. * A5= REL. ATTRIBUTE POS. * A6= ATTRIBUTE CHAR * A11= RESERVED * A13= RESERVED * ************************************************************ CURMOV EQU * CF A14,SCRINF GET SCREEN INFO. SUK A2,CRUP GET INDEX ADR A2,A2 CFI A14,CURTAB,A2 JUMP IN CURSOR TABLE CF A14,STOINF SAVE SCREEN INFORMATION CWK A5,LBVDU+1 UNFORMATTED SCREEN RF(E) CURM10 YES LDR A1,A4 CF A14,ATMASB UPDATE ATTRIBUTE CURM10 EQU * LDK A1,2 REQ. LENGTH CF A14,DISCHA SET CURSOR RTN A14 EJECT * CURTAB CURSOR JUMP TABLE CURTAB EQU * DATA CRLEFT MOVE CURSOR TO LEFT DATA CRRIGT MOVE CURSOR TO RIGHT DATA CRDOWN MOVE CURSOR DOWN DATA CURUP MOVE CURSOR UP * CRLEFT MOVE CURSOR TO LEFT CRLEFT EQU * SUK A4,1 RF(NN) CRRET NOT LEFTMOST POS. LDKL A4,LBVDU-1 LAST POS. ON SCREEN RF CRRET * CRRIGT MOVE CURSOR TO RIGHT CRRIGT EQU * ADK A4,1 CWK A4,LBVDU END OF BUFFER? RF(L) CRRET NO LDK A4,0 RF CRRET * CRDOWN MOVE CURSOR DOWN CRDOWN EQU * ADKL A4,LLINE CWK A4,LBVDU LAST LINE? RF(L) CRRET NO SUKL A4,LBVDU RF CRRET * CURUP MOVE CURSOR UP CURUP EQU * SUKL A4,LLINE RF(NN) CRRET UPMOST LINE ADKL A4,LBVDU CRRET EQU * RTN A14 EJECT ************************************************************** * * * BAKTAB TAB. UNPROTECTED BACKWARDS * * * ************************************************************** * REGISTERS * * A4= REL. CURSOR POS. * A5= REL. ATTRIBUTE POS. * A6= ATTRIBUTE CHAR. * A9= REL. ATTRIBUTE START POS. * A11= RESERVED * A13= RESERVED * *************************************************************** BAKTAB EQU * CF A14,SCRINF GET SCREEN INFORMATION LDR A9,A5 CWK A5,LBVDU+1 UNFORMATTED SCREEN? RF(E) BAK600 YES CWR A4,A5 STANDING ON ATTRIBUTE? RF(E) BAK300 YES SUK A4,1 RF(NN) BAK100 NOT FIRST POS. ON SCREEN LDKL A4,LBVDU-1 LAST POS. ON SCREEN BAK100 EQU * CWR A4,A5 STANDING ON POS. AFTER ATTRIBUTE? RF(E) BAK300 YES LDR A4,A5 LDR A7,A6 ANK A7,/20 PROTECTED FIELD? RF(Z) BAK500 NO BAK300 EQU * SUK A4,1 RF(NN) BAK400 LDKL A4,LBVDU-1 BAK400 EQU * LDR A1,A4 CF A14,ATMASB SEARCH ATTRIBUTE BACKWARDS AND MASK IT LDR A7,A6 ANK A7,/20 PROTECTED FIELD? RF(Z) BAK500 NO LDR A4,A5 CWR A5,A9 WHOLE SCREEN SEARCHED? RB(NE) BAK300 NO LDK A1,0 FIRST SCREEN POS. CF A14,ATMASB UPDATE FIELD INFORMATION RF BAK600 BAK500 EQU * LDR A4,A5 ADK A4,1 CWK A4,LBVDU-1 WRAP AROUND? RF(NG) BAK700 NO BAK600 EQU * LDK A4,0 FIRST SCREEN POS. BAK700 EQU * CF A14,STOINF SAVE SCREEN INFORMATION LDK A1,2 REQ. LENGTH CF A14,DISCHA SET CURSOR RTN A14 EJECT ************************************************************* * * * TAB TAB. UNPROTECTED FORWARD * * * ************************************************************* * REGISTERS * * A4= REL. CURSOR POS. * A5= REL. ATTRIBUTE POS. * A6= ATTRIBUTE CHAR. * A9= REL. ATTRIBUTE START POS. * A11= RESERVED * A13= RESERVED * ************************************************************** TAB EQU * CF A14,SCRINF GET SCREEN INFORMATION LDR A9,A5 CWK A5,LBVDU+1 UNFORMATTED SCREEN? RF(E) TAB200 YES TAB100 EQU * LDR A1,A4 CF A14,ATMASF SEARCH ATTRIBUTE FORWARD LDR A4,A5 NEW CURSOR POS. LDR A7,A6 ANK A7,/20 PROTECTED FIELD? RF(Z) TAB150 NO CWR A5,A9 WHOLE SCREEN SEARCHED? RB(NE) TAB100 NO LDK A1,0 FIRST POS. ON SCREEN CF A14,ATMASB UPDATE FIELD INFORMATION RF TAB200 TAB150 EQU * ADK A4,1 CWK A4,LBVDU-1 LAST SCREEN POS.? RF(NG) TAB300 NO TAB200 EQU * LDK A4,0 FIRST SCREEN POS. TAB300 EQU * CF A14,STOINF SAVE SCREEN INFORMATION LDK A1,2 REQ. LENGTH CF A14,DISCHA SET CURSOR RTN A14 EJECT ******************************************************************* * * * CRNL TAB. UNPROTECTED TO NEXT LINE * * * ******************************************************************* * REGISTERS * * A4= REL. CURSOR POS. * A5= REL. ATTRIBUTE POS. * A6= ATTRIBUTE CHAR. * A11= RESERVED * A13= RESERVED * ***************************************************************** CRNL EQU * CF A14,SCRINF GET SCREEN INFORMATION CF A14,CRDOWN MOVE CURSOR DOWN LDK A1,0 COMPUTE LEFTMOST POS. CRN100 EQU * SUK A4,LLINE RF(N) CRN200 ADK A1,LLINE RB CRN100 CRN200 EQU * LDR A4,A1 CWK A5,LBVDU+1 UNFORMATTED SCREEN? RF(E) CRN800 YES CF A14,GETVDU GET CHAR. IN VDU BUFFER CCK A7,/80 ATTRIBUTE? RF(NL) CRN400 YES LDR A1,A4 CF A14,ATMASB SEARCH ATTRIBUTE BACKWARD LDR A7,A6 ANK A7,/20 PROTECTED? RF(Z) CRN800 NO RF CRN500 CRN400 EQU * SUK A4,1 RF(NN) CRN500 NOT WRAP AROUND LDKL A4,LBVDU-1 LAST SCREEN POS. CRN500 EQU * CF A14,STOINF SAVE SCREEN INFORMATION CF A14,TAB TAB. UNPROTECTED FORWARD RF CRN900 CRN800 EQU * CF A14,STOINF SAVE SCREEN INFORMATION LDK A1,2 REQ. LENGTH CF A14,DISCHA SET CURSOR CRN900 EQU * RTN A14 EJECT ********************************************************************* * * * RDHOME TAB. UNPROTECTED FIRST ON SCREEN * * * ********************************************************************* * REGISTERS * * A4= REL. CURSOR POS. * A5= REL. ATTRIBUTE POS. * A6= ATTRIBUTE CHAR. * A11= RESERVED * A13= RESERVED * ********************************************************************* RDHOME EQU * CF A14,SCRINF GET SCREEN INFORMATION LDK A4,0 FIRST POS. ON SCREEN CF A14,STOINF CWK A5,LBVDU+1 UNFORMATTED SCREEN? RF(E) RDH800 YES LDR A1,A4 CF A14,GETVDU GET CHAR. IN VDU BUFFER CCK A7,/8000 ATTRIBUTE? RF(L) RDH100 NO LDKL A4,LBVDU-1 LAST SCREEN POS. CF A14,STOINF SAVE SCREEN INFORMATION RF RDH300 RDH100 EQU * LDR A1,A4 CF A14,ATMASB GET ATTRIBUTE BACKWARD LDR A7,A6 ANK A7,/20 PROTECTED? RF(Z) RDH800 NO RDH300 EQU * CF A14,TAB TAB. UNPROTECTED FORWARD RF RDH900 RDH800 EQU * CF A14,STOINF SAVE SCREEN INFORMATION LDK A1,2 REQ. LENGTH CF A14,DISCHA SET CURSOR RDH900 EQU * RTN A14 EJECT ************************************************************* * * * EREOF ERASE TO END OF FIELD * * * ************************************************************* * REGISTERS * * A4= REL. CURSOR POS. * A5= REL. ATTRIBUTE POS. * A6= ATTRIBUTE CHAR. * A11= RESERVED * A13= RESERVED * ******************************************************************* EREOF EQU * CF A14,SCRINF GET SCREEN INFORMATION CWK A5,LBVDU+1 UNFORMATTED SCREEN? RF(E) ERE700 YES LDR A7,A6 ANK A7,/20 PROTECTED FIELD? RF(NZ) ERE600 YES CWR A5,A4 STANDING ON ATTRIBUTE? RF(E) ERE600 YES LDR A1,A4 LDR A8,A6 SAVE OLD LDR A9,A5 SAVE OLD CF A14,ATMASF SEARCH ATTRIBUTE FORWARD LDR A3,A5 LDR A6,A8 LDR A5,A9 ORK A6,1 SET MDT-BIT IN ATTRIBUTE LDR A7,A6 LDR A1,A5 CF A14,STOVDU STORE NEW ATTRIBUTE IN VDU BUFFER CF A14,STOINF SAVE NEW SCREEN INFORMATION LDR A1,A3 STOP ADDRESS RF ERE800 ERE600 EQU * CF A14,ERROR INDICATE ERROR RF ERE900 ERE700 EQU * CF A14,LINE ERASE ONE LINE DK1 LDR A1,A5 DK1 CWK A1,LBVDU DK1 RF(L) ERE710 DK1 LDK A1,0 STOP ADDRESS =3 ERE710 EQU * DK1 CF A14,SCRINF DK1 ERE800 EQU * SUR A10,A10 CF A14,ERASUA ERASE UNPROTECTED TO ADDRESS CF A14,DISMOD DISPLAY MODIFIED FIELD ERE900 EQU * RTN A14 EJECT ******************************************************************* * * * ERINPT ERASE UNPROTECTED ENTIRE SCREEN * * * ******************************************************************* * REGISTERS * * A4= REL. CURSOR POS. * A5= REL. ATTRIBUTE POS. * A6= ATTRIBUTE CHAR. * A11= RESERVED * A13= RESERVED * ******************************************************************* ERINPT EQU * CF A14,SCRINF GET SCREEN INFORMATION CWK A5,LBVDU+1 UNFORMATTED SCREEN? RF(NE) ERI100 NO CF A14,ERASE ERASE ENTIRE SCREEN RF ERI900 ERI100 EQU * CF A14,ERASUP ERASE ALL UNPROTECTED CF A14,DISMOD DISPLAY ERASED FIELDS CF A14,RDHOME TAB. UNPROTECTED FIRST ON SCREEN ERI900 EQU * RTN A14 EJECT IFT IN:DL=1 ******************************************************** * * * INSERT INSERT KEY HANDLING * * * ******************************************************** * REGISTERS * * A11= CREDIT WORK AREA * A13= RESERVED * *************************************************** INSERT EQU * IM MODE,A11 SET INSERT MODE RTN A14 EJECT ****************************************************** * * * DELETE DELETE CHAR. HANDLING * * * ******************************************************* * REGISTERS * * A4= REL. CURSOR POS. * A5= REL. ATTRIBUTE POS. * A6= ATTRIBUTE CHAR. * A11= CREDIT WORK AREA * A13= RESERVED * ******************************************************* DELETE EQU * CF A14,SCRINF GET SCREEN INFORMATION LDKL A3,-1 DEL025 EQU * ADK A3,LLINE CWR A3,A4 LAST POS. ON CURRENT LINE? RB(L) DEL025 NO CWK A5,LBVDU+1 UNFORMATTED SCREEN? RF(E) DEL200 YES CWR A4,A5 STANDING ON ATTRIBUTE? RF(E) DEL700 YES LDR A7,A6 ANK A7,/20 PROTECTED? RF(NZ) DEL700 YES ORK A6,1 SET MDT-BIT LDR A7,A6 LDR A1,A5 CF A14,STOVDU SAVE NEW ATTRIBUTE LDR A8,A6 SAVE OLD LDR A9,A5 SAVE OLD CF A14,ATMASF SEARCH ATTRIBUTE FORWARD LDR A1,A5 LDR A6,A8 LDR A5,A9 CF A14,STOINF SAVE SCREEN INFORMATION CWR A3,A1 ATTRIBUTE BEFOR END OF LINE? RF(NG) DEL200 NO LDR A3,A1 DEL200 EQU * LDR A1,A4 DEL300 EQU * ADK A1,1 CF A14,GETVDU GET CHAR. IN VDU BUFFER SUK A1,1 CF A14,STOVDU STORE CHAR. IN VDU BUFFER ADK A1,1 CWR A1,A3 ALL SHIFTED? RB(NE) DEL300 NO LDK A7,NULL GET NULL CHAR. CF A14,STOVDU STORE NULL CHAR IN VDU BUFFER CF A14,SAVE1 LDK A5,LLINE LDR A6,A11 SUR A10,A10 CF A14,LINE GET LINE FLAG LC A1,LINFLG,A6 ORK A1,1 SC A1,LINFLG,A6 CF A14,REST1 CF A14,DISMOD DISPLAY MODIFIED LINE RF DEL900 DEL700 EQU * CF A14,ERROR INDICATE ERROR DEL900 EQU * RTN A14 XIF EJECT ******************************************************** * * * RESET RESET KEY HANDLING * * * ******************************************************** * REGISTERS * * A11= CREDIT WORK AREA * A13= RESERVED * **************************************************** RESET EQU * CM MODE,A11 RESET INSERT MODE CF A14,LMP6OF TURN OFF "INSERT" LAMP CM KBINH,A11 RESSTORE KEYBOARD CF A14,LMP4OF TURN OFF 'ERROR' LAMP CF A14,LMP3OF TURN OFF 'KEYBOARD INHIBIT' LAMP RTN A14 EJECT *********************************************************** * * * DUP DUPLICATE KEY * * * *********************************************************** * REGISTERS * * A2= KEY-CHAR * A11= RESERVED * A13= RESERVED * ************************************************************ DUP EQU * LDK A2,DUPCH GET DUP CHAR. CF A14,NUM CF A14,TAB RTN A14 EJECT *********************************************************** * * * FLDMRK FIELD MARK KEY * * * *********************************************************** * REGISTERS * * A2= KEY-CHAR * A11= RESERVED * A13= RESERVED * *********************************************************** FLDMRK EQU * LDK A2,FMCH GET FIELD MARK CHAR. CF A14,NUM RTN A14 EJECT *************************************************************** * * Z E R O : 3 TRIPLE ZERO KEY * Z E R O : 2 DOUBLE ZERO KEY * ************************************************* * REGISTERS * * A2= KEY-CHAR * A11= RESERVED * A13= RESERVED * ********************************************************* ZERO:3 EQU * LDK A2,/30 ZERO CHAR. CF A14,NUM DISPLAY CHARACTER ZERO:2 EQU * LDK A2,/30 ZERO CHAR. CF A14,NUM DISPLAY CHARACTER LDK A2,/30 CF A14,NUM DISPLAY CHARACTER RTN A14 RETURN EJECT IFT OFLIN=1 ******************************************************** * * * OFLINE OFFLINE KEY HANDLING * * * ******************************************************** * REGISTERS * * A11= CREDIT WORK AREA * A13= RESERVED * ******************************************************* OFLINE EQU * CF A14,CLEAR CF A14,RESET CF A14,DCOFLN INDICATE OFFLINE TO DC CF A14,LMP6ON TURN ON OFFLINE LAMP IM OFFFLG,A11 SET OFFLINE FLAG ADKL A14,4 SKIP ONE STACK LEVEL LD A13,2,A14 RELOAD REGISTERS A12-A13 LD A12,4,A14 ADKL A14,4 UPDATE STACK POINTER ABL I:RT1 RETURN TO "OFFLINE" PROGRAM XIF EJECT ********************************************************* * * * MFCHGE MAIN FRAME CHANGE * * * ********************************************************* * REGISTERS * * A11= CREDIT WORK AREA * A13= RESERVED * ******************************************************* IFT NBRLIN=2 MFCHGE EQU * CF A14,CLEAR CF A14,RESET CF A14,LMP1OF CF A14,LMP2OF CF A14,LMP3OF CF A14,DISCON DISCONNECT ON OLD LINE =2 LDK A1,1 . =2 XRS A1,MAIN,A11 IND MAIN FRAME CHANGE =2 RF(NZ) MFCH10 CF A14,LMP1ON RF MFCH90 MFCH10 EQU * CF A14,LMP2ON MFCH90 EQU * . =2 CF A14,CONCT CONNECT ON NEW LINE =2 CF A14,CHKSTA CHECK LINE STATUS RTN A14 XIF EJECT *********************************************************** * * * COPY LOCAL HARDCOPY * * * *********************************************************** * REGISTERS * * A11= CREDIT WORK AREA * A13= T:A ADDRESS * ************************************************************* COPY EQU * LD A1,SNAMOD,A11 ANKL A1,HCPMOD HARDCOPY ALREADY OUTSTANDING? RF(NZ) COPY80 YES,WAIT A WHILE LD A1,PRTID,A11 RF(Z) COPY80 PRINTER NOT ASSIGNED ANK A1,/FF CHECK IF PRINTER OK IN TASK TABLE SUK A1,/30 SLL A1,2 LDK A3,TSKTAB LD A4,+6,A13 GET COMMON AREA ADR A3,A4 ADR A3,A1 PRINTER ASSIGNED FOUND LC A1,+3,A3 ANK A1,/FF PRINTER OK? RF(Z) COPY10 YES RF COPY80 COPY10 EQU * LDK A1,/38 INDICATE HARDCOPY IN WCC ST A1,WCC,A11 LDKL A3,BVDU BUFFER ADR A3,A11 ADDRESSS LD A8,ECBICW,A11 CF A14,ICSET SET NO TIMEOUT LD A1,PRTID,A11 HARDCOPY TASK ID LDKL A2,LBVDU+/20 BUFFER LENGTH CF A14,ICWRT WRITE INTERTASK IFT SNA=1 LDKL A1,HCPMOD INDICATE HARDCOPY OUTSTANDING ORS A1,SNAMOD,A11 XIF IFF SNA=1 LDKL A1,HCPMOD INDICATE HARDCOPY OUTSTANDING ORS A1,BSCMOD,A11 XIF RF COPY90 COPY80 EQU * CF A14,ERROR COPY90 EQU * RTN A14 EJECT *************************************************************** * * * IDENT PRINTER IDENT. HANDLING * * *************************************************************** * REGISTERS * * A3= POINTER IN TASK TABLE * A11= CREDIT WORK AREA * A13= T:A ADDRESS * ************************************************************* IDENT EQU * LD A1,PRTID,A11 GET CURRENT TASKID LD A4,+6,A13 COMMON BLOCK BASE ANK A1,X'FF' GET OFFSET SUK A1,/30 SLL A1,2 LDKL A3,TSKTAB ADR A3,A4 ADR A3,A1 IDEN30 EQU * LCR A5,A3 GET ID SLL A5,8 LC A5,+1,A3 LC A4,+3,A3 GET STATUS CF A14,SAVE1 SAVE REGISTERS CF A14,DISID DISPLAY TASKID LDKL A1,IDEN40 NEXT KEY ENTRY ST A1,RDMORE,A11 RF IDEN90 NEXT KEY IDEN40 EQU * CM RDMORE,A11 LDR A9,A2 CF A14,REST1 RESTORE REGISTERS CWK A9,ENTKEY SAVE CURRENT TASKID RF(E) IDEN80 YES CWK A9,IDKEY GET NEXT TASKID? RF(NE) IDEN90 NO KEEP THE FIRST ONE IDEN50 EQU * ADK A3,4 SEARCH FOR NEXT PRINTER LCR A2,A3 ANK A2,/FF LDR A1,A2 RB(Z) IDEN50 SLL A1,8 RF(N) IDEN60 CCK A2,VDUCOD PRINTER? RB(NE) IDEN30 YES RB IDEN50 IDEN60 EQU * LDKL A2,TSKTAB LD A3,6,A13 ADR A3,A2 SUK A3,4 RB IDEN50 IDEN80 EQU * LCR A1,A3 GET PRINTER TO SAVE SLL A1,8 LC A1,+1,A3 ST A1,PRTID,A11 NEW HARDCOPY TASKID IDEN90 EQU * RTN A14 EJECT ************************************************************* * * * KEYL KEYLOCK STATUS * * * ************************************************************* * REGISTERS * * A2= KEYLOCK VALUE * A11= CREDIT WORK AREA * A13= RESERVED * ************************************************************** IFT KEYLST=1 IFT KB6272=1 KEYL EQU * SUK A2,LKLKEY GET NEG KEY LOCK VALUE LD A3,KEYS,A11 OLD STATUS LDK A4,/10 KEYL10 EQU * SRL A4,1 ADK A2,2 1 = OFF,0 = ON RB(N) KEYL10 ANR A3,A4 CHECK OLD KEY POS RF(NZ) KEYL20 WAS ON LDR A2,A2 WAS OFF RF(NZ) KEYL99 NOW OFF, NO CHANGE RF KEYL30 NOW ON KEYL20 EQU * WAS ON LDR A2,A2 RF(Z) KEYL99 NOW ON, NO CHANGE KEYL30 EQU * CHANGE LD A3,KEYS,A11 XRR A3,A4 CHANGE STATUS ST A3,KEYS,A11 STORE NEW STATUS * * KEYLOCK STATUS CHANGED * A3 = NEW STATUS, RIGHTMOST BIT = RIGHTMOST LOCK, BIT ON = LOCK ON * A4 = KEYLOCK CHANGED, LAYOUT AS A3 * A2 = 1, IF CHANGED TO OFF ELSE 0 * * INSERT USER ROUTINE BELOW THIS LINE * KEYL99 EQU * RTN A14 XIF EJECT ********************************************************** * * TESTM TEST MODE * ********************************************************** * REGISTERS * * A11= RESERVED * A13= RESERVED * ********************************************************* IFT TEST=1 TESTM EQU * CF A14,ERASE CF A14,GETBUF CF A14,RDSTAT CF A14,DISSTA LDR A8,A12 CF A14,RELBUF RTN A14 XIF EJECT ********************************************************* * * * ENTER ENTER KEY HANDLING * * * ********************************************************* * REGISTERS * * A2= AID-CODE * A11= RESERVED * A13= RESERVED * ********************************************************* ENTER EQU * LDK A2,/27 AID-CODE CF A14,LMP3ON TURN ON "KEYBOARD INHIBIT" CF A14,TRPF AID+MODIFIED FIELDS+TRANSMIT RTN A14 EJECT ************************************************************** * * * CLEAR CLEAR KEY HANDLING * * * ************************************************************** * REGISTERS * * A2= AID-CODE * A11= RESERVED * A13= RESERVED * ************************************************************** CLEAR EQU * LDK A2,/5F POS FOR 'CLEAR' CF A14,LMP3ON TURN ON "KEYBOARD INHIBIT" CF A14,TRPA UPDATE AID AND TRANSMIT CF A14,ERASE ERASE ENTIRE SCREEN RTN A14 EJECT *************************************************************** * * * SYSREQ SYSTEM REQUEST HANDLING * * * *************************************************************** * REGISTERS * * A11= CREDIT WORK AREA * A13= RESERVED * **************************************************** IFT SNA=1 SYSREQ EQU * CF A14,TSTSTA TEST STATUS LDR A2,A1 GET STATUS ANKL A2,/101 ACTIVE? RF(Z) SYS100 YES LDK A1,LOCMOD INDICATE LOCAL MODE RF SYS500 SYS100 EQU * LDR A2,A1 GET STATUS ANKL A2,/C00 MY JOB MODE? RF(NZ) SYS200 NO CF A14,CLEAR CLEAR SCREEN AND DC CF A14,RESKB RESET KEYBOARD BUFFER LDK A1,SYSOP INDICATE SYSTEM MODE RF SYS500 SYS200 EQU * CWK A2,/C00 SSCP-LU AND NOT LU-LU? RF(NE) SYS300 NO LDK A1,SYSOP INDICATE SYSTEM MODE RF SYS500 SYS300 EQU * ANKL A2,/800 SSCP-LU AND LU-LU? RF(NZ) SYS400 YES LDK A1,SYSOP INDICATE SYSTEM MODE RF SYS500 SYS400 EQU * LDK A1,MYJOB INDICATE MY JOB MODE SYS500 EQU * ORKL A1,NEWMOD INDICATE NEW MODE ACTIVATION ST A1,SNAMOD,A11 RTN A14 XIF EJECT *************************************************************** * * * ATTN ATTENTION KEY HANDLING * * * *************************************************************** * REGISTERS * * A11= RESERVED * A13= RESERVED * ********************************************************** IFT SNA=1 ATTN EQU * LDK A1,/4B SIGNAL ATTENTION KEY CF A14,SETSTA SET STATUS RTN A14 XIF EJECT ************************************************************** * * * PA PROGRAM ACCESS KEY HANDLING * * * ************************************************************** * REGISTERS * * A2= AID-CODE * A11= RESERVED * A13= RESERVED * ************************************************************** PA1 EQU * LDK A2,/25 AID-CODE RF PA500 PA2 EQU * LDK A2,/3E AID-CODE RF PA500 PA3 EQU * LDK A2,/2C AID-CODE PA500 EQU * CF A14,LMP3ON TURN ON KEYBOARD INHIBIT CF A14,TRPA TRANSMIT AID-CODE PAALFA EQU * *INSERT ALFASKOP STATEMENTS RTN A14 EJECT ******************************************************************* * * * PAEX PAEX KEY FOLLOWED BY NUMBER * * * ******************************************************************* * REGISTERS * * A11= CREDIT WORK AREA * A13= RESERVED * *************************************************** IFT PAX=1 PAEX EQU * LDKL A1,PAEXA ST A1,RDMORE,A11 RTN A14 PAEXA EQU * CM RDMORE,A11 SUK A2,/31 CHECK IF NUM.1-3 RF(L) PAERR ILLEGAL CHAR. SUK A2,/2 CHECK IF NUM.1-3 RF(G) PAEXB ILLEGAL CHAR. RF(NZ) PAEX10 CF A14,PA3 PA3 KEY RF PARET PAEX10 EQU * ADK A2,1 RF(NZ) PAEX20 CF A14,PA2 PA2 KEY RF PARET PAEX20 EQU * CF A14,PA1 PA1 KEY RF PARET PAEXB EQU * DK3 SUK A2,/6 DK3 RF(G) PAERR DK3 ADK A2,/69 DK3 CF A14,PA500 DK3 RF PARET DK3 PAERR EQU * CF A14,ERROR INDICATE ERROR PARET EQU * RTN A14 XIF EJECT ****************************************************************** * * * PF PROGRAM FUNTION KEY HANDLING * * * ****************************************************************** * REGISTERS * * A2= AID-CODE * A11= RESERVED * A13= RESERVED * ****************************************************************** PF EQU * SUK A2,PFKEY GET INDEX TO CONVERT LC A2,CONPF,A2 GET AID CF A14,LMP3ON TURN ON KEYBOARD INHIBIT CF A14,TRPF TRANSMIT AID AND MODIFIED FIELDS RTN A14 EJECT ***************************************************************** * * * PFEX PFEX KEY FOLLOWED BY NUMBER * * * ***************************************************************** * REGISTERS * * A11= CREDIT WORK AREA * A13= RESERVED * ************************************************* IFT PFX=1 PFEX EQU * LDKL A1,PFEXA RF PFNXT PFEXA EQU * CM RDMORE,A11 SUK A2,/30 LEGAL CHAR ? RF(L) PFERR ILLEGAL,GO TO ERR.HANDLING RF(NZ) PFEX10 LDKL A1,PF0A FIRST NUM 0 RF PFNXT NEXT NUMBER PFEX10 EQU * SUK A2,1 RF(NZ) PFEX20 LDKL A1,PF1A FIRST NUM 1 RF PFNXT NEXT NUMBER PFEX20 EQU * SUK A2,1 RF(NZ) PFERR ILLEGAL NUM LDKL A1,PF2A FIRST NUM 2 RF PFNXT NEXT NUMBER PF0A EQU * CM RDMORE,A11 SUK A2,/31 ILLEGAL NUM? RF(N) PFERR YES SUK A2,9 ILLEGAL NUM? RF(NN) PFERR YES ADK A2,/9+PFKEY PF1-PF9 RF PFHAND PF1A EQU * CM RDMORE,A11 SUK A2,/30 ILLEGAL NUM? RF(N) PFERR YES SUK A2,/A ILLEGAL NUM? RF(NN) PFERR YES ADK A2,/A+PFKEY+/9 PF10-PF19 RF PFHAND PF2A EQU * CM RDMORE,A11 SUK A2,/30 ILLEGAL NUM? RF(N) PFERR YES SUK A2,5 ILLEGAL NUM? RF(NN) PFERR YES ADK A2,/5+PFKEY+/13 PF20-PF24 PFHAND EQU * CF A14,PF PROGRAM FUNCTION KEY HANDLING RF PFRET PFNXT EQU * ST A1,RDMORE,A11 RF PFRET PFERR EQU * CF A14,ERROR PFRET EQU * RTN A14 XIF EJECT ********************************************************** * * * RETURN RETURN * * * *********************************************************** * REGISTERS * * A11= RESERVED * A13= RESERVED * ******************************************************** RETURN EQU * RTN A14 END
0x00000…00038 (0, 0, 400) Head {h00=0x0034, h01=0x0050, text=» IDENT KEYB1 REL 11.0 DK 831110 NJ 870150541100 «, t00=0x0000, t01=0x0004}
0x00038…00058 Head {h00=0x001c, h01=0x0050, text=» DK3 PA 4-9 830113 NJ «, t00=0x0000, t01=0x003c}
0x00058…00080 Head {h00=0x0024, h01=0x0050, text=» DK2 RESTORE A1 AFTER DC ABRT «, t00=0x0000, t01=0x005c}
0x00080…000a4 Head {h00=0x0020, h01=0x0050, text=» DK1,ERASE ONE LINE 'EOF' «, t00=0x0000, t01=0x0084}
0x000a4…000c8 Head {h00=0x0020, h01=0x0050, text=» =3 ERASE TO END OF FIELD«, t00=0x0000, t01=0x00a8}
0x000c8…000e4 Head {h00=0x0018, h01=0x0050, text=» =2 TWO DC-LINES «, t00=0x0000, t01=0x00cc}
0x000e4…000f8 Head {h00=0x0010, h01=0x0050, text=» 82-02-28 «, t00=0x0000, t01=0x00e8}
0x000f8…0011a Head {h00=0x001e, h01=0x0050, text=» =1, SYSTEM MODE CURSOR «, t00=0x0000, t01=0x00fc}
0x0011a…0012e Head {h00=0x0010, h01=0x0050, text=» 81-01-26 «, t00=0x0000, t01=0x011e}
0x0012e…00176 Head {h00=0x0044, h01=0x0050, text=»*************************************************************** «, t00=0x0000, t01=0x0132}
0x00176…001be Head {h00=0x0044, h01=0x0050, text=»* * «, t00=0x0000, t01=0x017a}
0x001be…00206 Head {h00=0x0044, h01=0x0050, text=»* MODULE KEYB * «, t00=0x0001, t01=0x0032}
0x00206…0024e Head {h00=0x0044, h01=0x0050, text=»* MODULE HANDLING THE KEYBOARD DEVICE * «, t00=0x0001, t01=0x007a}
0x0024e…00296 Head {h00=0x0044, h01=0x0050, text=»* (EMULATION 3270 SNA/SDLC, BSC) * «, t00=0x0001, t01=0x00c2}
0x00296…002de Head {h00=0x0044, h01=0x0050, text=»* * «, t00=0x0001, t01=0x010a}
0x002de…00326 Head {h00=0x0044, h01=0x0050, text=»*************************************************************** «, t00=0x0001, t01=0x0152}
0x00326…00334 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0002, t01=0x000a}
0x00334…0037c Head {h00=0x0044, h01=0x0050, text=»*************************************************************** «, t00=0x0002, t01=0x0018}
0x0037c…003c4 Head {h00=0x0044, h01=0x0050, text=»* * «, t00=0x0002, t01=0x0060}
0x003c4…0040c Head {h00=0x0044, h01=0x0050, text=»* LIST OF ROUTINES * «, t00=0x0002, t01=0x00a8}
0x0040c…00454 Head {h00=0x0044, h01=0x0050, text=»* * «, t00=0x0002, t01=0x00f0}
0x00454…0049c Head {h00=0x0044, h01=0x0050, text=»* KBINP MAIN ROUTINE * «, t00=0x0002, t01=0x0138}
0x0049c…004e4 Head {h00=0x0044, h01=0x0050, text=»* CPLKB KB-COMPLETION TABLE FOR DIFF. MODES * «, t00=0x0002, t01=0x0180}
0x004e4…00524 Head {h00=0x003c, h01=0x0050, text=»* KBCPLO KB-COMPLETION ROUTINE IN LOCAL MODE«, t00=0x0003, t01=0x0038}
0x00524…0056c Head {h00=0x0044, h01=0x0050, text=»* KBCPSY KB-COMPLETION ROUTINE IN SYSTEM MODE * «, t00=0x0003, t01=0x0078}
0x0056c…005b4 Head {h00=0x0044, h01=0x0050, text=»* KBCPJO KB-COMPLETION ROUTINE IN MY JOB MODE * «, t00=0x0003, t01=0x00c0}
0x005b4…005fc Head {h00=0x0044, h01=0x0050, text=»* READKB READ KEYBOARD WITH NO WAIT * «, t00=0x0003, t01=0x0108}
0x005fc…00644 Head {h00=0x0044, h01=0x0050, text=»* RESKB RESET KEYBOARD-BUFFER * «, t00=0x0003, t01=0x0150}
0x00644…00676 Head {h00=0x002e, h01=0x0050, text=»* ICVRED KB/VDU INTERTASK READ«, t00=0x0004, t01=0x0008}
0x00676…006a2 Head {h00=0x0028, h01=0x0050, text=»* ICINP INTERTASK INPUT«, t00=0x0004, t01=0x003a}
0x006a2…006d4 Head {h00=0x002e, h01=0x0050, text=»* ICSET SET INTERTASK TIMEOUT«, t00=0x0004, t01=0x0066}
0x006d4…00700 Head {h00=0x0028, h01=0x0050, text=»* ICREAD READ INTERTASK «, t00=0x0004, t01=0x0098}
0x00700…0072c Head {h00=0x0028, h01=0x0050, text=»* ICWRT WRITE INTERTASK«, t00=0x0004, t01=0x00c4}
0x0072c…00774 Head {h00=0x0044, h01=0x0050, text=»* ERROR ILLEGAL KEY-HANDLING * «, t00=0x0004, t01=0x00f0}
0x00774…007bc Head {h00=0x0044, h01=0x0050, text=»* LAMPROUTINES * «, t00=0x0004, t01=0x0138}
0x007bc…00804 Head {h00=0x0044, h01=0x0050, text=»* SDISP SIGNAL ROUTINE * «, t00=0x0004, t01=0x0180}
0x00804…0084c Head {h00=0x0044, h01=0x0050, text=»* KEYTAB KEY-TABLE, FIXED ENTRY FOR EACH FUNC. * «, t00=0x0005, t01=0x0038}
0x0084c…00894 Head {h00=0x0044, h01=0x0050, text=»* CHAR ALPHA. CHAR HANDLING * «, t00=0x0005, t01=0x0080}
0x00894…008dc Head {h00=0x0044, h01=0x0050, text=»* NUM NUM. CHAR HANDLING * «, t00=0x0005, t01=0x00c8}
0x008dc…00924 Head {h00=0x0044, h01=0x0050, text=»* ANCOMM ALPHANUM. CHAR HANDLING * «, t00=0x0005, t01=0x0110}
0x00924…00978 Head {h00=0x0050, h01=0x0050, text=»* CURMOV MOVE CURSOR ON SCREEN * «, t00=0x0005, t01=0x0158}
0x00978…009c0 Head {h00=0x0044, h01=0x0050, text=»* BAKTAB TAB. UNPROT. BACKWARDS * «, t00=0x0006, t01=0x001c}
0x009c0…00a08 Head {h00=0x0044, h01=0x0050, text=»* TAB TAB. UNPROT. FORWARDS * «, t00=0x0006, t01=0x0064}
0x00a08…00a50 Head {h00=0x0044, h01=0x0050, text=»* CRNL TAB. UNPROT. NEXT LINE * «, t00=0x0006, t01=0x00ac}
0x00a50…00a98 Head {h00=0x0044, h01=0x0050, text=»* RDHOME TAB. UNPROT. FIRST ON SCREEN * «, t00=0x0006, t01=0x00f4}
0x00a98…00ae0 Head {h00=0x0044, h01=0x0050, text=»* EREOF ERASE TO END OF FIELD * «, t00=0x0006, t01=0x013c}
0x00ae0…00b28 Head {h00=0x0044, h01=0x0050, text=»* ERINPT ERASE UNPROT. ENTIRE SCREEN * «, t00=0x0006, t01=0x0184}
0x00b28…00b70 Head {h00=0x0044, h01=0x0050, text=»* INSERT INSERT HANDLING * «, t00=0x0007, t01=0x003c}
0x00b70…00bb8 Head {h00=0x0044, h01=0x0050, text=»* DELETE DELETE HANDLING * «, t00=0x0007, t01=0x0084}
0x00bb8…00c00 Head {h00=0x0044, h01=0x0050, text=»* RESET RESET HANDLING * «, t00=0x0007, t01=0x00cc}
0x00c00…00c48 Head {h00=0x0044, h01=0x0050, text=»* DUP DUPLICATE HANDLING * «, t00=0x0007, t01=0x0114}
0x00c48…00c90 Head {h00=0x0044, h01=0x0050, text=»* FLDMRK FIELDMARK HANDLING * «, t00=0x0007, t01=0x015c}
0x00c90…00cd8 Head {h00=0x0044, h01=0x0050, text=»* ZERO:2,3 DOUBLE & TRIPLE ZERO HANDLING * «, t00=0x0008, t01=0x0014}
0x00cd8…00d20 Head {h00=0x0044, h01=0x0050, text=»* OFLINE OFFLINE HANDLING * «, t00=0x0008, t01=0x005c}
0x00d20…00d68 Head {h00=0x0044, h01=0x0050, text=»* MFCHGE MAIN FRAME CHANGE * «, t00=0x0008, t01=0x00a4}
0x00d68…00db0 Head {h00=0x0044, h01=0x0050, text=»* COPY LOCAL HARDCOPY * «, t00=0x0008, t01=0x00ec}
0x00db0…00df8 Head {h00=0x0044, h01=0x0050, text=»* IDENT PRINTER IDENT. HANDLING * «, t00=0x0008, t01=0x0134}
0x00df8…00e40 Head {h00=0x0044, h01=0x0050, text=»* KEYL KEYLOCK STATUS HANDLING * «, t00=0x0008, t01=0x017c}
0x00e40…00e66 Head {h00=0x0022, h01=0x0050, text=»* TESTM TEST MODE«, t00=0x0009, t01=0x0034}
0x00e66…00eae Head {h00=0x0044, h01=0x0050, text=»* ENTER ENTER HANDLING * «, t00=0x0009, t01=0x005a}
0x00eae…00ef6 Head {h00=0x0044, h01=0x0050, text=»* CLEAR CLEAR HANDLING * «, t00=0x0009, t01=0x00a2}
0x00ef6…00f3e Head {h00=0x0044, h01=0x0050, text=»* SYSREQ SYSTEM REQUEST HANDLING * «, t00=0x0009, t01=0x00ea}
0x00f3e…00f86 Head {h00=0x0044, h01=0x0050, text=»* ATTN ATTENTION HANDLING * «, t00=0x0009, t01=0x0132}
0x00f86…00fce Head {h00=0x0044, h01=0x0050, text=»* PA PROGRAM ACCESS HANDLING *«, t00=0x0009, t01=0x017a}
0x00fce…01016 Head {h00=0x0044, h01=0x0050, text=»* PF PROGRAM FUNCTION HANDLING * «, t00=0x000a, t01=0x0032}
0x01016…0105e Head {h00=0x0044, h01=0x0050, text=»* RETURN RETURN * «, t00=0x000a, t01=0x007a}
0x0105e…010a6 Head {h00=0x0044, h01=0x0050, text=»* * «, t00=0x000a, t01=0x00c2}
0x010a6…010ee Head {h00=0x0044, h01=0x0050, text=»*************************************************************** «, t00=0x000a, t01=0x010a}
0x010ee…010fc Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000a, t01=0x0152}
0x010fc…01138 Head {h00=0x0038, h01=0x0050, text=»*************************************************** «, t00=0x000a, t01=0x0160}
0x01138…01174 Head {h00=0x0038, h01=0x0050, text=»* *«, t00=0x000b, t01=0x000c}
0x01174…011b0 Head {h00=0x0038, h01=0x0050, text=»* ENTRY POINTS *«, t00=0x000b, t01=0x0048}
0x011b0…011ec Head {h00=0x0038, h01=0x0050, text=»* *«, t00=0x000b, t01=0x0084}
0x011ec…01228 Head {h00=0x0038, h01=0x0050, text=»****************************************************«, t00=0x000b, t01=0x00c0}
0x01228…01230 Head {h00=0x0004, h01=0x0050, t00=0x000b, t01=0x00fc}
0x01230…01262 Head {h00=0x002e, h01=0x0050, text=» ENTRY KBINP,KBINP2 START LABEL FOR MODULE«, t00=0x000b, t01=0x0104}
0x01262…0128c Head {h00=0x0026, h01=0x0050, text=» ENTRY READKB,READK2 READ KEYBOARD«, t00=0x000b, t01=0x0136}
0x0128c…012b6 Head {h00=0x0026, h01=0x0050, text=» ENTRY RESKB RESET KEYBOARD BUFFER«, t00=0x000b, t01=0x0160}
0x012b6…012d8 Head {h00=0x001e, h01=0x0050, text=» ENTRY LMP1ON LAMPROUTINES«, t00=0x000b, t01=0x018a}
0x012d8…012f0 Head {h00=0x0014, h01=0x0050, text=» ENTRY LMP1OF . «, t00=0x000c, t01=0x001c}
0x012f0…01308 Head {h00=0x0014, h01=0x0050, text=» ENTRY LMP2ON . «, t00=0x000c, t01=0x0034}
0x01308…01320 Head {h00=0x0014, h01=0x0050, text=» ENTRY LMP2OF . «, t00=0x000c, t01=0x004c}
0x01320…01338 Head {h00=0x0014, h01=0x0050, text=» ENTRY LMP3ON . «, t00=0x000c, t01=0x0064}
0x01338…01350 Head {h00=0x0014, h01=0x0050, text=» ENTRY LMP3OF . «, t00=0x000c, t01=0x007c}
0x01350…01368 Head {h00=0x0014, h01=0x0050, text=» ENTRY LMP4ON . «, t00=0x000c, t01=0x0094}
0x01368…01380 Head {h00=0x0014, h01=0x0050, text=» ENTRY LMP4OF . «, t00=0x000c, t01=0x00ac}
0x01380…01398 Head {h00=0x0014, h01=0x0050, text=» ENTRY LMP5ON . «, t00=0x000c, t01=0x00c4}
0x01398…013b0 Head {h00=0x0014, h01=0x0050, text=» ENTRY LMP5OF . «, t00=0x000c, t01=0x00dc}
0x013b0…013c8 Head {h00=0x0014, h01=0x0050, text=» ENTRY LMP6ON . «, t00=0x000c, t01=0x00f4}
0x013c8…013e0 Head {h00=0x0014, h01=0x0050, text=» ENTRY LMP6OF . «, t00=0x000c, t01=0x010c}
0x013e0…01416 Head {h00=0x0032, h01=0x0050, text=» ENTRY RDHOME TAB. UNPROTECTED FIRST ON SCREEN«, t00=0x000c, t01=0x0124}
0x01416…01438 Head {h00=0x001e, h01=0x0050, text=» ENTRY COPY LOCAL HARDCOPY«, t00=0x000c, t01=0x015a}
0x01438…0145e Head {h00=0x0022, h01=0x0050, text=» ENTRY ERROR ERROR INDICATION «, t00=0x000c, t01=0x017c}
0x0145e…0148a Head {h00=0x0028, h01=0x0050, text=» ENTRY TAB TAB FOREWARD UNPROTECTED «, t00=0x000d, t01=0x0012}
0x0148a…014ba Head {h00=0x002c, h01=0x0050, text=» ENTRY CRDOWN MOVE CURSOR DOWN ONE LINE «, t00=0x000d, t01=0x003e}
0x014ba…014e2 Head {h00=0x0024, h01=0x0050, text=» ENTRY ICVRED VDU INTERTASK READ«, t00=0x000d, t01=0x006e}
0x014e2…01506 Head {h00=0x0020, h01=0x0050, text=» ENTRY ICINP INTERTASK INPUT«, t00=0x000d, t01=0x0096}
0x01506…01530 Head {h00=0x0026, h01=0x0050, text=» ENTRY ICSET SET INTERTASK TIMEOUT«, t00=0x000d, t01=0x00ba}
0x01530…01554 Head {h00=0x0020, h01=0x0050, text=» ENTRY ICWRT WRITE INTERTASK«, t00=0x000d, t01=0x00e4}
0x01554…01578 Head {h00=0x0020, h01=0x0050, text=» ENTRY ICREAD READ INTERTASK«, t00=0x000d, t01=0x0108}
0x01578…01586 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000d, t01=0x012c}
0x01586…0158e Head {h00=0x0004, h01=0x0050, t00=0x000d, t01=0x013a}
0x0158e…015cc Head {h00=0x003a, h01=0x0050, text=»******************************************************«, t00=0x000d, t01=0x0142}
0x015cc…0160a Head {h00=0x003a, h01=0x0050, text=»* *«, t00=0x000d, t01=0x0180}
0x0160a…01648 Head {h00=0x003a, h01=0x0050, text=»* EXTERNAL REFERENCES *«, t00=0x000e, t01=0x002e}
0x01648…01686 Head {h00=0x003a, h01=0x0050, text=»* *«, t00=0x000e, t01=0x006c}
0x01686…016c4 Head {h00=0x003a, h01=0x0050, text=»******************************************************«, t00=0x000e, t01=0x00aa}
0x016c4…016cc Head {h00=0x0004, h01=0x0050, t00=0x000e, t01=0x00e8}
0x016cc…016f6 Head {h00=0x0026, h01=0x0050, text=» EXTRN I:RT1 RETURN TO CREDIT CODE«, t00=0x000e, t01=0x00f0}
0x016f6…0172c Head {h00=0x0032, h01=0x0050, text=» EXTRN ATMASB SEARCH ATTRIBUTE BACKWARDS (VDU)«, t00=0x000e, t01=0x011a}
0x0172c…01760 Head {h00=0x0030, h01=0x0050, text=» EXTRN ATMASF SEARCH ATTRIBUTE FORWARD (VDU)«, t00=0x000e, t01=0x0150}
0x01760…01794 Head {h00=0x0030, h01=0x0050, text=» EXTRN DCABOR ABORT DC-REQUEST (DCSNA,DCBSC)«, t00=0x000e, t01=0x0184}
0x01794…017c2 Head {h00=0x002a, h01=0x0050, text=» EXTRN ERASE ERASE ENTIRE SCREEN (VDU)«, t00=0x000f, t01=0x0028}
0x017c2…017fe Head {h00=0x0038, h01=0x0050, text=» EXTRN ERASUA ERASE ALL UNPROTECTED TO ADDRESS (VDU)«, t00=0x000f, t01=0x0056}
0x017fe…01830 Head {h00=0x002e, h01=0x0050, text=» EXTRN ERASUP ERASE ALL UNPROTECTED (VDU) «, t00=0x000f, t01=0x0092}
0x01830…01866 Head {h00=0x0032, h01=0x0050, text=» EXTRN TRPA TRANSMIT SHORT READ (DCSNA,DCBSC) «, t00=0x000f, t01=0x00c4}
0x01866…0189e Head {h00=0x0034, h01=0x0050, text=» EXTRN TRPF TRANSMIT MODIFIED READ (DCSNA,DCBSC)«, t00=0x000f, t01=0x00fa}
0x0189e…018ce Head {h00=0x002c, h01=0x0050, text=» EXTRN TSTSTA TEST STATUS (DCSNA,DCBSC) «, t00=0x000f, t01=0x0132}
0x018ce…01902 Head {h00=0x0030, h01=0x0050, text=» EXTRN WCHAR DISPLAY CHAR. AND CURSOR (VDU) «, t00=0x000f, t01=0x0162}
0x01902…01934 Head {h00=0x002e, h01=0x0050, text=» EXTRN SOUND SOUND ALARM ON DISPLAY (VDU)«, t00=0x0010, t01=0x0008}
0x01934…01966 Head {h00=0x002e, h01=0x0050, text=» EXTRN SCRINF GET SCREEN INFORMATION (VDU)«, t00=0x0010, t01=0x003a}
0x01966…0199a Head {h00=0x0030, h01=0x0050, text=» EXTRN STOINF SAVE SCREEN INFORMATION (VDU) «, t00=0x0010, t01=0x006c}
0x0199a…019ce Head {h00=0x0030, h01=0x0050, text=» EXTRN GETVDU GET CHAR. IN VDU BUFFER (VDU) «, t00=0x0010, t01=0x00a0}
0x019ce…01a04 Head {h00=0x0032, h01=0x0050, text=» EXTRN STOVDU STORE CHAR. IN VDU BUFFER (VDU) «, t00=0x0010, t01=0x00d4}
0x01a04…01a2e Head {h00=0x0026, h01=0x0050, text=» EXTRN DISCHA DISPLAY CHAR. (VDU) «, t00=0x0010, t01=0x010a}
0x01a2e…01a68 Head {h00=0x0036, h01=0x0050, text=» EXTRN POSUNP MOVE CURSOR TO NEXT UNPR. POS. (VDU)«, t00=0x0010, t01=0x0134}
0x01a68…01a98 Head {h00=0x002c, h01=0x0050, text=» EXTRN INSMOD INSERT MODE ROUTINE (VDU) «, t00=0x0010, t01=0x016e}
0x01a98…01ad2 Head {h00=0x0036, h01=0x0050, text=» EXTRN DCOFLN INDICATE OFFLINE TO DC (DCSNA,DCBSC)«, t00=0x0011, t01=0x000e}
0x01ad2…01b06 Head {h00=0x0030, h01=0x0050, text=» EXTRN DISMOD DISPLAY MODIFIED FIELDS (VDU) «, t00=0x0011, t01=0x0048}
0x01b06…01b38 Head {h00=0x002e, h01=0x0050, text=» EXTRN CONPF CONVERT PF-KEY TABLE (CONVER)«, t00=0x0011, t01=0x007c}
0x01b38…01b66 Head {h00=0x002a, h01=0x0050, text=» EXTRN OPSYS OPEN SYSTEM (DCSNA,DCBSC)«, t00=0x0011, t01=0x00ae}
0x01b66…01b8e Head {h00=0x0024, h01=0x0050, text=» EXTRN LINE GET LINE FLAG (VDU) «, t00=0x0011, t01=0x00dc}
0x01b8e…01bb8 Head {h00=0x0026, h01=0x0050, text=» EXTRN SAVE1 SAVE1 REGISTERS (PAD)«, t00=0x0011, t01=0x0104}
0x01bb8…01be4 Head {h00=0x0028, h01=0x0050, text=» EXTRN REST1 REST1E REGISTERS (PAD) «, t00=0x0011, t01=0x012e}
0x01be4…01c10 Head {h00=0x0028, h01=0x0050, text=» EXTRN DISID DISPLAY HARDCOPY TASKID«, t00=0x0011, t01=0x015a}
0x01c10…01c36 Head {h00=0x0022, h01=0x0050, text=» EXTRN GETBUF GET BUFFER (PAD)«, t00=0x0011, t01=0x0186}
0x01c36…01c60 Head {h00=0x0026, h01=0x0050, text=» EXTRN RELBUF RELEASE BUFFER (PAD)«, t00=0x0012, t01=0x001c}
0x01c60…01c8e Head {h00=0x002a, h01=0x0050, text=» EXTRN DISSTA DISPLAY STATISTICS (VDU)«, t00=0x0012, t01=0x0046}
0x01c8e…01cbc Head {h00=0x002a, h01=0x0050, text=» EXTRN RDSTAT READ STATISTICS (DCBSC) «, t00=0x0012, t01=0x0074}
0x01cbc…01cf2 Head {h00=0x0032, h01=0x0050, text=» EXTRN CHKSTA CHECK LINE STATUS (DCBSC,DCSNA) «, t00=0x0012, t01=0x00a2}
0x01cf2…01d1a Head {h00=0x0024, h01=0x0050, text=» EXTRN SETSTA SET STATUS (DCSNA)«, t00=0x0012, t01=0x00d8}
0x01d1a…01d42 Head {h00=0x0024, h01=0x0050, text=» EXTRN CONCT CONNECT (DCXXX) =2 «, t00=0x0012, t01=0x0100}
0x01d42…01d6e Head {h00=0x0028, h01=0x0050, text=» EXTRN DISCON DISCONNECT (DCXXX) =2 «, t00=0x0012, t01=0x0128}
0x01d6e…01d7c Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0012, t01=0x0154}
0x01d7c…01dc2 Head {h00=0x0042, h01=0x0050, text=»************************************************************* «, t00=0x0012, t01=0x0162}
0x01dc2…01e08 Head {h00=0x0042, h01=0x0050, text=»* * «, t00=0x0013, t01=0x0018}
0x01e08…01e4e Head {h00=0x0042, h01=0x0050, text=»* CONDITIONAL ASSEMBLY PARAMETERS * «, t00=0x0013, t01=0x005e}
0x01e4e…01e94 Head {h00=0x0042, h01=0x0050, text=»* * «, t00=0x0013, t01=0x00a4}
0x01e94…01eda Head {h00=0x0042, h01=0x0050, text=»************************************************************* «, t00=0x0013, t01=0x00ea}
0x01eda…01ee2 Head {h00=0x0004, h01=0x0050, t00=0x0013, t01=0x0130}
0x01ee2…01f10 Head {h00=0x002a, h01=0x0050, text=»X:A EQU 0 SNA HANDLING INCLUDED IF:=1 «, t00=0x0013, t01=0x0138}
0x01f10…01f22 Head {h00=0x000e, h01=0x0050, text=»SNA EQU 0 «, t00=0x0013, t01=0x0166}
0x01f22…01f4c Head {h00=0x0026, h01=0x0050, text=»X:C EQU 0 OFFLINE HANDLING IF :=1 «, t00=0x0013, t01=0x0178}
0x01f4c…01f60 Head {h00=0x0010, h01=0x0050, text=»OFLIN EQU 0 «, t00=0x0014, t01=0x0012}
0x01f60…01f88 Head {h00=0x0024, h01=0x0050, text=»X:D EQU 1 NUMBER OF LINES (1-2) «, t00=0x0014, t01=0x0026}
0x01f88…01f9c Head {h00=0x0010, h01=0x0050, text=»NBRLIN EQU 2«, t00=0x0014, t01=0x004e}
0x01f9c…01fc4 Head {h00=0x0024, h01=0x0050, text=»X:F EQU 0 KEY-LOCK STATUS IF:=1 «, t00=0x0014, t01=0x0062}
0x01fc4…01fd8 Head {h00=0x0010, h01=0x0050, text=»KEYLST EQU 0«, t00=0x0014, t01=0x008a}
0x01fd8…02000 Head {h00=0x0024, h01=0x0050, text=»X:G EQU 0 PF KEY HANDLING IF:=1 «, t00=0x0014, t01=0x009e}
0x02000…02012 Head {h00=0x000e, h01=0x0050, text=»PFX EQU 1 «, t00=0x0014, t01=0x00c6}
0x02012…0203a Head {h00=0x0024, h01=0x0050, text=»X:H EQU 0 PA KEY HANDLING IF :=1«, t00=0x0014, t01=0x00d8}
0x0203a…0204c Head {h00=0x000e, h01=0x0050, text=»PAX EQU 1 «, t00=0x0014, t01=0x0100}
0x0204c…0207c Head {h00=0x002c, h01=0x0050, text=»X:I EQU 1 INSERT/DELETE HANDLING IF :=1 «, t00=0x0014, t01=0x0112}
0x0207c…02090 Head {h00=0x0010, h01=0x0050, text=»IN:DL EQU 1 «, t00=0x0014, t01=0x0142}
0x02090…020b8 Head {h00=0x0024, h01=0x0050, text=»X:J EQU 1 KB6272 INCLUDED IF :=1«, t00=0x0014, t01=0x0156}
0x020b8…020cc Head {h00=0x0010, h01=0x0050, text=»KB6272 EQU 1«, t00=0x0014, t01=0x017e}
0x020cc…020fa (21, 0, 400) Head {h00=0x002a, h01=0x0050, text=»X:M EQU 0 COPY COMMAND INCLUDED IF:=1 «, t00=0x0015, t01=0x0004}
0x020fa…0210e Head {h00=0x0010, h01=0x0050, text=»COPCMD EQU 1«, t00=0x0015, t01=0x0032}
0x0210e…02138 Head {h00=0x0026, h01=0x0050, text=»X:O EQU 0 TEST MODE INCLUDED IF:=1«, t00=0x0015, t01=0x0046}
0x02138…0214a Head {h00=0x000e, h01=0x0050, text=»TEST EQU 0«, t00=0x0015, t01=0x0070}
0x0214a…0217e Head {h00=0x0030, h01=0x0050, text=»X:P EQU 0 COPY LOCK FUNCTION INCLUDED IF:=1 «, t00=0x0015, t01=0x0082}
0x0217e…02190 Head {h00=0x000e, h01=0x0050, text=»COPL EQU 0«, t00=0x0015, t01=0x00b6}
0x02190…0219e Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0015, t01=0x00c8}
0x0219e…021e6 Head {h00=0x0044, h01=0x0050, text=»*************************************************************** «, t00=0x0015, t01=0x00d6}
0x021e6…0222e Head {h00=0x0044, h01=0x0050, text=»* * «, t00=0x0015, t01=0x011e}
0x0222e…02258 Head {h00=0x0026, h01=0x0050, text=»* DECLARATIONS OF DATA AND EQUATES«, t00=0x0015, t01=0x0166}
0x02258…022a0 Head {h00=0x0044, h01=0x0050, text=»* * «, t00=0x0015, t01=0x0190}
0x022a0…022e8 Head {h00=0x0044, h01=0x0050, text=»*************************************************************** «, t00=0x0016, t01=0x0048}
0x022e8…022f0 Head {h00=0x0004, h01=0x0050, t00=0x0016, t01=0x0090}
0x022f0…022fa Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0016, t01=0x0098}
0x022fa…0231a Head {h00=0x001c, h01=0x0050, text=»* PREDEFINED KEYS «, t00=0x0016, t01=0x00a2}
0x0231a…02324 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0016, t01=0x00c2}
0x02324…02352 Head {h00=0x002a, h01=0x0050, text=»CRUP EQU /80 FIRST "MOVE CURSOR " KEY «, t00=0x0016, t01=0x00cc}
0x02352…02382 Head {h00=0x002c, h01=0x0050, text=»ERFKEY EQU /88 ERASE TO END OF FIELD-KEY«, t00=0x0016, t01=0x00fa}
0x02382…023aa Head {h00=0x0024, h01=0x0050, text=»ERIKEY EQU /89 ERASE ALL UNPROT.«, t00=0x0016, t01=0x012a}
0x023aa…023c8 Head {h00=0x001a, h01=0x0050, text=»RSET EQU /8C RESET KEY«, t00=0x0016, t01=0x0152}
0x023c8…023e8 Head {h00=0x001c, h01=0x0050, text=»IDKEY EQU /93 IDENT KEY «, t00=0x0016, t01=0x0170}
0x023e8…02412 Head {h00=0x0026, h01=0x0050, text=»FKLKEY EQU /94 FIRST KEYLOCK VALUE«, t00=0x0016, t01=0x0190}
0x02412…0243c Head {h00=0x0026, h01=0x0050, text=»LKLKEY EQU /9C LAST KEYLOCK VALUE «, t00=0x0017, t01=0x002a}
0x0243c…02468 Head {h00=0x0028, h01=0x0050, text=»FIPA EQU /9F FIRST PROGRAM ATTN. KEY«, t00=0x0017, t01=0x0054}
0x02468…02488 Head {h00=0x001c, h01=0x0050, text=»ENTKEY EQU /A0 ENTER KEY«, t00=0x0017, t01=0x0080}
0x02488…024b2 Head {h00=0x0026, h01=0x0050, text=»SYSKEY EQU /A1 SYSTEM REQUEST KEY «, t00=0x0017, t01=0x00a0}
0x024b2…024d2 Head {h00=0x001c, h01=0x0050, text=»CLRKEY EQU /A2 CLEAR KEY«, t00=0x0017, t01=0x00ca}
0x024d2…024fc Head {h00=0x0026, h01=0x0050, text=»PFKEY EQU /B1 PROGRAM FUNTION KEY «, t00=0x0017, t01=0x00ea}
0x024fc…02528 Head {h00=0x0028, h01=0x0050, text=»LAKEY EQU /C9 LAST KEY IN KEY-TABLE «, t00=0x0017, t01=0x0114}
0x02528…02532 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0017, t01=0x0140}
0x02532…0255a Head {h00=0x0024, h01=0x0050, text=»* EQUATES FOR ECB HANDLING«, t00=0x0017, t01=0x014a}
0x0255a…02564 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0017, t01=0x0172}
0x02564…02586 Head {h00=0x001e, h01=0x0050, text=»ECBBA EQU 2 BUFFER ADDRESS«, t00=0x0017, t01=0x017c}
0x02586…025aa Head {h00=0x0020, h01=0x0050, text=»ECBRL EQU 4 REQUESTED LENGTH«, t00=0x0018, t01=0x000e}
0x025aa…025ce Head {h00=0x0020, h01=0x0050, text=»ECBEL EQU 6 EFFECTIVE LENGTH«, t00=0x0018, t01=0x0032}
0x025ce…025ee Head {h00=0x001c, h01=0x0050, text=»ECBRC EQU 8 RETURN CODE «, t00=0x0018, t01=0x0056}
0x025ee…02610 Head {h00=0x001e, h01=0x0050, text=»ECBCW EQU 10 CONTROL WORD «, t00=0x0018, t01=0x0076}
0x02610…0263a Head {h00=0x0026, h01=0x0050, text=»ECBCW2 EQU 12 CONTROL WORD TWO DK «, t00=0x0018, t01=0x0098}
0x0263a…02644 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0018, t01=0x00c2}
0x02644…02660 Head {h00=0x0018, h01=0x0050, text=»* SPECIAL CHARACTERS«, t00=0x0018, t01=0x00cc}
0x02660…0266a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0018, t01=0x00e8}
0x0266a…02688 Head {h00=0x001a, h01=0x0050, text=»NULL EQU 0 NULL CHAR. «, t00=0x0018, t01=0x00f2}
0x02688…026ae Head {h00=0x0022, h01=0x0050, text=»DUPCH EQU /1C DUPLICATE CHAR. «, t00=0x0018, t01=0x0110}
0x026ae…026d4 Head {h00=0x0022, h01=0x0050, text=»FMCH EQU /1E FIELD MARK CHAR. «, t00=0x0018, t01=0x0136}
0x026d4…026de Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0018, t01=0x015c}
0x026de…026fc Head {h00=0x001a, h01=0x0050, text=»* LAMPCONSTANTS«, t00=0x0018, t01=0x0166}
0x026fc…02706 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0018, t01=0x0184}
0x02706…0271a Head {h00=0x0010, h01=0x0050, text=»LON EQU /B7 «, t00=0x0018, t01=0x018e}
0x0271a…0272e Head {h00=0x0010, h01=0x0050, text=»LOF EQU /B8 «, t00=0x0019, t01=0x0012}
0x0272e…02748 Head {h00=0x0016, h01=0x0050, text=»LFL EQU /B9 FLASH «, t00=0x0019, t01=0x0026}
0x02748…0275e Head {h00=0x0012, h01=0x0050, text=» IFT KB6272=1 «, t00=0x0019, t01=0x0040}
0x0275e…02774 Head {h00=0x0012, h01=0x0050, text=»LAMP1 EQU /20 «, t00=0x0019, t01=0x0056}
0x02774…0278a Head {h00=0x0012, h01=0x0050, text=»LAMP2 EQU /10 «, t00=0x0019, t01=0x006c}
0x0278a…0279e Head {h00=0x0010, h01=0x0050, text=»LAMP3 EQU 8 «, t00=0x0019, t01=0x0082}
0x0279e…027b2 Head {h00=0x0010, h01=0x0050, text=»LAMP4 EQU 4 «, t00=0x0019, t01=0x0096}
0x027b2…027c6 Head {h00=0x0010, h01=0x0050, text=»LAMP5 EQU 2 «, t00=0x0019, t01=0x00aa}
0x027c6…027da Head {h00=0x0010, h01=0x0050, text=»LAMP6 EQU 1 «, t00=0x0019, t01=0x00be}
0x027da…027e6 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0019, t01=0x00d2}
0x027e6…027fc Head {h00=0x0012, h01=0x0050, text=» IFF KB6272=1 «, t00=0x0019, t01=0x00de}
0x027fc…02810 Head {h00=0x0010, h01=0x0050, text=»LAMP1 EQU 0 «, t00=0x0019, t01=0x00f4}
0x02810…02824 Head {h00=0x0010, h01=0x0050, text=»LAMP2 EQU 0 «, t00=0x0019, t01=0x0108}
0x02824…02838 Head {h00=0x0010, h01=0x0050, text=»LAMP3 EQU 1 «, t00=0x0019, t01=0x011c}
0x02838…0284c Head {h00=0x0010, h01=0x0050, text=»LAMP4 EQU 2 «, t00=0x0019, t01=0x0130}
0x0284c…02860 Head {h00=0x0010, h01=0x0050, text=»LAMP5 EQU 4 «, t00=0x0019, t01=0x0144}
0x02860…02874 Head {h00=0x0010, h01=0x0050, text=»LAMP6 EQU 8 «, t00=0x0019, t01=0x0158}
0x02874…02880 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0019, t01=0x016c}
0x02880…0288a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0019, t01=0x0178}
0x0288a…028a4 Head {h00=0x0016, h01=0x0050, text=»* VDU SCREEN SIZE «, t00=0x0019, t01=0x0182}
0x028a4…028ae Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001a, t01=0x000c}
0x028ae…028ce Head {h00=0x001c, h01=0x0050, text=»LLINE EQU 80 LINE LENGTH«, t00=0x001a, t01=0x0016}
0x028ce…028f0 Head {h00=0x001e, h01=0x0050, text=»LBVDU EQU 1920 TOTAL SIZE «, t00=0x001a, t01=0x0036}
0x028f0…028fa Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001a, t01=0x0058}
0x028fa…0290a Head {h00=0x000c, h01=0x0050, text=»* MODES «, t00=0x001a, t01=0x0062}
0x0290a…02914 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001a, t01=0x0072}
0x02914…02936 Head {h00=0x001e, h01=0x0050, text=»NEWMOD EQU /8000 NEW MODE «, t00=0x001a, t01=0x007c}
0x02936…02964 Head {h00=0x002a, h01=0x0050, text=»HCPMOD EQU /4000 HARDCOPY OUTSTANDING «, t00=0x001a, t01=0x009e}
0x02964…02988 Head {h00=0x0020, h01=0x0050, text=»MYJOB EQU /0004 MY JOB MODE «, t00=0x001a, t01=0x00cc}
0x02988…029b4 Head {h00=0x0028, h01=0x0050, text=»SYSOP EQU /0002 SYSTEM OPERATOR MODE«, t00=0x001a, t01=0x00f0}
0x029b4…029d8 Head {h00=0x0020, h01=0x0050, text=»LOCMOD EQU /0000 LOCAL MODE «, t00=0x001a, t01=0x011c}
0x029d8…029e2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001a, t01=0x0140}
0x029e2…02a04 Head {h00=0x001e, h01=0x0050, text=»* TASK IDENTIFICATION CODE«, t00=0x001a, t01=0x014a}
0x02a04…02a0e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001a, t01=0x016c}
0x02a0e…02a32 Head {h00=0x0020, h01=0x0050, text=»VDUCOD EQU 'VV' VDU KB TASK «, t00=0x001a, t01=0x0176}
0x02a32…02a40 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x001b, t01=0x000a}
0x02a40…02a4a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001b, t01=0x0018}
0x02a4a…02a6a Head {h00=0x001c, h01=0x0050, text=»* RELATIVE ADDRESSES IN «, t00=0x001b, t01=0x0022}
0x02a6a…02a86 Head {h00=0x0018, h01=0x0050, text=»* TERMINAL WORKBLOCK«, t00=0x001b, t01=0x0042}
0x02a86…02a90 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001b, t01=0x005e}
0x02a90…02ab4 Head {h00=0x0020, h01=0x0050, text=»BVDU EQU 2 VDU SCREEN BUFFER«, t00=0x001b, t01=0x0068}
0x02ab4…02adc Head {h00=0x0024, h01=0x0050, text=»LINFLG EQU BVDU+1920 LINE FLAGS «, t00=0x001b, t01=0x008c}
0x02adc…02b00 Head {h00=0x0020, h01=0x0050, text=»WCC EQU LINFLG+30 WCC CHAR. «, t00=0x001b, t01=0x00b4}
0x02b00…02b32 Head {h00=0x002e, h01=0x0050, text=»KBINH EQU WCC+2 KEYBOARD INHIBIT INDICATOR«, t00=0x001b, t01=0x00d8}
0x02b32…02b5a Head {h00=0x0024, h01=0x0050, text=»OFFFLG EQU KBINH+8 OFFLINE FLAG «, t00=0x001b, t01=0x010a}
0x02b5a…02b86 Head {h00=0x0028, h01=0x0050, text=»PRTID EQU OFFFLG+2 HARDCOPY PRINTER «, t00=0x001b, t01=0x0132}
0x02b86…02baa Head {h00=0x0020, h01=0x0050, text=»MAIN EQU PRTID+6 MAIN FRAME «, t00=0x001b, t01=0x015e}
0x02baa…02bd4 Head {h00=0x0026, h01=0x0050, text=»MODE EQU MAIN+2 INSERT MODE SWITCH«, t00=0x001b, t01=0x0182}
0x02bd4…02bfc Head {h00=0x0024, h01=0x0050, text=»KEYS EQU MODE+2 KEY LOCK STATUS «, t00=0x001c, t01=0x001c}
0x02bfc…02c34 Head {h00=0x0034, h01=0x0050, text=»RDMORE EQU KEYS+12 BRANCH ADDRESS TO NEXT KB-KEY«, t00=0x001c, t01=0x0044}
0x02c34…02c6a Head {h00=0x0032, h01=0x0050, text=»CURPOS EQU RDMORE+2 CURSOR POS. IN SYSTEM MODE«, t00=0x001c, t01=0x007c}
0x02c6a…02c8e Head {h00=0x0020, h01=0x0050, text=»REGI EQU CURPOS+4 SAVE AREA «, t00=0x001c, t01=0x00b2}
0x02c8e…02cb2 Head {h00=0x0020, h01=0x0050, text=»SNAMOD EQU REGI+32 SNA MODE «, t00=0x001c, t01=0x00d6}
0x02cb2…02cd4 Head {h00=0x001e, h01=0x0050, text=»BSCMOD EQU SNAMOD BSC MODE«, t00=0x001c, t01=0x00fa}
0x02cd4…02cf6 Head {h00=0x001e, h01=0x0050, text=»ECBKB EQU BSCMOD+2 ECB KB «, t00=0x001c, t01=0x011c}
0x02cf6…02d22 Head {h00=0x0028, h01=0x0050, text=»ECBSD EQU ECBKB+4 ECB SIGNAL DISPLAY«, t00=0x001c, t01=0x013e}
0x02d22…02d50 Head {h00=0x002a, h01=0x0050, text=»ECBICR EQU ECBSD+4 ECB INTERTASK READ «, t00=0x001c, t01=0x016a}
0x02d50…02d7e Head {h00=0x002a, h01=0x0050, text=»ECBICW EQU ECBICR+2 ECB INTERTAS WRITE«, t00=0x001d, t01=0x0008}
0x02d7e…02dae Head {h00=0x002c, h01=0x0050, text=»ECBKB2 EQU ECBICW+6 ECB 2ND KEYBOARD DK «, t00=0x001d, t01=0x0036}
0x02dae…02db8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001d, t01=0x0066}
0x02db8…02dd8 Head {h00=0x001c, h01=0x0050, text=»* RELATIVE ADDRESSES IN «, t00=0x001d, t01=0x0070}
0x02dd8…02df2 Head {h00=0x0016, h01=0x0050, text=»* COMMON WORKBLOCK«, t00=0x001d, t01=0x0090}
0x02df2…02dfc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001d, t01=0x00aa}
0x02dfc…02e10 Head {h00=0x0010, h01=0x0050, text=» IFF TEST=1 «, t00=0x001d, t01=0x00b4}
0x02e10…02e30 Head {h00=0x001c, h01=0x0050, text=»TSKTAB EQU 26 TASK TABLE«, t00=0x001d, t01=0x00c8}
0x02e30…02e3c Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x001d, t01=0x00e8}
0x02e3c…02e50 Head {h00=0x0010, h01=0x0050, text=» IFT TEST=1 «, t00=0x001d, t01=0x00f4}
0x02e50…02e72 Head {h00=0x001e, h01=0x0050, text=»TSKTAB EQU 219 TASK TABLE «, t00=0x001d, t01=0x0108}
0x02e72…02e7e Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x001d, t01=0x012a}
0x02e7e…02e8c Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x001d, t01=0x0136}
0x02e8c…02ed4 Head {h00=0x0044, h01=0x0050, text=»****************************************************************«, t00=0x001d, t01=0x0144}
0x02ed4…02f1c Head {h00=0x0044, h01=0x0050, text=»* *«, t00=0x001d, t01=0x018c}
0x02f1c…02f64 Head {h00=0x0044, h01=0x0050, text=»* KBINP MAIN ROUTINE *«, t00=0x001e, t01=0x0044}
0x02f64…02fac Head {h00=0x0044, h01=0x0050, text=»* *«, t00=0x001e, t01=0x008c}
0x02fac…02ff4 Head {h00=0x0044, h01=0x0050, text=»****************************************************************«, t00=0x001e, t01=0x00d4}
0x02ff4…03008 Head {h00=0x0010, h01=0x0050, text=»* REGISTERS«, t00=0x001e, t01=0x011c}
0x03008…03012 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001e, t01=0x0130}
0x03012…0302a Head {h00=0x0014, h01=0x0050, text=»* A2= KEY-CHAR. «, t00=0x001e, t01=0x013a}
0x0302a…03048 Head {h00=0x001a, h01=0x0050, text=»* A3= KEY-TABLE INDEX «, t00=0x001e, t01=0x0152}
0x03048…0305e Head {h00=0x0012, h01=0x0050, text=»* A4= RESERVED«, t00=0x001e, t01=0x0170}
0x0305e…03074 Head {h00=0x0012, h01=0x0050, text=»* A5= RESERVED«, t00=0x001e, t01=0x0186}
0x03074…0308a Head {h00=0x0012, h01=0x0050, text=»* A6= RESERVED«, t00=0x001f, t01=0x000c}
0x0308a…030ae Head {h00=0x0020, h01=0x0050, text=»* A7= KEY-HANDLING INDICATOR«, t00=0x001f, t01=0x0022}
0x030ae…030ce Head {h00=0x001c, h01=0x0050, text=»* A11= CREDIT WORK AREA «, t00=0x001f, t01=0x0046}
0x030ce…030e6 Head {h00=0x0014, h01=0x0050, text=»* A13= RESERVED «, t00=0x001f, t01=0x0066}
0x030e6…030f0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001f, t01=0x007e}
0x030f0…03134 Head {h00=0x0040, h01=0x0050, text=»*********************************************************** «, t00=0x001f, t01=0x0088}
0x03134…0314a Head {h00=0x0012, h01=0x0050, text=»KBINP2 EQU * «, t00=0x001f, t01=0x00cc}
0x0314a…0317c Head {h00=0x002e, h01=0x0050, text=» LDK A1,1 INDICATE 2ND KEYBOARD PRESENT DK«, t00=0x001f, t01=0x00e2}
0x0317c…03198 Head {h00=0x0018, h01=0x0050, text=» ST A1,ECBCW2,A8 DK«, t00=0x001f, t01=0x0114}
0x03198…031ac Head {h00=0x0010, h01=0x0050, text=»KBINP EQU * «, t00=0x001f, t01=0x0130}
0x031ac…031ce Head {h00=0x001e, h01=0x0050, text=» LD A1,ECBRC,A8 POWER ON? «, t00=0x001f, t01=0x0144}
0x031ce…031f2 Head {h00=0x0020, h01=0x0050, text=» RF(Z) KBIN90 YES, SKIP IT «, t00=0x001f, t01=0x0166}
0x031f2…03208 Head {h00=0x0012, h01=0x0050, text=» IFT KEYLST=0 «, t00=0x001f, t01=0x018a}
0x03208…03234 Head {h00=0x0028, h01=0x0050, text=» LD A1,ECBCW,A8 SEE IF KEYLOCK ? DK «, t00=0x0020, t01=0x0010}
0x03234…03254 Head {h00=0x001c, h01=0x0050, text=» RF(N) KBIN80 SKIP IT DK«, t00=0x0020, t01=0x003c}
0x03254…03260 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0020, t01=0x005c}
0x03260…03276 Head {h00=0x0012, h01=0x0050, text=» IFT KEYLST=1 «, t00=0x0020, t01=0x0068}
0x03276…032a0 Head {h00=0x0026, h01=0x0050, text=» LC* A2,ECBBA,A8 GET KEYLOCK VALUE«, t00=0x0020, t01=0x007e}
0x032a0…032ce Head {h00=0x002a, h01=0x0050, text=» ADKL A2,FKLKEY-/70 PREPARE FOR TABLE «, t00=0x0020, t01=0x00a8}
0x032ce…032ee Head {h00=0x001c, h01=0x0050, text=» SC* A2,ECBBA,A8 RESTORE«, t00=0x0020, t01=0x00d6}
0x032ee…032fa Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0020, t01=0x00f6}
0x032fa…03318 Head {h00=0x001a, h01=0x0050, text=» LD A1,ECBRC,A8 ERROR?«, t00=0x0020, t01=0x0102}
0x03318…0332e Head {h00=0x0012, h01=0x0050, text=» ANKL A1,/FFF3«, t00=0x0020, t01=0x0120}
0x0332e…03348 Head {h00=0x0016, h01=0x0050, text=» RF(NZ) KBIN80 YES«, t00=0x0020, t01=0x0136}
0x03348…03360 Head {h00=0x0014, h01=0x0050, text=» LD A1,KBINH,A11«, t00=0x0020, t01=0x0150}
0x03360…03384 Head {h00=0x0020, h01=0x0050, text=» ANK A1,1 KB TOTALY INHIBIT?«, t00=0x0020, t01=0x0168}
0x03384…0339e Head {h00=0x0016, h01=0x0050, text=» RF(NZ) KBIN80 YES«, t00=0x0020, t01=0x018c}
0x0339e…033c6 Head {h00=0x0024, h01=0x0050, text=» LC* A2,ECBBA,A8 GET INPUT CHAR.«, t00=0x0021, t01=0x0016}
0x033c6…033da Head {h00=0x0010, h01=0x0050, text=» ANK A2,/FF «, t00=0x0021, t01=0x003e}
0x033da…033f2 Head {h00=0x0014, h01=0x0050, text=» LD A1,KBINH,A11«, t00=0x0021, t01=0x0052}
0x033f2…03418 Head {h00=0x0022, h01=0x0050, text=» ANK A1,6 MUST BE A RESET KEY?«, t00=0x0021, t01=0x006a}
0x03418…03430 Head {h00=0x0014, h01=0x0050, text=» RF(Z) KBIN30 NO«, t00=0x0021, t01=0x0090}
0x03430…03450 Head {h00=0x001c, h01=0x0050, text=» CWK A2,RSET RESET KEY? «, t00=0x0021, t01=0x00a8}
0x03450…03462 Head {h00=0x000e, h01=0x0050, text=» IFT SNA=1«, t00=0x0021, t01=0x00c8}
0x03462…0347c Head {h00=0x0016, h01=0x0050, text=» RF(E) KBIN30 YES «, t00=0x0021, t01=0x00da}
0x0347c…034a6 Head {h00=0x0026, h01=0x0050, text=» CWK A2,SYSKEY SYSTEM REQUEST KEY?«, t00=0x0021, t01=0x00f4}
0x034a6…034b2 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0021, t01=0x011e}
0x034b2…034cc Head {h00=0x0016, h01=0x0050, text=» RF(NE) KBIN80 NO «, t00=0x0021, t01=0x012a}
0x034cc…034e0 Head {h00=0x0010, h01=0x0050, text=»KBIN30 EQU *«, t00=0x0021, t01=0x0144}
0x034e0…034f2 Head {h00=0x000e, h01=0x0050, text=» LDR A3,A2«, t00=0x0021, t01=0x0158}
0x034f2…03518 Head {h00=0x0022, h01=0x0050, text=» SUK A3,/20 INDEX TO KEY-TABLE«, t00=0x0021, t01=0x016a}
0x03518…0353a Head {h00=0x001e, h01=0x0050, text=» RF(N) KBIN80 ILLEGAL CHAR«, t00=0x0021, t01=0x0190}
0x0353a…03550 Head {h00=0x0012, h01=0x0050, text=» CWK A2,LAKEY «, t00=0x0022, t01=0x0022}
0x03550…03572 Head {h00=0x001e, h01=0x0050, text=» RF(G) KBIN80 ILLEGAL CHAR«, t00=0x0022, t01=0x0038}
0x03572…03584 Head {h00=0x000e, h01=0x0050, text=» IFT SNA=1«, t00=0x0022, t01=0x005a}
0x03584…035aa Head {h00=0x0022, h01=0x0050, text=» LD A1,SNAMOD,A11 GET SNA MODE«, t00=0x0022, t01=0x006c}
0x035aa…035be Head {h00=0x0010, h01=0x0050, text=» ANK A1,/FF «, t00=0x0022, t01=0x0092}
0x035be…035f4 Head {h00=0x0032, h01=0x0050, text=» CFI A14,CPLKB,A1 COMPLETE KB IN CURRENT MODE «, t00=0x0022, t01=0x00a6}
0x035f4…03600 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0022, t01=0x00dc}
0x03600…03612 Head {h00=0x000e, h01=0x0050, text=» IFF SNA=1«, t00=0x0022, t01=0x00e8}
0x03612…03624 Head {h00=0x000e, h01=0x0050, text=» LDK A7,0 «, t00=0x0022, t01=0x00fa}
0x03624…0364a Head {h00=0x0022, h01=0x0050, text=» CWK A2,FIPA PROGRAM ATTN KEY?«, t00=0x0022, t01=0x010c}
0x0364a…03662 Head {h00=0x0014, h01=0x0050, text=» RF(L) KBIN40 NO«, t00=0x0022, t01=0x0132}
0x03662…03676 Head {h00=0x0010, h01=0x0050, text=» CM MODE,A11«, t00=0x0022, t01=0x014a}
0x03676…0369e Head {h00=0x0024, h01=0x0050, text=» CF A14,LMP6OF CLEAR INSERT MODE«, t00=0x0022, t01=0x015e}
0x0369e…036b4 Head {h00=0x0012, h01=0x0050, text=» CF A14,DCABOR«, t00=0x0022, t01=0x0186}
0x036b4…036c8 Head {h00=0x0010, h01=0x0050, text=»KBIN40 EQU *«, t00=0x0023, t01=0x000c}
0x036c8…036d4 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0023, t01=0x0020}
0x036d4…036f8 Head {h00=0x0020, h01=0x0050, text=» LDR A7,A7 ANY KEY-HANDLING «, t00=0x0023, t01=0x002c}
0x036f8…03712 Head {h00=0x0016, h01=0x0050, text=» RF(NZ) KBIN80 NO «, t00=0x0023, t01=0x0050}
0x03712…0373a Head {h00=0x0024, h01=0x0050, text=» ADR A3,A3 PREPARE FOR KEY-TABLE«, t00=0x0023, t01=0x006a}
0x0373a…03764 Head {h00=0x0026, h01=0x0050, text=» LD A1,RDMORE,A11 KEY IN SEQUENCE?«, t00=0x0023, t01=0x0092}
0x03764…0377c Head {h00=0x0014, h01=0x0050, text=» RF(Z) KBIN50 NO«, t00=0x0023, t01=0x00bc}
0x0377c…037a4 Head {h00=0x0024, h01=0x0050, text=» CF A14,DCABOR KILL DC AGAIN DK «, t00=0x0023, t01=0x00d4}
0x037a4…037cc Head {h00=0x0024, h01=0x0050, text=» LD A1,RDMORE,A11 RESTORE A1 DK2«, t00=0x0023, t01=0x00fc}
0x037cc…037f8 Head {h00=0x0028, h01=0x0050, text=» CFR A14,A1 CONTINUE AT SAVED LABEL «, t00=0x0023, t01=0x0124}
0x037f8…0380a Head {h00=0x000e, h01=0x0050, text=» RF KBIN90«, t00=0x0023, t01=0x0150}
0x0380a…0381e Head {h00=0x0010, h01=0x0050, text=»KBIN50 EQU *«, t00=0x0023, t01=0x0162}
0x0381e…03854 Head {h00=0x0032, h01=0x0050, text=» CFI A14,KEYTAB,A3 BRANCH TO RESP. KEY-HANDLER«, t00=0x0023, t01=0x0176}
0x03854…03866 Head {h00=0x000e, h01=0x0050, text=» RF KBIN90«, t00=0x0024, t01=0x001c}
0x03866…0387a Head {h00=0x0010, h01=0x0050, text=»KBIN80 EQU *«, t00=0x0024, t01=0x002e}
0x0387a…038a0 Head {h00=0x0022, h01=0x0050, text=» CF A14,RESKB RESET KB BUFFER «, t00=0x0024, t01=0x0042}
0x038a0…038b4 Head {h00=0x0010, h01=0x0050, text=»KBIN90 EQU *«, t00=0x0024, t01=0x0068}
0x038b4…038c4 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0024, t01=0x007c}
0x038c4…038d2 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0024, t01=0x008c}
0x038d2…038e4 Head {h00=0x000e, h01=0x0050, text=» IFT SNA=1«, t00=0x0024, t01=0x009a}
0x038e4…03932 Head {h00=0x004a, h01=0x0050, text=»********************************************************************* «, t00=0x0024, t01=0x00ac}
0x03932…03980 Head {h00=0x004a, h01=0x0050, text=»* * «, t00=0x0024, t01=0x00fa}
0x03980…039ce Head {h00=0x004a, h01=0x0050, text=»* CPLKB KB-COMPLETION TABLE * «, t00=0x0024, t01=0x0148}
0x039ce…03a1c Head {h00=0x004a, h01=0x0050, text=»* * «, t00=0x0025, t01=0x0008}
0x03a1c…03a6a Head {h00=0x004a, h01=0x0050, text=»********************************************************************* «, t00=0x0025, t01=0x0056}
0x03a6a…03a7e Head {h00=0x0010, h01=0x0050, text=»CPLKB EQU * «, t00=0x0025, t01=0x00a4}
0x03a7e…03aaa Head {h00=0x0028, h01=0x0050, text=» DATA KBCPLO KB-COMPL. IN LOCAL MODE«, t00=0x0025, t01=0x00b8}
0x03aaa…03ad8 Head {h00=0x002a, h01=0x0050, text=» DATA KBCPSY KB-COMPL. IN SYSTEM MODE «, t00=0x0025, t01=0x00e4}
0x03ad8…03b06 Head {h00=0x002a, h01=0x0050, text=» DATA KBCPJO KB-COMPL. IN MY JOB MODE «, t00=0x0025, t01=0x0112}
0x03b06…03b14 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0025, t01=0x0140}
0x03b14…03b62 Head {h00=0x004a, h01=0x0050, text=»********************************************************************* «, t00=0x0025, t01=0x014e}
0x03b62…03bb0 Head {h00=0x004a, h01=0x0050, text=»* * «, t00=0x0026, t01=0x000c}
0x03bb0…03bfe Head {h00=0x004a, h01=0x0050, text=»* KBCLO KB-COMPLETION IN LOCAL MODE * «, t00=0x0026, t01=0x005a}
0x03bfe…03c4c Head {h00=0x004a, h01=0x0050, text=»* * «, t00=0x0026, t01=0x00a8}
0x03c4c…03c9a Head {h00=0x004a, h01=0x0050, text=»********************************************************************* «, t00=0x0026, t01=0x00f6}
0x03c9a…03cae Head {h00=0x0010, h01=0x0050, text=»* REGISTERS«, t00=0x0026, t01=0x0144}
0x03cae…03cb8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0026, t01=0x0158}
0x03cb8…03cce Head {h00=0x0012, h01=0x0050, text=»* A2= KEY-CHAR«, t00=0x0026, t01=0x0162}
0x03cce…03cec Head {h00=0x001a, h01=0x0050, text=»* A3= KEY-TABLE INDEX «, t00=0x0026, t01=0x0178}
0x03cec…03d02 Head {h00=0x0012, h01=0x0050, text=»* A4= RESERVED«, t00=0x0027, t01=0x0008}
0x03d02…03d18 Head {h00=0x0012, h01=0x0050, text=»* A5= RESERVED«, t00=0x0027, t01=0x001e}
0x03d18…03d2e Head {h00=0x0012, h01=0x0050, text=»* A6= RESERVED«, t00=0x0027, t01=0x0034}
0x03d2e…03d52 Head {h00=0x0020, h01=0x0050, text=»* A7= KEY-HANDLING INDICATOR«, t00=0x0027, t01=0x004a}
0x03d52…03d72 Head {h00=0x001c, h01=0x0050, text=»* A11= CREDIT WORK AREA «, t00=0x0027, t01=0x006e}
0x03d72…03d8a Head {h00=0x0014, h01=0x0050, text=»* A13= RESERVED «, t00=0x0027, t01=0x008e}
0x03d8a…03d94 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0027, t01=0x00a6}
0x03d94…03dd8 Head {h00=0x0040, h01=0x0050, text=»*********************************************************** «, t00=0x0027, t01=0x00b0}
0x03dd8…03dec Head {h00=0x0010, h01=0x0050, text=»KBCPLO EQU *«, t00=0x0027, t01=0x00f4}
0x03dec…03e14 Head {h00=0x0024, h01=0x0050, text=» LDK A7,0 INDICATE KEY-HANDLING «, t00=0x0027, t01=0x0108}
0x03e14…03e3c Head {h00=0x0024, h01=0x0050, text=» CWK A2,FIPA PROGRAM ATTN, KEY? «, t00=0x0027, t01=0x0130}
0x03e3c…03e56 Head {h00=0x0016, h01=0x0050, text=» RF(NG) KBCL90 NO «, t00=0x0027, t01=0x0158}
0x03e56…03e78 Head {h00=0x001e, h01=0x0050, text=» LDK A7,1 NO KEY-HANDLING «, t00=0x0027, t01=0x0172}
0x03e78…03e9e (40, 0, 400) Head {h00=0x0022, h01=0x0050, text=» CWK A2,SYSKEY SYSTEM REQUEST?«, t00=0x0028, t01=0x0004}
0x03e9e…03eb8 Head {h00=0x0016, h01=0x0050, text=» RF(NE) KBCL80 NO «, t00=0x0028, t01=0x002a}
0x03eb8…03ee2 Head {h00=0x0026, h01=0x0050, text=» CF A14,OPSYS START COMMUNICATION «, t00=0x0028, t01=0x0044}
0x03ee2…03f04 Head {h00=0x001e, h01=0x0050, text=» CF A14,TSTSTA TEST STATUS«, t00=0x0028, t01=0x006e}
0x03f04…03f22 Head {h00=0x001a, h01=0x0050, text=» ANKL A1,/101 ACTIVE? «, t00=0x0028, t01=0x0090}
0x03f22…03f3c Head {h00=0x0016, h01=0x0050, text=» RF(NZ) KBCL90 NO «, t00=0x0028, t01=0x00ae}
0x03f3c…03f66 Head {h00=0x0026, h01=0x0050, text=» LDK A1,SYSOP INDICATE SYSTEM MODE«, t00=0x0028, t01=0x00c8}
0x03f66…03f96 Head {h00=0x002c, h01=0x0050, text=» ORKL A1,/8000 INDICATE MODE ACTIVATION «, t00=0x0028, t01=0x00f2}
0x03f96…03fb0 Head {h00=0x0016, h01=0x0050, text=» ST A1,SNAMOD,A11 «, t00=0x0028, t01=0x0122}
0x03fb0…03fc2 Head {h00=0x000e, h01=0x0050, text=» RF KBCL90«, t00=0x0028, t01=0x013c}
0x03fc2…03fd6 Head {h00=0x0010, h01=0x0050, text=»KBCL80 EQU *«, t00=0x0028, t01=0x014e}
0x03fd6…03ff8 Head {h00=0x001e, h01=0x0050, text=» CWK A2,ENTKEY ENTER KEY? «, t00=0x0028, t01=0x0162}
0x03ff8…04012 Head {h00=0x0016, h01=0x0050, text=» RF(NE) KBCL85 NO «, t00=0x0028, t01=0x0184}
0x04012…04042 Head {h00=0x002c, h01=0x0050, text=» LD A1,RDMORE,A11 INSIDE IDENT ROUTINE? «, t00=0x0029, t01=0x000e}
0x04042…0405a Head {h00=0x0014, h01=0x0050, text=» RF(Z) KBCL85 NO«, t00=0x0029, t01=0x003e}
0x0405a…04082 Head {h00=0x0024, h01=0x0050, text=» LDK A7,0 INDICATE KEY-HANDLING «, t00=0x0029, t01=0x0056}
0x04082…04094 Head {h00=0x000e, h01=0x0050, text=» RF KBCL90«, t00=0x0029, t01=0x007e}
0x04094…040a8 Head {h00=0x0010, h01=0x0050, text=»KBCL85 EQU *«, t00=0x0029, t01=0x0090}
0x040a8…040ca Head {h00=0x001e, h01=0x0050, text=» CF A14,ERROR ILLEGAL KEY «, t00=0x0029, t01=0x00a4}
0x040ca…040de Head {h00=0x0010, h01=0x0050, text=»KBCL90 EQU *«, t00=0x0029, t01=0x00c6}
0x040de…040ee Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0029, t01=0x00da}
0x040ee…040fc Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0029, t01=0x00ea}
0x040fc…04148 Head {h00=0x0048, h01=0x0050, text=»********************************************************************«, t00=0x0029, t01=0x00f8}
0x04148…04194 Head {h00=0x0048, h01=0x0050, text=»* *«, t00=0x0029, t01=0x0144}
0x04194…041e0 Head {h00=0x0048, h01=0x0050, text=»* KBCPSY KB-COMPLETION IN SYSTEM MODE *«, t00=0x0029, t01=0x0190}
0x041e0…0422c Head {h00=0x0048, h01=0x0050, text=»* *«, t00=0x002a, t01=0x004c}
0x0422c…04278 Head {h00=0x0048, h01=0x0050, text=»********************************************************************«, t00=0x002a, t01=0x0098}
0x04278…0428c Head {h00=0x0010, h01=0x0050, text=»* REGISTERS«, t00=0x002a, t01=0x00e4}
0x0428c…04296 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002a, t01=0x00f8}
0x04296…042ac Head {h00=0x0012, h01=0x0050, text=»* A2= KEY-CHAR«, t00=0x002a, t01=0x0102}
0x042ac…042ca Head {h00=0x001a, h01=0x0050, text=»* A3= KEY-TABLE INDEX «, t00=0x002a, t01=0x0118}
0x042ca…042e0 Head {h00=0x0012, h01=0x0050, text=»* A4= RESERVED«, t00=0x002a, t01=0x0136}
0x042e0…042f6 Head {h00=0x0012, h01=0x0050, text=»* A5= RESERVED«, t00=0x002a, t01=0x014c}
0x042f6…0430c Head {h00=0x0012, h01=0x0050, text=»* A6= RESERVED«, t00=0x002a, t01=0x0162}
0x0430c…04330 Head {h00=0x0020, h01=0x0050, text=»* A7= KEY-HANDLING INDICATOR«, t00=0x002a, t01=0x0178}
0x04330…04350 Head {h00=0x001c, h01=0x0050, text=»* A11= CREDIT WORK AREA «, t00=0x002b, t01=0x000c}
0x04350…04368 Head {h00=0x0014, h01=0x0050, text=»* A13= RESERVED «, t00=0x002b, t01=0x002c}
0x04368…04372 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002b, t01=0x0044}
0x04372…043b6 Head {h00=0x0040, h01=0x0050, text=»*********************************************************** «, t00=0x002b, t01=0x004e}
0x043b6…043ca Head {h00=0x0010, h01=0x0050, text=»KBCPSY EQU *«, t00=0x002b, t01=0x0092}
0x043ca…043f2 Head {h00=0x0024, h01=0x0050, text=» LDK A7,0 INDICATE KEY-HANDLING «, t00=0x002b, t01=0x00a6}
0x043f2…0441a Head {h00=0x0024, h01=0x0050, text=» CWK A2,FIPA PROGRAM ATTN. KEY? «, t00=0x002b, t01=0x00ce}
0x0441a…04432 Head {h00=0x0014, h01=0x0050, text=» RF(L) KBCS20 NO«, t00=0x002b, t01=0x00f6}
0x04432…04466 Head {h00=0x0030, h01=0x0050, text=» CWK A2,CLRKEY UNALLOWED PROGRAM ATTN. KEY? «, t00=0x002b, t01=0x010e}
0x04466…0448a Head {h00=0x0020, h01=0x0050, text=» RF(NE) KBCS10 NOT CLEAR KEY«, t00=0x002b, t01=0x0142}
0x0448a…044b4 Head {h00=0x0026, h01=0x0050, text=» LDK A7,1 INDICATE NO KEY-HANDLING«, t00=0x002b, t01=0x0166}
0x044b4…044de Head {h00=0x0026, h01=0x0050, text=» CF A14,ERASE ERASE ENTIRE SCREEN «, t00=0x002b, t01=0x0190}
0x044de…044f0 Head {h00=0x000e, h01=0x0050, text=» RF KBCS80«, t00=0x002c, t01=0x002a}
0x044f0…04504 Head {h00=0x0010, h01=0x0050, text=»KBCS10 EQU *«, t00=0x002c, t01=0x003c}
0x04504…0451e Head {h00=0x0016, h01=0x0050, text=» RF(G) KBCS70 YES «, t00=0x002c, t01=0x0050}
0x0451e…04532 Head {h00=0x0010, h01=0x0050, text=» CM MODE,A11«, t00=0x002c, t01=0x006a}
0x04532…0455a Head {h00=0x0024, h01=0x0050, text=» CF A14,LMP6OF CLEAR INSERT MODE«, t00=0x002c, t01=0x007e}
0x0455a…0457a Head {h00=0x001c, h01=0x0050, text=» CF A14,DCABOR ABORT DC «, t00=0x002c, t01=0x00a6}
0x0457a…0458c Head {h00=0x000e, h01=0x0050, text=» RF KBCS80«, t00=0x002c, t01=0x00c6}
0x0458c…045a0 Head {h00=0x0010, h01=0x0050, text=»KBCS20 EQU *«, t00=0x002c, t01=0x00d8}
0x045a0…045c8 Head {h00=0x0024, h01=0x0050, text=» CWK A2,ERIKEY ERASE INPUT KEY? «, t00=0x002c, t01=0x00ec}
0x045c8…045e2 Head {h00=0x0016, h01=0x0050, text=» RF(E) KBCS80 YES «, t00=0x002c, t01=0x0114}
0x045e2…04610 Head {h00=0x002a, h01=0x0050, text=» CWK A2,ERFKEY ERASE END OF FIELD KEY?«, t00=0x002c, t01=0x012e}
0x04610…0462a Head {h00=0x0016, h01=0x0050, text=» RF(E) KBCS80 YES «, t00=0x002c, t01=0x015c}
0x0462a…04652 Head {h00=0x0024, h01=0x0050, text=» CWK A2,CRUP INITIATE CURSOR? =1«, t00=0x002c, t01=0x0176}
0x04652…0466e Head {h00=0x0018, h01=0x0050, text=» RF(NL) KBCS90 NO =1«, t00=0x002d, t01=0x000e}
0x0466e…04688 Head {h00=0x0016, h01=0x0050, text=» LD A1,CURPOS,A11 «, t00=0x002d, t01=0x002a}
0x04688…046ae Head {h00=0x0022, h01=0x0050, text=» CWK A1,/800 CURSOR INITIATED?«, t00=0x002d, t01=0x0044}
0x046ae…046c8 Head {h00=0x0016, h01=0x0050, text=» RF(NE) KBCS90 YES«, t00=0x002d, t01=0x006a}
0x046c8…046f0 Head {h00=0x0024, h01=0x0050, text=» CF A14,SCRINF GET SCREEN INFO. «, t00=0x002d, t01=0x0084}
0x046f0…0471a Head {h00=0x0026, h01=0x0050, text=» ST A4,CURPOS,A11 INITIATE CURSOR «, t00=0x002d, t01=0x00ac}
0x0471a…0472c Head {h00=0x000e, h01=0x0050, text=» RF KBCS90«, t00=0x002d, t01=0x00d6}
0x0472c…04740 Head {h00=0x0010, h01=0x0050, text=»KBCS70 EQU *«, t00=0x002d, t01=0x00e8}
0x04740…04764 Head {h00=0x0020, h01=0x0050, text=» CF A14,ERROR INDICATE ERROR«, t00=0x002d, t01=0x00fc}
0x04764…04786 Head {h00=0x001e, h01=0x0050, text=» LDK A7,1 NO KEY-HANDLING «, t00=0x002d, t01=0x0120}
0x04786…04798 Head {h00=0x000e, h01=0x0050, text=» RF KBCS90«, t00=0x002d, t01=0x0142}
0x04798…047ac Head {h00=0x0010, h01=0x0050, text=»KBCS80 EQU *«, t00=0x002d, t01=0x0154}
0x047ac…047dc Head {h00=0x002c, h01=0x0050, text=» LDKL A1,NEWMOD INDICATE MODE ACTIVATION«, t00=0x002d, t01=0x0168}
0x047dc…047f6 Head {h00=0x0016, h01=0x0050, text=» ORS A1,SNAMOD,A11«, t00=0x002e, t01=0x0008}
0x047f6…0480a Head {h00=0x0010, h01=0x0050, text=»KBCS90 EQU *«, t00=0x002e, t01=0x0022}
0x0480a…0481a Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x002e, t01=0x0036}
0x0481a…04828 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x002e, t01=0x0046}
0x04828…04872 Head {h00=0x0046, h01=0x0050, text=»******************************************************************«, t00=0x002e, t01=0x0054}
0x04872…048bc Head {h00=0x0046, h01=0x0050, text=»* *«, t00=0x002e, t01=0x009e}
0x048bc…04906 Head {h00=0x0046, h01=0x0050, text=»* KBCPJO KB-COMPLETION IN MY JOB MODE *«, t00=0x002e, t01=0x00e8}
0x04906…04950 Head {h00=0x0046, h01=0x0050, text=»* *«, t00=0x002e, t01=0x0132}
0x04950…0499a Head {h00=0x0046, h01=0x0050, text=»******************************************************************«, t00=0x002e, t01=0x017c}
0x0499a…049ae Head {h00=0x0010, h01=0x0050, text=»* REGISTERS«, t00=0x002f, t01=0x0036}
0x049ae…049b8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002f, t01=0x004a}
0x049b8…049ce Head {h00=0x0012, h01=0x0050, text=»* A2= KEY-CHAR«, t00=0x002f, t01=0x0054}
0x049ce…049ec Head {h00=0x001a, h01=0x0050, text=»* A3= KEY-TABLE INDEX «, t00=0x002f, t01=0x006a}
0x049ec…04a02 Head {h00=0x0012, h01=0x0050, text=»* A4= RESERVED«, t00=0x002f, t01=0x0088}
0x04a02…04a18 Head {h00=0x0012, h01=0x0050, text=»* A5= RESRVED «, t00=0x002f, t01=0x009e}
0x04a18…04a2e Head {h00=0x0012, h01=0x0050, text=»* A6= RESRVED «, t00=0x002f, t01=0x00b4}
0x04a2e…04a52 Head {h00=0x0020, h01=0x0050, text=»* A7= KEY-HANDLING INDICATOR«, t00=0x002f, t01=0x00ca}
0x04a52…04a72 Head {h00=0x001c, h01=0x0050, text=»* A11= CREDIT WORK AREA «, t00=0x002f, t01=0x00ee}
0x04a72…04a8a Head {h00=0x0014, h01=0x0050, text=»* A13= RESERVED «, t00=0x002f, t01=0x010e}
0x04a8a…04a94 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002f, t01=0x0126}
0x04a94…04ad8 Head {h00=0x0040, h01=0x0050, text=»************************************************************«, t00=0x002f, t01=0x0130}
0x04ad8…04aec Head {h00=0x0010, h01=0x0050, text=»KBCPJO EQU *«, t00=0x002f, t01=0x0174}
0x04aec…04b14 Head {h00=0x0024, h01=0x0050, text=» LDK A7,0 INDICATE KEY-HANDLING «, t00=0x002f, t01=0x0188}
0x04b14…04b3c Head {h00=0x0024, h01=0x0050, text=» CWK A2,FIPA PROGRAM ATTN. KEY? «, t00=0x0030, t01=0x0020}
0x04b3c…04b54 Head {h00=0x0014, h01=0x0050, text=» RF(L) KBCJ90 NO«, t00=0x0030, t01=0x0048}
0x04b54…04b68 Head {h00=0x0010, h01=0x0050, text=» IFT OFLIN=1«, t00=0x0030, t01=0x0060}
0x04b68…04b7e Head {h00=0x0012, h01=0x0050, text=» RF(E) KBCJ80 «, t00=0x0030, t01=0x0074}
0x04b7e…04b8a Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0030, t01=0x008a}
0x04b8a…04b9c Head {h00=0x000e, h01=0x0050, text=» IFT SNA=1«, t00=0x0030, t01=0x0096}
0x04b9c…04bb0 Head {h00=0x0010, h01=0x0050, text=» CM MODE,A11«, t00=0x0030, t01=0x00a8}
0x04bb0…04bdc Head {h00=0x0028, h01=0x0050, text=» CF A14,LMP6OF TURN OFF INSERT LAMP «, t00=0x0030, t01=0x00bc}
0x04bdc…04bfc Head {h00=0x001c, h01=0x0050, text=» CF A14,DCABOR ABORT DC «, t00=0x0030, t01=0x00e8}
0x04bfc…04c10 Head {h00=0x0010, h01=0x0050, text=» IFT OFLIN=1«, t00=0x0030, t01=0x0108}
0x04c10…04c22 Head {h00=0x000e, h01=0x0050, text=» RF KBCJ90«, t00=0x0030, t01=0x011c}
0x04c22…04c36 Head {h00=0x0010, h01=0x0050, text=»KBCJ80 EQU *«, t00=0x0030, t01=0x012e}
0x04c36…04c5a Head {h00=0x0020, h01=0x0050, text=» CF A14,ERROR INDICATE ERROR«, t00=0x0030, t01=0x0142}
0x04c5a…04c7c Head {h00=0x001e, h01=0x0050, text=» LDK A7,1 NO KEY-HANDLING «, t00=0x0030, t01=0x0166}
0x04c7c…04c88 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0030, t01=0x0188}
0x04c88…04c9a (49, 0, 400) Head {h00=0x000e, h01=0x0050, text=» IFT SNA=1«, t00=0x0031, t01=0x0004}
0x04c9a…04cae Head {h00=0x0010, h01=0x0050, text=»KBCJ90 EQU *«, t00=0x0031, t01=0x0016}
0x04cae…04cbe Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0031, t01=0x002a}
0x04cbe…04cca Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0031, t01=0x003a}
0x04cca…04cd8 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0031, t01=0x0046}
0x04cd8…04d20 Head {h00=0x0044, h01=0x0050, text=»*************************************************************** «, t00=0x0031, t01=0x0054}
0x04d20…04d68 Head {h00=0x0044, h01=0x0050, text=»* * «, t00=0x0031, t01=0x009c}
0x04d68…04db0 Head {h00=0x0044, h01=0x0050, text=»* READKB READ KEYBOARD WITH NO WAIT * «, t00=0x0031, t01=0x00e4}
0x04db0…04df8 Head {h00=0x0044, h01=0x0050, text=»* * «, t00=0x0031, t01=0x012c}
0x04df8…04e40 Head {h00=0x0044, h01=0x0050, text=»*************************************************************** «, t00=0x0031, t01=0x0174}
0x04e40…04e5c Head {h00=0x0018, h01=0x0050, text=»* REGISTERS«, t00=0x0032, t01=0x002c}
0x04e5c…04e66 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0032, t01=0x0048}
0x04e66…04e7a Head {h00=0x0010, h01=0x0050, text=»* A8= KB-ECB«, t00=0x0032, t01=0x0052}
0x04e7a…04e9a Head {h00=0x001c, h01=0x0050, text=»* A11= CREDIT WORK AREA «, t00=0x0032, t01=0x0066}
0x04e9a…04eb2 Head {h00=0x0014, h01=0x0050, text=»* A13= RESERVED «, t00=0x0032, t01=0x0086}
0x04eb2…04ebc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0032, t01=0x009e}
0x04ebc…04efa Head {h00=0x003a, h01=0x0050, text=»***************************************************** «, t00=0x0032, t01=0x00a8}
0x04efa…04f0e Head {h00=0x0010, h01=0x0050, text=»READKB EQU *«, t00=0x0032, t01=0x00e6}
0x04f0e…04f26 Head {h00=0x0014, h01=0x0050, text=» LD A8,ECBKB,A11«, t00=0x0032, t01=0x00fa}
0x04f26…04f44 Head {h00=0x001a, h01=0x0050, text=» LDK A7,0 CLEAR ECBCW «, t00=0x0032, t01=0x0112}
0x04f44…04f5e Head {h00=0x0016, h01=0x0050, text=» ST A7,ECBCW,A8 «, t00=0x0032, t01=0x0130}
0x04f5e…04f70 Head {h00=0x000e, h01=0x0050, text=» LDK A7,1 «, t00=0x0032, t01=0x014a}
0x04f70…04f88 Head {h00=0x0014, h01=0x0050, text=» ST A7,ECBRL,A8 «, t00=0x0032, t01=0x015c}
0x04f88…04fbe Head {h00=0x0032, h01=0x0050, text=»* NO POWER OF INDICATOR ,...DK 81-10-17 * «, t00=0x0032, t01=0x0174}
0x04fbe…04fde Head {h00=0x001c, h01=0x0050, text=» LDK A7,2 STANDARD READ «, t00=0x0033, t01=0x001a}
0x04fde…04fea Head {h00=0x0008, h01=0x0050, text=» LKM«, t00=0x0033, t01=0x003a}
0x04fea…04ffa Head {h00=0x000c, h01=0x0050, text=» DATA 1 «, t00=0x0033, t01=0x0046}
0x04ffa…0500a Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0033, t01=0x0056}
0x0500a…0503e Head {h00=0x0030, h01=0x0050, text=»** READ FROM SECOND KEYBOARD, P & T, DK ** «, t00=0x0033, t01=0x0066}
0x0503e…05054 Head {h00=0x0012, h01=0x0050, text=»READK2 EQU * «, t00=0x0033, t01=0x009a}
0x05054…05076 Head {h00=0x001e, h01=0x0050, text=» LD A8,ECBKB2,A11 GET ECB «, t00=0x0033, t01=0x00b0}
0x05076…05094 Head {h00=0x001a, h01=0x0050, text=» LDK A7,0 CLEAR ECBCW «, t00=0x0033, t01=0x00d2}
0x05094…050ae Head {h00=0x0016, h01=0x0050, text=» ST A7,ECBCW,A8 «, t00=0x0033, t01=0x00f0}
0x050ae…050c0 Head {h00=0x000e, h01=0x0050, text=» LDK A7,1 «, t00=0x0033, t01=0x010a}
0x050c0…050d8 Head {h00=0x0014, h01=0x0050, text=» ST A7,ECBRL,A8 «, t00=0x0033, t01=0x011c}
0x050d8…050f8 Head {h00=0x001c, h01=0x0050, text=» LDK A7,2 STANDARD READ «, t00=0x0033, t01=0x0134}
0x050f8…05106 Head {h00=0x000a, h01=0x0050, text=» LKM «, t00=0x0033, t01=0x0154}
0x05106…05116 Head {h00=0x000c, h01=0x0050, text=» DATA 1 «, t00=0x0033, t01=0x0162}
0x05116…05128 Head {h00=0x000e, h01=0x0050, text=» RTN A14 «, t00=0x0033, t01=0x0172}
0x05128…0514a Head {h00=0x001e, h01=0x0050, text=»**END DK MODIFICATION ** «, t00=0x0033, t01=0x0184}
0x0514a…05158 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0034, t01=0x0016}
0x05158…051a0 Head {h00=0x0044, h01=0x0050, text=»*************************************************************** «, t00=0x0034, t01=0x0024}
0x051a0…051e8 Head {h00=0x0044, h01=0x0050, text=»* * «, t00=0x0034, t01=0x006c}
0x051e8…05230 Head {h00=0x0044, h01=0x0050, text=»* RESKB RESET KEYBOARD BUFFER * «, t00=0x0034, t01=0x00b4}
0x05230…05278 Head {h00=0x0044, h01=0x0050, text=»* * «, t00=0x0034, t01=0x00fc}
0x05278…052c0 Head {h00=0x0044, h01=0x0050, text=»*************************************************************** «, t00=0x0034, t01=0x0144}
0x052c0…052e0 Head {h00=0x001c, h01=0x0050, text=»* REGISTERS «, t00=0x0034, t01=0x018c}
0x052e0…052ea Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0035, t01=0x001c}
0x052ea…0530a Head {h00=0x001c, h01=0x0050, text=»* A11= CREDIT WORK AREA «, t00=0x0035, t01=0x0026}
0x0530a…05322 Head {h00=0x0014, h01=0x0050, text=»* A13= RESERVED «, t00=0x0035, t01=0x0046}
0x05322…0532c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0035, t01=0x005e}
0x0532c…0536a Head {h00=0x003a, h01=0x0050, text=»******************************************************«, t00=0x0035, t01=0x0068}
0x0536a…0537e Head {h00=0x0010, h01=0x0050, text=»RESKB EQU * «, t00=0x0035, t01=0x00a6}
0x0537e…053b4 Head {h00=0x0032, h01=0x0050, text=»* REMOVED UNTIL NEEDED......DK, 811028....**«, t00=0x0035, t01=0x00ba}
0x053b4…053c4 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0035, t01=0x00f0}
0x053c4…053d2 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0035, t01=0x0100}
0x053d2…05416 Head {h00=0x0040, h01=0x0050, text=»*********************************************************** «, t00=0x0035, t01=0x010e}
0x05416…0545a Head {h00=0x0040, h01=0x0050, text=»* * «, t00=0x0035, t01=0x0152}
0x0545a…05480 Head {h00=0x0022, h01=0x0050, text=»* ICVRED KB/VDU INTERTASK READ«, t00=0x0036, t01=0x0008}
0x05480…054c4 Head {h00=0x0040, h01=0x0050, text=»* * «, t00=0x0036, t01=0x002e}
0x054c4…05508 Head {h00=0x0040, h01=0x0050, text=»*********************************************************** «, t00=0x0036, t01=0x0072}
0x05508…05526 Head {h00=0x001a, h01=0x0050, text=»* REGISTERS«, t00=0x0036, t01=0x00b6}
0x05526…05530 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0036, t01=0x00d4}
0x05530…05546 Head {h00=0x0012, h01=0x0050, text=»* A2= RESERVED«, t00=0x0036, t01=0x00de}
0x05546…05566 Head {h00=0x001c, h01=0x0050, text=»* A11= CREDIT WORK AREA «, t00=0x0036, t01=0x00f4}
0x05566…0557e Head {h00=0x0014, h01=0x0050, text=»* A13= RESERVED «, t00=0x0036, t01=0x0114}
0x0557e…05588 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0036, t01=0x012c}
0x05588…055cc Head {h00=0x0040, h01=0x0050, text=»*********************************************************** «, t00=0x0036, t01=0x0136}
0x055cc…055e0 Head {h00=0x0010, h01=0x0050, text=»ICVRED EQU *«, t00=0x0036, t01=0x017a}
0x055e0…055fa Head {h00=0x0016, h01=0x0050, text=» LD A8,ECBICR,A11 «, t00=0x0036, t01=0x018e}
0x055fa…0561e Head {h00=0x0020, h01=0x0050, text=» CF A14,ICSET SET NO TIMEOUT«, t00=0x0037, t01=0x0018}
0x0561e…05634 Head {h00=0x0012, h01=0x0050, text=» IFF COPCMD=1 «, t00=0x0037, t01=0x003c}
0x05634…0564c Head {h00=0x0014, h01=0x0050, text=» LD A1,PRTID,A11«, t00=0x0037, t01=0x0052}
0x0564c…05658 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0037, t01=0x006a}
0x05658…0566e Head {h00=0x0012, h01=0x0050, text=» IFT COPCMD=1 «, t00=0x0037, t01=0x0076}
0x0566e…0568c Head {h00=0x001a, h01=0x0050, text=» LDK A1,0 UNADDRESSED «, t00=0x0037, t01=0x008c}
0x0568c…05698 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0037, t01=0x00aa}
0x05698…056ae Head {h00=0x0012, h01=0x0050, text=» LDKL A3,REGI «, t00=0x0037, t01=0x00b6}
0x056ae…056c2 Head {h00=0x0010, h01=0x0050, text=» ADR A3,A11 «, t00=0x0037, t01=0x00cc}
0x056c2…056da Head {h00=0x0014, h01=0x0050, text=» LDK A2,2 LENGTH«, t00=0x0037, t01=0x00e0}
0x056da…05700 Head {h00=0x0022, h01=0x0050, text=» CF A14,ICREAD READ INTERTASK «, t00=0x0037, t01=0x00f8}
0x05700…05710 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0037, t01=0x011e}
0x05710…0571e Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0037, t01=0x012e}
0x0571e…05766 Head {h00=0x0044, h01=0x0050, text=»****************************************************************«, t00=0x0037, t01=0x013c}
0x05766…057ae Head {h00=0x0044, h01=0x0050, text=»* *«, t00=0x0037, t01=0x0184}
0x057ae…057f6 Head {h00=0x0044, h01=0x0050, text=»* ICINP INTERTASK INPUT *«, t00=0x0038, t01=0x003c}
0x057f6…0583e Head {h00=0x0044, h01=0x0050, text=»* *«, t00=0x0038, t01=0x0084}
0x0583e…05886 Head {h00=0x0044, h01=0x0050, text=»****************************************************************«, t00=0x0038, t01=0x00cc}
0x05886…058a6 Head {h00=0x001c, h01=0x0050, text=»* REGISTERS «, t00=0x0038, t01=0x0114}
0x058a6…058b0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0038, t01=0x0134}
0x058b0…058d0 Head {h00=0x001c, h01=0x0050, text=»* A11= CREDIT WORK AREA «, t00=0x0038, t01=0x013e}
0x058d0…058e8 Head {h00=0x0014, h01=0x0050, text=»* A13= RESERVED «, t00=0x0038, t01=0x015e}
0x058e8…058f2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0038, t01=0x0176}
0x058f2…0593a Head {h00=0x0044, h01=0x0050, text=»****************************************************************«, t00=0x0038, t01=0x0180}
0x0593a…0594e Head {h00=0x0010, h01=0x0050, text=»ICINP EQU * «, t00=0x0039, t01=0x0038}
0x0594e…05966 Head {h00=0x0014, h01=0x0050, text=» LD* A2,ECBBA,A8«, t00=0x0039, t01=0x004c}
0x05966…0597c Head {h00=0x0012, h01=0x0050, text=» IFT COPCMD=1 «, t00=0x0039, t01=0x0064}
0x0597c…0599c Head {h00=0x001c, h01=0x0050, text=» LDR A1,A2 COPY COMMAND?«, t00=0x0039, t01=0x007a}
0x0599c…059b6 Head {h00=0x0016, h01=0x0050, text=» RF(NN) ICIN80 NO «, t00=0x0039, t01=0x009a}
0x059b6…059da Head {h00=0x0020, h01=0x0050, text=» LDKL A3,BVDU BUFFER TO SEND«, t00=0x0039, t01=0x00b4}
0x059da…059ee Head {h00=0x0010, h01=0x0050, text=» ADR A3,A11 «, t00=0x0039, t01=0x00d8}
0x059ee…05a02 Head {h00=0x0010, h01=0x0050, text=» IFT COPL=1 «, t00=0x0039, t01=0x00ec}
0x05a02…05a2e Head {h00=0x0028, h01=0x0050, text=» LCR A2,A3 CHECK IF ALLOWED TO COPY «, t00=0x0039, t01=0x0100}
0x05a2e…05a4e Head {h00=0x001c, h01=0x0050, text=» CCK A2,/8000 ATTRIBUTE?«, t00=0x0039, t01=0x012c}
0x05a4e…05a66 Head {h00=0x0014, h01=0x0050, text=» RF(L) ICIN20 NO«, t00=0x0039, t01=0x014c}
0x05a66…05a84 Head {h00=0x001a, h01=0x0050, text=» ANK A2,/20 PROTECTED?«, t00=0x0039, t01=0x0164}
0x05a84…05aaa Head {h00=0x0022, h01=0x0050, text=» RF(NZ) ICIN90 YES DON'T COPY «, t00=0x0039, t01=0x0182}
0x05aaa…05abe Head {h00=0x0010, h01=0x0050, text=»ICIN20 EQU *«, t00=0x003a, t01=0x0018}
0x05abe…05aca Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x003a, t01=0x002c}
0x05aca…05ae0 Head {h00=0x0012, h01=0x0050, text=» IFT COPCMD=1 «, t00=0x003a, t01=0x0038}
0x05ae0…05b04 Head {h00=0x0020, h01=0x0050, text=» LD A2,ECBCW,A8 GET TO WHOM «, t00=0x003a, t01=0x004e}
0x05b04…05b1e Head {h00=0x0016, h01=0x0050, text=» LD A8,ECBICW,A11 «, t00=0x003a, t01=0x0072}
0x05b1e…05b40 Head {h00=0x001e, h01=0x0050, text=» CF A14,ICSET SET TIMEOUT «, t00=0x003a, t01=0x008c}
0x05b40…05b52 Head {h00=0x000e, h01=0x0050, text=» LDR A1,A2«, t00=0x003a, t01=0x00ae}
0x05b52…05b74 Head {h00=0x001e, h01=0x0050, text=» LDKL A2,LBVDU+/20 LENGTH «, t00=0x003a, t01=0x00c0}
0x05b74…05b96 Head {h00=0x001e, h01=0x0050, text=» CF A14,ICWRT SEND IT AWAY«, t00=0x003a, t01=0x00e2}
0x05b96…05bc2 Head {h00=0x0028, h01=0x0050, text=» LDKL A1,HCPMOD HARDCOPY OUTSTANDING«, t00=0x003a, t01=0x0104}
0x05bc2…05bdc Head {h00=0x0016, h01=0x0050, text=» ORS A1,BSCMOD,A11«, t00=0x003a, t01=0x0130}
0x05bdc…05bee Head {h00=0x000e, h01=0x0050, text=» RF ICIN90«, t00=0x003a, t01=0x014a}
0x05bee…05c02 Head {h00=0x0010, h01=0x0050, text=»ICIN80 EQU *«, t00=0x003a, t01=0x015c}
0x05c02…05c0e Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x003a, t01=0x0170}
0x05c0e…05c40 Head {h00=0x002e, h01=0x0050, text=» LDKL A1,HCPMOD RESET HARDCOPY OUTSTANDING«, t00=0x003a, t01=0x017c}
0x05c40…05c52 Head {h00=0x000e, h01=0x0050, text=» IFT SNA=1«, t00=0x003b, t01=0x001e}
0x05c52…05c6c Head {h00=0x0016, h01=0x0050, text=» XRS A1,SNAMOD,A11«, t00=0x003b, t01=0x0030}
0x05c6c…05c78 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x003b, t01=0x004a}
0x05c78…05c8a Head {h00=0x000e, h01=0x0050, text=» IFF SNA=1«, t00=0x003b, t01=0x0056}
0x05c8a…05ca4 Head {h00=0x0016, h01=0x0050, text=» XRS A1,BSCMOD,A11«, t00=0x003b, t01=0x0068}
0x05ca4…05cb0 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x003b, t01=0x0082}
0x05cb0…05cce Head {h00=0x001a, h01=0x0050, text=» ANK A2,1 PRINTER OK? «, t00=0x003b, t01=0x008e}
0x05cce…05ce8 Head {h00=0x0016, h01=0x0050, text=» RF(Z) ICIN90 YES «, t00=0x003b, t01=0x00ac}
0x05ce8…05cfc Head {h00=0x0010, h01=0x0050, text=»ICIN90 EQU *«, t00=0x003b, t01=0x00c6}
0x05cfc…05d0c Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x003b, t01=0x00da}
0x05d0c…05d1a Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x003b, t01=0x00ea}
0x05d1a…05d5e Head {h00=0x0040, h01=0x0050, text=»*********************************************************** «, t00=0x003b, t01=0x00f8}
0x05d5e…05da0 Head {h00=0x003e, h01=0x0050, text=»* *«, t00=0x003b, t01=0x013c}
0x05da0…05de4 Head {h00=0x0040, h01=0x0050, text=»* ICSET SET INTERTASK TIMEOUT * «, t00=0x003b, t01=0x017e}
0x05de4…05e26 Head {h00=0x003e, h01=0x0050, text=»* *«, t00=0x003c, t01=0x0032}
0x05e26…05e6a Head {h00=0x0040, h01=0x0050, text=»*********************************************************** «, t00=0x003c, t01=0x0074}
0x05e6a…05e8a Head {h00=0x001c, h01=0x0050, text=»* REGISTERS «, t00=0x003c, t01=0x00b8}
0x05e8a…05e94 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003c, t01=0x00d8}
0x05e94…05eaa Head {h00=0x0012, h01=0x0050, text=»* A2= RESERVED«, t00=0x003c, t01=0x00e2}
0x05eaa…05ec6 Head {h00=0x0018, h01=0x0050, text=»* A8= INTERTASK ECB «, t00=0x003c, t01=0x00f8}
0x05ec6…05ede Head {h00=0x0014, h01=0x0050, text=»* A11= RESERVED «, t00=0x003c, t01=0x0114}
0x05ede…05ef6 Head {h00=0x0014, h01=0x0050, text=»* A13= RESERVED «, t00=0x003c, t01=0x012c}
0x05ef6…05f00 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003c, t01=0x0144}
0x05f00…05f42 Head {h00=0x003e, h01=0x0050, text=»**********************************************************«, t00=0x003c, t01=0x014e}
0x05f42…05f56 Head {h00=0x0010, h01=0x0050, text=»ICSET EQU * «, t00=0x003c, t01=0x0190}
0x05f56…05f74 Head {h00=0x001a, h01=0x0050, text=» LDKL A1,-1 NO TIMEOUT«, t00=0x003d, t01=0x0014}
0x05f74…05f8c Head {h00=0x0014, h01=0x0050, text=» ST A1,ECBCW,A8 «, t00=0x003d, t01=0x0032}
0x05f8c…05fac Head {h00=0x001c, h01=0x0050, text=» LDK A7,/B9 SET TIMEOUT «, t00=0x003d, t01=0x004a}
0x05fac…05fb8 Head {h00=0x0008, h01=0x0050, text=» LKM«, t00=0x003d, t01=0x006a}
0x05fb8…05fc8 Head {h00=0x000c, h01=0x0050, text=» DATA 1 «, t00=0x003d, t01=0x0076}
0x05fc8…05fd8 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x003d, t01=0x0086}
0x05fd8…05fe6 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x003d, t01=0x0096}
0x05fe6…0602c Head {h00=0x0042, h01=0x0050, text=»************************************************************* «, t00=0x003d, t01=0x00a4}
0x0602c…06072 Head {h00=0x0042, h01=0x0050, text=»* * «, t00=0x003d, t01=0x00ea}
0x06072…060b8 Head {h00=0x0042, h01=0x0050, text=»* ICREAD INTERTASK READ * «, t00=0x003d, t01=0x0130}
0x060b8…060fe Head {h00=0x0042, h01=0x0050, text=»* * «, t00=0x003d, t01=0x0176}
0x060fe…06144 Head {h00=0x0042, h01=0x0050, text=»**************************************************************«, t00=0x003e, t01=0x002c}
0x06144…06166 Head {h00=0x001e, h01=0x0050, text=»* REGISTERS«, t00=0x003e, t01=0x0072}
0x06166…06170 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003e, t01=0x0094}
0x06170…06186 Head {h00=0x0012, h01=0x0050, text=»* A1= TASK ID «, t00=0x003e, t01=0x009e}
0x06186…0619a Head {h00=0x0010, h01=0x0050, text=»* A2= LENGTH«, t00=0x003e, t01=0x00b4}
0x0619a…061b6 Head {h00=0x0018, h01=0x0050, text=»* A3= BUFFER ADDRESS«, t00=0x003e, t01=0x00c8}
0x061b6…061d6 Head {h00=0x001c, h01=0x0050, text=»* A8= INTETASK READ ECB «, t00=0x003e, t01=0x00e4}
0x061d6…061ee Head {h00=0x0014, h01=0x0050, text=»* A11= RESERVED «, t00=0x003e, t01=0x0104}
0x061ee…06206 Head {h00=0x0014, h01=0x0050, text=»* A13= RESERVED «, t00=0x003e, t01=0x011c}
0x06206…06210 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003e, t01=0x0134}
0x06210…06256 Head {h00=0x0042, h01=0x0050, text=»************************************************************* «, t00=0x003e, t01=0x013e}
0x06256…0626a Head {h00=0x0010, h01=0x0050, text=»ICREAD EQU *«, t00=0x003e, t01=0x0184}
0x0626a…0628a Head {h00=0x001c, h01=0x0050, text=» ST A1,ECBCW,A8 TASK ID «, t00=0x003f, t01=0x0008}
0x0628a…062a8 Head {h00=0x001a, h01=0x0050, text=» ST A2,ECBRL,A8 LENGTH«, t00=0x003f, t01=0x0028}
0x062a8…062ce Head {h00=0x0022, h01=0x0050, text=» ST A3,ECBBA,A8 BUFFER ADDRESS«, t00=0x003f, t01=0x0046}
0x062ce…062e6 Head {h00=0x0014, h01=0x0050, text=» LDK A7,/02 READ«, t00=0x003f, t01=0x006c}
0x062e6…062f2 Head {h00=0x0008, h01=0x0050, text=» LKM«, t00=0x003f, t01=0x0084}
0x062f2…06302 Head {h00=0x000c, h01=0x0050, text=» DATA 1 «, t00=0x003f, t01=0x0090}
0x06302…06312 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x003f, t01=0x00a0}
0x06312…06320 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x003f, t01=0x00b0}
0x06320…06368 Head {h00=0x0044, h01=0x0050, text=»*************************************************************** «, t00=0x003f, t01=0x00be}
0x06368…063b0 Head {h00=0x0044, h01=0x0050, text=»* * «, t00=0x003f, t01=0x0106}
0x063b0…063f8 Head {h00=0x0044, h01=0x0050, text=»* ICWRT INTERTASK WRITE * «, t00=0x003f, t01=0x014e}
0x063f8…06440 Head {h00=0x0044, h01=0x0050, text=»* * «, t00=0x0040, t01=0x0008}
0x06440…06488 Head {h00=0x0044, h01=0x0050, text=»*************************************************************** «, t00=0x0040, t01=0x0050}
0x06488…064aa Head {h00=0x001e, h01=0x0050, text=»* REGISTERS«, t00=0x0040, t01=0x0098}
0x064aa…064b4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0040, t01=0x00ba}
0x064b4…064ca Head {h00=0x0012, h01=0x0050, text=»* A1= TASK ID «, t00=0x0040, t01=0x00c4}
0x064ca…064de Head {h00=0x0010, h01=0x0050, text=»* A2= LENGTH«, t00=0x0040, t01=0x00da}
0x064de…064fa Head {h00=0x0018, h01=0x0050, text=»* A3= BUFFER ADDRESS«, t00=0x0040, t01=0x00ee}
0x064fa…0651c Head {h00=0x001e, h01=0x0050, text=»* A8= INTERTASK WRITE ECB «, t00=0x0040, t01=0x010a}
0x0651c…06534 Head {h00=0x0014, h01=0x0050, text=»* A11= RESERVED «, t00=0x0040, t01=0x012c}
0x06534…0654c Head {h00=0x0014, h01=0x0050, text=»* A13= RESERVED «, t00=0x0040, t01=0x0144}
0x0654c…06556 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0040, t01=0x015c}
0x06556…0659e Head {h00=0x0044, h01=0x0050, text=»****************************************************************«, t00=0x0040, t01=0x0166}
0x0659e…065b2 Head {h00=0x0010, h01=0x0050, text=»ICWRT EQU * «, t00=0x0041, t01=0x001e}
0x065b2…065d2 Head {h00=0x001c, h01=0x0050, text=» ST A1,ECBCW,A8 TASK ID «, t00=0x0041, t01=0x0032}
0x065d2…065f0 Head {h00=0x001a, h01=0x0050, text=» ST A2,ECBRL,A8 LENGTH«, t00=0x0041, t01=0x0052}
0x065f0…06616 Head {h00=0x0022, h01=0x0050, text=» ST A3,ECBBA,A8 BUFFER ADDRESS«, t00=0x0041, t01=0x0070}
0x06616…06630 Head {h00=0x0016, h01=0x0050, text=» LDK A7,/86 WRITE «, t00=0x0041, t01=0x0096}
0x06630…0663c Head {h00=0x0008, h01=0x0050, text=» LKM«, t00=0x0041, t01=0x00b0}
0x0663c…0664c Head {h00=0x000c, h01=0x0050, text=» DATA 1 «, t00=0x0041, t01=0x00bc}
0x0664c…0665c Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0041, t01=0x00cc}
0x0665c…0666a Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0041, t01=0x00dc}
0x0666a…066b6 Head {h00=0x0048, h01=0x0050, text=»******************************************************************* «, t00=0x0041, t01=0x00ea}
0x066b6…06702 Head {h00=0x0048, h01=0x0050, text=»* * «, t00=0x0041, t01=0x0136}
0x06702…0674e Head {h00=0x0048, h01=0x0050, text=»* ERROR ILLEGAL KEY-HANDLING * «, t00=0x0041, t01=0x0182}
0x0674e…0679a Head {h00=0x0048, h01=0x0050, text=»* * «, t00=0x0042, t01=0x003e}
0x0679a…067e6 Head {h00=0x0048, h01=0x0050, text=»******************************************************************* «, t00=0x0042, t01=0x008a}
0x067e6…06802 Head {h00=0x0018, h01=0x0050, text=»* REGISTERS«, t00=0x0042, t01=0x00d6}
0x06802…0680c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0042, t01=0x00f2}
0x0680c…0682c Head {h00=0x001c, h01=0x0050, text=»* A11= CREDIT WORK AREA «, t00=0x0042, t01=0x00fc}
0x0682c…06844 Head {h00=0x0014, h01=0x0050, text=»* A13= RESERVED «, t00=0x0042, t01=0x011c}
0x06844…0684e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0042, t01=0x0134}
0x0684e…0688e Head {h00=0x003c, h01=0x0050, text=»******************************************************* «, t00=0x0042, t01=0x013e}
0x0688e…068a2 Head {h00=0x0010, h01=0x0050, text=»ERROR EQU * «, t00=0x0042, t01=0x017e}
0x068a2…068ce (67, 0, 400) Head {h00=0x0028, h01=0x0050, text=» CF A14,LMP4ON TURN ON 'ERROR' LAMP «, t00=0x0043, t01=0x0004}
0x068ce…068ee Head {h00=0x001c, h01=0x0050, text=» LDK A1,4 RESET ALLOWED «, t00=0x0043, t01=0x0030}
0x068ee…06908 Head {h00=0x0016, h01=0x0050, text=» ORS A1,KBINH,A11 «, t00=0x0043, t01=0x0050}
0x06908…06932 Head {h00=0x0026, h01=0x0050, text=» CF A14,SOUND TURN ON SOUND ALARM «, t00=0x0043, t01=0x006a}
0x06932…06942 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0043, t01=0x0094}
0x06942…0694a Head {h00=0x0004, h01=0x0050, t00=0x0043, t01=0x00a4}
0x0694a…06958 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0043, t01=0x00ac}
0x06958…0699e Head {h00=0x0042, h01=0x0050, text=»************************************************************* «, t00=0x0043, t01=0x00ba}
0x0699e…069e4 Head {h00=0x0042, h01=0x0050, text=»* * «, t00=0x0043, t01=0x0100}
0x069e4…06a2a Head {h00=0x0042, h01=0x0050, text=»* LAMPROUTINES * «, t00=0x0043, t01=0x0146}
0x06a2a…06a70 Head {h00=0x0042, h01=0x0050, text=»* * «, t00=0x0043, t01=0x018c}
0x06a70…06ab6 Head {h00=0x0042, h01=0x0050, text=»************************************************************* «, t00=0x0044, t01=0x0042}
0x06ab6…06ad2 Head {h00=0x0018, h01=0x0050, text=»LMP1ON LDK A1,LAMP1 «, t00=0x0044, t01=0x0088}
0x06ad2…06ae4 Head {h00=0x000e, h01=0x0050, text=» RF LMPON «, t00=0x0044, t01=0x00a4}
0x06ae4…06b00 Head {h00=0x0018, h01=0x0050, text=»LMP1OF LDK A1,LAMP1 «, t00=0x0044, t01=0x00b6}
0x06b00…06b12 Head {h00=0x000e, h01=0x0050, text=» RF LMPOF «, t00=0x0044, t01=0x00d2}
0x06b12…06b2e Head {h00=0x0018, h01=0x0050, text=»LMP2ON LDK A1,LAMP2 «, t00=0x0044, t01=0x00e4}
0x06b2e…06b40 Head {h00=0x000e, h01=0x0050, text=» RF LMPON «, t00=0x0044, t01=0x0100}
0x06b40…06b5c Head {h00=0x0018, h01=0x0050, text=»LMP2OF LDK A1,LAMP2 «, t00=0x0044, t01=0x0112}
0x06b5c…06b6e Head {h00=0x000e, h01=0x0050, text=» RF LMPOF «, t00=0x0044, t01=0x012e}
0x06b6e…06b8a Head {h00=0x0018, h01=0x0050, text=»LMP3ON LDK A1,LAMP3 «, t00=0x0044, t01=0x0140}
0x06b8a…06b9c Head {h00=0x000e, h01=0x0050, text=» RF LMPON «, t00=0x0044, t01=0x015c}
0x06b9c…06bb8 Head {h00=0x0018, h01=0x0050, text=»LMP3OF LDK A1,LAMP3 «, t00=0x0044, t01=0x016e}
0x06bb8…06bca Head {h00=0x000e, h01=0x0050, text=» RF LMPOF «, t00=0x0044, t01=0x018a}
0x06bca…06be6 Head {h00=0x0018, h01=0x0050, text=»LMP4ON LDK A1,LAMP4 «, t00=0x0045, t01=0x000c}
0x06be6…06bf8 Head {h00=0x000e, h01=0x0050, text=» RF LMPON «, t00=0x0045, t01=0x0028}
0x06bf8…06c14 Head {h00=0x0018, h01=0x0050, text=»LMP4OF LDK A1,LAMP4 «, t00=0x0045, t01=0x003a}
0x06c14…06c26 Head {h00=0x000e, h01=0x0050, text=» RF LMPOF «, t00=0x0045, t01=0x0056}
0x06c26…06c42 Head {h00=0x0018, h01=0x0050, text=»LMP5ON LDK A1,LAMP5 «, t00=0x0045, t01=0x0068}
0x06c42…06c54 Head {h00=0x000e, h01=0x0050, text=» RF LMPON «, t00=0x0045, t01=0x0084}
0x06c54…06c70 Head {h00=0x0018, h01=0x0050, text=»LMP5OF LDK A1,LAMP5 «, t00=0x0045, t01=0x0096}
0x06c70…06c82 Head {h00=0x000e, h01=0x0050, text=» RF LMPOF «, t00=0x0045, t01=0x00b2}
0x06c82…06c9e Head {h00=0x0018, h01=0x0050, text=»LMP5FL LDK A1,LAMP5 «, t00=0x0045, t01=0x00c4}
0x06c9e…06cb0 Head {h00=0x000e, h01=0x0050, text=» RF LMPFL «, t00=0x0045, t01=0x00e0}
0x06cb0…06ccc Head {h00=0x0018, h01=0x0050, text=»LMP6ON LDK A1,LAMP6 «, t00=0x0045, t01=0x00f2}
0x06ccc…06cde Head {h00=0x000e, h01=0x0050, text=» RF LMPON «, t00=0x0045, t01=0x010e}
0x06cde…06cfa Head {h00=0x0018, h01=0x0050, text=»LMP6OF LDK A1,LAMP6 «, t00=0x0045, t01=0x0120}
0x06cfa…06d0c Head {h00=0x000e, h01=0x0050, text=» RF LMPOF «, t00=0x0045, t01=0x013c}
0x06d0c…06d16 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0045, t01=0x014e}
0x06d16…06d2e Head {h00=0x0014, h01=0x0050, text=»LMPON LDK A7,LON«, t00=0x0045, t01=0x0158}
0x06d2e…06d40 Head {h00=0x000e, h01=0x0050, text=» RF SDISP «, t00=0x0045, t01=0x0170}
0x06d40…06d58 Head {h00=0x0014, h01=0x0050, text=»LMPOF LDK A7,LOF«, t00=0x0045, t01=0x0182}
0x06d58…06d6a Head {h00=0x000e, h01=0x0050, text=» RF SDISP «, t00=0x0046, t01=0x000a}
0x06d6a…06d82 Head {h00=0x0014, h01=0x0050, text=»LMPFL LDK A7,LFL«, t00=0x0046, t01=0x001c}
0x06d82…06d94 Head {h00=0x000e, h01=0x0050, text=» RF SDISP «, t00=0x0046, t01=0x0034}
0x06d94…06da2 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0046, t01=0x0046}
0x06da2…06de8 Head {h00=0x0042, h01=0x0050, text=»************************************************************* «, t00=0x0046, t01=0x0054}
0x06de8…06e2e Head {h00=0x0042, h01=0x0050, text=»* * «, t00=0x0046, t01=0x009a}
0x06e2e…06e74 Head {h00=0x0042, h01=0x0050, text=»* SDISP SIGNAL ROUTINE * «, t00=0x0046, t01=0x00e0}
0x06e74…06eba Head {h00=0x0042, h01=0x0050, text=»* * «, t00=0x0046, t01=0x0126}
0x06eba…06f00 Head {h00=0x0042, h01=0x0050, text=»************************************************************* «, t00=0x0046, t01=0x016c}
0x06f00…06f1c Head {h00=0x0018, h01=0x0050, text=»* REGISTERS «, t00=0x0047, t01=0x0022}
0x06f1c…06f26 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0047, t01=0x003e}
0x06f26…06f3e Head {h00=0x0014, h01=0x0050, text=»* A8= SIGNAL ECB«, t00=0x0047, t01=0x0048}
0x06f3e…06f5e Head {h00=0x001c, h01=0x0050, text=»* A11= CREDIT WORK AREA «, t00=0x0047, t01=0x0060}
0x06f5e…06f76 Head {h00=0x0014, h01=0x0050, text=»* A13= RESERVED «, t00=0x0047, t01=0x0080}
0x06f76…06f80 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0047, t01=0x0098}
0x06f80…06fc0 Head {h00=0x003c, h01=0x0050, text=»******************************************************* «, t00=0x0047, t01=0x00a2}
0x06fc0…06fd4 Head {h00=0x0010, h01=0x0050, text=»SDISP EQU * «, t00=0x0047, t01=0x00e2}
0x06fd4…06fec Head {h00=0x0014, h01=0x0050, text=» LD A8,ECBSD,A11«, t00=0x0047, t01=0x00f6}
0x06fec…07004 Head {h00=0x0014, h01=0x0050, text=» ST A1,ECBCW,A8 «, t00=0x0047, t01=0x010e}
0x07004…07032 Head {h00=0x002a, h01=0x0050, text=»** SECOND KEYBOARD MODS, DK, P & T **«, t00=0x0047, t01=0x0126}
0x07032…0705a Head {h00=0x0024, h01=0x0050, text=» LD A8,ECBSD,A11 GET DISP. ECB «, t00=0x0047, t01=0x0154}
0x0705a…07080 Head {h00=0x0022, h01=0x0050, text=» LDK A1,/41 CHANGE FILE CODE «, t00=0x0047, t01=0x017c}
0x07080…07094 Head {h00=0x0010, h01=0x0050, text=» SC A1,1,A8 «, t00=0x0048, t01=0x0012}
0x07094…070a2 Head {h00=0x000a, h01=0x0050, text=» LKM «, t00=0x0048, t01=0x0026}
0x070a2…070ca Head {h00=0x0024, h01=0x0050, text=» DATA 1 LAMPS ON SECOND KEYB'RD «, t00=0x0048, t01=0x0034}
0x070ca…070e0 Head {h00=0x0012, h01=0x0050, text=»SDISP1 EQU * «, t00=0x0048, t01=0x005c}
0x070e0…070fa Head {h00=0x0016, h01=0x0050, text=» LD A8,ECBSD,A11 «, t00=0x0048, t01=0x0072}
0x070fa…07128 Head {h00=0x002a, h01=0x0050, text=» LDK A1,/40 RESTORE FILE CODE 1ST KB «, t00=0x0048, t01=0x008c}
0x07128…0713c Head {h00=0x0010, h01=0x0050, text=» SC A1,1,A8 «, t00=0x0048, t01=0x00ba}
0x0713c…0715a Head {h00=0x001a, h01=0x0050, text=»** END OF DK MODS ** «, t00=0x0048, t01=0x00ce}
0x0715a…07166 Head {h00=0x0008, h01=0x0050, text=» LKM«, t00=0x0048, t01=0x00ec}
0x07166…07176 Head {h00=0x000c, h01=0x0050, text=» DATA 1 «, t00=0x0048, t01=0x00f8}
0x07176…07186 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0048, t01=0x0108}
0x07186…07194 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0048, t01=0x0118}
0x07194…071dc Head {h00=0x0044, h01=0x0050, text=»****************************************************************«, t00=0x0048, t01=0x0126}
0x071dc…07224 Head {h00=0x0044, h01=0x0050, text=»* *«, t00=0x0048, t01=0x016e}
0x07224…0726c Head {h00=0x0044, h01=0x0050, text=»* KEYTAB KEY-TABLE, FIXED ENTRY FOR EACH FUNC. *«, t00=0x0049, t01=0x0026}
0x0726c…072b4 Head {h00=0x0044, h01=0x0050, text=»* *«, t00=0x0049, t01=0x006e}
0x072b4…072fc Head {h00=0x0044, h01=0x0050, text=»****************************************************************«, t00=0x0049, t01=0x00b6}
0x072fc…07310 Head {h00=0x0010, h01=0x0050, text=»KEYTAB EQU *«, t00=0x0049, t01=0x00fe}
0x07310…0731c Head {h00=0x0008, h01=0x0050, text=»*20 «, t00=0x0049, t01=0x0112}
0x0731c…07334 Head {h00=0x0014, h01=0x0050, text=» DATA CHAR SPACE«, t00=0x0049, t01=0x011e}
0x07334…07348 Head {h00=0x0010, h01=0x0050, text=» DATA CHAR !«, t00=0x0049, t01=0x0136}
0x07348…0735c Head {h00=0x0010, h01=0x0050, text=» DATA CHAR "«, t00=0x0049, t01=0x014a}
0x0735c…0736e Head {h00=0x000e, h01=0x0050, text=» DATA CHAR«, t00=0x0049, t01=0x015e}
0x0736e…07382 Head {h00=0x0010, h01=0x0050, text=» DATA CHAR $«, t00=0x0049, t01=0x0170}
0x07382…07396 Head {h00=0x0010, h01=0x0050, text=» DATA CHAR «, t00=0x0049, t01=0x0184}
0x07396…073aa Head {h00=0x0010, h01=0x0050, text=» DATA CHAR &«, t00=0x004a, t01=0x0008}
0x073aa…073be Head {h00=0x0010, h01=0x0050, text=» DATA CHAR '«, t00=0x004a, t01=0x001c}
0x073be…073d2 Head {h00=0x0010, h01=0x0050, text=» DATA CHAR («, t00=0x004a, t01=0x0030}
0x073d2…073e6 Head {h00=0x0010, h01=0x0050, text=» DATA CHAR )«, t00=0x004a, t01=0x0044}
0x073e6…073fa Head {h00=0x0010, h01=0x0050, text=» DATA CHAR *«, t00=0x004a, t01=0x0058}
0x073fa…0740e Head {h00=0x0010, h01=0x0050, text=» DATA NUM + «, t00=0x004a, t01=0x006c}
0x0740e…07422 Head {h00=0x0010, h01=0x0050, text=» DATA NUM , «, t00=0x004a, t01=0x0080}
0x07422…07436 Head {h00=0x0010, h01=0x0050, text=» DATA NUM - «, t00=0x004a, t01=0x0094}
0x07436…0744a Head {h00=0x0010, h01=0x0050, text=» DATA NUM . «, t00=0x004a, t01=0x00a8}
0x0744a…0745e Head {h00=0x0010, h01=0x0050, text=» DATA CHAR /«, t00=0x004a, t01=0x00bc}
0x0745e…0746a Head {h00=0x0008, h01=0x0050, text=»*30 «, t00=0x004a, t01=0x00d0}
0x0746a…0747e Head {h00=0x0010, h01=0x0050, text=» DATA NUM 0 «, t00=0x004a, t01=0x00dc}
0x0747e…07492 Head {h00=0x0010, h01=0x0050, text=» DATA NUM 1 «, t00=0x004a, t01=0x00f0}
0x07492…074a6 Head {h00=0x0010, h01=0x0050, text=» DATA NUM 2 «, t00=0x004a, t01=0x0104}
0x074a6…074ba Head {h00=0x0010, h01=0x0050, text=» DATA NUM 3 «, t00=0x004a, t01=0x0118}
0x074ba…074ce Head {h00=0x0010, h01=0x0050, text=» DATA NUM 4 «, t00=0x004a, t01=0x012c}
0x074ce…074e2 Head {h00=0x0010, h01=0x0050, text=» DATA NUM 5 «, t00=0x004a, t01=0x0140}
0x074e2…074f6 Head {h00=0x0010, h01=0x0050, text=» DATA NUM 6 «, t00=0x004a, t01=0x0154}
0x074f6…0750a Head {h00=0x0010, h01=0x0050, text=» DATA NUM 7 «, t00=0x004a, t01=0x0168}
0x0750a…0751e Head {h00=0x0010, h01=0x0050, text=» DATA NUM 8 «, t00=0x004a, t01=0x017c}
0x0751e…07532 Head {h00=0x0010, h01=0x0050, text=» DATA NUM 9 «, t00=0x004a, t01=0x0190}
0x07532…07546 Head {h00=0x0010, h01=0x0050, text=» DATA CHAR :«, t00=0x004b, t01=0x0014}
0x07546…0755a Head {h00=0x0010, h01=0x0050, text=» DATA CHAR ;«, t00=0x004b, t01=0x0028}
0x0755a…0756e Head {h00=0x0010, h01=0x0050, text=» DATA CHAR <«, t00=0x004b, t01=0x003c}
0x0756e…07582 Head {h00=0x0010, h01=0x0050, text=» DATA CHAR =«, t00=0x004b, t01=0x0050}
0x07582…07596 Head {h00=0x0010, h01=0x0050, text=» DATA CHAR >«, t00=0x004b, t01=0x0064}
0x07596…075aa Head {h00=0x0010, h01=0x0050, text=» DATA CHAR ?«, t00=0x004b, t01=0x0078}
0x075aa…075b6 Head {h00=0x0008, h01=0x0050, text=»*40 «, t00=0x004b, t01=0x008c}
0x075b6…075c8 Head {h00=0x000e, h01=0x0050, text=» DATA CHAR«, t00=0x004b, t01=0x0098}
0x075c8…075dc Head {h00=0x0010, h01=0x0050, text=» DATA CHAR A«, t00=0x004b, t01=0x00aa}
0x075dc…075f0 Head {h00=0x0010, h01=0x0050, text=» DATA CHAR B«, t00=0x004b, t01=0x00be}
0x075f0…07604 Head {h00=0x0010, h01=0x0050, text=» DATA CHAR C«, t00=0x004b, t01=0x00d2}
0x07604…07618 Head {h00=0x0010, h01=0x0050, text=» DATA CHAR D«, t00=0x004b, t01=0x00e6}
0x07618…0762c Head {h00=0x0010, h01=0x0050, text=» DATA CHAR E«, t00=0x004b, t01=0x00fa}
0x0762c…07640 Head {h00=0x0010, h01=0x0050, text=» DATA CHAR F«, t00=0x004b, t01=0x010e}
0x07640…07654 Head {h00=0x0010, h01=0x0050, text=» DATA CHAR G«, t00=0x004b, t01=0x0122}
0x07654…07668 Head {h00=0x0010, h01=0x0050, text=» DATA CHAR H«, t00=0x004b, t01=0x0136}
0x07668…0767c Head {h00=0x0010, h01=0x0050, text=» DATA CHAR I«, t00=0x004b, t01=0x014a}
0x0767c…07690 Head {h00=0x0010, h01=0x0050, text=» DATA CHAR J«, t00=0x004b, t01=0x015e}
0x07690…076a4 Head {h00=0x0010, h01=0x0050, text=» DATA CHAR K«, t00=0x004b, t01=0x0172}
0x076a4…076b8 Head {h00=0x0010, h01=0x0050, text=» DATA CHAR L«, t00=0x004b, t01=0x0186}
0x076b8…076cc Head {h00=0x0010, h01=0x0050, text=» DATA CHAR M«, t00=0x004c, t01=0x000a}
0x076cc…076e0 Head {h00=0x0010, h01=0x0050, text=» DATA CHAR N«, t00=0x004c, t01=0x001e}
0x076e0…076f4 Head {h00=0x0010, h01=0x0050, text=» DATA CHAR O«, t00=0x004c, t01=0x0032}
0x076f4…07700 Head {h00=0x0008, h01=0x0050, text=»*50 «, t00=0x004c, t01=0x0046}
0x07700…07714 Head {h00=0x0010, h01=0x0050, text=» DATA CHAR P«, t00=0x004c, t01=0x0052}
0x07714…07728 Head {h00=0x0010, h01=0x0050, text=» DATA CHAR Q«, t00=0x004c, t01=0x0066}
0x07728…0773c Head {h00=0x0010, h01=0x0050, text=» DATA CHAR R«, t00=0x004c, t01=0x007a}
0x0773c…07750 Head {h00=0x0010, h01=0x0050, text=» DATA CHAR S«, t00=0x004c, t01=0x008e}
0x07750…07764 Head {h00=0x0010, h01=0x0050, text=» DATA CHAR T«, t00=0x004c, t01=0x00a2}
0x07764…07778 Head {h00=0x0010, h01=0x0050, text=» DATA CHAR U«, t00=0x004c, t01=0x00b6}
0x07778…0778c Head {h00=0x0010, h01=0x0050, text=» DATA CHAR V«, t00=0x004c, t01=0x00ca}
0x0778c…077a0 Head {h00=0x0010, h01=0x0050, text=» DATA CHAR W«, t00=0x004c, t01=0x00de}
0x077a0…077b4 Head {h00=0x0010, h01=0x0050, text=» DATA CHAR X«, t00=0x004c, t01=0x00f2}
0x077b4…077c8 Head {h00=0x0010, h01=0x0050, text=» DATA CHAR Y«, t00=0x004c, t01=0x0106}
0x077c8…077dc Head {h00=0x0010, h01=0x0050, text=» DATA CHAR Z«, t00=0x004c, t01=0x011a}
0x077dc…077ee Head {h00=0x000e, h01=0x0050, text=» DATA CHAR«, t00=0x004c, t01=0x012e}
0x077ee…07800 Head {h00=0x000e, h01=0x0050, text=» DATA CHAR«, t00=0x004c, t01=0x0140}
0x07800…07812 Head {h00=0x000e, h01=0x0050, text=» DATA CHAR«, t00=0x004c, t01=0x0152}
0x07812…07826 Head {h00=0x0010, h01=0x0050, text=» DATA CHAR ^«, t00=0x004c, t01=0x0164}
0x07826…07842 Head {h00=0x0018, h01=0x0050, text=» DATA CHAR UNDERLINE«, t00=0x004c, t01=0x0178}
0x07842…0784e (77, 0, 398) Head {h00=0x0008, h01=0x0050, text=»*60 «, t00=0x004d, t01=0x0004}
0x0784e…07860 Head {h00=0x000e, h01=0x0050, text=» DATA CHAR«, t00=0x004d, t01=0x0010}
0x07860…07884 Head {h00=0x0020, h01=0x0050, text=» DATA CHAR a LOWER CASE A-Z «, t00=0x004d, t01=0x0022}
0x07884…07898 Head {h00=0x0010, h01=0x0050, text=» DATA CHAR b«, t00=0x004d, t01=0x0046}
0x07898…078ac Head {h00=0x0010, h01=0x0050, text=» DATA CHAR c«, t00=0x004d, t01=0x005a}
0x078ac…078c0 Head {h00=0x0010, h01=0x0050, text=» DATA CHAR d«, t00=0x004d, t01=0x006e}
0x078c0…078d4 Head {h00=0x0010, h01=0x0050, text=» DATA CHAR e«, t00=0x004d, t01=0x0082}
0x078d4…078e8 Head {h00=0x0010, h01=0x0050, text=» DATA CHAR f«, t00=0x004d, t01=0x0096}
0x078e8…078fc Head {h00=0x0010, h01=0x0050, text=» DATA CHAR g«, t00=0x004d, t01=0x00aa}
0x078fc…07910 Head {h00=0x0010, h01=0x0050, text=» DATA CHAR h«, t00=0x004d, t01=0x00be}
0x07910…07924 Head {h00=0x0010, h01=0x0050, text=» DATA CHAR i«, t00=0x004d, t01=0x00d2}
0x07924…07938 Head {h00=0x0010, h01=0x0050, text=» DATA CHAR j«, t00=0x004d, t01=0x00e6}
0x07938…0794c Head {h00=0x0010, h01=0x0050, text=» DATA CHAR k«, t00=0x004d, t01=0x00fa}
0x0794c…07960 Head {h00=0x0010, h01=0x0050, text=» DATA CHAR l«, t00=0x004d, t01=0x010e}
0x07960…07974 Head {h00=0x0010, h01=0x0050, text=» DATA CHAR m«, t00=0x004d, t01=0x0122}
0x07974…07988 Head {h00=0x0010, h01=0x0050, text=» DATA CHAR n«, t00=0x004d, t01=0x0136}
0x07988…0799c Head {h00=0x0010, h01=0x0050, text=» DATA CHAR o«, t00=0x004d, t01=0x014a}
0x0799c…079a8 Head {h00=0x0008, h01=0x0050, text=»*70 «, t00=0x004d, t01=0x015e}
0x079a8…079bc Head {h00=0x0010, h01=0x0050, text=» DATA CHAR p«, t00=0x004d, t01=0x016a}
0x079bc…079d0 Head {h00=0x0010, h01=0x0050, text=» DATA CHAR q«, t00=0x004d, t01=0x017e}
0x079d0…079e4 (78, 0, 398) Head {h00=0x0010, h01=0x0050, text=» DATA CHAR r«, t00=0x004e, t01=0x0004}
0x079e4…079f8 Head {h00=0x0010, h01=0x0050, text=» DATA CHAR s«, t00=0x004e, t01=0x0018}
0x079f8…07a0c Head {h00=0x0010, h01=0x0050, text=» DATA CHAR t«, t00=0x004e, t01=0x002c}
0x07a0c…07a20 Head {h00=0x0010, h01=0x0050, text=» DATA CHAR u«, t00=0x004e, t01=0x0040}
0x07a20…07a34 Head {h00=0x0010, h01=0x0050, text=» DATA CHAR v«, t00=0x004e, t01=0x0054}
0x07a34…07a48 Head {h00=0x0010, h01=0x0050, text=» DATA CHAR w«, t00=0x004e, t01=0x0068}
0x07a48…07a5c Head {h00=0x0010, h01=0x0050, text=» DATA CHAR x«, t00=0x004e, t01=0x007c}
0x07a5c…07a70 Head {h00=0x0010, h01=0x0050, text=» DATA CHAR y«, t00=0x004e, t01=0x0090}
0x07a70…07a84 Head {h00=0x0010, h01=0x0050, text=» DATA CHAR z«, t00=0x004e, t01=0x00a4}
0x07a84…07a96 Head {h00=0x000e, h01=0x0050, text=» DATA CHAR«, t00=0x004e, t01=0x00b8}
0x07a96…07aa8 Head {h00=0x000e, h01=0x0050, text=» DATA CHAR«, t00=0x004e, t01=0x00ca}
0x07aa8…07aba Head {h00=0x000e, h01=0x0050, text=» DATA CHAR«, t00=0x004e, t01=0x00dc}
0x07aba…07acc Head {h00=0x000e, h01=0x0050, text=» DATA CHAR«, t00=0x004e, t01=0x00ee}
0x07acc…07ae0 Head {h00=0x0010, h01=0x0050, text=» DATA RETURN«, t00=0x004e, t01=0x0100}
0x07ae0…07aec Head {h00=0x0008, h01=0x0050, text=»*80 «, t00=0x004e, t01=0x0114}
0x07aec…07b00 Head {h00=0x0010, h01=0x0050, text=» DATA CURMOV«, t00=0x004e, t01=0x0120}
0x07b00…07b14 Head {h00=0x0010, h01=0x0050, text=» DATA CURMOV«, t00=0x004e, t01=0x0134}
0x07b14…07b28 Head {h00=0x0010, h01=0x0050, text=» DATA CURMOV«, t00=0x004e, t01=0x0148}
0x07b28…07b3c Head {h00=0x0010, h01=0x0050, text=» DATA CURMOV«, t00=0x004e, t01=0x015c}
0x07b3c…07b50 Head {h00=0x0010, h01=0x0050, text=» DATA BAKTAB«, t00=0x004e, t01=0x0170}
0x07b50…07b62 Head {h00=0x000e, h01=0x0050, text=» DATA TAB «, t00=0x004e, t01=0x0184}
0x07b62…07b74 Head {h00=0x000e, h01=0x0050, text=» DATA CRNL«, t00=0x004f, t01=0x0008}
0x07b74…07b88 Head {h00=0x0010, h01=0x0050, text=» DATA RDHOME«, t00=0x004f, t01=0x001a}
0x07b88…07b9c Head {h00=0x0010, h01=0x0050, text=» DATA EREOF «, t00=0x004f, t01=0x002e}
0x07b9c…07bb0 Head {h00=0x0010, h01=0x0050, text=» DATA ERINPT«, t00=0x004f, t01=0x0042}
0x07bb0…07bc4 Head {h00=0x0010, h01=0x0050, text=» IFT IN:DL=1«, t00=0x004f, t01=0x0056}
0x07bc4…07bd8 Head {h00=0x0010, h01=0x0050, text=» DATA INSERT«, t00=0x004f, t01=0x006a}
0x07bd8…07bec Head {h00=0x0010, h01=0x0050, text=» DATA DELETE«, t00=0x004f, t01=0x007e}
0x07bec…07bf8 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x004f, t01=0x0092}
0x07bf8…07c0c Head {h00=0x0010, h01=0x0050, text=» IFF IN:DL=1«, t00=0x004f, t01=0x009e}
0x07c0c…07c20 Head {h00=0x0010, h01=0x0050, text=» DATA RETURN«, t00=0x004f, t01=0x00b2}
0x07c20…07c34 Head {h00=0x0010, h01=0x0050, text=» DATA RETURN«, t00=0x004f, t01=0x00c6}
0x07c34…07c40 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x004f, t01=0x00da}
0x07c40…07c54 Head {h00=0x0010, h01=0x0050, text=» DATA RESET «, t00=0x004f, t01=0x00e6}
0x07c54…07c66 Head {h00=0x000e, h01=0x0050, text=» DATA DUP «, t00=0x004f, t01=0x00fa}
0x07c66…07c7a Head {h00=0x0010, h01=0x0050, text=» DATA FLDMRK«, t00=0x004f, t01=0x010c}
0x07c7a…07c8e Head {h00=0x0010, h01=0x0050, text=» DATA ZERO:2«, t00=0x004f, t01=0x0120}
0x07c8e…07c9a Head {h00=0x0008, h01=0x0050, text=»*90 «, t00=0x004f, t01=0x0134}
0x07c9a…07cae Head {h00=0x0010, h01=0x0050, text=» DATA ZERO:3«, t00=0x004f, t01=0x0140}
0x07cae…07cc2 Head {h00=0x0010, h01=0x0050, text=» DATA NUMCOM«, t00=0x004f, t01=0x0154}
0x07cc2…07cd4 Head {h00=0x000e, h01=0x0050, text=» DATA COPY«, t00=0x004f, t01=0x0168}
0x07cd4…07ce8 Head {h00=0x0010, h01=0x0050, text=» DATA IDENT «, t00=0x004f, t01=0x017a}
0x07ce8…07cfe Head {h00=0x0012, h01=0x0050, text=» IFT KEYLST=1 «, t00=0x004f, t01=0x018e}
0x07cfe…07d10 Head {h00=0x000e, h01=0x0050, text=» DATA KEYL«, t00=0x0050, t01=0x0014}
0x07d10…07d22 Head {h00=0x000e, h01=0x0050, text=» DATA KEYL«, t00=0x0050, t01=0x0026}
0x07d22…07d34 Head {h00=0x000e, h01=0x0050, text=» DATA KEYL«, t00=0x0050, t01=0x0038}
0x07d34…07d46 Head {h00=0x000e, h01=0x0050, text=» DATA KEYL«, t00=0x0050, t01=0x004a}
0x07d46…07d58 Head {h00=0x000e, h01=0x0050, text=» DATA KEYL«, t00=0x0050, t01=0x005c}
0x07d58…07d6a Head {h00=0x000e, h01=0x0050, text=» DATA KEYL«, t00=0x0050, t01=0x006e}
0x07d6a…07d7c Head {h00=0x000e, h01=0x0050, text=» DATA KEYL«, t00=0x0050, t01=0x0080}
0x07d7c…07d8e Head {h00=0x000e, h01=0x0050, text=» DATA KEYL«, t00=0x0050, t01=0x0092}
0x07d8e…07d9a Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0050, t01=0x00a4}
0x07d9a…07db0 Head {h00=0x0012, h01=0x0050, text=» IFF KEYLST=1 «, t00=0x0050, t01=0x00b0}
0x07db0…07dc4 Head {h00=0x0010, h01=0x0050, text=» DATA RETURN«, t00=0x0050, t01=0x00c6}
0x07dc4…07dd8 Head {h00=0x0010, h01=0x0050, text=» DATA RETURN«, t00=0x0050, t01=0x00da}
0x07dd8…07dec Head {h00=0x0010, h01=0x0050, text=» DATA RETURN«, t00=0x0050, t01=0x00ee}
0x07dec…07e00 Head {h00=0x0010, h01=0x0050, text=» DATA RETURN«, t00=0x0050, t01=0x0102}
0x07e00…07e14 Head {h00=0x0010, h01=0x0050, text=» DATA RETURN«, t00=0x0050, t01=0x0116}
0x07e14…07e28 Head {h00=0x0010, h01=0x0050, text=» DATA RETURN«, t00=0x0050, t01=0x012a}
0x07e28…07e3c Head {h00=0x0010, h01=0x0050, text=» DATA RETURN«, t00=0x0050, t01=0x013e}
0x07e3c…07e50 Head {h00=0x0010, h01=0x0050, text=» DATA RETURN«, t00=0x0050, t01=0x0152}
0x07e50…07e5c Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0050, t01=0x0166}
0x07e5c…07e98 Head {h00=0x0038, h01=0x0050, text=» DATA RETURN FREE LABEL FOR NEW KEY (NOT P. A. KEY) «, t00=0x0050, t01=0x0172}
0x07e98…07ed4 Head {h00=0x0038, h01=0x0050, text=» DATA RETURN FREE LABEL FOR NEW KEY (NOT P. A. KEY) «, t00=0x0051, t01=0x001e}
0x07ed4…07f10 Head {h00=0x0038, h01=0x0050, text=» DATA RETURN FREE LABEL FOR NEW KEY (NOT P. A. KEY) «, t00=0x0051, t01=0x005a}
0x07f10…07f28 Head {h00=0x0014, h01=0x0050, text=»*FIRST P. A. KEY«, t00=0x0051, t01=0x0096}
0x07f28…07f3c Head {h00=0x0010, h01=0x0050, text=» IFT OFLIN=1«, t00=0x0051, t01=0x00ae}
0x07f3c…07f50 Head {h00=0x0010, h01=0x0050, text=» DATA OFLINE«, t00=0x0051, t01=0x00c2}
0x07f50…07f5c Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0051, t01=0x00d6}
0x07f5c…07f70 Head {h00=0x0010, h01=0x0050, text=» IFF OFLIN=1«, t00=0x0051, t01=0x00e2}
0x07f70…07f84 Head {h00=0x0010, h01=0x0050, text=» DATA RETURN«, t00=0x0051, t01=0x00f6}
0x07f84…07f90 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0051, t01=0x010a}
0x07f90…07f9c Head {h00=0x0008, h01=0x0050, text=»*A0 «, t00=0x0051, t01=0x0116}
0x07f9c…07fb0 Head {h00=0x0010, h01=0x0050, text=» DATA ENTER «, t00=0x0051, t01=0x0122}
0x07fb0…07fc2 Head {h00=0x000e, h01=0x0050, text=» IFT SNA=1«, t00=0x0051, t01=0x0136}
0x07fc2…07fd6 Head {h00=0x0010, h01=0x0050, text=» DATA SYSREQ«, t00=0x0051, t01=0x0148}
0x07fd6…07fea Head {h00=0x0010, h01=0x0050, text=» DATA CLEAR «, t00=0x0051, t01=0x015c}
0x07fea…07ffc Head {h00=0x000e, h01=0x0050, text=» DATA ATTN«, t00=0x0051, t01=0x0170}
0x07ffc…08008 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0051, t01=0x0182}
0x08008…0801a Head {h00=0x000e, h01=0x0050, text=» IFF SNA=1«, t00=0x0051, t01=0x018e}
0x0801a…0802e Head {h00=0x0010, h01=0x0050, text=» DATA RETURN«, t00=0x0052, t01=0x0010}
0x0802e…08042 Head {h00=0x0010, h01=0x0050, text=» DATA CLEAR «, t00=0x0052, t01=0x0024}
0x08042…08056 Head {h00=0x0010, h01=0x0050, text=» DATA RETURN«, t00=0x0052, t01=0x0038}
0x08056…08062 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0052, t01=0x004c}
0x08062…08078 Head {h00=0x0012, h01=0x0050, text=» IFT NBRLIN=2 «, t00=0x0052, t01=0x0058}
0x08078…0808c Head {h00=0x0010, h01=0x0050, text=» DATA RETURN«, t00=0x0052, t01=0x006e}
0x0808c…08098 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0052, t01=0x0082}
0x08098…080ae Head {h00=0x0012, h01=0x0050, text=» IFF NBRLIN=2 «, t00=0x0052, t01=0x008e}
0x080ae…080c2 Head {h00=0x0010, h01=0x0050, text=» DATA RETURN«, t00=0x0052, t01=0x00a4}
0x080c2…080ce Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0052, t01=0x00b8}
0x080ce…080e0 Head {h00=0x000e, h01=0x0050, text=» IFT PAX=1«, t00=0x0052, t01=0x00c4}
0x080e0…080f2 Head {h00=0x000e, h01=0x0050, text=» DATA PAEX«, t00=0x0052, t01=0x00d6}
0x080f2…080fe Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0052, t01=0x00e8}
0x080fe…08110 Head {h00=0x000e, h01=0x0050, text=» IFF PAX=1«, t00=0x0052, t01=0x00f4}
0x08110…08124 Head {h00=0x0010, h01=0x0050, text=» DATA RETURN«, t00=0x0052, t01=0x0106}
0x08124…08130 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0052, t01=0x011a}
0x08130…08142 Head {h00=0x000e, h01=0x0050, text=» DATA PA1 «, t00=0x0052, t01=0x0126}
0x08142…08154 Head {h00=0x000e, h01=0x0050, text=» DATA PA2 «, t00=0x0052, t01=0x0138}
0x08154…08166 Head {h00=0x000e, h01=0x0050, text=» DATA PA3 «, t00=0x0052, t01=0x014a}
0x08166…0818e Head {h00=0x0024, h01=0x0050, text=» DATA PAALFA PA4-PA10 (ALFASKOP)«, t00=0x0052, t01=0x015c}
0x0818e…081a2 Head {h00=0x0010, h01=0x0050, text=» DATA PAALFA«, t00=0x0052, t01=0x0184}
0x081a2…081b6 Head {h00=0x0010, h01=0x0050, text=» DATA PAALFA«, t00=0x0053, t01=0x0008}
0x081b6…081ca Head {h00=0x0010, h01=0x0050, text=» DATA PAALFA«, t00=0x0053, t01=0x001c}
0x081ca…081de Head {h00=0x0010, h01=0x0050, text=» DATA PAALFA«, t00=0x0053, t01=0x0030}
0x081de…081f2 Head {h00=0x0010, h01=0x0050, text=» DATA PAALFA«, t00=0x0053, t01=0x0044}
0x081f2…08206 Head {h00=0x0010, h01=0x0050, text=» DATA PAALFA«, t00=0x0053, t01=0x0058}
0x08206…08212 Head {h00=0x0008, h01=0x0050, text=»*B0 «, t00=0x0053, t01=0x006c}
0x08212…08224 Head {h00=0x000e, h01=0x0050, text=» IFT PFX=1«, t00=0x0053, t01=0x0078}
0x08224…08236 Head {h00=0x000e, h01=0x0050, text=» DATA PFEX«, t00=0x0053, t01=0x008a}
0x08236…08242 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0053, t01=0x009c}
0x08242…08254 Head {h00=0x000e, h01=0x0050, text=» IFF PFX=1«, t00=0x0053, t01=0x00a8}
0x08254…08268 Head {h00=0x0010, h01=0x0050, text=» DATA RETURN«, t00=0x0053, t01=0x00ba}
0x08268…08274 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0053, t01=0x00ce}
0x08274…08286 Head {h00=0x000e, h01=0x0050, text=» DATA PF 1«, t00=0x0053, t01=0x00da}
0x08286…08298 Head {h00=0x000e, h01=0x0050, text=» DATA PF 2«, t00=0x0053, t01=0x00ec}
0x08298…082aa Head {h00=0x000e, h01=0x0050, text=» DATA PF 3«, t00=0x0053, t01=0x00fe}
0x082aa…082bc Head {h00=0x000e, h01=0x0050, text=» DATA PF 4«, t00=0x0053, t01=0x0110}
0x082bc…082ce Head {h00=0x000e, h01=0x0050, text=» DATA PF 5«, t00=0x0053, t01=0x0122}
0x082ce…082e0 Head {h00=0x000e, h01=0x0050, text=» DATA PF 6«, t00=0x0053, t01=0x0134}
0x082e0…082f2 Head {h00=0x000e, h01=0x0050, text=» DATA PF 7«, t00=0x0053, t01=0x0146}
0x082f2…08304 Head {h00=0x000e, h01=0x0050, text=» DATA PF 8«, t00=0x0053, t01=0x0158}
0x08304…08316 Head {h00=0x000e, h01=0x0050, text=» DATA PF 9«, t00=0x0053, t01=0x016a}
0x08316…0832a Head {h00=0x0010, h01=0x0050, text=» DATA PF 10 «, t00=0x0053, t01=0x017c}
0x0832a…0833e Head {h00=0x0010, h01=0x0050, text=» DATA PF 11 «, t00=0x0053, t01=0x0190}
0x0833e…08352 Head {h00=0x0010, h01=0x0050, text=» DATA PF 12 «, t00=0x0054, t01=0x0014}
0x08352…08366 Head {h00=0x0010, h01=0x0050, text=» DATA PF 13 «, t00=0x0054, t01=0x0028}
0x08366…0837a Head {h00=0x0010, h01=0x0050, text=» DATA PF 14 «, t00=0x0054, t01=0x003c}
0x0837a…0838e Head {h00=0x0010, h01=0x0050, text=» DATA PF 15 «, t00=0x0054, t01=0x0050}
0x0838e…0839a Head {h00=0x0008, h01=0x0050, text=»*C0 «, t00=0x0054, t01=0x0064}
0x0839a…083ae Head {h00=0x0010, h01=0x0050, text=» DATA PF 16 «, t00=0x0054, t01=0x0070}
0x083ae…083c2 Head {h00=0x0010, h01=0x0050, text=» DATA PF 17 «, t00=0x0054, t01=0x0084}
0x083c2…083d6 Head {h00=0x0010, h01=0x0050, text=» DATA PF 18 «, t00=0x0054, t01=0x0098}
0x083d6…083ea Head {h00=0x0010, h01=0x0050, text=» DATA PF 19 «, t00=0x0054, t01=0x00ac}
0x083ea…083fe Head {h00=0x0010, h01=0x0050, text=» DATA PF 20 «, t00=0x0054, t01=0x00c0}
0x083fe…08412 Head {h00=0x0010, h01=0x0050, text=» DATA PF 21 «, t00=0x0054, t01=0x00d4}
0x08412…08426 Head {h00=0x0010, h01=0x0050, text=» DATA PF 22 «, t00=0x0054, t01=0x00e8}
0x08426…0843a Head {h00=0x0010, h01=0x0050, text=» DATA PF 23 «, t00=0x0054, t01=0x00fc}
0x0843a…0844e Head {h00=0x0010, h01=0x0050, text=» DATA PF 24 «, t00=0x0054, t01=0x0110}
0x0844e…08462 Head {h00=0x0010, h01=0x0050, text=» IFF TEST=1 «, t00=0x0054, t01=0x0124}
0x08462…08476 Head {h00=0x0010, h01=0x0050, text=» DATA RETURN«, t00=0x0054, t01=0x0138}
0x08476…08482 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0054, t01=0x014c}
0x08482…08496 Head {h00=0x0010, h01=0x0050, text=» IFT TEST=1 «, t00=0x0054, t01=0x0158}
0x08496…084aa Head {h00=0x0010, h01=0x0050, text=» DATA TESTM «, t00=0x0054, t01=0x016c}
0x084aa…084b6 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0054, t01=0x0180}
0x084b6…084c4 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0054, t01=0x018c}
0x084c4…0850a Head {h00=0x0042, h01=0x0050, text=»**************************************************************«, t00=0x0055, t01=0x000a}
0x0850a…08552 Head {h00=0x0044, h01=0x0050, text=»* * «, t00=0x0055, t01=0x0050}
0x08552…08598 Head {h00=0x0042, h01=0x0050, text=»* CHAR ALPHABETIC AND SPEC. CHAR UPDAT. DISPL. *«, t00=0x0055, t01=0x0098}
0x08598…085de Head {h00=0x0042, h01=0x0050, text=»* *«, t00=0x0055, t01=0x00de}
0x085de…08624 Head {h00=0x0042, h01=0x0050, text=»**************************************************************«, t00=0x0055, t01=0x0124}
0x08624…08638 Head {h00=0x0010, h01=0x0050, text=»* REGISTERS«, t00=0x0055, t01=0x016a}
0x08638…08642 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0055, t01=0x017e}
0x08642…08658 Head {h00=0x0012, h01=0x0050, text=»* A2= KEY-CHAR«, t00=0x0055, t01=0x0188}
0x08658…08676 Head {h00=0x001a, h01=0x0050, text=»* A3= ATTRIBUTE MASKL «, t00=0x0056, t01=0x000e}
0x08676…0868c Head {h00=0x0012, h01=0x0050, text=»* A4= RESERVED«, t00=0x0056, t01=0x002c}
0x0868c…086a2 Head {h00=0x0012, h01=0x0050, text=»* A5= RESERVED«, t00=0x0056, t01=0x0042}
0x086a2…086b8 Head {h00=0x0012, h01=0x0050, text=»* A6= RESERVED«, t00=0x0056, t01=0x0058}
0x086b8…086d0 Head {h00=0x0014, h01=0x0050, text=»* A11= RESERVED «, t00=0x0056, t01=0x006e}
0x086d0…086e8 Head {h00=0x0014, h01=0x0050, text=»* A13= RESERVED «, t00=0x0056, t01=0x0086}
0x086e8…086f2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0056, t01=0x009e}
0x086f2…08738 Head {h00=0x0042, h01=0x0050, text=»**************************************************************«, t00=0x0056, t01=0x00a8}
0x08738…0874a Head {h00=0x000e, h01=0x0050, text=»CHAR EQU *«, t00=0x0056, t01=0x00ee}
0x0874a…08772 Head {h00=0x0024, h01=0x0050, text=» LDK A3,/30 LOAD ATTRIBUTE MASK «, t00=0x0056, t01=0x0100}
0x08772…0879c Head {h00=0x0026, h01=0x0050, text=» CF A14,ANCOMM TAKE CARE OF CHAR. «, t00=0x0056, t01=0x0128}
0x0879c…087ac Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0056, t01=0x0152}
0x087ac…087ba Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0056, t01=0x0162}
0x087ba…08800 Head {h00=0x0042, h01=0x0050, text=»**************************************************************«, t00=0x0056, t01=0x0170}
0x08800…08846 Head {h00=0x0042, h01=0x0050, text=»* *«, t00=0x0057, t01=0x0026}
0x08846…0888c Head {h00=0x0042, h01=0x0050, text=»* NUM NUMERIC UPDAT. DISPL. *«, t00=0x0057, t01=0x006c}
0x0888c…088d2 Head {h00=0x0042, h01=0x0050, text=»* NUMCOM NUMERIC COMMA *«, t00=0x0057, t01=0x00b2}
0x088d2…0891a Head {h00=0x0044, h01=0x0050, text=»* * «, t00=0x0057, t01=0x00f8}
0x0891a…08960 Head {h00=0x0042, h01=0x0050, text=»**************************************************************«, t00=0x0057, t01=0x0140}
0x08960…08974 Head {h00=0x0010, h01=0x0050, text=»* REGISTERS«, t00=0x0057, t01=0x0186}
0x08974…0897e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0058, t01=0x000a}
0x0897e…08994 Head {h00=0x0012, h01=0x0050, text=»* A2= KEY-CHAR«, t00=0x0058, t01=0x0014}
0x08994…089b0 Head {h00=0x0018, h01=0x0050, text=»* A3= ATTRIBUTE MASK«, t00=0x0058, t01=0x002a}
0x089b0…089c6 Head {h00=0x0012, h01=0x0050, text=»* A4= RESERVED«, t00=0x0058, t01=0x0046}
0x089c6…089dc Head {h00=0x0012, h01=0x0050, text=»* A5= RESERVED«, t00=0x0058, t01=0x005c}
0x089dc…089f2 Head {h00=0x0012, h01=0x0050, text=»* A6= RESERVED«, t00=0x0058, t01=0x0072}
0x089f2…08a0a Head {h00=0x0014, h01=0x0050, text=»* A11= RESERVED «, t00=0x0058, t01=0x0088}
0x08a0a…08a22 Head {h00=0x0014, h01=0x0050, text=»* A13= RESERVED «, t00=0x0058, t01=0x00a0}
0x08a22…08a2c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0058, t01=0x00b8}
0x08a2c…08a72 Head {h00=0x0042, h01=0x0050, text=»************************************************************* «, t00=0x0058, t01=0x00c2}
0x08a72…08a86 Head {h00=0x0010, h01=0x0050, text=»NUMCOM EQU *«, t00=0x0058, t01=0x0108}
0x08a86…08aa6 Head {h00=0x001c, h01=0x0050, text=» LDK A2,/2C INSERT COMMA«, t00=0x0058, t01=0x011c}
0x08aa6…08ab8 Head {h00=0x000e, h01=0x0050, text=»NUM EQU * «, t00=0x0058, t01=0x013c}
0x08ab8…08ae0 Head {h00=0x0024, h01=0x0050, text=» LDK A3,/20 LOAD ATTRIBUTE MASK «, t00=0x0058, t01=0x014e}
0x08ae0…08b0a Head {h00=0x0026, h01=0x0050, text=» CF A14,ANCOMM TAKE CARE OF CHAR. «, t00=0x0058, t01=0x0176}
0x08b0a…08b1a Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0059, t01=0x0010}
0x08b1a…08b28 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0059, t01=0x0020}
0x08b28…08b70 Head {h00=0x0044, h01=0x0050, text=»*************************************************************** «, t00=0x0059, t01=0x002e}
0x08b70…08bb8 Head {h00=0x0044, h01=0x0050, text=»* * «, t00=0x0059, t01=0x0076}
0x08bb8…08c00 Head {h00=0x0044, h01=0x0050, text=»* ANCOMM COMMON ROUTINE FOR ALPHANUM. CHAR. * «, t00=0x0059, t01=0x00be}
0x08c00…08c48 Head {h00=0x0044, h01=0x0050, text=»* * «, t00=0x0059, t01=0x0106}
0x08c48…08c90 Head {h00=0x0044, h01=0x0050, text=»*************************************************************** «, t00=0x0059, t01=0x014e}
0x08c90…08ca4 Head {h00=0x0010, h01=0x0050, text=»* REGISTERS«, t00=0x005a, t01=0x0008}
0x08ca4…08cae Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005a, t01=0x001c}
0x08cae…08cc4 Head {h00=0x0012, h01=0x0050, text=»* A2= KEY-CHAR«, t00=0x005a, t01=0x0026}
0x08cc4…08cea Head {h00=0x0022, h01=0x0050, text=»* A3= AT ENTRY ATTRIBUTE MASK «, t00=0x005a, t01=0x003c}
0x08cea…08d08 Head {h00=0x001a, h01=0x0050, text=»* A4= REL. CURSOR POS.«, t00=0x005a, t01=0x0062}
0x08d08…08d2a Head {h00=0x001e, h01=0x0050, text=»* A5= REL. ATTRIBUTE POS. «, t00=0x005a, t01=0x0080}
0x08d2a…08d48 Head {h00=0x001a, h01=0x0050, text=»* A6= ATTRIBUTE CHAR. «, t00=0x005a, t01=0x00a2}
0x08d48…08d68 Head {h00=0x001c, h01=0x0050, text=»* A11= CREDIT WORK AREA «, t00=0x005a, t01=0x00c0}
0x08d68…08d80 Head {h00=0x0014, h01=0x0050, text=»* A13= RESERVED «, t00=0x005a, t01=0x00e0}
0x08d80…08d8a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005a, t01=0x00f8}
0x08d8a…08dd2 Head {h00=0x0044, h01=0x0050, text=»*************************************************************** «, t00=0x005a, t01=0x0102}
0x08dd2…08de6 Head {h00=0x0010, h01=0x0050, text=»ANCOMM EQU *«, t00=0x005a, t01=0x014a}
0x08de6…08e14 Head {h00=0x002a, h01=0x0050, text=» CF A14,SCRINF GET SCREEN INFORMATION «, t00=0x005a, t01=0x015e}
0x08e14…08e3a Head {h00=0x0022, h01=0x0050, text=» CWR A4,A5 CURSOR ON ATTRIBUTE«, t00=0x005a, t01=0x018c}
0x08e3a…08e54 Head {h00=0x0016, h01=0x0050, text=» RF(E) ANC800 YES «, t00=0x005b, t01=0x0022}
0x08e54…08e66 Head {h00=0x000e, h01=0x0050, text=» LDR A1,A6«, t00=0x005b, t01=0x003c}
0x08e66…08e88 Head {h00=0x001e, h01=0x0050, text=» ANR A1,A3 ALLOWED POS. ? «, t00=0x005b, t01=0x004e}
0x08e88…08ea2 Head {h00=0x0016, h01=0x0050, text=» RF(NZ) ANC800 NO «, t00=0x005b, t01=0x0070}
0x08ea2…08eb6 Head {h00=0x0010, h01=0x0050, text=» IFT IN:DL=1«, t00=0x005b, t01=0x008a}
0x08eb6…08eda Head {h00=0x0020, h01=0x0050, text=» LD A1,MODE,A11 INSERT MODE?«, t00=0x005b, t01=0x009e}
0x08eda…08ef2 Head {h00=0x0014, h01=0x0050, text=» RF(Z) ANC100 NO«, t00=0x005b, t01=0x00c2}
0x08ef2…08f08 Head {h00=0x0012, h01=0x0050, text=» CF A14,INSMOD«, t00=0x005b, t01=0x00da}
0x08f08…08f1a Head {h00=0x000e, h01=0x0050, text=» LDR A7,A1«, t00=0x005b, t01=0x00f0}
0x08f1a…08f3c Head {h00=0x001e, h01=0x0050, text=» ANK A7,1 INSRETED NORMAL?«, t00=0x005b, t01=0x0102}
0x08f3c…08f56 Head {h00=0x0016, h01=0x0050, text=» RF(NZ) ANC900 YES«, t00=0x005b, t01=0x0124}
0x08f56…08f7c Head {h00=0x0022, h01=0x0050, text=» ANK A1,2 INSERT NOT ALLOWED? «, t00=0x005b, t01=0x013e}
0x08f7c…08f96 Head {h00=0x0016, h01=0x0050, text=» RF(NZ) ANC800 YES«, t00=0x005b, t01=0x0164}
0x08f96…08fa2 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x005b, t01=0x017e}
0x08fa2…08fb6 Head {h00=0x0010, h01=0x0050, text=»ANC100 EQU *«, t00=0x005b, t01=0x018a}
0x08fb6…08fc8 Head {h00=0x000e, h01=0x0050, text=» LDR A1,A4«, t00=0x005c, t01=0x000e}
0x08fc8…08fda Head {h00=0x000e, h01=0x0050, text=» LDR A7,A2«, t00=0x005c, t01=0x0020}
0x08fda…0900e Head {h00=0x0030, h01=0x0050, text=» CF A14,STOVDU STORE KEY-CHAR IN VDU BUFFER «, t00=0x005c, t01=0x0032}
0x0900e…0903c Head {h00=0x002a, h01=0x0050, text=» CF A14,WCHAR DISPLAY CHAR AND CURSOR «, t00=0x005c, t01=0x0066}
0x0903c…09078 Head {h00=0x0038, h01=0x0050, text=» CF A14,POSUNP MOVE CURSOR TO NEXT UNPROTECTED POS. «, t00=0x005c, t01=0x0094}
0x09078…0908a Head {h00=0x000e, h01=0x0050, text=» RF ANC900«, t00=0x005c, t01=0x00d0}
0x0908a…0909e Head {h00=0x0010, h01=0x0050, text=»ANC800 EQU *«, t00=0x005c, t01=0x00e2}
0x0909e…090c2 Head {h00=0x0020, h01=0x0050, text=» CF A14,ERROR INDICATE ERROR«, t00=0x005c, t01=0x00f6}
0x090c2…090d6 Head {h00=0x0010, h01=0x0050, text=»ANC900 EQU *«, t00=0x005c, t01=0x011a}
0x090d6…090e6 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x005c, t01=0x012e}
0x090e6…090f4 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x005c, t01=0x013e}
0x090f4…09138 Head {h00=0x0040, h01=0x0050, text=»************************************************************«, t00=0x005c, t01=0x014c}
0x09138…0917c Head {h00=0x0040, h01=0x0050, text=»* *«, t00=0x005c, t01=0x0190}
0x0917c…091c0 Head {h00=0x0040, h01=0x0050, text=»* CURMOV MOVE CURSOR ON SCREEN *«, t00=0x005d, t01=0x0044}
0x091c0…09204 Head {h00=0x0040, h01=0x0050, text=»* *«, t00=0x005d, t01=0x0088}
0x09204…09248 Head {h00=0x0040, h01=0x0050, text=»************************************************************«, t00=0x005d, t01=0x00cc}
0x09248…0925c Head {h00=0x0010, h01=0x0050, text=»* REGISTERS«, t00=0x005d, t01=0x0110}
0x0925c…09266 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005d, t01=0x0124}
0x09266…0927c Head {h00=0x0012, h01=0x0050, text=»* A2= KEY-CHAR«, t00=0x005d, t01=0x012e}
0x0927c…0929a Head {h00=0x001a, h01=0x0050, text=»* A4= REL. CURSOR POS.«, t00=0x005d, t01=0x0144}
0x0929a…092bc Head {h00=0x001e, h01=0x0050, text=»* A5= REL. ATTRIBUTE POS. «, t00=0x005d, t01=0x0162}
0x092bc…092d8 Head {h00=0x0018, h01=0x0050, text=»* A6= ATTRIBUTE CHAR«, t00=0x005d, t01=0x0184}
0x092d8…092f0 Head {h00=0x0014, h01=0x0050, text=»* A11= RESERVED «, t00=0x005e, t01=0x0010}
0x092f0…09308 Head {h00=0x0014, h01=0x0050, text=»* A13= RESERVED «, t00=0x005e, t01=0x0028}
0x09308…09312 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005e, t01=0x0040}
0x09312…09356 Head {h00=0x0040, h01=0x0050, text=»************************************************************«, t00=0x005e, t01=0x004a}
0x09356…0936a Head {h00=0x0010, h01=0x0050, text=»CURMOV EQU *«, t00=0x005e, t01=0x008e}
0x0936a…09392 Head {h00=0x0024, h01=0x0050, text=» CF A14,SCRINF GET SCREEN INFO. «, t00=0x005e, t01=0x00a2}
0x09392…093b0 Head {h00=0x001a, h01=0x0050, text=» SUK A2,CRUP GET INDEX«, t00=0x005e, t01=0x00ca}
0x093b0…093c2 Head {h00=0x000e, h01=0x0050, text=» ADR A2,A2«, t00=0x005e, t01=0x00e8}
0x093c2…093f2 Head {h00=0x002c, h01=0x0050, text=» CFI A14,CURTAB,A2 JUMP IN CURSOR TABLE «, t00=0x005e, t01=0x00fa}
0x093f2…09420 Head {h00=0x002a, h01=0x0050, text=» CF A14,STOINF SAVE SCREEN INFORMATION«, t00=0x005e, t01=0x012a}
0x09420…0944a Head {h00=0x0026, h01=0x0050, text=» CWK A5,LBVDU+1 UNFORMATTED SCREEN«, t00=0x005e, t01=0x0158}
0x0944a…09464 Head {h00=0x0016, h01=0x0050, text=» RF(E) CURM10 YES «, t00=0x005e, t01=0x0182}
0x09464…09476 Head {h00=0x000e, h01=0x0050, text=» LDR A1,A4«, t00=0x005f, t01=0x000c}
0x09476…0949e Head {h00=0x0024, h01=0x0050, text=» CF A14,ATMASB UPDATE ATTRIBUTE «, t00=0x005f, t01=0x001e}
0x0949e…094b2 Head {h00=0x0010, h01=0x0050, text=»CURM10 EQU *«, t00=0x005f, t01=0x0046}
0x094b2…094d0 Head {h00=0x001a, h01=0x0050, text=» LDK A1,2 REQ. LENGTH «, t00=0x005f, t01=0x005a}
0x094d0…094f2 Head {h00=0x001e, h01=0x0050, text=» CF A14,DISCHA SET CURSOR «, t00=0x005f, t01=0x0078}
0x094f2…09502 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x005f, t01=0x009a}
0x09502…09510 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x005f, t01=0x00aa}
0x09510…09538 Head {h00=0x0024, h01=0x0050, text=»* CURTAB CURSOR JUMP TABLE«, t00=0x005f, t01=0x00b8}
0x09538…0954c Head {h00=0x0010, h01=0x0050, text=»CURTAB EQU *«, t00=0x005f, t01=0x00e0}
0x0954c…09574 Head {h00=0x0024, h01=0x0050, text=» DATA CRLEFT MOVE CURSOR TO LEFT«, t00=0x005f, t01=0x00f4}
0x09574…0959e Head {h00=0x0026, h01=0x0050, text=» DATA CRRIGT MOVE CURSOR TO RIGHT «, t00=0x005f, t01=0x011c}
0x0959e…095c4 Head {h00=0x0022, h01=0x0050, text=» DATA CRDOWN MOVE CURSOR DOWN «, t00=0x005f, t01=0x0146}
0x095c4…095e6 Head {h00=0x001e, h01=0x0050, text=» DATA CURUP MOVE CURSOR UP«, t00=0x005f, t01=0x016c}
0x095e6…09610 Head {h00=0x0026, h01=0x0050, text=»* CRLEFT MOVE CURSOR TO LEFT«, t00=0x005f, t01=0x018e}
0x09610…09624 Head {h00=0x0010, h01=0x0050, text=»CRLEFT EQU *«, t00=0x0060, t01=0x0028}
0x09624…09636 Head {h00=0x000e, h01=0x0050, text=» SUK A4,1 «, t00=0x0060, t01=0x003c}
0x09636…0965e Head {h00=0x0024, h01=0x0050, text=» RF(NN) CRRET NOT LEFTMOST POS. «, t00=0x0060, t01=0x004e}
0x0965e…0968a Head {h00=0x0028, h01=0x0050, text=» LDKL A4,LBVDU-1 LAST POS. ON SCREEN«, t00=0x0060, t01=0x0076}
0x0968a…0969c Head {h00=0x000e, h01=0x0050, text=» RF CRRET «, t00=0x0060, t01=0x00a2}
0x0969c…096c8 Head {h00=0x0028, h01=0x0050, text=»* CRRIGT MOVE CURSOR TO RIGHT «, t00=0x0060, t01=0x00b4}
0x096c8…096dc Head {h00=0x0010, h01=0x0050, text=»CRRIGT EQU *«, t00=0x0060, t01=0x00e0}
0x096dc…096ee Head {h00=0x000e, h01=0x0050, text=» ADK A4,1 «, t00=0x0060, t01=0x00f4}
0x096ee…09712 Head {h00=0x0020, h01=0x0050, text=» CWK A4,LBVDU END OF BUFFER?«, t00=0x0060, t01=0x0106}
0x09712…0972a Head {h00=0x0014, h01=0x0050, text=» RF(L) CRRET NO «, t00=0x0060, t01=0x012a}
0x0972a…0973c Head {h00=0x000e, h01=0x0050, text=» LDK A4,0 «, t00=0x0060, t01=0x0142}
0x0973c…0974e Head {h00=0x000e, h01=0x0050, text=» RF CRRET «, t00=0x0060, t01=0x0154}
0x0974e…09776 Head {h00=0x0024, h01=0x0050, text=»* CRDOWN MOVE CURSOR DOWN «, t00=0x0060, t01=0x0166}
0x09776…0978a Head {h00=0x0010, h01=0x0050, text=»CRDOWN EQU *«, t00=0x0060, t01=0x018e}
0x0978a…097a0 Head {h00=0x0012, h01=0x0050, text=» ADKL A4,LLINE«, t00=0x0061, t01=0x0012}
0x097a0…097c0 Head {h00=0x001c, h01=0x0050, text=» CWK A4,LBVDU LAST LINE?«, t00=0x0061, t01=0x0028}
0x097c0…097d8 Head {h00=0x0014, h01=0x0050, text=» RF(L) CRRET NO «, t00=0x0061, t01=0x0048}
0x097d8…097ee Head {h00=0x0012, h01=0x0050, text=» SUKL A4,LBVDU«, t00=0x0061, t01=0x0060}
0x097ee…09800 Head {h00=0x000e, h01=0x0050, text=» RF CRRET «, t00=0x0061, t01=0x0076}
0x09800…09824 Head {h00=0x0020, h01=0x0050, text=»* CURUP MOVE CURSOR UP«, t00=0x0061, t01=0x0088}
0x09824…09838 Head {h00=0x0010, h01=0x0050, text=»CURUP EQU * «, t00=0x0061, t01=0x00ac}
0x09838…0984e Head {h00=0x0012, h01=0x0050, text=» SUKL A4,LLINE«, t00=0x0061, t01=0x00c0}
0x0984e…09870 Head {h00=0x001e, h01=0x0050, text=» RF(NN) CRRET UPMOST LINE «, t00=0x0061, t01=0x00d6}
0x09870…09886 Head {h00=0x0012, h01=0x0050, text=» ADKL A4,LBVDU«, t00=0x0061, t01=0x00f8}
0x09886…0989a Head {h00=0x0010, h01=0x0050, text=»CRRET EQU * «, t00=0x0061, t01=0x010e}
0x0989a…098aa Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0061, t01=0x0122}
0x098aa…098b8 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0061, t01=0x0132}
0x098b8…098fe Head {h00=0x0042, h01=0x0050, text=»**************************************************************«, t00=0x0061, t01=0x0140}
0x098fe…09944 Head {h00=0x0042, h01=0x0050, text=»* *«, t00=0x0061, t01=0x0186}
0x09944…0998a Head {h00=0x0042, h01=0x0050, text=»* BAKTAB TAB. UNPROTECTED BACKWARDS *«, t00=0x0062, t01=0x003c}
0x0998a…099d0 Head {h00=0x0042, h01=0x0050, text=»* *«, t00=0x0062, t01=0x0082}
0x099d0…09a16 Head {h00=0x0042, h01=0x0050, text=»**************************************************************«, t00=0x0062, t01=0x00c8}
0x09a16…09a2a Head {h00=0x0010, h01=0x0050, text=»* REGISTERS«, t00=0x0062, t01=0x010e}
0x09a2a…09a34 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0062, t01=0x0122}
0x09a34…09a52 Head {h00=0x001a, h01=0x0050, text=»* A4= REL. CURSOR POS.«, t00=0x0062, t01=0x012c}
0x09a52…09a74 Head {h00=0x001e, h01=0x0050, text=»* A5= REL. ATTRIBUTE POS. «, t00=0x0062, t01=0x014a}
0x09a74…09a92 Head {h00=0x001a, h01=0x0050, text=»* A6= ATTRIBUTE CHAR. «, t00=0x0062, t01=0x016c}
0x09a92…09aba Head {h00=0x0024, h01=0x0050, text=»* A9= REL. ATTRIBUTE START POS. «, t00=0x0062, t01=0x018a}
0x09aba…09ad2 Head {h00=0x0014, h01=0x0050, text=»* A11= RESERVED «, t00=0x0063, t01=0x0022}
0x09ad2…09aea Head {h00=0x0014, h01=0x0050, text=»* A13= RESERVED «, t00=0x0063, t01=0x003a}
0x09aea…09af4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0063, t01=0x0052}
0x09af4…09b3c Head {h00=0x0044, h01=0x0050, text=»*************************************************************** «, t00=0x0063, t01=0x005c}
0x09b3c…09b50 Head {h00=0x0010, h01=0x0050, text=»BAKTAB EQU *«, t00=0x0063, t01=0x00a4}
0x09b50…09b7e Head {h00=0x002a, h01=0x0050, text=» CF A14,SCRINF GET SCREEN INFORMATION «, t00=0x0063, t01=0x00b8}
0x09b7e…09b90 Head {h00=0x000e, h01=0x0050, text=» LDR A9,A5«, t00=0x0063, t01=0x00e6}
0x09b90…09bbc Head {h00=0x0028, h01=0x0050, text=» CWK A5,LBVDU+1 UNFORMATTED SCREEN? «, t00=0x0063, t01=0x00f8}
0x09bbc…09bd6 Head {h00=0x0016, h01=0x0050, text=» RF(E) BAK600 YES «, t00=0x0063, t01=0x0124}
0x09bd6…09c00 Head {h00=0x0026, h01=0x0050, text=» CWR A4,A5 STANDING ON ATTRIBUTE? «, t00=0x0063, t01=0x013e}
0x09c00…09c1a Head {h00=0x0016, h01=0x0050, text=» RF(E) BAK300 YES «, t00=0x0063, t01=0x0168}
0x09c1a…09c2c Head {h00=0x000e, h01=0x0050, text=» SUK A4,1 «, t00=0x0063, t01=0x0182}
0x09c2c…09c5c (100, 0, 400) Head {h00=0x002c, h01=0x0050, text=» RF(NN) BAK100 NOT FIRST POS. ON SCREEN «, t00=0x0064, t01=0x0004}
0x09c5c…09c88 Head {h00=0x0028, h01=0x0050, text=» LDKL A4,LBVDU-1 LAST POS. ON SCREEN«, t00=0x0064, t01=0x0034}
0x09c88…09c9c Head {h00=0x0010, h01=0x0050, text=»BAK100 EQU *«, t00=0x0064, t01=0x0060}
0x09c9c…09cd0 Head {h00=0x0030, h01=0x0050, text=» CWR A4,A5 STANDING ON POS. AFTER ATTRIBUTE?«, t00=0x0064, t01=0x0074}
0x09cd0…09cea Head {h00=0x0016, h01=0x0050, text=» RF(E) BAK300 YES «, t00=0x0064, t01=0x00a8}
0x09cea…09cfc Head {h00=0x000e, h01=0x0050, text=» LDR A4,A5«, t00=0x0064, t01=0x00c2}
0x09cfc…09d0e Head {h00=0x000e, h01=0x0050, text=» LDR A7,A6«, t00=0x0064, t01=0x00d4}
0x09d0e…09d32 Head {h00=0x0020, h01=0x0050, text=» ANK A7,/20 PROTECTED FIELD?«, t00=0x0064, t01=0x00e6}
0x09d32…09d4a Head {h00=0x0014, h01=0x0050, text=» RF(Z) BAK500 NO«, t00=0x0064, t01=0x010a}
0x09d4a…09d5e Head {h00=0x0010, h01=0x0050, text=»BAK300 EQU *«, t00=0x0064, t01=0x0122}
0x09d5e…09d70 Head {h00=0x000e, h01=0x0050, text=» SUK A4,1 «, t00=0x0064, t01=0x0136}
0x09d70…09d86 Head {h00=0x0012, h01=0x0050, text=» RF(NN) BAK400«, t00=0x0064, t01=0x0148}
0x09d86…09d9e Head {h00=0x0014, h01=0x0050, text=» LDKL A4,LBVDU-1«, t00=0x0064, t01=0x015e}
0x09d9e…09db2 Head {h00=0x0010, h01=0x0050, text=»BAK400 EQU *«, t00=0x0064, t01=0x0176}
0x09db2…09dc4 Head {h00=0x000e, h01=0x0050, text=» LDR A1,A4«, t00=0x0064, t01=0x018a}
0x09dc4…09e02 Head {h00=0x003a, h01=0x0050, text=» CF A14,ATMASB SEARCH ATTRIBUTE BACKWARDS AND MASK IT «, t00=0x0065, t01=0x000c}
0x09e02…09e14 Head {h00=0x000e, h01=0x0050, text=» LDR A7,A6«, t00=0x0065, t01=0x004a}
0x09e14…09e38 Head {h00=0x0020, h01=0x0050, text=» ANK A7,/20 PROTECTED FIELD?«, t00=0x0065, t01=0x005c}
0x09e38…09e50 Head {h00=0x0014, h01=0x0050, text=» RF(Z) BAK500 NO«, t00=0x0065, t01=0x0080}
0x09e50…09e62 Head {h00=0x000e, h01=0x0050, text=» LDR A4,A5«, t00=0x0065, t01=0x0098}
0x09e62…09e8c Head {h00=0x0026, h01=0x0050, text=» CWR A5,A9 WHOLE SCREEN SEARCHED? «, t00=0x0065, t01=0x00aa}
0x09e8c…09ea6 Head {h00=0x0016, h01=0x0050, text=» RB(NE) BAK300 NO «, t00=0x0065, t01=0x00d4}
0x09ea6…09eca Head {h00=0x0020, h01=0x0050, text=» LDK A1,0 FIRST SCREEN POS. «, t00=0x0065, t01=0x00ee}
0x09eca…09efa Head {h00=0x002c, h01=0x0050, text=» CF A14,ATMASB UPDATE FIELD INFORMATION «, t00=0x0065, t01=0x0112}
0x09efa…09f0c Head {h00=0x000e, h01=0x0050, text=» RF BAK600«, t00=0x0065, t01=0x0142}
0x09f0c…09f20 Head {h00=0x0010, h01=0x0050, text=»BAK500 EQU *«, t00=0x0065, t01=0x0154}
0x09f20…09f32 Head {h00=0x000e, h01=0x0050, text=» LDR A4,A5«, t00=0x0065, t01=0x0168}
0x09f32…09f44 Head {h00=0x000e, h01=0x0050, text=» ADK A4,1 «, t00=0x0065, t01=0x017a}
0x09f44…09f68 Head {h00=0x0020, h01=0x0050, text=» CWK A4,LBVDU-1 WRAP AROUND?«, t00=0x0065, t01=0x018c}
0x09f68…09f82 Head {h00=0x0016, h01=0x0050, text=» RF(NG) BAK700 NO «, t00=0x0066, t01=0x0020}
0x09f82…09f96 Head {h00=0x0010, h01=0x0050, text=»BAK600 EQU *«, t00=0x0066, t01=0x003a}
0x09f96…09fba Head {h00=0x0020, h01=0x0050, text=» LDK A4,0 FIRST SCREEN POS. «, t00=0x0066, t01=0x004e}
0x09fba…09fce Head {h00=0x0010, h01=0x0050, text=»BAK700 EQU *«, t00=0x0066, t01=0x0072}
0x09fce…09ffc Head {h00=0x002a, h01=0x0050, text=» CF A14,STOINF SAVE SCREEN INFORMATION«, t00=0x0066, t01=0x0086}
0x09ffc…0a01a Head {h00=0x001a, h01=0x0050, text=» LDK A1,2 REQ. LENGTH «, t00=0x0066, t01=0x00b4}
0x0a01a…0a03c Head {h00=0x001e, h01=0x0050, text=» CF A14,DISCHA SET CURSOR «, t00=0x0066, t01=0x00d2}
0x0a03c…0a04c Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0066, t01=0x00f4}
0x0a04c…0a05a Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0066, t01=0x0104}
0x0a05a…0a0a0 Head {h00=0x0042, h01=0x0050, text=»************************************************************* «, t00=0x0066, t01=0x0112}
0x0a0a0…0a0e6 Head {h00=0x0042, h01=0x0050, text=»* * «, t00=0x0066, t01=0x0158}
0x0a0e6…0a12c Head {h00=0x0042, h01=0x0050, text=»* TAB TAB. UNPROTECTED FORWARD * «, t00=0x0067, t01=0x000e}
0x0a12c…0a172 Head {h00=0x0042, h01=0x0050, text=»* * «, t00=0x0067, t01=0x0054}
0x0a172…0a1b8 Head {h00=0x0042, h01=0x0050, text=»************************************************************* «, t00=0x0067, t01=0x009a}
0x0a1b8…0a1cc Head {h00=0x0010, h01=0x0050, text=»* REGISTERS«, t00=0x0067, t01=0x00e0}
0x0a1cc…0a1d6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0067, t01=0x00f4}
0x0a1d6…0a1f4 Head {h00=0x001a, h01=0x0050, text=»* A4= REL. CURSOR POS.«, t00=0x0067, t01=0x00fe}
0x0a1f4…0a216 Head {h00=0x001e, h01=0x0050, text=»* A5= REL. ATTRIBUTE POS. «, t00=0x0067, t01=0x011c}
0x0a216…0a234 Head {h00=0x001a, h01=0x0050, text=»* A6= ATTRIBUTE CHAR. «, t00=0x0067, t01=0x013e}
0x0a234…0a25c Head {h00=0x0024, h01=0x0050, text=»* A9= REL. ATTRIBUTE START POS. «, t00=0x0067, t01=0x015c}
0x0a25c…0a274 Head {h00=0x0014, h01=0x0050, text=»* A11= RESERVED «, t00=0x0067, t01=0x0184}
0x0a274…0a28c Head {h00=0x0014, h01=0x0050, text=»* A13= RESERVED «, t00=0x0068, t01=0x000c}
0x0a28c…0a296 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0068, t01=0x0024}
0x0a296…0a2dc Head {h00=0x0042, h01=0x0050, text=»**************************************************************«, t00=0x0068, t01=0x002e}
0x0a2dc…0a2ee Head {h00=0x000e, h01=0x0050, text=»TAB EQU * «, t00=0x0068, t01=0x0074}
0x0a2ee…0a31c Head {h00=0x002a, h01=0x0050, text=» CF A14,SCRINF GET SCREEN INFORMATION «, t00=0x0068, t01=0x0086}
0x0a31c…0a32e Head {h00=0x000e, h01=0x0050, text=» LDR A9,A5«, t00=0x0068, t01=0x00b4}
0x0a32e…0a35a Head {h00=0x0028, h01=0x0050, text=» CWK A5,LBVDU+1 UNFORMATTED SCREEN? «, t00=0x0068, t01=0x00c6}
0x0a35a…0a374 Head {h00=0x0016, h01=0x0050, text=» RF(E) TAB200 YES «, t00=0x0068, t01=0x00f2}
0x0a374…0a388 Head {h00=0x0010, h01=0x0050, text=»TAB100 EQU *«, t00=0x0068, t01=0x010c}
0x0a388…0a39a Head {h00=0x000e, h01=0x0050, text=» LDR A1,A4«, t00=0x0068, t01=0x0120}
0x0a39a…0a3ca Head {h00=0x002c, h01=0x0050, text=» CF A14,ATMASF SEARCH ATTRIBUTE FORWARD «, t00=0x0068, t01=0x0132}
0x0a3ca…0a3ec Head {h00=0x001e, h01=0x0050, text=» LDR A4,A5 NEW CURSOR POS.«, t00=0x0068, t01=0x0162}
0x0a3ec…0a3fe Head {h00=0x000e, h01=0x0050, text=» LDR A7,A6«, t00=0x0068, t01=0x0184}
0x0a3fe…0a422 Head {h00=0x0020, h01=0x0050, text=» ANK A7,/20 PROTECTED FIELD?«, t00=0x0069, t01=0x0008}
0x0a422…0a43a Head {h00=0x0014, h01=0x0050, text=» RF(Z) TAB150 NO«, t00=0x0069, t01=0x002c}
0x0a43a…0a464 Head {h00=0x0026, h01=0x0050, text=» CWR A5,A9 WHOLE SCREEN SEARCHED? «, t00=0x0069, t01=0x0044}
0x0a464…0a47e Head {h00=0x0016, h01=0x0050, text=» RB(NE) TAB100 NO «, t00=0x0069, t01=0x006e}
0x0a47e…0a4a4 Head {h00=0x0022, h01=0x0050, text=» LDK A1,0 FIRST POS. ON SCREEN«, t00=0x0069, t01=0x0088}
0x0a4a4…0a4d4 Head {h00=0x002c, h01=0x0050, text=» CF A14,ATMASB UPDATE FIELD INFORMATION «, t00=0x0069, t01=0x00ae}
0x0a4d4…0a4e6 Head {h00=0x000e, h01=0x0050, text=» RF TAB200«, t00=0x0069, t01=0x00de}
0x0a4e6…0a4fa Head {h00=0x0010, h01=0x0050, text=»TAB150 EQU *«, t00=0x0069, t01=0x00f0}
0x0a4fa…0a50c Head {h00=0x000e, h01=0x0050, text=» ADK A4,1 «, t00=0x0069, t01=0x0104}
0x0a50c…0a536 Head {h00=0x0026, h01=0x0050, text=» CWK A4,LBVDU-1 LAST SCREEN POS.? «, t00=0x0069, t01=0x0116}
0x0a536…0a550 Head {h00=0x0016, h01=0x0050, text=» RF(NG) TAB300 NO «, t00=0x0069, t01=0x0140}
0x0a550…0a564 Head {h00=0x0010, h01=0x0050, text=»TAB200 EQU *«, t00=0x0069, t01=0x015a}
0x0a564…0a588 Head {h00=0x0020, h01=0x0050, text=» LDK A4,0 FIRST SCREEN POS. «, t00=0x0069, t01=0x016e}
0x0a588…0a59c (106, 0, 400) Head {h00=0x0010, h01=0x0050, text=»TAB300 EQU *«, t00=0x006a, t01=0x0004}
0x0a59c…0a5ca Head {h00=0x002a, h01=0x0050, text=» CF A14,STOINF SAVE SCREEN INFORMATION«, t00=0x006a, t01=0x0018}
0x0a5ca…0a5e8 Head {h00=0x001a, h01=0x0050, text=» LDK A1,2 REQ. LENGTH «, t00=0x006a, t01=0x0046}
0x0a5e8…0a60a Head {h00=0x001e, h01=0x0050, text=» CF A14,DISCHA SET CURSOR «, t00=0x006a, t01=0x0064}
0x0a60a…0a61a Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x006a, t01=0x0086}
0x0a61a…0a628 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x006a, t01=0x0096}
0x0a628…0a674 Head {h00=0x0048, h01=0x0050, text=»******************************************************************* «, t00=0x006a, t01=0x00a4}
0x0a674…0a6c0 Head {h00=0x0048, h01=0x0050, text=»* * «, t00=0x006a, t01=0x00f0}
0x0a6c0…0a70c Head {h00=0x0048, h01=0x0050, text=»* CRNL TAB. UNPROTECTED TO NEXT LINE * «, t00=0x006a, t01=0x013c}
0x0a70c…0a758 Head {h00=0x0048, h01=0x0050, text=»* * «, t00=0x006a, t01=0x0188}
0x0a758…0a7a4 Head {h00=0x0048, h01=0x0050, text=»******************************************************************* «, t00=0x006b, t01=0x0044}
0x0a7a4…0a7b8 Head {h00=0x0010, h01=0x0050, text=»* REGISTERS«, t00=0x006b, t01=0x0090}
0x0a7b8…0a7c2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006b, t01=0x00a4}
0x0a7c2…0a7e0 Head {h00=0x001a, h01=0x0050, text=»* A4= REL. CURSOR POS.«, t00=0x006b, t01=0x00ae}
0x0a7e0…0a802 Head {h00=0x001e, h01=0x0050, text=»* A5= REL. ATTRIBUTE POS. «, t00=0x006b, t01=0x00cc}
0x0a802…0a820 Head {h00=0x001a, h01=0x0050, text=»* A6= ATTRIBUTE CHAR. «, t00=0x006b, t01=0x00ee}
0x0a820…0a838 Head {h00=0x0014, h01=0x0050, text=»* A11= RESERVED «, t00=0x006b, t01=0x010c}
0x0a838…0a850 Head {h00=0x0014, h01=0x0050, text=»* A13= RESERVED «, t00=0x006b, t01=0x0124}
0x0a850…0a85a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006b, t01=0x013c}
0x0a85a…0a8a4 Head {h00=0x0046, h01=0x0050, text=»***************************************************************** «, t00=0x006b, t01=0x0146}
0x0a8a4…0a8b6 Head {h00=0x000e, h01=0x0050, text=»CRNL EQU *«, t00=0x006b, t01=0x0190}
0x0a8b6…0a8e4 Head {h00=0x002a, h01=0x0050, text=» CF A14,SCRINF GET SCREEN INFORMATION «, t00=0x006c, t01=0x0012}
0x0a8e4…0a90c Head {h00=0x0024, h01=0x0050, text=» CF A14,CRDOWN MOVE CURSOR DOWN «, t00=0x006c, t01=0x0040}
0x0a90c…0a934 Head {h00=0x0024, h01=0x0050, text=» LDK A1,0 COMPUTE LEFTMOST POS. «, t00=0x006c, t01=0x0068}
0x0a934…0a948 Head {h00=0x0010, h01=0x0050, text=»CRN100 EQU *«, t00=0x006c, t01=0x0090}
0x0a948…0a95e Head {h00=0x0012, h01=0x0050, text=» SUK A4,LLINE «, t00=0x006c, t01=0x00a4}
0x0a95e…0a974 Head {h00=0x0012, h01=0x0050, text=» RF(N) CRN200 «, t00=0x006c, t01=0x00ba}
0x0a974…0a98a Head {h00=0x0012, h01=0x0050, text=» ADK A1,LLINE «, t00=0x006c, t01=0x00d0}
0x0a98a…0a99c Head {h00=0x000e, h01=0x0050, text=» RB CRN100«, t00=0x006c, t01=0x00e6}
0x0a99c…0a9b0 Head {h00=0x0010, h01=0x0050, text=»CRN200 EQU *«, t00=0x006c, t01=0x00f8}
0x0a9b0…0a9c2 Head {h00=0x000e, h01=0x0050, text=» LDR A4,A1«, t00=0x006c, t01=0x010c}
0x0a9c2…0a9ee Head {h00=0x0028, h01=0x0050, text=» CWK A5,LBVDU+1 UNFORMATTED SCREEN? «, t00=0x006c, t01=0x011e}
0x0a9ee…0aa08 Head {h00=0x0016, h01=0x0050, text=» RF(E) CRN800 YES «, t00=0x006c, t01=0x014a}
0x0aa08…0aa36 Head {h00=0x002a, h01=0x0050, text=» CF A14,GETVDU GET CHAR. IN VDU BUFFER«, t00=0x006c, t01=0x0164}
0x0aa36…0aa54 (109, 0, 400) Head {h00=0x001a, h01=0x0050, text=» CCK A7,/80 ATTRIBUTE?«, t00=0x006d, t01=0x0004}
0x0aa54…0aa6e Head {h00=0x0016, h01=0x0050, text=» RF(NL) CRN400 YES«, t00=0x006d, t01=0x0022}
0x0aa6e…0aa80 Head {h00=0x000e, h01=0x0050, text=» LDR A1,A4«, t00=0x006d, t01=0x003c}
0x0aa80…0aab0 Head {h00=0x002c, h01=0x0050, text=» CF A14,ATMASB SEARCH ATTRIBUTE BACKWARD«, t00=0x006d, t01=0x004e}
0x0aab0…0aac2 Head {h00=0x000e, h01=0x0050, text=» LDR A7,A6«, t00=0x006d, t01=0x007e}
0x0aac2…0aae0 Head {h00=0x001a, h01=0x0050, text=» ANK A7,/20 PROTECTED?«, t00=0x006d, t01=0x0090}
0x0aae0…0aaf8 Head {h00=0x0014, h01=0x0050, text=» RF(Z) CRN800 NO«, t00=0x006d, t01=0x00ae}
0x0aaf8…0ab0a Head {h00=0x000e, h01=0x0050, text=» RF CRN500«, t00=0x006d, t01=0x00c6}
0x0ab0a…0ab1e Head {h00=0x0010, h01=0x0050, text=»CRN400 EQU *«, t00=0x006d, t01=0x00d8}
0x0ab1e…0ab30 Head {h00=0x000e, h01=0x0050, text=» SUK A4,1 «, t00=0x006d, t01=0x00ec}
0x0ab30…0ab56 Head {h00=0x0022, h01=0x0050, text=» RF(NN) CRN500 NOT WRAP AROUND«, t00=0x006d, t01=0x00fe}
0x0ab56…0ab80 Head {h00=0x0026, h01=0x0050, text=» LDKL A4,LBVDU-1 LAST SCREEN POS. «, t00=0x006d, t01=0x0124}
0x0ab80…0ab94 Head {h00=0x0010, h01=0x0050, text=»CRN500 EQU *«, t00=0x006d, t01=0x014e}
0x0ab94…0abc2 Head {h00=0x002a, h01=0x0050, text=» CF A14,STOINF SAVE SCREEN INFORMATION«, t00=0x006d, t01=0x0162}
0x0abc2…0abee Head {h00=0x0028, h01=0x0050, text=» CF A14,TAB TAB. UNPROTECTED FORWARD«, t00=0x006d, t01=0x0190}
0x0abee…0ac00 Head {h00=0x000e, h01=0x0050, text=» RF CRN900«, t00=0x006e, t01=0x002c}
0x0ac00…0ac14 Head {h00=0x0010, h01=0x0050, text=»CRN800 EQU *«, t00=0x006e, t01=0x003e}
0x0ac14…0ac42 Head {h00=0x002a, h01=0x0050, text=» CF A14,STOINF SAVE SCREEN INFORMATION«, t00=0x006e, t01=0x0052}
0x0ac42…0ac60 Head {h00=0x001a, h01=0x0050, text=» LDK A1,2 REQ. LENGTH «, t00=0x006e, t01=0x0080}
0x0ac60…0ac82 Head {h00=0x001e, h01=0x0050, text=» CF A14,DISCHA SET CURSOR «, t00=0x006e, t01=0x009e}
0x0ac82…0ac96 Head {h00=0x0010, h01=0x0050, text=»CRN900 EQU *«, t00=0x006e, t01=0x00c0}
0x0ac96…0aca6 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x006e, t01=0x00d4}
0x0aca6…0acb4 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x006e, t01=0x00e4}
0x0acb4…0ad02 Head {h00=0x004a, h01=0x0050, text=»********************************************************************* «, t00=0x006e, t01=0x00f2}
0x0ad02…0ad50 Head {h00=0x004a, h01=0x0050, text=»* * «, t00=0x006e, t01=0x0140}
0x0ad50…0ad9e Head {h00=0x004a, h01=0x0050, text=»* RDHOME TAB. UNPROTECTED FIRST ON SCREEN * «, t00=0x006e, t01=0x018e}
0x0ad9e…0adec Head {h00=0x004a, h01=0x0050, text=»* * «, t00=0x006f, t01=0x004c}
0x0adec…0ae3a Head {h00=0x004a, h01=0x0050, text=»********************************************************************* «, t00=0x006f, t01=0x009a}
0x0ae3a…0ae4e Head {h00=0x0010, h01=0x0050, text=»* REGISTERS«, t00=0x006f, t01=0x00e8}
0x0ae4e…0ae58 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006f, t01=0x00fc}
0x0ae58…0ae76 Head {h00=0x001a, h01=0x0050, text=»* A4= REL. CURSOR POS.«, t00=0x006f, t01=0x0106}
0x0ae76…0ae98 Head {h00=0x001e, h01=0x0050, text=»* A5= REL. ATTRIBUTE POS. «, t00=0x006f, t01=0x0124}
0x0ae98…0aeb6 Head {h00=0x001a, h01=0x0050, text=»* A6= ATTRIBUTE CHAR. «, t00=0x006f, t01=0x0146}
0x0aeb6…0aece Head {h00=0x0014, h01=0x0050, text=»* A11= RESERVED «, t00=0x006f, t01=0x0164}
0x0aece…0aee6 Head {h00=0x0014, h01=0x0050, text=»* A13= RESERVED «, t00=0x006f, t01=0x017c}
0x0aee6…0aef0 (112, 0, 400) Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0070, t01=0x0004}
0x0aef0…0af3e Head {h00=0x004a, h01=0x0050, text=»********************************************************************* «, t00=0x0070, t01=0x000e}
0x0af3e…0af52 Head {h00=0x0010, h01=0x0050, text=»RDHOME EQU *«, t00=0x0070, t01=0x005c}
0x0af52…0af80 Head {h00=0x002a, h01=0x0050, text=» CF A14,SCRINF GET SCREEN INFORMATION «, t00=0x0070, t01=0x0070}
0x0af80…0afa6 Head {h00=0x0022, h01=0x0050, text=» LDK A4,0 FIRST POS. ON SCREEN«, t00=0x0070, t01=0x009e}
0x0afa6…0afbc Head {h00=0x0012, h01=0x0050, text=» CF A14,STOINF«, t00=0x0070, t01=0x00c4}
0x0afbc…0afe8 Head {h00=0x0028, h01=0x0050, text=» CWK A5,LBVDU+1 UNFORMATTED SCREEN? «, t00=0x0070, t01=0x00da}
0x0afe8…0b002 Head {h00=0x0016, h01=0x0050, text=» RF(E) RDH800 YES «, t00=0x0070, t01=0x0106}
0x0b002…0b014 Head {h00=0x000e, h01=0x0050, text=» LDR A1,A4«, t00=0x0070, t01=0x0120}
0x0b014…0b042 Head {h00=0x002a, h01=0x0050, text=» CF A14,GETVDU GET CHAR. IN VDU BUFFER«, t00=0x0070, t01=0x0132}
0x0b042…0b062 Head {h00=0x001c, h01=0x0050, text=» CCK A7,/8000 ATTRIBUTE?«, t00=0x0070, t01=0x0160}
0x0b062…0b07a Head {h00=0x0014, h01=0x0050, text=» RF(L) RDH100 NO«, t00=0x0070, t01=0x0180}
0x0b07a…0b0a4 Head {h00=0x0026, h01=0x0050, text=» LDKL A4,LBVDU-1 LAST SCREEN POS. «, t00=0x0071, t01=0x0008}
0x0b0a4…0b0d2 Head {h00=0x002a, h01=0x0050, text=» CF A14,STOINF SAVE SCREEN INFORMATION«, t00=0x0071, t01=0x0032}
0x0b0d2…0b0e4 Head {h00=0x000e, h01=0x0050, text=» RF RDH300«, t00=0x0071, t01=0x0060}
0x0b0e4…0b0f8 Head {h00=0x0010, h01=0x0050, text=»RDH100 EQU *«, t00=0x0071, t01=0x0072}
0x0b0f8…0b10a Head {h00=0x000e, h01=0x0050, text=» LDR A1,A4«, t00=0x0071, t01=0x0086}
0x0b10a…0b138 Head {h00=0x002a, h01=0x0050, text=» CF A14,ATMASB GET ATTRIBUTE BACKWARD «, t00=0x0071, t01=0x0098}
0x0b138…0b14a Head {h00=0x000e, h01=0x0050, text=» LDR A7,A6«, t00=0x0071, t01=0x00c6}
0x0b14a…0b168 Head {h00=0x001a, h01=0x0050, text=» ANK A7,/20 PROTECTED?«, t00=0x0071, t01=0x00d8}
0x0b168…0b180 Head {h00=0x0014, h01=0x0050, text=» RF(Z) RDH800 NO«, t00=0x0071, t01=0x00f6}
0x0b180…0b194 Head {h00=0x0010, h01=0x0050, text=»RDH300 EQU *«, t00=0x0071, t01=0x010e}
0x0b194…0b1c0 Head {h00=0x0028, h01=0x0050, text=» CF A14,TAB TAB. UNPROTECTED FORWARD«, t00=0x0071, t01=0x0122}
0x0b1c0…0b1d2 Head {h00=0x000e, h01=0x0050, text=» RF RDH900«, t00=0x0071, t01=0x014e}
0x0b1d2…0b1e6 Head {h00=0x0010, h01=0x0050, text=»RDH800 EQU *«, t00=0x0071, t01=0x0160}
0x0b1e6…0b214 Head {h00=0x002a, h01=0x0050, text=» CF A14,STOINF SAVE SCREEN INFORMATION«, t00=0x0071, t01=0x0174}
0x0b214…0b232 Head {h00=0x001a, h01=0x0050, text=» LDK A1,2 REQ. LENGTH «, t00=0x0072, t01=0x0012}
0x0b232…0b254 Head {h00=0x001e, h01=0x0050, text=» CF A14,DISCHA SET CURSOR «, t00=0x0072, t01=0x0030}
0x0b254…0b268 Head {h00=0x0010, h01=0x0050, text=»RDH900 EQU *«, t00=0x0072, t01=0x0052}
0x0b268…0b278 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0072, t01=0x0066}
0x0b278…0b286 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0072, t01=0x0076}
0x0b286…0b2cc Head {h00=0x0042, h01=0x0050, text=»************************************************************* «, t00=0x0072, t01=0x0084}
0x0b2cc…0b312 Head {h00=0x0042, h01=0x0050, text=»* * «, t00=0x0072, t01=0x00ca}
0x0b312…0b358 Head {h00=0x0042, h01=0x0050, text=»* EREOF ERASE TO END OF FIELD * «, t00=0x0072, t01=0x0110}
0x0b358…0b39c Head {h00=0x0040, h01=0x0050, text=»* *«, t00=0x0072, t01=0x0156}
0x0b39c…0b3e2 Head {h00=0x0042, h01=0x0050, text=»************************************************************* «, t00=0x0073, t01=0x000a}
0x0b3e2…0b3f6 Head {h00=0x0010, h01=0x0050, text=»* REGISTERS«, t00=0x0073, t01=0x0050}
0x0b3f6…0b400 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0073, t01=0x0064}
0x0b400…0b41e Head {h00=0x001a, h01=0x0050, text=»* A4= REL. CURSOR POS.«, t00=0x0073, t01=0x006e}
0x0b41e…0b440 Head {h00=0x001e, h01=0x0050, text=»* A5= REL. ATTRIBUTE POS. «, t00=0x0073, t01=0x008c}
0x0b440…0b45e Head {h00=0x001a, h01=0x0050, text=»* A6= ATTRIBUTE CHAR. «, t00=0x0073, t01=0x00ae}
0x0b45e…0b476 Head {h00=0x0014, h01=0x0050, text=»* A11= RESERVED «, t00=0x0073, t01=0x00cc}
0x0b476…0b48e Head {h00=0x0014, h01=0x0050, text=»* A13= RESERVED «, t00=0x0073, t01=0x00e4}
0x0b48e…0b498 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0073, t01=0x00fc}
0x0b498…0b4e4 Head {h00=0x0048, h01=0x0050, text=»******************************************************************* «, t00=0x0073, t01=0x0106}
0x0b4e4…0b4f8 Head {h00=0x0010, h01=0x0050, text=»EREOF EQU * «, t00=0x0073, t01=0x0152}
0x0b4f8…0b526 Head {h00=0x002a, h01=0x0050, text=» CF A14,SCRINF GET SCREEN INFORMATION «, t00=0x0073, t01=0x0166}
0x0b526…0b552 (116, 0, 400) Head {h00=0x0028, h01=0x0050, text=» CWK A5,LBVDU+1 UNFORMATTED SCREEN? «, t00=0x0074, t01=0x0004}
0x0b552…0b56c Head {h00=0x0016, h01=0x0050, text=» RF(E) ERE700 YES «, t00=0x0074, t01=0x0030}
0x0b56c…0b57e Head {h00=0x000e, h01=0x0050, text=» LDR A7,A6«, t00=0x0074, t01=0x004a}
0x0b57e…0b5a2 Head {h00=0x0020, h01=0x0050, text=» ANK A7,/20 PROTECTED FIELD?«, t00=0x0074, t01=0x005c}
0x0b5a2…0b5bc Head {h00=0x0016, h01=0x0050, text=» RF(NZ) ERE600 YES«, t00=0x0074, t01=0x0080}
0x0b5bc…0b5e6 Head {h00=0x0026, h01=0x0050, text=» CWR A5,A4 STANDING ON ATTRIBUTE? «, t00=0x0074, t01=0x009a}
0x0b5e6…0b600 Head {h00=0x0016, h01=0x0050, text=» RF(E) ERE600 YES «, t00=0x0074, t01=0x00c4}
0x0b600…0b612 Head {h00=0x000e, h01=0x0050, text=» LDR A1,A4«, t00=0x0074, t01=0x00de}
0x0b612…0b62e Head {h00=0x0018, h01=0x0050, text=» LDR A8,A6 SAVE OLD «, t00=0x0074, t01=0x00f0}
0x0b62e…0b64a Head {h00=0x0018, h01=0x0050, text=» LDR A9,A5 SAVE OLD «, t00=0x0074, t01=0x010c}
0x0b64a…0b67a Head {h00=0x002c, h01=0x0050, text=» CF A14,ATMASF SEARCH ATTRIBUTE FORWARD «, t00=0x0074, t01=0x0128}
0x0b67a…0b68c Head {h00=0x000e, h01=0x0050, text=» LDR A3,A5«, t00=0x0074, t01=0x0158}
0x0b68c…0b69e Head {h00=0x000e, h01=0x0050, text=» LDR A6,A8«, t00=0x0074, t01=0x016a}
0x0b69e…0b6b0 Head {h00=0x000e, h01=0x0050, text=» LDR A5,A9«, t00=0x0074, t01=0x017c}
0x0b6b0…0b6da Head {h00=0x0026, h01=0x0050, text=» ORK A6,1 SET MDT-BIT IN ATTRIBUTE«, t00=0x0074, t01=0x018e}
0x0b6da…0b6ec Head {h00=0x000e, h01=0x0050, text=» LDR A7,A6«, t00=0x0075, t01=0x0028}
0x0b6ec…0b6fe Head {h00=0x000e, h01=0x0050, text=» LDR A1,A5«, t00=0x0075, t01=0x003a}
0x0b6fe…0b736 Head {h00=0x0034, h01=0x0050, text=» CF A14,STOVDU STORE NEW ATTRIBUTE IN VDU BUFFER«, t00=0x0075, t01=0x004c}
0x0b736…0b768 Head {h00=0x002e, h01=0x0050, text=» CF A14,STOINF SAVE NEW SCREEN INFORMATION«, t00=0x0075, t01=0x0084}
0x0b768…0b788 Head {h00=0x001c, h01=0x0050, text=» LDR A1,A3 STOP ADDRESS «, t00=0x0075, t01=0x00b6}
0x0b788…0b79a Head {h00=0x000e, h01=0x0050, text=» RF ERE800«, t00=0x0075, t01=0x00d6}
0x0b79a…0b7ae Head {h00=0x0010, h01=0x0050, text=»ERE600 EQU *«, t00=0x0075, t01=0x00e8}
0x0b7ae…0b7d2 Head {h00=0x0020, h01=0x0050, text=» CF A14,ERROR INDICATE ERROR«, t00=0x0075, t01=0x00fc}
0x0b7d2…0b7e4 Head {h00=0x000e, h01=0x0050, text=» RF ERE900«, t00=0x0075, t01=0x0120}
0x0b7e4…0b7f8 Head {h00=0x0010, h01=0x0050, text=»ERE700 EQU *«, t00=0x0075, t01=0x0132}
0x0b7f8…0b820 Head {h00=0x0024, h01=0x0050, text=» CF A14,LINE ERASE ONE LINE DK1 «, t00=0x0075, t01=0x0146}
0x0b820…0b838 Head {h00=0x0014, h01=0x0050, text=» LDR A1,A5 DK1 «, t00=0x0075, t01=0x016e}
0x0b838…0b852 Head {h00=0x0016, h01=0x0050, text=» CWK A1,LBVDU DK1«, t00=0x0075, t01=0x0186}
0x0b852…0b86c Head {h00=0x0016, h01=0x0050, text=» RF(L) ERE710 DK1«, t00=0x0076, t01=0x0010}
0x0b86c…0b88e Head {h00=0x001e, h01=0x0050, text=» LDK A1,0 STOP ADDRESS =3 «, t00=0x0076, t01=0x002a}
0x0b88e…0b8a8 Head {h00=0x0016, h01=0x0050, text=»ERE710 EQU * DK1 «, t00=0x0076, t01=0x004c}
0x0b8a8…0b8c4 Head {h00=0x0018, h01=0x0050, text=» CF A14,SCRINF DK1 «, t00=0x0076, t01=0x0066}
0x0b8c4…0b8d8 Head {h00=0x0010, h01=0x0050, text=»ERE800 EQU *«, t00=0x0076, t01=0x0082}
0x0b8d8…0b8ec Head {h00=0x0010, h01=0x0050, text=» SUR A10,A10«, t00=0x0076, t01=0x0096}
0x0b8ec…0b920 Head {h00=0x0030, h01=0x0050, text=» CF A14,ERASUA ERASE UNPROTECTED TO ADDRESS «, t00=0x0076, t01=0x00aa}
0x0b920…0b94e Head {h00=0x002a, h01=0x0050, text=» CF A14,DISMOD DISPLAY MODIFIED FIELD «, t00=0x0076, t01=0x00de}
0x0b94e…0b962 Head {h00=0x0010, h01=0x0050, text=»ERE900 EQU *«, t00=0x0076, t01=0x010c}
0x0b962…0b972 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0076, t01=0x0120}
0x0b972…0b980 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0076, t01=0x0130}
0x0b980…0b9cc Head {h00=0x0048, h01=0x0050, text=»******************************************************************* «, t00=0x0076, t01=0x013e}
0x0b9cc…0ba18 Head {h00=0x0048, h01=0x0050, text=»* * «, t00=0x0076, t01=0x018a}
0x0ba18…0ba64 Head {h00=0x0048, h01=0x0050, text=»* ERINPT ERASE UNPROTECTED ENTIRE SCREEN * «, t00=0x0077, t01=0x0046}
0x0ba64…0bab0 Head {h00=0x0048, h01=0x0050, text=»* * «, t00=0x0077, t01=0x0092}
0x0bab0…0bafc Head {h00=0x0048, h01=0x0050, text=»******************************************************************* «, t00=0x0077, t01=0x00de}
0x0bafc…0bb10 Head {h00=0x0010, h01=0x0050, text=»* REGISTERS«, t00=0x0077, t01=0x012a}
0x0bb10…0bb1a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0077, t01=0x013e}
0x0bb1a…0bb38 Head {h00=0x001a, h01=0x0050, text=»* A4= REL. CURSOR POS.«, t00=0x0077, t01=0x0148}
0x0bb38…0bb5a Head {h00=0x001e, h01=0x0050, text=»* A5= REL. ATTRIBUTE POS. «, t00=0x0077, t01=0x0166}
0x0bb5a…0bb78 Head {h00=0x001a, h01=0x0050, text=»* A6= ATTRIBUTE CHAR. «, t00=0x0077, t01=0x0188}
0x0bb78…0bb90 Head {h00=0x0014, h01=0x0050, text=»* A11= RESERVED «, t00=0x0078, t01=0x0016}
0x0bb90…0bba8 Head {h00=0x0014, h01=0x0050, text=»* A13= RESERVED «, t00=0x0078, t01=0x002e}
0x0bba8…0bbb2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0078, t01=0x0046}
0x0bbb2…0bbfe Head {h00=0x0048, h01=0x0050, text=»******************************************************************* «, t00=0x0078, t01=0x0050}
0x0bbfe…0bc12 Head {h00=0x0010, h01=0x0050, text=»ERINPT EQU *«, t00=0x0078, t01=0x009c}
0x0bc12…0bc40 Head {h00=0x002a, h01=0x0050, text=» CF A14,SCRINF GET SCREEN INFORMATION «, t00=0x0078, t01=0x00b0}
0x0bc40…0bc6c Head {h00=0x0028, h01=0x0050, text=» CWK A5,LBVDU+1 UNFORMATTED SCREEN? «, t00=0x0078, t01=0x00de}
0x0bc6c…0bc86 Head {h00=0x0016, h01=0x0050, text=» RF(NE) ERI100 NO «, t00=0x0078, t01=0x010a}
0x0bc86…0bcb0 Head {h00=0x0026, h01=0x0050, text=» CF A14,ERASE ERASE ENTIRE SCREEN «, t00=0x0078, t01=0x0124}
0x0bcb0…0bcc2 Head {h00=0x000e, h01=0x0050, text=» RF ERI900«, t00=0x0078, t01=0x014e}
0x0bcc2…0bcd6 Head {h00=0x0010, h01=0x0050, text=»ERI100 EQU *«, t00=0x0078, t01=0x0160}
0x0bcd6…0bd02 Head {h00=0x0028, h01=0x0050, text=» CF A14,ERASUP ERASE ALL UNPROTECTED«, t00=0x0078, t01=0x0174}
0x0bd02…0bd2e Head {h00=0x0028, h01=0x0050, text=» CF A14,DISMOD DISPLAY ERASED FIELDS«, t00=0x0079, t01=0x0010}
0x0bd2e…0bd66 Head {h00=0x0034, h01=0x0050, text=» CF A14,RDHOME TAB. UNPROTECTED FIRST ON SCREEN «, t00=0x0079, t01=0x003c}
0x0bd66…0bd7a Head {h00=0x0010, h01=0x0050, text=»ERI900 EQU *«, t00=0x0079, t01=0x0074}
0x0bd7a…0bd8a Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0079, t01=0x0088}
0x0bd8a…0bd98 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0079, t01=0x0098}
0x0bd98…0bdac Head {h00=0x0010, h01=0x0050, text=» IFT IN:DL=1«, t00=0x0079, t01=0x00a6}
0x0bdac…0bdec Head {h00=0x003c, h01=0x0050, text=»********************************************************«, t00=0x0079, t01=0x00ba}
0x0bdec…0be2c Head {h00=0x003c, h01=0x0050, text=»* *«, t00=0x0079, t01=0x00fa}
0x0be2c…0be6c Head {h00=0x003c, h01=0x0050, text=»* INSERT INSERT KEY HANDLING *«, t00=0x0079, t01=0x013a}
0x0be6c…0beac Head {h00=0x003c, h01=0x0050, text=»* *«, t00=0x0079, t01=0x017a}
0x0beac…0beec Head {h00=0x003c, h01=0x0050, text=»********************************************************«, t00=0x007a, t01=0x002a}
0x0beec…0bf00 Head {h00=0x0010, h01=0x0050, text=»* REGISTERS«, t00=0x007a, t01=0x006a}
0x0bf00…0bf0a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x007a, t01=0x007e}
0x0bf0a…0bf2a Head {h00=0x001c, h01=0x0050, text=»* A11= CREDIT WORK AREA «, t00=0x007a, t01=0x0088}
0x0bf2a…0bf42 Head {h00=0x0014, h01=0x0050, text=»* A13= RESERVED «, t00=0x007a, t01=0x00a8}
0x0bf42…0bf4c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x007a, t01=0x00c0}
0x0bf4c…0bf88 Head {h00=0x0038, h01=0x0050, text=»*************************************************** «, t00=0x007a, t01=0x00ca}
0x0bf88…0bf9c Head {h00=0x0010, h01=0x0050, text=»INSERT EQU *«, t00=0x007a, t01=0x0106}
0x0bf9c…0bfc0 Head {h00=0x0020, h01=0x0050, text=» IM MODE,A11 SET INSERT MODE«, t00=0x007a, t01=0x011a}
0x0bfc0…0bfd0 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x007a, t01=0x013e}
0x0bfd0…0bfde Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x007a, t01=0x014e}
0x0bfde…0c01c Head {h00=0x003a, h01=0x0050, text=»******************************************************«, t00=0x007a, t01=0x015c}
0x0c01c…0c05a Head {h00=0x003a, h01=0x0050, text=»* *«, t00=0x007b, t01=0x000a}
0x0c05a…0c098 Head {h00=0x003a, h01=0x0050, text=»* DELETE DELETE CHAR. HANDLING *«, t00=0x007b, t01=0x0048}
0x0c098…0c0d6 Head {h00=0x003a, h01=0x0050, text=»* *«, t00=0x007b, t01=0x0086}
0x0c0d6…0c116 Head {h00=0x003c, h01=0x0050, text=»******************************************************* «, t00=0x007b, t01=0x00c4}
0x0c116…0c12a Head {h00=0x0010, h01=0x0050, text=»* REGISTERS«, t00=0x007b, t01=0x0104}
0x0c12a…0c134 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x007b, t01=0x0118}
0x0c134…0c152 Head {h00=0x001a, h01=0x0050, text=»* A4= REL. CURSOR POS.«, t00=0x007b, t01=0x0122}
0x0c152…0c174 Head {h00=0x001e, h01=0x0050, text=»* A5= REL. ATTRIBUTE POS. «, t00=0x007b, t01=0x0140}
0x0c174…0c192 Head {h00=0x001a, h01=0x0050, text=»* A6= ATTRIBUTE CHAR. «, t00=0x007b, t01=0x0162}
0x0c192…0c1b2 Head {h00=0x001c, h01=0x0050, text=»* A11= CREDIT WORK AREA «, t00=0x007b, t01=0x0180}
0x0c1b2…0c1ca Head {h00=0x0014, h01=0x0050, text=»* A13= RESERVED «, t00=0x007c, t01=0x0010}
0x0c1ca…0c1d4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x007c, t01=0x0028}
0x0c1d4…0c214 Head {h00=0x003c, h01=0x0050, text=»******************************************************* «, t00=0x007c, t01=0x0032}
0x0c214…0c228 Head {h00=0x0010, h01=0x0050, text=»DELETE EQU *«, t00=0x007c, t01=0x0072}
0x0c228…0c256 Head {h00=0x002a, h01=0x0050, text=» CF A14,SCRINF GET SCREEN INFORMATION «, t00=0x007c, t01=0x0086}
0x0c256…0c26a Head {h00=0x0010, h01=0x0050, text=» LDKL A3,-1 «, t00=0x007c, t01=0x00b4}
0x0c26a…0c27e Head {h00=0x0010, h01=0x0050, text=»DEL025 EQU *«, t00=0x007c, t01=0x00c8}
0x0c27e…0c294 Head {h00=0x0012, h01=0x0050, text=» ADK A3,LLINE «, t00=0x007c, t01=0x00dc}
0x0c294…0c2c2 Head {h00=0x002a, h01=0x0050, text=» CWR A3,A4 LAST POS. ON CURRENT LINE? «, t00=0x007c, t01=0x00f2}
0x0c2c2…0c2da Head {h00=0x0014, h01=0x0050, text=» RB(L) DEL025 NO«, t00=0x007c, t01=0x0120}
0x0c2da…0c306 Head {h00=0x0028, h01=0x0050, text=» CWK A5,LBVDU+1 UNFORMATTED SCREEN? «, t00=0x007c, t01=0x0138}
0x0c306…0c320 Head {h00=0x0016, h01=0x0050, text=» RF(E) DEL200 YES «, t00=0x007c, t01=0x0164}
0x0c320…0c34a Head {h00=0x0026, h01=0x0050, text=» CWR A4,A5 STANDING ON ATTRIBUTE? «, t00=0x007c, t01=0x017e}
0x0c34a…0c364 Head {h00=0x0016, h01=0x0050, text=» RF(E) DEL700 YES «, t00=0x007d, t01=0x0018}
0x0c364…0c376 Head {h00=0x000e, h01=0x0050, text=» LDR A7,A6«, t00=0x007d, t01=0x0032}
0x0c376…0c394 Head {h00=0x001a, h01=0x0050, text=» ANK A7,/20 PROTECTED?«, t00=0x007d, t01=0x0044}
0x0c394…0c3ae Head {h00=0x0016, h01=0x0050, text=» RF(NZ) DEL700 YES«, t00=0x007d, t01=0x0062}
0x0c3ae…0c3cc Head {h00=0x001a, h01=0x0050, text=» ORK A6,1 SET MDT-BIT «, t00=0x007d, t01=0x007c}
0x0c3cc…0c3de Head {h00=0x000e, h01=0x0050, text=» LDR A7,A6«, t00=0x007d, t01=0x009a}
0x0c3de…0c3f0 Head {h00=0x000e, h01=0x0050, text=» LDR A1,A5«, t00=0x007d, t01=0x00ac}
0x0c3f0…0c41a Head {h00=0x0026, h01=0x0050, text=» CF A14,STOVDU SAVE NEW ATTRIBUTE «, t00=0x007d, t01=0x00be}
0x0c41a…0c436 Head {h00=0x0018, h01=0x0050, text=» LDR A8,A6 SAVE OLD «, t00=0x007d, t01=0x00e8}
0x0c436…0c452 Head {h00=0x0018, h01=0x0050, text=» LDR A9,A5 SAVE OLD «, t00=0x007d, t01=0x0104}
0x0c452…0c482 Head {h00=0x002c, h01=0x0050, text=» CF A14,ATMASF SEARCH ATTRIBUTE FORWARD «, t00=0x007d, t01=0x0120}
0x0c482…0c494 Head {h00=0x000e, h01=0x0050, text=» LDR A1,A5«, t00=0x007d, t01=0x0150}
0x0c494…0c4a6 Head {h00=0x000e, h01=0x0050, text=» LDR A6,A8«, t00=0x007d, t01=0x0162}
0x0c4a6…0c4b8 Head {h00=0x000e, h01=0x0050, text=» LDR A5,A9«, t00=0x007d, t01=0x0174}
0x0c4b8…0c4e6 Head {h00=0x002a, h01=0x0050, text=» CF A14,STOINF SAVE SCREEN INFORMATION«, t00=0x007d, t01=0x0186}
0x0c4e6…0c516 Head {h00=0x002c, h01=0x0050, text=» CWR A3,A1 ATTRIBUTE BEFOR END OF LINE? «, t00=0x007e, t01=0x0024}
0x0c516…0c530 Head {h00=0x0016, h01=0x0050, text=» RF(NG) DEL200 NO «, t00=0x007e, t01=0x0054}
0x0c530…0c542 Head {h00=0x000e, h01=0x0050, text=» LDR A3,A1«, t00=0x007e, t01=0x006e}
0x0c542…0c556 Head {h00=0x0010, h01=0x0050, text=»DEL200 EQU *«, t00=0x007e, t01=0x0080}
0x0c556…0c568 Head {h00=0x000e, h01=0x0050, text=» LDR A1,A4«, t00=0x007e, t01=0x0094}
0x0c568…0c57c Head {h00=0x0010, h01=0x0050, text=»DEL300 EQU *«, t00=0x007e, t01=0x00a6}
0x0c57c…0c58e Head {h00=0x000e, h01=0x0050, text=» ADK A1,1 «, t00=0x007e, t01=0x00ba}
0x0c58e…0c5be Head {h00=0x002c, h01=0x0050, text=» CF A14,GETVDU GET CHAR. IN VDU BUFFER «, t00=0x007e, t01=0x00cc}
0x0c5be…0c5d0 Head {h00=0x000e, h01=0x0050, text=» SUK A1,1 «, t00=0x007e, t01=0x00fc}
0x0c5d0…0c600 Head {h00=0x002c, h01=0x0050, text=» CF A14,STOVDU STORE CHAR. IN VDU BUFFER«, t00=0x007e, t01=0x010e}
0x0c600…0c612 Head {h00=0x000e, h01=0x0050, text=» ADK A1,1 «, t00=0x007e, t01=0x013e}
0x0c612…0c632 Head {h00=0x001c, h01=0x0050, text=» CWR A1,A3 ALL SHIFTED? «, t00=0x007e, t01=0x0150}
0x0c632…0c64c Head {h00=0x0016, h01=0x0050, text=» RB(NE) DEL300 NO «, t00=0x007e, t01=0x0170}
0x0c64c…0c670 Head {h00=0x0020, h01=0x0050, text=» LDK A7,NULL GET NULL CHAR. «, t00=0x007e, t01=0x018a}
0x0c670…0c6a4 Head {h00=0x0030, h01=0x0050, text=» CF A14,STOVDU STORE NULL CHAR IN VDU BUFFER«, t00=0x007f, t01=0x001e}
0x0c6a4…0c6ba Head {h00=0x0012, h01=0x0050, text=» CF A14,SAVE1 «, t00=0x007f, t01=0x0052}
0x0c6ba…0c6d0 Head {h00=0x0012, h01=0x0050, text=» LDK A5,LLINE «, t00=0x007f, t01=0x0068}
0x0c6d0…0c6e4 Head {h00=0x0010, h01=0x0050, text=» LDR A6,A11 «, t00=0x007f, t01=0x007e}
0x0c6e4…0c6f8 Head {h00=0x0010, h01=0x0050, text=» SUR A10,A10«, t00=0x007f, t01=0x0092}
0x0c6f8…0c71a Head {h00=0x001e, h01=0x0050, text=» CF A14,LINE GET LINE FLAG«, t00=0x007f, t01=0x00a6}
0x0c71a…0c732 Head {h00=0x0014, h01=0x0050, text=» LC A1,LINFLG,A6«, t00=0x007f, t01=0x00c8}
0x0c732…0c744 Head {h00=0x000e, h01=0x0050, text=» ORK A1,1 «, t00=0x007f, t01=0x00e0}
0x0c744…0c75c Head {h00=0x0014, h01=0x0050, text=» SC A1,LINFLG,A6«, t00=0x007f, t01=0x00f2}
0x0c75c…0c772 Head {h00=0x0012, h01=0x0050, text=» CF A14,REST1 «, t00=0x007f, t01=0x010a}
0x0c772…0c79e Head {h00=0x0028, h01=0x0050, text=» CF A14,DISMOD DISPLAY MODIFIED LINE«, t00=0x007f, t01=0x0120}
0x0c79e…0c7b0 Head {h00=0x000e, h01=0x0050, text=» RF DEL900«, t00=0x007f, t01=0x014c}
0x0c7b0…0c7c4 Head {h00=0x0010, h01=0x0050, text=»DEL700 EQU *«, t00=0x007f, t01=0x015e}
0x0c7c4…0c7e8 Head {h00=0x0020, h01=0x0050, text=» CF A14,ERROR INDICATE ERROR«, t00=0x007f, t01=0x0172}
0x0c7e8…0c7fc Head {h00=0x0010, h01=0x0050, text=»DEL900 EQU *«, t00=0x0080, t01=0x0008}
0x0c7fc…0c80c Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0080, t01=0x001c}
0x0c80c…0c818 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0080, t01=0x002c}
0x0c818…0c826 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0080, t01=0x0038}
0x0c826…0c866 Head {h00=0x003c, h01=0x0050, text=»********************************************************«, t00=0x0080, t01=0x0046}
0x0c866…0c8a6 Head {h00=0x003c, h01=0x0050, text=»* *«, t00=0x0080, t01=0x0086}
0x0c8a6…0c8e6 Head {h00=0x003c, h01=0x0050, text=»* RESET RESET KEY HANDLING *«, t00=0x0080, t01=0x00c6}
0x0c8e6…0c926 Head {h00=0x003c, h01=0x0050, text=»* *«, t00=0x0080, t01=0x0106}
0x0c926…0c966 Head {h00=0x003c, h01=0x0050, text=»********************************************************«, t00=0x0080, t01=0x0146}
0x0c966…0c97a Head {h00=0x0010, h01=0x0050, text=»* REGISTERS«, t00=0x0080, t01=0x0186}
0x0c97a…0c984 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0081, t01=0x000a}
0x0c984…0c9a4 Head {h00=0x001c, h01=0x0050, text=»* A11= CREDIT WORK AREA «, t00=0x0081, t01=0x0014}
0x0c9a4…0c9bc Head {h00=0x0014, h01=0x0050, text=»* A13= RESERVED «, t00=0x0081, t01=0x0034}
0x0c9bc…0c9c6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0081, t01=0x004c}
0x0c9c6…0ca02 Head {h00=0x0038, h01=0x0050, text=»****************************************************«, t00=0x0081, t01=0x0056}
0x0ca02…0ca16 Head {h00=0x0010, h01=0x0050, text=»RESET EQU * «, t00=0x0081, t01=0x0092}
0x0ca16…0ca3c Head {h00=0x0022, h01=0x0050, text=» CM MODE,A11 RESET INSERT MODE«, t00=0x0081, t01=0x00a6}
0x0ca3c…0ca6a Head {h00=0x002a, h01=0x0050, text=» CF A14,LMP6OF TURN OFF "INSERT" LAMP «, t00=0x0081, t01=0x00cc}
0x0ca6a…0ca92 Head {h00=0x0024, h01=0x0050, text=» CM KBINH,A11 RESSTORE KEYBOARD «, t00=0x0081, t01=0x00fa}
0x0ca92…0cabe Head {h00=0x0028, h01=0x0050, text=» CF A14,LMP4OF TURN OFF 'ERROR' LAMP«, t00=0x0081, t01=0x0122}
0x0cabe…0caf6 Head {h00=0x0034, h01=0x0050, text=» CF A14,LMP3OF TURN OFF 'KEYBOARD INHIBIT' LAMP «, t00=0x0081, t01=0x014e}
0x0caf6…0cb06 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0081, t01=0x0186}
0x0cb06…0cb14 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0082, t01=0x0008}
0x0cb14…0cb58 Head {h00=0x0040, h01=0x0050, text=»*********************************************************** «, t00=0x0082, t01=0x0016}
0x0cb58…0cb9c Head {h00=0x0040, h01=0x0050, text=»* * «, t00=0x0082, t01=0x005a}
0x0cb9c…0cbe0 Head {h00=0x0040, h01=0x0050, text=»* DUP DUPLICATE KEY * «, t00=0x0082, t01=0x009e}
0x0cbe0…0cc24 Head {h00=0x0040, h01=0x0050, text=»* * «, t00=0x0082, t01=0x00e2}
0x0cc24…0cc68 Head {h00=0x0040, h01=0x0050, text=»*********************************************************** «, t00=0x0082, t01=0x0126}
0x0cc68…0cc7c Head {h00=0x0010, h01=0x0050, text=»* REGISTERS«, t00=0x0082, t01=0x016a}
0x0cc7c…0cc86 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0082, t01=0x017e}
0x0cc86…0cc9c Head {h00=0x0012, h01=0x0050, text=»* A2= KEY-CHAR«, t00=0x0082, t01=0x0188}
0x0cc9c…0ccb4 Head {h00=0x0014, h01=0x0050, text=»* A11= RESERVED «, t00=0x0083, t01=0x000e}
0x0ccb4…0cccc Head {h00=0x0014, h01=0x0050, text=»* A13= RESERVED «, t00=0x0083, t01=0x0026}
0x0cccc…0ccd6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0083, t01=0x003e}
0x0ccd6…0cd1a Head {h00=0x0040, h01=0x0050, text=»************************************************************«, t00=0x0083, t01=0x0048}
0x0cd1a…0cd2c Head {h00=0x000e, h01=0x0050, text=»DUP EQU * «, t00=0x0083, t01=0x008c}
0x0cd2c…0cd50 Head {h00=0x0020, h01=0x0050, text=» LDK A2,DUPCH GET DUP CHAR. «, t00=0x0083, t01=0x009e}
0x0cd50…0cd64 Head {h00=0x0010, h01=0x0050, text=» CF A14,NUM «, t00=0x0083, t01=0x00c2}
0x0cd64…0cd78 Head {h00=0x0010, h01=0x0050, text=» CF A14,TAB «, t00=0x0083, t01=0x00d6}
0x0cd78…0cd88 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0083, t01=0x00ea}
0x0cd88…0cd96 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0083, t01=0x00fa}
0x0cd96…0cdda Head {h00=0x0040, h01=0x0050, text=»*********************************************************** «, t00=0x0083, t01=0x0108}
0x0cdda…0ce1e Head {h00=0x0040, h01=0x0050, text=»* * «, t00=0x0083, t01=0x014c}
0x0ce1e…0ce62 Head {h00=0x0040, h01=0x0050, text=»* FLDMRK FIELD MARK KEY * «, t00=0x0083, t01=0x0190}
0x0ce62…0cea6 Head {h00=0x0040, h01=0x0050, text=»* * «, t00=0x0084, t01=0x0044}
0x0cea6…0ceea Head {h00=0x0040, h01=0x0050, text=»*********************************************************** «, t00=0x0084, t01=0x0088}
0x0ceea…0cefe Head {h00=0x0010, h01=0x0050, text=»* REGISTERS«, t00=0x0084, t01=0x00cc}
0x0cefe…0cf08 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0084, t01=0x00e0}
0x0cf08…0cf1e Head {h00=0x0012, h01=0x0050, text=»* A2= KEY-CHAR«, t00=0x0084, t01=0x00ea}
0x0cf1e…0cf36 Head {h00=0x0014, h01=0x0050, text=»* A11= RESERVED «, t00=0x0084, t01=0x0100}
0x0cf36…0cf4e Head {h00=0x0014, h01=0x0050, text=»* A13= RESERVED «, t00=0x0084, t01=0x0118}
0x0cf4e…0cf58 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0084, t01=0x0130}
0x0cf58…0cf9c Head {h00=0x0040, h01=0x0050, text=»*********************************************************** «, t00=0x0084, t01=0x013a}
0x0cf9c…0cfb0 Head {h00=0x0010, h01=0x0050, text=»FLDMRK EQU *«, t00=0x0084, t01=0x017e}
0x0cfb0…0cfda (133, 0, 400) Head {h00=0x0026, h01=0x0050, text=» LDK A2,FMCH GET FIELD MARK CHAR. «, t00=0x0085, t01=0x0004}
0x0cfda…0cfee Head {h00=0x0010, h01=0x0050, text=» CF A14,NUM «, t00=0x0085, t01=0x002e}
0x0cfee…0cffe Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0085, t01=0x0042}
0x0cffe…0d00c Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0085, t01=0x0052}
0x0d00c…0d054 Head {h00=0x0044, h01=0x0050, text=»*************************************************************** «, t00=0x0085, t01=0x0060}
0x0d054…0d05e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0085, t01=0x00a8}
0x0d05e…0d088 Head {h00=0x0026, h01=0x0050, text=»* Z E R O : 3 TRIPLE ZERO KEY«, t00=0x0085, t01=0x00b2}
0x0d088…0d0b4 Head {h00=0x0028, h01=0x0050, text=»* Z E R O : 2 DOUBLE ZERO KEY «, t00=0x0085, t01=0x00dc}
0x0d0b4…0d0be Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0085, t01=0x0108}
0x0d0be…0d0f8 Head {h00=0x0036, h01=0x0050, text=»************************************************* «, t00=0x0085, t01=0x0112}
0x0d0f8…0d10c Head {h00=0x0010, h01=0x0050, text=»* REGISTERS«, t00=0x0085, t01=0x014c}
0x0d10c…0d116 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0085, t01=0x0160}
0x0d116…0d12c Head {h00=0x0012, h01=0x0050, text=»* A2= KEY-CHAR«, t00=0x0085, t01=0x016a}
0x0d12c…0d144 Head {h00=0x0014, h01=0x0050, text=»* A11= RESERVED «, t00=0x0085, t01=0x0180}
0x0d144…0d15c Head {h00=0x0014, h01=0x0050, text=»* A13= RESERVED «, t00=0x0086, t01=0x0008}
0x0d15c…0d166 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0086, t01=0x0020}
0x0d166…0d1a8 Head {h00=0x003e, h01=0x0050, text=»********************************************************* «, t00=0x0086, t01=0x002a}
0x0d1a8…0d1b0 Head {h00=0x0004, h01=0x0050, t00=0x0086, t01=0x006c}
0x0d1b0…0d1c4 Head {h00=0x0010, h01=0x0050, text=»ZERO:3 EQU *«, t00=0x0086, t01=0x0074}
0x0d1c4…0d1e2 Head {h00=0x001a, h01=0x0050, text=» LDK A2,/30 ZERO CHAR.«, t00=0x0086, t01=0x0088}
0x0d1e2…0d208 Head {h00=0x0022, h01=0x0050, text=» CF A14,NUM DISPLAY CHARACTER «, t00=0x0086, t01=0x00a6}
0x0d208…0d21c Head {h00=0x0010, h01=0x0050, text=»ZERO:2 EQU *«, t00=0x0086, t01=0x00cc}
0x0d21c…0d23a Head {h00=0x001a, h01=0x0050, text=» LDK A2,/30 ZERO CHAR.«, t00=0x0086, t01=0x00e0}
0x0d23a…0d260 Head {h00=0x0022, h01=0x0050, text=» CF A14,NUM DISPLAY CHARACTER «, t00=0x0086, t01=0x00fe}
0x0d260…0d274 Head {h00=0x0010, h01=0x0050, text=» LDK A2,/30 «, t00=0x0086, t01=0x0124}
0x0d274…0d29a Head {h00=0x0022, h01=0x0050, text=» CF A14,NUM DISPLAY CHARACTER «, t00=0x0086, t01=0x0138}
0x0d29a…0d2b2 Head {h00=0x0014, h01=0x0050, text=» RTN A14 RETURN «, t00=0x0086, t01=0x015e}
0x0d2b2…0d2c0 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0086, t01=0x0176}
0x0d2c0…0d2d4 Head {h00=0x0010, h01=0x0050, text=» IFT OFLIN=1«, t00=0x0086, t01=0x0184}
0x0d2d4…0d314 Head {h00=0x003c, h01=0x0050, text=»********************************************************«, t00=0x0087, t01=0x0008}
0x0d314…0d354 Head {h00=0x003c, h01=0x0050, text=»* *«, t00=0x0087, t01=0x0048}
0x0d354…0d394 Head {h00=0x003c, h01=0x0050, text=»* OFLINE OFFLINE KEY HANDLING *«, t00=0x0087, t01=0x0088}
0x0d394…0d3d4 Head {h00=0x003c, h01=0x0050, text=»* *«, t00=0x0087, t01=0x00c8}
0x0d3d4…0d414 Head {h00=0x003c, h01=0x0050, text=»********************************************************«, t00=0x0087, t01=0x0108}
0x0d414…0d428 Head {h00=0x0010, h01=0x0050, text=»* REGISTERS«, t00=0x0087, t01=0x0148}
0x0d428…0d432 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0087, t01=0x015c}
0x0d432…0d452 Head {h00=0x001c, h01=0x0050, text=»* A11= CREDIT WORK AREA «, t00=0x0087, t01=0x0166}
0x0d452…0d46a Head {h00=0x0014, h01=0x0050, text=»* A13= RESERVED «, t00=0x0087, t01=0x0186}
0x0d46a…0d474 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0088, t01=0x000e}
0x0d474…0d4b4 Head {h00=0x003c, h01=0x0050, text=»******************************************************* «, t00=0x0088, t01=0x0018}
0x0d4b4…0d4c8 Head {h00=0x0010, h01=0x0050, text=»OFLINE EQU *«, t00=0x0088, t01=0x0058}
0x0d4c8…0d4de Head {h00=0x0012, h01=0x0050, text=» CF A14,CLEAR «, t00=0x0088, t01=0x006c}
0x0d4de…0d4f4 Head {h00=0x0012, h01=0x0050, text=» CF A14,RESET «, t00=0x0088, t01=0x0082}
0x0d4f4…0d522 Head {h00=0x002a, h01=0x0050, text=» CF A14,DCOFLN INDICATE OFFLINE TO DC «, t00=0x0088, t01=0x0098}
0x0d522…0d54e Head {h00=0x0028, h01=0x0050, text=» CF A14,LMP6ON TURN ON OFFLINE LAMP «, t00=0x0088, t01=0x00c6}
0x0d54e…0d576 Head {h00=0x0024, h01=0x0050, text=» IM OFFFLG,A11 SET OFFLINE FLAG «, t00=0x0088, t01=0x00f2}
0x0d576…0d59e Head {h00=0x0024, h01=0x0050, text=» ADKL A14,4 SKIP ONE STACK LEVEL«, t00=0x0088, t01=0x011a}
0x0d59e…0d5cc Head {h00=0x002a, h01=0x0050, text=» LD A13,2,A14 RELOAD REGISTERS A12-A13«, t00=0x0088, t01=0x0142}
0x0d5cc…0d5e2 Head {h00=0x0012, h01=0x0050, text=» LD A12,4,A14 «, t00=0x0088, t01=0x0170}
0x0d5e2…0d60a Head {h00=0x0024, h01=0x0050, text=» ADKL A14,4 UPDATE STACK POINTER«, t00=0x0088, t01=0x0186}
0x0d60a…0d638 Head {h00=0x002a, h01=0x0050, text=» ABL I:RT1 RETURN TO "OFFLINE" PROGRAM«, t00=0x0089, t01=0x001e}
0x0d638…0d644 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0089, t01=0x004c}
0x0d644…0d652 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0089, t01=0x0058}
0x0d652…0d694 Head {h00=0x003e, h01=0x0050, text=»********************************************************* «, t00=0x0089, t01=0x0066}
0x0d694…0d6d6 Head {h00=0x003e, h01=0x0050, text=»* * «, t00=0x0089, t01=0x00a8}
0x0d6d6…0d718 Head {h00=0x003e, h01=0x0050, text=»* MFCHGE MAIN FRAME CHANGE * «, t00=0x0089, t01=0x00ea}
0x0d718…0d75a Head {h00=0x003e, h01=0x0050, text=»* * «, t00=0x0089, t01=0x012c}
0x0d75a…0d79c Head {h00=0x003e, h01=0x0050, text=»********************************************************* «, t00=0x0089, t01=0x016e}
0x0d79c…0d7b0 Head {h00=0x0010, h01=0x0050, text=»* REGISTERS«, t00=0x008a, t01=0x0020}
0x0d7b0…0d7ba Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x008a, t01=0x0034}
0x0d7ba…0d7da Head {h00=0x001c, h01=0x0050, text=»* A11= CREDIT WORK AREA «, t00=0x008a, t01=0x003e}
0x0d7da…0d7f2 Head {h00=0x0014, h01=0x0050, text=»* A13= RESERVED «, t00=0x008a, t01=0x005e}
0x0d7f2…0d7fc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x008a, t01=0x0076}
0x0d7fc…0d83c Head {h00=0x003c, h01=0x0050, text=»******************************************************* «, t00=0x008a, t01=0x0080}
0x0d83c…0d852 Head {h00=0x0012, h01=0x0050, text=» IFT NBRLIN=2 «, t00=0x008a, t01=0x00c0}
0x0d852…0d866 Head {h00=0x0010, h01=0x0050, text=»MFCHGE EQU *«, t00=0x008a, t01=0x00d6}
0x0d866…0d87c Head {h00=0x0012, h01=0x0050, text=» CF A14,CLEAR «, t00=0x008a, t01=0x00ea}
0x0d87c…0d892 Head {h00=0x0012, h01=0x0050, text=» CF A14,RESET «, t00=0x008a, t01=0x0100}
0x0d892…0d8a8 Head {h00=0x0012, h01=0x0050, text=» CF A14,LMP1OF«, t00=0x008a, t01=0x0116}
0x0d8a8…0d8be Head {h00=0x0012, h01=0x0050, text=» CF A14,LMP2OF«, t00=0x008a, t01=0x012c}
0x0d8be…0d8d4 Head {h00=0x0012, h01=0x0050, text=» CF A14,LMP3OF«, t00=0x008a, t01=0x0142}
0x0d8d4…0d904 Head {h00=0x002c, h01=0x0050, text=» CF A14,DISCON DISCONNECT ON OLD LINE =2«, t00=0x008a, t01=0x0158}
0x0d904…0d91a Head {h00=0x0012, h01=0x0050, text=» LDK A1,1 . =2«, t00=0x008a, t01=0x0188}
0x0d91a…0d94c Head {h00=0x002e, h01=0x0050, text=» XRS A1,MAIN,A11 IND MAIN FRAME CHANGE =2 «, t00=0x008b, t01=0x000e}
0x0d94c…0d962 Head {h00=0x0012, h01=0x0050, text=» RF(NZ) MFCH10«, t00=0x008b, t01=0x0040}
0x0d962…0d978 Head {h00=0x0012, h01=0x0050, text=» CF A14,LMP1ON«, t00=0x008b, t01=0x0056}
0x0d978…0d98a Head {h00=0x000e, h01=0x0050, text=» RF MFCH90«, t00=0x008b, t01=0x006c}
0x0d98a…0d99e Head {h00=0x0010, h01=0x0050, text=»MFCH10 EQU *«, t00=0x008b, t01=0x007e}
0x0d99e…0d9b4 Head {h00=0x0012, h01=0x0050, text=» CF A14,LMP2ON«, t00=0x008b, t01=0x0092}
0x0d9b4…0d9c8 Head {h00=0x0010, h01=0x0050, text=»MFCH90 EQU *«, t00=0x008b, t01=0x00a8}
0x0d9c8…0d9d8 Head {h00=0x000c, h01=0x0050, text=» . =2 «, t00=0x008b, t01=0x00bc}
0x0d9d8…0da04 Head {h00=0x0028, h01=0x0050, text=» CF A14,CONCT CONNECT ON NEW LINE =2«, t00=0x008b, t01=0x00cc}
0x0da04…0da2c Head {h00=0x0024, h01=0x0050, text=» CF A14,CHKSTA CHECK LINE STATUS«, t00=0x008b, t01=0x00f8}
0x0da2c…0da3c Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x008b, t01=0x0120}
0x0da3c…0da48 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x008b, t01=0x0130}
0x0da48…0da56 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x008b, t01=0x013c}
0x0da56…0da9a Head {h00=0x0040, h01=0x0050, text=»*********************************************************** «, t00=0x008b, t01=0x014a}
0x0da9a…0dade Head {h00=0x0040, h01=0x0050, text=»* * «, t00=0x008b, t01=0x018e}
0x0dade…0db22 Head {h00=0x0040, h01=0x0050, text=»* COPY LOCAL HARDCOPY * «, t00=0x008c, t01=0x0042}
0x0db22…0db66 Head {h00=0x0040, h01=0x0050, text=»* * «, t00=0x008c, t01=0x0086}
0x0db66…0dbaa Head {h00=0x0040, h01=0x0050, text=»*********************************************************** «, t00=0x008c, t01=0x00ca}
0x0dbaa…0dbc8 Head {h00=0x001a, h01=0x0050, text=»* REGISTERS«, t00=0x008c, t01=0x010e}
0x0dbc8…0dbd2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x008c, t01=0x012c}
0x0dbd2…0dbf2 Head {h00=0x001c, h01=0x0050, text=»* A11= CREDIT WORK AREA «, t00=0x008c, t01=0x0136}
0x0dbf2…0dc0c Head {h00=0x0016, h01=0x0050, text=»* A13= T:A ADDRESS«, t00=0x008c, t01=0x0156}
0x0dc0c…0dc16 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x008c, t01=0x0170}
0x0dc16…0dc5c Head {h00=0x0042, h01=0x0050, text=»************************************************************* «, t00=0x008c, t01=0x017a}
0x0dc5c…0dc6e Head {h00=0x000e, h01=0x0050, text=»COPY EQU *«, t00=0x008d, t01=0x0030}
0x0dc6e…0dc88 Head {h00=0x0016, h01=0x0050, text=» LD A1,SNAMOD,A11 «, t00=0x008d, t01=0x0042}
0x0dc88…0dcbe Head {h00=0x0032, h01=0x0050, text=» ANKL A1,HCPMOD HARDCOPY ALREADY OUTSTANDING? «, t00=0x008d, t01=0x005c}
0x0dcbe…0dce6 Head {h00=0x0024, h01=0x0050, text=» RF(NZ) COPY80 YES,WAIT A WHILE «, t00=0x008d, t01=0x0092}
0x0dce6…0dcfe Head {h00=0x0014, h01=0x0050, text=» LD A1,PRTID,A11«, t00=0x008d, t01=0x00ba}
0x0dcfe…0dd28 Head {h00=0x0026, h01=0x0050, text=» RF(Z) COPY80 PRINTER NOT ASSIGNED«, t00=0x008d, t01=0x00d2}
0x0dd28…0dd5e Head {h00=0x0032, h01=0x0050, text=» ANK A1,/FF CHECK IF PRINTER OK IN TASK TABLE «, t00=0x008d, t01=0x00fc}
0x0dd5e…0dd72 Head {h00=0x0010, h01=0x0050, text=» SUK A1,/30 «, t00=0x008d, t01=0x0132}
0x0dd72…0dd84 Head {h00=0x000e, h01=0x0050, text=» SLL A1,2 «, t00=0x008d, t01=0x0146}
0x0dd84…0dd9a Head {h00=0x0012, h01=0x0050, text=» LDK A3,TSKTAB«, t00=0x008d, t01=0x0158}
0x0dd9a…0ddc0 Head {h00=0x0022, h01=0x0050, text=» LD A4,+6,A13 GET COMMON AREA «, t00=0x008d, t01=0x016e}
0x0ddc0…0ddd2 (142, 0, 400) Head {h00=0x000e, h01=0x0050, text=» ADR A3,A4«, t00=0x008e, t01=0x0004}
0x0ddd2…0ddfc Head {h00=0x0026, h01=0x0050, text=» ADR A3,A1 PRINTER ASSIGNED FOUND «, t00=0x008e, t01=0x0016}
0x0ddfc…0de10 Head {h00=0x0010, h01=0x0050, text=» LC A1,+3,A3«, t00=0x008e, t01=0x0040}
0x0de10…0de30 Head {h00=0x001c, h01=0x0050, text=» ANK A1,/FF PRINTER OK? «, t00=0x008e, t01=0x0054}
0x0de30…0de4a Head {h00=0x0016, h01=0x0050, text=» RF(Z) COPY10 YES «, t00=0x008e, t01=0x0074}
0x0de4a…0de5c Head {h00=0x000e, h01=0x0050, text=» RF COPY80«, t00=0x008e, t01=0x008e}
0x0de5c…0de70 Head {h00=0x0010, h01=0x0050, text=»COPY10 EQU *«, t00=0x008e, t01=0x00a0}
0x0de70…0de9c Head {h00=0x0028, h01=0x0050, text=» LDK A1,/38 INDICATE HARDCOPY IN WCC«, t00=0x008e, t01=0x00b4}
0x0de9c…0deb2 Head {h00=0x0012, h01=0x0050, text=» ST A1,WCC,A11«, t00=0x008e, t01=0x00e0}
0x0deb2…0dece Head {h00=0x0018, h01=0x0050, text=» LDKL A3,BVDU BUFFER«, t00=0x008e, t01=0x00f6}
0x0dece…0deec Head {h00=0x001a, h01=0x0050, text=» ADR A3,A11 ADDRESSS«, t00=0x008e, t01=0x0112}
0x0deec…0df06 Head {h00=0x0016, h01=0x0050, text=» LD A8,ECBICW,A11 «, t00=0x008e, t01=0x0130}
0x0df06…0df2a Head {h00=0x0020, h01=0x0050, text=» CF A14,ICSET SET NO TIMEOUT«, t00=0x008e, t01=0x014a}
0x0df2a…0df54 Head {h00=0x0026, h01=0x0050, text=» LD A1,PRTID,A11 HARDCOPY TASK ID «, t00=0x008e, t01=0x016e}
0x0df54…0df7c Head {h00=0x0024, h01=0x0050, text=» LDKL A2,LBVDU+/20 BUFFER LENGTH«, t00=0x008f, t01=0x0008}
0x0df7c…0dfa2 Head {h00=0x0022, h01=0x0050, text=» CF A14,ICWRT WRITE INTERTASK «, t00=0x008f, t01=0x0030}
0x0dfa2…0dfb4 Head {h00=0x000e, h01=0x0050, text=» IFT SNA=1«, t00=0x008f, t01=0x0056}
0x0dfb4…0dfea Head {h00=0x0032, h01=0x0050, text=» LDKL A1,HCPMOD INDICATE HARDCOPY OUTSTANDING «, t00=0x008f, t01=0x0068}
0x0dfea…0e004 Head {h00=0x0016, h01=0x0050, text=» ORS A1,SNAMOD,A11«, t00=0x008f, t01=0x009e}
0x0e004…0e010 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x008f, t01=0x00b8}
0x0e010…0e022 Head {h00=0x000e, h01=0x0050, text=» IFF SNA=1«, t00=0x008f, t01=0x00c4}
0x0e022…0e058 Head {h00=0x0032, h01=0x0050, text=» LDKL A1,HCPMOD INDICATE HARDCOPY OUTSTANDING «, t00=0x008f, t01=0x00d6}
0x0e058…0e072 Head {h00=0x0016, h01=0x0050, text=» ORS A1,BSCMOD,A11«, t00=0x008f, t01=0x010c}
0x0e072…0e07e Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x008f, t01=0x0126}
0x0e07e…0e090 Head {h00=0x000e, h01=0x0050, text=» RF COPY90«, t00=0x008f, t01=0x0132}
0x0e090…0e0a4 Head {h00=0x0010, h01=0x0050, text=»COPY80 EQU *«, t00=0x008f, t01=0x0144}
0x0e0a4…0e0ba Head {h00=0x0012, h01=0x0050, text=» CF A14,ERROR «, t00=0x008f, t01=0x0158}
0x0e0ba…0e0ce Head {h00=0x0010, h01=0x0050, text=»COPY90 EQU *«, t00=0x008f, t01=0x016e}
0x0e0ce…0e0de Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x008f, t01=0x0182}
0x0e0de…0e0ec (144, 0, 400) Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0090, t01=0x0004}
0x0e0ec…0e134 Head {h00=0x0044, h01=0x0050, text=»*************************************************************** «, t00=0x0090, t01=0x0012}
0x0e134…0e17c Head {h00=0x0044, h01=0x0050, text=»* * «, t00=0x0090, t01=0x005a}
0x0e17c…0e1b0 Head {h00=0x0030, h01=0x0050, text=»* IDENT PRINTER IDENT. HANDLING«, t00=0x0090, t01=0x00a2}
0x0e1b0…0e1f8 Head {h00=0x0044, h01=0x0050, text=»* * «, t00=0x0090, t01=0x00d6}
0x0e1f8…0e240 Head {h00=0x0044, h01=0x0050, text=»*************************************************************** «, t00=0x0090, t01=0x011e}
0x0e240…0e260 Head {h00=0x001c, h01=0x0050, text=»* REGISTERS «, t00=0x0090, t01=0x0166}
0x0e260…0e26a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0090, t01=0x0186}
0x0e26a…0e28e Head {h00=0x0020, h01=0x0050, text=»* A3= POINTER IN TASK TABLE «, t00=0x0090, t01=0x0190}
0x0e28e…0e2ae Head {h00=0x001c, h01=0x0050, text=»* A11= CREDIT WORK AREA «, t00=0x0091, t01=0x0024}
0x0e2ae…0e2c8 Head {h00=0x0016, h01=0x0050, text=»* A13= T:A ADDRESS«, t00=0x0091, t01=0x0044}
0x0e2c8…0e2d2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0091, t01=0x005e}
0x0e2d2…0e318 Head {h00=0x0042, h01=0x0050, text=»************************************************************* «, t00=0x0091, t01=0x0068}
0x0e318…0e32c Head {h00=0x0010, h01=0x0050, text=»IDENT EQU * «, t00=0x0091, t01=0x00ae}
0x0e32c…0e358 Head {h00=0x0028, h01=0x0050, text=» LD A1,PRTID,A11 GET CURRENT TASKID «, t00=0x0091, t01=0x00c2}
0x0e358…0e380 Head {h00=0x0024, h01=0x0050, text=» LD A4,+6,A13 COMMON BLOCK BASE «, t00=0x0091, t01=0x00ee}
0x0e380…0e3a0 Head {h00=0x001c, h01=0x0050, text=» ANK A1,X'FF' GET OFFSET«, t00=0x0091, t01=0x0116}
0x0e3a0…0e3b4 Head {h00=0x0010, h01=0x0050, text=» SUK A1,/30 «, t00=0x0091, t01=0x0136}
0x0e3b4…0e3c6 Head {h00=0x000e, h01=0x0050, text=» SLL A1,2 «, t00=0x0091, t01=0x014a}
0x0e3c6…0e3de Head {h00=0x0014, h01=0x0050, text=» LDKL A3,TSKTAB «, t00=0x0091, t01=0x015c}
0x0e3de…0e3f0 Head {h00=0x000e, h01=0x0050, text=» ADR A3,A4«, t00=0x0091, t01=0x0174}
0x0e3f0…0e402 Head {h00=0x000e, h01=0x0050, text=» ADR A3,A1«, t00=0x0091, t01=0x0186}
0x0e402…0e416 Head {h00=0x0010, h01=0x0050, text=»IDEN30 EQU *«, t00=0x0092, t01=0x0008}
0x0e416…0e430 Head {h00=0x0016, h01=0x0050, text=» LCR A5,A3 GET ID «, t00=0x0092, t01=0x001c}
0x0e430…0e442 Head {h00=0x000e, h01=0x0050, text=» SLL A5,8 «, t00=0x0092, t01=0x0036}
0x0e442…0e456 Head {h00=0x0010, h01=0x0050, text=» LC A5,+1,A3«, t00=0x0092, t01=0x0048}
0x0e456…0e476 Head {h00=0x001c, h01=0x0050, text=» LC A4,+3,A3 GET STATUS «, t00=0x0092, t01=0x005c}
0x0e476…0e49a Head {h00=0x0020, h01=0x0050, text=» CF A14,SAVE1 SAVE REGISTERS«, t00=0x0092, t01=0x007c}
0x0e49a…0e4be Head {h00=0x0020, h01=0x0050, text=» CF A14,DISID DISPLAY TASKID«, t00=0x0092, t01=0x00a0}
0x0e4be…0e4e4 Head {h00=0x0022, h01=0x0050, text=» LDKL A1,IDEN40 NEXT KEY ENTRY«, t00=0x0092, t01=0x00c4}
0x0e4e4…0e4fe Head {h00=0x0016, h01=0x0050, text=» ST A1,RDMORE,A11 «, t00=0x0092, t01=0x00ea}
0x0e4fe…0e51a Head {h00=0x0018, h01=0x0050, text=» RF IDEN90 NEXT KEY «, t00=0x0092, t01=0x0104}
0x0e51a…0e52e Head {h00=0x0010, h01=0x0050, text=»IDEN40 EQU *«, t00=0x0092, t01=0x0120}
0x0e52e…0e544 Head {h00=0x0012, h01=0x0050, text=» CM RDMORE,A11«, t00=0x0092, t01=0x0134}
0x0e544…0e556 Head {h00=0x000e, h01=0x0050, text=» LDR A9,A2«, t00=0x0092, t01=0x014a}
0x0e556…0e57e Head {h00=0x0024, h01=0x0050, text=» CF A14,REST1 RESTORE REGISTERS «, t00=0x0092, t01=0x015c}
0x0e57e…0e5a8 Head {h00=0x0026, h01=0x0050, text=» CWK A9,ENTKEY SAVE CURRENT TASKID«, t00=0x0092, t01=0x0184}
0x0e5a8…0e5c2 Head {h00=0x0016, h01=0x0050, text=» RF(E) IDEN80 YES «, t00=0x0093, t01=0x001e}
0x0e5c2…0e5e8 Head {h00=0x0022, h01=0x0050, text=» CWK A9,IDKEY GET NEXT TASKID?«, t00=0x0093, t01=0x0038}
0x0e5e8…0e614 Head {h00=0x0028, h01=0x0050, text=» RF(NE) IDEN90 NO KEEP THE FIRST ONE«, t00=0x0093, t01=0x005e}
0x0e614…0e628 Head {h00=0x0010, h01=0x0050, text=»IDEN50 EQU *«, t00=0x0093, t01=0x008a}
0x0e628…0e652 Head {h00=0x0026, h01=0x0050, text=» ADK A3,4 SEARCH FOR NEXT PRINTER «, t00=0x0093, t01=0x009e}
0x0e652…0e664 Head {h00=0x000e, h01=0x0050, text=» LCR A2,A3«, t00=0x0093, t01=0x00c8}
0x0e664…0e678 Head {h00=0x0010, h01=0x0050, text=» ANK A2,/FF «, t00=0x0093, t01=0x00da}
0x0e678…0e68a Head {h00=0x000e, h01=0x0050, text=» LDR A1,A2«, t00=0x0093, t01=0x00ee}
0x0e68a…0e6a0 Head {h00=0x0012, h01=0x0050, text=» RB(Z) IDEN50 «, t00=0x0093, t01=0x0100}
0x0e6a0…0e6b2 Head {h00=0x000e, h01=0x0050, text=» SLL A1,8 «, t00=0x0093, t01=0x0116}
0x0e6b2…0e6c8 Head {h00=0x0012, h01=0x0050, text=» RF(N) IDEN60 «, t00=0x0093, t01=0x0128}
0x0e6c8…0e6e8 Head {h00=0x001c, h01=0x0050, text=» CCK A2,VDUCOD PRINTER? «, t00=0x0093, t01=0x013e}
0x0e6e8…0e702 Head {h00=0x0016, h01=0x0050, text=» RB(NE) IDEN30 YES«, t00=0x0093, t01=0x015e}
0x0e702…0e714 Head {h00=0x000e, h01=0x0050, text=» RB IDEN50«, t00=0x0093, t01=0x0178}
0x0e714…0e728 Head {h00=0x0010, h01=0x0050, text=»IDEN60 EQU *«, t00=0x0093, t01=0x018a}
0x0e728…0e740 Head {h00=0x0014, h01=0x0050, text=» LDKL A2,TSKTAB «, t00=0x0094, t01=0x000e}
0x0e740…0e754 Head {h00=0x0010, h01=0x0050, text=» LD A3,6,A13«, t00=0x0094, t01=0x0026}
0x0e754…0e766 Head {h00=0x000e, h01=0x0050, text=» ADR A3,A2«, t00=0x0094, t01=0x003a}
0x0e766…0e778 Head {h00=0x000e, h01=0x0050, text=» SUK A3,4 «, t00=0x0094, t01=0x004c}
0x0e778…0e78a Head {h00=0x000e, h01=0x0050, text=» RB IDEN50«, t00=0x0094, t01=0x005e}
0x0e78a…0e79e Head {h00=0x0010, h01=0x0050, text=»IDEN80 EQU *«, t00=0x0094, t01=0x0070}
0x0e79e…0e7c4 Head {h00=0x0022, h01=0x0050, text=» LCR A1,A3 GET PRINTER TO SAVE«, t00=0x0094, t01=0x0084}
0x0e7c4…0e7d6 Head {h00=0x000e, h01=0x0050, text=» SLL A1,8 «, t00=0x0094, t01=0x00aa}
0x0e7d6…0e7ea Head {h00=0x0010, h01=0x0050, text=» LC A1,+1,A3«, t00=0x0094, t01=0x00bc}
0x0e7ea…0e816 Head {h00=0x0028, h01=0x0050, text=» ST A1,PRTID,A11 NEW HARDCOPY TASKID«, t00=0x0094, t01=0x00d0}
0x0e816…0e82a Head {h00=0x0010, h01=0x0050, text=»IDEN90 EQU *«, t00=0x0094, t01=0x00fc}
0x0e82a…0e83a Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0094, t01=0x0110}
0x0e83a…0e848 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0094, t01=0x0120}
0x0e848…0e88e Head {h00=0x0042, h01=0x0050, text=»************************************************************* «, t00=0x0094, t01=0x012e}
0x0e88e…0e8d4 Head {h00=0x0042, h01=0x0050, text=»* * «, t00=0x0094, t01=0x0174}
0x0e8d4…0e91a Head {h00=0x0042, h01=0x0050, text=»* KEYL KEYLOCK STATUS * «, t00=0x0095, t01=0x002a}
0x0e91a…0e960 Head {h00=0x0042, h01=0x0050, text=»* * «, t00=0x0095, t01=0x0070}
0x0e960…0e9a6 Head {h00=0x0042, h01=0x0050, text=»************************************************************* «, t00=0x0095, t01=0x00b6}
0x0e9a6…0e9ba Head {h00=0x0010, h01=0x0050, text=»* REGISTERS«, t00=0x0095, t01=0x00fc}
0x0e9ba…0e9c4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0095, t01=0x0110}
0x0e9c4…0e9e0 Head {h00=0x0018, h01=0x0050, text=»* A2= KEYLOCK VALUE «, t00=0x0095, t01=0x011a}
0x0e9e0…0ea00 Head {h00=0x001c, h01=0x0050, text=»* A11= CREDIT WORK AREA «, t00=0x0095, t01=0x0136}
0x0ea00…0ea18 Head {h00=0x0014, h01=0x0050, text=»* A13= RESERVED «, t00=0x0095, t01=0x0156}
0x0ea18…0ea22 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0095, t01=0x016e}
0x0ea22…0ea68 Head {h00=0x0042, h01=0x0050, text=»**************************************************************«, t00=0x0095, t01=0x0178}
0x0ea68…0ea7e Head {h00=0x0012, h01=0x0050, text=» IFT KEYLST=1 «, t00=0x0096, t01=0x002e}
0x0ea7e…0ea94 Head {h00=0x0012, h01=0x0050, text=» IFT KB6272=1 «, t00=0x0096, t01=0x0044}
0x0ea94…0eaa6 Head {h00=0x000e, h01=0x0050, text=»KEYL EQU *«, t00=0x0096, t01=0x005a}
0x0eaa6…0ead4 Head {h00=0x002a, h01=0x0050, text=» SUK A2,LKLKEY GET NEG KEY LOCK VALUE «, t00=0x0096, t01=0x006c}
0x0ead4…0eaf6 Head {h00=0x001e, h01=0x0050, text=» LD A3,KEYS,A11 OLD STATUS«, t00=0x0096, t01=0x009a}
0x0eaf6…0eb0a Head {h00=0x0010, h01=0x0050, text=» LDK A4,/10 «, t00=0x0096, t01=0x00bc}
0x0eb0a…0eb1e Head {h00=0x0010, h01=0x0050, text=»KEYL10 EQU *«, t00=0x0096, t01=0x00d0}
0x0eb1e…0eb30 Head {h00=0x000e, h01=0x0050, text=» SRL A4,1 «, t00=0x0096, t01=0x00e4}
0x0eb30…0eb50 Head {h00=0x001c, h01=0x0050, text=» ADK A2,2 1 = OFF,0 = ON«, t00=0x0096, t01=0x00f6}
0x0eb50…0eb66 Head {h00=0x0012, h01=0x0050, text=» RB(N) KEYL10 «, t00=0x0096, t01=0x0116}
0x0eb66…0eb8a Head {h00=0x0020, h01=0x0050, text=» ANR A3,A4 CHECK OLD KEY POS«, t00=0x0096, t01=0x012c}
0x0eb8a…0eba8 Head {h00=0x001a, h01=0x0050, text=» RF(NZ) KEYL20 WAS ON «, t00=0x0096, t01=0x0150}
0x0eba8…0ebc2 Head {h00=0x0016, h01=0x0050, text=» LDR A2,A2 WAS OFF«, t00=0x0096, t01=0x016e}
0x0ebc2…0ebec Head {h00=0x0026, h01=0x0050, text=» RF(NZ) KEYL99 NOW OFF, NO CHANGE «, t00=0x0096, t01=0x0188}
0x0ebec…0ec06 Head {h00=0x0016, h01=0x0050, text=» RF KEYL30 NOW ON «, t00=0x0097, t01=0x0022}
0x0ec06…0ec22 Head {h00=0x0018, h01=0x0050, text=»KEYL20 EQU * WAS ON «, t00=0x0097, t01=0x003c}
0x0ec22…0ec34 Head {h00=0x000e, h01=0x0050, text=» LDR A2,A2«, t00=0x0097, t01=0x0058}
0x0ec34…0ec5c Head {h00=0x0024, h01=0x0050, text=» RF(Z) KEYL99 NOW ON, NO CHANGE «, t00=0x0097, t01=0x006a}
0x0ec5c…0ec78 Head {h00=0x0018, h01=0x0050, text=»KEYL30 EQU * CHANGE«, t00=0x0097, t01=0x0092}
0x0ec78…0ec90 Head {h00=0x0014, h01=0x0050, text=» LD A3,KEYS,A11 «, t00=0x0097, t01=0x00ae}
0x0ec90…0ecb0 Head {h00=0x001c, h01=0x0050, text=» XRR A3,A4 CHANGE STATUS«, t00=0x0097, t01=0x00c6}
0x0ecb0…0ecd8 Head {h00=0x0024, h01=0x0050, text=» ST A3,KEYS,A11 STORE NEW STATUS«, t00=0x0097, t01=0x00e6}
0x0ecd8…0ece2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0097, t01=0x010e}
0x0ece2…0ed02 Head {h00=0x001c, h01=0x0050, text=»* KEYLOCK STATUS CHANGED«, t00=0x0097, t01=0x0118}
0x0ed02…0ed50 Head {h00=0x004a, h01=0x0050, text=»* A3 = NEW STATUS, RIGHTMOST BIT = RIGHTMOST LOCK, BIT ON = LOCK ON «, t00=0x0097, t01=0x0138}
0x0ed50…0ed7e Head {h00=0x002a, h01=0x0050, text=»* A4 = KEYLOCK CHANGED, LAYOUT AS A3«, t00=0x0097, t01=0x0186}
0x0ed7e…0edaa Head {h00=0x0028, h01=0x0050, text=»* A2 = 1, IF CHANGED TO OFF ELSE 0«, t00=0x0098, t01=0x0024}
0x0edaa…0edb4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0098, t01=0x0050}
0x0edb4…0ede2 Head {h00=0x002a, h01=0x0050, text=»* INSERT USER ROUTINE BELOW THIS LINE «, t00=0x0098, t01=0x005a}
0x0ede2…0edec Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0098, t01=0x0088}
0x0edec…0ee00 Head {h00=0x0010, h01=0x0050, text=»KEYL99 EQU *«, t00=0x0098, t01=0x0092}
0x0ee00…0ee10 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0098, t01=0x00a6}
0x0ee10…0ee1c Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0098, t01=0x00b6}
0x0ee1c…0ee2a Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0098, t01=0x00c2}
0x0ee2a…0ee6c Head {h00=0x003e, h01=0x0050, text=»**********************************************************«, t00=0x0098, t01=0x00d0}
0x0ee6c…0ee76 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0098, t01=0x0112}
0x0ee76…0ee90 Head {h00=0x0016, h01=0x0050, text=»* TESTM TEST MODE «, t00=0x0098, t01=0x011c}
0x0ee90…0ee9a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0098, t01=0x0136}
0x0ee9a…0eedc Head {h00=0x003e, h01=0x0050, text=»**********************************************************«, t00=0x0098, t01=0x0140}
0x0eedc…0eef6 Head {h00=0x0016, h01=0x0050, text=»* REGISTERS«, t00=0x0098, t01=0x0182}
0x0eef6…0ef00 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0099, t01=0x000c}
0x0ef00…0ef18 Head {h00=0x0014, h01=0x0050, text=»* A11= RESERVED «, t00=0x0099, t01=0x0016}
0x0ef18…0ef30 Head {h00=0x0014, h01=0x0050, text=»* A13= RESERVED «, t00=0x0099, t01=0x002e}
0x0ef30…0ef3a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0099, t01=0x0046}
0x0ef3a…0ef7c Head {h00=0x003e, h01=0x0050, text=»********************************************************* «, t00=0x0099, t01=0x0050}
0x0ef7c…0ef90 Head {h00=0x0010, h01=0x0050, text=» IFT TEST=1 «, t00=0x0099, t01=0x0092}
0x0ef90…0efa4 Head {h00=0x0010, h01=0x0050, text=»TESTM EQU * «, t00=0x0099, t01=0x00a6}
0x0efa4…0efba Head {h00=0x0012, h01=0x0050, text=» CF A14,ERASE «, t00=0x0099, t01=0x00ba}
0x0efba…0efd0 Head {h00=0x0012, h01=0x0050, text=» CF A14,GETBUF«, t00=0x0099, t01=0x00d0}
0x0efd0…0efe6 Head {h00=0x0012, h01=0x0050, text=» CF A14,RDSTAT«, t00=0x0099, t01=0x00e6}
0x0efe6…0effc Head {h00=0x0012, h01=0x0050, text=» CF A14,DISSTA«, t00=0x0099, t01=0x00fc}
0x0effc…0f010 Head {h00=0x0010, h01=0x0050, text=» LDR A8,A12 «, t00=0x0099, t01=0x0112}
0x0f010…0f026 Head {h00=0x0012, h01=0x0050, text=» CF A14,RELBUF«, t00=0x0099, t01=0x0126}
0x0f026…0f036 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0099, t01=0x013c}
0x0f036…0f042 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0099, t01=0x014c}
0x0f042…0f050 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0099, t01=0x0158}
0x0f050…0f092 Head {h00=0x003e, h01=0x0050, text=»********************************************************* «, t00=0x0099, t01=0x0166}
0x0f092…0f0d4 Head {h00=0x003e, h01=0x0050, text=»* * «, t00=0x009a, t01=0x0018}
0x0f0d4…0f116 Head {h00=0x003e, h01=0x0050, text=»* ENTER ENTER KEY HANDLING * «, t00=0x009a, t01=0x005a}
0x0f116…0f158 Head {h00=0x003e, h01=0x0050, text=»* * «, t00=0x009a, t01=0x009c}
0x0f158…0f19a Head {h00=0x003e, h01=0x0050, text=»********************************************************* «, t00=0x009a, t01=0x00de}
0x0f19a…0f1ae Head {h00=0x0010, h01=0x0050, text=»* REGISTERS«, t00=0x009a, t01=0x0120}
0x0f1ae…0f1b8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x009a, t01=0x0134}
0x0f1b8…0f1ce Head {h00=0x0012, h01=0x0050, text=»* A2= AID-CODE«, t00=0x009a, t01=0x013e}
0x0f1ce…0f1e6 Head {h00=0x0014, h01=0x0050, text=»* A11= RESERVED «, t00=0x009a, t01=0x0154}
0x0f1e6…0f1fe Head {h00=0x0014, h01=0x0050, text=»* A13= RESERVED «, t00=0x009a, t01=0x016c}
0x0f1fe…0f208 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x009a, t01=0x0184}
0x0f208…0f24a Head {h00=0x003e, h01=0x0050, text=»********************************************************* «, t00=0x009a, t01=0x018e}
0x0f24a…0f25e Head {h00=0x0010, h01=0x0050, text=»ENTER EQU * «, t00=0x009b, t01=0x0040}
0x0f25e…0f27a Head {h00=0x0018, h01=0x0050, text=» LDK A2,/27 AID-CODE«, t00=0x009b, t01=0x0054}
0x0f27a…0f2ac Head {h00=0x002e, h01=0x0050, text=» CF A14,LMP3ON TURN ON "KEYBOARD INHIBIT" «, t00=0x009b, t01=0x0070}
0x0f2ac…0f2de Head {h00=0x002e, h01=0x0050, text=» CF A14,TRPF AID+MODIFIED FIELDS+TRANSMIT «, t00=0x009b, t01=0x00a2}
0x0f2de…0f2ee Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x009b, t01=0x00d4}
0x0f2ee…0f2fc Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x009b, t01=0x00e4}
0x0f2fc…0f342 Head {h00=0x0042, h01=0x0050, text=»**************************************************************«, t00=0x009b, t01=0x00f2}
0x0f342…0f388 Head {h00=0x0042, h01=0x0050, text=»* *«, t00=0x009b, t01=0x0138}
0x0f388…0f3ce Head {h00=0x0042, h01=0x0050, text=»* CLEAR CLEAR KEY HANDLING *«, t00=0x009b, t01=0x017e}
0x0f3ce…0f414 Head {h00=0x0042, h01=0x0050, text=»* *«, t00=0x009c, t01=0x0034}
0x0f414…0f45a Head {h00=0x0042, h01=0x0050, text=»**************************************************************«, t00=0x009c, t01=0x007a}
0x0f45a…0f46e Head {h00=0x0010, h01=0x0050, text=»* REGISTERS«, t00=0x009c, t01=0x00c0}
0x0f46e…0f478 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x009c, t01=0x00d4}
0x0f478…0f48e Head {h00=0x0012, h01=0x0050, text=»* A2= AID-CODE«, t00=0x009c, t01=0x00de}
0x0f48e…0f4a6 Head {h00=0x0014, h01=0x0050, text=»* A11= RESERVED «, t00=0x009c, t01=0x00f4}
0x0f4a6…0f4be Head {h00=0x0014, h01=0x0050, text=»* A13= RESERVED «, t00=0x009c, t01=0x010c}
0x0f4be…0f4c8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x009c, t01=0x0124}
0x0f4c8…0f50e Head {h00=0x0042, h01=0x0050, text=»**************************************************************«, t00=0x009c, t01=0x012e}
0x0f50e…0f522 Head {h00=0x0010, h01=0x0050, text=»CLEAR EQU * «, t00=0x009c, t01=0x0174}
0x0f522…0f546 Head {h00=0x0020, h01=0x0050, text=» LDK A2,/5F POS FOR 'CLEAR' «, t00=0x009c, t01=0x0188}
0x0f546…0f578 Head {h00=0x002e, h01=0x0050, text=» CF A14,LMP3ON TURN ON "KEYBOARD INHIBIT" «, t00=0x009d, t01=0x001c}
0x0f578…0f5a4 Head {h00=0x0028, h01=0x0050, text=» CF A14,TRPA UPDATE AID AND TRANSMIT«, t00=0x009d, t01=0x004e}
0x0f5a4…0f5ce Head {h00=0x0026, h01=0x0050, text=» CF A14,ERASE ERASE ENTIRE SCREEN «, t00=0x009d, t01=0x007a}
0x0f5ce…0f5de Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x009d, t01=0x00a4}
0x0f5de…0f5ec Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x009d, t01=0x00b4}
0x0f5ec…0f634 Head {h00=0x0044, h01=0x0050, text=»*************************************************************** «, t00=0x009d, t01=0x00c2}
0x0f634…0f67c Head {h00=0x0044, h01=0x0050, text=»* * «, t00=0x009d, t01=0x010a}
0x0f67c…0f6c4 Head {h00=0x0044, h01=0x0050, text=»* SYSREQ SYSTEM REQUEST HANDLING * «, t00=0x009d, t01=0x0152}
0x0f6c4…0f70c Head {h00=0x0044, h01=0x0050, text=»* * «, t00=0x009e, t01=0x000a}
0x0f70c…0f754 Head {h00=0x0044, h01=0x0050, text=»*************************************************************** «, t00=0x009e, t01=0x0052}
0x0f754…0f768 Head {h00=0x0010, h01=0x0050, text=»* REGISTERS«, t00=0x009e, t01=0x009a}
0x0f768…0f772 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x009e, t01=0x00ae}
0x0f772…0f792 Head {h00=0x001c, h01=0x0050, text=»* A11= CREDIT WORK AREA «, t00=0x009e, t01=0x00b8}
0x0f792…0f7aa Head {h00=0x0014, h01=0x0050, text=»* A13= RESERVED «, t00=0x009e, t01=0x00d8}
0x0f7aa…0f7b4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x009e, t01=0x00f0}
0x0f7b4…0f7f0 Head {h00=0x0038, h01=0x0050, text=»****************************************************«, t00=0x009e, t01=0x00fa}
0x0f7f0…0f802 Head {h00=0x000e, h01=0x0050, text=» IFT SNA=1«, t00=0x009e, t01=0x0136}
0x0f802…0f816 Head {h00=0x0010, h01=0x0050, text=»SYSREQ EQU *«, t00=0x009e, t01=0x0148}
0x0f816…0f838 Head {h00=0x001e, h01=0x0050, text=» CF A14,TSTSTA TEST STATUS«, t00=0x009e, t01=0x015c}
0x0f838…0f856 Head {h00=0x001a, h01=0x0050, text=» LDR A2,A1 GET STATUS «, t00=0x009e, t01=0x017e}
0x0f856…0f874 Head {h00=0x001a, h01=0x0050, text=» ANKL A2,/101 ACTIVE? «, t00=0x009f, t01=0x000c}
0x0f874…0f88e Head {h00=0x0016, h01=0x0050, text=» RF(Z) SYS100 YES «, t00=0x009f, t01=0x002a}
0x0f88e…0f8b8 Head {h00=0x0026, h01=0x0050, text=» LDK A1,LOCMOD INDICATE LOCAL MODE«, t00=0x009f, t01=0x0044}
0x0f8b8…0f8ca Head {h00=0x000e, h01=0x0050, text=» RF SYS500«, t00=0x009f, t01=0x006e}
0x0f8ca…0f8de Head {h00=0x0010, h01=0x0050, text=»SYS100 EQU *«, t00=0x009f, t01=0x0080}
0x0f8de…0f8fc Head {h00=0x001a, h01=0x0050, text=» LDR A2,A1 GET STATUS «, t00=0x009f, t01=0x0094}
0x0f8fc…0f91e Head {h00=0x001e, h01=0x0050, text=» ANKL A2,/C00 MY JOB MODE?«, t00=0x009f, t01=0x00b2}
0x0f91e…0f938 Head {h00=0x0016, h01=0x0050, text=» RF(NZ) SYS200 NO «, t00=0x009f, t01=0x00d4}
0x0f938…0f962 Head {h00=0x0026, h01=0x0050, text=» CF A14,CLEAR CLEAR SCREEN AND DC «, t00=0x009f, t01=0x00ee}
0x0f962…0f98e Head {h00=0x0028, h01=0x0050, text=» CF A14,RESKB RESET KEYBOARD BUFFER «, t00=0x009f, t01=0x0118}
0x0f98e…0f9b8 Head {h00=0x0026, h01=0x0050, text=» LDK A1,SYSOP INDICATE SYSTEM MODE«, t00=0x009f, t01=0x0144}
0x0f9b8…0f9ca Head {h00=0x000e, h01=0x0050, text=» RF SYS500«, t00=0x009f, t01=0x016e}
0x0f9ca…0f9de Head {h00=0x0010, h01=0x0050, text=»SYS200 EQU *«, t00=0x009f, t01=0x0180}
0x0f9de…0fa0a (160, 0, 400) Head {h00=0x0028, h01=0x0050, text=» CWK A2,/C00 SSCP-LU AND NOT LU-LU? «, t00=0x00a0, t01=0x0004}
0x0fa0a…0fa24 Head {h00=0x0016, h01=0x0050, text=» RF(NE) SYS300 NO «, t00=0x00a0, t01=0x0030}
0x0fa24…0fa4e Head {h00=0x0026, h01=0x0050, text=» LDK A1,SYSOP INDICATE SYSTEM MODE«, t00=0x00a0, t01=0x004a}
0x0fa4e…0fa60 Head {h00=0x000e, h01=0x0050, text=» RF SYS500«, t00=0x00a0, t01=0x0074}
0x0fa60…0fa74 Head {h00=0x0010, h01=0x0050, text=»SYS300 EQU *«, t00=0x00a0, t01=0x0086}
0x0fa74…0fa9c Head {h00=0x0024, h01=0x0050, text=» ANKL A2,/800 SSCP-LU AND LU-LU?«, t00=0x00a0, t01=0x009a}
0x0fa9c…0fab6 Head {h00=0x0016, h01=0x0050, text=» RF(NZ) SYS400 YES«, t00=0x00a0, t01=0x00c2}
0x0fab6…0fae0 Head {h00=0x0026, h01=0x0050, text=» LDK A1,SYSOP INDICATE SYSTEM MODE«, t00=0x00a0, t01=0x00dc}
0x0fae0…0faf2 Head {h00=0x000e, h01=0x0050, text=» RF SYS500«, t00=0x00a0, t01=0x0106}
0x0faf2…0fb06 Head {h00=0x0010, h01=0x0050, text=»SYS400 EQU *«, t00=0x00a0, t01=0x0118}
0x0fb06…0fb30 Head {h00=0x0026, h01=0x0050, text=» LDK A1,MYJOB INDICATE MY JOB MODE«, t00=0x00a0, t01=0x012c}
0x0fb30…0fb44 Head {h00=0x0010, h01=0x0050, text=»SYS500 EQU *«, t00=0x00a0, t01=0x0156}
0x0fb44…0fb78 Head {h00=0x0030, h01=0x0050, text=» ORKL A1,NEWMOD INDICATE NEW MODE ACTIVATION«, t00=0x00a0, t01=0x016a}
0x0fb78…0fb92 Head {h00=0x0016, h01=0x0050, text=» ST A1,SNAMOD,A11 «, t00=0x00a1, t01=0x000e}
0x0fb92…0fba2 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x00a1, t01=0x0028}
0x0fba2…0fbae Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00a1, t01=0x0038}
0x0fbae…0fbbc Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x00a1, t01=0x0044}
0x0fbbc…0fc04 Head {h00=0x0044, h01=0x0050, text=»*************************************************************** «, t00=0x00a1, t01=0x0052}
0x0fc04…0fc4c Head {h00=0x0044, h01=0x0050, text=»* * «, t00=0x00a1, t01=0x009a}
0x0fc4c…0fc94 Head {h00=0x0044, h01=0x0050, text=»* ATTN ATTENTION KEY HANDLING * «, t00=0x00a1, t01=0x00e2}
0x0fc94…0fcdc Head {h00=0x0044, h01=0x0050, text=»* * «, t00=0x00a1, t01=0x012a}
0x0fcdc…0fd24 Head {h00=0x0044, h01=0x0050, text=»*************************************************************** «, t00=0x00a1, t01=0x0172}
0x0fd24…0fd42 Head {h00=0x001a, h01=0x0050, text=»* REGISTERS «, t00=0x00a2, t01=0x002a}
0x0fd42…0fd4c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00a2, t01=0x0048}
0x0fd4c…0fd64 Head {h00=0x0014, h01=0x0050, text=»* A11= RESERVED «, t00=0x00a2, t01=0x0052}
0x0fd64…0fd7c Head {h00=0x0014, h01=0x0050, text=»* A13= RESERVED «, t00=0x00a2, t01=0x006a}
0x0fd7c…0fd86 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00a2, t01=0x0082}
0x0fd86…0fdc8 Head {h00=0x003e, h01=0x0050, text=»**********************************************************«, t00=0x00a2, t01=0x008c}
0x0fdc8…0fdda Head {h00=0x000e, h01=0x0050, text=» IFT SNA=1«, t00=0x00a2, t01=0x00ce}
0x0fdda…0fdec Head {h00=0x000e, h01=0x0050, text=»ATTN EQU *«, t00=0x00a2, t01=0x00e0}
0x0fdec…0fe14 Head {h00=0x0024, h01=0x0050, text=» LDK A1,/4B SIGNAL ATTENTION KEY«, t00=0x00a2, t01=0x00f2}
0x0fe14…0fe36 Head {h00=0x001e, h01=0x0050, text=» CF A14,SETSTA SET STATUS «, t00=0x00a2, t01=0x011a}
0x0fe36…0fe46 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x00a2, t01=0x013c}
0x0fe46…0fe52 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00a2, t01=0x014c}
0x0fe52…0fe60 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x00a2, t01=0x0158}
0x0fe60…0fea6 Head {h00=0x0042, h01=0x0050, text=»**************************************************************«, t00=0x00a2, t01=0x0166}
0x0fea6…0feec Head {h00=0x0042, h01=0x0050, text=»* *«, t00=0x00a3, t01=0x001c}
0x0feec…0ff30 Head {h00=0x0040, h01=0x0050, text=»* PA PROGRAM ACCESS KEY HANDLING * «, t00=0x00a3, t01=0x0062}
0x0ff30…0ff76 Head {h00=0x0042, h01=0x0050, text=»* *«, t00=0x00a3, t01=0x00a6}
0x0ff76…0ffbc Head {h00=0x0042, h01=0x0050, text=»**************************************************************«, t00=0x00a3, t01=0x00ec}
0x0ffbc…0ffd0 Head {h00=0x0010, h01=0x0050, text=»* REGISTERS«, t00=0x00a3, t01=0x0132}
0x0ffd0…0ffda Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00a3, t01=0x0146}
0x0ffda…0fff0 Head {h00=0x0012, h01=0x0050, text=»* A2= AID-CODE«, t00=0x00a3, t01=0x0150}
0x0fff0…10008 Head {h00=0x0014, h01=0x0050, text=»* A11= RESERVED «, t00=0x00a3, t01=0x0166}
0x10008…10020 Head {h00=0x0014, h01=0x0050, text=»* A13= RESERVED «, t00=0x00a3, t01=0x017e}
0x10020…1002a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00a4, t01=0x0008}
0x1002a…10070 Head {h00=0x0042, h01=0x0050, text=»**************************************************************«, t00=0x00a4, t01=0x0012}
0x10070…10082 Head {h00=0x000e, h01=0x0050, text=»PA1 EQU * «, t00=0x00a4, t01=0x0058}
0x10082…1009e Head {h00=0x0018, h01=0x0050, text=» LDK A2,/25 AID-CODE«, t00=0x00a4, t01=0x006a}
0x1009e…100b0 Head {h00=0x000e, h01=0x0050, text=» RF PA500 «, t00=0x00a4, t01=0x0086}
0x100b0…100c2 Head {h00=0x000e, h01=0x0050, text=»PA2 EQU * «, t00=0x00a4, t01=0x0098}
0x100c2…100de Head {h00=0x0018, h01=0x0050, text=» LDK A2,/3E AID-CODE«, t00=0x00a4, t01=0x00aa}
0x100de…100f0 Head {h00=0x000e, h01=0x0050, text=» RF PA500 «, t00=0x00a4, t01=0x00c6}
0x100f0…10102 Head {h00=0x000e, h01=0x0050, text=»PA3 EQU * «, t00=0x00a4, t01=0x00d8}
0x10102…1011e Head {h00=0x0018, h01=0x0050, text=» LDK A2,/2C AID-CODE«, t00=0x00a4, t01=0x00ea}
0x1011e…10132 Head {h00=0x0010, h01=0x0050, text=»PA500 EQU * «, t00=0x00a4, t01=0x0106}
0x10132…10162 Head {h00=0x002c, h01=0x0050, text=» CF A14,LMP3ON TURN ON KEYBOARD INHIBIT «, t00=0x00a4, t01=0x011a}
0x10162…10188 Head {h00=0x0022, h01=0x0050, text=» CF A14,TRPA TRANSMIT AID-CODE«, t00=0x00a4, t01=0x014a}
0x10188…1019c Head {h00=0x0010, h01=0x0050, text=»PAALFA EQU *«, t00=0x00a4, t01=0x0170}
0x1019c…101c0 Head {h00=0x0020, h01=0x0050, text=»*INSERT ALFASKOP STATEMENTS «, t00=0x00a4, t01=0x0184}
0x101c0…101d0 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x00a5, t01=0x0018}
0x101d0…101de Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x00a5, t01=0x0028}
0x101de…1022a Head {h00=0x0048, h01=0x0050, text=»******************************************************************* «, t00=0x00a5, t01=0x0036}
0x1022a…10276 Head {h00=0x0048, h01=0x0050, text=»* * «, t00=0x00a5, t01=0x0082}
0x10276…102c2 Head {h00=0x0048, h01=0x0050, text=»* PAEX PAEX KEY FOLLOWED BY NUMBER * «, t00=0x00a5, t01=0x00ce}
0x102c2…1030e Head {h00=0x0048, h01=0x0050, text=»* * «, t00=0x00a5, t01=0x011a}
0x1030e…1035a Head {h00=0x0048, h01=0x0050, text=»******************************************************************* «, t00=0x00a5, t01=0x0166}
0x1035a…1036e Head {h00=0x0010, h01=0x0050, text=»* REGISTERS«, t00=0x00a6, t01=0x0022}
0x1036e…10378 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00a6, t01=0x0036}
0x10378…10398 Head {h00=0x001c, h01=0x0050, text=»* A11= CREDIT WORK AREA «, t00=0x00a6, t01=0x0040}
0x10398…103b0 Head {h00=0x0014, h01=0x0050, text=»* A13= RESERVED «, t00=0x00a6, t01=0x0060}
0x103b0…103ba Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00a6, t01=0x0078}
0x103ba…103f6 Head {h00=0x0038, h01=0x0050, text=»*************************************************** «, t00=0x00a6, t01=0x0082}
0x103f6…10408 Head {h00=0x000e, h01=0x0050, text=» IFT PAX=1«, t00=0x00a6, t01=0x00be}
0x10408…1041a Head {h00=0x000e, h01=0x0050, text=»PAEX EQU *«, t00=0x00a6, t01=0x00d0}
0x1041a…10430 Head {h00=0x0012, h01=0x0050, text=» LDKL A1,PAEXA«, t00=0x00a6, t01=0x00e2}
0x10430…1044a Head {h00=0x0016, h01=0x0050, text=» ST A1,RDMORE,A11 «, t00=0x00a6, t01=0x00f8}
0x1044a…1045a Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x00a6, t01=0x0112}
0x1045a…1046e Head {h00=0x0010, h01=0x0050, text=»PAEXA EQU * «, t00=0x00a6, t01=0x0122}
0x1046e…10484 Head {h00=0x0012, h01=0x0050, text=» CM RDMORE,A11«, t00=0x00a6, t01=0x0136}
0x10484…104a8 Head {h00=0x0020, h01=0x0050, text=» SUK A2,/31 CHECK IF NUM.1-3«, t00=0x00a6, t01=0x014c}
0x104a8…104ca Head {h00=0x001e, h01=0x0050, text=» RF(L) PAERR ILLEGAL CHAR.«, t00=0x00a6, t01=0x0170}
0x104ca…104ee (167, 0, 400) Head {h00=0x0020, h01=0x0050, text=» SUK A2,/2 CHECK IF NUM.1-3 «, t00=0x00a7, t01=0x0004}
0x104ee…10510 Head {h00=0x001e, h01=0x0050, text=» RF(G) PAEXB ILLEGAL CHAR.«, t00=0x00a7, t01=0x0028}
0x10510…10526 Head {h00=0x0012, h01=0x0050, text=» RF(NZ) PAEX10«, t00=0x00a7, t01=0x004a}
0x10526…10542 Head {h00=0x0018, h01=0x0050, text=» CF A14,PA3 PA3 KEY «, t00=0x00a7, t01=0x0060}
0x10542…10554 Head {h00=0x000e, h01=0x0050, text=» RF PARET «, t00=0x00a7, t01=0x007c}
0x10554…10568 Head {h00=0x0010, h01=0x0050, text=»PAEX10 EQU *«, t00=0x00a7, t01=0x008e}
0x10568…1057a Head {h00=0x000e, h01=0x0050, text=» ADK A2,1 «, t00=0x00a7, t01=0x00a2}
0x1057a…10590 Head {h00=0x0012, h01=0x0050, text=» RF(NZ) PAEX20«, t00=0x00a7, t01=0x00b4}
0x10590…105ac Head {h00=0x0018, h01=0x0050, text=» CF A14,PA2 PA2 KEY «, t00=0x00a7, t01=0x00ca}
0x105ac…105be Head {h00=0x000e, h01=0x0050, text=» RF PARET «, t00=0x00a7, t01=0x00e6}
0x105be…105d2 Head {h00=0x0010, h01=0x0050, text=»PAEX20 EQU *«, t00=0x00a7, t01=0x00f8}
0x105d2…105ee Head {h00=0x0018, h01=0x0050, text=» CF A14,PA1 PA1 KEY «, t00=0x00a7, t01=0x010c}
0x105ee…10600 Head {h00=0x000e, h01=0x0050, text=» RF PARET «, t00=0x00a7, t01=0x0128}
0x10600…10618 Head {h00=0x0014, h01=0x0050, text=»PAEXB EQU * DK3«, t00=0x00a7, t01=0x013a}
0x10618…10630 Head {h00=0x0014, h01=0x0050, text=» SUK A2,/6 DK3 «, t00=0x00a7, t01=0x0152}
0x10630…1064a Head {h00=0x0016, h01=0x0050, text=» RF(G) PAERR DK3 «, t00=0x00a7, t01=0x016a}
0x1064a…10662 Head {h00=0x0014, h01=0x0050, text=» ADK A2,/69 DK3«, t00=0x00a7, t01=0x0184}
0x10662…1067c Head {h00=0x0016, h01=0x0050, text=» CF A14,PA500 DK3«, t00=0x00a8, t01=0x000c}
0x1067c…10692 Head {h00=0x0012, h01=0x0050, text=» RF PARET DK3«, t00=0x00a8, t01=0x0026}
0x10692…106a6 Head {h00=0x0010, h01=0x0050, text=»PAERR EQU * «, t00=0x00a8, t01=0x003c}
0x106a6…106ca Head {h00=0x0020, h01=0x0050, text=» CF A14,ERROR INDICATE ERROR«, t00=0x00a8, t01=0x0050}
0x106ca…106de Head {h00=0x0010, h01=0x0050, text=»PARET EQU * «, t00=0x00a8, t01=0x0074}
0x106de…106ee Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x00a8, t01=0x0088}
0x106ee…106fa Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00a8, t01=0x0098}
0x106fa…10708 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x00a8, t01=0x00a4}
0x10708…10752 Head {h00=0x0046, h01=0x0050, text=»******************************************************************«, t00=0x00a8, t01=0x00b2}
0x10752…1079c Head {h00=0x0046, h01=0x0050, text=»* *«, t00=0x00a8, t01=0x00fc}
0x1079c…107e6 Head {h00=0x0046, h01=0x0050, text=»* PF PROGRAM FUNTION KEY HANDLING *«, t00=0x00a8, t01=0x0146}
0x107e6…10830 Head {h00=0x0046, h01=0x0050, text=»* *«, t00=0x00a8, t01=0x0190}
0x10830…1087a Head {h00=0x0046, h01=0x0050, text=»******************************************************************«, t00=0x00a9, t01=0x004a}
0x1087a…1088e Head {h00=0x0010, h01=0x0050, text=»* REGISTERS«, t00=0x00a9, t01=0x0094}
0x1088e…10898 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00a9, t01=0x00a8}
0x10898…108ae Head {h00=0x0012, h01=0x0050, text=»* A2= AID-CODE«, t00=0x00a9, t01=0x00b2}
0x108ae…108c6 Head {h00=0x0014, h01=0x0050, text=»* A11= RESERVED «, t00=0x00a9, t01=0x00c8}
0x108c6…108de Head {h00=0x0014, h01=0x0050, text=»* A13= RESERVED «, t00=0x00a9, t01=0x00e0}
0x108de…108e8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00a9, t01=0x00f8}
0x108e8…10932 Head {h00=0x0046, h01=0x0050, text=»******************************************************************«, t00=0x00a9, t01=0x0102}
0x10932…10942 Head {h00=0x000c, h01=0x0050, text=»PF EQU *«, t00=0x00a9, t01=0x014c}
0x10942…1096c Head {h00=0x0026, h01=0x0050, text=» SUK A2,PFKEY GET INDEX TO CONVERT«, t00=0x00a9, t01=0x015c}
0x1096c…1098c Head {h00=0x001c, h01=0x0050, text=» LC A2,CONPF,A2 GET AID «, t00=0x00a9, t01=0x0186}
0x1098c…109bc Head {h00=0x002c, h01=0x0050, text=» CF A14,LMP3ON TURN ON KEYBOARD INHIBIT «, t00=0x00aa, t01=0x0016}
0x109bc…109f2 Head {h00=0x0032, h01=0x0050, text=» CF A14,TRPF TRANSMIT AID AND MODIFIED FIELDS «, t00=0x00aa, t01=0x0046}
0x109f2…10a02 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x00aa, t01=0x007c}
0x10a02…10a10 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x00aa, t01=0x008c}
0x10a10…10a5a Head {h00=0x0046, h01=0x0050, text=»***************************************************************** «, t00=0x00aa, t01=0x009a}
0x10a5a…10aa4 Head {h00=0x0046, h01=0x0050, text=»* * «, t00=0x00aa, t01=0x00e4}
0x10aa4…10aee Head {h00=0x0046, h01=0x0050, text=»* PFEX PFEX KEY FOLLOWED BY NUMBER * «, t00=0x00aa, t01=0x012e}
0x10aee…10b38 Head {h00=0x0046, h01=0x0050, text=»* * «, t00=0x00aa, t01=0x0178}
0x10b38…10b82 Head {h00=0x0046, h01=0x0050, text=»***************************************************************** «, t00=0x00ab, t01=0x0032}
0x10b82…10b96 Head {h00=0x0010, h01=0x0050, text=»* REGISTERS«, t00=0x00ab, t01=0x007c}
0x10b96…10ba0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00ab, t01=0x0090}
0x10ba0…10bc0 Head {h00=0x001c, h01=0x0050, text=»* A11= CREDIT WORK AREA «, t00=0x00ab, t01=0x009a}
0x10bc0…10bd8 Head {h00=0x0014, h01=0x0050, text=»* A13= RESERVED «, t00=0x00ab, t01=0x00ba}
0x10bd8…10be2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00ab, t01=0x00d2}
0x10be2…10c1c Head {h00=0x0036, h01=0x0050, text=»************************************************* «, t00=0x00ab, t01=0x00dc}
0x10c1c…10c2e Head {h00=0x000e, h01=0x0050, text=» IFT PFX=1«, t00=0x00ab, t01=0x0116}
0x10c2e…10c40 Head {h00=0x000e, h01=0x0050, text=»PFEX EQU *«, t00=0x00ab, t01=0x0128}
0x10c40…10c56 Head {h00=0x0012, h01=0x0050, text=» LDKL A1,PFEXA«, t00=0x00ab, t01=0x013a}
0x10c56…10c68 Head {h00=0x000e, h01=0x0050, text=» RF PFNXT «, t00=0x00ab, t01=0x0150}
0x10c68…10c7c Head {h00=0x0010, h01=0x0050, text=»PFEXA EQU * «, t00=0x00ab, t01=0x0162}
0x10c7c…10c92 Head {h00=0x0012, h01=0x0050, text=» CM RDMORE,A11«, t00=0x00ab, t01=0x0176}
0x10c92…10cb2 Head {h00=0x001c, h01=0x0050, text=» SUK A2,/30 LEGAL CHAR ?«, t00=0x00ab, t01=0x018c}
0x10cb2…10ce2 Head {h00=0x002c, h01=0x0050, text=» RF(L) PFERR ILLEGAL,GO TO ERR.HANDLING «, t00=0x00ac, t01=0x001c}
0x10ce2…10cf8 Head {h00=0x0012, h01=0x0050, text=» RF(NZ) PFEX10«, t00=0x00ac, t01=0x004c}
0x10cf8…10d1a Head {h00=0x001e, h01=0x0050, text=» LDKL A1,PF0A FIRST NUM 0 «, t00=0x00ac, t01=0x0062}
0x10d1a…10d38 Head {h00=0x001a, h01=0x0050, text=» RF PFNXT NEXT NUMBER «, t00=0x00ac, t01=0x0084}
0x10d38…10d4c Head {h00=0x0010, h01=0x0050, text=»PFEX10 EQU *«, t00=0x00ac, t01=0x00a2}
0x10d4c…10d5e Head {h00=0x000e, h01=0x0050, text=» SUK A2,1 «, t00=0x00ac, t01=0x00b6}
0x10d5e…10d74 Head {h00=0x0012, h01=0x0050, text=» RF(NZ) PFEX20«, t00=0x00ac, t01=0x00c8}
0x10d74…10d96 Head {h00=0x001e, h01=0x0050, text=» LDKL A1,PF1A FIRST NUM 1 «, t00=0x00ac, t01=0x00de}
0x10d96…10db4 Head {h00=0x001a, h01=0x0050, text=» RF PFNXT NEXT NUMBER «, t00=0x00ac, t01=0x0100}
0x10db4…10dc8 Head {h00=0x0010, h01=0x0050, text=»PFEX20 EQU *«, t00=0x00ac, t01=0x011e}
0x10dc8…10dda Head {h00=0x000e, h01=0x0050, text=» SUK A2,1 «, t00=0x00ac, t01=0x0132}
0x10dda…10dfc Head {h00=0x001e, h01=0x0050, text=» RF(NZ) PFERR ILLEGAL NUM «, t00=0x00ac, t01=0x0144}
0x10dfc…10e1e Head {h00=0x001e, h01=0x0050, text=» LDKL A1,PF2A FIRST NUM 2 «, t00=0x00ac, t01=0x0166}
0x10e1e…10e3c Head {h00=0x001a, h01=0x0050, text=» RF PFNXT NEXT NUMBER «, t00=0x00ac, t01=0x0188}
0x10e3c…10e4e Head {h00=0x000e, h01=0x0050, text=»PF0A EQU *«, t00=0x00ad, t01=0x0016}
0x10e4e…10e64 Head {h00=0x0012, h01=0x0050, text=» CM RDMORE,A11«, t00=0x00ad, t01=0x0028}
0x10e64…10e84 Head {h00=0x001c, h01=0x0050, text=» SUK A2,/31 ILLEGAL NUM?«, t00=0x00ad, t01=0x003e}
0x10e84…10e9c Head {h00=0x0014, h01=0x0050, text=» RF(N) PFERR YES«, t00=0x00ad, t01=0x005e}
0x10e9c…10eba Head {h00=0x001a, h01=0x0050, text=» SUK A2,9 ILLEGAL NUM?«, t00=0x00ad, t01=0x0076}
0x10eba…10ed4 Head {h00=0x0016, h01=0x0050, text=» RF(NN) PFERR YES «, t00=0x00ad, t01=0x0094}
0x10ed4…10ef4 Head {h00=0x001c, h01=0x0050, text=» ADK A2,/9+PFKEY PF1-PF9«, t00=0x00ad, t01=0x00ae}
0x10ef4…10f06 Head {h00=0x000e, h01=0x0050, text=» RF PFHAND«, t00=0x00ad, t01=0x00ce}
0x10f06…10f18 Head {h00=0x000e, h01=0x0050, text=»PF1A EQU *«, t00=0x00ad, t01=0x00e0}
0x10f18…10f2e Head {h00=0x0012, h01=0x0050, text=» CM RDMORE,A11«, t00=0x00ad, t01=0x00f2}
0x10f2e…10f4e Head {h00=0x001c, h01=0x0050, text=» SUK A2,/30 ILLEGAL NUM?«, t00=0x00ad, t01=0x0108}
0x10f4e…10f66 Head {h00=0x0014, h01=0x0050, text=» RF(N) PFERR YES«, t00=0x00ad, t01=0x0128}
0x10f66…10f86 Head {h00=0x001c, h01=0x0050, text=» SUK A2,/A ILLEGAL NUM? «, t00=0x00ad, t01=0x0140}
0x10f86…10fa0 Head {h00=0x0016, h01=0x0050, text=» RF(NN) PFERR YES «, t00=0x00ad, t01=0x0160}
0x10fa0…10fc6 Head {h00=0x0022, h01=0x0050, text=» ADK A2,/A+PFKEY+/9 PF10-PF19 «, t00=0x00ad, t01=0x017a}
0x10fc6…10fd8 Head {h00=0x000e, h01=0x0050, text=» RF PFHAND«, t00=0x00ae, t01=0x0010}
0x10fd8…10fea Head {h00=0x000e, h01=0x0050, text=»PF2A EQU *«, t00=0x00ae, t01=0x0022}
0x10fea…11000 Head {h00=0x0012, h01=0x0050, text=» CM RDMORE,A11«, t00=0x00ae, t01=0x0034}
0x11000…11020 Head {h00=0x001c, h01=0x0050, text=» SUK A2,/30 ILLEGAL NUM?«, t00=0x00ae, t01=0x004a}
0x11020…11038 Head {h00=0x0014, h01=0x0050, text=» RF(N) PFERR YES«, t00=0x00ae, t01=0x006a}
0x11038…11056 Head {h00=0x001a, h01=0x0050, text=» SUK A2,5 ILLEGAL NUM?«, t00=0x00ae, t01=0x0082}
0x11056…11070 Head {h00=0x0016, h01=0x0050, text=» RF(NN) PFERR YES «, t00=0x00ae, t01=0x00a0}
0x11070…11096 Head {h00=0x0022, h01=0x0050, text=» ADK A2,/5+PFKEY+/13 PF20-PF24«, t00=0x00ae, t01=0x00ba}
0x11096…110aa Head {h00=0x0010, h01=0x0050, text=»PFHAND EQU *«, t00=0x00ae, t01=0x00e0}
0x110aa…110da Head {h00=0x002c, h01=0x0050, text=» CF A14,PF PROGRAM FUNCTION KEY HANDLING«, t00=0x00ae, t01=0x00f4}
0x110da…110ec Head {h00=0x000e, h01=0x0050, text=» RF PFRET «, t00=0x00ae, t01=0x0124}
0x110ec…11100 Head {h00=0x0010, h01=0x0050, text=»PFNXT EQU * «, t00=0x00ae, t01=0x0136}
0x11100…1111a Head {h00=0x0016, h01=0x0050, text=» ST A1,RDMORE,A11 «, t00=0x00ae, t01=0x014a}
0x1111a…1112c Head {h00=0x000e, h01=0x0050, text=» RF PFRET «, t00=0x00ae, t01=0x0164}
0x1112c…11140 Head {h00=0x0010, h01=0x0050, text=»PFERR EQU * «, t00=0x00ae, t01=0x0176}
0x11140…11156 Head {h00=0x0012, h01=0x0050, text=» CF A14,ERROR «, t00=0x00ae, t01=0x018a}
0x11156…1116a Head {h00=0x0010, h01=0x0050, text=»PFRET EQU * «, t00=0x00af, t01=0x0010}
0x1116a…1117a Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x00af, t01=0x0024}
0x1117a…11186 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00af, t01=0x0034}
0x11186…11194 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x00af, t01=0x0040}
0x11194…1119c Head {h00=0x0004, h01=0x0050, t00=0x00af, t01=0x004e}
0x1119c…111de Head {h00=0x003e, h01=0x0050, text=»**********************************************************«, t00=0x00af, t01=0x0056}
0x111de…11220 Head {h00=0x003e, h01=0x0050, text=»* *«, t00=0x00af, t01=0x0098}
0x11220…11262 Head {h00=0x003e, h01=0x0050, text=»* RETURN RETURN *«, t00=0x00af, t01=0x00da}
0x11262…112a4 Head {h00=0x003e, h01=0x0050, text=»* *«, t00=0x00af, t01=0x011c}
0x112a4…112e8 Head {h00=0x0040, h01=0x0050, text=»*********************************************************** «, t00=0x00af, t01=0x015e}
0x112e8…11304 Head {h00=0x0018, h01=0x0050, text=»* REGISTERS «, t00=0x00b0, t01=0x0012}
0x11304…1130e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00b0, t01=0x002e}
0x1130e…11326 Head {h00=0x0014, h01=0x0050, text=»* A11= RESERVED «, t00=0x00b0, t01=0x0038}
0x11326…1133e Head {h00=0x0014, h01=0x0050, text=»* A13= RESERVED «, t00=0x00b0, t01=0x0050}
0x1133e…11348 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00b0, t01=0x0068}
0x11348…11388 Head {h00=0x003c, h01=0x0050, text=»********************************************************«, t00=0x00b0, t01=0x0072}
0x11388…1139c Head {h00=0x0010, h01=0x0050, text=»RETURN EQU *«, t00=0x00b0, t01=0x00b2}
0x1139c…113ac Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x00b0, t01=0x00c6}
0x113ac…113b4 Head {h00=0x0004, h01=0x0050, t00=0x00b0, t01=0x00d6}
0x113b4…113c0 Head {h00=0x0008, h01=0x0050, text=» END«, t00=0x00b0, t01=0x00de}
0x113c0…113c4 Head {h00=0x4004, h01=0x0000}
0x113c4…113c8 00 b0 00 ea ┆ ┆
0x113c8…113d0 (177, 1, 8) 20 04 00 00 00 b1 00 04 ┆ ┆
0x113d0…11420 (178, 0, 400) 41 33 00 49 01 88 00 1a 00 50 5c 43 57 4b 5c 41 32 2c 2f 38 30 5c 41 54 54 52 49 42 55 54 45 20 00 4a 00 0a 00 16 00 50 5c 52 42 28 4e 47 29 5c 4c 49 4e 41 31 30 5c 59 45 53 00 4a 00 28 00 16 00 50 4c 49 4e 41 34 30 5c 45 51 55 5c 2a 5c 2e ┆A3 I P CWK A2,/80 ATTRIBUTE J P RB(NG) LINA10 YES J ( PLINA40 EQU * .┆
0x11420…11470 5c 3d 31 20 00 4a 00 42 00 12 00 50 5c 43 46 5c 41 31 34 2c 52 45 53 54 31 20 00 4a 00 5c 00 0c 00 50 5c 52 54 4e 5c 41 31 34 00 4a 00 72 00 0a 00 50 5c 45 4a 45 43 54 00 4a 00 82 00 40 00 50 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆ =1 J B P CF A14,REST1 J P RTN A14 J r P EJECT J @ P****************┆
0x11470…114c0 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 20 00 4a 00 90 00 40 00 50 2a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆******************************************* J @ P* ┆
0x114c0…11510 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 20 00 4a 00 d4 00 40 00 50 2a 20 20 20 20 20 20 20 20 4e 4c 52 4f 55 54 20 20 20 20 20 20 20 4e 45 57 20 4c 49 4e 45 20 52 4f 55 54 49 4e 45 20 20 ┆ * J @ P* NLROUT NEW LINE ROUTINE ┆
0x11510…11560 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 20 00 4a 01 18 00 40 00 50 2a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ * J @ P* ┆
0x11560…115b0 (179, 0, 400) 20 20 20 20 20 20 2a 20 00 4a 01 5c 00 40 00 50 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 20 00 4b 00 10 ┆ * J @ P*********************************************************** K ┆
0x115b0…11600 00 10 00 50 2a 5c 5c 52 45 47 49 53 54 45 52 53 00 4b 00 54 00 06 00 50 2a 20 00 4b 00 68 00 1e 00 50 2a 5c 41 33 3d 20 41 44 44 52 45 53 20 49 4e 20 56 44 55 20 42 55 46 46 45 52 00 4b 00 72 00 18 00 50 2a 5c 41 34 3d 20 52 45 4c 20 43 55 ┆ P* REGISTERS K T P* K h P* A3= ADDRES IN VDU BUFFER K r P* A4= REL CU┆
0x11600…11650 52 53 4f 52 20 50 4f 53 00 4b 00 94 00 12 00 50 2a 5c 41 35 3d 20 52 45 53 45 52 56 45 44 00 4b 00 b0 00 12 00 50 2a 5c 41 36 3d 20 52 45 53 45 52 56 45 44 00 4b 00 c6 00 12 00 50 2a 5c 41 38 3d 20 52 45 53 45 52 56 45 44 00 4b 00 dc 00 12 ┆RSOR POS K P* A5= RESERVED K P* A6= RESERVED K P* A8= RESERVED K ┆
0x11650…116a0 00 50 2a 5c 41 39 3d 20 52 45 53 45 52 56 45 44 00 4b 00 f2 00 14 00 50 2a 5c 41 31 30 3d 20 52 45 53 45 52 56 45 44 20 00 4b 01 08 00 14 00 50 2a 5c 41 31 31 3d 20 52 45 53 45 52 56 45 44 20 00 4b 01 20 00 14 00 50 2a 5c 41 31 33 3d 20 52 ┆ P* A9= RESERVED K P* A10= RESERVED K P* A11= RESERVED K P* A13= R┆
0x116a0…116f0 45 53 45 52 56 45 44 20 00 4b 01 38 00 06 00 50 2a 20 00 4b 01 50 00 40 00 50 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆ESERVED K 8 P* K P @ P******************************************************┆
0x116f0…11740 (180, 0, 400) 2a 2a 2a 2a 2a 20 00 4b 01 5a 00 10 00 50 4e 4c 52 4f 55 54 5c 45 51 55 5c 2a 00 4c 00 0e 00 20 00 50 5c 4c 44 52 5c 41 31 2c 41 34 5c 53 41 56 45 20 43 55 52 53 4f 52 20 50 4f 53 2e 20 00 4c 00 22 00 2e 00 50 5c 43 46 5c 41 31 34 2c 43 52 ┆***** K Z PNLROUT EQU * L P LDR A1,A4 SAVE CURSOR POS. L " . P CF A14,CR┆
0x11740…11790 44 4f 57 4e 5c 4d 4f 56 45 20 43 55 52 53 4f 52 20 4f 4e 20 45 20 4c 49 4e 45 20 44 4f 57 4e 20 00 4c 00 46 00 0e 00 50 5c 4c 44 4b 5c 41 37 2c 30 20 00 4c 00 78 00 10 00 50 4e 4c 52 31 30 30 5c 45 51 55 5c 2a 00 4c 00 8a 00 28 00 50 5c 53 ┆DOWN MOVE CURSOR ON E LINE DOWN L F P LDK A7,0 L x PNLR100 EQU * L ( P S┆
0x11790…117e0 55 4b 5c 41 34 2c 4c 4c 49 4e 45 5c 43 4f 4d 50 55 54 45 20 4c 45 46 54 4d 4f 53 54 20 50 4f 53 2e 20 00 4c 00 9e 00 12 00 50 5c 52 46 28 4e 29 5c 4e 4c 52 32 30 30 20 00 4c 00 ca 00 12 00 50 5c 41 44 4b 5c 41 37 2c 4c 4c 49 4e 45 20 00 4c ┆UK A4,LLINE COMPUTE LEFTMOST POS. L P RF(N) NLR200 L P ADK A7,LLINE L┆
0x117e0…11830 00 e0 00 0e 00 50 5c 52 42 5c 4e 4c 52 31 30 30 00 4c 00 f6 00 10 00 50 4e 4c 52 32 30 30 5c 45 51 55 5c 2a 00 4c 01 08 00 0e 00 50 5c 4c 44 52 5c 41 34 2c 41 31 00 4c 01 1c 00 10 00 50 5c 4c 44 4b 5c 41 32 2c 4e 55 4c 4c 00 4c 01 2e 00 10 ┆ P RB NLR100 L PNLR200 EQU * L P LDR A4,A1 L P LDK A2,NULL L . ┆
0x11830…11880 00 50 4e 4c 52 33 30 30 5c 45 51 55 5c 2a 00 4c 01 42 00 1a 00 50 5c 43 57 52 5c 41 37 2c 41 34 5c 41 4c 4c 20 4e 55 4c 4c 45 44 3f 00 4c 01 56 00 16 00 50 5c 52 46 28 45 29 5c 4e 4c 52 39 30 30 5c 59 45 53 20 00 4c 01 74 00 22 00 50 5c 53 ┆ PNLR300 EQU * L B P CWR A7,A4 ALL NULLED? L V P RF(E) NLR900 YES L t " P S┆