|
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: 36380 (0x8e1c)
Notes: pts_type(SC)
Names: »VDUPRT.SC«
└─⟦38a30a456⟧ Bits:30009662 Philips computer tape "600104"
└─⟦this⟧ »OD-KOM/VDUPRT.SC«
└─⟦d2cdd233a⟧ Bits:30009674 Philips computer tape "600204"
└─⟦this⟧ »OD-KOM/VDUPRT.SC«
IDENT VDUPRT 2.1DK 2 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 600 DC TIME OUT VALUE: 60 S DK2 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 2 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…08e6 Head {h00=0x002e, h01=0x0050, text=»TIMDC EQU 600 DC TIME OUT VALUE: 60 S DK2 «, t00=0x0005, t01=0x00ea}
0x08e6…08fa Head {h00=0x0010, h01=0x0050, text=»ESC EQU /1B «, t00=0x0005, t01=0x011c}
0x08fa…090e Head {h00=0x0010, h01=0x0050, text=»SBA EQU /11 «, t00=0x0005, t01=0x0130}
0x090e…0932 Head {h00=0x0020, h01=0x0050, text=»NULL EQU /7F NULL CHARACTER «, t00=0x0005, t01=0x0144}
0x0932…095c Head {h00=0x0026, h01=0x0050, text=»NEWLIN EQU /7E NEW LINE CHARACTER «, t00=0x0005, t01=0x0168}
0x095c…0984 (6, 0, 398) Head {h00=0x0024, h01=0x0050, text=»ENDMES EQU /7D END MESSAGE CHAR «, t00=0x0006, t01=0x0004}
0x0984…09aa Head {h00=0x0022, h01=0x0050, text=»FORMFD EQU /7C FORM FEED CHAR «, t00=0x0006, t01=0x002c}
0x09aa…09c0 Head {h00=0x0012, h01=0x0050, text=»DUPCH EQU /7B «, t00=0x0006, t01=0x0052}
0x09c0…09d4 Head {h00=0x0010, h01=0x0050, text=»FMCH EQU /60«, t00=0x0006, t01=0x0068}
0x09d4…09e2 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0006, t01=0x007c}
0x09e2…09ec Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x008a}
0x09ec…09f6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x0094}
0x09f6…0a0c Head {h00=0x0012, h01=0x0050, text=»* EQUATES «, t00=0x0006, t01=0x009e}
0x0a0c…0a16 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x00b4}
0x0a16…0a3c Head {h00=0x0022, h01=0x0050, text=»* COMMON EQU FOR ECB HANDLING «, t00=0x0006, t01=0x00be}
0x0a3c…0a46 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x00e4}
0x0a46…0a4e Head {h00=0x0004, h01=0x0050, t00=0x0006, t01=0x00ee}
0x0a4e…0a62 Head {h00=0x0010, h01=0x0050, text=»ECBBA EQU 2 «, t00=0x0006, t01=0x00f6}
0x0a62…0a76 Head {h00=0x0010, h01=0x0050, text=»ECBRL EQU 4 «, t00=0x0006, t01=0x010a}
0x0a76…0a8a Head {h00=0x0010, h01=0x0050, text=»ECBEL EQU 6 «, t00=0x0006, t01=0x011e}
0x0a8a…0a9e Head {h00=0x0010, h01=0x0050, text=»ECBRC EQU 8 «, t00=0x0006, t01=0x0132}
0x0a9e…0ab2 Head {h00=0x0010, h01=0x0050, text=»ECBCW EQU 10«, t00=0x0006, t01=0x0146}
0x0ab2…0abc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x015a}
0x0abc…0ac6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x0164}
0x0ac6…0ae0 Head {h00=0x0016, h01=0x0050, text=»* CREDIT USED EQU «, t00=0x0006, t01=0x016e}
0x0ae0…0aea Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x0188}
0x0aea…0af4 (7, 0, 400) Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x0004}
0x0af4…0b10 Head {h00=0x0018, h01=0x0050, text=»* ECB REL. ADDRESSES«, t00=0x0007, t01=0x000e}
0x0b10…0b1a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x002a}
0x0b1a…0b24 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x0034}
0x0b24…0b36 Head {h00=0x000e, h01=0x0050, text=»DIS EQU 20«, t00=0x0007, t01=0x003e}
0x0b36…0b40 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x0050}
0x0b40…0b5a Head {h00=0x0016, h01=0x0050, text=»ECBDC EQU -DIS-14 «, t00=0x0007, t01=0x005a}
0x0b5a…0b6e Head {h00=0x0010, h01=0x0050, text=» IFT DCLIN=2«, t00=0x0007, t01=0x0074}
0x0b6e…0b84 Head {h00=0x0012, h01=0x0050, text=» IFT COPCMD=1 «, t00=0x0007, t01=0x0088}
0x0b84…0ba0 Head {h00=0x0018, h01=0x0050, text=»ECBDC2 EQU ECBDC-DIS«, t00=0x0007, t01=0x009e}
0x0ba0…0bbe Head {h00=0x001a, h01=0x0050, text=»ECBICR EQU ECBDC2-DIS «, t00=0x0007, t01=0x00ba}
0x0bbe…0bdc Head {h00=0x001a, h01=0x0050, text=»ECBICW EQU ECBICR-DIS «, t00=0x0007, t01=0x00d8}
0x0bdc…0be8 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0007, t01=0x00f6}
0x0be8…0bfc Head {h00=0x0010, h01=0x0050, text=» IFT DCLIN=2«, t00=0x0007, t01=0x0102}
0x0bfc…0c12 Head {h00=0x0012, h01=0x0050, text=» IFF COPCMD=1 «, t00=0x0007, t01=0x0116}
0x0c12…0c2e Head {h00=0x0018, h01=0x0050, text=»ECBDC2 EQU ECBDC-DIS«, t00=0x0007, t01=0x012c}
0x0c2e…0c4c Head {h00=0x001a, h01=0x0050, text=»ECBICW EQU ECBDC2-DIS «, t00=0x0007, t01=0x0148}
0x0c4c…0c58 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0007, t01=0x0166}
0x0c58…0c6c Head {h00=0x0010, h01=0x0050, text=» IFF DCLIN=2«, t00=0x0007, t01=0x0172}
0x0c6c…0c82 Head {h00=0x0012, h01=0x0050, text=» IFT COPCMD=1 «, t00=0x0007, t01=0x0186}
0x0c82…0c9e Head {h00=0x0018, h01=0x0050, text=»ECBICR EQU ECBDC-DIS«, t00=0x0008, t01=0x000c}
0x0c9e…0cbc Head {h00=0x001a, h01=0x0050, text=»ECBICW EQU ECBICR-DIS «, t00=0x0008, t01=0x0028}
0x0cbc…0cc8 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0008, t01=0x0046}
0x0cc8…0cdc Head {h00=0x0010, h01=0x0050, text=» IFF DCLIN=2«, t00=0x0008, t01=0x0052}
0x0cdc…0cf2 Head {h00=0x0012, h01=0x0050, text=» IFF COPCMD=1 «, t00=0x0008, t01=0x0066}
0x0cf2…0d0e Head {h00=0x0018, h01=0x0050, text=»ECBICW EQU ECBDC-DIS«, t00=0x0008, t01=0x007c}
0x0d0e…0d1a Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0008, t01=0x0098}
0x0d1a…0d38 Head {h00=0x001a, h01=0x0050, text=»ECBVDU EQU ECBICW-DIS «, t00=0x0008, t01=0x00a4}
0x0d38…0d54 Head {h00=0x0018, h01=0x0050, text=»ECBKB EQU ECBVDU-DIS«, t00=0x0008, t01=0x00c2}
0x0d54…0d70 Head {h00=0x0018, h01=0x0050, text=»ECBSD EQU ECBKB-DIS «, t00=0x0008, t01=0x00de}
0x0d70…0d7e Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0008, t01=0x00fa}
0x0d7e…0d88 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x0108}
0x0d88…0d92 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x0112}
0x0d92…0db8 Head {h00=0x0022, h01=0x0050, text=»* BASE ADDRESS FOR TCA AND ECB«, t00=0x0008, t01=0x011c}
0x0db8…0dc2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x0142}
0x0dc2…0dd8 Head {h00=0x0012, h01=0x0050, text=»TCABAS EQU A11«, t00=0x0008, t01=0x014c}
0x0dd8…0df2 Head {h00=0x0016, h01=0x0050, text=»CREBAS EQU A13 ECB«, t00=0x0008, t01=0x0162}
0x0df2…0dfc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x017c}
0x0dfc…0e06 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x0186}
0x0e06…0e22 Head {h00=0x0018, h01=0x0050, text=»* TCA REL. ADDRESSES«, t00=0x0008, t01=0x0190}
0x0e22…0e2c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x001c}
0x0e2c…0e40 Head {h00=0x0010, h01=0x0050, text=»TCT01 EQU 0 «, t00=0x0009, t01=0x0026}
0x0e40…0e5c Head {h00=0x0018, h01=0x0050, text=»PRINTER EQU TCT01+2 «, t00=0x0009, t01=0x003a}
0x0e5c…0e88 Head {h00=0x0028, h01=0x0050, text=»BVDU EQU PRINTER+2 VDU SCREEN BUFFER«, t00=0x0009, t01=0x0056}
0x0e88…0ebc Head {h00=0x0030, h01=0x0050, text=»PCURS EQU BVDU+1920 CURSOR ADDRESS , BINARY «, t00=0x0009, t01=0x0082}
0x0ebc…0eea Head {h00=0x002a, h01=0x0050, text=»ATTRIB EQU PCURS+2 LAST ATTRIBUTE CHAR«, t00=0x0009, t01=0x00b6}
0x0eea…0f06 Head {h00=0x0018, h01=0x0050, text=»CURATT EQU ATTRIB+2 «, t00=0x0009, t01=0x00e4}
0x0f06…0f30 Head {h00=0x0026, h01=0x0050, text=»WCC EQU CURATT+2 WCC/CCC CHARACTER«, t00=0x0009, t01=0x0100}
0x0f30…0f62 Head {h00=0x002e, h01=0x0050, text=»KBINH EQU WCC+2 KEYBOARD INHIBIT INDICATOR«, t00=0x0009, t01=0x012a}
0x0f62…0f8a Head {h00=0x0024, h01=0x0050, text=»LINCNT EQU KBINH+2 LINE COUNTER «, t00=0x0009, t01=0x015c}
0x0f8a…0fbe Head {h00=0x0030, h01=0x0050, text=»DCLENG EQU LINCNT+2 DC READ EFFECTIVE LENGTH«, t00=0x0009, t01=0x0184}
0x0fbe…0ff4 Head {h00=0x0032, h01=0x0050, text=»ICWORK EQU DCLENG+2 WORK FIELD INTERTASK COMM «, t00=0x000a, t01=0x0028}
0x0ff4…1024 Head {h00=0x002c, h01=0x0050, text=»INTATT EQU ICWORK+2 INTENSITY ATTRIBUTE «, t00=0x000a, t01=0x005e}
0x1024…104c Head {h00=0x0024, h01=0x0050, text=»OFFFLG EQU INTATT+2 OFFLINE FLAG«, t00=0x000a, t01=0x008e}
0x104c…1078 Head {h00=0x0028, h01=0x0050, text=»COPNO EQU OFFFLG+2 HARDCOPY TASK ID «, t00=0x000a, t01=0x00b6}
0x1078…10a6 Head {h00=0x002a, h01=0x0050, text=»CCC EQU COPNO+2 COPY COMMAND CHARACTER«, t00=0x000a, t01=0x00e2}
0x10a6…10c8 Head {h00=0x001e, h01=0x0050, text=»MAIN EQU CCC+2 MAIN FRAME «, t00=0x000a, t01=0x0110}
0x10c8…10f2 Head {h00=0x0026, h01=0x0050, text=»MODE EQU MAIN+2 INSERT MODE SWITCH«, t00=0x000a, t01=0x0132}
0x10f2…111a Head {h00=0x0024, h01=0x0050, text=»KEYS EQU MODE+2 KEY LOCK STATUS «, t00=0x000a, t01=0x015c}
0x111a…114c Head {h00=0x002e, h01=0x0050, text=»ECBDCC EQU KEYS+2 ECB ADDRESS LAST READ DC«, t00=0x000a, t01=0x0184}
0x114c…1182 Head {h00=0x0032, h01=0x0050, text=»ECBBLK EQU ECBDCC+2 ECBS FOR MULTIPLE WAIT &C «, t00=0x000b, t01=0x0026}
0x1182…11ba Head {h00=0x0034, h01=0x0050, text=»RDMORE EQU ECBBLK+10 BRANCH ADDRESS NEXT READ KB«, t00=0x000b, t01=0x005c}
0x11ba…11c8 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000b, t01=0x0094}
0x11c8…11d0 Head {h00=0x0004, h01=0x0050, t00=0x000b, t01=0x00a2}
0x11d0…11da Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x00aa}
0x11da…11e4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x00b4}
0x11e4…1212 Head {h00=0x002a, h01=0x0050, text=»LBVDU EQU 1920 1920 CHARACTER DISPLAY «, t00=0x000b, t01=0x00be}
0x1212…1238 Head {h00=0x0022, h01=0x0050, text=»LPAGE EQU 48 LINES ON ONE PAGE«, t00=0x000b, t01=0x00ec}
0x1238…1266 Head {h00=0x002a, h01=0x0050, text=»LLINE EQU 80 80 CHAR PER DISPLAY LINE «, t00=0x000b, t01=0x0112}
0x1266…1298 Head {h00=0x002e, h01=0x0050, text=»TID EQU -4 TASK IDENTITY T:A DISPLACEMENT «, t00=0x000b, t01=0x0140}
0x1298…12a2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x0172}
0x12a2…12cc Head {h00=0x0026, h01=0x0050, text=»* CONFIG DATA 'CB1' REL ADDRESSES «, t00=0x000b, t01=0x017c}
0x12cc…12d6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x0016}
0x12d6…12fc Head {h00=0x0022, h01=0x0050, text=»NBRKBV EQU 0 NUMBER OF KB/VDUS«, t00=0x000c, t01=0x0020}
0x12fc…1326 Head {h00=0x0026, h01=0x0050, text=»NBRGTP EQU NBRKBV+2 NUMBER OF GTPS«, t00=0x000c, t01=0x0046}
0x1326…1330 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x0070}
0x1330…1366 Head {h00=0x0032, h01=0x0050, text=»MF1KBV EQU NBRGTP+2 DV ADDRESSES KB/VDU MF #1 «, t00=0x000c, t01=0x007a}
0x1366…139c Head {h00=0x0032, h01=0x0050, text=»MF1GTP EQU MF1KBV+16 DV ADDRESSES GTPS MF # 1 «, t00=0x000c, t01=0x00b0}
0x139c…13b0 Head {h00=0x0010, h01=0x0050, text=» IFT DCLIN=2«, t00=0x000c, t01=0x00e6}
0x13b0…13cc Head {h00=0x0018, h01=0x0050, text=»MF2KBV EQU MF1GTP+16«, t00=0x000c, t01=0x00fa}
0x13cc…13e8 Head {h00=0x0018, h01=0x0050, text=»MF2GTP EQU MF2KBV+16«, t00=0x000c, t01=0x0116}
0x13e8…13f4 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x000c, t01=0x0132}
0x13f4…13fe Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x013e}
0x13fe…1406 Head {h00=0x0004, h01=0x0050, t00=0x000c, t01=0x0148}
0x1406…1414 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000c, t01=0x0150}
0x1414…145c Head {h00=0x0044, h01=0x0050, text=»****************************************************************«, t00=0x000c, t01=0x015e}
0x145c…1466 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x0016}
0x1466…147e Head {h00=0x0014, h01=0x0050, text=»* INPUT FROM DC «, t00=0x000d, t01=0x0020}
0x147e…1488 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x0038}
0x1488…14c4 Head {h00=0x0038, h01=0x0050, text=»****************************************************«, t00=0x000d, t01=0x0042}
0x14c4…14ce Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x007e}
0x14ce…14ee Head {h00=0x001c, h01=0x0050, text=»* RELATIVE POS IN ECBBLK«, t00=0x000d, t01=0x0088}
0x14ee…14fe Head {h00=0x000c, h01=0x0050, text=»KB EQU 2«, t00=0x000d, t01=0x00a8}
0x14fe…1510 Head {h00=0x000e, h01=0x0050, text=»DC1 EQU 4 «, t00=0x000d, t01=0x00b8}
0x1510…1522 Head {h00=0x000e, h01=0x0050, text=»DC2 EQU 6 «, t00=0x000d, t01=0x00ca}
0x1522…152c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x00dc}
0x152c…1540 Head {h00=0x0010, h01=0x0050, text=»DCINP EQU * «, t00=0x000d, t01=0x00e6}
0x1540…156a Head {h00=0x0026, h01=0x0050, text=» CF A14,GTRBUF GET RECEIVE BUFFER «, t00=0x000d, t01=0x00fa}
0x156a…1586 Head {h00=0x0018, h01=0x0050, text=» LD A8,ECBDCC,TCABAS«, t00=0x000d, t01=0x0124}
0x1586…15aa Head {h00=0x0020, h01=0x0050, text=» CF A14,DCGETM READ MESSAGE «, t00=0x000d, t01=0x0140}
0x15aa…15be Head {h00=0x0010, h01=0x0050, text=» IFF DCLIN=2«, t00=0x000d, t01=0x0164}
0x15be…15dc Head {h00=0x001a, h01=0x0050, text=» CM ECBBLK+DC1,TCABAS «, t00=0x000d, t01=0x0178}
0x15dc…15e8 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x000e, t01=0x0008}
0x15e8…15fc Head {h00=0x0010, h01=0x0050, text=» IFT DCLIN=2«, t00=0x000e, t01=0x0014}
0x15fc…1616 Head {h00=0x0016, h01=0x0050, text=» LD A1,MAIN,TCABAS«, t00=0x000e, t01=0x0028}
0x1616…1636 Head {h00=0x001c, h01=0x0050, text=» CW A8,ECBBLK+DC2,TCABAS«, t00=0x000e, t01=0x0042}
0x1636…1652 Head {h00=0x0018, h01=0x0050, text=» RF(E) DCIN20 MF # 2«, t00=0x000e, t01=0x0062}
0x1652…1670 Head {h00=0x001a, h01=0x0050, text=» CM ECBBLK+DC1,TCABAS «, t00=0x000e, t01=0x007e}
0x1670…1682 Head {h00=0x000e, h01=0x0050, text=» LDR A1,A1«, t00=0x000e, t01=0x009c}
0x1682…16a2 Head {h00=0x001c, h01=0x0050, text=» RF(NZ) DCIN90 WRONG MF «, t00=0x000e, t01=0x00ae}
0x16a2…16b4 Head {h00=0x000e, h01=0x0050, text=» RF DCIN30«, t00=0x000e, t01=0x00ce}
0x16b4…16c8 Head {h00=0x0010, h01=0x0050, text=»DCIN20 EQU *«, t00=0x000e, t01=0x00e0}
0x16c8…16e6 Head {h00=0x001a, h01=0x0050, text=» CM ECBBLK+DC2,TCABAS «, t00=0x000e, t01=0x00f4}
0x16e6…16f8 Head {h00=0x000e, h01=0x0050, text=» LDR A1,A1«, t00=0x000e, t01=0x0112}
0x16f8…1716 Head {h00=0x001a, h01=0x0050, text=» RF(Z) DCIN90 WRONG MF«, t00=0x000e, t01=0x0124}
0x1716…1722 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x000e, t01=0x0142}
0x1722…1736 Head {h00=0x0010, h01=0x0050, text=»DCIN30 EQU *«, t00=0x000e, t01=0x014e}
0x1736…174a Head {h00=0x0010, h01=0x0050, text=» IFT OFLIN=1«, t00=0x000e, t01=0x0162}
0x174a…1766 Head {h00=0x0018, h01=0x0050, text=» LD A1,OFFFLG,TCABAS«, t00=0x000e, t01=0x0176}
0x1766…177c (15, 0, 400) Head {h00=0x0012, h01=0x0050, text=» RF(NZ) DCIN90«, t00=0x000f, t01=0x0004}
0x177c…1788 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x000f, t01=0x001a}
0x1788…17b4 Head {h00=0x0028, h01=0x0050, text=» LD A1,ECBEL,A8 EFFECTIVE DC-LENGTH «, t00=0x000f, t01=0x0026}
0x17b4…17d0 Head {h00=0x0018, h01=0x0050, text=» ST A1,DCLENG,TCABAS«, t00=0x000f, t01=0x0052}
0x17d0…17d8 Head {h00=0x0004, h01=0x0050, t00=0x000f, t01=0x006e}
0x17d8…17e0 Head {h00=0x0004, h01=0x0050, t00=0x000f, t01=0x0076}
0x17e0…17fc Head {h00=0x0018, h01=0x0050, text=» LD A5,KBINH,TCABAS «, t00=0x000f, t01=0x007e}
0x17fc…182e Head {h00=0x002e, h01=0x0050, text=» ORK A5,3 BIT 14,15:= 1. TOTALLY DISABLED «, t00=0x000f, t01=0x009a}
0x182e…1860 Head {h00=0x002e, h01=0x0050, text=»* KEYBOARD. BIT 15 = 0 AFTER DISPLAYING.«, t00=0x000f, t01=0x00cc}
0x1860…187c Head {h00=0x0018, h01=0x0050, text=» ST A5,KBINH,TCABAS «, t00=0x000f, t01=0x00fe}
0x187c…18ae Head {h00=0x002e, h01=0x0050, text=» CF A14,LINHON TURN ON 'KEYBOARD INHIBIT' «, t00=0x000f, t01=0x011a}
0x18ae…18e0 Head {h00=0x002e, h01=0x0050, text=» CF A14,LSAVON TURN ON "SYSTEM AVAILABLE" «, t00=0x000f, t01=0x014c}
0x18e0…18f6 Head {h00=0x0012, h01=0x0050, text=» CF A14,UPDATE«, t00=0x000f, t01=0x017e}
0x18f6…190c (16, 0, 398) Head {h00=0x0012, h01=0x0050, text=» CF A14,DISPL «, t00=0x0010, t01=0x0004}
0x190c…1928 Head {h00=0x0018, h01=0x0050, text=» LD A2,PCURS,TCABAS «, t00=0x0010, t01=0x001a}
0x1928…193e Head {h00=0x0012, h01=0x0050, text=» CF A14,ATMASB«, t00=0x0010, t01=0x0036}
0x193e…1946 Head {h00=0x0004, h01=0x0050, t00=0x0010, t01=0x004c}
0x1946…194e Head {h00=0x0004, h01=0x0050, t00=0x0010, t01=0x0054}
0x194e…1958 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x005c}
0x1958…1974 Head {h00=0x0018, h01=0x0050, text=» LD A2,KBINH,TCABAS «, t00=0x0010, t01=0x0066}
0x1974…1992 Head {h00=0x001a, h01=0x0050, text=» ANK A2,1 BIT 15 = 0? «, t00=0x0010, t01=0x0082}
0x1992…19a8 Head {h00=0x0012, h01=0x0050, text=» RF(Z) DCIN60 «, t00=0x0010, t01=0x00a0}
0x19a8…19c4 Head {h00=0x0018, h01=0x0050, text=» LD A2,KBINH,TCABAS «, t00=0x0010, t01=0x00b6}
0x19c4…19f6 Head {h00=0x002e, h01=0x0050, text=» ANK A2,/E BIT 15:=0 KEYBOARD NOT TOTALLY «, t00=0x0010, t01=0x00d2}
0x19f6…1a16 Head {h00=0x001c, h01=0x0050, text=»* INHIBITED ANY LONGER«, t00=0x0010, t01=0x0104}
0x1a16…1a32 Head {h00=0x0018, h01=0x0050, text=» ST A2,KBINH,TCABAS «, t00=0x0010, t01=0x0124}
0x1a32…1a4c Head {h00=0x0016, h01=0x0050, text=» LD A2,WCC,TCABAS «, t00=0x0010, t01=0x0140}
0x1a4c…1a5e Head {h00=0x000e, h01=0x0050, text=» ANK A2,2 «, t00=0x0010, t01=0x015a}
0x1a5e…1a74 Head {h00=0x0012, h01=0x0050, text=» RF(Z) DCIN95 «, t00=0x0010, t01=0x016c}
0x1a74…1a88 Head {h00=0x0010, h01=0x0050, text=»DCIN60 EQU *«, t00=0x0010, t01=0x0182}
0x1a88…1aba Head {h00=0x002e, h01=0x0050, text=» CF A14,LINHOF TURN OFF 'KEYBOARD INHIBIT'«, t00=0x0011, t01=0x0008}
0x1aba…1ad6 Head {h00=0x0018, h01=0x0050, text=» LD A2,KBINH,TCABAS «, t00=0x0011, t01=0x003a}
0x1ad6…1b06 Head {h00=0x002c, h01=0x0050, text=» ANK A2,4 BITS 14,15:=0 RESTORE KEYBOARD«, t00=0x0011, t01=0x0056}
0x1b06…1b22 Head {h00=0x0018, h01=0x0050, text=» ST A2,KBINH,TCABAS «, t00=0x0011, t01=0x0086}
0x1b22…1b34 Head {h00=0x000e, h01=0x0050, text=» RF DCIN95«, t00=0x0011, t01=0x00a2}
0x1b34…1b48 Head {h00=0x0010, h01=0x0050, text=»DCIN90 EQU *«, t00=0x0011, t01=0x00b4}
0x1b48…1b64 Head {h00=0x0018, h01=0x0050, text=» LD A8,ECBDCC,TCABAS«, t00=0x0011, t01=0x00c8}
0x1b64…1b7c Head {h00=0x0014, h01=0x0050, text=» LD A4,ECBBA,A8 «, t00=0x0011, t01=0x00e4}
0x1b7c…1b92 Head {h00=0x0012, h01=0x0050, text=» CF A14,RLRBUF«, t00=0x0011, t01=0x00fc}
0x1b92…1ba6 Head {h00=0x0010, h01=0x0050, text=»DCIN95 EQU *«, t00=0x0011, t01=0x0112}
0x1ba6…1bbc Head {h00=0x0012, h01=0x0050, text=» CF A14,SNBUSY«, t00=0x0011, t01=0x0126}
0x1bbc…1bcc Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0011, t01=0x013c}
0x1bcc…1bda Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0011, t01=0x014c}
0x1bda…1be4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x015a}
0x1be4…1bf6 Head {h00=0x000e, h01=0x0050, text=»* READ DC «, t00=0x0011, t01=0x0164}
0x1bf6…1c00 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x0176}
0x1c00…1c14 Head {h00=0x0010, h01=0x0050, text=»DCGETM EQU *«, t00=0x0011, t01=0x0180}
0x1c14…1c26 (18, 0, 400) Head {h00=0x000e, h01=0x0050, text=» LDK A1,0 «, t00=0x0012, t01=0x0004}
0x1c26…1c3c Head {h00=0x0012, h01=0x0050, text=» CF A14,REQTIM«, t00=0x0012, t01=0x0016}
0x1c3c…1c5a Head {h00=0x001a, h01=0x0050, text=» LDK A7,/82 READ, WAIT«, t00=0x0012, t01=0x002c}
0x1c5a…1c86 Head {h00=0x0028, h01=0x0050, text=» CM ECBCW,A8 NO TIME OUT SUPERVISION«, t00=0x0012, t01=0x004a}
0x1c86…1ca2 Head {h00=0x0018, h01=0x0050, text=» LDKL A1,RBUFL+RBUFL«, t00=0x0012, t01=0x0076}
0x1ca2…1cc4 Head {h00=0x001e, h01=0x0050, text=» ST A1,ECBRL,A8 REQ LENGTH«, t00=0x0012, t01=0x0092}
0x1cc4…1cdc Head {h00=0x0014, h01=0x0050, text=» ST A4,ECBBA,A8 «, t00=0x0012, t01=0x00b4}
0x1cdc…1ce8 Head {h00=0x0008, h01=0x0050, text=» LKM«, t00=0x0012, t01=0x00cc}
0x1ce8…1cf8 Head {h00=0x000c, h01=0x0050, text=» DATA 1 «, t00=0x0012, t01=0x00d8}
0x1cf8…1d08 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0012, t01=0x00e8}
0x1d08…1d16 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0012, t01=0x00f8}
0x1d16…1d58 Head {h00=0x003e, h01=0x0050, text=»**********************************************************«, t00=0x0012, t01=0x0106}
0x1d58…1d62 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x0148}
0x1d62…1d7c Head {h00=0x0016, h01=0x0050, text=»* BUFFER HANDLING «, t00=0x0012, t01=0x0152}
0x1d7c…1d86 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x016c}
0x1d86…1dc8 Head {h00=0x003e, h01=0x0050, text=»**********************************************************«, t00=0x0012, t01=0x0176}
0x1dc8…1dd2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x0028}
0x1dd2…1df2 Head {h00=0x001c, h01=0x0050, text=»RLINK EQU RBUFL+RBUFL+2 «, t00=0x0013, t01=0x0032}
0x1df2…1dfc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x0052}
0x1dfc…1e0e Head {h00=0x000e, h01=0x0050, text=»RBUF EQU *«, t00=0x0013, t01=0x005c}
0x1e0e…1e32 Head {h00=0x0020, h01=0x0050, text=» DATA *+2 POINTER FIRST FREE«, t00=0x0013, t01=0x006e}
0x1e32…1e48 Head {h00=0x0012, h01=0x0050, text=» IFF RBUFNR=1 «, t00=0x0013, t01=0x0092}
0x1e48…1e5e Head {h00=0x0012, h01=0x0050, text=» DATA *+RLINK «, t00=0x0013, t01=0x00a8}
0x1e5e…1e70 Head {h00=0x000e, h01=0x0050, text=» RES RBUFL«, t00=0x0013, t01=0x00be}
0x1e70…1e86 Head {h00=0x0012, h01=0x0050, text=» IFF RBUFNR=2 «, t00=0x0013, t01=0x00d0}
0x1e86…1e9c Head {h00=0x0012, h01=0x0050, text=» DATA *+RLINK «, t00=0x0013, t01=0x00e6}
0x1e9c…1eae Head {h00=0x000e, h01=0x0050, text=» RES RBUFL«, t00=0x0013, t01=0x00fc}
0x1eae…1ec4 Head {h00=0x0012, h01=0x0050, text=» IFF RBUFNR=3 «, t00=0x0013, t01=0x010e}
0x1ec4…1eda Head {h00=0x0012, h01=0x0050, text=» DATA *+RLINK «, t00=0x0013, t01=0x0124}
0x1eda…1eec Head {h00=0x000e, h01=0x0050, text=» RES RBUFL«, t00=0x0013, t01=0x013a}
0x1eec…1f02 Head {h00=0x0012, h01=0x0050, text=» IFF RBUFNR=4 «, t00=0x0013, t01=0x014c}
0x1f02…1f18 Head {h00=0x0012, h01=0x0050, text=» DATA *+RLINK «, t00=0x0013, t01=0x0162}
0x1f18…1f2a Head {h00=0x000e, h01=0x0050, text=» RES RBUFL«, t00=0x0013, t01=0x0178}
0x1f2a…1f36 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0013, t01=0x018a}
0x1f36…1f52 Head {h00=0x0018, h01=0x0050, text=» DATA 0 END OF CHAIN«, t00=0x0014, t01=0x0008}
0x1f52…1f64 Head {h00=0x000e, h01=0x0050, text=» RES RBUFL«, t00=0x0014, t01=0x0024}
0x1f64…1f6e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x0036}
0x1f6e…1f78 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x0040}
0x1f78…1f98 Head {h00=0x001c, h01=0x0050, text=»TLINK EQU TBUFL+TBUFL+2 «, t00=0x0014, t01=0x004a}
0x1f98…1fa2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x006a}
0x1fa2…1fb4 Head {h00=0x000e, h01=0x0050, text=»TBUF EQU *«, t00=0x0014, t01=0x0074}
0x1fb4…1fd8 Head {h00=0x0020, h01=0x0050, text=» DATA *+2 POINTER FIRST FREE«, t00=0x0014, t01=0x0086}
0x1fd8…1fee Head {h00=0x0012, h01=0x0050, text=» IFF TBUFNR=1 «, t00=0x0014, t01=0x00aa}
0x1fee…2004 Head {h00=0x0012, h01=0x0050, text=» DATA *+TLINK «, t00=0x0014, t01=0x00c0}
0x2004…2016 Head {h00=0x000e, h01=0x0050, text=» RES TBUFL«, t00=0x0014, t01=0x00d6}
0x2016…202c Head {h00=0x0012, h01=0x0050, text=» IFF TBUFNR=2 «, t00=0x0014, t01=0x00e8}
0x202c…2042 Head {h00=0x0012, h01=0x0050, text=» DATA *+TLINK «, t00=0x0014, t01=0x00fe}
0x2042…2054 Head {h00=0x000e, h01=0x0050, text=» RES TBUFL«, t00=0x0014, t01=0x0114}
0x2054…206a Head {h00=0x0012, h01=0x0050, text=» IFF TBUFNR=3 «, t00=0x0014, t01=0x0126}
0x206a…2080 Head {h00=0x0012, h01=0x0050, text=» DATA *+TLINK «, t00=0x0014, t01=0x013c}
0x2080…2092 Head {h00=0x000e, h01=0x0050, text=» RES TBUFL«, t00=0x0014, t01=0x0152}
0x2092…20a8 Head {h00=0x0012, h01=0x0050, text=» IFF TBUFNR=4 «, t00=0x0014, t01=0x0164}
0x20a8…20be Head {h00=0x0012, h01=0x0050, text=» DATA *+TLINK «, t00=0x0014, t01=0x017a}
0x20be…20d0 Head {h00=0x000e, h01=0x0050, text=» RES TBUFL«, t00=0x0014, t01=0x0190}
0x20d0…20dc Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0015, t01=0x0012}
0x20dc…20f8 Head {h00=0x0018, h01=0x0050, text=» DATA 0 END OF CHAIN«, t00=0x0015, t01=0x001e}
0x20f8…210a Head {h00=0x000e, h01=0x0050, text=» RES TBUFL«, t00=0x0015, t01=0x003a}
0x210a…2114 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x004c}
0x2114…211e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x0056}
0x211e…2138 Head {h00=0x0016, h01=0x0050, text=»* GET WRITE BUFFER«, t00=0x0015, t01=0x0060}
0x2138…2142 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x007a}
0x2142…2156 Head {h00=0x0010, h01=0x0050, text=»GTWBUF EQU *«, t00=0x0015, t01=0x0084}
0x2156…216c Head {h00=0x0012, h01=0x0050, text=» LDKL A5,TBUF «, t00=0x0015, t01=0x0098}
0x216c…2182 Head {h00=0x0012, h01=0x0050, text=» CF A14,GETBUF«, t00=0x0015, t01=0x00ae}
0x2182…2194 Head {h00=0x000e, h01=0x0050, text=» LDR A7,A4«, t00=0x0015, t01=0x00c4}
0x2194…21a8 Head {h00=0x0010, h01=0x0050, text=» LDR A12,A4 «, t00=0x0015, t01=0x00d6}
0x21a8…21be Head {h00=0x0012, h01=0x0050, text=» ADK A7,2 SKIP«, t00=0x0015, t01=0x00ea}
0x21be…21e2 Head {h00=0x0020, h01=0x0050, text=» LDKL A9,2 FOR DV ADDRESS «, t00=0x0015, t01=0x0100}
0x21e2…21f2 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0015, t01=0x0124}
0x21f2…21fc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x0134}
0x21fc…2218 Head {h00=0x0018, h01=0x0050, text=»* GET RECEIVE BUFFER«, t00=0x0015, t01=0x013e}
0x2218…2222 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x015a}
0x2222…2236 Head {h00=0x0010, h01=0x0050, text=»GTRBUF EQU *«, t00=0x0015, t01=0x0164}
0x2236…224c Head {h00=0x0012, h01=0x0050, text=» LDKL A5,RBUF «, t00=0x0015, t01=0x0178}
0x224c…2256 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x018e}
0x2256…2260 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0016, t01=0x0008}
0x2260…2274 Head {h00=0x0010, h01=0x0050, text=»GETBUF EQU *«, t00=0x0016, t01=0x0012}
0x2274…2288 Head {h00=0x0010, h01=0x0050, text=» LDR* A4,A5 «, t00=0x0016, t01=0x0026}
0x2288…22ac Head {h00=0x0020, h01=0x0050, text=» RF(Z) GETB50 NO BUFFER FREE«, t00=0x0016, t01=0x003a}
0x22ac…22c0 Head {h00=0x0010, h01=0x0050, text=» LDR* A3,A4 «, t00=0x0016, t01=0x005e}
0x22c0…22d2 Head {h00=0x000e, h01=0x0050, text=» STR A3,A5«, t00=0x0016, t01=0x0072}
0x22d2…22ee Head {h00=0x0018, h01=0x0050, text=» ADK A4,2 SKIP LINK «, t00=0x0016, t01=0x0084}
0x22ee…22fe Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0016, t01=0x00a0}
0x22fe…2312 Head {h00=0x0010, h01=0x0050, text=»GETB50 EQU *«, t00=0x0016, t01=0x00b0}
0x2312…231e Head {h00=0x0008, h01=0x0050, text=» LKM«, t00=0x0016, t01=0x00c4}
0x231e…233a Head {h00=0x0018, h01=0x0050, text=» DATA 0 SWITCH TASK «, t00=0x0016, t01=0x00d0}
0x233a…234c Head {h00=0x000e, h01=0x0050, text=» RB GETBUF«, t00=0x0016, t01=0x00ec}
0x234c…2356 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0016, t01=0x00fe}
0x2356…236e Head {h00=0x0014, h01=0x0050, text=»* RELEASE BUFFER«, t00=0x0016, t01=0x0108}
0x236e…2378 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0016, t01=0x0120}
0x2378…238c Head {h00=0x0010, h01=0x0050, text=»RLRBUF EQU *«, t00=0x0016, t01=0x012a}
0x238c…23a2 Head {h00=0x0012, h01=0x0050, text=» LDKL A2,RBUF «, t00=0x0016, t01=0x013e}
0x23a2…23b6 Head {h00=0x0010, h01=0x0050, text=»RELB05 EQU *«, t00=0x0016, t01=0x0154}
0x23b6…23d6 Head {h00=0x001c, h01=0x0050, text=» SUK A4,2 POINT TO LINK «, t00=0x0016, t01=0x0168}
0x23d6…23ea Head {h00=0x0010, h01=0x0050, text=»RELB10 EQU *«, t00=0x0016, t01=0x0188}
0x23ea…23fe Head {h00=0x0010, h01=0x0050, text=» LDR* A3,A2 «, t00=0x0017, t01=0x000c}
0x23fe…2414 Head {h00=0x0012, h01=0x0050, text=» RF(Z) RELB20 «, t00=0x0017, t01=0x0020}
0x2414…2426 Head {h00=0x000e, h01=0x0050, text=» LDR A2,A3«, t00=0x0017, t01=0x0036}
0x2426…2438 Head {h00=0x000e, h01=0x0050, text=» RB RELB10«, t00=0x0017, t01=0x0048}
0x2438…244c Head {h00=0x0010, h01=0x0050, text=»RELB20 EQU *«, t00=0x0017, t01=0x005a}
0x244c…245e Head {h00=0x000e, h01=0x0050, text=» STR A4,A2«, t00=0x0017, t01=0x006e}
0x245e…246e Head {h00=0x000c, h01=0x0050, text=» CMR A4 «, t00=0x0017, t01=0x0080}
0x246e…247e Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0017, t01=0x0090}
0x247e…2488 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0017, t01=0x00a0}
0x2488…249c Head {h00=0x0010, h01=0x0050, text=»RLWBUF EQU *«, t00=0x0017, t01=0x00aa}
0x249c…24b2 Head {h00=0x0012, h01=0x0050, text=» LDKL A2,TBUF «, t00=0x0017, t01=0x00be}
0x24b2…24c4 Head {h00=0x000e, h01=0x0050, text=» RB RELB05«, t00=0x0017, t01=0x00d4}
0x24c4…24d2 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0017, t01=0x00e6}
0x24d2…24dc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0017, t01=0x00f4}
0x24dc…24e6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0017, t01=0x00fe}
0x24e6…250c Head {h00=0x0022, h01=0x0050, text=»* STORE CHARACTER IN DC BUFFER«, t00=0x0017, t01=0x0108}
0x250c…2516 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0017, t01=0x012e}
0x2516…2528 Head {h00=0x000e, h01=0x0050, text=»* A2=CHAR «, t00=0x0017, t01=0x0138}
0x2528…2544 Head {h00=0x0018, h01=0x0050, text=»* A7=BUFFER POINTER «, t00=0x0017, t01=0x014a}
0x2544…256a Head {h00=0x0022, h01=0x0050, text=»* A9=BUFFER CHARACTER COUNTER «, t00=0x0017, t01=0x0166}
0x256a…2574 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0017, t01=0x018c}
0x2574…257e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0018, t01=0x0008}
0x257e…2592 Head {h00=0x0010, h01=0x0050, text=»PDCCH EQU * «, t00=0x0018, t01=0x0012}
0x2592…25b2 Head {h00=0x001c, h01=0x0050, text=» CWK A9,TBUFL+TBUFL =3 «, t00=0x0018, t01=0x0026}
0x25b2…25d0 Head {h00=0x001a, h01=0x0050, text=» RF(G) PDCCHR OVERFLOW«, t00=0x0018, t01=0x0046}
0x25d0…25e2 Head {h00=0x000e, h01=0x0050, text=» SCR A2,A7«, t00=0x0018, t01=0x0064}
0x25e2…25f6 Head {h00=0x0010, h01=0x0050, text=»PDCCH1 EQU *«, t00=0x0018, t01=0x0076}
0x25f6…2608 Head {h00=0x000e, h01=0x0050, text=» ADK A7,1 «, t00=0x0018, t01=0x008a}
0x2608…261a Head {h00=0x000e, h01=0x0050, text=» ADKL A9,1«, t00=0x0018, t01=0x009c}
0x261a…2630 Head {h00=0x0012, h01=0x0050, text=»PDCCHR RTN A14«, t00=0x0018, t01=0x00ae}
0x2630…263a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0018, t01=0x00c4}
0x263a…2644 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0018, t01=0x00ce}
0x2644…2668 Head {h00=0x0020, h01=0x0050, text=»* STORE ATTENTION ID FROM A2«, t00=0x0018, t01=0x00d8}
0x2668…2672 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0018, t01=0x00fc}
0x2672…267c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0018, t01=0x0106}
0x267c…2696 Head {h00=0x0016, h01=0x0050, text=»PAID CF A14,PDCCH «, t00=0x0018, t01=0x0110}
0x2696…26a6 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0018, t01=0x012a}
0x26a6…26b0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0018, t01=0x013a}
0x26b0…26ba Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0018, t01=0x0144}
0x26ba…26e6 Head {h00=0x0028, h01=0x0050, text=»* GET CHARACTER FROM DC BUFFER TO A2«, t00=0x0018, t01=0x014e}
0x26e6…26f0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0018, t01=0x017a}
0x26f0…26fa Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0018, t01=0x0184}
0x26fa…2712 Head {h00=0x0014, h01=0x0050, text=»GDCCH LCR A2,A7 «, t00=0x0018, t01=0x018e}
0x2712…2726 Head {h00=0x0010, h01=0x0050, text=» ANK A2,/FF «, t00=0x0019, t01=0x0016}
0x2726…2750 Head {h00=0x0026, h01=0x0050, text=» RF(NZ) GDCC:1 NOT NULL CHARACTER «, t00=0x0019, t01=0x002a}
0x2750…2778 Head {h00=0x0024, h01=0x0050, text=» LDK A2,/7F LOAD NULL CHARACTER «, t00=0x0019, t01=0x0054}
0x2778…278c Head {h00=0x0010, h01=0x0050, text=»GDCC:1 EQU *«, t00=0x0019, t01=0x007c}
0x278c…279e Head {h00=0x000e, h01=0x0050, text=» RB PDCCH1«, t00=0x0019, t01=0x0090}
0x279e…27ac Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0019, t01=0x00a2}
0x27ac…27b6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0019, t01=0x00b0}
0x27b6…27c0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0019, t01=0x00ba}
0x27c0…27f2 Head {h00=0x002e, h01=0x0050, text=»* GET BUFFER ADDRESS TO A1 FROM DC BUFFER «, t00=0x0019, t01=0x00c4}
0x27f2…27fc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0019, t01=0x00f6}
0x27fc…2806 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0019, t01=0x0100}
0x2806…2822 Head {h00=0x0018, h01=0x0050, text=»GETADR CF A14,GDCCH «, t00=0x0019, t01=0x010a}
0x2822…283a Head {h00=0x0014, h01=0x0050, text=» LC A1,TEBCDI,A2«, t00=0x0019, t01=0x0126}
0x283a…284e Head {h00=0x0010, h01=0x0050, text=» ANK A1,/3F «, t00=0x0019, t01=0x013e}
0x284e…2860 Head {h00=0x000e, h01=0x0050, text=» SLL A1,6 «, t00=0x0019, t01=0x0152}
0x2860…2876 Head {h00=0x0012, h01=0x0050, text=» CF A14,GDCCH «, t00=0x0019, t01=0x0164}
0x2876…288e Head {h00=0x0014, h01=0x0050, text=» LC A2,TEBCDI,A2«, t00=0x0019, t01=0x017a}
0x288e…28a2 (26, 0, 400) Head {h00=0x0010, h01=0x0050, text=» ANK A2,/3F «, t00=0x001a, t01=0x0004}
0x28a2…28b4 Head {h00=0x000e, h01=0x0050, text=» ORR A1,A2«, t00=0x001a, t01=0x0018}
0x28b4…28c4 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x001a, t01=0x002a}
0x28c4…28d2 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x001a, t01=0x003a}
0x28d2…28dc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001a, t01=0x0048}
0x28dc…28e6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001a, t01=0x0052}
0x28e6…290c Head {h00=0x0022, h01=0x0050, text=»* WRITE MESSAGE TO MAIN FRAME «, t00=0x001a, t01=0x005c}
0x290c…2916 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001a, t01=0x0082}
0x2916…2940 Head {h00=0x0026, h01=0x0050, text=»* ON EXIT A1 CONTAINS RETURN CODE «, t00=0x001a, t01=0x008c}
0x2940…294a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001a, t01=0x00b6}
0x294a…2954 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001a, t01=0x00c0}
0x2954…2968 Head {h00=0x0010, h01=0x0050, text=»DCWRTE EQU *«, t00=0x001a, t01=0x00ca}
0x2968…297e Head {h00=0x0012, h01=0x0050, text=» LDKL A8,ECBDC«, t00=0x001a, t01=0x00de}
0x297e…2992 Head {h00=0x0010, h01=0x0050, text=» IFT DCLIN=2«, t00=0x001a, t01=0x00f4}
0x2992…29ac Head {h00=0x0016, h01=0x0050, text=» LD A7,MAIN,TCABAS«, t00=0x001a, t01=0x0108}
0x29ac…29c0 Head {h00=0x0010, h01=0x0050, text=» RF(Z) DC050«, t00=0x001a, t01=0x0122}
0x29c0…29d8 Head {h00=0x0014, h01=0x0050, text=» LDKL A8,ECBDC2 «, t00=0x001a, t01=0x0136}
0x29d8…29e4 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x001a, t01=0x014e}
0x29e4…29f8 Head {h00=0x0010, h01=0x0050, text=»DC050 EQU * «, t00=0x001a, t01=0x015a}
0x29f8…2a0e Head {h00=0x0012, h01=0x0050, text=» ADR A8,CREBAS«, t00=0x001a, t01=0x016e}
0x2a0e…2a24 Head {h00=0x0012, h01=0x0050, text=» LDKL A1,TIMDC«, t00=0x001a, t01=0x0184}
0x2a24…2a3a Head {h00=0x0012, h01=0x0050, text=» CF A14,REQTIM«, t00=0x001b, t01=0x000a}
0x2a3a…2a5c Head {h00=0x001e, h01=0x0050, text=» ST A9,ECBRL,A8 REQ LENGTH«, t00=0x001b, t01=0x0020}
0x2a5c…2a84 Head {h00=0x0024, h01=0x0050, text=» ST A12,ECBBA,A8 BUFFER ADDRESS «, t00=0x001b, t01=0x0042}
0x2a84…2aa0 Head {h00=0x0018, h01=0x0050, text=» LD A7,KBINH,TCABAS «, t00=0x001b, t01=0x006a}
0x2aa0…2adc Head {h00=0x0038, h01=0x0050, text=» ORK A7,2 BIT 14 :=1 DISABLE KEYBOARD.RESET ALLOWED «, t00=0x001b, t01=0x0086}
0x2adc…2af8 Head {h00=0x0018, h01=0x0050, text=» ST A7,KBINH,TCABAS «, t00=0x001b, t01=0x00c2}
0x2af8…2b0c Head {h00=0x0010, h01=0x0050, text=» LDK A7,/86 «, t00=0x001b, t01=0x00de}
0x2b0c…2b20 Head {h00=0x0010, h01=0x0050, text=»DC100 EQU * «, t00=0x001b, t01=0x00f2}
0x2b20…2b2c Head {h00=0x0008, h01=0x0050, text=» LKM«, t00=0x001b, t01=0x0106}
0x2b2c…2b3c Head {h00=0x000c, h01=0x0050, text=» DATA 1 «, t00=0x001b, t01=0x0112}
0x2b3c…2b50 Head {h00=0x0010, h01=0x0050, text=»DC200 EQU * «, t00=0x001b, t01=0x0122}
0x2b50…2b64 Head {h00=0x0010, h01=0x0050, text=» LDR A4,A12 «, t00=0x001b, t01=0x0136}
0x2b64…2b7a Head {h00=0x0012, h01=0x0050, text=» CF A14,RLWBUF«, t00=0x001b, t01=0x014a}
0x2b7a…2ba2 Head {h00=0x0024, h01=0x0050, text=» LD A1,ECBRC,A8 GET RETURN CODE «, t00=0x001b, t01=0x0160}
0x2ba2…2bb6 Head {h00=0x0010, h01=0x0050, text=» RF(Z) DC300«, t00=0x001b, t01=0x0188}
0x2bb6…2bd2 Head {h00=0x0018, h01=0x0050, text=» LD A7,KBINH,TCABAS «, t00=0x001c, t01=0x000c}
0x2bd2…2bfe Head {h00=0x0028, h01=0x0050, text=» ANK A7,/D BIT 14:=0 ALLIWE KEYBOARD«, t00=0x001c, t01=0x0028}
0x2bfe…2c1a Head {h00=0x0018, h01=0x0050, text=» ST A7,KBINH,TCABAS «, t00=0x001c, t01=0x0054}
0x2c1a…2c4c Head {h00=0x002e, h01=0x0050, text=» CF A14,LINHOF TURN OFF "KEYBOARD INHIBIT «, t00=0x001c, t01=0x0070}
0x2c4c…2c7e Head {h00=0x002e, h01=0x0050, text=» CF A14,LSAVOF TURN OFF "SYSTEM AVAILABLE"«, t00=0x001c, t01=0x00a2}
0x2c7e…2c88 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001c, t01=0x00d4}
0x2c88…2cb6 Head {h00=0x002a, h01=0x0050, text=» LDK A7,/04 RESET KEYBOARD ECB BUFFER «, t00=0x001c, t01=0x00de}
0x2cb6…2ccc Head {h00=0x0012, h01=0x0050, text=» LDKL A8,ECBKB«, t00=0x001c, t01=0x010c}
0x2ccc…2ce2 Head {h00=0x0012, h01=0x0050, text=» ADR A8,CREBAS«, t00=0x001c, t01=0x0122}
0x2ce2…2cee Head {h00=0x0008, h01=0x0050, text=» LKM«, t00=0x001c, t01=0x0138}
0x2cee…2cfe Head {h00=0x000c, h01=0x0050, text=» DATA 1 «, t00=0x001c, t01=0x0144}
0x2cfe…2d08 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001c, t01=0x0154}
0x2d08…2d18 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x001c, t01=0x015e}
0x2d18…2d2c Head {h00=0x0010, h01=0x0050, text=»DC300 EQU * «, t00=0x001c, t01=0x016e}
0x2d2c…2d5e Head {h00=0x002e, h01=0x0050, text=» CF A14,LSAVON TURN ON 'SYSTEM AVAILABLE' «, t00=0x001c, t01=0x0182}
0x2d5e…2d6e Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x001d, t01=0x0024}
0x2d6e…2d7c Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x001d, t01=0x0034}
0x2d7c…2d86 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001d, t01=0x0042}
0x2d86…2d90 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001d, t01=0x004c}
0x2d90…2dbc Head {h00=0x0028, h01=0x0050, text=»* STORE CURSOR ADDRESS IN DC BUFFER «, t00=0x001d, t01=0x0056}
0x2dbc…2dc6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001d, t01=0x0082}
0x2dc6…2dd0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001d, t01=0x008c}
0x2dd0…2df0 Head {h00=0x001c, h01=0x0050, text=»CURSA LD A1,PCURS,TCABAS«, t00=0x001d, t01=0x0096}
0x2df0…2e02 Head {h00=0x000e, h01=0x0050, text=» RF BUFADR«, t00=0x001d, t01=0x00b6}
0x2e02…2e0c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001d, t01=0x00c8}
0x2e0c…2e16 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001d, t01=0x00d2}
0x2e16…2e42 Head {h00=0x0028, h01=0x0050, text=»* STORE BUFFER ADDRESS IN DC BUFFER «, t00=0x001d, t01=0x00dc}
0x2e42…2e4c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001d, t01=0x0108}
0x2e4c…2e6e Head {h00=0x001e, h01=0x0050, text=»* A1=BINARY BUFFER ADDRESS«, t00=0x001d, t01=0x0112}
0x2e6e…2e78 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001d, t01=0x0134}
0x2e78…2e82 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001d, t01=0x013e}
0x2e82…2e9a Head {h00=0x0014, h01=0x0050, text=»BUFADR LDR A2,A1«, t00=0x001d, t01=0x0148}
0x2e9a…2eac Head {h00=0x000e, h01=0x0050, text=» SRL A2,6 «, t00=0x001d, t01=0x0160}
0x2eac…2ec0 Head {h00=0x0010, h01=0x0050, text=» ANK A2,/3F «, t00=0x001d, t01=0x0172}
0x2ec0…2eea Head {h00=0x0026, h01=0x0050, text=» LC A2,TASCII,A2 CONVERT TO ASCII «, t00=0x001d, t01=0x0186}
0x2eea…2f00 Head {h00=0x0012, h01=0x0050, text=» CF A14,PDCCH «, t00=0x001e, t01=0x0020}
0x2f00…2f12 Head {h00=0x000e, h01=0x0050, text=» LDR A2,A1«, t00=0x001e, t01=0x0036}
0x2f12…2f26 Head {h00=0x0010, h01=0x0050, text=» ANK A2,/3F «, t00=0x001e, t01=0x0048}
0x2f26…2f3e Head {h00=0x0014, h01=0x0050, text=» LC A2,TASCII,A2«, t00=0x001e, t01=0x005c}
0x2f3e…2f54 Head {h00=0x0012, h01=0x0050, text=» CF A14,PDCCH «, t00=0x001e, t01=0x0074}
0x2f54…2f64 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x001e, t01=0x008a}
0x2f64…2f72 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x001e, t01=0x009a}
0x2f72…2f7c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001e, t01=0x00a8}
0x2f7c…2f86 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001e, t01=0x00b2}
0x2f86…2fbc Head {h00=0x0032, h01=0x0050, text=»* GET MODIFIED DATA FROM DISPLAY IMAGE BUFFER «, t00=0x001e, t01=0x00bc}
0x2fbc…2fc6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001e, t01=0x00f2}
0x2fc6…2fea Head {h00=0x0020, h01=0x0050, text=»* A3=BUFFER POSITION BINARY «, t00=0x001e, t01=0x00fc}
0x2fea…3006 Head {h00=0x0018, h01=0x0050, text=»* A4=BUFFER POINTER «, t00=0x001e, t01=0x0120}
0x3006…3010 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001e, t01=0x013c}
0x3010…301a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001e, t01=0x0146}
0x301a…3040 Head {h00=0x0022, h01=0x0050, text=»RDMOD LDK A3,0 RESET POSITION «, t00=0x001e, t01=0x0150}
0x3040…3056 Head {h00=0x0012, h01=0x0050, text=» LDKL A4,BVDU «, t00=0x001e, t01=0x0176}
0x3056…307c Head {h00=0x0022, h01=0x0050, text=» ADR A4,TCABAS BUFFER POINTER «, t00=0x001e, t01=0x018c}
0x307c…30c0 Head {h00=0x0040, h01=0x0050, text=»************************************************************«, t00=0x001f, t01=0x0022}
0x30c0…30ea Head {h00=0x0026, h01=0x0050, text=» ADKL A4,1919 LAST SCREEN POSITION«, t00=0x001f, t01=0x0066}
0x30ea…310a Head {h00=0x001c, h01=0x0050, text=» LCR A2,A4 GET CHARACTER«, t00=0x001f, t01=0x0090}
0x310a…313c Head {h00=0x002e, h01=0x0050, text=» LDKL A4,BVDU RELOAD FIRST BUFFER POSITION«, t00=0x001f, t01=0x00b0}
0x313c…3152 Head {h00=0x0012, h01=0x0050, text=» ADR A4,TCABAS«, t00=0x001f, t01=0x00e2}
0x3152…315a Head {h00=0x0004, h01=0x0050, t00=0x001f, t01=0x00f8}
0x315a…316c Head {h00=0x000e, h01=0x0050, text=» LDR A1,A2«, t00=0x001f, t01=0x0100}
0x316c…318e Head {h00=0x001e, h01=0x0050, text=» ANK A1,/60 ATTRIBUTE ??? «, t00=0x001f, t01=0x0112}
0x318e…31aa Head {h00=0x0018, h01=0x0050, text=» RF(Z) RD200 YES!!! «, t00=0x001f, t01=0x0134}
0x31aa…31b2 Head {h00=0x0004, h01=0x0050, t00=0x001f, t01=0x0150}
0x31b2…31f6 Head {h00=0x0040, h01=0x0050, text=»************************************************************«, t00=0x001f, t01=0x0158}
0x31f6…3210 Head {h00=0x0016, h01=0x0050, text=»RD100 CWK A3,LBVDU«, t00=0x0020, t01=0x000c}
0x3210…3234 Head {h00=0x0020, h01=0x0050, text=» RF(NL) RDMODE ALL EXAMINED «, t00=0x0020, t01=0x0026}
0x3234…3250 Head {h00=0x0018, h01=0x0050, text=» LCR A2,A4 GET CHAR «, t00=0x0020, t01=0x004a}
0x3250…3262 Head {h00=0x000e, h01=0x0050, text=» ADK A3,1 «, t00=0x0020, t01=0x0066}
0x3262…3274 Head {h00=0x000e, h01=0x0050, text=» ADK A4,1 «, t00=0x0020, t01=0x0078}
0x3274…32b8 Head {h00=0x0040, h01=0x0050, text=»************************************************************«, t00=0x0020, t01=0x008a}
0x32b8…32cc Head {h00=0x0010, h01=0x0050, text=»RD105 EQU * «, t00=0x0020, t01=0x00ce}
0x32cc…3310 Head {h00=0x0040, h01=0x0050, text=»************************************************************«, t00=0x0020, t01=0x00e2}
0x3310…3322 Head {h00=0x000e, h01=0x0050, text=» LDR A1,A2«, t00=0x0020, t01=0x0126}
0x3322…3336 Head {h00=0x0010, h01=0x0050, text=» ANK A1,/60 «, t00=0x0020, t01=0x0138}
0x3336…335a Head {h00=0x0020, h01=0x0050, text=» RF(Z) RD200 ATTRIBUTE CHAR «, t00=0x0020, t01=0x014c}
0x335a…3374 Head {h00=0x0016, h01=0x0050, text=»RD110 CWK A2,NULL «, t00=0x0020, t01=0x0170}
0x3374…339a Head {h00=0x0022, h01=0x0050, text=» RB(E) RD100 DON'T STORE NULL «, t00=0x0020, t01=0x018a}
0x339a…33c8 Head {h00=0x002a, h01=0x0050, text=» CF A14,PDCCH STORE CHAR IN DC BUFFER «, t00=0x0021, t01=0x0020}
0x33c8…33da Head {h00=0x000e, h01=0x0050, text=» RB RD100 «, t00=0x0021, t01=0x004e}
0x33da…33fe Head {h00=0x0020, h01=0x0050, text=»RD200 ANK A2,1 CHECK MDT BIT«, t00=0x0021, t01=0x0060}
0x33fe…3422 Head {h00=0x0020, h01=0x0050, text=» RF(NZ) RD300 MODIFIED FIELD«, t00=0x0021, t01=0x0084}
0x3422…343c Head {h00=0x0016, h01=0x0050, text=»RD210 CWK A3,LBVDU«, t00=0x0021, t01=0x00a8}
0x343c…3460 Head {h00=0x0020, h01=0x0050, text=» RF(NL) RDMODE ALL EXAMINED «, t00=0x0021, t01=0x00c2}
0x3460…3472 Head {h00=0x000e, h01=0x0050, text=» LCR A2,A4«, t00=0x0021, t01=0x00e6}
0x3472…3484 Head {h00=0x000e, h01=0x0050, text=» ADK A3,1 «, t00=0x0021, t01=0x00f8}
0x3484…3496 Head {h00=0x000e, h01=0x0050, text=» ADK A4,1 «, t00=0x0021, t01=0x010a}
0x3496…34a8 Head {h00=0x000e, h01=0x0050, text=» LDR A1,A2«, t00=0x0021, t01=0x011c}
0x34a8…34bc Head {h00=0x0010, h01=0x0050, text=» ANK A1,/60 «, t00=0x0021, t01=0x012e}
0x34bc…34e4 Head {h00=0x0024, h01=0x0050, text=» RB(NZ) RD210 NO ATTRIBUTE CHAR «, t00=0x0021, t01=0x0142}
0x34e4…352e Head {h00=0x0046, h01=0x0050, text=»******************************************************** 78-05-11«, t00=0x0021, t01=0x016a}
0x352e…355c Head {h00=0x002a, h01=0x0050, text=» CWK A3,LBVDU ALL BUFFER EXAMINED ??? «, t00=0x0022, t01=0x0024}
0x355c…3578 Head {h00=0x0018, h01=0x0050, text=» RF(NL) RDMODE YES!!«, t00=0x0022, t01=0x0052}
0x3578…35c2 Head {h00=0x0046, h01=0x0050, text=»******************************************************** 78-05-11«, t00=0x0022, t01=0x006e}
0x35c2…35e4 Head {h00=0x001e, h01=0x0050, text=» RB RD200 ATTRIBUTE FOUND «, t00=0x0022, t01=0x00b8}
0x35e4…35fc Head {h00=0x0014, h01=0x0050, text=»RD300 LDK A2,SBA«, t00=0x0022, t01=0x00da}
0x35fc…3622 Head {h00=0x0022, h01=0x0050, text=» CF A14,PDCCH SBA TO DC BUFFER«, t00=0x0022, t01=0x00f2}
0x3622…3644 Head {h00=0x001e, h01=0x0050, text=» LDR A1,A3 BUFFER POSITION«, t00=0x0022, t01=0x0118}
0x3644…3668 Head {h00=0x0020, h01=0x0050, text=» CF A14,BUFADR TO DC BUFFER «, t00=0x0022, t01=0x013a}
0x3668…367a Head {h00=0x000e, h01=0x0050, text=» RB RD100 «, t00=0x0022, t01=0x015e}
0x367a…3690 Head {h00=0x0012, h01=0x0050, text=»RDMODE RTN A14«, t00=0x0022, t01=0x0170}
0x3690…369e Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0022, t01=0x0186}
0x369e…36a8 (35, 0, 400) Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0023, t01=0x0004}
0x36a8…36b2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0023, t01=0x000e}
0x36b2…36ea Head {h00=0x0034, h01=0x0050, text=»* UPDATE VIDEO DISPLAY BUFFER IMAGE BY THE DATA «, t00=0x0023, t01=0x0018}
0x36ea…36f4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0023, t01=0x0050}
0x36f4…3718 Head {h00=0x0020, h01=0x0050, text=»* RECEIVED FROM THE DC LINE «, t00=0x0023, t01=0x005a}
0x3718…3722 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0023, t01=0x007e}
0x3722…372c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0023, t01=0x0088}
0x372c…3752 Head {h00=0x0022, h01=0x0050, text=»* A7=DC RECEIVE BUFFER POINTER«, t00=0x0023, t01=0x0092}
0x3752…376e Head {h00=0x0018, h01=0x0050, text=»* A8=DC ECB ADDRESS «, t00=0x0023, t01=0x00b8}
0x376e…379a Head {h00=0x0028, h01=0x0050, text=»* A9=DC BUFFER INDEX, INITIALLY ZERO«, t00=0x0023, t01=0x00d4}
0x379a…37a4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0023, t01=0x0100}
0x37a4…37c8 Head {h00=0x0020, h01=0x0050, text=»* A3=DISPLAY BUFFER POSITION«, t00=0x0023, t01=0x010a}
0x37c8…37ec Head {h00=0x0020, h01=0x0050, text=»* A4=DISPLAY BUFFER POINTER «, t00=0x0023, t01=0x012e}
0x37ec…37f6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0023, t01=0x0152}
0x37f6…3800 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0023, t01=0x015c}
0x3800…3814 Head {h00=0x0010, h01=0x0050, text=»UPDATE EQU *«, t00=0x0023, t01=0x0166}
0x3814…382e Head {h00=0x0016, h01=0x0050, text=» CM ICWORK,TCABAS «, t00=0x0023, t01=0x017a}
0x382e…384a (36, 0, 400) Head {h00=0x0018, h01=0x0050, text=» LD A8,ECBDCC,TCABAS«, t00=0x0024, t01=0x0004}
0x384a…3874 Head {h00=0x0026, h01=0x0050, text=» LD A7,ECBBA,A8 DC BUFFER ADDRESS «, t00=0x0024, t01=0x0020}
0x3874…389c Head {h00=0x0024, h01=0x0050, text=» SUR A9,A9 RESET DC BUFFER INDEX«, t00=0x0024, t01=0x004a}
0x389c…38d0 Head {h00=0x0030, h01=0x0050, text=» CF A14,GDCCH GET FIRST CHAR FROM DC BUFFER «, t00=0x0024, t01=0x0072}
0x38d0…38f4 Head {h00=0x0020, h01=0x0050, text=» CWK A2,ESC SHOULD BE ESCAPE«, t00=0x0024, t01=0x00a6}
0x38f4…3916 Head {h00=0x001e, h01=0x0050, text=» RF(NE) UPDEND NOT ESCAPE «, t00=0x0024, t01=0x00ca}
0x3916…393c Head {h00=0x0022, h01=0x0050, text=» CF A14,GDCCH GET COMMAND CODE«, t00=0x0024, t01=0x00ec}
0x393c…3950 Head {h00=0x0010, h01=0x0050, text=» CWK A2,/31 «, t00=0x0024, t01=0x0112}
0x3950…396c Head {h00=0x0018, h01=0x0050, text=» RF(E) UPD100 WRITE «, t00=0x0024, t01=0x0126}
0x396c…3980 Head {h00=0x0010, h01=0x0050, text=» CWK A2,/35 «, t00=0x0024, t01=0x0142}
0x3980…39a2 Head {h00=0x001e, h01=0x0050, text=» RF(E) UPD120 ERASE/WRITE «, t00=0x0024, t01=0x0156}
0x39a2…39b6 Head {h00=0x0010, h01=0x0050, text=» CWK A2,/3F «, t00=0x0024, t01=0x0178}
0x39b6…39e2 Head {h00=0x0028, h01=0x0050, text=» RF(E) UPD140 ERASE ALL UNPROTECTED «, t00=0x0024, t01=0x018c}
0x39e2…39f8 Head {h00=0x0012, h01=0x0050, text=» IFT COPCMD=1 «, t00=0x0025, t01=0x0028}
0x39f8…3a0c Head {h00=0x0010, h01=0x0050, text=» CWK A2,/37 «, t00=0x0025, t01=0x003e}
0x3a0c…3a30 Head {h00=0x0020, h01=0x0050, text=» ABL(E) UPD600 COPY COMMAND «, t00=0x0025, t01=0x0052}
0x3a30…3a3c Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0025, t01=0x0076}
0x3a3c…3a64 Head {h00=0x0024, h01=0x0050, text=» RF UPDEND INVALID COMMAND CODE «, t00=0x0025, t01=0x0082}
0x3a64…3a72 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0025, t01=0x00aa}
0x3a72…3a7c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0025, t01=0x00b8}
0x3a7c…3a94 Head {h00=0x0014, h01=0x0050, text=»* WRITE COMMAND «, t00=0x0025, t01=0x00c2}
0x3a94…3a9e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0025, t01=0x00da}
0x3a9e…3ab2 Head {h00=0x0010, h01=0x0050, text=»UPD100 EQU *«, t00=0x0025, t01=0x00e4}
0x3ab2…3ade Head {h00=0x0028, h01=0x0050, text=» CF A14,PWCC PROCESS WCC FOR MDT BIT«, t00=0x0025, t01=0x00f8}
0x3ade…3afa Head {h00=0x0018, h01=0x0050, text=» LD A3,PCURS,TCABAS «, t00=0x0025, t01=0x0124}
0x3afa…3b26 Head {h00=0x0028, h01=0x0050, text=» LDR A4,A3 START IN CURSOR POSITION «, t00=0x0025, t01=0x0140}
0x3b26…3b3c Head {h00=0x0012, h01=0x0050, text=» ADKL A4,BVDU «, t00=0x0025, t01=0x016c}
0x3b3c…3b52 Head {h00=0x0012, h01=0x0050, text=» ADR A4,TCABAS«, t00=0x0025, t01=0x0182}
0x3b52…3b7a Head {h00=0x0024, h01=0x0050, text=» LDK A5,1 INDICATE WCC, IC OR RA«, t00=0x0026, t01=0x0008}
0x3b7a…3b8c Head {h00=0x000e, h01=0x0050, text=» RF UPD220«, t00=0x0026, t01=0x0030}
0x3b8c…3b96 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0026, t01=0x0042}
0x3b96…3bb4 Head {h00=0x001a, h01=0x0050, text=»* ERASE/WRITE COMMAND «, t00=0x0026, t01=0x004c}
0x3bb4…3bbe Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0026, t01=0x006a}
0x3bbe…3bd2 Head {h00=0x0010, h01=0x0050, text=»UPD120 EQU *«, t00=0x0026, t01=0x0074}
0x3bd2…3bf4 Head {h00=0x001e, h01=0x0050, text=» CF A14,ERASE ERASE SCREEN«, t00=0x0026, t01=0x0088}
0x3bf4…3c06 Head {h00=0x000e, h01=0x0050, text=» RF UPD200«, t00=0x0026, t01=0x00aa}
0x3c06…3c10 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0026, t01=0x00bc}
0x3c10…3c30 Head {h00=0x001c, h01=0x0050, text=»* ERASE ALL UNPROTECTED «, t00=0x0026, t01=0x00c6}
0x3c30…3c3a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0026, t01=0x00e6}
0x3c3a…3c4e Head {h00=0x0010, h01=0x0050, text=»UPD140 EQU *«, t00=0x0026, t01=0x00f0}
0x3c4e…3c7a Head {h00=0x0028, h01=0x0050, text=» CF A14,ERASUP ERASE ALL UNPROTECTED«, t00=0x0026, t01=0x0104}
0x3c7a…3ca6 Head {h00=0x0028, h01=0x0050, text=» RF UPDEND NO TEXT WITH THIS COMMAND«, t00=0x0026, t01=0x0130}
0x3ca6…3cb0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0026, t01=0x015c}
0x3cb0…3ce2 Head {h00=0x002e, h01=0x0050, text=»* TAKE CARE OF WRITE CONTROL CHARACTER WCC«, t00=0x0026, t01=0x0166}
0x3ce2…3cec Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0027, t01=0x0008}
0x3cec…3d12 Head {h00=0x0022, h01=0x0050, text=»UPD200 CF A14,PWCC PROCESS WCC«, t00=0x0027, t01=0x0012}
0x3d12…3d3a Head {h00=0x0024, h01=0x0050, text=» LDK A5,1 INDICATE WCC, IC OR RA«, t00=0x0027, t01=0x0038}
0x3d3a…3d48 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0027, t01=0x0060}
0x3d48…3d52 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0027, t01=0x006e}
0x3d52…3d5c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0027, t01=0x0078}
0x3d5c…3d82 Head {h00=0x0022, h01=0x0050, text=»* PROCESS DATA FROM DC BUFFER «, t00=0x0027, t01=0x0082}
0x3d82…3d8c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0027, t01=0x00a8}
0x3d8c…3d96 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0027, t01=0x00b2}
0x3d96…3dc6 Head {h00=0x002c, h01=0x0050, text=»UPD210 LDK A3,0 START FROM POSITION ZERO«, t00=0x0027, t01=0x00bc}
0x3dc6…3ddc Head {h00=0x0012, h01=0x0050, text=» LDKL A4,BVDU «, t00=0x0027, t01=0x00ec}
0x3ddc…3df2 Head {h00=0x0012, h01=0x0050, text=» ADR A4,TCABAS«, t00=0x0027, t01=0x0102}
0x3df2…3e14 Head {h00=0x001e, h01=0x0050, text=»UPD220 CW A9,DCLENG,TCABAS«, t00=0x0027, t01=0x0118}
0x3e14…3e48 Head {h00=0x0030, h01=0x0050, text=» RF(NL) UPDEND ALL RECEIVED CHARS PROCESSED «, t00=0x0027, t01=0x013a}
0x3e48…3e76 Head {h00=0x002a, h01=0x0050, text=» CF A14,GDCCH GET CHAR FROM DC BUFFER «, t00=0x0027, t01=0x016e}
0x3e76…3e8a Head {h00=0x0010, h01=0x0050, text=» CWK A2,/20 «, t00=0x0028, t01=0x000c}
0x3e8a…3ea6 Head {h00=0x0018, h01=0x0050, text=» RF(L) UPD300 ORDER «, t00=0x0028, t01=0x0020}
0x3ea6…3eba Head {h00=0x0010, h01=0x0050, text=»UPD230 EQU *«, t00=0x0028, t01=0x003c}
0x3eba…3ede Head {h00=0x0020, h01=0x0050, text=» ORK A2,/80 SET DISPLAY BIT «, t00=0x0028, t01=0x0050}
0x3ede…3ef2 Head {h00=0x0010, h01=0x0050, text=»UPD240 EQU *«, t00=0x0028, t01=0x0074}
0x3ef2…3f1e Head {h00=0x0028, h01=0x0050, text=» LDK A5,0 INDICATE NOT WCC, IC OR RA«, t00=0x0028, t01=0x0088}
0x3f1e…3f34 Head {h00=0x0012, h01=0x0050, text=» CWK A3,LBVDU «, t00=0x0028, t01=0x00b4}
0x3f34…3f5e Head {h00=0x0026, h01=0x0050, text=» RF(E) UPD260 END OF VIDEO BUFFER «, t00=0x0028, t01=0x00ca}
0x3f5e…3f72 Head {h00=0x0010, h01=0x0050, text=»UPD250 EQU *«, t00=0x0028, t01=0x00f4}
0x3f72…3f9a Head {h00=0x0024, h01=0x0050, text=» SCR A2,A4 STORE IN VIDEO BUFFER«, t00=0x0028, t01=0x0108}
0x3f9a…3fac Head {h00=0x000e, h01=0x0050, text=» ADK A3,1 «, t00=0x0028, t01=0x0130}
0x3fac…3fbe Head {h00=0x000e, h01=0x0050, text=» ADK A4,1 «, t00=0x0028, t01=0x0142}
0x3fbe…3fd0 Head {h00=0x000e, h01=0x0050, text=» RB UPD220«, t00=0x0028, t01=0x0154}
0x3fd0…3fe8 Head {h00=0x0014, h01=0x0050, text=»UPD260 LDK A3,0 «, t00=0x0028, t01=0x0166}
0x3fe8…3ffe Head {h00=0x0012, h01=0x0050, text=» LDKL A4,BVDU «, t00=0x0028, t01=0x017e}
0x3ffe…4014 (41, 0, 400) Head {h00=0x0012, h01=0x0050, text=» ADR A4,TCABAS«, t00=0x0029, t01=0x0004}
0x4014…4026 Head {h00=0x000e, h01=0x0050, text=» RB UPD250«, t00=0x0029, t01=0x001a}
0x4026…403a Head {h00=0x0010, h01=0x0050, text=»UPD300 EQU *«, t00=0x0029, t01=0x002c}
0x403a…4078 Head {h00=0x003a, h01=0x0050, text=»******************************************* 78-08-15 «, t00=0x0029, t01=0x0040}
0x4078…40a8 Head {h00=0x002c, h01=0x0050, text=» CWK A3,LBVDU END OF DISPLAY BUFFER ??? «, t00=0x0029, t01=0x007e}
0x40a8…40c4 Head {h00=0x0018, h01=0x0050, text=» RF(NE) UPD302 NO!!!«, t00=0x0029, t01=0x00ae}
0x40c4…40ec Head {h00=0x0024, h01=0x0050, text=» SUR A3,A3 FIRST SCREEN POSITION«, t00=0x0029, t01=0x00ca}
0x40ec…4102 Head {h00=0x0012, h01=0x0050, text=» LDKL A4,BVDU «, t00=0x0029, t01=0x00f2}
0x4102…4128 Head {h00=0x0022, h01=0x0050, text=» ADR A4,TCABAS BUFFER POSITION«, t00=0x0029, t01=0x0108}
0x4128…413c Head {h00=0x0010, h01=0x0050, text=»UPD302 EQU *«, t00=0x0029, t01=0x012e}
0x413c…417a Head {h00=0x003a, h01=0x0050, text=»******************************************* 78-08-15 «, t00=0x0029, t01=0x0142}
0x417a…418e Head {h00=0x0010, h01=0x0050, text=» CWK A2,/1D «, t00=0x0029, t01=0x0180}
0x418e…41b0 (42, 0, 400) Head {h00=0x001e, h01=0x0050, text=» RF(E) UPD320 START FIELD «, t00=0x002a, t01=0x0004}
0x41b0…41c4 Head {h00=0x0010, h01=0x0050, text=» CWK A2,/11 «, t00=0x002a, t01=0x0026}
0x41c4…41ec Head {h00=0x0024, h01=0x0050, text=» RF(E) UPD340 SET BUFFER ADDRESS«, t00=0x002a, t01=0x003a}
0x41ec…4200 Head {h00=0x0010, h01=0x0050, text=» CWK A2,/13 «, t00=0x002a, t01=0x0062}
0x4200…4224 Head {h00=0x0020, h01=0x0050, text=» RF(E) UPD360 INSERT CURSOR «, t00=0x002a, t01=0x0076}
0x4224…4238 Head {h00=0x0010, h01=0x0050, text=» CWK A2,/09 «, t00=0x002a, t01=0x009a}
0x4238…425a Head {h00=0x001e, h01=0x0050, text=» RF(E) UPD400 PROGRAM TAB «, t00=0x002a, t01=0x00ae}
0x425a…426e Head {h00=0x0010, h01=0x0050, text=» CWK A2,/14 «, t00=0x002a, t01=0x00d0}
0x426e…4296 Head {h00=0x0024, h01=0x0050, text=» RF(E) UPD500 REPEAT TO ADDRESS «, t00=0x002a, t01=0x00e4}
0x4296…42aa Head {h00=0x0010, h01=0x0050, text=» CWK A2,/12 «, t00=0x002a, t01=0x010c}
0x42aa…42dc Head {h00=0x002e, h01=0x0050, text=» RF(E) UPD540 ERASE UNPROTECTED TO ADDRESS«, t00=0x002a, t01=0x0120}
0x42dc…42f0 Head {h00=0x0010, h01=0x0050, text=» CWK A2,/0C «, t00=0x002a, t01=0x0152}
0x42f0…4306 Head {h00=0x0012, h01=0x0050, text=» RF(NE) UPD305«, t00=0x002a, t01=0x0166}
0x4306…4326 Head {h00=0x001c, h01=0x0050, text=» LDK A2,FORMFD FORM FEED«, t00=0x002a, t01=0x017c}
0x4326…4338 Head {h00=0x000e, h01=0x0050, text=» RB UPD230«, t00=0x002b, t01=0x000c}
0x4338…4352 Head {h00=0x0016, h01=0x0050, text=»UPD305 CWK A2,/19 «, t00=0x002b, t01=0x001e}
0x4352…4368 Head {h00=0x0012, h01=0x0050, text=» RF(NE) UPD310«, t00=0x002b, t01=0x0038}
0x4368…438a Head {h00=0x001e, h01=0x0050, text=» LDK A2,ENDMES END MESSAGE«, t00=0x002b, t01=0x004e}
0x438a…439c Head {h00=0x000e, h01=0x0050, text=» RB UPD230«, t00=0x002b, t01=0x0070}
0x439c…43b0 Head {h00=0x0010, h01=0x0050, text=»UPD310 EQU *«, t00=0x002b, t01=0x0082}
0x43b0…43c4 Head {h00=0x0010, h01=0x0050, text=» CWK A2,/0A «, t00=0x002b, t01=0x0096}
0x43c4…43da Head {h00=0x0012, h01=0x0050, text=» RF(NE) UPD315«, t00=0x002b, t01=0x00aa}
0x43da…43fa Head {h00=0x001c, h01=0x0050, text=» LDK A2,NEWLIN NEW LINE «, t00=0x002b, t01=0x00c0}
0x43fa…440c Head {h00=0x000e, h01=0x0050, text=» RB UPD230«, t00=0x002b, t01=0x00e0}
0x440c…4420 Head {h00=0x0010, h01=0x0050, text=»UPD315 EQU *«, t00=0x002b, t01=0x00f2}
0x4420…4434 Head {h00=0x0010, h01=0x0050, text=» CWK A2,/18 «, t00=0x002b, t01=0x0106}
0x4434…4458 Head {h00=0x0020, h01=0x0050, text=» RF(NE) UPD318 ILLEGAL ORDER«, t00=0x002b, t01=0x011a}
0x4458…446c Head {h00=0x0010, h01=0x0050, text=» LDK A2,/30 «, t00=0x002b, t01=0x013e}
0x446c…447e Head {h00=0x000e, h01=0x0050, text=» RB UPD230«, t00=0x002b, t01=0x0152}
0x447e…448c Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x002b, t01=0x0164}
0x448c…4494 Head {h00=0x0004, h01=0x0050, t00=0x002b, t01=0x0172}
0x4494…44a8 Head {h00=0x0010, h01=0x0050, text=»UPD318 EQU *«, t00=0x002b, t01=0x017a}
0x44a8…44ce Head {h00=0x0022, h01=0x0050, text=» CWK A2,/00 NULL CHARACTER ???«, t00=0x002b, t01=0x018e}
0x44ce…44f8 Head {h00=0x0026, h01=0x0050, text=» RF(NE) UPDEND NO!! ILLEGAL ORDER«, t00=0x002c, t01=0x0024}
0x44f8…451e Head {h00=0x0022, h01=0x0050, text=» LDK A2,/7F PTS NULL CHARACTER«, t00=0x002c, t01=0x004e}
0x451e…4530 Head {h00=0x000e, h01=0x0050, text=» RB UPD230«, t00=0x002c, t01=0x0074}
0x4530…4538 Head {h00=0x0004, h01=0x0050, t00=0x002c, t01=0x0086}
0x4538…457c Head {h00=0x0040, h01=0x0050, text=»************************************************************«, t00=0x002c, t01=0x008e}
0x457c…4586 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002c, t01=0x00d2}
0x4586…45a8 Head {h00=0x001e, h01=0x0050, text=»* RELEASE RECEIVE BUFFER«, t00=0x002c, t01=0x00dc}
0x45a8…45b2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002c, t01=0x00fe}
0x45b2…45e0 Head {h00=0x002a, h01=0x0050, text=»************************************* «, t00=0x002c, t01=0x0108}
0x45e0…45e8 Head {h00=0x0004, h01=0x0050, t00=0x002c, t01=0x0136}
0x45e8…45fc Head {h00=0x0010, h01=0x0050, text=»UPDEND EQU *«, t00=0x002c, t01=0x013e}
0x45fc…4618 Head {h00=0x0018, h01=0x0050, text=» LD A8,ECBDCC,TCABAS«, t00=0x002c, t01=0x0152}
0x4618…4630 Head {h00=0x0014, h01=0x0050, text=» LD A4,ECBBA,A8 «, t00=0x002c, t01=0x016e}
0x4630…4646 Head {h00=0x0012, h01=0x0050, text=» CF A14,RLRBUF«, t00=0x002c, t01=0x0186}
0x4646…4656 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x002d, t01=0x000c}
0x4656…4664 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x002d, t01=0x001c}
0x4664…466e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002d, t01=0x002a}
0x466e…4678 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002d, t01=0x0034}
0x4678…4694 Head {h00=0x0018, h01=0x0050, text=»* START FIELD ORDER «, t00=0x002d, t01=0x003e}
0x4694…469e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002d, t01=0x005a}
0x469e…46cc Head {h00=0x002a, h01=0x0050, text=»UPD320 CF A14,GDCCH GET ATTRIBUTE CHAR«, t00=0x002d, t01=0x0064}
0x46cc…46e4 Head {h00=0x0014, h01=0x0050, text=» LC A2,TEBCDI,A2«, t00=0x002d, t01=0x0092}
0x46e4…4712 Head {h00=0x002a, h01=0x0050, text=» LDR A1,A2 COMPOSE PTS ATTRIBUTE CHAR «, t00=0x002d, t01=0x00aa}
0x4712…4724 Head {h00=0x000e, h01=0x0050, text=» ANK A1,1 «, t00=0x002d, t01=0x00d8}
0x4724…4736 Head {h00=0x000e, h01=0x0050, text=» SRL A2,1 «, t00=0x002d, t01=0x00ea}
0x4736…474a Head {h00=0x0010, h01=0x0050, text=» ANK A2,/1E «, t00=0x002d, t01=0x00fc}
0x474a…475c Head {h00=0x000e, h01=0x0050, text=» ORR A2,A1«, t00=0x002d, t01=0x0110}
0x475c…476e Head {h00=0x000e, h01=0x0050, text=» RB UPD240«, t00=0x002d, t01=0x0122}
0x476e…4778 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002d, t01=0x0134}
0x4778…4794 Head {h00=0x0018, h01=0x0050, text=»* SET BUFFER ADDRESS«, t00=0x002d, t01=0x013e}
0x4794…479e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002d, t01=0x015a}
0x479e…47c6 Head {h00=0x0024, h01=0x0050, text=»UPD340 CF A14,GETADR GET ADDRESS«, t00=0x002d, t01=0x0164}
0x47c6…47dc Head {h00=0x0012, h01=0x0050, text=» CWK A1,LBVDU «, t00=0x002d, t01=0x018c}
0x47dc…4802 Head {h00=0x0022, h01=0x0050, text=» RB(NL) UPDEND INVALID ADDRESS«, t00=0x002e, t01=0x0012}
0x4802…4814 Head {h00=0x000e, h01=0x0050, text=» LDR A3,A1«, t00=0x002e, t01=0x0038}
0x4814…4826 Head {h00=0x000e, h01=0x0050, text=» LDR A4,A3«, t00=0x002e, t01=0x004a}
0x4826…483c Head {h00=0x0012, h01=0x0050, text=» ADKL A4,BVDU «, t00=0x002e, t01=0x005c}
0x483c…4852 Head {h00=0x0012, h01=0x0050, text=» ADR A4,TCABAS«, t00=0x002e, t01=0x0072}
0x4852…4864 Head {h00=0x000e, h01=0x0050, text=» RB UPD220«, t00=0x002e, t01=0x0088}
0x4864…486e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002e, t01=0x009a}
0x486e…4886 Head {h00=0x0014, h01=0x0050, text=»* INSERT CURSOR «, t00=0x002e, t01=0x00a4}
0x4886…4890 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002e, t01=0x00bc}
0x4890…48c4 Head {h00=0x0030, h01=0x0050, text=»UPD360 ST A3,PCURS,TCABAS SET NEW CURSOR POS«, t00=0x002e, t01=0x00c6}
0x48c4…48ec Head {h00=0x0024, h01=0x0050, text=» LDK A5,1 INDICATE WCC, IC OR RA«, t00=0x002e, t01=0x00fa}
0x48ec…48fe Head {h00=0x000e, h01=0x0050, text=» RB UPD220«, t00=0x002e, t01=0x0122}
0x48fe…490c Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x002e, t01=0x0134}
0x490c…4916 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002e, t01=0x0142}
0x4916…492c Head {h00=0x0012, h01=0x0050, text=»* PROGRAM TAB «, t00=0x002e, t01=0x014c}
0x492c…4936 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002e, t01=0x0162}
0x4936…494e Head {h00=0x0014, h01=0x0050, text=»UPD400 LDR A5,A5«, t00=0x002e, t01=0x016c}
0x494e…497c Head {h00=0x002a, h01=0x0050, text=» RF(NZ) UPD430 PT AFTER WCC, IC OR RA «, t00=0x002e, t01=0x0184}
0x497c…49b0 Head {h00=0x0030, h01=0x0050, text=» LDK A1,NULL+/80 FILL CURRENT FIELD BY NULLS«, t00=0x002f, t01=0x0022}
0x49b0…49c4 Head {h00=0x0010, h01=0x0050, text=»UPD410 EQU *«, t00=0x002f, t01=0x0056}
0x49c4…49d6 Head {h00=0x000e, h01=0x0050, text=» LDK A5,0 «, t00=0x002f, t01=0x006a}
0x49d6…49ec Head {h00=0x0012, h01=0x0050, text=» CWK A3,LBVDU «, t00=0x002f, t01=0x007c}
0x49ec…4a10 Head {h00=0x0020, h01=0x0050, text=» RB(NL) UPD210 END OF BUFFER«, t00=0x002f, t01=0x0092}
0x4a10…4a22 Head {h00=0x000e, h01=0x0050, text=» LCR A2,A4«, t00=0x002f, t01=0x00b6}
0x4a22…4a34 Head {h00=0x000e, h01=0x0050, text=» ADK A3,1 «, t00=0x002f, t01=0x00c8}
0x4a34…4a48 Head {h00=0x0010, h01=0x0050, text=» ANK A2,/7F «, t00=0x002f, t01=0x00da}
0x4a48…4a5c Head {h00=0x0010, h01=0x0050, text=» CWK A2,/20 «, t00=0x002f, t01=0x00ee}
0x4a5c…4a72 Head {h00=0x0012, h01=0x0050, text=» RF(L) UPD415 «, t00=0x002f, t01=0x0102}
0x4a72…4a90 Head {h00=0x001a, h01=0x0050, text=» SCR A1,A4 STORE NULL «, t00=0x002f, t01=0x0118}
0x4a90…4aa2 Head {h00=0x000e, h01=0x0050, text=» ADK A4,1 «, t00=0x002f, t01=0x0136}
0x4aa2…4ab4 Head {h00=0x000e, h01=0x0050, text=» RB UPD410«, t00=0x002f, t01=0x0148}
0x4ab4…4ac8 Head {h00=0x0010, h01=0x0050, text=»UPD415 EQU *«, t00=0x002f, t01=0x015a}
0x4ac8…4ada Head {h00=0x000e, h01=0x0050, text=» ADK A4,1 «, t00=0x002f, t01=0x016e}
0x4ada…4af4 Head {h00=0x0016, h01=0x0050, text=»UPD420 ANK A2,/10 «, t00=0x002f, t01=0x0180}
0x4af4…4b1c Head {h00=0x0024, h01=0x0050, text=» RB(Z) UPD220 UNPROTECTED FIELD «, t00=0x0030, t01=0x000a}
0x4b1c…4b30 Head {h00=0x0010, h01=0x0050, text=»UPD430 EQU *«, t00=0x0030, t01=0x0032}
0x4b30…4b42 Head {h00=0x000e, h01=0x0050, text=» LDK A5,0 «, t00=0x0030, t01=0x0046}
0x4b42…4b58 Head {h00=0x0012, h01=0x0050, text=» CWK A3,LBVDU «, t00=0x0030, t01=0x0058}
0x4b58…4b86 Head {h00=0x002a, h01=0x0050, text=» ABL(NL) UPD210 END OF DISPLAY BUFFER «, t00=0x0030, t01=0x006e}
0x4b86…4b98 Head {h00=0x000e, h01=0x0050, text=» LCR A2,A4«, t00=0x0030, t01=0x009c}
0x4b98…4baa Head {h00=0x000e, h01=0x0050, text=» ADK A3,1 «, t00=0x0030, t01=0x00ae}
0x4baa…4bbc Head {h00=0x000e, h01=0x0050, text=» ADK A4,1 «, t00=0x0030, t01=0x00c0}
0x4bbc…4bd0 Head {h00=0x0010, h01=0x0050, text=» ANK A2,/7F «, t00=0x0030, t01=0x00d2}
0x4bd0…4be4 Head {h00=0x0010, h01=0x0050, text=» CWK A2,/20 «, t00=0x0030, t01=0x00e6}
0x4be4…4bfa Head {h00=0x0012, h01=0x0050, text=» RB(L) UPD420 «, t00=0x0030, t01=0x00fa}
0x4bfa…4c0c Head {h00=0x000e, h01=0x0050, text=» RB UPD430«, t00=0x0030, t01=0x0110}
0x4c0c…4c1a Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0030, t01=0x0122}
0x4c1a…4c24 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0030, t01=0x0130}
0x4c24…4c40 Head {h00=0x0018, h01=0x0050, text=»* REPEAT TO ADDRESS «, t00=0x0030, t01=0x013a}
0x4c40…4c4a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0030, t01=0x0156}
0x4c4a…4c76 Head {h00=0x0028, h01=0x0050, text=»UPD500 CF A14,GETADR GET END ADDRESS«, t00=0x0030, t01=0x0160}
0x4c76…4c8c Head {h00=0x0012, h01=0x0050, text=» CWK A1,LBVDU «, t00=0x0030, t01=0x018c}
0x4c8c…4cb2 Head {h00=0x0022, h01=0x0050, text=» RB(NL) UPDEND INVALID ADDRESS«, t00=0x0031, t01=0x0012}
0x4cb2…4ce0 Head {h00=0x002a, h01=0x0050, text=» CF A14,GDCCH GET CHAR TO BE REPEATED «, t00=0x0031, t01=0x0038}
0x4ce0…4d08 Head {h00=0x0024, h01=0x0050, text=» LDK A5,1 INDICATE WCC, IC OR RA«, t00=0x0031, t01=0x0066}
0x4d08…4d2e Head {h00=0x0022, h01=0x0050, text=» ORK A2,/80 INDICATE MODIFIED «, t00=0x0031, t01=0x008e}
0x4d2e…4d36 Head {h00=0x0004, h01=0x0050, t00=0x0031, t01=0x00b4}
0x4d36…4d7c Head {h00=0x0042, h01=0x0050, text=»**************************************************** 78-07-02«, t00=0x0031, t01=0x00bc}
0x4d7c…4d84 Head {h00=0x0004, h01=0x0050, t00=0x0031, t01=0x0102}
0x4d84…4dba Head {h00=0x0032, h01=0x0050, text=» CWR A3,A1 NULLS TO ALL SCREEN POSITIONS ???? «, t00=0x0031, t01=0x010a}
0x4dba…4dd6 Head {h00=0x0018, h01=0x0050, text=» RF(E) UPD530 YES!!!«, t00=0x0031, t01=0x0140}
0x4dd6…4dde Head {h00=0x0004, h01=0x0050, t00=0x0031, t01=0x015c}
0x4dde…4e26 Head {h00=0x0044, h01=0x0050, text=»***************************************************** 78-07-02 «, t00=0x0031, t01=0x0164}
0x4e26…4e2e Head {h00=0x0004, h01=0x0050, t00=0x0032, t01=0x001c}
0x4e2e…4e4a Head {h00=0x0018, h01=0x0050, text=»UPD510 CWK A3,LBVDU «, t00=0x0032, t01=0x0024}
0x4e4a…4e72 Head {h00=0x0024, h01=0x0050, text=» RF(L) UPD520 NOT END OF SCREEN «, t00=0x0032, t01=0x0040}
0x4e72…4e84 Head {h00=0x000e, h01=0x0050, text=» LDK A3,0 «, t00=0x0032, t01=0x0068}
0x4e84…4ea6 Head {h00=0x001e, h01=0x0050, text=» LDKL A4,BVDU WRAP AROUND «, t00=0x0032, t01=0x007a}
0x4ea6…4ebc Head {h00=0x0012, h01=0x0050, text=» ADR A4,TCABAS«, t00=0x0032, t01=0x009c}
0x4ebc…4ed4 Head {h00=0x0014, h01=0x0050, text=»UPD520 CWR A3,A1«, t00=0x0032, t01=0x00b2}
0x4ed4…4efc Head {h00=0x0024, h01=0x0050, text=» ABL(E) UPD220 ALL CHAR REPEATED«, t00=0x0032, t01=0x00ca}
0x4efc…4f04 Head {h00=0x0004, h01=0x0050, t00=0x0032, t01=0x00f2}
0x4f04…4f4e Head {h00=0x0046, h01=0x0050, text=»******************************************************* 78-07-02 «, t00=0x0032, t01=0x00fa}
0x4f4e…4f62 Head {h00=0x0010, h01=0x0050, text=»UPD530 EQU *«, t00=0x0032, t01=0x0144}
0x4f62…4faa Head {h00=0x0044, h01=0x0050, text=»***************************************************** 78-07-02 «, t00=0x0032, t01=0x0158}
0x4faa…4fb2 Head {h00=0x0004, h01=0x0050, t00=0x0033, t01=0x0010}
0x4fb2…4fc4 Head {h00=0x000e, h01=0x0050, text=» SCR A2,A4«, t00=0x0033, t01=0x0018}
0x4fc4…4fd6 Head {h00=0x000e, h01=0x0050, text=» ADK A3,1 «, t00=0x0033, t01=0x002a}
0x4fd6…4fe8 Head {h00=0x000e, h01=0x0050, text=» ADK A4,1 «, t00=0x0033, t01=0x003c}
0x4fe8…5008 Head {h00=0x001c, h01=0x0050, text=» RB UPD510 NEXT POSITION«, t00=0x0033, t01=0x004e}
0x5008…5012 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0033, t01=0x006e}
0x5012…5038 Head {h00=0x0022, h01=0x0050, text=»* ERASE UNPROTECTED TO ADDRESS«, t00=0x0033, t01=0x0078}
0x5038…5042 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0033, t01=0x009e}
0x5042…506e Head {h00=0x0028, h01=0x0050, text=»UPD540 CF A14,GETADR GET END ADDRESS«, t00=0x0033, t01=0x00a8}
0x506e…5084 Head {h00=0x0012, h01=0x0050, text=» CWK A3,LBVDU «, t00=0x0033, t01=0x00d4}
0x5084…50aa Head {h00=0x0022, h01=0x0050, text=» RB(NL) UPDEND INVALID ADDRESS«, t00=0x0033, t01=0x00ea}
0x50aa…50de Head {h00=0x0030, h01=0x0050, text=» CF A14,ERASUA ERASE UNPROTECTED TO ADDRESS «, t00=0x0033, t01=0x0110}
0x50de…50f2 Head {h00=0x0010, h01=0x0050, text=» ABL UPD220 «, t00=0x0033, t01=0x0144}
0x50f2…5108 Head {h00=0x0012, h01=0x0050, text=» IFT COPCMD=1 «, t00=0x0033, t01=0x0158}
0x5108…5116 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0033, t01=0x016e}
0x5116…5120 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0033, t01=0x017c}
0x5120…5136 Head {h00=0x0012, h01=0x0050, text=»* COPY COMMAND«, t00=0x0033, t01=0x0186}
0x5136…5140 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0034, t01=0x000c}
0x5140…5154 Head {h00=0x0010, h01=0x0050, text=»UPD600 EQU *«, t00=0x0034, t01=0x0016}
0x5154…5172 Head {h00=0x001a, h01=0x0050, text=» LD A1,PRINTER,TCABAS «, t00=0x0034, t01=0x002a}
0x5172…51aa Head {h00=0x0034, h01=0x0050, text=» ABL(Z) UPDEND COPYCOMMAND NOT SUPPORTED FOR VDU«, t00=0x0034, t01=0x0048}
0x51aa…51bc Head {h00=0x000e, h01=0x0050, text=» ADK A7,1 «, t00=0x0034, t01=0x0080}
0x51bc…51d2 Head {h00=0x0012, h01=0x0050, text=» BYPASS CCC «, t00=0x0034, t01=0x0092}
0x51d2…51f8 Head {h00=0x0022, h01=0x0050, text=» CF A14,GDCCH GET FROM DEVICE «, t00=0x0034, t01=0x00a8}
0x51f8…520e Head {h00=0x0012, h01=0x0050, text=» IFT EBCDIC=1 «, t00=0x0034, t01=0x00ce}
0x520e…5238 Head {h00=0x0026, h01=0x0050, text=» LC A2,TEBCDI,A2 CONVERT TO EBCDIC«, t00=0x0034, t01=0x00e4}
0x5238…5244 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0034, t01=0x010e}
0x5244…525a Head {h00=0x0012, h01=0x0050, text=» IFT COPCMD=1 «, t00=0x0034, t01=0x011a}
0x525a…5280 Head {h00=0x0022, h01=0x0050, text=» LD A3,6,CREBAS 'CB1' ADDRESS «, t00=0x0034, t01=0x0130}
0x5280…5298 Head {h00=0x0014, h01=0x0050, text=» LDK A4,MF1KBV-1«, t00=0x0034, t01=0x0156}
0x5298…52ac Head {h00=0x0010, h01=0x0050, text=» IFT DCLIN=2«, t00=0x0034, t01=0x016e}
0x52ac…52cc Head {h00=0x001c, h01=0x0050, text=» LD A1,ECBBLK+DC2,TCABAS«, t00=0x0034, t01=0x0182}
0x52cc…52e2 Head {h00=0x0012, h01=0x0050, text=» RF(NZ) UPD602«, t00=0x0035, t01=0x0012}
0x52e2…5306 Head {h00=0x0020, h01=0x0050, text=» LDK A4,MF2KBV-1 MF # 2 READ«, t00=0x0035, t01=0x0028}
0x5306…5312 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0035, t01=0x004c}
0x5312…5328 Head {h00=0x0012, h01=0x0050, text=» IFT COPCMD=1 «, t00=0x0035, t01=0x0058}
0x5328…533c Head {h00=0x0010, h01=0x0050, text=»UPD602 EQU *«, t00=0x0035, t01=0x006e}
0x533c…535e Head {h00=0x001e, h01=0x0050, text=» ADR A4,A3 CONFIG TABLE -1«, t00=0x0035, t01=0x0082}
0x535e…5388 Head {h00=0x0026, h01=0x0050, text=» LD A5,NBRKBV,A3 NUMBER OF KB/VDUS«, t00=0x0035, t01=0x00a4}
0x5388…53b4 Head {h00=0x0028, h01=0x0050, text=» ADR A4,A5 LAST KB/VDU CONFIGURATED «, t00=0x0035, t01=0x00ce}
0x53b4…53c8 Head {h00=0x0010, h01=0x0050, text=»UPD604 EQU *«, t00=0x0035, t01=0x00fa}
0x53c8…53f0 Head {h00=0x0024, h01=0x0050, text=» CCR A2,A4 DV-ADDRESS MATCHES ? «, t00=0x0035, t01=0x010e}
0x53f0…540a Head {h00=0x0016, h01=0x0050, text=» RF(E) UPD610 YES «, t00=0x0035, t01=0x0136}
0x540a…541c Head {h00=0x000e, h01=0x0050, text=» SUK A4,1 «, t00=0x0035, t01=0x0150}
0x541c…542e Head {h00=0x000e, h01=0x0050, text=» SUK A5,1 «, t00=0x0035, t01=0x0162}
0x542e…544c Head {h00=0x001a, h01=0x0050, text=» RB(P) UPD604 TRY NEXT«, t00=0x0035, t01=0x0174}
0x544c…5468 (54, 0, 400) Head {h00=0x0018, h01=0x0050, text=» ABL UPDEND NO MATCH«, t00=0x0036, t01=0x0004}
0x5468…5472 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0036, t01=0x0020}
0x5472…5486 Head {h00=0x0010, h01=0x0050, text=»UPD610 EQU *«, t00=0x0036, t01=0x002a}
0x5486…549e Head {h00=0x0014, h01=0x0050, text=» LDKL A8,ECBICW «, t00=0x0036, t01=0x003e}
0x549e…54b4 Head {h00=0x0012, h01=0x0050, text=» ADR A8,CREBAS«, t00=0x0036, t01=0x0056}
0x54b4…54c0 Head {h00=0x0008, h01=0x0050, text=» LKM«, t00=0x0036, t01=0x006c}
0x54c0…54f4 Head {h00=0x0030, h01=0x0050, text=» DATA 10 ABORT LAST REQUEST IF NOT COMPLETED«, t00=0x0036, t01=0x0078}
0x54f4…551e Head {h00=0x0026, h01=0x0050, text=» ADKL A5,/4B40 TASKID FROM DEVICE «, t00=0x0036, t01=0x00ac}
0x551e…5546 Head {h00=0x0024, h01=0x0050, text=» LD A2,-4,CREBAS GET OWN TASKID «, t00=0x0036, t01=0x00d6}
0x5546…5570 Head {h00=0x0026, h01=0x0050, text=» ST A2,ICWORK,TCABAS PUT IN BUFFER«, t00=0x0036, t01=0x00fe}
0x5570…559e Head {h00=0x002a, h01=0x0050, text=» LDK A4,/0B WRITE ADDRESSED , NO WAIT «, t00=0x0036, t01=0x0128}
0x559e…55ba Head {h00=0x0018, h01=0x0050, text=» LDK A6,2 REQ LENGTH«, t00=0x0036, t01=0x0156}
0x55ba…55d2 Head {h00=0x0014, h01=0x0050, text=» LDKL A3,ICWORK «, t00=0x0036, t01=0x0172}
0x55d2…55f8 Head {h00=0x0022, h01=0x0050, text=» ADR A3,TCABAS BUFFER ADDRESS «, t00=0x0036, t01=0x018a}
0x55f8…561e Head {h00=0x0022, h01=0x0050, text=» CF A14,ICWRTE WRITE INTERTASK«, t00=0x0037, t01=0x0020}
0x561e…5632 Head {h00=0x0010, h01=0x0050, text=» ABL UPDEND «, t00=0x0037, t01=0x0046}
0x5632…563e Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0037, t01=0x005a}
0x563e…564c Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0037, t01=0x0066}
0x564c…5656 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0037, t01=0x0074}
0x5656…5660 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0037, t01=0x007e}
0x5660…568a Head {h00=0x0026, h01=0x0050, text=»* PROCESS WRITE CONTROL CHARACTER «, t00=0x0037, t01=0x0088}
0x568a…5694 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0037, t01=0x00b2}
0x5694…56c2 Head {h00=0x002a, h01=0x0050, text=»* ONLY RESET MDT BIT IS TAKEN CARE OF «, t00=0x0037, t01=0x00bc}
0x56c2…56cc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0037, t01=0x00ea}
0x56cc…56d6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0037, t01=0x00f4}
0x56d6…56f8 Head {h00=0x001e, h01=0x0050, text=»PWCC CF A14,GDCCH GET WCC «, t00=0x0037, t01=0x00fe}
0x56f8…571a Head {h00=0x001e, h01=0x0050, text=» LC A2,TEBCDI,A2 IN EBCDIC«, t00=0x0037, t01=0x0120}
0x571a…573c Head {h00=0x001e, h01=0x0050, text=» ST A2,WCC,TCABAS SAVE IT «, t00=0x0037, t01=0x0142}
0x573c…5750 Head {h00=0x0010, h01=0x0050, text=» ANK A2,/04 «, t00=0x0037, t01=0x0164}
0x5750…5764 Head {h00=0x0010, h01=0x0050, text=» RF(Z) PWCC1«, t00=0x0037, t01=0x0178}
0x5764…5782 Head {h00=0x001a, h01=0x0050, text=» LD A2,PRINTER,TCABAS «, t00=0x0037, t01=0x018c}
0x5782…5798 Head {h00=0x0012, h01=0x0050, text=» RF(NZ) PWCC1 «, t00=0x0038, t01=0x001a}
0x5798…57ac Head {h00=0x0010, h01=0x0050, text=» LDR A10,A7 «, t00=0x0038, t01=0x0030}
0x57ac…57c4 Head {h00=0x0014, h01=0x0050, text=» LDKL A8,ECBVDU «, t00=0x0038, t01=0x0044}
0x57c4…57da Head {h00=0x0012, h01=0x0050, text=» ADR A8,CREBAS«, t00=0x0038, t01=0x005c}
0x57da…57f2 Head {h00=0x0014, h01=0x0050, text=» LD A2,ECBBA,A8 «, t00=0x0038, t01=0x0072}
0x57f2…5806 Head {h00=0x0010, h01=0x0050, text=» LDK A7,/2B «, t00=0x0038, t01=0x008a}
0x5806…581e Head {h00=0x0014, h01=0x0050, text=» SC A7,1,A2 =1 «, t00=0x0038, t01=0x009e}
0x581e…583a Head {h00=0x0018, h01=0x0050, text=» LDK A7,/07 BELL =1 «, t00=0x0038, t01=0x00b6}
0x583a…5852 Head {h00=0x0014, h01=0x0050, text=» SC A7,2,A2 =1 «, t00=0x0038, t01=0x00d2}
0x5852…586a Head {h00=0x0014, h01=0x0050, text=» SC A7,3,A2 =1 «, t00=0x0038, t01=0x00ea}
0x586a…587c Head {h00=0x000e, h01=0x0050, text=» LDK A7,4 «, t00=0x0038, t01=0x0102}
0x587c…5894 Head {h00=0x0014, h01=0x0050, text=» ST A7,ECBRL,A8 «, t00=0x0038, t01=0x0114}
0x5894…58a8 Head {h00=0x0010, h01=0x0050, text=» LDK A7,/86 «, t00=0x0038, t01=0x012c}
0x58a8…58b4 Head {h00=0x0008, h01=0x0050, text=» LKM«, t00=0x0038, t01=0x0140}
0x58b4…58c4 Head {h00=0x000c, h01=0x0050, text=» DATA 1 «, t00=0x0038, t01=0x014c}
0x58c4…58e0 Head {h00=0x0018, h01=0x0050, text=» LD A8,ECBDCC,TCABAS«, t00=0x0038, t01=0x015c}
0x58e0…58f4 Head {h00=0x0010, h01=0x0050, text=» LDR A7,A10 «, t00=0x0038, t01=0x0178}
0x58f4…5908 Head {h00=0x0010, h01=0x0050, text=»PWCC1 EQU * «, t00=0x0038, t01=0x018c}
0x5908…5922 Head {h00=0x0016, h01=0x0050, text=» LD A2,WCC,TCABAS «, t00=0x0039, t01=0x0010}
0x5922…5934 Head {h00=0x000e, h01=0x0050, text=» ANK A2,1 «, t00=0x0039, t01=0x002a}
0x5934…5958 Head {h00=0x0020, h01=0x0050, text=» RF(NZ) RESMDT RESET ALL MDT«, t00=0x0039, t01=0x003c}
0x5958…5978 Head {h00=0x001c, h01=0x0050, text=»PWCC10 RTN A14 NO ACTION«, t00=0x0039, t01=0x0060}
0x5978…5982 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0039, t01=0x0080}
0x5982…598c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0039, t01=0x008a}
0x598c…59a8 Head {h00=0x0018, h01=0x0050, text=»* RESET ALL MDT BITS«, t00=0x0039, t01=0x0094}
0x59a8…59b2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0039, t01=0x00b0}
0x59b2…59bc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0039, t01=0x00ba}
0x59bc…59d4 Head {h00=0x0014, h01=0x0050, text=»RESMDT LDK A3,0 «, t00=0x0039, t01=0x00c4}
0x59d4…59ea Head {h00=0x0012, h01=0x0050, text=» LDKL A4,BVDU «, t00=0x0039, t01=0x00dc}
0x59ea…5a00 Head {h00=0x0012, h01=0x0050, text=» ADR A4,TCABAS«, t00=0x0039, t01=0x00f2}
0x5a00…5a1c Head {h00=0x0018, h01=0x0050, text=»RESM10 CWK A3,LBVDU «, t00=0x0039, t01=0x0108}
0x5a1c…5a3c Head {h00=0x001c, h01=0x0050, text=» RB(NL) PWCC10 ALL DONE «, t00=0x0039, t01=0x0124}
0x5a3c…5a58 Head {h00=0x0018, h01=0x0050, text=» LCR A2,A4 GET CHAR «, t00=0x0039, t01=0x0144}
0x5a58…5a6c Head {h00=0x0010, h01=0x0050, text=» ANK A2,/60 «, t00=0x0039, t01=0x0160}
0x5a6c…5a90 Head {h00=0x0020, h01=0x0050, text=» RF(NZ) RESM20 NO ATTRIBUTE «, t00=0x0039, t01=0x0174}
0x5a90…5aa2 Head {h00=0x000e, h01=0x0050, text=» LCR A2,A4«, t00=0x003a, t01=0x0008}
0x5aa2…5ac0 Head {h00=0x001a, h01=0x0050, text=» ANK A2,/FE RESET MDT «, t00=0x003a, t01=0x001a}
0x5ac0…5ad2 Head {h00=0x000e, h01=0x0050, text=» SCR A2,A4«, t00=0x003a, t01=0x0038}
0x5ad2…5aea Head {h00=0x0014, h01=0x0050, text=»RESM20 ADK A3,1 «, t00=0x003a, t01=0x004a}
0x5aea…5afc Head {h00=0x000e, h01=0x0050, text=» ADK A4,1 «, t00=0x003a, t01=0x0062}
0x5afc…5b0e Head {h00=0x000e, h01=0x0050, text=» RB RESM10«, t00=0x003a, t01=0x0074}
0x5b0e…5b1c Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x003a, t01=0x0086}
0x5b1c…5b26 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003a, t01=0x0094}
0x5b26…5b30 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003a, t01=0x009e}
0x5b30…5b4e Head {h00=0x001a, h01=0x0050, text=»* ERASE ENTIRE SCREEN «, t00=0x003a, t01=0x00a8}
0x5b4e…5b58 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003a, t01=0x00c6}
0x5b58…5b62 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003a, t01=0x00d0}
0x5b62…5b78 Head {h00=0x0012, h01=0x0050, text=»ERASE LDK A3,0«, t00=0x003a, t01=0x00da}
0x5b78…5b8e Head {h00=0x0012, h01=0x0050, text=» LDKL A4,BVDU «, t00=0x003a, t01=0x00f0}
0x5b8e…5ba4 Head {h00=0x0012, h01=0x0050, text=» ADR A4,TCABAS«, t00=0x003a, t01=0x0106}
0x5ba4…5bb8 Head {h00=0x0010, h01=0x0050, text=» LDK A2,NULL«, t00=0x003a, t01=0x011c}
0x5bb8…5bd4 Head {h00=0x0018, h01=0x0050, text=»ERAS20 CWK A3,LBVDU «, t00=0x003a, t01=0x0130}
0x5bd4…5bf6 Head {h00=0x001e, h01=0x0050, text=» RF(NL) ERAS25 ALL ERASED «, t00=0x003a, t01=0x014c}
0x5bf6…5c08 Head {h00=0x000e, h01=0x0050, text=» SCR A2,A4«, t00=0x003a, t01=0x016e}
0x5c08…5c1a Head {h00=0x000e, h01=0x0050, text=» ADK A3,1 «, t00=0x003a, t01=0x0180}
0x5c1a…5c2c (59, 0, 398) Head {h00=0x000e, h01=0x0050, text=» ADK A4,1 «, t00=0x003b, t01=0x0004}
0x5c2c…5c3e Head {h00=0x000e, h01=0x0050, text=» RB ERAS20«, t00=0x003b, t01=0x0016}
0x5c3e…5c6e Head {h00=0x002c, h01=0x0050, text=»ERAS25 CM PCURS,TCABAS RESET CURSOR POS «, t00=0x003b, t01=0x0028}
0x5c6e…5c86 Head {h00=0x0014, h01=0x0050, text=» LDKL A1,LBVDU+1«, t00=0x003b, t01=0x0058}
0x5c86…5cba Head {h00=0x0030, h01=0x0050, text=» ST A1,CURATT,TCABAS INDICATE UNFORM. SCREEN«, t00=0x003b, t01=0x0070}
0x5cba…5cd4 Head {h00=0x0016, h01=0x0050, text=» CM ATTRIB,TCABAS «, t00=0x003b, t01=0x00a4}
0x5cd4…5d04 Head {h00=0x002c, h01=0x0050, text=» LD A1,PRINTER,TCABAS CHECK DEVISE TYPE «, t00=0x003b, t01=0x00be}
0x5d04…5d30 Head {h00=0x0028, h01=0x0050, text=» RF(NZ) ERAEND PRINTER, NOT DISPLAY «, t00=0x003b, t01=0x00ee}
0x5d30…5d5c Head {h00=0x0028, h01=0x0050, text=» STR A7,A14 SAVE A7 AND A8 ON STACK «, t00=0x003b, t01=0x011a}
0x5d5c…5d72 Head {h00=0x0012, h01=0x0050, text=» ST A8,-2,A14 «, t00=0x003b, t01=0x0146}
0x5d72…5d8a Head {h00=0x0014, h01=0x0050, text=» LDKL A8,ECBVDU «, t00=0x003b, t01=0x015c}
0x5d8a…5da8 Head {h00=0x001a, h01=0x0050, text=» ADR A8,CREBAS VDUECB «, t00=0x003b, t01=0x0174}
0x5da8…5dce (60, 0, 400) Head {h00=0x0022, h01=0x0050, text=» LDK A7,'1' ERASE CONTROL CHAR«, t00=0x003c, t01=0x0004}
0x5dce…5dea Head {h00=0x0018, h01=0x0050, text=» LD A1,ECBBA,A8 =1 «, t00=0x003c, t01=0x002a}
0x5dea…5e02 Head {h00=0x0014, h01=0x0050, text=» SC A7,1,A1 =1 «, t00=0x003c, t01=0x0046}
0x5e02…5e14 Head {h00=0x000e, h01=0x0050, text=» LDK A7,2 «, t00=0x003c, t01=0x005e}
0x5e14…5e3a Head {h00=0x0022, h01=0x0050, text=» ST A7,ECBRL,A8 REQ LENGTH = 2«, t00=0x003c, t01=0x0070}
0x5e3a…5e54 Head {h00=0x0016, h01=0x0050, text=» LDK A7,/86 WRITE «, t00=0x003c, t01=0x0096}
0x5e54…5e60 Head {h00=0x0008, h01=0x0050, text=» LKM«, t00=0x003c, t01=0x00b0}
0x5e60…5e70 Head {h00=0x000c, h01=0x0050, text=» DATA 1 «, t00=0x003c, t01=0x00bc}
0x5e70…5e86 Head {h00=0x0012, h01=0x0050, text=» LD A8,-2,A14 «, t00=0x003c, t01=0x00cc}
0x5e86…5eac Head {h00=0x0022, h01=0x0050, text=» LDR* A7,A14 RESTORE A7 AND A8«, t00=0x003c, t01=0x00e2}
0x5eac…5ec2 Head {h00=0x0012, h01=0x0050, text=»ERAEND RTN A14«, t00=0x003c, t01=0x0108}
0x5ec2…5ed0 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x003c, t01=0x011e}
0x5ed0…5eda Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003c, t01=0x012c}
0x5eda…5ee4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003c, t01=0x0136}
0x5ee4…5f04 Head {h00=0x001c, h01=0x0050, text=»* ERASE ALL UNPROTECTED «, t00=0x003c, t01=0x0140}
0x5f04…5f0e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003c, t01=0x0160}
0x5f0e…5f18 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003c, t01=0x016a}
0x5f18…5f30 Head {h00=0x0014, h01=0x0050, text=»ERASUP LDK A2,2 «, t00=0x003c, t01=0x0174}
0x5f30…5f62 Head {h00=0x002e, h01=0x0050, text=» ST A2,WCC,TCABAS SET KEYBOARD RESTORE BIT«, t00=0x003c, t01=0x018c}
0x5f62…5f98 Head {h00=0x0032, h01=0x0050, text=» SUR A1,A1 INDICATE ATT IN LAST SCREEN POS DK «, t00=0x003d, t01=0x002e}
0x5f98…5faa Head {h00=0x000e, h01=0x0050, text=» LDK A3,0 «, t00=0x003d, t01=0x0064}
0x5faa…5fc0 Head {h00=0x0012, h01=0x0050, text=» LDKL A4,BVDU «, t00=0x003d, t01=0x0076}
0x5fc0…5fd6 Head {h00=0x0012, h01=0x0050, text=» ADR A4,TCABAS«, t00=0x003d, t01=0x008c}
0x5fd6…600a Head {h00=0x0030, h01=0x0050, text=» CM PCURS,TCABAS FIND FIRST UNPROTECTED POS «, t00=0x003d, t01=0x00a2}
0x600a…6056 Head {h00=0x0048, h01=0x0050, text=»********************************************************************«, t00=0x003d, t01=0x00d6}
0x6056…6086 Head {h00=0x002c, h01=0x0050, text=» LC A2,1919,A4 GET LAST SCREEN CHARACTER«, t00=0x003d, t01=0x0122}
0x6086…609a Head {h00=0x0010, h01=0x0050, text=» ANK A2,/7F «, t00=0x003d, t01=0x0152}
0x609a…60bc Head {h00=0x001e, h01=0x0050, text=» CWK A2,/20 ATTRIBUTE ??? «, t00=0x003d, t01=0x0166}
0x60bc…60e4 Head {h00=0x0024, h01=0x0050, text=» RF(L) ERU:01 YES!! WE GOT IT!! «, t00=0x003d, t01=0x0188}
0x60e4…6118 Head {h00=0x0030, h01=0x0050, text=» LDK A1,1 ATTRIBUTE NOT IN LAST SCREEN POS. «, t00=0x003e, t01=0x0020}
0x6118…6158 Head {h00=0x003c, h01=0x0050, text=»********************************************************«, t00=0x003e, t01=0x0054}
0x6158…6174 Head {h00=0x0018, h01=0x0050, text=»ERASU1 CWK A3,LBVDU «, t00=0x003e, t01=0x0094}
0x6174…618a Head {h00=0x0012, h01=0x0050, text=» RF(NL) ERASU2«, t00=0x003e, t01=0x00b0}
0x618a…61a6 Head {h00=0x0018, h01=0x0050, text=» LCR A2,A4 GET CHAR «, t00=0x003e, t01=0x00c6}
0x61a6…61ba Head {h00=0x0010, h01=0x0050, text=» ANK A2,/7F «, t00=0x003e, t01=0x00e2}
0x61ba…61cc Head {h00=0x000e, h01=0x0050, text=» ADK A3,1 «, t00=0x003e, t01=0x00f6}
0x61cc…61de Head {h00=0x000e, h01=0x0050, text=» ADK A4,1 «, t00=0x003e, t01=0x0108}
0x61de…61f2 Head {h00=0x0010, h01=0x0050, text=» CWK A2,/20 «, t00=0x003e, t01=0x011a}
0x61f2…6216 Head {h00=0x0020, h01=0x0050, text=» RB(NL) ERASU1 NO ATTRIBUTE «, t00=0x003e, t01=0x012e}
0x6216…622a Head {h00=0x0010, h01=0x0050, text=»ERU:01 EQU *«, t00=0x003e, t01=0x0152}
0x622a…623e Head {h00=0x0010, h01=0x0050, text=» ANK A2,/10 «, t00=0x003e, t01=0x0166}
0x623e…625e Head {h00=0x001c, h01=0x0050, text=» RB(NZ) ERASU1 PROTECTED«, t00=0x003e, t01=0x017a}
0x625e…628c Head {h00=0x002a, h01=0x0050, text=» ST A3,PCURS,TCABAS SET NEW CURSOR POS«, t00=0x003f, t01=0x000a}
0x628c…629e Head {h00=0x000e, h01=0x0050, text=» LDR A1,A1«, t00=0x003f, t01=0x0038}
0x629e…62d2 Head {h00=0x0030, h01=0x0050, text=» RF(Z) ERASU3 ATTRIBUTE IN LAST SCREEN POS. «, t00=0x003f, t01=0x004a}
0x62d2…62ea Head {h00=0x0014, h01=0x0050, text=»ERASU2 LDK A3,0 «, t00=0x003f, t01=0x007e}
0x62ea…6300 Head {h00=0x0012, h01=0x0050, text=» LDKL A4,BVDU «, t00=0x003f, t01=0x0096}
0x6300…6316 Head {h00=0x0012, h01=0x0050, text=» ADR A4,TCABAS«, t00=0x003f, t01=0x00ac}
0x6316…6328 Head {h00=0x000e, h01=0x0050, text=» RF ERASU4«, t00=0x003f, t01=0x00c2}
0x6328…633c Head {h00=0x0010, h01=0x0050, text=»ERASU3 EQU *«, t00=0x003f, t01=0x00d4}
0x633c…634e Head {h00=0x000e, h01=0x0050, text=» LDR A3,A3«, t00=0x003f, t01=0x00e8}
0x634e…6388 Head {h00=0x0036, h01=0x0050, text=» RF(Z) ERASU4 UNPROTECTED ATT. IN LAST SCREEN POS.«, t00=0x003f, t01=0x00fa}
0x6388…63b0 Head {h00=0x0024, h01=0x0050, text=» SUK A3,1 GET BACK TO ATTRIBUTE «, t00=0x003f, t01=0x0134}
0x63b0…63ce Head {h00=0x001a, h01=0x0050, text=» SUK A4,1 - " -«, t00=0x003f, t01=0x015c}
0x63ce…63e2 Head {h00=0x0010, h01=0x0050, text=»ERASU4 EQU *«, t00=0x003f, t01=0x017a}
0x63e2…63f4 Head {h00=0x000e, h01=0x0050, text=» LDK A1,0 «, t00=0x003f, t01=0x018e}
0x63f4…6418 Head {h00=0x0020, h01=0x0050, text=» LDK A6,NULL+/80 ERASE CHAR «, t00=0x0040, t01=0x0010}
0x6418…642a Head {h00=0x000e, h01=0x0050, text=» RF ERAS35«, t00=0x0040, t01=0x0034}
0x642a…6438 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0040, t01=0x0046}
0x6438…6442 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0040, t01=0x0054}
0x6442…644c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0040, t01=0x005e}
0x644c…647e Head {h00=0x002e, h01=0x0050, text=»* ERASE UNPROTECTED TO ADDRESS GIVEN IN A1«, t00=0x0040, t01=0x0068}
0x647e…6488 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0040, t01=0x009a}
0x6488…6492 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0040, t01=0x00a4}
0x6492…64c0 Head {h00=0x002a, h01=0x0050, text=»ERASUA LDK A6,NULL+/80 ERASE CHARACTER«, t00=0x0040, t01=0x00ae}
0x64c0…64e8 Head {h00=0x0024, h01=0x0050, text=» ******************* 78-09-11 «, t00=0x0040, t01=0x00dc}
0x64e8…650e Head {h00=0x0022, h01=0x0050, text=» CWK A3,LBVDU WRAP AROUND ??? «, t00=0x0040, t01=0x0104}
0x650e…6528 Head {h00=0x0016, h01=0x0050, text=» RF(L) ERAS:1 NO!!«, t00=0x0040, t01=0x012a}
0x6528…6546 Head {h00=0x001a, h01=0x0050, text=» LDK A3,0 BUFFERINDEX «, t00=0x0040, t01=0x0144}
0x6546…655c Head {h00=0x0012, h01=0x0050, text=» LDKL A4,BVDU «, t00=0x0040, t01=0x0162}
0x655c…658c Head {h00=0x002c, h01=0x0050, text=» ADR A4,TCABAS ABSOLUTE BUFFER ADDRESS «, t00=0x0040, t01=0x0178}
0x658c…6594 Head {h00=0x0004, h01=0x0050, t00=0x0041, t01=0x0018}
0x6594…65d0 Head {h00=0x0038, h01=0x0050, text=»ERAS:1 LDR A3,A3 START IN FIRST SCREEN POSITION ??? «, t00=0x0041, t01=0x0020}
0x65d0…65ec Head {h00=0x0018, h01=0x0050, text=» RF(NZ) ERAS35 NO!! «, t00=0x0041, t01=0x005c}
0x65ec…6618 Head {h00=0x0028, h01=0x0050, text=» LC A2,1919,A4 LAST BUFFER CHARACTER«, t00=0x0041, t01=0x0078}
0x6618…662c Head {h00=0x0010, h01=0x0050, text=» ANK A2,/7F «, t00=0x0041, t01=0x00a4}
0x662c…6658 Head {h00=0x0028, h01=0x0050, text=» CWK A2,/20 ATTRIBUTE CHARACTER ??? «, t00=0x0041, t01=0x00b8}
0x6658…6674 Head {h00=0x0018, h01=0x0050, text=» RF(NL) ERAS35 NO!!!«, t00=0x0041, t01=0x00e4}
0x6674…6688 Head {h00=0x0010, h01=0x0050, text=» ANK A2,/10 «, t00=0x0041, t01=0x0100}
0x6688…66ae Head {h00=0x0022, h01=0x0050, text=» RF(NZ) ERAS70 PROTECTED FIELD«, t00=0x0041, t01=0x0114}
0x66ae…66c4 Head {h00=0x0012, h01=0x0050, text=» LC A2,1919,A4«, t00=0x0041, t01=0x013a}
0x66c4…66d8 Head {h00=0x0010, h01=0x0050, text=» ANK A2,/FE «, t00=0x0041, t01=0x0150}
0x66d8…66fc Head {h00=0x0020, h01=0x0050, text=» SC A2,1919,A4 RESET MDT BIT«, t00=0x0041, t01=0x0164}
0x66fc…670e Head {h00=0x000e, h01=0x0050, text=» RF ERAS35«, t00=0x0041, t01=0x0188}
0x670e…6736 Head {h00=0x0024, h01=0x0050, text=» ******************** 78-09-11«, t00=0x0042, t01=0x000a}
0x6736…6752 Head {h00=0x0018, h01=0x0050, text=»ERAS30 CWK A3,LBVDU «, t00=0x0042, t01=0x0032}
0x6752…677a Head {h00=0x0024, h01=0x0050, text=» RF(L) ERAS33 NOT END OF SCREEN «, t00=0x0042, t01=0x004e}
0x677a…678c Head {h00=0x000e, h01=0x0050, text=» LDK A3,0 «, t00=0x0042, t01=0x0076}
0x678c…67ae Head {h00=0x001e, h01=0x0050, text=» LDKL A4,BVDU WRAP AROUND «, t00=0x0042, t01=0x0088}
0x67ae…67c4 Head {h00=0x0012, h01=0x0050, text=» ADR A4,TCABAS«, t00=0x0042, t01=0x00aa}
0x67c4…67d8 Head {h00=0x0010, h01=0x0050, text=»ERAS33 EQU *«, t00=0x0042, t01=0x00c0}
0x67d8…67ea Head {h00=0x000e, h01=0x0050, text=» CWR A3,A1«, t00=0x0042, t01=0x00d4}
0x67ea…6816 Head {h00=0x0028, h01=0x0050, text=» RB(E) ERAEND ALL UNPROTECTED ERASED«, t00=0x0042, t01=0x00e6}
0x6816…6848 Head {h00=0x002e, h01=0x0050, text=»ERAS35 LCR A2,A4 GET CHAR FROM VDU BUFFER «, t00=0x0042, t01=0x0112}
0x6848…685c Head {h00=0x0010, h01=0x0050, text=» ANK A2,/7F «, t00=0x0042, t01=0x0144}
0x685c…6870 Head {h00=0x0010, h01=0x0050, text=» CWK A2,/20 «, t00=0x0042, t01=0x0158}
0x6870…6894 Head {h00=0x0020, h01=0x0050, text=» RF(L) ERAS50 ATTRIBUTE CHAR«, t00=0x0042, t01=0x016c}
0x6894…68a8 Head {h00=0x0010, h01=0x0050, text=» XRK A2,NULL«, t00=0x0042, t01=0x0190}
0x68a8…68ca Head {h00=0x001e, h01=0x0050, text=» RF(Z) ERAS40 ALREADY NULL«, t00=0x0043, t01=0x0014}
0x68ca…68f0 Head {h00=0x0022, h01=0x0050, text=» SCR A6,A4 STORE MODIFIED NULL«, t00=0x0043, t01=0x0036}
0x68f0…6908 Head {h00=0x0014, h01=0x0050, text=»ERAS40 ADK A3,1 «, t00=0x0043, t01=0x005c}
0x6908…691a Head {h00=0x000e, h01=0x0050, text=» ADK A4,1 «, t00=0x0043, t01=0x0074}
0x691a…692c Head {h00=0x000e, h01=0x0050, text=» RB ERAS30«, t00=0x0043, t01=0x0086}
0x692c…6944 Head {h00=0x0014, h01=0x0050, text=»ERAS50 ADK A3,1 «, t00=0x0043, t01=0x0098}
0x6944…6956 Head {h00=0x000e, h01=0x0050, text=» ADK A4,1 «, t00=0x0043, t01=0x00b0}
0x6956…696a Head {h00=0x0010, h01=0x0050, text=» ANK A2,/10 «, t00=0x0043, t01=0x00c2}
0x696a…6990 Head {h00=0x0022, h01=0x0050, text=» RF(NZ) ERAS60 PROTECTED FIELD«, t00=0x0043, t01=0x00d6}
0x6990…69a4 Head {h00=0x0010, h01=0x0050, text=» LC A2,-1,A4«, t00=0x0043, t01=0x00fc}
0x69a4…69c6 Head {h00=0x001e, h01=0x0050, text=» ANK A2,/FE RESET MDT BIT «, t00=0x0043, t01=0x0110}
0x69c6…69da Head {h00=0x0010, h01=0x0050, text=» SC A2,-1,A4«, t00=0x0043, t01=0x0132}
0x69da…69ec Head {h00=0x000e, h01=0x0050, text=» RB ERAS30«, t00=0x0043, t01=0x0146}
0x69ec…6a08 Head {h00=0x0018, h01=0x0050, text=»ERAS60 CWK A3,LBVDU «, t00=0x0043, t01=0x0158}
0x6a08…6a1e Head {h00=0x0012, h01=0x0050, text=» RF(L) ERAS65 «, t00=0x0043, t01=0x0174}
0x6a1e…6a30 Head {h00=0x000e, h01=0x0050, text=» LDK A3,0 «, t00=0x0043, t01=0x018a}
0x6a30…6a52 Head {h00=0x001e, h01=0x0050, text=» LDKL A4,BVDU WRAP AROUND «, t00=0x0044, t01=0x000c}
0x6a52…6a68 Head {h00=0x0012, h01=0x0050, text=» ADR A4,TCABAS«, t00=0x0044, t01=0x002e}
0x6a68…6a80 Head {h00=0x0014, h01=0x0050, text=»ERAS65 CWR A3,A1«, t00=0x0044, t01=0x0044}
0x6a80…6aac Head {h00=0x0028, h01=0x0050, text=» RB(E) ERAEND ALL UNPROTECTED ERASED«, t00=0x0044, t01=0x005c}
0x6aac…6ac0 Head {h00=0x0010, h01=0x0050, text=»ERAS70 EQU *«, t00=0x0044, t01=0x0088}
0x6ac0…6ad2 Head {h00=0x000e, h01=0x0050, text=» LCR A2,A4«, t00=0x0044, t01=0x009c}
0x6ad2…6ae6 Head {h00=0x0010, h01=0x0050, text=» ANK A2,/7F «, t00=0x0044, t01=0x00ae}
0x6ae6…6afa Head {h00=0x0010, h01=0x0050, text=» CWK A2,/20 «, t00=0x0044, t01=0x00c2}
0x6afa…6b20 Head {h00=0x0022, h01=0x0050, text=» RB(L) ERAS50 ATTRIBUTE FOUND «, t00=0x0044, t01=0x00d6}
0x6b20…6b32 Head {h00=0x000e, h01=0x0050, text=» ADK A3,1 «, t00=0x0044, t01=0x00fc}
0x6b32…6b44 Head {h00=0x000e, h01=0x0050, text=» ADK A4,1 «, t00=0x0044, t01=0x010e}
0x6b44…6b56 Head {h00=0x000e, h01=0x0050, text=» RB ERAS60«, t00=0x0044, t01=0x0120}
0x6b56…6b64 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0044, t01=0x0132}
0x6b64…6b6e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0044, t01=0x0140}
0x6b6e…6b78 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0044, t01=0x014a}
0x6b78…6b9c Head {h00=0x0020, h01=0x0050, text=»* TRANSMIT PROGRAM ATTENTION«, t00=0x0044, t01=0x0154}
0x6b9c…6ba6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0044, t01=0x0178}
0x6ba6…6bb6 Head {h00=0x000c, h01=0x0050, text=»* A2=AID«, t00=0x0044, t01=0x0182}
0x6bb6…6bc0 (69, 0, 400) Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0045, t01=0x0004}
0x6bc0…6bca Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0045, t01=0x000e}
0x6bca…6bf8 Head {h00=0x002a, h01=0x0050, text=»TRPA CF A14,GTWBUF GET TRANSMIT BUFFER«, t00=0x0045, t01=0x0018}
0x6bf8…6c1c Head {h00=0x0020, h01=0x0050, text=»TRPA10 CF A14,PAID STORE AID«, t00=0x0045, t01=0x0046}
0x6c1c…6c30 Head {h00=0x0010, h01=0x0050, text=»TRANS EQU * «, t00=0x0045, t01=0x006a}
0x6c30…6c54 Head {h00=0x0020, h01=0x0050, text=» CF A14,DCWRTE WRITE MESSAGE«, t00=0x0045, t01=0x007e}
0x6c54…6c68 Head {h00=0x0010, h01=0x0050, text=»TR050 EQU * «, t00=0x0045, t01=0x00a2}
0x6c68…6c8e Head {h00=0x0022, h01=0x0050, text=» RTN A14 TRANSMISSION TROUBLE «, t00=0x0045, t01=0x00b6}
0x6c8e…6ca4 Head {h00=0x0012, h01=0x0050, text=»TRRTN RTN A14 «, t00=0x0045, t01=0x00dc}
0x6ca4…6cb2 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0045, t01=0x00f2}
0x6cb2…6cbc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0045, t01=0x0100}
0x6cbc…6cc6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0045, t01=0x010a}
0x6cc6…6cea Head {h00=0x0020, h01=0x0050, text=»* TRANSMIT PROGRAM FUNCTION «, t00=0x0045, t01=0x0114}
0x6cea…6cf4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0045, t01=0x0138}
0x6cf4…6d04 Head {h00=0x000c, h01=0x0050, text=»* A2=AID«, t00=0x0045, t01=0x0142}
0x6d04…6d0e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0045, t01=0x0152}
0x6d0e…6d18 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0045, t01=0x015c}
0x6d18…6d46 Head {h00=0x002a, h01=0x0050, text=»TRPF CF A14,GTWBUF GET TRANSMIT BUFFER«, t00=0x0045, t01=0x0166}
0x6d46…6d6a (70, 0, 400) Head {h00=0x0020, h01=0x0050, text=»TRPF10 CF A14,PAID STORE AID«, t00=0x0046, t01=0x0004}
0x6d6a…6d94 Head {h00=0x0026, h01=0x0050, text=» CF A14,CURSA STORE CURSOR ADDRESS«, t00=0x0046, t01=0x0028}
0x6d94…6db8 Head {h00=0x0020, h01=0x0050, text=» CF A14,RDMOD READ MODIFIED «, t00=0x0046, t01=0x0052}
0x6db8…6dde Head {h00=0x0022, h01=0x0050, text=» RB TRANS SEND MODIFIED FIELDS«, t00=0x0046, t01=0x0076}
0x6dde…6dec Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0046, t01=0x009c}
0x6dec…6df6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0046, t01=0x00aa}
0x6df6…6e00 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0046, t01=0x00b4}
0x6e00…6e28 Head {h00=0x0024, h01=0x0050, text=»* DISPLAY MODIFIED FIELDS ON VDU«, t00=0x0046, t01=0x00be}
0x6e28…6e32 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0046, t01=0x00e6}
0x6e32…6e3c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0046, t01=0x00f0}
0x6e3c…6e56 Head {h00=0x0016, h01=0x0050, text=»* A3=VDU POSITION «, t00=0x0046, t01=0x00fa}
0x6e56…6e74 Head {h00=0x001a, h01=0x0050, text=»* A4=VDU IMAGE POINTER«, t00=0x0046, t01=0x0114}
0x6e74…6e94 Head {h00=0x001c, h01=0x0050, text=»* A5=MODIFIED INDICATOR «, t00=0x0046, t01=0x0132}
0x6e94…6eb8 Head {h00=0x0020, h01=0x0050, text=»* A7=VDU LINE OUTPUT POINTER«, t00=0x0046, t01=0x0152}
0x6eb8…6ecc Head {h00=0x0010, h01=0x0050, text=»* A8=VDU ECB«, t00=0x0046, t01=0x0176}
0x6ecc…6ef0 Head {h00=0x0020, h01=0x0050, text=»* A9=VDU OUTPUT CHAR COUNTER«, t00=0x0046, t01=0x018a}
0x6ef0…6efa Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0047, t01=0x001e}
0x6efa…6f04 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0047, t01=0x0028}
0x6f04…6f20 Head {h00=0x0018, h01=0x0050, text=»DISPL LDKL A8,ECBVDU«, t00=0x0047, t01=0x0032}
0x6f20…6f36 Head {h00=0x0012, h01=0x0050, text=» ADR A8,CREBAS«, t00=0x0047, t01=0x004e}
0x6f36…6f64 Head {h00=0x002a, h01=0x0050, text=» LDKL A1,/101 START FROM LINE 1 POS 1 «, t00=0x0047, t01=0x0064}
0x6f64…6f7c Head {h00=0x0014, h01=0x0050, text=» ST A1,ECBCW,A8 «, t00=0x0047, t01=0x0092}
0x6f7c…6fb8 Head {h00=0x0038, h01=0x0050, text=» SUR A10,A10 RESET COUNT FOR INTENSIFIED DISPLAYING «, t00=0x0047, t01=0x00aa}
0x6fb8…6fca Head {h00=0x000e, h01=0x0050, text=» LDK A3,0 «, t00=0x0047, t01=0x00e6}
0x6fca…6fe0 Head {h00=0x0012, h01=0x0050, text=» LDKL A4,BVDU «, t00=0x0047, t01=0x00f8}
0x6fe0…6ff6 Head {h00=0x0012, h01=0x0050, text=» ADR A4,TCABAS«, t00=0x0047, t01=0x010e}
0x6ff6…7026 Head {h00=0x002c, h01=0x0050, text=» CF A14,SPACES PUT SPACES IN LINE BUFFER«, t00=0x0047, t01=0x0124}
0x7026…706e Head {h00=0x0044, h01=0x0050, text=»****************************************************************«, t00=0x0047, t01=0x0154}
0x706e…70a8 Head {h00=0x0036, h01=0x0050, text=» LC A2,1919,A4 CHECK IF ATTRIBUTE IN LAST POSITION«, t00=0x0048, t01=0x000c}
0x70a8…70bc Head {h00=0x0010, h01=0x0050, text=» ANK A2,/7F «, t00=0x0048, t01=0x0046}
0x70bc…70de Head {h00=0x001e, h01=0x0050, text=» CWK A2,/1F ATTRIBUTE ??? «, t00=0x0048, t01=0x005a}
0x70de…70fa Head {h00=0x0018, h01=0x0050, text=» RF(G) DIS100 NO!!! «, t00=0x0048, t01=0x007c}
0x70fa…7102 Head {h00=0x0004, h01=0x0050, t00=0x0048, t01=0x0098}
0x7102…7114 Head {h00=0x000e, h01=0x0050, text=» ANK A2,6 «, t00=0x0048, t01=0x00a0}
0x7114…7126 Head {h00=0x000e, h01=0x0050, text=» XRK A2,6 «, t00=0x0048, t01=0x00b2}
0x7126…7168 Head {h00=0x003e, h01=0x0050, text=» ST A2,INTATT,TCABAS CHECK DISPLAY/NONDISPLAY INFORMATION «, t00=0x0048, t01=0x00c4}
0x7168…718a Head {h00=0x001e, h01=0x0050, text=» RF(Z) DIS210 NON DISPLAY «, t00=0x0048, t01=0x0106}
0x718a…71c2 Head {h00=0x0034, h01=0x0050, text=» CF A14,INTCHK INSERT HIGH/LOW INTENS. IN BUFFER«, t00=0x0048, t01=0x0128}
0x71c2…720e Head {h00=0x0048, h01=0x0050, text=»******************************************************************* «, t00=0x0048, t01=0x0160}
0x720e…7222 Head {h00=0x0010, h01=0x0050, text=»DIS100 EQU *«, t00=0x0049, t01=0x001c}
0x7222…7238 Head {h00=0x0012, h01=0x0050, text=» CWK A9,LLINE «, t00=0x0049, t01=0x0030}
0x7238…725e Head {h00=0x0022, h01=0x0050, text=» RF(L) DIS110 NOT END OF LINE «, t00=0x0049, t01=0x0046}
0x725e…7286 Head {h00=0x0024, h01=0x0050, text=» CF A14,DISLIN DISPLAY THIS LINE«, t00=0x0049, t01=0x006c}
0x7286…72b8 Head {h00=0x002e, h01=0x0050, text=» CF A14,INTCHK CHECK IF LOW/HIGH INTENSITY«, t00=0x0049, t01=0x0094}
0x72b8…72cc Head {h00=0x0010, h01=0x0050, text=»DIS110 EQU *«, t00=0x0049, t01=0x00c6}
0x72cc…72e2 Head {h00=0x0012, h01=0x0050, text=» CWK A3,LBVDU «, t00=0x0049, t01=0x00da}
0x72e2…7304 Head {h00=0x001e, h01=0x0050, text=» RF(NL) DIS900 ALL SCANNED«, t00=0x0049, t01=0x00f0}
0x7304…7320 Head {h00=0x0018, h01=0x0050, text=» LCR A2,A4 GET CHAR «, t00=0x0049, t01=0x0112}
0x7320…7362 Head {h00=0x003e, h01=0x0050, text=»************************************************ 78-08-15 «, t00=0x0049, t01=0x012e}
0x7362…736a Head {h00=0x0004, h01=0x0050, t00=0x0049, t01=0x0170}
0x736a…7390 Head {h00=0x0022, h01=0x0050, text=» CF A14,SET:M SET MODIFIED BIT«, t00=0x0049, t01=0x0178}
0x7390…7398 Head {h00=0x0004, h01=0x0050, t00=0x004a, t01=0x000e}
0x7398…73da Head {h00=0x003e, h01=0x0050, text=»************************************************ 78-08-15 «, t00=0x004a, t01=0x0016}
0x73da…73ee Head {h00=0x0010, h01=0x0050, text=»DIS115 EQU *«, t00=0x004a, t01=0x0058}
0x73ee…7414 Head {h00=0x0022, h01=0x0050, text=» ANK A2,/7F RESET DISPLAY BIT «, t00=0x004a, t01=0x006c}
0x7414…7426 Head {h00=0x000e, h01=0x0050, text=» SCR A2,A4«, t00=0x004a, t01=0x0092}
0x7426…7438 Head {h00=0x000e, h01=0x0050, text=» ADK A3,1 «, t00=0x004a, t01=0x00a4}
0x7438…744a Head {h00=0x000e, h01=0x0050, text=» ADK A4,1 «, t00=0x004a, t01=0x00b6}
0x744a…745c Head {h00=0x000e, h01=0x0050, text=» ADK A7,1 «, t00=0x004a, t01=0x00c8}
0x745c…746e Head {h00=0x000e, h01=0x0050, text=» ADKL A9,1«, t00=0x004a, t01=0x00da}
0x746e…7482 Head {h00=0x0010, h01=0x0050, text=» CWK A2,/20 «, t00=0x004a, t01=0x00ec}
0x7482…74a6 Head {h00=0x0020, h01=0x0050, text=» RF(L) DIS200 ATTRIBUTE CHAR«, t00=0x004a, t01=0x0100}
0x74a6…74ba Head {h00=0x0010, h01=0x0050, text=» CWK A2,NULL«, t00=0x004a, t01=0x0124}
0x74ba…74ec Head {h00=0x002e, h01=0x0050, text=» RB(E) DIS100 NULL EQUALS SPACE AT DISPLAY«, t00=0x004a, t01=0x0138}
0x74ec…7500 Head {h00=0x0010, h01=0x0050, text=» CWK A2,/7D «, t00=0x004a, t01=0x016a}
0x7500…7516 Head {h00=0x0012, h01=0x0050, text=» RF(NE) DIS120«, t00=0x004a, t01=0x017e}
0x7516…752a (75, 0, 400) Head {h00=0x0010, h01=0x0050, text=» LDK A2,/39 «, t00=0x004b, t01=0x0004}
0x752a…7544 Head {h00=0x0016, h01=0x0050, text=»DIS120 CWK A2,/7E «, t00=0x004b, t01=0x0018}
0x7544…755a Head {h00=0x0012, h01=0x0050, text=» RF(NE) DIS121«, t00=0x004b, t01=0x0032}
0x755a…756e Head {h00=0x0010, h01=0x0050, text=» LDK A2,/35 «, t00=0x004b, t01=0x0048}
0x756e…7588 Head {h00=0x0016, h01=0x0050, text=»DIS121 CWK A2,/7C «, t00=0x004b, t01=0x005c}
0x7588…759e Head {h00=0x0012, h01=0x0050, text=» RF(NE) DIS122«, t00=0x004b, t01=0x0076}
0x759e…75b2 Head {h00=0x0010, h01=0x0050, text=» LDK A2,/3C «, t00=0x004b, t01=0x008c}
0x75b2…75c6 Head {h00=0x0010, h01=0x0050, text=»DIS122 EQU *«, t00=0x004b, t01=0x00a0}
0x75c6…75fe Head {h00=0x0034, h01=0x0050, text=» SC A2,-1,A7 STORE CHAR IN DISPLAY OUTPUT BUFFER«, t00=0x004b, t01=0x00b4}
0x75fe…7610 Head {h00=0x000e, h01=0x0050, text=» RB DIS100«, t00=0x004b, t01=0x00ec}
0x7610…7628 Head {h00=0x0014, h01=0x0050, text=»DIS200 ANK A2,6 «, t00=0x004b, t01=0x00fe}
0x7628…764e Head {h00=0x0022, h01=0x0050, text=» XRK A2,6 CHECK IF NONDISPLAY «, t00=0x004b, t01=0x0116}
0x764e…7684 Head {h00=0x0032, h01=0x0050, text=» ST A2,INTATT,TCABAS SAVE ATTRIBUTE CHARACTER «, t00=0x004b, t01=0x013c}
0x7684…76a6 Head {h00=0x001e, h01=0x0050, text=» RF(Z) DIS210 NON DISPLAY «, t00=0x004b, t01=0x0172}
0x76a6…76b8 (76, 0, 400) Head {h00=0x000e, h01=0x0050, text=» ANK A2,4 «, t00=0x004c, t01=0x0004}
0x76b8…76dc Head {h00=0x0020, h01=0x0050, text=» RF(Z) DIS205 HIGH INTENSITY«, t00=0x004c, t01=0x0016}
0x76dc…76fe Head {h00=0x001e, h01=0x0050, text=» LDK A2,/1E LOW INTENSITY «, t00=0x004c, t01=0x003a}
0x76fe…7710 Head {h00=0x000e, h01=0x0050, text=» RF DIS206«, t00=0x004c, t01=0x005c}
0x7710…7724 Head {h00=0x0010, h01=0x0050, text=»DIS205 EQU *«, t00=0x004c, t01=0x006e}
0x7724…773c Head {h00=0x0014, h01=0x0050, text=» LDK A2,/1F HIGH«, t00=0x004c, t01=0x0082}
0x773c…7750 Head {h00=0x0010, h01=0x0050, text=»DIS206 EQU *«, t00=0x004c, t01=0x009a}
0x7750…777e Head {h00=0x002a, h01=0x0050, text=» SC A2,-1,A7 STORE INTENSITY CHARACTER«, t00=0x004c, t01=0x00ae}
0x777e…77a4 Head {h00=0x0022, h01=0x0050, text=» ADKL A10,1 INCREMENT COUNTER «, t00=0x004c, t01=0x00dc}
0x77a4…77b6 Head {h00=0x000e, h01=0x0050, text=» ADK A7,1 «, t00=0x004c, t01=0x0102}
0x77b6…77c8 Head {h00=0x000e, h01=0x0050, text=» RB DIS100«, t00=0x004c, t01=0x0114}
0x77c8…77dc Head {h00=0x0010, h01=0x0050, text=»DIS210 EQU *«, t00=0x004c, t01=0x0126}
0x77dc…77f2 Head {h00=0x0012, h01=0x0050, text=» CWK A9,LLINE «, t00=0x004c, t01=0x013a}
0x77f2…7808 Head {h00=0x0012, h01=0x0050, text=» RF(L) DIS220 «, t00=0x004c, t01=0x0150}
0x7808…7830 Head {h00=0x0024, h01=0x0050, text=» CF A14,DISLIN DISPLAY THIS LINE«, t00=0x004c, t01=0x0166}
0x7830…7844 Head {h00=0x0010, h01=0x0050, text=»DIS220 EQU *«, t00=0x004c, t01=0x018e}
0x7844…785a Head {h00=0x0012, h01=0x0050, text=» CWK A3,LBVDU «, t00=0x004d, t01=0x0012}
0x785a…787e Head {h00=0x0020, h01=0x0050, text=» RF(NL) DIS900 ALL DISPLAYED«, t00=0x004d, t01=0x0028}
0x787e…7890 Head {h00=0x000e, h01=0x0050, text=» LCR A2,A4«, t00=0x004d, t01=0x004c}
0x7890…78d2 Head {h00=0x003e, h01=0x0050, text=»************************************************* 78-08-15«, t00=0x004d, t01=0x005e}
0x78d2…78da Head {h00=0x0004, h01=0x0050, t00=0x004d, t01=0x00a0}
0x78da…7900 Head {h00=0x0022, h01=0x0050, text=» CF A14,SET:M SET MODIFIED BIT«, t00=0x004d, t01=0x00a8}
0x7900…7908 Head {h00=0x0004, h01=0x0050, t00=0x004d, t01=0x00ce}
0x7908…794a Head {h00=0x003e, h01=0x0050, text=»************************************************ 78-08-15 «, t00=0x004d, t01=0x00d6}
0x794a…795e Head {h00=0x0010, h01=0x0050, text=»DIS225 EQU *«, t00=0x004d, t01=0x0118}
0x795e…7984 Head {h00=0x0022, h01=0x0050, text=» ANK A2,/7F RESET DISPLAY BIT «, t00=0x004d, t01=0x012c}
0x7984…7996 Head {h00=0x000e, h01=0x0050, text=» SCR A2,A4«, t00=0x004d, t01=0x0152}
0x7996…79a8 Head {h00=0x000e, h01=0x0050, text=» ADK A3,1 «, t00=0x004d, t01=0x0164}
0x79a8…79ba Head {h00=0x000e, h01=0x0050, text=» ADK A4,1 «, t00=0x004d, t01=0x0176}
0x79ba…79cc Head {h00=0x000e, h01=0x0050, text=» ADK A7,1 «, t00=0x004d, t01=0x0188}
0x79cc…79de Head {h00=0x000e, h01=0x0050, text=» ADKL A9,1«, t00=0x004e, t01=0x000a}
0x79de…79f2 Head {h00=0x0010, h01=0x0050, text=» CWK A2,/20 «, t00=0x004e, t01=0x001c}
0x79f2…7a18 Head {h00=0x0022, h01=0x0050, text=» RB(L) DIS200 ATTRIBUTE FOUND «, t00=0x004e, t01=0x0030}
0x7a18…7a2a Head {h00=0x000e, h01=0x0050, text=» RB DIS210«, t00=0x004e, t01=0x0056}
0x7a2a…7a38 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x004e, t01=0x0068}
0x7a38…7a42 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004e, t01=0x0076}
0x7a42…7a4c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004e, t01=0x0080}
0x7a4c…7a6a Head {h00=0x001a, h01=0x0050, text=»* POSITION THE CURSOR «, t00=0x004e, t01=0x008a}
0x7a6a…7a74 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004e, t01=0x00a8}
0x7a74…7a7e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004e, t01=0x00b2}
0x7a7e…7a92 Head {h00=0x0010, h01=0x0050, text=»SETCUR EQU *«, t00=0x004e, t01=0x00bc}
0x7a92…7ab4 Head {h00=0x001e, h01=0x0050, text=»DIS900 LDK A1,2 REQ LENGTH«, t00=0x004e, t01=0x00d0}
0x7ab4…7ad2 Head {h00=0x001a, h01=0x0050, text=»DIS905 ST A1,ECBRL,A8 «, t00=0x004e, t01=0x00f2}
0x7ad2…7afc Head {h00=0x0026, h01=0x0050, text=» LD A1,PCURS,TCABAS GET CURSOR POS«, t00=0x004e, t01=0x0110}
0x7afc…7b26 Head {h00=0x0026, h01=0x0050, text=» LDKL A2,/101 START ON LIN 1 POS 1«, t00=0x004e, t01=0x013a}
0x7b26…7b3e Head {h00=0x0014, h01=0x0050, text=» ST A2,ECBCW,A8 «, t00=0x004e, t01=0x0164}
0x7b3e…7b54 Head {h00=0x0012, h01=0x0050, text=» LDKL A2,/100 «, t00=0x004e, t01=0x017c}
0x7b54…7b70 (79, 0, 400) Head {h00=0x0018, h01=0x0050, text=»DIS910 CWK A1,LLINE «, t00=0x004f, t01=0x0004}
0x7b70…7b86 Head {h00=0x0012, h01=0x0050, text=» RF(L) DIS920 «, t00=0x004f, t01=0x0020}
0x7b86…7b9e Head {h00=0x0014, h01=0x0050, text=» ADS A2,ECBCW,A8«, t00=0x004f, t01=0x0036}
0x7b9e…7bb4 Head {h00=0x0012, h01=0x0050, text=» SUKL A1,LLINE«, t00=0x004f, t01=0x004e}
0x7bb4…7bc6 Head {h00=0x000e, h01=0x0050, text=» RB DIS910«, t00=0x004f, t01=0x0064}
0x7bc6…7be4 Head {h00=0x001a, h01=0x0050, text=»DIS920 ADS A1,ECBCW,A8«, t00=0x004f, t01=0x0076}
0x7be4…7c0c Head {h00=0x0024, h01=0x0050, text=» LDK A7,/8B SET CURSOR AND WRITE«, t00=0x004f, t01=0x0094}
0x7c0c…7c18 Head {h00=0x0008, h01=0x0050, text=» LKM«, t00=0x004f, t01=0x00bc}
0x7c18…7c28 Head {h00=0x000c, h01=0x0050, text=» DATA 1 «, t00=0x004f, t01=0x00c8}
0x7c28…7c5c Head {h00=0x0030, h01=0x0050, text=» CM INTATT,TCABAS CLEAR INTENSITY ATTRIBUTE «, t00=0x004f, t01=0x00d8}
0x7c5c…7c6c Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x004f, t01=0x010c}
0x7c6c…7c7a Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x004f, t01=0x011c}
0x7c7a…7c84 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004f, t01=0x012a}
0x7c84…7c8e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004f, t01=0x0134}
0x7c8e…7cc2 Head {h00=0x0030, h01=0x0050, text=»* WRITE ONE CHAR FROM A2 IN CURSOR POSITION «, t00=0x004f, t01=0x013e}
0x7cc2…7ccc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004f, t01=0x0172}
0x7ccc…7cd6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004f, t01=0x017c}
0x7cd6…7cf2 Head {h00=0x0018, h01=0x0050, text=»WCHAR LD A1,ECBBA,A8«, t00=0x004f, t01=0x0186}
0x7cf2…7d08 Head {h00=0x0012, h01=0x0050, text=» CF A14,RFMDUP«, t00=0x0050, t01=0x0012}
0x7d08…7d3c Head {h00=0x0030, h01=0x0050, text=» SC A2,3,A1 STORE CHAR IN VDU OUTPUT BUFFER «, t00=0x0050, t01=0x0028}
0x7d3c…7d4e Head {h00=0x000e, h01=0x0050, text=» LDK A1,4 «, t00=0x0050, t01=0x005c}
0x7d4e…7d70 Head {h00=0x001e, h01=0x0050, text=» RB DIS905 REQ LENGTH = 3 «, t00=0x0050, t01=0x006e}
0x7d70…7d7a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0050, t01=0x0090}
0x7d7a…7dc8 Head {h00=0x004a, h01=0x0050, text=»********************************************************************* «, t00=0x0050, t01=0x009a}
0x7dc8…7dd2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0050, t01=0x00e8}
0x7dd2…7e0e Head {h00=0x0038, h01=0x0050, text=»* REPLACE FM & DUP WITH '*' RESP. ';', IF PRESENT«, t00=0x0050, t01=0x00f2}
0x7e0e…7e2c Head {h00=0x001a, h01=0x0050, text=»* CHARACTER IN A2«, t00=0x0050, t01=0x012e}
0x7e2c…7e36 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0050, t01=0x014c}
0x7e36…7e84 Head {h00=0x004a, h01=0x0050, text=»********************************************************************* «, t00=0x0050, t01=0x0156}
0x7e84…7e8e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0051, t01=0x0014}
0x7e8e…7ea2 Head {h00=0x0010, h01=0x0050, text=»RFMDUP EQU *«, t00=0x0051, t01=0x001e}
0x7ea2…7eb8 Head {h00=0x0012, h01=0x0050, text=» CWK A2,DUPCH «, t00=0x0051, t01=0x0032}
0x7eb8…7ece Head {h00=0x0012, h01=0x0050, text=» RF(NE) RFMD10«, t00=0x0051, t01=0x0048}
0x7ece…7ee6 Head {h00=0x0014, h01=0x0050, text=» LDK A2,/2A DUP «, t00=0x0051, t01=0x005e}
0x7ee6…7efa Head {h00=0x0010, h01=0x0050, text=»RFMD10 EQU *«, t00=0x0051, t01=0x0076}
0x7efa…7f0e Head {h00=0x0010, h01=0x0050, text=» CWK A2,FMCH«, t00=0x0051, t01=0x008a}
0x7f0e…7f24 Head {h00=0x0012, h01=0x0050, text=» RF(NE) RFMD20«, t00=0x0051, t01=0x009e}
0x7f24…7f38 Head {h00=0x0010, h01=0x0050, text=» LDK A2,/3B «, t00=0x0051, t01=0x00b4}
0x7f38…7f4c Head {h00=0x0010, h01=0x0050, text=»RFMD20 EQU *«, t00=0x0051, t01=0x00c8}
0x7f4c…7f5c Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0051, t01=0x00dc}
0x7f5c…7f6a Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0051, t01=0x00ec}
0x7f6a…7f74 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0051, t01=0x00fa}
0x7f74…7f7e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0051, t01=0x0104}
0x7f7e…7faa Head {h00=0x0028, h01=0x0050, text=»* PUT SPACES TO DISPLAY LINE BUFFER «, t00=0x0051, t01=0x010e}
0x7faa…7fb4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0051, t01=0x013a}
0x7fb4…7fbe Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0051, t01=0x0144}
0x7fbe…7fdc Head {h00=0x001a, h01=0x0050, text=»SPACES LD A7,ECBBA,A8 «, t00=0x0051, t01=0x014e}
0x7fdc…7ffc Head {h00=0x001c, h01=0x0050, text=» ADK A7,2 BUFFER ADDRESS«, t00=0x0051, t01=0x016c}
0x7ffc…801e Head {h00=0x001e, h01=0x0050, text=» LDKL A9,LLINE LINE LENGTH«, t00=0x0051, t01=0x018c}
0x801e…803a Head {h00=0x0018, h01=0x0050, text=» ADR A9,A9 DOUBLE IT«, t00=0x0052, t01=0x001e}
0x803a…8056 Head {h00=0x0018, h01=0x0050, text=» LDKL A2,' ' SPACES«, t00=0x0052, t01=0x003a}
0x8056…8072 Head {h00=0x0018, h01=0x0050, text=»SPAC10 SCR A2,A7 =1«, t00=0x0052, t01=0x0056}
0x8072…808a Head {h00=0x0014, h01=0x0050, text=» SC A2,1,A7 =1 «, t00=0x0052, t01=0x0072}
0x808a…809c Head {h00=0x000e, h01=0x0050, text=» ADK A7,2 «, t00=0x0052, t01=0x008a}
0x809c…80ae Head {h00=0x000e, h01=0x0050, text=» SUKL A9,2«, t00=0x0052, t01=0x009c}
0x80ae…80c4 Head {h00=0x0012, h01=0x0050, text=» RB(P) SPAC10 «, t00=0x0052, t01=0x00ae}
0x80c4…80ec Head {h00=0x0024, h01=0x0050, text=» LDK A2,0 CLEAR A2=CHAR REGISTER«, t00=0x0052, t01=0x00c4}
0x80ec…8116 Head {h00=0x0026, h01=0x0050, text=» LDK A5,0 RESET MODIFIED INDICATOR«, t00=0x0052, t01=0x00ec}
0x8116…812e Head {h00=0x0014, h01=0x0050, text=» LD A7,ECBBA,A8 «, t00=0x0052, t01=0x0116}
0x812e…814e Head {h00=0x001c, h01=0x0050, text=» ADK A7,2 BUFFER ADDRESS«, t00=0x0052, t01=0x012e}
0x814e…8178 Head {h00=0x0026, h01=0x0050, text=» SUR A9,A9 RESET LINE CHAR COUNTER«, t00=0x0052, t01=0x014e}
0x8178…8188 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0052, t01=0x0178}
0x8188…8196 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0052, t01=0x0188}
0x8196…81a0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0053, t01=0x0008}
0x81a0…81aa Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0053, t01=0x0012}
0x81aa…81d6 Head {h00=0x0028, h01=0x0050, text=»* DISPLAY LINE IF ANY MODIFICATIONS «, t00=0x0053, t01=0x001c}
0x81d6…81e0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0053, t01=0x0048}
0x81e0…81ea Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0053, t01=0x0052}
0x81ea…822c Head {h00=0x003e, h01=0x0050, text=»************************************************* 78-08-15«, t00=0x0053, t01=0x005c}
0x822c…8234 Head {h00=0x0004, h01=0x0050, t00=0x0053, t01=0x009e}
0x8234…8248 Head {h00=0x0010, h01=0x0050, text=»DISLIN EQU *«, t00=0x0053, t01=0x00a6}
0x8248…825a Head {h00=0x000e, h01=0x0050, text=» LDR A7,A5«, t00=0x0053, t01=0x00ba}
0x825a…8282 Head {h00=0x0024, h01=0x0050, text=» ANK A5,/80 ANY MODIFICATIONS ??«, t00=0x0053, t01=0x00cc}
0x8282…82a8 Head {h00=0x0022, h01=0x0050, text=» RF(Z) DISL10 NO MODIFICATIONS«, t00=0x0053, t01=0x00f4}
0x82a8…82ba Head {h00=0x000e, h01=0x0050, text=» LDK A1,2 «, t00=0x0053, t01=0x011a}
0x82ba…82e6 Head {h00=0x0028, h01=0x0050, text=» XRK A7,/A0 ONLY SPACES IN BUFFER ??«, t00=0x0053, t01=0x012c}
0x82e6…8302 Head {h00=0x0018, h01=0x0050, text=» RF(Z) DIS:10 YES!! «, t00=0x0053, t01=0x0158}
0x8302…831a Head {h00=0x0014, h01=0x0050, text=» LDKL A1,LLINE+2«, t00=0x0053, t01=0x0174}
0x831a…834c Head {h00=0x002e, h01=0x0050, text=» ADR A1,A10 ADD NR OF INTENSITY CHARACTERS«, t00=0x0053, t01=0x018c}
0x834c…8360 Head {h00=0x0010, h01=0x0050, text=»DIS:10 EQU *«, t00=0x0054, t01=0x002e}
0x8360…83a0 Head {h00=0x003c, h01=0x0050, text=»*********************************************** 78-08-15«, t00=0x0054, t01=0x0042}
0x83a0…83c6 Head {h00=0x0022, h01=0x0050, text=» ST A1,ECBRL,A8 SET REQ LENGTH«, t00=0x0054, t01=0x0082}
0x83c6…83ce Head {h00=0x0004, h01=0x0050, t00=0x0054, t01=0x00a8}
0x83ce…83d6 Head {h00=0x0004, h01=0x0050, t00=0x0054, t01=0x00b0}
0x83d6…83fe Head {h00=0x0024, h01=0x0050, text=» LDK A7,/8B SET CURSOR AND WRITE«, t00=0x0054, t01=0x00b8}
0x83fe…840a Head {h00=0x0008, h01=0x0050, text=» LKM«, t00=0x0054, t01=0x00e0}
0x840a…841a Head {h00=0x000c, h01=0x0050, text=» DATA 1 «, t00=0x0054, t01=0x00ec}
0x841a…8428 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0054, t01=0x00fc}
0x8428…8430 Head {h00=0x0004, h01=0x0050, t00=0x0054, t01=0x010a}
0x8430…847c Head {h00=0x0048, h01=0x0050, text=»********************************************************************«, t00=0x0054, t01=0x0112}
0x847c…8486 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0054, t01=0x015e}
0x8486…84ba Head {h00=0x0030, h01=0x0050, text=»* EXECUTE FAST OUTPUT TO BLANK REMAINIG PART«, t00=0x0054, t01=0x0168}
0x84ba…84d0 Head {h00=0x0012, h01=0x0050, text=»* OF THE LINE «, t00=0x0055, t01=0x000c}
0x84d0…84da Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0055, t01=0x0022}
0x84da…8526 Head {h00=0x0048, h01=0x0050, text=»******************************************************************* «, t00=0x0055, t01=0x002c}
0x8526…852e Head {h00=0x0004, h01=0x0050, t00=0x0055, t01=0x0078}
0x852e…8556 Head {h00=0x0024, h01=0x0050, text=» LD A1,ECBCW,A8 CURSOR POSITION «, t00=0x0055, t01=0x0080}
0x8556…857a Head {h00=0x0020, h01=0x0050, text=» ANK A1,X'FF' COLUMN NUMBER «, t00=0x0055, t01=0x00a8}
0x857a…85a2 Head {h00=0x0024, h01=0x0050, text=»* SUK A1,81 LAST POSITION ??? DK«, t00=0x0055, t01=0x00cc}
0x85a2…85c8 Head {h00=0x0022, h01=0x0050, text=» SUK A1,80 LAST POSITION ? DK «, t00=0x0055, t01=0x00f4}
0x85c8…8600 Head {h00=0x0034, h01=0x0050, text=»* RF(Z) DISL10 YES!! NO FAST OUTPUT THIS LINE DK«, t00=0x0055, t01=0x011a}
0x8600…8638 Head {h00=0x0034, h01=0x0050, text=» RF(NL) DISL10 YES, NO FAST OUTPUT THIS LINE DK «, t00=0x0055, t01=0x0152}
0x8638…8640 Head {h00=0x0004, h01=0x0050, t00=0x0055, t01=0x018a}
0x8640…8666 (86, 0, 400) Head {h00=0x0022, h01=0x0050, text=» LD A1,ECBBA,A8 BUFFER ADRESS «, t00=0x0056, t01=0x0004}
0x8666…8696 Head {h00=0x002c, h01=0x0050, text=» LDK A2,X'2B' DONT MOVE CURSOR ONE LINE «, t00=0x0056, t01=0x002a}
0x8696…86ae Head {h00=0x0014, h01=0x0050, text=» SC A2,1,A1 =1 «, t00=0x0056, t01=0x005a}
0x86ae…86dc Head {h00=0x002a, h01=0x0050, text=» LDKL A2,X'1420' FAST OUTPUT OF SPACES«, t00=0x0056, t01=0x0072}
0x86dc…86f4 Head {h00=0x0014, h01=0x0050, text=» SC A2,3,A1 =1 «, t00=0x0056, t01=0x00a0}
0x86f4…870a Head {h00=0x0012, h01=0x0050, text=» SRL A2,8 =1 «, t00=0x0056, t01=0x00b8}
0x870a…8722 Head {h00=0x0014, h01=0x0050, text=» SC A2,2,A1 =1 «, t00=0x0056, t01=0x00ce}
0x8722…8746 Head {h00=0x0020, h01=0x0050, text=» LDK A2,84 REQUESTED LENGTH «, t00=0x0056, t01=0x00e6}
0x8746…875e Head {h00=0x0014, h01=0x0050, text=» ST A2,ECBRL,A8 «, t00=0x0056, t01=0x010a}
0x875e…8780 Head {h00=0x001e, h01=0x0050, text=» LDK A7,X'86' WRITE ORDER «, t00=0x0056, t01=0x0122}
0x8780…878c Head {h00=0x0008, h01=0x0050, text=» LKM«, t00=0x0056, t01=0x0144}
0x878c…879c Head {h00=0x000c, h01=0x0050, text=» DATA 1 «, t00=0x0056, t01=0x0150}
0x879c…87a4 Head {h00=0x0004, h01=0x0050, t00=0x0056, t01=0x0160}
0x87a4…87b8 Head {h00=0x0010, h01=0x0050, text=»DISL10 EQU *«, t00=0x0056, t01=0x0168}
0x87b8…87ca Head {h00=0x000e, h01=0x0050, text=» LDK A2,1 «, t00=0x0056, t01=0x017c}
0x87ca…87f6 Head {h00=0x0028, h01=0x0050, text=» SC A2,ECBCW+1,A8 POS 1 ON NEXT LINE«, t00=0x0056, t01=0x018e}
0x87f6…880c Head {h00=0x0012, h01=0x0050, text=» LDKL A2,/100 «, t00=0x0057, t01=0x002a}
0x880c…883a Head {h00=0x002a, h01=0x0050, text=» ADS A2,ECBCW,A8 INCREMENT LINE NUMBER«, t00=0x0057, t01=0x0040}
0x883a…8862 Head {h00=0x0024, h01=0x0050, text=» RB SPACES PUT SPACES TO BUFFER «, t00=0x0057, t01=0x006e}
0x8862…886a Head {h00=0x0004, h01=0x0050, t00=0x0057, t01=0x0096}
0x886a…8878 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0057, t01=0x009e}
0x8878…8880 Head {h00=0x0004, h01=0x0050, t00=0x0057, t01=0x00ac}
0x8880…8888 Head {h00=0x0004, h01=0x0050, t00=0x0057, t01=0x00b4}
0x8888…88d0 Head {h00=0x0044, h01=0x0050, text=»****************************************************************«, t00=0x0057, t01=0x00bc}
0x88d0…88da Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0057, t01=0x0104}
0x88da…891c Head {h00=0x003e, h01=0x0050, text=»* I N T C H K CHECK IF LINE SHOULD BE PRINTED WITH«, t00=0x0057, t01=0x010e}
0x891c…8950 Head {h00=0x0030, h01=0x0050, text=»* HIGH OR LOW INTENSITY «, t00=0x0057, t01=0x0150}
0x8950…895a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0057, t01=0x0184}
0x895a…89a8 Head {h00=0x004a, h01=0x0050, text=»**********************************************************************«, t00=0x0057, t01=0x018e}
0x89a8…89b0 Head {h00=0x0004, h01=0x0050, t00=0x0058, t01=0x004c}
0x89b0…89e0 Head {h00=0x002c, h01=0x0050, text=»INTCHK SUR A10,A10 RESET INTENSITY COUNT«, t00=0x0058, t01=0x0054}
0x89e0…8a14 Head {h00=0x0030, h01=0x0050, text=» LD A2,INTATT,TCABAS GET INTENSITY ATTRIBUTE«, t00=0x0058, t01=0x0084}
0x8a14…8a36 Head {h00=0x001e, h01=0x0050, text=» RF(Z) INTRTN NON DISPLAY «, t00=0x0058, t01=0x00b8}
0x8a36…8a5e Head {h00=0x0024, h01=0x0050, text=» ANK A2,X'4' HIGH INTENSITY ??? «, t00=0x0058, t01=0x00da}
0x8a5e…8a78 Head {h00=0x0016, h01=0x0050, text=» RF(Z) INT:10 YES «, t00=0x0058, t01=0x0102}
0x8a78…8a80 Head {h00=0x0004, h01=0x0050, t00=0x0058, t01=0x011c}
0x8a80…8aa4 Head {h00=0x0020, h01=0x0050, text=» LDK A2,X'1E' LOW INTENSITY «, t00=0x0058, t01=0x0124}
0x8aa4…8ac6 Head {h00=0x001e, h01=0x0050, text=» RF INT:20 HIGH INTENSITY «, t00=0x0058, t01=0x0148}
0x8ac6…8ace Head {h00=0x0004, h01=0x0050, t00=0x0058, t01=0x016a}
0x8ace…8af8 Head {h00=0x0026, h01=0x0050, text=»INT:10 LDK A2,X'1F' HIGH INTENSITY«, t00=0x0058, t01=0x0172}
0x8af8…8b00 Head {h00=0x0004, h01=0x0050, t00=0x0059, t01=0x000c}
0x8b00…8b3c Head {h00=0x0038, h01=0x0050, text=»INT:20 SCR A2,A7 SAVE INTENSITY CHARACTER IN BUFFER «, t00=0x0059, t01=0x0014}
0x8b3c…8b66 Head {h00=0x0026, h01=0x0050, text=» ADK A7,1 INCREMENT BUFFER POINTER«, t00=0x0059, t01=0x0050}
0x8b66…8b94 Head {h00=0x002a, h01=0x0050, text=» ADKL A10,1 INTENSITY COUNT «, t00=0x0059, t01=0x007a}
0x8b94…8bb2 Head {h00=0x001a, h01=0x0050, text=»INTRTN RTN A14 RETURN «, t00=0x0059, t01=0x00a8}
0x8bb2…8bbc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0059, t01=0x00c6}
0x8bbc…8bca Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0059, t01=0x00d0}
0x8bca…8bd2 Head {h00=0x0004, h01=0x0050, t00=0x0059, t01=0x00de}
0x8bd2…8c1a Head {h00=0x0044, h01=0x0050, text=»****************************************************************«, t00=0x0059, t01=0x00e6}
0x8c1a…8c24 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0059, t01=0x012e}
0x8c24…8c68 Head {h00=0x0040, h01=0x0050, text=»* SET:M SET MODIFIED BIT IF CHARACTER HAS BEEN MODIFIED «, t00=0x0059, t01=0x0138}
0x8c68…8c72 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0059, t01=0x017c}
0x8c72…8cbc Head {h00=0x0046, h01=0x0050, text=»******************************************************************«, t00=0x0059, t01=0x0186}
0x8cbc…8cc4 Head {h00=0x0004, h01=0x0050, t00=0x005a, t01=0x0040}
0x8cc4…8cdc Head {h00=0x0014, h01=0x0050, text=»SET:M CWK A2,/20«, t00=0x005a, t01=0x0048}
0x8cdc…8d06 Head {h00=0x0026, h01=0x0050, text=» RF(L) SET:M2 ATTRIBUTE CHARACTER «, t00=0x005a, t01=0x0060}
0x8d06…8d1a Head {h00=0x0010, h01=0x0050, text=» CWK A2,/7F «, t00=0x005a, t01=0x008a}
0x8d1a…8d44 Head {h00=0x0026, h01=0x0050, text=» RF(E) SET:M2 UNMODIFIED ATTRIBUTE«, t00=0x005a, t01=0x009e}
0x8d44…8d58 Head {h00=0x0010, h01=0x0050, text=» CWK A2,/FF «, t00=0x005a, t01=0x00c8}
0x8d58…8d84 Head {h00=0x0028, h01=0x0050, text=» RF(NE) SET:M1 NOT NULL OR ATTRIBUTE«, t00=0x005a, t01=0x00dc}
0x8d84…8db0 Head {h00=0x0028, h01=0x0050, text=» ORK A5,/A0 MODIFIED NULL CHARACTER «, t00=0x005a, t01=0x0108}
0x8db0…8dc0 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x005a, t01=0x0134}
0x8dc0…8dea Head {h00=0x0026, h01=0x0050, text=»SET:M1 ORR A5,A2 SET MODIFIED BIT «, t00=0x005a, t01=0x0144}
0x8dea…8e00 Head {h00=0x0012, h01=0x0050, text=»SET:M2 RTN A14«, t00=0x005a, t01=0x016e}
0x8e00…8e0c Head {h00=0x0008, h01=0x0050, text=» END«, t00=0x005a, t01=0x0184}
0x8e0c…8e10 (91, 2, 8) Head {h00=0x4004, h01=0x0000}
0x8e10…8e14 00 5b 00 04 ┆ [ ┆
0x8e14…8e1c (92, 1, 8) 20 04 00 00 00 5c 00 04 ┆ ┆