|
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: 36776 (0x8fa8)
Notes: pts_type(SC)
Names: »VDUPRT.SC«
└─⟦b6546aa17⟧ Bits:30009689 Philips computer tape "600325"
└─⟦this⟧ »DK3270/VDUPRT.SC«
└─⟦this⟧ »REMIT2/VDUPRT.SC«
IDENT VDUPRT 2.1DK 1 79-10-20 870150540210 =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 1 OFFLINE HANDLING POSSIBLE IF ::= 1 DCLIN EQU 1 NUMBER OF MAIN FRAMES (1-2) RBUFL EQU 1150 RECEIVE BUFFER LENGTH IN WORDS RBUFNR EQU 2 NUMBER OF RECEIVE BUFFERS (1-5) TBUFL EQU 1150 TRANSMIT BUFFER LENGTH IN WORDS TBUFNR EQU 2 NUMBER OF TRANSMIT BUFFERS (1-5) COPCMD EQU 1 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(G) PDCCHR OVERFLOW SCR A2,A7 PDCCH1 EQU * ADK A7,1 ADKL A9,1 PDCCHR RTN A14 * * * STORE ATTENTION ID FROM A2 * * PAID CF A14,PDCCH RTN A14 * * * GET CHARACTER FROM DC BUFFER TO A2 * * GDCCH LCR A2,A7 ANK A2,/FF 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,/04 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 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) UPD318 ILLEGAL ORDER LDK A2,/30 RB UPD230 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 SUR A1,A1 INDICATE ATT IN LAST SCREEN POS DK 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 ??? DK SUK A1,80 LAST POSITION ? DK * RF(Z) DISL10 YES!! NO FAST OUTPUT THIS LINE DK RF(NL) DISL10 YES, NO FAST OUTPUT THIS LINE DK 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, 400) Head {h00=0x0032, h01=0x0050, text=» IDENT VDUPRT 2.1DK 1 79-10-20 870150540210 «, t00=0x0000, t01=0x0004}
0x0036…003e Head {h00=0x0004, h01=0x0050, t00=0x0000, t01=0x003a}
0x003e…005e Head {h00=0x001c, h01=0x0050, text=» =1,ODD BUFFER ADDRESS«, t00=0x0000, t01=0x0042}
0x005e…007a Head {h00=0x0018, h01=0x0050, text=» REL 2.1 79-05-23 «, t00=0x0000, t01=0x0062}
0x007a…0096 Head {h00=0x0018, h01=0x0050, text=» =2,KEYBOARD LAMPS«, t00=0x0000, t01=0x007e}
0x0096…00b2 Head {h00=0x0018, h01=0x0050, text=» REL 2.1 79-05-23 «, t00=0x0000, t01=0x009a}
0x00b2…00d8 Head {h00=0x0022, h01=0x0050, text=» =3, TRANSMIT BUFFER LENGTH «, t00=0x0000, t01=0x00b6}
0x00d8…00f4 Head {h00=0x0018, h01=0x0050, text=» REL 2.1 79-05-23 «, t00=0x0000, t01=0x00dc}
0x00f4…013e Head {h00=0x0046, h01=0x0050, text=»******************************************************************«, t00=0x0000, t01=0x00f8}
0x013e…0148 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0142}
0x0148…0188 Head {h00=0x003c, h01=0x0050, text=»* V D U P R T : MODULE HANDLING MESSAGES COMING FROM«, t00=0x0000, t01=0x014c}
0x0188…01c6 Head {h00=0x003a, h01=0x0050, text=»* MAIN FRAME, AND DISPLAYING THEM ON«, t00=0x0000, t01=0x018c}
0x01c6…01f8 Head {h00=0x002e, h01=0x0050, text=»* THE VDU ( PTS 6344 ) .«, t00=0x0001, t01=0x003a}
0x01f8…0202 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x006c}
0x0202…024e Head {h00=0x0048, h01=0x0050, text=»********************************************************************«, t00=0x0001, t01=0x0076}
0x024e…0258 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x00c2}
0x0258…0262 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x00cc}
0x0262…0270 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0001, t01=0x00d6}
0x0270…027a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x00e4}
0x027a…0284 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x00ee}
0x0284…0296 Head {h00=0x000e, h01=0x0050, text=»* ENTRIES «, t00=0x0001, t01=0x00f8}
0x0296…02a0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x010a}
0x02a0…02aa Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x0114}
0x02aa…02d8 Head {h00=0x002a, h01=0x0050, text=» ENTRY TRPF TRANSMIT, PROGRAM FUNCTION«, t00=0x0001, t01=0x011e}
0x02d8…0308 Head {h00=0x002c, h01=0x0050, text=» ENTRY TRPA TRANSMIT, PROGRAM ATTENTION «, t00=0x0001, t01=0x014c}
0x0308…0330 Head {h00=0x0024, h01=0x0050, text=» ENTRY ERASE ERASE ENTIRE SCREEN«, t00=0x0001, t01=0x017c}
0x0330…0358 Head {h00=0x0024, h01=0x0050, text=» ENTRY SETCUR CURSOR POSITIONING«, t00=0x0002, t01=0x0014}
0x0358…0384 Head {h00=0x0028, h01=0x0050, text=» ENTRY ERASUP ERASE ALL UNPROTECTED «, t00=0x0002, t01=0x003c}
0x0384…03ae Head {h00=0x0026, h01=0x0050, text=» ENTRY DISPL DISPLAY MODIFIED DATA«, t00=0x0002, t01=0x0068}
0x03ae…03e0 Head {h00=0x002e, h01=0x0050, text=» ENTRY ERASUA ERASE UNPROTECTED TO ADDRESS«, t00=0x0002, t01=0x0092}
0x03e0…0412 Head {h00=0x002e, h01=0x0050, text=» ENTRY WCHAR WRITE ONE CHAR IN CURSOR POS «, t00=0x0002, t01=0x00c4}
0x0412…0428 Head {h00=0x0012, h01=0x0050, text=» ENTRY UPDATE «, t00=0x0002, t01=0x00f6}
0x0428…044e Head {h00=0x0022, h01=0x0050, text=» ENTRY RFMDUP REPLACE FM & DUP«, t00=0x0002, t01=0x010c}
0x044e…0462 Head {h00=0x0010, h01=0x0050, text=» ENTRY DCINP«, t00=0x0002, t01=0x0132}
0x0462…0478 Head {h00=0x0012, h01=0x0050, text=» ENTRY RLRBUF «, t00=0x0002, t01=0x0146}
0x0478…048e Head {h00=0x0012, h01=0x0050, text=» ENTRY DCGETM «, t00=0x0002, t01=0x015c}
0x048e…04a4 Head {h00=0x0012, h01=0x0050, text=» ENTRY GTRBUF «, t00=0x0002, t01=0x0172}
0x04a4…04ae Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x0188}
0x04ae…04b8 (3, 0, 400) Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x0004}
0x04b8…04cc Head {h00=0x0010, h01=0x0050, text=»* EXTERNALS «, t00=0x0003, t01=0x000e}
0x04cc…04d6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x0022}
0x04d6…04e0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x002c}
0x04e0…0502 Head {h00=0x001e, h01=0x0050, text=» EXTRN LINHON,LINHOF START«, t00=0x0003, t01=0x0036}
0x0502…0524 Head {h00=0x001e, h01=0x0050, text=» EXTRN LSAVON,LSAVOF START«, t00=0x0003, t01=0x0058}
0x0524…053a Head {h00=0x0012, h01=0x0050, text=» EXTRN ATMASB «, t00=0x0003, t01=0x007a}
0x053a…054e Head {h00=0x0010, h01=0x0050, text=» EXTRN EMULA«, t00=0x0003, t01=0x0090}
0x054e…0564 Head {h00=0x0012, h01=0x0050, text=» EXTRN REQTIM «, t00=0x0003, t01=0x00a4}
0x0564…057a Head {h00=0x0012, h01=0x0050, text=» EXTRN ICWRTE «, t00=0x0003, t01=0x00ba}
0x057a…0584 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x00d0}
0x0584…059e Head {h00=0x0016, h01=0x0050, text=» EXTRN SNBUSY PRT «, t00=0x0003, t01=0x00da}
0x059e…05a8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x00f4}
0x05a8…05d6 Head {h00=0x002a, h01=0x0050, text=» EXTRN I:EVA0 CREDIT EVALUATION TABLE «, t00=0x0003, t01=0x00fe}
0x05d6…05e0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x012c}
0x05e0…0604 Head {h00=0x0020, h01=0x0050, text=» EXTRN TASCII,TEBCDI TB3270 «, t00=0x0003, t01=0x0136}
0x0604…0612 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0003, t01=0x015a}
0x0612…061c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x0168}
0x061c…0664 Head {h00=0x0044, h01=0x0050, text=»****************************************************************«, t00=0x0003, t01=0x0172}
0x0664…066e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x002a}
0x066e…069a Head {h00=0x0028, h01=0x0050, text=»* CONDITIONAL ASSEMBLY PARAMETERS «, t00=0x0004, t01=0x0034}
0x069a…06a4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x0060}
0x06a4…06da Head {h00=0x0032, h01=0x0050, text=»**********************************************«, t00=0x0004, t01=0x006a}
0x06da…06e2 Head {h00=0x0004, h01=0x0050, t00=0x0004, t01=0x00a0}
0x06e2…0718 Head {h00=0x0032, h01=0x0050, text=»OFLIN EQU 1 OFFLINE HANDLING POSSIBLE IF ::= 1«, t00=0x0004, t01=0x00a8}
0x0718…0748 Head {h00=0x002c, h01=0x0050, text=»DCLIN EQU 1 NUMBER OF MAIN FRAMES (1-2) «, t00=0x0004, t01=0x00de}
0x0748…077e Head {h00=0x0032, h01=0x0050, text=»RBUFL EQU 1150 RECEIVE BUFFER LENGTH IN WORDS «, t00=0x0004, t01=0x010e}
0x077e…07b2 Head {h00=0x0030, h01=0x0050, text=»RBUFNR EQU 2 NUMBER OF RECEIVE BUFFERS (1-5)«, t00=0x0004, t01=0x0144}
0x07b2…07e8 Head {h00=0x0032, h01=0x0050, text=»TBUFL EQU 1150 TRANSMIT BUFFER LENGTH IN WORDS«, t00=0x0004, t01=0x0178}
0x07e8…081e Head {h00=0x0032, h01=0x0050, text=»TBUFNR EQU 2 NUMBER OF TRANSMIT BUFFERS (1-5) «, t00=0x0005, t01=0x001e}
0x081e…085a Head {h00=0x0038, h01=0x0050, text=»COPCMD EQU 1 COPY COMMAND (ONLY TO PRINTER) IF := 1 «, t00=0x0005, t01=0x0054}
0x085a…0884 Head {h00=0x0026, h01=0x0050, text=»EBCDIC EQU 1 ASCII = 0,EBCDIC = 1 «, t00=0x0005, t01=0x0090}
0x0884…088e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x00ba}
0x088e…08a0 Head {h00=0x000e, h01=0x0050, text=»* EQUATES «, t00=0x0005, t01=0x00c4}
0x08a0…08aa Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x00d6}
0x08aa…08b4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x00e0}
0x08b4…08e2 Head {h00=0x002a, h01=0x0050, text=»TIMDC EQU 300 DC TIME OUT VALUE: 30 S «, t00=0x0005, t01=0x00ea}
0x08e2…08f6 Head {h00=0x0010, h01=0x0050, text=»ESC EQU /1B «, t00=0x0005, t01=0x0118}
0x08f6…090a Head {h00=0x0010, h01=0x0050, text=»SBA EQU /11 «, t00=0x0005, t01=0x012c}
0x090a…092e Head {h00=0x0020, h01=0x0050, text=»NULL EQU /7F NULL CHARACTER «, t00=0x0005, t01=0x0140}
0x092e…0958 Head {h00=0x0026, h01=0x0050, text=»NEWLIN EQU /7E NEW LINE CHARACTER «, t00=0x0005, t01=0x0164}
0x0958…0980 Head {h00=0x0024, h01=0x0050, text=»ENDMES EQU /7D END MESSAGE CHAR «, t00=0x0005, t01=0x018e}
0x0980…09a6 Head {h00=0x0022, h01=0x0050, text=»FORMFD EQU /7C FORM FEED CHAR «, t00=0x0006, t01=0x0026}
0x09a6…09bc Head {h00=0x0012, h01=0x0050, text=»DUPCH EQU /7B «, t00=0x0006, t01=0x004c}
0x09bc…09d0 Head {h00=0x0010, h01=0x0050, text=»FMCH EQU /60«, t00=0x0006, t01=0x0062}
0x09d0…09de Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0006, t01=0x0076}
0x09de…09e8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x0084}
0x09e8…09f2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x008e}
0x09f2…0a08 Head {h00=0x0012, h01=0x0050, text=»* EQUATES «, t00=0x0006, t01=0x0098}
0x0a08…0a12 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x00ae}
0x0a12…0a38 Head {h00=0x0022, h01=0x0050, text=»* COMMON EQU FOR ECB HANDLING «, t00=0x0006, t01=0x00b8}
0x0a38…0a42 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x00de}
0x0a42…0a4a Head {h00=0x0004, h01=0x0050, t00=0x0006, t01=0x00e8}
0x0a4a…0a5e Head {h00=0x0010, h01=0x0050, text=»ECBBA EQU 2 «, t00=0x0006, t01=0x00f0}
0x0a5e…0a72 Head {h00=0x0010, h01=0x0050, text=»ECBRL EQU 4 «, t00=0x0006, t01=0x0104}
0x0a72…0a86 Head {h00=0x0010, h01=0x0050, text=»ECBEL EQU 6 «, t00=0x0006, t01=0x0118}
0x0a86…0a9a Head {h00=0x0010, h01=0x0050, text=»ECBRC EQU 8 «, t00=0x0006, t01=0x012c}
0x0a9a…0aae Head {h00=0x0010, h01=0x0050, text=»ECBCW EQU 10«, t00=0x0006, t01=0x0140}
0x0aae…0ab8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x0154}
0x0ab8…0ac2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x015e}
0x0ac2…0adc Head {h00=0x0016, h01=0x0050, text=»* CREDIT USED EQU «, t00=0x0006, t01=0x0168}
0x0adc…0ae6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x0182}
0x0ae6…0af0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x018c}
0x0af0…0b0c Head {h00=0x0018, h01=0x0050, text=»* ECB REL. ADDRESSES«, t00=0x0007, t01=0x0008}
0x0b0c…0b16 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x0024}
0x0b16…0b20 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x002e}
0x0b20…0b32 Head {h00=0x000e, h01=0x0050, text=»DIS EQU 20«, t00=0x0007, t01=0x0038}
0x0b32…0b3c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x004a}
0x0b3c…0b56 Head {h00=0x0016, h01=0x0050, text=»ECBDC EQU -DIS-14 «, t00=0x0007, t01=0x0054}
0x0b56…0b6a Head {h00=0x0010, h01=0x0050, text=» IFT DCLIN=2«, t00=0x0007, t01=0x006e}
0x0b6a…0b80 Head {h00=0x0012, h01=0x0050, text=» IFT COPCMD=1 «, t00=0x0007, t01=0x0082}
0x0b80…0b9c Head {h00=0x0018, h01=0x0050, text=»ECBDC2 EQU ECBDC-DIS«, t00=0x0007, t01=0x0098}
0x0b9c…0bba Head {h00=0x001a, h01=0x0050, text=»ECBICR EQU ECBDC2-DIS «, t00=0x0007, t01=0x00b4}
0x0bba…0bd8 Head {h00=0x001a, h01=0x0050, text=»ECBICW EQU ECBICR-DIS «, t00=0x0007, t01=0x00d2}
0x0bd8…0be4 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0007, t01=0x00f0}
0x0be4…0bf8 Head {h00=0x0010, h01=0x0050, text=» IFT DCLIN=2«, t00=0x0007, t01=0x00fc}
0x0bf8…0c0e Head {h00=0x0012, h01=0x0050, text=» IFF COPCMD=1 «, t00=0x0007, t01=0x0110}
0x0c0e…0c2a Head {h00=0x0018, h01=0x0050, text=»ECBDC2 EQU ECBDC-DIS«, t00=0x0007, t01=0x0126}
0x0c2a…0c48 Head {h00=0x001a, h01=0x0050, text=»ECBICW EQU ECBDC2-DIS «, t00=0x0007, t01=0x0142}
0x0c48…0c54 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0007, t01=0x0160}
0x0c54…0c68 Head {h00=0x0010, h01=0x0050, text=» IFF DCLIN=2«, t00=0x0007, t01=0x016c}
0x0c68…0c7e Head {h00=0x0012, h01=0x0050, text=» IFT COPCMD=1 «, t00=0x0007, t01=0x0180}
0x0c7e…0c9a Head {h00=0x0018, h01=0x0050, text=»ECBICR EQU ECBDC-DIS«, t00=0x0008, t01=0x0008}
0x0c9a…0cb8 Head {h00=0x001a, h01=0x0050, text=»ECBICW EQU ECBICR-DIS «, t00=0x0008, t01=0x0024}
0x0cb8…0cc4 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0008, t01=0x0042}
0x0cc4…0cd8 Head {h00=0x0010, h01=0x0050, text=» IFF DCLIN=2«, t00=0x0008, t01=0x004e}
0x0cd8…0cee Head {h00=0x0012, h01=0x0050, text=» IFF COPCMD=1 «, t00=0x0008, t01=0x0062}
0x0cee…0d0a Head {h00=0x0018, h01=0x0050, text=»ECBICW EQU ECBDC-DIS«, t00=0x0008, t01=0x0078}
0x0d0a…0d16 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0008, t01=0x0094}
0x0d16…0d34 Head {h00=0x001a, h01=0x0050, text=»ECBVDU EQU ECBICW-DIS «, t00=0x0008, t01=0x00a0}
0x0d34…0d50 Head {h00=0x0018, h01=0x0050, text=»ECBKB EQU ECBVDU-DIS«, t00=0x0008, t01=0x00be}
0x0d50…0d6c Head {h00=0x0018, h01=0x0050, text=»ECBSD EQU ECBKB-DIS «, t00=0x0008, t01=0x00da}
0x0d6c…0d7a Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0008, t01=0x00f6}
0x0d7a…0d84 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x0104}
0x0d84…0d8e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x010e}
0x0d8e…0db4 Head {h00=0x0022, h01=0x0050, text=»* BASE ADDRESS FOR TCA AND ECB«, t00=0x0008, t01=0x0118}
0x0db4…0dbe Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x013e}
0x0dbe…0dd4 Head {h00=0x0012, h01=0x0050, text=»TCABAS EQU A11«, t00=0x0008, t01=0x0148}
0x0dd4…0dee Head {h00=0x0016, h01=0x0050, text=»CREBAS EQU A13 ECB«, t00=0x0008, t01=0x015e}
0x0dee…0df8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x0178}
0x0df8…0e02 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x0182}
0x0e02…0e1e Head {h00=0x0018, h01=0x0050, text=»* TCA REL. ADDRESSES«, t00=0x0008, t01=0x018c}
0x0e1e…0e28 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x0018}
0x0e28…0e3c Head {h00=0x0010, h01=0x0050, text=»TCT01 EQU 0 «, t00=0x0009, t01=0x0022}
0x0e3c…0e58 Head {h00=0x0018, h01=0x0050, text=»PRINTER EQU TCT01+2 «, t00=0x0009, t01=0x0036}
0x0e58…0e84 Head {h00=0x0028, h01=0x0050, text=»BVDU EQU PRINTER+2 VDU SCREEN BUFFER«, t00=0x0009, t01=0x0052}
0x0e84…0eb8 Head {h00=0x0030, h01=0x0050, text=»PCURS EQU BVDU+1920 CURSOR ADDRESS , BINARY «, t00=0x0009, t01=0x007e}
0x0eb8…0ee6 Head {h00=0x002a, h01=0x0050, text=»ATTRIB EQU PCURS+2 LAST ATTRIBUTE CHAR«, t00=0x0009, t01=0x00b2}
0x0ee6…0f02 Head {h00=0x0018, h01=0x0050, text=»CURATT EQU ATTRIB+2 «, t00=0x0009, t01=0x00e0}
0x0f02…0f2c Head {h00=0x0026, h01=0x0050, text=»WCC EQU CURATT+2 WCC/CCC CHARACTER«, t00=0x0009, t01=0x00fc}
0x0f2c…0f5e Head {h00=0x002e, h01=0x0050, text=»KBINH EQU WCC+2 KEYBOARD INHIBIT INDICATOR«, t00=0x0009, t01=0x0126}
0x0f5e…0f86 Head {h00=0x0024, h01=0x0050, text=»LINCNT EQU KBINH+2 LINE COUNTER «, t00=0x0009, t01=0x0158}
0x0f86…0fba Head {h00=0x0030, h01=0x0050, text=»DCLENG EQU LINCNT+2 DC READ EFFECTIVE LENGTH«, t00=0x0009, t01=0x0180}
0x0fba…0ff0 Head {h00=0x0032, h01=0x0050, text=»ICWORK EQU DCLENG+2 WORK FIELD INTERTASK COMM «, t00=0x000a, t01=0x0024}
0x0ff0…1020 Head {h00=0x002c, h01=0x0050, text=»INTATT EQU ICWORK+2 INTENSITY ATTRIBUTE «, t00=0x000a, t01=0x005a}
0x1020…1048 Head {h00=0x0024, h01=0x0050, text=»OFFFLG EQU INTATT+2 OFFLINE FLAG«, t00=0x000a, t01=0x008a}
0x1048…1074 Head {h00=0x0028, h01=0x0050, text=»COPNO EQU OFFFLG+2 HARDCOPY TASK ID «, t00=0x000a, t01=0x00b2}
0x1074…10a2 Head {h00=0x002a, h01=0x0050, text=»CCC EQU COPNO+2 COPY COMMAND CHARACTER«, t00=0x000a, t01=0x00de}
0x10a2…10c4 Head {h00=0x001e, h01=0x0050, text=»MAIN EQU CCC+2 MAIN FRAME «, t00=0x000a, t01=0x010c}
0x10c4…10ee Head {h00=0x0026, h01=0x0050, text=»MODE EQU MAIN+2 INSERT MODE SWITCH«, t00=0x000a, t01=0x012e}
0x10ee…1116 Head {h00=0x0024, h01=0x0050, text=»KEYS EQU MODE+2 KEY LOCK STATUS «, t00=0x000a, t01=0x0158}
0x1116…1148 Head {h00=0x002e, h01=0x0050, text=»ECBDCC EQU KEYS+2 ECB ADDRESS LAST READ DC«, t00=0x000a, t01=0x0180}
0x1148…117e Head {h00=0x0032, h01=0x0050, text=»ECBBLK EQU ECBDCC+2 ECBS FOR MULTIPLE WAIT &C «, t00=0x000b, t01=0x0022}
0x117e…11b6 Head {h00=0x0034, h01=0x0050, text=»RDMORE EQU ECBBLK+10 BRANCH ADDRESS NEXT READ KB«, t00=0x000b, t01=0x0058}
0x11b6…11c4 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000b, t01=0x0090}
0x11c4…11cc Head {h00=0x0004, h01=0x0050, t00=0x000b, t01=0x009e}
0x11cc…11d6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x00a6}
0x11d6…11e0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x00b0}
0x11e0…120e Head {h00=0x002a, h01=0x0050, text=»LBVDU EQU 1920 1920 CHARACTER DISPLAY «, t00=0x000b, t01=0x00ba}
0x120e…1234 Head {h00=0x0022, h01=0x0050, text=»LPAGE EQU 48 LINES ON ONE PAGE«, t00=0x000b, t01=0x00e8}
0x1234…1262 Head {h00=0x002a, h01=0x0050, text=»LLINE EQU 80 80 CHAR PER DISPLAY LINE «, t00=0x000b, t01=0x010e}
0x1262…1294 Head {h00=0x002e, h01=0x0050, text=»TID EQU -4 TASK IDENTITY T:A DISPLACEMENT «, t00=0x000b, t01=0x013c}
0x1294…129e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x016e}
0x129e…12c8 Head {h00=0x0026, h01=0x0050, text=»* CONFIG DATA 'CB1' REL ADDRESSES «, t00=0x000b, t01=0x0178}
0x12c8…12d2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x0012}
0x12d2…12f8 Head {h00=0x0022, h01=0x0050, text=»NBRKBV EQU 0 NUMBER OF KB/VDUS«, t00=0x000c, t01=0x001c}
0x12f8…1322 Head {h00=0x0026, h01=0x0050, text=»NBRGTP EQU NBRKBV+2 NUMBER OF GTPS«, t00=0x000c, t01=0x0042}
0x1322…132c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x006c}
0x132c…1362 Head {h00=0x0032, h01=0x0050, text=»MF1KBV EQU NBRGTP+2 DV ADDRESSES KB/VDU MF #1 «, t00=0x000c, t01=0x0076}
0x1362…1398 Head {h00=0x0032, h01=0x0050, text=»MF1GTP EQU MF1KBV+16 DV ADDRESSES GTPS MF # 1 «, t00=0x000c, t01=0x00ac}
0x1398…13ac Head {h00=0x0010, h01=0x0050, text=» IFT DCLIN=2«, t00=0x000c, t01=0x00e2}
0x13ac…13c8 Head {h00=0x0018, h01=0x0050, text=»MF2KBV EQU MF1GTP+16«, t00=0x000c, t01=0x00f6}
0x13c8…13e4 Head {h00=0x0018, h01=0x0050, text=»MF2GTP EQU MF2KBV+16«, t00=0x000c, t01=0x0112}
0x13e4…13f0 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x000c, t01=0x012e}
0x13f0…13fa Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x013a}
0x13fa…1402 Head {h00=0x0004, h01=0x0050, t00=0x000c, t01=0x0144}
0x1402…1410 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000c, t01=0x014c}
0x1410…1458 Head {h00=0x0044, h01=0x0050, text=»****************************************************************«, t00=0x000c, t01=0x015a}
0x1458…1462 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x0012}
0x1462…147a Head {h00=0x0014, h01=0x0050, text=»* INPUT FROM DC «, t00=0x000d, t01=0x001c}
0x147a…1484 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x0034}
0x1484…14c0 Head {h00=0x0038, h01=0x0050, text=»****************************************************«, t00=0x000d, t01=0x003e}
0x14c0…14ca Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x007a}
0x14ca…14ea Head {h00=0x001c, h01=0x0050, text=»* RELATIVE POS IN ECBBLK«, t00=0x000d, t01=0x0084}
0x14ea…14fa Head {h00=0x000c, h01=0x0050, text=»KB EQU 2«, t00=0x000d, t01=0x00a4}
0x14fa…150c Head {h00=0x000e, h01=0x0050, text=»DC1 EQU 4 «, t00=0x000d, t01=0x00b4}
0x150c…151e Head {h00=0x000e, h01=0x0050, text=»DC2 EQU 6 «, t00=0x000d, t01=0x00c6}
0x151e…1528 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x00d8}
0x1528…153c Head {h00=0x0010, h01=0x0050, text=»DCINP EQU * «, t00=0x000d, t01=0x00e2}
0x153c…1566 Head {h00=0x0026, h01=0x0050, text=» CF A14,GTRBUF GET RECEIVE BUFFER «, t00=0x000d, t01=0x00f6}
0x1566…1582 Head {h00=0x0018, h01=0x0050, text=» LD A8,ECBDCC,TCABAS«, t00=0x000d, t01=0x0120}
0x1582…15a6 Head {h00=0x0020, h01=0x0050, text=» CF A14,DCGETM READ MESSAGE «, t00=0x000d, t01=0x013c}
0x15a6…15ba Head {h00=0x0010, h01=0x0050, text=» IFF DCLIN=2«, t00=0x000d, t01=0x0160}
0x15ba…15d8 Head {h00=0x001a, h01=0x0050, text=» CM ECBBLK+DC1,TCABAS «, t00=0x000d, t01=0x0174}
0x15d8…15e4 (14, 0, 400) Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x000e, t01=0x0004}
0x15e4…15f8 Head {h00=0x0010, h01=0x0050, text=» IFT DCLIN=2«, t00=0x000e, t01=0x0010}
0x15f8…1612 Head {h00=0x0016, h01=0x0050, text=» LD A1,MAIN,TCABAS«, t00=0x000e, t01=0x0024}
0x1612…1632 Head {h00=0x001c, h01=0x0050, text=» CW A8,ECBBLK+DC2,TCABAS«, t00=0x000e, t01=0x003e}
0x1632…164e Head {h00=0x0018, h01=0x0050, text=» RF(E) DCIN20 MF # 2«, t00=0x000e, t01=0x005e}
0x164e…166c Head {h00=0x001a, h01=0x0050, text=» CM ECBBLK+DC1,TCABAS «, t00=0x000e, t01=0x007a}
0x166c…167e Head {h00=0x000e, h01=0x0050, text=» LDR A1,A1«, t00=0x000e, t01=0x0098}
0x167e…169e Head {h00=0x001c, h01=0x0050, text=» RF(NZ) DCIN90 WRONG MF «, t00=0x000e, t01=0x00aa}
0x169e…16b0 Head {h00=0x000e, h01=0x0050, text=» RF DCIN30«, t00=0x000e, t01=0x00ca}
0x16b0…16c4 Head {h00=0x0010, h01=0x0050, text=»DCIN20 EQU *«, t00=0x000e, t01=0x00dc}
0x16c4…16e2 Head {h00=0x001a, h01=0x0050, text=» CM ECBBLK+DC2,TCABAS «, t00=0x000e, t01=0x00f0}
0x16e2…16f4 Head {h00=0x000e, h01=0x0050, text=» LDR A1,A1«, t00=0x000e, t01=0x010e}
0x16f4…1712 Head {h00=0x001a, h01=0x0050, text=» RF(Z) DCIN90 WRONG MF«, t00=0x000e, t01=0x0120}
0x1712…171e Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x000e, t01=0x013e}
0x171e…1732 Head {h00=0x0010, h01=0x0050, text=»DCIN30 EQU *«, t00=0x000e, t01=0x014a}
0x1732…1746 Head {h00=0x0010, h01=0x0050, text=» IFT OFLIN=1«, t00=0x000e, t01=0x015e}
0x1746…1762 Head {h00=0x0018, h01=0x0050, text=» LD A1,OFFFLG,TCABAS«, t00=0x000e, t01=0x0172}
0x1762…1778 Head {h00=0x0012, h01=0x0050, text=» RF(NZ) DCIN90«, t00=0x000e, t01=0x018e}
0x1778…1784 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x000f, t01=0x0014}
0x1784…17b0 Head {h00=0x0028, h01=0x0050, text=» LD A1,ECBEL,A8 EFFECTIVE DC-LENGTH «, t00=0x000f, t01=0x0020}
0x17b0…17cc Head {h00=0x0018, h01=0x0050, text=» ST A1,DCLENG,TCABAS«, t00=0x000f, t01=0x004c}
0x17cc…17d4 Head {h00=0x0004, h01=0x0050, t00=0x000f, t01=0x0068}
0x17d4…17dc Head {h00=0x0004, h01=0x0050, t00=0x000f, t01=0x0070}
0x17dc…17f8 Head {h00=0x0018, h01=0x0050, text=» LD A5,KBINH,TCABAS «, t00=0x000f, t01=0x0078}
0x17f8…182a Head {h00=0x002e, h01=0x0050, text=» ORK A5,3 BIT 14,15:= 1. TOTALLY DISABLED «, t00=0x000f, t01=0x0094}
0x182a…185c Head {h00=0x002e, h01=0x0050, text=»* KEYBOARD. BIT 15 = 0 AFTER DISPLAYING.«, t00=0x000f, t01=0x00c6}
0x185c…1878 Head {h00=0x0018, h01=0x0050, text=» ST A5,KBINH,TCABAS «, t00=0x000f, t01=0x00f8}
0x1878…18aa Head {h00=0x002e, h01=0x0050, text=» CF A14,LINHON TURN ON 'KEYBOARD INHIBIT' «, t00=0x000f, t01=0x0114}
0x18aa…18dc Head {h00=0x002e, h01=0x0050, text=» CF A14,LSAVON TURN ON "SYSTEM AVAILABLE" «, t00=0x000f, t01=0x0146}
0x18dc…18f2 Head {h00=0x0012, h01=0x0050, text=» CF A14,UPDATE«, t00=0x000f, t01=0x0178}
0x18f2…1908 Head {h00=0x0012, h01=0x0050, text=» CF A14,DISPL «, t00=0x000f, t01=0x018e}
0x1908…1924 Head {h00=0x0018, h01=0x0050, text=» LD A2,PCURS,TCABAS «, t00=0x0010, t01=0x0014}
0x1924…193a Head {h00=0x0012, h01=0x0050, text=» CF A14,ATMASB«, t00=0x0010, t01=0x0030}
0x193a…1942 Head {h00=0x0004, h01=0x0050, t00=0x0010, t01=0x0046}
0x1942…194a Head {h00=0x0004, h01=0x0050, t00=0x0010, t01=0x004e}
0x194a…1954 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x0056}
0x1954…1970 Head {h00=0x0018, h01=0x0050, text=» LD A2,KBINH,TCABAS «, t00=0x0010, t01=0x0060}
0x1970…198e Head {h00=0x001a, h01=0x0050, text=» ANK A2,1 BIT 15 = 0? «, t00=0x0010, t01=0x007c}
0x198e…19a4 Head {h00=0x0012, h01=0x0050, text=» RF(Z) DCIN60 «, t00=0x0010, t01=0x009a}
0x19a4…19c0 Head {h00=0x0018, h01=0x0050, text=» LD A2,KBINH,TCABAS «, t00=0x0010, t01=0x00b0}
0x19c0…19f2 Head {h00=0x002e, h01=0x0050, text=» ANK A2,/E BIT 15:=0 KEYBOARD NOT TOTALLY «, t00=0x0010, t01=0x00cc}
0x19f2…1a12 Head {h00=0x001c, h01=0x0050, text=»* INHIBITED ANY LONGER«, t00=0x0010, t01=0x00fe}
0x1a12…1a2e Head {h00=0x0018, h01=0x0050, text=» ST A2,KBINH,TCABAS «, t00=0x0010, t01=0x011e}
0x1a2e…1a48 Head {h00=0x0016, h01=0x0050, text=» LD A2,WCC,TCABAS «, t00=0x0010, t01=0x013a}
0x1a48…1a5a Head {h00=0x000e, h01=0x0050, text=» ANK A2,2 «, t00=0x0010, t01=0x0154}
0x1a5a…1a70 Head {h00=0x0012, h01=0x0050, text=» RF(Z) DCIN95 «, t00=0x0010, t01=0x0166}
0x1a70…1a84 Head {h00=0x0010, h01=0x0050, text=»DCIN60 EQU *«, t00=0x0010, t01=0x017c}
0x1a84…1ab6 Head {h00=0x002e, h01=0x0050, text=» CF A14,LINHOF TURN OFF 'KEYBOARD INHIBIT'«, t00=0x0010, t01=0x0190}
0x1ab6…1ad2 Head {h00=0x0018, h01=0x0050, text=» LD A2,KBINH,TCABAS «, t00=0x0011, t01=0x0032}
0x1ad2…1b02 Head {h00=0x002c, h01=0x0050, text=» ANK A2,4 BITS 14,15:=0 RESTORE KEYBOARD«, t00=0x0011, t01=0x004e}
0x1b02…1b1e Head {h00=0x0018, h01=0x0050, text=» ST A2,KBINH,TCABAS «, t00=0x0011, t01=0x007e}
0x1b1e…1b30 Head {h00=0x000e, h01=0x0050, text=» RF DCIN95«, t00=0x0011, t01=0x009a}
0x1b30…1b44 Head {h00=0x0010, h01=0x0050, text=»DCIN90 EQU *«, t00=0x0011, t01=0x00ac}
0x1b44…1b60 Head {h00=0x0018, h01=0x0050, text=» LD A8,ECBDCC,TCABAS«, t00=0x0011, t01=0x00c0}
0x1b60…1b78 Head {h00=0x0014, h01=0x0050, text=» LD A4,ECBBA,A8 «, t00=0x0011, t01=0x00dc}
0x1b78…1b8e Head {h00=0x0012, h01=0x0050, text=» CF A14,RLRBUF«, t00=0x0011, t01=0x00f4}
0x1b8e…1ba2 Head {h00=0x0010, h01=0x0050, text=»DCIN95 EQU *«, t00=0x0011, t01=0x010a}
0x1ba2…1bb8 Head {h00=0x0012, h01=0x0050, text=» CF A14,SNBUSY«, t00=0x0011, t01=0x011e}
0x1bb8…1bc8 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0011, t01=0x0134}
0x1bc8…1bd6 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0011, t01=0x0144}
0x1bd6…1be0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x0152}
0x1be0…1bf2 Head {h00=0x000e, h01=0x0050, text=»* READ DC «, t00=0x0011, t01=0x015c}
0x1bf2…1bfc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x016e}
0x1bfc…1c10 Head {h00=0x0010, h01=0x0050, text=»DCGETM EQU *«, t00=0x0011, t01=0x0178}
0x1c10…1c22 Head {h00=0x000e, h01=0x0050, text=» LDK A1,0 «, t00=0x0011, t01=0x018c}
0x1c22…1c38 Head {h00=0x0012, h01=0x0050, text=» CF A14,REQTIM«, t00=0x0012, t01=0x000e}
0x1c38…1c56 Head {h00=0x001a, h01=0x0050, text=» LDK A7,/82 READ, WAIT«, t00=0x0012, t01=0x0024}
0x1c56…1c82 Head {h00=0x0028, h01=0x0050, text=» CM ECBCW,A8 NO TIME OUT SUPERVISION«, t00=0x0012, t01=0x0042}
0x1c82…1c9e Head {h00=0x0018, h01=0x0050, text=» LDKL A1,RBUFL+RBUFL«, t00=0x0012, t01=0x006e}
0x1c9e…1cc0 Head {h00=0x001e, h01=0x0050, text=» ST A1,ECBRL,A8 REQ LENGTH«, t00=0x0012, t01=0x008a}
0x1cc0…1cd8 Head {h00=0x0014, h01=0x0050, text=» ST A4,ECBBA,A8 «, t00=0x0012, t01=0x00ac}
0x1cd8…1ce4 Head {h00=0x0008, h01=0x0050, text=» LKM«, t00=0x0012, t01=0x00c4}
0x1ce4…1cf4 Head {h00=0x000c, h01=0x0050, text=» DATA 1 «, t00=0x0012, t01=0x00d0}
0x1cf4…1d04 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0012, t01=0x00e0}
0x1d04…1d12 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0012, t01=0x00f0}
0x1d12…1d54 Head {h00=0x003e, h01=0x0050, text=»**********************************************************«, t00=0x0012, t01=0x00fe}
0x1d54…1d5e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x0140}
0x1d5e…1d78 Head {h00=0x0016, h01=0x0050, text=»* BUFFER HANDLING «, t00=0x0012, t01=0x014a}
0x1d78…1d82 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x0164}
0x1d82…1dc4 Head {h00=0x003e, h01=0x0050, text=»**********************************************************«, t00=0x0012, t01=0x016e}
0x1dc4…1dce Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x0020}
0x1dce…1dee Head {h00=0x001c, h01=0x0050, text=»RLINK EQU RBUFL+RBUFL+2 «, t00=0x0013, t01=0x002a}
0x1dee…1df8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x004a}
0x1df8…1e0a Head {h00=0x000e, h01=0x0050, text=»RBUF EQU *«, t00=0x0013, t01=0x0054}
0x1e0a…1e2e Head {h00=0x0020, h01=0x0050, text=» DATA *+2 POINTER FIRST FREE«, t00=0x0013, t01=0x0066}
0x1e2e…1e44 Head {h00=0x0012, h01=0x0050, text=» IFF RBUFNR=1 «, t00=0x0013, t01=0x008a}
0x1e44…1e5a Head {h00=0x0012, h01=0x0050, text=» DATA *+RLINK «, t00=0x0013, t01=0x00a0}
0x1e5a…1e6c Head {h00=0x000e, h01=0x0050, text=» RES RBUFL«, t00=0x0013, t01=0x00b6}
0x1e6c…1e82 Head {h00=0x0012, h01=0x0050, text=» IFF RBUFNR=2 «, t00=0x0013, t01=0x00c8}
0x1e82…1e98 Head {h00=0x0012, h01=0x0050, text=» DATA *+RLINK «, t00=0x0013, t01=0x00de}
0x1e98…1eaa Head {h00=0x000e, h01=0x0050, text=» RES RBUFL«, t00=0x0013, t01=0x00f4}
0x1eaa…1ec0 Head {h00=0x0012, h01=0x0050, text=» IFF RBUFNR=3 «, t00=0x0013, t01=0x0106}
0x1ec0…1ed6 Head {h00=0x0012, h01=0x0050, text=» DATA *+RLINK «, t00=0x0013, t01=0x011c}
0x1ed6…1ee8 Head {h00=0x000e, h01=0x0050, text=» RES RBUFL«, t00=0x0013, t01=0x0132}
0x1ee8…1efe Head {h00=0x0012, h01=0x0050, text=» IFF RBUFNR=4 «, t00=0x0013, t01=0x0144}
0x1efe…1f14 Head {h00=0x0012, h01=0x0050, text=» DATA *+RLINK «, t00=0x0013, t01=0x015a}
0x1f14…1f26 Head {h00=0x000e, h01=0x0050, text=» RES RBUFL«, t00=0x0013, t01=0x0170}
0x1f26…1f32 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0013, t01=0x0182}
0x1f32…1f4e Head {h00=0x0018, h01=0x0050, text=» DATA 0 END OF CHAIN«, t00=0x0013, t01=0x018e}
0x1f4e…1f60 Head {h00=0x000e, h01=0x0050, text=» RES RBUFL«, t00=0x0014, t01=0x001a}
0x1f60…1f6a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x002c}
0x1f6a…1f74 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x0036}
0x1f74…1f94 Head {h00=0x001c, h01=0x0050, text=»TLINK EQU TBUFL+TBUFL+2 «, t00=0x0014, t01=0x0040}
0x1f94…1f9e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x0060}
0x1f9e…1fb0 Head {h00=0x000e, h01=0x0050, text=»TBUF EQU *«, t00=0x0014, t01=0x006a}
0x1fb0…1fd4 Head {h00=0x0020, h01=0x0050, text=» DATA *+2 POINTER FIRST FREE«, t00=0x0014, t01=0x007c}
0x1fd4…1fea Head {h00=0x0012, h01=0x0050, text=» IFF TBUFNR=1 «, t00=0x0014, t01=0x00a0}
0x1fea…2000 Head {h00=0x0012, h01=0x0050, text=» DATA *+TLINK «, t00=0x0014, t01=0x00b6}
0x2000…2012 Head {h00=0x000e, h01=0x0050, text=» RES TBUFL«, t00=0x0014, t01=0x00cc}
0x2012…2028 Head {h00=0x0012, h01=0x0050, text=» IFF TBUFNR=2 «, t00=0x0014, t01=0x00de}
0x2028…203e Head {h00=0x0012, h01=0x0050, text=» DATA *+TLINK «, t00=0x0014, t01=0x00f4}
0x203e…2050 Head {h00=0x000e, h01=0x0050, text=» RES TBUFL«, t00=0x0014, t01=0x010a}
0x2050…2066 Head {h00=0x0012, h01=0x0050, text=» IFF TBUFNR=3 «, t00=0x0014, t01=0x011c}
0x2066…207c Head {h00=0x0012, h01=0x0050, text=» DATA *+TLINK «, t00=0x0014, t01=0x0132}
0x207c…208e Head {h00=0x000e, h01=0x0050, text=» RES TBUFL«, t00=0x0014, t01=0x0148}
0x208e…20a4 Head {h00=0x0012, h01=0x0050, text=» IFF TBUFNR=4 «, t00=0x0014, t01=0x015a}
0x20a4…20ba Head {h00=0x0012, h01=0x0050, text=» DATA *+TLINK «, t00=0x0014, t01=0x0170}
0x20ba…20cc Head {h00=0x000e, h01=0x0050, text=» RES TBUFL«, t00=0x0014, t01=0x0186}
0x20cc…20d8 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0015, t01=0x0008}
0x20d8…20f4 Head {h00=0x0018, h01=0x0050, text=» DATA 0 END OF CHAIN«, t00=0x0015, t01=0x0014}
0x20f4…2106 Head {h00=0x000e, h01=0x0050, text=» RES TBUFL«, t00=0x0015, t01=0x0030}
0x2106…2110 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x0042}
0x2110…211a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x004c}
0x211a…2134 Head {h00=0x0016, h01=0x0050, text=»* GET WRITE BUFFER«, t00=0x0015, t01=0x0056}
0x2134…213e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x0070}
0x213e…2152 Head {h00=0x0010, h01=0x0050, text=»GTWBUF EQU *«, t00=0x0015, t01=0x007a}
0x2152…2168 Head {h00=0x0012, h01=0x0050, text=» LDKL A5,TBUF «, t00=0x0015, t01=0x008e}
0x2168…217e Head {h00=0x0012, h01=0x0050, text=» CF A14,GETBUF«, t00=0x0015, t01=0x00a4}
0x217e…2190 Head {h00=0x000e, h01=0x0050, text=» LDR A7,A4«, t00=0x0015, t01=0x00ba}
0x2190…21a4 Head {h00=0x0010, h01=0x0050, text=» LDR A12,A4 «, t00=0x0015, t01=0x00cc}
0x21a4…21ba Head {h00=0x0012, h01=0x0050, text=» ADK A7,2 SKIP«, t00=0x0015, t01=0x00e0}
0x21ba…21de Head {h00=0x0020, h01=0x0050, text=» LDKL A9,2 FOR DV ADDRESS «, t00=0x0015, t01=0x00f6}
0x21de…21ee Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0015, t01=0x011a}
0x21ee…21f8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x012a}
0x21f8…2214 Head {h00=0x0018, h01=0x0050, text=»* GET RECEIVE BUFFER«, t00=0x0015, t01=0x0134}
0x2214…221e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x0150}
0x221e…2232 Head {h00=0x0010, h01=0x0050, text=»GTRBUF EQU *«, t00=0x0015, t01=0x015a}
0x2232…2248 Head {h00=0x0012, h01=0x0050, text=» LDKL A5,RBUF «, t00=0x0015, t01=0x016e}
0x2248…2252 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x0184}
0x2252…225c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x018e}
0x225c…2270 Head {h00=0x0010, h01=0x0050, text=»GETBUF EQU *«, t00=0x0016, t01=0x0008}
0x2270…2284 Head {h00=0x0010, h01=0x0050, text=» LDR* A4,A5 «, t00=0x0016, t01=0x001c}
0x2284…22a8 Head {h00=0x0020, h01=0x0050, text=» RF(Z) GETB50 NO BUFFER FREE«, t00=0x0016, t01=0x0030}
0x22a8…22bc Head {h00=0x0010, h01=0x0050, text=» LDR* A3,A4 «, t00=0x0016, t01=0x0054}
0x22bc…22ce Head {h00=0x000e, h01=0x0050, text=» STR A3,A5«, t00=0x0016, t01=0x0068}
0x22ce…22ea Head {h00=0x0018, h01=0x0050, text=» ADK A4,2 SKIP LINK «, t00=0x0016, t01=0x007a}
0x22ea…22fa Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0016, t01=0x0096}
0x22fa…230e Head {h00=0x0010, h01=0x0050, text=»GETB50 EQU *«, t00=0x0016, t01=0x00a6}
0x230e…231a Head {h00=0x0008, h01=0x0050, text=» LKM«, t00=0x0016, t01=0x00ba}
0x231a…2336 Head {h00=0x0018, h01=0x0050, text=» DATA 0 SWITCH TASK «, t00=0x0016, t01=0x00c6}
0x2336…2348 Head {h00=0x000e, h01=0x0050, text=» RB GETBUF«, t00=0x0016, t01=0x00e2}
0x2348…2352 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0016, t01=0x00f4}
0x2352…236a Head {h00=0x0014, h01=0x0050, text=»* RELEASE BUFFER«, t00=0x0016, t01=0x00fe}
0x236a…2374 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0016, t01=0x0116}
0x2374…2388 Head {h00=0x0010, h01=0x0050, text=»RLRBUF EQU *«, t00=0x0016, t01=0x0120}
0x2388…239e Head {h00=0x0012, h01=0x0050, text=» LDKL A2,RBUF «, t00=0x0016, t01=0x0134}
0x239e…23b2 Head {h00=0x0010, h01=0x0050, text=»RELB05 EQU *«, t00=0x0016, t01=0x014a}
0x23b2…23d2 Head {h00=0x001c, h01=0x0050, text=» SUK A4,2 POINT TO LINK «, t00=0x0016, t01=0x015e}
0x23d2…23e6 Head {h00=0x0010, h01=0x0050, text=»RELB10 EQU *«, t00=0x0016, t01=0x017e}
0x23e6…23fa (23, 0, 400) Head {h00=0x0010, h01=0x0050, text=» LDR* A3,A2 «, t00=0x0017, t01=0x0004}
0x23fa…2410 Head {h00=0x0012, h01=0x0050, text=» RF(Z) RELB20 «, t00=0x0017, t01=0x0018}
0x2410…2422 Head {h00=0x000e, h01=0x0050, text=» LDR A2,A3«, t00=0x0017, t01=0x002e}
0x2422…2434 Head {h00=0x000e, h01=0x0050, text=» RB RELB10«, t00=0x0017, t01=0x0040}
0x2434…2448 Head {h00=0x0010, h01=0x0050, text=»RELB20 EQU *«, t00=0x0017, t01=0x0052}
0x2448…245a Head {h00=0x000e, h01=0x0050, text=» STR A4,A2«, t00=0x0017, t01=0x0066}
0x245a…246a Head {h00=0x000c, h01=0x0050, text=» CMR A4 «, t00=0x0017, t01=0x0078}
0x246a…247a Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0017, t01=0x0088}
0x247a…2484 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0017, t01=0x0098}
0x2484…2498 Head {h00=0x0010, h01=0x0050, text=»RLWBUF EQU *«, t00=0x0017, t01=0x00a2}
0x2498…24ae Head {h00=0x0012, h01=0x0050, text=» LDKL A2,TBUF «, t00=0x0017, t01=0x00b6}
0x24ae…24c0 Head {h00=0x000e, h01=0x0050, text=» RB RELB05«, t00=0x0017, t01=0x00cc}
0x24c0…24ce Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0017, t01=0x00de}
0x24ce…24d8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0017, t01=0x00ec}
0x24d8…24e2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0017, t01=0x00f6}
0x24e2…2508 Head {h00=0x0022, h01=0x0050, text=»* STORE CHARACTER IN DC BUFFER«, t00=0x0017, t01=0x0100}
0x2508…2512 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0017, t01=0x0126}
0x2512…2524 Head {h00=0x000e, h01=0x0050, text=»* A2=CHAR «, t00=0x0017, t01=0x0130}
0x2524…2540 Head {h00=0x0018, h01=0x0050, text=»* A7=BUFFER POINTER «, t00=0x0017, t01=0x0142}
0x2540…2566 Head {h00=0x0022, h01=0x0050, text=»* A9=BUFFER CHARACTER COUNTER «, t00=0x0017, t01=0x015e}
0x2566…2570 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0017, t01=0x0184}
0x2570…257a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0017, t01=0x018e}
0x257a…258e Head {h00=0x0010, h01=0x0050, text=»PDCCH EQU * «, t00=0x0018, t01=0x0008}
0x258e…25ae Head {h00=0x001c, h01=0x0050, text=» CWK A9,TBUFL+TBUFL =3 «, t00=0x0018, t01=0x001c}
0x25ae…25cc Head {h00=0x001a, h01=0x0050, text=» RF(G) PDCCHR OVERFLOW«, t00=0x0018, t01=0x003c}
0x25cc…25de Head {h00=0x000e, h01=0x0050, text=» SCR A2,A7«, t00=0x0018, t01=0x005a}
0x25de…25f2 Head {h00=0x0010, h01=0x0050, text=»PDCCH1 EQU *«, t00=0x0018, t01=0x006c}
0x25f2…2604 Head {h00=0x000e, h01=0x0050, text=» ADK A7,1 «, t00=0x0018, t01=0x0080}
0x2604…2616 Head {h00=0x000e, h01=0x0050, text=» ADKL A9,1«, t00=0x0018, t01=0x0092}
0x2616…262c Head {h00=0x0012, h01=0x0050, text=»PDCCHR RTN A14«, t00=0x0018, t01=0x00a4}
0x262c…2636 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0018, t01=0x00ba}
0x2636…2640 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0018, t01=0x00c4}
0x2640…2664 Head {h00=0x0020, h01=0x0050, text=»* STORE ATTENTION ID FROM A2«, t00=0x0018, t01=0x00ce}
0x2664…266e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0018, t01=0x00f2}
0x266e…2678 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0018, t01=0x00fc}
0x2678…2692 Head {h00=0x0016, h01=0x0050, text=»PAID CF A14,PDCCH «, t00=0x0018, t01=0x0106}
0x2692…26a2 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0018, t01=0x0120}
0x26a2…26ac Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0018, t01=0x0130}
0x26ac…26b6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0018, t01=0x013a}
0x26b6…26e2 Head {h00=0x0028, h01=0x0050, text=»* GET CHARACTER FROM DC BUFFER TO A2«, t00=0x0018, t01=0x0144}
0x26e2…26ec Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0018, t01=0x0170}
0x26ec…26f6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0018, t01=0x017a}
0x26f6…270e Head {h00=0x0014, h01=0x0050, text=»GDCCH LCR A2,A7 «, t00=0x0018, t01=0x0184}
0x270e…2722 Head {h00=0x0010, h01=0x0050, text=» ANK A2,/FF «, t00=0x0019, t01=0x000c}
0x2722…274c Head {h00=0x0026, h01=0x0050, text=» RF(NZ) GDCC:1 NOT NULL CHARACTER «, t00=0x0019, t01=0x0020}
0x274c…2774 Head {h00=0x0024, h01=0x0050, text=» LDK A2,/7F LOAD NULL CHARACTER «, t00=0x0019, t01=0x004a}
0x2774…2788 Head {h00=0x0010, h01=0x0050, text=»GDCC:1 EQU *«, t00=0x0019, t01=0x0072}
0x2788…279a Head {h00=0x000e, h01=0x0050, text=» RB PDCCH1«, t00=0x0019, t01=0x0086}
0x279a…27a8 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0019, t01=0x0098}
0x27a8…27b2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0019, t01=0x00a6}
0x27b2…27bc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0019, t01=0x00b0}
0x27bc…27ee Head {h00=0x002e, h01=0x0050, text=»* GET BUFFER ADDRESS TO A1 FROM DC BUFFER «, t00=0x0019, t01=0x00ba}
0x27ee…27f8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0019, t01=0x00ec}
0x27f8…2802 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0019, t01=0x00f6}
0x2802…281e Head {h00=0x0018, h01=0x0050, text=»GETADR CF A14,GDCCH «, t00=0x0019, t01=0x0100}
0x281e…2836 Head {h00=0x0014, h01=0x0050, text=» LC A1,TEBCDI,A2«, t00=0x0019, t01=0x011c}
0x2836…284a Head {h00=0x0010, h01=0x0050, text=» ANK A1,/3F «, t00=0x0019, t01=0x0134}
0x284a…285c Head {h00=0x000e, h01=0x0050, text=» SLL A1,6 «, t00=0x0019, t01=0x0148}
0x285c…2872 Head {h00=0x0012, h01=0x0050, text=» CF A14,GDCCH «, t00=0x0019, t01=0x015a}
0x2872…288a Head {h00=0x0014, h01=0x0050, text=» LC A2,TEBCDI,A2«, t00=0x0019, t01=0x0170}
0x288a…289e Head {h00=0x0010, h01=0x0050, text=» ANK A2,/3F «, t00=0x0019, t01=0x0188}
0x289e…28b0 Head {h00=0x000e, h01=0x0050, text=» ORR A1,A2«, t00=0x001a, t01=0x000c}
0x28b0…28c0 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x001a, t01=0x001e}
0x28c0…28ce Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x001a, t01=0x002e}
0x28ce…28d8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001a, t01=0x003c}
0x28d8…28e2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001a, t01=0x0046}
0x28e2…2908 Head {h00=0x0022, h01=0x0050, text=»* WRITE MESSAGE TO MAIN FRAME «, t00=0x001a, t01=0x0050}
0x2908…2912 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001a, t01=0x0076}
0x2912…293c Head {h00=0x0026, h01=0x0050, text=»* ON EXIT A1 CONTAINS RETURN CODE «, t00=0x001a, t01=0x0080}
0x293c…2946 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001a, t01=0x00aa}
0x2946…2950 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001a, t01=0x00b4}
0x2950…2964 Head {h00=0x0010, h01=0x0050, text=»DCWRTE EQU *«, t00=0x001a, t01=0x00be}
0x2964…297a Head {h00=0x0012, h01=0x0050, text=» LDKL A8,ECBDC«, t00=0x001a, t01=0x00d2}
0x297a…298e Head {h00=0x0010, h01=0x0050, text=» IFT DCLIN=2«, t00=0x001a, t01=0x00e8}
0x298e…29a8 Head {h00=0x0016, h01=0x0050, text=» LD A7,MAIN,TCABAS«, t00=0x001a, t01=0x00fc}
0x29a8…29bc Head {h00=0x0010, h01=0x0050, text=» RF(Z) DC050«, t00=0x001a, t01=0x0116}
0x29bc…29d4 Head {h00=0x0014, h01=0x0050, text=» LDKL A8,ECBDC2 «, t00=0x001a, t01=0x012a}
0x29d4…29e0 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x001a, t01=0x0142}
0x29e0…29f4 Head {h00=0x0010, h01=0x0050, text=»DC050 EQU * «, t00=0x001a, t01=0x014e}
0x29f4…2a0a Head {h00=0x0012, h01=0x0050, text=» ADR A8,CREBAS«, t00=0x001a, t01=0x0162}
0x2a0a…2a20 Head {h00=0x0012, h01=0x0050, text=» LDKL A1,TIMDC«, t00=0x001a, t01=0x0178}
0x2a20…2a36 Head {h00=0x0012, h01=0x0050, text=» CF A14,REQTIM«, t00=0x001a, t01=0x018e}
0x2a36…2a58 Head {h00=0x001e, h01=0x0050, text=» ST A9,ECBRL,A8 REQ LENGTH«, t00=0x001b, t01=0x0014}
0x2a58…2a80 Head {h00=0x0024, h01=0x0050, text=» ST A12,ECBBA,A8 BUFFER ADDRESS «, t00=0x001b, t01=0x0036}
0x2a80…2a9c Head {h00=0x0018, h01=0x0050, text=» LD A7,KBINH,TCABAS «, t00=0x001b, t01=0x005e}
0x2a9c…2ad8 Head {h00=0x0038, h01=0x0050, text=» ORK A7,2 BIT 14 :=1 DISABLE KEYBOARD.RESET ALLOWED «, t00=0x001b, t01=0x007a}
0x2ad8…2af4 Head {h00=0x0018, h01=0x0050, text=» ST A7,KBINH,TCABAS «, t00=0x001b, t01=0x00b6}
0x2af4…2b08 Head {h00=0x0010, h01=0x0050, text=» LDK A7,/86 «, t00=0x001b, t01=0x00d2}
0x2b08…2b1c Head {h00=0x0010, h01=0x0050, text=»DC100 EQU * «, t00=0x001b, t01=0x00e6}
0x2b1c…2b28 Head {h00=0x0008, h01=0x0050, text=» LKM«, t00=0x001b, t01=0x00fa}
0x2b28…2b38 Head {h00=0x000c, h01=0x0050, text=» DATA 1 «, t00=0x001b, t01=0x0106}
0x2b38…2b4c Head {h00=0x0010, h01=0x0050, text=»DC200 EQU * «, t00=0x001b, t01=0x0116}
0x2b4c…2b60 Head {h00=0x0010, h01=0x0050, text=» LDR A4,A12 «, t00=0x001b, t01=0x012a}
0x2b60…2b76 Head {h00=0x0012, h01=0x0050, text=» CF A14,RLWBUF«, t00=0x001b, t01=0x013e}
0x2b76…2b9e Head {h00=0x0024, h01=0x0050, text=» LD A1,ECBRC,A8 GET RETURN CODE «, t00=0x001b, t01=0x0154}
0x2b9e…2bb2 Head {h00=0x0010, h01=0x0050, text=» RF(Z) DC300«, t00=0x001b, t01=0x017c}
0x2bb2…2bce Head {h00=0x0018, h01=0x0050, text=» LD A7,KBINH,TCABAS «, t00=0x001b, t01=0x0190}
0x2bce…2bfa Head {h00=0x0028, h01=0x0050, text=» ANK A7,/D BIT 14:=0 ALLIWE KEYBOARD«, t00=0x001c, t01=0x001c}
0x2bfa…2c16 Head {h00=0x0018, h01=0x0050, text=» ST A7,KBINH,TCABAS «, t00=0x001c, t01=0x0048}
0x2c16…2c48 Head {h00=0x002e, h01=0x0050, text=» CF A14,LINHOF TURN OFF "KEYBOARD INHIBIT «, t00=0x001c, t01=0x0064}
0x2c48…2c7a Head {h00=0x002e, h01=0x0050, text=» CF A14,LSAVOF TURN OFF "SYSTEM AVAILABLE"«, t00=0x001c, t01=0x0096}
0x2c7a…2c84 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001c, t01=0x00c8}
0x2c84…2cb2 Head {h00=0x002a, h01=0x0050, text=» LDK A7,/04 RESET KEYBOARD ECB BUFFER «, t00=0x001c, t01=0x00d2}
0x2cb2…2cc8 Head {h00=0x0012, h01=0x0050, text=» LDKL A8,ECBKB«, t00=0x001c, t01=0x0100}
0x2cc8…2cde Head {h00=0x0012, h01=0x0050, text=» ADR A8,CREBAS«, t00=0x001c, t01=0x0116}
0x2cde…2cea Head {h00=0x0008, h01=0x0050, text=» LKM«, t00=0x001c, t01=0x012c}
0x2cea…2cfa Head {h00=0x000c, h01=0x0050, text=» DATA 1 «, t00=0x001c, t01=0x0138}
0x2cfa…2d04 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001c, t01=0x0148}
0x2d04…2d14 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x001c, t01=0x0152}
0x2d14…2d28 Head {h00=0x0010, h01=0x0050, text=»DC300 EQU * «, t00=0x001c, t01=0x0162}
0x2d28…2d5a Head {h00=0x002e, h01=0x0050, text=» CF A14,LSAVON TURN ON 'SYSTEM AVAILABLE' «, t00=0x001c, t01=0x0176}
0x2d5a…2d6a Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x001d, t01=0x0018}
0x2d6a…2d78 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x001d, t01=0x0028}
0x2d78…2d82 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001d, t01=0x0036}
0x2d82…2d8c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001d, t01=0x0040}
0x2d8c…2db8 Head {h00=0x0028, h01=0x0050, text=»* STORE CURSOR ADDRESS IN DC BUFFER «, t00=0x001d, t01=0x004a}
0x2db8…2dc2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001d, t01=0x0076}
0x2dc2…2dcc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001d, t01=0x0080}
0x2dcc…2dec Head {h00=0x001c, h01=0x0050, text=»CURSA LD A1,PCURS,TCABAS«, t00=0x001d, t01=0x008a}
0x2dec…2dfe Head {h00=0x000e, h01=0x0050, text=» RF BUFADR«, t00=0x001d, t01=0x00aa}
0x2dfe…2e08 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001d, t01=0x00bc}
0x2e08…2e12 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001d, t01=0x00c6}
0x2e12…2e3e Head {h00=0x0028, h01=0x0050, text=»* STORE BUFFER ADDRESS IN DC BUFFER «, t00=0x001d, t01=0x00d0}
0x2e3e…2e48 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001d, t01=0x00fc}
0x2e48…2e6a Head {h00=0x001e, h01=0x0050, text=»* A1=BINARY BUFFER ADDRESS«, t00=0x001d, t01=0x0106}
0x2e6a…2e74 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001d, t01=0x0128}
0x2e74…2e7e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001d, t01=0x0132}
0x2e7e…2e96 Head {h00=0x0014, h01=0x0050, text=»BUFADR LDR A2,A1«, t00=0x001d, t01=0x013c}
0x2e96…2ea8 Head {h00=0x000e, h01=0x0050, text=» SRL A2,6 «, t00=0x001d, t01=0x0154}
0x2ea8…2ebc Head {h00=0x0010, h01=0x0050, text=» ANK A2,/3F «, t00=0x001d, t01=0x0166}
0x2ebc…2ee6 Head {h00=0x0026, h01=0x0050, text=» LC A2,TASCII,A2 CONVERT TO ASCII «, t00=0x001d, t01=0x017a}
0x2ee6…2efc Head {h00=0x0012, h01=0x0050, text=» CF A14,PDCCH «, t00=0x001e, t01=0x0014}
0x2efc…2f0e Head {h00=0x000e, h01=0x0050, text=» LDR A2,A1«, t00=0x001e, t01=0x002a}
0x2f0e…2f22 Head {h00=0x0010, h01=0x0050, text=» ANK A2,/3F «, t00=0x001e, t01=0x003c}
0x2f22…2f3a Head {h00=0x0014, h01=0x0050, text=» LC A2,TASCII,A2«, t00=0x001e, t01=0x0050}
0x2f3a…2f50 Head {h00=0x0012, h01=0x0050, text=» CF A14,PDCCH «, t00=0x001e, t01=0x0068}
0x2f50…2f60 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x001e, t01=0x007e}
0x2f60…2f6e Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x001e, t01=0x008e}
0x2f6e…2f78 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001e, t01=0x009c}
0x2f78…2f82 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001e, t01=0x00a6}
0x2f82…2fb8 Head {h00=0x0032, h01=0x0050, text=»* GET MODIFIED DATA FROM DISPLAY IMAGE BUFFER «, t00=0x001e, t01=0x00b0}
0x2fb8…2fc2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001e, t01=0x00e6}
0x2fc2…2fe6 Head {h00=0x0020, h01=0x0050, text=»* A3=BUFFER POSITION BINARY «, t00=0x001e, t01=0x00f0}
0x2fe6…3002 Head {h00=0x0018, h01=0x0050, text=»* A4=BUFFER POINTER «, t00=0x001e, t01=0x0114}
0x3002…300c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001e, t01=0x0130}
0x300c…3016 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001e, t01=0x013a}
0x3016…303c Head {h00=0x0022, h01=0x0050, text=»RDMOD LDK A3,0 RESET POSITION «, t00=0x001e, t01=0x0144}
0x303c…3052 Head {h00=0x0012, h01=0x0050, text=» LDKL A4,BVDU «, t00=0x001e, t01=0x016a}
0x3052…3078 Head {h00=0x0022, h01=0x0050, text=» ADR A4,TCABAS BUFFER POINTER «, t00=0x001e, t01=0x0180}
0x3078…30bc Head {h00=0x0040, h01=0x0050, text=»************************************************************«, t00=0x001f, t01=0x0016}
0x30bc…30e6 Head {h00=0x0026, h01=0x0050, text=» ADKL A4,1919 LAST SCREEN POSITION«, t00=0x001f, t01=0x005a}
0x30e6…3106 Head {h00=0x001c, h01=0x0050, text=» LCR A2,A4 GET CHARACTER«, t00=0x001f, t01=0x0084}
0x3106…3138 Head {h00=0x002e, h01=0x0050, text=» LDKL A4,BVDU RELOAD FIRST BUFFER POSITION«, t00=0x001f, t01=0x00a4}
0x3138…314e Head {h00=0x0012, h01=0x0050, text=» ADR A4,TCABAS«, t00=0x001f, t01=0x00d6}
0x314e…3156 Head {h00=0x0004, h01=0x0050, t00=0x001f, t01=0x00ec}
0x3156…3168 Head {h00=0x000e, h01=0x0050, text=» LDR A1,A2«, t00=0x001f, t01=0x00f4}
0x3168…318a Head {h00=0x001e, h01=0x0050, text=» ANK A1,/60 ATTRIBUTE ??? «, t00=0x001f, t01=0x0106}
0x318a…31a6 Head {h00=0x0018, h01=0x0050, text=» RF(Z) RD200 YES!!! «, t00=0x001f, t01=0x0128}
0x31a6…31ae Head {h00=0x0004, h01=0x0050, t00=0x001f, t01=0x0144}
0x31ae…31f2 Head {h00=0x0040, h01=0x0050, text=»************************************************************«, t00=0x001f, t01=0x014c}
0x31f2…320c Head {h00=0x0016, h01=0x0050, text=»RD100 CWK A3,LBVDU«, t00=0x001f, t01=0x0190}
0x320c…3230 Head {h00=0x0020, h01=0x0050, text=» RF(NL) RDMODE ALL EXAMINED «, t00=0x0020, t01=0x001a}
0x3230…324c Head {h00=0x0018, h01=0x0050, text=» LCR A2,A4 GET CHAR «, t00=0x0020, t01=0x003e}
0x324c…325e Head {h00=0x000e, h01=0x0050, text=» ADK A3,1 «, t00=0x0020, t01=0x005a}
0x325e…3270 Head {h00=0x000e, h01=0x0050, text=» ADK A4,1 «, t00=0x0020, t01=0x006c}
0x3270…32b4 Head {h00=0x0040, h01=0x0050, text=»************************************************************«, t00=0x0020, t01=0x007e}
0x32b4…32c8 Head {h00=0x0010, h01=0x0050, text=»RD105 EQU * «, t00=0x0020, t01=0x00c2}
0x32c8…330c Head {h00=0x0040, h01=0x0050, text=»************************************************************«, t00=0x0020, t01=0x00d6}
0x330c…331e Head {h00=0x000e, h01=0x0050, text=» LDR A1,A2«, t00=0x0020, t01=0x011a}
0x331e…3332 Head {h00=0x0010, h01=0x0050, text=» ANK A1,/60 «, t00=0x0020, t01=0x012c}
0x3332…3356 Head {h00=0x0020, h01=0x0050, text=» RF(Z) RD200 ATTRIBUTE CHAR «, t00=0x0020, t01=0x0140}
0x3356…3370 Head {h00=0x0016, h01=0x0050, text=»RD110 CWK A2,NULL «, t00=0x0020, t01=0x0164}
0x3370…3396 Head {h00=0x0022, h01=0x0050, text=» RB(E) RD100 DON'T STORE NULL «, t00=0x0020, t01=0x017e}
0x3396…33c4 Head {h00=0x002a, h01=0x0050, text=» CF A14,PDCCH STORE CHAR IN DC BUFFER «, t00=0x0021, t01=0x0014}
0x33c4…33d6 Head {h00=0x000e, h01=0x0050, text=» RB RD100 «, t00=0x0021, t01=0x0042}
0x33d6…33fa Head {h00=0x0020, h01=0x0050, text=»RD200 ANK A2,1 CHECK MDT BIT«, t00=0x0021, t01=0x0054}
0x33fa…341e Head {h00=0x0020, h01=0x0050, text=» RF(NZ) RD300 MODIFIED FIELD«, t00=0x0021, t01=0x0078}
0x341e…3438 Head {h00=0x0016, h01=0x0050, text=»RD210 CWK A3,LBVDU«, t00=0x0021, t01=0x009c}
0x3438…345c Head {h00=0x0020, h01=0x0050, text=» RF(NL) RDMODE ALL EXAMINED «, t00=0x0021, t01=0x00b6}
0x345c…346e Head {h00=0x000e, h01=0x0050, text=» LCR A2,A4«, t00=0x0021, t01=0x00da}
0x346e…3480 Head {h00=0x000e, h01=0x0050, text=» ADK A3,1 «, t00=0x0021, t01=0x00ec}
0x3480…3492 Head {h00=0x000e, h01=0x0050, text=» ADK A4,1 «, t00=0x0021, t01=0x00fe}
0x3492…34a4 Head {h00=0x000e, h01=0x0050, text=» LDR A1,A2«, t00=0x0021, t01=0x0110}
0x34a4…34b8 Head {h00=0x0010, h01=0x0050, text=» ANK A1,/60 «, t00=0x0021, t01=0x0122}
0x34b8…34e0 Head {h00=0x0024, h01=0x0050, text=» RB(NZ) RD210 NO ATTRIBUTE CHAR «, t00=0x0021, t01=0x0136}
0x34e0…352a Head {h00=0x0046, h01=0x0050, text=»******************************************************** 78-05-11«, t00=0x0021, t01=0x015e}
0x352a…3558 Head {h00=0x002a, h01=0x0050, text=» CWK A3,LBVDU ALL BUFFER EXAMINED ??? «, t00=0x0022, t01=0x0018}
0x3558…3574 Head {h00=0x0018, h01=0x0050, text=» RF(NL) RDMODE YES!!«, t00=0x0022, t01=0x0046}
0x3574…35be Head {h00=0x0046, h01=0x0050, text=»******************************************************** 78-05-11«, t00=0x0022, t01=0x0062}
0x35be…35e0 Head {h00=0x001e, h01=0x0050, text=» RB RD200 ATTRIBUTE FOUND «, t00=0x0022, t01=0x00ac}
0x35e0…35f8 Head {h00=0x0014, h01=0x0050, text=»RD300 LDK A2,SBA«, t00=0x0022, t01=0x00ce}
0x35f8…361e Head {h00=0x0022, h01=0x0050, text=» CF A14,PDCCH SBA TO DC BUFFER«, t00=0x0022, t01=0x00e6}
0x361e…3640 Head {h00=0x001e, h01=0x0050, text=» LDR A1,A3 BUFFER POSITION«, t00=0x0022, t01=0x010c}
0x3640…3664 Head {h00=0x0020, h01=0x0050, text=» CF A14,BUFADR TO DC BUFFER «, t00=0x0022, t01=0x012e}
0x3664…3676 Head {h00=0x000e, h01=0x0050, text=» RB RD100 «, t00=0x0022, t01=0x0152}
0x3676…368c Head {h00=0x0012, h01=0x0050, text=»RDMODE RTN A14«, t00=0x0022, t01=0x0164}
0x368c…369a Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0022, t01=0x017a}
0x369a…36a4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0022, t01=0x0188}
0x36a4…36ae (35, 0, 400) Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0023, t01=0x0004}
0x36ae…36e6 Head {h00=0x0034, h01=0x0050, text=»* UPDATE VIDEO DISPLAY BUFFER IMAGE BY THE DATA «, t00=0x0023, t01=0x000e}
0x36e6…36f0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0023, t01=0x0046}
0x36f0…3714 Head {h00=0x0020, h01=0x0050, text=»* RECEIVED FROM THE DC LINE «, t00=0x0023, t01=0x0050}
0x3714…371e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0023, t01=0x0074}
0x371e…3728 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0023, t01=0x007e}
0x3728…374e Head {h00=0x0022, h01=0x0050, text=»* A7=DC RECEIVE BUFFER POINTER«, t00=0x0023, t01=0x0088}
0x374e…376a Head {h00=0x0018, h01=0x0050, text=»* A8=DC ECB ADDRESS «, t00=0x0023, t01=0x00ae}
0x376a…3796 Head {h00=0x0028, h01=0x0050, text=»* A9=DC BUFFER INDEX, INITIALLY ZERO«, t00=0x0023, t01=0x00ca}
0x3796…37a0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0023, t01=0x00f6}
0x37a0…37c4 Head {h00=0x0020, h01=0x0050, text=»* A3=DISPLAY BUFFER POSITION«, t00=0x0023, t01=0x0100}
0x37c4…37e8 Head {h00=0x0020, h01=0x0050, text=»* A4=DISPLAY BUFFER POINTER «, t00=0x0023, t01=0x0124}
0x37e8…37f2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0023, t01=0x0148}
0x37f2…37fc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0023, t01=0x0152}
0x37fc…3810 Head {h00=0x0010, h01=0x0050, text=»UPDATE EQU *«, t00=0x0023, t01=0x015c}
0x3810…382a Head {h00=0x0016, h01=0x0050, text=» CM ICWORK,TCABAS «, t00=0x0023, t01=0x0170}
0x382a…3846 Head {h00=0x0018, h01=0x0050, text=» LD A8,ECBDCC,TCABAS«, t00=0x0023, t01=0x018a}
0x3846…3870 Head {h00=0x0026, h01=0x0050, text=» LD A7,ECBBA,A8 DC BUFFER ADDRESS «, t00=0x0024, t01=0x0016}
0x3870…3898 Head {h00=0x0024, h01=0x0050, text=» SUR A9,A9 RESET DC BUFFER INDEX«, t00=0x0024, t01=0x0040}
0x3898…38cc Head {h00=0x0030, h01=0x0050, text=» CF A14,GDCCH GET FIRST CHAR FROM DC BUFFER «, t00=0x0024, t01=0x0068}
0x38cc…38f0 Head {h00=0x0020, h01=0x0050, text=» CWK A2,ESC SHOULD BE ESCAPE«, t00=0x0024, t01=0x009c}
0x38f0…3912 Head {h00=0x001e, h01=0x0050, text=» RF(NE) UPDEND NOT ESCAPE «, t00=0x0024, t01=0x00c0}
0x3912…3938 Head {h00=0x0022, h01=0x0050, text=» CF A14,GDCCH GET COMMAND CODE«, t00=0x0024, t01=0x00e2}
0x3938…394c Head {h00=0x0010, h01=0x0050, text=» CWK A2,/31 «, t00=0x0024, t01=0x0108}
0x394c…3968 Head {h00=0x0018, h01=0x0050, text=» RF(E) UPD100 WRITE «, t00=0x0024, t01=0x011c}
0x3968…397c Head {h00=0x0010, h01=0x0050, text=» CWK A2,/35 «, t00=0x0024, t01=0x0138}
0x397c…399e Head {h00=0x001e, h01=0x0050, text=» RF(E) UPD120 ERASE/WRITE «, t00=0x0024, t01=0x014c}
0x399e…39b2 Head {h00=0x0010, h01=0x0050, text=» CWK A2,/3F «, t00=0x0024, t01=0x016e}
0x39b2…39de Head {h00=0x0028, h01=0x0050, text=» RF(E) UPD140 ERASE ALL UNPROTECTED «, t00=0x0024, t01=0x0182}
0x39de…39f4 Head {h00=0x0012, h01=0x0050, text=» IFT COPCMD=1 «, t00=0x0025, t01=0x001e}
0x39f4…3a08 Head {h00=0x0010, h01=0x0050, text=» CWK A2,/37 «, t00=0x0025, t01=0x0034}
0x3a08…3a2c Head {h00=0x0020, h01=0x0050, text=» ABL(E) UPD600 COPY COMMAND «, t00=0x0025, t01=0x0048}
0x3a2c…3a38 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0025, t01=0x006c}
0x3a38…3a60 Head {h00=0x0024, h01=0x0050, text=» RF UPDEND INVALID COMMAND CODE «, t00=0x0025, t01=0x0078}
0x3a60…3a6e Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0025, t01=0x00a0}
0x3a6e…3a78 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0025, t01=0x00ae}
0x3a78…3a90 Head {h00=0x0014, h01=0x0050, text=»* WRITE COMMAND «, t00=0x0025, t01=0x00b8}
0x3a90…3a9a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0025, t01=0x00d0}
0x3a9a…3aae Head {h00=0x0010, h01=0x0050, text=»UPD100 EQU *«, t00=0x0025, t01=0x00da}
0x3aae…3ada Head {h00=0x0028, h01=0x0050, text=» CF A14,PWCC PROCESS WCC FOR MDT BIT«, t00=0x0025, t01=0x00ee}
0x3ada…3af6 Head {h00=0x0018, h01=0x0050, text=» LD A3,PCURS,TCABAS «, t00=0x0025, t01=0x011a}
0x3af6…3b22 Head {h00=0x0028, h01=0x0050, text=» LDR A4,A3 START IN CURSOR POSITION «, t00=0x0025, t01=0x0136}
0x3b22…3b38 Head {h00=0x0012, h01=0x0050, text=» ADKL A4,BVDU «, t00=0x0025, t01=0x0162}
0x3b38…3b4e Head {h00=0x0012, h01=0x0050, text=» ADR A4,TCABAS«, t00=0x0025, t01=0x0178}
0x3b4e…3b76 Head {h00=0x0024, h01=0x0050, text=» LDK A5,1 INDICATE WCC, IC OR RA«, t00=0x0025, t01=0x018e}
0x3b76…3b88 Head {h00=0x000e, h01=0x0050, text=» RF UPD220«, t00=0x0026, t01=0x0026}
0x3b88…3b92 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0026, t01=0x0038}
0x3b92…3bb0 Head {h00=0x001a, h01=0x0050, text=»* ERASE/WRITE COMMAND «, t00=0x0026, t01=0x0042}
0x3bb0…3bba Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0026, t01=0x0060}
0x3bba…3bce Head {h00=0x0010, h01=0x0050, text=»UPD120 EQU *«, t00=0x0026, t01=0x006a}
0x3bce…3bf0 Head {h00=0x001e, h01=0x0050, text=» CF A14,ERASE ERASE SCREEN«, t00=0x0026, t01=0x007e}
0x3bf0…3c02 Head {h00=0x000e, h01=0x0050, text=» RF UPD200«, t00=0x0026, t01=0x00a0}
0x3c02…3c0c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0026, t01=0x00b2}
0x3c0c…3c2c Head {h00=0x001c, h01=0x0050, text=»* ERASE ALL UNPROTECTED «, t00=0x0026, t01=0x00bc}
0x3c2c…3c36 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0026, t01=0x00dc}
0x3c36…3c4a Head {h00=0x0010, h01=0x0050, text=»UPD140 EQU *«, t00=0x0026, t01=0x00e6}
0x3c4a…3c76 Head {h00=0x0028, h01=0x0050, text=» CF A14,ERASUP ERASE ALL UNPROTECTED«, t00=0x0026, t01=0x00fa}
0x3c76…3ca2 Head {h00=0x0028, h01=0x0050, text=» RF UPDEND NO TEXT WITH THIS COMMAND«, t00=0x0026, t01=0x0126}
0x3ca2…3cac Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0026, t01=0x0152}
0x3cac…3cde Head {h00=0x002e, h01=0x0050, text=»* TAKE CARE OF WRITE CONTROL CHARACTER WCC«, t00=0x0026, t01=0x015c}
0x3cde…3ce8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0026, t01=0x018e}
0x3ce8…3d0e Head {h00=0x0022, h01=0x0050, text=»UPD200 CF A14,PWCC PROCESS WCC«, t00=0x0027, t01=0x0008}
0x3d0e…3d36 Head {h00=0x0024, h01=0x0050, text=» LDK A5,1 INDICATE WCC, IC OR RA«, t00=0x0027, t01=0x002e}
0x3d36…3d44 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0027, t01=0x0056}
0x3d44…3d4e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0027, t01=0x0064}
0x3d4e…3d58 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0027, t01=0x006e}
0x3d58…3d7e Head {h00=0x0022, h01=0x0050, text=»* PROCESS DATA FROM DC BUFFER «, t00=0x0027, t01=0x0078}
0x3d7e…3d88 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0027, t01=0x009e}
0x3d88…3d92 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0027, t01=0x00a8}
0x3d92…3dc2 Head {h00=0x002c, h01=0x0050, text=»UPD210 LDK A3,0 START FROM POSITION ZERO«, t00=0x0027, t01=0x00b2}
0x3dc2…3dd8 Head {h00=0x0012, h01=0x0050, text=» LDKL A4,BVDU «, t00=0x0027, t01=0x00e2}
0x3dd8…3dee Head {h00=0x0012, h01=0x0050, text=» ADR A4,TCABAS«, t00=0x0027, t01=0x00f8}
0x3dee…3e10 Head {h00=0x001e, h01=0x0050, text=»UPD220 CW A9,DCLENG,TCABAS«, t00=0x0027, t01=0x010e}
0x3e10…3e44 Head {h00=0x0030, h01=0x0050, text=» RF(NL) UPDEND ALL RECEIVED CHARS PROCESSED «, t00=0x0027, t01=0x0130}
0x3e44…3e72 Head {h00=0x002a, h01=0x0050, text=» CF A14,GDCCH GET CHAR FROM DC BUFFER «, t00=0x0027, t01=0x0164}
0x3e72…3e86 (40, 0, 400) Head {h00=0x0010, h01=0x0050, text=» CWK A2,/20 «, t00=0x0028, t01=0x0004}
0x3e86…3ea2 Head {h00=0x0018, h01=0x0050, text=» RF(L) UPD300 ORDER «, t00=0x0028, t01=0x0018}
0x3ea2…3eb6 Head {h00=0x0010, h01=0x0050, text=»UPD230 EQU *«, t00=0x0028, t01=0x0034}
0x3eb6…3eda Head {h00=0x0020, h01=0x0050, text=» ORK A2,/80 SET DISPLAY BIT «, t00=0x0028, t01=0x0048}
0x3eda…3eee Head {h00=0x0010, h01=0x0050, text=»UPD240 EQU *«, t00=0x0028, t01=0x006c}
0x3eee…3f1a Head {h00=0x0028, h01=0x0050, text=» LDK A5,0 INDICATE NOT WCC, IC OR RA«, t00=0x0028, t01=0x0080}
0x3f1a…3f30 Head {h00=0x0012, h01=0x0050, text=» CWK A3,LBVDU «, t00=0x0028, t01=0x00ac}
0x3f30…3f5a Head {h00=0x0026, h01=0x0050, text=» RF(E) UPD260 END OF VIDEO BUFFER «, t00=0x0028, t01=0x00c2}
0x3f5a…3f6e Head {h00=0x0010, h01=0x0050, text=»UPD250 EQU *«, t00=0x0028, t01=0x00ec}
0x3f6e…3f96 Head {h00=0x0024, h01=0x0050, text=» SCR A2,A4 STORE IN VIDEO BUFFER«, t00=0x0028, t01=0x0100}
0x3f96…3fa8 Head {h00=0x000e, h01=0x0050, text=» ADK A3,1 «, t00=0x0028, t01=0x0128}
0x3fa8…3fba Head {h00=0x000e, h01=0x0050, text=» ADK A4,1 «, t00=0x0028, t01=0x013a}
0x3fba…3fcc Head {h00=0x000e, h01=0x0050, text=» RB UPD220«, t00=0x0028, t01=0x014c}
0x3fcc…3fe4 Head {h00=0x0014, h01=0x0050, text=»UPD260 LDK A3,0 «, t00=0x0028, t01=0x015e}
0x3fe4…3ffa Head {h00=0x0012, h01=0x0050, text=» LDKL A4,BVDU «, t00=0x0028, t01=0x0176}
0x3ffa…4010 Head {h00=0x0012, h01=0x0050, text=» ADR A4,TCABAS«, t00=0x0028, t01=0x018c}
0x4010…4022 Head {h00=0x000e, h01=0x0050, text=» RB UPD250«, t00=0x0029, t01=0x0012}
0x4022…4036 Head {h00=0x0010, h01=0x0050, text=»UPD300 EQU *«, t00=0x0029, t01=0x0024}
0x4036…4074 Head {h00=0x003a, h01=0x0050, text=»******************************************* 78-08-15 «, t00=0x0029, t01=0x0038}
0x4074…40a4 Head {h00=0x002c, h01=0x0050, text=» CWK A3,LBVDU END OF DISPLAY BUFFER ??? «, t00=0x0029, t01=0x0076}
0x40a4…40c0 Head {h00=0x0018, h01=0x0050, text=» RF(NE) UPD302 NO!!!«, t00=0x0029, t01=0x00a6}
0x40c0…40e8 Head {h00=0x0024, h01=0x0050, text=» SUR A3,A3 FIRST SCREEN POSITION«, t00=0x0029, t01=0x00c2}
0x40e8…40fe Head {h00=0x0012, h01=0x0050, text=» LDKL A4,BVDU «, t00=0x0029, t01=0x00ea}
0x40fe…4124 Head {h00=0x0022, h01=0x0050, text=» ADR A4,TCABAS BUFFER POSITION«, t00=0x0029, t01=0x0100}
0x4124…4138 Head {h00=0x0010, h01=0x0050, text=»UPD302 EQU *«, t00=0x0029, t01=0x0126}
0x4138…4176 Head {h00=0x003a, h01=0x0050, text=»******************************************* 78-08-15 «, t00=0x0029, t01=0x013a}
0x4176…418a Head {h00=0x0010, h01=0x0050, text=» CWK A2,/1D «, t00=0x0029, t01=0x0178}
0x418a…41ac Head {h00=0x001e, h01=0x0050, text=» RF(E) UPD320 START FIELD «, t00=0x0029, t01=0x018c}
0x41ac…41c0 Head {h00=0x0010, h01=0x0050, text=» CWK A2,/11 «, t00=0x002a, t01=0x001e}
0x41c0…41e8 Head {h00=0x0024, h01=0x0050, text=» RF(E) UPD340 SET BUFFER ADDRESS«, t00=0x002a, t01=0x0032}
0x41e8…41fc Head {h00=0x0010, h01=0x0050, text=» CWK A2,/13 «, t00=0x002a, t01=0x005a}
0x41fc…4220 Head {h00=0x0020, h01=0x0050, text=» RF(E) UPD360 INSERT CURSOR «, t00=0x002a, t01=0x006e}
0x4220…4234 Head {h00=0x0010, h01=0x0050, text=» CWK A2,/09 «, t00=0x002a, t01=0x0092}
0x4234…4256 Head {h00=0x001e, h01=0x0050, text=» RF(E) UPD400 PROGRAM TAB «, t00=0x002a, t01=0x00a6}
0x4256…426a Head {h00=0x0010, h01=0x0050, text=» CWK A2,/14 «, t00=0x002a, t01=0x00c8}
0x426a…4292 Head {h00=0x0024, h01=0x0050, text=» RF(E) UPD500 REPEAT TO ADDRESS «, t00=0x002a, t01=0x00dc}
0x4292…42a6 Head {h00=0x0010, h01=0x0050, text=» CWK A2,/12 «, t00=0x002a, t01=0x0104}
0x42a6…42d8 Head {h00=0x002e, h01=0x0050, text=» RF(E) UPD540 ERASE UNPROTECTED TO ADDRESS«, t00=0x002a, t01=0x0118}
0x42d8…42ec Head {h00=0x0010, h01=0x0050, text=» CWK A2,/0C «, t00=0x002a, t01=0x014a}
0x42ec…4302 Head {h00=0x0012, h01=0x0050, text=» RF(NE) UPD305«, t00=0x002a, t01=0x015e}
0x4302…4322 Head {h00=0x001c, h01=0x0050, text=» LDK A2,FORMFD FORM FEED«, t00=0x002a, t01=0x0174}
0x4322…4334 (43, 0, 400) Head {h00=0x000e, h01=0x0050, text=» RB UPD230«, t00=0x002b, t01=0x0004}
0x4334…434e Head {h00=0x0016, h01=0x0050, text=»UPD305 CWK A2,/19 «, t00=0x002b, t01=0x0016}
0x434e…4364 Head {h00=0x0012, h01=0x0050, text=» RF(NE) UPD310«, t00=0x002b, t01=0x0030}
0x4364…4386 Head {h00=0x001e, h01=0x0050, text=» LDK A2,ENDMES END MESSAGE«, t00=0x002b, t01=0x0046}
0x4386…4398 Head {h00=0x000e, h01=0x0050, text=» RB UPD230«, t00=0x002b, t01=0x0068}
0x4398…43ac Head {h00=0x0010, h01=0x0050, text=»UPD310 EQU *«, t00=0x002b, t01=0x007a}
0x43ac…43c0 Head {h00=0x0010, h01=0x0050, text=» CWK A2,/0A «, t00=0x002b, t01=0x008e}
0x43c0…43d6 Head {h00=0x0012, h01=0x0050, text=» RF(NE) UPD315«, t00=0x002b, t01=0x00a2}
0x43d6…43f6 Head {h00=0x001c, h01=0x0050, text=» LDK A2,NEWLIN NEW LINE «, t00=0x002b, t01=0x00b8}
0x43f6…4408 Head {h00=0x000e, h01=0x0050, text=» RB UPD230«, t00=0x002b, t01=0x00d8}
0x4408…441c Head {h00=0x0010, h01=0x0050, text=»UPD315 EQU *«, t00=0x002b, t01=0x00ea}
0x441c…4430 Head {h00=0x0010, h01=0x0050, text=» CWK A2,/18 «, t00=0x002b, t01=0x00fe}
0x4430…4454 Head {h00=0x0020, h01=0x0050, text=» RF(NE) UPD318 ILLEGAL ORDER«, t00=0x002b, t01=0x0112}
0x4454…4468 Head {h00=0x0010, h01=0x0050, text=» LDK A2,/30 «, t00=0x002b, t01=0x0136}
0x4468…447a Head {h00=0x000e, h01=0x0050, text=» RB UPD230«, t00=0x002b, t01=0x014a}
0x447a…4488 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x002b, t01=0x015c}
0x4488…4490 Head {h00=0x0004, h01=0x0050, t00=0x002b, t01=0x016a}
0x4490…44a4 Head {h00=0x0010, h01=0x0050, text=»UPD318 EQU *«, t00=0x002b, t01=0x0172}
0x44a4…44ca Head {h00=0x0022, h01=0x0050, text=» CWK A2,/00 NULL CHARACTER ???«, t00=0x002b, t01=0x0186}
0x44ca…44f4 Head {h00=0x0026, h01=0x0050, text=» RF(NE) UPDEND NO!! ILLEGAL ORDER«, t00=0x002c, t01=0x001c}
0x44f4…451a Head {h00=0x0022, h01=0x0050, text=» LDK A2,/7F PTS NULL CHARACTER«, t00=0x002c, t01=0x0046}
0x451a…452c Head {h00=0x000e, h01=0x0050, text=» RB UPD230«, t00=0x002c, t01=0x006c}
0x452c…4534 Head {h00=0x0004, h01=0x0050, t00=0x002c, t01=0x007e}
0x4534…4578 Head {h00=0x0040, h01=0x0050, text=»************************************************************«, t00=0x002c, t01=0x0086}
0x4578…4582 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002c, t01=0x00ca}
0x4582…45a4 Head {h00=0x001e, h01=0x0050, text=»* RELEASE RECEIVE BUFFER«, t00=0x002c, t01=0x00d4}
0x45a4…45ae Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002c, t01=0x00f6}
0x45ae…45dc Head {h00=0x002a, h01=0x0050, text=»************************************* «, t00=0x002c, t01=0x0100}
0x45dc…45e4 Head {h00=0x0004, h01=0x0050, t00=0x002c, t01=0x012e}
0x45e4…45f8 Head {h00=0x0010, h01=0x0050, text=»UPDEND EQU *«, t00=0x002c, t01=0x0136}
0x45f8…4614 Head {h00=0x0018, h01=0x0050, text=» LD A8,ECBDCC,TCABAS«, t00=0x002c, t01=0x014a}
0x4614…462c Head {h00=0x0014, h01=0x0050, text=» LD A4,ECBBA,A8 «, t00=0x002c, t01=0x0166}
0x462c…4642 Head {h00=0x0012, h01=0x0050, text=» CF A14,RLRBUF«, t00=0x002c, t01=0x017e}
0x4642…4652 (45, 0, 400) Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x002d, t01=0x0004}
0x4652…4660 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x002d, t01=0x0014}
0x4660…466a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002d, t01=0x0022}
0x466a…4674 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002d, t01=0x002c}
0x4674…4690 Head {h00=0x0018, h01=0x0050, text=»* START FIELD ORDER «, t00=0x002d, t01=0x0036}
0x4690…469a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002d, t01=0x0052}
0x469a…46c8 Head {h00=0x002a, h01=0x0050, text=»UPD320 CF A14,GDCCH GET ATTRIBUTE CHAR«, t00=0x002d, t01=0x005c}
0x46c8…46e0 Head {h00=0x0014, h01=0x0050, text=» LC A2,TEBCDI,A2«, t00=0x002d, t01=0x008a}
0x46e0…470e Head {h00=0x002a, h01=0x0050, text=» LDR A1,A2 COMPOSE PTS ATTRIBUTE CHAR «, t00=0x002d, t01=0x00a2}
0x470e…4720 Head {h00=0x000e, h01=0x0050, text=» ANK A1,1 «, t00=0x002d, t01=0x00d0}
0x4720…4732 Head {h00=0x000e, h01=0x0050, text=» SRL A2,1 «, t00=0x002d, t01=0x00e2}
0x4732…4746 Head {h00=0x0010, h01=0x0050, text=» ANK A2,/1E «, t00=0x002d, t01=0x00f4}
0x4746…4758 Head {h00=0x000e, h01=0x0050, text=» ORR A2,A1«, t00=0x002d, t01=0x0108}
0x4758…476a Head {h00=0x000e, h01=0x0050, text=» RB UPD240«, t00=0x002d, t01=0x011a}
0x476a…4774 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002d, t01=0x012c}
0x4774…4790 Head {h00=0x0018, h01=0x0050, text=»* SET BUFFER ADDRESS«, t00=0x002d, t01=0x0136}
0x4790…479a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002d, t01=0x0152}
0x479a…47c2 Head {h00=0x0024, h01=0x0050, text=»UPD340 CF A14,GETADR GET ADDRESS«, t00=0x002d, t01=0x015c}
0x47c2…47d8 Head {h00=0x0012, h01=0x0050, text=» CWK A1,LBVDU «, t00=0x002d, t01=0x0184}
0x47d8…47fe Head {h00=0x0022, h01=0x0050, text=» RB(NL) UPDEND INVALID ADDRESS«, t00=0x002e, t01=0x000a}
0x47fe…4810 Head {h00=0x000e, h01=0x0050, text=» LDR A3,A1«, t00=0x002e, t01=0x0030}
0x4810…4822 Head {h00=0x000e, h01=0x0050, text=» LDR A4,A3«, t00=0x002e, t01=0x0042}
0x4822…4838 Head {h00=0x0012, h01=0x0050, text=» ADKL A4,BVDU «, t00=0x002e, t01=0x0054}
0x4838…484e Head {h00=0x0012, h01=0x0050, text=» ADR A4,TCABAS«, t00=0x002e, t01=0x006a}
0x484e…4860 Head {h00=0x000e, h01=0x0050, text=» RB UPD220«, t00=0x002e, t01=0x0080}
0x4860…486a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002e, t01=0x0092}
0x486a…4882 Head {h00=0x0014, h01=0x0050, text=»* INSERT CURSOR «, t00=0x002e, t01=0x009c}
0x4882…488c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002e, t01=0x00b4}
0x488c…48c0 Head {h00=0x0030, h01=0x0050, text=»UPD360 ST A3,PCURS,TCABAS SET NEW CURSOR POS«, t00=0x002e, t01=0x00be}
0x48c0…48e8 Head {h00=0x0024, h01=0x0050, text=» LDK A5,1 INDICATE WCC, IC OR RA«, t00=0x002e, t01=0x00f2}
0x48e8…48fa Head {h00=0x000e, h01=0x0050, text=» RB UPD220«, t00=0x002e, t01=0x011a}
0x48fa…4908 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x002e, t01=0x012c}
0x4908…4912 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002e, t01=0x013a}
0x4912…4928 Head {h00=0x0012, h01=0x0050, text=»* PROGRAM TAB «, t00=0x002e, t01=0x0144}
0x4928…4932 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002e, t01=0x015a}
0x4932…494a Head {h00=0x0014, h01=0x0050, text=»UPD400 LDR A5,A5«, t00=0x002e, t01=0x0164}
0x494a…4978 Head {h00=0x002a, h01=0x0050, text=» RF(NZ) UPD430 PT AFTER WCC, IC OR RA «, t00=0x002e, t01=0x017c}
0x4978…49ac Head {h00=0x0030, h01=0x0050, text=» LDK A1,NULL+/80 FILL CURRENT FIELD BY NULLS«, t00=0x002f, t01=0x001a}
0x49ac…49c0 Head {h00=0x0010, h01=0x0050, text=»UPD410 EQU *«, t00=0x002f, t01=0x004e}
0x49c0…49d2 Head {h00=0x000e, h01=0x0050, text=» LDK A5,0 «, t00=0x002f, t01=0x0062}
0x49d2…49e8 Head {h00=0x0012, h01=0x0050, text=» CWK A3,LBVDU «, t00=0x002f, t01=0x0074}
0x49e8…4a0c Head {h00=0x0020, h01=0x0050, text=» RB(NL) UPD210 END OF BUFFER«, t00=0x002f, t01=0x008a}
0x4a0c…4a1e Head {h00=0x000e, h01=0x0050, text=» LCR A2,A4«, t00=0x002f, t01=0x00ae}
0x4a1e…4a30 Head {h00=0x000e, h01=0x0050, text=» ADK A3,1 «, t00=0x002f, t01=0x00c0}
0x4a30…4a44 Head {h00=0x0010, h01=0x0050, text=» ANK A2,/7F «, t00=0x002f, t01=0x00d2}
0x4a44…4a58 Head {h00=0x0010, h01=0x0050, text=» CWK A2,/20 «, t00=0x002f, t01=0x00e6}
0x4a58…4a6e Head {h00=0x0012, h01=0x0050, text=» RF(L) UPD415 «, t00=0x002f, t01=0x00fa}
0x4a6e…4a8c Head {h00=0x001a, h01=0x0050, text=» SCR A1,A4 STORE NULL «, t00=0x002f, t01=0x0110}
0x4a8c…4a9e Head {h00=0x000e, h01=0x0050, text=» ADK A4,1 «, t00=0x002f, t01=0x012e}
0x4a9e…4ab0 Head {h00=0x000e, h01=0x0050, text=» RB UPD410«, t00=0x002f, t01=0x0140}
0x4ab0…4ac4 Head {h00=0x0010, h01=0x0050, text=»UPD415 EQU *«, t00=0x002f, t01=0x0152}
0x4ac4…4ad6 Head {h00=0x000e, h01=0x0050, text=» ADK A4,1 «, t00=0x002f, t01=0x0166}
0x4ad6…4af0 Head {h00=0x0016, h01=0x0050, text=»UPD420 ANK A2,/10 «, t00=0x002f, t01=0x0178}
0x4af0…4b18 (48, 0, 400) Head {h00=0x0024, h01=0x0050, text=» RB(Z) UPD220 UNPROTECTED FIELD «, t00=0x0030, t01=0x0004}
0x4b18…4b2c Head {h00=0x0010, h01=0x0050, text=»UPD430 EQU *«, t00=0x0030, t01=0x002c}
0x4b2c…4b3e Head {h00=0x000e, h01=0x0050, text=» LDK A5,0 «, t00=0x0030, t01=0x0040}
0x4b3e…4b54 Head {h00=0x0012, h01=0x0050, text=» CWK A3,LBVDU «, t00=0x0030, t01=0x0052}
0x4b54…4b82 Head {h00=0x002a, h01=0x0050, text=» ABL(NL) UPD210 END OF DISPLAY BUFFER «, t00=0x0030, t01=0x0068}
0x4b82…4b94 Head {h00=0x000e, h01=0x0050, text=» LCR A2,A4«, t00=0x0030, t01=0x0096}
0x4b94…4ba6 Head {h00=0x000e, h01=0x0050, text=» ADK A3,1 «, t00=0x0030, t01=0x00a8}
0x4ba6…4bb8 Head {h00=0x000e, h01=0x0050, text=» ADK A4,1 «, t00=0x0030, t01=0x00ba}
0x4bb8…4bcc Head {h00=0x0010, h01=0x0050, text=» ANK A2,/7F «, t00=0x0030, t01=0x00cc}
0x4bcc…4be0 Head {h00=0x0010, h01=0x0050, text=» CWK A2,/20 «, t00=0x0030, t01=0x00e0}
0x4be0…4bf6 Head {h00=0x0012, h01=0x0050, text=» RB(L) UPD420 «, t00=0x0030, t01=0x00f4}
0x4bf6…4c08 Head {h00=0x000e, h01=0x0050, text=» RB UPD430«, t00=0x0030, t01=0x010a}
0x4c08…4c16 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0030, t01=0x011c}
0x4c16…4c20 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0030, t01=0x012a}
0x4c20…4c3c Head {h00=0x0018, h01=0x0050, text=»* REPEAT TO ADDRESS «, t00=0x0030, t01=0x0134}
0x4c3c…4c46 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0030, t01=0x0150}
0x4c46…4c72 Head {h00=0x0028, h01=0x0050, text=»UPD500 CF A14,GETADR GET END ADDRESS«, t00=0x0030, t01=0x015a}
0x4c72…4c88 Head {h00=0x0012, h01=0x0050, text=» CWK A1,LBVDU «, t00=0x0030, t01=0x0186}
0x4c88…4cae Head {h00=0x0022, h01=0x0050, text=» RB(NL) UPDEND INVALID ADDRESS«, t00=0x0031, t01=0x000c}
0x4cae…4cdc Head {h00=0x002a, h01=0x0050, text=» CF A14,GDCCH GET CHAR TO BE REPEATED «, t00=0x0031, t01=0x0032}
0x4cdc…4d04 Head {h00=0x0024, h01=0x0050, text=» LDK A5,1 INDICATE WCC, IC OR RA«, t00=0x0031, t01=0x0060}
0x4d04…4d2a Head {h00=0x0022, h01=0x0050, text=» ORK A2,/80 INDICATE MODIFIED «, t00=0x0031, t01=0x0088}
0x4d2a…4d32 Head {h00=0x0004, h01=0x0050, t00=0x0031, t01=0x00ae}
0x4d32…4d78 Head {h00=0x0042, h01=0x0050, text=»**************************************************** 78-07-02«, t00=0x0031, t01=0x00b6}
0x4d78…4d80 Head {h00=0x0004, h01=0x0050, t00=0x0031, t01=0x00fc}
0x4d80…4db6 Head {h00=0x0032, h01=0x0050, text=» CWR A3,A1 NULLS TO ALL SCREEN POSITIONS ???? «, t00=0x0031, t01=0x0104}
0x4db6…4dd2 Head {h00=0x0018, h01=0x0050, text=» RF(E) UPD530 YES!!!«, t00=0x0031, t01=0x013a}
0x4dd2…4dda Head {h00=0x0004, h01=0x0050, t00=0x0031, t01=0x0156}
0x4dda…4e22 Head {h00=0x0044, h01=0x0050, text=»***************************************************** 78-07-02 «, t00=0x0031, t01=0x015e}
0x4e22…4e2a Head {h00=0x0004, h01=0x0050, t00=0x0032, t01=0x0016}
0x4e2a…4e46 Head {h00=0x0018, h01=0x0050, text=»UPD510 CWK A3,LBVDU «, t00=0x0032, t01=0x001e}
0x4e46…4e6e Head {h00=0x0024, h01=0x0050, text=» RF(L) UPD520 NOT END OF SCREEN «, t00=0x0032, t01=0x003a}
0x4e6e…4e80 Head {h00=0x000e, h01=0x0050, text=» LDK A3,0 «, t00=0x0032, t01=0x0062}
0x4e80…4ea2 Head {h00=0x001e, h01=0x0050, text=» LDKL A4,BVDU WRAP AROUND «, t00=0x0032, t01=0x0074}
0x4ea2…4eb8 Head {h00=0x0012, h01=0x0050, text=» ADR A4,TCABAS«, t00=0x0032, t01=0x0096}
0x4eb8…4ed0 Head {h00=0x0014, h01=0x0050, text=»UPD520 CWR A3,A1«, t00=0x0032, t01=0x00ac}
0x4ed0…4ef8 Head {h00=0x0024, h01=0x0050, text=» ABL(E) UPD220 ALL CHAR REPEATED«, t00=0x0032, t01=0x00c4}
0x4ef8…4f00 Head {h00=0x0004, h01=0x0050, t00=0x0032, t01=0x00ec}
0x4f00…4f4a Head {h00=0x0046, h01=0x0050, text=»******************************************************* 78-07-02 «, t00=0x0032, t01=0x00f4}
0x4f4a…4f5e Head {h00=0x0010, h01=0x0050, text=»UPD530 EQU *«, t00=0x0032, t01=0x013e}
0x4f5e…4fa6 Head {h00=0x0044, h01=0x0050, text=»***************************************************** 78-07-02 «, t00=0x0032, t01=0x0152}
0x4fa6…4fae Head {h00=0x0004, h01=0x0050, t00=0x0033, t01=0x000a}
0x4fae…4fc0 Head {h00=0x000e, h01=0x0050, text=» SCR A2,A4«, t00=0x0033, t01=0x0012}
0x4fc0…4fd2 Head {h00=0x000e, h01=0x0050, text=» ADK A3,1 «, t00=0x0033, t01=0x0024}
0x4fd2…4fe4 Head {h00=0x000e, h01=0x0050, text=» ADK A4,1 «, t00=0x0033, t01=0x0036}
0x4fe4…5004 Head {h00=0x001c, h01=0x0050, text=» RB UPD510 NEXT POSITION«, t00=0x0033, t01=0x0048}
0x5004…500e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0033, t01=0x0068}
0x500e…5034 Head {h00=0x0022, h01=0x0050, text=»* ERASE UNPROTECTED TO ADDRESS«, t00=0x0033, t01=0x0072}
0x5034…503e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0033, t01=0x0098}
0x503e…506a Head {h00=0x0028, h01=0x0050, text=»UPD540 CF A14,GETADR GET END ADDRESS«, t00=0x0033, t01=0x00a2}
0x506a…5080 Head {h00=0x0012, h01=0x0050, text=» CWK A3,LBVDU «, t00=0x0033, t01=0x00ce}
0x5080…50a6 Head {h00=0x0022, h01=0x0050, text=» RB(NL) UPDEND INVALID ADDRESS«, t00=0x0033, t01=0x00e4}
0x50a6…50da Head {h00=0x0030, h01=0x0050, text=» CF A14,ERASUA ERASE UNPROTECTED TO ADDRESS «, t00=0x0033, t01=0x010a}
0x50da…50ee Head {h00=0x0010, h01=0x0050, text=» ABL UPD220 «, t00=0x0033, t01=0x013e}
0x50ee…5104 Head {h00=0x0012, h01=0x0050, text=» IFT COPCMD=1 «, t00=0x0033, t01=0x0152}
0x5104…5112 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0033, t01=0x0168}
0x5112…511c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0033, t01=0x0176}
0x511c…5132 Head {h00=0x0012, h01=0x0050, text=»* COPY COMMAND«, t00=0x0033, t01=0x0180}
0x5132…513c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0034, t01=0x0008}
0x513c…5150 Head {h00=0x0010, h01=0x0050, text=»UPD600 EQU *«, t00=0x0034, t01=0x0012}
0x5150…516e Head {h00=0x001a, h01=0x0050, text=» LD A1,PRINTER,TCABAS «, t00=0x0034, t01=0x0026}
0x516e…51a6 Head {h00=0x0034, h01=0x0050, text=» ABL(Z) UPDEND COPYCOMMAND NOT SUPPORTED FOR VDU«, t00=0x0034, t01=0x0044}
0x51a6…51b8 Head {h00=0x000e, h01=0x0050, text=» ADK A7,1 «, t00=0x0034, t01=0x007c}
0x51b8…51ce Head {h00=0x0012, h01=0x0050, text=» BYPASS CCC «, t00=0x0034, t01=0x008e}
0x51ce…51f4 Head {h00=0x0022, h01=0x0050, text=» CF A14,GDCCH GET FROM DEVICE «, t00=0x0034, t01=0x00a4}
0x51f4…520a Head {h00=0x0012, h01=0x0050, text=» IFT EBCDIC=1 «, t00=0x0034, t01=0x00ca}
0x520a…5234 Head {h00=0x0026, h01=0x0050, text=» LC A2,TEBCDI,A2 CONVERT TO EBCDIC«, t00=0x0034, t01=0x00e0}
0x5234…5240 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0034, t01=0x010a}
0x5240…5256 Head {h00=0x0012, h01=0x0050, text=» IFT COPCMD=1 «, t00=0x0034, t01=0x0116}
0x5256…527c Head {h00=0x0022, h01=0x0050, text=» LD A3,6,CREBAS 'CB1' ADDRESS «, t00=0x0034, t01=0x012c}
0x527c…5294 Head {h00=0x0014, h01=0x0050, text=» LDK A4,MF1KBV-1«, t00=0x0034, t01=0x0152}
0x5294…52a8 Head {h00=0x0010, h01=0x0050, text=» IFT DCLIN=2«, t00=0x0034, t01=0x016a}
0x52a8…52c8 Head {h00=0x001c, h01=0x0050, text=» LD A1,ECBBLK+DC2,TCABAS«, t00=0x0034, t01=0x017e}
0x52c8…52de Head {h00=0x0012, h01=0x0050, text=» RF(NZ) UPD602«, t00=0x0035, t01=0x000e}
0x52de…5302 Head {h00=0x0020, h01=0x0050, text=» LDK A4,MF2KBV-1 MF # 2 READ«, t00=0x0035, t01=0x0024}
0x5302…530e Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0035, t01=0x0048}
0x530e…5324 Head {h00=0x0012, h01=0x0050, text=» IFT COPCMD=1 «, t00=0x0035, t01=0x0054}
0x5324…5338 Head {h00=0x0010, h01=0x0050, text=»UPD602 EQU *«, t00=0x0035, t01=0x006a}
0x5338…535a Head {h00=0x001e, h01=0x0050, text=» ADR A4,A3 CONFIG TABLE -1«, t00=0x0035, t01=0x007e}
0x535a…5384 Head {h00=0x0026, h01=0x0050, text=» LD A5,NBRKBV,A3 NUMBER OF KB/VDUS«, t00=0x0035, t01=0x00a0}
0x5384…53b0 Head {h00=0x0028, h01=0x0050, text=» ADR A4,A5 LAST KB/VDU CONFIGURATED «, t00=0x0035, t01=0x00ca}
0x53b0…53c4 Head {h00=0x0010, h01=0x0050, text=»UPD604 EQU *«, t00=0x0035, t01=0x00f6}
0x53c4…53ec Head {h00=0x0024, h01=0x0050, text=» CCR A2,A4 DV-ADDRESS MATCHES ? «, t00=0x0035, t01=0x010a}
0x53ec…5406 Head {h00=0x0016, h01=0x0050, text=» RF(E) UPD610 YES «, t00=0x0035, t01=0x0132}
0x5406…5418 Head {h00=0x000e, h01=0x0050, text=» SUK A4,1 «, t00=0x0035, t01=0x014c}
0x5418…542a Head {h00=0x000e, h01=0x0050, text=» SUK A5,1 «, t00=0x0035, t01=0x015e}
0x542a…5448 Head {h00=0x001a, h01=0x0050, text=» RB(P) UPD604 TRY NEXT«, t00=0x0035, t01=0x0170}
0x5448…5464 Head {h00=0x0018, h01=0x0050, text=» ABL UPDEND NO MATCH«, t00=0x0035, t01=0x018e}
0x5464…546e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0036, t01=0x001a}
0x546e…5482 Head {h00=0x0010, h01=0x0050, text=»UPD610 EQU *«, t00=0x0036, t01=0x0024}
0x5482…549a Head {h00=0x0014, h01=0x0050, text=» LDKL A8,ECBICW «, t00=0x0036, t01=0x0038}
0x549a…54b0 Head {h00=0x0012, h01=0x0050, text=» ADR A8,CREBAS«, t00=0x0036, t01=0x0050}
0x54b0…54bc Head {h00=0x0008, h01=0x0050, text=» LKM«, t00=0x0036, t01=0x0066}
0x54bc…54f0 Head {h00=0x0030, h01=0x0050, text=» DATA 10 ABORT LAST REQUEST IF NOT COMPLETED«, t00=0x0036, t01=0x0072}
0x54f0…551a Head {h00=0x0026, h01=0x0050, text=» ADKL A5,/4B40 TASKID FROM DEVICE «, t00=0x0036, t01=0x00a6}
0x551a…5542 Head {h00=0x0024, h01=0x0050, text=» LD A2,-4,CREBAS GET OWN TASKID «, t00=0x0036, t01=0x00d0}
0x5542…556c Head {h00=0x0026, h01=0x0050, text=» ST A2,ICWORK,TCABAS PUT IN BUFFER«, t00=0x0036, t01=0x00f8}
0x556c…559a Head {h00=0x002a, h01=0x0050, text=» LDK A4,/0B WRITE ADDRESSED , NO WAIT «, t00=0x0036, t01=0x0122}
0x559a…55b6 Head {h00=0x0018, h01=0x0050, text=» LDK A6,2 REQ LENGTH«, t00=0x0036, t01=0x0150}
0x55b6…55ce Head {h00=0x0014, h01=0x0050, text=» LDKL A3,ICWORK «, t00=0x0036, t01=0x016c}
0x55ce…55f4 Head {h00=0x0022, h01=0x0050, text=» ADR A3,TCABAS BUFFER ADDRESS «, t00=0x0036, t01=0x0184}
0x55f4…561a Head {h00=0x0022, h01=0x0050, text=» CF A14,ICWRTE WRITE INTERTASK«, t00=0x0037, t01=0x001a}
0x561a…562e Head {h00=0x0010, h01=0x0050, text=» ABL UPDEND «, t00=0x0037, t01=0x0040}
0x562e…563a Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0037, t01=0x0054}
0x563a…5648 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0037, t01=0x0060}
0x5648…5652 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0037, t01=0x006e}
0x5652…565c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0037, t01=0x0078}
0x565c…5686 Head {h00=0x0026, h01=0x0050, text=»* PROCESS WRITE CONTROL CHARACTER «, t00=0x0037, t01=0x0082}
0x5686…5690 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0037, t01=0x00ac}
0x5690…56be Head {h00=0x002a, h01=0x0050, text=»* ONLY RESET MDT BIT IS TAKEN CARE OF «, t00=0x0037, t01=0x00b6}
0x56be…56c8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0037, t01=0x00e4}
0x56c8…56d2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0037, t01=0x00ee}
0x56d2…56f4 Head {h00=0x001e, h01=0x0050, text=»PWCC CF A14,GDCCH GET WCC «, t00=0x0037, t01=0x00f8}
0x56f4…5716 Head {h00=0x001e, h01=0x0050, text=» LC A2,TEBCDI,A2 IN EBCDIC«, t00=0x0037, t01=0x011a}
0x5716…5738 Head {h00=0x001e, h01=0x0050, text=» ST A2,WCC,TCABAS SAVE IT «, t00=0x0037, t01=0x013c}
0x5738…574c Head {h00=0x0010, h01=0x0050, text=» ANK A2,/04 «, t00=0x0037, t01=0x015e}
0x574c…5760 Head {h00=0x0010, h01=0x0050, text=» RF(Z) PWCC1«, t00=0x0037, t01=0x0172}
0x5760…577e Head {h00=0x001a, h01=0x0050, text=» LD A2,PRINTER,TCABAS «, t00=0x0037, t01=0x0186}
0x577e…5794 Head {h00=0x0012, h01=0x0050, text=» RF(NZ) PWCC1 «, t00=0x0038, t01=0x0014}
0x5794…57a8 Head {h00=0x0010, h01=0x0050, text=» LDR A10,A7 «, t00=0x0038, t01=0x002a}
0x57a8…57c0 Head {h00=0x0014, h01=0x0050, text=» LDKL A8,ECBVDU «, t00=0x0038, t01=0x003e}
0x57c0…57d6 Head {h00=0x0012, h01=0x0050, text=» ADR A8,CREBAS«, t00=0x0038, t01=0x0056}
0x57d6…57ee Head {h00=0x0014, h01=0x0050, text=» LD A2,ECBBA,A8 «, t00=0x0038, t01=0x006c}
0x57ee…5802 Head {h00=0x0010, h01=0x0050, text=» LDK A7,/2B «, t00=0x0038, t01=0x0084}
0x5802…581a Head {h00=0x0014, h01=0x0050, text=» SC A7,1,A2 =1 «, t00=0x0038, t01=0x0098}
0x581a…5836 Head {h00=0x0018, h01=0x0050, text=» LDK A7,/07 BELL =1 «, t00=0x0038, t01=0x00b0}
0x5836…584e Head {h00=0x0014, h01=0x0050, text=» SC A7,2,A2 =1 «, t00=0x0038, t01=0x00cc}
0x584e…5866 Head {h00=0x0014, h01=0x0050, text=» SC A7,3,A2 =1 «, t00=0x0038, t01=0x00e4}
0x5866…5878 Head {h00=0x000e, h01=0x0050, text=» LDK A7,4 «, t00=0x0038, t01=0x00fc}
0x5878…5890 Head {h00=0x0014, h01=0x0050, text=» ST A7,ECBRL,A8 «, t00=0x0038, t01=0x010e}
0x5890…58a4 Head {h00=0x0010, h01=0x0050, text=» LDK A7,/86 «, t00=0x0038, t01=0x0126}
0x58a4…58b0 Head {h00=0x0008, h01=0x0050, text=» LKM«, t00=0x0038, t01=0x013a}
0x58b0…58c0 Head {h00=0x000c, h01=0x0050, text=» DATA 1 «, t00=0x0038, t01=0x0146}
0x58c0…58dc Head {h00=0x0018, h01=0x0050, text=» LD A8,ECBDCC,TCABAS«, t00=0x0038, t01=0x0156}
0x58dc…58f0 Head {h00=0x0010, h01=0x0050, text=» LDR A7,A10 «, t00=0x0038, t01=0x0172}
0x58f0…5904 Head {h00=0x0010, h01=0x0050, text=»PWCC1 EQU * «, t00=0x0038, t01=0x0186}
0x5904…591e Head {h00=0x0016, h01=0x0050, text=» LD A2,WCC,TCABAS «, t00=0x0039, t01=0x000a}
0x591e…5930 Head {h00=0x000e, h01=0x0050, text=» ANK A2,1 «, t00=0x0039, t01=0x0024}
0x5930…5954 Head {h00=0x0020, h01=0x0050, text=» RF(NZ) RESMDT RESET ALL MDT«, t00=0x0039, t01=0x0036}
0x5954…5974 Head {h00=0x001c, h01=0x0050, text=»PWCC10 RTN A14 NO ACTION«, t00=0x0039, t01=0x005a}
0x5974…597e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0039, t01=0x007a}
0x597e…5988 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0039, t01=0x0084}
0x5988…59a4 Head {h00=0x0018, h01=0x0050, text=»* RESET ALL MDT BITS«, t00=0x0039, t01=0x008e}
0x59a4…59ae Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0039, t01=0x00aa}
0x59ae…59b8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0039, t01=0x00b4}
0x59b8…59d0 Head {h00=0x0014, h01=0x0050, text=»RESMDT LDK A3,0 «, t00=0x0039, t01=0x00be}
0x59d0…59e6 Head {h00=0x0012, h01=0x0050, text=» LDKL A4,BVDU «, t00=0x0039, t01=0x00d6}
0x59e6…59fc Head {h00=0x0012, h01=0x0050, text=» ADR A4,TCABAS«, t00=0x0039, t01=0x00ec}
0x59fc…5a18 Head {h00=0x0018, h01=0x0050, text=»RESM10 CWK A3,LBVDU «, t00=0x0039, t01=0x0102}
0x5a18…5a38 Head {h00=0x001c, h01=0x0050, text=» RB(NL) PWCC10 ALL DONE «, t00=0x0039, t01=0x011e}
0x5a38…5a54 Head {h00=0x0018, h01=0x0050, text=» LCR A2,A4 GET CHAR «, t00=0x0039, t01=0x013e}
0x5a54…5a68 Head {h00=0x0010, h01=0x0050, text=» ANK A2,/60 «, t00=0x0039, t01=0x015a}
0x5a68…5a8c Head {h00=0x0020, h01=0x0050, text=» RF(NZ) RESM20 NO ATTRIBUTE «, t00=0x0039, t01=0x016e}
0x5a8c…5a9e (58, 0, 400) Head {h00=0x000e, h01=0x0050, text=» LCR A2,A4«, t00=0x003a, t01=0x0004}
0x5a9e…5abc Head {h00=0x001a, h01=0x0050, text=» ANK A2,/FE RESET MDT «, t00=0x003a, t01=0x0016}
0x5abc…5ace Head {h00=0x000e, h01=0x0050, text=» SCR A2,A4«, t00=0x003a, t01=0x0034}
0x5ace…5ae6 Head {h00=0x0014, h01=0x0050, text=»RESM20 ADK A3,1 «, t00=0x003a, t01=0x0046}
0x5ae6…5af8 Head {h00=0x000e, h01=0x0050, text=» ADK A4,1 «, t00=0x003a, t01=0x005e}
0x5af8…5b0a Head {h00=0x000e, h01=0x0050, text=» RB RESM10«, t00=0x003a, t01=0x0070}
0x5b0a…5b18 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x003a, t01=0x0082}
0x5b18…5b22 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003a, t01=0x0090}
0x5b22…5b2c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003a, t01=0x009a}
0x5b2c…5b4a Head {h00=0x001a, h01=0x0050, text=»* ERASE ENTIRE SCREEN «, t00=0x003a, t01=0x00a4}
0x5b4a…5b54 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003a, t01=0x00c2}
0x5b54…5b5e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003a, t01=0x00cc}
0x5b5e…5b74 Head {h00=0x0012, h01=0x0050, text=»ERASE LDK A3,0«, t00=0x003a, t01=0x00d6}
0x5b74…5b8a Head {h00=0x0012, h01=0x0050, text=» LDKL A4,BVDU «, t00=0x003a, t01=0x00ec}
0x5b8a…5ba0 Head {h00=0x0012, h01=0x0050, text=» ADR A4,TCABAS«, t00=0x003a, t01=0x0102}
0x5ba0…5bb4 Head {h00=0x0010, h01=0x0050, text=» LDK A2,NULL«, t00=0x003a, t01=0x0118}
0x5bb4…5bd0 Head {h00=0x0018, h01=0x0050, text=»ERAS20 CWK A3,LBVDU «, t00=0x003a, t01=0x012c}
0x5bd0…5bf2 Head {h00=0x001e, h01=0x0050, text=» RF(NL) ERAS25 ALL ERASED «, t00=0x003a, t01=0x0148}
0x5bf2…5c04 Head {h00=0x000e, h01=0x0050, text=» SCR A2,A4«, t00=0x003a, t01=0x016a}
0x5c04…5c16 Head {h00=0x000e, h01=0x0050, text=» ADK A3,1 «, t00=0x003a, t01=0x017c}
0x5c16…5c28 Head {h00=0x000e, h01=0x0050, text=» ADK A4,1 «, t00=0x003a, t01=0x018e}
0x5c28…5c3a Head {h00=0x000e, h01=0x0050, text=» RB ERAS20«, t00=0x003b, t01=0x0010}
0x5c3a…5c6a Head {h00=0x002c, h01=0x0050, text=»ERAS25 CM PCURS,TCABAS RESET CURSOR POS «, t00=0x003b, t01=0x0022}
0x5c6a…5c82 Head {h00=0x0014, h01=0x0050, text=» LDKL A1,LBVDU+1«, t00=0x003b, t01=0x0052}
0x5c82…5cb6 Head {h00=0x0030, h01=0x0050, text=» ST A1,CURATT,TCABAS INDICATE UNFORM. SCREEN«, t00=0x003b, t01=0x006a}
0x5cb6…5cd0 Head {h00=0x0016, h01=0x0050, text=» CM ATTRIB,TCABAS «, t00=0x003b, t01=0x009e}
0x5cd0…5d00 Head {h00=0x002c, h01=0x0050, text=» LD A1,PRINTER,TCABAS CHECK DEVISE TYPE «, t00=0x003b, t01=0x00b8}
0x5d00…5d2c Head {h00=0x0028, h01=0x0050, text=» RF(NZ) ERAEND PRINTER, NOT DISPLAY «, t00=0x003b, t01=0x00e8}
0x5d2c…5d58 Head {h00=0x0028, h01=0x0050, text=» STR A7,A14 SAVE A7 AND A8 ON STACK «, t00=0x003b, t01=0x0114}
0x5d58…5d6e Head {h00=0x0012, h01=0x0050, text=» ST A8,-2,A14 «, t00=0x003b, t01=0x0140}
0x5d6e…5d86 Head {h00=0x0014, h01=0x0050, text=» LDKL A8,ECBVDU «, t00=0x003b, t01=0x0156}
0x5d86…5da4 Head {h00=0x001a, h01=0x0050, text=» ADR A8,CREBAS VDUECB «, t00=0x003b, t01=0x016e}
0x5da4…5dca Head {h00=0x0022, h01=0x0050, text=» LDK A7,'1' ERASE CONTROL CHAR«, t00=0x003b, t01=0x018c}
0x5dca…5de6 Head {h00=0x0018, h01=0x0050, text=» LD A1,ECBBA,A8 =1 «, t00=0x003c, t01=0x0022}
0x5de6…5dfe Head {h00=0x0014, h01=0x0050, text=» SC A7,1,A1 =1 «, t00=0x003c, t01=0x003e}
0x5dfe…5e10 Head {h00=0x000e, h01=0x0050, text=» LDK A7,2 «, t00=0x003c, t01=0x0056}
0x5e10…5e36 Head {h00=0x0022, h01=0x0050, text=» ST A7,ECBRL,A8 REQ LENGTH = 2«, t00=0x003c, t01=0x0068}
0x5e36…5e50 Head {h00=0x0016, h01=0x0050, text=» LDK A7,/86 WRITE «, t00=0x003c, t01=0x008e}
0x5e50…5e5c Head {h00=0x0008, h01=0x0050, text=» LKM«, t00=0x003c, t01=0x00a8}
0x5e5c…5e6c Head {h00=0x000c, h01=0x0050, text=» DATA 1 «, t00=0x003c, t01=0x00b4}
0x5e6c…5e82 Head {h00=0x0012, h01=0x0050, text=» LD A8,-2,A14 «, t00=0x003c, t01=0x00c4}
0x5e82…5ea8 Head {h00=0x0022, h01=0x0050, text=» LDR* A7,A14 RESTORE A7 AND A8«, t00=0x003c, t01=0x00da}
0x5ea8…5ebe Head {h00=0x0012, h01=0x0050, text=»ERAEND RTN A14«, t00=0x003c, t01=0x0100}
0x5ebe…5ecc Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x003c, t01=0x0116}
0x5ecc…5ed6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003c, t01=0x0124}
0x5ed6…5ee0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003c, t01=0x012e}
0x5ee0…5f00 Head {h00=0x001c, h01=0x0050, text=»* ERASE ALL UNPROTECTED «, t00=0x003c, t01=0x0138}
0x5f00…5f0a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003c, t01=0x0158}
0x5f0a…5f14 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003c, t01=0x0162}
0x5f14…5f2c Head {h00=0x0014, h01=0x0050, text=»ERASUP LDK A2,2 «, t00=0x003c, t01=0x016c}
0x5f2c…5f5e Head {h00=0x002e, h01=0x0050, text=» ST A2,WCC,TCABAS SET KEYBOARD RESTORE BIT«, t00=0x003c, t01=0x0184}
0x5f5e…5f94 Head {h00=0x0032, h01=0x0050, text=» SUR A1,A1 INDICATE ATT IN LAST SCREEN POS DK «, t00=0x003d, t01=0x0026}
0x5f94…5fa6 Head {h00=0x000e, h01=0x0050, text=» LDK A3,0 «, t00=0x003d, t01=0x005c}
0x5fa6…5fbc Head {h00=0x0012, h01=0x0050, text=» LDKL A4,BVDU «, t00=0x003d, t01=0x006e}
0x5fbc…5fd2 Head {h00=0x0012, h01=0x0050, text=» ADR A4,TCABAS«, t00=0x003d, t01=0x0084}
0x5fd2…6006 Head {h00=0x0030, h01=0x0050, text=» CM PCURS,TCABAS FIND FIRST UNPROTECTED POS «, t00=0x003d, t01=0x009a}
0x6006…6052 Head {h00=0x0048, h01=0x0050, text=»********************************************************************«, t00=0x003d, t01=0x00ce}
0x6052…6082 Head {h00=0x002c, h01=0x0050, text=» LC A2,1919,A4 GET LAST SCREEN CHARACTER«, t00=0x003d, t01=0x011a}
0x6082…6096 Head {h00=0x0010, h01=0x0050, text=» ANK A2,/7F «, t00=0x003d, t01=0x014a}
0x6096…60b8 Head {h00=0x001e, h01=0x0050, text=» CWK A2,/20 ATTRIBUTE ??? «, t00=0x003d, t01=0x015e}
0x60b8…60e0 Head {h00=0x0024, h01=0x0050, text=» RF(L) ERU:01 YES!! WE GOT IT!! «, t00=0x003d, t01=0x0180}
0x60e0…6114 Head {h00=0x0030, h01=0x0050, text=» LDK A1,1 ATTRIBUTE NOT IN LAST SCREEN POS. «, t00=0x003e, t01=0x0018}
0x6114…6154 Head {h00=0x003c, h01=0x0050, text=»********************************************************«, t00=0x003e, t01=0x004c}
0x6154…6170 Head {h00=0x0018, h01=0x0050, text=»ERASU1 CWK A3,LBVDU «, t00=0x003e, t01=0x008c}
0x6170…6186 Head {h00=0x0012, h01=0x0050, text=» RF(NL) ERASU2«, t00=0x003e, t01=0x00a8}
0x6186…61a2 Head {h00=0x0018, h01=0x0050, text=» LCR A2,A4 GET CHAR «, t00=0x003e, t01=0x00be}
0x61a2…61b6 Head {h00=0x0010, h01=0x0050, text=» ANK A2,/7F «, t00=0x003e, t01=0x00da}
0x61b6…61c8 Head {h00=0x000e, h01=0x0050, text=» ADK A3,1 «, t00=0x003e, t01=0x00ee}
0x61c8…61da Head {h00=0x000e, h01=0x0050, text=» ADK A4,1 «, t00=0x003e, t01=0x0100}
0x61da…61ee Head {h00=0x0010, h01=0x0050, text=» CWK A2,/20 «, t00=0x003e, t01=0x0112}
0x61ee…6212 Head {h00=0x0020, h01=0x0050, text=» RB(NL) ERASU1 NO ATTRIBUTE «, t00=0x003e, t01=0x0126}
0x6212…6226 Head {h00=0x0010, h01=0x0050, text=»ERU:01 EQU *«, t00=0x003e, t01=0x014a}
0x6226…623a Head {h00=0x0010, h01=0x0050, text=» ANK A2,/10 «, t00=0x003e, t01=0x015e}
0x623a…625a Head {h00=0x001c, h01=0x0050, text=» RB(NZ) ERASU1 PROTECTED«, t00=0x003e, t01=0x0172}
0x625a…6288 (63, 0, 400) Head {h00=0x002a, h01=0x0050, text=» ST A3,PCURS,TCABAS SET NEW CURSOR POS«, t00=0x003f, t01=0x0004}
0x6288…629a Head {h00=0x000e, h01=0x0050, text=» LDR A1,A1«, t00=0x003f, t01=0x0032}
0x629a…62ce Head {h00=0x0030, h01=0x0050, text=» RF(Z) ERASU3 ATTRIBUTE IN LAST SCREEN POS. «, t00=0x003f, t01=0x0044}
0x62ce…62e6 Head {h00=0x0014, h01=0x0050, text=»ERASU2 LDK A3,0 «, t00=0x003f, t01=0x0078}
0x62e6…62fc Head {h00=0x0012, h01=0x0050, text=» LDKL A4,BVDU «, t00=0x003f, t01=0x0090}
0x62fc…6312 Head {h00=0x0012, h01=0x0050, text=» ADR A4,TCABAS«, t00=0x003f, t01=0x00a6}
0x6312…6324 Head {h00=0x000e, h01=0x0050, text=» RF ERASU4«, t00=0x003f, t01=0x00bc}
0x6324…6338 Head {h00=0x0010, h01=0x0050, text=»ERASU3 EQU *«, t00=0x003f, t01=0x00ce}
0x6338…634a Head {h00=0x000e, h01=0x0050, text=» LDR A3,A3«, t00=0x003f, t01=0x00e2}
0x634a…6384 Head {h00=0x0036, h01=0x0050, text=» RF(Z) ERASU4 UNPROTECTED ATT. IN LAST SCREEN POS.«, t00=0x003f, t01=0x00f4}
0x6384…63ac Head {h00=0x0024, h01=0x0050, text=» SUK A3,1 GET BACK TO ATTRIBUTE «, t00=0x003f, t01=0x012e}
0x63ac…63ca Head {h00=0x001a, h01=0x0050, text=» SUK A4,1 - " -«, t00=0x003f, t01=0x0156}
0x63ca…63de Head {h00=0x0010, h01=0x0050, text=»ERASU4 EQU *«, t00=0x003f, t01=0x0174}
0x63de…63f0 Head {h00=0x000e, h01=0x0050, text=» LDK A1,0 «, t00=0x003f, t01=0x0188}
0x63f0…6414 Head {h00=0x0020, h01=0x0050, text=» LDK A6,NULL+/80 ERASE CHAR «, t00=0x0040, t01=0x000a}
0x6414…6426 Head {h00=0x000e, h01=0x0050, text=» RF ERAS35«, t00=0x0040, t01=0x002e}
0x6426…6434 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0040, t01=0x0040}
0x6434…643e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0040, t01=0x004e}
0x643e…6448 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0040, t01=0x0058}
0x6448…647a Head {h00=0x002e, h01=0x0050, text=»* ERASE UNPROTECTED TO ADDRESS GIVEN IN A1«, t00=0x0040, t01=0x0062}
0x647a…6484 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0040, t01=0x0094}
0x6484…648e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0040, t01=0x009e}
0x648e…64bc Head {h00=0x002a, h01=0x0050, text=»ERASUA LDK A6,NULL+/80 ERASE CHARACTER«, t00=0x0040, t01=0x00a8}
0x64bc…64e4 Head {h00=0x0024, h01=0x0050, text=» ******************* 78-09-11 «, t00=0x0040, t01=0x00d6}
0x64e4…650a Head {h00=0x0022, h01=0x0050, text=» CWK A3,LBVDU WRAP AROUND ??? «, t00=0x0040, t01=0x00fe}
0x650a…6524 Head {h00=0x0016, h01=0x0050, text=» RF(L) ERAS:1 NO!!«, t00=0x0040, t01=0x0124}
0x6524…6542 Head {h00=0x001a, h01=0x0050, text=» LDK A3,0 BUFFERINDEX «, t00=0x0040, t01=0x013e}
0x6542…6558 Head {h00=0x0012, h01=0x0050, text=» LDKL A4,BVDU «, t00=0x0040, t01=0x015c}
0x6558…6588 Head {h00=0x002c, h01=0x0050, text=» ADR A4,TCABAS ABSOLUTE BUFFER ADDRESS «, t00=0x0040, t01=0x0172}
0x6588…6590 Head {h00=0x0004, h01=0x0050, t00=0x0041, t01=0x0012}
0x6590…65cc Head {h00=0x0038, h01=0x0050, text=»ERAS:1 LDR A3,A3 START IN FIRST SCREEN POSITION ??? «, t00=0x0041, t01=0x001a}
0x65cc…65e8 Head {h00=0x0018, h01=0x0050, text=» RF(NZ) ERAS35 NO!! «, t00=0x0041, t01=0x0056}
0x65e8…6614 Head {h00=0x0028, h01=0x0050, text=» LC A2,1919,A4 LAST BUFFER CHARACTER«, t00=0x0041, t01=0x0072}
0x6614…6628 Head {h00=0x0010, h01=0x0050, text=» ANK A2,/7F «, t00=0x0041, t01=0x009e}
0x6628…6654 Head {h00=0x0028, h01=0x0050, text=» CWK A2,/20 ATTRIBUTE CHARACTER ??? «, t00=0x0041, t01=0x00b2}
0x6654…6670 Head {h00=0x0018, h01=0x0050, text=» RF(NL) ERAS35 NO!!!«, t00=0x0041, t01=0x00de}
0x6670…6684 Head {h00=0x0010, h01=0x0050, text=» ANK A2,/10 «, t00=0x0041, t01=0x00fa}
0x6684…66aa Head {h00=0x0022, h01=0x0050, text=» RF(NZ) ERAS70 PROTECTED FIELD«, t00=0x0041, t01=0x010e}
0x66aa…66c0 Head {h00=0x0012, h01=0x0050, text=» LC A2,1919,A4«, t00=0x0041, t01=0x0134}
0x66c0…66d4 Head {h00=0x0010, h01=0x0050, text=» ANK A2,/FE «, t00=0x0041, t01=0x014a}
0x66d4…66f8 Head {h00=0x0020, h01=0x0050, text=» SC A2,1919,A4 RESET MDT BIT«, t00=0x0041, t01=0x015e}
0x66f8…670a Head {h00=0x000e, h01=0x0050, text=» RF ERAS35«, t00=0x0041, t01=0x0182}
0x670a…6732 (66, 0, 400) Head {h00=0x0024, h01=0x0050, text=» ******************** 78-09-11«, t00=0x0042, t01=0x0004}
0x6732…674e Head {h00=0x0018, h01=0x0050, text=»ERAS30 CWK A3,LBVDU «, t00=0x0042, t01=0x002c}
0x674e…6776 Head {h00=0x0024, h01=0x0050, text=» RF(L) ERAS33 NOT END OF SCREEN «, t00=0x0042, t01=0x0048}
0x6776…6788 Head {h00=0x000e, h01=0x0050, text=» LDK A3,0 «, t00=0x0042, t01=0x0070}
0x6788…67aa Head {h00=0x001e, h01=0x0050, text=» LDKL A4,BVDU WRAP AROUND «, t00=0x0042, t01=0x0082}
0x67aa…67c0 Head {h00=0x0012, h01=0x0050, text=» ADR A4,TCABAS«, t00=0x0042, t01=0x00a4}
0x67c0…67d4 Head {h00=0x0010, h01=0x0050, text=»ERAS33 EQU *«, t00=0x0042, t01=0x00ba}
0x67d4…67e6 Head {h00=0x000e, h01=0x0050, text=» CWR A3,A1«, t00=0x0042, t01=0x00ce}
0x67e6…6812 Head {h00=0x0028, h01=0x0050, text=» RB(E) ERAEND ALL UNPROTECTED ERASED«, t00=0x0042, t01=0x00e0}
0x6812…6844 Head {h00=0x002e, h01=0x0050, text=»ERAS35 LCR A2,A4 GET CHAR FROM VDU BUFFER «, t00=0x0042, t01=0x010c}
0x6844…6858 Head {h00=0x0010, h01=0x0050, text=» ANK A2,/7F «, t00=0x0042, t01=0x013e}
0x6858…686c Head {h00=0x0010, h01=0x0050, text=» CWK A2,/20 «, t00=0x0042, t01=0x0152}
0x686c…6890 Head {h00=0x0020, h01=0x0050, text=» RF(L) ERAS50 ATTRIBUTE CHAR«, t00=0x0042, t01=0x0166}
0x6890…68a4 Head {h00=0x0010, h01=0x0050, text=» XRK A2,NULL«, t00=0x0042, t01=0x018a}
0x68a4…68c6 Head {h00=0x001e, h01=0x0050, text=» RF(Z) ERAS40 ALREADY NULL«, t00=0x0043, t01=0x000e}
0x68c6…68ec Head {h00=0x0022, h01=0x0050, text=» SCR A6,A4 STORE MODIFIED NULL«, t00=0x0043, t01=0x0030}
0x68ec…6904 Head {h00=0x0014, h01=0x0050, text=»ERAS40 ADK A3,1 «, t00=0x0043, t01=0x0056}
0x6904…6916 Head {h00=0x000e, h01=0x0050, text=» ADK A4,1 «, t00=0x0043, t01=0x006e}
0x6916…6928 Head {h00=0x000e, h01=0x0050, text=» RB ERAS30«, t00=0x0043, t01=0x0080}
0x6928…6940 Head {h00=0x0014, h01=0x0050, text=»ERAS50 ADK A3,1 «, t00=0x0043, t01=0x0092}
0x6940…6952 Head {h00=0x000e, h01=0x0050, text=» ADK A4,1 «, t00=0x0043, t01=0x00aa}
0x6952…6966 Head {h00=0x0010, h01=0x0050, text=» ANK A2,/10 «, t00=0x0043, t01=0x00bc}
0x6966…698c Head {h00=0x0022, h01=0x0050, text=» RF(NZ) ERAS60 PROTECTED FIELD«, t00=0x0043, t01=0x00d0}
0x698c…69a0 Head {h00=0x0010, h01=0x0050, text=» LC A2,-1,A4«, t00=0x0043, t01=0x00f6}
0x69a0…69c2 Head {h00=0x001e, h01=0x0050, text=» ANK A2,/FE RESET MDT BIT «, t00=0x0043, t01=0x010a}
0x69c2…69d6 Head {h00=0x0010, h01=0x0050, text=» SC A2,-1,A4«, t00=0x0043, t01=0x012c}
0x69d6…69e8 Head {h00=0x000e, h01=0x0050, text=» RB ERAS30«, t00=0x0043, t01=0x0140}
0x69e8…6a04 Head {h00=0x0018, h01=0x0050, text=»ERAS60 CWK A3,LBVDU «, t00=0x0043, t01=0x0152}
0x6a04…6a1a Head {h00=0x0012, h01=0x0050, text=» RF(L) ERAS65 «, t00=0x0043, t01=0x016e}
0x6a1a…6a2c Head {h00=0x000e, h01=0x0050, text=» LDK A3,0 «, t00=0x0043, t01=0x0184}
0x6a2c…6a4e Head {h00=0x001e, h01=0x0050, text=» LDKL A4,BVDU WRAP AROUND «, t00=0x0044, t01=0x0008}
0x6a4e…6a64 Head {h00=0x0012, h01=0x0050, text=» ADR A4,TCABAS«, t00=0x0044, t01=0x002a}
0x6a64…6a7c Head {h00=0x0014, h01=0x0050, text=»ERAS65 CWR A3,A1«, t00=0x0044, t01=0x0040}
0x6a7c…6aa8 Head {h00=0x0028, h01=0x0050, text=» RB(E) ERAEND ALL UNPROTECTED ERASED«, t00=0x0044, t01=0x0058}
0x6aa8…6abc Head {h00=0x0010, h01=0x0050, text=»ERAS70 EQU *«, t00=0x0044, t01=0x0084}
0x6abc…6ace Head {h00=0x000e, h01=0x0050, text=» LCR A2,A4«, t00=0x0044, t01=0x0098}
0x6ace…6ae2 Head {h00=0x0010, h01=0x0050, text=» ANK A2,/7F «, t00=0x0044, t01=0x00aa}
0x6ae2…6af6 Head {h00=0x0010, h01=0x0050, text=» CWK A2,/20 «, t00=0x0044, t01=0x00be}
0x6af6…6b1c Head {h00=0x0022, h01=0x0050, text=» RB(L) ERAS50 ATTRIBUTE FOUND «, t00=0x0044, t01=0x00d2}
0x6b1c…6b2e Head {h00=0x000e, h01=0x0050, text=» ADK A3,1 «, t00=0x0044, t01=0x00f8}
0x6b2e…6b40 Head {h00=0x000e, h01=0x0050, text=» ADK A4,1 «, t00=0x0044, t01=0x010a}
0x6b40…6b52 Head {h00=0x000e, h01=0x0050, text=» RB ERAS60«, t00=0x0044, t01=0x011c}
0x6b52…6b60 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0044, t01=0x012e}
0x6b60…6b6a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0044, t01=0x013c}
0x6b6a…6b74 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0044, t01=0x0146}
0x6b74…6b98 Head {h00=0x0020, h01=0x0050, text=»* TRANSMIT PROGRAM ATTENTION«, t00=0x0044, t01=0x0150}
0x6b98…6ba2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0044, t01=0x0174}
0x6ba2…6bb2 Head {h00=0x000c, h01=0x0050, text=»* A2=AID«, t00=0x0044, t01=0x017e}
0x6bb2…6bbc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0044, t01=0x018e}
0x6bbc…6bc6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0045, t01=0x0008}
0x6bc6…6bf4 Head {h00=0x002a, h01=0x0050, text=»TRPA CF A14,GTWBUF GET TRANSMIT BUFFER«, t00=0x0045, t01=0x0012}
0x6bf4…6c18 Head {h00=0x0020, h01=0x0050, text=»TRPA10 CF A14,PAID STORE AID«, t00=0x0045, t01=0x0040}
0x6c18…6c2c Head {h00=0x0010, h01=0x0050, text=»TRANS EQU * «, t00=0x0045, t01=0x0064}
0x6c2c…6c50 Head {h00=0x0020, h01=0x0050, text=» CF A14,DCWRTE WRITE MESSAGE«, t00=0x0045, t01=0x0078}
0x6c50…6c64 Head {h00=0x0010, h01=0x0050, text=»TR050 EQU * «, t00=0x0045, t01=0x009c}
0x6c64…6c8a Head {h00=0x0022, h01=0x0050, text=» RTN A14 TRANSMISSION TROUBLE «, t00=0x0045, t01=0x00b0}
0x6c8a…6ca0 Head {h00=0x0012, h01=0x0050, text=»TRRTN RTN A14 «, t00=0x0045, t01=0x00d6}
0x6ca0…6cae Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0045, t01=0x00ec}
0x6cae…6cb8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0045, t01=0x00fa}
0x6cb8…6cc2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0045, t01=0x0104}
0x6cc2…6ce6 Head {h00=0x0020, h01=0x0050, text=»* TRANSMIT PROGRAM FUNCTION «, t00=0x0045, t01=0x010e}
0x6ce6…6cf0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0045, t01=0x0132}
0x6cf0…6d00 Head {h00=0x000c, h01=0x0050, text=»* A2=AID«, t00=0x0045, t01=0x013c}
0x6d00…6d0a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0045, t01=0x014c}
0x6d0a…6d14 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0045, t01=0x0156}
0x6d14…6d42 Head {h00=0x002a, h01=0x0050, text=»TRPF CF A14,GTWBUF GET TRANSMIT BUFFER«, t00=0x0045, t01=0x0160}
0x6d42…6d66 Head {h00=0x0020, h01=0x0050, text=»TRPF10 CF A14,PAID STORE AID«, t00=0x0045, t01=0x018e}
0x6d66…6d90 Head {h00=0x0026, h01=0x0050, text=» CF A14,CURSA STORE CURSOR ADDRESS«, t00=0x0046, t01=0x0022}
0x6d90…6db4 Head {h00=0x0020, h01=0x0050, text=» CF A14,RDMOD READ MODIFIED «, t00=0x0046, t01=0x004c}
0x6db4…6dda Head {h00=0x0022, h01=0x0050, text=» RB TRANS SEND MODIFIED FIELDS«, t00=0x0046, t01=0x0070}
0x6dda…6de8 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0046, t01=0x0096}
0x6de8…6df2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0046, t01=0x00a4}
0x6df2…6dfc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0046, t01=0x00ae}
0x6dfc…6e24 Head {h00=0x0024, h01=0x0050, text=»* DISPLAY MODIFIED FIELDS ON VDU«, t00=0x0046, t01=0x00b8}
0x6e24…6e2e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0046, t01=0x00e0}
0x6e2e…6e38 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0046, t01=0x00ea}
0x6e38…6e52 Head {h00=0x0016, h01=0x0050, text=»* A3=VDU POSITION «, t00=0x0046, t01=0x00f4}
0x6e52…6e70 Head {h00=0x001a, h01=0x0050, text=»* A4=VDU IMAGE POINTER«, t00=0x0046, t01=0x010e}
0x6e70…6e90 Head {h00=0x001c, h01=0x0050, text=»* A5=MODIFIED INDICATOR «, t00=0x0046, t01=0x012c}
0x6e90…6eb4 Head {h00=0x0020, h01=0x0050, text=»* A7=VDU LINE OUTPUT POINTER«, t00=0x0046, t01=0x014c}
0x6eb4…6ec8 Head {h00=0x0010, h01=0x0050, text=»* A8=VDU ECB«, t00=0x0046, t01=0x0170}
0x6ec8…6eec Head {h00=0x0020, h01=0x0050, text=»* A9=VDU OUTPUT CHAR COUNTER«, t00=0x0046, t01=0x0184}
0x6eec…6ef6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0047, t01=0x0018}
0x6ef6…6f00 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0047, t01=0x0022}
0x6f00…6f1c Head {h00=0x0018, h01=0x0050, text=»DISPL LDKL A8,ECBVDU«, t00=0x0047, t01=0x002c}
0x6f1c…6f32 Head {h00=0x0012, h01=0x0050, text=» ADR A8,CREBAS«, t00=0x0047, t01=0x0048}
0x6f32…6f60 Head {h00=0x002a, h01=0x0050, text=» LDKL A1,/101 START FROM LINE 1 POS 1 «, t00=0x0047, t01=0x005e}
0x6f60…6f78 Head {h00=0x0014, h01=0x0050, text=» ST A1,ECBCW,A8 «, t00=0x0047, t01=0x008c}
0x6f78…6fb4 Head {h00=0x0038, h01=0x0050, text=» SUR A10,A10 RESET COUNT FOR INTENSIFIED DISPLAYING «, t00=0x0047, t01=0x00a4}
0x6fb4…6fc6 Head {h00=0x000e, h01=0x0050, text=» LDK A3,0 «, t00=0x0047, t01=0x00e0}
0x6fc6…6fdc Head {h00=0x0012, h01=0x0050, text=» LDKL A4,BVDU «, t00=0x0047, t01=0x00f2}
0x6fdc…6ff2 Head {h00=0x0012, h01=0x0050, text=» ADR A4,TCABAS«, t00=0x0047, t01=0x0108}
0x6ff2…7022 Head {h00=0x002c, h01=0x0050, text=» CF A14,SPACES PUT SPACES IN LINE BUFFER«, t00=0x0047, t01=0x011e}
0x7022…706a Head {h00=0x0044, h01=0x0050, text=»****************************************************************«, t00=0x0047, t01=0x014e}
0x706a…70a4 Head {h00=0x0036, h01=0x0050, text=» LC A2,1919,A4 CHECK IF ATTRIBUTE IN LAST POSITION«, t00=0x0048, t01=0x0008}
0x70a4…70b8 Head {h00=0x0010, h01=0x0050, text=» ANK A2,/7F «, t00=0x0048, t01=0x0042}
0x70b8…70da Head {h00=0x001e, h01=0x0050, text=» CWK A2,/1F ATTRIBUTE ??? «, t00=0x0048, t01=0x0056}
0x70da…70f6 Head {h00=0x0018, h01=0x0050, text=» RF(G) DIS100 NO!!! «, t00=0x0048, t01=0x0078}
0x70f6…70fe Head {h00=0x0004, h01=0x0050, t00=0x0048, t01=0x0094}
0x70fe…7110 Head {h00=0x000e, h01=0x0050, text=» ANK A2,6 «, t00=0x0048, t01=0x009c}
0x7110…7122 Head {h00=0x000e, h01=0x0050, text=» XRK A2,6 «, t00=0x0048, t01=0x00ae}
0x7122…7164 Head {h00=0x003e, h01=0x0050, text=» ST A2,INTATT,TCABAS CHECK DISPLAY/NONDISPLAY INFORMATION «, t00=0x0048, t01=0x00c0}
0x7164…7186 Head {h00=0x001e, h01=0x0050, text=» RF(Z) DIS210 NON DISPLAY «, t00=0x0048, t01=0x0102}
0x7186…71be Head {h00=0x0034, h01=0x0050, text=» CF A14,INTCHK INSERT HIGH/LOW INTENS. IN BUFFER«, t00=0x0048, t01=0x0124}
0x71be…720a Head {h00=0x0048, h01=0x0050, text=»******************************************************************* «, t00=0x0048, t01=0x015c}
0x720a…721e Head {h00=0x0010, h01=0x0050, text=»DIS100 EQU *«, t00=0x0049, t01=0x0018}
0x721e…7234 Head {h00=0x0012, h01=0x0050, text=» CWK A9,LLINE «, t00=0x0049, t01=0x002c}
0x7234…725a Head {h00=0x0022, h01=0x0050, text=» RF(L) DIS110 NOT END OF LINE «, t00=0x0049, t01=0x0042}
0x725a…7282 Head {h00=0x0024, h01=0x0050, text=» CF A14,DISLIN DISPLAY THIS LINE«, t00=0x0049, t01=0x0068}
0x7282…72b4 Head {h00=0x002e, h01=0x0050, text=» CF A14,INTCHK CHECK IF LOW/HIGH INTENSITY«, t00=0x0049, t01=0x0090}
0x72b4…72c8 Head {h00=0x0010, h01=0x0050, text=»DIS110 EQU *«, t00=0x0049, t01=0x00c2}
0x72c8…72de Head {h00=0x0012, h01=0x0050, text=» CWK A3,LBVDU «, t00=0x0049, t01=0x00d6}
0x72de…7300 Head {h00=0x001e, h01=0x0050, text=» RF(NL) DIS900 ALL SCANNED«, t00=0x0049, t01=0x00ec}
0x7300…731c Head {h00=0x0018, h01=0x0050, text=» LCR A2,A4 GET CHAR «, t00=0x0049, t01=0x010e}
0x731c…735e Head {h00=0x003e, h01=0x0050, text=»************************************************ 78-08-15 «, t00=0x0049, t01=0x012a}
0x735e…7366 Head {h00=0x0004, h01=0x0050, t00=0x0049, t01=0x016c}
0x7366…738c Head {h00=0x0022, h01=0x0050, text=» CF A14,SET:M SET MODIFIED BIT«, t00=0x0049, t01=0x0174}
0x738c…7394 Head {h00=0x0004, h01=0x0050, t00=0x004a, t01=0x000a}
0x7394…73d6 Head {h00=0x003e, h01=0x0050, text=»************************************************ 78-08-15 «, t00=0x004a, t01=0x0012}
0x73d6…73ea Head {h00=0x0010, h01=0x0050, text=»DIS115 EQU *«, t00=0x004a, t01=0x0054}
0x73ea…7410 Head {h00=0x0022, h01=0x0050, text=» ANK A2,/7F RESET DISPLAY BIT «, t00=0x004a, t01=0x0068}
0x7410…7422 Head {h00=0x000e, h01=0x0050, text=» SCR A2,A4«, t00=0x004a, t01=0x008e}
0x7422…7434 Head {h00=0x000e, h01=0x0050, text=» ADK A3,1 «, t00=0x004a, t01=0x00a0}
0x7434…7446 Head {h00=0x000e, h01=0x0050, text=» ADK A4,1 «, t00=0x004a, t01=0x00b2}
0x7446…7458 Head {h00=0x000e, h01=0x0050, text=» ADK A7,1 «, t00=0x004a, t01=0x00c4}
0x7458…746a Head {h00=0x000e, h01=0x0050, text=» ADKL A9,1«, t00=0x004a, t01=0x00d6}
0x746a…747e Head {h00=0x0010, h01=0x0050, text=» CWK A2,/20 «, t00=0x004a, t01=0x00e8}
0x747e…74a2 Head {h00=0x0020, h01=0x0050, text=» RF(L) DIS200 ATTRIBUTE CHAR«, t00=0x004a, t01=0x00fc}
0x74a2…74b6 Head {h00=0x0010, h01=0x0050, text=» CWK A2,NULL«, t00=0x004a, t01=0x0120}
0x74b6…74e8 Head {h00=0x002e, h01=0x0050, text=» RB(E) DIS100 NULL EQUALS SPACE AT DISPLAY«, t00=0x004a, t01=0x0134}
0x74e8…74fc Head {h00=0x0010, h01=0x0050, text=» CWK A2,/7D «, t00=0x004a, t01=0x0166}
0x74fc…7512 Head {h00=0x0012, h01=0x0050, text=» RF(NE) DIS120«, t00=0x004a, t01=0x017a}
0x7512…7526 Head {h00=0x0010, h01=0x0050, text=» LDK A2,/39 «, t00=0x004a, t01=0x0190}
0x7526…7540 Head {h00=0x0016, h01=0x0050, text=»DIS120 CWK A2,/7E «, t00=0x004b, t01=0x0014}
0x7540…7556 Head {h00=0x0012, h01=0x0050, text=» RF(NE) DIS121«, t00=0x004b, t01=0x002e}
0x7556…756a Head {h00=0x0010, h01=0x0050, text=» LDK A2,/35 «, t00=0x004b, t01=0x0044}
0x756a…7584 Head {h00=0x0016, h01=0x0050, text=»DIS121 CWK A2,/7C «, t00=0x004b, t01=0x0058}
0x7584…759a Head {h00=0x0012, h01=0x0050, text=» RF(NE) DIS122«, t00=0x004b, t01=0x0072}
0x759a…75ae Head {h00=0x0010, h01=0x0050, text=» LDK A2,/3C «, t00=0x004b, t01=0x0088}
0x75ae…75c2 Head {h00=0x0010, h01=0x0050, text=»DIS122 EQU *«, t00=0x004b, t01=0x009c}
0x75c2…75fa Head {h00=0x0034, h01=0x0050, text=» SC A2,-1,A7 STORE CHAR IN DISPLAY OUTPUT BUFFER«, t00=0x004b, t01=0x00b0}
0x75fa…760c Head {h00=0x000e, h01=0x0050, text=» RB DIS100«, t00=0x004b, t01=0x00e8}
0x760c…7624 Head {h00=0x0014, h01=0x0050, text=»DIS200 ANK A2,6 «, t00=0x004b, t01=0x00fa}
0x7624…764a Head {h00=0x0022, h01=0x0050, text=» XRK A2,6 CHECK IF NONDISPLAY «, t00=0x004b, t01=0x0112}
0x764a…7680 Head {h00=0x0032, h01=0x0050, text=» ST A2,INTATT,TCABAS SAVE ATTRIBUTE CHARACTER «, t00=0x004b, t01=0x0138}
0x7680…76a2 Head {h00=0x001e, h01=0x0050, text=» RF(Z) DIS210 NON DISPLAY «, t00=0x004b, t01=0x016e}
0x76a2…76b4 Head {h00=0x000e, h01=0x0050, text=» ANK A2,4 «, t00=0x004b, t01=0x0190}
0x76b4…76d8 Head {h00=0x0020, h01=0x0050, text=» RF(Z) DIS205 HIGH INTENSITY«, t00=0x004c, t01=0x0012}
0x76d8…76fa Head {h00=0x001e, h01=0x0050, text=» LDK A2,/1E LOW INTENSITY «, t00=0x004c, t01=0x0036}
0x76fa…770c Head {h00=0x000e, h01=0x0050, text=» RF DIS206«, t00=0x004c, t01=0x0058}
0x770c…7720 Head {h00=0x0010, h01=0x0050, text=»DIS205 EQU *«, t00=0x004c, t01=0x006a}
0x7720…7738 Head {h00=0x0014, h01=0x0050, text=» LDK A2,/1F HIGH«, t00=0x004c, t01=0x007e}
0x7738…774c Head {h00=0x0010, h01=0x0050, text=»DIS206 EQU *«, t00=0x004c, t01=0x0096}
0x774c…777a Head {h00=0x002a, h01=0x0050, text=» SC A2,-1,A7 STORE INTENSITY CHARACTER«, t00=0x004c, t01=0x00aa}
0x777a…77a0 Head {h00=0x0022, h01=0x0050, text=» ADKL A10,1 INCREMENT COUNTER «, t00=0x004c, t01=0x00d8}
0x77a0…77b2 Head {h00=0x000e, h01=0x0050, text=» ADK A7,1 «, t00=0x004c, t01=0x00fe}
0x77b2…77c4 Head {h00=0x000e, h01=0x0050, text=» RB DIS100«, t00=0x004c, t01=0x0110}
0x77c4…77d8 Head {h00=0x0010, h01=0x0050, text=»DIS210 EQU *«, t00=0x004c, t01=0x0122}
0x77d8…77ee Head {h00=0x0012, h01=0x0050, text=» CWK A9,LLINE «, t00=0x004c, t01=0x0136}
0x77ee…7804 Head {h00=0x0012, h01=0x0050, text=» RF(L) DIS220 «, t00=0x004c, t01=0x014c}
0x7804…782c Head {h00=0x0024, h01=0x0050, text=» CF A14,DISLIN DISPLAY THIS LINE«, t00=0x004c, t01=0x0162}
0x782c…7840 Head {h00=0x0010, h01=0x0050, text=»DIS220 EQU *«, t00=0x004c, t01=0x018a}
0x7840…7856 Head {h00=0x0012, h01=0x0050, text=» CWK A3,LBVDU «, t00=0x004d, t01=0x000e}
0x7856…787a Head {h00=0x0020, h01=0x0050, text=» RF(NL) DIS900 ALL DISPLAYED«, t00=0x004d, t01=0x0024}
0x787a…788c Head {h00=0x000e, h01=0x0050, text=» LCR A2,A4«, t00=0x004d, t01=0x0048}
0x788c…78ce Head {h00=0x003e, h01=0x0050, text=»************************************************* 78-08-15«, t00=0x004d, t01=0x005a}
0x78ce…78d6 Head {h00=0x0004, h01=0x0050, t00=0x004d, t01=0x009c}
0x78d6…78fc Head {h00=0x0022, h01=0x0050, text=» CF A14,SET:M SET MODIFIED BIT«, t00=0x004d, t01=0x00a4}
0x78fc…7904 Head {h00=0x0004, h01=0x0050, t00=0x004d, t01=0x00ca}
0x7904…7946 Head {h00=0x003e, h01=0x0050, text=»************************************************ 78-08-15 «, t00=0x004d, t01=0x00d2}
0x7946…795a Head {h00=0x0010, h01=0x0050, text=»DIS225 EQU *«, t00=0x004d, t01=0x0114}
0x795a…7980 Head {h00=0x0022, h01=0x0050, text=» ANK A2,/7F RESET DISPLAY BIT «, t00=0x004d, t01=0x0128}
0x7980…7992 Head {h00=0x000e, h01=0x0050, text=» SCR A2,A4«, t00=0x004d, t01=0x014e}
0x7992…79a4 Head {h00=0x000e, h01=0x0050, text=» ADK A3,1 «, t00=0x004d, t01=0x0160}
0x79a4…79b6 Head {h00=0x000e, h01=0x0050, text=» ADK A4,1 «, t00=0x004d, t01=0x0172}
0x79b6…79c8 Head {h00=0x000e, h01=0x0050, text=» ADK A7,1 «, t00=0x004d, t01=0x0184}
0x79c8…79da Head {h00=0x000e, h01=0x0050, text=» ADKL A9,1«, t00=0x004e, t01=0x0008}
0x79da…79ee Head {h00=0x0010, h01=0x0050, text=» CWK A2,/20 «, t00=0x004e, t01=0x001a}
0x79ee…7a14 Head {h00=0x0022, h01=0x0050, text=» RB(L) DIS200 ATTRIBUTE FOUND «, t00=0x004e, t01=0x002e}
0x7a14…7a26 Head {h00=0x000e, h01=0x0050, text=» RB DIS210«, t00=0x004e, t01=0x0054}
0x7a26…7a34 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x004e, t01=0x0066}
0x7a34…7a3e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004e, t01=0x0074}
0x7a3e…7a48 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004e, t01=0x007e}
0x7a48…7a66 Head {h00=0x001a, h01=0x0050, text=»* POSITION THE CURSOR «, t00=0x004e, t01=0x0088}
0x7a66…7a70 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004e, t01=0x00a6}
0x7a70…7a7a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004e, t01=0x00b0}
0x7a7a…7a8e Head {h00=0x0010, h01=0x0050, text=»SETCUR EQU *«, t00=0x004e, t01=0x00ba}
0x7a8e…7ab0 Head {h00=0x001e, h01=0x0050, text=»DIS900 LDK A1,2 REQ LENGTH«, t00=0x004e, t01=0x00ce}
0x7ab0…7ace Head {h00=0x001a, h01=0x0050, text=»DIS905 ST A1,ECBRL,A8 «, t00=0x004e, t01=0x00f0}
0x7ace…7af8 Head {h00=0x0026, h01=0x0050, text=» LD A1,PCURS,TCABAS GET CURSOR POS«, t00=0x004e, t01=0x010e}
0x7af8…7b22 Head {h00=0x0026, h01=0x0050, text=» LDKL A2,/101 START ON LIN 1 POS 1«, t00=0x004e, t01=0x0138}
0x7b22…7b3a Head {h00=0x0014, h01=0x0050, text=» ST A2,ECBCW,A8 «, t00=0x004e, t01=0x0162}
0x7b3a…7b50 Head {h00=0x0012, h01=0x0050, text=» LDKL A2,/100 «, t00=0x004e, t01=0x017a}
0x7b50…7b6c Head {h00=0x0018, h01=0x0050, text=»DIS910 CWK A1,LLINE «, t00=0x004e, t01=0x0190}
0x7b6c…7b82 Head {h00=0x0012, h01=0x0050, text=» RF(L) DIS920 «, t00=0x004f, t01=0x001c}
0x7b82…7b9a Head {h00=0x0014, h01=0x0050, text=» ADS A2,ECBCW,A8«, t00=0x004f, t01=0x0032}
0x7b9a…7bb0 Head {h00=0x0012, h01=0x0050, text=» SUKL A1,LLINE«, t00=0x004f, t01=0x004a}
0x7bb0…7bc2 Head {h00=0x000e, h01=0x0050, text=» RB DIS910«, t00=0x004f, t01=0x0060}
0x7bc2…7be0 Head {h00=0x001a, h01=0x0050, text=»DIS920 ADS A1,ECBCW,A8«, t00=0x004f, t01=0x0072}
0x7be0…7c08 Head {h00=0x0024, h01=0x0050, text=» LDK A7,/8B SET CURSOR AND WRITE«, t00=0x004f, t01=0x0090}
0x7c08…7c14 Head {h00=0x0008, h01=0x0050, text=» LKM«, t00=0x004f, t01=0x00b8}
0x7c14…7c24 Head {h00=0x000c, h01=0x0050, text=» DATA 1 «, t00=0x004f, t01=0x00c4}
0x7c24…7c58 Head {h00=0x0030, h01=0x0050, text=» CM INTATT,TCABAS CLEAR INTENSITY ATTRIBUTE «, t00=0x004f, t01=0x00d4}
0x7c58…7c68 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x004f, t01=0x0108}
0x7c68…7c76 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x004f, t01=0x0118}
0x7c76…7c80 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004f, t01=0x0126}
0x7c80…7c8a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004f, t01=0x0130}
0x7c8a…7cbe Head {h00=0x0030, h01=0x0050, text=»* WRITE ONE CHAR FROM A2 IN CURSOR POSITION «, t00=0x004f, t01=0x013a}
0x7cbe…7cc8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004f, t01=0x016e}
0x7cc8…7cd2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004f, t01=0x0178}
0x7cd2…7cee Head {h00=0x0018, h01=0x0050, text=»WCHAR LD A1,ECBBA,A8«, t00=0x004f, t01=0x0182}
0x7cee…7d04 Head {h00=0x0012, h01=0x0050, text=» CF A14,RFMDUP«, t00=0x0050, t01=0x000e}
0x7d04…7d38 Head {h00=0x0030, h01=0x0050, text=» SC A2,3,A1 STORE CHAR IN VDU OUTPUT BUFFER «, t00=0x0050, t01=0x0024}
0x7d38…7d4a Head {h00=0x000e, h01=0x0050, text=» LDK A1,4 «, t00=0x0050, t01=0x0058}
0x7d4a…7d6c Head {h00=0x001e, h01=0x0050, text=» RB DIS905 REQ LENGTH = 3 «, t00=0x0050, t01=0x006a}
0x7d6c…7d76 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0050, t01=0x008c}
0x7d76…7dc4 Head {h00=0x004a, h01=0x0050, text=»********************************************************************* «, t00=0x0050, t01=0x0096}
0x7dc4…7dce Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0050, t01=0x00e4}
0x7dce…7e0a Head {h00=0x0038, h01=0x0050, text=»* REPLACE FM & DUP WITH '*' RESP. ';', IF PRESENT«, t00=0x0050, t01=0x00ee}
0x7e0a…7e28 Head {h00=0x001a, h01=0x0050, text=»* CHARACTER IN A2«, t00=0x0050, t01=0x012a}
0x7e28…7e32 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0050, t01=0x0148}
0x7e32…7e80 Head {h00=0x004a, h01=0x0050, text=»********************************************************************* «, t00=0x0050, t01=0x0152}
0x7e80…7e8a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0051, t01=0x0010}
0x7e8a…7e9e Head {h00=0x0010, h01=0x0050, text=»RFMDUP EQU *«, t00=0x0051, t01=0x001a}
0x7e9e…7eb4 Head {h00=0x0012, h01=0x0050, text=» CWK A2,DUPCH «, t00=0x0051, t01=0x002e}
0x7eb4…7eca Head {h00=0x0012, h01=0x0050, text=» RF(NE) RFMD10«, t00=0x0051, t01=0x0044}
0x7eca…7ee2 Head {h00=0x0014, h01=0x0050, text=» LDK A2,/2A DUP «, t00=0x0051, t01=0x005a}
0x7ee2…7ef6 Head {h00=0x0010, h01=0x0050, text=»RFMD10 EQU *«, t00=0x0051, t01=0x0072}
0x7ef6…7f0a Head {h00=0x0010, h01=0x0050, text=» CWK A2,FMCH«, t00=0x0051, t01=0x0086}
0x7f0a…7f20 Head {h00=0x0012, h01=0x0050, text=» RF(NE) RFMD20«, t00=0x0051, t01=0x009a}
0x7f20…7f34 Head {h00=0x0010, h01=0x0050, text=» LDK A2,/3B «, t00=0x0051, t01=0x00b0}
0x7f34…7f48 Head {h00=0x0010, h01=0x0050, text=»RFMD20 EQU *«, t00=0x0051, t01=0x00c4}
0x7f48…7f58 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0051, t01=0x00d8}
0x7f58…7f66 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0051, t01=0x00e8}
0x7f66…7f70 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0051, t01=0x00f6}
0x7f70…7f7a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0051, t01=0x0100}
0x7f7a…7fa6 Head {h00=0x0028, h01=0x0050, text=»* PUT SPACES TO DISPLAY LINE BUFFER «, t00=0x0051, t01=0x010a}
0x7fa6…7fb0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0051, t01=0x0136}
0x7fb0…7fba Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0051, t01=0x0140}
0x7fba…7fd8 Head {h00=0x001a, h01=0x0050, text=»SPACES LD A7,ECBBA,A8 «, t00=0x0051, t01=0x014a}
0x7fd8…7ff8 Head {h00=0x001c, h01=0x0050, text=» ADK A7,2 BUFFER ADDRESS«, t00=0x0051, t01=0x0168}
0x7ff8…801a Head {h00=0x001e, h01=0x0050, text=» LDKL A9,LLINE LINE LENGTH«, t00=0x0051, t01=0x0188}
0x801a…8036 Head {h00=0x0018, h01=0x0050, text=» ADR A9,A9 DOUBLE IT«, t00=0x0052, t01=0x001a}
0x8036…8052 Head {h00=0x0018, h01=0x0050, text=» LDKL A2,' ' SPACES«, t00=0x0052, t01=0x0036}
0x8052…806e Head {h00=0x0018, h01=0x0050, text=»SPAC10 SCR A2,A7 =1«, t00=0x0052, t01=0x0052}
0x806e…8086 Head {h00=0x0014, h01=0x0050, text=» SC A2,1,A7 =1 «, t00=0x0052, t01=0x006e}
0x8086…8098 Head {h00=0x000e, h01=0x0050, text=» ADK A7,2 «, t00=0x0052, t01=0x0086}
0x8098…80aa Head {h00=0x000e, h01=0x0050, text=» SUKL A9,2«, t00=0x0052, t01=0x0098}
0x80aa…80c0 Head {h00=0x0012, h01=0x0050, text=» RB(P) SPAC10 «, t00=0x0052, t01=0x00aa}
0x80c0…80e8 Head {h00=0x0024, h01=0x0050, text=» LDK A2,0 CLEAR A2=CHAR REGISTER«, t00=0x0052, t01=0x00c0}
0x80e8…8112 Head {h00=0x0026, h01=0x0050, text=» LDK A5,0 RESET MODIFIED INDICATOR«, t00=0x0052, t01=0x00e8}
0x8112…812a Head {h00=0x0014, h01=0x0050, text=» LD A7,ECBBA,A8 «, t00=0x0052, t01=0x0112}
0x812a…814a Head {h00=0x001c, h01=0x0050, text=» ADK A7,2 BUFFER ADDRESS«, t00=0x0052, t01=0x012a}
0x814a…8174 Head {h00=0x0026, h01=0x0050, text=» SUR A9,A9 RESET LINE CHAR COUNTER«, t00=0x0052, t01=0x014a}
0x8174…8184 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0052, t01=0x0174}
0x8184…8192 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0052, t01=0x0184}
0x8192…819c (83, 0, 400) Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0053, t01=0x0004}
0x819c…81a6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0053, t01=0x000e}
0x81a6…81d2 Head {h00=0x0028, h01=0x0050, text=»* DISPLAY LINE IF ANY MODIFICATIONS «, t00=0x0053, t01=0x0018}
0x81d2…81dc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0053, t01=0x0044}
0x81dc…81e6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0053, t01=0x004e}
0x81e6…8228 Head {h00=0x003e, h01=0x0050, text=»************************************************* 78-08-15«, t00=0x0053, t01=0x0058}
0x8228…8230 Head {h00=0x0004, h01=0x0050, t00=0x0053, t01=0x009a}
0x8230…8244 Head {h00=0x0010, h01=0x0050, text=»DISLIN EQU *«, t00=0x0053, t01=0x00a2}
0x8244…8256 Head {h00=0x000e, h01=0x0050, text=» LDR A7,A5«, t00=0x0053, t01=0x00b6}
0x8256…827e Head {h00=0x0024, h01=0x0050, text=» ANK A5,/80 ANY MODIFICATIONS ??«, t00=0x0053, t01=0x00c8}
0x827e…82a4 Head {h00=0x0022, h01=0x0050, text=» RF(Z) DISL10 NO MODIFICATIONS«, t00=0x0053, t01=0x00f0}
0x82a4…82b6 Head {h00=0x000e, h01=0x0050, text=» LDK A1,2 «, t00=0x0053, t01=0x0116}
0x82b6…82e2 Head {h00=0x0028, h01=0x0050, text=» XRK A7,/A0 ONLY SPACES IN BUFFER ??«, t00=0x0053, t01=0x0128}
0x82e2…82fe Head {h00=0x0018, h01=0x0050, text=» RF(Z) DIS:10 YES!! «, t00=0x0053, t01=0x0154}
0x82fe…8316 Head {h00=0x0014, h01=0x0050, text=» LDKL A1,LLINE+2«, t00=0x0053, t01=0x0170}
0x8316…8348 Head {h00=0x002e, h01=0x0050, text=» ADR A1,A10 ADD NR OF INTENSITY CHARACTERS«, t00=0x0053, t01=0x0188}
0x8348…835c Head {h00=0x0010, h01=0x0050, text=»DIS:10 EQU *«, t00=0x0054, t01=0x002a}
0x835c…839c Head {h00=0x003c, h01=0x0050, text=»*********************************************** 78-08-15«, t00=0x0054, t01=0x003e}
0x839c…83c2 Head {h00=0x0022, h01=0x0050, text=» ST A1,ECBRL,A8 SET REQ LENGTH«, t00=0x0054, t01=0x007e}
0x83c2…83ca Head {h00=0x0004, h01=0x0050, t00=0x0054, t01=0x00a4}
0x83ca…83d2 Head {h00=0x0004, h01=0x0050, t00=0x0054, t01=0x00ac}
0x83d2…83fa Head {h00=0x0024, h01=0x0050, text=» LDK A7,/8B SET CURSOR AND WRITE«, t00=0x0054, t01=0x00b4}
0x83fa…8406 Head {h00=0x0008, h01=0x0050, text=» LKM«, t00=0x0054, t01=0x00dc}
0x8406…8416 Head {h00=0x000c, h01=0x0050, text=» DATA 1 «, t00=0x0054, t01=0x00e8}
0x8416…8424 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0054, t01=0x00f8}
0x8424…842c Head {h00=0x0004, h01=0x0050, t00=0x0054, t01=0x0106}
0x842c…8478 Head {h00=0x0048, h01=0x0050, text=»********************************************************************«, t00=0x0054, t01=0x010e}
0x8478…8482 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0054, t01=0x015a}
0x8482…84b6 Head {h00=0x0030, h01=0x0050, text=»* EXECUTE FAST OUTPUT TO BLANK REMAINIG PART«, t00=0x0054, t01=0x0164}
0x84b6…84cc Head {h00=0x0012, h01=0x0050, text=»* OF THE LINE «, t00=0x0055, t01=0x0008}
0x84cc…84d6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0055, t01=0x001e}
0x84d6…8522 Head {h00=0x0048, h01=0x0050, text=»******************************************************************* «, t00=0x0055, t01=0x0028}
0x8522…852a Head {h00=0x0004, h01=0x0050, t00=0x0055, t01=0x0074}
0x852a…8552 Head {h00=0x0024, h01=0x0050, text=» LD A1,ECBCW,A8 CURSOR POSITION «, t00=0x0055, t01=0x007c}
0x8552…8576 Head {h00=0x0020, h01=0x0050, text=» ANK A1,X'FF' COLUMN NUMBER «, t00=0x0055, t01=0x00a4}
0x8576…859e Head {h00=0x0024, h01=0x0050, text=»* SUK A1,81 LAST POSITION ??? DK«, t00=0x0055, t01=0x00c8}
0x859e…85c4 Head {h00=0x0022, h01=0x0050, text=» SUK A1,80 LAST POSITION ? DK «, t00=0x0055, t01=0x00f0}
0x85c4…85fc Head {h00=0x0034, h01=0x0050, text=»* RF(Z) DISL10 YES!! NO FAST OUTPUT THIS LINE DK«, t00=0x0055, t01=0x0116}
0x85fc…8634 Head {h00=0x0034, h01=0x0050, text=» RF(NL) DISL10 YES, NO FAST OUTPUT THIS LINE DK «, t00=0x0055, t01=0x014e}
0x8634…863c Head {h00=0x0004, h01=0x0050, t00=0x0055, t01=0x0186}
0x863c…8662 Head {h00=0x0022, h01=0x0050, text=» LD A1,ECBBA,A8 BUFFER ADRESS «, t00=0x0055, t01=0x018e}
0x8662…8692 Head {h00=0x002c, h01=0x0050, text=» LDK A2,X'2B' DONT MOVE CURSOR ONE LINE «, t00=0x0056, t01=0x0024}
0x8692…86aa Head {h00=0x0014, h01=0x0050, text=» SC A2,1,A1 =1 «, t00=0x0056, t01=0x0054}
0x86aa…86d8 Head {h00=0x002a, h01=0x0050, text=» LDKL A2,X'1420' FAST OUTPUT OF SPACES«, t00=0x0056, t01=0x006c}
0x86d8…86f0 Head {h00=0x0014, h01=0x0050, text=» SC A2,3,A1 =1 «, t00=0x0056, t01=0x009a}
0x86f0…8706 Head {h00=0x0012, h01=0x0050, text=» SRL A2,8 =1 «, t00=0x0056, t01=0x00b2}
0x8706…871e Head {h00=0x0014, h01=0x0050, text=» SC A2,2,A1 =1 «, t00=0x0056, t01=0x00c8}
0x871e…8742 Head {h00=0x0020, h01=0x0050, text=» LDK A2,84 REQUESTED LENGTH «, t00=0x0056, t01=0x00e0}
0x8742…875a Head {h00=0x0014, h01=0x0050, text=» ST A2,ECBRL,A8 «, t00=0x0056, t01=0x0104}
0x875a…877c Head {h00=0x001e, h01=0x0050, text=» LDK A7,X'86' WRITE ORDER «, t00=0x0056, t01=0x011c}
0x877c…8788 Head {h00=0x0008, h01=0x0050, text=» LKM«, t00=0x0056, t01=0x013e}
0x8788…8798 Head {h00=0x000c, h01=0x0050, text=» DATA 1 «, t00=0x0056, t01=0x014a}
0x8798…87a0 Head {h00=0x0004, h01=0x0050, t00=0x0056, t01=0x015a}
0x87a0…87b4 Head {h00=0x0010, h01=0x0050, text=»DISL10 EQU *«, t00=0x0056, t01=0x0162}
0x87b4…87c6 Head {h00=0x000e, h01=0x0050, text=» LDK A2,1 «, t00=0x0056, t01=0x0176}
0x87c6…87f2 Head {h00=0x0028, h01=0x0050, text=» SC A2,ECBCW+1,A8 POS 1 ON NEXT LINE«, t00=0x0056, t01=0x0188}
0x87f2…8808 Head {h00=0x0012, h01=0x0050, text=» LDKL A2,/100 «, t00=0x0057, t01=0x0024}
0x8808…8836 Head {h00=0x002a, h01=0x0050, text=» ADS A2,ECBCW,A8 INCREMENT LINE NUMBER«, t00=0x0057, t01=0x003a}
0x8836…885e Head {h00=0x0024, h01=0x0050, text=» RB SPACES PUT SPACES TO BUFFER «, t00=0x0057, t01=0x0068}
0x885e…8866 Head {h00=0x0004, h01=0x0050, t00=0x0057, t01=0x0090}
0x8866…8874 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0057, t01=0x0098}
0x8874…887c Head {h00=0x0004, h01=0x0050, t00=0x0057, t01=0x00a6}
0x887c…8884 Head {h00=0x0004, h01=0x0050, t00=0x0057, t01=0x00ae}
0x8884…88cc Head {h00=0x0044, h01=0x0050, text=»****************************************************************«, t00=0x0057, t01=0x00b6}
0x88cc…88d6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0057, t01=0x00fe}
0x88d6…8918 Head {h00=0x003e, h01=0x0050, text=»* I N T C H K CHECK IF LINE SHOULD BE PRINTED WITH«, t00=0x0057, t01=0x0108}
0x8918…894c Head {h00=0x0030, h01=0x0050, text=»* HIGH OR LOW INTENSITY «, t00=0x0057, t01=0x014a}
0x894c…8956 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0057, t01=0x017e}
0x8956…89a4 Head {h00=0x004a, h01=0x0050, text=»**********************************************************************«, t00=0x0057, t01=0x0188}
0x89a4…89ac Head {h00=0x0004, h01=0x0050, t00=0x0058, t01=0x0046}
0x89ac…89dc Head {h00=0x002c, h01=0x0050, text=»INTCHK SUR A10,A10 RESET INTENSITY COUNT«, t00=0x0058, t01=0x004e}
0x89dc…8a10 Head {h00=0x0030, h01=0x0050, text=» LD A2,INTATT,TCABAS GET INTENSITY ATTRIBUTE«, t00=0x0058, t01=0x007e}
0x8a10…8a32 Head {h00=0x001e, h01=0x0050, text=» RF(Z) INTRTN NON DISPLAY «, t00=0x0058, t01=0x00b2}
0x8a32…8a5a Head {h00=0x0024, h01=0x0050, text=» ANK A2,X'4' HIGH INTENSITY ??? «, t00=0x0058, t01=0x00d4}
0x8a5a…8a74 Head {h00=0x0016, h01=0x0050, text=» RF(Z) INT:10 YES «, t00=0x0058, t01=0x00fc}
0x8a74…8a7c Head {h00=0x0004, h01=0x0050, t00=0x0058, t01=0x0116}
0x8a7c…8aa0 Head {h00=0x0020, h01=0x0050, text=» LDK A2,X'1E' LOW INTENSITY «, t00=0x0058, t01=0x011e}
0x8aa0…8ac2 Head {h00=0x001e, h01=0x0050, text=» RF INT:20 HIGH INTENSITY «, t00=0x0058, t01=0x0142}
0x8ac2…8aca Head {h00=0x0004, h01=0x0050, t00=0x0058, t01=0x0164}
0x8aca…8af4 Head {h00=0x0026, h01=0x0050, text=»INT:10 LDK A2,X'1F' HIGH INTENSITY«, t00=0x0058, t01=0x016c}
0x8af4…8afc Head {h00=0x0004, h01=0x0050, t00=0x0059, t01=0x0008}
0x8afc…8b38 Head {h00=0x0038, h01=0x0050, text=»INT:20 SCR A2,A7 SAVE INTENSITY CHARACTER IN BUFFER «, t00=0x0059, t01=0x0010}
0x8b38…8b62 Head {h00=0x0026, h01=0x0050, text=» ADK A7,1 INCREMENT BUFFER POINTER«, t00=0x0059, t01=0x004c}
0x8b62…8b90 Head {h00=0x002a, h01=0x0050, text=» ADKL A10,1 INTENSITY COUNT «, t00=0x0059, t01=0x0076}
0x8b90…8bae Head {h00=0x001a, h01=0x0050, text=»INTRTN RTN A14 RETURN «, t00=0x0059, t01=0x00a4}
0x8bae…8bb8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0059, t01=0x00c2}
0x8bb8…8bc6 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0059, t01=0x00cc}
0x8bc6…8bce Head {h00=0x0004, h01=0x0050, t00=0x0059, t01=0x00da}
0x8bce…8c16 Head {h00=0x0044, h01=0x0050, text=»****************************************************************«, t00=0x0059, t01=0x00e2}
0x8c16…8c20 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0059, t01=0x012a}
0x8c20…8c64 Head {h00=0x0040, h01=0x0050, text=»* SET:M SET MODIFIED BIT IF CHARACTER HAS BEEN MODIFIED «, t00=0x0059, t01=0x0134}
0x8c64…8c6e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0059, t01=0x0178}
0x8c6e…8cb8 Head {h00=0x0046, h01=0x0050, text=»******************************************************************«, t00=0x0059, t01=0x0182}
0x8cb8…8cc0 Head {h00=0x0004, h01=0x0050, t00=0x005a, t01=0x003c}
0x8cc0…8cd8 Head {h00=0x0014, h01=0x0050, text=»SET:M CWK A2,/20«, t00=0x005a, t01=0x0044}
0x8cd8…8d02 Head {h00=0x0026, h01=0x0050, text=» RF(L) SET:M2 ATTRIBUTE CHARACTER «, t00=0x005a, t01=0x005c}
0x8d02…8d16 Head {h00=0x0010, h01=0x0050, text=» CWK A2,/7F «, t00=0x005a, t01=0x0086}
0x8d16…8d40 Head {h00=0x0026, h01=0x0050, text=» RF(E) SET:M2 UNMODIFIED ATTRIBUTE«, t00=0x005a, t01=0x009a}
0x8d40…8d54 Head {h00=0x0010, h01=0x0050, text=» CWK A2,/FF «, t00=0x005a, t01=0x00c4}
0x8d54…8d80 Head {h00=0x0028, h01=0x0050, text=» RF(NE) SET:M1 NOT NULL OR ATTRIBUTE«, t00=0x005a, t01=0x00d8}
0x8d80…8dac Head {h00=0x0028, h01=0x0050, text=» ORK A5,/A0 MODIFIED NULL CHARACTER «, t00=0x005a, t01=0x0104}
0x8dac…8dbc Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x005a, t01=0x0130}
0x8dbc…8de6 Head {h00=0x0026, h01=0x0050, text=»SET:M1 ORR A5,A2 SET MODIFIED BIT «, t00=0x005a, t01=0x0140}
0x8de6…8dfc Head {h00=0x0012, h01=0x0050, text=»SET:M2 RTN A14«, t00=0x005a, t01=0x016a}
0x8dfc…8e08 Head {h00=0x0008, h01=0x0050, text=» END«, t00=0x005a, t01=0x0180}
0x8e08…8e0c Head {h00=0x4004, h01=0x0000}
0x8e0c…8e10 00 5a 01 8c ┆ Z ┆
0x8e10…8e18 (91, 1, 8) 20 04 00 00 00 5b 00 04 ┆ [ ┆
0x8e18…8e68 (92, 0, 400) 01 90 8c 30 05 95 06 90 00 90 10 31 06 95 b2 00 21 01 10 34 21 01 12 52 01 90 13 36 95 03 00 09 12 30 21 d6 ab 15 90 91 57 10 30 21 d6 ab 12 90 91 57 07 30 21 d6 ab 13 90 91 5c 24 32 91 03 1e 1f 1e 5f 2c 80 0d 34 02 01 90 13 36 95 03 00 09 ┆ 0 1 ! 4! R 6 0! W 0! W 0! $2 _, 4 6 ┆
0x8e68…8eb8 12 30 21 56 ab 15 90 91 57 10 30 21 56 ab 12 90 91 57 07 30 21 56 ab 13 90 91 34 02 01 90 8b 30 05 95 06 90 00 90 10 31 06 95 b2 17 34 00 80 0e 14 12 34 00 00 92 11 00 80 90 25 80 13 4c 25 80 17 42 21 80 17 04 29 80 1a 3a 01 81 1d 01 8a 71 ┆ 0!V W 0!V W 0!V 4 0 1 4 4 % L% B! ) : q┆
0x8eb8…8f08 00 8b ab 49 aa 04 21 8b 71 2a 01 88 72 62 88 15 11 8b 81 08 88 1e 81 02 8a 88 05 81 11 05 80 11 19 80 10 1a 00 89 8a 0b 8a 7b 09 8a 7b 04 89 8a 21 89 71 06 01 93 16 00 92 13 34 00 00 92 11 01 88 72 00 8b ab 01 81 1a 62 88 14 12 8b 81 23 88 ┆ I ! q* rb { { ! q 4 r b # ┆
0x8f08…8f58 7c 17 25 88 72 13 05 81 12 62 88 14 12 8b 81 23 88 96 06 25 88 72 02 57 06 00 92 13 01 93 17 01 88 79 34 00 00 88 ab 23 88 7c 09 25 88 72 05 00 92 11 57 06 00 92 13 01 93 17 34 00 00 92 11 29 91 80 0c 00 8c ab 09 8c 78 00 ab 8c 01 91 13 34 ┆| % r b # % r W y4 # | % r W 4 ) x 4┆
0x8f58…8fa8 00 00 92 11 00 88 ab 23 88 9c 26 21 88 9b 22 09 88 73 00 89 32 04 89 88 25 89 71 0d 00 80 89 22 80 33 06 24 80 34 02 34 00 00 92 13 01 93 18 34 00 00 80 88 34 00 80 0f 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 08 ┆ # &! " s 2 % q " 3 $ 4 4 4 4 ┆