|
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: 42836 (0xa754)
Notes: pts_type(SC)
Names: »VDUPRT.SC«
└─⟦fce1dcf99⟧ Bits:30009704 Philips computer tape "KMD15"
└─⟦this⟧ »IBM3270/VDUPRT.SC«
IDENT VDUPRT REL 1.2 78-09-15 870150540120 ****************************************************************** * * V D U P R T : MODULE HANDLING MESSAGES COMING FROM * MAIN FRAME, AND DISPLAYING THEM ON * THE VDU ( PTS 6344 ) . * ******************************************************************** * * EJECT * * * ENTRIES * * ENTRY TRPF TRANSMIT, PROGRAM FUNCTION ENTRY TRPA TRANSMIT, PROGRAM ATTENTION ENTRY ERASE ERASE ENTIRE SCREEN ENTRY SETCUR CURSOR POSITIONING ENTRY ERASUP ERASE ALL UNPROTECTED ENTRY DISPL DISPLAY MODIFIED DATA ENTRY ERASUA ERASE UNPROTECTED TO ADDRESS ENTRY WCHAR WRITE ONE CHAR IN CURSOR POS ENTRY VDTASK ENTRY DCRED,UPDATE ENTRY REL:BU RELEASE RELEASE BUFFER ENTRY GETT:A GET T:A ADDRESS * * * EXTERNALS * * EXTRN LMP1ON,LMP1OF START EXTRN ATMASB EXTRN LMP3ON,LMP3OF EXTRN EMULA * EXTRN SNBUSY PRT * EXTRN I:EVA0 CREDIT EVALUATION TABLE * EXTRN T:ATAB EXTRN U:BTAB DEF UWB BASE ADDRESS EXTRN SELTAB SELECT ADDRESS TABLE EJECT * * * EQUATES * * TIMDC EQU 300 DC TIME OUT VALUE: 30 S ESC EQU /1B SBA EQU /11 NULL EQU /7F NULL CHARACTER NEWLIN EQU /7E NEW LINE CHARACTER ENDMES EQU /7D END MESSAGE CHAR FORMFD EQU /7C FORM FEED CHAR * * * COMMON EQU FOR ECB HANDLING * ECBBA EQU 2 ECBRL EQU 4 ECBEL EQU 6 ECBRC EQU 8 ECBCW EQU 10 EJECT * * * CREDIT USED EQU * * * ECB REL. ADDRESSES * * DIS EQU 20 * ECB1 EQU -DIS-8 ECB2 EQU ECB1-DIS ECB3 EQU ECB2-DIS ECB4 EQU ECB3-DIS ECB5 EQU ECB4-DIS * ECBDC EQU ECB1 ECBDCT EQU ECB2 ECBVDU EQU ECB3 ECBKB EQU ECB4 ECBSD EQU ECB5 ECBPR EQU ECB3 * * * BASE ADDRESS FOR TCA AND ECB * TCABAS EQU A11 CREBAS EQU A13 ECB EJECT * * * TCA REL. ADDRESSES * TCT01 EQU 0 PRINTER EQU TCT01+2 BVDU EQU PRINTER+2 VDU SCREEN BUFFER PCURS EQU BVDU+1920 CURSOR ADDRESS , BINARY ATTRIB EQU PCURS+2 LAST ATTRIBUTE CHAR CURATT EQU ATTRIB+2 WCC EQU CURATT+2 WCC/CCC CHARACTER KBINH EQU WCC+2 KEYBOARD INHIBIT INDICATOR LINCNT EQU KBINH+2 LINE COUNTER DCLENG EQU LINCNT+2 DC READ EFFECTIVE LENGTH DCADDR EQU DCLENG+2 DC SUBTERMINAL ADDRESS TCTGPL EQU DCADDR+2 INTATT EQU TCTGPL+2 INTENSITY ATTRIBUTE OFFFLG EQU INTATT+2 OFFLINE FLAG LOCK EQU OFFFLG+2 COPY LOCK VDUBSY EQU LOCK+2 VDU BUSY WHEN HARDCOPY COPNO EQU VDUBSY+2 HARDCOPY TASK IDENTITY CRE EQU COPNO+2 CREDIT ECB:S BASE ADDRESS VDUT.A EQU CRE+2 T:A BASE ADDRESS CCC EQU VDUT.A+2 COPY COMMAND CHARACTER EJECT * * LBVDU EQU 1920 1920 CHARACTER DISPLAY LPAGE EQU 48 LINES ON ONE PAGE LLINE EQU 80 80 CHAR PER DISPLAY LINE TID EQU -4 TASK IDENTITY T:A DISPLACEMENT * * **************************************************************** * * CONDITIONAL ASSEMBLY PARAMETERS * ********************************************** COPL EQU 0 COPY LOCK USED IF SET TO " ONE " OFLIN EQU 0 SHOULD ALWAYS BE SET TO ZERO EJECT * * * TABLE FOR CONVERSION OF EBCDIC 6 BIT INTERNAL * * CODE TO ASCII * TASCII EQU * DATA /2041,/4243,/4445,/4647 /00-/07 DATA /4849,/5B2E,/3C28,/2B21 /08-/0F DATA /264A,/4B4C,/4D4E,/4F50 /10-/17 DATA /5152,/5D24,/2A29,/3B5E /18-/1F DATA /2D2F,/5354,/5556,/5758 /20-/27 DATA /595A,/7C2C,/255F,/3E3F /28-/2F DATA /3031,/3233,/3435,/3637 /30-37 DATA /3839,/3A23,/4027,/3D22 /38-3F EJECT * * * TABLE FOR CODE CONVERSION FROM ASCII TO EBCDIC * * USED TO GET BINARY VALUES FROM THE EBCDIC CODE * * INVALID CODES ARE CONVERTED TO ZEROS * * TEBCDIC EQU * DATA 0,0,0,0 /00-/07 DATA 0,0,0,0 /08-/0F DATA 0,0,0,0 /10-/17 DATA 0,0,0,0 /18-1F DATA /404F,/7F7B,/5B6C,/507D /20-/27 DATA /4D5D,/5C4E,/6B60,/4B61 /28-/2F DATA /F0F1,/F2F3,/F4F5,/F6F7 /30-/38 DATA /F8F9,/7A5E,/4C7E,/6E6F /39-/3F DATA /7CC1,/C2C3,/C4C5,/C6C7 /40-/47 DATA /C8C9,/D1D2,/D3D4,/D5D6 /48-/4F DATA /D7D8,/D9E2,/E3E4,/E5E6 /50-57 DATA /E7E8,/E94A,/005A,/5F6D /58-/5F DATA /0081,/8283,/8485,/8687 /60-/67 DATA /8889,/9192,/9394,/9596 /68-/6F DATA /9798,/99A2,/A3A4,/A5A6 /70-/77 DATA /A7A8,/A900,/6A00,/0000 /78-/7F EJECT * * * GET TRANSMIT BUFFER * * ON EXIT A1=RETURN CODE * A7=BUFFER ADDRESS+2 * A8=DC ECB ADDRESS * A9=2=BUFFER CHARACTER COUNTER * * GTBUF LDKL A8,ECBDC ADR A8,CREBAS LDKL A7,TIMDC ST A7,ECBCW,A8 SET TIME OUT VALUE LDK A7,/B1 GET TRANSMIT BUFFER ORDER LKM DATA 1 LD A7,ECBBA,A8 GET TRANSMIT BUFFER ADK A7,2 SKIP FIRST WORD LDKL A9,2 SET CHARACTER COUNTER LD A1,ECBRC,A8 GET RETURN CODE RTN A14 EJECT * * * STORE CHARACTER IN DC BUFFER * * A2=CHAR * A7=BUFFER POINTER * A8=ECB ADDRESS * A9=BUFFER CHARACTER COUNTER * ECBEL CONTAINS BUFFER LENGTH * * PDCCH CW A9,ECBEL,A8 RF(G) PDCCHR OVERFLOW SCR A2,A7 PDCCH1 EQU * ADK A7,1 ADKL A9,1 PDCCHR RTN A14 * * * STORE ATTENTION ID FROM A2 * * PAID CF A14,PDCCH RTN A14 * * * GET CHARACTER FROM DC BUFFER TO A2 * * GDCCH LCR A2,A7 ANK A2,/FF ******************************************* 78-08-15 RF(NZ) GDCC:1 NOT NULL CHARACTER LDK A2,/7F REPLACE BY PTS NULL ******************************************* 78-08-15 GDCC:1 EQU * RB PDCCH1 EJECT * * * GET BUFFER ADDRESS TO A1 FROM DC BUFFER * * GETADR CF A14,GDCCH LC A1,TEBCDI,A2 ANK A1,/3F SLL A1,6 CF A14,GDCCH LC A2,TEBCDI,A2 ANK A2,/3F ORR A1,A2 RTN A14 EJECT * * * WRITE MESSAGE WITH MAIN FRAME * * ON EXIT A1 CONTAINS RETURN CODE * * DCEXCH ST A9,ECBRL,A8 STORE REQUESTED LENGTH LD A7,KBINH,TCABAS ORK A7,2 BIT 14 :=1 DISABLE KEYBOARD.RESET ALLOWED ST A7,KBINH,TCABAS LDK A7,/86 DC100 EQU * LKM DATA 1 DC200 EQU * LD A1,ECBRC,A8 GET RETURN CODE LDR A1,A1 RF(Z) DC300 LD A7,KBINH,TCABAS ANK A7,/D BIT 14:=0 ALLIWE KEYBOARD ST A7,KBINH,TCABAS CF A14,LMP1OF TURN OFF "KEYBOARD INHIBIT"" CF A14,LMP3ON TURN OFF "SYSTEM AVAILABLE * LDK A7,/04 RESET KEYBOARD ECB BUFFER LDKL A8,ECBKB ADR A8,CREBAS LKM DATA 1 * RTN A14 DC300 EQU * CF A14,LMP3OF TURN ON 'SYSTEM AVAILABLE' RTN A14 EJECT * * * READ MESSAGE FROM DC LINE * * ON ENTRY A1 CONTAINS TIME OUT VALUE * ON EXIT A1 CONTAINS RETURN CODE * * DCRED LDKL A8,ECBDCT ADR A8,CREBAS ECBADDRESS ST A1,ECBCW,A8 SET TIME OUT VALUE LDK A7,/82 READ WITH WAIT LKM DATA 1 LD A1,ECBEL,A8 ST A1,DCLENG,TCABAS LD A1,ECBRC,A8 RTN A14 EJECT * * * STORE CURSOR ADDRESS IN DC BUFFER * * CURSA LD A1,PCURS,TCABAS RF BUFADR * * * STORE BUFFER ADDRESS IN DC BUFFER * * A1=BINARY BUFFER ADDRESS * * BUFADR LDR A2,A1 SRL A2,6 ANK A2,/3F LC A2,TASCII,A2 CONVERT TO ASCII CF A14,PDCCH LDR A2,A1 ANK A2,/3F LC A2,TASCII,A2 CF A14,PDCCH RTN A14 EJECT * * * GET MODIFIED DATA FROM DISPLAY IMAGE BUFFER * * A3=BUFFER POSITION BINARY * A4=BUFFER POINTER * * RDMOD LDK A3,0 RESET POSITION LDKL A4,BVDU ADR A4,TCABAS BUFFER POINTER ************************************************************ ADKL A4,1919 LAST SCREEN POSITION LCR A2,A4 GET CHARACTER LDKL A4,BVDU RELOAD FIRST BUFFER POSITION ADR A4,TCABAS ******************************************* 78-08-15 LDR A1,A2 ANK A1,/60 ATTRIBUTE CHARACTER ?? RF(Z) RD200 YES!!! ******************************************* 78-08-15 ************************************************************ RD100 CWK A3,LBVDU RF(NL) RDMODE ALL EXAMINED LCR A2,A4 GET CHAR ADK A3,1 ADK A4,1 ************************************************************ RD105 EQU * ************************************************************ LDR A1,A2 ANK A1,/60 RF(Z) RD200 ATTRIBUTE CHAR RD110 CWK A2,NULL RB(E) RD100 DON'T STORE NULL CF A14,PDCCH STORE CHAR IN DC BUFFER RB RD100 RD200 ANK A2,1 CHECK MDT BIT RF(NZ) RD300 MODIFIED FIELD RD210 CWK A3,LBVDU RF(NL) RDMODE ALL EXAMINED LCR A2,A4 ADK A3,1 ADK A4,1 LDR A1,A2 ANK A1,/60 RB(NZ) RD210 NO ATTRIBUTE CHAR ******************************************************** 78-05-11 CWK A3,LBVDU ALL BUFFER EXAMINED ??? RF(NL) RDMODE YES!! ******************************************************** 78-05-11 RB RD200 ATTRIBUTE FOUND RD300 LDK A2,SBA CF A14,PDCCH SBA TO DC BUFFER LDR A1,A3 BUFFER POSITION CF A14,BUFADR TO DC BUFFER RB RD100 RDMODE RTN A14 EJECT * * * UPDATE VIDEO DISPLAY BUFFER IMAGE BY THE DATA * * RECEIVED FROM THE DC LINE * * * A7=DC RECEIVE BUFFER POINTER * A8=DC ECB ADDRESS * A9=DC BUFFER INDEX, INITIALLY ZERO * * A3=DISPLAY BUFFER POSITION * A4=DISPLAY BUFFER POINTER * * UPDATE LDKL A8,ECBDCT ADR A8,CREBAS ECB ADDRESS LD A7,ECBBA,A8 DC BUFFER ADDRESS SUR A9,A9 RESET DC BUFFER INDEX CF A14,GDCCH GET FIRST CHAR FROM DC BUFFER CWK A2,ESC SHOULD BE ESCAPE RF(NE) UPDEND NOT ESCAPE UPD010 EQU * CF A14,GDCCH GET COMMAND CODE CWK A2,/31 RF(E) UPD100 WRITE CWK A2,/35 RF(E) UPD120 ERASE/WRITE CWK A2,/3F RF(E) UPD140 ERASE ALL UNPROTECTED CWK A2,/37 ABL(E) UPD600 COPY RF UPDEND INVALID COMMAND CODE EJECT * * WRITE COMMAND * UPD100 EQU * CF A14,PWCC PROCESS WCC FOR MDT BIT LD A3,PCURS,TCABAS LDR A4,A3 START IN CURSOR POSITION ADKL A4,BVDU ADR A4,TCABAS LDK A5,1 INDICATE WCC, IC OR RA RF UPD220 * * ERASE/WRITE COMMAND * UPD120 EQU * CF A14,ERASE ERASE SCREEN RF UPD200 * * ERASE ALL UNPROTECTED * UPD140 EQU * CF A14,ERASUP ERASE ALL UNPROTECTED RF UPDEND NO TEXT WITH THIS COMMAND * * TAKE CARE OF WRITE CONTROL CHARACTER WCC * UPD200 CF A14,PWCC PROCESS WCC LDK A5,1 INDICATE WCC, IC OR RA EJECT * * * PROCESS DATA FROM DC BUFFER * * UPD210 LDK A3,0 START FROM POSITION ZERO LDKL A4,BVDU ADR A4,TCABAS UPD220 CW A9,DCLENG,TCABAS RF(NL) UPDEND ALL RECEIVED CHARS PROCESSED CF A14,GDCCH GET CHAR FROM DC BUFFER CWK A2,/20 RF(L) UPD300 ORDER UPD230 EQU * LDK A5,0 INDICATE NOT WCC, IC OR RA ORK A2,/80 SET DISPLAY BIT UPD240 CWK A3,LBVDU RF(E) UPD260 END OF VIDEO BUFFER UPD250 EQU * SCR A2,A4 STORE IN VIDEO BUFFER ADK A3,1 ADK A4,1 RB UPD220 UPD260 LDK A3,0 LDKL A4,BVDU ADR A4,TCABAS RB UPD250 UPD300 EQU * ******************************************* 78-08-15 CWK A3,LBVDU END OF DISPLAY BUFFER ??? RF(NE) UPD302 NO!!! SUR A3,A3 FIRST SCREEN POSITION LDKL A4,BVDU ADR A4,TCABAS BUFFER POSITION UPD302 EQU * ******************************************* 78-08-15 CWK A2,/1D RF(E) UPD320 START FIELD CWK A2,/11 RF(E) UPD340 SET BUFFER ADDRESS CWK A2,/13 RF(E) UPD360 INSERT CURSOR CWK A2,/09 RF(E) UPD400 PROGRAM TAB CWK A2,/14 RF(E) UPD500 REPEAT TO ADDRESS CWK A2,/12 RF(E) UPD540 ERASE UNPROTECTED TO ADDRESS CWK A2,/0C RF(NE) UPD305 LDK A2,FORMFD FORM FEED RB UPD230 UPD305 CWK A2,/19 RF(NE) UPD310 LDK A2,ENDMES END MESSAGE RB UPD230 UPD310 EQU * CWK A2,/0A RF(NE) UPD315 LDK A2,NEWLIN NEW LINE RB UPD230 UPD315 EQU * CWK A2,/18 *********************************************** 78-08-15 RF(NE) UPD317 ILLEGAL ORDER *********************************************** 78-08-15 LDK A2,/30 RB UPD230 *********************************************** 78-08-15 UPD317 CWK A2,/1B ESCAPE ??? RB(E) UPD010 YES!!! *********************************************** 78-08-15 EJECT UPD318 EQU * CWK A2,/00 NULL CHARACTER ??? RF(NE) UPDEND NO!! ILLEGAL ORDER LDK A2,/7F PTS NULL CHARACTER RB UPD230 ************************************************************ * * RELEASE RECEIVE BUFFER * ************************************* REL:BU EQU * UPDEND LDK A7,/A2 RELEASE DC READ BUFFER LDKL A8,ECBDCT ADR A8,CREBAS LKM DATA 1 RTN A14 EJECT * * * START FIELD ORDER * UPD320 CF A14,GDCCH GET ATTRIBUTE CHAR LC A2,TEBCDI,A2 LDR A1,A2 COMPOSE PTS ATTRIBUTE CHAR ANK A1,1 SRL A2,1 ANK A2,/1E ORR A2,A1 RB UPD230 * * SET BUFFER ADDRESS * UPD340 CF A14,GETADR GET ADDRESS CWK A1,LBVDU RB(NL) UPDEND INVALID ADDRESS LDR A3,A1 LDR A4,A3 ADKL A4,BVDU ADR A4,TCABAS RB UPD220 * * INSERT CURSOR * UPD360 ST A3,PCURS,TCABAS SET NEW CURSOR POS LDK A5,1 INDICATE WCC, IC OR RA RB UPD220 EJECT * * PROGRAM TAB * UPD400 LDR A5,A5 RF(NZ) UPD430 PT AFTER WCC, IC OR RA LDK A1,NULL+/80 FILL CURRENT FIELD BY NULLS UPD410 EQU * LDK A5,0 CWK A3,LBVDU RB(NL) UPD210 END OF BUFFER LCR A2,A4 ADK A3,1 ANK A2,/7F CWK A2,/20 RF(L) UPD415 SCR A1,A4 STORE NULL ADK A4,1 RB UPD410 UPD415 EQU * ADK A4,1 UPD420 ANK A2,/10 RB(Z) UPD220 UNPROTECTED FIELD UPD430 EQU * LDK A5,0 CWK A3,LBVDU ABL(NL) UPD210 END OF DISPLAY BUFFER LCR A2,A4 ADK A3,1 ADK A4,1 ANK A2,/7F CWK A2,/20 RB(L) UPD420 RB UPD430 EJECT * * REPEAT TO ADDRESS * UPD500 CF A14,GETADR GET END ADDRESS CWK A1,LBVDU RB(NL) UPDEND INVALID ADDRESS CF A14,GDCCH GET CHAR TO BE REPEATED LDK A5,1 INDICATE WCC, IC OR RA ORK A2,/80 INDICATE MODIFIED *********************************************** 78-08-15 CWR A3,A1 NULLS TO ALL SCREEN POSITIONS ??? RF(E) UPD530 YES!!! *********************************************** 78-08-15 UPD510 CWK A3,LBVDU RF(L) UPD520 NOT END OF SCREEN LDK A3,0 LDKL A4,BVDU WRAP AROUND ADR A4,TCABAS UPD520 CWR A3,A1 ABL(E) UPD220 ALL CHAR REPEATED *********************************************** 78-08-15 UPD530 EQU * *********************************************** 78-08-15 SCR A2,A4 ADK A3,1 ADK A4,1 RB UPD510 NEXT POSITION * * ERASE UNPROTECTED TO ADDRESS * UPD540 CF A14,GETADR GET END ADDRESS CWK A3,LBVDU RB(NL) UPDEND INVALID ADDRESS CF A14,ERASUA ERASE UNPROTECTED TO ADDRESS ABL UPD220 EJECT * * * COPY COMMAND * * * A3=DISPLAY BUFFER POINTER * A4=DISPLAY BUFFER POINTER * A7=PRINTER BUFFER POINTER * * UPD600 EQU * CF A14,GDCCH GET COPY CONTROL CHAR CCC LC A2,TEBCDI,A2 IN EBCDIC CODE ST A2,WCC,TCABAS SAVE IT CF A14,GDCCH GET "FROM" DEVICE LC A2,TEBCDI,A2 TRANSLATE IT BACK TO EBCDIC * * CREDIT SEQUENCE UNTIL: /LDR/A12,A4 * LDKL A1,U:BTAB DEFINE UWB BASE ADDR LD A3,4,A1 LOAD MAXINDEX LDR* A4,A1 LD A7,2,A1 NEXT UWB RF UPD615 UPD610 LDR A4,A7 AD A7,6,A1 UPD615 SUK A3,1 COUNT RB(N) UPDEND NOT FOUND CW A2,DCADDR,A4 RB(NE) UPD610 CHECK NEXT UWB LDR A12,A4 COPY LDK A3,0 RESET DISPLAY BUFFER POSITION ADKL A4,BVDU DISPLAY BUFFER POINTER LDKL A7,BVDU PRINTER BUFFE ADR A7,TCABAS IFT COPL=1 *************************************************************** * * CHECK IF COPY LOCK IS SET !!! ??? * ***************************************************** LCR A2,A4 GET FIRST SCREEN CHARACTER ANK A2,X'18' XRK A2,X'10' COPY LOCK ??? RF(NZ) UPD620 NO!!! IM LOCK,TCABAS INDICATE COPY LOCK ABL REL:BU RELEASE RECEIVE BUFFER XIF EJECT * * FIRST COPY THE ENTIRE BUFFER * UPD620 CWK A3,LBVDU RF(NL) UPD630 ALL COPIED LCR A2,A4 CCR A2,A7 RF(E) UPD625 SAME TEXT AGAIN ORK A2,/80 NEW TEXT: SET DISPLAY BIT SCR A2,A7 UPD625 EQU * ADK A3,1 ADK A4,1 ADK A7,1 RB UPD620 UPD630 LDK A3,0 RESET BUFFER INDEX SUKL A4,LBVDU SUKL A7,LBVDU LDK A6,NULL+/80 NULL CONSTANT, MODIFIED EJECT * * * CHECK THE ART OF COPYING * * LD A2,WCC,TCABAS GET CCC LD A1,KBINH,A12 ANK A1,/E BIT 15:=0 KEYBOARD NOT TOTALLY INHIBITED * ANY LONGER ST A1,KBINH,A12 LDK A1,/FC RESET BIT CORRESPONDING ANS A1,WCC,TCABAS TO KEYBOARD RESTORE ANK A2,3 RF(Z) UPD650 ATTRIBUTES ONLY CWK A2,2 RF(L) UPD700 ATTRIBUTES AND UNPROTECTED ALPHA RF(E) UPD750 ATTRIBUTES ADN PROTECTED ALPHA ABL UPDEND ENTIRE DISPLAY EJECT * * * COPY ATTRIBUTE CHARACTERS ONLY * * UPD650 CWK A3,LBVDU ABL(NL) UPDEND ALL COPIED LCR A2,A4 ANK A2,/60 RF(Z) UPD660 ATTRIBUTE: KEEP IT SCR A6,A7 DESTROY OTHER THAN ATTRIBUTE UPD660 ADK A3,1 ADK A4,1 ADK A7,1 RB UPD650 EJECT * * * COPY ATTRIBUTES AND UNPROTECTED ALPHAMERIC FIELDS * * UPD700 CWK A3,LBVDU ABL(NL) UPDEND ALL COPIED LCR A2,A4 ANK A2,/7F CWK A2,/20 RF(L) UPD720 ATTRIBUTE CHAR UPD710 ADK A3,1 UNPROTECTED ADK A4,1 ADK A7,1 RB UPD700 UPD720 ANK A2,/18 RB(Z) UPD710 UNPROTECTED ALPHAMERIC UPD730 ADK A3,1 ADK A4,1 PROTECTED OR NUMERIC OR BOTH ADK A7,1 CWK A3,LBVDU ABL(NL) UPDEND ALL COPIED LCR A2,A4 ANK A2,/7F CWK A2,/20 RB(L) UPD720 ATTRIBUTE SCR A6,A7 STORE NULL CHAR RB UPD730 EJECT * * * COPY ATTRIBUTES AND PROTECTED ALPHAMERIC FIELDS * * UPD750 CWK A3,LBVDU ABL(NL) UPDEND ALL COPIED LCR A2,A4 ANK A2,/7F CWK A2,/20 RF(L) UPD770 ATTRIBUTE SCR A6,A7 UNPROTECTED: WRITE NULL UPD760 ADK A3,1 ADK A4,1 ADK A7,1 RB UPD750 UPD770 ANK A2,/18 XRK A2,/10 RB(NZ) UPD760 PROTECTED ALPHAMERIC UPD780 ADK A3,1 ADK A4,1 ADK A7,1 CWK A3,LBVDU ABL(NL) UPDEND ALL COPIED LCR A2,A4 ANK A2,/7F CWK A2,/20 RB(L) UPD770 ATTRIBUTE RB UPD780 EJECT * * * PROCESS WRITE CONTROL CHARACTER * * ONLY RESET MDT BIT IS TAKEN CARE OF * * PWCC CF A14,GDCCH GET WCC LC A2,TEBCDI,A2 IN EBCDIC ST A2,WCC,TCABAS SAVE IT ANK A2,/04 RF(Z) PWCC1 LD A2,PRINTER,TCABAS RF(NZ) PWCC1 LDR A10,A7 LDKL A8,ECBVDU ADR A8,CREBAS LD A2,ECBBA,A8 LDK A7,/2B ST A7,0,A2 LDKL A7,/0707 BELL BELL ST A7,2,A2 LDK A7,4 ST A7,ECBRL,A8 LDK A7,/86 LKM DATA 1 LDKL A8,ECBDCT ADR A8,CREBAS LDR A7,A10 PWCC1 EQU * LD A2,WCC,TCABAS ANK A2,1 RF(NZ) RESMDT RESET ALL MDT PWCC10 RTN A14 NO ACTION * * * RESET ALL MDT BITS * * RESMDT LDK A3,0 LDKL A4,BVDU ADR A4,TCABAS RESM10 CWK A3,LBVDU RB(NL) PWCC10 ALL DONE LCR A2,A4 GET CHAR ANK A2,/60 RF(NZ) RESM20 NO ATTRIBUTE LCR A2,A4 ANK A2,/FE RESET MDT SCR A2,A4 RESM20 ADK A3,1 ADK A4,1 RB RESM10 EJECT * * * ERASE ENTIRE SCREEN * * ERASE LDK A3,0 LDKL A4,BVDU ADR A4,TCABAS LDK A2,NULL ERAS20 CWK A3,LBVDU RF(NL) ERAS25 ALL ERASED SCR A2,A4 ADK A3,1 ADK A4,1 RB ERAS20 ERAS25 CM PCURS,TCABAS RESET CURSOR POS LD A1,PRINTER,TCABAS CHECK DEVISE TYPE RF(NZ) ERAEND PRINTER, NOT DISPLAY STR A7,A14 SAVE A7 AND A8 ON STACK ST A8,-2,A14 LDKL A8,ECBVDU ADR A8,CREBAS VDUECB LDK A7,'1' ERASE CONTROL CHAR ST* A7,ECBBA,A8 TO VDU BUFFER LDK A7,2 ST A7,ECBRL,A8 REQ LENGTH = 2 LDK A7,/86 WRITE LKM DATA 1 LD A8,-2,A14 LDR* A7,A14 RESTORE A7 AND A8 ERAEND RTN A14 EJECT * * * ERASE ALL UNPROTECTED * * ERASUP LDK A2,2 ST A2,WCC,TCABAS SET KEYBOARD RESTORE BIT SUR A1,A1 INDICATE ATT. IN LAST SCREEN POS. LDK A3,0 LDKL A4,BVDU ADR A4,TCABAS CM PCURS,TCABAS FIND FIRST UNPROTECTED POS ******************************************************************** LC A2,1919,A4 GET LAST SCREEN CHARACTER ANK A2,/7F CWK A2,/20 ATTRIBUTE ??? RF(L) ERU:01 YES!! WE GOT IT!! LDK A1,1 ATTRIBUTE NOT IN LAST SCREEN POS. ******************************************************** ERASU1 CWK A3,LBVDU RF(NL) ERASU2 LCR A2,A4 GET CHAR ANK A2,/7F ADK A3,1 ADK A4,1 CWK A2,/20 RB(NL) ERASU1 NO ATTRIBUTE ERU:01 EQU * ANK A2,/10 RB(NZ) ERASU1 PROTECTED ST A3,PCURS,TCABAS SET NEW CURSOR POS LDR A1,A1 RF(Z) ERASU3 ATTRIBUTE IN LAST SCREEN POS. ERASU2 LDK A3,0 LDKL A4,BVDU ADR A4,TCABAS RF ERASU4 ERASU3 EQU * LDR A3,A3 RF(Z) ERASU4 UNPROTECTED ATT. IN LAST SCREEN POS. SUK A3,1 GET BACK TO ATTRIBUTE SUK A4,1 - " - ERASU4 EQU * LDK A1,0 LDK A6,NULL+/80 ERASE CHAR RF ERAS35 EJECT * * * ERASE UNPROTECTED TO ADDRESS GIVEN IN A1 * * ERASUA LDK A6,NULL+/80 ERASE CHARACTER ******************* 78-09-11 CWK A3,LBVDU WRAP AROUND ??? RF(L) ERAS:1 NO!! LDK A3,0 BUFFERINDEX LDKL A4,BVDU ADR A4,TCABAS ABSOLUTE BUFFER ADDRESS ERAS:1 LDR A3,A3 START IN FIRST SCREEN POSITION ??? RF(NZ) ERAS35 NO!! LC A2,1919,A4 LAST BUFFER CHARACTER ANK A2,/7F CWK A2,/20 ATTRIBUTE CHARACTER ??? RF(NL) ERAS35 NO!!! ANK A2,/10 RF(NZ) ERAS70 PROTECTED FIELD LC A2,1919,A4 ANK A2,/FE SC A2,1919,A4 RESET MDT BIT RF ERAS35 ******************** 78-09-11 ERAS30 CWK A3,LBVDU RF(L) ERAS33 NOT END OF SCREEN LDK A3,0 LDKL A4,BVDU WRAP AROUND ADR A4,TCABAS ERAS33 EQU * CWR A3,A1 RB(E) ERAEND ALL UNPROTECTED ERASED ERAS35 LCR A2,A4 GET CHAR FROM VDU BUFFER ANK A2,/7F CWK A2,/20 RF(L) ERAS50 ATTRIBUTE CHAR XRK A2,NULL RF(Z) ERAS40 ALREADY NULL SCR A6,A4 STORE MODIFIED NULL ERAS40 ADK A3,1 ADK A4,1 RB ERAS30 ERAS50 ADK A3,1 ADK A4,1 ANK A2,/10 RF(NZ) ERAS60 PROTECTED FIELD LC A2,-1,A4 ANK A2,/FE RESET MDT BIT SC A2,-1,A4 RB ERAS30 ERAS60 CWK A3,LBVDU RF(L) ERAS65 LDK A3,0 LDKL A4,BVDU WRAP AROUND ADR A4,TCABAS ERAS65 CWR A3,A1 RB(E) ERAEND ALL UNPROTECTED ERASED ERAS70 EQU * LCR A2,A4 ANK A2,/7F CWK A2,/20 RB(L) ERAS50 ATTRIBUTE FOUND ADK A3,1 ADK A4,1 RB ERAS60 EJECT * * * TRANSMIT PROGRAM ATTENTION * * A2=AID * * TRPA CF A14,GTBUF GET TRANSMIT BUFFER LDR A1,A1 RF(Z) TRPA10 BUFFER OBTAINED RTN A14 NO BUFFER TRPA10 CF A14,PAID STORE AID TRANS CF A14,DCEXCH EXCHANGE MESSAGE WITH MAIN FRAME TR050 EQU * RTN A14 TRANSMISSION TROUBLE TRRTN RTN A14 EJECT * * * TRANSMIT PROGRAM FUNCTION * * A2=AID * * TRPF CF A14,GTBUF GET TRANSMIT BUFFER LDR A1,A1 RF(Z) TRPF10 BUFFER OBTAINED RTN A14 TRPF10 CF A14,PAID STORE AID CF A14,CURSA STORE CURSOR ADDRESS CF A14,RDMOD READ MODIFIED RB TRANS SEND MODIFIED FIELDS EJECT * * * DISPLAY MODIFIED FIELDS ON VDU * * * A3=VDU POSITION * A4=VDU IMAGE POINTER * A5=MODIFIED INDICATOR * A7=VDU LINE OUTPUT POINTER * A8=VDU ECB * A9=VDU OUTPUT CHAR COUNTER * * DISPL LDKL A8,ECBVDU ADR A8,CREBAS LDKL A1,/101 START FROM LINE 1 POS 1 ST A1,ECBCW,A8 SUR A10,A10 RESET COUNT FOR INTENSIFIED DISPLAYING LDK A3,0 LDKL A4,BVDU ADR A4,TCABAS CF A14,SPACES PUT SPACES IN LINE BUFFER **************************************************************** LC A2,1919,A4 CHECK IF ATTRIBUTE IN LAST POSITION ANK A2,/7F CWK A2,/1F ATTRIBUTE ??? RF(G) DIS100 NO!!! ANK A2,6 XRK A2,6 ST A2,INTATT,TCABAS CHECK DISPLAY/NONDISPLAY INFORMATION RF(Z) DIS210 NON DISPLAY CF A14,INTCHK INSERT HIGH/LOW INTENS. IN BUFFER ******************************************************************* DIS100 EQU * CWK A9,LLINE RF(L) DIS110 NOT END OF LINE CF A14,DISLIN DISPLAY THIS LINE CF A14,INTCHK CHECK IF LOW/HIGH INTENSITY DIS110 EQU * CWK A3,LBVDU RF(NL) DIS900 ALL SCANNED LCR A2,A4 GET CHAR *********************************************** 78-08-15 CF A14,SET:M SET MODIFIED BIT *********************************************** 78-08-15 ANK A2,/7F RESET DISPLAY BIT SCR A2,A4 ADK A3,1 ADK A4,1 ADK A7,1 ADKL A9,1 CWK A2,/20 RF(L) DIS200 ATTRIBUTE CHAR CWK A2,NULL RB(E) DIS100 NULL EQUALS SPACE AT DISPLAY CWK A2,/7D RF(NE) DIS120 LDK A2,/39 DIS120 CWK A2,/7E RF(NE) DIS121 LDK A2,/35 DIS121 CWK A2,/7C RF(NE) DIS122 LDK A2,/3C DIS122 EQU * SC A2,-1,A7 STORE CHAR IN DISPLAY OUTPUT BUFFER RB DIS100 DIS200 ANK A2,6 XRK A2,6 CHECK IF NONDISPLAY ST A2,INTATT,TCABAS SAVE ATTRIBUTE CHARACTER RF(Z) DIS210 NON DISPLAY ANK A2,4 RF(Z) DIS205 HIGH INTENSITY LDK A2,/1E LOW INTENSITY RF DIS206 DIS205 EQU * LDK A2,/1F HIGH DIS206 EQU * SC A2,-1,A7 STORE INTENSITY CHARACTER ADKL A10,1 INCREMENT COUNTER ADK A7,1 RB DIS100 DIS210 EQU * CWK A9,LLINE RF(L) DIS220 CF A14,DISLIN DISPLAY THIS LINE DIS220 EQU * CWK A3,LBVDU RF(NL) DIS900 ALL DISPLAYED LCR A2,A4 *********************************************** 78-08-15 CF A14,SET:M SET MODIFIED BIT *********************************************** 78-08-15 ANK A2,/7F RESET DISPLAY BIT SCR A2,A4 ADK A3,1 ADK A4,1 ADK A7,1 ADKL A9,1 CWK A2,/20 RB(L) DIS200 ATTRIBUTE FOUND RB DIS210 EJECT * * * POSITION THE CURSOR * * SETCUR EQU * DIS900 LDK A1,2 REQ LENGTH DIS905 ST A1,ECBRL,A8 LD A1,PCURS,TCABAS GET CURSOR POS LDKL A2,/101 START ON LIN 1 POS 1 ST A2,ECBCW,A8 LDKL A2,/100 DIS910 CWK A1,LLINE RF(L) DIS920 ADS A2,ECBCW,A8 SUKL A1,LLINE RB DIS910 DIS920 ADS A1,ECBCW,A8 LDK A7,/8B SET CURSOR AND WRITE LKM DATA 1 CM INTATT,TCABAS CLEAR INTENSITY ATTRIBUTE RTN A14 EJECT * * * WRITE ONE CHAR FROM A2 IN CURSOR POSITION * * WCHAR LD A1,ECBBA,A8 CWK A2,/7B RF(NE) WCHAR1 LDK A2,/2A WCHAR1 EQU * SC A2,3,A1 STORE CHAR IN VDU OUTPUT BUFFER LDK A1,4 RB DIS905 REQ LENGTH = 3 EJECT * * * PUT SPACES TO DISPLAY LINE BUFFER * * SPACES LD A7,ECBBA,A8 ADK A7,2 BUFFER ADDRESS LDKL A9,LLINE LINE LENGTH ADR A9,A9 DOUBLE IT LDKL A2,' ' SPACES SPAC10 STR A2,A7 ADK A7,2 SUKL A9,2 RB(P) SPAC10 LDK A2,0 CLEAR A2=CHAR REGISTER LDK A5,0 RESET MODIFIED INDICATOR LD A7,ECBBA,A8 ADK A7,2 BUFFER ADDRESS SUR A9,A9 RESET LINE CHAR COUNTER RTN A14 EJECT * * * DISPLAY LINE IF ANY MODIFICATIONS * * *********************************************** 78-08-15 DISLIN EQU * LDR A7,A5 ANK A5,/80 ANY MODIFICATIONS ?? RF(Z) DISL10 NO MODIFICATIONS LDK A1,2 XRK A7,/A0 ONLY SPACES IN BUFFER ?? RF(Z) DIS:10 YES!! LDKL A1,LLINE+2 ADR A1,A10 ADD NR OF INTENSITY CHARACTERS DIS:10 EQU * *********************************************** ERROR IN DISPLAY DRIVER ST A1,ECBRL,A8 SET REQ LENGTH LDK A7,/8B SET CURSOR AND WRITE LKM DATA 1 *********************************************** 78-08-15 EJECT ******************************************************************** * * EXECUTE FAST OUTPUT TO BLANK REMAINIG PART * OF THE LINE * ******************************************************************* LD A1,ECBCW,A8 CURSOR POSITION ANK A1,X'FF' COLUMN NUMBER SUK A1,81 LAST POSITION ??? RF(Z) DISL10 YES!! NO FAST OUTPUT ON THIS LINE LD A1,ECBBA,A8 BUFFER ADRESS LDK A2,X'2B' DONT MOVE CURSOR ONE LINE STR A2,A1 SAVE IT IN BUFFER LDKL A2,X'1420' FAST OUTPUT OF SPACES ST A2,2,A1 LOAD BUFFER *********************************************** 478-08-15 LDK A2,84 REQUESTED LENGTH *********************************************** 78-08-15 ST A2,ECBRL,A8 LDK A7,X'86' WRITE ORDER LKM DATA 1 DISL10 EQU * LDK A2,1 SC A2,ECBCW+1,A8 POS 1 ON NEXT LINE LDKL A2,/100 ADS A2,ECBCW,A8 INCREMENT LINE NUMBER RB SPACES PUT SPACES TO BUFFER * * * DISPLAY TASK * * VDTASK EQU * CF A14,I:EVA0 LDR TCABAS,A9 LOAD ASSEM TCA BASE ****************************************************** * * * ASSIGN VDU-KEYBOARD ECB:S TO VDU-TASK * *********** LD A7,TID,CREBAS GET TASK IDENTITY ANK A7,X'FF' MASK TASK INDEX ORKL A7,X'4B00' FORM VDU-KEYBOARD TASK ID. CF A14,GETT:A GET T:A ADDRESS LDR CREBAS,A1 T:A BASE ADDRESS LOOPEND EQU * LD A4,TID,CREBAS GET TASK IDENTITY ANK A4,X'0F' MASK TASK NUMBER ADR A4,A4 LD A1,SELTAB,A4 GET SELECT ADDRESS EJECT * * DELAY VDU-TRANSFER PARAMETER REQUEST IN ORDER * TO GET VDU-DWT AFTER KEYBOARD DWT IN DC:TAB * !!!!!! SELECT WOULD NOT WORK OTHERWISE !!!! * LOOP:1 CW A1,DCADDR,TCABAS HAS KB-TASK MADE TRANS PAR ??? RF(E) LOOP:2 YES!! THEN CONTINUE LDKL A8,1 DELAY TRANSFER PARAMETER LKM DATA 6 RB LOOP:1 LOOP:2 EQU * ST A1,DCADDR,TCABAS CF A14,EMULA CF A14,ERASE VDTASX LDK A1,0 CF A14,DCRED IFT OFLIN=1 LD A1,OFFFLG,TCABAS ONLINE/OFFLINE FLAG RF(Z) ON:LIN STILL ONLINE CF A14,REL:BU RELEASE RECEIVE BUFFER CF A14,SNBUSY SET DEVICE FREE FOR DC-LINE RB VDTASX READ AGAIN ON:LIN EQU * XIF LD A5,KBINH,TCABAS ORK A5,3 BIT 14,15:= 1. TOTALLY DISABLED * KEYBOARD. BIT 15 = 0 AFTER DISPLAYING. ST A5,KBINH,TCABAS CF A14,LMP1ON TURN ON 'KEYBOARD INHIBIT' CF A14,LMP3OF TURN ON "SYSTEM AVAILABLE" **************************************************************** * * CHECK IF HARDCOPY OF VDU BUFFER IS BEEING EXECUTED * * IF SO, WAIT UNTIL HARDCOPY IS FINISHED * ************************************************************ VDTAS2 LD A1,VDUBSY,TCABAS HARDCOPY OF VDU BUFFER IN PROG.? RF(Z) VDTAS3 NO! PROCEED LDKL A8,10 1 SEK. DELAY LKM DATA 6 RB VDTAS2 HARDCOPY FINISHED ?? VDTAS3 EQU * CF A14,UPDATE CF A14,DISPL LD A2,PCURS,TCABAS CF A14,ATMASB CF A14,SNBUSY LD A2,KBINH,TCABAS ANK A2,1 BIT 15 = 0? RF(Z) VDTAS1 YES LD A2,KBINH,TCABAS ANK A2,/E BIT 15:=0 KEYBOARD NOT TOTALLY * INHIBITED ANY LONGER ST A2,KBINH,TCABAS LD A2,WCC,TCABAS ANK A2,2 RB(Z) VDTASX NO KB RESTORE VDTAS1 EQU * CF A14,LMP1OF TURN OFF 'KEYBOARD INHIBIT' LD A2,KBINH,TCABAS ANK A2,4 BITS 14,15:=0 RESTORE KEYBOARD ST A2,KBINH,TCABAS RB VDTASX * EJECT **************************************************************** * * I N T C H K CHECK IF LINE SHOULD BE PRINTED WITH * HIGH OR LOW INTENSITY * ********************************************************************** INTCHK SUR A10,A10 RESET INTENSITY COUNT LD A2,INTATT,TCABAS GET INTENSITY ATTRIBUTE RF(Z) INTRTN NON DISPLAY ANK A2,X'4' HIGH INTENSITY ??? RF(Z) INT:10 YES LDK A2,X'1E' LOW INTENSITY RF INT:20 HIGH INTENSITY INT:10 LDK A2,X'1F' HIGH INTENSITY INT:20 SCR A2,A7 SAVE INTENSITY CHARACTER IN BUFFER ADK A7,1 INCREMENT BUFFER POINTER ADKL A10,1 INTENSITY COUNT INTRTN RTN A14 RETURN * EJECT ************************************************************* * * G E T T : A GET T:A ADDRESS * * ENTRY : A7 = TASK IDENTITY * * EXIT : A1 = TCA-ADDRESS * ********************************************** GETT:A LD A3,T:ATAB T:ATAB ADDRESS LDR* A4,A3 NUMBER OF ENTRIES *********************************************** 78-08-15 GETLOP ADK A3,2 *********************************************** 78-08-15 LDR* A1,A3 T:A ADDRESS CW A7,-4,A1 SAME IDENTITY ?? RF(E) GETEND YES SUK A4,1 ALL T:AS CHECKED ??? RB(NZ) GETLOP NO. TRY NEXT LDKL A7,-1 TASK NOT DEFINED ON CREDIT CASSETTE GETEND RTN A14 RETURN EJECT **************************************************************** * * SET:M SET MODIFIED BIT IF CHARACTER HAS BEEN MODIFIED * ****************************************************************** SET:M CWK A2,/20 RF(L) SET:M2 ATTRIBUTE CHARACTER CWK A2,/7F RF(E) SET:M2 UNMODIFIED ATTRIBUTE CWK A2,/FF RF(NE) SET:M1 NOT NULL OR ATTRIBUTE ORK A5,/A0 MODIFIED NULL CHARACTER RTN A14 SET:M1 ORR A5,A2 SET MODIFIED BIT SET:M2 RTN A14 END
0x0000…0036 (0, 0, 400) Head {h00=0x0032, h01=0x0050, text=» IDENT VDUPRT REL 1.2 78-09-15 870150540120 «, t00=0x0000, t01=0x0004}
0x0036…003e Head {h00=0x0004, h01=0x0050, t00=0x0000, t01=0x003a}
0x003e…0088 Head {h00=0x0046, h01=0x0050, text=»******************************************************************«, t00=0x0000, t01=0x0042}
0x0088…0092 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x008c}
0x0092…00d2 Head {h00=0x003c, h01=0x0050, text=»* V D U P R T : MODULE HANDLING MESSAGES COMING FROM«, t00=0x0000, t01=0x0096}
0x00d2…0110 Head {h00=0x003a, h01=0x0050, text=»* MAIN FRAME, AND DISPLAYING THEM ON«, t00=0x0000, t01=0x00d6}
0x0110…0142 Head {h00=0x002e, h01=0x0050, text=»* THE VDU ( PTS 6344 ) .«, t00=0x0000, t01=0x0114}
0x0142…014c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0146}
0x014c…0198 Head {h00=0x0048, h01=0x0050, text=»********************************************************************«, t00=0x0000, t01=0x0150}
0x0198…01a2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x000c}
0x01a2…01ac Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x0016}
0x01ac…01ba Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0001, t01=0x0020}
0x01ba…01c4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x002e}
0x01c4…01ce Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x0038}
0x01ce…01e0 Head {h00=0x000e, h01=0x0050, text=»* ENTRIES «, t00=0x0001, t01=0x0042}
0x01e0…01ea Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x0054}
0x01ea…01f4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x005e}
0x01f4…0222 Head {h00=0x002a, h01=0x0050, text=» ENTRY TRPF TRANSMIT, PROGRAM FUNCTION«, t00=0x0001, t01=0x0068}
0x0222…0252 Head {h00=0x002c, h01=0x0050, text=» ENTRY TRPA TRANSMIT, PROGRAM ATTENTION «, t00=0x0001, t01=0x0096}
0x0252…027a Head {h00=0x0024, h01=0x0050, text=» ENTRY ERASE ERASE ENTIRE SCREEN«, t00=0x0001, t01=0x00c6}
0x027a…02a2 Head {h00=0x0024, h01=0x0050, text=» ENTRY SETCUR CURSOR POSITIONING«, t00=0x0001, t01=0x00ee}
0x02a2…02ce Head {h00=0x0028, h01=0x0050, text=» ENTRY ERASUP ERASE ALL UNPROTECTED «, t00=0x0001, t01=0x0116}
0x02ce…02f8 Head {h00=0x0026, h01=0x0050, text=» ENTRY DISPL DISPLAY MODIFIED DATA«, t00=0x0001, t01=0x0142}
0x02f8…032a Head {h00=0x002e, h01=0x0050, text=» ENTRY ERASUA ERASE UNPROTECTED TO ADDRESS«, t00=0x0001, t01=0x016c}
0x032a…035c Head {h00=0x002e, h01=0x0050, text=» ENTRY WCHAR WRITE ONE CHAR IN CURSOR POS «, t00=0x0002, t01=0x000e}
0x035c…0372 Head {h00=0x0012, h01=0x0050, text=» ENTRY VDTASK «, t00=0x0002, t01=0x0040}
0x0372…038e Head {h00=0x0018, h01=0x0050, text=» ENTRY DCRED,UPDATE «, t00=0x0002, t01=0x0056}
0x038e…03ba Head {h00=0x0028, h01=0x0050, text=» ENTRY REL:BU RELEASE RELEASE BUFFER«, t00=0x0002, t01=0x0072}
0x03ba…03e0 Head {h00=0x0022, h01=0x0050, text=» ENTRY GETT:A GET T:A ADDRESS «, t00=0x0002, t01=0x009e}
0x03e0…03ea Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x00c4}
0x03ea…03f4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x00ce}
0x03f4…0408 Head {h00=0x0010, h01=0x0050, text=»* EXTERNALS «, t00=0x0002, t01=0x00d8}
0x0408…0412 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x00ec}
0x0412…041c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x00f6}
0x041c…043e Head {h00=0x001e, h01=0x0050, text=» EXTRN LMP1ON,LMP1OF START«, t00=0x0002, t01=0x0100}
0x043e…0454 Head {h00=0x0012, h01=0x0050, text=» EXTRN ATMASB «, t00=0x0002, t01=0x0122}
0x0454…0470 Head {h00=0x0018, h01=0x0050, text=» EXTRN LMP3ON,LMP3OF«, t00=0x0002, t01=0x0138}
0x0470…0484 Head {h00=0x0010, h01=0x0050, text=» EXTRN EMULA«, t00=0x0002, t01=0x0154}
0x0484…048e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x0168}
0x048e…04a8 Head {h00=0x0016, h01=0x0050, text=» EXTRN SNBUSY PRT «, t00=0x0002, t01=0x0172}
0x04a8…04b2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x018c}
0x04b2…04e0 Head {h00=0x002a, h01=0x0050, text=» EXTRN I:EVA0 CREDIT EVALUATION TABLE «, t00=0x0003, t01=0x0008}
0x04e0…04ea Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x0036}
0x04ea…0500 Head {h00=0x0012, h01=0x0050, text=» EXTRN T:ATAB «, t00=0x0003, t01=0x0040}
0x0500…052a Head {h00=0x0026, h01=0x0050, text=» EXTRN U:BTAB DEF UWB BASE ADDRESS«, t00=0x0003, t01=0x0056}
0x052a…0554 Head {h00=0x0026, h01=0x0050, text=» EXTRN SELTAB SELECT ADDRESS TABLE«, t00=0x0003, t01=0x0080}
0x0554…0562 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0003, t01=0x00aa}
0x0562…056c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x00b8}
0x056c…0576 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x00c2}
0x0576…0588 Head {h00=0x000e, h01=0x0050, text=»* EQUATES «, t00=0x0003, t01=0x00cc}
0x0588…0592 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x00de}
0x0592…059c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x00e8}
0x059c…05ca Head {h00=0x002a, h01=0x0050, text=»TIMDC EQU 300 DC TIME OUT VALUE: 30 S «, t00=0x0003, t01=0x00f2}
0x05ca…05de Head {h00=0x0010, h01=0x0050, text=»ESC EQU /1B «, t00=0x0003, t01=0x0120}
0x05de…05f2 Head {h00=0x0010, h01=0x0050, text=»SBA EQU /11 «, t00=0x0003, t01=0x0134}
0x05f2…0616 Head {h00=0x0020, h01=0x0050, text=»NULL EQU /7F NULL CHARACTER «, t00=0x0003, t01=0x0148}
0x0616…0640 Head {h00=0x0026, h01=0x0050, text=»NEWLIN EQU /7E NEW LINE CHARACTER «, t00=0x0003, t01=0x016c}
0x0640…0668 Head {h00=0x0024, h01=0x0050, text=»ENDMES EQU /7D END MESSAGE CHAR «, t00=0x0004, t01=0x0008}
0x0668…068e Head {h00=0x0022, h01=0x0050, text=»FORMFD EQU /7C FORM FEED CHAR «, t00=0x0004, t01=0x0030}
0x068e…0698 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x0056}
0x0698…06a2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x0060}
0x06a2…06c8 Head {h00=0x0022, h01=0x0050, text=»* COMMON EQU FOR ECB HANDLING «, t00=0x0004, t01=0x006a}
0x06c8…06d2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x0090}
0x06d2…06da Head {h00=0x0004, h01=0x0050, t00=0x0004, t01=0x009a}
0x06da…06ee Head {h00=0x0010, h01=0x0050, text=»ECBBA EQU 2 «, t00=0x0004, t01=0x00a2}
0x06ee…0702 Head {h00=0x0010, h01=0x0050, text=»ECBRL EQU 4 «, t00=0x0004, t01=0x00b6}
0x0702…0716 Head {h00=0x0010, h01=0x0050, text=»ECBEL EQU 6 «, t00=0x0004, t01=0x00ca}
0x0716…072a Head {h00=0x0010, h01=0x0050, text=»ECBRC EQU 8 «, t00=0x0004, t01=0x00de}
0x072a…073e Head {h00=0x0010, h01=0x0050, text=»ECBCW EQU 10«, t00=0x0004, t01=0x00f2}
0x073e…074c Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0004, t01=0x0106}
0x074c…0756 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x0114}
0x0756…0760 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x011e}
0x0760…077a Head {h00=0x0016, h01=0x0050, text=»* CREDIT USED EQU «, t00=0x0004, t01=0x0128}
0x077a…0784 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x0142}
0x0784…078e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x014c}
0x078e…07aa Head {h00=0x0018, h01=0x0050, text=»* ECB REL. ADDRESSES«, t00=0x0004, t01=0x0156}
0x07aa…07b4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x0172}
0x07b4…07be Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x017c}
0x07be…07d0 Head {h00=0x000e, h01=0x0050, text=»DIS EQU 20«, t00=0x0004, t01=0x0186}
0x07d0…07da Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x0008}
0x07da…07f2 Head {h00=0x0014, h01=0x0050, text=»ECB1 EQU -DIS-8 «, t00=0x0005, t01=0x0012}
0x07f2…080c Head {h00=0x0016, h01=0x0050, text=»ECB2 EQU ECB1-DIS «, t00=0x0005, t01=0x002a}
0x080c…0826 Head {h00=0x0016, h01=0x0050, text=»ECB3 EQU ECB2-DIS «, t00=0x0005, t01=0x0044}
0x0826…0840 Head {h00=0x0016, h01=0x0050, text=»ECB4 EQU ECB3-DIS «, t00=0x0005, t01=0x005e}
0x0840…085a Head {h00=0x0016, h01=0x0050, text=»ECB5 EQU ECB4-DIS «, t00=0x0005, t01=0x0078}
0x085a…0864 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x0092}
0x0864…087a Head {h00=0x0012, h01=0x0050, text=»ECBDC EQU ECB1«, t00=0x0005, t01=0x009c}
0x087a…0892 Head {h00=0x0014, h01=0x0050, text=»ECBDCT EQU ECB2 «, t00=0x0005, t01=0x00b2}
0x0892…08aa Head {h00=0x0014, h01=0x0050, text=»ECBVDU EQU ECB3 «, t00=0x0005, t01=0x00ca}
0x08aa…08c0 Head {h00=0x0012, h01=0x0050, text=»ECBKB EQU ECB4«, t00=0x0005, t01=0x00e2}
0x08c0…08d6 Head {h00=0x0012, h01=0x0050, text=»ECBSD EQU ECB5«, t00=0x0005, t01=0x00f8}
0x08d6…08ec Head {h00=0x0012, h01=0x0050, text=»ECBPR EQU ECB3«, t00=0x0005, t01=0x010e}
0x08ec…08f6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x0124}
0x08f6…0900 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x012e}
0x0900…0926 Head {h00=0x0022, h01=0x0050, text=»* BASE ADDRESS FOR TCA AND ECB«, t00=0x0005, t01=0x0138}
0x0926…0930 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x015e}
0x0930…0946 Head {h00=0x0012, h01=0x0050, text=»TCABAS EQU A11«, t00=0x0005, t01=0x0168}
0x0946…0960 Head {h00=0x0016, h01=0x0050, text=»CREBAS EQU A13 ECB«, t00=0x0005, t01=0x017e}
0x0960…096e Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0006, t01=0x0008}
0x096e…0976 Head {h00=0x0004, h01=0x0050, t00=0x0006, t01=0x0016}
0x0976…0980 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x001e}
0x0980…098a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x0028}
0x098a…09a6 Head {h00=0x0018, h01=0x0050, text=»* TCA REL. ADDRESSES«, t00=0x0006, t01=0x0032}
0x09a6…09b0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x004e}
0x09b0…09c4 Head {h00=0x0010, h01=0x0050, text=»TCT01 EQU 0 «, t00=0x0006, t01=0x0058}
0x09c4…09e0 Head {h00=0x0018, h01=0x0050, text=»PRINTER EQU TCT01+2 «, t00=0x0006, t01=0x006c}
0x09e0…0a0c Head {h00=0x0028, h01=0x0050, text=»BVDU EQU PRINTER+2 VDU SCREEN BUFFER«, t00=0x0006, t01=0x0088}
0x0a0c…0a40 Head {h00=0x0030, h01=0x0050, text=»PCURS EQU BVDU+1920 CURSOR ADDRESS , BINARY «, t00=0x0006, t01=0x00b4}
0x0a40…0a6e Head {h00=0x002a, h01=0x0050, text=»ATTRIB EQU PCURS+2 LAST ATTRIBUTE CHAR«, t00=0x0006, t01=0x00e8}
0x0a6e…0a8a Head {h00=0x0018, h01=0x0050, text=»CURATT EQU ATTRIB+2 «, t00=0x0006, t01=0x0116}
0x0a8a…0ab4 Head {h00=0x0026, h01=0x0050, text=»WCC EQU CURATT+2 WCC/CCC CHARACTER«, t00=0x0006, t01=0x0132}
0x0ab4…0ae6 Head {h00=0x002e, h01=0x0050, text=»KBINH EQU WCC+2 KEYBOARD INHIBIT INDICATOR«, t00=0x0006, t01=0x015c}
0x0ae6…0b0e Head {h00=0x0024, h01=0x0050, text=»LINCNT EQU KBINH+2 LINE COUNTER «, t00=0x0006, t01=0x018e}
0x0b0e…0b42 Head {h00=0x0030, h01=0x0050, text=»DCLENG EQU LINCNT+2 DC READ EFFECTIVE LENGTH«, t00=0x0007, t01=0x0026}
0x0b42…0b74 Head {h00=0x002e, h01=0x0050, text=»DCADDR EQU DCLENG+2 DC SUBTERMINAL ADDRESS«, t00=0x0007, t01=0x005a}
0x0b74…0b90 Head {h00=0x0018, h01=0x0050, text=»TCTGPL EQU DCADDR+2 «, t00=0x0007, t01=0x008c}
0x0b90…0bc0 Head {h00=0x002c, h01=0x0050, text=»INTATT EQU TCTGPL+2 INTENSITY ATTRIBUTE «, t00=0x0007, t01=0x00a8}
0x0bc0…0be8 Head {h00=0x0024, h01=0x0050, text=»OFFFLG EQU INTATT+2 OFFLINE FLAG«, t00=0x0007, t01=0x00d8}
0x0be8…0c0c Head {h00=0x0020, h01=0x0050, text=»LOCK EQU OFFFLG+2 COPY LOCK «, t00=0x0007, t01=0x0100}
0x0c0c…0c3c Head {h00=0x002c, h01=0x0050, text=»VDUBSY EQU LOCK+2 VDU BUSY WHEN HARDCOPY«, t00=0x0007, t01=0x0124}
0x0c3c…0c6e Head {h00=0x002e, h01=0x0050, text=»COPNO EQU VDUBSY+2 HARDCOPY TASK IDENTITY «, t00=0x0007, t01=0x0154}
0x0c6e…0ca0 Head {h00=0x002e, h01=0x0050, text=»CRE EQU COPNO+2 CREDIT ECB:S BASE ADDRESS «, t00=0x0007, t01=0x0186}
0x0ca0…0cca Head {h00=0x0026, h01=0x0050, text=»VDUT.A EQU CRE+2 T:A BASE ADDRESS «, t00=0x0008, t01=0x0028}
0x0cca…0cfa Head {h00=0x002c, h01=0x0050, text=»CCC EQU VDUT.A+2 COPY COMMAND CHARACTER «, t00=0x0008, t01=0x0052}
0x0cfa…0d02 Head {h00=0x0004, h01=0x0050, t00=0x0008, t01=0x0082}
0x0d02…0d10 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0008, t01=0x008a}
0x0d10…0d18 Head {h00=0x0004, h01=0x0050, t00=0x0008, t01=0x0098}
0x0d18…0d22 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x00a0}
0x0d22…0d2c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x00aa}
0x0d2c…0d5a Head {h00=0x002a, h01=0x0050, text=»LBVDU EQU 1920 1920 CHARACTER DISPLAY «, t00=0x0008, t01=0x00b4}
0x0d5a…0d80 Head {h00=0x0022, h01=0x0050, text=»LPAGE EQU 48 LINES ON ONE PAGE«, t00=0x0008, t01=0x00e2}
0x0d80…0dae Head {h00=0x002a, h01=0x0050, text=»LLINE EQU 80 80 CHAR PER DISPLAY LINE «, t00=0x0008, t01=0x0108}
0x0dae…0de0 Head {h00=0x002e, h01=0x0050, text=»TID EQU -4 TASK IDENTITY T:A DISPLACEMENT «, t00=0x0008, t01=0x0136}
0x0de0…0dea Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x0168}
0x0dea…0df4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x0172}
0x0df4…0dfc Head {h00=0x0004, h01=0x0050, t00=0x0008, t01=0x017c}
0x0dfc…0e44 Head {h00=0x0044, h01=0x0050, text=»****************************************************************«, t00=0x0008, t01=0x0184}
0x0e44…0e4e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x003c}
0x0e4e…0e7a Head {h00=0x0028, h01=0x0050, text=»* CONDITIONAL ASSEMBLY PARAMETERS «, t00=0x0009, t01=0x0046}
0x0e7a…0e84 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x0072}
0x0e84…0eba Head {h00=0x0032, h01=0x0050, text=»**********************************************«, t00=0x0009, t01=0x007c}
0x0eba…0ec2 Head {h00=0x0004, h01=0x0050, t00=0x0009, t01=0x00b2}
0x0ec2…0ef6 Head {h00=0x0030, h01=0x0050, text=»COPL EQU 0 COPY LOCK USED IF SET TO " ONE " «, t00=0x0009, t01=0x00ba}
0x0ef6…0f26 Head {h00=0x002c, h01=0x0050, text=»OFLIN EQU 0 SHOULD ALWAYS BE SET TO ZERO«, t00=0x0009, t01=0x00ee}
0x0f26…0f34 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0009, t01=0x011e}
0x0f34…0f3e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x012c}
0x0f3e…0f48 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x0136}
0x0f48…0f80 Head {h00=0x0034, h01=0x0050, text=»* TABLE FOR CONVERSION OF EBCDIC 6 BIT INTERNAL «, t00=0x0009, t01=0x0140}
0x0f80…0f8a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x0178}
0x0f8a…0fa2 Head {h00=0x0014, h01=0x0050, text=»* CODE TO ASCII «, t00=0x0009, t01=0x0182}
0x0fa2…0fac Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x000a}
0x0fac…0fc0 Head {h00=0x0010, h01=0x0050, text=»TASCII EQU *«, t00=0x000a, t01=0x0014}
0x0fc0…0fee Head {h00=0x002a, h01=0x0050, text=» DATA /2041,/4243,/4445,/4647 /00-/07 «, t00=0x000a, t01=0x0028}
0x0fee…101c Head {h00=0x002a, h01=0x0050, text=» DATA /4849,/5B2E,/3C28,/2B21 /08-/0F «, t00=0x000a, t01=0x0056}
0x101c…104a Head {h00=0x002a, h01=0x0050, text=» DATA /264A,/4B4C,/4D4E,/4F50 /10-/17 «, t00=0x000a, t01=0x0084}
0x104a…1078 Head {h00=0x002a, h01=0x0050, text=» DATA /5152,/5D24,/2A29,/3B5E /18-/1F «, t00=0x000a, t01=0x00b2}
0x1078…10a6 Head {h00=0x002a, h01=0x0050, text=» DATA /2D2F,/5354,/5556,/5758 /20-/27 «, t00=0x000a, t01=0x00e0}
0x10a6…10d4 Head {h00=0x002a, h01=0x0050, text=» DATA /595A,/7C2C,/255F,/3E3F /28-/2F «, t00=0x000a, t01=0x010e}
0x10d4…1100 Head {h00=0x0028, h01=0x0050, text=» DATA /3031,/3233,/3435,/3637 /30-37«, t00=0x000a, t01=0x013c}
0x1100…112c Head {h00=0x0028, h01=0x0050, text=» DATA /3839,/3A23,/4027,/3D22 /38-3F«, t00=0x000a, t01=0x0168}
0x112c…113a (11, 0, 400) Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000b, t01=0x0004}
0x113a…1144 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x0012}
0x1144…114e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x001c}
0x114e…1186 Head {h00=0x0034, h01=0x0050, text=»* TABLE FOR CODE CONVERSION FROM ASCII TO EBCDIC«, t00=0x000b, t01=0x0026}
0x1186…1190 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x005e}
0x1190…11c8 Head {h00=0x0034, h01=0x0050, text=»* USED TO GET BINARY VALUES FROM THE EBCDIC CODE«, t00=0x000b, t01=0x0068}
0x11c8…11d2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x00a0}
0x11d2…1200 Head {h00=0x002a, h01=0x0050, text=»* INVALID CODES ARE CONVERTED TO ZEROS«, t00=0x000b, t01=0x00aa}
0x1200…120a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x00d8}
0x120a…1214 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x00e2}
0x1214…122a Head {h00=0x0012, h01=0x0050, text=»TEBCDIC EQU * «, t00=0x000b, t01=0x00ec}
0x122a…1248 Head {h00=0x001a, h01=0x0050, text=» DATA 0,0,0,0 /00-/07 «, t00=0x000b, t01=0x0102}
0x1248…1266 Head {h00=0x001a, h01=0x0050, text=» DATA 0,0,0,0 /08-/0F «, t00=0x000b, t01=0x0120}
0x1266…1284 Head {h00=0x001a, h01=0x0050, text=» DATA 0,0,0,0 /10-/17 «, t00=0x000b, t01=0x013e}
0x1284…12a0 Head {h00=0x0018, h01=0x0050, text=» DATA 0,0,0,0 /18-1F«, t00=0x000b, t01=0x015c}
0x12a0…12ce Head {h00=0x002a, h01=0x0050, text=» DATA /404F,/7F7B,/5B6C,/507D /20-/27 «, t00=0x000b, t01=0x0178}
0x12ce…12fc Head {h00=0x002a, h01=0x0050, text=» DATA /4D5D,/5C4E,/6B60,/4B61 /28-/2F «, t00=0x000c, t01=0x0016}
0x12fc…132a Head {h00=0x002a, h01=0x0050, text=» DATA /F0F1,/F2F3,/F4F5,/F6F7 /30-/38 «, t00=0x000c, t01=0x0044}
0x132a…1358 Head {h00=0x002a, h01=0x0050, text=» DATA /F8F9,/7A5E,/4C7E,/6E6F /39-/3F «, t00=0x000c, t01=0x0072}
0x1358…1386 Head {h00=0x002a, h01=0x0050, text=» DATA /7CC1,/C2C3,/C4C5,/C6C7 /40-/47 «, t00=0x000c, t01=0x00a0}
0x1386…13b4 Head {h00=0x002a, h01=0x0050, text=» DATA /C8C9,/D1D2,/D3D4,/D5D6 /48-/4F «, t00=0x000c, t01=0x00ce}
0x13b4…13e0 Head {h00=0x0028, h01=0x0050, text=» DATA /D7D8,/D9E2,/E3E4,/E5E6 /50-57«, t00=0x000c, t01=0x00fc}
0x13e0…140e Head {h00=0x002a, h01=0x0050, text=» DATA /E7E8,/E94A,/005A,/5F6D /58-/5F «, t00=0x000c, t01=0x0128}
0x140e…143c Head {h00=0x002a, h01=0x0050, text=» DATA /0081,/8283,/8485,/8687 /60-/67 «, t00=0x000c, t01=0x0156}
0x143c…146a Head {h00=0x002a, h01=0x0050, text=» DATA /8889,/9192,/9394,/9596 /68-/6F «, t00=0x000c, t01=0x0184}
0x146a…1498 Head {h00=0x002a, h01=0x0050, text=» DATA /9798,/99A2,/A3A4,/A5A6 /70-/77 «, t00=0x000d, t01=0x0022}
0x1498…14c6 Head {h00=0x002a, h01=0x0050, text=» DATA /A7A8,/A900,/6A00,/0000 /78-/7F «, t00=0x000d, t01=0x0050}
0x14c6…14d4 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000d, t01=0x007e}
0x14d4…14de Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x008c}
0x14de…14e8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x0096}
0x14e8…1506 Head {h00=0x001a, h01=0x0050, text=»* GET TRANSMIT BUFFER «, t00=0x000d, t01=0x00a0}
0x1506…1510 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x00be}
0x1510…1530 Head {h00=0x001c, h01=0x0050, text=»* ON EXIT A1=RETURN CODE«, t00=0x000d, t01=0x00c8}
0x1530…1556 Head {h00=0x0022, h01=0x0050, text=»* A7=BUFFER ADDRESS+2 «, t00=0x000d, t01=0x00e8}
0x1556…157a Head {h00=0x0020, h01=0x0050, text=»* A8=DC ECB ADDRESS «, t00=0x000d, t01=0x010e}
0x157a…15aa Head {h00=0x002c, h01=0x0050, text=»* A9=2=BUFFER CHARACTER COUNTER «, t00=0x000d, t01=0x0132}
0x15aa…15b4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x0162}
0x15b4…15be Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x016c}
0x15be…15da Head {h00=0x0018, h01=0x0050, text=»GTBUF LDKL A8,ECBDC «, t00=0x000d, t01=0x0176}
0x15da…15f0 (14, 0, 400) Head {h00=0x0012, h01=0x0050, text=» ADR A8,CREBAS«, t00=0x000e, t01=0x0004}
0x15f0…1606 Head {h00=0x0012, h01=0x0050, text=» LDKL A7,TIMDC«, t00=0x000e, t01=0x001a}
0x1606…1630 Head {h00=0x0026, h01=0x0050, text=» ST A7,ECBCW,A8 SET TIME OUT VALUE«, t00=0x000e, t01=0x0030}
0x1630…165e Head {h00=0x002a, h01=0x0050, text=» LDK A7,/B1 GET TRANSMIT BUFFER ORDER «, t00=0x000e, t01=0x005a}
0x165e…166a Head {h00=0x0008, h01=0x0050, text=» LKM«, t00=0x000e, t01=0x0088}
0x166a…167a Head {h00=0x000c, h01=0x0050, text=» DATA 1 «, t00=0x000e, t01=0x0094}
0x167a…16a6 Head {h00=0x0028, h01=0x0050, text=» LD A7,ECBBA,A8 GET TRANSMIT BUFFER «, t00=0x000e, t01=0x00a4}
0x16a6…16c8 Head {h00=0x001e, h01=0x0050, text=» ADK A7,2 SKIP FIRST WORD «, t00=0x000e, t01=0x00d0}
0x16c8…16f0 Head {h00=0x0024, h01=0x0050, text=» LDKL A9,2 SET CHARACTER COUNTER«, t00=0x000e, t01=0x00f2}
0x16f0…1718 Head {h00=0x0024, h01=0x0050, text=» LD A1,ECBRC,A8 GET RETURN CODE «, t00=0x000e, t01=0x011a}
0x1718…1728 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x000e, t01=0x0142}
0x1728…1736 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000e, t01=0x0152}
0x1736…1740 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x0160}
0x1740…174a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x016a}
0x174a…1770 Head {h00=0x0022, h01=0x0050, text=»* STORE CHARACTER IN DC BUFFER«, t00=0x000e, t01=0x0174}
0x1770…177a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x000a}
0x177a…178c Head {h00=0x000e, h01=0x0050, text=»* A2=CHAR «, t00=0x000f, t01=0x0014}
0x178c…17a8 Head {h00=0x0018, h01=0x0050, text=»* A7=BUFFER POINTER «, t00=0x000f, t01=0x0026}
0x17a8…17c0 Head {h00=0x0014, h01=0x0050, text=»* A8=ECB ADDRESS«, t00=0x000f, t01=0x0042}
0x17c0…17e6 Head {h00=0x0022, h01=0x0050, text=»* A9=BUFFER CHARACTER COUNTER «, t00=0x000f, t01=0x005a}
0x17e6…180c Head {h00=0x0022, h01=0x0050, text=»* ECBEL CONTAINS BUFFER LENGTH«, t00=0x000f, t01=0x0080}
0x180c…1816 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x00a6}
0x1816…1820 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x00b0}
0x1820…183c Head {h00=0x0018, h01=0x0050, text=»PDCCH CW A9,ECBEL,A8«, t00=0x000f, t01=0x00ba}
0x183c…185a Head {h00=0x001a, h01=0x0050, text=» RF(G) PDCCHR OVERFLOW«, t00=0x000f, t01=0x00d6}
0x185a…186c Head {h00=0x000e, h01=0x0050, text=» SCR A2,A7«, t00=0x000f, t01=0x00f4}
0x186c…1880 Head {h00=0x0010, h01=0x0050, text=»PDCCH1 EQU *«, t00=0x000f, t01=0x0106}
0x1880…1892 Head {h00=0x000e, h01=0x0050, text=» ADK A7,1 «, t00=0x000f, t01=0x011a}
0x1892…18a4 Head {h00=0x000e, h01=0x0050, text=» ADKL A9,1«, t00=0x000f, t01=0x012c}
0x18a4…18ba Head {h00=0x0012, h01=0x0050, text=»PDCCHR RTN A14«, t00=0x000f, t01=0x013e}
0x18ba…18c4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x0154}
0x18c4…18ce Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x015e}
0x18ce…18f2 Head {h00=0x0020, h01=0x0050, text=»* STORE ATTENTION ID FROM A2«, t00=0x000f, t01=0x0168}
0x18f2…18fc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x018c}
0x18fc…1906 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x0008}
0x1906…1920 Head {h00=0x0016, h01=0x0050, text=»PAID CF A14,PDCCH «, t00=0x0010, t01=0x0012}
0x1920…1930 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0010, t01=0x002c}
0x1930…193a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x003c}
0x193a…1944 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x0046}
0x1944…1970 Head {h00=0x0028, h01=0x0050, text=»* GET CHARACTER FROM DC BUFFER TO A2«, t00=0x0010, t01=0x0050}
0x1970…197a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x007c}
0x197a…1984 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x0086}
0x1984…199c Head {h00=0x0014, h01=0x0050, text=»GDCCH LCR A2,A7 «, t00=0x0010, t01=0x0090}
0x199c…19b0 Head {h00=0x0010, h01=0x0050, text=» ANK A2,/FF «, t00=0x0010, t01=0x00a8}
0x19b0…19ee Head {h00=0x003a, h01=0x0050, text=»******************************************* 78-08-15 «, t00=0x0010, t01=0x00bc}
0x19ee…1a18 Head {h00=0x0026, h01=0x0050, text=» RF(NZ) GDCC:1 NOT NULL CHARACTER «, t00=0x0010, t01=0x00fa}
0x1a18…1a40 Head {h00=0x0024, h01=0x0050, text=» LDK A2,/7F REPLACE BY PTS NULL «, t00=0x0010, t01=0x0124}
0x1a40…1a7e Head {h00=0x003a, h01=0x0050, text=»******************************************* 78-08-15 «, t00=0x0010, t01=0x014c}
0x1a7e…1a92 Head {h00=0x0010, h01=0x0050, text=»GDCC:1 EQU *«, t00=0x0010, t01=0x018a}
0x1a92…1aa4 Head {h00=0x000e, h01=0x0050, text=» RB PDCCH1«, t00=0x0011, t01=0x000e}
0x1aa4…1ab2 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0011, t01=0x0020}
0x1ab2…1abc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x002e}
0x1abc…1ac6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x0038}
0x1ac6…1af8 Head {h00=0x002e, h01=0x0050, text=»* GET BUFFER ADDRESS TO A1 FROM DC BUFFER «, t00=0x0011, t01=0x0042}
0x1af8…1b02 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x0074}
0x1b02…1b0c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x007e}
0x1b0c…1b28 Head {h00=0x0018, h01=0x0050, text=»GETADR CF A14,GDCCH «, t00=0x0011, t01=0x0088}
0x1b28…1b40 Head {h00=0x0014, h01=0x0050, text=» LC A1,TEBCDI,A2«, t00=0x0011, t01=0x00a4}
0x1b40…1b54 Head {h00=0x0010, h01=0x0050, text=» ANK A1,/3F «, t00=0x0011, t01=0x00bc}
0x1b54…1b66 Head {h00=0x000e, h01=0x0050, text=» SLL A1,6 «, t00=0x0011, t01=0x00d0}
0x1b66…1b7c Head {h00=0x0012, h01=0x0050, text=» CF A14,GDCCH «, t00=0x0011, t01=0x00e2}
0x1b7c…1b94 Head {h00=0x0014, h01=0x0050, text=» LC A2,TEBCDI,A2«, t00=0x0011, t01=0x00f8}
0x1b94…1ba8 Head {h00=0x0010, h01=0x0050, text=» ANK A2,/3F «, t00=0x0011, t01=0x0110}
0x1ba8…1bba Head {h00=0x000e, h01=0x0050, text=» ORR A1,A2«, t00=0x0011, t01=0x0124}
0x1bba…1bca Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0011, t01=0x0136}
0x1bca…1bd8 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0011, t01=0x0146}
0x1bd8…1be2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x0154}
0x1be2…1bec Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x015e}
0x1bec…1c14 Head {h00=0x0024, h01=0x0050, text=»* WRITE MESSAGE WITH MAIN FRAME «, t00=0x0011, t01=0x0168}
0x1c14…1c1e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x0190}
0x1c1e…1c48 Head {h00=0x0026, h01=0x0050, text=»* ON EXIT A1 CONTAINS RETURN CODE «, t00=0x0012, t01=0x000a}
0x1c48…1c52 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x0034}
0x1c52…1c5c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x003e}
0x1c5c…1c90 Head {h00=0x0030, h01=0x0050, text=»DCEXCH ST A9,ECBRL,A8 STORE REQUESTED LENGTH«, t00=0x0012, t01=0x0048}
0x1c90…1cac Head {h00=0x0018, h01=0x0050, text=» LD A7,KBINH,TCABAS «, t00=0x0012, t01=0x007c}
0x1cac…1ce8 Head {h00=0x0038, h01=0x0050, text=» ORK A7,2 BIT 14 :=1 DISABLE KEYBOARD.RESET ALLOWED «, t00=0x0012, t01=0x0098}
0x1ce8…1d04 Head {h00=0x0018, h01=0x0050, text=» ST A7,KBINH,TCABAS «, t00=0x0012, t01=0x00d4}
0x1d04…1d18 Head {h00=0x0010, h01=0x0050, text=» LDK A7,/86 «, t00=0x0012, t01=0x00f0}
0x1d18…1d2c Head {h00=0x0010, h01=0x0050, text=»DC100 EQU * «, t00=0x0012, t01=0x0104}
0x1d2c…1d38 Head {h00=0x0008, h01=0x0050, text=» LKM«, t00=0x0012, t01=0x0118}
0x1d38…1d48 Head {h00=0x000c, h01=0x0050, text=» DATA 1 «, t00=0x0012, t01=0x0124}
0x1d48…1d5c Head {h00=0x0010, h01=0x0050, text=»DC200 EQU * «, t00=0x0012, t01=0x0134}
0x1d5c…1d84 Head {h00=0x0024, h01=0x0050, text=» LD A1,ECBRC,A8 GET RETURN CODE «, t00=0x0012, t01=0x0148}
0x1d84…1d96 Head {h00=0x000e, h01=0x0050, text=» LDR A1,A1«, t00=0x0012, t01=0x0170}
0x1d96…1daa Head {h00=0x0010, h01=0x0050, text=» RF(Z) DC300«, t00=0x0012, t01=0x0182}
0x1daa…1dc6 Head {h00=0x0018, h01=0x0050, text=» LD A7,KBINH,TCABAS «, t00=0x0013, t01=0x0008}
0x1dc6…1df2 Head {h00=0x0028, h01=0x0050, text=» ANK A7,/D BIT 14:=0 ALLIWE KEYBOARD«, t00=0x0013, t01=0x0024}
0x1df2…1e0e Head {h00=0x0018, h01=0x0050, text=» ST A7,KBINH,TCABAS «, t00=0x0013, t01=0x0050}
0x1e0e…1e42 Head {h00=0x0030, h01=0x0050, text=» CF A14,LMP1OF TURN OFF "KEYBOARD INHIBIT"" «, t00=0x0013, t01=0x006c}
0x1e42…1e74 Head {h00=0x002e, h01=0x0050, text=» CF A14,LMP3ON TURN OFF "SYSTEM AVAILABLE «, t00=0x0013, t01=0x00a0}
0x1e74…1e7e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x00d2}
0x1e7e…1eac Head {h00=0x002a, h01=0x0050, text=» LDK A7,/04 RESET KEYBOARD ECB BUFFER «, t00=0x0013, t01=0x00dc}
0x1eac…1ec2 Head {h00=0x0012, h01=0x0050, text=» LDKL A8,ECBKB«, t00=0x0013, t01=0x010a}
0x1ec2…1ed8 Head {h00=0x0012, h01=0x0050, text=» ADR A8,CREBAS«, t00=0x0013, t01=0x0120}
0x1ed8…1ee4 Head {h00=0x0008, h01=0x0050, text=» LKM«, t00=0x0013, t01=0x0136}
0x1ee4…1ef4 Head {h00=0x000c, h01=0x0050, text=» DATA 1 «, t00=0x0013, t01=0x0142}
0x1ef4…1efe Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x0152}
0x1efe…1f0e Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0013, t01=0x015c}
0x1f0e…1f22 Head {h00=0x0010, h01=0x0050, text=»DC300 EQU * «, t00=0x0013, t01=0x016c}
0x1f22…1f54 Head {h00=0x002e, h01=0x0050, text=» CF A14,LMP3OF TURN ON 'SYSTEM AVAILABLE' «, t00=0x0013, t01=0x0180}
0x1f54…1f64 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0014, t01=0x0022}
0x1f64…1f72 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0014, t01=0x0032}
0x1f72…1f7c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x0040}
0x1f7c…1f86 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x004a}
0x1f86…1faa Head {h00=0x0020, h01=0x0050, text=»* READ MESSAGE FROM DC LINE «, t00=0x0014, t01=0x0054}
0x1faa…1fb4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x0078}
0x1fb4…1fe2 Head {h00=0x002a, h01=0x0050, text=»* ON ENTRY A1 CONTAINS TIME OUT VALUE «, t00=0x0014, t01=0x0082}
0x1fe2…200c Head {h00=0x0026, h01=0x0050, text=»* ON EXIT A1 CONTAINS RETURN CODE«, t00=0x0014, t01=0x00b0}
0x200c…2016 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x00da}
0x2016…2020 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x00e4}
0x2020…203c Head {h00=0x0018, h01=0x0050, text=»DCRED LDKL A8,ECBDCT«, t00=0x0014, t01=0x00ee}
0x203c…205e Head {h00=0x001e, h01=0x0050, text=» ADR A8,CREBAS ECBADDRESS «, t00=0x0014, t01=0x010a}
0x205e…2088 Head {h00=0x0026, h01=0x0050, text=» ST A1,ECBCW,A8 SET TIME OUT VALUE«, t00=0x0014, t01=0x012c}
0x2088…20aa Head {h00=0x001e, h01=0x0050, text=» LDK A7,/82 READ WITH WAIT«, t00=0x0014, t01=0x0156}
0x20aa…20b6 Head {h00=0x0008, h01=0x0050, text=» LKM«, t00=0x0014, t01=0x0178}
0x20b6…20c6 Head {h00=0x000c, h01=0x0050, text=» DATA 1 «, t00=0x0014, t01=0x0184}
0x20c6…20de (21, 0, 400) Head {h00=0x0014, h01=0x0050, text=» LD A1,ECBEL,A8 «, t00=0x0015, t01=0x0004}
0x20de…20fa Head {h00=0x0018, h01=0x0050, text=» ST A1,DCLENG,TCABAS«, t00=0x0015, t01=0x001c}
0x20fa…2112 Head {h00=0x0014, h01=0x0050, text=» LD A1,ECBRC,A8 «, t00=0x0015, t01=0x0038}
0x2112…2122 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0015, t01=0x0050}
0x2122…2130 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0015, t01=0x0060}
0x2130…213a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x006e}
0x213a…2144 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x0078}
0x2144…2170 Head {h00=0x0028, h01=0x0050, text=»* STORE CURSOR ADDRESS IN DC BUFFER «, t00=0x0015, t01=0x0082}
0x2170…217a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x00ae}
0x217a…2184 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x00b8}
0x2184…21a4 Head {h00=0x001c, h01=0x0050, text=»CURSA LD A1,PCURS,TCABAS«, t00=0x0015, t01=0x00c2}
0x21a4…21b6 Head {h00=0x000e, h01=0x0050, text=» RF BUFADR«, t00=0x0015, t01=0x00e2}
0x21b6…21c0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x00f4}
0x21c0…21ca Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x00fe}
0x21ca…21f6 Head {h00=0x0028, h01=0x0050, text=»* STORE BUFFER ADDRESS IN DC BUFFER «, t00=0x0015, t01=0x0108}
0x21f6…2200 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x0134}
0x2200…2222 Head {h00=0x001e, h01=0x0050, text=»* A1=BINARY BUFFER ADDRESS«, t00=0x0015, t01=0x013e}
0x2222…222c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x0160}
0x222c…2236 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x016a}
0x2236…224e Head {h00=0x0014, h01=0x0050, text=»BUFADR LDR A2,A1«, t00=0x0015, t01=0x0174}
0x224e…2260 Head {h00=0x000e, h01=0x0050, text=» SRL A2,6 «, t00=0x0015, t01=0x018c}
0x2260…2274 Head {h00=0x0010, h01=0x0050, text=» ANK A2,/3F «, t00=0x0016, t01=0x000e}
0x2274…229e Head {h00=0x0026, h01=0x0050, text=» LC A2,TASCII,A2 CONVERT TO ASCII «, t00=0x0016, t01=0x0022}
0x229e…22b4 Head {h00=0x0012, h01=0x0050, text=» CF A14,PDCCH «, t00=0x0016, t01=0x004c}
0x22b4…22c6 Head {h00=0x000e, h01=0x0050, text=» LDR A2,A1«, t00=0x0016, t01=0x0062}
0x22c6…22da Head {h00=0x0010, h01=0x0050, text=» ANK A2,/3F «, t00=0x0016, t01=0x0074}
0x22da…22f2 Head {h00=0x0014, h01=0x0050, text=» LC A2,TASCII,A2«, t00=0x0016, t01=0x0088}
0x22f2…2308 Head {h00=0x0012, h01=0x0050, text=» CF A14,PDCCH «, t00=0x0016, t01=0x00a0}
0x2308…2318 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0016, t01=0x00b6}
0x2318…2326 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0016, t01=0x00c6}
0x2326…2330 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0016, t01=0x00d4}
0x2330…233a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0016, t01=0x00de}
0x233a…2370 Head {h00=0x0032, h01=0x0050, text=»* GET MODIFIED DATA FROM DISPLAY IMAGE BUFFER «, t00=0x0016, t01=0x00e8}
0x2370…237a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0016, t01=0x011e}
0x237a…239e Head {h00=0x0020, h01=0x0050, text=»* A3=BUFFER POSITION BINARY «, t00=0x0016, t01=0x0128}
0x239e…23ba Head {h00=0x0018, h01=0x0050, text=»* A4=BUFFER POINTER «, t00=0x0016, t01=0x014c}
0x23ba…23c4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0016, t01=0x0168}
0x23c4…23ce Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0016, t01=0x0172}
0x23ce…23f4 Head {h00=0x0022, h01=0x0050, text=»RDMOD LDK A3,0 RESET POSITION «, t00=0x0016, t01=0x017c}
0x23f4…240a Head {h00=0x0012, h01=0x0050, text=» LDKL A4,BVDU «, t00=0x0017, t01=0x0012}
0x240a…2430 Head {h00=0x0022, h01=0x0050, text=» ADR A4,TCABAS BUFFER POINTER «, t00=0x0017, t01=0x0028}
0x2430…2474 Head {h00=0x0040, h01=0x0050, text=»************************************************************«, t00=0x0017, t01=0x004e}
0x2474…249e Head {h00=0x0026, h01=0x0050, text=» ADKL A4,1919 LAST SCREEN POSITION«, t00=0x0017, t01=0x0092}
0x249e…24be Head {h00=0x001c, h01=0x0050, text=» LCR A2,A4 GET CHARACTER«, t00=0x0017, t01=0x00bc}
0x24be…24f0 Head {h00=0x002e, h01=0x0050, text=» LDKL A4,BVDU RELOAD FIRST BUFFER POSITION«, t00=0x0017, t01=0x00dc}
0x24f0…2506 Head {h00=0x0012, h01=0x0050, text=» ADR A4,TCABAS«, t00=0x0017, t01=0x010e}
0x2506…2544 Head {h00=0x003a, h01=0x0050, text=»******************************************* 78-08-15 «, t00=0x0017, t01=0x0124}
0x2544…2556 Head {h00=0x000e, h01=0x0050, text=» LDR A1,A2«, t00=0x0017, t01=0x0162}
0x2556…2580 Head {h00=0x0026, h01=0x0050, text=» ANK A1,/60 ATTRIBUTE CHARACTER ??«, t00=0x0017, t01=0x0174}
0x2580…259c Head {h00=0x0018, h01=0x0050, text=» RF(Z) RD200 YES!!! «, t00=0x0018, t01=0x000e}
0x259c…25da Head {h00=0x003a, h01=0x0050, text=»******************************************* 78-08-15 «, t00=0x0018, t01=0x002a}
0x25da…261e Head {h00=0x0040, h01=0x0050, text=»************************************************************«, t00=0x0018, t01=0x0068}
0x261e…2638 Head {h00=0x0016, h01=0x0050, text=»RD100 CWK A3,LBVDU«, t00=0x0018, t01=0x00ac}
0x2638…265c Head {h00=0x0020, h01=0x0050, text=» RF(NL) RDMODE ALL EXAMINED «, t00=0x0018, t01=0x00c6}
0x265c…2678 Head {h00=0x0018, h01=0x0050, text=» LCR A2,A4 GET CHAR «, t00=0x0018, t01=0x00ea}
0x2678…268a Head {h00=0x000e, h01=0x0050, text=» ADK A3,1 «, t00=0x0018, t01=0x0106}
0x268a…269c Head {h00=0x000e, h01=0x0050, text=» ADK A4,1 «, t00=0x0018, t01=0x0118}
0x269c…26e0 Head {h00=0x0040, h01=0x0050, text=»************************************************************«, t00=0x0018, t01=0x012a}
0x26e0…26f4 Head {h00=0x0010, h01=0x0050, text=»RD105 EQU * «, t00=0x0018, t01=0x016e}
0x26f4…2738 Head {h00=0x0040, h01=0x0050, text=»************************************************************«, t00=0x0018, t01=0x0182}
0x2738…274a Head {h00=0x000e, h01=0x0050, text=» LDR A1,A2«, t00=0x0019, t01=0x0036}
0x274a…275e Head {h00=0x0010, h01=0x0050, text=» ANK A1,/60 «, t00=0x0019, t01=0x0048}
0x275e…2782 Head {h00=0x0020, h01=0x0050, text=» RF(Z) RD200 ATTRIBUTE CHAR «, t00=0x0019, t01=0x005c}
0x2782…279c Head {h00=0x0016, h01=0x0050, text=»RD110 CWK A2,NULL «, t00=0x0019, t01=0x0080}
0x279c…27c2 Head {h00=0x0022, h01=0x0050, text=» RB(E) RD100 DON'T STORE NULL «, t00=0x0019, t01=0x009a}
0x27c2…27f0 Head {h00=0x002a, h01=0x0050, text=» CF A14,PDCCH STORE CHAR IN DC BUFFER «, t00=0x0019, t01=0x00c0}
0x27f0…2802 Head {h00=0x000e, h01=0x0050, text=» RB RD100 «, t00=0x0019, t01=0x00ee}
0x2802…2826 Head {h00=0x0020, h01=0x0050, text=»RD200 ANK A2,1 CHECK MDT BIT«, t00=0x0019, t01=0x0100}
0x2826…284a Head {h00=0x0020, h01=0x0050, text=» RF(NZ) RD300 MODIFIED FIELD«, t00=0x0019, t01=0x0124}
0x284a…2864 Head {h00=0x0016, h01=0x0050, text=»RD210 CWK A3,LBVDU«, t00=0x0019, t01=0x0148}
0x2864…2888 Head {h00=0x0020, h01=0x0050, text=» RF(NL) RDMODE ALL EXAMINED «, t00=0x0019, t01=0x0162}
0x2888…289a Head {h00=0x000e, h01=0x0050, text=» LCR A2,A4«, t00=0x0019, t01=0x0186}
0x289a…28ac Head {h00=0x000e, h01=0x0050, text=» ADK A3,1 «, t00=0x001a, t01=0x0008}
0x28ac…28be Head {h00=0x000e, h01=0x0050, text=» ADK A4,1 «, t00=0x001a, t01=0x001a}
0x28be…28d0 Head {h00=0x000e, h01=0x0050, text=» LDR A1,A2«, t00=0x001a, t01=0x002c}
0x28d0…28e4 Head {h00=0x0010, h01=0x0050, text=» ANK A1,/60 «, t00=0x001a, t01=0x003e}
0x28e4…290c Head {h00=0x0024, h01=0x0050, text=» RB(NZ) RD210 NO ATTRIBUTE CHAR «, t00=0x001a, t01=0x0052}
0x290c…2956 Head {h00=0x0046, h01=0x0050, text=»******************************************************** 78-05-11«, t00=0x001a, t01=0x007a}
0x2956…2984 Head {h00=0x002a, h01=0x0050, text=» CWK A3,LBVDU ALL BUFFER EXAMINED ??? «, t00=0x001a, t01=0x00c4}
0x2984…29a0 Head {h00=0x0018, h01=0x0050, text=» RF(NL) RDMODE YES!!«, t00=0x001a, t01=0x00f2}
0x29a0…29ea Head {h00=0x0046, h01=0x0050, text=»******************************************************** 78-05-11«, t00=0x001a, t01=0x010e}
0x29ea…2a0c Head {h00=0x001e, h01=0x0050, text=» RB RD200 ATTRIBUTE FOUND «, t00=0x001a, t01=0x0158}
0x2a0c…2a24 Head {h00=0x0014, h01=0x0050, text=»RD300 LDK A2,SBA«, t00=0x001a, t01=0x017a}
0x2a24…2a4a (27, 0, 400) Head {h00=0x0022, h01=0x0050, text=» CF A14,PDCCH SBA TO DC BUFFER«, t00=0x001b, t01=0x0004}
0x2a4a…2a6c Head {h00=0x001e, h01=0x0050, text=» LDR A1,A3 BUFFER POSITION«, t00=0x001b, t01=0x002a}
0x2a6c…2a90 Head {h00=0x0020, h01=0x0050, text=» CF A14,BUFADR TO DC BUFFER «, t00=0x001b, t01=0x004c}
0x2a90…2aa2 Head {h00=0x000e, h01=0x0050, text=» RB RD100 «, t00=0x001b, t01=0x0070}
0x2aa2…2ab8 Head {h00=0x0012, h01=0x0050, text=»RDMODE RTN A14«, t00=0x001b, t01=0x0082}
0x2ab8…2ac6 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x001b, t01=0x0098}
0x2ac6…2ad0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001b, t01=0x00a6}
0x2ad0…2ada Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001b, t01=0x00b0}
0x2ada…2b12 Head {h00=0x0034, h01=0x0050, text=»* UPDATE VIDEO DISPLAY BUFFER IMAGE BY THE DATA «, t00=0x001b, t01=0x00ba}
0x2b12…2b1c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001b, t01=0x00f2}
0x2b1c…2b40 Head {h00=0x0020, h01=0x0050, text=»* RECEIVED FROM THE DC LINE «, t00=0x001b, t01=0x00fc}
0x2b40…2b4a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001b, t01=0x0120}
0x2b4a…2b54 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001b, t01=0x012a}
0x2b54…2b7a Head {h00=0x0022, h01=0x0050, text=»* A7=DC RECEIVE BUFFER POINTER«, t00=0x001b, t01=0x0134}
0x2b7a…2b96 Head {h00=0x0018, h01=0x0050, text=»* A8=DC ECB ADDRESS «, t00=0x001b, t01=0x015a}
0x2b96…2bc2 Head {h00=0x0028, h01=0x0050, text=»* A9=DC BUFFER INDEX, INITIALLY ZERO«, t00=0x001b, t01=0x0176}
0x2bc2…2bcc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001c, t01=0x0012}
0x2bcc…2bf0 Head {h00=0x0020, h01=0x0050, text=»* A3=DISPLAY BUFFER POSITION«, t00=0x001c, t01=0x001c}
0x2bf0…2c14 Head {h00=0x0020, h01=0x0050, text=»* A4=DISPLAY BUFFER POINTER «, t00=0x001c, t01=0x0040}
0x2c14…2c1e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001c, t01=0x0064}
0x2c1e…2c28 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001c, t01=0x006e}
0x2c28…2c46 Head {h00=0x001a, h01=0x0050, text=»UPDATE LDKL A8,ECBDCT «, t00=0x001c, t01=0x0078}
0x2c46…2c68 Head {h00=0x001e, h01=0x0050, text=» ADR A8,CREBAS ECB ADDRESS«, t00=0x001c, t01=0x0096}
0x2c68…2c92 Head {h00=0x0026, h01=0x0050, text=» LD A7,ECBBA,A8 DC BUFFER ADDRESS «, t00=0x001c, t01=0x00b8}
0x2c92…2cba Head {h00=0x0024, h01=0x0050, text=» SUR A9,A9 RESET DC BUFFER INDEX«, t00=0x001c, t01=0x00e2}
0x2cba…2cee Head {h00=0x0030, h01=0x0050, text=» CF A14,GDCCH GET FIRST CHAR FROM DC BUFFER «, t00=0x001c, t01=0x010a}
0x2cee…2d12 Head {h00=0x0020, h01=0x0050, text=» CWK A2,ESC SHOULD BE ESCAPE«, t00=0x001c, t01=0x013e}
0x2d12…2d34 Head {h00=0x001e, h01=0x0050, text=» RF(NE) UPDEND NOT ESCAPE «, t00=0x001c, t01=0x0162}
0x2d34…2d48 Head {h00=0x0010, h01=0x0050, text=»UPD010 EQU *«, t00=0x001c, t01=0x0184}
0x2d48…2d6e Head {h00=0x0022, h01=0x0050, text=» CF A14,GDCCH GET COMMAND CODE«, t00=0x001d, t01=0x0008}
0x2d6e…2d82 Head {h00=0x0010, h01=0x0050, text=» CWK A2,/31 «, t00=0x001d, t01=0x002e}
0x2d82…2d9e Head {h00=0x0018, h01=0x0050, text=» RF(E) UPD100 WRITE «, t00=0x001d, t01=0x0042}
0x2d9e…2db2 Head {h00=0x0010, h01=0x0050, text=» CWK A2,/35 «, t00=0x001d, t01=0x005e}
0x2db2…2dd4 Head {h00=0x001e, h01=0x0050, text=» RF(E) UPD120 ERASE/WRITE «, t00=0x001d, t01=0x0072}
0x2dd4…2de8 Head {h00=0x0010, h01=0x0050, text=» CWK A2,/3F «, t00=0x001d, t01=0x0094}
0x2de8…2e14 Head {h00=0x0028, h01=0x0050, text=» RF(E) UPD140 ERASE ALL UNPROTECTED «, t00=0x001d, t01=0x00a8}
0x2e14…2e28 Head {h00=0x0010, h01=0x0050, text=» CWK A2,/37 «, t00=0x001d, t01=0x00d4}
0x2e28…2e44 Head {h00=0x0018, h01=0x0050, text=» ABL(E) UPD600 COPY «, t00=0x001d, t01=0x00e8}
0x2e44…2e6c Head {h00=0x0024, h01=0x0050, text=» RF UPDEND INVALID COMMAND CODE «, t00=0x001d, t01=0x0104}
0x2e6c…2e7a Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x001d, t01=0x012c}
0x2e7a…2e84 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001d, t01=0x013a}
0x2e84…2e9c Head {h00=0x0014, h01=0x0050, text=»* WRITE COMMAND «, t00=0x001d, t01=0x0144}
0x2e9c…2ea6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001d, t01=0x015c}
0x2ea6…2eba Head {h00=0x0010, h01=0x0050, text=»UPD100 EQU *«, t00=0x001d, t01=0x0166}
0x2eba…2ee6 Head {h00=0x0028, h01=0x0050, text=» CF A14,PWCC PROCESS WCC FOR MDT BIT«, t00=0x001d, t01=0x017a}
0x2ee6…2f02 Head {h00=0x0018, h01=0x0050, text=» LD A3,PCURS,TCABAS «, t00=0x001e, t01=0x0016}
0x2f02…2f2e Head {h00=0x0028, h01=0x0050, text=» LDR A4,A3 START IN CURSOR POSITION «, t00=0x001e, t01=0x0032}
0x2f2e…2f44 Head {h00=0x0012, h01=0x0050, text=» ADKL A4,BVDU «, t00=0x001e, t01=0x005e}
0x2f44…2f5a Head {h00=0x0012, h01=0x0050, text=» ADR A4,TCABAS«, t00=0x001e, t01=0x0074}
0x2f5a…2f82 Head {h00=0x0024, h01=0x0050, text=» LDK A5,1 INDICATE WCC, IC OR RA«, t00=0x001e, t01=0x008a}
0x2f82…2f94 Head {h00=0x000e, h01=0x0050, text=» RF UPD220«, t00=0x001e, t01=0x00b2}
0x2f94…2f9e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001e, t01=0x00c4}
0x2f9e…2fbc Head {h00=0x001a, h01=0x0050, text=»* ERASE/WRITE COMMAND «, t00=0x001e, t01=0x00ce}
0x2fbc…2fc6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001e, t01=0x00ec}
0x2fc6…2fda Head {h00=0x0010, h01=0x0050, text=»UPD120 EQU *«, t00=0x001e, t01=0x00f6}
0x2fda…2ffc Head {h00=0x001e, h01=0x0050, text=» CF A14,ERASE ERASE SCREEN«, t00=0x001e, t01=0x010a}
0x2ffc…300e Head {h00=0x000e, h01=0x0050, text=» RF UPD200«, t00=0x001e, t01=0x012c}
0x300e…3018 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001e, t01=0x013e}
0x3018…3038 Head {h00=0x001c, h01=0x0050, text=»* ERASE ALL UNPROTECTED «, t00=0x001e, t01=0x0148}
0x3038…3042 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001e, t01=0x0168}
0x3042…3056 Head {h00=0x0010, h01=0x0050, text=»UPD140 EQU *«, t00=0x001e, t01=0x0172}
0x3056…3082 Head {h00=0x0028, h01=0x0050, text=» CF A14,ERASUP ERASE ALL UNPROTECTED«, t00=0x001e, t01=0x0186}
0x3082…30ae Head {h00=0x0028, h01=0x0050, text=» RF UPDEND NO TEXT WITH THIS COMMAND«, t00=0x001f, t01=0x0022}
0x30ae…30b8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001f, t01=0x004e}
0x30b8…30ea Head {h00=0x002e, h01=0x0050, text=»* TAKE CARE OF WRITE CONTROL CHARACTER WCC«, t00=0x001f, t01=0x0058}
0x30ea…30f4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001f, t01=0x008a}
0x30f4…311a Head {h00=0x0022, h01=0x0050, text=»UPD200 CF A14,PWCC PROCESS WCC«, t00=0x001f, t01=0x0094}
0x311a…3142 Head {h00=0x0024, h01=0x0050, text=» LDK A5,1 INDICATE WCC, IC OR RA«, t00=0x001f, t01=0x00ba}
0x3142…3150 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x001f, t01=0x00e2}
0x3150…315a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001f, t01=0x00f0}
0x315a…3164 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001f, t01=0x00fa}
0x3164…318a Head {h00=0x0022, h01=0x0050, text=»* PROCESS DATA FROM DC BUFFER «, t00=0x001f, t01=0x0104}
0x318a…3194 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001f, t01=0x012a}
0x3194…319e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001f, t01=0x0134}
0x319e…31ce Head {h00=0x002c, h01=0x0050, text=»UPD210 LDK A3,0 START FROM POSITION ZERO«, t00=0x001f, t01=0x013e}
0x31ce…31e4 Head {h00=0x0012, h01=0x0050, text=» LDKL A4,BVDU «, t00=0x001f, t01=0x016e}
0x31e4…31fa Head {h00=0x0012, h01=0x0050, text=» ADR A4,TCABAS«, t00=0x001f, t01=0x0184}
0x31fa…321c Head {h00=0x001e, h01=0x0050, text=»UPD220 CW A9,DCLENG,TCABAS«, t00=0x0020, t01=0x000a}
0x321c…3250 Head {h00=0x0030, h01=0x0050, text=» RF(NL) UPDEND ALL RECEIVED CHARS PROCESSED «, t00=0x0020, t01=0x002c}
0x3250…327e Head {h00=0x002a, h01=0x0050, text=» CF A14,GDCCH GET CHAR FROM DC BUFFER «, t00=0x0020, t01=0x0060}
0x327e…3292 Head {h00=0x0010, h01=0x0050, text=» CWK A2,/20 «, t00=0x0020, t01=0x008e}
0x3292…32ae Head {h00=0x0018, h01=0x0050, text=» RF(L) UPD300 ORDER «, t00=0x0020, t01=0x00a2}
0x32ae…32c2 Head {h00=0x0010, h01=0x0050, text=»UPD230 EQU *«, t00=0x0020, t01=0x00be}
0x32c2…32ee Head {h00=0x0028, h01=0x0050, text=» LDK A5,0 INDICATE NOT WCC, IC OR RA«, t00=0x0020, t01=0x00d2}
0x32ee…3312 Head {h00=0x0020, h01=0x0050, text=» ORK A2,/80 SET DISPLAY BIT «, t00=0x0020, t01=0x00fe}
0x3312…332e Head {h00=0x0018, h01=0x0050, text=»UPD240 CWK A3,LBVDU «, t00=0x0020, t01=0x0122}
0x332e…3358 Head {h00=0x0026, h01=0x0050, text=» RF(E) UPD260 END OF VIDEO BUFFER «, t00=0x0020, t01=0x013e}
0x3358…336c Head {h00=0x0010, h01=0x0050, text=»UPD250 EQU *«, t00=0x0020, t01=0x0168}
0x336c…3394 Head {h00=0x0024, h01=0x0050, text=» SCR A2,A4 STORE IN VIDEO BUFFER«, t00=0x0020, t01=0x017c}
0x3394…33a6 Head {h00=0x000e, h01=0x0050, text=» ADK A3,1 «, t00=0x0021, t01=0x0014}
0x33a6…33b8 Head {h00=0x000e, h01=0x0050, text=» ADK A4,1 «, t00=0x0021, t01=0x0026}
0x33b8…33ca Head {h00=0x000e, h01=0x0050, text=» RB UPD220«, t00=0x0021, t01=0x0038}
0x33ca…33e2 Head {h00=0x0014, h01=0x0050, text=»UPD260 LDK A3,0 «, t00=0x0021, t01=0x004a}
0x33e2…33f8 Head {h00=0x0012, h01=0x0050, text=» LDKL A4,BVDU «, t00=0x0021, t01=0x0062}
0x33f8…340e Head {h00=0x0012, h01=0x0050, text=» ADR A4,TCABAS«, t00=0x0021, t01=0x0078}
0x340e…3420 Head {h00=0x000e, h01=0x0050, text=» RB UPD250«, t00=0x0021, t01=0x008e}
0x3420…3434 Head {h00=0x0010, h01=0x0050, text=»UPD300 EQU *«, t00=0x0021, t01=0x00a0}
0x3434…3472 Head {h00=0x003a, h01=0x0050, text=»******************************************* 78-08-15 «, t00=0x0021, t01=0x00b4}
0x3472…34a2 Head {h00=0x002c, h01=0x0050, text=» CWK A3,LBVDU END OF DISPLAY BUFFER ??? «, t00=0x0021, t01=0x00f2}
0x34a2…34be Head {h00=0x0018, h01=0x0050, text=» RF(NE) UPD302 NO!!!«, t00=0x0021, t01=0x0122}
0x34be…34e6 Head {h00=0x0024, h01=0x0050, text=» SUR A3,A3 FIRST SCREEN POSITION«, t00=0x0021, t01=0x013e}
0x34e6…34fc Head {h00=0x0012, h01=0x0050, text=» LDKL A4,BVDU «, t00=0x0021, t01=0x0166}
0x34fc…3522 Head {h00=0x0022, h01=0x0050, text=» ADR A4,TCABAS BUFFER POSITION«, t00=0x0021, t01=0x017c}
0x3522…3536 Head {h00=0x0010, h01=0x0050, text=»UPD302 EQU *«, t00=0x0022, t01=0x0012}
0x3536…3574 Head {h00=0x003a, h01=0x0050, text=»******************************************* 78-08-15 «, t00=0x0022, t01=0x0026}
0x3574…3588 Head {h00=0x0010, h01=0x0050, text=» CWK A2,/1D «, t00=0x0022, t01=0x0064}
0x3588…35aa Head {h00=0x001e, h01=0x0050, text=» RF(E) UPD320 START FIELD «, t00=0x0022, t01=0x0078}
0x35aa…35be Head {h00=0x0010, h01=0x0050, text=» CWK A2,/11 «, t00=0x0022, t01=0x009a}
0x35be…35e6 Head {h00=0x0024, h01=0x0050, text=» RF(E) UPD340 SET BUFFER ADDRESS«, t00=0x0022, t01=0x00ae}
0x35e6…35fa Head {h00=0x0010, h01=0x0050, text=» CWK A2,/13 «, t00=0x0022, t01=0x00d6}
0x35fa…361e Head {h00=0x0020, h01=0x0050, text=» RF(E) UPD360 INSERT CURSOR «, t00=0x0022, t01=0x00ea}
0x361e…3632 Head {h00=0x0010, h01=0x0050, text=» CWK A2,/09 «, t00=0x0022, t01=0x010e}
0x3632…3654 Head {h00=0x001e, h01=0x0050, text=» RF(E) UPD400 PROGRAM TAB «, t00=0x0022, t01=0x0122}
0x3654…3668 Head {h00=0x0010, h01=0x0050, text=» CWK A2,/14 «, t00=0x0022, t01=0x0144}
0x3668…3690 Head {h00=0x0024, h01=0x0050, text=» RF(E) UPD500 REPEAT TO ADDRESS «, t00=0x0022, t01=0x0158}
0x3690…36a4 Head {h00=0x0010, h01=0x0050, text=» CWK A2,/12 «, t00=0x0022, t01=0x0180}
0x36a4…36d6 (35, 0, 400) Head {h00=0x002e, h01=0x0050, text=» RF(E) UPD540 ERASE UNPROTECTED TO ADDRESS«, t00=0x0023, t01=0x0004}
0x36d6…36ea Head {h00=0x0010, h01=0x0050, text=» CWK A2,/0C «, t00=0x0023, t01=0x0036}
0x36ea…3700 Head {h00=0x0012, h01=0x0050, text=» RF(NE) UPD305«, t00=0x0023, t01=0x004a}
0x3700…3720 Head {h00=0x001c, h01=0x0050, text=» LDK A2,FORMFD FORM FEED«, t00=0x0023, t01=0x0060}
0x3720…3732 Head {h00=0x000e, h01=0x0050, text=» RB UPD230«, t00=0x0023, t01=0x0080}
0x3732…374c Head {h00=0x0016, h01=0x0050, text=»UPD305 CWK A2,/19 «, t00=0x0023, t01=0x0092}
0x374c…3762 Head {h00=0x0012, h01=0x0050, text=» RF(NE) UPD310«, t00=0x0023, t01=0x00ac}
0x3762…3784 Head {h00=0x001e, h01=0x0050, text=» LDK A2,ENDMES END MESSAGE«, t00=0x0023, t01=0x00c2}
0x3784…3796 Head {h00=0x000e, h01=0x0050, text=» RB UPD230«, t00=0x0023, t01=0x00e4}
0x3796…37aa Head {h00=0x0010, h01=0x0050, text=»UPD310 EQU *«, t00=0x0023, t01=0x00f6}
0x37aa…37be Head {h00=0x0010, h01=0x0050, text=» CWK A2,/0A «, t00=0x0023, t01=0x010a}
0x37be…37d4 Head {h00=0x0012, h01=0x0050, text=» RF(NE) UPD315«, t00=0x0023, t01=0x011e}
0x37d4…37f4 Head {h00=0x001c, h01=0x0050, text=» LDK A2,NEWLIN NEW LINE «, t00=0x0023, t01=0x0134}
0x37f4…3806 Head {h00=0x000e, h01=0x0050, text=» RB UPD230«, t00=0x0023, t01=0x0154}
0x3806…381a Head {h00=0x0010, h01=0x0050, text=»UPD315 EQU *«, t00=0x0023, t01=0x0166}
0x381a…382e Head {h00=0x0010, h01=0x0050, text=» CWK A2,/18 «, t00=0x0023, t01=0x017a}
0x382e…3870 Head {h00=0x003e, h01=0x0050, text=»*********************************************** 78-08-15 «, t00=0x0023, t01=0x018e}
0x3870…3894 Head {h00=0x0020, h01=0x0050, text=» RF(NE) UPD317 ILLEGAL ORDER«, t00=0x0024, t01=0x0040}
0x3894…38d6 Head {h00=0x003e, h01=0x0050, text=»*********************************************** 78-08-15 «, t00=0x0024, t01=0x0064}
0x38d6…38ea Head {h00=0x0010, h01=0x0050, text=» LDK A2,/30 «, t00=0x0024, t01=0x00a6}
0x38ea…38fc Head {h00=0x000e, h01=0x0050, text=» RB UPD230«, t00=0x0024, t01=0x00ba}
0x38fc…3904 Head {h00=0x0004, h01=0x0050, t00=0x0024, t01=0x00cc}
0x3904…390c Head {h00=0x0004, h01=0x0050, t00=0x0024, t01=0x00d4}
0x390c…394e Head {h00=0x003e, h01=0x0050, text=»*********************************************** 78-08-15 «, t00=0x0024, t01=0x00dc}
0x394e…3972 Head {h00=0x0020, h01=0x0050, text=»UPD317 CWK A2,/1B ESCAPE ???«, t00=0x0024, t01=0x011e}
0x3972…398e Head {h00=0x0018, h01=0x0050, text=» RB(E) UPD010 YES!!!«, t00=0x0024, t01=0x0142}
0x398e…39d0 Head {h00=0x003e, h01=0x0050, text=»*********************************************** 78-08-15 «, t00=0x0024, t01=0x015e}
0x39d0…39de Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0025, t01=0x0010}
0x39de…39e6 Head {h00=0x0004, h01=0x0050, t00=0x0025, t01=0x001e}
0x39e6…39fa Head {h00=0x0010, h01=0x0050, text=»UPD318 EQU *«, t00=0x0025, t01=0x0026}
0x39fa…3a20 Head {h00=0x0022, h01=0x0050, text=» CWK A2,/00 NULL CHARACTER ???«, t00=0x0025, t01=0x003a}
0x3a20…3a4a Head {h00=0x0026, h01=0x0050, text=» RF(NE) UPDEND NO!! ILLEGAL ORDER«, t00=0x0025, t01=0x0060}
0x3a4a…3a70 Head {h00=0x0022, h01=0x0050, text=» LDK A2,/7F PTS NULL CHARACTER«, t00=0x0025, t01=0x008a}
0x3a70…3a82 Head {h00=0x000e, h01=0x0050, text=» RB UPD230«, t00=0x0025, t01=0x00b0}
0x3a82…3a8a Head {h00=0x0004, h01=0x0050, t00=0x0025, t01=0x00c2}
0x3a8a…3ace Head {h00=0x0040, h01=0x0050, text=»************************************************************«, t00=0x0025, t01=0x00ca}
0x3ace…3ad8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0025, t01=0x010e}
0x3ad8…3afa Head {h00=0x001e, h01=0x0050, text=»* RELEASE RECEIVE BUFFER«, t00=0x0025, t01=0x0118}
0x3afa…3b04 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0025, t01=0x013a}
0x3b04…3b32 Head {h00=0x002a, h01=0x0050, text=»************************************* «, t00=0x0025, t01=0x0144}
0x3b32…3b3a Head {h00=0x0004, h01=0x0050, t00=0x0025, t01=0x0172}
0x3b3a…3b4e Head {h00=0x0010, h01=0x0050, text=»REL:BU EQU *«, t00=0x0025, t01=0x017a}
0x3b4e…3b7e Head {h00=0x002c, h01=0x0050, text=»UPDEND LDK A7,/A2 RELEASE DC READ BUFFER«, t00=0x0025, t01=0x018e}
0x3b7e…3b96 Head {h00=0x0014, h01=0x0050, text=» LDKL A8,ECBDCT «, t00=0x0026, t01=0x002e}
0x3b96…3bac Head {h00=0x0012, h01=0x0050, text=» ADR A8,CREBAS«, t00=0x0026, t01=0x0046}
0x3bac…3bb8 Head {h00=0x0008, h01=0x0050, text=» LKM«, t00=0x0026, t01=0x005c}
0x3bb8…3bc8 Head {h00=0x000c, h01=0x0050, text=» DATA 1 «, t00=0x0026, t01=0x0068}
0x3bc8…3bd8 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0026, t01=0x0078}
0x3bd8…3be6 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0026, t01=0x0088}
0x3be6…3bf0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0026, t01=0x0096}
0x3bf0…3bfa Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0026, t01=0x00a0}
0x3bfa…3c16 Head {h00=0x0018, h01=0x0050, text=»* START FIELD ORDER «, t00=0x0026, t01=0x00aa}
0x3c16…3c20 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0026, t01=0x00c6}
0x3c20…3c4e Head {h00=0x002a, h01=0x0050, text=»UPD320 CF A14,GDCCH GET ATTRIBUTE CHAR«, t00=0x0026, t01=0x00d0}
0x3c4e…3c66 Head {h00=0x0014, h01=0x0050, text=» LC A2,TEBCDI,A2«, t00=0x0026, t01=0x00fe}
0x3c66…3c94 Head {h00=0x002a, h01=0x0050, text=» LDR A1,A2 COMPOSE PTS ATTRIBUTE CHAR «, t00=0x0026, t01=0x0116}
0x3c94…3ca6 Head {h00=0x000e, h01=0x0050, text=» ANK A1,1 «, t00=0x0026, t01=0x0144}
0x3ca6…3cb8 Head {h00=0x000e, h01=0x0050, text=» SRL A2,1 «, t00=0x0026, t01=0x0156}
0x3cb8…3ccc Head {h00=0x0010, h01=0x0050, text=» ANK A2,/1E «, t00=0x0026, t01=0x0168}
0x3ccc…3cde Head {h00=0x000e, h01=0x0050, text=» ORR A2,A1«, t00=0x0026, t01=0x017c}
0x3cde…3cf0 Head {h00=0x000e, h01=0x0050, text=» RB UPD230«, t00=0x0026, t01=0x018e}
0x3cf0…3cfa Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0027, t01=0x0010}
0x3cfa…3d16 Head {h00=0x0018, h01=0x0050, text=»* SET BUFFER ADDRESS«, t00=0x0027, t01=0x001a}
0x3d16…3d20 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0027, t01=0x0036}
0x3d20…3d48 Head {h00=0x0024, h01=0x0050, text=»UPD340 CF A14,GETADR GET ADDRESS«, t00=0x0027, t01=0x0040}
0x3d48…3d5e Head {h00=0x0012, h01=0x0050, text=» CWK A1,LBVDU «, t00=0x0027, t01=0x0068}
0x3d5e…3d84 Head {h00=0x0022, h01=0x0050, text=» RB(NL) UPDEND INVALID ADDRESS«, t00=0x0027, t01=0x007e}
0x3d84…3d96 Head {h00=0x000e, h01=0x0050, text=» LDR A3,A1«, t00=0x0027, t01=0x00a4}
0x3d96…3da8 Head {h00=0x000e, h01=0x0050, text=» LDR A4,A3«, t00=0x0027, t01=0x00b6}
0x3da8…3dbe Head {h00=0x0012, h01=0x0050, text=» ADKL A4,BVDU «, t00=0x0027, t01=0x00c8}
0x3dbe…3dd4 Head {h00=0x0012, h01=0x0050, text=» ADR A4,TCABAS«, t00=0x0027, t01=0x00de}
0x3dd4…3de6 Head {h00=0x000e, h01=0x0050, text=» RB UPD220«, t00=0x0027, t01=0x00f4}
0x3de6…3df0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0027, t01=0x0106}
0x3df0…3e08 Head {h00=0x0014, h01=0x0050, text=»* INSERT CURSOR «, t00=0x0027, t01=0x0110}
0x3e08…3e12 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0027, t01=0x0128}
0x3e12…3e46 Head {h00=0x0030, h01=0x0050, text=»UPD360 ST A3,PCURS,TCABAS SET NEW CURSOR POS«, t00=0x0027, t01=0x0132}
0x3e46…3e6e Head {h00=0x0024, h01=0x0050, text=» LDK A5,1 INDICATE WCC, IC OR RA«, t00=0x0027, t01=0x0166}
0x3e6e…3e80 Head {h00=0x000e, h01=0x0050, text=» RB UPD220«, t00=0x0027, t01=0x018e}
0x3e80…3e8e Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0028, t01=0x0010}
0x3e8e…3e98 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0028, t01=0x001e}
0x3e98…3eae Head {h00=0x0012, h01=0x0050, text=»* PROGRAM TAB «, t00=0x0028, t01=0x0028}
0x3eae…3eb8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0028, t01=0x003e}
0x3eb8…3ed0 Head {h00=0x0014, h01=0x0050, text=»UPD400 LDR A5,A5«, t00=0x0028, t01=0x0048}
0x3ed0…3efe Head {h00=0x002a, h01=0x0050, text=» RF(NZ) UPD430 PT AFTER WCC, IC OR RA «, t00=0x0028, t01=0x0060}
0x3efe…3f32 Head {h00=0x0030, h01=0x0050, text=» LDK A1,NULL+/80 FILL CURRENT FIELD BY NULLS«, t00=0x0028, t01=0x008e}
0x3f32…3f46 Head {h00=0x0010, h01=0x0050, text=»UPD410 EQU *«, t00=0x0028, t01=0x00c2}
0x3f46…3f58 Head {h00=0x000e, h01=0x0050, text=» LDK A5,0 «, t00=0x0028, t01=0x00d6}
0x3f58…3f6e Head {h00=0x0012, h01=0x0050, text=» CWK A3,LBVDU «, t00=0x0028, t01=0x00e8}
0x3f6e…3f92 Head {h00=0x0020, h01=0x0050, text=» RB(NL) UPD210 END OF BUFFER«, t00=0x0028, t01=0x00fe}
0x3f92…3fa4 Head {h00=0x000e, h01=0x0050, text=» LCR A2,A4«, t00=0x0028, t01=0x0122}
0x3fa4…3fb6 Head {h00=0x000e, h01=0x0050, text=» ADK A3,1 «, t00=0x0028, t01=0x0134}
0x3fb6…3fca Head {h00=0x0010, h01=0x0050, text=» ANK A2,/7F «, t00=0x0028, t01=0x0146}
0x3fca…3fde Head {h00=0x0010, h01=0x0050, text=» CWK A2,/20 «, t00=0x0028, t01=0x015a}
0x3fde…3ff4 Head {h00=0x0012, h01=0x0050, text=» RF(L) UPD415 «, t00=0x0028, t01=0x016e}
0x3ff4…4012 Head {h00=0x001a, h01=0x0050, text=» SCR A1,A4 STORE NULL «, t00=0x0028, t01=0x0184}
0x4012…4024 Head {h00=0x000e, h01=0x0050, text=» ADK A4,1 «, t00=0x0029, t01=0x0012}
0x4024…4036 Head {h00=0x000e, h01=0x0050, text=» RB UPD410«, t00=0x0029, t01=0x0024}
0x4036…404a Head {h00=0x0010, h01=0x0050, text=»UPD415 EQU *«, t00=0x0029, t01=0x0036}
0x404a…405c Head {h00=0x000e, h01=0x0050, text=» ADK A4,1 «, t00=0x0029, t01=0x004a}
0x405c…4076 Head {h00=0x0016, h01=0x0050, text=»UPD420 ANK A2,/10 «, t00=0x0029, t01=0x005c}
0x4076…409e Head {h00=0x0024, h01=0x0050, text=» RB(Z) UPD220 UNPROTECTED FIELD «, t00=0x0029, t01=0x0076}
0x409e…40b2 Head {h00=0x0010, h01=0x0050, text=»UPD430 EQU *«, t00=0x0029, t01=0x009e}
0x40b2…40c4 Head {h00=0x000e, h01=0x0050, text=» LDK A5,0 «, t00=0x0029, t01=0x00b2}
0x40c4…40da Head {h00=0x0012, h01=0x0050, text=» CWK A3,LBVDU «, t00=0x0029, t01=0x00c4}
0x40da…4108 Head {h00=0x002a, h01=0x0050, text=» ABL(NL) UPD210 END OF DISPLAY BUFFER «, t00=0x0029, t01=0x00da}
0x4108…411a Head {h00=0x000e, h01=0x0050, text=» LCR A2,A4«, t00=0x0029, t01=0x0108}
0x411a…412c Head {h00=0x000e, h01=0x0050, text=» ADK A3,1 «, t00=0x0029, t01=0x011a}
0x412c…413e Head {h00=0x000e, h01=0x0050, text=» ADK A4,1 «, t00=0x0029, t01=0x012c}
0x413e…4152 Head {h00=0x0010, h01=0x0050, text=» ANK A2,/7F «, t00=0x0029, t01=0x013e}
0x4152…4166 Head {h00=0x0010, h01=0x0050, text=» CWK A2,/20 «, t00=0x0029, t01=0x0152}
0x4166…417c Head {h00=0x0012, h01=0x0050, text=» RB(L) UPD420 «, t00=0x0029, t01=0x0166}
0x417c…418e Head {h00=0x000e, h01=0x0050, text=» RB UPD430«, t00=0x0029, t01=0x017c}
0x418e…419c Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0029, t01=0x018e}
0x419c…41a6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002a, t01=0x000c}
0x41a6…41c2 Head {h00=0x0018, h01=0x0050, text=»* REPEAT TO ADDRESS «, t00=0x002a, t01=0x0016}
0x41c2…41cc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002a, t01=0x0032}
0x41cc…41f8 Head {h00=0x0028, h01=0x0050, text=»UPD500 CF A14,GETADR GET END ADDRESS«, t00=0x002a, t01=0x003c}
0x41f8…420e Head {h00=0x0012, h01=0x0050, text=» CWK A1,LBVDU «, t00=0x002a, t01=0x0068}
0x420e…4234 Head {h00=0x0022, h01=0x0050, text=» RB(NL) UPDEND INVALID ADDRESS«, t00=0x002a, t01=0x007e}
0x4234…4262 Head {h00=0x002a, h01=0x0050, text=» CF A14,GDCCH GET CHAR TO BE REPEATED «, t00=0x002a, t01=0x00a4}
0x4262…428a Head {h00=0x0024, h01=0x0050, text=» LDK A5,1 INDICATE WCC, IC OR RA«, t00=0x002a, t01=0x00d2}
0x428a…42b0 Head {h00=0x0022, h01=0x0050, text=» ORK A2,/80 INDICATE MODIFIED «, t00=0x002a, t01=0x00fa}
0x42b0…42f2 Head {h00=0x003e, h01=0x0050, text=»*********************************************** 78-08-15 «, t00=0x002a, t01=0x0120}
0x42f2…4326 Head {h00=0x0030, h01=0x0050, text=» CWR A3,A1 NULLS TO ALL SCREEN POSITIONS ???«, t00=0x002a, t01=0x0162}
0x4326…4342 Head {h00=0x0018, h01=0x0050, text=» RF(E) UPD530 YES!!!«, t00=0x002b, t01=0x0008}
0x4342…4384 Head {h00=0x003e, h01=0x0050, text=»*********************************************** 78-08-15 «, t00=0x002b, t01=0x0024}
0x4384…43a0 Head {h00=0x0018, h01=0x0050, text=»UPD510 CWK A3,LBVDU «, t00=0x002b, t01=0x0066}
0x43a0…43c8 Head {h00=0x0024, h01=0x0050, text=» RF(L) UPD520 NOT END OF SCREEN «, t00=0x002b, t01=0x0082}
0x43c8…43da Head {h00=0x000e, h01=0x0050, text=» LDK A3,0 «, t00=0x002b, t01=0x00aa}
0x43da…43fc Head {h00=0x001e, h01=0x0050, text=» LDKL A4,BVDU WRAP AROUND «, t00=0x002b, t01=0x00bc}
0x43fc…4412 Head {h00=0x0012, h01=0x0050, text=» ADR A4,TCABAS«, t00=0x002b, t01=0x00de}
0x4412…442a Head {h00=0x0014, h01=0x0050, text=»UPD520 CWR A3,A1«, t00=0x002b, t01=0x00f4}
0x442a…4452 Head {h00=0x0024, h01=0x0050, text=» ABL(E) UPD220 ALL CHAR REPEATED«, t00=0x002b, t01=0x010c}
0x4452…4494 Head {h00=0x003e, h01=0x0050, text=»*********************************************** 78-08-15 «, t00=0x002b, t01=0x0134}
0x4494…44a8 Head {h00=0x0010, h01=0x0050, text=»UPD530 EQU *«, t00=0x002b, t01=0x0176}
0x44a8…44ea Head {h00=0x003e, h01=0x0050, text=»*********************************************** 78-08-15 «, t00=0x002b, t01=0x018a}
0x44ea…44fc Head {h00=0x000e, h01=0x0050, text=» SCR A2,A4«, t00=0x002c, t01=0x003c}
0x44fc…450e Head {h00=0x000e, h01=0x0050, text=» ADK A3,1 «, t00=0x002c, t01=0x004e}
0x450e…4520 Head {h00=0x000e, h01=0x0050, text=» ADK A4,1 «, t00=0x002c, t01=0x0060}
0x4520…4540 Head {h00=0x001c, h01=0x0050, text=» RB UPD510 NEXT POSITION«, t00=0x002c, t01=0x0072}
0x4540…454a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002c, t01=0x0092}
0x454a…4570 Head {h00=0x0022, h01=0x0050, text=»* ERASE UNPROTECTED TO ADDRESS«, t00=0x002c, t01=0x009c}
0x4570…457a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002c, t01=0x00c2}
0x457a…45a6 Head {h00=0x0028, h01=0x0050, text=»UPD540 CF A14,GETADR GET END ADDRESS«, t00=0x002c, t01=0x00cc}
0x45a6…45bc Head {h00=0x0012, h01=0x0050, text=» CWK A3,LBVDU «, t00=0x002c, t01=0x00f8}
0x45bc…45e2 Head {h00=0x0022, h01=0x0050, text=» RB(NL) UPDEND INVALID ADDRESS«, t00=0x002c, t01=0x010e}
0x45e2…4616 Head {h00=0x0030, h01=0x0050, text=» CF A14,ERASUA ERASE UNPROTECTED TO ADDRESS «, t00=0x002c, t01=0x0134}
0x4616…462a Head {h00=0x0010, h01=0x0050, text=» ABL UPD220 «, t00=0x002c, t01=0x0168}
0x462a…4638 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x002c, t01=0x017c}
0x4638…4642 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002c, t01=0x018a}
0x4642…464c (45, 0, 400) Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002d, t01=0x0004}
0x464c…4662 Head {h00=0x0012, h01=0x0050, text=»* COPY COMMAND«, t00=0x002d, t01=0x000e}
0x4662…466c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002d, t01=0x0024}
0x466c…4676 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002d, t01=0x002e}
0x4676…469a Head {h00=0x0020, h01=0x0050, text=»* A3=DISPLAY BUFFER POINTER «, t00=0x002d, t01=0x0038}
0x469a…46be Head {h00=0x0020, h01=0x0050, text=»* A4=DISPLAY BUFFER POINTER «, t00=0x002d, t01=0x005c}
0x46be…46e2 Head {h00=0x0020, h01=0x0050, text=»* A7=PRINTER BUFFER POINTER «, t00=0x002d, t01=0x0080}
0x46e2…46ec Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002d, t01=0x00a4}
0x46ec…46f6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002d, t01=0x00ae}
0x46f6…470a Head {h00=0x0010, h01=0x0050, text=»UPD600 EQU *«, t00=0x002d, t01=0x00b8}
0x470a…473a Head {h00=0x002c, h01=0x0050, text=» CF A14,GDCCH GET COPY CONTROL CHAR CCC «, t00=0x002d, t01=0x00cc}
0x473a…4762 Head {h00=0x0024, h01=0x0050, text=» LC A2,TEBCDI,A2 IN EBCDIC CODE «, t00=0x002d, t01=0x00fc}
0x4762…4784 Head {h00=0x001e, h01=0x0050, text=» ST A2,WCC,TCABAS SAVE IT «, t00=0x002d, t01=0x0124}
0x4784…47ac Head {h00=0x0024, h01=0x0050, text=» CF A14,GDCCH GET "FROM" DEVICE «, t00=0x002d, t01=0x0146}
0x47ac…47e0 Head {h00=0x0030, h01=0x0050, text=» LC A2,TEBCDI,A2 TRANSLATE IT BACK TO EBCDIC«, t00=0x002d, t01=0x016e}
0x47e0…47ea Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002e, t01=0x0012}
0x47ea…4816 Head {h00=0x0028, h01=0x0050, text=»* CREDIT SEQUENCE UNTIL: /LDR/A12,A4«, t00=0x002e, t01=0x001c}
0x4816…4820 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002e, t01=0x0048}
0x4820…484c Head {h00=0x0028, h01=0x0050, text=» LDKL A1,U:BTAB DEFINE UWB BASE ADDR«, t00=0x002e, t01=0x0052}
0x484c…486e Head {h00=0x001e, h01=0x0050, text=» LD A3,4,A1 LOAD MAXINDEX «, t00=0x002e, t01=0x007e}
0x486e…4882 Head {h00=0x0010, h01=0x0050, text=» LDR* A4,A1 «, t00=0x002e, t01=0x00a0}
0x4882…489e Head {h00=0x0018, h01=0x0050, text=» LD A7,2,A1 NEXT UWB«, t00=0x002e, t01=0x00b4}
0x489e…48b0 Head {h00=0x000e, h01=0x0050, text=» RF UPD615«, t00=0x002e, t01=0x00d0}
0x48b0…48c8 Head {h00=0x0014, h01=0x0050, text=»UPD610 LDR A4,A7«, t00=0x002e, t01=0x00e2}
0x48c8…48dc Head {h00=0x0010, h01=0x0050, text=» AD A7,6,A1 «, t00=0x002e, t01=0x00fa}
0x48dc…48fa Head {h00=0x001a, h01=0x0050, text=»UPD615 SUK A3,1 COUNT «, t00=0x002e, t01=0x010e}
0x48fa…491a Head {h00=0x001c, h01=0x0050, text=» RB(N) UPDEND NOT FOUND «, t00=0x002e, t01=0x012c}
0x491a…4932 Head {h00=0x0014, h01=0x0050, text=» CW A2,DCADDR,A4«, t00=0x002e, t01=0x014c}
0x4932…4958 Head {h00=0x0022, h01=0x0050, text=» RB(NE) UPD610 CHECK NEXT UWB «, t00=0x002e, t01=0x0164}
0x4958…4970 Head {h00=0x0014, h01=0x0050, text=» LDR A12,A4 COPY«, t00=0x002e, t01=0x018a}
0x4970…49a0 Head {h00=0x002c, h01=0x0050, text=» LDK A3,0 RESET DISPLAY BUFFER POSITION «, t00=0x002f, t01=0x0012}
0x49a0…49cc Head {h00=0x0028, h01=0x0050, text=» ADKL A4,BVDU DISPLAY BUFFER POINTER«, t00=0x002f, t01=0x0042}
0x49cc…49f0 Head {h00=0x0020, h01=0x0050, text=» LDKL A7,BVDU PRINTER BUFFE «, t00=0x002f, t01=0x006e}
0x49f0…4a06 Head {h00=0x0012, h01=0x0050, text=» ADR A7,TCABAS«, t00=0x002f, t01=0x0092}
0x4a06…4a0e Head {h00=0x0004, h01=0x0050, t00=0x002f, t01=0x00a8}
0x4a0e…4a16 Head {h00=0x0004, h01=0x0050, t00=0x002f, t01=0x00b0}
0x4a16…4a2a Head {h00=0x0010, h01=0x0050, text=» IFT COPL=1 «, t00=0x002f, t01=0x00b8}
0x4a2a…4a32 Head {h00=0x0004, h01=0x0050, t00=0x002f, t01=0x00cc}
0x4a32…4a7a Head {h00=0x0044, h01=0x0050, text=»*************************************************************** «, t00=0x002f, t01=0x00d4}
0x4a7a…4a84 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002f, t01=0x011c}
0x4a84…4ab2 Head {h00=0x002a, h01=0x0050, text=»* CHECK IF COPY LOCK IS SET !!! ??? «, t00=0x002f, t01=0x0126}
0x4ab2…4abc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002f, t01=0x0154}
0x4abc…4afa Head {h00=0x003a, h01=0x0050, text=»***************************************************** «, t00=0x002f, t01=0x015e}
0x4afa…4b02 Head {h00=0x0004, h01=0x0050, t00=0x0030, t01=0x000c}
0x4b02…4b30 Head {h00=0x002a, h01=0x0050, text=» LCR A2,A4 GET FIRST SCREEN CHARACTER «, t00=0x0030, t01=0x0014}
0x4b30…4b46 Head {h00=0x0012, h01=0x0050, text=» ANK A2,X'18' «, t00=0x0030, t01=0x0042}
0x4b46…4b6a Head {h00=0x0020, h01=0x0050, text=» XRK A2,X'10' COPY LOCK ??? «, t00=0x0030, t01=0x0058}
0x4b6a…4b86 Head {h00=0x0018, h01=0x0050, text=» RF(NZ) UPD620 NO!!!«, t00=0x0030, t01=0x007c}
0x4b86…4bb0 Head {h00=0x0026, h01=0x0050, text=» IM LOCK,TCABAS INDICATE COPY LOCK«, t00=0x0030, t01=0x0098}
0x4bb0…4bda Head {h00=0x0026, h01=0x0050, text=» ABL REL:BU RELEASE RECEIVE BUFFER«, t00=0x0030, t01=0x00c2}
0x4bda…4be2 Head {h00=0x0004, h01=0x0050, t00=0x0030, t01=0x00ec}
0x4be2…4bee Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0030, t01=0x00f4}
0x4bee…4bfc Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0030, t01=0x0100}
0x4bfc…4c06 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0030, t01=0x010e}
0x4c06…4c2c Head {h00=0x0022, h01=0x0050, text=»* FIRST COPY THE ENTIRE BUFFER«, t00=0x0030, t01=0x0118}
0x4c2c…4c36 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0030, t01=0x013e}
0x4c36…4c52 Head {h00=0x0018, h01=0x0050, text=»UPD620 CWK A3,LBVDU «, t00=0x0030, t01=0x0148}
0x4c52…4c74 Head {h00=0x001e, h01=0x0050, text=» RF(NL) UPD630 ALL COPIED «, t00=0x0030, t01=0x0164}
0x4c74…4c86 Head {h00=0x000e, h01=0x0050, text=» LCR A2,A4«, t00=0x0030, t01=0x0186}
0x4c86…4c98 Head {h00=0x000e, h01=0x0050, text=» CCR A2,A7«, t00=0x0031, t01=0x0008}
0x4c98…4cbe Head {h00=0x0022, h01=0x0050, text=» RF(E) UPD625 SAME TEXT AGAIN «, t00=0x0031, t01=0x001a}
0x4cbe…4cec Head {h00=0x002a, h01=0x0050, text=» ORK A2,/80 NEW TEXT: SET DISPLAY BIT «, t00=0x0031, t01=0x0040}
0x4cec…4cfe Head {h00=0x000e, h01=0x0050, text=» SCR A2,A7«, t00=0x0031, t01=0x006e}
0x4cfe…4d12 Head {h00=0x0010, h01=0x0050, text=»UPD625 EQU *«, t00=0x0031, t01=0x0080}
0x4d12…4d24 Head {h00=0x000e, h01=0x0050, text=» ADK A3,1 «, t00=0x0031, t01=0x0094}
0x4d24…4d36 Head {h00=0x000e, h01=0x0050, text=» ADK A4,1 «, t00=0x0031, t01=0x00a6}
0x4d36…4d48 Head {h00=0x000e, h01=0x0050, text=» ADK A7,1 «, t00=0x0031, t01=0x00b8}
0x4d48…4d5a Head {h00=0x000e, h01=0x0050, text=» RB UPD620«, t00=0x0031, t01=0x00ca}
0x4d5a…4d84 Head {h00=0x0026, h01=0x0050, text=»UPD630 LDK A3,0 RESET BUFFER INDEX«, t00=0x0031, t01=0x00dc}
0x4d84…4d9a Head {h00=0x0012, h01=0x0050, text=» SUKL A4,LBVDU«, t00=0x0031, t01=0x0106}
0x4d9a…4db0 Head {h00=0x0012, h01=0x0050, text=» SUKL A7,LBVDU«, t00=0x0031, t01=0x011c}
0x4db0…4de0 Head {h00=0x002c, h01=0x0050, text=» LDK A6,NULL+/80 NULL CONSTANT, MODIFIED«, t00=0x0031, t01=0x0132}
0x4de0…4dee Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0031, t01=0x0162}
0x4dee…4df8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0031, t01=0x0170}
0x4df8…4e02 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0031, t01=0x017a}
0x4e02…4e24 Head {h00=0x001e, h01=0x0050, text=»* CHECK THE ART OF COPYING«, t00=0x0031, t01=0x0184}
0x4e24…4e2e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0032, t01=0x0016}
0x4e2e…4e38 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0032, t01=0x0020}
0x4e38…4e5a Head {h00=0x001e, h01=0x0050, text=» LD A2,WCC,TCABAS GET CCC «, t00=0x0032, t01=0x002a}
0x4e5a…4e72 Head {h00=0x0014, h01=0x0050, text=» LD A1,KBINH,A12«, t00=0x0032, t01=0x004c}
0x4e72…4eae Head {h00=0x0038, h01=0x0050, text=» ANK A1,/E BIT 15:=0 KEYBOARD NOT TOTALLY INHIBITED «, t00=0x0032, t01=0x0064}
0x4eae…4ec4 Head {h00=0x0012, h01=0x0050, text=»* ANY LONGER«, t00=0x0032, t01=0x00a0}
0x4ec4…4edc Head {h00=0x0014, h01=0x0050, text=» ST A1,KBINH,A12«, t00=0x0032, t01=0x00b6}
0x4edc…4f08 Head {h00=0x0028, h01=0x0050, text=» LDK A1,/FC RESET BIT CORRESPONDING «, t00=0x0032, t01=0x00ce}
0x4f08…4f36 Head {h00=0x002a, h01=0x0050, text=» ANS A1,WCC,TCABAS TO KEYBOARD RESTORE«, t00=0x0032, t01=0x00fa}
0x4f36…4f48 Head {h00=0x000e, h01=0x0050, text=» ANK A2,3 «, t00=0x0032, t01=0x0128}
0x4f48…4f6e Head {h00=0x0022, h01=0x0050, text=» RF(Z) UPD650 ATTRIBUTES ONLY «, t00=0x0032, t01=0x013a}
0x4f6e…4f80 Head {h00=0x000e, h01=0x0050, text=» CWK A2,2 «, t00=0x0032, t01=0x0160}
0x4f80…4fb6 Head {h00=0x0032, h01=0x0050, text=» RF(L) UPD700 ATTRIBUTES AND UNPROTECTED ALPHA«, t00=0x0032, t01=0x0172}
0x4fb6…4fea Head {h00=0x0030, h01=0x0050, text=» RF(E) UPD750 ATTRIBUTES ADN PROTECTED ALPHA«, t00=0x0033, t01=0x0018}
0x4fea…500c Head {h00=0x001e, h01=0x0050, text=» ABL UPDEND ENTIRE DISPLAY«, t00=0x0033, t01=0x004c}
0x500c…501a Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0033, t01=0x006e}
0x501a…5024 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0033, t01=0x007c}
0x5024…502e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0033, t01=0x0086}
0x502e…5056 Head {h00=0x0024, h01=0x0050, text=»* COPY ATTRIBUTE CHARACTERS ONLY«, t00=0x0033, t01=0x0090}
0x5056…5060 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0033, t01=0x00b8}
0x5060…506a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0033, t01=0x00c2}
0x506a…5086 Head {h00=0x0018, h01=0x0050, text=»UPD650 CWK A3,LBVDU «, t00=0x0033, t01=0x00cc}
0x5086…50a8 Head {h00=0x001e, h01=0x0050, text=» ABL(NL) UPDEND ALL COPIED«, t00=0x0033, t01=0x00e8}
0x50a8…50ba Head {h00=0x000e, h01=0x0050, text=» LCR A2,A4«, t00=0x0033, t01=0x010a}
0x50ba…50ce Head {h00=0x0010, h01=0x0050, text=» ANK A2,/60 «, t00=0x0033, t01=0x011c}
0x50ce…50f6 Head {h00=0x0024, h01=0x0050, text=» RF(Z) UPD660 ATTRIBUTE: KEEP IT«, t00=0x0033, t01=0x0130}
0x50f6…5126 Head {h00=0x002c, h01=0x0050, text=» SCR A6,A7 DESTROY OTHER THAN ATTRIBUTE «, t00=0x0033, t01=0x0158}
0x5126…513e Head {h00=0x0014, h01=0x0050, text=»UPD660 ADK A3,1 «, t00=0x0033, t01=0x0188}
0x513e…5150 Head {h00=0x000e, h01=0x0050, text=» ADK A4,1 «, t00=0x0034, t01=0x0010}
0x5150…5162 Head {h00=0x000e, h01=0x0050, text=» ADK A7,1 «, t00=0x0034, t01=0x0022}
0x5162…5174 Head {h00=0x000e, h01=0x0050, text=» RB UPD650«, t00=0x0034, t01=0x0034}
0x5174…5182 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0034, t01=0x0046}
0x5182…518c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0034, t01=0x0054}
0x518c…5196 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0034, t01=0x005e}
0x5196…51d2 Head {h00=0x0038, h01=0x0050, text=»* COPY ATTRIBUTES AND UNPROTECTED ALPHAMERIC FIELDS «, t00=0x0034, t01=0x0068}
0x51d2…51dc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0034, t01=0x00a4}
0x51dc…51e6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0034, t01=0x00ae}
0x51e6…5202 Head {h00=0x0018, h01=0x0050, text=»UPD700 CWK A3,LBVDU «, t00=0x0034, t01=0x00b8}
0x5202…5224 Head {h00=0x001e, h01=0x0050, text=» ABL(NL) UPDEND ALL COPIED«, t00=0x0034, t01=0x00d4}
0x5224…5236 Head {h00=0x000e, h01=0x0050, text=» LCR A2,A4«, t00=0x0034, t01=0x00f6}
0x5236…524a Head {h00=0x0010, h01=0x0050, text=» ANK A2,/7F «, t00=0x0034, t01=0x0108}
0x524a…525e Head {h00=0x0010, h01=0x0050, text=» CWK A2,/20 «, t00=0x0034, t01=0x011c}
0x525e…5282 Head {h00=0x0020, h01=0x0050, text=» RF(L) UPD720 ATTRIBUTE CHAR«, t00=0x0034, t01=0x0130}
0x5282…52a6 Head {h00=0x0020, h01=0x0050, text=»UPD710 ADK A3,1 UNPROTECTED «, t00=0x0034, t01=0x0154}
0x52a6…52b8 Head {h00=0x000e, h01=0x0050, text=» ADK A4,1 «, t00=0x0034, t01=0x0178}
0x52b8…52ca Head {h00=0x000e, h01=0x0050, text=» ADK A7,1 «, t00=0x0034, t01=0x018a}
0x52ca…52dc Head {h00=0x000e, h01=0x0050, text=» RB UPD700«, t00=0x0035, t01=0x000c}
0x52dc…52f6 Head {h00=0x0016, h01=0x0050, text=»UPD720 ANK A2,/18 «, t00=0x0035, t01=0x001e}
0x52f6…5322 Head {h00=0x0028, h01=0x0050, text=» RB(Z) UPD710 UNPROTECTED ALPHAMERIC«, t00=0x0035, t01=0x0038}
0x5322…533a Head {h00=0x0014, h01=0x0050, text=»UPD730 ADK A3,1 «, t00=0x0035, t01=0x0064}
0x533a…5368 Head {h00=0x002a, h01=0x0050, text=» ADK A4,1 PROTECTED OR NUMERIC OR BOTH«, t00=0x0035, t01=0x007c}
0x5368…537a Head {h00=0x000e, h01=0x0050, text=» ADK A7,1 «, t00=0x0035, t01=0x00aa}
0x537a…5390 Head {h00=0x0012, h01=0x0050, text=» CWK A3,LBVDU «, t00=0x0035, t01=0x00bc}
0x5390…53b2 Head {h00=0x001e, h01=0x0050, text=» ABL(NL) UPDEND ALL COPIED«, t00=0x0035, t01=0x00d2}
0x53b2…53c4 Head {h00=0x000e, h01=0x0050, text=» LCR A2,A4«, t00=0x0035, t01=0x00f4}
0x53c4…53d8 Head {h00=0x0010, h01=0x0050, text=» ANK A2,/7F «, t00=0x0035, t01=0x0106}
0x53d8…53ec Head {h00=0x0010, h01=0x0050, text=» CWK A2,/20 «, t00=0x0035, t01=0x011a}
0x53ec…540c Head {h00=0x001c, h01=0x0050, text=» RB(L) UPD720 ATTRIBUTE «, t00=0x0035, t01=0x012e}
0x540c…542e Head {h00=0x001e, h01=0x0050, text=» SCR A6,A7 STORE NULL CHAR«, t00=0x0035, t01=0x014e}
0x542e…5440 Head {h00=0x000e, h01=0x0050, text=» RB UPD730«, t00=0x0035, t01=0x0170}
0x5440…544e Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0035, t01=0x0182}
0x544e…5458 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0035, t01=0x0190}
0x5458…5462 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0036, t01=0x000a}
0x5462…549c Head {h00=0x0036, h01=0x0050, text=»* COPY ATTRIBUTES AND PROTECTED ALPHAMERIC FIELDS «, t00=0x0036, t01=0x0014}
0x549c…54a6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0036, t01=0x004e}
0x54a6…54b0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0036, t01=0x0058}
0x54b0…54cc Head {h00=0x0018, h01=0x0050, text=»UPD750 CWK A3,LBVDU «, t00=0x0036, t01=0x0062}
0x54cc…54ee Head {h00=0x001e, h01=0x0050, text=» ABL(NL) UPDEND ALL COPIED«, t00=0x0036, t01=0x007e}
0x54ee…5500 Head {h00=0x000e, h01=0x0050, text=» LCR A2,A4«, t00=0x0036, t01=0x00a0}
0x5500…5514 Head {h00=0x0010, h01=0x0050, text=» ANK A2,/7F «, t00=0x0036, t01=0x00b2}
0x5514…5528 Head {h00=0x0010, h01=0x0050, text=» CWK A2,/20 «, t00=0x0036, t01=0x00c6}
0x5528…5548 Head {h00=0x001c, h01=0x0050, text=» RF(L) UPD770 ATTRIBUTE «, t00=0x0036, t01=0x00da}
0x5548…5572 Head {h00=0x0026, h01=0x0050, text=» SCR A6,A7 UNPROTECTED: WRITE NULL«, t00=0x0036, t01=0x00fa}
0x5572…558a Head {h00=0x0014, h01=0x0050, text=»UPD760 ADK A3,1 «, t00=0x0036, t01=0x0124}
0x558a…559c Head {h00=0x000e, h01=0x0050, text=» ADK A4,1 «, t00=0x0036, t01=0x013c}
0x559c…55ae Head {h00=0x000e, h01=0x0050, text=» ADK A7,1 «, t00=0x0036, t01=0x014e}
0x55ae…55c0 Head {h00=0x000e, h01=0x0050, text=» RB UPD750«, t00=0x0036, t01=0x0160}
0x55c0…55da Head {h00=0x0016, h01=0x0050, text=»UPD770 ANK A2,/18 «, t00=0x0036, t01=0x0172}
0x55da…55ee Head {h00=0x0010, h01=0x0050, text=» XRK A2,/10 «, t00=0x0036, t01=0x018c}
0x55ee…561a Head {h00=0x0028, h01=0x0050, text=» RB(NZ) UPD760 PROTECTED ALPHAMERIC «, t00=0x0037, t01=0x0010}
0x561a…5632 Head {h00=0x0014, h01=0x0050, text=»UPD780 ADK A3,1 «, t00=0x0037, t01=0x003c}
0x5632…5644 Head {h00=0x000e, h01=0x0050, text=» ADK A4,1 «, t00=0x0037, t01=0x0054}
0x5644…5656 Head {h00=0x000e, h01=0x0050, text=» ADK A7,1 «, t00=0x0037, t01=0x0066}
0x5656…566c Head {h00=0x0012, h01=0x0050, text=» CWK A3,LBVDU «, t00=0x0037, t01=0x0078}
0x566c…568e Head {h00=0x001e, h01=0x0050, text=» ABL(NL) UPDEND ALL COPIED«, t00=0x0037, t01=0x008e}
0x568e…56a0 Head {h00=0x000e, h01=0x0050, text=» LCR A2,A4«, t00=0x0037, t01=0x00b0}
0x56a0…56b4 Head {h00=0x0010, h01=0x0050, text=» ANK A2,/7F «, t00=0x0037, t01=0x00c2}
0x56b4…56c8 Head {h00=0x0010, h01=0x0050, text=» CWK A2,/20 «, t00=0x0037, t01=0x00d6}
0x56c8…56e8 Head {h00=0x001c, h01=0x0050, text=» RB(L) UPD770 ATTRIBUTE «, t00=0x0037, t01=0x00ea}
0x56e8…56fa Head {h00=0x000e, h01=0x0050, text=» RB UPD780«, t00=0x0037, t01=0x010a}
0x56fa…5708 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0037, t01=0x011c}
0x5708…5712 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0037, t01=0x012a}
0x5712…571c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0037, t01=0x0134}
0x571c…5746 Head {h00=0x0026, h01=0x0050, text=»* PROCESS WRITE CONTROL CHARACTER «, t00=0x0037, t01=0x013e}
0x5746…5750 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0037, t01=0x0168}
0x5750…577e Head {h00=0x002a, h01=0x0050, text=»* ONLY RESET MDT BIT IS TAKEN CARE OF «, t00=0x0037, t01=0x0172}
0x577e…5788 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0038, t01=0x0010}
0x5788…5792 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0038, t01=0x001a}
0x5792…57b4 Head {h00=0x001e, h01=0x0050, text=»PWCC CF A14,GDCCH GET WCC «, t00=0x0038, t01=0x0024}
0x57b4…57d6 Head {h00=0x001e, h01=0x0050, text=» LC A2,TEBCDI,A2 IN EBCDIC«, t00=0x0038, t01=0x0046}
0x57d6…57f8 Head {h00=0x001e, h01=0x0050, text=» ST A2,WCC,TCABAS SAVE IT «, t00=0x0038, t01=0x0068}
0x57f8…580c Head {h00=0x0010, h01=0x0050, text=» ANK A2,/04 «, t00=0x0038, t01=0x008a}
0x580c…5820 Head {h00=0x0010, h01=0x0050, text=» RF(Z) PWCC1«, t00=0x0038, t01=0x009e}
0x5820…583e Head {h00=0x001a, h01=0x0050, text=» LD A2,PRINTER,TCABAS «, t00=0x0038, t01=0x00b2}
0x583e…5854 Head {h00=0x0012, h01=0x0050, text=» RF(NZ) PWCC1 «, t00=0x0038, t01=0x00d0}
0x5854…5868 Head {h00=0x0010, h01=0x0050, text=» LDR A10,A7 «, t00=0x0038, t01=0x00e6}
0x5868…5880 Head {h00=0x0014, h01=0x0050, text=» LDKL A8,ECBVDU «, t00=0x0038, t01=0x00fa}
0x5880…5896 Head {h00=0x0012, h01=0x0050, text=» ADR A8,CREBAS«, t00=0x0038, t01=0x0112}
0x5896…58ae Head {h00=0x0014, h01=0x0050, text=» LD A2,ECBBA,A8 «, t00=0x0038, t01=0x0128}
0x58ae…58c2 Head {h00=0x0010, h01=0x0050, text=» LDK A7,/2B «, t00=0x0038, t01=0x0140}
0x58c2…58d6 Head {h00=0x0010, h01=0x0050, text=» ST A7,0,A2 «, t00=0x0038, t01=0x0154}
0x58d6…58f6 Head {h00=0x001c, h01=0x0050, text=» LDKL A7,/0707 BELL BELL«, t00=0x0038, t01=0x0168}
0x58f6…590a Head {h00=0x0010, h01=0x0050, text=» ST A7,2,A2 «, t00=0x0038, t01=0x0188}
0x590a…591c Head {h00=0x000e, h01=0x0050, text=» LDK A7,4 «, t00=0x0039, t01=0x000c}
0x591c…5934 Head {h00=0x0014, h01=0x0050, text=» ST A7,ECBRL,A8 «, t00=0x0039, t01=0x001e}
0x5934…5948 Head {h00=0x0010, h01=0x0050, text=» LDK A7,/86 «, t00=0x0039, t01=0x0036}
0x5948…5954 Head {h00=0x0008, h01=0x0050, text=» LKM«, t00=0x0039, t01=0x004a}
0x5954…5964 Head {h00=0x000c, h01=0x0050, text=» DATA 1 «, t00=0x0039, t01=0x0056}
0x5964…597c Head {h00=0x0014, h01=0x0050, text=» LDKL A8,ECBDCT «, t00=0x0039, t01=0x0066}
0x597c…5992 Head {h00=0x0012, h01=0x0050, text=» ADR A8,CREBAS«, t00=0x0039, t01=0x007e}
0x5992…59a6 Head {h00=0x0010, h01=0x0050, text=» LDR A7,A10 «, t00=0x0039, t01=0x0094}
0x59a6…59ba Head {h00=0x0010, h01=0x0050, text=»PWCC1 EQU * «, t00=0x0039, t01=0x00a8}
0x59ba…59d4 Head {h00=0x0016, h01=0x0050, text=» LD A2,WCC,TCABAS «, t00=0x0039, t01=0x00bc}
0x59d4…59e6 Head {h00=0x000e, h01=0x0050, text=» ANK A2,1 «, t00=0x0039, t01=0x00d6}
0x59e6…5a0a Head {h00=0x0020, h01=0x0050, text=» RF(NZ) RESMDT RESET ALL MDT«, t00=0x0039, t01=0x00e8}
0x5a0a…5a2a Head {h00=0x001c, h01=0x0050, text=»PWCC10 RTN A14 NO ACTION«, t00=0x0039, t01=0x010c}
0x5a2a…5a34 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0039, t01=0x012c}
0x5a34…5a3e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0039, t01=0x0136}
0x5a3e…5a5a Head {h00=0x0018, h01=0x0050, text=»* RESET ALL MDT BITS«, t00=0x0039, t01=0x0140}
0x5a5a…5a64 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0039, t01=0x015c}
0x5a64…5a6e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0039, t01=0x0166}
0x5a6e…5a86 Head {h00=0x0014, h01=0x0050, text=»RESMDT LDK A3,0 «, t00=0x0039, t01=0x0170}
0x5a86…5a9c Head {h00=0x0012, h01=0x0050, text=» LDKL A4,BVDU «, t00=0x0039, t01=0x0188}
0x5a9c…5ab2 Head {h00=0x0012, h01=0x0050, text=» ADR A4,TCABAS«, t00=0x003a, t01=0x000e}
0x5ab2…5ace Head {h00=0x0018, h01=0x0050, text=»RESM10 CWK A3,LBVDU «, t00=0x003a, t01=0x0024}
0x5ace…5aee Head {h00=0x001c, h01=0x0050, text=» RB(NL) PWCC10 ALL DONE «, t00=0x003a, t01=0x0040}
0x5aee…5b0a Head {h00=0x0018, h01=0x0050, text=» LCR A2,A4 GET CHAR «, t00=0x003a, t01=0x0060}
0x5b0a…5b1e Head {h00=0x0010, h01=0x0050, text=» ANK A2,/60 «, t00=0x003a, t01=0x007c}
0x5b1e…5b42 Head {h00=0x0020, h01=0x0050, text=» RF(NZ) RESM20 NO ATTRIBUTE «, t00=0x003a, t01=0x0090}
0x5b42…5b54 Head {h00=0x000e, h01=0x0050, text=» LCR A2,A4«, t00=0x003a, t01=0x00b4}
0x5b54…5b72 Head {h00=0x001a, h01=0x0050, text=» ANK A2,/FE RESET MDT «, t00=0x003a, t01=0x00c6}
0x5b72…5b84 Head {h00=0x000e, h01=0x0050, text=» SCR A2,A4«, t00=0x003a, t01=0x00e4}
0x5b84…5b9c Head {h00=0x0014, h01=0x0050, text=»RESM20 ADK A3,1 «, t00=0x003a, t01=0x00f6}
0x5b9c…5bae Head {h00=0x000e, h01=0x0050, text=» ADK A4,1 «, t00=0x003a, t01=0x010e}
0x5bae…5bc0 Head {h00=0x000e, h01=0x0050, text=» RB RESM10«, t00=0x003a, t01=0x0120}
0x5bc0…5bce Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x003a, t01=0x0132}
0x5bce…5bd8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003a, t01=0x0140}
0x5bd8…5be2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003a, t01=0x014a}
0x5be2…5c00 Head {h00=0x001a, h01=0x0050, text=»* ERASE ENTIRE SCREEN «, t00=0x003a, t01=0x0154}
0x5c00…5c0a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003a, t01=0x0172}
0x5c0a…5c14 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003a, t01=0x017c}
0x5c14…5c2a Head {h00=0x0012, h01=0x0050, text=»ERASE LDK A3,0«, t00=0x003a, t01=0x0186}
0x5c2a…5c40 Head {h00=0x0012, h01=0x0050, text=» LDKL A4,BVDU «, t00=0x003b, t01=0x000c}
0x5c40…5c56 Head {h00=0x0012, h01=0x0050, text=» ADR A4,TCABAS«, t00=0x003b, t01=0x0022}
0x5c56…5c6a Head {h00=0x0010, h01=0x0050, text=» LDK A2,NULL«, t00=0x003b, t01=0x0038}
0x5c6a…5c86 Head {h00=0x0018, h01=0x0050, text=»ERAS20 CWK A3,LBVDU «, t00=0x003b, t01=0x004c}
0x5c86…5ca8 Head {h00=0x001e, h01=0x0050, text=» RF(NL) ERAS25 ALL ERASED «, t00=0x003b, t01=0x0068}
0x5ca8…5cba Head {h00=0x000e, h01=0x0050, text=» SCR A2,A4«, t00=0x003b, t01=0x008a}
0x5cba…5ccc Head {h00=0x000e, h01=0x0050, text=» ADK A3,1 «, t00=0x003b, t01=0x009c}
0x5ccc…5cde Head {h00=0x000e, h01=0x0050, text=» ADK A4,1 «, t00=0x003b, t01=0x00ae}
0x5cde…5cf0 Head {h00=0x000e, h01=0x0050, text=» RB ERAS20«, t00=0x003b, t01=0x00c0}
0x5cf0…5d20 Head {h00=0x002c, h01=0x0050, text=»ERAS25 CM PCURS,TCABAS RESET CURSOR POS «, t00=0x003b, t01=0x00d2}
0x5d20…5d50 Head {h00=0x002c, h01=0x0050, text=» LD A1,PRINTER,TCABAS CHECK DEVISE TYPE «, t00=0x003b, t01=0x0102}
0x5d50…5d7c Head {h00=0x0028, h01=0x0050, text=» RF(NZ) ERAEND PRINTER, NOT DISPLAY «, t00=0x003b, t01=0x0132}
0x5d7c…5da8 Head {h00=0x0028, h01=0x0050, text=» STR A7,A14 SAVE A7 AND A8 ON STACK «, t00=0x003b, t01=0x015e}
0x5da8…5dbe Head {h00=0x0012, h01=0x0050, text=» ST A8,-2,A14 «, t00=0x003b, t01=0x018a}
0x5dbe…5dd6 Head {h00=0x0014, h01=0x0050, text=» LDKL A8,ECBVDU «, t00=0x003c, t01=0x0010}
0x5dd6…5df4 Head {h00=0x001a, h01=0x0050, text=» ADR A8,CREBAS VDUECB «, t00=0x003c, t01=0x0028}
0x5df4…5e1a Head {h00=0x0022, h01=0x0050, text=» LDK A7,'1' ERASE CONTROL CHAR«, t00=0x003c, t01=0x0046}
0x5e1a…5e40 Head {h00=0x0022, h01=0x0050, text=» ST* A7,ECBBA,A8 TO VDU BUFFER«, t00=0x003c, t01=0x006c}
0x5e40…5e52 Head {h00=0x000e, h01=0x0050, text=» LDK A7,2 «, t00=0x003c, t01=0x0092}
0x5e52…5e78 Head {h00=0x0022, h01=0x0050, text=» ST A7,ECBRL,A8 REQ LENGTH = 2«, t00=0x003c, t01=0x00a4}
0x5e78…5e92 Head {h00=0x0016, h01=0x0050, text=» LDK A7,/86 WRITE «, t00=0x003c, t01=0x00ca}
0x5e92…5e9e Head {h00=0x0008, h01=0x0050, text=» LKM«, t00=0x003c, t01=0x00e4}
0x5e9e…5eae Head {h00=0x000c, h01=0x0050, text=» DATA 1 «, t00=0x003c, t01=0x00f0}
0x5eae…5ec4 Head {h00=0x0012, h01=0x0050, text=» LD A8,-2,A14 «, t00=0x003c, t01=0x0100}
0x5ec4…5eea Head {h00=0x0022, h01=0x0050, text=» LDR* A7,A14 RESTORE A7 AND A8«, t00=0x003c, t01=0x0116}
0x5eea…5f00 Head {h00=0x0012, h01=0x0050, text=»ERAEND RTN A14«, t00=0x003c, t01=0x013c}
0x5f00…5f0e Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x003c, t01=0x0152}
0x5f0e…5f18 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003c, t01=0x0160}
0x5f18…5f22 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003c, t01=0x016a}
0x5f22…5f42 Head {h00=0x001c, h01=0x0050, text=»* ERASE ALL UNPROTECTED «, t00=0x003c, t01=0x0174}
0x5f42…5f4c (61, 0, 400) Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003d, t01=0x0004}
0x5f4c…5f56 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003d, t01=0x000e}
0x5f56…5f6e Head {h00=0x0014, h01=0x0050, text=»ERASUP LDK A2,2 «, t00=0x003d, t01=0x0018}
0x5f6e…5fa0 Head {h00=0x002e, h01=0x0050, text=» ST A2,WCC,TCABAS SET KEYBOARD RESTORE BIT«, t00=0x003d, t01=0x0030}
0x5fa0…5fd4 Head {h00=0x0030, h01=0x0050, text=» SUR A1,A1 INDICATE ATT. IN LAST SCREEN POS.«, t00=0x003d, t01=0x0062}
0x5fd4…5fe6 Head {h00=0x000e, h01=0x0050, text=» LDK A3,0 «, t00=0x003d, t01=0x0096}
0x5fe6…5ffc Head {h00=0x0012, h01=0x0050, text=» LDKL A4,BVDU «, t00=0x003d, t01=0x00a8}
0x5ffc…6012 Head {h00=0x0012, h01=0x0050, text=» ADR A4,TCABAS«, t00=0x003d, t01=0x00be}
0x6012…6046 Head {h00=0x0030, h01=0x0050, text=» CM PCURS,TCABAS FIND FIRST UNPROTECTED POS «, t00=0x003d, t01=0x00d4}
0x6046…6092 Head {h00=0x0048, h01=0x0050, text=»********************************************************************«, t00=0x003d, t01=0x0108}
0x6092…60c2 Head {h00=0x002c, h01=0x0050, text=» LC A2,1919,A4 GET LAST SCREEN CHARACTER«, t00=0x003d, t01=0x0154}
0x60c2…60d6 Head {h00=0x0010, h01=0x0050, text=» ANK A2,/7F «, t00=0x003d, t01=0x0184}
0x60d6…60f8 Head {h00=0x001e, h01=0x0050, text=» CWK A2,/20 ATTRIBUTE ??? «, t00=0x003e, t01=0x0008}
0x60f8…6120 Head {h00=0x0024, h01=0x0050, text=» RF(L) ERU:01 YES!! WE GOT IT!! «, t00=0x003e, t01=0x002a}
0x6120…6154 Head {h00=0x0030, h01=0x0050, text=» LDK A1,1 ATTRIBUTE NOT IN LAST SCREEN POS. «, t00=0x003e, t01=0x0052}
0x6154…6194 Head {h00=0x003c, h01=0x0050, text=»********************************************************«, t00=0x003e, t01=0x0086}
0x6194…61b0 Head {h00=0x0018, h01=0x0050, text=»ERASU1 CWK A3,LBVDU «, t00=0x003e, t01=0x00c6}
0x61b0…61c6 Head {h00=0x0012, h01=0x0050, text=» RF(NL) ERASU2«, t00=0x003e, t01=0x00e2}
0x61c6…61e2 Head {h00=0x0018, h01=0x0050, text=» LCR A2,A4 GET CHAR «, t00=0x003e, t01=0x00f8}
0x61e2…61f6 Head {h00=0x0010, h01=0x0050, text=» ANK A2,/7F «, t00=0x003e, t01=0x0114}
0x61f6…6208 Head {h00=0x000e, h01=0x0050, text=» ADK A3,1 «, t00=0x003e, t01=0x0128}
0x6208…621a Head {h00=0x000e, h01=0x0050, text=» ADK A4,1 «, t00=0x003e, t01=0x013a}
0x621a…622e Head {h00=0x0010, h01=0x0050, text=» CWK A2,/20 «, t00=0x003e, t01=0x014c}
0x622e…6252 Head {h00=0x0020, h01=0x0050, text=» RB(NL) ERASU1 NO ATTRIBUTE «, t00=0x003e, t01=0x0160}
0x6252…6266 Head {h00=0x0010, h01=0x0050, text=»ERU:01 EQU *«, t00=0x003e, t01=0x0184}
0x6266…627a Head {h00=0x0010, h01=0x0050, text=» ANK A2,/10 «, t00=0x003f, t01=0x0008}
0x627a…629a Head {h00=0x001c, h01=0x0050, text=» RB(NZ) ERASU1 PROTECTED«, t00=0x003f, t01=0x001c}
0x629a…62c8 Head {h00=0x002a, h01=0x0050, text=» ST A3,PCURS,TCABAS SET NEW CURSOR POS«, t00=0x003f, t01=0x003c}
0x62c8…62da Head {h00=0x000e, h01=0x0050, text=» LDR A1,A1«, t00=0x003f, t01=0x006a}
0x62da…630e Head {h00=0x0030, h01=0x0050, text=» RF(Z) ERASU3 ATTRIBUTE IN LAST SCREEN POS. «, t00=0x003f, t01=0x007c}
0x630e…6326 Head {h00=0x0014, h01=0x0050, text=»ERASU2 LDK A3,0 «, t00=0x003f, t01=0x00b0}
0x6326…633c Head {h00=0x0012, h01=0x0050, text=» LDKL A4,BVDU «, t00=0x003f, t01=0x00c8}
0x633c…6352 Head {h00=0x0012, h01=0x0050, text=» ADR A4,TCABAS«, t00=0x003f, t01=0x00de}
0x6352…6364 Head {h00=0x000e, h01=0x0050, text=» RF ERASU4«, t00=0x003f, t01=0x00f4}
0x6364…6378 Head {h00=0x0010, h01=0x0050, text=»ERASU3 EQU *«, t00=0x003f, t01=0x0106}
0x6378…638a Head {h00=0x000e, h01=0x0050, text=» LDR A3,A3«, t00=0x003f, t01=0x011a}
0x638a…63c4 Head {h00=0x0036, h01=0x0050, text=» RF(Z) ERASU4 UNPROTECTED ATT. IN LAST SCREEN POS.«, t00=0x003f, t01=0x012c}
0x63c4…63ec Head {h00=0x0024, h01=0x0050, text=» SUK A3,1 GET BACK TO ATTRIBUTE «, t00=0x003f, t01=0x0166}
0x63ec…640a Head {h00=0x001a, h01=0x0050, text=» SUK A4,1 - " -«, t00=0x003f, t01=0x018e}
0x640a…641e Head {h00=0x0010, h01=0x0050, text=»ERASU4 EQU *«, t00=0x0040, t01=0x001c}
0x641e…6430 Head {h00=0x000e, h01=0x0050, text=» LDK A1,0 «, t00=0x0040, t01=0x0030}
0x6430…6454 Head {h00=0x0020, h01=0x0050, text=» LDK A6,NULL+/80 ERASE CHAR «, t00=0x0040, t01=0x0042}
0x6454…6466 Head {h00=0x000e, h01=0x0050, text=» RF ERAS35«, t00=0x0040, t01=0x0066}
0x6466…6474 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0040, t01=0x0078}
0x6474…647e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0040, t01=0x0086}
0x647e…6488 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0040, t01=0x0090}
0x6488…64ba Head {h00=0x002e, h01=0x0050, text=»* ERASE UNPROTECTED TO ADDRESS GIVEN IN A1«, t00=0x0040, t01=0x009a}
0x64ba…64c4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0040, t01=0x00cc}
0x64c4…64ce Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0040, t01=0x00d6}
0x64ce…64fc Head {h00=0x002a, h01=0x0050, text=»ERASUA LDK A6,NULL+/80 ERASE CHARACTER«, t00=0x0040, t01=0x00e0}
0x64fc…6524 Head {h00=0x0024, h01=0x0050, text=» ******************* 78-09-11 «, t00=0x0040, t01=0x010e}
0x6524…654a Head {h00=0x0022, h01=0x0050, text=» CWK A3,LBVDU WRAP AROUND ??? «, t00=0x0040, t01=0x0136}
0x654a…6564 Head {h00=0x0016, h01=0x0050, text=» RF(L) ERAS:1 NO!!«, t00=0x0040, t01=0x015c}
0x6564…6582 Head {h00=0x001a, h01=0x0050, text=» LDK A3,0 BUFFERINDEX «, t00=0x0040, t01=0x0176}
0x6582…6598 (65, 0, 398) Head {h00=0x0012, h01=0x0050, text=» LDKL A4,BVDU «, t00=0x0041, t01=0x0004}
0x6598…65c8 Head {h00=0x002c, h01=0x0050, text=» ADR A4,TCABAS ABSOLUTE BUFFER ADDRESS «, t00=0x0041, t01=0x001a}
0x65c8…65d0 Head {h00=0x0004, h01=0x0050, t00=0x0041, t01=0x004a}
0x65d0…660c Head {h00=0x0038, h01=0x0050, text=»ERAS:1 LDR A3,A3 START IN FIRST SCREEN POSITION ??? «, t00=0x0041, t01=0x0052}
0x660c…6628 Head {h00=0x0018, h01=0x0050, text=» RF(NZ) ERAS35 NO!! «, t00=0x0041, t01=0x008e}
0x6628…6654 Head {h00=0x0028, h01=0x0050, text=» LC A2,1919,A4 LAST BUFFER CHARACTER«, t00=0x0041, t01=0x00aa}
0x6654…6668 Head {h00=0x0010, h01=0x0050, text=» ANK A2,/7F «, t00=0x0041, t01=0x00d6}
0x6668…6694 Head {h00=0x0028, h01=0x0050, text=» CWK A2,/20 ATTRIBUTE CHARACTER ??? «, t00=0x0041, t01=0x00ea}
0x6694…66b0 Head {h00=0x0018, h01=0x0050, text=» RF(NL) ERAS35 NO!!!«, t00=0x0041, t01=0x0116}
0x66b0…66c4 Head {h00=0x0010, h01=0x0050, text=» ANK A2,/10 «, t00=0x0041, t01=0x0132}
0x66c4…66ea Head {h00=0x0022, h01=0x0050, text=» RF(NZ) ERAS70 PROTECTED FIELD«, t00=0x0041, t01=0x0146}
0x66ea…6700 Head {h00=0x0012, h01=0x0050, text=» LC A2,1919,A4«, t00=0x0041, t01=0x016c}
0x6700…6714 Head {h00=0x0010, h01=0x0050, text=» ANK A2,/FE «, t00=0x0041, t01=0x0182}
0x6714…6738 Head {h00=0x0020, h01=0x0050, text=» SC A2,1919,A4 RESET MDT BIT«, t00=0x0042, t01=0x0008}
0x6738…674a Head {h00=0x000e, h01=0x0050, text=» RF ERAS35«, t00=0x0042, t01=0x002c}
0x674a…6772 Head {h00=0x0024, h01=0x0050, text=» ******************** 78-09-11«, t00=0x0042, t01=0x003e}
0x6772…678e Head {h00=0x0018, h01=0x0050, text=»ERAS30 CWK A3,LBVDU «, t00=0x0042, t01=0x0066}
0x678e…67b6 Head {h00=0x0024, h01=0x0050, text=» RF(L) ERAS33 NOT END OF SCREEN «, t00=0x0042, t01=0x0082}
0x67b6…67c8 Head {h00=0x000e, h01=0x0050, text=» LDK A3,0 «, t00=0x0042, t01=0x00aa}
0x67c8…67ea Head {h00=0x001e, h01=0x0050, text=» LDKL A4,BVDU WRAP AROUND «, t00=0x0042, t01=0x00bc}
0x67ea…6800 Head {h00=0x0012, h01=0x0050, text=» ADR A4,TCABAS«, t00=0x0042, t01=0x00de}
0x6800…6814 Head {h00=0x0010, h01=0x0050, text=»ERAS33 EQU *«, t00=0x0042, t01=0x00f4}
0x6814…6826 Head {h00=0x000e, h01=0x0050, text=» CWR A3,A1«, t00=0x0042, t01=0x0108}
0x6826…6852 Head {h00=0x0028, h01=0x0050, text=» RB(E) ERAEND ALL UNPROTECTED ERASED«, t00=0x0042, t01=0x011a}
0x6852…6884 Head {h00=0x002e, h01=0x0050, text=»ERAS35 LCR A2,A4 GET CHAR FROM VDU BUFFER «, t00=0x0042, t01=0x0146}
0x6884…6898 Head {h00=0x0010, h01=0x0050, text=» ANK A2,/7F «, t00=0x0042, t01=0x0178}
0x6898…68ac Head {h00=0x0010, h01=0x0050, text=» CWK A2,/20 «, t00=0x0042, t01=0x018c}
0x68ac…68d0 Head {h00=0x0020, h01=0x0050, text=» RF(L) ERAS50 ATTRIBUTE CHAR«, t00=0x0043, t01=0x0010}
0x68d0…68e4 Head {h00=0x0010, h01=0x0050, text=» XRK A2,NULL«, t00=0x0043, t01=0x0034}
0x68e4…6906 Head {h00=0x001e, h01=0x0050, text=» RF(Z) ERAS40 ALREADY NULL«, t00=0x0043, t01=0x0048}
0x6906…692c Head {h00=0x0022, h01=0x0050, text=» SCR A6,A4 STORE MODIFIED NULL«, t00=0x0043, t01=0x006a}
0x692c…6944 Head {h00=0x0014, h01=0x0050, text=»ERAS40 ADK A3,1 «, t00=0x0043, t01=0x0090}
0x6944…6956 Head {h00=0x000e, h01=0x0050, text=» ADK A4,1 «, t00=0x0043, t01=0x00a8}
0x6956…6968 Head {h00=0x000e, h01=0x0050, text=» RB ERAS30«, t00=0x0043, t01=0x00ba}
0x6968…6980 Head {h00=0x0014, h01=0x0050, text=»ERAS50 ADK A3,1 «, t00=0x0043, t01=0x00cc}
0x6980…6992 Head {h00=0x000e, h01=0x0050, text=» ADK A4,1 «, t00=0x0043, t01=0x00e4}
0x6992…69a6 Head {h00=0x0010, h01=0x0050, text=» ANK A2,/10 «, t00=0x0043, t01=0x00f6}
0x69a6…69cc Head {h00=0x0022, h01=0x0050, text=» RF(NZ) ERAS60 PROTECTED FIELD«, t00=0x0043, t01=0x010a}
0x69cc…69e0 Head {h00=0x0010, h01=0x0050, text=» LC A2,-1,A4«, t00=0x0043, t01=0x0130}
0x69e0…6a02 Head {h00=0x001e, h01=0x0050, text=» ANK A2,/FE RESET MDT BIT «, t00=0x0043, t01=0x0144}
0x6a02…6a16 Head {h00=0x0010, h01=0x0050, text=» SC A2,-1,A4«, t00=0x0043, t01=0x0166}
0x6a16…6a28 Head {h00=0x000e, h01=0x0050, text=» RB ERAS30«, t00=0x0043, t01=0x017a}
0x6a28…6a44 Head {h00=0x0018, h01=0x0050, text=»ERAS60 CWK A3,LBVDU «, t00=0x0043, t01=0x018c}
0x6a44…6a5a Head {h00=0x0012, h01=0x0050, text=» RF(L) ERAS65 «, t00=0x0044, t01=0x0018}
0x6a5a…6a6c Head {h00=0x000e, h01=0x0050, text=» LDK A3,0 «, t00=0x0044, t01=0x002e}
0x6a6c…6a8e Head {h00=0x001e, h01=0x0050, text=» LDKL A4,BVDU WRAP AROUND «, t00=0x0044, t01=0x0040}
0x6a8e…6aa4 Head {h00=0x0012, h01=0x0050, text=» ADR A4,TCABAS«, t00=0x0044, t01=0x0062}
0x6aa4…6abc Head {h00=0x0014, h01=0x0050, text=»ERAS65 CWR A3,A1«, t00=0x0044, t01=0x0078}
0x6abc…6ae8 Head {h00=0x0028, h01=0x0050, text=» RB(E) ERAEND ALL UNPROTECTED ERASED«, t00=0x0044, t01=0x0090}
0x6ae8…6afc Head {h00=0x0010, h01=0x0050, text=»ERAS70 EQU *«, t00=0x0044, t01=0x00bc}
0x6afc…6b0e Head {h00=0x000e, h01=0x0050, text=» LCR A2,A4«, t00=0x0044, t01=0x00d0}
0x6b0e…6b22 Head {h00=0x0010, h01=0x0050, text=» ANK A2,/7F «, t00=0x0044, t01=0x00e2}
0x6b22…6b36 Head {h00=0x0010, h01=0x0050, text=» CWK A2,/20 «, t00=0x0044, t01=0x00f6}
0x6b36…6b5c Head {h00=0x0022, h01=0x0050, text=» RB(L) ERAS50 ATTRIBUTE FOUND «, t00=0x0044, t01=0x010a}
0x6b5c…6b6e Head {h00=0x000e, h01=0x0050, text=» ADK A3,1 «, t00=0x0044, t01=0x0130}
0x6b6e…6b80 Head {h00=0x000e, h01=0x0050, text=» ADK A4,1 «, t00=0x0044, t01=0x0142}
0x6b80…6b92 Head {h00=0x000e, h01=0x0050, text=» RB ERAS60«, t00=0x0044, t01=0x0154}
0x6b92…6ba0 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0044, t01=0x0166}
0x6ba0…6baa Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0044, t01=0x0174}
0x6baa…6bb4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0044, t01=0x017e}
0x6bb4…6bd8 Head {h00=0x0020, h01=0x0050, text=»* TRANSMIT PROGRAM ATTENTION«, t00=0x0044, t01=0x0188}
0x6bd8…6be2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0045, t01=0x001c}
0x6be2…6bf2 Head {h00=0x000c, h01=0x0050, text=»* A2=AID«, t00=0x0045, t01=0x0026}
0x6bf2…6bfc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0045, t01=0x0036}
0x6bfc…6c06 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0045, t01=0x0040}
0x6c06…6c34 Head {h00=0x002a, h01=0x0050, text=»TRPA CF A14,GTBUF GET TRANSMIT BUFFER «, t00=0x0045, t01=0x004a}
0x6c34…6c46 Head {h00=0x000e, h01=0x0050, text=» LDR A1,A1«, t00=0x0045, t01=0x0078}
0x6c46…6c6c Head {h00=0x0022, h01=0x0050, text=» RF(Z) TRPA10 BUFFER OBTAINED «, t00=0x0045, t01=0x008a}
0x6c6c…6c86 Head {h00=0x0016, h01=0x0050, text=» RTN A14 NO BUFFER«, t00=0x0045, t01=0x00b0}
0x6c86…6caa Head {h00=0x0020, h01=0x0050, text=»TRPA10 CF A14,PAID STORE AID«, t00=0x0045, t01=0x00ca}
0x6caa…6ce6 Head {h00=0x0038, h01=0x0050, text=»TRANS CF A14,DCEXCH EXCHANGE MESSAGE WITH MAIN FRAME«, t00=0x0045, t01=0x00ee}
0x6ce6…6cfa Head {h00=0x0010, h01=0x0050, text=»TR050 EQU * «, t00=0x0045, t01=0x012a}
0x6cfa…6d20 Head {h00=0x0022, h01=0x0050, text=» RTN A14 TRANSMISSION TROUBLE «, t00=0x0045, t01=0x013e}
0x6d20…6d36 Head {h00=0x0012, h01=0x0050, text=»TRRTN RTN A14 «, t00=0x0045, t01=0x0164}
0x6d36…6d44 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0045, t01=0x017a}
0x6d44…6d4e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0045, t01=0x0188}
0x6d4e…6d58 (70, 0, 400) Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0046, t01=0x0004}
0x6d58…6d7c Head {h00=0x0020, h01=0x0050, text=»* TRANSMIT PROGRAM FUNCTION «, t00=0x0046, t01=0x000e}
0x6d7c…6d86 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0046, t01=0x0032}
0x6d86…6d96 Head {h00=0x000c, h01=0x0050, text=»* A2=AID«, t00=0x0046, t01=0x003c}
0x6d96…6da0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0046, t01=0x004c}
0x6da0…6daa Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0046, t01=0x0056}
0x6daa…6dd8 Head {h00=0x002a, h01=0x0050, text=»TRPF CF A14,GTBUF GET TRANSMIT BUFFER «, t00=0x0046, t01=0x0060}
0x6dd8…6dea Head {h00=0x000e, h01=0x0050, text=» LDR A1,A1«, t00=0x0046, t01=0x008e}
0x6dea…6e10 Head {h00=0x0022, h01=0x0050, text=» RF(Z) TRPF10 BUFFER OBTAINED «, t00=0x0046, t01=0x00a0}
0x6e10…6e20 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0046, t01=0x00c6}
0x6e20…6e44 Head {h00=0x0020, h01=0x0050, text=»TRPF10 CF A14,PAID STORE AID«, t00=0x0046, t01=0x00d6}
0x6e44…6e6e Head {h00=0x0026, h01=0x0050, text=» CF A14,CURSA STORE CURSOR ADDRESS«, t00=0x0046, t01=0x00fa}
0x6e6e…6e92 Head {h00=0x0020, h01=0x0050, text=» CF A14,RDMOD READ MODIFIED «, t00=0x0046, t01=0x0124}
0x6e92…6eb8 Head {h00=0x0022, h01=0x0050, text=» RB TRANS SEND MODIFIED FIELDS«, t00=0x0046, t01=0x0148}
0x6eb8…6ec6 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0046, t01=0x016e}
0x6ec6…6ed0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0046, t01=0x017c}
0x6ed0…6eda Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0046, t01=0x0186}
0x6eda…6f02 Head {h00=0x0024, h01=0x0050, text=»* DISPLAY MODIFIED FIELDS ON VDU«, t00=0x0046, t01=0x0190}
0x6f02…6f0c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0047, t01=0x0028}
0x6f0c…6f16 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0047, t01=0x0032}
0x6f16…6f30 Head {h00=0x0016, h01=0x0050, text=»* A3=VDU POSITION «, t00=0x0047, t01=0x003c}
0x6f30…6f4e Head {h00=0x001a, h01=0x0050, text=»* A4=VDU IMAGE POINTER«, t00=0x0047, t01=0x0056}
0x6f4e…6f6e Head {h00=0x001c, h01=0x0050, text=»* A5=MODIFIED INDICATOR «, t00=0x0047, t01=0x0074}
0x6f6e…6f92 Head {h00=0x0020, h01=0x0050, text=»* A7=VDU LINE OUTPUT POINTER«, t00=0x0047, t01=0x0094}
0x6f92…6fa6 Head {h00=0x0010, h01=0x0050, text=»* A8=VDU ECB«, t00=0x0047, t01=0x00b8}
0x6fa6…6fca Head {h00=0x0020, h01=0x0050, text=»* A9=VDU OUTPUT CHAR COUNTER«, t00=0x0047, t01=0x00cc}
0x6fca…6fd4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0047, t01=0x00f0}
0x6fd4…6fde Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0047, t01=0x00fa}
0x6fde…6ffa Head {h00=0x0018, h01=0x0050, text=»DISPL LDKL A8,ECBVDU«, t00=0x0047, t01=0x0104}
0x6ffa…7010 Head {h00=0x0012, h01=0x0050, text=» ADR A8,CREBAS«, t00=0x0047, t01=0x0120}
0x7010…703e Head {h00=0x002a, h01=0x0050, text=» LDKL A1,/101 START FROM LINE 1 POS 1 «, t00=0x0047, t01=0x0136}
0x703e…7056 Head {h00=0x0014, h01=0x0050, text=» ST A1,ECBCW,A8 «, t00=0x0047, t01=0x0164}
0x7056…7092 Head {h00=0x0038, h01=0x0050, text=» SUR A10,A10 RESET COUNT FOR INTENSIFIED DISPLAYING «, t00=0x0047, t01=0x017c}
0x7092…70a4 Head {h00=0x000e, h01=0x0050, text=» LDK A3,0 «, t00=0x0048, t01=0x0028}
0x70a4…70ba Head {h00=0x0012, h01=0x0050, text=» LDKL A4,BVDU «, t00=0x0048, t01=0x003a}
0x70ba…70d0 Head {h00=0x0012, h01=0x0050, text=» ADR A4,TCABAS«, t00=0x0048, t01=0x0050}
0x70d0…7100 Head {h00=0x002c, h01=0x0050, text=» CF A14,SPACES PUT SPACES IN LINE BUFFER«, t00=0x0048, t01=0x0066}
0x7100…7148 Head {h00=0x0044, h01=0x0050, text=»****************************************************************«, t00=0x0048, t01=0x0096}
0x7148…7182 Head {h00=0x0036, h01=0x0050, text=» LC A2,1919,A4 CHECK IF ATTRIBUTE IN LAST POSITION«, t00=0x0048, t01=0x00de}
0x7182…7196 Head {h00=0x0010, h01=0x0050, text=» ANK A2,/7F «, t00=0x0048, t01=0x0118}
0x7196…71b8 Head {h00=0x001e, h01=0x0050, text=» CWK A2,/1F ATTRIBUTE ??? «, t00=0x0048, t01=0x012c}
0x71b8…71d4 Head {h00=0x0018, h01=0x0050, text=» RF(G) DIS100 NO!!! «, t00=0x0048, t01=0x014e}
0x71d4…71dc Head {h00=0x0004, h01=0x0050, t00=0x0048, t01=0x016a}
0x71dc…71ee Head {h00=0x000e, h01=0x0050, text=» ANK A2,6 «, t00=0x0048, t01=0x0172}
0x71ee…7200 Head {h00=0x000e, h01=0x0050, text=» XRK A2,6 «, t00=0x0048, t01=0x0184}
0x7200…7242 Head {h00=0x003e, h01=0x0050, text=» ST A2,INTATT,TCABAS CHECK DISPLAY/NONDISPLAY INFORMATION «, t00=0x0049, t01=0x0008}
0x7242…7264 Head {h00=0x001e, h01=0x0050, text=» RF(Z) DIS210 NON DISPLAY «, t00=0x0049, t01=0x004a}
0x7264…729c Head {h00=0x0034, h01=0x0050, text=» CF A14,INTCHK INSERT HIGH/LOW INTENS. IN BUFFER«, t00=0x0049, t01=0x006c}
0x729c…72e8 Head {h00=0x0048, h01=0x0050, text=»******************************************************************* «, t00=0x0049, t01=0x00a4}
0x72e8…72fc Head {h00=0x0010, h01=0x0050, text=»DIS100 EQU *«, t00=0x0049, t01=0x00f0}
0x72fc…7312 Head {h00=0x0012, h01=0x0050, text=» CWK A9,LLINE «, t00=0x0049, t01=0x0104}
0x7312…7338 Head {h00=0x0022, h01=0x0050, text=» RF(L) DIS110 NOT END OF LINE «, t00=0x0049, t01=0x011a}
0x7338…7360 Head {h00=0x0024, h01=0x0050, text=» CF A14,DISLIN DISPLAY THIS LINE«, t00=0x0049, t01=0x0140}
0x7360…7392 Head {h00=0x002e, h01=0x0050, text=» CF A14,INTCHK CHECK IF LOW/HIGH INTENSITY«, t00=0x0049, t01=0x0168}
0x7392…73a6 Head {h00=0x0010, h01=0x0050, text=»DIS110 EQU *«, t00=0x004a, t01=0x000a}
0x73a6…73bc Head {h00=0x0012, h01=0x0050, text=» CWK A3,LBVDU «, t00=0x004a, t01=0x001e}
0x73bc…73de Head {h00=0x001e, h01=0x0050, text=» RF(NL) DIS900 ALL SCANNED«, t00=0x004a, t01=0x0034}
0x73de…73fa Head {h00=0x0018, h01=0x0050, text=» LCR A2,A4 GET CHAR «, t00=0x004a, t01=0x0056}
0x73fa…743c Head {h00=0x003e, h01=0x0050, text=»*********************************************** 78-08-15 «, t00=0x004a, t01=0x0072}
0x743c…7462 Head {h00=0x0022, h01=0x0050, text=» CF A14,SET:M SET MODIFIED BIT«, t00=0x004a, t01=0x00b4}
0x7462…74a4 Head {h00=0x003e, h01=0x0050, text=»*********************************************** 78-08-15 «, t00=0x004a, t01=0x00da}
0x74a4…74ca Head {h00=0x0022, h01=0x0050, text=» ANK A2,/7F RESET DISPLAY BIT «, t00=0x004a, t01=0x011c}
0x74ca…74dc Head {h00=0x000e, h01=0x0050, text=» SCR A2,A4«, t00=0x004a, t01=0x0142}
0x74dc…74ee Head {h00=0x000e, h01=0x0050, text=» ADK A3,1 «, t00=0x004a, t01=0x0154}
0x74ee…7500 Head {h00=0x000e, h01=0x0050, text=» ADK A4,1 «, t00=0x004a, t01=0x0166}
0x7500…7512 Head {h00=0x000e, h01=0x0050, text=» ADK A7,1 «, t00=0x004a, t01=0x0178}
0x7512…7524 Head {h00=0x000e, h01=0x0050, text=» ADKL A9,1«, t00=0x004a, t01=0x018a}
0x7524…7538 Head {h00=0x0010, h01=0x0050, text=» CWK A2,/20 «, t00=0x004b, t01=0x000c}
0x7538…755c Head {h00=0x0020, h01=0x0050, text=» RF(L) DIS200 ATTRIBUTE CHAR«, t00=0x004b, t01=0x0020}
0x755c…7570 Head {h00=0x0010, h01=0x0050, text=» CWK A2,NULL«, t00=0x004b, t01=0x0044}
0x7570…75a2 Head {h00=0x002e, h01=0x0050, text=» RB(E) DIS100 NULL EQUALS SPACE AT DISPLAY«, t00=0x004b, t01=0x0058}
0x75a2…75b6 Head {h00=0x0010, h01=0x0050, text=» CWK A2,/7D «, t00=0x004b, t01=0x008a}
0x75b6…75cc Head {h00=0x0012, h01=0x0050, text=» RF(NE) DIS120«, t00=0x004b, t01=0x009e}
0x75cc…75e0 Head {h00=0x0010, h01=0x0050, text=» LDK A2,/39 «, t00=0x004b, t01=0x00b4}
0x75e0…75fa Head {h00=0x0016, h01=0x0050, text=»DIS120 CWK A2,/7E «, t00=0x004b, t01=0x00c8}
0x75fa…7610 Head {h00=0x0012, h01=0x0050, text=» RF(NE) DIS121«, t00=0x004b, t01=0x00e2}
0x7610…7624 Head {h00=0x0010, h01=0x0050, text=» LDK A2,/35 «, t00=0x004b, t01=0x00f8}
0x7624…763e Head {h00=0x0016, h01=0x0050, text=»DIS121 CWK A2,/7C «, t00=0x004b, t01=0x010c}
0x763e…7654 Head {h00=0x0012, h01=0x0050, text=» RF(NE) DIS122«, t00=0x004b, t01=0x0126}
0x7654…7668 Head {h00=0x0010, h01=0x0050, text=» LDK A2,/3C «, t00=0x004b, t01=0x013c}
0x7668…767c Head {h00=0x0010, h01=0x0050, text=»DIS122 EQU *«, t00=0x004b, t01=0x0150}
0x767c…76b4 Head {h00=0x0034, h01=0x0050, text=» SC A2,-1,A7 STORE CHAR IN DISPLAY OUTPUT BUFFER«, t00=0x004b, t01=0x0164}
0x76b4…76c6 Head {h00=0x000e, h01=0x0050, text=» RB DIS100«, t00=0x004c, t01=0x000c}
0x76c6…76de Head {h00=0x0014, h01=0x0050, text=»DIS200 ANK A2,6 «, t00=0x004c, t01=0x001e}
0x76de…7704 Head {h00=0x0022, h01=0x0050, text=» XRK A2,6 CHECK IF NONDISPLAY «, t00=0x004c, t01=0x0036}
0x7704…773a Head {h00=0x0032, h01=0x0050, text=» ST A2,INTATT,TCABAS SAVE ATTRIBUTE CHARACTER «, t00=0x004c, t01=0x005c}
0x773a…775c Head {h00=0x001e, h01=0x0050, text=» RF(Z) DIS210 NON DISPLAY «, t00=0x004c, t01=0x0092}
0x775c…776e Head {h00=0x000e, h01=0x0050, text=» ANK A2,4 «, t00=0x004c, t01=0x00b4}
0x776e…7792 Head {h00=0x0020, h01=0x0050, text=» RF(Z) DIS205 HIGH INTENSITY«, t00=0x004c, t01=0x00c6}
0x7792…77b4 Head {h00=0x001e, h01=0x0050, text=» LDK A2,/1E LOW INTENSITY «, t00=0x004c, t01=0x00ea}
0x77b4…77c6 Head {h00=0x000e, h01=0x0050, text=» RF DIS206«, t00=0x004c, t01=0x010c}
0x77c6…77da Head {h00=0x0010, h01=0x0050, text=»DIS205 EQU *«, t00=0x004c, t01=0x011e}
0x77da…77f2 Head {h00=0x0014, h01=0x0050, text=» LDK A2,/1F HIGH«, t00=0x004c, t01=0x0132}
0x77f2…7806 Head {h00=0x0010, h01=0x0050, text=»DIS206 EQU *«, t00=0x004c, t01=0x014a}
0x7806…7834 Head {h00=0x002a, h01=0x0050, text=» SC A2,-1,A7 STORE INTENSITY CHARACTER«, t00=0x004c, t01=0x015e}
0x7834…785a Head {h00=0x0022, h01=0x0050, text=» ADKL A10,1 INCREMENT COUNTER «, t00=0x004c, t01=0x018c}
0x785a…786c Head {h00=0x000e, h01=0x0050, text=» ADK A7,1 «, t00=0x004d, t01=0x0022}
0x786c…787e Head {h00=0x000e, h01=0x0050, text=» RB DIS100«, t00=0x004d, t01=0x0034}
0x787e…7892 Head {h00=0x0010, h01=0x0050, text=»DIS210 EQU *«, t00=0x004d, t01=0x0046}
0x7892…78a8 Head {h00=0x0012, h01=0x0050, text=» CWK A9,LLINE «, t00=0x004d, t01=0x005a}
0x78a8…78be Head {h00=0x0012, h01=0x0050, text=» RF(L) DIS220 «, t00=0x004d, t01=0x0070}
0x78be…78e6 Head {h00=0x0024, h01=0x0050, text=» CF A14,DISLIN DISPLAY THIS LINE«, t00=0x004d, t01=0x0086}
0x78e6…78fa Head {h00=0x0010, h01=0x0050, text=»DIS220 EQU *«, t00=0x004d, t01=0x00ae}
0x78fa…7910 Head {h00=0x0012, h01=0x0050, text=» CWK A3,LBVDU «, t00=0x004d, t01=0x00c2}
0x7910…7934 Head {h00=0x0020, h01=0x0050, text=» RF(NL) DIS900 ALL DISPLAYED«, t00=0x004d, t01=0x00d8}
0x7934…7946 Head {h00=0x000e, h01=0x0050, text=» LCR A2,A4«, t00=0x004d, t01=0x00fc}
0x7946…7988 Head {h00=0x003e, h01=0x0050, text=»*********************************************** 78-08-15 «, t00=0x004d, t01=0x010e}
0x7988…79ae Head {h00=0x0022, h01=0x0050, text=» CF A14,SET:M SET MODIFIED BIT«, t00=0x004d, t01=0x0150}
0x79ae…79f0 Head {h00=0x003e, h01=0x0050, text=»*********************************************** 78-08-15 «, t00=0x004d, t01=0x0176}
0x79f0…7a16 Head {h00=0x0022, h01=0x0050, text=» ANK A2,/7F RESET DISPLAY BIT «, t00=0x004e, t01=0x0028}
0x7a16…7a28 Head {h00=0x000e, h01=0x0050, text=» SCR A2,A4«, t00=0x004e, t01=0x004e}
0x7a28…7a3a Head {h00=0x000e, h01=0x0050, text=» ADK A3,1 «, t00=0x004e, t01=0x0060}
0x7a3a…7a4c Head {h00=0x000e, h01=0x0050, text=» ADK A4,1 «, t00=0x004e, t01=0x0072}
0x7a4c…7a5e Head {h00=0x000e, h01=0x0050, text=» ADK A7,1 «, t00=0x004e, t01=0x0084}
0x7a5e…7a70 Head {h00=0x000e, h01=0x0050, text=» ADKL A9,1«, t00=0x004e, t01=0x0096}
0x7a70…7a84 Head {h00=0x0010, h01=0x0050, text=» CWK A2,/20 «, t00=0x004e, t01=0x00a8}
0x7a84…7aaa Head {h00=0x0022, h01=0x0050, text=» RB(L) DIS200 ATTRIBUTE FOUND «, t00=0x004e, t01=0x00bc}
0x7aaa…7abc Head {h00=0x000e, h01=0x0050, text=» RB DIS210«, t00=0x004e, t01=0x00e2}
0x7abc…7aca Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x004e, t01=0x00f4}
0x7aca…7ad4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004e, t01=0x0102}
0x7ad4…7ade Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004e, t01=0x010c}
0x7ade…7afc Head {h00=0x001a, h01=0x0050, text=»* POSITION THE CURSOR «, t00=0x004e, t01=0x0116}
0x7afc…7b06 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004e, t01=0x0134}
0x7b06…7b10 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004e, t01=0x013e}
0x7b10…7b24 Head {h00=0x0010, h01=0x0050, text=»SETCUR EQU *«, t00=0x004e, t01=0x0148}
0x7b24…7b46 Head {h00=0x001e, h01=0x0050, text=»DIS900 LDK A1,2 REQ LENGTH«, t00=0x004e, t01=0x015c}
0x7b46…7b64 Head {h00=0x001a, h01=0x0050, text=»DIS905 ST A1,ECBRL,A8 «, t00=0x004e, t01=0x017e}
0x7b64…7b8e Head {h00=0x0026, h01=0x0050, text=» LD A1,PCURS,TCABAS GET CURSOR POS«, t00=0x004f, t01=0x000c}
0x7b8e…7bb8 Head {h00=0x0026, h01=0x0050, text=» LDKL A2,/101 START ON LIN 1 POS 1«, t00=0x004f, t01=0x0036}
0x7bb8…7bd0 Head {h00=0x0014, h01=0x0050, text=» ST A2,ECBCW,A8 «, t00=0x004f, t01=0x0060}
0x7bd0…7be6 Head {h00=0x0012, h01=0x0050, text=» LDKL A2,/100 «, t00=0x004f, t01=0x0078}
0x7be6…7c02 Head {h00=0x0018, h01=0x0050, text=»DIS910 CWK A1,LLINE «, t00=0x004f, t01=0x008e}
0x7c02…7c18 Head {h00=0x0012, h01=0x0050, text=» RF(L) DIS920 «, t00=0x004f, t01=0x00aa}
0x7c18…7c30 Head {h00=0x0014, h01=0x0050, text=» ADS A2,ECBCW,A8«, t00=0x004f, t01=0x00c0}
0x7c30…7c46 Head {h00=0x0012, h01=0x0050, text=» SUKL A1,LLINE«, t00=0x004f, t01=0x00d8}
0x7c46…7c58 Head {h00=0x000e, h01=0x0050, text=» RB DIS910«, t00=0x004f, t01=0x00ee}
0x7c58…7c76 Head {h00=0x001a, h01=0x0050, text=»DIS920 ADS A1,ECBCW,A8«, t00=0x004f, t01=0x0100}
0x7c76…7c9e Head {h00=0x0024, h01=0x0050, text=» LDK A7,/8B SET CURSOR AND WRITE«, t00=0x004f, t01=0x011e}
0x7c9e…7caa Head {h00=0x0008, h01=0x0050, text=» LKM«, t00=0x004f, t01=0x0146}
0x7caa…7cba Head {h00=0x000c, h01=0x0050, text=» DATA 1 «, t00=0x004f, t01=0x0152}
0x7cba…7cee Head {h00=0x0030, h01=0x0050, text=» CM INTATT,TCABAS CLEAR INTENSITY ATTRIBUTE «, t00=0x004f, t01=0x0162}
0x7cee…7cfe Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0050, t01=0x0008}
0x7cfe…7d0c Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0050, t01=0x0018}
0x7d0c…7d16 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0050, t01=0x0026}
0x7d16…7d20 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0050, t01=0x0030}
0x7d20…7d54 Head {h00=0x0030, h01=0x0050, text=»* WRITE ONE CHAR FROM A2 IN CURSOR POSITION «, t00=0x0050, t01=0x003a}
0x7d54…7d5e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0050, t01=0x006e}
0x7d5e…7d68 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0050, t01=0x0078}
0x7d68…7d84 Head {h00=0x0018, h01=0x0050, text=»WCHAR LD A1,ECBBA,A8«, t00=0x0050, t01=0x0082}
0x7d84…7d98 Head {h00=0x0010, h01=0x0050, text=» CWK A2,/7B «, t00=0x0050, t01=0x009e}
0x7d98…7dae Head {h00=0x0012, h01=0x0050, text=» RF(NE) WCHAR1«, t00=0x0050, t01=0x00b2}
0x7dae…7dc2 Head {h00=0x0010, h01=0x0050, text=» LDK A2,/2A «, t00=0x0050, t01=0x00c8}
0x7dc2…7dd6 Head {h00=0x0010, h01=0x0050, text=»WCHAR1 EQU *«, t00=0x0050, t01=0x00dc}
0x7dd6…7e0a Head {h00=0x0030, h01=0x0050, text=» SC A2,3,A1 STORE CHAR IN VDU OUTPUT BUFFER «, t00=0x0050, t01=0x00f0}
0x7e0a…7e1c Head {h00=0x000e, h01=0x0050, text=» LDK A1,4 «, t00=0x0050, t01=0x0124}
0x7e1c…7e3e Head {h00=0x001e, h01=0x0050, text=» RB DIS905 REQ LENGTH = 3 «, t00=0x0050, t01=0x0136}
0x7e3e…7e4c Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0050, t01=0x0158}
0x7e4c…7e56 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0050, t01=0x0166}
0x7e56…7e60 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0050, t01=0x0170}
0x7e60…7e8c Head {h00=0x0028, h01=0x0050, text=»* PUT SPACES TO DISPLAY LINE BUFFER «, t00=0x0050, t01=0x017a}
0x7e8c…7e96 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0051, t01=0x0016}
0x7e96…7ea0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0051, t01=0x0020}
0x7ea0…7ebe Head {h00=0x001a, h01=0x0050, text=»SPACES LD A7,ECBBA,A8 «, t00=0x0051, t01=0x002a}
0x7ebe…7ede Head {h00=0x001c, h01=0x0050, text=» ADK A7,2 BUFFER ADDRESS«, t00=0x0051, t01=0x0048}
0x7ede…7f00 Head {h00=0x001e, h01=0x0050, text=» LDKL A9,LLINE LINE LENGTH«, t00=0x0051, t01=0x0068}
0x7f00…7f1c Head {h00=0x0018, h01=0x0050, text=» ADR A9,A9 DOUBLE IT«, t00=0x0051, t01=0x008a}
0x7f1c…7f38 Head {h00=0x0018, h01=0x0050, text=» LDKL A2,' ' SPACES«, t00=0x0051, t01=0x00a6}
0x7f38…7f50 Head {h00=0x0014, h01=0x0050, text=»SPAC10 STR A2,A7«, t00=0x0051, t01=0x00c2}
0x7f50…7f62 Head {h00=0x000e, h01=0x0050, text=» ADK A7,2 «, t00=0x0051, t01=0x00da}
0x7f62…7f74 Head {h00=0x000e, h01=0x0050, text=» SUKL A9,2«, t00=0x0051, t01=0x00ec}
0x7f74…7f8a Head {h00=0x0012, h01=0x0050, text=» RB(P) SPAC10 «, t00=0x0051, t01=0x00fe}
0x7f8a…7fb2 Head {h00=0x0024, h01=0x0050, text=» LDK A2,0 CLEAR A2=CHAR REGISTER«, t00=0x0051, t01=0x0114}
0x7fb2…7fdc Head {h00=0x0026, h01=0x0050, text=» LDK A5,0 RESET MODIFIED INDICATOR«, t00=0x0051, t01=0x013c}
0x7fdc…7ff4 Head {h00=0x0014, h01=0x0050, text=» LD A7,ECBBA,A8 «, t00=0x0051, t01=0x0166}
0x7ff4…8014 Head {h00=0x001c, h01=0x0050, text=» ADK A7,2 BUFFER ADDRESS«, t00=0x0051, t01=0x017e}
0x8014…803e Head {h00=0x0026, h01=0x0050, text=» SUR A9,A9 RESET LINE CHAR COUNTER«, t00=0x0052, t01=0x000e}
0x803e…804e Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0052, t01=0x0038}
0x804e…805c Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0052, t01=0x0048}
0x805c…8066 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0052, t01=0x0056}
0x8066…8070 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0052, t01=0x0060}
0x8070…809c Head {h00=0x0028, h01=0x0050, text=»* DISPLAY LINE IF ANY MODIFICATIONS «, t00=0x0052, t01=0x006a}
0x809c…80a6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0052, t01=0x0096}
0x80a6…80b0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0052, t01=0x00a0}
0x80b0…80f2 Head {h00=0x003e, h01=0x0050, text=»*********************************************** 78-08-15 «, t00=0x0052, t01=0x00aa}
0x80f2…8106 Head {h00=0x0010, h01=0x0050, text=»DISLIN EQU *«, t00=0x0052, t01=0x00ec}
0x8106…8118 Head {h00=0x000e, h01=0x0050, text=» LDR A7,A5«, t00=0x0052, t01=0x0100}
0x8118…8140 Head {h00=0x0024, h01=0x0050, text=» ANK A5,/80 ANY MODIFICATIONS ??«, t00=0x0052, t01=0x0112}
0x8140…8166 Head {h00=0x0022, h01=0x0050, text=» RF(Z) DISL10 NO MODIFICATIONS«, t00=0x0052, t01=0x013a}
0x8166…8178 Head {h00=0x000e, h01=0x0050, text=» LDK A1,2 «, t00=0x0052, t01=0x0160}
0x8178…81a4 Head {h00=0x0028, h01=0x0050, text=» XRK A7,/A0 ONLY SPACES IN BUFFER ??«, t00=0x0052, t01=0x0172}
0x81a4…81c0 Head {h00=0x0018, h01=0x0050, text=» RF(Z) DIS:10 YES!! «, t00=0x0053, t01=0x000e}
0x81c0…81d8 Head {h00=0x0014, h01=0x0050, text=» LDKL A1,LLINE+2«, t00=0x0053, t01=0x002a}
0x81d8…820a Head {h00=0x002e, h01=0x0050, text=» ADR A1,A10 ADD NR OF INTENSITY CHARACTERS«, t00=0x0053, t01=0x0042}
0x820a…821e Head {h00=0x0010, h01=0x0050, text=»DIS:10 EQU *«, t00=0x0053, t01=0x0074}
0x821e…826e Head {h00=0x004c, h01=0x0050, text=»*********************************************** ERROR IN DISPLAY DRIVER «, t00=0x0053, t01=0x0088}
0x826e…8294 Head {h00=0x0022, h01=0x0050, text=» ST A1,ECBRL,A8 SET REQ LENGTH«, t00=0x0053, t01=0x00d8}
0x8294…829c Head {h00=0x0004, h01=0x0050, t00=0x0053, t01=0x00fe}
0x829c…82a4 Head {h00=0x0004, h01=0x0050, t00=0x0053, t01=0x0106}
0x82a4…82cc Head {h00=0x0024, h01=0x0050, text=» LDK A7,/8B SET CURSOR AND WRITE«, t00=0x0053, t01=0x010e}
0x82cc…82d8 Head {h00=0x0008, h01=0x0050, text=» LKM«, t00=0x0053, t01=0x0136}
0x82d8…82e8 Head {h00=0x000c, h01=0x0050, text=» DATA 1 «, t00=0x0053, t01=0x0142}
0x82e8…832a Head {h00=0x003e, h01=0x0050, text=»*********************************************** 78-08-15 «, t00=0x0053, t01=0x0152}
0x832a…8338 (84, 0, 400) Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0054, t01=0x0004}
0x8338…8340 Head {h00=0x0004, h01=0x0050, t00=0x0054, t01=0x0012}
0x8340…838c Head {h00=0x0048, h01=0x0050, text=»********************************************************************«, t00=0x0054, t01=0x001a}
0x838c…8396 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0054, t01=0x0066}
0x8396…83ca Head {h00=0x0030, h01=0x0050, text=»* EXECUTE FAST OUTPUT TO BLANK REMAINIG PART«, t00=0x0054, t01=0x0070}
0x83ca…83e0 Head {h00=0x0012, h01=0x0050, text=»* OF THE LINE «, t00=0x0054, t01=0x00a4}
0x83e0…83ea Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0054, t01=0x00ba}
0x83ea…8436 Head {h00=0x0048, h01=0x0050, text=»******************************************************************* «, t00=0x0054, t01=0x00c4}
0x8436…843e Head {h00=0x0004, h01=0x0050, t00=0x0054, t01=0x0110}
0x843e…8466 Head {h00=0x0024, h01=0x0050, text=» LD A1,ECBCW,A8 CURSOR POSITION «, t00=0x0054, t01=0x0118}
0x8466…848a Head {h00=0x0020, h01=0x0050, text=» ANK A1,X'FF' COLUMN NUMBER «, t00=0x0054, t01=0x0140}
0x848a…84ae Head {h00=0x0020, h01=0x0050, text=» SUK A1,81 LAST POSITION ???«, t00=0x0054, t01=0x0164}
0x84ae…84e6 Head {h00=0x0034, h01=0x0050, text=» RF(Z) DISL10 YES!! NO FAST OUTPUT ON THIS LINE «, t00=0x0054, t01=0x0188}
0x84e6…84ee Head {h00=0x0004, h01=0x0050, t00=0x0055, t01=0x0030}
0x84ee…8514 Head {h00=0x0022, h01=0x0050, text=» LD A1,ECBBA,A8 BUFFER ADRESS «, t00=0x0055, t01=0x0038}
0x8514…8544 Head {h00=0x002c, h01=0x0050, text=» LDK A2,X'2B' DONT MOVE CURSOR ONE LINE «, t00=0x0055, t01=0x005e}
0x8544…8568 Head {h00=0x0020, h01=0x0050, text=» STR A2,A1 SAVE IT IN BUFFER«, t00=0x0055, t01=0x008e}
0x8568…8596 Head {h00=0x002a, h01=0x0050, text=» LDKL A2,X'1420' FAST OUTPUT OF SPACES«, t00=0x0055, t01=0x00b2}
0x8596…85b6 Head {h00=0x001c, h01=0x0050, text=» ST A2,2,A1 LOAD BUFFER «, t00=0x0055, t01=0x00e0}
0x85b6…85f8 Head {h00=0x003e, h01=0x0050, text=»*********************************************** 478-08-15«, t00=0x0055, t01=0x0100}
0x85f8…861c Head {h00=0x0020, h01=0x0050, text=» LDK A2,84 REQUESTED LENGTH «, t00=0x0055, t01=0x0142}
0x861c…865e Head {h00=0x003e, h01=0x0050, text=»*********************************************** 78-08-15 «, t00=0x0055, t01=0x0166}
0x865e…8676 Head {h00=0x0014, h01=0x0050, text=» ST A2,ECBRL,A8 «, t00=0x0056, t01=0x0018}
0x8676…8698 Head {h00=0x001e, h01=0x0050, text=» LDK A7,X'86' WRITE ORDER «, t00=0x0056, t01=0x0030}
0x8698…86a4 Head {h00=0x0008, h01=0x0050, text=» LKM«, t00=0x0056, t01=0x0052}
0x86a4…86b4 Head {h00=0x000c, h01=0x0050, text=» DATA 1 «, t00=0x0056, t01=0x005e}
0x86b4…86bc Head {h00=0x0004, h01=0x0050, t00=0x0056, t01=0x006e}
0x86bc…86d0 Head {h00=0x0010, h01=0x0050, text=»DISL10 EQU *«, t00=0x0056, t01=0x0076}
0x86d0…86e2 Head {h00=0x000e, h01=0x0050, text=» LDK A2,1 «, t00=0x0056, t01=0x008a}
0x86e2…870e Head {h00=0x0028, h01=0x0050, text=» SC A2,ECBCW+1,A8 POS 1 ON NEXT LINE«, t00=0x0056, t01=0x009c}
0x870e…8724 Head {h00=0x0012, h01=0x0050, text=» LDKL A2,/100 «, t00=0x0056, t01=0x00c8}
0x8724…8752 Head {h00=0x002a, h01=0x0050, text=» ADS A2,ECBCW,A8 INCREMENT LINE NUMBER«, t00=0x0056, t01=0x00de}
0x8752…877a Head {h00=0x0024, h01=0x0050, text=» RB SPACES PUT SPACES TO BUFFER «, t00=0x0056, t01=0x010c}
0x877a…8782 Head {h00=0x0004, h01=0x0050, t00=0x0056, t01=0x0134}
0x8782…878a Head {h00=0x0004, h01=0x0050, t00=0x0056, t01=0x013c}
0x878a…8794 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0056, t01=0x0144}
0x8794…879e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0056, t01=0x014e}
0x879e…87b4 Head {h00=0x0012, h01=0x0050, text=»* DISPLAY TASK«, t00=0x0056, t01=0x0158}
0x87b4…87be Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0056, t01=0x016e}
0x87be…87c8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0056, t01=0x0178}
0x87c8…87d0 Head {h00=0x0004, h01=0x0050, t00=0x0056, t01=0x0182}
0x87d0…87e4 Head {h00=0x0010, h01=0x0050, text=»VDTASK EQU *«, t00=0x0056, t01=0x018a}
0x87e4…87fa Head {h00=0x0012, h01=0x0050, text=» CF A14,I:EVA0«, t00=0x0057, t01=0x000e}
0x87fa…8824 Head {h00=0x0026, h01=0x0050, text=» LDR TCABAS,A9 LOAD ASSEM TCA BASE«, t00=0x0057, t01=0x0024}
0x8824…882c Head {h00=0x0004, h01=0x0050, t00=0x0057, t01=0x004e}
0x882c…8834 Head {h00=0x0004, h01=0x0050, t00=0x0057, t01=0x0056}
0x8834…8872 Head {h00=0x003a, h01=0x0050, text=»******************************************************«, t00=0x0057, t01=0x005e}
0x8872…887c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0057, t01=0x009c}
0x887c…8886 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0057, t01=0x00a6}
0x8886…88b8 Head {h00=0x002e, h01=0x0050, text=»* ASSIGN VDU-KEYBOARD ECB:S TO VDU-TASK «, t00=0x0057, t01=0x00b0}
0x88b8…88c2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0057, t01=0x00e2}
0x88c2…88d6 Head {h00=0x0010, h01=0x0050, text=»*********** «, t00=0x0057, t01=0x00ec}
0x88d6…88de Head {h00=0x0004, h01=0x0050, t00=0x0057, t01=0x0100}
0x88de…890a Head {h00=0x0028, h01=0x0050, text=» LD A7,TID,CREBAS GET TASK IDENTITY «, t00=0x0057, t01=0x0108}
0x890a…8930 Head {h00=0x0022, h01=0x0050, text=» ANK A7,X'FF' MASK TASK INDEX «, t00=0x0057, t01=0x0134}
0x8930…8964 Head {h00=0x0030, h01=0x0050, text=» ORKL A7,X'4B00' FORM VDU-KEYBOARD TASK ID. «, t00=0x0057, t01=0x015a}
0x8964…896c Head {h00=0x0004, h01=0x0050, t00=0x0057, t01=0x018e}
0x896c…8992 Head {h00=0x0022, h01=0x0050, text=» CF A14,GETT:A GET T:A ADDRESS«, t00=0x0058, t01=0x0008}
0x8992…89ba Head {h00=0x0024, h01=0x0050, text=» LDR CREBAS,A1 T:A BASE ADDRESS «, t00=0x0058, t01=0x002e}
0x89ba…89d0 Head {h00=0x0012, h01=0x0050, text=»LOOPEND EQU * «, t00=0x0058, t01=0x0056}
0x89d0…89fc Head {h00=0x0028, h01=0x0050, text=» LD A4,TID,CREBAS GET TASK IDENTITY «, t00=0x0058, t01=0x006c}
0x89fc…8a22 Head {h00=0x0022, h01=0x0050, text=» ANK A4,X'0F' MASK TASK NUMBER«, t00=0x0058, t01=0x0098}
0x8a22…8a34 Head {h00=0x000e, h01=0x0050, text=» ADR A4,A4«, t00=0x0058, t01=0x00be}
0x8a34…8a60 Head {h00=0x0028, h01=0x0050, text=» LD A1,SELTAB,A4 GET SELECT ADDRESS «, t00=0x0058, t01=0x00d0}
0x8a60…8a6e Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0058, t01=0x00fc}
0x8a6e…8a76 Head {h00=0x0004, h01=0x0050, t00=0x0058, t01=0x010a}
0x8a76…8a7e Head {h00=0x0004, h01=0x0050, t00=0x0058, t01=0x0112}
0x8a7e…8a88 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0058, t01=0x011a}
0x8a88…8ac2 Head {h00=0x0036, h01=0x0050, text=»* DELAY VDU-TRANSFER PARAMETER REQUEST IN ORDER «, t00=0x0058, t01=0x0124}
0x8ac2…8afa Head {h00=0x0034, h01=0x0050, text=»* TO GET VDU-DWT AFTER KEYBOARD DWT IN DC:TAB «, t00=0x0058, t01=0x015e}
0x8afa…8b34 Head {h00=0x0036, h01=0x0050, text=»* !!!!!! SELECT WOULD NOT WORK OTHERWISE !!!! «, t00=0x0059, t01=0x0008}
0x8b34…8b3e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0059, t01=0x0042}
0x8b3e…8b46 Head {h00=0x0004, h01=0x0050, t00=0x0059, t01=0x004c}
0x8b46…8b88 Head {h00=0x003e, h01=0x0050, text=»LOOP:1 CW A1,DCADDR,TCABAS HAS KB-TASK MADE TRANS PAR ??? «, t00=0x0059, t01=0x0054}
0x8b88…8bb2 Head {h00=0x0026, h01=0x0050, text=» RF(E) LOOP:2 YES!! THEN CONTINUE «, t00=0x0059, t01=0x0096}
0x8bb2…8bba Head {h00=0x0004, h01=0x0050, t00=0x0059, t01=0x00c0}
0x8bba…8be6 Head {h00=0x0028, h01=0x0050, text=» LDKL A8,1 DELAY TRANSFER PARAMETER «, t00=0x0059, t01=0x00c8}
0x8be6…8bf2 Head {h00=0x0008, h01=0x0050, text=» LKM«, t00=0x0059, t01=0x00f4}
0x8bf2…8c02 Head {h00=0x000c, h01=0x0050, text=» DATA 6 «, t00=0x0059, t01=0x0100}
0x8c02…8c14 Head {h00=0x000e, h01=0x0050, text=» RB LOOP:1«, t00=0x0059, t01=0x0110}
0x8c14…8c28 Head {h00=0x0010, h01=0x0050, text=»LOOP:2 EQU *«, t00=0x0059, t01=0x0122}
0x8c28…8c44 Head {h00=0x0018, h01=0x0050, text=» ST A1,DCADDR,TCABAS«, t00=0x0059, t01=0x0136}
0x8c44…8c5a Head {h00=0x0012, h01=0x0050, text=» CF A14,EMULA «, t00=0x0059, t01=0x0152}
0x8c5a…8c70 Head {h00=0x0012, h01=0x0050, text=» CF A14,ERASE «, t00=0x0059, t01=0x0168}
0x8c70…8c88 Head {h00=0x0014, h01=0x0050, text=»VDTASX LDK A1,0 «, t00=0x0059, t01=0x017e}
0x8c88…8c9e Head {h00=0x0012, h01=0x0050, text=» CF A14,DCRED «, t00=0x005a, t01=0x0008}
0x8c9e…8ca6 Head {h00=0x0004, h01=0x0050, t00=0x005a, t01=0x001e}
0x8ca6…8cba Head {h00=0x0010, h01=0x0050, text=» IFT OFLIN=1«, t00=0x005a, t01=0x0026}
0x8cba…8cea Head {h00=0x002c, h01=0x0050, text=» LD A1,OFFFLG,TCABAS ONLINE/OFFLINE FLAG«, t00=0x005a, t01=0x003a}
0x8cea…8d0c Head {h00=0x001e, h01=0x0050, text=» RF(Z) ON:LIN STILL ONLINE«, t00=0x005a, t01=0x006a}
0x8d0c…8d3a Head {h00=0x002a, h01=0x0050, text=» CF A14,REL:BU RELEASE RECEIVE BUFFER «, t00=0x005a, t01=0x008c}
0x8d3a…8d6c Head {h00=0x002e, h01=0x0050, text=» CF A14,SNBUSY SET DEVICE FREE FOR DC-LINE«, t00=0x005a, t01=0x00ba}
0x8d6c…8d8a Head {h00=0x001a, h01=0x0050, text=» RB VDTASX READ AGAIN «, t00=0x005a, t01=0x00ec}
0x8d8a…8d9e Head {h00=0x0010, h01=0x0050, text=»ON:LIN EQU *«, t00=0x005a, t01=0x010a}
0x8d9e…8daa Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x005a, t01=0x011e}
0x8daa…8db2 Head {h00=0x0004, h01=0x0050, t00=0x005a, t01=0x012a}
0x8db2…8dce Head {h00=0x0018, h01=0x0050, text=» LD A5,KBINH,TCABAS «, t00=0x005a, t01=0x0132}
0x8dce…8e00 Head {h00=0x002e, h01=0x0050, text=» ORK A5,3 BIT 14,15:= 1. TOTALLY DISABLED «, t00=0x005a, t01=0x014e}
0x8e00…8e32 Head {h00=0x002e, h01=0x0050, text=»* KEYBOARD. BIT 15 = 0 AFTER DISPLAYING.«, t00=0x005a, t01=0x0180}
0x8e32…8e4e Head {h00=0x0018, h01=0x0050, text=» ST A5,KBINH,TCABAS «, t00=0x005b, t01=0x0022}
0x8e4e…8e80 Head {h00=0x002e, h01=0x0050, text=» CF A14,LMP1ON TURN ON 'KEYBOARD INHIBIT' «, t00=0x005b, t01=0x003e}
0x8e80…8eb2 Head {h00=0x002e, h01=0x0050, text=» CF A14,LMP3OF TURN ON "SYSTEM AVAILABLE" «, t00=0x005b, t01=0x0070}
0x8eb2…8eba Head {h00=0x0004, h01=0x0050, t00=0x005b, t01=0x00a2}
0x8eba…8f02 Head {h00=0x0044, h01=0x0050, text=»****************************************************************«, t00=0x005b, t01=0x00aa}
0x8f02…8f0c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005b, t01=0x00f2}
0x8f0c…8f4a Head {h00=0x003a, h01=0x0050, text=»* CHECK IF HARDCOPY OF VDU BUFFER IS BEEING EXECUTED«, t00=0x005b, t01=0x00fc}
0x8f4a…8f54 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005b, t01=0x013a}
0x8f54…8f86 Head {h00=0x002e, h01=0x0050, text=»* IF SO, WAIT UNTIL HARDCOPY IS FINISHED«, t00=0x005b, t01=0x0144}
0x8f86…8f90 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005b, t01=0x0176}
0x8f90…8fd4 Head {h00=0x0040, h01=0x0050, text=»************************************************************«, t00=0x005b, t01=0x0180}
0x8fd4…8fdc Head {h00=0x0004, h01=0x0050, t00=0x005c, t01=0x0034}
0x8fdc…9020 Head {h00=0x0040, h01=0x0050, text=»VDTAS2 LD A1,VDUBSY,TCABAS HARDCOPY OF VDU BUFFER IN PROG.? «, t00=0x005c, t01=0x003c}
0x9020…9042 Head {h00=0x001e, h01=0x0050, text=» RF(Z) VDTAS3 NO! PROCEED «, t00=0x005c, t01=0x0080}
0x9042…904a Head {h00=0x0004, h01=0x0050, t00=0x005c, t01=0x00a2}
0x904a…906a Head {h00=0x001c, h01=0x0050, text=» LDKL A8,10 1 SEK. DELAY«, t00=0x005c, t01=0x00aa}
0x906a…9076 Head {h00=0x0008, h01=0x0050, text=» LKM«, t00=0x005c, t01=0x00ca}
0x9076…9086 Head {h00=0x000c, h01=0x0050, text=» DATA 6 «, t00=0x005c, t01=0x00d6}
0x9086…90ae Head {h00=0x0024, h01=0x0050, text=» RB VDTAS2 HARDCOPY FINISHED ?? «, t00=0x005c, t01=0x00e6}
0x90ae…90b6 Head {h00=0x0004, h01=0x0050, t00=0x005c, t01=0x010e}
0x90b6…90be Head {h00=0x0004, h01=0x0050, t00=0x005c, t01=0x0116}
0x90be…90c6 Head {h00=0x0004, h01=0x0050, t00=0x005c, t01=0x011e}
0x90c6…90ce Head {h00=0x0004, h01=0x0050, t00=0x005c, t01=0x0126}
0x90ce…90e2 Head {h00=0x0010, h01=0x0050, text=»VDTAS3 EQU *«, t00=0x005c, t01=0x012e}
0x90e2…90f8 Head {h00=0x0012, h01=0x0050, text=» CF A14,UPDATE«, t00=0x005c, t01=0x0142}
0x90f8…910e Head {h00=0x0012, h01=0x0050, text=» CF A14,DISPL «, t00=0x005c, t01=0x0158}
0x910e…912a Head {h00=0x0018, h01=0x0050, text=» LD A2,PCURS,TCABAS «, t00=0x005c, t01=0x016e}
0x912a…9140 Head {h00=0x0012, h01=0x0050, text=» CF A14,ATMASB«, t00=0x005c, t01=0x018a}
0x9140…9148 Head {h00=0x0004, h01=0x0050, t00=0x005d, t01=0x0010}
0x9148…9150 Head {h00=0x0004, h01=0x0050, t00=0x005d, t01=0x0018}
0x9150…9166 Head {h00=0x0012, h01=0x0050, text=» CF A14,SNBUSY«, t00=0x005d, t01=0x0020}
0x9166…9182 Head {h00=0x0018, h01=0x0050, text=» LD A2,KBINH,TCABAS «, t00=0x005d, t01=0x0036}
0x9182…91a0 Head {h00=0x001a, h01=0x0050, text=» ANK A2,1 BIT 15 = 0? «, t00=0x005d, t01=0x0052}
0x91a0…91ba Head {h00=0x0016, h01=0x0050, text=» RF(Z) VDTAS1 YES «, t00=0x005d, t01=0x0070}
0x91ba…91d6 Head {h00=0x0018, h01=0x0050, text=» LD A2,KBINH,TCABAS «, t00=0x005d, t01=0x008a}
0x91d6…9208 Head {h00=0x002e, h01=0x0050, text=» ANK A2,/E BIT 15:=0 KEYBOARD NOT TOTALLY «, t00=0x005d, t01=0x00a6}
0x9208…9228 Head {h00=0x001c, h01=0x0050, text=»* INHIBITED ANY LONGER«, t00=0x005d, t01=0x00d8}
0x9228…9244 Head {h00=0x0018, h01=0x0050, text=» ST A2,KBINH,TCABAS «, t00=0x005d, t01=0x00f8}
0x9244…925e Head {h00=0x0016, h01=0x0050, text=» LD A2,WCC,TCABAS «, t00=0x005d, t01=0x0114}
0x925e…9270 Head {h00=0x000e, h01=0x0050, text=» ANK A2,2 «, t00=0x005d, t01=0x012e}
0x9270…9294 Head {h00=0x0020, h01=0x0050, text=» RB(Z) VDTASX NO KB RESTORE «, t00=0x005d, t01=0x0140}
0x9294…92a8 Head {h00=0x0010, h01=0x0050, text=»VDTAS1 EQU *«, t00=0x005d, t01=0x0164}
0x92a8…92da Head {h00=0x002e, h01=0x0050, text=» CF A14,LMP1OF TURN OFF 'KEYBOARD INHIBIT'«, t00=0x005d, t01=0x0178}
0x92da…92f6 Head {h00=0x0018, h01=0x0050, text=» LD A2,KBINH,TCABAS «, t00=0x005e, t01=0x001a}
0x92f6…9326 Head {h00=0x002c, h01=0x0050, text=» ANK A2,4 BITS 14,15:=0 RESTORE KEYBOARD«, t00=0x005e, t01=0x0036}
0x9326…9342 Head {h00=0x0018, h01=0x0050, text=» ST A2,KBINH,TCABAS «, t00=0x005e, t01=0x0066}
0x9342…9354 Head {h00=0x000e, h01=0x0050, text=» RB VDTASX«, t00=0x005e, t01=0x0082}
0x9354…935e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005e, t01=0x0094}
0x935e…936c Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x005e, t01=0x009e}
0x936c…9374 Head {h00=0x0004, h01=0x0050, t00=0x005e, t01=0x00ac}
0x9374…937c Head {h00=0x0004, h01=0x0050, t00=0x005e, t01=0x00b4}
0x937c…93c4 Head {h00=0x0044, h01=0x0050, text=»****************************************************************«, t00=0x005e, t01=0x00bc}
0x93c4…93ce Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005e, t01=0x0104}
0x93ce…9410 Head {h00=0x003e, h01=0x0050, text=»* I N T C H K CHECK IF LINE SHOULD BE PRINTED WITH«, t00=0x005e, t01=0x010e}
0x9410…9444 Head {h00=0x0030, h01=0x0050, text=»* HIGH OR LOW INTENSITY «, t00=0x005e, t01=0x0150}
0x9444…944e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005e, t01=0x0184}
0x944e…949c Head {h00=0x004a, h01=0x0050, text=»**********************************************************************«, t00=0x005e, t01=0x018e}
0x949c…94a4 Head {h00=0x0004, h01=0x0050, t00=0x005f, t01=0x004c}
0x94a4…94d4 Head {h00=0x002c, h01=0x0050, text=»INTCHK SUR A10,A10 RESET INTENSITY COUNT«, t00=0x005f, t01=0x0054}
0x94d4…9508 Head {h00=0x0030, h01=0x0050, text=» LD A2,INTATT,TCABAS GET INTENSITY ATTRIBUTE«, t00=0x005f, t01=0x0084}
0x9508…952a Head {h00=0x001e, h01=0x0050, text=» RF(Z) INTRTN NON DISPLAY «, t00=0x005f, t01=0x00b8}
0x952a…9552 Head {h00=0x0024, h01=0x0050, text=» ANK A2,X'4' HIGH INTENSITY ??? «, t00=0x005f, t01=0x00da}
0x9552…956c Head {h00=0x0016, h01=0x0050, text=» RF(Z) INT:10 YES «, t00=0x005f, t01=0x0102}
0x956c…9574 Head {h00=0x0004, h01=0x0050, t00=0x005f, t01=0x011c}
0x9574…9598 Head {h00=0x0020, h01=0x0050, text=» LDK A2,X'1E' LOW INTENSITY «, t00=0x005f, t01=0x0124}
0x9598…95ba Head {h00=0x001e, h01=0x0050, text=» RF INT:20 HIGH INTENSITY «, t00=0x005f, t01=0x0148}
0x95ba…95c2 Head {h00=0x0004, h01=0x0050, t00=0x005f, t01=0x016a}
0x95c2…95ec Head {h00=0x0026, h01=0x0050, text=»INT:10 LDK A2,X'1F' HIGH INTENSITY«, t00=0x005f, t01=0x0172}
0x95ec…95f4 Head {h00=0x0004, h01=0x0050, t00=0x0060, t01=0x000c}
0x95f4…9630 Head {h00=0x0038, h01=0x0050, text=»INT:20 SCR A2,A7 SAVE INTENSITY CHARACTER IN BUFFER «, t00=0x0060, t01=0x0014}
0x9630…965a Head {h00=0x0026, h01=0x0050, text=» ADK A7,1 INCREMENT BUFFER POINTER«, t00=0x0060, t01=0x0050}
0x965a…9688 Head {h00=0x002a, h01=0x0050, text=» ADKL A10,1 INTENSITY COUNT «, t00=0x0060, t01=0x007a}
0x9688…96a6 Head {h00=0x001a, h01=0x0050, text=»INTRTN RTN A14 RETURN «, t00=0x0060, t01=0x00a8}
0x96a6…96b0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0060, t01=0x00c6}
0x96b0…96be Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0060, t01=0x00d0}
0x96be…96c6 Head {h00=0x0004, h01=0x0050, t00=0x0060, t01=0x00de}
0x96c6…96ce Head {h00=0x0004, h01=0x0050, t00=0x0060, t01=0x00e6}
0x96ce…96d6 Head {h00=0x0004, h01=0x0050, t00=0x0060, t01=0x00ee}
0x96d6…96de Head {h00=0x0004, h01=0x0050, t00=0x0060, t01=0x00f6}
0x96de…9724 Head {h00=0x0042, h01=0x0050, text=»************************************************************* «, t00=0x0060, t01=0x00fe}
0x9724…972e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0060, t01=0x0144}
0x972e…975a Head {h00=0x0028, h01=0x0050, text=»* G E T T : A GET T:A ADDRESS «, t00=0x0060, t01=0x014e}
0x975a…9764 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0060, t01=0x017a}
0x9764…9792 Head {h00=0x002a, h01=0x0050, text=»* ENTRY : A7 = TASK IDENTITY«, t00=0x0060, t01=0x0184}
0x9792…979c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0061, t01=0x0022}
0x979c…97c8 Head {h00=0x0028, h01=0x0050, text=»* EXIT : A1 = TCA-ADDRESS«, t00=0x0061, t01=0x002c}
0x97c8…97d2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0061, t01=0x0058}
0x97d2…9808 Head {h00=0x0032, h01=0x0050, text=»**********************************************«, t00=0x0061, t01=0x0062}
0x9808…9810 Head {h00=0x0004, h01=0x0050, t00=0x0061, t01=0x0098}
0x9810…983a Head {h00=0x0026, h01=0x0050, text=»GETT:A LD A3,T:ATAB T:ATAB ADDRESS«, t00=0x0061, t01=0x00a0}
0x983a…9860 Head {h00=0x0022, h01=0x0050, text=» LDR* A4,A3 NUMBER OF ENTRIES «, t00=0x0061, t01=0x00ca}
0x9860…9868 Head {h00=0x0004, h01=0x0050, t00=0x0061, t01=0x00f0}
0x9868…98aa Head {h00=0x003e, h01=0x0050, text=»*********************************************** 78-08-15 «, t00=0x0061, t01=0x00f8}
0x98aa…98c2 Head {h00=0x0014, h01=0x0050, text=»GETLOP ADK A3,2 «, t00=0x0061, t01=0x013a}
0x98c2…9904 Head {h00=0x003e, h01=0x0050, text=»*********************************************** 78-08-15 «, t00=0x0061, t01=0x0152}
0x9904…9924 (98, 0, 400) Head {h00=0x001c, h01=0x0050, text=» LDR* A1,A3 T:A ADDRESS «, t00=0x0062, t01=0x0004}
0x9924…994a Head {h00=0x0022, h01=0x0050, text=» CW A7,-4,A1 SAME IDENTITY ?? «, t00=0x0062, t01=0x0024}
0x994a…9964 Head {h00=0x0016, h01=0x0050, text=» RF(E) GETEND YES «, t00=0x0062, t01=0x004a}
0x9964…998a Head {h00=0x0022, h01=0x0050, text=» SUK A4,1 ALL T:AS CHECKED ???«, t00=0x0062, t01=0x0064}
0x998a…99ae Head {h00=0x0020, h01=0x0050, text=» RB(NZ) GETLOP NO. TRY NEXT «, t00=0x0062, t01=0x008a}
0x99ae…99e6 Head {h00=0x0034, h01=0x0050, text=» LDKL A7,-1 TASK NOT DEFINED ON CREDIT CASSETTE «, t00=0x0062, t01=0x00ae}
0x99e6…9a04 Head {h00=0x001a, h01=0x0050, text=»GETEND RTN A14 RETURN «, t00=0x0062, t01=0x00e6}
0x9a04…9a12 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0062, t01=0x0104}
0x9a12…9a1a Head {h00=0x0004, h01=0x0050, t00=0x0062, t01=0x0112}
0x9a1a…9a62 Head {h00=0x0044, h01=0x0050, text=»****************************************************************«, t00=0x0062, t01=0x011a}
0x9a62…9a6c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0062, t01=0x0162}
0x9a6c…9ab0 Head {h00=0x0040, h01=0x0050, text=»* SET:M SET MODIFIED BIT IF CHARACTER HAS BEEN MODIFIED «, t00=0x0062, t01=0x016c}
0x9ab0…9aba Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0063, t01=0x0020}
0x9aba…9b04 Head {h00=0x0046, h01=0x0050, text=»******************************************************************«, t00=0x0063, t01=0x002a}
0x9b04…9b0c Head {h00=0x0004, h01=0x0050, t00=0x0063, t01=0x0074}
0x9b0c…9b24 Head {h00=0x0014, h01=0x0050, text=»SET:M CWK A2,/20«, t00=0x0063, t01=0x007c}
0x9b24…9b4e Head {h00=0x0026, h01=0x0050, text=» RF(L) SET:M2 ATTRIBUTE CHARACTER «, t00=0x0063, t01=0x0094}
0x9b4e…9b62 Head {h00=0x0010, h01=0x0050, text=» CWK A2,/7F «, t00=0x0063, t01=0x00be}
0x9b62…9b8c Head {h00=0x0026, h01=0x0050, text=» RF(E) SET:M2 UNMODIFIED ATTRIBUTE«, t00=0x0063, t01=0x00d2}
0x9b8c…9ba0 Head {h00=0x0010, h01=0x0050, text=» CWK A2,/FF «, t00=0x0063, t01=0x00fc}
0x9ba0…9bcc Head {h00=0x0028, h01=0x0050, text=» RF(NE) SET:M1 NOT NULL OR ATTRIBUTE«, t00=0x0063, t01=0x0110}
0x9bcc…9bf8 Head {h00=0x0028, h01=0x0050, text=» ORK A5,/A0 MODIFIED NULL CHARACTER «, t00=0x0063, t01=0x013c}
0x9bf8…9c08 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0063, t01=0x0168}
0x9c08…9c32 Head {h00=0x0026, h01=0x0050, text=»SET:M1 ORR A5,A2 SET MODIFIED BIT «, t00=0x0063, t01=0x0178}
0x9c32…9c48 Head {h00=0x0012, h01=0x0050, text=»SET:M2 RTN A14«, t00=0x0064, t01=0x0012}
0x9c48…9c54 Head {h00=0x0008, h01=0x0050, text=» END«, t00=0x0064, t01=0x0028}
0x9c54…9c58 Head {h00=0x4004, h01=0x0000}
0x9c58…9c5c 00 64 00 34 ┆ d 4┆
0x9c5c…9c64 (101, 1, 8) 20 04 00 00 00 65 00 04 ┆ e ┆
0x9c64…9cb4 (102, 0, 400) 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 00 65 01 8e 00 06 00 50 2a 20 00 66 00 38 00 0c 00 50 2a 5c 47 42 55 46 46 43 00 66 00 42 00 06 ┆************************************************ e P* f 8 P* GBUFFC f B ┆
0x9cb4…9d04 00 50 2a 20 00 66 00 52 00 36 00 50 2a 5c 47 45 54 20 56 44 55 20 42 55 46 46 45 52 20 43 48 41 52 20 57 48 49 43 48 20 49 53 20 49 4e 44 49 43 41 54 45 44 20 42 59 20 43 55 52 53 4f 52 00 66 00 5c 00 06 00 50 2a 20 00 66 00 96 00 36 00 50 ┆ P* f R 6 P* GET VDU BUFFER CHAR WHICH IS INDICATED BY CURSOR f P* f 6 P┆
0x9d04…9d54 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 00 66 00 a0 00 06 00 50 2a 20 00 66 00 da 00 1c 00 50 2a 5c 41 32 3d 43 55 52 53 4f 52 20 ┆************************************************** f P* f P* A2=CURSOR ┆
0x9d54…9da4 42 49 4e 41 52 59 20 41 44 44 52 20 00 66 00 e4 00 12 00 50 2a 5c 41 33 3d 43 48 41 52 41 43 54 45 52 00 66 01 04 00 06 00 50 2a 20 00 66 01 1a 00 06 00 50 2a 20 00 66 01 24 00 10 00 50 47 42 55 46 46 43 5c 45 51 55 5c 2a 00 66 01 2e 00 0e ┆BINARY ADDR f P* A3=CHARACTER f P* f P* f $ PGBUFFC EQU * f . ┆
0x9da4…9df4 00 50 5c 4c 44 4b 5c 41 33 2c 30 20 00 66 01 42 00 12 00 50 5c 4c 44 4b 4c 5c 41 34 2c 42 56 44 55 20 00 66 01 54 00 22 00 50 5c 41 44 52 5c 41 34 2c 54 43 41 42 41 53 5c 47 45 54 20 56 44 55 20 42 55 46 46 45 52 20 00 66 01 6a 00 0e 00 50 ┆ P LDK A3,0 f B P LDKL A4,BVDU f T " P ADR A4,TCABAS GET VDU BUFFER f j P┆
0x9df4…9e44 (103, 0, 400) 5c 41 44 52 5c 41 34 2c 41 32 00 66 01 90 00 26 00 50 5c 4c 43 52 5c 41 33 2c 41 34 5c 47 45 54 20 43 48 41 52 41 43 54 45 52 20 49 4e 20 42 55 46 46 2e 20 00 67 00 12 00 0c 00 50 5c 52 54 4e 5c 41 31 34 00 67 00 3c 00 0a 00 50 5c 45 4a 45 ┆ ADR A4,A2 f & P LCR A3,A4 GET CHARACTER IN BUFF. g P RTN A14 g < P EJE┆
0x9e44…9e94 43 54 00 67 00 4c 00 04 00 50 00 67 00 5a 00 10 00 50 5c 49 46 54 5c 4d 5a 45 52 4f 3d 31 00 67 00 62 00 04 00 50 00 67 00 76 00 44 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 ┆CT g L P g Z P IFT MZERO=1 g b P g v D P**********************************┆
0x9e94…9ee4 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 67 00 7e 00 06 00 50 2a 20 00 67 00 c6 00 26 00 50 2a 20 20 20 5a 20 45 20 52 20 4f 20 3a 20 33 20 20 20 20 54 52 49 50 4c 45 20 5a 45 52 4f 20 4b ┆***************************** g ~ P* g & P* Z E R O : 3 TRIPLE ZERO K┆
0x9ee4…9f34 45 59 00 67 00 d0 00 28 00 50 2a 20 20 20 5a 20 45 20 52 20 4f 20 3a 20 32 20 20 20 20 20 44 4f 55 42 4c 45 20 5a 45 52 4f 20 4b 45 59 20 00 67 00 fa 00 06 00 50 2a 20 00 67 01 26 00 36 00 50 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆EY g ( P* Z E R O : 2 DOUBLE ZERO KEY g P* g & 6 P****************┆
0x9f34…9f84 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 67 01 30 00 04 00 50 00 67 01 6a 00 10 00 50 5a 45 52 4f 3a 33 5c 45 51 55 5c 2a 00 67 01 72 00 20 00 50 5c 4c 44 4b 5c 41 31 2c 58 27 ┆********************************* g 0 P g j PZERO:3 EQU * g r P LDK A1,X'┆
0x9f84…9fd4 (104, 0, 400) 33 30 27 5c 43 48 41 52 41 43 54 45 52 20 5a 45 52 4f 00 67 01 86 00 38 00 50 5c 53 43 2a 5c 41 31 2c 45 43 42 4b 42 2b 45 43 42 42 41 2c 43 52 45 42 41 53 5c 53 54 4f 52 45 20 43 48 41 52 41 43 54 45 52 20 49 4e 20 42 55 46 46 45 52 00 68 ┆30' CHARACTER ZERO g 8 P SC* A1,ECBKB+ECBBA,CREBAS STORE CHARACTER IN BUFFER h┆
0x9fd4…a024 00 1a 00 22 00 50 5c 43 46 5c 41 31 34 2c 4e 55 4d 5c 44 49 53 50 4c 41 59 20 43 48 41 52 41 43 54 45 52 20 00 68 00 56 00 04 00 50 00 68 00 7c 00 10 00 50 5a 45 52 4f 3a 32 5c 45 51 55 5c 2a 00 68 00 84 00 20 00 50 5c 4c 44 4b 5c 41 31 2c ┆ " P CF A14,NUM DISPLAY CHARACTER h V P h | PZERO:2 EQU * h P LDK A1,┆
0xa024…a074 58 27 33 30 27 5c 43 48 41 52 41 43 54 45 52 20 5a 45 52 4f 00 68 00 98 00 38 00 50 5c 53 43 2a 5c 41 31 2c 45 43 42 4b 42 2b 45 43 42 42 41 2c 43 52 45 42 41 53 5c 53 54 4f 52 45 20 43 48 41 52 41 43 54 45 52 20 49 4e 20 42 55 46 46 45 52 ┆X'30' CHARACTER ZERO h 8 P SC* A1,ECBKB+ECBBA,CREBAS STORE CHARACTER IN BUFFER┆
0xa074…a0c4 00 68 00 bc 00 22 00 50 5c 43 46 5c 41 31 34 2c 4e 55 4d 5c 44 49 53 50 4c 41 59 20 43 48 41 52 41 43 54 45 52 20 00 68 00 f8 00 22 00 50 5c 43 46 5c 41 31 34 2c 4e 55 4d 5c 44 49 53 50 4c 41 59 20 43 48 41 52 41 43 54 45 52 20 00 68 01 1e ┆ h " P CF A14,NUM DISPLAY CHARACTER h " P CF A14,NUM DISPLAY CHARACTER h ┆
0xa0c4…a114 00 14 00 50 5c 52 54 4e 5c 41 31 34 5c 52 45 54 55 52 4e 20 00 68 01 44 00 04 00 50 00 68 01 5c 00 08 00 50 5c 58 49 46 00 68 01 64 00 0a 00 50 5c 45 4a 45 43 54 00 68 01 70 00 06 00 50 2a 20 00 68 01 7e 00 40 00 50 2a 2a 2a 2a 2a 2a 2a 2a ┆ P RTN A14 RETURN h D P h P XIF h d P EJECT h p P* h ~ @ P********┆
0xa114…a164 (105, 0, 400) 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 00 68 01 88 00 06 00 50 2a 20 00 69 00 3c 00 0c 00 50 2a 5c 52 45 53 45 54 20 00 69 ┆**************************************************** h P* i < P* RESET i┆
0xa164…a1b4 00 46 00 06 00 50 2a 20 00 69 00 56 00 38 00 50 2a 5c 52 45 53 45 54 20 27 4b 45 59 42 4f 41 52 44 20 49 4e 48 49 42 49 54 27 20 49 4e 20 46 4f 4c 4c 4f 57 49 4e 47 20 53 49 54 55 41 54 49 4f 4e 53 3a 20 00 69 00 60 00 38 00 50 2a 5c 31 2d ┆ F P* i V 8 P* RESET 'KEYBOARD INHIBIT' IN FOLLOWING SITUATIONS: i ` 8 P* 1-┆
0xa1b4…a204 20 41 20 44 45 56 49 43 45 20 57 49 54 48 20 41 4e 20 41 54 54 41 43 48 45 44 20 4b 45 59 42 4f 41 52 44 20 49 53 20 45 58 45 43 55 54 49 4e 47 00 69 00 9c 00 24 00 50 2a 5c 5c 41 20 43 4f 4d 4d 41 4e 44 2e 20 42 49 54 20 31 34 3d 31 20 49 ┆ A DEVICE WITH AN ATTACHED KEYBOARD IS EXECUTING i $ P* A COMMAND. BIT 14=1 I┆
0xa204…a254 4e 20 4b 42 49 4e 48 20 00 69 00 d8 00 32 00 50 2a 5c 32 2d 20 41 20 50 41 2d 4b 45 59 20 4f 50 45 52 41 54 49 4f 4e 20 49 53 20 49 4e 20 50 52 4f 43 45 53 53 20 50 52 49 4f 52 20 54 4f 00 69 01 00 00 3c 00 50 2a 5c 5c 49 4e 49 54 49 41 54 ┆N KBINH i 2 P* 2- A PA-KEY OPERATION IS IN PROCESS PRIOR TO i < P* INITIAT┆
0xa254…a2a4 49 4f 4e 20 4f 46 20 41 20 43 4f 4d 4d 41 4e 44 20 46 4f 52 20 41 20 44 45 56 49 43 45 20 57 49 54 48 20 41 4e 20 41 54 54 41 43 48 45 44 00 69 01 36 00 22 00 50 2a 5c 5c 4b 45 59 42 4f 41 52 44 2e 20 42 49 54 20 31 34 3d 31 20 49 4e 20 4b ┆ION OF A COMMAND FOR A DEVICE WITH AN ATTACHED i 6 " P* KEYBOARD. BIT 14=1 IN K┆
0xa2a4…a2f4 (106, 0, 400) 42 49 4e 48 00 69 01 76 00 2a 00 50 2a 5c 33 2d 20 45 52 52 4f 52 53 49 54 55 41 54 49 4f 4e 2e 20 42 49 54 20 31 34 3d 31 20 49 4e 20 4b 42 49 4e 48 00 6a 00 0c 00 06 00 50 2a 20 00 6a 00 3a 00 3a 00 50 2a 5c 49 46 20 42 49 54 20 31 35 3d ┆BINH i v * P* 3- ERRORSITUATION. BIT 14=1 IN KBINH j P* j : : P* IF BIT 15=┆
0xa2f4…a344 31 20 49 4e 20 4b 42 49 4e 48 20 3d 3e 20 4e 4f 20 52 45 53 45 54 54 49 4e 47 20 41 4c 4c 4f 57 45 44 20 44 55 52 49 4e 47 20 00 6a 00 44 00 24 00 50 2a 5c 55 50 44 41 54 45 20 41 4e 44 20 44 49 53 50 4c 41 59 20 53 49 54 55 41 54 49 4f 4e ┆1 IN KBINH => NO RESETTING ALLOWED DURING j D $ P* UPDATE AND DISPLAY SITUATION┆
0xa344…a394 2e 20 00 6a 00 82 00 06 00 50 2a 20 00 6a 00 aa 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 ┆. j P* j @ P*********************************************************** ┆
0xa394…a3e4 00 6a 00 b4 00 06 00 50 2a 20 00 6a 00 f8 00 10 00 50 52 45 53 45 54 5c 45 51 55 5c 2a 20 00 6a 01 02 00 26 00 50 5c 43 4d 5c 4b 42 49 4e 48 2c 54 43 41 42 41 53 5c 52 45 53 53 54 4f 52 45 20 4b 45 59 42 4f 41 52 44 00 6a 01 16 00 28 00 50 ┆ j P* j PRESET EQU * j & P CM KBINH,TCABAS RESSTORE KEYBOARD j ( P┆
0xa3e4…a434 5c 43 46 5c 41 31 34 2c 4c 4d 50 32 4f 46 5c 54 55 52 4e 20 4f 46 46 20 27 45 52 52 4f 52 27 20 4c 41 4d 50 00 6a 01 40 00 34 00 50 5c 43 46 5c 41 31 34 2c 4c 4d 50 31 4f 46 5c 54 55 52 4e 20 4f 46 46 20 27 4b 45 59 42 4f 41 52 44 20 49 4e ┆ CF A14,LMP2OF TURN OFF 'ERROR' LAMP j @ 4 P CF A14,LMP1OF TURN OFF 'KEYBOARD IN┆
0xa434…a484 (107, 0, 400) 48 49 42 49 54 27 20 4c 41 4d 50 20 00 6a 01 6c 00 0c 00 50 5c 52 54 4e 5c 41 31 34 00 6b 00 14 00 0a 00 50 5c 45 4a 45 43 54 00 6b 00 24 00 04 00 50 00 6b 00 32 00 04 00 50 00 6b 00 3a 00 44 00 50 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆HIBIT' LAMP j l P RTN A14 k P EJECT k $ P k 2 P k : D P**************┆
0xa484…a4d4 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 6b 00 42 00 06 00 50 2a 20 00 6b 00 8a 00 34 00 50 2a 20 20 20 43 20 4f 20 50 20 59 20 ┆************************************************* k B P* k 4 P* C O P Y ┆
0xa4d4…a524 20 3a 20 20 20 43 4f 50 59 20 43 4f 4e 54 45 4e 54 53 20 49 4e 20 56 44 55 20 42 55 46 46 45 52 20 4f 4e 20 00 6b 00 94 00 24 00 50 2a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 48 41 52 44 43 4f 50 59 20 44 45 56 49 43 45 00 6b 00 cc ┆ : COPY CONTENTS IN VDU BUFFER ON k $ P* HARDCOPY DEVICE k ┆
0xa524…a574 00 06 00 50 2a 20 00 6b 00 f4 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 2a 00 6b 00 fe 00 04 ┆ P* k @ P************************************************************ k ┆
0xa574…a5c4 00 50 00 6b 01 42 00 36 00 50 43 4f 50 59 5c 4c 44 5c 41 39 2c 43 4f 50 4e 4f 2c 54 43 41 42 41 53 5c 47 45 54 20 48 41 52 44 43 4f 50 59 20 54 41 53 4b 20 49 44 45 4e 54 49 54 59 00 6b 01 4a 00 30 00 50 5c 52 46 28 4e 50 29 5c 43 4f 50 3a ┆ P k B 6 PCOPY LD A9,COPNO,TCABAS GET HARDCOPY TASK IDENTITY k J 0 P RF(NP) COP:┆
0xa5c4…a614 (108, 0, 400) 31 30 5c 4e 4f 20 48 41 52 44 43 4f 50 59 20 44 45 56 49 43 45 20 43 4f 4e 4e 45 43 54 45 44 20 00 6b 01 84 00 04 00 50 00 6c 00 28 00 30 00 50 5c 43 46 5c 41 31 34 2c 4c 4d 50 31 4f 4e 5c 54 55 52 4e 20 4f 4e 20 22 20 4b 45 59 42 4f 41 52 ┆10 NO HARDCOPY DEVICE CONNECTED k P l ( 0 P CF A14,LMP1ON TURN ON " KEYBOAR┆
0xa614…a664 44 20 49 4e 48 49 42 49 54 20 22 20 00 6c 00 30 00 26 00 50 5c 4c 44 52 5c 41 37 2c 41 39 5c 48 41 52 44 43 4f 50 59 20 54 41 53 4b 20 49 44 45 4e 54 49 54 59 20 00 6c 00 64 00 04 00 50 00 6c 00 8e 00 30 00 50 5c 49 4d 5c 56 44 55 42 53 59 ┆D INHIBIT " l 0 & P LDR A7,A9 HARDCOPY TASK IDENTITY l d P l 0 P IM VDUBSY┆
0xa664…a6b4 2c 54 43 41 42 41 53 5c 53 45 54 20 56 44 55 20 42 55 53 59 20 57 48 45 4e 20 48 41 52 44 43 4f 50 59 00 6c 00 96 00 0e 00 50 5c 4c 44 4b 5c 41 31 2c 31 20 00 6c 00 ca 00 34 00 50 5c 4f 52 53 5c 41 31 2c 4b 42 49 4e 48 2c 54 43 41 42 41 53 ┆,TCABAS SET VDU BUSY WHEN HARDCOPY l P LDK A1,1 l 4 P ORS A1,KBINH,TCABAS┆
0xa6b4…a704 5c 53 45 54 20 4b 45 59 42 4f 41 52 44 20 54 4f 54 2e 20 49 4e 48 49 42 49 54 45 44 00 6c 00 dc 00 04 00 50 00 6c 01 14 00 04 00 50 00 6c 01 1c 00 22 00 50 5c 43 46 5c 41 31 34 2c 47 45 54 54 3a 41 5c 47 45 54 20 54 3a 41 20 41 44 44 52 45 ┆ SET KEYBOARD TOT. INHIBITED l P l P l " P CF A14,GETT:A GET T:A ADDRE┆
0xa704…a754 53 53 00 6c 01 24 00 34 00 50 5c 53 54 5c 41 31 2c 43 52 45 2c 54 43 41 42 41 53 5c 53 41 56 45 20 48 41 52 44 43 50 2e 20 44 45 56 2e 20 54 43 41 20 41 44 44 52 45 53 53 20 00 6c 01 4a 00 36 00 50 5c 53 54 5c 43 52 45 42 41 53 2c 56 44 55 ┆SS l $ 4 P ST A1,CRE,TCABAS SAVE HARDCP. DEV. TCA ADDRESS l J 6 P ST CREBAS,VDU┆