|
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: 36528 (0x8eb0)
Notes: pts_type(SC)
Names: »VDUPRT.SC«
└─⟦173d42e04⟧ Bits:30009663 Philips computer tape "600105"
└─⟦this⟧ »IBM3270/VDUPRT.SC«
└─⟦781e933ac⟧ Bits:30009686 Philips computer tape "600310"
└─⟦this⟧ »IBM3270/VDUPRT.SC«
IDENT VDUPRT REL 10.0 80-03-14 870150541000 =6, BUFFER OVERFLOW REL 3.0 79-12-07 =4, ESC IN MESSAGE TEXT REL 2.1 79-05-23 =5, SKIP CIRCULAR KB-BUFFER REL 2.1 79-05-23 =1,ODD BUFFER ADDRESS REL 2.1 79-05-23 =2,KEYBOARD LAMPS REL 2.1 79-05-23 =3, TRANSMIT BUFFER LENGTH REL 2.1 79-05-23 ****************************************************************** * * 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 UPDATE ENTRY RFMDUP REPLACE FM & DUP ENTRY DCINP ENTRY RLRBUF ENTRY DCGETM ENTRY GTRBUF * * * EXTERNALS * * EXTRN LINHON,LINHOF START EXTRN LSAVON,LSAVOF START EXTRN ATMASB EXTRN EMULA EXTRN REQTIM EXTRN ICWRTE * EXTRN SNBUSY PRT * EXTRN I:EVA0 CREDIT EVALUATION TABLE * EXTRN TASCII,TEBCDI TB3270 EJECT * **************************************************************** * * CONDITIONAL ASSEMBLY PARAMETERS * ********************************************** OFLIN EQU 0 OFFLINE HANDLING POSSIBLE IF ::= 1 DCLIN EQU 1 NUMBER OF MAIN FRAMES (1-2) RBUFL EQU 1050 RECEIVE BUFFER LENGTH IN WORDS RBUFNR EQU 2 NUMBER OF RECEIVE BUFFERS (1-5) TBUFL EQU 500 TRANSMIT BUFFER LENGTH IN WORDS TBUFNR EQU 2 NUMBER OF TRANSMIT BUFFERS (1-5) COPCMD EQU 0 COPY COMMAND (ONLY TO PRINTER) IF := 1 EBCDIC EQU 1 ASCII = 0,EBCDIC = 1 * * 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 DUPCH EQU /7B FMCH EQU /60 EJECT * * * EQUATES * * COMMON EQU FOR ECB HANDLING * ECBBA EQU 2 ECBRL EQU 4 ECBEL EQU 6 ECBRC EQU 8 ECBCW EQU 10 * * * CREDIT USED EQU * * * ECB REL. ADDRESSES * * DIS EQU 20 * ECBDC EQU -DIS-14 IFT DCLIN=2 IFT COPCMD=1 ECBDC2 EQU ECBDC-DIS ECBICR EQU ECBDC2-DIS ECBICW EQU ECBICR-DIS XIF IFT DCLIN=2 IFF COPCMD=1 ECBDC2 EQU ECBDC-DIS ECBICW EQU ECBDC2-DIS XIF IFF DCLIN=2 IFT COPCMD=1 ECBICR EQU ECBDC-DIS ECBICW EQU ECBICR-DIS XIF IFF DCLIN=2 IFF COPCMD=1 ECBICW EQU ECBDC-DIS XIF ECBVDU EQU ECBICW-DIS ECBKB EQU ECBVDU-DIS ECBSD EQU ECBKB-DIS EJECT * * * BASE ADDRESS FOR TCA AND ECB * TCABAS EQU A11 CREBAS EQU A13 ECB * * * 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 ICWORK EQU DCLENG+2 WORK FIELD INTERTASK COMM INTATT EQU ICWORK+2 INTENSITY ATTRIBUTE OFFFLG EQU INTATT+2 OFFLINE FLAG COPNO EQU OFFFLG+2 HARDCOPY TASK ID CCC EQU COPNO+2 COPY COMMAND CHARACTER MAIN EQU CCC+2 MAIN FRAME MODE EQU MAIN+2 INSERT MODE SWITCH KEYS EQU MODE+2 KEY LOCK STATUS ECBDCC EQU KEYS+2 ECB ADDRESS LAST READ DC ECBBLK EQU ECBDCC+2 ECBS FOR MULTIPLE WAIT &C RDMORE EQU ECBBLK+10 BRANCH ADDRESS NEXT READ KB 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 * * CONFIG DATA 'CB1' REL ADDRESSES * NBRKBV EQU 0 NUMBER OF KB/VDUS NBRGTP EQU NBRKBV+2 NUMBER OF GTPS * MF1KBV EQU NBRGTP+2 DV ADDRESSES KB/VDU MF #1 MF1GTP EQU MF1KBV+16 DV ADDRESSES GTPS MF # 1 IFT DCLIN=2 MF2KBV EQU MF1GTP+16 MF2GTP EQU MF2KBV+16 XIF * EJECT **************************************************************** * * INPUT FROM DC * **************************************************** * * RELATIVE POS IN ECBBLK KB EQU 2 DC1 EQU 4 DC2 EQU 6 * DCINP EQU * CF A14,GTRBUF GET RECEIVE BUFFER LD A8,ECBDCC,TCABAS CF A14,DCGETM READ MESSAGE IFF DCLIN=2 CM ECBBLK+DC1,TCABAS XIF IFT DCLIN=2 LD A1,MAIN,TCABAS CW A8,ECBBLK+DC2,TCABAS RF(E) DCIN20 MF # 2 CM ECBBLK+DC1,TCABAS LDR A1,A1 RF(NZ) DCIN90 WRONG MF RF DCIN30 DCIN20 EQU * CM ECBBLK+DC2,TCABAS LDR A1,A1 RF(Z) DCIN90 WRONG MF XIF DCIN30 EQU * IFT OFLIN=1 LD A1,OFFFLG,TCABAS RF(NZ) DCIN90 XIF LD A1,ECBEL,A8 EFFECTIVE DC-LENGTH ST A1,DCLENG,TCABAS 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,LINHON TURN ON 'KEYBOARD INHIBIT' CF A14,LSAVON TURN ON "SYSTEM AVAILABLE" CF A14,UPDATE CF A14,DISPL LD A2,PCURS,TCABAS CF A14,ATMASB * LD A2,KBINH,TCABAS ANK A2,1 BIT 15 = 0? RF(Z) DCIN60 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 RF(Z) DCIN95 DCIN60 EQU * CF A14,LINHOF TURN OFF 'KEYBOARD INHIBIT' LD A2,KBINH,TCABAS ANK A2,4 BITS 14,15:=0 RESTORE KEYBOARD ST A2,KBINH,TCABAS RF DCIN95 DCIN90 EQU * LD A8,ECBDCC,TCABAS LD A4,ECBBA,A8 CF A14,RLRBUF DCIN95 EQU * CF A14,SNBUSY RTN A14 EJECT * * READ DC * DCGETM EQU * LDK A1,0 CF A14,REQTIM LDK A7,/82 READ, WAIT CM ECBCW,A8 NO TIME OUT SUPERVISION LDKL A1,RBUFL+RBUFL ST A1,ECBRL,A8 REQ LENGTH ST A4,ECBBA,A8 LKM DATA 1 RTN A14 EJECT ********************************************************** * * BUFFER HANDLING * ********************************************************** * RLINK EQU RBUFL+RBUFL+2 * RBUF EQU * DATA *+2 POINTER FIRST FREE IFF RBUFNR=1 DATA *+RLINK RES RBUFL IFF RBUFNR=2 DATA *+RLINK RES RBUFL IFF RBUFNR=3 DATA *+RLINK RES RBUFL IFF RBUFNR=4 DATA *+RLINK RES RBUFL XIF DATA 0 END OF CHAIN RES RBUFL * * TLINK EQU TBUFL+TBUFL+2 * TBUF EQU * DATA *+2 POINTER FIRST FREE IFF TBUFNR=1 DATA *+TLINK RES TBUFL IFF TBUFNR=2 DATA *+TLINK RES TBUFL IFF TBUFNR=3 DATA *+TLINK RES TBUFL IFF TBUFNR=4 DATA *+TLINK RES TBUFL XIF DATA 0 END OF CHAIN RES TBUFL * * * GET WRITE BUFFER * GTWBUF EQU * LDKL A5,TBUF CF A14,GETBUF LDR A7,A4 LDR A12,A4 ADK A7,2 SKIP LDKL A9,2 FOR DV ADDRESS RTN A14 * * GET RECEIVE BUFFER * GTRBUF EQU * LDKL A5,RBUF * * GETBUF EQU * LDR* A4,A5 RF(Z) GETB50 NO BUFFER FREE LDR* A3,A4 STR A3,A5 ADK A4,2 SKIP LINK RTN A14 GETB50 EQU * LKM DATA 0 SWITCH TASK RB GETBUF * * RELEASE BUFFER * RLRBUF EQU * LDKL A2,RBUF RELB05 EQU * SUK A4,2 POINT TO LINK RELB10 EQU * LDR* A3,A2 RF(Z) RELB20 LDR A2,A3 RB RELB10 RELB20 EQU * STR A4,A2 CMR A4 RTN A14 * RLWBUF EQU * LDKL A2,TBUF RB RELB05 EJECT * * * STORE CHARACTER IN DC BUFFER * * A2=CHAR * A7=BUFFER POINTER * A9=BUFFER CHARACTER COUNTER * * PDCCH EQU * CWK A9,TBUFL+TBUFL =3 RF(NL) PDCCHR OVERFLOW =6 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 RF(NZ) GDCC:1 NOT NULL CHARACTER LDK A2,/7F LOAD NULL CHARACTER 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 TO MAIN FRAME * * ON EXIT A1 CONTAINS RETURN CODE * * DCWRTE EQU * LDKL A8,ECBDC IFT DCLIN=2 LD A7,MAIN,TCABAS RF(Z) DC050 LDKL A8,ECBDC2 XIF DC050 EQU * ADR A8,CREBAS LDKL A1,TIMDC CF A14,REQTIM ST A9,ECBRL,A8 REQ LENGTH ST A12,ECBBA,A8 BUFFER ADDRESS 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 * LDR A4,A12 CF A14,RLWBUF LD A1,ECBRC,A8 GET RETURN CODE RF(Z) DC300 LD A7,KBINH,TCABAS ANK A7,/D BIT 14:=0 ALLIWE KEYBOARD ST A7,KBINH,TCABAS CF A14,LINHOF TURN OFF "KEYBOARD INHIBIT CF A14,LSAVOF TURN OFF "SYSTEM AVAILABLE" * LDK A7,/31 RESET KEYBOARD ECB BUFFER LDKL A8,ECBKB ADR A8,CREBAS LKM DATA 1 * RTN A14 DC300 EQU * CF A14,LSAVON TURN ON 'SYSTEM AVAILABLE' 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 LDR A1,A2 ANK A1,/60 ATTRIBUTE ??? RF(Z) RD200 YES!!! ************************************************************ 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 EQU * CM ICWORK,TCABAS LD A8,ECBDCC,TCABAS 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 IFT COPCMD=1 CWK A2,/37 ABL(E) UPD600 COPY COMMAND XIF 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 * ORK A2,/80 SET DISPLAY BIT UPD240 EQU * LDK A5,0 INDICATE NOT WCC, IC OR RA 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 RF(NE) UPD317 ILLEGAL ORDER LDK A2,/30 RB UPD230 UPD317 EQU * CWK A2,ESC ESCAPE ??? RB(E) UPD010 YES!! GET TEXT 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 * ************************************* UPDEND EQU * LD A8,ECBDCC,TCABAS LD A4,ECBBA,A8 CF A14,RLRBUF 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 UPD240 * * 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-07-02 CWR A3,A1 NULLS TO ALL SCREEN POSITIONS ???? RF(E) UPD530 YES!!! ***************************************************** 78-07-02 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-07-02 UPD530 EQU * ***************************************************** 78-07-02 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 IFT COPCMD=1 EJECT * * COPY COMMAND * UPD600 EQU * LD A1,PRINTER,TCABAS ABL(Z) UPDEND COPYCOMMAND NOT SUPPORTED FOR VDU ADK A7,1 BYPASS CCC CF A14,GDCCH GET FROM DEVICE IFT EBCDIC=1 LC A2,TEBCDI,A2 CONVERT TO EBCDIC XIF IFT COPCMD=1 LD A3,6,CREBAS 'CB1' ADDRESS LDK A4,MF1KBV-1 IFT DCLIN=2 LD A1,ECBBLK+DC2,TCABAS RF(NZ) UPD602 LDK A4,MF2KBV-1 MF # 2 READ XIF IFT COPCMD=1 UPD602 EQU * ADR A4,A3 CONFIG TABLE -1 LD A5,NBRKBV,A3 NUMBER OF KB/VDUS ADR A4,A5 LAST KB/VDU CONFIGURATED UPD604 EQU * CCR A2,A4 DV-ADDRESS MATCHES ? RF(E) UPD610 YES SUK A4,1 SUK A5,1 RB(P) UPD604 TRY NEXT ABL UPDEND NO MATCH * UPD610 EQU * LDKL A8,ECBICW ADR A8,CREBAS LKM DATA 10 ABORT LAST REQUEST IF NOT COMPLETED ADKL A5,/4B40 TASKID FROM DEVICE LD A2,-4,CREBAS GET OWN TASKID ST A2,ICWORK,TCABAS PUT IN BUFFER LDK A4,/0B WRITE ADDRESSED , NO WAIT LDK A6,2 REQ LENGTH LDKL A3,ICWORK ADR A3,TCABAS BUFFER ADDRESS CF A14,ICWRTE WRITE INTERTASK ABL UPDEND XIF 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 SC A7,1,A2 =1 LDK A7,/07 BELL =1 SC A7,2,A2 =1 SC A7,3,A2 =1 LDK A7,4 ST A7,ECBRL,A8 LDK A7,/86 LKM DATA 1 LD A8,ECBDCC,TCABAS 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 LDKL A1,LBVDU+1 ST A1,CURATT,TCABAS INDICATE UNFORM. SCREEN CM ATTRIB,TCABAS 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 LD A1,ECBBA,A8 =1 SC A7,1,A1 =1 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 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,GTWBUF GET TRANSMIT BUFFER TRPA10 CF A14,PAID STORE AID TRANS EQU * CF A14,DCWRTE WRITE MESSAGE TR050 EQU * RTN A14 TRANSMISSION TROUBLE TRRTN RTN A14 EJECT * * * TRANSMIT PROGRAM FUNCTION * * A2=AID * * TRPF CF A14,GTWBUF GET TRANSMIT BUFFER 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 DIS115 EQU * 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 DIS225 EQU * 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 CF A14,RFMDUP SC A2,3,A1 STORE CHAR IN VDU OUTPUT BUFFER LDK A1,4 RB DIS905 REQ LENGTH = 3 * ********************************************************************* * * REPLACE FM & DUP WITH '*' RESP. ';', IF PRESENT * CHARACTER IN A2 * ********************************************************************* * RFMDUP EQU * CWK A2,DUPCH RF(NE) RFMD10 LDK A2,/2A DUP RFMD10 EQU * CWK A2,FMCH RF(NE) RFMD20 LDK A2,/3B RFMD20 EQU * RTN A14 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 SCR A2,A7 =1 SC A2,1,A7 =1 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 * *********************************************** 78-08-15 ST A1,ECBRL,A8 SET REQ LENGTH LDK A7,/8B SET CURSOR AND WRITE LKM DATA 1 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 SC A2,1,A1 =1 LDKL A2,X'1420' FAST OUTPUT OF SPACES SC A2,3,A1 =1 SRL A2,8 =1 SC A2,2,A1 =1 LDK A2,84 REQUESTED LENGTH 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 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 **************************************************************** * * 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, 398) Head {h00=0x0032, h01=0x0050, text=» IDENT VDUPRT REL 10.0 80-03-14 870150541000 «, t00=0x0000, t01=0x0004}
0x0036…003e Head {h00=0x0004, h01=0x0050, t00=0x0000, t01=0x003a}
0x003e…005c Head {h00=0x001a, h01=0x0050, text=» =6, BUFFER OVERFLOW«, t00=0x0000, t01=0x0042}
0x005c…0078 Head {h00=0x0018, h01=0x0050, text=» REL 3.0 79-12-07 «, t00=0x0000, t01=0x0060}
0x0078…009a Head {h00=0x001e, h01=0x0050, text=» =4, ESC IN MESSAGE TEXT«, t00=0x0000, t01=0x007c}
0x009a…00b6 Head {h00=0x0018, h01=0x0050, text=» REL 2.1 79-05-23 «, t00=0x0000, t01=0x009e}
0x00b6…00dc Head {h00=0x0022, h01=0x0050, text=» =5, SKIP CIRCULAR KB-BUFFER«, t00=0x0000, t01=0x00ba}
0x00dc…00f8 Head {h00=0x0018, h01=0x0050, text=» REL 2.1 79-05-23 «, t00=0x0000, t01=0x00e0}
0x00f8…0118 Head {h00=0x001c, h01=0x0050, text=» =1,ODD BUFFER ADDRESS«, t00=0x0000, t01=0x00fc}
0x0118…0134 Head {h00=0x0018, h01=0x0050, text=» REL 2.1 79-05-23 «, t00=0x0000, t01=0x011c}
0x0134…0150 Head {h00=0x0018, h01=0x0050, text=» =2,KEYBOARD LAMPS«, t00=0x0000, t01=0x0138}
0x0150…016c Head {h00=0x0018, h01=0x0050, text=» REL 2.1 79-05-23 «, t00=0x0000, t01=0x0154}
0x016c…0192 Head {h00=0x0022, h01=0x0050, text=» =3, TRANSMIT BUFFER LENGTH «, t00=0x0000, t01=0x0170}
0x0192…01ae Head {h00=0x0018, h01=0x0050, text=» REL 2.1 79-05-23 «, t00=0x0001, t01=0x0008}
0x01ae…01f8 Head {h00=0x0046, h01=0x0050, text=»******************************************************************«, t00=0x0001, t01=0x0024}
0x01f8…0202 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x006e}
0x0202…0242 Head {h00=0x003c, h01=0x0050, text=»* V D U P R T : MODULE HANDLING MESSAGES COMING FROM«, t00=0x0001, t01=0x0078}
0x0242…0280 Head {h00=0x003a, h01=0x0050, text=»* MAIN FRAME, AND DISPLAYING THEM ON«, t00=0x0001, t01=0x00b8}
0x0280…02b2 Head {h00=0x002e, h01=0x0050, text=»* THE VDU ( PTS 6344 ) .«, t00=0x0001, t01=0x00f6}
0x02b2…02bc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x0128}
0x02bc…0308 Head {h00=0x0048, h01=0x0050, text=»********************************************************************«, t00=0x0001, t01=0x0132}
0x0308…0312 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x017e}
0x0312…031c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x0188}
0x031c…032a (2, 0, 400) Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0002, t01=0x0004}
0x032a…0334 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x0012}
0x0334…033e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x001c}
0x033e…0350 Head {h00=0x000e, h01=0x0050, text=»* ENTRIES «, t00=0x0002, t01=0x0026}
0x0350…035a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x0038}
0x035a…0364 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x0042}
0x0364…0392 Head {h00=0x002a, h01=0x0050, text=» ENTRY TRPF TRANSMIT, PROGRAM FUNCTION«, t00=0x0002, t01=0x004c}
0x0392…03c2 Head {h00=0x002c, h01=0x0050, text=» ENTRY TRPA TRANSMIT, PROGRAM ATTENTION «, t00=0x0002, t01=0x007a}
0x03c2…03ea Head {h00=0x0024, h01=0x0050, text=» ENTRY ERASE ERASE ENTIRE SCREEN«, t00=0x0002, t01=0x00aa}
0x03ea…0412 Head {h00=0x0024, h01=0x0050, text=» ENTRY SETCUR CURSOR POSITIONING«, t00=0x0002, t01=0x00d2}
0x0412…043e Head {h00=0x0028, h01=0x0050, text=» ENTRY ERASUP ERASE ALL UNPROTECTED «, t00=0x0002, t01=0x00fa}
0x043e…0468 Head {h00=0x0026, h01=0x0050, text=» ENTRY DISPL DISPLAY MODIFIED DATA«, t00=0x0002, t01=0x0126}
0x0468…049a Head {h00=0x002e, h01=0x0050, text=» ENTRY ERASUA ERASE UNPROTECTED TO ADDRESS«, t00=0x0002, t01=0x0150}
0x049a…04cc Head {h00=0x002e, h01=0x0050, text=» ENTRY WCHAR WRITE ONE CHAR IN CURSOR POS «, t00=0x0002, t01=0x0182}
0x04cc…04e2 Head {h00=0x0012, h01=0x0050, text=» ENTRY UPDATE «, t00=0x0003, t01=0x0024}
0x04e2…0508 Head {h00=0x0022, h01=0x0050, text=» ENTRY RFMDUP REPLACE FM & DUP«, t00=0x0003, t01=0x003a}
0x0508…051c Head {h00=0x0010, h01=0x0050, text=» ENTRY DCINP«, t00=0x0003, t01=0x0060}
0x051c…0532 Head {h00=0x0012, h01=0x0050, text=» ENTRY RLRBUF «, t00=0x0003, t01=0x0074}
0x0532…0548 Head {h00=0x0012, h01=0x0050, text=» ENTRY DCGETM «, t00=0x0003, t01=0x008a}
0x0548…055e Head {h00=0x0012, h01=0x0050, text=» ENTRY GTRBUF «, t00=0x0003, t01=0x00a0}
0x055e…0568 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x00b6}
0x0568…0572 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x00c0}
0x0572…0586 Head {h00=0x0010, h01=0x0050, text=»* EXTERNALS «, t00=0x0003, t01=0x00ca}
0x0586…0590 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x00de}
0x0590…059a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x00e8}
0x059a…05bc Head {h00=0x001e, h01=0x0050, text=» EXTRN LINHON,LINHOF START«, t00=0x0003, t01=0x00f2}
0x05bc…05de Head {h00=0x001e, h01=0x0050, text=» EXTRN LSAVON,LSAVOF START«, t00=0x0003, t01=0x0114}
0x05de…05f4 Head {h00=0x0012, h01=0x0050, text=» EXTRN ATMASB «, t00=0x0003, t01=0x0136}
0x05f4…0608 Head {h00=0x0010, h01=0x0050, text=» EXTRN EMULA«, t00=0x0003, t01=0x014c}
0x0608…061e Head {h00=0x0012, h01=0x0050, text=» EXTRN REQTIM «, t00=0x0003, t01=0x0160}
0x061e…0634 Head {h00=0x0012, h01=0x0050, text=» EXTRN ICWRTE «, t00=0x0003, t01=0x0176}
0x0634…063e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x018c}
0x063e…0658 Head {h00=0x0016, h01=0x0050, text=» EXTRN SNBUSY PRT «, t00=0x0004, t01=0x0008}
0x0658…0662 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x0022}
0x0662…0690 Head {h00=0x002a, h01=0x0050, text=» EXTRN I:EVA0 CREDIT EVALUATION TABLE «, t00=0x0004, t01=0x002c}
0x0690…069a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x005a}
0x069a…06be Head {h00=0x0020, h01=0x0050, text=» EXTRN TASCII,TEBCDI TB3270 «, t00=0x0004, t01=0x0064}
0x06be…06cc Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0004, t01=0x0088}
0x06cc…06d6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x0096}
0x06d6…071e Head {h00=0x0044, h01=0x0050, text=»****************************************************************«, t00=0x0004, t01=0x00a0}
0x071e…0728 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x00e8}
0x0728…0754 Head {h00=0x0028, h01=0x0050, text=»* CONDITIONAL ASSEMBLY PARAMETERS «, t00=0x0004, t01=0x00f2}
0x0754…075e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x011e}
0x075e…0794 Head {h00=0x0032, h01=0x0050, text=»**********************************************«, t00=0x0004, t01=0x0128}
0x0794…079c Head {h00=0x0004, h01=0x0050, t00=0x0004, t01=0x015e}
0x079c…07d2 Head {h00=0x0032, h01=0x0050, text=»OFLIN EQU 0 OFFLINE HANDLING POSSIBLE IF ::= 1«, t00=0x0004, t01=0x0166}
0x07d2…0802 Head {h00=0x002c, h01=0x0050, text=»DCLIN EQU 1 NUMBER OF MAIN FRAMES (1-2) «, t00=0x0005, t01=0x000c}
0x0802…0838 Head {h00=0x0032, h01=0x0050, text=»RBUFL EQU 1050 RECEIVE BUFFER LENGTH IN WORDS «, t00=0x0005, t01=0x003c}
0x0838…086c Head {h00=0x0030, h01=0x0050, text=»RBUFNR EQU 2 NUMBER OF RECEIVE BUFFERS (1-5)«, t00=0x0005, t01=0x0072}
0x086c…08a2 Head {h00=0x0032, h01=0x0050, text=»TBUFL EQU 500 TRANSMIT BUFFER LENGTH IN WORDS «, t00=0x0005, t01=0x00a6}
0x08a2…08d8 Head {h00=0x0032, h01=0x0050, text=»TBUFNR EQU 2 NUMBER OF TRANSMIT BUFFERS (1-5) «, t00=0x0005, t01=0x00dc}
0x08d8…0914 Head {h00=0x0038, h01=0x0050, text=»COPCMD EQU 0 COPY COMMAND (ONLY TO PRINTER) IF := 1 «, t00=0x0005, t01=0x0112}
0x0914…093e Head {h00=0x0026, h01=0x0050, text=»EBCDIC EQU 1 ASCII = 0,EBCDIC = 1 «, t00=0x0005, t01=0x014e}
0x093e…0948 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x0178}
0x0948…095a Head {h00=0x000e, h01=0x0050, text=»* EQUATES «, t00=0x0005, t01=0x0182}
0x095a…0964 (6, 0, 400) Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x0004}
0x0964…096e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x000e}
0x096e…099c Head {h00=0x002a, h01=0x0050, text=»TIMDC EQU 300 DC TIME OUT VALUE: 30 S «, t00=0x0006, t01=0x0018}
0x099c…09b0 Head {h00=0x0010, h01=0x0050, text=»ESC EQU /1B «, t00=0x0006, t01=0x0046}
0x09b0…09c4 Head {h00=0x0010, h01=0x0050, text=»SBA EQU /11 «, t00=0x0006, t01=0x005a}
0x09c4…09e8 Head {h00=0x0020, h01=0x0050, text=»NULL EQU /7F NULL CHARACTER «, t00=0x0006, t01=0x006e}
0x09e8…0a12 Head {h00=0x0026, h01=0x0050, text=»NEWLIN EQU /7E NEW LINE CHARACTER «, t00=0x0006, t01=0x0092}
0x0a12…0a3a Head {h00=0x0024, h01=0x0050, text=»ENDMES EQU /7D END MESSAGE CHAR «, t00=0x0006, t01=0x00bc}
0x0a3a…0a60 Head {h00=0x0022, h01=0x0050, text=»FORMFD EQU /7C FORM FEED CHAR «, t00=0x0006, t01=0x00e4}
0x0a60…0a76 Head {h00=0x0012, h01=0x0050, text=»DUPCH EQU /7B «, t00=0x0006, t01=0x010a}
0x0a76…0a8a Head {h00=0x0010, h01=0x0050, text=»FMCH EQU /60«, t00=0x0006, t01=0x0120}
0x0a8a…0a98 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0006, t01=0x0134}
0x0a98…0aa2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x0142}
0x0aa2…0aac Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x014c}
0x0aac…0ac2 Head {h00=0x0012, h01=0x0050, text=»* EQUATES «, t00=0x0006, t01=0x0156}
0x0ac2…0acc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x016c}
0x0acc…0af2 Head {h00=0x0022, h01=0x0050, text=»* COMMON EQU FOR ECB HANDLING «, t00=0x0006, t01=0x0176}
0x0af2…0afc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x000c}
0x0afc…0b04 Head {h00=0x0004, h01=0x0050, t00=0x0007, t01=0x0016}
0x0b04…0b18 Head {h00=0x0010, h01=0x0050, text=»ECBBA EQU 2 «, t00=0x0007, t01=0x001e}
0x0b18…0b2c Head {h00=0x0010, h01=0x0050, text=»ECBRL EQU 4 «, t00=0x0007, t01=0x0032}
0x0b2c…0b40 Head {h00=0x0010, h01=0x0050, text=»ECBEL EQU 6 «, t00=0x0007, t01=0x0046}
0x0b40…0b54 Head {h00=0x0010, h01=0x0050, text=»ECBRC EQU 8 «, t00=0x0007, t01=0x005a}
0x0b54…0b68 Head {h00=0x0010, h01=0x0050, text=»ECBCW EQU 10«, t00=0x0007, t01=0x006e}
0x0b68…0b72 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x0082}
0x0b72…0b7c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x008c}
0x0b7c…0b96 Head {h00=0x0016, h01=0x0050, text=»* CREDIT USED EQU «, t00=0x0007, t01=0x0096}
0x0b96…0ba0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x00b0}
0x0ba0…0baa Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x00ba}
0x0baa…0bc6 Head {h00=0x0018, h01=0x0050, text=»* ECB REL. ADDRESSES«, t00=0x0007, t01=0x00c4}
0x0bc6…0bd0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x00e0}
0x0bd0…0bda Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x00ea}
0x0bda…0bec Head {h00=0x000e, h01=0x0050, text=»DIS EQU 20«, t00=0x0007, t01=0x00f4}
0x0bec…0bf6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x0106}
0x0bf6…0c10 Head {h00=0x0016, h01=0x0050, text=»ECBDC EQU -DIS-14 «, t00=0x0007, t01=0x0110}
0x0c10…0c24 Head {h00=0x0010, h01=0x0050, text=» IFT DCLIN=2«, t00=0x0007, t01=0x012a}
0x0c24…0c3a Head {h00=0x0012, h01=0x0050, text=» IFT COPCMD=1 «, t00=0x0007, t01=0x013e}
0x0c3a…0c56 Head {h00=0x0018, h01=0x0050, text=»ECBDC2 EQU ECBDC-DIS«, t00=0x0007, t01=0x0154}
0x0c56…0c74 Head {h00=0x001a, h01=0x0050, text=»ECBICR EQU ECBDC2-DIS «, t00=0x0007, t01=0x0170}
0x0c74…0c92 Head {h00=0x001a, h01=0x0050, text=»ECBICW EQU ECBICR-DIS «, t00=0x0007, t01=0x018e}
0x0c92…0c9e Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0008, t01=0x001c}
0x0c9e…0cb2 Head {h00=0x0010, h01=0x0050, text=» IFT DCLIN=2«, t00=0x0008, t01=0x0028}
0x0cb2…0cc8 Head {h00=0x0012, h01=0x0050, text=» IFF COPCMD=1 «, t00=0x0008, t01=0x003c}
0x0cc8…0ce4 Head {h00=0x0018, h01=0x0050, text=»ECBDC2 EQU ECBDC-DIS«, t00=0x0008, t01=0x0052}
0x0ce4…0d02 Head {h00=0x001a, h01=0x0050, text=»ECBICW EQU ECBDC2-DIS «, t00=0x0008, t01=0x006e}
0x0d02…0d0e Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0008, t01=0x008c}
0x0d0e…0d22 Head {h00=0x0010, h01=0x0050, text=» IFF DCLIN=2«, t00=0x0008, t01=0x0098}
0x0d22…0d38 Head {h00=0x0012, h01=0x0050, text=» IFT COPCMD=1 «, t00=0x0008, t01=0x00ac}
0x0d38…0d54 Head {h00=0x0018, h01=0x0050, text=»ECBICR EQU ECBDC-DIS«, t00=0x0008, t01=0x00c2}
0x0d54…0d72 Head {h00=0x001a, h01=0x0050, text=»ECBICW EQU ECBICR-DIS «, t00=0x0008, t01=0x00de}
0x0d72…0d7e Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0008, t01=0x00fc}
0x0d7e…0d92 Head {h00=0x0010, h01=0x0050, text=» IFF DCLIN=2«, t00=0x0008, t01=0x0108}
0x0d92…0da8 Head {h00=0x0012, h01=0x0050, text=» IFF COPCMD=1 «, t00=0x0008, t01=0x011c}
0x0da8…0dc4 Head {h00=0x0018, h01=0x0050, text=»ECBICW EQU ECBDC-DIS«, t00=0x0008, t01=0x0132}
0x0dc4…0dd0 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0008, t01=0x014e}
0x0dd0…0dee Head {h00=0x001a, h01=0x0050, text=»ECBVDU EQU ECBICW-DIS «, t00=0x0008, t01=0x015a}
0x0dee…0e0a Head {h00=0x0018, h01=0x0050, text=»ECBKB EQU ECBVDU-DIS«, t00=0x0008, t01=0x0178}
0x0e0a…0e26 (9, 0, 400) Head {h00=0x0018, h01=0x0050, text=»ECBSD EQU ECBKB-DIS «, t00=0x0009, t01=0x0004}
0x0e26…0e34 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0009, t01=0x0020}
0x0e34…0e3e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x002e}
0x0e3e…0e48 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x0038}
0x0e48…0e6e Head {h00=0x0022, h01=0x0050, text=»* BASE ADDRESS FOR TCA AND ECB«, t00=0x0009, t01=0x0042}
0x0e6e…0e78 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x0068}
0x0e78…0e8e Head {h00=0x0012, h01=0x0050, text=»TCABAS EQU A11«, t00=0x0009, t01=0x0072}
0x0e8e…0ea8 Head {h00=0x0016, h01=0x0050, text=»CREBAS EQU A13 ECB«, t00=0x0009, t01=0x0088}
0x0ea8…0eb2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x00a2}
0x0eb2…0ebc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x00ac}
0x0ebc…0ed8 Head {h00=0x0018, h01=0x0050, text=»* TCA REL. ADDRESSES«, t00=0x0009, t01=0x00b6}
0x0ed8…0ee2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x00d2}
0x0ee2…0ef6 Head {h00=0x0010, h01=0x0050, text=»TCT01 EQU 0 «, t00=0x0009, t01=0x00dc}
0x0ef6…0f12 Head {h00=0x0018, h01=0x0050, text=»PRINTER EQU TCT01+2 «, t00=0x0009, t01=0x00f0}
0x0f12…0f3e Head {h00=0x0028, h01=0x0050, text=»BVDU EQU PRINTER+2 VDU SCREEN BUFFER«, t00=0x0009, t01=0x010c}
0x0f3e…0f72 Head {h00=0x0030, h01=0x0050, text=»PCURS EQU BVDU+1920 CURSOR ADDRESS , BINARY «, t00=0x0009, t01=0x0138}
0x0f72…0fa0 Head {h00=0x002a, h01=0x0050, text=»ATTRIB EQU PCURS+2 LAST ATTRIBUTE CHAR«, t00=0x0009, t01=0x016c}
0x0fa0…0fbc Head {h00=0x0018, h01=0x0050, text=»CURATT EQU ATTRIB+2 «, t00=0x000a, t01=0x000a}
0x0fbc…0fe6 Head {h00=0x0026, h01=0x0050, text=»WCC EQU CURATT+2 WCC/CCC CHARACTER«, t00=0x000a, t01=0x0026}
0x0fe6…1018 Head {h00=0x002e, h01=0x0050, text=»KBINH EQU WCC+2 KEYBOARD INHIBIT INDICATOR«, t00=0x000a, t01=0x0050}
0x1018…1040 Head {h00=0x0024, h01=0x0050, text=»LINCNT EQU KBINH+2 LINE COUNTER «, t00=0x000a, t01=0x0082}
0x1040…1074 Head {h00=0x0030, h01=0x0050, text=»DCLENG EQU LINCNT+2 DC READ EFFECTIVE LENGTH«, t00=0x000a, t01=0x00aa}
0x1074…10aa Head {h00=0x0032, h01=0x0050, text=»ICWORK EQU DCLENG+2 WORK FIELD INTERTASK COMM «, t00=0x000a, t01=0x00de}
0x10aa…10da Head {h00=0x002c, h01=0x0050, text=»INTATT EQU ICWORK+2 INTENSITY ATTRIBUTE «, t00=0x000a, t01=0x0114}
0x10da…1102 Head {h00=0x0024, h01=0x0050, text=»OFFFLG EQU INTATT+2 OFFLINE FLAG«, t00=0x000a, t01=0x0144}
0x1102…112e Head {h00=0x0028, h01=0x0050, text=»COPNO EQU OFFFLG+2 HARDCOPY TASK ID «, t00=0x000a, t01=0x016c}
0x112e…115c Head {h00=0x002a, h01=0x0050, text=»CCC EQU COPNO+2 COPY COMMAND CHARACTER«, t00=0x000b, t01=0x0008}
0x115c…117e Head {h00=0x001e, h01=0x0050, text=»MAIN EQU CCC+2 MAIN FRAME «, t00=0x000b, t01=0x0036}
0x117e…11a8 Head {h00=0x0026, h01=0x0050, text=»MODE EQU MAIN+2 INSERT MODE SWITCH«, t00=0x000b, t01=0x0058}
0x11a8…11d0 Head {h00=0x0024, h01=0x0050, text=»KEYS EQU MODE+2 KEY LOCK STATUS «, t00=0x000b, t01=0x0082}
0x11d0…1202 Head {h00=0x002e, h01=0x0050, text=»ECBDCC EQU KEYS+2 ECB ADDRESS LAST READ DC«, t00=0x000b, t01=0x00aa}
0x1202…1238 Head {h00=0x0032, h01=0x0050, text=»ECBBLK EQU ECBDCC+2 ECBS FOR MULTIPLE WAIT &C «, t00=0x000b, t01=0x00dc}
0x1238…1270 Head {h00=0x0034, h01=0x0050, text=»RDMORE EQU ECBBLK+10 BRANCH ADDRESS NEXT READ KB«, t00=0x000b, t01=0x0112}
0x1270…127e Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000b, t01=0x014a}
0x127e…1286 Head {h00=0x0004, h01=0x0050, t00=0x000b, t01=0x0158}
0x1286…1290 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x0160}
0x1290…129a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x016a}
0x129a…12c8 Head {h00=0x002a, h01=0x0050, text=»LBVDU EQU 1920 1920 CHARACTER DISPLAY «, t00=0x000b, t01=0x0174}
0x12c8…12ee Head {h00=0x0022, h01=0x0050, text=»LPAGE EQU 48 LINES ON ONE PAGE«, t00=0x000c, t01=0x0012}
0x12ee…131c Head {h00=0x002a, h01=0x0050, text=»LLINE EQU 80 80 CHAR PER DISPLAY LINE «, t00=0x000c, t01=0x0038}
0x131c…134e Head {h00=0x002e, h01=0x0050, text=»TID EQU -4 TASK IDENTITY T:A DISPLACEMENT «, t00=0x000c, t01=0x0066}
0x134e…1358 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x0098}
0x1358…1382 Head {h00=0x0026, h01=0x0050, text=»* CONFIG DATA 'CB1' REL ADDRESSES «, t00=0x000c, t01=0x00a2}
0x1382…138c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x00cc}
0x138c…13b2 Head {h00=0x0022, h01=0x0050, text=»NBRKBV EQU 0 NUMBER OF KB/VDUS«, t00=0x000c, t01=0x00d6}
0x13b2…13dc Head {h00=0x0026, h01=0x0050, text=»NBRGTP EQU NBRKBV+2 NUMBER OF GTPS«, t00=0x000c, t01=0x00fc}
0x13dc…13e6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x0126}
0x13e6…141c Head {h00=0x0032, h01=0x0050, text=»MF1KBV EQU NBRGTP+2 DV ADDRESSES KB/VDU MF #1 «, t00=0x000c, t01=0x0130}
0x141c…1452 Head {h00=0x0032, h01=0x0050, text=»MF1GTP EQU MF1KBV+16 DV ADDRESSES GTPS MF # 1 «, t00=0x000c, t01=0x0166}
0x1452…1466 Head {h00=0x0010, h01=0x0050, text=» IFT DCLIN=2«, t00=0x000d, t01=0x000c}
0x1466…1482 Head {h00=0x0018, h01=0x0050, text=»MF2KBV EQU MF1GTP+16«, t00=0x000d, t01=0x0020}
0x1482…149e Head {h00=0x0018, h01=0x0050, text=»MF2GTP EQU MF2KBV+16«, t00=0x000d, t01=0x003c}
0x149e…14aa Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x000d, t01=0x0058}
0x14aa…14b4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x0064}
0x14b4…14bc Head {h00=0x0004, h01=0x0050, t00=0x000d, t01=0x006e}
0x14bc…14ca Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000d, t01=0x0076}
0x14ca…1512 Head {h00=0x0044, h01=0x0050, text=»****************************************************************«, t00=0x000d, t01=0x0084}
0x1512…151c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x00cc}
0x151c…1534 Head {h00=0x0014, h01=0x0050, text=»* INPUT FROM DC «, t00=0x000d, t01=0x00d6}
0x1534…153e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x00ee}
0x153e…157a Head {h00=0x0038, h01=0x0050, text=»****************************************************«, t00=0x000d, t01=0x00f8}
0x157a…1584 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x0134}
0x1584…15a4 Head {h00=0x001c, h01=0x0050, text=»* RELATIVE POS IN ECBBLK«, t00=0x000d, t01=0x013e}
0x15a4…15b4 Head {h00=0x000c, h01=0x0050, text=»KB EQU 2«, t00=0x000d, t01=0x015e}
0x15b4…15c6 Head {h00=0x000e, h01=0x0050, text=»DC1 EQU 4 «, t00=0x000d, t01=0x016e}
0x15c6…15d8 Head {h00=0x000e, h01=0x0050, text=»DC2 EQU 6 «, t00=0x000d, t01=0x0180}
0x15d8…15e2 (14, 0, 398) Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x0004}
0x15e2…15f6 Head {h00=0x0010, h01=0x0050, text=»DCINP EQU * «, t00=0x000e, t01=0x000e}
0x15f6…1620 Head {h00=0x0026, h01=0x0050, text=» CF A14,GTRBUF GET RECEIVE BUFFER «, t00=0x000e, t01=0x0022}
0x1620…163c Head {h00=0x0018, h01=0x0050, text=» LD A8,ECBDCC,TCABAS«, t00=0x000e, t01=0x004c}
0x163c…1660 Head {h00=0x0020, h01=0x0050, text=» CF A14,DCGETM READ MESSAGE «, t00=0x000e, t01=0x0068}
0x1660…1674 Head {h00=0x0010, h01=0x0050, text=» IFF DCLIN=2«, t00=0x000e, t01=0x008c}
0x1674…1692 Head {h00=0x001a, h01=0x0050, text=» CM ECBBLK+DC1,TCABAS «, t00=0x000e, t01=0x00a0}
0x1692…169e Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x000e, t01=0x00be}
0x169e…16b2 Head {h00=0x0010, h01=0x0050, text=» IFT DCLIN=2«, t00=0x000e, t01=0x00ca}
0x16b2…16cc Head {h00=0x0016, h01=0x0050, text=» LD A1,MAIN,TCABAS«, t00=0x000e, t01=0x00de}
0x16cc…16ec Head {h00=0x001c, h01=0x0050, text=» CW A8,ECBBLK+DC2,TCABAS«, t00=0x000e, t01=0x00f8}
0x16ec…1708 Head {h00=0x0018, h01=0x0050, text=» RF(E) DCIN20 MF # 2«, t00=0x000e, t01=0x0118}
0x1708…1726 Head {h00=0x001a, h01=0x0050, text=» CM ECBBLK+DC1,TCABAS «, t00=0x000e, t01=0x0134}
0x1726…1738 Head {h00=0x000e, h01=0x0050, text=» LDR A1,A1«, t00=0x000e, t01=0x0152}
0x1738…1758 Head {h00=0x001c, h01=0x0050, text=» RF(NZ) DCIN90 WRONG MF «, t00=0x000e, t01=0x0164}
0x1758…176a Head {h00=0x000e, h01=0x0050, text=» RF DCIN30«, t00=0x000e, t01=0x0184}
0x176a…177e Head {h00=0x0010, h01=0x0050, text=»DCIN20 EQU *«, t00=0x000f, t01=0x0008}
0x177e…179c Head {h00=0x001a, h01=0x0050, text=» CM ECBBLK+DC2,TCABAS «, t00=0x000f, t01=0x001c}
0x179c…17ae Head {h00=0x000e, h01=0x0050, text=» LDR A1,A1«, t00=0x000f, t01=0x003a}
0x17ae…17cc Head {h00=0x001a, h01=0x0050, text=» RF(Z) DCIN90 WRONG MF«, t00=0x000f, t01=0x004c}
0x17cc…17d8 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x000f, t01=0x006a}
0x17d8…17ec Head {h00=0x0010, h01=0x0050, text=»DCIN30 EQU *«, t00=0x000f, t01=0x0076}
0x17ec…1800 Head {h00=0x0010, h01=0x0050, text=» IFT OFLIN=1«, t00=0x000f, t01=0x008a}
0x1800…181c Head {h00=0x0018, h01=0x0050, text=» LD A1,OFFFLG,TCABAS«, t00=0x000f, t01=0x009e}
0x181c…1832 Head {h00=0x0012, h01=0x0050, text=» RF(NZ) DCIN90«, t00=0x000f, t01=0x00ba}
0x1832…183e Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x000f, t01=0x00d0}
0x183e…186a Head {h00=0x0028, h01=0x0050, text=» LD A1,ECBEL,A8 EFFECTIVE DC-LENGTH «, t00=0x000f, t01=0x00dc}
0x186a…1886 Head {h00=0x0018, h01=0x0050, text=» ST A1,DCLENG,TCABAS«, t00=0x000f, t01=0x0108}
0x1886…188e Head {h00=0x0004, h01=0x0050, t00=0x000f, t01=0x0124}
0x188e…1896 Head {h00=0x0004, h01=0x0050, t00=0x000f, t01=0x012c}
0x1896…18b2 Head {h00=0x0018, h01=0x0050, text=» LD A5,KBINH,TCABAS «, t00=0x000f, t01=0x0134}
0x18b2…18e4 Head {h00=0x002e, h01=0x0050, text=» ORK A5,3 BIT 14,15:= 1. TOTALLY DISABLED «, t00=0x000f, t01=0x0150}
0x18e4…1916 Head {h00=0x002e, h01=0x0050, text=»* KEYBOARD. BIT 15 = 0 AFTER DISPLAYING.«, t00=0x000f, t01=0x0182}
0x1916…1932 Head {h00=0x0018, h01=0x0050, text=» ST A5,KBINH,TCABAS «, t00=0x0010, t01=0x0024}
0x1932…1964 Head {h00=0x002e, h01=0x0050, text=» CF A14,LINHON TURN ON 'KEYBOARD INHIBIT' «, t00=0x0010, t01=0x0040}
0x1964…1996 Head {h00=0x002e, h01=0x0050, text=» CF A14,LSAVON TURN ON "SYSTEM AVAILABLE" «, t00=0x0010, t01=0x0072}
0x1996…19ac Head {h00=0x0012, h01=0x0050, text=» CF A14,UPDATE«, t00=0x0010, t01=0x00a4}
0x19ac…19c2 Head {h00=0x0012, h01=0x0050, text=» CF A14,DISPL «, t00=0x0010, t01=0x00ba}
0x19c2…19de Head {h00=0x0018, h01=0x0050, text=» LD A2,PCURS,TCABAS «, t00=0x0010, t01=0x00d0}
0x19de…19f4 Head {h00=0x0012, h01=0x0050, text=» CF A14,ATMASB«, t00=0x0010, t01=0x00ec}
0x19f4…19fc Head {h00=0x0004, h01=0x0050, t00=0x0010, t01=0x0102}
0x19fc…1a04 Head {h00=0x0004, h01=0x0050, t00=0x0010, t01=0x010a}
0x1a04…1a0e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x0112}
0x1a0e…1a2a Head {h00=0x0018, h01=0x0050, text=» LD A2,KBINH,TCABAS «, t00=0x0010, t01=0x011c}
0x1a2a…1a48 Head {h00=0x001a, h01=0x0050, text=» ANK A2,1 BIT 15 = 0? «, t00=0x0010, t01=0x0138}
0x1a48…1a5e Head {h00=0x0012, h01=0x0050, text=» RF(Z) DCIN60 «, t00=0x0010, t01=0x0156}
0x1a5e…1a7a Head {h00=0x0018, h01=0x0050, text=» LD A2,KBINH,TCABAS «, t00=0x0010, t01=0x016c}
0x1a7a…1aac Head {h00=0x002e, h01=0x0050, text=» ANK A2,/E BIT 15:=0 KEYBOARD NOT TOTALLY «, t00=0x0010, t01=0x0188}
0x1aac…1acc Head {h00=0x001c, h01=0x0050, text=»* INHIBITED ANY LONGER«, t00=0x0011, t01=0x002a}
0x1acc…1ae8 Head {h00=0x0018, h01=0x0050, text=» ST A2,KBINH,TCABAS «, t00=0x0011, t01=0x004a}
0x1ae8…1b02 Head {h00=0x0016, h01=0x0050, text=» LD A2,WCC,TCABAS «, t00=0x0011, t01=0x0066}
0x1b02…1b14 Head {h00=0x000e, h01=0x0050, text=» ANK A2,2 «, t00=0x0011, t01=0x0080}
0x1b14…1b2a Head {h00=0x0012, h01=0x0050, text=» RF(Z) DCIN95 «, t00=0x0011, t01=0x0092}
0x1b2a…1b3e Head {h00=0x0010, h01=0x0050, text=»DCIN60 EQU *«, t00=0x0011, t01=0x00a8}
0x1b3e…1b70 Head {h00=0x002e, h01=0x0050, text=» CF A14,LINHOF TURN OFF 'KEYBOARD INHIBIT'«, t00=0x0011, t01=0x00bc}
0x1b70…1b8c Head {h00=0x0018, h01=0x0050, text=» LD A2,KBINH,TCABAS «, t00=0x0011, t01=0x00ee}
0x1b8c…1bbc Head {h00=0x002c, h01=0x0050, text=» ANK A2,4 BITS 14,15:=0 RESTORE KEYBOARD«, t00=0x0011, t01=0x010a}
0x1bbc…1bd8 Head {h00=0x0018, h01=0x0050, text=» ST A2,KBINH,TCABAS «, t00=0x0011, t01=0x013a}
0x1bd8…1bea Head {h00=0x000e, h01=0x0050, text=» RF DCIN95«, t00=0x0011, t01=0x0156}
0x1bea…1bfe Head {h00=0x0010, h01=0x0050, text=»DCIN90 EQU *«, t00=0x0011, t01=0x0168}
0x1bfe…1c1a Head {h00=0x0018, h01=0x0050, text=» LD A8,ECBDCC,TCABAS«, t00=0x0011, t01=0x017c}
0x1c1a…1c32 Head {h00=0x0014, h01=0x0050, text=» LD A4,ECBBA,A8 «, t00=0x0012, t01=0x0008}
0x1c32…1c48 Head {h00=0x0012, h01=0x0050, text=» CF A14,RLRBUF«, t00=0x0012, t01=0x0020}
0x1c48…1c5c Head {h00=0x0010, h01=0x0050, text=»DCIN95 EQU *«, t00=0x0012, t01=0x0036}
0x1c5c…1c72 Head {h00=0x0012, h01=0x0050, text=» CF A14,SNBUSY«, t00=0x0012, t01=0x004a}
0x1c72…1c82 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0012, t01=0x0060}
0x1c82…1c90 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0012, t01=0x0070}
0x1c90…1c9a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x007e}
0x1c9a…1cac Head {h00=0x000e, h01=0x0050, text=»* READ DC «, t00=0x0012, t01=0x0088}
0x1cac…1cb6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x009a}
0x1cb6…1cca Head {h00=0x0010, h01=0x0050, text=»DCGETM EQU *«, t00=0x0012, t01=0x00a4}
0x1cca…1cdc Head {h00=0x000e, h01=0x0050, text=» LDK A1,0 «, t00=0x0012, t01=0x00b8}
0x1cdc…1cf2 Head {h00=0x0012, h01=0x0050, text=» CF A14,REQTIM«, t00=0x0012, t01=0x00ca}
0x1cf2…1d10 Head {h00=0x001a, h01=0x0050, text=» LDK A7,/82 READ, WAIT«, t00=0x0012, t01=0x00e0}
0x1d10…1d3c Head {h00=0x0028, h01=0x0050, text=» CM ECBCW,A8 NO TIME OUT SUPERVISION«, t00=0x0012, t01=0x00fe}
0x1d3c…1d58 Head {h00=0x0018, h01=0x0050, text=» LDKL A1,RBUFL+RBUFL«, t00=0x0012, t01=0x012a}
0x1d58…1d7a Head {h00=0x001e, h01=0x0050, text=» ST A1,ECBRL,A8 REQ LENGTH«, t00=0x0012, t01=0x0146}
0x1d7a…1d92 Head {h00=0x0014, h01=0x0050, text=» ST A4,ECBBA,A8 «, t00=0x0012, t01=0x0168}
0x1d92…1d9e Head {h00=0x0008, h01=0x0050, text=» LKM«, t00=0x0012, t01=0x0180}
0x1d9e…1dae Head {h00=0x000c, h01=0x0050, text=» DATA 1 «, t00=0x0012, t01=0x018c}
0x1dae…1dbe Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0013, t01=0x000c}
0x1dbe…1dcc Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0013, t01=0x001c}
0x1dcc…1e0e Head {h00=0x003e, h01=0x0050, text=»**********************************************************«, t00=0x0013, t01=0x002a}
0x1e0e…1e18 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x006c}
0x1e18…1e32 Head {h00=0x0016, h01=0x0050, text=»* BUFFER HANDLING «, t00=0x0013, t01=0x0076}
0x1e32…1e3c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x0090}
0x1e3c…1e7e Head {h00=0x003e, h01=0x0050, text=»**********************************************************«, t00=0x0013, t01=0x009a}
0x1e7e…1e88 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x00dc}
0x1e88…1ea8 Head {h00=0x001c, h01=0x0050, text=»RLINK EQU RBUFL+RBUFL+2 «, t00=0x0013, t01=0x00e6}
0x1ea8…1eb2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x0106}
0x1eb2…1ec4 Head {h00=0x000e, h01=0x0050, text=»RBUF EQU *«, t00=0x0013, t01=0x0110}
0x1ec4…1ee8 Head {h00=0x0020, h01=0x0050, text=» DATA *+2 POINTER FIRST FREE«, t00=0x0013, t01=0x0122}
0x1ee8…1efe Head {h00=0x0012, h01=0x0050, text=» IFF RBUFNR=1 «, t00=0x0013, t01=0x0146}
0x1efe…1f14 Head {h00=0x0012, h01=0x0050, text=» DATA *+RLINK «, t00=0x0013, t01=0x015c}
0x1f14…1f26 Head {h00=0x000e, h01=0x0050, text=» RES RBUFL«, t00=0x0013, t01=0x0172}
0x1f26…1f3c Head {h00=0x0012, h01=0x0050, text=» IFF RBUFNR=2 «, t00=0x0013, t01=0x0184}
0x1f3c…1f52 Head {h00=0x0012, h01=0x0050, text=» DATA *+RLINK «, t00=0x0014, t01=0x000a}
0x1f52…1f64 Head {h00=0x000e, h01=0x0050, text=» RES RBUFL«, t00=0x0014, t01=0x0020}
0x1f64…1f7a Head {h00=0x0012, h01=0x0050, text=» IFF RBUFNR=3 «, t00=0x0014, t01=0x0032}
0x1f7a…1f90 Head {h00=0x0012, h01=0x0050, text=» DATA *+RLINK «, t00=0x0014, t01=0x0048}
0x1f90…1fa2 Head {h00=0x000e, h01=0x0050, text=» RES RBUFL«, t00=0x0014, t01=0x005e}
0x1fa2…1fb8 Head {h00=0x0012, h01=0x0050, text=» IFF RBUFNR=4 «, t00=0x0014, t01=0x0070}
0x1fb8…1fce Head {h00=0x0012, h01=0x0050, text=» DATA *+RLINK «, t00=0x0014, t01=0x0086}
0x1fce…1fe0 Head {h00=0x000e, h01=0x0050, text=» RES RBUFL«, t00=0x0014, t01=0x009c}
0x1fe0…1fec Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0014, t01=0x00ae}
0x1fec…2008 Head {h00=0x0018, h01=0x0050, text=» DATA 0 END OF CHAIN«, t00=0x0014, t01=0x00ba}
0x2008…201a Head {h00=0x000e, h01=0x0050, text=» RES RBUFL«, t00=0x0014, t01=0x00d6}
0x201a…2024 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x00e8}
0x2024…202e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x00f2}
0x202e…204e Head {h00=0x001c, h01=0x0050, text=»TLINK EQU TBUFL+TBUFL+2 «, t00=0x0014, t01=0x00fc}
0x204e…2058 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x011c}
0x2058…206a Head {h00=0x000e, h01=0x0050, text=»TBUF EQU *«, t00=0x0014, t01=0x0126}
0x206a…208e Head {h00=0x0020, h01=0x0050, text=» DATA *+2 POINTER FIRST FREE«, t00=0x0014, t01=0x0138}
0x208e…20a4 Head {h00=0x0012, h01=0x0050, text=» IFF TBUFNR=1 «, t00=0x0014, t01=0x015c}
0x20a4…20ba Head {h00=0x0012, h01=0x0050, text=» DATA *+TLINK «, t00=0x0014, t01=0x0172}
0x20ba…20cc Head {h00=0x000e, h01=0x0050, text=» RES TBUFL«, t00=0x0014, t01=0x0188}
0x20cc…20e2 Head {h00=0x0012, h01=0x0050, text=» IFF TBUFNR=2 «, t00=0x0015, t01=0x000a}
0x20e2…20f8 Head {h00=0x0012, h01=0x0050, text=» DATA *+TLINK «, t00=0x0015, t01=0x0020}
0x20f8…210a Head {h00=0x000e, h01=0x0050, text=» RES TBUFL«, t00=0x0015, t01=0x0036}
0x210a…2120 Head {h00=0x0012, h01=0x0050, text=» IFF TBUFNR=3 «, t00=0x0015, t01=0x0048}
0x2120…2136 Head {h00=0x0012, h01=0x0050, text=» DATA *+TLINK «, t00=0x0015, t01=0x005e}
0x2136…2148 Head {h00=0x000e, h01=0x0050, text=» RES TBUFL«, t00=0x0015, t01=0x0074}
0x2148…215e Head {h00=0x0012, h01=0x0050, text=» IFF TBUFNR=4 «, t00=0x0015, t01=0x0086}
0x215e…2174 Head {h00=0x0012, h01=0x0050, text=» DATA *+TLINK «, t00=0x0015, t01=0x009c}
0x2174…2186 Head {h00=0x000e, h01=0x0050, text=» RES TBUFL«, t00=0x0015, t01=0x00b2}
0x2186…2192 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0015, t01=0x00c4}
0x2192…21ae Head {h00=0x0018, h01=0x0050, text=» DATA 0 END OF CHAIN«, t00=0x0015, t01=0x00d0}
0x21ae…21c0 Head {h00=0x000e, h01=0x0050, text=» RES TBUFL«, t00=0x0015, t01=0x00ec}
0x21c0…21ca Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x00fe}
0x21ca…21d4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x0108}
0x21d4…21ee Head {h00=0x0016, h01=0x0050, text=»* GET WRITE BUFFER«, t00=0x0015, t01=0x0112}
0x21ee…21f8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x012c}
0x21f8…220c Head {h00=0x0010, h01=0x0050, text=»GTWBUF EQU *«, t00=0x0015, t01=0x0136}
0x220c…2222 Head {h00=0x0012, h01=0x0050, text=» LDKL A5,TBUF «, t00=0x0015, t01=0x014a}
0x2222…2238 Head {h00=0x0012, h01=0x0050, text=» CF A14,GETBUF«, t00=0x0015, t01=0x0160}
0x2238…224a Head {h00=0x000e, h01=0x0050, text=» LDR A7,A4«, t00=0x0015, t01=0x0176}
0x224a…225e Head {h00=0x0010, h01=0x0050, text=» LDR A12,A4 «, t00=0x0015, t01=0x0188}
0x225e…2274 Head {h00=0x0012, h01=0x0050, text=» ADK A7,2 SKIP«, t00=0x0016, t01=0x000c}
0x2274…2298 Head {h00=0x0020, h01=0x0050, text=» LDKL A9,2 FOR DV ADDRESS «, t00=0x0016, t01=0x0022}
0x2298…22a8 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0016, t01=0x0046}
0x22a8…22b2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0016, t01=0x0056}
0x22b2…22ce Head {h00=0x0018, h01=0x0050, text=»* GET RECEIVE BUFFER«, t00=0x0016, t01=0x0060}
0x22ce…22d8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0016, t01=0x007c}
0x22d8…22ec Head {h00=0x0010, h01=0x0050, text=»GTRBUF EQU *«, t00=0x0016, t01=0x0086}
0x22ec…2302 Head {h00=0x0012, h01=0x0050, text=» LDKL A5,RBUF «, t00=0x0016, t01=0x009a}
0x2302…230c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0016, t01=0x00b0}
0x230c…2316 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0016, t01=0x00ba}
0x2316…232a Head {h00=0x0010, h01=0x0050, text=»GETBUF EQU *«, t00=0x0016, t01=0x00c4}
0x232a…233e Head {h00=0x0010, h01=0x0050, text=» LDR* A4,A5 «, t00=0x0016, t01=0x00d8}
0x233e…2362 Head {h00=0x0020, h01=0x0050, text=» RF(Z) GETB50 NO BUFFER FREE«, t00=0x0016, t01=0x00ec}
0x2362…2376 Head {h00=0x0010, h01=0x0050, text=» LDR* A3,A4 «, t00=0x0016, t01=0x0110}
0x2376…2388 Head {h00=0x000e, h01=0x0050, text=» STR A3,A5«, t00=0x0016, t01=0x0124}
0x2388…23a4 Head {h00=0x0018, h01=0x0050, text=» ADK A4,2 SKIP LINK «, t00=0x0016, t01=0x0136}
0x23a4…23b4 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0016, t01=0x0152}
0x23b4…23c8 Head {h00=0x0010, h01=0x0050, text=»GETB50 EQU *«, t00=0x0016, t01=0x0162}
0x23c8…23d4 Head {h00=0x0008, h01=0x0050, text=» LKM«, t00=0x0016, t01=0x0176}
0x23d4…23f0 Head {h00=0x0018, h01=0x0050, text=» DATA 0 SWITCH TASK «, t00=0x0016, t01=0x0182}
0x23f0…2402 Head {h00=0x000e, h01=0x0050, text=» RB GETBUF«, t00=0x0017, t01=0x000e}
0x2402…240c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0017, t01=0x0020}
0x240c…2424 Head {h00=0x0014, h01=0x0050, text=»* RELEASE BUFFER«, t00=0x0017, t01=0x002a}
0x2424…242e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0017, t01=0x0042}
0x242e…2442 Head {h00=0x0010, h01=0x0050, text=»RLRBUF EQU *«, t00=0x0017, t01=0x004c}
0x2442…2458 Head {h00=0x0012, h01=0x0050, text=» LDKL A2,RBUF «, t00=0x0017, t01=0x0060}
0x2458…246c Head {h00=0x0010, h01=0x0050, text=»RELB05 EQU *«, t00=0x0017, t01=0x0076}
0x246c…248c Head {h00=0x001c, h01=0x0050, text=» SUK A4,2 POINT TO LINK «, t00=0x0017, t01=0x008a}
0x248c…24a0 Head {h00=0x0010, h01=0x0050, text=»RELB10 EQU *«, t00=0x0017, t01=0x00aa}
0x24a0…24b4 Head {h00=0x0010, h01=0x0050, text=» LDR* A3,A2 «, t00=0x0017, t01=0x00be}
0x24b4…24ca Head {h00=0x0012, h01=0x0050, text=» RF(Z) RELB20 «, t00=0x0017, t01=0x00d2}
0x24ca…24dc Head {h00=0x000e, h01=0x0050, text=» LDR A2,A3«, t00=0x0017, t01=0x00e8}
0x24dc…24ee Head {h00=0x000e, h01=0x0050, text=» RB RELB10«, t00=0x0017, t01=0x00fa}
0x24ee…2502 Head {h00=0x0010, h01=0x0050, text=»RELB20 EQU *«, t00=0x0017, t01=0x010c}
0x2502…2514 Head {h00=0x000e, h01=0x0050, text=» STR A4,A2«, t00=0x0017, t01=0x0120}
0x2514…2524 Head {h00=0x000c, h01=0x0050, text=» CMR A4 «, t00=0x0017, t01=0x0132}
0x2524…2534 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0017, t01=0x0142}
0x2534…253e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0017, t01=0x0152}
0x253e…2552 Head {h00=0x0010, h01=0x0050, text=»RLWBUF EQU *«, t00=0x0017, t01=0x015c}
0x2552…2568 Head {h00=0x0012, h01=0x0050, text=» LDKL A2,TBUF «, t00=0x0017, t01=0x0170}
0x2568…257a Head {h00=0x000e, h01=0x0050, text=» RB RELB05«, t00=0x0017, t01=0x0186}
0x257a…2588 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0018, t01=0x0008}
0x2588…2592 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0018, t01=0x0016}
0x2592…259c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0018, t01=0x0020}
0x259c…25c2 Head {h00=0x0022, h01=0x0050, text=»* STORE CHARACTER IN DC BUFFER«, t00=0x0018, t01=0x002a}
0x25c2…25cc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0018, t01=0x0050}
0x25cc…25de Head {h00=0x000e, h01=0x0050, text=»* A2=CHAR «, t00=0x0018, t01=0x005a}
0x25de…25fa Head {h00=0x0018, h01=0x0050, text=»* A7=BUFFER POINTER «, t00=0x0018, t01=0x006c}
0x25fa…2620 Head {h00=0x0022, h01=0x0050, text=»* A9=BUFFER CHARACTER COUNTER «, t00=0x0018, t01=0x0088}
0x2620…262a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0018, t01=0x00ae}
0x262a…2634 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0018, t01=0x00b8}
0x2634…2648 Head {h00=0x0010, h01=0x0050, text=»PDCCH EQU * «, t00=0x0018, t01=0x00c2}
0x2648…2668 Head {h00=0x001c, h01=0x0050, text=» CWK A9,TBUFL+TBUFL =3 «, t00=0x0018, t01=0x00d6}
0x2668…268a Head {h00=0x001e, h01=0x0050, text=» RF(NL) PDCCHR OVERFLOW =6«, t00=0x0018, t01=0x00f6}
0x268a…269c Head {h00=0x000e, h01=0x0050, text=» SCR A2,A7«, t00=0x0018, t01=0x0118}
0x269c…26b0 Head {h00=0x0010, h01=0x0050, text=»PDCCH1 EQU *«, t00=0x0018, t01=0x012a}
0x26b0…26c2 Head {h00=0x000e, h01=0x0050, text=» ADK A7,1 «, t00=0x0018, t01=0x013e}
0x26c2…26d4 Head {h00=0x000e, h01=0x0050, text=» ADKL A9,1«, t00=0x0018, t01=0x0150}
0x26d4…26ea Head {h00=0x0012, h01=0x0050, text=»PDCCHR RTN A14«, t00=0x0018, t01=0x0162}
0x26ea…26f4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0018, t01=0x0178}
0x26f4…26fe Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0018, t01=0x0182}
0x26fe…2722 Head {h00=0x0020, h01=0x0050, text=»* STORE ATTENTION ID FROM A2«, t00=0x0018, t01=0x018c}
0x2722…272c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0019, t01=0x0020}
0x272c…2736 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0019, t01=0x002a}
0x2736…2750 Head {h00=0x0016, h01=0x0050, text=»PAID CF A14,PDCCH «, t00=0x0019, t01=0x0034}
0x2750…2760 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0019, t01=0x004e}
0x2760…276a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0019, t01=0x005e}
0x276a…2774 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0019, t01=0x0068}
0x2774…27a0 Head {h00=0x0028, h01=0x0050, text=»* GET CHARACTER FROM DC BUFFER TO A2«, t00=0x0019, t01=0x0072}
0x27a0…27aa Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0019, t01=0x009e}
0x27aa…27b4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0019, t01=0x00a8}
0x27b4…27cc Head {h00=0x0014, h01=0x0050, text=»GDCCH LCR A2,A7 «, t00=0x0019, t01=0x00b2}
0x27cc…27e0 Head {h00=0x0010, h01=0x0050, text=» ANK A2,/FF «, t00=0x0019, t01=0x00ca}
0x27e0…280a Head {h00=0x0026, h01=0x0050, text=» RF(NZ) GDCC:1 NOT NULL CHARACTER «, t00=0x0019, t01=0x00de}
0x280a…2832 Head {h00=0x0024, h01=0x0050, text=» LDK A2,/7F LOAD NULL CHARACTER «, t00=0x0019, t01=0x0108}
0x2832…2846 Head {h00=0x0010, h01=0x0050, text=»GDCC:1 EQU *«, t00=0x0019, t01=0x0130}
0x2846…2858 Head {h00=0x000e, h01=0x0050, text=» RB PDCCH1«, t00=0x0019, t01=0x0144}
0x2858…2866 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0019, t01=0x0156}
0x2866…2870 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0019, t01=0x0164}
0x2870…287a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0019, t01=0x016e}
0x287a…28ac Head {h00=0x002e, h01=0x0050, text=»* GET BUFFER ADDRESS TO A1 FROM DC BUFFER «, t00=0x0019, t01=0x0178}
0x28ac…28b6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001a, t01=0x001a}
0x28b6…28c0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001a, t01=0x0024}
0x28c0…28dc Head {h00=0x0018, h01=0x0050, text=»GETADR CF A14,GDCCH «, t00=0x001a, t01=0x002e}
0x28dc…28f4 Head {h00=0x0014, h01=0x0050, text=» LC A1,TEBCDI,A2«, t00=0x001a, t01=0x004a}
0x28f4…2908 Head {h00=0x0010, h01=0x0050, text=» ANK A1,/3F «, t00=0x001a, t01=0x0062}
0x2908…291a Head {h00=0x000e, h01=0x0050, text=» SLL A1,6 «, t00=0x001a, t01=0x0076}
0x291a…2930 Head {h00=0x0012, h01=0x0050, text=» CF A14,GDCCH «, t00=0x001a, t01=0x0088}
0x2930…2948 Head {h00=0x0014, h01=0x0050, text=» LC A2,TEBCDI,A2«, t00=0x001a, t01=0x009e}
0x2948…295c Head {h00=0x0010, h01=0x0050, text=» ANK A2,/3F «, t00=0x001a, t01=0x00b6}
0x295c…296e Head {h00=0x000e, h01=0x0050, text=» ORR A1,A2«, t00=0x001a, t01=0x00ca}
0x296e…297e Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x001a, t01=0x00dc}
0x297e…298c Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x001a, t01=0x00ec}
0x298c…2996 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001a, t01=0x00fa}
0x2996…29a0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001a, t01=0x0104}
0x29a0…29c6 Head {h00=0x0022, h01=0x0050, text=»* WRITE MESSAGE TO MAIN FRAME «, t00=0x001a, t01=0x010e}
0x29c6…29d0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001a, t01=0x0134}
0x29d0…29fa Head {h00=0x0026, h01=0x0050, text=»* ON EXIT A1 CONTAINS RETURN CODE «, t00=0x001a, t01=0x013e}
0x29fa…2a04 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001a, t01=0x0168}
0x2a04…2a0e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001a, t01=0x0172}
0x2a0e…2a22 Head {h00=0x0010, h01=0x0050, text=»DCWRTE EQU *«, t00=0x001a, t01=0x017c}
0x2a22…2a38 Head {h00=0x0012, h01=0x0050, text=» LDKL A8,ECBDC«, t00=0x001a, t01=0x0190}
0x2a38…2a4c Head {h00=0x0010, h01=0x0050, text=» IFT DCLIN=2«, t00=0x001b, t01=0x0016}
0x2a4c…2a66 Head {h00=0x0016, h01=0x0050, text=» LD A7,MAIN,TCABAS«, t00=0x001b, t01=0x002a}
0x2a66…2a7a Head {h00=0x0010, h01=0x0050, text=» RF(Z) DC050«, t00=0x001b, t01=0x0044}
0x2a7a…2a92 Head {h00=0x0014, h01=0x0050, text=» LDKL A8,ECBDC2 «, t00=0x001b, t01=0x0058}
0x2a92…2a9e Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x001b, t01=0x0070}
0x2a9e…2ab2 Head {h00=0x0010, h01=0x0050, text=»DC050 EQU * «, t00=0x001b, t01=0x007c}
0x2ab2…2ac8 Head {h00=0x0012, h01=0x0050, text=» ADR A8,CREBAS«, t00=0x001b, t01=0x0090}
0x2ac8…2ade Head {h00=0x0012, h01=0x0050, text=» LDKL A1,TIMDC«, t00=0x001b, t01=0x00a6}
0x2ade…2af4 Head {h00=0x0012, h01=0x0050, text=» CF A14,REQTIM«, t00=0x001b, t01=0x00bc}
0x2af4…2b16 Head {h00=0x001e, h01=0x0050, text=» ST A9,ECBRL,A8 REQ LENGTH«, t00=0x001b, t01=0x00d2}
0x2b16…2b3e Head {h00=0x0024, h01=0x0050, text=» ST A12,ECBBA,A8 BUFFER ADDRESS «, t00=0x001b, t01=0x00f4}
0x2b3e…2b5a Head {h00=0x0018, h01=0x0050, text=» LD A7,KBINH,TCABAS «, t00=0x001b, t01=0x011c}
0x2b5a…2b96 Head {h00=0x0038, h01=0x0050, text=» ORK A7,2 BIT 14 :=1 DISABLE KEYBOARD.RESET ALLOWED «, t00=0x001b, t01=0x0138}
0x2b96…2bb2 Head {h00=0x0018, h01=0x0050, text=» ST A7,KBINH,TCABAS «, t00=0x001b, t01=0x0174}
0x2bb2…2bc6 Head {h00=0x0010, h01=0x0050, text=» LDK A7,/86 «, t00=0x001b, t01=0x0190}
0x2bc6…2bda Head {h00=0x0010, h01=0x0050, text=»DC100 EQU * «, t00=0x001c, t01=0x0014}
0x2bda…2be6 Head {h00=0x0008, h01=0x0050, text=» LKM«, t00=0x001c, t01=0x0028}
0x2be6…2bf6 Head {h00=0x000c, h01=0x0050, text=» DATA 1 «, t00=0x001c, t01=0x0034}
0x2bf6…2c0a Head {h00=0x0010, h01=0x0050, text=»DC200 EQU * «, t00=0x001c, t01=0x0044}
0x2c0a…2c1e Head {h00=0x0010, h01=0x0050, text=» LDR A4,A12 «, t00=0x001c, t01=0x0058}
0x2c1e…2c34 Head {h00=0x0012, h01=0x0050, text=» CF A14,RLWBUF«, t00=0x001c, t01=0x006c}
0x2c34…2c5c Head {h00=0x0024, h01=0x0050, text=» LD A1,ECBRC,A8 GET RETURN CODE «, t00=0x001c, t01=0x0082}
0x2c5c…2c70 Head {h00=0x0010, h01=0x0050, text=» RF(Z) DC300«, t00=0x001c, t01=0x00aa}
0x2c70…2c8c Head {h00=0x0018, h01=0x0050, text=» LD A7,KBINH,TCABAS «, t00=0x001c, t01=0x00be}
0x2c8c…2cb8 Head {h00=0x0028, h01=0x0050, text=» ANK A7,/D BIT 14:=0 ALLIWE KEYBOARD«, t00=0x001c, t01=0x00da}
0x2cb8…2cd4 Head {h00=0x0018, h01=0x0050, text=» ST A7,KBINH,TCABAS «, t00=0x001c, t01=0x0106}
0x2cd4…2d06 Head {h00=0x002e, h01=0x0050, text=» CF A14,LINHOF TURN OFF "KEYBOARD INHIBIT «, t00=0x001c, t01=0x0122}
0x2d06…2d38 Head {h00=0x002e, h01=0x0050, text=» CF A14,LSAVOF TURN OFF "SYSTEM AVAILABLE"«, t00=0x001c, t01=0x0154}
0x2d38…2d42 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001c, t01=0x0186}
0x2d42…2d70 Head {h00=0x002a, h01=0x0050, text=» LDK A7,/31 RESET KEYBOARD ECB BUFFER «, t00=0x001c, t01=0x0190}
0x2d70…2d86 Head {h00=0x0012, h01=0x0050, text=» LDKL A8,ECBKB«, t00=0x001d, t01=0x002e}
0x2d86…2d9c Head {h00=0x0012, h01=0x0050, text=» ADR A8,CREBAS«, t00=0x001d, t01=0x0044}
0x2d9c…2da8 Head {h00=0x0008, h01=0x0050, text=» LKM«, t00=0x001d, t01=0x005a}
0x2da8…2db8 Head {h00=0x000c, h01=0x0050, text=» DATA 1 «, t00=0x001d, t01=0x0066}
0x2db8…2dc2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001d, t01=0x0076}
0x2dc2…2dd2 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x001d, t01=0x0080}
0x2dd2…2de6 Head {h00=0x0010, h01=0x0050, text=»DC300 EQU * «, t00=0x001d, t01=0x0090}
0x2de6…2e18 Head {h00=0x002e, h01=0x0050, text=» CF A14,LSAVON TURN ON 'SYSTEM AVAILABLE' «, t00=0x001d, t01=0x00a4}
0x2e18…2e28 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x001d, t01=0x00d6}
0x2e28…2e36 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x001d, t01=0x00e6}
0x2e36…2e40 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001d, t01=0x00f4}
0x2e40…2e4a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001d, t01=0x00fe}
0x2e4a…2e76 Head {h00=0x0028, h01=0x0050, text=»* STORE CURSOR ADDRESS IN DC BUFFER «, t00=0x001d, t01=0x0108}
0x2e76…2e80 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001d, t01=0x0134}
0x2e80…2e8a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001d, t01=0x013e}
0x2e8a…2eaa Head {h00=0x001c, h01=0x0050, text=»CURSA LD A1,PCURS,TCABAS«, t00=0x001d, t01=0x0148}
0x2eaa…2ebc Head {h00=0x000e, h01=0x0050, text=» RF BUFADR«, t00=0x001d, t01=0x0168}
0x2ebc…2ec6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001d, t01=0x017a}
0x2ec6…2ed0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001d, t01=0x0184}
0x2ed0…2efc Head {h00=0x0028, h01=0x0050, text=»* STORE BUFFER ADDRESS IN DC BUFFER «, t00=0x001d, t01=0x018e}
0x2efc…2f06 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001e, t01=0x002a}
0x2f06…2f28 Head {h00=0x001e, h01=0x0050, text=»* A1=BINARY BUFFER ADDRESS«, t00=0x001e, t01=0x0034}
0x2f28…2f32 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001e, t01=0x0056}
0x2f32…2f3c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001e, t01=0x0060}
0x2f3c…2f54 Head {h00=0x0014, h01=0x0050, text=»BUFADR LDR A2,A1«, t00=0x001e, t01=0x006a}
0x2f54…2f66 Head {h00=0x000e, h01=0x0050, text=» SRL A2,6 «, t00=0x001e, t01=0x0082}
0x2f66…2f7a Head {h00=0x0010, h01=0x0050, text=» ANK A2,/3F «, t00=0x001e, t01=0x0094}
0x2f7a…2fa4 Head {h00=0x0026, h01=0x0050, text=» LC A2,TASCII,A2 CONVERT TO ASCII «, t00=0x001e, t01=0x00a8}
0x2fa4…2fba Head {h00=0x0012, h01=0x0050, text=» CF A14,PDCCH «, t00=0x001e, t01=0x00d2}
0x2fba…2fcc Head {h00=0x000e, h01=0x0050, text=» LDR A2,A1«, t00=0x001e, t01=0x00e8}
0x2fcc…2fe0 Head {h00=0x0010, h01=0x0050, text=» ANK A2,/3F «, t00=0x001e, t01=0x00fa}
0x2fe0…2ff8 Head {h00=0x0014, h01=0x0050, text=» LC A2,TASCII,A2«, t00=0x001e, t01=0x010e}
0x2ff8…300e Head {h00=0x0012, h01=0x0050, text=» CF A14,PDCCH «, t00=0x001e, t01=0x0126}
0x300e…301e Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x001e, t01=0x013c}
0x301e…302c Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x001e, t01=0x014c}
0x302c…3036 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001e, t01=0x015a}
0x3036…3040 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001e, t01=0x0164}
0x3040…3076 Head {h00=0x0032, h01=0x0050, text=»* GET MODIFIED DATA FROM DISPLAY IMAGE BUFFER «, t00=0x001e, t01=0x016e}
0x3076…3080 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001f, t01=0x0014}
0x3080…30a4 Head {h00=0x0020, h01=0x0050, text=»* A3=BUFFER POSITION BINARY «, t00=0x001f, t01=0x001e}
0x30a4…30c0 Head {h00=0x0018, h01=0x0050, text=»* A4=BUFFER POINTER «, t00=0x001f, t01=0x0042}
0x30c0…30ca Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001f, t01=0x005e}
0x30ca…30d4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001f, t01=0x0068}
0x30d4…30fa Head {h00=0x0022, h01=0x0050, text=»RDMOD LDK A3,0 RESET POSITION «, t00=0x001f, t01=0x0072}
0x30fa…3110 Head {h00=0x0012, h01=0x0050, text=» LDKL A4,BVDU «, t00=0x001f, t01=0x0098}
0x3110…3136 Head {h00=0x0022, h01=0x0050, text=» ADR A4,TCABAS BUFFER POINTER «, t00=0x001f, t01=0x00ae}
0x3136…317a Head {h00=0x0040, h01=0x0050, text=»************************************************************«, t00=0x001f, t01=0x00d4}
0x317a…31a4 Head {h00=0x0026, h01=0x0050, text=» ADKL A4,1919 LAST SCREEN POSITION«, t00=0x001f, t01=0x0118}
0x31a4…31c4 Head {h00=0x001c, h01=0x0050, text=» LCR A2,A4 GET CHARACTER«, t00=0x001f, t01=0x0142}
0x31c4…31f6 Head {h00=0x002e, h01=0x0050, text=» LDKL A4,BVDU RELOAD FIRST BUFFER POSITION«, t00=0x001f, t01=0x0162}
0x31f6…320c (32, 0, 400) Head {h00=0x0012, h01=0x0050, text=» ADR A4,TCABAS«, t00=0x0020, t01=0x0004}
0x320c…3214 Head {h00=0x0004, h01=0x0050, t00=0x0020, t01=0x001a}
0x3214…3226 Head {h00=0x000e, h01=0x0050, text=» LDR A1,A2«, t00=0x0020, t01=0x0022}
0x3226…3248 Head {h00=0x001e, h01=0x0050, text=» ANK A1,/60 ATTRIBUTE ??? «, t00=0x0020, t01=0x0034}
0x3248…3264 Head {h00=0x0018, h01=0x0050, text=» RF(Z) RD200 YES!!! «, t00=0x0020, t01=0x0056}
0x3264…326c Head {h00=0x0004, h01=0x0050, t00=0x0020, t01=0x0072}
0x326c…32b0 Head {h00=0x0040, h01=0x0050, text=»************************************************************«, t00=0x0020, t01=0x007a}
0x32b0…32ca Head {h00=0x0016, h01=0x0050, text=»RD100 CWK A3,LBVDU«, t00=0x0020, t01=0x00be}
0x32ca…32ee Head {h00=0x0020, h01=0x0050, text=» RF(NL) RDMODE ALL EXAMINED «, t00=0x0020, t01=0x00d8}
0x32ee…330a Head {h00=0x0018, h01=0x0050, text=» LCR A2,A4 GET CHAR «, t00=0x0020, t01=0x00fc}
0x330a…331c Head {h00=0x000e, h01=0x0050, text=» ADK A3,1 «, t00=0x0020, t01=0x0118}
0x331c…332e Head {h00=0x000e, h01=0x0050, text=» ADK A4,1 «, t00=0x0020, t01=0x012a}
0x332e…3372 Head {h00=0x0040, h01=0x0050, text=»************************************************************«, t00=0x0020, t01=0x013c}
0x3372…3386 Head {h00=0x0010, h01=0x0050, text=»RD105 EQU * «, t00=0x0020, t01=0x0180}
0x3386…33ca (33, 0, 400) Head {h00=0x0040, h01=0x0050, text=»************************************************************«, t00=0x0021, t01=0x0004}
0x33ca…33dc Head {h00=0x000e, h01=0x0050, text=» LDR A1,A2«, t00=0x0021, t01=0x0048}
0x33dc…33f0 Head {h00=0x0010, h01=0x0050, text=» ANK A1,/60 «, t00=0x0021, t01=0x005a}
0x33f0…3414 Head {h00=0x0020, h01=0x0050, text=» RF(Z) RD200 ATTRIBUTE CHAR «, t00=0x0021, t01=0x006e}
0x3414…342e Head {h00=0x0016, h01=0x0050, text=»RD110 CWK A2,NULL «, t00=0x0021, t01=0x0092}
0x342e…3454 Head {h00=0x0022, h01=0x0050, text=» RB(E) RD100 DON'T STORE NULL «, t00=0x0021, t01=0x00ac}
0x3454…3482 Head {h00=0x002a, h01=0x0050, text=» CF A14,PDCCH STORE CHAR IN DC BUFFER «, t00=0x0021, t01=0x00d2}
0x3482…3494 Head {h00=0x000e, h01=0x0050, text=» RB RD100 «, t00=0x0021, t01=0x0100}
0x3494…34b8 Head {h00=0x0020, h01=0x0050, text=»RD200 ANK A2,1 CHECK MDT BIT«, t00=0x0021, t01=0x0112}
0x34b8…34dc Head {h00=0x0020, h01=0x0050, text=» RF(NZ) RD300 MODIFIED FIELD«, t00=0x0021, t01=0x0136}
0x34dc…34f6 Head {h00=0x0016, h01=0x0050, text=»RD210 CWK A3,LBVDU«, t00=0x0021, t01=0x015a}
0x34f6…351a Head {h00=0x0020, h01=0x0050, text=» RF(NL) RDMODE ALL EXAMINED «, t00=0x0021, t01=0x0174}
0x351a…352c Head {h00=0x000e, h01=0x0050, text=» LCR A2,A4«, t00=0x0022, t01=0x0008}
0x352c…353e Head {h00=0x000e, h01=0x0050, text=» ADK A3,1 «, t00=0x0022, t01=0x001a}
0x353e…3550 Head {h00=0x000e, h01=0x0050, text=» ADK A4,1 «, t00=0x0022, t01=0x002c}
0x3550…3562 Head {h00=0x000e, h01=0x0050, text=» LDR A1,A2«, t00=0x0022, t01=0x003e}
0x3562…3576 Head {h00=0x0010, h01=0x0050, text=» ANK A1,/60 «, t00=0x0022, t01=0x0050}
0x3576…359e Head {h00=0x0024, h01=0x0050, text=» RB(NZ) RD210 NO ATTRIBUTE CHAR «, t00=0x0022, t01=0x0064}
0x359e…35e8 Head {h00=0x0046, h01=0x0050, text=»******************************************************** 78-05-11«, t00=0x0022, t01=0x008c}
0x35e8…3616 Head {h00=0x002a, h01=0x0050, text=» CWK A3,LBVDU ALL BUFFER EXAMINED ??? «, t00=0x0022, t01=0x00d6}
0x3616…3632 Head {h00=0x0018, h01=0x0050, text=» RF(NL) RDMODE YES!!«, t00=0x0022, t01=0x0104}
0x3632…367c Head {h00=0x0046, h01=0x0050, text=»******************************************************** 78-05-11«, t00=0x0022, t01=0x0120}
0x367c…369e Head {h00=0x001e, h01=0x0050, text=» RB RD200 ATTRIBUTE FOUND «, t00=0x0022, t01=0x016a}
0x369e…36b6 Head {h00=0x0014, h01=0x0050, text=»RD300 LDK A2,SBA«, t00=0x0022, t01=0x018c}
0x36b6…36dc Head {h00=0x0022, h01=0x0050, text=» CF A14,PDCCH SBA TO DC BUFFER«, t00=0x0023, t01=0x0014}
0x36dc…36fe Head {h00=0x001e, h01=0x0050, text=» LDR A1,A3 BUFFER POSITION«, t00=0x0023, t01=0x003a}
0x36fe…3722 Head {h00=0x0020, h01=0x0050, text=» CF A14,BUFADR TO DC BUFFER «, t00=0x0023, t01=0x005c}
0x3722…3734 Head {h00=0x000e, h01=0x0050, text=» RB RD100 «, t00=0x0023, t01=0x0080}
0x3734…374a Head {h00=0x0012, h01=0x0050, text=»RDMODE RTN A14«, t00=0x0023, t01=0x0092}
0x374a…3758 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0023, t01=0x00a8}
0x3758…3762 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0023, t01=0x00b6}
0x3762…376c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0023, t01=0x00c0}
0x376c…37a4 Head {h00=0x0034, h01=0x0050, text=»* UPDATE VIDEO DISPLAY BUFFER IMAGE BY THE DATA «, t00=0x0023, t01=0x00ca}
0x37a4…37ae Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0023, t01=0x0102}
0x37ae…37d2 Head {h00=0x0020, h01=0x0050, text=»* RECEIVED FROM THE DC LINE «, t00=0x0023, t01=0x010c}
0x37d2…37dc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0023, t01=0x0130}
0x37dc…37e6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0023, t01=0x013a}
0x37e6…380c Head {h00=0x0022, h01=0x0050, text=»* A7=DC RECEIVE BUFFER POINTER«, t00=0x0023, t01=0x0144}
0x380c…3828 Head {h00=0x0018, h01=0x0050, text=»* A8=DC ECB ADDRESS «, t00=0x0023, t01=0x016a}
0x3828…3854 Head {h00=0x0028, h01=0x0050, text=»* A9=DC BUFFER INDEX, INITIALLY ZERO«, t00=0x0023, t01=0x0186}
0x3854…385e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0024, t01=0x0022}
0x385e…3882 Head {h00=0x0020, h01=0x0050, text=»* A3=DISPLAY BUFFER POSITION«, t00=0x0024, t01=0x002c}
0x3882…38a6 Head {h00=0x0020, h01=0x0050, text=»* A4=DISPLAY BUFFER POINTER «, t00=0x0024, t01=0x0050}
0x38a6…38b0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0024, t01=0x0074}
0x38b0…38ba Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0024, t01=0x007e}
0x38ba…38ce Head {h00=0x0010, h01=0x0050, text=»UPDATE EQU *«, t00=0x0024, t01=0x0088}
0x38ce…38e8 Head {h00=0x0016, h01=0x0050, text=» CM ICWORK,TCABAS «, t00=0x0024, t01=0x009c}
0x38e8…3904 Head {h00=0x0018, h01=0x0050, text=» LD A8,ECBDCC,TCABAS«, t00=0x0024, t01=0x00b6}
0x3904…392e Head {h00=0x0026, h01=0x0050, text=» LD A7,ECBBA,A8 DC BUFFER ADDRESS «, t00=0x0024, t01=0x00d2}
0x392e…3956 Head {h00=0x0024, h01=0x0050, text=» SUR A9,A9 RESET DC BUFFER INDEX«, t00=0x0024, t01=0x00fc}
0x3956…398a Head {h00=0x0030, h01=0x0050, text=» CF A14,GDCCH GET FIRST CHAR FROM DC BUFFER «, t00=0x0024, t01=0x0124}
0x398a…39ae Head {h00=0x0020, h01=0x0050, text=» CWK A2,ESC SHOULD BE ESCAPE«, t00=0x0024, t01=0x0158}
0x39ae…39d0 Head {h00=0x001e, h01=0x0050, text=» RF(NE) UPDEND NOT ESCAPE «, t00=0x0024, t01=0x017c}
0x39d0…39e4 Head {h00=0x0010, h01=0x0050, text=»UPD010 EQU *«, t00=0x0025, t01=0x000e}
0x39e4…3a0a Head {h00=0x0022, h01=0x0050, text=» CF A14,GDCCH GET COMMAND CODE«, t00=0x0025, t01=0x0022}
0x3a0a…3a1e Head {h00=0x0010, h01=0x0050, text=» CWK A2,/31 «, t00=0x0025, t01=0x0048}
0x3a1e…3a3a Head {h00=0x0018, h01=0x0050, text=» RF(E) UPD100 WRITE «, t00=0x0025, t01=0x005c}
0x3a3a…3a4e Head {h00=0x0010, h01=0x0050, text=» CWK A2,/35 «, t00=0x0025, t01=0x0078}
0x3a4e…3a70 Head {h00=0x001e, h01=0x0050, text=» RF(E) UPD120 ERASE/WRITE «, t00=0x0025, t01=0x008c}
0x3a70…3a84 Head {h00=0x0010, h01=0x0050, text=» CWK A2,/3F «, t00=0x0025, t01=0x00ae}
0x3a84…3ab0 Head {h00=0x0028, h01=0x0050, text=» RF(E) UPD140 ERASE ALL UNPROTECTED «, t00=0x0025, t01=0x00c2}
0x3ab0…3ac6 Head {h00=0x0012, h01=0x0050, text=» IFT COPCMD=1 «, t00=0x0025, t01=0x00ee}
0x3ac6…3ada Head {h00=0x0010, h01=0x0050, text=» CWK A2,/37 «, t00=0x0025, t01=0x0104}
0x3ada…3afe Head {h00=0x0020, h01=0x0050, text=» ABL(E) UPD600 COPY COMMAND «, t00=0x0025, t01=0x0118}
0x3afe…3b0a Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0025, t01=0x013c}
0x3b0a…3b32 Head {h00=0x0024, h01=0x0050, text=» RF UPDEND INVALID COMMAND CODE «, t00=0x0025, t01=0x0148}
0x3b32…3b40 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0025, t01=0x0170}
0x3b40…3b4a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0025, t01=0x017e}
0x3b4a…3b62 Head {h00=0x0014, h01=0x0050, text=»* WRITE COMMAND «, t00=0x0025, t01=0x0188}
0x3b62…3b6c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0026, t01=0x0010}
0x3b6c…3b80 Head {h00=0x0010, h01=0x0050, text=»UPD100 EQU *«, t00=0x0026, t01=0x001a}
0x3b80…3bac Head {h00=0x0028, h01=0x0050, text=» CF A14,PWCC PROCESS WCC FOR MDT BIT«, t00=0x0026, t01=0x002e}
0x3bac…3bc8 Head {h00=0x0018, h01=0x0050, text=» LD A3,PCURS,TCABAS «, t00=0x0026, t01=0x005a}
0x3bc8…3bf4 Head {h00=0x0028, h01=0x0050, text=» LDR A4,A3 START IN CURSOR POSITION «, t00=0x0026, t01=0x0076}
0x3bf4…3c0a Head {h00=0x0012, h01=0x0050, text=» ADKL A4,BVDU «, t00=0x0026, t01=0x00a2}
0x3c0a…3c20 Head {h00=0x0012, h01=0x0050, text=» ADR A4,TCABAS«, t00=0x0026, t01=0x00b8}
0x3c20…3c48 Head {h00=0x0024, h01=0x0050, text=» LDK A5,1 INDICATE WCC, IC OR RA«, t00=0x0026, t01=0x00ce}
0x3c48…3c5a Head {h00=0x000e, h01=0x0050, text=» RF UPD220«, t00=0x0026, t01=0x00f6}
0x3c5a…3c64 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0026, t01=0x0108}
0x3c64…3c82 Head {h00=0x001a, h01=0x0050, text=»* ERASE/WRITE COMMAND «, t00=0x0026, t01=0x0112}
0x3c82…3c8c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0026, t01=0x0130}
0x3c8c…3ca0 Head {h00=0x0010, h01=0x0050, text=»UPD120 EQU *«, t00=0x0026, t01=0x013a}
0x3ca0…3cc2 Head {h00=0x001e, h01=0x0050, text=» CF A14,ERASE ERASE SCREEN«, t00=0x0026, t01=0x014e}
0x3cc2…3cd4 Head {h00=0x000e, h01=0x0050, text=» RF UPD200«, t00=0x0026, t01=0x0170}
0x3cd4…3cde Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0026, t01=0x0182}
0x3cde…3cfe Head {h00=0x001c, h01=0x0050, text=»* ERASE ALL UNPROTECTED «, t00=0x0026, t01=0x018c}
0x3cfe…3d08 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0027, t01=0x001c}
0x3d08…3d1c Head {h00=0x0010, h01=0x0050, text=»UPD140 EQU *«, t00=0x0027, t01=0x0026}
0x3d1c…3d48 Head {h00=0x0028, h01=0x0050, text=» CF A14,ERASUP ERASE ALL UNPROTECTED«, t00=0x0027, t01=0x003a}
0x3d48…3d74 Head {h00=0x0028, h01=0x0050, text=» RF UPDEND NO TEXT WITH THIS COMMAND«, t00=0x0027, t01=0x0066}
0x3d74…3d7e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0027, t01=0x0092}
0x3d7e…3db0 Head {h00=0x002e, h01=0x0050, text=»* TAKE CARE OF WRITE CONTROL CHARACTER WCC«, t00=0x0027, t01=0x009c}
0x3db0…3dba Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0027, t01=0x00ce}
0x3dba…3de0 Head {h00=0x0022, h01=0x0050, text=»UPD200 CF A14,PWCC PROCESS WCC«, t00=0x0027, t01=0x00d8}
0x3de0…3e08 Head {h00=0x0024, h01=0x0050, text=» LDK A5,1 INDICATE WCC, IC OR RA«, t00=0x0027, t01=0x00fe}
0x3e08…3e16 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0027, t01=0x0126}
0x3e16…3e20 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0027, t01=0x0134}
0x3e20…3e2a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0027, t01=0x013e}
0x3e2a…3e50 Head {h00=0x0022, h01=0x0050, text=»* PROCESS DATA FROM DC BUFFER «, t00=0x0027, t01=0x0148}
0x3e50…3e5a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0027, t01=0x016e}
0x3e5a…3e64 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0027, t01=0x0178}
0x3e64…3e94 Head {h00=0x002c, h01=0x0050, text=»UPD210 LDK A3,0 START FROM POSITION ZERO«, t00=0x0027, t01=0x0182}
0x3e94…3eaa Head {h00=0x0012, h01=0x0050, text=» LDKL A4,BVDU «, t00=0x0028, t01=0x0022}
0x3eaa…3ec0 Head {h00=0x0012, h01=0x0050, text=» ADR A4,TCABAS«, t00=0x0028, t01=0x0038}
0x3ec0…3ee2 Head {h00=0x001e, h01=0x0050, text=»UPD220 CW A9,DCLENG,TCABAS«, t00=0x0028, t01=0x004e}
0x3ee2…3f16 Head {h00=0x0030, h01=0x0050, text=» RF(NL) UPDEND ALL RECEIVED CHARS PROCESSED «, t00=0x0028, t01=0x0070}
0x3f16…3f44 Head {h00=0x002a, h01=0x0050, text=» CF A14,GDCCH GET CHAR FROM DC BUFFER «, t00=0x0028, t01=0x00a4}
0x3f44…3f58 Head {h00=0x0010, h01=0x0050, text=» CWK A2,/20 «, t00=0x0028, t01=0x00d2}
0x3f58…3f74 Head {h00=0x0018, h01=0x0050, text=» RF(L) UPD300 ORDER «, t00=0x0028, t01=0x00e6}
0x3f74…3f88 Head {h00=0x0010, h01=0x0050, text=»UPD230 EQU *«, t00=0x0028, t01=0x0102}
0x3f88…3fac Head {h00=0x0020, h01=0x0050, text=» ORK A2,/80 SET DISPLAY BIT «, t00=0x0028, t01=0x0116}
0x3fac…3fc0 Head {h00=0x0010, h01=0x0050, text=»UPD240 EQU *«, t00=0x0028, t01=0x013a}
0x3fc0…3fec Head {h00=0x0028, h01=0x0050, text=» LDK A5,0 INDICATE NOT WCC, IC OR RA«, t00=0x0028, t01=0x014e}
0x3fec…4002 Head {h00=0x0012, h01=0x0050, text=» CWK A3,LBVDU «, t00=0x0028, t01=0x017a}
0x4002…402c Head {h00=0x0026, h01=0x0050, text=» RF(E) UPD260 END OF VIDEO BUFFER «, t00=0x0028, t01=0x0190}
0x402c…4040 Head {h00=0x0010, h01=0x0050, text=»UPD250 EQU *«, t00=0x0029, t01=0x002a}
0x4040…4068 Head {h00=0x0024, h01=0x0050, text=» SCR A2,A4 STORE IN VIDEO BUFFER«, t00=0x0029, t01=0x003e}
0x4068…407a Head {h00=0x000e, h01=0x0050, text=» ADK A3,1 «, t00=0x0029, t01=0x0066}
0x407a…408c Head {h00=0x000e, h01=0x0050, text=» ADK A4,1 «, t00=0x0029, t01=0x0078}
0x408c…409e Head {h00=0x000e, h01=0x0050, text=» RB UPD220«, t00=0x0029, t01=0x008a}
0x409e…40b6 Head {h00=0x0014, h01=0x0050, text=»UPD260 LDK A3,0 «, t00=0x0029, t01=0x009c}
0x40b6…40cc Head {h00=0x0012, h01=0x0050, text=» LDKL A4,BVDU «, t00=0x0029, t01=0x00b4}
0x40cc…40e2 Head {h00=0x0012, h01=0x0050, text=» ADR A4,TCABAS«, t00=0x0029, t01=0x00ca}
0x40e2…40f4 Head {h00=0x000e, h01=0x0050, text=» RB UPD250«, t00=0x0029, t01=0x00e0}
0x40f4…4108 Head {h00=0x0010, h01=0x0050, text=»UPD300 EQU *«, t00=0x0029, t01=0x00f2}
0x4108…4146 Head {h00=0x003a, h01=0x0050, text=»******************************************* 78-08-15 «, t00=0x0029, t01=0x0106}
0x4146…4176 Head {h00=0x002c, h01=0x0050, text=» CWK A3,LBVDU END OF DISPLAY BUFFER ??? «, t00=0x0029, t01=0x0144}
0x4176…4192 Head {h00=0x0018, h01=0x0050, text=» RF(NE) UPD302 NO!!!«, t00=0x0029, t01=0x0174}
0x4192…41ba Head {h00=0x0024, h01=0x0050, text=» SUR A3,A3 FIRST SCREEN POSITION«, t00=0x0029, t01=0x0190}
0x41ba…41d0 Head {h00=0x0012, h01=0x0050, text=» LDKL A4,BVDU «, t00=0x002a, t01=0x0028}
0x41d0…41f6 Head {h00=0x0022, h01=0x0050, text=» ADR A4,TCABAS BUFFER POSITION«, t00=0x002a, t01=0x003e}
0x41f6…420a Head {h00=0x0010, h01=0x0050, text=»UPD302 EQU *«, t00=0x002a, t01=0x0064}
0x420a…4248 Head {h00=0x003a, h01=0x0050, text=»******************************************* 78-08-15 «, t00=0x002a, t01=0x0078}
0x4248…425c Head {h00=0x0010, h01=0x0050, text=» CWK A2,/1D «, t00=0x002a, t01=0x00b6}
0x425c…427e Head {h00=0x001e, h01=0x0050, text=» RF(E) UPD320 START FIELD «, t00=0x002a, t01=0x00ca}
0x427e…4292 Head {h00=0x0010, h01=0x0050, text=» CWK A2,/11 «, t00=0x002a, t01=0x00ec}
0x4292…42ba Head {h00=0x0024, h01=0x0050, text=» RF(E) UPD340 SET BUFFER ADDRESS«, t00=0x002a, t01=0x0100}
0x42ba…42ce Head {h00=0x0010, h01=0x0050, text=» CWK A2,/13 «, t00=0x002a, t01=0x0128}
0x42ce…42f2 Head {h00=0x0020, h01=0x0050, text=» RF(E) UPD360 INSERT CURSOR «, t00=0x002a, t01=0x013c}
0x42f2…4306 Head {h00=0x0010, h01=0x0050, text=» CWK A2,/09 «, t00=0x002a, t01=0x0160}
0x4306…4328 Head {h00=0x001e, h01=0x0050, text=» RF(E) UPD400 PROGRAM TAB «, t00=0x002a, t01=0x0174}
0x4328…433c Head {h00=0x0010, h01=0x0050, text=» CWK A2,/14 «, t00=0x002b, t01=0x0008}
0x433c…4364 Head {h00=0x0024, h01=0x0050, text=» RF(E) UPD500 REPEAT TO ADDRESS «, t00=0x002b, t01=0x001c}
0x4364…4378 Head {h00=0x0010, h01=0x0050, text=» CWK A2,/12 «, t00=0x002b, t01=0x0044}
0x4378…43aa Head {h00=0x002e, h01=0x0050, text=» RF(E) UPD540 ERASE UNPROTECTED TO ADDRESS«, t00=0x002b, t01=0x0058}
0x43aa…43be Head {h00=0x0010, h01=0x0050, text=» CWK A2,/0C «, t00=0x002b, t01=0x008a}
0x43be…43d4 Head {h00=0x0012, h01=0x0050, text=» RF(NE) UPD305«, t00=0x002b, t01=0x009e}
0x43d4…43f4 Head {h00=0x001c, h01=0x0050, text=» LDK A2,FORMFD FORM FEED«, t00=0x002b, t01=0x00b4}
0x43f4…4406 Head {h00=0x000e, h01=0x0050, text=» RB UPD230«, t00=0x002b, t01=0x00d4}
0x4406…4420 Head {h00=0x0016, h01=0x0050, text=»UPD305 CWK A2,/19 «, t00=0x002b, t01=0x00e6}
0x4420…4436 Head {h00=0x0012, h01=0x0050, text=» RF(NE) UPD310«, t00=0x002b, t01=0x0100}
0x4436…4458 Head {h00=0x001e, h01=0x0050, text=» LDK A2,ENDMES END MESSAGE«, t00=0x002b, t01=0x0116}
0x4458…446a Head {h00=0x000e, h01=0x0050, text=» RB UPD230«, t00=0x002b, t01=0x0138}
0x446a…447e Head {h00=0x0010, h01=0x0050, text=»UPD310 EQU *«, t00=0x002b, t01=0x014a}
0x447e…4492 Head {h00=0x0010, h01=0x0050, text=» CWK A2,/0A «, t00=0x002b, t01=0x015e}
0x4492…44a8 Head {h00=0x0012, h01=0x0050, text=» RF(NE) UPD315«, t00=0x002b, t01=0x0172}
0x44a8…44c8 Head {h00=0x001c, h01=0x0050, text=» LDK A2,NEWLIN NEW LINE «, t00=0x002b, t01=0x0188}
0x44c8…44da Head {h00=0x000e, h01=0x0050, text=» RB UPD230«, t00=0x002c, t01=0x0018}
0x44da…44ee Head {h00=0x0010, h01=0x0050, text=»UPD315 EQU *«, t00=0x002c, t01=0x002a}
0x44ee…4502 Head {h00=0x0010, h01=0x0050, text=» CWK A2,/18 «, t00=0x002c, t01=0x003e}
0x4502…4526 Head {h00=0x0020, h01=0x0050, text=» RF(NE) UPD317 ILLEGAL ORDER«, t00=0x002c, t01=0x0052}
0x4526…453a Head {h00=0x0010, h01=0x0050, text=» LDK A2,/30 «, t00=0x002c, t01=0x0076}
0x453a…454c Head {h00=0x000e, h01=0x0050, text=» RB UPD230«, t00=0x002c, t01=0x008a}
0x454c…4554 Head {h00=0x0004, h01=0x0050, t00=0x002c, t01=0x009c}
0x4554…4568 Head {h00=0x0010, h01=0x0050, text=»UPD317 EQU *«, t00=0x002c, t01=0x00a4}
0x4568…4586 Head {h00=0x001a, h01=0x0050, text=» CWK A2,ESC ESCAPE ???«, t00=0x002c, t01=0x00b8}
0x4586…45aa Head {h00=0x0020, h01=0x0050, text=» RB(E) UPD010 YES!! GET TEXT«, t00=0x002c, t01=0x00d6}
0x45aa…45b8 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x002c, t01=0x00fa}
0x45b8…45c0 Head {h00=0x0004, h01=0x0050, t00=0x002c, t01=0x0108}
0x45c0…45d4 Head {h00=0x0010, h01=0x0050, text=»UPD318 EQU *«, t00=0x002c, t01=0x0110}
0x45d4…45fa Head {h00=0x0022, h01=0x0050, text=» CWK A2,/00 NULL CHARACTER ???«, t00=0x002c, t01=0x0124}
0x45fa…4624 Head {h00=0x0026, h01=0x0050, text=» RF(NE) UPDEND NO!! ILLEGAL ORDER«, t00=0x002c, t01=0x014a}
0x4624…464a Head {h00=0x0022, h01=0x0050, text=» LDK A2,/7F PTS NULL CHARACTER«, t00=0x002c, t01=0x0174}
0x464a…465c Head {h00=0x000e, h01=0x0050, text=» RB UPD230«, t00=0x002d, t01=0x000a}
0x465c…4664 Head {h00=0x0004, h01=0x0050, t00=0x002d, t01=0x001c}
0x4664…46a8 Head {h00=0x0040, h01=0x0050, text=»************************************************************«, t00=0x002d, t01=0x0024}
0x46a8…46b2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002d, t01=0x0068}
0x46b2…46d4 Head {h00=0x001e, h01=0x0050, text=»* RELEASE RECEIVE BUFFER«, t00=0x002d, t01=0x0072}
0x46d4…46de Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002d, t01=0x0094}
0x46de…470c Head {h00=0x002a, h01=0x0050, text=»************************************* «, t00=0x002d, t01=0x009e}
0x470c…4714 Head {h00=0x0004, h01=0x0050, t00=0x002d, t01=0x00cc}
0x4714…4728 Head {h00=0x0010, h01=0x0050, text=»UPDEND EQU *«, t00=0x002d, t01=0x00d4}
0x4728…4744 Head {h00=0x0018, h01=0x0050, text=» LD A8,ECBDCC,TCABAS«, t00=0x002d, t01=0x00e8}
0x4744…475c Head {h00=0x0014, h01=0x0050, text=» LD A4,ECBBA,A8 «, t00=0x002d, t01=0x0104}
0x475c…4772 Head {h00=0x0012, h01=0x0050, text=» CF A14,RLRBUF«, t00=0x002d, t01=0x011c}
0x4772…4782 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x002d, t01=0x0132}
0x4782…4790 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x002d, t01=0x0142}
0x4790…479a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002d, t01=0x0150}
0x479a…47a4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002d, t01=0x015a}
0x47a4…47c0 Head {h00=0x0018, h01=0x0050, text=»* START FIELD ORDER «, t00=0x002d, t01=0x0164}
0x47c0…47ca Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002d, t01=0x0180}
0x47ca…47f8 Head {h00=0x002a, h01=0x0050, text=»UPD320 CF A14,GDCCH GET ATTRIBUTE CHAR«, t00=0x002d, t01=0x018a}
0x47f8…4810 Head {h00=0x0014, h01=0x0050, text=» LC A2,TEBCDI,A2«, t00=0x002e, t01=0x0028}
0x4810…483e Head {h00=0x002a, h01=0x0050, text=» LDR A1,A2 COMPOSE PTS ATTRIBUTE CHAR «, t00=0x002e, t01=0x0040}
0x483e…4850 Head {h00=0x000e, h01=0x0050, text=» ANK A1,1 «, t00=0x002e, t01=0x006e}
0x4850…4862 Head {h00=0x000e, h01=0x0050, text=» SRL A2,1 «, t00=0x002e, t01=0x0080}
0x4862…4876 Head {h00=0x0010, h01=0x0050, text=» ANK A2,/1E «, t00=0x002e, t01=0x0092}
0x4876…4888 Head {h00=0x000e, h01=0x0050, text=» ORR A2,A1«, t00=0x002e, t01=0x00a6}
0x4888…489a Head {h00=0x000e, h01=0x0050, text=» RB UPD240«, t00=0x002e, t01=0x00b8}
0x489a…48a4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002e, t01=0x00ca}
0x48a4…48c0 Head {h00=0x0018, h01=0x0050, text=»* SET BUFFER ADDRESS«, t00=0x002e, t01=0x00d4}
0x48c0…48ca Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002e, t01=0x00f0}
0x48ca…48f2 Head {h00=0x0024, h01=0x0050, text=»UPD340 CF A14,GETADR GET ADDRESS«, t00=0x002e, t01=0x00fa}
0x48f2…4908 Head {h00=0x0012, h01=0x0050, text=» CWK A1,LBVDU «, t00=0x002e, t01=0x0122}
0x4908…492e Head {h00=0x0022, h01=0x0050, text=» RB(NL) UPDEND INVALID ADDRESS«, t00=0x002e, t01=0x0138}
0x492e…4940 Head {h00=0x000e, h01=0x0050, text=» LDR A3,A1«, t00=0x002e, t01=0x015e}
0x4940…4952 Head {h00=0x000e, h01=0x0050, text=» LDR A4,A3«, t00=0x002e, t01=0x0170}
0x4952…4968 Head {h00=0x0012, h01=0x0050, text=» ADKL A4,BVDU «, t00=0x002e, t01=0x0182}
0x4968…497e Head {h00=0x0012, h01=0x0050, text=» ADR A4,TCABAS«, t00=0x002f, t01=0x0008}
0x497e…4990 Head {h00=0x000e, h01=0x0050, text=» RB UPD220«, t00=0x002f, t01=0x001e}
0x4990…499a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002f, t01=0x0030}
0x499a…49b2 Head {h00=0x0014, h01=0x0050, text=»* INSERT CURSOR «, t00=0x002f, t01=0x003a}
0x49b2…49bc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002f, t01=0x0052}
0x49bc…49f0 Head {h00=0x0030, h01=0x0050, text=»UPD360 ST A3,PCURS,TCABAS SET NEW CURSOR POS«, t00=0x002f, t01=0x005c}
0x49f0…4a18 Head {h00=0x0024, h01=0x0050, text=» LDK A5,1 INDICATE WCC, IC OR RA«, t00=0x002f, t01=0x0090}
0x4a18…4a2a Head {h00=0x000e, h01=0x0050, text=» RB UPD220«, t00=0x002f, t01=0x00b8}
0x4a2a…4a38 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x002f, t01=0x00ca}
0x4a38…4a42 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002f, t01=0x00d8}
0x4a42…4a58 Head {h00=0x0012, h01=0x0050, text=»* PROGRAM TAB «, t00=0x002f, t01=0x00e2}
0x4a58…4a62 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002f, t01=0x00f8}
0x4a62…4a7a Head {h00=0x0014, h01=0x0050, text=»UPD400 LDR A5,A5«, t00=0x002f, t01=0x0102}
0x4a7a…4aa8 Head {h00=0x002a, h01=0x0050, text=» RF(NZ) UPD430 PT AFTER WCC, IC OR RA «, t00=0x002f, t01=0x011a}
0x4aa8…4adc Head {h00=0x0030, h01=0x0050, text=» LDK A1,NULL+/80 FILL CURRENT FIELD BY NULLS«, t00=0x002f, t01=0x0148}
0x4adc…4af0 Head {h00=0x0010, h01=0x0050, text=»UPD410 EQU *«, t00=0x002f, t01=0x017c}
0x4af0…4b02 Head {h00=0x000e, h01=0x0050, text=» LDK A5,0 «, t00=0x002f, t01=0x0190}
0x4b02…4b18 Head {h00=0x0012, h01=0x0050, text=» CWK A3,LBVDU «, t00=0x0030, t01=0x0012}
0x4b18…4b3c Head {h00=0x0020, h01=0x0050, text=» RB(NL) UPD210 END OF BUFFER«, t00=0x0030, t01=0x0028}
0x4b3c…4b4e Head {h00=0x000e, h01=0x0050, text=» LCR A2,A4«, t00=0x0030, t01=0x004c}
0x4b4e…4b60 Head {h00=0x000e, h01=0x0050, text=» ADK A3,1 «, t00=0x0030, t01=0x005e}
0x4b60…4b74 Head {h00=0x0010, h01=0x0050, text=» ANK A2,/7F «, t00=0x0030, t01=0x0070}
0x4b74…4b88 Head {h00=0x0010, h01=0x0050, text=» CWK A2,/20 «, t00=0x0030, t01=0x0084}
0x4b88…4b9e Head {h00=0x0012, h01=0x0050, text=» RF(L) UPD415 «, t00=0x0030, t01=0x0098}
0x4b9e…4bbc Head {h00=0x001a, h01=0x0050, text=» SCR A1,A4 STORE NULL «, t00=0x0030, t01=0x00ae}
0x4bbc…4bce Head {h00=0x000e, h01=0x0050, text=» ADK A4,1 «, t00=0x0030, t01=0x00cc}
0x4bce…4be0 Head {h00=0x000e, h01=0x0050, text=» RB UPD410«, t00=0x0030, t01=0x00de}
0x4be0…4bf4 Head {h00=0x0010, h01=0x0050, text=»UPD415 EQU *«, t00=0x0030, t01=0x00f0}
0x4bf4…4c06 Head {h00=0x000e, h01=0x0050, text=» ADK A4,1 «, t00=0x0030, t01=0x0104}
0x4c06…4c20 Head {h00=0x0016, h01=0x0050, text=»UPD420 ANK A2,/10 «, t00=0x0030, t01=0x0116}
0x4c20…4c48 Head {h00=0x0024, h01=0x0050, text=» RB(Z) UPD220 UNPROTECTED FIELD «, t00=0x0030, t01=0x0130}
0x4c48…4c5c Head {h00=0x0010, h01=0x0050, text=»UPD430 EQU *«, t00=0x0030, t01=0x0158}
0x4c5c…4c6e Head {h00=0x000e, h01=0x0050, text=» LDK A5,0 «, t00=0x0030, t01=0x016c}
0x4c6e…4c84 Head {h00=0x0012, h01=0x0050, text=» CWK A3,LBVDU «, t00=0x0030, t01=0x017e}
0x4c84…4cb2 (49, 0, 400) Head {h00=0x002a, h01=0x0050, text=» ABL(NL) UPD210 END OF DISPLAY BUFFER «, t00=0x0031, t01=0x0004}
0x4cb2…4cc4 Head {h00=0x000e, h01=0x0050, text=» LCR A2,A4«, t00=0x0031, t01=0x0032}
0x4cc4…4cd6 Head {h00=0x000e, h01=0x0050, text=» ADK A3,1 «, t00=0x0031, t01=0x0044}
0x4cd6…4ce8 Head {h00=0x000e, h01=0x0050, text=» ADK A4,1 «, t00=0x0031, t01=0x0056}
0x4ce8…4cfc Head {h00=0x0010, h01=0x0050, text=» ANK A2,/7F «, t00=0x0031, t01=0x0068}
0x4cfc…4d10 Head {h00=0x0010, h01=0x0050, text=» CWK A2,/20 «, t00=0x0031, t01=0x007c}
0x4d10…4d26 Head {h00=0x0012, h01=0x0050, text=» RB(L) UPD420 «, t00=0x0031, t01=0x0090}
0x4d26…4d38 Head {h00=0x000e, h01=0x0050, text=» RB UPD430«, t00=0x0031, t01=0x00a6}
0x4d38…4d46 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0031, t01=0x00b8}
0x4d46…4d50 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0031, t01=0x00c6}
0x4d50…4d6c Head {h00=0x0018, h01=0x0050, text=»* REPEAT TO ADDRESS «, t00=0x0031, t01=0x00d0}
0x4d6c…4d76 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0031, t01=0x00ec}
0x4d76…4da2 Head {h00=0x0028, h01=0x0050, text=»UPD500 CF A14,GETADR GET END ADDRESS«, t00=0x0031, t01=0x00f6}
0x4da2…4db8 Head {h00=0x0012, h01=0x0050, text=» CWK A1,LBVDU «, t00=0x0031, t01=0x0122}
0x4db8…4dde Head {h00=0x0022, h01=0x0050, text=» RB(NL) UPDEND INVALID ADDRESS«, t00=0x0031, t01=0x0138}
0x4dde…4e0c Head {h00=0x002a, h01=0x0050, text=» CF A14,GDCCH GET CHAR TO BE REPEATED «, t00=0x0031, t01=0x015e}
0x4e0c…4e34 Head {h00=0x0024, h01=0x0050, text=» LDK A5,1 INDICATE WCC, IC OR RA«, t00=0x0031, t01=0x018c}
0x4e34…4e5a Head {h00=0x0022, h01=0x0050, text=» ORK A2,/80 INDICATE MODIFIED «, t00=0x0032, t01=0x0024}
0x4e5a…4e62 Head {h00=0x0004, h01=0x0050, t00=0x0032, t01=0x004a}
0x4e62…4ea8 Head {h00=0x0042, h01=0x0050, text=»**************************************************** 78-07-02«, t00=0x0032, t01=0x0052}
0x4ea8…4eb0 Head {h00=0x0004, h01=0x0050, t00=0x0032, t01=0x0098}
0x4eb0…4ee6 Head {h00=0x0032, h01=0x0050, text=» CWR A3,A1 NULLS TO ALL SCREEN POSITIONS ???? «, t00=0x0032, t01=0x00a0}
0x4ee6…4f02 Head {h00=0x0018, h01=0x0050, text=» RF(E) UPD530 YES!!!«, t00=0x0032, t01=0x00d6}
0x4f02…4f0a Head {h00=0x0004, h01=0x0050, t00=0x0032, t01=0x00f2}
0x4f0a…4f52 Head {h00=0x0044, h01=0x0050, text=»***************************************************** 78-07-02 «, t00=0x0032, t01=0x00fa}
0x4f52…4f5a Head {h00=0x0004, h01=0x0050, t00=0x0032, t01=0x0142}
0x4f5a…4f76 Head {h00=0x0018, h01=0x0050, text=»UPD510 CWK A3,LBVDU «, t00=0x0032, t01=0x014a}
0x4f76…4f9e Head {h00=0x0024, h01=0x0050, text=» RF(L) UPD520 NOT END OF SCREEN «, t00=0x0032, t01=0x0166}
0x4f9e…4fb0 Head {h00=0x000e, h01=0x0050, text=» LDK A3,0 «, t00=0x0032, t01=0x018e}
0x4fb0…4fd2 Head {h00=0x001e, h01=0x0050, text=» LDKL A4,BVDU WRAP AROUND «, t00=0x0033, t01=0x0010}
0x4fd2…4fe8 Head {h00=0x0012, h01=0x0050, text=» ADR A4,TCABAS«, t00=0x0033, t01=0x0032}
0x4fe8…5000 Head {h00=0x0014, h01=0x0050, text=»UPD520 CWR A3,A1«, t00=0x0033, t01=0x0048}
0x5000…5028 Head {h00=0x0024, h01=0x0050, text=» ABL(E) UPD220 ALL CHAR REPEATED«, t00=0x0033, t01=0x0060}
0x5028…5030 Head {h00=0x0004, h01=0x0050, t00=0x0033, t01=0x0088}
0x5030…507a Head {h00=0x0046, h01=0x0050, text=»******************************************************* 78-07-02 «, t00=0x0033, t01=0x0090}
0x507a…508e Head {h00=0x0010, h01=0x0050, text=»UPD530 EQU *«, t00=0x0033, t01=0x00da}
0x508e…50d6 Head {h00=0x0044, h01=0x0050, text=»***************************************************** 78-07-02 «, t00=0x0033, t01=0x00ee}
0x50d6…50de Head {h00=0x0004, h01=0x0050, t00=0x0033, t01=0x0136}
0x50de…50f0 Head {h00=0x000e, h01=0x0050, text=» SCR A2,A4«, t00=0x0033, t01=0x013e}
0x50f0…5102 Head {h00=0x000e, h01=0x0050, text=» ADK A3,1 «, t00=0x0033, t01=0x0150}
0x5102…5114 Head {h00=0x000e, h01=0x0050, text=» ADK A4,1 «, t00=0x0033, t01=0x0162}
0x5114…5134 Head {h00=0x001c, h01=0x0050, text=» RB UPD510 NEXT POSITION«, t00=0x0033, t01=0x0174}
0x5134…513e (52, 0, 400) Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0034, t01=0x0004}
0x513e…5164 Head {h00=0x0022, h01=0x0050, text=»* ERASE UNPROTECTED TO ADDRESS«, t00=0x0034, t01=0x000e}
0x5164…516e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0034, t01=0x0034}
0x516e…519a Head {h00=0x0028, h01=0x0050, text=»UPD540 CF A14,GETADR GET END ADDRESS«, t00=0x0034, t01=0x003e}
0x519a…51b0 Head {h00=0x0012, h01=0x0050, text=» CWK A3,LBVDU «, t00=0x0034, t01=0x006a}
0x51b0…51d6 Head {h00=0x0022, h01=0x0050, text=» RB(NL) UPDEND INVALID ADDRESS«, t00=0x0034, t01=0x0080}
0x51d6…520a Head {h00=0x0030, h01=0x0050, text=» CF A14,ERASUA ERASE UNPROTECTED TO ADDRESS «, t00=0x0034, t01=0x00a6}
0x520a…521e Head {h00=0x0010, h01=0x0050, text=» ABL UPD220 «, t00=0x0034, t01=0x00da}
0x521e…5234 Head {h00=0x0012, h01=0x0050, text=» IFT COPCMD=1 «, t00=0x0034, t01=0x00ee}
0x5234…5242 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0034, t01=0x0104}
0x5242…524c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0034, t01=0x0112}
0x524c…5262 Head {h00=0x0012, h01=0x0050, text=»* COPY COMMAND«, t00=0x0034, t01=0x011c}
0x5262…526c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0034, t01=0x0132}
0x526c…5280 Head {h00=0x0010, h01=0x0050, text=»UPD600 EQU *«, t00=0x0034, t01=0x013c}
0x5280…529e Head {h00=0x001a, h01=0x0050, text=» LD A1,PRINTER,TCABAS «, t00=0x0034, t01=0x0150}
0x529e…52d6 Head {h00=0x0034, h01=0x0050, text=» ABL(Z) UPDEND COPYCOMMAND NOT SUPPORTED FOR VDU«, t00=0x0034, t01=0x016e}
0x52d6…52e8 Head {h00=0x000e, h01=0x0050, text=» ADK A7,1 «, t00=0x0035, t01=0x0016}
0x52e8…52fe Head {h00=0x0012, h01=0x0050, text=» BYPASS CCC «, t00=0x0035, t01=0x0028}
0x52fe…5324 Head {h00=0x0022, h01=0x0050, text=» CF A14,GDCCH GET FROM DEVICE «, t00=0x0035, t01=0x003e}
0x5324…533a Head {h00=0x0012, h01=0x0050, text=» IFT EBCDIC=1 «, t00=0x0035, t01=0x0064}
0x533a…5364 Head {h00=0x0026, h01=0x0050, text=» LC A2,TEBCDI,A2 CONVERT TO EBCDIC«, t00=0x0035, t01=0x007a}
0x5364…5370 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0035, t01=0x00a4}
0x5370…5386 Head {h00=0x0012, h01=0x0050, text=» IFT COPCMD=1 «, t00=0x0035, t01=0x00b0}
0x5386…53ac Head {h00=0x0022, h01=0x0050, text=» LD A3,6,CREBAS 'CB1' ADDRESS «, t00=0x0035, t01=0x00c6}
0x53ac…53c4 Head {h00=0x0014, h01=0x0050, text=» LDK A4,MF1KBV-1«, t00=0x0035, t01=0x00ec}
0x53c4…53d8 Head {h00=0x0010, h01=0x0050, text=» IFT DCLIN=2«, t00=0x0035, t01=0x0104}
0x53d8…53f8 Head {h00=0x001c, h01=0x0050, text=» LD A1,ECBBLK+DC2,TCABAS«, t00=0x0035, t01=0x0118}
0x53f8…540e Head {h00=0x0012, h01=0x0050, text=» RF(NZ) UPD602«, t00=0x0035, t01=0x0138}
0x540e…5432 Head {h00=0x0020, h01=0x0050, text=» LDK A4,MF2KBV-1 MF # 2 READ«, t00=0x0035, t01=0x014e}
0x5432…543e Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0035, t01=0x0172}
0x543e…5454 Head {h00=0x0012, h01=0x0050, text=» IFT COPCMD=1 «, t00=0x0035, t01=0x017e}
0x5454…5468 (54, 0, 400) Head {h00=0x0010, h01=0x0050, text=»UPD602 EQU *«, t00=0x0036, t01=0x0004}
0x5468…548a Head {h00=0x001e, h01=0x0050, text=» ADR A4,A3 CONFIG TABLE -1«, t00=0x0036, t01=0x0018}
0x548a…54b4 Head {h00=0x0026, h01=0x0050, text=» LD A5,NBRKBV,A3 NUMBER OF KB/VDUS«, t00=0x0036, t01=0x003a}
0x54b4…54e0 Head {h00=0x0028, h01=0x0050, text=» ADR A4,A5 LAST KB/VDU CONFIGURATED «, t00=0x0036, t01=0x0064}
0x54e0…54f4 Head {h00=0x0010, h01=0x0050, text=»UPD604 EQU *«, t00=0x0036, t01=0x0090}
0x54f4…551c Head {h00=0x0024, h01=0x0050, text=» CCR A2,A4 DV-ADDRESS MATCHES ? «, t00=0x0036, t01=0x00a4}
0x551c…5536 Head {h00=0x0016, h01=0x0050, text=» RF(E) UPD610 YES «, t00=0x0036, t01=0x00cc}
0x5536…5548 Head {h00=0x000e, h01=0x0050, text=» SUK A4,1 «, t00=0x0036, t01=0x00e6}
0x5548…555a Head {h00=0x000e, h01=0x0050, text=» SUK A5,1 «, t00=0x0036, t01=0x00f8}
0x555a…5578 Head {h00=0x001a, h01=0x0050, text=» RB(P) UPD604 TRY NEXT«, t00=0x0036, t01=0x010a}
0x5578…5594 Head {h00=0x0018, h01=0x0050, text=» ABL UPDEND NO MATCH«, t00=0x0036, t01=0x0128}
0x5594…559e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0036, t01=0x0144}
0x559e…55b2 Head {h00=0x0010, h01=0x0050, text=»UPD610 EQU *«, t00=0x0036, t01=0x014e}
0x55b2…55ca Head {h00=0x0014, h01=0x0050, text=» LDKL A8,ECBICW «, t00=0x0036, t01=0x0162}
0x55ca…55e0 Head {h00=0x0012, h01=0x0050, text=» ADR A8,CREBAS«, t00=0x0036, t01=0x017a}
0x55e0…55ec Head {h00=0x0008, h01=0x0050, text=» LKM«, t00=0x0036, t01=0x0190}
0x55ec…5620 Head {h00=0x0030, h01=0x0050, text=» DATA 10 ABORT LAST REQUEST IF NOT COMPLETED«, t00=0x0037, t01=0x000c}
0x5620…564a Head {h00=0x0026, h01=0x0050, text=» ADKL A5,/4B40 TASKID FROM DEVICE «, t00=0x0037, t01=0x0040}
0x564a…5672 Head {h00=0x0024, h01=0x0050, text=» LD A2,-4,CREBAS GET OWN TASKID «, t00=0x0037, t01=0x006a}
0x5672…569c Head {h00=0x0026, h01=0x0050, text=» ST A2,ICWORK,TCABAS PUT IN BUFFER«, t00=0x0037, t01=0x0092}
0x569c…56ca Head {h00=0x002a, h01=0x0050, text=» LDK A4,/0B WRITE ADDRESSED , NO WAIT «, t00=0x0037, t01=0x00bc}
0x56ca…56e6 Head {h00=0x0018, h01=0x0050, text=» LDK A6,2 REQ LENGTH«, t00=0x0037, t01=0x00ea}
0x56e6…56fe Head {h00=0x0014, h01=0x0050, text=» LDKL A3,ICWORK «, t00=0x0037, t01=0x0106}
0x56fe…5724 Head {h00=0x0022, h01=0x0050, text=» ADR A3,TCABAS BUFFER ADDRESS «, t00=0x0037, t01=0x011e}
0x5724…574a Head {h00=0x0022, h01=0x0050, text=» CF A14,ICWRTE WRITE INTERTASK«, t00=0x0037, t01=0x0144}
0x574a…575e Head {h00=0x0010, h01=0x0050, text=» ABL UPDEND «, t00=0x0037, t01=0x016a}
0x575e…576a Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0037, t01=0x017e}
0x576a…5778 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0037, t01=0x018a}
0x5778…5782 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0038, t01=0x0008}
0x5782…578c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0038, t01=0x0012}
0x578c…57b6 Head {h00=0x0026, h01=0x0050, text=»* PROCESS WRITE CONTROL CHARACTER «, t00=0x0038, t01=0x001c}
0x57b6…57c0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0038, t01=0x0046}
0x57c0…57ee Head {h00=0x002a, h01=0x0050, text=»* ONLY RESET MDT BIT IS TAKEN CARE OF «, t00=0x0038, t01=0x0050}
0x57ee…57f8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0038, t01=0x007e}
0x57f8…5802 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0038, t01=0x0088}
0x5802…5824 Head {h00=0x001e, h01=0x0050, text=»PWCC CF A14,GDCCH GET WCC «, t00=0x0038, t01=0x0092}
0x5824…5846 Head {h00=0x001e, h01=0x0050, text=» LC A2,TEBCDI,A2 IN EBCDIC«, t00=0x0038, t01=0x00b4}
0x5846…5868 Head {h00=0x001e, h01=0x0050, text=» ST A2,WCC,TCABAS SAVE IT «, t00=0x0038, t01=0x00d6}
0x5868…587c Head {h00=0x0010, h01=0x0050, text=» ANK A2,/04 «, t00=0x0038, t01=0x00f8}
0x587c…5890 Head {h00=0x0010, h01=0x0050, text=» RF(Z) PWCC1«, t00=0x0038, t01=0x010c}
0x5890…58ae Head {h00=0x001a, h01=0x0050, text=» LD A2,PRINTER,TCABAS «, t00=0x0038, t01=0x0120}
0x58ae…58c4 Head {h00=0x0012, h01=0x0050, text=» RF(NZ) PWCC1 «, t00=0x0038, t01=0x013e}
0x58c4…58d8 Head {h00=0x0010, h01=0x0050, text=» LDR A10,A7 «, t00=0x0038, t01=0x0154}
0x58d8…58f0 Head {h00=0x0014, h01=0x0050, text=» LDKL A8,ECBVDU «, t00=0x0038, t01=0x0168}
0x58f0…5906 Head {h00=0x0012, h01=0x0050, text=» ADR A8,CREBAS«, t00=0x0038, t01=0x0180}
0x5906…591e Head {h00=0x0014, h01=0x0050, text=» LD A2,ECBBA,A8 «, t00=0x0039, t01=0x0008}
0x591e…5932 Head {h00=0x0010, h01=0x0050, text=» LDK A7,/2B «, t00=0x0039, t01=0x0020}
0x5932…594a Head {h00=0x0014, h01=0x0050, text=» SC A7,1,A2 =1 «, t00=0x0039, t01=0x0034}
0x594a…5966 Head {h00=0x0018, h01=0x0050, text=» LDK A7,/07 BELL =1 «, t00=0x0039, t01=0x004c}
0x5966…597e Head {h00=0x0014, h01=0x0050, text=» SC A7,2,A2 =1 «, t00=0x0039, t01=0x0068}
0x597e…5996 Head {h00=0x0014, h01=0x0050, text=» SC A7,3,A2 =1 «, t00=0x0039, t01=0x0080}
0x5996…59a8 Head {h00=0x000e, h01=0x0050, text=» LDK A7,4 «, t00=0x0039, t01=0x0098}
0x59a8…59c0 Head {h00=0x0014, h01=0x0050, text=» ST A7,ECBRL,A8 «, t00=0x0039, t01=0x00aa}
0x59c0…59d4 Head {h00=0x0010, h01=0x0050, text=» LDK A7,/86 «, t00=0x0039, t01=0x00c2}
0x59d4…59e0 Head {h00=0x0008, h01=0x0050, text=» LKM«, t00=0x0039, t01=0x00d6}
0x59e0…59f0 Head {h00=0x000c, h01=0x0050, text=» DATA 1 «, t00=0x0039, t01=0x00e2}
0x59f0…5a0c Head {h00=0x0018, h01=0x0050, text=» LD A8,ECBDCC,TCABAS«, t00=0x0039, t01=0x00f2}
0x5a0c…5a20 Head {h00=0x0010, h01=0x0050, text=» LDR A7,A10 «, t00=0x0039, t01=0x010e}
0x5a20…5a34 Head {h00=0x0010, h01=0x0050, text=»PWCC1 EQU * «, t00=0x0039, t01=0x0122}
0x5a34…5a4e Head {h00=0x0016, h01=0x0050, text=» LD A2,WCC,TCABAS «, t00=0x0039, t01=0x0136}
0x5a4e…5a60 Head {h00=0x000e, h01=0x0050, text=» ANK A2,1 «, t00=0x0039, t01=0x0150}
0x5a60…5a84 Head {h00=0x0020, h01=0x0050, text=» RF(NZ) RESMDT RESET ALL MDT«, t00=0x0039, t01=0x0162}
0x5a84…5aa4 Head {h00=0x001c, h01=0x0050, text=»PWCC10 RTN A14 NO ACTION«, t00=0x0039, t01=0x0186}
0x5aa4…5aae Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003a, t01=0x0016}
0x5aae…5ab8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003a, t01=0x0020}
0x5ab8…5ad4 Head {h00=0x0018, h01=0x0050, text=»* RESET ALL MDT BITS«, t00=0x003a, t01=0x002a}
0x5ad4…5ade Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003a, t01=0x0046}
0x5ade…5ae8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003a, t01=0x0050}
0x5ae8…5b00 Head {h00=0x0014, h01=0x0050, text=»RESMDT LDK A3,0 «, t00=0x003a, t01=0x005a}
0x5b00…5b16 Head {h00=0x0012, h01=0x0050, text=» LDKL A4,BVDU «, t00=0x003a, t01=0x0072}
0x5b16…5b2c Head {h00=0x0012, h01=0x0050, text=» ADR A4,TCABAS«, t00=0x003a, t01=0x0088}
0x5b2c…5b48 Head {h00=0x0018, h01=0x0050, text=»RESM10 CWK A3,LBVDU «, t00=0x003a, t01=0x009e}
0x5b48…5b68 Head {h00=0x001c, h01=0x0050, text=» RB(NL) PWCC10 ALL DONE «, t00=0x003a, t01=0x00ba}
0x5b68…5b84 Head {h00=0x0018, h01=0x0050, text=» LCR A2,A4 GET CHAR «, t00=0x003a, t01=0x00da}
0x5b84…5b98 Head {h00=0x0010, h01=0x0050, text=» ANK A2,/60 «, t00=0x003a, t01=0x00f6}
0x5b98…5bbc Head {h00=0x0020, h01=0x0050, text=» RF(NZ) RESM20 NO ATTRIBUTE «, t00=0x003a, t01=0x010a}
0x5bbc…5bce Head {h00=0x000e, h01=0x0050, text=» LCR A2,A4«, t00=0x003a, t01=0x012e}
0x5bce…5bec Head {h00=0x001a, h01=0x0050, text=» ANK A2,/FE RESET MDT «, t00=0x003a, t01=0x0140}
0x5bec…5bfe Head {h00=0x000e, h01=0x0050, text=» SCR A2,A4«, t00=0x003a, t01=0x015e}
0x5bfe…5c16 Head {h00=0x0014, h01=0x0050, text=»RESM20 ADK A3,1 «, t00=0x003a, t01=0x0170}
0x5c16…5c28 Head {h00=0x000e, h01=0x0050, text=» ADK A4,1 «, t00=0x003a, t01=0x0188}
0x5c28…5c3a Head {h00=0x000e, h01=0x0050, text=» RB RESM10«, t00=0x003b, t01=0x000a}
0x5c3a…5c48 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x003b, t01=0x001c}
0x5c48…5c52 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003b, t01=0x002a}
0x5c52…5c5c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003b, t01=0x0034}
0x5c5c…5c7a Head {h00=0x001a, h01=0x0050, text=»* ERASE ENTIRE SCREEN «, t00=0x003b, t01=0x003e}
0x5c7a…5c84 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003b, t01=0x005c}
0x5c84…5c8e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003b, t01=0x0066}
0x5c8e…5ca4 Head {h00=0x0012, h01=0x0050, text=»ERASE LDK A3,0«, t00=0x003b, t01=0x0070}
0x5ca4…5cba Head {h00=0x0012, h01=0x0050, text=» LDKL A4,BVDU «, t00=0x003b, t01=0x0086}
0x5cba…5cd0 Head {h00=0x0012, h01=0x0050, text=» ADR A4,TCABAS«, t00=0x003b, t01=0x009c}
0x5cd0…5ce4 Head {h00=0x0010, h01=0x0050, text=» LDK A2,NULL«, t00=0x003b, t01=0x00b2}
0x5ce4…5d00 Head {h00=0x0018, h01=0x0050, text=»ERAS20 CWK A3,LBVDU «, t00=0x003b, t01=0x00c6}
0x5d00…5d22 Head {h00=0x001e, h01=0x0050, text=» RF(NL) ERAS25 ALL ERASED «, t00=0x003b, t01=0x00e2}
0x5d22…5d34 Head {h00=0x000e, h01=0x0050, text=» SCR A2,A4«, t00=0x003b, t01=0x0104}
0x5d34…5d46 Head {h00=0x000e, h01=0x0050, text=» ADK A3,1 «, t00=0x003b, t01=0x0116}
0x5d46…5d58 Head {h00=0x000e, h01=0x0050, text=» ADK A4,1 «, t00=0x003b, t01=0x0128}
0x5d58…5d6a Head {h00=0x000e, h01=0x0050, text=» RB ERAS20«, t00=0x003b, t01=0x013a}
0x5d6a…5d9a Head {h00=0x002c, h01=0x0050, text=»ERAS25 CM PCURS,TCABAS RESET CURSOR POS «, t00=0x003b, t01=0x014c}
0x5d9a…5db2 Head {h00=0x0014, h01=0x0050, text=» LDKL A1,LBVDU+1«, t00=0x003b, t01=0x017c}
0x5db2…5de6 (60, 0, 398) Head {h00=0x0030, h01=0x0050, text=» ST A1,CURATT,TCABAS INDICATE UNFORM. SCREEN«, t00=0x003c, t01=0x0004}
0x5de6…5e00 Head {h00=0x0016, h01=0x0050, text=» CM ATTRIB,TCABAS «, t00=0x003c, t01=0x0038}
0x5e00…5e30 Head {h00=0x002c, h01=0x0050, text=» LD A1,PRINTER,TCABAS CHECK DEVISE TYPE «, t00=0x003c, t01=0x0052}
0x5e30…5e5c Head {h00=0x0028, h01=0x0050, text=» RF(NZ) ERAEND PRINTER, NOT DISPLAY «, t00=0x003c, t01=0x0082}
0x5e5c…5e88 Head {h00=0x0028, h01=0x0050, text=» STR A7,A14 SAVE A7 AND A8 ON STACK «, t00=0x003c, t01=0x00ae}
0x5e88…5e9e Head {h00=0x0012, h01=0x0050, text=» ST A8,-2,A14 «, t00=0x003c, t01=0x00da}
0x5e9e…5eb6 Head {h00=0x0014, h01=0x0050, text=» LDKL A8,ECBVDU «, t00=0x003c, t01=0x00f0}
0x5eb6…5ed4 Head {h00=0x001a, h01=0x0050, text=» ADR A8,CREBAS VDUECB «, t00=0x003c, t01=0x0108}
0x5ed4…5efa Head {h00=0x0022, h01=0x0050, text=» LDK A7,'1' ERASE CONTROL CHAR«, t00=0x003c, t01=0x0126}
0x5efa…5f16 Head {h00=0x0018, h01=0x0050, text=» LD A1,ECBBA,A8 =1 «, t00=0x003c, t01=0x014c}
0x5f16…5f2e Head {h00=0x0014, h01=0x0050, text=» SC A7,1,A1 =1 «, t00=0x003c, t01=0x0168}
0x5f2e…5f40 Head {h00=0x000e, h01=0x0050, text=» LDK A7,2 «, t00=0x003c, t01=0x0180}
0x5f40…5f66 (61, 0, 400) Head {h00=0x0022, h01=0x0050, text=» ST A7,ECBRL,A8 REQ LENGTH = 2«, t00=0x003d, t01=0x0004}
0x5f66…5f80 Head {h00=0x0016, h01=0x0050, text=» LDK A7,/86 WRITE «, t00=0x003d, t01=0x002a}
0x5f80…5f8c Head {h00=0x0008, h01=0x0050, text=» LKM«, t00=0x003d, t01=0x0044}
0x5f8c…5f9c Head {h00=0x000c, h01=0x0050, text=» DATA 1 «, t00=0x003d, t01=0x0050}
0x5f9c…5fb2 Head {h00=0x0012, h01=0x0050, text=» LD A8,-2,A14 «, t00=0x003d, t01=0x0060}
0x5fb2…5fd8 Head {h00=0x0022, h01=0x0050, text=» LDR* A7,A14 RESTORE A7 AND A8«, t00=0x003d, t01=0x0076}
0x5fd8…5fee Head {h00=0x0012, h01=0x0050, text=»ERAEND RTN A14«, t00=0x003d, t01=0x009c}
0x5fee…5ffc Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x003d, t01=0x00b2}
0x5ffc…6006 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003d, t01=0x00c0}
0x6006…6010 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003d, t01=0x00ca}
0x6010…6030 Head {h00=0x001c, h01=0x0050, text=»* ERASE ALL UNPROTECTED «, t00=0x003d, t01=0x00d4}
0x6030…603a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003d, t01=0x00f4}
0x603a…6044 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003d, t01=0x00fe}
0x6044…605c Head {h00=0x0014, h01=0x0050, text=»ERASUP LDK A2,2 «, t00=0x003d, t01=0x0108}
0x605c…608e Head {h00=0x002e, h01=0x0050, text=» ST A2,WCC,TCABAS SET KEYBOARD RESTORE BIT«, t00=0x003d, t01=0x0120}
0x608e…60a0 Head {h00=0x000e, h01=0x0050, text=» LDK A3,0 «, t00=0x003d, t01=0x0152}
0x60a0…60b6 Head {h00=0x0012, h01=0x0050, text=» LDKL A4,BVDU «, t00=0x003d, t01=0x0164}
0x60b6…60cc Head {h00=0x0012, h01=0x0050, text=» ADR A4,TCABAS«, t00=0x003d, t01=0x017a}
0x60cc…6100 Head {h00=0x0030, h01=0x0050, text=» CM PCURS,TCABAS FIND FIRST UNPROTECTED POS «, t00=0x003d, t01=0x0190}
0x6100…614c Head {h00=0x0048, h01=0x0050, text=»********************************************************************«, t00=0x003e, t01=0x0034}
0x614c…617c Head {h00=0x002c, h01=0x0050, text=» LC A2,1919,A4 GET LAST SCREEN CHARACTER«, t00=0x003e, t01=0x0080}
0x617c…6190 Head {h00=0x0010, h01=0x0050, text=» ANK A2,/7F «, t00=0x003e, t01=0x00b0}
0x6190…61b2 Head {h00=0x001e, h01=0x0050, text=» CWK A2,/20 ATTRIBUTE ??? «, t00=0x003e, t01=0x00c4}
0x61b2…61da Head {h00=0x0024, h01=0x0050, text=» RF(L) ERU:01 YES!! WE GOT IT!! «, t00=0x003e, t01=0x00e6}
0x61da…620e Head {h00=0x0030, h01=0x0050, text=» LDK A1,1 ATTRIBUTE NOT IN LAST SCREEN POS. «, t00=0x003e, t01=0x010e}
0x620e…624e Head {h00=0x003c, h01=0x0050, text=»********************************************************«, t00=0x003e, t01=0x0142}
0x624e…626a Head {h00=0x0018, h01=0x0050, text=»ERASU1 CWK A3,LBVDU «, t00=0x003e, t01=0x0182}
0x626a…6280 Head {h00=0x0012, h01=0x0050, text=» RF(NL) ERASU2«, t00=0x003f, t01=0x000e}
0x6280…629c Head {h00=0x0018, h01=0x0050, text=» LCR A2,A4 GET CHAR «, t00=0x003f, t01=0x0024}
0x629c…62b0 Head {h00=0x0010, h01=0x0050, text=» ANK A2,/7F «, t00=0x003f, t01=0x0040}
0x62b0…62c2 Head {h00=0x000e, h01=0x0050, text=» ADK A3,1 «, t00=0x003f, t01=0x0054}
0x62c2…62d4 Head {h00=0x000e, h01=0x0050, text=» ADK A4,1 «, t00=0x003f, t01=0x0066}
0x62d4…62e8 Head {h00=0x0010, h01=0x0050, text=» CWK A2,/20 «, t00=0x003f, t01=0x0078}
0x62e8…630c Head {h00=0x0020, h01=0x0050, text=» RB(NL) ERASU1 NO ATTRIBUTE «, t00=0x003f, t01=0x008c}
0x630c…6320 Head {h00=0x0010, h01=0x0050, text=»ERU:01 EQU *«, t00=0x003f, t01=0x00b0}
0x6320…6334 Head {h00=0x0010, h01=0x0050, text=» ANK A2,/10 «, t00=0x003f, t01=0x00c4}
0x6334…6354 Head {h00=0x001c, h01=0x0050, text=» RB(NZ) ERASU1 PROTECTED«, t00=0x003f, t01=0x00d8}
0x6354…6382 Head {h00=0x002a, h01=0x0050, text=» ST A3,PCURS,TCABAS SET NEW CURSOR POS«, t00=0x003f, t01=0x00f8}
0x6382…6394 Head {h00=0x000e, h01=0x0050, text=» LDR A1,A1«, t00=0x003f, t01=0x0126}
0x6394…63c8 Head {h00=0x0030, h01=0x0050, text=» RF(Z) ERASU3 ATTRIBUTE IN LAST SCREEN POS. «, t00=0x003f, t01=0x0138}
0x63c8…63e0 Head {h00=0x0014, h01=0x0050, text=»ERASU2 LDK A3,0 «, t00=0x003f, t01=0x016c}
0x63e0…63f6 Head {h00=0x0012, h01=0x0050, text=» LDKL A4,BVDU «, t00=0x003f, t01=0x0184}
0x63f6…640c Head {h00=0x0012, h01=0x0050, text=» ADR A4,TCABAS«, t00=0x0040, t01=0x000a}
0x640c…641e Head {h00=0x000e, h01=0x0050, text=» RF ERASU4«, t00=0x0040, t01=0x0020}
0x641e…6432 Head {h00=0x0010, h01=0x0050, text=»ERASU3 EQU *«, t00=0x0040, t01=0x0032}
0x6432…6444 Head {h00=0x000e, h01=0x0050, text=» LDR A3,A3«, t00=0x0040, t01=0x0046}
0x6444…647e Head {h00=0x0036, h01=0x0050, text=» RF(Z) ERASU4 UNPROTECTED ATT. IN LAST SCREEN POS.«, t00=0x0040, t01=0x0058}
0x647e…64a6 Head {h00=0x0024, h01=0x0050, text=» SUK A3,1 GET BACK TO ATTRIBUTE «, t00=0x0040, t01=0x0092}
0x64a6…64c4 Head {h00=0x001a, h01=0x0050, text=» SUK A4,1 - " -«, t00=0x0040, t01=0x00ba}
0x64c4…64d8 Head {h00=0x0010, h01=0x0050, text=»ERASU4 EQU *«, t00=0x0040, t01=0x00d8}
0x64d8…64ea Head {h00=0x000e, h01=0x0050, text=» LDK A1,0 «, t00=0x0040, t01=0x00ec}
0x64ea…650e Head {h00=0x0020, h01=0x0050, text=» LDK A6,NULL+/80 ERASE CHAR «, t00=0x0040, t01=0x00fe}
0x650e…6520 Head {h00=0x000e, h01=0x0050, text=» RF ERAS35«, t00=0x0040, t01=0x0122}
0x6520…652e Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0040, t01=0x0134}
0x652e…6538 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0040, t01=0x0142}
0x6538…6542 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0040, t01=0x014c}
0x6542…6574 Head {h00=0x002e, h01=0x0050, text=»* ERASE UNPROTECTED TO ADDRESS GIVEN IN A1«, t00=0x0040, t01=0x0156}
0x6574…657e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0040, t01=0x0188}
0x657e…6588 (65, 0, 400) Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0041, t01=0x0004}
0x6588…65b6 Head {h00=0x002a, h01=0x0050, text=»ERASUA LDK A6,NULL+/80 ERASE CHARACTER«, t00=0x0041, t01=0x000e}
0x65b6…65de Head {h00=0x0024, h01=0x0050, text=» ******************* 78-09-11 «, t00=0x0041, t01=0x003c}
0x65de…6604 Head {h00=0x0022, h01=0x0050, text=» CWK A3,LBVDU WRAP AROUND ??? «, t00=0x0041, t01=0x0064}
0x6604…661e Head {h00=0x0016, h01=0x0050, text=» RF(L) ERAS:1 NO!!«, t00=0x0041, t01=0x008a}
0x661e…663c Head {h00=0x001a, h01=0x0050, text=» LDK A3,0 BUFFERINDEX «, t00=0x0041, t01=0x00a4}
0x663c…6652 Head {h00=0x0012, h01=0x0050, text=» LDKL A4,BVDU «, t00=0x0041, t01=0x00c2}
0x6652…6682 Head {h00=0x002c, h01=0x0050, text=» ADR A4,TCABAS ABSOLUTE BUFFER ADDRESS «, t00=0x0041, t01=0x00d8}
0x6682…668a Head {h00=0x0004, h01=0x0050, t00=0x0041, t01=0x0108}
0x668a…66c6 Head {h00=0x0038, h01=0x0050, text=»ERAS:1 LDR A3,A3 START IN FIRST SCREEN POSITION ??? «, t00=0x0041, t01=0x0110}
0x66c6…66e2 Head {h00=0x0018, h01=0x0050, text=» RF(NZ) ERAS35 NO!! «, t00=0x0041, t01=0x014c}
0x66e2…670e Head {h00=0x0028, h01=0x0050, text=» LC A2,1919,A4 LAST BUFFER CHARACTER«, t00=0x0041, t01=0x0168}
0x670e…6722 (66, 0, 400) Head {h00=0x0010, h01=0x0050, text=» ANK A2,/7F «, t00=0x0042, t01=0x0004}
0x6722…674e Head {h00=0x0028, h01=0x0050, text=» CWK A2,/20 ATTRIBUTE CHARACTER ??? «, t00=0x0042, t01=0x0018}
0x674e…676a Head {h00=0x0018, h01=0x0050, text=» RF(NL) ERAS35 NO!!!«, t00=0x0042, t01=0x0044}
0x676a…677e Head {h00=0x0010, h01=0x0050, text=» ANK A2,/10 «, t00=0x0042, t01=0x0060}
0x677e…67a4 Head {h00=0x0022, h01=0x0050, text=» RF(NZ) ERAS70 PROTECTED FIELD«, t00=0x0042, t01=0x0074}
0x67a4…67ba Head {h00=0x0012, h01=0x0050, text=» LC A2,1919,A4«, t00=0x0042, t01=0x009a}
0x67ba…67ce Head {h00=0x0010, h01=0x0050, text=» ANK A2,/FE «, t00=0x0042, t01=0x00b0}
0x67ce…67f2 Head {h00=0x0020, h01=0x0050, text=» SC A2,1919,A4 RESET MDT BIT«, t00=0x0042, t01=0x00c4}
0x67f2…6804 Head {h00=0x000e, h01=0x0050, text=» RF ERAS35«, t00=0x0042, t01=0x00e8}
0x6804…682c Head {h00=0x0024, h01=0x0050, text=» ******************** 78-09-11«, t00=0x0042, t01=0x00fa}
0x682c…6848 Head {h00=0x0018, h01=0x0050, text=»ERAS30 CWK A3,LBVDU «, t00=0x0042, t01=0x0122}
0x6848…6870 Head {h00=0x0024, h01=0x0050, text=» RF(L) ERAS33 NOT END OF SCREEN «, t00=0x0042, t01=0x013e}
0x6870…6882 Head {h00=0x000e, h01=0x0050, text=» LDK A3,0 «, t00=0x0042, t01=0x0166}
0x6882…68a4 Head {h00=0x001e, h01=0x0050, text=» LDKL A4,BVDU WRAP AROUND «, t00=0x0042, t01=0x0178}
0x68a4…68ba Head {h00=0x0012, h01=0x0050, text=» ADR A4,TCABAS«, t00=0x0043, t01=0x000a}
0x68ba…68ce Head {h00=0x0010, h01=0x0050, text=»ERAS33 EQU *«, t00=0x0043, t01=0x0020}
0x68ce…68e0 Head {h00=0x000e, h01=0x0050, text=» CWR A3,A1«, t00=0x0043, t01=0x0034}
0x68e0…690c Head {h00=0x0028, h01=0x0050, text=» RB(E) ERAEND ALL UNPROTECTED ERASED«, t00=0x0043, t01=0x0046}
0x690c…693e Head {h00=0x002e, h01=0x0050, text=»ERAS35 LCR A2,A4 GET CHAR FROM VDU BUFFER «, t00=0x0043, t01=0x0072}
0x693e…6952 Head {h00=0x0010, h01=0x0050, text=» ANK A2,/7F «, t00=0x0043, t01=0x00a4}
0x6952…6966 Head {h00=0x0010, h01=0x0050, text=» CWK A2,/20 «, t00=0x0043, t01=0x00b8}
0x6966…698a Head {h00=0x0020, h01=0x0050, text=» RF(L) ERAS50 ATTRIBUTE CHAR«, t00=0x0043, t01=0x00cc}
0x698a…699e Head {h00=0x0010, h01=0x0050, text=» XRK A2,NULL«, t00=0x0043, t01=0x00f0}
0x699e…69c0 Head {h00=0x001e, h01=0x0050, text=» RF(Z) ERAS40 ALREADY NULL«, t00=0x0043, t01=0x0104}
0x69c0…69e6 Head {h00=0x0022, h01=0x0050, text=» SCR A6,A4 STORE MODIFIED NULL«, t00=0x0043, t01=0x0126}
0x69e6…69fe Head {h00=0x0014, h01=0x0050, text=»ERAS40 ADK A3,1 «, t00=0x0043, t01=0x014c}
0x69fe…6a10 Head {h00=0x000e, h01=0x0050, text=» ADK A4,1 «, t00=0x0043, t01=0x0164}
0x6a10…6a22 Head {h00=0x000e, h01=0x0050, text=» RB ERAS30«, t00=0x0043, t01=0x0176}
0x6a22…6a3a Head {h00=0x0014, h01=0x0050, text=»ERAS50 ADK A3,1 «, t00=0x0043, t01=0x0188}
0x6a3a…6a4c Head {h00=0x000e, h01=0x0050, text=» ADK A4,1 «, t00=0x0044, t01=0x0010}
0x6a4c…6a60 Head {h00=0x0010, h01=0x0050, text=» ANK A2,/10 «, t00=0x0044, t01=0x0022}
0x6a60…6a86 Head {h00=0x0022, h01=0x0050, text=» RF(NZ) ERAS60 PROTECTED FIELD«, t00=0x0044, t01=0x0036}
0x6a86…6a9a Head {h00=0x0010, h01=0x0050, text=» LC A2,-1,A4«, t00=0x0044, t01=0x005c}
0x6a9a…6abc Head {h00=0x001e, h01=0x0050, text=» ANK A2,/FE RESET MDT BIT «, t00=0x0044, t01=0x0070}
0x6abc…6ad0 Head {h00=0x0010, h01=0x0050, text=» SC A2,-1,A4«, t00=0x0044, t01=0x0092}
0x6ad0…6ae2 Head {h00=0x000e, h01=0x0050, text=» RB ERAS30«, t00=0x0044, t01=0x00a6}
0x6ae2…6afe Head {h00=0x0018, h01=0x0050, text=»ERAS60 CWK A3,LBVDU «, t00=0x0044, t01=0x00b8}
0x6afe…6b14 Head {h00=0x0012, h01=0x0050, text=» RF(L) ERAS65 «, t00=0x0044, t01=0x00d4}
0x6b14…6b26 Head {h00=0x000e, h01=0x0050, text=» LDK A3,0 «, t00=0x0044, t01=0x00ea}
0x6b26…6b48 Head {h00=0x001e, h01=0x0050, text=» LDKL A4,BVDU WRAP AROUND «, t00=0x0044, t01=0x00fc}
0x6b48…6b5e Head {h00=0x0012, h01=0x0050, text=» ADR A4,TCABAS«, t00=0x0044, t01=0x011e}
0x6b5e…6b76 Head {h00=0x0014, h01=0x0050, text=»ERAS65 CWR A3,A1«, t00=0x0044, t01=0x0134}
0x6b76…6ba2 Head {h00=0x0028, h01=0x0050, text=» RB(E) ERAEND ALL UNPROTECTED ERASED«, t00=0x0044, t01=0x014c}
0x6ba2…6bb6 Head {h00=0x0010, h01=0x0050, text=»ERAS70 EQU *«, t00=0x0044, t01=0x0178}
0x6bb6…6bc8 Head {h00=0x000e, h01=0x0050, text=» LCR A2,A4«, t00=0x0044, t01=0x018c}
0x6bc8…6bdc Head {h00=0x0010, h01=0x0050, text=» ANK A2,/7F «, t00=0x0045, t01=0x000e}
0x6bdc…6bf0 Head {h00=0x0010, h01=0x0050, text=» CWK A2,/20 «, t00=0x0045, t01=0x0022}
0x6bf0…6c16 Head {h00=0x0022, h01=0x0050, text=» RB(L) ERAS50 ATTRIBUTE FOUND «, t00=0x0045, t01=0x0036}
0x6c16…6c28 Head {h00=0x000e, h01=0x0050, text=» ADK A3,1 «, t00=0x0045, t01=0x005c}
0x6c28…6c3a Head {h00=0x000e, h01=0x0050, text=» ADK A4,1 «, t00=0x0045, t01=0x006e}
0x6c3a…6c4c Head {h00=0x000e, h01=0x0050, text=» RB ERAS60«, t00=0x0045, t01=0x0080}
0x6c4c…6c5a Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0045, t01=0x0092}
0x6c5a…6c64 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0045, t01=0x00a0}
0x6c64…6c6e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0045, t01=0x00aa}
0x6c6e…6c92 Head {h00=0x0020, h01=0x0050, text=»* TRANSMIT PROGRAM ATTENTION«, t00=0x0045, t01=0x00b4}
0x6c92…6c9c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0045, t01=0x00d8}
0x6c9c…6cac Head {h00=0x000c, h01=0x0050, text=»* A2=AID«, t00=0x0045, t01=0x00e2}
0x6cac…6cb6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0045, t01=0x00f2}
0x6cb6…6cc0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0045, t01=0x00fc}
0x6cc0…6cee Head {h00=0x002a, h01=0x0050, text=»TRPA CF A14,GTWBUF GET TRANSMIT BUFFER«, t00=0x0045, t01=0x0106}
0x6cee…6d12 Head {h00=0x0020, h01=0x0050, text=»TRPA10 CF A14,PAID STORE AID«, t00=0x0045, t01=0x0134}
0x6d12…6d26 Head {h00=0x0010, h01=0x0050, text=»TRANS EQU * «, t00=0x0045, t01=0x0158}
0x6d26…6d4a Head {h00=0x0020, h01=0x0050, text=» CF A14,DCWRTE WRITE MESSAGE«, t00=0x0045, t01=0x016c}
0x6d4a…6d5e Head {h00=0x0010, h01=0x0050, text=»TR050 EQU * «, t00=0x0045, t01=0x0190}
0x6d5e…6d84 Head {h00=0x0022, h01=0x0050, text=» RTN A14 TRANSMISSION TROUBLE «, t00=0x0046, t01=0x0014}
0x6d84…6d9a Head {h00=0x0012, h01=0x0050, text=»TRRTN RTN A14 «, t00=0x0046, t01=0x003a}
0x6d9a…6da8 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0046, t01=0x0050}
0x6da8…6db2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0046, t01=0x005e}
0x6db2…6dbc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0046, t01=0x0068}
0x6dbc…6de0 Head {h00=0x0020, h01=0x0050, text=»* TRANSMIT PROGRAM FUNCTION «, t00=0x0046, t01=0x0072}
0x6de0…6dea Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0046, t01=0x0096}
0x6dea…6dfa Head {h00=0x000c, h01=0x0050, text=»* A2=AID«, t00=0x0046, t01=0x00a0}
0x6dfa…6e04 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0046, t01=0x00b0}
0x6e04…6e0e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0046, t01=0x00ba}
0x6e0e…6e3c Head {h00=0x002a, h01=0x0050, text=»TRPF CF A14,GTWBUF GET TRANSMIT BUFFER«, t00=0x0046, t01=0x00c4}
0x6e3c…6e60 Head {h00=0x0020, h01=0x0050, text=»TRPF10 CF A14,PAID STORE AID«, t00=0x0046, t01=0x00f2}
0x6e60…6e8a Head {h00=0x0026, h01=0x0050, text=» CF A14,CURSA STORE CURSOR ADDRESS«, t00=0x0046, t01=0x0116}
0x6e8a…6eae Head {h00=0x0020, h01=0x0050, text=» CF A14,RDMOD READ MODIFIED «, t00=0x0046, t01=0x0140}
0x6eae…6ed4 Head {h00=0x0022, h01=0x0050, text=» RB TRANS SEND MODIFIED FIELDS«, t00=0x0046, t01=0x0164}
0x6ed4…6ee2 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0046, t01=0x018a}
0x6ee2…6eec Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0047, t01=0x0008}
0x6eec…6ef6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0047, t01=0x0012}
0x6ef6…6f1e Head {h00=0x0024, h01=0x0050, text=»* DISPLAY MODIFIED FIELDS ON VDU«, t00=0x0047, t01=0x001c}
0x6f1e…6f28 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0047, t01=0x0044}
0x6f28…6f32 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0047, t01=0x004e}
0x6f32…6f4c Head {h00=0x0016, h01=0x0050, text=»* A3=VDU POSITION «, t00=0x0047, t01=0x0058}
0x6f4c…6f6a Head {h00=0x001a, h01=0x0050, text=»* A4=VDU IMAGE POINTER«, t00=0x0047, t01=0x0072}
0x6f6a…6f8a Head {h00=0x001c, h01=0x0050, text=»* A5=MODIFIED INDICATOR «, t00=0x0047, t01=0x0090}
0x6f8a…6fae Head {h00=0x0020, h01=0x0050, text=»* A7=VDU LINE OUTPUT POINTER«, t00=0x0047, t01=0x00b0}
0x6fae…6fc2 Head {h00=0x0010, h01=0x0050, text=»* A8=VDU ECB«, t00=0x0047, t01=0x00d4}
0x6fc2…6fe6 Head {h00=0x0020, h01=0x0050, text=»* A9=VDU OUTPUT CHAR COUNTER«, t00=0x0047, t01=0x00e8}
0x6fe6…6ff0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0047, t01=0x010c}
0x6ff0…6ffa Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0047, t01=0x0116}
0x6ffa…7016 Head {h00=0x0018, h01=0x0050, text=»DISPL LDKL A8,ECBVDU«, t00=0x0047, t01=0x0120}
0x7016…702c Head {h00=0x0012, h01=0x0050, text=» ADR A8,CREBAS«, t00=0x0047, t01=0x013c}
0x702c…705a Head {h00=0x002a, h01=0x0050, text=» LDKL A1,/101 START FROM LINE 1 POS 1 «, t00=0x0047, t01=0x0152}
0x705a…7072 Head {h00=0x0014, h01=0x0050, text=» ST A1,ECBCW,A8 «, t00=0x0047, t01=0x0180}
0x7072…70ae Head {h00=0x0038, h01=0x0050, text=» SUR A10,A10 RESET COUNT FOR INTENSIFIED DISPLAYING «, t00=0x0048, t01=0x0008}
0x70ae…70c0 Head {h00=0x000e, h01=0x0050, text=» LDK A3,0 «, t00=0x0048, t01=0x0044}
0x70c0…70d6 Head {h00=0x0012, h01=0x0050, text=» LDKL A4,BVDU «, t00=0x0048, t01=0x0056}
0x70d6…70ec Head {h00=0x0012, h01=0x0050, text=» ADR A4,TCABAS«, t00=0x0048, t01=0x006c}
0x70ec…711c Head {h00=0x002c, h01=0x0050, text=» CF A14,SPACES PUT SPACES IN LINE BUFFER«, t00=0x0048, t01=0x0082}
0x711c…7164 Head {h00=0x0044, h01=0x0050, text=»****************************************************************«, t00=0x0048, t01=0x00b2}
0x7164…719e Head {h00=0x0036, h01=0x0050, text=» LC A2,1919,A4 CHECK IF ATTRIBUTE IN LAST POSITION«, t00=0x0048, t01=0x00fa}
0x719e…71b2 Head {h00=0x0010, h01=0x0050, text=» ANK A2,/7F «, t00=0x0048, t01=0x0134}
0x71b2…71d4 Head {h00=0x001e, h01=0x0050, text=» CWK A2,/1F ATTRIBUTE ??? «, t00=0x0048, t01=0x0148}
0x71d4…71f0 Head {h00=0x0018, h01=0x0050, text=» RF(G) DIS100 NO!!! «, t00=0x0048, t01=0x016a}
0x71f0…71f8 Head {h00=0x0004, h01=0x0050, t00=0x0048, t01=0x0186}
0x71f8…720a Head {h00=0x000e, h01=0x0050, text=» ANK A2,6 «, t00=0x0048, t01=0x018e}
0x720a…721c Head {h00=0x000e, h01=0x0050, text=» XRK A2,6 «, t00=0x0049, t01=0x0010}
0x721c…725e Head {h00=0x003e, h01=0x0050, text=» ST A2,INTATT,TCABAS CHECK DISPLAY/NONDISPLAY INFORMATION «, t00=0x0049, t01=0x0022}
0x725e…7280 Head {h00=0x001e, h01=0x0050, text=» RF(Z) DIS210 NON DISPLAY «, t00=0x0049, t01=0x0064}
0x7280…72b8 Head {h00=0x0034, h01=0x0050, text=» CF A14,INTCHK INSERT HIGH/LOW INTENS. IN BUFFER«, t00=0x0049, t01=0x0086}
0x72b8…7304 Head {h00=0x0048, h01=0x0050, text=»******************************************************************* «, t00=0x0049, t01=0x00be}
0x7304…7318 Head {h00=0x0010, h01=0x0050, text=»DIS100 EQU *«, t00=0x0049, t01=0x010a}
0x7318…732e Head {h00=0x0012, h01=0x0050, text=» CWK A9,LLINE «, t00=0x0049, t01=0x011e}
0x732e…7354 Head {h00=0x0022, h01=0x0050, text=» RF(L) DIS110 NOT END OF LINE «, t00=0x0049, t01=0x0134}
0x7354…737c Head {h00=0x0024, h01=0x0050, text=» CF A14,DISLIN DISPLAY THIS LINE«, t00=0x0049, t01=0x015a}
0x737c…73ae Head {h00=0x002e, h01=0x0050, text=» CF A14,INTCHK CHECK IF LOW/HIGH INTENSITY«, t00=0x0049, t01=0x0182}
0x73ae…73c2 Head {h00=0x0010, h01=0x0050, text=»DIS110 EQU *«, t00=0x004a, t01=0x0024}
0x73c2…73d8 Head {h00=0x0012, h01=0x0050, text=» CWK A3,LBVDU «, t00=0x004a, t01=0x0038}
0x73d8…73fa Head {h00=0x001e, h01=0x0050, text=» RF(NL) DIS900 ALL SCANNED«, t00=0x004a, t01=0x004e}
0x73fa…7416 Head {h00=0x0018, h01=0x0050, text=» LCR A2,A4 GET CHAR «, t00=0x004a, t01=0x0070}
0x7416…7458 Head {h00=0x003e, h01=0x0050, text=»************************************************ 78-08-15 «, t00=0x004a, t01=0x008c}
0x7458…7460 Head {h00=0x0004, h01=0x0050, t00=0x004a, t01=0x00ce}
0x7460…7486 Head {h00=0x0022, h01=0x0050, text=» CF A14,SET:M SET MODIFIED BIT«, t00=0x004a, t01=0x00d6}
0x7486…748e Head {h00=0x0004, h01=0x0050, t00=0x004a, t01=0x00fc}
0x748e…74d0 Head {h00=0x003e, h01=0x0050, text=»************************************************ 78-08-15 «, t00=0x004a, t01=0x0104}
0x74d0…74e4 Head {h00=0x0010, h01=0x0050, text=»DIS115 EQU *«, t00=0x004a, t01=0x0146}
0x74e4…750a Head {h00=0x0022, h01=0x0050, text=» ANK A2,/7F RESET DISPLAY BIT «, t00=0x004a, t01=0x015a}
0x750a…751c Head {h00=0x000e, h01=0x0050, text=» SCR A2,A4«, t00=0x004a, t01=0x0180}
0x751c…752e (75, 0, 400) Head {h00=0x000e, h01=0x0050, text=» ADK A3,1 «, t00=0x004b, t01=0x0004}
0x752e…7540 Head {h00=0x000e, h01=0x0050, text=» ADK A4,1 «, t00=0x004b, t01=0x0016}
0x7540…7552 Head {h00=0x000e, h01=0x0050, text=» ADK A7,1 «, t00=0x004b, t01=0x0028}
0x7552…7564 Head {h00=0x000e, h01=0x0050, text=» ADKL A9,1«, t00=0x004b, t01=0x003a}
0x7564…7578 Head {h00=0x0010, h01=0x0050, text=» CWK A2,/20 «, t00=0x004b, t01=0x004c}
0x7578…759c Head {h00=0x0020, h01=0x0050, text=» RF(L) DIS200 ATTRIBUTE CHAR«, t00=0x004b, t01=0x0060}
0x759c…75b0 Head {h00=0x0010, h01=0x0050, text=» CWK A2,NULL«, t00=0x004b, t01=0x0084}
0x75b0…75e2 Head {h00=0x002e, h01=0x0050, text=» RB(E) DIS100 NULL EQUALS SPACE AT DISPLAY«, t00=0x004b, t01=0x0098}
0x75e2…75f6 Head {h00=0x0010, h01=0x0050, text=» CWK A2,/7D «, t00=0x004b, t01=0x00ca}
0x75f6…760c Head {h00=0x0012, h01=0x0050, text=» RF(NE) DIS120«, t00=0x004b, t01=0x00de}
0x760c…7620 Head {h00=0x0010, h01=0x0050, text=» LDK A2,/39 «, t00=0x004b, t01=0x00f4}
0x7620…763a Head {h00=0x0016, h01=0x0050, text=»DIS120 CWK A2,/7E «, t00=0x004b, t01=0x0108}
0x763a…7650 Head {h00=0x0012, h01=0x0050, text=» RF(NE) DIS121«, t00=0x004b, t01=0x0122}
0x7650…7664 Head {h00=0x0010, h01=0x0050, text=» LDK A2,/35 «, t00=0x004b, t01=0x0138}
0x7664…767e Head {h00=0x0016, h01=0x0050, text=»DIS121 CWK A2,/7C «, t00=0x004b, t01=0x014c}
0x767e…7694 Head {h00=0x0012, h01=0x0050, text=» RF(NE) DIS122«, t00=0x004b, t01=0x0166}
0x7694…76a8 Head {h00=0x0010, h01=0x0050, text=» LDK A2,/3C «, t00=0x004b, t01=0x017c}
0x76a8…76bc Head {h00=0x0010, h01=0x0050, text=»DIS122 EQU *«, t00=0x004b, t01=0x0190}
0x76bc…76f4 Head {h00=0x0034, h01=0x0050, text=» SC A2,-1,A7 STORE CHAR IN DISPLAY OUTPUT BUFFER«, t00=0x004c, t01=0x0014}
0x76f4…7706 Head {h00=0x000e, h01=0x0050, text=» RB DIS100«, t00=0x004c, t01=0x004c}
0x7706…771e Head {h00=0x0014, h01=0x0050, text=»DIS200 ANK A2,6 «, t00=0x004c, t01=0x005e}
0x771e…7744 Head {h00=0x0022, h01=0x0050, text=» XRK A2,6 CHECK IF NONDISPLAY «, t00=0x004c, t01=0x0076}
0x7744…777a Head {h00=0x0032, h01=0x0050, text=» ST A2,INTATT,TCABAS SAVE ATTRIBUTE CHARACTER «, t00=0x004c, t01=0x009c}
0x777a…779c Head {h00=0x001e, h01=0x0050, text=» RF(Z) DIS210 NON DISPLAY «, t00=0x004c, t01=0x00d2}
0x779c…77ae Head {h00=0x000e, h01=0x0050, text=» ANK A2,4 «, t00=0x004c, t01=0x00f4}
0x77ae…77d2 Head {h00=0x0020, h01=0x0050, text=» RF(Z) DIS205 HIGH INTENSITY«, t00=0x004c, t01=0x0106}
0x77d2…77f4 Head {h00=0x001e, h01=0x0050, text=» LDK A2,/1E LOW INTENSITY «, t00=0x004c, t01=0x012a}
0x77f4…7806 Head {h00=0x000e, h01=0x0050, text=» RF DIS206«, t00=0x004c, t01=0x014c}
0x7806…781a Head {h00=0x0010, h01=0x0050, text=»DIS205 EQU *«, t00=0x004c, t01=0x015e}
0x781a…7832 Head {h00=0x0014, h01=0x0050, text=» LDK A2,/1F HIGH«, t00=0x004c, t01=0x0172}
0x7832…7846 Head {h00=0x0010, h01=0x0050, text=»DIS206 EQU *«, t00=0x004c, t01=0x018a}
0x7846…7874 Head {h00=0x002a, h01=0x0050, text=» SC A2,-1,A7 STORE INTENSITY CHARACTER«, t00=0x004d, t01=0x000e}
0x7874…789a Head {h00=0x0022, h01=0x0050, text=» ADKL A10,1 INCREMENT COUNTER «, t00=0x004d, t01=0x003c}
0x789a…78ac Head {h00=0x000e, h01=0x0050, text=» ADK A7,1 «, t00=0x004d, t01=0x0062}
0x78ac…78be Head {h00=0x000e, h01=0x0050, text=» RB DIS100«, t00=0x004d, t01=0x0074}
0x78be…78d2 Head {h00=0x0010, h01=0x0050, text=»DIS210 EQU *«, t00=0x004d, t01=0x0086}
0x78d2…78e8 Head {h00=0x0012, h01=0x0050, text=» CWK A9,LLINE «, t00=0x004d, t01=0x009a}
0x78e8…78fe Head {h00=0x0012, h01=0x0050, text=» RF(L) DIS220 «, t00=0x004d, t01=0x00b0}
0x78fe…7926 Head {h00=0x0024, h01=0x0050, text=» CF A14,DISLIN DISPLAY THIS LINE«, t00=0x004d, t01=0x00c6}
0x7926…793a Head {h00=0x0010, h01=0x0050, text=»DIS220 EQU *«, t00=0x004d, t01=0x00ee}
0x793a…7950 Head {h00=0x0012, h01=0x0050, text=» CWK A3,LBVDU «, t00=0x004d, t01=0x0102}
0x7950…7974 Head {h00=0x0020, h01=0x0050, text=» RF(NL) DIS900 ALL DISPLAYED«, t00=0x004d, t01=0x0118}
0x7974…7986 Head {h00=0x000e, h01=0x0050, text=» LCR A2,A4«, t00=0x004d, t01=0x013c}
0x7986…79c8 Head {h00=0x003e, h01=0x0050, text=»************************************************* 78-08-15«, t00=0x004d, t01=0x014e}
0x79c8…79d0 Head {h00=0x0004, h01=0x0050, t00=0x004d, t01=0x0190}
0x79d0…79f6 Head {h00=0x0022, h01=0x0050, text=» CF A14,SET:M SET MODIFIED BIT«, t00=0x004e, t01=0x0008}
0x79f6…79fe Head {h00=0x0004, h01=0x0050, t00=0x004e, t01=0x002e}
0x79fe…7a40 Head {h00=0x003e, h01=0x0050, text=»************************************************ 78-08-15 «, t00=0x004e, t01=0x0036}
0x7a40…7a54 Head {h00=0x0010, h01=0x0050, text=»DIS225 EQU *«, t00=0x004e, t01=0x0078}
0x7a54…7a7a Head {h00=0x0022, h01=0x0050, text=» ANK A2,/7F RESET DISPLAY BIT «, t00=0x004e, t01=0x008c}
0x7a7a…7a8c Head {h00=0x000e, h01=0x0050, text=» SCR A2,A4«, t00=0x004e, t01=0x00b2}
0x7a8c…7a9e Head {h00=0x000e, h01=0x0050, text=» ADK A3,1 «, t00=0x004e, t01=0x00c4}
0x7a9e…7ab0 Head {h00=0x000e, h01=0x0050, text=» ADK A4,1 «, t00=0x004e, t01=0x00d6}
0x7ab0…7ac2 Head {h00=0x000e, h01=0x0050, text=» ADK A7,1 «, t00=0x004e, t01=0x00e8}
0x7ac2…7ad4 Head {h00=0x000e, h01=0x0050, text=» ADKL A9,1«, t00=0x004e, t01=0x00fa}
0x7ad4…7ae8 Head {h00=0x0010, h01=0x0050, text=» CWK A2,/20 «, t00=0x004e, t01=0x010c}
0x7ae8…7b0e Head {h00=0x0022, h01=0x0050, text=» RB(L) DIS200 ATTRIBUTE FOUND «, t00=0x004e, t01=0x0120}
0x7b0e…7b20 Head {h00=0x000e, h01=0x0050, text=» RB DIS210«, t00=0x004e, t01=0x0146}
0x7b20…7b2e Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x004e, t01=0x0158}
0x7b2e…7b38 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004e, t01=0x0166}
0x7b38…7b42 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004e, t01=0x0170}
0x7b42…7b60 Head {h00=0x001a, h01=0x0050, text=»* POSITION THE CURSOR «, t00=0x004e, t01=0x017a}
0x7b60…7b6a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004f, t01=0x0008}
0x7b6a…7b74 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004f, t01=0x0012}
0x7b74…7b88 Head {h00=0x0010, h01=0x0050, text=»SETCUR EQU *«, t00=0x004f, t01=0x001c}
0x7b88…7baa Head {h00=0x001e, h01=0x0050, text=»DIS900 LDK A1,2 REQ LENGTH«, t00=0x004f, t01=0x0030}
0x7baa…7bc8 Head {h00=0x001a, h01=0x0050, text=»DIS905 ST A1,ECBRL,A8 «, t00=0x004f, t01=0x0052}
0x7bc8…7bf2 Head {h00=0x0026, h01=0x0050, text=» LD A1,PCURS,TCABAS GET CURSOR POS«, t00=0x004f, t01=0x0070}
0x7bf2…7c1c Head {h00=0x0026, h01=0x0050, text=» LDKL A2,/101 START ON LIN 1 POS 1«, t00=0x004f, t01=0x009a}
0x7c1c…7c34 Head {h00=0x0014, h01=0x0050, text=» ST A2,ECBCW,A8 «, t00=0x004f, t01=0x00c4}
0x7c34…7c4a Head {h00=0x0012, h01=0x0050, text=» LDKL A2,/100 «, t00=0x004f, t01=0x00dc}
0x7c4a…7c66 Head {h00=0x0018, h01=0x0050, text=»DIS910 CWK A1,LLINE «, t00=0x004f, t01=0x00f2}
0x7c66…7c7c Head {h00=0x0012, h01=0x0050, text=» RF(L) DIS920 «, t00=0x004f, t01=0x010e}
0x7c7c…7c94 Head {h00=0x0014, h01=0x0050, text=» ADS A2,ECBCW,A8«, t00=0x004f, t01=0x0124}
0x7c94…7caa Head {h00=0x0012, h01=0x0050, text=» SUKL A1,LLINE«, t00=0x004f, t01=0x013c}
0x7caa…7cbc Head {h00=0x000e, h01=0x0050, text=» RB DIS910«, t00=0x004f, t01=0x0152}
0x7cbc…7cda Head {h00=0x001a, h01=0x0050, text=»DIS920 ADS A1,ECBCW,A8«, t00=0x004f, t01=0x0164}
0x7cda…7d02 Head {h00=0x0024, h01=0x0050, text=» LDK A7,/8B SET CURSOR AND WRITE«, t00=0x004f, t01=0x0182}
0x7d02…7d0e Head {h00=0x0008, h01=0x0050, text=» LKM«, t00=0x0050, t01=0x001a}
0x7d0e…7d1e Head {h00=0x000c, h01=0x0050, text=» DATA 1 «, t00=0x0050, t01=0x0026}
0x7d1e…7d52 Head {h00=0x0030, h01=0x0050, text=» CM INTATT,TCABAS CLEAR INTENSITY ATTRIBUTE «, t00=0x0050, t01=0x0036}
0x7d52…7d62 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0050, t01=0x006a}
0x7d62…7d70 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0050, t01=0x007a}
0x7d70…7d7a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0050, t01=0x0088}
0x7d7a…7d84 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0050, t01=0x0092}
0x7d84…7db8 Head {h00=0x0030, h01=0x0050, text=»* WRITE ONE CHAR FROM A2 IN CURSOR POSITION «, t00=0x0050, t01=0x009c}
0x7db8…7dc2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0050, t01=0x00d0}
0x7dc2…7dcc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0050, t01=0x00da}
0x7dcc…7de8 Head {h00=0x0018, h01=0x0050, text=»WCHAR LD A1,ECBBA,A8«, t00=0x0050, t01=0x00e4}
0x7de8…7dfe Head {h00=0x0012, h01=0x0050, text=» CF A14,RFMDUP«, t00=0x0050, t01=0x0100}
0x7dfe…7e32 Head {h00=0x0030, h01=0x0050, text=» SC A2,3,A1 STORE CHAR IN VDU OUTPUT BUFFER «, t00=0x0050, t01=0x0116}
0x7e32…7e44 Head {h00=0x000e, h01=0x0050, text=» LDK A1,4 «, t00=0x0050, t01=0x014a}
0x7e44…7e66 Head {h00=0x001e, h01=0x0050, text=» RB DIS905 REQ LENGTH = 3 «, t00=0x0050, t01=0x015c}
0x7e66…7e70 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0050, t01=0x017e}
0x7e70…7ebe Head {h00=0x004a, h01=0x0050, text=»********************************************************************* «, t00=0x0050, t01=0x0188}
0x7ebe…7ec8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0051, t01=0x0046}
0x7ec8…7f04 Head {h00=0x0038, h01=0x0050, text=»* REPLACE FM & DUP WITH '*' RESP. ';', IF PRESENT«, t00=0x0051, t01=0x0050}
0x7f04…7f22 Head {h00=0x001a, h01=0x0050, text=»* CHARACTER IN A2«, t00=0x0051, t01=0x008c}
0x7f22…7f2c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0051, t01=0x00aa}
0x7f2c…7f7a Head {h00=0x004a, h01=0x0050, text=»********************************************************************* «, t00=0x0051, t01=0x00b4}
0x7f7a…7f84 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0051, t01=0x0102}
0x7f84…7f98 Head {h00=0x0010, h01=0x0050, text=»RFMDUP EQU *«, t00=0x0051, t01=0x010c}
0x7f98…7fae Head {h00=0x0012, h01=0x0050, text=» CWK A2,DUPCH «, t00=0x0051, t01=0x0120}
0x7fae…7fc4 Head {h00=0x0012, h01=0x0050, text=» RF(NE) RFMD10«, t00=0x0051, t01=0x0136}
0x7fc4…7fdc Head {h00=0x0014, h01=0x0050, text=» LDK A2,/2A DUP «, t00=0x0051, t01=0x014c}
0x7fdc…7ff0 Head {h00=0x0010, h01=0x0050, text=»RFMD10 EQU *«, t00=0x0051, t01=0x0164}
0x7ff0…8004 Head {h00=0x0010, h01=0x0050, text=» CWK A2,FMCH«, t00=0x0051, t01=0x0178}
0x8004…801a Head {h00=0x0012, h01=0x0050, text=» RF(NE) RFMD20«, t00=0x0051, t01=0x018c}
0x801a…802e Head {h00=0x0010, h01=0x0050, text=» LDK A2,/3B «, t00=0x0052, t01=0x0012}
0x802e…8042 Head {h00=0x0010, h01=0x0050, text=»RFMD20 EQU *«, t00=0x0052, t01=0x0026}
0x8042…8052 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0052, t01=0x003a}
0x8052…8060 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0052, t01=0x004a}
0x8060…806a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0052, t01=0x0058}
0x806a…8074 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0052, t01=0x0062}
0x8074…80a0 Head {h00=0x0028, h01=0x0050, text=»* PUT SPACES TO DISPLAY LINE BUFFER «, t00=0x0052, t01=0x006c}
0x80a0…80aa Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0052, t01=0x0098}
0x80aa…80b4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0052, t01=0x00a2}
0x80b4…80d2 Head {h00=0x001a, h01=0x0050, text=»SPACES LD A7,ECBBA,A8 «, t00=0x0052, t01=0x00ac}
0x80d2…80f2 Head {h00=0x001c, h01=0x0050, text=» ADK A7,2 BUFFER ADDRESS«, t00=0x0052, t01=0x00ca}
0x80f2…8114 Head {h00=0x001e, h01=0x0050, text=» LDKL A9,LLINE LINE LENGTH«, t00=0x0052, t01=0x00ea}
0x8114…8130 Head {h00=0x0018, h01=0x0050, text=» ADR A9,A9 DOUBLE IT«, t00=0x0052, t01=0x010c}
0x8130…814c Head {h00=0x0018, h01=0x0050, text=» LDKL A2,' ' SPACES«, t00=0x0052, t01=0x0128}
0x814c…8168 Head {h00=0x0018, h01=0x0050, text=»SPAC10 SCR A2,A7 =1«, t00=0x0052, t01=0x0144}
0x8168…8180 Head {h00=0x0014, h01=0x0050, text=» SC A2,1,A7 =1 «, t00=0x0052, t01=0x0160}
0x8180…8192 Head {h00=0x000e, h01=0x0050, text=» ADK A7,2 «, t00=0x0052, t01=0x0178}
0x8192…81a4 Head {h00=0x000e, h01=0x0050, text=» SUKL A9,2«, t00=0x0052, t01=0x018a}
0x81a4…81ba Head {h00=0x0012, h01=0x0050, text=» RB(P) SPAC10 «, t00=0x0053, t01=0x000c}
0x81ba…81e2 Head {h00=0x0024, h01=0x0050, text=» LDK A2,0 CLEAR A2=CHAR REGISTER«, t00=0x0053, t01=0x0022}
0x81e2…820c Head {h00=0x0026, h01=0x0050, text=» LDK A5,0 RESET MODIFIED INDICATOR«, t00=0x0053, t01=0x004a}
0x820c…8224 Head {h00=0x0014, h01=0x0050, text=» LD A7,ECBBA,A8 «, t00=0x0053, t01=0x0074}
0x8224…8244 Head {h00=0x001c, h01=0x0050, text=» ADK A7,2 BUFFER ADDRESS«, t00=0x0053, t01=0x008c}
0x8244…826e Head {h00=0x0026, h01=0x0050, text=» SUR A9,A9 RESET LINE CHAR COUNTER«, t00=0x0053, t01=0x00ac}
0x826e…827e Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0053, t01=0x00d6}
0x827e…828c Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0053, t01=0x00e6}
0x828c…8296 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0053, t01=0x00f4}
0x8296…82a0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0053, t01=0x00fe}
0x82a0…82cc Head {h00=0x0028, h01=0x0050, text=»* DISPLAY LINE IF ANY MODIFICATIONS «, t00=0x0053, t01=0x0108}
0x82cc…82d6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0053, t01=0x0134}
0x82d6…82e0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0053, t01=0x013e}
0x82e0…8322 Head {h00=0x003e, h01=0x0050, text=»************************************************* 78-08-15«, t00=0x0053, t01=0x0148}
0x8322…832a Head {h00=0x0004, h01=0x0050, t00=0x0053, t01=0x018a}
0x832a…833e (84, 0, 398) Head {h00=0x0010, h01=0x0050, text=»DISLIN EQU *«, t00=0x0054, t01=0x0004}
0x833e…8350 Head {h00=0x000e, h01=0x0050, text=» LDR A7,A5«, t00=0x0054, t01=0x0018}
0x8350…8378 Head {h00=0x0024, h01=0x0050, text=» ANK A5,/80 ANY MODIFICATIONS ??«, t00=0x0054, t01=0x002a}
0x8378…839e Head {h00=0x0022, h01=0x0050, text=» RF(Z) DISL10 NO MODIFICATIONS«, t00=0x0054, t01=0x0052}
0x839e…83b0 Head {h00=0x000e, h01=0x0050, text=» LDK A1,2 «, t00=0x0054, t01=0x0078}
0x83b0…83dc Head {h00=0x0028, h01=0x0050, text=» XRK A7,/A0 ONLY SPACES IN BUFFER ??«, t00=0x0054, t01=0x008a}
0x83dc…83f8 Head {h00=0x0018, h01=0x0050, text=» RF(Z) DIS:10 YES!! «, t00=0x0054, t01=0x00b6}
0x83f8…8410 Head {h00=0x0014, h01=0x0050, text=» LDKL A1,LLINE+2«, t00=0x0054, t01=0x00d2}
0x8410…8442 Head {h00=0x002e, h01=0x0050, text=» ADR A1,A10 ADD NR OF INTENSITY CHARACTERS«, t00=0x0054, t01=0x00ea}
0x8442…8456 Head {h00=0x0010, h01=0x0050, text=»DIS:10 EQU *«, t00=0x0054, t01=0x011c}
0x8456…8496 Head {h00=0x003c, h01=0x0050, text=»*********************************************** 78-08-15«, t00=0x0054, t01=0x0130}
0x8496…84bc Head {h00=0x0022, h01=0x0050, text=» ST A1,ECBRL,A8 SET REQ LENGTH«, t00=0x0054, t01=0x0170}
0x84bc…84c4 Head {h00=0x0004, h01=0x0050, t00=0x0055, t01=0x0008}
0x84c4…84cc Head {h00=0x0004, h01=0x0050, t00=0x0055, t01=0x0010}
0x84cc…84f4 Head {h00=0x0024, h01=0x0050, text=» LDK A7,/8B SET CURSOR AND WRITE«, t00=0x0055, t01=0x0018}
0x84f4…8500 Head {h00=0x0008, h01=0x0050, text=» LKM«, t00=0x0055, t01=0x0040}
0x8500…8510 Head {h00=0x000c, h01=0x0050, text=» DATA 1 «, t00=0x0055, t01=0x004c}
0x8510…851e Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0055, t01=0x005c}
0x851e…8526 Head {h00=0x0004, h01=0x0050, t00=0x0055, t01=0x006a}
0x8526…8572 Head {h00=0x0048, h01=0x0050, text=»********************************************************************«, t00=0x0055, t01=0x0072}
0x8572…857c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0055, t01=0x00be}
0x857c…85b0 Head {h00=0x0030, h01=0x0050, text=»* EXECUTE FAST OUTPUT TO BLANK REMAINIG PART«, t00=0x0055, t01=0x00c8}
0x85b0…85c6 Head {h00=0x0012, h01=0x0050, text=»* OF THE LINE «, t00=0x0055, t01=0x00fc}
0x85c6…85d0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0055, t01=0x0112}
0x85d0…861c Head {h00=0x0048, h01=0x0050, text=»******************************************************************* «, t00=0x0055, t01=0x011c}
0x861c…8624 Head {h00=0x0004, h01=0x0050, t00=0x0055, t01=0x0168}
0x8624…864c Head {h00=0x0024, h01=0x0050, text=» LD A1,ECBCW,A8 CURSOR POSITION «, t00=0x0055, t01=0x0170}
0x864c…8670 Head {h00=0x0020, h01=0x0050, text=» ANK A1,X'FF' COLUMN NUMBER «, t00=0x0056, t01=0x0008}
0x8670…8694 Head {h00=0x0020, h01=0x0050, text=» SUK A1,81 LAST POSITION ???«, t00=0x0056, t01=0x002c}
0x8694…86cc Head {h00=0x0034, h01=0x0050, text=» RF(Z) DISL10 YES!! NO FAST OUTPUT ON THIS LINE «, t00=0x0056, t01=0x0050}
0x86cc…86d4 Head {h00=0x0004, h01=0x0050, t00=0x0056, t01=0x0088}
0x86d4…86fa Head {h00=0x0022, h01=0x0050, text=» LD A1,ECBBA,A8 BUFFER ADRESS «, t00=0x0056, t01=0x0090}
0x86fa…872a Head {h00=0x002c, h01=0x0050, text=» LDK A2,X'2B' DONT MOVE CURSOR ONE LINE «, t00=0x0056, t01=0x00b6}
0x872a…8742 Head {h00=0x0014, h01=0x0050, text=» SC A2,1,A1 =1 «, t00=0x0056, t01=0x00e6}
0x8742…8770 Head {h00=0x002a, h01=0x0050, text=» LDKL A2,X'1420' FAST OUTPUT OF SPACES«, t00=0x0056, t01=0x00fe}
0x8770…8788 Head {h00=0x0014, h01=0x0050, text=» SC A2,3,A1 =1 «, t00=0x0056, t01=0x012c}
0x8788…879e Head {h00=0x0012, h01=0x0050, text=» SRL A2,8 =1 «, t00=0x0056, t01=0x0144}
0x879e…87b6 Head {h00=0x0014, h01=0x0050, text=» SC A2,2,A1 =1 «, t00=0x0056, t01=0x015a}
0x87b6…87da Head {h00=0x0020, h01=0x0050, text=» LDK A2,84 REQUESTED LENGTH «, t00=0x0056, t01=0x0172}
0x87da…87f2 Head {h00=0x0014, h01=0x0050, text=» ST A2,ECBRL,A8 «, t00=0x0057, t01=0x0008}
0x87f2…8814 Head {h00=0x001e, h01=0x0050, text=» LDK A7,X'86' WRITE ORDER «, t00=0x0057, t01=0x0020}
0x8814…8820 Head {h00=0x0008, h01=0x0050, text=» LKM«, t00=0x0057, t01=0x0042}
0x8820…8830 Head {h00=0x000c, h01=0x0050, text=» DATA 1 «, t00=0x0057, t01=0x004e}
0x8830…8838 Head {h00=0x0004, h01=0x0050, t00=0x0057, t01=0x005e}
0x8838…884c Head {h00=0x0010, h01=0x0050, text=»DISL10 EQU *«, t00=0x0057, t01=0x0066}
0x884c…885e Head {h00=0x000e, h01=0x0050, text=» LDK A2,1 «, t00=0x0057, t01=0x007a}
0x885e…888a Head {h00=0x0028, h01=0x0050, text=» SC A2,ECBCW+1,A8 POS 1 ON NEXT LINE«, t00=0x0057, t01=0x008c}
0x888a…88a0 Head {h00=0x0012, h01=0x0050, text=» LDKL A2,/100 «, t00=0x0057, t01=0x00b8}
0x88a0…88ce Head {h00=0x002a, h01=0x0050, text=» ADS A2,ECBCW,A8 INCREMENT LINE NUMBER«, t00=0x0057, t01=0x00ce}
0x88ce…88f6 Head {h00=0x0024, h01=0x0050, text=» RB SPACES PUT SPACES TO BUFFER «, t00=0x0057, t01=0x00fc}
0x88f6…88fe Head {h00=0x0004, h01=0x0050, t00=0x0057, t01=0x0124}
0x88fe…890c Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0057, t01=0x012c}
0x890c…8914 Head {h00=0x0004, h01=0x0050, t00=0x0057, t01=0x013a}
0x8914…891c Head {h00=0x0004, h01=0x0050, t00=0x0057, t01=0x0142}
0x891c…8964 Head {h00=0x0044, h01=0x0050, text=»****************************************************************«, t00=0x0057, t01=0x014a}
0x8964…896e (88, 0, 398) Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0058, t01=0x0004}
0x896e…89b0 Head {h00=0x003e, h01=0x0050, text=»* I N T C H K CHECK IF LINE SHOULD BE PRINTED WITH«, t00=0x0058, t01=0x000e}
0x89b0…89e4 Head {h00=0x0030, h01=0x0050, text=»* HIGH OR LOW INTENSITY «, t00=0x0058, t01=0x0050}
0x89e4…89ee Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0058, t01=0x0084}
0x89ee…8a3c Head {h00=0x004a, h01=0x0050, text=»**********************************************************************«, t00=0x0058, t01=0x008e}
0x8a3c…8a44 Head {h00=0x0004, h01=0x0050, t00=0x0058, t01=0x00dc}
0x8a44…8a74 Head {h00=0x002c, h01=0x0050, text=»INTCHK SUR A10,A10 RESET INTENSITY COUNT«, t00=0x0058, t01=0x00e4}
0x8a74…8aa8 Head {h00=0x0030, h01=0x0050, text=» LD A2,INTATT,TCABAS GET INTENSITY ATTRIBUTE«, t00=0x0058, t01=0x0114}
0x8aa8…8aca Head {h00=0x001e, h01=0x0050, text=» RF(Z) INTRTN NON DISPLAY «, t00=0x0058, t01=0x0148}
0x8aca…8af2 Head {h00=0x0024, h01=0x0050, text=» ANK A2,X'4' HIGH INTENSITY ??? «, t00=0x0058, t01=0x016a}
0x8af2…8b0c (89, 0, 400) Head {h00=0x0016, h01=0x0050, text=» RF(Z) INT:10 YES «, t00=0x0059, t01=0x0004}
0x8b0c…8b14 Head {h00=0x0004, h01=0x0050, t00=0x0059, t01=0x001e}
0x8b14…8b38 Head {h00=0x0020, h01=0x0050, text=» LDK A2,X'1E' LOW INTENSITY «, t00=0x0059, t01=0x0026}
0x8b38…8b5a Head {h00=0x001e, h01=0x0050, text=» RF INT:20 HIGH INTENSITY «, t00=0x0059, t01=0x004a}
0x8b5a…8b62 Head {h00=0x0004, h01=0x0050, t00=0x0059, t01=0x006c}
0x8b62…8b8c Head {h00=0x0026, h01=0x0050, text=»INT:10 LDK A2,X'1F' HIGH INTENSITY«, t00=0x0059, t01=0x0074}
0x8b8c…8b94 Head {h00=0x0004, h01=0x0050, t00=0x0059, t01=0x009e}
0x8b94…8bd0 Head {h00=0x0038, h01=0x0050, text=»INT:20 SCR A2,A7 SAVE INTENSITY CHARACTER IN BUFFER «, t00=0x0059, t01=0x00a6}
0x8bd0…8bfa Head {h00=0x0026, h01=0x0050, text=» ADK A7,1 INCREMENT BUFFER POINTER«, t00=0x0059, t01=0x00e2}
0x8bfa…8c28 Head {h00=0x002a, h01=0x0050, text=» ADKL A10,1 INTENSITY COUNT «, t00=0x0059, t01=0x010c}
0x8c28…8c46 Head {h00=0x001a, h01=0x0050, text=»INTRTN RTN A14 RETURN «, t00=0x0059, t01=0x013a}
0x8c46…8c50 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0059, t01=0x0158}
0x8c50…8c5e Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0059, t01=0x0162}
0x8c5e…8c66 Head {h00=0x0004, h01=0x0050, t00=0x0059, t01=0x0170}
0x8c66…8cae Head {h00=0x0044, h01=0x0050, text=»****************************************************************«, t00=0x0059, t01=0x0178}
0x8cae…8cb8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005a, t01=0x0030}
0x8cb8…8cfc Head {h00=0x0040, h01=0x0050, text=»* SET:M SET MODIFIED BIT IF CHARACTER HAS BEEN MODIFIED «, t00=0x005a, t01=0x003a}
0x8cfc…8d06 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005a, t01=0x007e}
0x8d06…8d50 Head {h00=0x0046, h01=0x0050, text=»******************************************************************«, t00=0x005a, t01=0x0088}
0x8d50…8d58 Head {h00=0x0004, h01=0x0050, t00=0x005a, t01=0x00d2}
0x8d58…8d70 Head {h00=0x0014, h01=0x0050, text=»SET:M CWK A2,/20«, t00=0x005a, t01=0x00da}
0x8d70…8d9a Head {h00=0x0026, h01=0x0050, text=» RF(L) SET:M2 ATTRIBUTE CHARACTER «, t00=0x005a, t01=0x00f2}
0x8d9a…8dae Head {h00=0x0010, h01=0x0050, text=» CWK A2,/7F «, t00=0x005a, t01=0x011c}
0x8dae…8dd8 Head {h00=0x0026, h01=0x0050, text=» RF(E) SET:M2 UNMODIFIED ATTRIBUTE«, t00=0x005a, t01=0x0130}
0x8dd8…8dec Head {h00=0x0010, h01=0x0050, text=» CWK A2,/FF «, t00=0x005a, t01=0x015a}
0x8dec…8e18 Head {h00=0x0028, h01=0x0050, text=» RF(NE) SET:M1 NOT NULL OR ATTRIBUTE«, t00=0x005a, t01=0x016e}
0x8e18…8e44 Head {h00=0x0028, h01=0x0050, text=» ORK A5,/A0 MODIFIED NULL CHARACTER «, t00=0x005b, t01=0x000a}
0x8e44…8e54 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x005b, t01=0x0036}
0x8e54…8e7e Head {h00=0x0026, h01=0x0050, text=»SET:M1 ORR A5,A2 SET MODIFIED BIT «, t00=0x005b, t01=0x0046}
0x8e7e…8e94 Head {h00=0x0012, h01=0x0050, text=»SET:M2 RTN A14«, t00=0x005b, t01=0x0070}
0x8e94…8ea0 Head {h00=0x0008, h01=0x0050, text=» END«, t00=0x005b, t01=0x0086}
0x8ea0…8ea4 Head {h00=0x4004, h01=0x0000}
0x8ea4…8ea8 00 5b 00 92 ┆ [ ┆
0x8ea8…8eb0 (92, 1, 8) 20 04 00 00 00 5c 00 04 ┆ ┆