|
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: 39950 (0x9c0e)
Notes: pts_type(SC)
Names: »VDUPRT.SC«
└─⟦f445cacdf⟧ Bits:30009666 Philips computer tape "600111"
└─⟦this⟧ »NJ-AMT/VDUPRT.SC«
IDENT VDUPRT 2.1DK 4 79-10-20 870150540210 =DK4 - RFMDUP =DK3, EUA =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 0 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 LDK A5,1 INDICATE WCC,IC,RA 830105 NJ 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 * LDKL A1,/0F00 (LDK A1,0) DK3 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 DK3 * ANK A2,/FE DK3 * SC A2,1919,A4 RESET MDT BIT DK3 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 * CWK A1,/0F00 EUA COMMAND? DK3 RF(L) ERAS34 NO, EUA ORDER DK3 CWK A3,0 FINISHED EUA COMMAND? DK3 RF(NZ) ERAS35 NO, CONTINUE DK3 LDK A1,0 YES FINISHED DK3 RB ERAEND DK3 ERAS34 EQU * DK3 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 CWK A1,/0F00 EUA COMMAND? DK3 RB(L) ERAS30 NO DK3 * EUA COMMAND: RESET MDT BIT DK3 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 EQU * CWK A1,/0F00 EUA COMMAND? DK3 RF(L) ERAS67 NO, EUA ORDER DK3 CWK A3,0 FINISHED EUA COMMAND? DK3 RF(NZ) ERAS70 NO,CONTINUE DK3 LDK A1,0 YYES, FINSHED DK3 RB ERAEND DK3 ERAS67 EQU * DK3 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 * CF A14,RFMDUP DK4 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 4 79-10-20 870150540210 «, t00=0x0000, t01=0x0004}
0x0036…003e Head {h00=0x0004, h01=0x0050, t00=0x0000, t01=0x003a}
0x003e…0056 Head {h00=0x0014, h01=0x0050, text=» =DK4 - RFMDUP«, t00=0x0000, t01=0x0042}
0x0056…006a Head {h00=0x0010, h01=0x0050, text=» =DK3, EUA«, t00=0x0000, t01=0x005a}
0x006a…008a Head {h00=0x001c, h01=0x0050, text=» =1,ODD BUFFER ADDRESS«, t00=0x0000, t01=0x006e}
0x008a…00a6 Head {h00=0x0018, h01=0x0050, text=» REL 2.1 79-05-23 «, t00=0x0000, t01=0x008e}
0x00a6…00c2 Head {h00=0x0018, h01=0x0050, text=» =2,KEYBOARD LAMPS«, t00=0x0000, t01=0x00aa}
0x00c2…00de Head {h00=0x0018, h01=0x0050, text=» REL 2.1 79-05-23 «, t00=0x0000, t01=0x00c6}
0x00de…0104 Head {h00=0x0022, h01=0x0050, text=» =3, TRANSMIT BUFFER LENGTH «, t00=0x0000, t01=0x00e2}
0x0104…0120 Head {h00=0x0018, h01=0x0050, text=» REL 2.1 79-05-23 «, t00=0x0000, t01=0x0108}
0x0120…016a Head {h00=0x0046, h01=0x0050, text=»******************************************************************«, t00=0x0000, t01=0x0124}
0x016a…0174 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x016e}
0x0174…01b4 Head {h00=0x003c, h01=0x0050, text=»* V D U P R T : MODULE HANDLING MESSAGES COMING FROM«, t00=0x0000, t01=0x0178}
0x01b4…01f2 Head {h00=0x003a, h01=0x0050, text=»* MAIN FRAME, AND DISPLAYING THEM ON«, t00=0x0001, t01=0x0028}
0x01f2…0224 Head {h00=0x002e, h01=0x0050, text=»* THE VDU ( PTS 6344 ) .«, t00=0x0001, t01=0x0066}
0x0224…022e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x0098}
0x022e…027a Head {h00=0x0048, h01=0x0050, text=»********************************************************************«, t00=0x0001, t01=0x00a2}
0x027a…0284 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x00ee}
0x0284…028e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x00f8}
0x028e…029c Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0001, t01=0x0102}
0x029c…02a6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x0110}
0x02a6…02b0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x011a}
0x02b0…02c2 Head {h00=0x000e, h01=0x0050, text=»* ENTRIES «, t00=0x0001, t01=0x0124}
0x02c2…02cc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x0136}
0x02cc…02d6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x0140}
0x02d6…0304 Head {h00=0x002a, h01=0x0050, text=» ENTRY TRPF TRANSMIT, PROGRAM FUNCTION«, t00=0x0001, t01=0x014a}
0x0304…0334 Head {h00=0x002c, h01=0x0050, text=» ENTRY TRPA TRANSMIT, PROGRAM ATTENTION «, t00=0x0001, t01=0x0178}
0x0334…035c Head {h00=0x0024, h01=0x0050, text=» ENTRY ERASE ERASE ENTIRE SCREEN«, t00=0x0002, t01=0x0018}
0x035c…0384 Head {h00=0x0024, h01=0x0050, text=» ENTRY SETCUR CURSOR POSITIONING«, t00=0x0002, t01=0x0040}
0x0384…03b0 Head {h00=0x0028, h01=0x0050, text=» ENTRY ERASUP ERASE ALL UNPROTECTED «, t00=0x0002, t01=0x0068}
0x03b0…03da Head {h00=0x0026, h01=0x0050, text=» ENTRY DISPL DISPLAY MODIFIED DATA«, t00=0x0002, t01=0x0094}
0x03da…040c Head {h00=0x002e, h01=0x0050, text=» ENTRY ERASUA ERASE UNPROTECTED TO ADDRESS«, t00=0x0002, t01=0x00be}
0x040c…043e Head {h00=0x002e, h01=0x0050, text=» ENTRY WCHAR WRITE ONE CHAR IN CURSOR POS «, t00=0x0002, t01=0x00f0}
0x043e…0454 Head {h00=0x0012, h01=0x0050, text=» ENTRY UPDATE «, t00=0x0002, t01=0x0122}
0x0454…047a Head {h00=0x0022, h01=0x0050, text=» ENTRY RFMDUP REPLACE FM & DUP«, t00=0x0002, t01=0x0138}
0x047a…048e Head {h00=0x0010, h01=0x0050, text=» ENTRY DCINP«, t00=0x0002, t01=0x015e}
0x048e…04a4 Head {h00=0x0012, h01=0x0050, text=» ENTRY RLRBUF «, t00=0x0002, t01=0x0172}
0x04a4…04ba Head {h00=0x0012, h01=0x0050, text=» ENTRY DCGETM «, t00=0x0002, t01=0x0188}
0x04ba…04d0 Head {h00=0x0012, h01=0x0050, text=» ENTRY GTRBUF «, t00=0x0003, t01=0x000e}
0x04d0…04da Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x0024}
0x04da…04e4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x002e}
0x04e4…04f8 Head {h00=0x0010, h01=0x0050, text=»* EXTERNALS «, t00=0x0003, t01=0x0038}
0x04f8…0502 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x004c}
0x0502…050c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x0056}
0x050c…052e Head {h00=0x001e, h01=0x0050, text=» EXTRN LINHON,LINHOF START«, t00=0x0003, t01=0x0060}
0x052e…0550 Head {h00=0x001e, h01=0x0050, text=» EXTRN LSAVON,LSAVOF START«, t00=0x0003, t01=0x0082}
0x0550…0566 Head {h00=0x0012, h01=0x0050, text=» EXTRN ATMASB «, t00=0x0003, t01=0x00a4}
0x0566…057a Head {h00=0x0010, h01=0x0050, text=» EXTRN EMULA«, t00=0x0003, t01=0x00ba}
0x057a…0590 Head {h00=0x0012, h01=0x0050, text=» EXTRN REQTIM «, t00=0x0003, t01=0x00ce}
0x0590…05a6 Head {h00=0x0012, h01=0x0050, text=» EXTRN ICWRTE «, t00=0x0003, t01=0x00e4}
0x05a6…05b0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x00fa}
0x05b0…05ca Head {h00=0x0016, h01=0x0050, text=» EXTRN SNBUSY PRT «, t00=0x0003, t01=0x0104}
0x05ca…05d4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x011e}
0x05d4…0602 Head {h00=0x002a, h01=0x0050, text=» EXTRN I:EVA0 CREDIT EVALUATION TABLE «, t00=0x0003, t01=0x0128}
0x0602…060c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x0156}
0x060c…0630 Head {h00=0x0020, h01=0x0050, text=» EXTRN TASCII,TEBCDI TB3270 «, t00=0x0003, t01=0x0160}
0x0630…063e Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0003, t01=0x0184}
0x063e…0648 (4, 0, 400) Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x0004}
0x0648…0690 Head {h00=0x0044, h01=0x0050, text=»****************************************************************«, t00=0x0004, t01=0x000e}
0x0690…069a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x0056}
0x069a…06c6 Head {h00=0x0028, h01=0x0050, text=»* CONDITIONAL ASSEMBLY PARAMETERS «, t00=0x0004, t01=0x0060}
0x06c6…06d0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x008c}
0x06d0…0706 Head {h00=0x0032, h01=0x0050, text=»**********************************************«, t00=0x0004, t01=0x0096}
0x0706…070e Head {h00=0x0004, h01=0x0050, t00=0x0004, t01=0x00cc}
0x070e…0744 Head {h00=0x0032, h01=0x0050, text=»OFLIN EQU 1 OFFLINE HANDLING POSSIBLE IF ::= 1«, t00=0x0004, t01=0x00d4}
0x0744…0774 Head {h00=0x002c, h01=0x0050, text=»DCLIN EQU 1 NUMBER OF MAIN FRAMES (1-2) «, t00=0x0004, t01=0x010a}
0x0774…07aa Head {h00=0x0032, h01=0x0050, text=»RBUFL EQU 1150 RECEIVE BUFFER LENGTH IN WORDS «, t00=0x0004, t01=0x013a}
0x07aa…07de Head {h00=0x0030, h01=0x0050, text=»RBUFNR EQU 2 NUMBER OF RECEIVE BUFFERS (1-5)«, t00=0x0004, t01=0x0170}
0x07de…0814 Head {h00=0x0032, h01=0x0050, text=»TBUFL EQU 1150 TRANSMIT BUFFER LENGTH IN WORDS«, t00=0x0005, t01=0x0014}
0x0814…084a Head {h00=0x0032, h01=0x0050, text=»TBUFNR EQU 2 NUMBER OF TRANSMIT BUFFERS (1-5) «, t00=0x0005, t01=0x004a}
0x084a…0886 Head {h00=0x0038, h01=0x0050, text=»COPCMD EQU 1 COPY COMMAND (ONLY TO PRINTER) IF := 1 «, t00=0x0005, t01=0x0080}
0x0886…08b0 Head {h00=0x0026, h01=0x0050, text=»EBCDIC EQU 0 ASCII = 0,EBCDIC = 1 «, t00=0x0005, t01=0x00bc}
0x08b0…08ba Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x00e6}
0x08ba…08cc Head {h00=0x000e, h01=0x0050, text=»* EQUATES «, t00=0x0005, t01=0x00f0}
0x08cc…08d6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x0102}
0x08d6…08e0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x010c}
0x08e0…0912 Head {h00=0x002e, h01=0x0050, text=»TIMDC EQU 600 DC TIME OUT VALUE: 60 S DK2 «, t00=0x0005, t01=0x0116}
0x0912…0926 Head {h00=0x0010, h01=0x0050, text=»ESC EQU /1B «, t00=0x0005, t01=0x0148}
0x0926…093a Head {h00=0x0010, h01=0x0050, text=»SBA EQU /11 «, t00=0x0005, t01=0x015c}
0x093a…095e Head {h00=0x0020, h01=0x0050, text=»NULL EQU /7F NULL CHARACTER «, t00=0x0005, t01=0x0170}
0x095e…0988 (6, 0, 400) Head {h00=0x0026, h01=0x0050, text=»NEWLIN EQU /7E NEW LINE CHARACTER «, t00=0x0006, t01=0x0004}
0x0988…09b0 Head {h00=0x0024, h01=0x0050, text=»ENDMES EQU /7D END MESSAGE CHAR «, t00=0x0006, t01=0x002e}
0x09b0…09d6 Head {h00=0x0022, h01=0x0050, text=»FORMFD EQU /7C FORM FEED CHAR «, t00=0x0006, t01=0x0056}
0x09d6…09ec Head {h00=0x0012, h01=0x0050, text=»DUPCH EQU /7B «, t00=0x0006, t01=0x007c}
0x09ec…0a00 Head {h00=0x0010, h01=0x0050, text=»FMCH EQU /60«, t00=0x0006, t01=0x0092}
0x0a00…0a0e Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0006, t01=0x00a6}
0x0a0e…0a18 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x00b4}
0x0a18…0a22 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x00be}
0x0a22…0a38 Head {h00=0x0012, h01=0x0050, text=»* EQUATES «, t00=0x0006, t01=0x00c8}
0x0a38…0a42 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x00de}
0x0a42…0a68 Head {h00=0x0022, h01=0x0050, text=»* COMMON EQU FOR ECB HANDLING «, t00=0x0006, t01=0x00e8}
0x0a68…0a72 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x010e}
0x0a72…0a7a Head {h00=0x0004, h01=0x0050, t00=0x0006, t01=0x0118}
0x0a7a…0a8e Head {h00=0x0010, h01=0x0050, text=»ECBBA EQU 2 «, t00=0x0006, t01=0x0120}
0x0a8e…0aa2 Head {h00=0x0010, h01=0x0050, text=»ECBRL EQU 4 «, t00=0x0006, t01=0x0134}
0x0aa2…0ab6 Head {h00=0x0010, h01=0x0050, text=»ECBEL EQU 6 «, t00=0x0006, t01=0x0148}
0x0ab6…0aca Head {h00=0x0010, h01=0x0050, text=»ECBRC EQU 8 «, t00=0x0006, t01=0x015c}
0x0aca…0ade Head {h00=0x0010, h01=0x0050, text=»ECBCW EQU 10«, t00=0x0006, t01=0x0170}
0x0ade…0ae8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x0184}
0x0ae8…0af2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x018e}
0x0af2…0b0c Head {h00=0x0016, h01=0x0050, text=»* CREDIT USED EQU «, t00=0x0007, t01=0x0008}
0x0b0c…0b16 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x0022}
0x0b16…0b20 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x002c}
0x0b20…0b3c Head {h00=0x0018, h01=0x0050, text=»* ECB REL. ADDRESSES«, t00=0x0007, t01=0x0036}
0x0b3c…0b46 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x0052}
0x0b46…0b50 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x005c}
0x0b50…0b62 Head {h00=0x000e, h01=0x0050, text=»DIS EQU 20«, t00=0x0007, t01=0x0066}
0x0b62…0b6c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x0078}
0x0b6c…0b86 Head {h00=0x0016, h01=0x0050, text=»ECBDC EQU -DIS-14 «, t00=0x0007, t01=0x0082}
0x0b86…0b9a Head {h00=0x0010, h01=0x0050, text=» IFT DCLIN=2«, t00=0x0007, t01=0x009c}
0x0b9a…0bb0 Head {h00=0x0012, h01=0x0050, text=» IFT COPCMD=1 «, t00=0x0007, t01=0x00b0}
0x0bb0…0bcc Head {h00=0x0018, h01=0x0050, text=»ECBDC2 EQU ECBDC-DIS«, t00=0x0007, t01=0x00c6}
0x0bcc…0bea Head {h00=0x001a, h01=0x0050, text=»ECBICR EQU ECBDC2-DIS «, t00=0x0007, t01=0x00e2}
0x0bea…0c08 Head {h00=0x001a, h01=0x0050, text=»ECBICW EQU ECBICR-DIS «, t00=0x0007, t01=0x0100}
0x0c08…0c14 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0007, t01=0x011e}
0x0c14…0c28 Head {h00=0x0010, h01=0x0050, text=» IFT DCLIN=2«, t00=0x0007, t01=0x012a}
0x0c28…0c3e Head {h00=0x0012, h01=0x0050, text=» IFF COPCMD=1 «, t00=0x0007, t01=0x013e}
0x0c3e…0c5a Head {h00=0x0018, h01=0x0050, text=»ECBDC2 EQU ECBDC-DIS«, t00=0x0007, t01=0x0154}
0x0c5a…0c78 Head {h00=0x001a, h01=0x0050, text=»ECBICW EQU ECBDC2-DIS «, t00=0x0007, t01=0x0170}
0x0c78…0c84 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0007, t01=0x018e}
0x0c84…0c98 Head {h00=0x0010, h01=0x0050, text=» IFF DCLIN=2«, t00=0x0008, t01=0x000a}
0x0c98…0cae Head {h00=0x0012, h01=0x0050, text=» IFT COPCMD=1 «, t00=0x0008, t01=0x001e}
0x0cae…0cca Head {h00=0x0018, h01=0x0050, text=»ECBICR EQU ECBDC-DIS«, t00=0x0008, t01=0x0034}
0x0cca…0ce8 Head {h00=0x001a, h01=0x0050, text=»ECBICW EQU ECBICR-DIS «, t00=0x0008, t01=0x0050}
0x0ce8…0cf4 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0008, t01=0x006e}
0x0cf4…0d08 Head {h00=0x0010, h01=0x0050, text=» IFF DCLIN=2«, t00=0x0008, t01=0x007a}
0x0d08…0d1e Head {h00=0x0012, h01=0x0050, text=» IFF COPCMD=1 «, t00=0x0008, t01=0x008e}
0x0d1e…0d3a Head {h00=0x0018, h01=0x0050, text=»ECBICW EQU ECBDC-DIS«, t00=0x0008, t01=0x00a4}
0x0d3a…0d46 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0008, t01=0x00c0}
0x0d46…0d64 Head {h00=0x001a, h01=0x0050, text=»ECBVDU EQU ECBICW-DIS «, t00=0x0008, t01=0x00cc}
0x0d64…0d80 Head {h00=0x0018, h01=0x0050, text=»ECBKB EQU ECBVDU-DIS«, t00=0x0008, t01=0x00ea}
0x0d80…0d9c Head {h00=0x0018, h01=0x0050, text=»ECBSD EQU ECBKB-DIS «, t00=0x0008, t01=0x0106}
0x0d9c…0daa Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0008, t01=0x0122}
0x0daa…0db4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x0130}
0x0db4…0dbe Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x013a}
0x0dbe…0de4 Head {h00=0x0022, h01=0x0050, text=»* BASE ADDRESS FOR TCA AND ECB«, t00=0x0008, t01=0x0144}
0x0de4…0dee Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x016a}
0x0dee…0e04 Head {h00=0x0012, h01=0x0050, text=»TCABAS EQU A11«, t00=0x0008, t01=0x0174}
0x0e04…0e1e Head {h00=0x0016, h01=0x0050, text=»CREBAS EQU A13 ECB«, t00=0x0008, t01=0x018a}
0x0e1e…0e28 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x0014}
0x0e28…0e32 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x001e}
0x0e32…0e4e Head {h00=0x0018, h01=0x0050, text=»* TCA REL. ADDRESSES«, t00=0x0009, t01=0x0028}
0x0e4e…0e58 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x0044}
0x0e58…0e6c Head {h00=0x0010, h01=0x0050, text=»TCT01 EQU 0 «, t00=0x0009, t01=0x004e}
0x0e6c…0e88 Head {h00=0x0018, h01=0x0050, text=»PRINTER EQU TCT01+2 «, t00=0x0009, t01=0x0062}
0x0e88…0eb4 Head {h00=0x0028, h01=0x0050, text=»BVDU EQU PRINTER+2 VDU SCREEN BUFFER«, t00=0x0009, t01=0x007e}
0x0eb4…0ee8 Head {h00=0x0030, h01=0x0050, text=»PCURS EQU BVDU+1920 CURSOR ADDRESS , BINARY «, t00=0x0009, t01=0x00aa}
0x0ee8…0f16 Head {h00=0x002a, h01=0x0050, text=»ATTRIB EQU PCURS+2 LAST ATTRIBUTE CHAR«, t00=0x0009, t01=0x00de}
0x0f16…0f32 Head {h00=0x0018, h01=0x0050, text=»CURATT EQU ATTRIB+2 «, t00=0x0009, t01=0x010c}
0x0f32…0f5c Head {h00=0x0026, h01=0x0050, text=»WCC EQU CURATT+2 WCC/CCC CHARACTER«, t00=0x0009, t01=0x0128}
0x0f5c…0f8e Head {h00=0x002e, h01=0x0050, text=»KBINH EQU WCC+2 KEYBOARD INHIBIT INDICATOR«, t00=0x0009, t01=0x0152}
0x0f8e…0fb6 Head {h00=0x0024, h01=0x0050, text=»LINCNT EQU KBINH+2 LINE COUNTER «, t00=0x0009, t01=0x0184}
0x0fb6…0fea Head {h00=0x0030, h01=0x0050, text=»DCLENG EQU LINCNT+2 DC READ EFFECTIVE LENGTH«, t00=0x000a, t01=0x001c}
0x0fea…1020 Head {h00=0x0032, h01=0x0050, text=»ICWORK EQU DCLENG+2 WORK FIELD INTERTASK COMM «, t00=0x000a, t01=0x0050}
0x1020…1050 Head {h00=0x002c, h01=0x0050, text=»INTATT EQU ICWORK+2 INTENSITY ATTRIBUTE «, t00=0x000a, t01=0x0086}
0x1050…1078 Head {h00=0x0024, h01=0x0050, text=»OFFFLG EQU INTATT+2 OFFLINE FLAG«, t00=0x000a, t01=0x00b6}
0x1078…10a4 Head {h00=0x0028, h01=0x0050, text=»COPNO EQU OFFFLG+2 HARDCOPY TASK ID «, t00=0x000a, t01=0x00de}
0x10a4…10d2 Head {h00=0x002a, h01=0x0050, text=»CCC EQU COPNO+2 COPY COMMAND CHARACTER«, t00=0x000a, t01=0x010a}
0x10d2…10f4 Head {h00=0x001e, h01=0x0050, text=»MAIN EQU CCC+2 MAIN FRAME «, t00=0x000a, t01=0x0138}
0x10f4…111e Head {h00=0x0026, h01=0x0050, text=»MODE EQU MAIN+2 INSERT MODE SWITCH«, t00=0x000a, t01=0x015a}
0x111e…1146 Head {h00=0x0024, h01=0x0050, text=»KEYS EQU MODE+2 KEY LOCK STATUS «, t00=0x000a, t01=0x0184}
0x1146…1178 Head {h00=0x002e, h01=0x0050, text=»ECBDCC EQU KEYS+2 ECB ADDRESS LAST READ DC«, t00=0x000b, t01=0x001c}
0x1178…11ae Head {h00=0x0032, h01=0x0050, text=»ECBBLK EQU ECBDCC+2 ECBS FOR MULTIPLE WAIT &C «, t00=0x000b, t01=0x004e}
0x11ae…11e6 Head {h00=0x0034, h01=0x0050, text=»RDMORE EQU ECBBLK+10 BRANCH ADDRESS NEXT READ KB«, t00=0x000b, t01=0x0084}
0x11e6…11f4 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000b, t01=0x00bc}
0x11f4…11fc Head {h00=0x0004, h01=0x0050, t00=0x000b, t01=0x00ca}
0x11fc…1206 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x00d2}
0x1206…1210 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x00dc}
0x1210…123e Head {h00=0x002a, h01=0x0050, text=»LBVDU EQU 1920 1920 CHARACTER DISPLAY «, t00=0x000b, t01=0x00e6}
0x123e…1264 Head {h00=0x0022, h01=0x0050, text=»LPAGE EQU 48 LINES ON ONE PAGE«, t00=0x000b, t01=0x0114}
0x1264…1292 Head {h00=0x002a, h01=0x0050, text=»LLINE EQU 80 80 CHAR PER DISPLAY LINE «, t00=0x000b, t01=0x013a}
0x1292…12c4 Head {h00=0x002e, h01=0x0050, text=»TID EQU -4 TASK IDENTITY T:A DISPLACEMENT «, t00=0x000b, t01=0x0168}
0x12c4…12ce Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x000a}
0x12ce…12f8 Head {h00=0x0026, h01=0x0050, text=»* CONFIG DATA 'CB1' REL ADDRESSES «, t00=0x000c, t01=0x0014}
0x12f8…1302 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x003e}
0x1302…1328 Head {h00=0x0022, h01=0x0050, text=»NBRKBV EQU 0 NUMBER OF KB/VDUS«, t00=0x000c, t01=0x0048}
0x1328…1352 Head {h00=0x0026, h01=0x0050, text=»NBRGTP EQU NBRKBV+2 NUMBER OF GTPS«, t00=0x000c, t01=0x006e}
0x1352…135c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x0098}
0x135c…1392 Head {h00=0x0032, h01=0x0050, text=»MF1KBV EQU NBRGTP+2 DV ADDRESSES KB/VDU MF #1 «, t00=0x000c, t01=0x00a2}
0x1392…13c8 Head {h00=0x0032, h01=0x0050, text=»MF1GTP EQU MF1KBV+16 DV ADDRESSES GTPS MF # 1 «, t00=0x000c, t01=0x00d8}
0x13c8…13dc Head {h00=0x0010, h01=0x0050, text=» IFT DCLIN=2«, t00=0x000c, t01=0x010e}
0x13dc…13f8 Head {h00=0x0018, h01=0x0050, text=»MF2KBV EQU MF1GTP+16«, t00=0x000c, t01=0x0122}
0x13f8…1414 Head {h00=0x0018, h01=0x0050, text=»MF2GTP EQU MF2KBV+16«, t00=0x000c, t01=0x013e}
0x1414…1420 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x000c, t01=0x015a}
0x1420…142a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x0166}
0x142a…1432 Head {h00=0x0004, h01=0x0050, t00=0x000c, t01=0x0170}
0x1432…1440 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000c, t01=0x0178}
0x1440…1488 Head {h00=0x0044, h01=0x0050, text=»****************************************************************«, t00=0x000c, t01=0x0186}
0x1488…1492 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x003e}
0x1492…14aa Head {h00=0x0014, h01=0x0050, text=»* INPUT FROM DC «, t00=0x000d, t01=0x0048}
0x14aa…14b4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x0060}
0x14b4…14f0 Head {h00=0x0038, h01=0x0050, text=»****************************************************«, t00=0x000d, t01=0x006a}
0x14f0…14fa Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x00a6}
0x14fa…151a Head {h00=0x001c, h01=0x0050, text=»* RELATIVE POS IN ECBBLK«, t00=0x000d, t01=0x00b0}
0x151a…152a Head {h00=0x000c, h01=0x0050, text=»KB EQU 2«, t00=0x000d, t01=0x00d0}
0x152a…153c Head {h00=0x000e, h01=0x0050, text=»DC1 EQU 4 «, t00=0x000d, t01=0x00e0}
0x153c…154e Head {h00=0x000e, h01=0x0050, text=»DC2 EQU 6 «, t00=0x000d, t01=0x00f2}
0x154e…1558 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x0104}
0x1558…156c Head {h00=0x0010, h01=0x0050, text=»DCINP EQU * «, t00=0x000d, t01=0x010e}
0x156c…1596 Head {h00=0x0026, h01=0x0050, text=» CF A14,GTRBUF GET RECEIVE BUFFER «, t00=0x000d, t01=0x0122}
0x1596…15b2 Head {h00=0x0018, h01=0x0050, text=» LD A8,ECBDCC,TCABAS«, t00=0x000d, t01=0x014c}
0x15b2…15d6 Head {h00=0x0020, h01=0x0050, text=» CF A14,DCGETM READ MESSAGE «, t00=0x000d, t01=0x0168}
0x15d6…15ea Head {h00=0x0010, h01=0x0050, text=» IFF DCLIN=2«, t00=0x000d, t01=0x018c}
0x15ea…1608 Head {h00=0x001a, h01=0x0050, text=» CM ECBBLK+DC1,TCABAS «, t00=0x000e, t01=0x0010}
0x1608…1614 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x000e, t01=0x002e}
0x1614…1628 Head {h00=0x0010, h01=0x0050, text=» IFT DCLIN=2«, t00=0x000e, t01=0x003a}
0x1628…1642 Head {h00=0x0016, h01=0x0050, text=» LD A1,MAIN,TCABAS«, t00=0x000e, t01=0x004e}
0x1642…1662 Head {h00=0x001c, h01=0x0050, text=» CW A8,ECBBLK+DC2,TCABAS«, t00=0x000e, t01=0x0068}
0x1662…167e Head {h00=0x0018, h01=0x0050, text=» RF(E) DCIN20 MF # 2«, t00=0x000e, t01=0x0088}
0x167e…169c Head {h00=0x001a, h01=0x0050, text=» CM ECBBLK+DC1,TCABAS «, t00=0x000e, t01=0x00a4}
0x169c…16ae Head {h00=0x000e, h01=0x0050, text=» LDR A1,A1«, t00=0x000e, t01=0x00c2}
0x16ae…16ce Head {h00=0x001c, h01=0x0050, text=» RF(NZ) DCIN90 WRONG MF «, t00=0x000e, t01=0x00d4}
0x16ce…16e0 Head {h00=0x000e, h01=0x0050, text=» RF DCIN30«, t00=0x000e, t01=0x00f4}
0x16e0…16f4 Head {h00=0x0010, h01=0x0050, text=»DCIN20 EQU *«, t00=0x000e, t01=0x0106}
0x16f4…1712 Head {h00=0x001a, h01=0x0050, text=» CM ECBBLK+DC2,TCABAS «, t00=0x000e, t01=0x011a}
0x1712…1724 Head {h00=0x000e, h01=0x0050, text=» LDR A1,A1«, t00=0x000e, t01=0x0138}
0x1724…1742 Head {h00=0x001a, h01=0x0050, text=» RF(Z) DCIN90 WRONG MF«, t00=0x000e, t01=0x014a}
0x1742…174e Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x000e, t01=0x0168}
0x174e…1762 Head {h00=0x0010, h01=0x0050, text=»DCIN30 EQU *«, t00=0x000e, t01=0x0174}
0x1762…1776 Head {h00=0x0010, h01=0x0050, text=» IFT OFLIN=1«, t00=0x000e, t01=0x0188}
0x1776…1792 Head {h00=0x0018, h01=0x0050, text=» LD A1,OFFFLG,TCABAS«, t00=0x000f, t01=0x000c}
0x1792…17a8 Head {h00=0x0012, h01=0x0050, text=» RF(NZ) DCIN90«, t00=0x000f, t01=0x0028}
0x17a8…17b4 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x000f, t01=0x003e}
0x17b4…17e0 Head {h00=0x0028, h01=0x0050, text=» LD A1,ECBEL,A8 EFFECTIVE DC-LENGTH «, t00=0x000f, t01=0x004a}
0x17e0…17fc Head {h00=0x0018, h01=0x0050, text=» ST A1,DCLENG,TCABAS«, t00=0x000f, t01=0x0076}
0x17fc…1804 Head {h00=0x0004, h01=0x0050, t00=0x000f, t01=0x0092}
0x1804…180c Head {h00=0x0004, h01=0x0050, t00=0x000f, t01=0x009a}
0x180c…1828 Head {h00=0x0018, h01=0x0050, text=» LD A5,KBINH,TCABAS «, t00=0x000f, t01=0x00a2}
0x1828…185a Head {h00=0x002e, h01=0x0050, text=» ORK A5,3 BIT 14,15:= 1. TOTALLY DISABLED «, t00=0x000f, t01=0x00be}
0x185a…188c Head {h00=0x002e, h01=0x0050, text=»* KEYBOARD. BIT 15 = 0 AFTER DISPLAYING.«, t00=0x000f, t01=0x00f0}
0x188c…18a8 Head {h00=0x0018, h01=0x0050, text=» ST A5,KBINH,TCABAS «, t00=0x000f, t01=0x0122}
0x18a8…18da Head {h00=0x002e, h01=0x0050, text=» CF A14,LINHON TURN ON 'KEYBOARD INHIBIT' «, t00=0x000f, t01=0x013e}
0x18da…190c Head {h00=0x002e, h01=0x0050, text=» CF A14,LSAVON TURN ON "SYSTEM AVAILABLE" «, t00=0x000f, t01=0x0170}
0x190c…1922 Head {h00=0x0012, h01=0x0050, text=» CF A14,UPDATE«, t00=0x0010, t01=0x0012}
0x1922…1938 Head {h00=0x0012, h01=0x0050, text=» CF A14,DISPL «, t00=0x0010, t01=0x0028}
0x1938…1954 Head {h00=0x0018, h01=0x0050, text=» LD A2,PCURS,TCABAS «, t00=0x0010, t01=0x003e}
0x1954…196a Head {h00=0x0012, h01=0x0050, text=» CF A14,ATMASB«, t00=0x0010, t01=0x005a}
0x196a…1972 Head {h00=0x0004, h01=0x0050, t00=0x0010, t01=0x0070}
0x1972…197a Head {h00=0x0004, h01=0x0050, t00=0x0010, t01=0x0078}
0x197a…1984 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x0080}
0x1984…19a0 Head {h00=0x0018, h01=0x0050, text=» LD A2,KBINH,TCABAS «, t00=0x0010, t01=0x008a}
0x19a0…19be Head {h00=0x001a, h01=0x0050, text=» ANK A2,1 BIT 15 = 0? «, t00=0x0010, t01=0x00a6}
0x19be…19d4 Head {h00=0x0012, h01=0x0050, text=» RF(Z) DCIN60 «, t00=0x0010, t01=0x00c4}
0x19d4…19f0 Head {h00=0x0018, h01=0x0050, text=» LD A2,KBINH,TCABAS «, t00=0x0010, t01=0x00da}
0x19f0…1a22 Head {h00=0x002e, h01=0x0050, text=» ANK A2,/E BIT 15:=0 KEYBOARD NOT TOTALLY «, t00=0x0010, t01=0x00f6}
0x1a22…1a42 Head {h00=0x001c, h01=0x0050, text=»* INHIBITED ANY LONGER«, t00=0x0010, t01=0x0128}
0x1a42…1a5e Head {h00=0x0018, h01=0x0050, text=» ST A2,KBINH,TCABAS «, t00=0x0010, t01=0x0148}
0x1a5e…1a78 Head {h00=0x0016, h01=0x0050, text=» LD A2,WCC,TCABAS «, t00=0x0010, t01=0x0164}
0x1a78…1a8a Head {h00=0x000e, h01=0x0050, text=» ANK A2,2 «, t00=0x0010, t01=0x017e}
0x1a8a…1aa0 Head {h00=0x0012, h01=0x0050, text=» RF(Z) DCIN95 «, t00=0x0010, t01=0x0190}
0x1aa0…1ab4 Head {h00=0x0010, h01=0x0050, text=»DCIN60 EQU *«, t00=0x0011, t01=0x0016}
0x1ab4…1ae6 Head {h00=0x002e, h01=0x0050, text=» CF A14,LINHOF TURN OFF 'KEYBOARD INHIBIT'«, t00=0x0011, t01=0x002a}
0x1ae6…1b02 Head {h00=0x0018, h01=0x0050, text=» LD A2,KBINH,TCABAS «, t00=0x0011, t01=0x005c}
0x1b02…1b32 Head {h00=0x002c, h01=0x0050, text=» ANK A2,4 BITS 14,15:=0 RESTORE KEYBOARD«, t00=0x0011, t01=0x0078}
0x1b32…1b4e Head {h00=0x0018, h01=0x0050, text=» ST A2,KBINH,TCABAS «, t00=0x0011, t01=0x00a8}
0x1b4e…1b60 Head {h00=0x000e, h01=0x0050, text=» RF DCIN95«, t00=0x0011, t01=0x00c4}
0x1b60…1b74 Head {h00=0x0010, h01=0x0050, text=»DCIN90 EQU *«, t00=0x0011, t01=0x00d6}
0x1b74…1b90 Head {h00=0x0018, h01=0x0050, text=» LD A8,ECBDCC,TCABAS«, t00=0x0011, t01=0x00ea}
0x1b90…1ba8 Head {h00=0x0014, h01=0x0050, text=» LD A4,ECBBA,A8 «, t00=0x0011, t01=0x0106}
0x1ba8…1bbe Head {h00=0x0012, h01=0x0050, text=» CF A14,RLRBUF«, t00=0x0011, t01=0x011e}
0x1bbe…1bd2 Head {h00=0x0010, h01=0x0050, text=»DCIN95 EQU *«, t00=0x0011, t01=0x0134}
0x1bd2…1be8 Head {h00=0x0012, h01=0x0050, text=» CF A14,SNBUSY«, t00=0x0011, t01=0x0148}
0x1be8…1bf8 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0011, t01=0x015e}
0x1bf8…1c06 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0011, t01=0x016e}
0x1c06…1c10 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x017c}
0x1c10…1c22 Head {h00=0x000e, h01=0x0050, text=»* READ DC «, t00=0x0011, t01=0x0186}
0x1c22…1c2c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x0008}
0x1c2c…1c40 Head {h00=0x0010, h01=0x0050, text=»DCGETM EQU *«, t00=0x0012, t01=0x0012}
0x1c40…1c52 Head {h00=0x000e, h01=0x0050, text=» LDK A1,0 «, t00=0x0012, t01=0x0026}
0x1c52…1c68 Head {h00=0x0012, h01=0x0050, text=» CF A14,REQTIM«, t00=0x0012, t01=0x0038}
0x1c68…1c86 Head {h00=0x001a, h01=0x0050, text=» LDK A7,/82 READ, WAIT«, t00=0x0012, t01=0x004e}
0x1c86…1cb2 Head {h00=0x0028, h01=0x0050, text=» CM ECBCW,A8 NO TIME OUT SUPERVISION«, t00=0x0012, t01=0x006c}
0x1cb2…1cce Head {h00=0x0018, h01=0x0050, text=» LDKL A1,RBUFL+RBUFL«, t00=0x0012, t01=0x0098}
0x1cce…1cf0 Head {h00=0x001e, h01=0x0050, text=» ST A1,ECBRL,A8 REQ LENGTH«, t00=0x0012, t01=0x00b4}
0x1cf0…1d08 Head {h00=0x0014, h01=0x0050, text=» ST A4,ECBBA,A8 «, t00=0x0012, t01=0x00d6}
0x1d08…1d14 Head {h00=0x0008, h01=0x0050, text=» LKM«, t00=0x0012, t01=0x00ee}
0x1d14…1d24 Head {h00=0x000c, h01=0x0050, text=» DATA 1 «, t00=0x0012, t01=0x00fa}
0x1d24…1d34 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0012, t01=0x010a}
0x1d34…1d42 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0012, t01=0x011a}
0x1d42…1d84 Head {h00=0x003e, h01=0x0050, text=»**********************************************************«, t00=0x0012, t01=0x0128}
0x1d84…1d8e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x016a}
0x1d8e…1da8 Head {h00=0x0016, h01=0x0050, text=»* BUFFER HANDLING «, t00=0x0012, t01=0x0174}
0x1da8…1db2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x018e}
0x1db2…1df4 Head {h00=0x003e, h01=0x0050, text=»**********************************************************«, t00=0x0013, t01=0x0008}
0x1df4…1dfe Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x004a}
0x1dfe…1e1e Head {h00=0x001c, h01=0x0050, text=»RLINK EQU RBUFL+RBUFL+2 «, t00=0x0013, t01=0x0054}
0x1e1e…1e28 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x0074}
0x1e28…1e3a Head {h00=0x000e, h01=0x0050, text=»RBUF EQU *«, t00=0x0013, t01=0x007e}
0x1e3a…1e5e Head {h00=0x0020, h01=0x0050, text=» DATA *+2 POINTER FIRST FREE«, t00=0x0013, t01=0x0090}
0x1e5e…1e74 Head {h00=0x0012, h01=0x0050, text=» IFF RBUFNR=1 «, t00=0x0013, t01=0x00b4}
0x1e74…1e8a Head {h00=0x0012, h01=0x0050, text=» DATA *+RLINK «, t00=0x0013, t01=0x00ca}
0x1e8a…1e9c Head {h00=0x000e, h01=0x0050, text=» RES RBUFL«, t00=0x0013, t01=0x00e0}
0x1e9c…1eb2 Head {h00=0x0012, h01=0x0050, text=» IFF RBUFNR=2 «, t00=0x0013, t01=0x00f2}
0x1eb2…1ec8 Head {h00=0x0012, h01=0x0050, text=» DATA *+RLINK «, t00=0x0013, t01=0x0108}
0x1ec8…1eda Head {h00=0x000e, h01=0x0050, text=» RES RBUFL«, t00=0x0013, t01=0x011e}
0x1eda…1ef0 Head {h00=0x0012, h01=0x0050, text=» IFF RBUFNR=3 «, t00=0x0013, t01=0x0130}
0x1ef0…1f06 Head {h00=0x0012, h01=0x0050, text=» DATA *+RLINK «, t00=0x0013, t01=0x0146}
0x1f06…1f18 Head {h00=0x000e, h01=0x0050, text=» RES RBUFL«, t00=0x0013, t01=0x015c}
0x1f18…1f2e Head {h00=0x0012, h01=0x0050, text=» IFF RBUFNR=4 «, t00=0x0013, t01=0x016e}
0x1f2e…1f44 Head {h00=0x0012, h01=0x0050, text=» DATA *+RLINK «, t00=0x0013, t01=0x0184}
0x1f44…1f56 Head {h00=0x000e, h01=0x0050, text=» RES RBUFL«, t00=0x0014, t01=0x000a}
0x1f56…1f62 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0014, t01=0x001c}
0x1f62…1f7e Head {h00=0x0018, h01=0x0050, text=» DATA 0 END OF CHAIN«, t00=0x0014, t01=0x0028}
0x1f7e…1f90 Head {h00=0x000e, h01=0x0050, text=» RES RBUFL«, t00=0x0014, t01=0x0044}
0x1f90…1f9a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x0056}
0x1f9a…1fa4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x0060}
0x1fa4…1fc4 Head {h00=0x001c, h01=0x0050, text=»TLINK EQU TBUFL+TBUFL+2 «, t00=0x0014, t01=0x006a}
0x1fc4…1fce Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x008a}
0x1fce…1fe0 Head {h00=0x000e, h01=0x0050, text=»TBUF EQU *«, t00=0x0014, t01=0x0094}
0x1fe0…2004 Head {h00=0x0020, h01=0x0050, text=» DATA *+2 POINTER FIRST FREE«, t00=0x0014, t01=0x00a6}
0x2004…201a Head {h00=0x0012, h01=0x0050, text=» IFF TBUFNR=1 «, t00=0x0014, t01=0x00ca}
0x201a…2030 Head {h00=0x0012, h01=0x0050, text=» DATA *+TLINK «, t00=0x0014, t01=0x00e0}
0x2030…2042 Head {h00=0x000e, h01=0x0050, text=» RES TBUFL«, t00=0x0014, t01=0x00f6}
0x2042…2058 Head {h00=0x0012, h01=0x0050, text=» IFF TBUFNR=2 «, t00=0x0014, t01=0x0108}
0x2058…206e Head {h00=0x0012, h01=0x0050, text=» DATA *+TLINK «, t00=0x0014, t01=0x011e}
0x206e…2080 Head {h00=0x000e, h01=0x0050, text=» RES TBUFL«, t00=0x0014, t01=0x0134}
0x2080…2096 Head {h00=0x0012, h01=0x0050, text=» IFF TBUFNR=3 «, t00=0x0014, t01=0x0146}
0x2096…20ac Head {h00=0x0012, h01=0x0050, text=» DATA *+TLINK «, t00=0x0014, t01=0x015c}
0x20ac…20be Head {h00=0x000e, h01=0x0050, text=» RES TBUFL«, t00=0x0014, t01=0x0172}
0x20be…20d4 Head {h00=0x0012, h01=0x0050, text=» IFF TBUFNR=4 «, t00=0x0014, t01=0x0184}
0x20d4…20ea Head {h00=0x0012, h01=0x0050, text=» DATA *+TLINK «, t00=0x0015, t01=0x000a}
0x20ea…20fc Head {h00=0x000e, h01=0x0050, text=» RES TBUFL«, t00=0x0015, t01=0x0020}
0x20fc…2108 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0015, t01=0x0032}
0x2108…2124 Head {h00=0x0018, h01=0x0050, text=» DATA 0 END OF CHAIN«, t00=0x0015, t01=0x003e}
0x2124…2136 Head {h00=0x000e, h01=0x0050, text=» RES TBUFL«, t00=0x0015, t01=0x005a}
0x2136…2140 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x006c}
0x2140…214a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x0076}
0x214a…2164 Head {h00=0x0016, h01=0x0050, text=»* GET WRITE BUFFER«, t00=0x0015, t01=0x0080}
0x2164…216e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x009a}
0x216e…2182 Head {h00=0x0010, h01=0x0050, text=»GTWBUF EQU *«, t00=0x0015, t01=0x00a4}
0x2182…2198 Head {h00=0x0012, h01=0x0050, text=» LDKL A5,TBUF «, t00=0x0015, t01=0x00b8}
0x2198…21ae Head {h00=0x0012, h01=0x0050, text=» CF A14,GETBUF«, t00=0x0015, t01=0x00ce}
0x21ae…21c0 Head {h00=0x000e, h01=0x0050, text=» LDR A7,A4«, t00=0x0015, t01=0x00e4}
0x21c0…21d4 Head {h00=0x0010, h01=0x0050, text=» LDR A12,A4 «, t00=0x0015, t01=0x00f6}
0x21d4…21ea Head {h00=0x0012, h01=0x0050, text=» ADK A7,2 SKIP«, t00=0x0015, t01=0x010a}
0x21ea…220e Head {h00=0x0020, h01=0x0050, text=» LDKL A9,2 FOR DV ADDRESS «, t00=0x0015, t01=0x0120}
0x220e…221e Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0015, t01=0x0144}
0x221e…2228 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x0154}
0x2228…2244 Head {h00=0x0018, h01=0x0050, text=»* GET RECEIVE BUFFER«, t00=0x0015, t01=0x015e}
0x2244…224e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x017a}
0x224e…2262 Head {h00=0x0010, h01=0x0050, text=»GTRBUF EQU *«, t00=0x0015, t01=0x0184}
0x2262…2278 Head {h00=0x0012, h01=0x0050, text=» LDKL A5,RBUF «, t00=0x0016, t01=0x0008}
0x2278…2282 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0016, t01=0x001e}
0x2282…228c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0016, t01=0x0028}
0x228c…22a0 Head {h00=0x0010, h01=0x0050, text=»GETBUF EQU *«, t00=0x0016, t01=0x0032}
0x22a0…22b4 Head {h00=0x0010, h01=0x0050, text=» LDR* A4,A5 «, t00=0x0016, t01=0x0046}
0x22b4…22d8 Head {h00=0x0020, h01=0x0050, text=» RF(Z) GETB50 NO BUFFER FREE«, t00=0x0016, t01=0x005a}
0x22d8…22ec Head {h00=0x0010, h01=0x0050, text=» LDR* A3,A4 «, t00=0x0016, t01=0x007e}
0x22ec…22fe Head {h00=0x000e, h01=0x0050, text=» STR A3,A5«, t00=0x0016, t01=0x0092}
0x22fe…231a Head {h00=0x0018, h01=0x0050, text=» ADK A4,2 SKIP LINK «, t00=0x0016, t01=0x00a4}
0x231a…232a Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0016, t01=0x00c0}
0x232a…233e Head {h00=0x0010, h01=0x0050, text=»GETB50 EQU *«, t00=0x0016, t01=0x00d0}
0x233e…234a Head {h00=0x0008, h01=0x0050, text=» LKM«, t00=0x0016, t01=0x00e4}
0x234a…2366 Head {h00=0x0018, h01=0x0050, text=» DATA 0 SWITCH TASK «, t00=0x0016, t01=0x00f0}
0x2366…2378 Head {h00=0x000e, h01=0x0050, text=» RB GETBUF«, t00=0x0016, t01=0x010c}
0x2378…2382 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0016, t01=0x011e}
0x2382…239a Head {h00=0x0014, h01=0x0050, text=»* RELEASE BUFFER«, t00=0x0016, t01=0x0128}
0x239a…23a4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0016, t01=0x0140}
0x23a4…23b8 Head {h00=0x0010, h01=0x0050, text=»RLRBUF EQU *«, t00=0x0016, t01=0x014a}
0x23b8…23ce Head {h00=0x0012, h01=0x0050, text=» LDKL A2,RBUF «, t00=0x0016, t01=0x015e}
0x23ce…23e2 Head {h00=0x0010, h01=0x0050, text=»RELB05 EQU *«, t00=0x0016, t01=0x0174}
0x23e2…2402 Head {h00=0x001c, h01=0x0050, text=» SUK A4,2 POINT TO LINK «, t00=0x0016, t01=0x0188}
0x2402…2416 Head {h00=0x0010, h01=0x0050, text=»RELB10 EQU *«, t00=0x0017, t01=0x0018}
0x2416…242a Head {h00=0x0010, h01=0x0050, text=» LDR* A3,A2 «, t00=0x0017, t01=0x002c}
0x242a…2440 Head {h00=0x0012, h01=0x0050, text=» RF(Z) RELB20 «, t00=0x0017, t01=0x0040}
0x2440…2452 Head {h00=0x000e, h01=0x0050, text=» LDR A2,A3«, t00=0x0017, t01=0x0056}
0x2452…2464 Head {h00=0x000e, h01=0x0050, text=» RB RELB10«, t00=0x0017, t01=0x0068}
0x2464…2478 Head {h00=0x0010, h01=0x0050, text=»RELB20 EQU *«, t00=0x0017, t01=0x007a}
0x2478…248a Head {h00=0x000e, h01=0x0050, text=» STR A4,A2«, t00=0x0017, t01=0x008e}
0x248a…249a Head {h00=0x000c, h01=0x0050, text=» CMR A4 «, t00=0x0017, t01=0x00a0}
0x249a…24aa Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0017, t01=0x00b0}
0x24aa…24b4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0017, t01=0x00c0}
0x24b4…24c8 Head {h00=0x0010, h01=0x0050, text=»RLWBUF EQU *«, t00=0x0017, t01=0x00ca}
0x24c8…24de Head {h00=0x0012, h01=0x0050, text=» LDKL A2,TBUF «, t00=0x0017, t01=0x00de}
0x24de…24f0 Head {h00=0x000e, h01=0x0050, text=» RB RELB05«, t00=0x0017, t01=0x00f4}
0x24f0…24fe Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0017, t01=0x0106}
0x24fe…2508 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0017, t01=0x0114}
0x2508…2512 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0017, t01=0x011e}
0x2512…2538 Head {h00=0x0022, h01=0x0050, text=»* STORE CHARACTER IN DC BUFFER«, t00=0x0017, t01=0x0128}
0x2538…2542 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0017, t01=0x014e}
0x2542…2554 Head {h00=0x000e, h01=0x0050, text=»* A2=CHAR «, t00=0x0017, t01=0x0158}
0x2554…2570 Head {h00=0x0018, h01=0x0050, text=»* A7=BUFFER POINTER «, t00=0x0017, t01=0x016a}
0x2570…2596 Head {h00=0x0022, h01=0x0050, text=»* A9=BUFFER CHARACTER COUNTER «, t00=0x0017, t01=0x0186}
0x2596…25a0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0018, t01=0x001c}
0x25a0…25aa Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0018, t01=0x0026}
0x25aa…25be Head {h00=0x0010, h01=0x0050, text=»PDCCH EQU * «, t00=0x0018, t01=0x0030}
0x25be…25de Head {h00=0x001c, h01=0x0050, text=» CWK A9,TBUFL+TBUFL =3 «, t00=0x0018, t01=0x0044}
0x25de…25fc Head {h00=0x001a, h01=0x0050, text=» RF(G) PDCCHR OVERFLOW«, t00=0x0018, t01=0x0064}
0x25fc…260e Head {h00=0x000e, h01=0x0050, text=» SCR A2,A7«, t00=0x0018, t01=0x0082}
0x260e…2622 Head {h00=0x0010, h01=0x0050, text=»PDCCH1 EQU *«, t00=0x0018, t01=0x0094}
0x2622…2634 Head {h00=0x000e, h01=0x0050, text=» ADK A7,1 «, t00=0x0018, t01=0x00a8}
0x2634…2646 Head {h00=0x000e, h01=0x0050, text=» ADKL A9,1«, t00=0x0018, t01=0x00ba}
0x2646…265c Head {h00=0x0012, h01=0x0050, text=»PDCCHR RTN A14«, t00=0x0018, t01=0x00cc}
0x265c…2666 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0018, t01=0x00e2}
0x2666…2670 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0018, t01=0x00ec}
0x2670…2694 Head {h00=0x0020, h01=0x0050, text=»* STORE ATTENTION ID FROM A2«, t00=0x0018, t01=0x00f6}
0x2694…269e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0018, t01=0x011a}
0x269e…26a8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0018, t01=0x0124}
0x26a8…26c2 Head {h00=0x0016, h01=0x0050, text=»PAID CF A14,PDCCH «, t00=0x0018, t01=0x012e}
0x26c2…26d2 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0018, t01=0x0148}
0x26d2…26dc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0018, t01=0x0158}
0x26dc…26e6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0018, t01=0x0162}
0x26e6…2712 Head {h00=0x0028, h01=0x0050, text=»* GET CHARACTER FROM DC BUFFER TO A2«, t00=0x0018, t01=0x016c}
0x2712…271c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0019, t01=0x0008}
0x271c…2726 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0019, t01=0x0012}
0x2726…273e Head {h00=0x0014, h01=0x0050, text=»GDCCH LCR A2,A7 «, t00=0x0019, t01=0x001c}
0x273e…2752 Head {h00=0x0010, h01=0x0050, text=» ANK A2,/FF «, t00=0x0019, t01=0x0034}
0x2752…277c Head {h00=0x0026, h01=0x0050, text=» RF(NZ) GDCC:1 NOT NULL CHARACTER «, t00=0x0019, t01=0x0048}
0x277c…27a4 Head {h00=0x0024, h01=0x0050, text=» LDK A2,/7F LOAD NULL CHARACTER «, t00=0x0019, t01=0x0072}
0x27a4…27b8 Head {h00=0x0010, h01=0x0050, text=»GDCC:1 EQU *«, t00=0x0019, t01=0x009a}
0x27b8…27ca Head {h00=0x000e, h01=0x0050, text=» RB PDCCH1«, t00=0x0019, t01=0x00ae}
0x27ca…27d8 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0019, t01=0x00c0}
0x27d8…27e2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0019, t01=0x00ce}
0x27e2…27ec Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0019, t01=0x00d8}
0x27ec…281e Head {h00=0x002e, h01=0x0050, text=»* GET BUFFER ADDRESS TO A1 FROM DC BUFFER «, t00=0x0019, t01=0x00e2}
0x281e…2828 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0019, t01=0x0114}
0x2828…2832 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0019, t01=0x011e}
0x2832…284e Head {h00=0x0018, h01=0x0050, text=»GETADR CF A14,GDCCH «, t00=0x0019, t01=0x0128}
0x284e…2866 Head {h00=0x0014, h01=0x0050, text=» LC A1,TEBCDI,A2«, t00=0x0019, t01=0x0144}
0x2866…287a Head {h00=0x0010, h01=0x0050, text=» ANK A1,/3F «, t00=0x0019, t01=0x015c}
0x287a…288c Head {h00=0x000e, h01=0x0050, text=» SLL A1,6 «, t00=0x0019, t01=0x0170}
0x288c…28a2 Head {h00=0x0012, h01=0x0050, text=» CF A14,GDCCH «, t00=0x0019, t01=0x0182}
0x28a2…28ba Head {h00=0x0014, h01=0x0050, text=» LC A2,TEBCDI,A2«, t00=0x001a, t01=0x0008}
0x28ba…28ce Head {h00=0x0010, h01=0x0050, text=» ANK A2,/3F «, t00=0x001a, t01=0x0020}
0x28ce…28e0 Head {h00=0x000e, h01=0x0050, text=» ORR A1,A2«, t00=0x001a, t01=0x0034}
0x28e0…28f0 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x001a, t01=0x0046}
0x28f0…28fe Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x001a, t01=0x0056}
0x28fe…2908 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001a, t01=0x0064}
0x2908…2912 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001a, t01=0x006e}
0x2912…2938 Head {h00=0x0022, h01=0x0050, text=»* WRITE MESSAGE TO MAIN FRAME «, t00=0x001a, t01=0x0078}
0x2938…2942 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001a, t01=0x009e}
0x2942…296c Head {h00=0x0026, h01=0x0050, text=»* ON EXIT A1 CONTAINS RETURN CODE «, t00=0x001a, t01=0x00a8}
0x296c…2976 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001a, t01=0x00d2}
0x2976…2980 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001a, t01=0x00dc}
0x2980…2994 Head {h00=0x0010, h01=0x0050, text=»DCWRTE EQU *«, t00=0x001a, t01=0x00e6}
0x2994…29aa Head {h00=0x0012, h01=0x0050, text=» LDKL A8,ECBDC«, t00=0x001a, t01=0x00fa}
0x29aa…29be Head {h00=0x0010, h01=0x0050, text=» IFT DCLIN=2«, t00=0x001a, t01=0x0110}
0x29be…29d8 Head {h00=0x0016, h01=0x0050, text=» LD A7,MAIN,TCABAS«, t00=0x001a, t01=0x0124}
0x29d8…29ec Head {h00=0x0010, h01=0x0050, text=» RF(Z) DC050«, t00=0x001a, t01=0x013e}
0x29ec…2a04 Head {h00=0x0014, h01=0x0050, text=» LDKL A8,ECBDC2 «, t00=0x001a, t01=0x0152}
0x2a04…2a10 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x001a, t01=0x016a}
0x2a10…2a24 Head {h00=0x0010, h01=0x0050, text=»DC050 EQU * «, t00=0x001a, t01=0x0176}
0x2a24…2a3a Head {h00=0x0012, h01=0x0050, text=» ADR A8,CREBAS«, t00=0x001a, t01=0x018a}
0x2a3a…2a50 Head {h00=0x0012, h01=0x0050, text=» LDKL A1,TIMDC«, t00=0x001b, t01=0x0010}
0x2a50…2a66 Head {h00=0x0012, h01=0x0050, text=» CF A14,REQTIM«, t00=0x001b, t01=0x0026}
0x2a66…2a88 Head {h00=0x001e, h01=0x0050, text=» ST A9,ECBRL,A8 REQ LENGTH«, t00=0x001b, t01=0x003c}
0x2a88…2ab0 Head {h00=0x0024, h01=0x0050, text=» ST A12,ECBBA,A8 BUFFER ADDRESS «, t00=0x001b, t01=0x005e}
0x2ab0…2acc Head {h00=0x0018, h01=0x0050, text=» LD A7,KBINH,TCABAS «, t00=0x001b, t01=0x0086}
0x2acc…2b08 Head {h00=0x0038, h01=0x0050, text=» ORK A7,2 BIT 14 :=1 DISABLE KEYBOARD.RESET ALLOWED «, t00=0x001b, t01=0x00a2}
0x2b08…2b24 Head {h00=0x0018, h01=0x0050, text=» ST A7,KBINH,TCABAS «, t00=0x001b, t01=0x00de}
0x2b24…2b38 Head {h00=0x0010, h01=0x0050, text=» LDK A7,/86 «, t00=0x001b, t01=0x00fa}
0x2b38…2b4c Head {h00=0x0010, h01=0x0050, text=»DC100 EQU * «, t00=0x001b, t01=0x010e}
0x2b4c…2b58 Head {h00=0x0008, h01=0x0050, text=» LKM«, t00=0x001b, t01=0x0122}
0x2b58…2b68 Head {h00=0x000c, h01=0x0050, text=» DATA 1 «, t00=0x001b, t01=0x012e}
0x2b68…2b7c Head {h00=0x0010, h01=0x0050, text=»DC200 EQU * «, t00=0x001b, t01=0x013e}
0x2b7c…2b90 Head {h00=0x0010, h01=0x0050, text=» LDR A4,A12 «, t00=0x001b, t01=0x0152}
0x2b90…2ba6 Head {h00=0x0012, h01=0x0050, text=» CF A14,RLWBUF«, t00=0x001b, t01=0x0166}
0x2ba6…2bce Head {h00=0x0024, h01=0x0050, text=» LD A1,ECBRC,A8 GET RETURN CODE «, t00=0x001b, t01=0x017c}
0x2bce…2be2 Head {h00=0x0010, h01=0x0050, text=» RF(Z) DC300«, t00=0x001c, t01=0x0014}
0x2be2…2bfe Head {h00=0x0018, h01=0x0050, text=» LD A7,KBINH,TCABAS «, t00=0x001c, t01=0x0028}
0x2bfe…2c2a Head {h00=0x0028, h01=0x0050, text=» ANK A7,/D BIT 14:=0 ALLIWE KEYBOARD«, t00=0x001c, t01=0x0044}
0x2c2a…2c46 Head {h00=0x0018, h01=0x0050, text=» ST A7,KBINH,TCABAS «, t00=0x001c, t01=0x0070}
0x2c46…2c78 Head {h00=0x002e, h01=0x0050, text=» CF A14,LINHOF TURN OFF "KEYBOARD INHIBIT «, t00=0x001c, t01=0x008c}
0x2c78…2caa Head {h00=0x002e, h01=0x0050, text=» CF A14,LSAVOF TURN OFF "SYSTEM AVAILABLE"«, t00=0x001c, t01=0x00be}
0x2caa…2cb4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001c, t01=0x00f0}
0x2cb4…2ce2 Head {h00=0x002a, h01=0x0050, text=» LDK A7,/04 RESET KEYBOARD ECB BUFFER «, t00=0x001c, t01=0x00fa}
0x2ce2…2cf8 Head {h00=0x0012, h01=0x0050, text=» LDKL A8,ECBKB«, t00=0x001c, t01=0x0128}
0x2cf8…2d0e Head {h00=0x0012, h01=0x0050, text=» ADR A8,CREBAS«, t00=0x001c, t01=0x013e}
0x2d0e…2d1a Head {h00=0x0008, h01=0x0050, text=» LKM«, t00=0x001c, t01=0x0154}
0x2d1a…2d2a Head {h00=0x000c, h01=0x0050, text=» DATA 1 «, t00=0x001c, t01=0x0160}
0x2d2a…2d34 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001c, t01=0x0170}
0x2d34…2d44 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x001c, t01=0x017a}
0x2d44…2d58 Head {h00=0x0010, h01=0x0050, text=»DC300 EQU * «, t00=0x001c, t01=0x018a}
0x2d58…2d8a Head {h00=0x002e, h01=0x0050, text=» CF A14,LSAVON TURN ON 'SYSTEM AVAILABLE' «, t00=0x001d, t01=0x000e}
0x2d8a…2d9a Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x001d, t01=0x0040}
0x2d9a…2da8 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x001d, t01=0x0050}
0x2da8…2db2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001d, t01=0x005e}
0x2db2…2dbc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001d, t01=0x0068}
0x2dbc…2de8 Head {h00=0x0028, h01=0x0050, text=»* STORE CURSOR ADDRESS IN DC BUFFER «, t00=0x001d, t01=0x0072}
0x2de8…2df2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001d, t01=0x009e}
0x2df2…2dfc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001d, t01=0x00a8}
0x2dfc…2e1c Head {h00=0x001c, h01=0x0050, text=»CURSA LD A1,PCURS,TCABAS«, t00=0x001d, t01=0x00b2}
0x2e1c…2e2e Head {h00=0x000e, h01=0x0050, text=» RF BUFADR«, t00=0x001d, t01=0x00d2}
0x2e2e…2e38 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001d, t01=0x00e4}
0x2e38…2e42 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001d, t01=0x00ee}
0x2e42…2e6e Head {h00=0x0028, h01=0x0050, text=»* STORE BUFFER ADDRESS IN DC BUFFER «, t00=0x001d, t01=0x00f8}
0x2e6e…2e78 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001d, t01=0x0124}
0x2e78…2e9a Head {h00=0x001e, h01=0x0050, text=»* A1=BINARY BUFFER ADDRESS«, t00=0x001d, t01=0x012e}
0x2e9a…2ea4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001d, t01=0x0150}
0x2ea4…2eae Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001d, t01=0x015a}
0x2eae…2ec6 Head {h00=0x0014, h01=0x0050, text=»BUFADR LDR A2,A1«, t00=0x001d, t01=0x0164}
0x2ec6…2ed8 Head {h00=0x000e, h01=0x0050, text=» SRL A2,6 «, t00=0x001d, t01=0x017c}
0x2ed8…2eec Head {h00=0x0010, h01=0x0050, text=» ANK A2,/3F «, t00=0x001d, t01=0x018e}
0x2eec…2f16 Head {h00=0x0026, h01=0x0050, text=» LC A2,TASCII,A2 CONVERT TO ASCII «, t00=0x001e, t01=0x0012}
0x2f16…2f2c Head {h00=0x0012, h01=0x0050, text=» CF A14,PDCCH «, t00=0x001e, t01=0x003c}
0x2f2c…2f3e Head {h00=0x000e, h01=0x0050, text=» LDR A2,A1«, t00=0x001e, t01=0x0052}
0x2f3e…2f52 Head {h00=0x0010, h01=0x0050, text=» ANK A2,/3F «, t00=0x001e, t01=0x0064}
0x2f52…2f6a Head {h00=0x0014, h01=0x0050, text=» LC A2,TASCII,A2«, t00=0x001e, t01=0x0078}
0x2f6a…2f80 Head {h00=0x0012, h01=0x0050, text=» CF A14,PDCCH «, t00=0x001e, t01=0x0090}
0x2f80…2f90 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x001e, t01=0x00a6}
0x2f90…2f9e Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x001e, t01=0x00b6}
0x2f9e…2fa8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001e, t01=0x00c4}
0x2fa8…2fb2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001e, t01=0x00ce}
0x2fb2…2fe8 Head {h00=0x0032, h01=0x0050, text=»* GET MODIFIED DATA FROM DISPLAY IMAGE BUFFER «, t00=0x001e, t01=0x00d8}
0x2fe8…2ff2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001e, t01=0x010e}
0x2ff2…3016 Head {h00=0x0020, h01=0x0050, text=»* A3=BUFFER POSITION BINARY «, t00=0x001e, t01=0x0118}
0x3016…3032 Head {h00=0x0018, h01=0x0050, text=»* A4=BUFFER POINTER «, t00=0x001e, t01=0x013c}
0x3032…303c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001e, t01=0x0158}
0x303c…3046 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001e, t01=0x0162}
0x3046…306c Head {h00=0x0022, h01=0x0050, text=»RDMOD LDK A3,0 RESET POSITION «, t00=0x001e, t01=0x016c}
0x306c…3082 (31, 0, 400) Head {h00=0x0012, h01=0x0050, text=» LDKL A4,BVDU «, t00=0x001f, t01=0x0004}
0x3082…30a8 Head {h00=0x0022, h01=0x0050, text=» ADR A4,TCABAS BUFFER POINTER «, t00=0x001f, t01=0x001a}
0x30a8…30ec Head {h00=0x0040, h01=0x0050, text=»************************************************************«, t00=0x001f, t01=0x0040}
0x30ec…3116 Head {h00=0x0026, h01=0x0050, text=» ADKL A4,1919 LAST SCREEN POSITION«, t00=0x001f, t01=0x0084}
0x3116…3136 Head {h00=0x001c, h01=0x0050, text=» LCR A2,A4 GET CHARACTER«, t00=0x001f, t01=0x00ae}
0x3136…3168 Head {h00=0x002e, h01=0x0050, text=» LDKL A4,BVDU RELOAD FIRST BUFFER POSITION«, t00=0x001f, t01=0x00ce}
0x3168…317e Head {h00=0x0012, h01=0x0050, text=» ADR A4,TCABAS«, t00=0x001f, t01=0x0100}
0x317e…3186 Head {h00=0x0004, h01=0x0050, t00=0x001f, t01=0x0116}
0x3186…3198 Head {h00=0x000e, h01=0x0050, text=» LDR A1,A2«, t00=0x001f, t01=0x011e}
0x3198…31ba Head {h00=0x001e, h01=0x0050, text=» ANK A1,/60 ATTRIBUTE ??? «, t00=0x001f, t01=0x0130}
0x31ba…31d6 Head {h00=0x0018, h01=0x0050, text=» RF(Z) RD200 YES!!! «, t00=0x001f, t01=0x0152}
0x31d6…31de Head {h00=0x0004, h01=0x0050, t00=0x001f, t01=0x016e}
0x31de…3222 Head {h00=0x0040, h01=0x0050, text=»************************************************************«, t00=0x001f, t01=0x0176}
0x3222…323c Head {h00=0x0016, h01=0x0050, text=»RD100 CWK A3,LBVDU«, t00=0x0020, t01=0x002a}
0x323c…3260 Head {h00=0x0020, h01=0x0050, text=» RF(NL) RDMODE ALL EXAMINED «, t00=0x0020, t01=0x0044}
0x3260…327c Head {h00=0x0018, h01=0x0050, text=» LCR A2,A4 GET CHAR «, t00=0x0020, t01=0x0068}
0x327c…328e Head {h00=0x000e, h01=0x0050, text=» ADK A3,1 «, t00=0x0020, t01=0x0084}
0x328e…32a0 Head {h00=0x000e, h01=0x0050, text=» ADK A4,1 «, t00=0x0020, t01=0x0096}
0x32a0…32e4 Head {h00=0x0040, h01=0x0050, text=»************************************************************«, t00=0x0020, t01=0x00a8}
0x32e4…32f8 Head {h00=0x0010, h01=0x0050, text=»RD105 EQU * «, t00=0x0020, t01=0x00ec}
0x32f8…333c Head {h00=0x0040, h01=0x0050, text=»************************************************************«, t00=0x0020, t01=0x0100}
0x333c…334e Head {h00=0x000e, h01=0x0050, text=» LDR A1,A2«, t00=0x0020, t01=0x0144}
0x334e…3362 Head {h00=0x0010, h01=0x0050, text=» ANK A1,/60 «, t00=0x0020, t01=0x0156}
0x3362…3386 Head {h00=0x0020, h01=0x0050, text=» RF(Z) RD200 ATTRIBUTE CHAR «, t00=0x0020, t01=0x016a}
0x3386…33a0 Head {h00=0x0016, h01=0x0050, text=»RD110 CWK A2,NULL «, t00=0x0020, t01=0x018e}
0x33a0…33c6 Head {h00=0x0022, h01=0x0050, text=» RB(E) RD100 DON'T STORE NULL «, t00=0x0021, t01=0x0018}
0x33c6…33f4 Head {h00=0x002a, h01=0x0050, text=» CF A14,PDCCH STORE CHAR IN DC BUFFER «, t00=0x0021, t01=0x003e}
0x33f4…3406 Head {h00=0x000e, h01=0x0050, text=» RB RD100 «, t00=0x0021, t01=0x006c}
0x3406…342a Head {h00=0x0020, h01=0x0050, text=»RD200 ANK A2,1 CHECK MDT BIT«, t00=0x0021, t01=0x007e}
0x342a…344e Head {h00=0x0020, h01=0x0050, text=» RF(NZ) RD300 MODIFIED FIELD«, t00=0x0021, t01=0x00a2}
0x344e…3468 Head {h00=0x0016, h01=0x0050, text=»RD210 CWK A3,LBVDU«, t00=0x0021, t01=0x00c6}
0x3468…348c Head {h00=0x0020, h01=0x0050, text=» RF(NL) RDMODE ALL EXAMINED «, t00=0x0021, t01=0x00e0}
0x348c…349e Head {h00=0x000e, h01=0x0050, text=» LCR A2,A4«, t00=0x0021, t01=0x0104}
0x349e…34b0 Head {h00=0x000e, h01=0x0050, text=» ADK A3,1 «, t00=0x0021, t01=0x0116}
0x34b0…34c2 Head {h00=0x000e, h01=0x0050, text=» ADK A4,1 «, t00=0x0021, t01=0x0128}
0x34c2…34d4 Head {h00=0x000e, h01=0x0050, text=» LDR A1,A2«, t00=0x0021, t01=0x013a}
0x34d4…34e8 Head {h00=0x0010, h01=0x0050, text=» ANK A1,/60 «, t00=0x0021, t01=0x014c}
0x34e8…3510 Head {h00=0x0024, h01=0x0050, text=» RB(NZ) RD210 NO ATTRIBUTE CHAR «, t00=0x0021, t01=0x0160}
0x3510…355a Head {h00=0x0046, h01=0x0050, text=»******************************************************** 78-05-11«, t00=0x0021, t01=0x0188}
0x355a…3588 Head {h00=0x002a, h01=0x0050, text=» CWK A3,LBVDU ALL BUFFER EXAMINED ??? «, t00=0x0022, t01=0x0042}
0x3588…35a4 Head {h00=0x0018, h01=0x0050, text=» RF(NL) RDMODE YES!!«, t00=0x0022, t01=0x0070}
0x35a4…35ee Head {h00=0x0046, h01=0x0050, text=»******************************************************** 78-05-11«, t00=0x0022, t01=0x008c}
0x35ee…3610 Head {h00=0x001e, h01=0x0050, text=» RB RD200 ATTRIBUTE FOUND «, t00=0x0022, t01=0x00d6}
0x3610…3628 Head {h00=0x0014, h01=0x0050, text=»RD300 LDK A2,SBA«, t00=0x0022, t01=0x00f8}
0x3628…364e Head {h00=0x0022, h01=0x0050, text=» CF A14,PDCCH SBA TO DC BUFFER«, t00=0x0022, t01=0x0110}
0x364e…3670 Head {h00=0x001e, h01=0x0050, text=» LDR A1,A3 BUFFER POSITION«, t00=0x0022, t01=0x0136}
0x3670…3694 Head {h00=0x0020, h01=0x0050, text=» CF A14,BUFADR TO DC BUFFER «, t00=0x0022, t01=0x0158}
0x3694…36a6 Head {h00=0x000e, h01=0x0050, text=» RB RD100 «, t00=0x0022, t01=0x017c}
0x36a6…36bc Head {h00=0x0012, h01=0x0050, text=»RDMODE RTN A14«, t00=0x0022, t01=0x018e}
0x36bc…36ca Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0023, t01=0x0014}
0x36ca…36d4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0023, t01=0x0022}
0x36d4…36de Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0023, t01=0x002c}
0x36de…3716 Head {h00=0x0034, h01=0x0050, text=»* UPDATE VIDEO DISPLAY BUFFER IMAGE BY THE DATA «, t00=0x0023, t01=0x0036}
0x3716…3720 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0023, t01=0x006e}
0x3720…3744 Head {h00=0x0020, h01=0x0050, text=»* RECEIVED FROM THE DC LINE «, t00=0x0023, t01=0x0078}
0x3744…374e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0023, t01=0x009c}
0x374e…3758 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0023, t01=0x00a6}
0x3758…377e Head {h00=0x0022, h01=0x0050, text=»* A7=DC RECEIVE BUFFER POINTER«, t00=0x0023, t01=0x00b0}
0x377e…379a Head {h00=0x0018, h01=0x0050, text=»* A8=DC ECB ADDRESS «, t00=0x0023, t01=0x00d6}
0x379a…37c6 Head {h00=0x0028, h01=0x0050, text=»* A9=DC BUFFER INDEX, INITIALLY ZERO«, t00=0x0023, t01=0x00f2}
0x37c6…37d0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0023, t01=0x011e}
0x37d0…37f4 Head {h00=0x0020, h01=0x0050, text=»* A3=DISPLAY BUFFER POSITION«, t00=0x0023, t01=0x0128}
0x37f4…3818 Head {h00=0x0020, h01=0x0050, text=»* A4=DISPLAY BUFFER POINTER «, t00=0x0023, t01=0x014c}
0x3818…3822 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0023, t01=0x0170}
0x3822…382c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0023, t01=0x017a}
0x382c…3840 Head {h00=0x0010, h01=0x0050, text=»UPDATE EQU *«, t00=0x0023, t01=0x0184}
0x3840…385a Head {h00=0x0016, h01=0x0050, text=» CM ICWORK,TCABAS «, t00=0x0024, t01=0x0008}
0x385a…3876 Head {h00=0x0018, h01=0x0050, text=» LD A8,ECBDCC,TCABAS«, t00=0x0024, t01=0x0022}
0x3876…38a0 Head {h00=0x0026, h01=0x0050, text=» LD A7,ECBBA,A8 DC BUFFER ADDRESS «, t00=0x0024, t01=0x003e}
0x38a0…38c8 Head {h00=0x0024, h01=0x0050, text=» SUR A9,A9 RESET DC BUFFER INDEX«, t00=0x0024, t01=0x0068}
0x38c8…38fc Head {h00=0x0030, h01=0x0050, text=» CF A14,GDCCH GET FIRST CHAR FROM DC BUFFER «, t00=0x0024, t01=0x0090}
0x38fc…3920 Head {h00=0x0020, h01=0x0050, text=» CWK A2,ESC SHOULD BE ESCAPE«, t00=0x0024, t01=0x00c4}
0x3920…3942 Head {h00=0x001e, h01=0x0050, text=» RF(NE) UPDEND NOT ESCAPE «, t00=0x0024, t01=0x00e8}
0x3942…3968 Head {h00=0x0022, h01=0x0050, text=» CF A14,GDCCH GET COMMAND CODE«, t00=0x0024, t01=0x010a}
0x3968…397c Head {h00=0x0010, h01=0x0050, text=» CWK A2,/31 «, t00=0x0024, t01=0x0130}
0x397c…3998 Head {h00=0x0018, h01=0x0050, text=» RF(E) UPD100 WRITE «, t00=0x0024, t01=0x0144}
0x3998…39ac Head {h00=0x0010, h01=0x0050, text=» CWK A2,/35 «, t00=0x0024, t01=0x0160}
0x39ac…39ce Head {h00=0x001e, h01=0x0050, text=» RF(E) UPD120 ERASE/WRITE «, t00=0x0024, t01=0x0174}
0x39ce…39e2 Head {h00=0x0010, h01=0x0050, text=» CWK A2,/3F «, t00=0x0025, t01=0x0008}
0x39e2…3a0e Head {h00=0x0028, h01=0x0050, text=» RF(E) UPD140 ERASE ALL UNPROTECTED «, t00=0x0025, t01=0x001c}
0x3a0e…3a24 Head {h00=0x0012, h01=0x0050, text=» IFT COPCMD=1 «, t00=0x0025, t01=0x0048}
0x3a24…3a38 Head {h00=0x0010, h01=0x0050, text=» CWK A2,/37 «, t00=0x0025, t01=0x005e}
0x3a38…3a5c Head {h00=0x0020, h01=0x0050, text=» ABL(E) UPD600 COPY COMMAND «, t00=0x0025, t01=0x0072}
0x3a5c…3a68 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0025, t01=0x0096}
0x3a68…3a90 Head {h00=0x0024, h01=0x0050, text=» RF UPDEND INVALID COMMAND CODE «, t00=0x0025, t01=0x00a2}
0x3a90…3a9e Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0025, t01=0x00ca}
0x3a9e…3aa8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0025, t01=0x00d8}
0x3aa8…3ac0 Head {h00=0x0014, h01=0x0050, text=»* WRITE COMMAND «, t00=0x0025, t01=0x00e2}
0x3ac0…3aca Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0025, t01=0x00fa}
0x3aca…3ade Head {h00=0x0010, h01=0x0050, text=»UPD100 EQU *«, t00=0x0025, t01=0x0104}
0x3ade…3b0a Head {h00=0x0028, h01=0x0050, text=» CF A14,PWCC PROCESS WCC FOR MDT BIT«, t00=0x0025, t01=0x0118}
0x3b0a…3b26 Head {h00=0x0018, h01=0x0050, text=» LD A3,PCURS,TCABAS «, t00=0x0025, t01=0x0144}
0x3b26…3b52 Head {h00=0x0028, h01=0x0050, text=» LDR A4,A3 START IN CURSOR POSITION «, t00=0x0025, t01=0x0160}
0x3b52…3b68 Head {h00=0x0012, h01=0x0050, text=» ADKL A4,BVDU «, t00=0x0025, t01=0x018c}
0x3b68…3b7e Head {h00=0x0012, h01=0x0050, text=» ADR A4,TCABAS«, t00=0x0026, t01=0x0012}
0x3b7e…3ba6 Head {h00=0x0024, h01=0x0050, text=» LDK A5,1 INDICATE WCC, IC OR RA«, t00=0x0026, t01=0x0028}
0x3ba6…3bb8 Head {h00=0x000e, h01=0x0050, text=» RF UPD220«, t00=0x0026, t01=0x0050}
0x3bb8…3bc2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0026, t01=0x0062}
0x3bc2…3be0 Head {h00=0x001a, h01=0x0050, text=»* ERASE/WRITE COMMAND «, t00=0x0026, t01=0x006c}
0x3be0…3bea Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0026, t01=0x008a}
0x3bea…3bfe Head {h00=0x0010, h01=0x0050, text=»UPD120 EQU *«, t00=0x0026, t01=0x0094}
0x3bfe…3c20 Head {h00=0x001e, h01=0x0050, text=» CF A14,ERASE ERASE SCREEN«, t00=0x0026, t01=0x00a8}
0x3c20…3c32 Head {h00=0x000e, h01=0x0050, text=» RF UPD200«, t00=0x0026, t01=0x00ca}
0x3c32…3c3c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0026, t01=0x00dc}
0x3c3c…3c5c Head {h00=0x001c, h01=0x0050, text=»* ERASE ALL UNPROTECTED «, t00=0x0026, t01=0x00e6}
0x3c5c…3c66 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0026, t01=0x0106}
0x3c66…3c7a Head {h00=0x0010, h01=0x0050, text=»UPD140 EQU *«, t00=0x0026, t01=0x0110}
0x3c7a…3ca6 Head {h00=0x0028, h01=0x0050, text=» CF A14,ERASUP ERASE ALL UNPROTECTED«, t00=0x0026, t01=0x0124}
0x3ca6…3cd2 Head {h00=0x0028, h01=0x0050, text=» RF UPDEND NO TEXT WITH THIS COMMAND«, t00=0x0026, t01=0x0150}
0x3cd2…3cdc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0026, t01=0x017c}
0x3cdc…3d0e Head {h00=0x002e, h01=0x0050, text=»* TAKE CARE OF WRITE CONTROL CHARACTER WCC«, t00=0x0026, t01=0x0186}
0x3d0e…3d18 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0027, t01=0x0028}
0x3d18…3d3e Head {h00=0x0022, h01=0x0050, text=»UPD200 CF A14,PWCC PROCESS WCC«, t00=0x0027, t01=0x0032}
0x3d3e…3d66 Head {h00=0x0024, h01=0x0050, text=» LDK A5,1 INDICATE WCC, IC OR RA«, t00=0x0027, t01=0x0058}
0x3d66…3d74 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0027, t01=0x0080}
0x3d74…3d7e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0027, t01=0x008e}
0x3d7e…3d88 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0027, t01=0x0098}
0x3d88…3dae Head {h00=0x0022, h01=0x0050, text=»* PROCESS DATA FROM DC BUFFER «, t00=0x0027, t01=0x00a2}
0x3dae…3db8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0027, t01=0x00c8}
0x3db8…3dc2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0027, t01=0x00d2}
0x3dc2…3df2 Head {h00=0x002c, h01=0x0050, text=»UPD210 LDK A3,0 START FROM POSITION ZERO«, t00=0x0027, t01=0x00dc}
0x3df2…3e08 Head {h00=0x0012, h01=0x0050, text=» LDKL A4,BVDU «, t00=0x0027, t01=0x010c}
0x3e08…3e1e Head {h00=0x0012, h01=0x0050, text=» ADR A4,TCABAS«, t00=0x0027, t01=0x0122}
0x3e1e…3e40 Head {h00=0x001e, h01=0x0050, text=»UPD220 CW A9,DCLENG,TCABAS«, t00=0x0027, t01=0x0138}
0x3e40…3e74 Head {h00=0x0030, h01=0x0050, text=» RF(NL) UPDEND ALL RECEIVED CHARS PROCESSED «, t00=0x0027, t01=0x015a}
0x3e74…3ea2 Head {h00=0x002a, h01=0x0050, text=» CF A14,GDCCH GET CHAR FROM DC BUFFER «, t00=0x0027, t01=0x018e}
0x3ea2…3eb6 Head {h00=0x0010, h01=0x0050, text=» CWK A2,/20 «, t00=0x0028, t01=0x002c}
0x3eb6…3ed2 Head {h00=0x0018, h01=0x0050, text=» RF(L) UPD300 ORDER «, t00=0x0028, t01=0x0040}
0x3ed2…3ee6 Head {h00=0x0010, h01=0x0050, text=»UPD230 EQU *«, t00=0x0028, t01=0x005c}
0x3ee6…3f0a Head {h00=0x0020, h01=0x0050, text=» ORK A2,/80 SET DISPLAY BIT «, t00=0x0028, t01=0x0070}
0x3f0a…3f1e Head {h00=0x0010, h01=0x0050, text=»UPD240 EQU *«, t00=0x0028, t01=0x0094}
0x3f1e…3f4a Head {h00=0x0028, h01=0x0050, text=» LDK A5,0 INDICATE NOT WCC, IC OR RA«, t00=0x0028, t01=0x00a8}
0x3f4a…3f60 Head {h00=0x0012, h01=0x0050, text=» CWK A3,LBVDU «, t00=0x0028, t01=0x00d4}
0x3f60…3f8a Head {h00=0x0026, h01=0x0050, text=» RF(E) UPD260 END OF VIDEO BUFFER «, t00=0x0028, t01=0x00ea}
0x3f8a…3f9e Head {h00=0x0010, h01=0x0050, text=»UPD250 EQU *«, t00=0x0028, t01=0x0114}
0x3f9e…3fc6 Head {h00=0x0024, h01=0x0050, text=» SCR A2,A4 STORE IN VIDEO BUFFER«, t00=0x0028, t01=0x0128}
0x3fc6…3fd8 Head {h00=0x000e, h01=0x0050, text=» ADK A3,1 «, t00=0x0028, t01=0x0150}
0x3fd8…3fea Head {h00=0x000e, h01=0x0050, text=» ADK A4,1 «, t00=0x0028, t01=0x0162}
0x3fea…3ffc Head {h00=0x000e, h01=0x0050, text=» RB UPD220«, t00=0x0028, t01=0x0174}
0x3ffc…4014 Head {h00=0x0014, h01=0x0050, text=»UPD260 LDK A3,0 «, t00=0x0028, t01=0x0186}
0x4014…402a Head {h00=0x0012, h01=0x0050, text=» LDKL A4,BVDU «, t00=0x0029, t01=0x000e}
0x402a…4040 Head {h00=0x0012, h01=0x0050, text=» ADR A4,TCABAS«, t00=0x0029, t01=0x0024}
0x4040…4052 Head {h00=0x000e, h01=0x0050, text=» RB UPD250«, t00=0x0029, t01=0x003a}
0x4052…4066 Head {h00=0x0010, h01=0x0050, text=»UPD300 EQU *«, t00=0x0029, t01=0x004c}
0x4066…40a4 Head {h00=0x003a, h01=0x0050, text=»******************************************* 78-08-15 «, t00=0x0029, t01=0x0060}
0x40a4…40d4 Head {h00=0x002c, h01=0x0050, text=» CWK A3,LBVDU END OF DISPLAY BUFFER ??? «, t00=0x0029, t01=0x009e}
0x40d4…40f0 Head {h00=0x0018, h01=0x0050, text=» RF(NE) UPD302 NO!!!«, t00=0x0029, t01=0x00ce}
0x40f0…4118 Head {h00=0x0024, h01=0x0050, text=» SUR A3,A3 FIRST SCREEN POSITION«, t00=0x0029, t01=0x00ea}
0x4118…412e Head {h00=0x0012, h01=0x0050, text=» LDKL A4,BVDU «, t00=0x0029, t01=0x0112}
0x412e…4154 Head {h00=0x0022, h01=0x0050, text=» ADR A4,TCABAS BUFFER POSITION«, t00=0x0029, t01=0x0128}
0x4154…4168 Head {h00=0x0010, h01=0x0050, text=»UPD302 EQU *«, t00=0x0029, t01=0x014e}
0x4168…41a6 Head {h00=0x003a, h01=0x0050, text=»******************************************* 78-08-15 «, t00=0x0029, t01=0x0162}
0x41a6…41ba Head {h00=0x0010, h01=0x0050, text=» CWK A2,/1D «, t00=0x002a, t01=0x0010}
0x41ba…41dc Head {h00=0x001e, h01=0x0050, text=» RF(E) UPD320 START FIELD «, t00=0x002a, t01=0x0024}
0x41dc…41f0 Head {h00=0x0010, h01=0x0050, text=» CWK A2,/11 «, t00=0x002a, t01=0x0046}
0x41f0…4218 Head {h00=0x0024, h01=0x0050, text=» RF(E) UPD340 SET BUFFER ADDRESS«, t00=0x002a, t01=0x005a}
0x4218…422c Head {h00=0x0010, h01=0x0050, text=» CWK A2,/13 «, t00=0x002a, t01=0x0082}
0x422c…4250 Head {h00=0x0020, h01=0x0050, text=» RF(E) UPD360 INSERT CURSOR «, t00=0x002a, t01=0x0096}
0x4250…4264 Head {h00=0x0010, h01=0x0050, text=» CWK A2,/09 «, t00=0x002a, t01=0x00ba}
0x4264…4286 Head {h00=0x001e, h01=0x0050, text=» RF(E) UPD400 PROGRAM TAB «, t00=0x002a, t01=0x00ce}
0x4286…429a Head {h00=0x0010, h01=0x0050, text=» CWK A2,/14 «, t00=0x002a, t01=0x00f0}
0x429a…42c2 Head {h00=0x0024, h01=0x0050, text=» RF(E) UPD500 REPEAT TO ADDRESS «, t00=0x002a, t01=0x0104}
0x42c2…42d6 Head {h00=0x0010, h01=0x0050, text=» CWK A2,/12 «, t00=0x002a, t01=0x012c}
0x42d6…4308 Head {h00=0x002e, h01=0x0050, text=» RF(E) UPD540 ERASE UNPROTECTED TO ADDRESS«, t00=0x002a, t01=0x0140}
0x4308…431c Head {h00=0x0010, h01=0x0050, text=» CWK A2,/0C «, t00=0x002a, t01=0x0172}
0x431c…4332 Head {h00=0x0012, h01=0x0050, text=» RF(NE) UPD305«, t00=0x002a, t01=0x0186}
0x4332…4352 Head {h00=0x001c, h01=0x0050, text=» LDK A2,FORMFD FORM FEED«, t00=0x002b, t01=0x000c}
0x4352…4364 Head {h00=0x000e, h01=0x0050, text=» RB UPD230«, t00=0x002b, t01=0x002c}
0x4364…437e Head {h00=0x0016, h01=0x0050, text=»UPD305 CWK A2,/19 «, t00=0x002b, t01=0x003e}
0x437e…4394 Head {h00=0x0012, h01=0x0050, text=» RF(NE) UPD310«, t00=0x002b, t01=0x0058}
0x4394…43b6 Head {h00=0x001e, h01=0x0050, text=» LDK A2,ENDMES END MESSAGE«, t00=0x002b, t01=0x006e}
0x43b6…43c8 Head {h00=0x000e, h01=0x0050, text=» RB UPD230«, t00=0x002b, t01=0x0090}
0x43c8…43dc Head {h00=0x0010, h01=0x0050, text=»UPD310 EQU *«, t00=0x002b, t01=0x00a2}
0x43dc…43f0 Head {h00=0x0010, h01=0x0050, text=» CWK A2,/0A «, t00=0x002b, t01=0x00b6}
0x43f0…4406 Head {h00=0x0012, h01=0x0050, text=» RF(NE) UPD315«, t00=0x002b, t01=0x00ca}
0x4406…4426 Head {h00=0x001c, h01=0x0050, text=» LDK A2,NEWLIN NEW LINE «, t00=0x002b, t01=0x00e0}
0x4426…4438 Head {h00=0x000e, h01=0x0050, text=» RB UPD230«, t00=0x002b, t01=0x0100}
0x4438…444c Head {h00=0x0010, h01=0x0050, text=»UPD315 EQU *«, t00=0x002b, t01=0x0112}
0x444c…4460 Head {h00=0x0010, h01=0x0050, text=» CWK A2,/18 «, t00=0x002b, t01=0x0126}
0x4460…4484 Head {h00=0x0020, h01=0x0050, text=» RF(NE) UPD318 ILLEGAL ORDER«, t00=0x002b, t01=0x013a}
0x4484…4498 Head {h00=0x0010, h01=0x0050, text=» LDK A2,/30 «, t00=0x002b, t01=0x015e}
0x4498…44aa Head {h00=0x000e, h01=0x0050, text=» RB UPD230«, t00=0x002b, t01=0x0172}
0x44aa…44b8 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x002b, t01=0x0184}
0x44b8…44c0 (44, 0, 400) Head {h00=0x0004, h01=0x0050, t00=0x002c, t01=0x0004}
0x44c0…44d4 Head {h00=0x0010, h01=0x0050, text=»UPD318 EQU *«, t00=0x002c, t01=0x000c}
0x44d4…44fa Head {h00=0x0022, h01=0x0050, text=» CWK A2,/00 NULL CHARACTER ???«, t00=0x002c, t01=0x0020}
0x44fa…4524 Head {h00=0x0026, h01=0x0050, text=» RF(NE) UPDEND NO!! ILLEGAL ORDER«, t00=0x002c, t01=0x0046}
0x4524…454a Head {h00=0x0022, h01=0x0050, text=» LDK A2,/7F PTS NULL CHARACTER«, t00=0x002c, t01=0x0070}
0x454a…455c Head {h00=0x000e, h01=0x0050, text=» RB UPD230«, t00=0x002c, t01=0x0096}
0x455c…4564 Head {h00=0x0004, h01=0x0050, t00=0x002c, t01=0x00a8}
0x4564…45a8 Head {h00=0x0040, h01=0x0050, text=»************************************************************«, t00=0x002c, t01=0x00b0}
0x45a8…45b2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002c, t01=0x00f4}
0x45b2…45d4 Head {h00=0x001e, h01=0x0050, text=»* RELEASE RECEIVE BUFFER«, t00=0x002c, t01=0x00fe}
0x45d4…45de Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002c, t01=0x0120}
0x45de…460c Head {h00=0x002a, h01=0x0050, text=»************************************* «, t00=0x002c, t01=0x012a}
0x460c…4614 Head {h00=0x0004, h01=0x0050, t00=0x002c, t01=0x0158}
0x4614…4628 Head {h00=0x0010, h01=0x0050, text=»UPDEND EQU *«, t00=0x002c, t01=0x0160}
0x4628…4644 Head {h00=0x0018, h01=0x0050, text=» LD A8,ECBDCC,TCABAS«, t00=0x002c, t01=0x0174}
0x4644…465c Head {h00=0x0014, h01=0x0050, text=» LD A4,ECBBA,A8 «, t00=0x002c, t01=0x0190}
0x465c…4672 Head {h00=0x0012, h01=0x0050, text=» CF A14,RLRBUF«, t00=0x002d, t01=0x0018}
0x4672…4682 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x002d, t01=0x002e}
0x4682…4690 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x002d, t01=0x003e}
0x4690…469a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002d, t01=0x004c}
0x469a…46a4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002d, t01=0x0056}
0x46a4…46c0 Head {h00=0x0018, h01=0x0050, text=»* START FIELD ORDER «, t00=0x002d, t01=0x0060}
0x46c0…46ca Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002d, t01=0x007c}
0x46ca…46f8 Head {h00=0x002a, h01=0x0050, text=»UPD320 CF A14,GDCCH GET ATTRIBUTE CHAR«, t00=0x002d, t01=0x0086}
0x46f8…4710 Head {h00=0x0014, h01=0x0050, text=» LC A2,TEBCDI,A2«, t00=0x002d, t01=0x00b4}
0x4710…473e Head {h00=0x002a, h01=0x0050, text=» LDR A1,A2 COMPOSE PTS ATTRIBUTE CHAR «, t00=0x002d, t01=0x00cc}
0x473e…4750 Head {h00=0x000e, h01=0x0050, text=» ANK A1,1 «, t00=0x002d, t01=0x00fa}
0x4750…4762 Head {h00=0x000e, h01=0x0050, text=» SRL A2,1 «, t00=0x002d, t01=0x010c}
0x4762…4776 Head {h00=0x0010, h01=0x0050, text=» ANK A2,/1E «, t00=0x002d, t01=0x011e}
0x4776…4788 Head {h00=0x000e, h01=0x0050, text=» ORR A2,A1«, t00=0x002d, t01=0x0132}
0x4788…479a Head {h00=0x000e, h01=0x0050, text=» RB UPD240«, t00=0x002d, t01=0x0144}
0x479a…47a4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002d, t01=0x0156}
0x47a4…47c0 Head {h00=0x0018, h01=0x0050, text=»* SET BUFFER ADDRESS«, t00=0x002d, t01=0x0160}
0x47c0…47ca Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002d, t01=0x017c}
0x47ca…47f2 Head {h00=0x0024, h01=0x0050, text=»UPD340 CF A14,GETADR GET ADDRESS«, t00=0x002d, t01=0x0186}
0x47f2…4808 Head {h00=0x0012, h01=0x0050, text=» CWK A1,LBVDU «, t00=0x002e, t01=0x001e}
0x4808…482e Head {h00=0x0022, h01=0x0050, text=» RB(NL) UPDEND INVALID ADDRESS«, t00=0x002e, t01=0x0034}
0x482e…485c Head {h00=0x002a, h01=0x0050, text=» LDK A5,1 INDICATE WCC,IC,RA 830105 NJ«, t00=0x002e, t01=0x005a}
0x485c…486e Head {h00=0x000e, h01=0x0050, text=» LDR A3,A1«, t00=0x002e, t01=0x0088}
0x486e…4880 Head {h00=0x000e, h01=0x0050, text=» LDR A4,A3«, t00=0x002e, t01=0x009a}
0x4880…4896 Head {h00=0x0012, h01=0x0050, text=» ADKL A4,BVDU «, t00=0x002e, t01=0x00ac}
0x4896…48ac Head {h00=0x0012, h01=0x0050, text=» ADR A4,TCABAS«, t00=0x002e, t01=0x00c2}
0x48ac…48be Head {h00=0x000e, h01=0x0050, text=» RB UPD220«, t00=0x002e, t01=0x00d8}
0x48be…48c8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002e, t01=0x00ea}
0x48c8…48e0 Head {h00=0x0014, h01=0x0050, text=»* INSERT CURSOR «, t00=0x002e, t01=0x00f4}
0x48e0…48ea Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002e, t01=0x010c}
0x48ea…491e Head {h00=0x0030, h01=0x0050, text=»UPD360 ST A3,PCURS,TCABAS SET NEW CURSOR POS«, t00=0x002e, t01=0x0116}
0x491e…4946 Head {h00=0x0024, h01=0x0050, text=» LDK A5,1 INDICATE WCC, IC OR RA«, t00=0x002e, t01=0x014a}
0x4946…4958 Head {h00=0x000e, h01=0x0050, text=» RB UPD220«, t00=0x002e, t01=0x0172}
0x4958…4966 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x002e, t01=0x0184}
0x4966…4970 (47, 0, 400) Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002f, t01=0x0004}
0x4970…4986 Head {h00=0x0012, h01=0x0050, text=»* PROGRAM TAB «, t00=0x002f, t01=0x000e}
0x4986…4990 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002f, t01=0x0024}
0x4990…49a8 Head {h00=0x0014, h01=0x0050, text=»UPD400 LDR A5,A5«, t00=0x002f, t01=0x002e}
0x49a8…49d6 Head {h00=0x002a, h01=0x0050, text=» RF(NZ) UPD430 PT AFTER WCC, IC OR RA «, t00=0x002f, t01=0x0046}
0x49d6…4a0a Head {h00=0x0030, h01=0x0050, text=» LDK A1,NULL+/80 FILL CURRENT FIELD BY NULLS«, t00=0x002f, t01=0x0074}
0x4a0a…4a1e Head {h00=0x0010, h01=0x0050, text=»UPD410 EQU *«, t00=0x002f, t01=0x00a8}
0x4a1e…4a30 Head {h00=0x000e, h01=0x0050, text=» LDK A5,0 «, t00=0x002f, t01=0x00bc}
0x4a30…4a46 Head {h00=0x0012, h01=0x0050, text=» CWK A3,LBVDU «, t00=0x002f, t01=0x00ce}
0x4a46…4a6a Head {h00=0x0020, h01=0x0050, text=» RB(NL) UPD210 END OF BUFFER«, t00=0x002f, t01=0x00e4}
0x4a6a…4a7c Head {h00=0x000e, h01=0x0050, text=» LCR A2,A4«, t00=0x002f, t01=0x0108}
0x4a7c…4a8e Head {h00=0x000e, h01=0x0050, text=» ADK A3,1 «, t00=0x002f, t01=0x011a}
0x4a8e…4aa2 Head {h00=0x0010, h01=0x0050, text=» ANK A2,/7F «, t00=0x002f, t01=0x012c}
0x4aa2…4ab6 Head {h00=0x0010, h01=0x0050, text=» CWK A2,/20 «, t00=0x002f, t01=0x0140}
0x4ab6…4acc Head {h00=0x0012, h01=0x0050, text=» RF(L) UPD415 «, t00=0x002f, t01=0x0154}
0x4acc…4aea Head {h00=0x001a, h01=0x0050, text=» SCR A1,A4 STORE NULL «, t00=0x002f, t01=0x016a}
0x4aea…4afc Head {h00=0x000e, h01=0x0050, text=» ADK A4,1 «, t00=0x002f, t01=0x0188}
0x4afc…4b0e Head {h00=0x000e, h01=0x0050, text=» RB UPD410«, t00=0x0030, t01=0x000a}
0x4b0e…4b22 Head {h00=0x0010, h01=0x0050, text=»UPD415 EQU *«, t00=0x0030, t01=0x001c}
0x4b22…4b34 Head {h00=0x000e, h01=0x0050, text=» ADK A4,1 «, t00=0x0030, t01=0x0030}
0x4b34…4b4e Head {h00=0x0016, h01=0x0050, text=»UPD420 ANK A2,/10 «, t00=0x0030, t01=0x0042}
0x4b4e…4b76 Head {h00=0x0024, h01=0x0050, text=» RB(Z) UPD220 UNPROTECTED FIELD «, t00=0x0030, t01=0x005c}
0x4b76…4b8a Head {h00=0x0010, h01=0x0050, text=»UPD430 EQU *«, t00=0x0030, t01=0x0084}
0x4b8a…4b9c Head {h00=0x000e, h01=0x0050, text=» LDK A5,0 «, t00=0x0030, t01=0x0098}
0x4b9c…4bb2 Head {h00=0x0012, h01=0x0050, text=» CWK A3,LBVDU «, t00=0x0030, t01=0x00aa}
0x4bb2…4be0 Head {h00=0x002a, h01=0x0050, text=» ABL(NL) UPD210 END OF DISPLAY BUFFER «, t00=0x0030, t01=0x00c0}
0x4be0…4bf2 Head {h00=0x000e, h01=0x0050, text=» LCR A2,A4«, t00=0x0030, t01=0x00ee}
0x4bf2…4c04 Head {h00=0x000e, h01=0x0050, text=» ADK A3,1 «, t00=0x0030, t01=0x0100}
0x4c04…4c16 Head {h00=0x000e, h01=0x0050, text=» ADK A4,1 «, t00=0x0030, t01=0x0112}
0x4c16…4c2a Head {h00=0x0010, h01=0x0050, text=» ANK A2,/7F «, t00=0x0030, t01=0x0124}
0x4c2a…4c3e Head {h00=0x0010, h01=0x0050, text=» CWK A2,/20 «, t00=0x0030, t01=0x0138}
0x4c3e…4c54 Head {h00=0x0012, h01=0x0050, text=» RB(L) UPD420 «, t00=0x0030, t01=0x014c}
0x4c54…4c66 Head {h00=0x000e, h01=0x0050, text=» RB UPD430«, t00=0x0030, t01=0x0162}
0x4c66…4c74 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0030, t01=0x0174}
0x4c74…4c7e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0030, t01=0x0182}
0x4c7e…4c9a Head {h00=0x0018, h01=0x0050, text=»* REPEAT TO ADDRESS «, t00=0x0030, t01=0x018c}
0x4c9a…4ca4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0031, t01=0x0018}
0x4ca4…4cd0 Head {h00=0x0028, h01=0x0050, text=»UPD500 CF A14,GETADR GET END ADDRESS«, t00=0x0031, t01=0x0022}
0x4cd0…4ce6 Head {h00=0x0012, h01=0x0050, text=» CWK A1,LBVDU «, t00=0x0031, t01=0x004e}
0x4ce6…4d0c Head {h00=0x0022, h01=0x0050, text=» RB(NL) UPDEND INVALID ADDRESS«, t00=0x0031, t01=0x0064}
0x4d0c…4d3a Head {h00=0x002a, h01=0x0050, text=» CF A14,GDCCH GET CHAR TO BE REPEATED «, t00=0x0031, t01=0x008a}
0x4d3a…4d62 Head {h00=0x0024, h01=0x0050, text=» LDK A5,1 INDICATE WCC, IC OR RA«, t00=0x0031, t01=0x00b8}
0x4d62…4d88 Head {h00=0x0022, h01=0x0050, text=» ORK A2,/80 INDICATE MODIFIED «, t00=0x0031, t01=0x00e0}
0x4d88…4d90 Head {h00=0x0004, h01=0x0050, t00=0x0031, t01=0x0106}
0x4d90…4dd6 Head {h00=0x0042, h01=0x0050, text=»**************************************************** 78-07-02«, t00=0x0031, t01=0x010e}
0x4dd6…4dde Head {h00=0x0004, h01=0x0050, t00=0x0031, t01=0x0154}
0x4dde…4e14 Head {h00=0x0032, h01=0x0050, text=» CWR A3,A1 NULLS TO ALL SCREEN POSITIONS ???? «, t00=0x0031, t01=0x015c}
0x4e14…4e30 (50, 0, 400) Head {h00=0x0018, h01=0x0050, text=» RF(E) UPD530 YES!!!«, t00=0x0032, t01=0x0004}
0x4e30…4e38 Head {h00=0x0004, h01=0x0050, t00=0x0032, t01=0x0020}
0x4e38…4e80 Head {h00=0x0044, h01=0x0050, text=»***************************************************** 78-07-02 «, t00=0x0032, t01=0x0028}
0x4e80…4e88 Head {h00=0x0004, h01=0x0050, t00=0x0032, t01=0x0070}
0x4e88…4ea4 Head {h00=0x0018, h01=0x0050, text=»UPD510 CWK A3,LBVDU «, t00=0x0032, t01=0x0078}
0x4ea4…4ecc Head {h00=0x0024, h01=0x0050, text=» RF(L) UPD520 NOT END OF SCREEN «, t00=0x0032, t01=0x0094}
0x4ecc…4ede Head {h00=0x000e, h01=0x0050, text=» LDK A3,0 «, t00=0x0032, t01=0x00bc}
0x4ede…4f00 Head {h00=0x001e, h01=0x0050, text=» LDKL A4,BVDU WRAP AROUND «, t00=0x0032, t01=0x00ce}
0x4f00…4f16 Head {h00=0x0012, h01=0x0050, text=» ADR A4,TCABAS«, t00=0x0032, t01=0x00f0}
0x4f16…4f2e Head {h00=0x0014, h01=0x0050, text=»UPD520 CWR A3,A1«, t00=0x0032, t01=0x0106}
0x4f2e…4f56 Head {h00=0x0024, h01=0x0050, text=» ABL(E) UPD220 ALL CHAR REPEATED«, t00=0x0032, t01=0x011e}
0x4f56…4f5e Head {h00=0x0004, h01=0x0050, t00=0x0032, t01=0x0146}
0x4f5e…4fa8 Head {h00=0x0046, h01=0x0050, text=»******************************************************* 78-07-02 «, t00=0x0032, t01=0x014e}
0x4fa8…4fbc Head {h00=0x0010, h01=0x0050, text=»UPD530 EQU *«, t00=0x0033, t01=0x0008}
0x4fbc…5004 Head {h00=0x0044, h01=0x0050, text=»***************************************************** 78-07-02 «, t00=0x0033, t01=0x001c}
0x5004…500c Head {h00=0x0004, h01=0x0050, t00=0x0033, t01=0x0064}
0x500c…501e Head {h00=0x000e, h01=0x0050, text=» SCR A2,A4«, t00=0x0033, t01=0x006c}
0x501e…5030 Head {h00=0x000e, h01=0x0050, text=» ADK A3,1 «, t00=0x0033, t01=0x007e}
0x5030…5042 Head {h00=0x000e, h01=0x0050, text=» ADK A4,1 «, t00=0x0033, t01=0x0090}
0x5042…5062 Head {h00=0x001c, h01=0x0050, text=» RB UPD510 NEXT POSITION«, t00=0x0033, t01=0x00a2}
0x5062…506c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0033, t01=0x00c2}
0x506c…5092 Head {h00=0x0022, h01=0x0050, text=»* ERASE UNPROTECTED TO ADDRESS«, t00=0x0033, t01=0x00cc}
0x5092…509c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0033, t01=0x00f2}
0x509c…50c8 Head {h00=0x0028, h01=0x0050, text=»UPD540 CF A14,GETADR GET END ADDRESS«, t00=0x0033, t01=0x00fc}
0x50c8…50de Head {h00=0x0012, h01=0x0050, text=» CWK A3,LBVDU «, t00=0x0033, t01=0x0128}
0x50de…5104 Head {h00=0x0022, h01=0x0050, text=» RB(NL) UPDEND INVALID ADDRESS«, t00=0x0033, t01=0x013e}
0x5104…5138 Head {h00=0x0030, h01=0x0050, text=» CF A14,ERASUA ERASE UNPROTECTED TO ADDRESS «, t00=0x0033, t01=0x0164}
0x5138…514c Head {h00=0x0010, h01=0x0050, text=» ABL UPD220 «, t00=0x0034, t01=0x0008}
0x514c…5162 Head {h00=0x0012, h01=0x0050, text=» IFT COPCMD=1 «, t00=0x0034, t01=0x001c}
0x5162…5170 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0034, t01=0x0032}
0x5170…517a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0034, t01=0x0040}
0x517a…5190 Head {h00=0x0012, h01=0x0050, text=»* COPY COMMAND«, t00=0x0034, t01=0x004a}
0x5190…519a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0034, t01=0x0060}
0x519a…51ae Head {h00=0x0010, h01=0x0050, text=»UPD600 EQU *«, t00=0x0034, t01=0x006a}
0x51ae…51cc Head {h00=0x001a, h01=0x0050, text=» LD A1,PRINTER,TCABAS «, t00=0x0034, t01=0x007e}
0x51cc…5204 Head {h00=0x0034, h01=0x0050, text=» ABL(Z) UPDEND COPYCOMMAND NOT SUPPORTED FOR VDU«, t00=0x0034, t01=0x009c}
0x5204…5216 Head {h00=0x000e, h01=0x0050, text=» ADK A7,1 «, t00=0x0034, t01=0x00d4}
0x5216…522c Head {h00=0x0012, h01=0x0050, text=» BYPASS CCC «, t00=0x0034, t01=0x00e6}
0x522c…5252 Head {h00=0x0022, h01=0x0050, text=» CF A14,GDCCH GET FROM DEVICE «, t00=0x0034, t01=0x00fc}
0x5252…5268 Head {h00=0x0012, h01=0x0050, text=» IFT EBCDIC=1 «, t00=0x0034, t01=0x0122}
0x5268…5292 Head {h00=0x0026, h01=0x0050, text=» LC A2,TEBCDI,A2 CONVERT TO EBCDIC«, t00=0x0034, t01=0x0138}
0x5292…529e Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0034, t01=0x0162}
0x529e…52b4 Head {h00=0x0012, h01=0x0050, text=» IFT COPCMD=1 «, t00=0x0034, t01=0x016e}
0x52b4…52da Head {h00=0x0022, h01=0x0050, text=» LD A3,6,CREBAS 'CB1' ADDRESS «, t00=0x0034, t01=0x0184}
0x52da…52f2 Head {h00=0x0014, h01=0x0050, text=» LDK A4,MF1KBV-1«, t00=0x0035, t01=0x001a}
0x52f2…5306 Head {h00=0x0010, h01=0x0050, text=» IFT DCLIN=2«, t00=0x0035, t01=0x0032}
0x5306…5326 Head {h00=0x001c, h01=0x0050, text=» LD A1,ECBBLK+DC2,TCABAS«, t00=0x0035, t01=0x0046}
0x5326…533c Head {h00=0x0012, h01=0x0050, text=» RF(NZ) UPD602«, t00=0x0035, t01=0x0066}
0x533c…5360 Head {h00=0x0020, h01=0x0050, text=» LDK A4,MF2KBV-1 MF # 2 READ«, t00=0x0035, t01=0x007c}
0x5360…536c Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0035, t01=0x00a0}
0x536c…5382 Head {h00=0x0012, h01=0x0050, text=» IFT COPCMD=1 «, t00=0x0035, t01=0x00ac}
0x5382…5396 Head {h00=0x0010, h01=0x0050, text=»UPD602 EQU *«, t00=0x0035, t01=0x00c2}
0x5396…53b8 Head {h00=0x001e, h01=0x0050, text=» ADR A4,A3 CONFIG TABLE -1«, t00=0x0035, t01=0x00d6}
0x53b8…53e2 Head {h00=0x0026, h01=0x0050, text=» LD A5,NBRKBV,A3 NUMBER OF KB/VDUS«, t00=0x0035, t01=0x00f8}
0x53e2…540e Head {h00=0x0028, h01=0x0050, text=» ADR A4,A5 LAST KB/VDU CONFIGURATED «, t00=0x0035, t01=0x0122}
0x540e…5422 Head {h00=0x0010, h01=0x0050, text=»UPD604 EQU *«, t00=0x0035, t01=0x014e}
0x5422…544a Head {h00=0x0024, h01=0x0050, text=» CCR A2,A4 DV-ADDRESS MATCHES ? «, t00=0x0035, t01=0x0162}
0x544a…5464 Head {h00=0x0016, h01=0x0050, text=» RF(E) UPD610 YES «, t00=0x0035, t01=0x018a}
0x5464…5476 Head {h00=0x000e, h01=0x0050, text=» SUK A4,1 «, t00=0x0036, t01=0x0014}
0x5476…5488 Head {h00=0x000e, h01=0x0050, text=» SUK A5,1 «, t00=0x0036, t01=0x0026}
0x5488…54a6 Head {h00=0x001a, h01=0x0050, text=» RB(P) UPD604 TRY NEXT«, t00=0x0036, t01=0x0038}
0x54a6…54c2 Head {h00=0x0018, h01=0x0050, text=» ABL UPDEND NO MATCH«, t00=0x0036, t01=0x0056}
0x54c2…54cc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0036, t01=0x0072}
0x54cc…54e0 Head {h00=0x0010, h01=0x0050, text=»UPD610 EQU *«, t00=0x0036, t01=0x007c}
0x54e0…54f8 Head {h00=0x0014, h01=0x0050, text=» LDKL A8,ECBICW «, t00=0x0036, t01=0x0090}
0x54f8…550e Head {h00=0x0012, h01=0x0050, text=» ADR A8,CREBAS«, t00=0x0036, t01=0x00a8}
0x550e…551a Head {h00=0x0008, h01=0x0050, text=» LKM«, t00=0x0036, t01=0x00be}
0x551a…554e Head {h00=0x0030, h01=0x0050, text=» DATA 10 ABORT LAST REQUEST IF NOT COMPLETED«, t00=0x0036, t01=0x00ca}
0x554e…5578 Head {h00=0x0026, h01=0x0050, text=» ADKL A5,/4B40 TASKID FROM DEVICE «, t00=0x0036, t01=0x00fe}
0x5578…55a0 Head {h00=0x0024, h01=0x0050, text=» LD A2,-4,CREBAS GET OWN TASKID «, t00=0x0036, t01=0x0128}
0x55a0…55ca Head {h00=0x0026, h01=0x0050, text=» ST A2,ICWORK,TCABAS PUT IN BUFFER«, t00=0x0036, t01=0x0150}
0x55ca…55f8 Head {h00=0x002a, h01=0x0050, text=» LDK A4,/0B WRITE ADDRESSED , NO WAIT «, t00=0x0036, t01=0x017a}
0x55f8…5614 Head {h00=0x0018, h01=0x0050, text=» LDK A6,2 REQ LENGTH«, t00=0x0037, t01=0x0018}
0x5614…562c Head {h00=0x0014, h01=0x0050, text=» LDKL A3,ICWORK «, t00=0x0037, t01=0x0034}
0x562c…5652 Head {h00=0x0022, h01=0x0050, text=» ADR A3,TCABAS BUFFER ADDRESS «, t00=0x0037, t01=0x004c}
0x5652…5678 Head {h00=0x0022, h01=0x0050, text=» CF A14,ICWRTE WRITE INTERTASK«, t00=0x0037, t01=0x0072}
0x5678…568c Head {h00=0x0010, h01=0x0050, text=» ABL UPDEND «, t00=0x0037, t01=0x0098}
0x568c…5698 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0037, t01=0x00ac}
0x5698…56a6 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0037, t01=0x00b8}
0x56a6…56b0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0037, t01=0x00c6}
0x56b0…56ba Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0037, t01=0x00d0}
0x56ba…56e4 Head {h00=0x0026, h01=0x0050, text=»* PROCESS WRITE CONTROL CHARACTER «, t00=0x0037, t01=0x00da}
0x56e4…56ee Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0037, t01=0x0104}
0x56ee…571c Head {h00=0x002a, h01=0x0050, text=»* ONLY RESET MDT BIT IS TAKEN CARE OF «, t00=0x0037, t01=0x010e}
0x571c…5726 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0037, t01=0x013c}
0x5726…5730 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0037, t01=0x0146}
0x5730…5752 Head {h00=0x001e, h01=0x0050, text=»PWCC CF A14,GDCCH GET WCC «, t00=0x0037, t01=0x0150}
0x5752…5774 Head {h00=0x001e, h01=0x0050, text=» LC A2,TEBCDI,A2 IN EBCDIC«, t00=0x0037, t01=0x0172}
0x5774…5796 (56, 0, 398) Head {h00=0x001e, h01=0x0050, text=» ST A2,WCC,TCABAS SAVE IT «, t00=0x0038, t01=0x0004}
0x5796…57aa Head {h00=0x0010, h01=0x0050, text=» ANK A2,/04 «, t00=0x0038, t01=0x0026}
0x57aa…57be Head {h00=0x0010, h01=0x0050, text=» RF(Z) PWCC1«, t00=0x0038, t01=0x003a}
0x57be…57dc Head {h00=0x001a, h01=0x0050, text=» LD A2,PRINTER,TCABAS «, t00=0x0038, t01=0x004e}
0x57dc…57f2 Head {h00=0x0012, h01=0x0050, text=» RF(NZ) PWCC1 «, t00=0x0038, t01=0x006c}
0x57f2…5806 Head {h00=0x0010, h01=0x0050, text=» LDR A10,A7 «, t00=0x0038, t01=0x0082}
0x5806…581e Head {h00=0x0014, h01=0x0050, text=» LDKL A8,ECBVDU «, t00=0x0038, t01=0x0096}
0x581e…5834 Head {h00=0x0012, h01=0x0050, text=» ADR A8,CREBAS«, t00=0x0038, t01=0x00ae}
0x5834…584c Head {h00=0x0014, h01=0x0050, text=» LD A2,ECBBA,A8 «, t00=0x0038, t01=0x00c4}
0x584c…5860 Head {h00=0x0010, h01=0x0050, text=» LDK A7,/2B «, t00=0x0038, t01=0x00dc}
0x5860…5878 Head {h00=0x0014, h01=0x0050, text=» SC A7,1,A2 =1 «, t00=0x0038, t01=0x00f0}
0x5878…5894 Head {h00=0x0018, h01=0x0050, text=» LDK A7,/07 BELL =1 «, t00=0x0038, t01=0x0108}
0x5894…58ac Head {h00=0x0014, h01=0x0050, text=» SC A7,2,A2 =1 «, t00=0x0038, t01=0x0124}
0x58ac…58c4 Head {h00=0x0014, h01=0x0050, text=» SC A7,3,A2 =1 «, t00=0x0038, t01=0x013c}
0x58c4…58d6 Head {h00=0x000e, h01=0x0050, text=» LDK A7,4 «, t00=0x0038, t01=0x0154}
0x58d6…58ee Head {h00=0x0014, h01=0x0050, text=» ST A7,ECBRL,A8 «, t00=0x0038, t01=0x0166}
0x58ee…5902 Head {h00=0x0010, h01=0x0050, text=» LDK A7,/86 «, t00=0x0038, t01=0x017e}
0x5902…590e (57, 0, 400) Head {h00=0x0008, h01=0x0050, text=» LKM«, t00=0x0039, t01=0x0004}
0x590e…591e Head {h00=0x000c, h01=0x0050, text=» DATA 1 «, t00=0x0039, t01=0x0010}
0x591e…593a Head {h00=0x0018, h01=0x0050, text=» LD A8,ECBDCC,TCABAS«, t00=0x0039, t01=0x0020}
0x593a…594e Head {h00=0x0010, h01=0x0050, text=» LDR A7,A10 «, t00=0x0039, t01=0x003c}
0x594e…5962 Head {h00=0x0010, h01=0x0050, text=»PWCC1 EQU * «, t00=0x0039, t01=0x0050}
0x5962…597c Head {h00=0x0016, h01=0x0050, text=» LD A2,WCC,TCABAS «, t00=0x0039, t01=0x0064}
0x597c…598e Head {h00=0x000e, h01=0x0050, text=» ANK A2,1 «, t00=0x0039, t01=0x007e}
0x598e…59b2 Head {h00=0x0020, h01=0x0050, text=» RF(NZ) RESMDT RESET ALL MDT«, t00=0x0039, t01=0x0090}
0x59b2…59d2 Head {h00=0x001c, h01=0x0050, text=»PWCC10 RTN A14 NO ACTION«, t00=0x0039, t01=0x00b4}
0x59d2…59dc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0039, t01=0x00d4}
0x59dc…59e6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0039, t01=0x00de}
0x59e6…5a02 Head {h00=0x0018, h01=0x0050, text=»* RESET ALL MDT BITS«, t00=0x0039, t01=0x00e8}
0x5a02…5a0c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0039, t01=0x0104}
0x5a0c…5a16 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0039, t01=0x010e}
0x5a16…5a2e Head {h00=0x0014, h01=0x0050, text=»RESMDT LDK A3,0 «, t00=0x0039, t01=0x0118}
0x5a2e…5a44 Head {h00=0x0012, h01=0x0050, text=» LDKL A4,BVDU «, t00=0x0039, t01=0x0130}
0x5a44…5a5a Head {h00=0x0012, h01=0x0050, text=» ADR A4,TCABAS«, t00=0x0039, t01=0x0146}
0x5a5a…5a76 Head {h00=0x0018, h01=0x0050, text=»RESM10 CWK A3,LBVDU «, t00=0x0039, t01=0x015c}
0x5a76…5a96 Head {h00=0x001c, h01=0x0050, text=» RB(NL) PWCC10 ALL DONE «, t00=0x0039, t01=0x0178}
0x5a96…5ab2 Head {h00=0x0018, h01=0x0050, text=» LCR A2,A4 GET CHAR «, t00=0x003a, t01=0x0008}
0x5ab2…5ac6 Head {h00=0x0010, h01=0x0050, text=» ANK A2,/60 «, t00=0x003a, t01=0x0024}
0x5ac6…5aea Head {h00=0x0020, h01=0x0050, text=» RF(NZ) RESM20 NO ATTRIBUTE «, t00=0x003a, t01=0x0038}
0x5aea…5afc Head {h00=0x000e, h01=0x0050, text=» LCR A2,A4«, t00=0x003a, t01=0x005c}
0x5afc…5b1a Head {h00=0x001a, h01=0x0050, text=» ANK A2,/FE RESET MDT «, t00=0x003a, t01=0x006e}
0x5b1a…5b2c Head {h00=0x000e, h01=0x0050, text=» SCR A2,A4«, t00=0x003a, t01=0x008c}
0x5b2c…5b44 Head {h00=0x0014, h01=0x0050, text=»RESM20 ADK A3,1 «, t00=0x003a, t01=0x009e}
0x5b44…5b56 Head {h00=0x000e, h01=0x0050, text=» ADK A4,1 «, t00=0x003a, t01=0x00b6}
0x5b56…5b68 Head {h00=0x000e, h01=0x0050, text=» RB RESM10«, t00=0x003a, t01=0x00c8}
0x5b68…5b76 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x003a, t01=0x00da}
0x5b76…5b80 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003a, t01=0x00e8}
0x5b80…5b8a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003a, t01=0x00f2}
0x5b8a…5ba8 Head {h00=0x001a, h01=0x0050, text=»* ERASE ENTIRE SCREEN «, t00=0x003a, t01=0x00fc}
0x5ba8…5bb2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003a, t01=0x011a}
0x5bb2…5bbc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003a, t01=0x0124}
0x5bbc…5bd2 Head {h00=0x0012, h01=0x0050, text=»ERASE LDK A3,0«, t00=0x003a, t01=0x012e}
0x5bd2…5be8 Head {h00=0x0012, h01=0x0050, text=» LDKL A4,BVDU «, t00=0x003a, t01=0x0144}
0x5be8…5bfe Head {h00=0x0012, h01=0x0050, text=» ADR A4,TCABAS«, t00=0x003a, t01=0x015a}
0x5bfe…5c12 Head {h00=0x0010, h01=0x0050, text=» LDK A2,NULL«, t00=0x003a, t01=0x0170}
0x5c12…5c2e Head {h00=0x0018, h01=0x0050, text=»ERAS20 CWK A3,LBVDU «, t00=0x003a, t01=0x0184}
0x5c2e…5c50 Head {h00=0x001e, h01=0x0050, text=» RF(NL) ERAS25 ALL ERASED «, t00=0x003b, t01=0x0010}
0x5c50…5c62 Head {h00=0x000e, h01=0x0050, text=» SCR A2,A4«, t00=0x003b, t01=0x0032}
0x5c62…5c74 Head {h00=0x000e, h01=0x0050, text=» ADK A3,1 «, t00=0x003b, t01=0x0044}
0x5c74…5c86 Head {h00=0x000e, h01=0x0050, text=» ADK A4,1 «, t00=0x003b, t01=0x0056}
0x5c86…5c98 Head {h00=0x000e, h01=0x0050, text=» RB ERAS20«, t00=0x003b, t01=0x0068}
0x5c98…5cc8 Head {h00=0x002c, h01=0x0050, text=»ERAS25 CM PCURS,TCABAS RESET CURSOR POS «, t00=0x003b, t01=0x007a}
0x5cc8…5ce0 Head {h00=0x0014, h01=0x0050, text=» LDKL A1,LBVDU+1«, t00=0x003b, t01=0x00aa}
0x5ce0…5d14 Head {h00=0x0030, h01=0x0050, text=» ST A1,CURATT,TCABAS INDICATE UNFORM. SCREEN«, t00=0x003b, t01=0x00c2}
0x5d14…5d2e Head {h00=0x0016, h01=0x0050, text=» CM ATTRIB,TCABAS «, t00=0x003b, t01=0x00f6}
0x5d2e…5d5e Head {h00=0x002c, h01=0x0050, text=» LD A1,PRINTER,TCABAS CHECK DEVISE TYPE «, t00=0x003b, t01=0x0110}
0x5d5e…5d8a Head {h00=0x0028, h01=0x0050, text=» RF(NZ) ERAEND PRINTER, NOT DISPLAY «, t00=0x003b, t01=0x0140}
0x5d8a…5db6 Head {h00=0x0028, h01=0x0050, text=» STR A7,A14 SAVE A7 AND A8 ON STACK «, t00=0x003b, t01=0x016c}
0x5db6…5dcc Head {h00=0x0012, h01=0x0050, text=» ST A8,-2,A14 «, t00=0x003c, t01=0x0008}
0x5dcc…5de4 Head {h00=0x0014, h01=0x0050, text=» LDKL A8,ECBVDU «, t00=0x003c, t01=0x001e}
0x5de4…5e02 Head {h00=0x001a, h01=0x0050, text=» ADR A8,CREBAS VDUECB «, t00=0x003c, t01=0x0036}
0x5e02…5e28 Head {h00=0x0022, h01=0x0050, text=» LDK A7,'1' ERASE CONTROL CHAR«, t00=0x003c, t01=0x0054}
0x5e28…5e44 Head {h00=0x0018, h01=0x0050, text=» LD A1,ECBBA,A8 =1 «, t00=0x003c, t01=0x007a}
0x5e44…5e5c Head {h00=0x0014, h01=0x0050, text=» SC A7,1,A1 =1 «, t00=0x003c, t01=0x0096}
0x5e5c…5e6e Head {h00=0x000e, h01=0x0050, text=» LDK A7,2 «, t00=0x003c, t01=0x00ae}
0x5e6e…5e94 Head {h00=0x0022, h01=0x0050, text=» ST A7,ECBRL,A8 REQ LENGTH = 2«, t00=0x003c, t01=0x00c0}
0x5e94…5eae Head {h00=0x0016, h01=0x0050, text=» LDK A7,/86 WRITE «, t00=0x003c, t01=0x00e6}
0x5eae…5eba Head {h00=0x0008, h01=0x0050, text=» LKM«, t00=0x003c, t01=0x0100}
0x5eba…5eca Head {h00=0x000c, h01=0x0050, text=» DATA 1 «, t00=0x003c, t01=0x010c}
0x5eca…5ee0 Head {h00=0x0012, h01=0x0050, text=» LD A8,-2,A14 «, t00=0x003c, t01=0x011c}
0x5ee0…5f06 Head {h00=0x0022, h01=0x0050, text=» LDR* A7,A14 RESTORE A7 AND A8«, t00=0x003c, t01=0x0132}
0x5f06…5f1c Head {h00=0x0012, h01=0x0050, text=»ERAEND RTN A14«, t00=0x003c, t01=0x0158}
0x5f1c…5f2a Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x003c, t01=0x016e}
0x5f2a…5f34 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003c, t01=0x017c}
0x5f34…5f3e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003c, t01=0x0186}
0x5f3e…5f5e Head {h00=0x001c, h01=0x0050, text=»* ERASE ALL UNPROTECTED «, t00=0x003c, t01=0x0190}
0x5f5e…5f68 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003d, t01=0x0020}
0x5f68…5f72 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003d, t01=0x002a}
0x5f72…5f8a Head {h00=0x0014, h01=0x0050, text=»ERASUP LDK A2,2 «, t00=0x003d, t01=0x0034}
0x5f8a…5fbc Head {h00=0x002e, h01=0x0050, text=» ST A2,WCC,TCABAS SET KEYBOARD RESTORE BIT«, t00=0x003d, t01=0x004c}
0x5fbc…5ff2 Head {h00=0x0032, h01=0x0050, text=» SUR A1,A1 INDICATE ATT IN LAST SCREEN POS DK «, t00=0x003d, t01=0x007e}
0x5ff2…6004 Head {h00=0x000e, h01=0x0050, text=» LDK A3,0 «, t00=0x003d, t01=0x00b4}
0x6004…601a Head {h00=0x0012, h01=0x0050, text=» LDKL A4,BVDU «, t00=0x003d, t01=0x00c6}
0x601a…6030 Head {h00=0x0012, h01=0x0050, text=» ADR A4,TCABAS«, t00=0x003d, t01=0x00dc}
0x6030…6064 Head {h00=0x0030, h01=0x0050, text=» CM PCURS,TCABAS FIND FIRST UNPROTECTED POS «, t00=0x003d, t01=0x00f2}
0x6064…60b0 Head {h00=0x0048, h01=0x0050, text=»********************************************************************«, t00=0x003d, t01=0x0126}
0x60b0…60e0 Head {h00=0x002c, h01=0x0050, text=» LC A2,1919,A4 GET LAST SCREEN CHARACTER«, t00=0x003d, t01=0x0172}
0x60e0…60f4 Head {h00=0x0010, h01=0x0050, text=» ANK A2,/7F «, t00=0x003e, t01=0x0012}
0x60f4…6116 Head {h00=0x001e, h01=0x0050, text=» CWK A2,/20 ATTRIBUTE ??? «, t00=0x003e, t01=0x0026}
0x6116…613e Head {h00=0x0024, h01=0x0050, text=» RF(L) ERU:01 YES!! WE GOT IT!! «, t00=0x003e, t01=0x0048}
0x613e…6172 Head {h00=0x0030, h01=0x0050, text=» LDK A1,1 ATTRIBUTE NOT IN LAST SCREEN POS. «, t00=0x003e, t01=0x0070}
0x6172…61b2 Head {h00=0x003c, h01=0x0050, text=»********************************************************«, t00=0x003e, t01=0x00a4}
0x61b2…61ce Head {h00=0x0018, h01=0x0050, text=»ERASU1 CWK A3,LBVDU «, t00=0x003e, t01=0x00e4}
0x61ce…61e4 Head {h00=0x0012, h01=0x0050, text=» RF(NL) ERASU2«, t00=0x003e, t01=0x0100}
0x61e4…6200 Head {h00=0x0018, h01=0x0050, text=» LCR A2,A4 GET CHAR «, t00=0x003e, t01=0x0116}
0x6200…6214 Head {h00=0x0010, h01=0x0050, text=» ANK A2,/7F «, t00=0x003e, t01=0x0132}
0x6214…6226 Head {h00=0x000e, h01=0x0050, text=» ADK A3,1 «, t00=0x003e, t01=0x0146}
0x6226…6238 Head {h00=0x000e, h01=0x0050, text=» ADK A4,1 «, t00=0x003e, t01=0x0158}
0x6238…624c Head {h00=0x0010, h01=0x0050, text=» CWK A2,/20 «, t00=0x003e, t01=0x016a}
0x624c…6270 Head {h00=0x0020, h01=0x0050, text=» RB(NL) ERASU1 NO ATTRIBUTE «, t00=0x003e, t01=0x017e}
0x6270…6284 Head {h00=0x0010, h01=0x0050, text=»ERU:01 EQU *«, t00=0x003f, t01=0x0012}
0x6284…6298 Head {h00=0x0010, h01=0x0050, text=» ANK A2,/10 «, t00=0x003f, t01=0x0026}
0x6298…62b8 Head {h00=0x001c, h01=0x0050, text=» RB(NZ) ERASU1 PROTECTED«, t00=0x003f, t01=0x003a}
0x62b8…62e6 Head {h00=0x002a, h01=0x0050, text=» ST A3,PCURS,TCABAS SET NEW CURSOR POS«, t00=0x003f, t01=0x005a}
0x62e6…62f8 Head {h00=0x000e, h01=0x0050, text=» LDR A1,A1«, t00=0x003f, t01=0x0088}
0x62f8…632c Head {h00=0x0030, h01=0x0050, text=» RF(Z) ERASU3 ATTRIBUTE IN LAST SCREEN POS. «, t00=0x003f, t01=0x009a}
0x632c…6344 Head {h00=0x0014, h01=0x0050, text=»ERASU2 LDK A3,0 «, t00=0x003f, t01=0x00ce}
0x6344…635a Head {h00=0x0012, h01=0x0050, text=» LDKL A4,BVDU «, t00=0x003f, t01=0x00e6}
0x635a…6370 Head {h00=0x0012, h01=0x0050, text=» ADR A4,TCABAS«, t00=0x003f, t01=0x00fc}
0x6370…6382 Head {h00=0x000e, h01=0x0050, text=» RF ERASU4«, t00=0x003f, t01=0x0112}
0x6382…6396 Head {h00=0x0010, h01=0x0050, text=»ERASU3 EQU *«, t00=0x003f, t01=0x0124}
0x6396…63a8 Head {h00=0x000e, h01=0x0050, text=» LDR A3,A3«, t00=0x003f, t01=0x0138}
0x63a8…63e2 Head {h00=0x0036, h01=0x0050, text=» RF(Z) ERASU4 UNPROTECTED ATT. IN LAST SCREEN POS.«, t00=0x003f, t01=0x014a}
0x63e2…640a Head {h00=0x0024, h01=0x0050, text=» SUK A3,1 GET BACK TO ATTRIBUTE «, t00=0x003f, t01=0x0184}
0x640a…6428 Head {h00=0x001a, h01=0x0050, text=» SUK A4,1 - " -«, t00=0x0040, t01=0x001c}
0x6428…643c Head {h00=0x0010, h01=0x0050, text=»ERASU4 EQU *«, t00=0x0040, t01=0x003a}
0x643c…6462 Head {h00=0x0022, h01=0x0050, text=» LDKL A1,/0F00 (LDK A1,0) DK3 «, t00=0x0040, t01=0x004e}
0x6462…6486 Head {h00=0x0020, h01=0x0050, text=» LDK A6,NULL+/80 ERASE CHAR «, t00=0x0040, t01=0x0074}
0x6486…6498 Head {h00=0x000e, h01=0x0050, text=» RF ERAS35«, t00=0x0040, t01=0x0098}
0x6498…64a6 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0040, t01=0x00aa}
0x64a6…64b0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0040, t01=0x00b8}
0x64b0…64ba Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0040, t01=0x00c2}
0x64ba…64ec Head {h00=0x002e, h01=0x0050, text=»* ERASE UNPROTECTED TO ADDRESS GIVEN IN A1«, t00=0x0040, t01=0x00cc}
0x64ec…64f6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0040, t01=0x00fe}
0x64f6…6500 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0040, t01=0x0108}
0x6500…652e Head {h00=0x002a, h01=0x0050, text=»ERASUA LDK A6,NULL+/80 ERASE CHARACTER«, t00=0x0040, t01=0x0112}
0x652e…6556 Head {h00=0x0024, h01=0x0050, text=» ******************* 78-09-11 «, t00=0x0040, t01=0x0140}
0x6556…657c Head {h00=0x0022, h01=0x0050, text=» CWK A3,LBVDU WRAP AROUND ??? «, t00=0x0040, t01=0x0168}
0x657c…6596 Head {h00=0x0016, h01=0x0050, text=» RF(L) ERAS:1 NO!!«, t00=0x0040, t01=0x018e}
0x6596…65b4 Head {h00=0x001a, h01=0x0050, text=» LDK A3,0 BUFFERINDEX «, t00=0x0041, t01=0x0018}
0x65b4…65ca Head {h00=0x0012, h01=0x0050, text=» LDKL A4,BVDU «, t00=0x0041, t01=0x0036}
0x65ca…65fa Head {h00=0x002c, h01=0x0050, text=» ADR A4,TCABAS ABSOLUTE BUFFER ADDRESS «, t00=0x0041, t01=0x004c}
0x65fa…6602 Head {h00=0x0004, h01=0x0050, t00=0x0041, t01=0x007c}
0x6602…663e Head {h00=0x0038, h01=0x0050, text=»ERAS:1 LDR A3,A3 START IN FIRST SCREEN POSITION ??? «, t00=0x0041, t01=0x0084}
0x663e…665a Head {h00=0x0018, h01=0x0050, text=» RF(NZ) ERAS35 NO!! «, t00=0x0041, t01=0x00c0}
0x665a…6686 Head {h00=0x0028, h01=0x0050, text=» LC A2,1919,A4 LAST BUFFER CHARACTER«, t00=0x0041, t01=0x00dc}
0x6686…669a Head {h00=0x0010, h01=0x0050, text=» ANK A2,/7F «, t00=0x0041, t01=0x0108}
0x669a…66c6 Head {h00=0x0028, h01=0x0050, text=» CWK A2,/20 ATTRIBUTE CHARACTER ??? «, t00=0x0041, t01=0x011c}
0x66c6…66e2 Head {h00=0x0018, h01=0x0050, text=» RF(NL) ERAS35 NO!!!«, t00=0x0041, t01=0x0148}
0x66e2…66f6 Head {h00=0x0010, h01=0x0050, text=» ANK A2,/10 «, t00=0x0041, t01=0x0164}
0x66f6…671c Head {h00=0x0022, h01=0x0050, text=» RF(NZ) ERAS70 PROTECTED FIELD«, t00=0x0041, t01=0x0178}
0x671c…6738 Head {h00=0x0018, h01=0x0050, text=»* LC A2,1919,A4 DK3«, t00=0x0042, t01=0x000e}
0x6738…6752 Head {h00=0x0016, h01=0x0050, text=»* ANK A2,/FE DK3 «, t00=0x0042, t01=0x002a}
0x6752…677c Head {h00=0x0026, h01=0x0050, text=»* SC A2,1919,A4 RESET MDT BIT DK3 «, t00=0x0042, t01=0x0044}
0x677c…678e Head {h00=0x000e, h01=0x0050, text=» RF ERAS35«, t00=0x0042, t01=0x006e}
0x678e…67b6 Head {h00=0x0024, h01=0x0050, text=» ******************** 78-09-11«, t00=0x0042, t01=0x0080}
0x67b6…67d2 Head {h00=0x0018, h01=0x0050, text=»ERAS30 CWK A3,LBVDU «, t00=0x0042, t01=0x00a8}
0x67d2…67fa Head {h00=0x0024, h01=0x0050, text=» RF(L) ERAS33 NOT END OF SCREEN «, t00=0x0042, t01=0x00c4}
0x67fa…680c Head {h00=0x000e, h01=0x0050, text=» LDK A3,0 «, t00=0x0042, t01=0x00ec}
0x680c…682e Head {h00=0x001e, h01=0x0050, text=» LDKL A4,BVDU WRAP AROUND «, t00=0x0042, t01=0x00fe}
0x682e…6844 Head {h00=0x0012, h01=0x0050, text=» ADR A4,TCABAS«, t00=0x0042, t01=0x0120}
0x6844…6858 Head {h00=0x0010, h01=0x0050, text=»ERAS33 EQU *«, t00=0x0042, t01=0x0136}
0x6858…687e Head {h00=0x0022, h01=0x0050, text=» CWK A1,/0F00 EUA COMMAND? DK3«, t00=0x0042, t01=0x014a}
0x687e…68a6 Head {h00=0x0024, h01=0x0050, text=» RF(L) ERAS34 NO, EUA ORDER DK3 «, t00=0x0042, t01=0x0170}
0x68a6…68d2 Head {h00=0x0028, h01=0x0050, text=» CWK A3,0 FINISHED EUA COMMAND? DK3 «, t00=0x0043, t01=0x0008}
0x68d2…68fa Head {h00=0x0024, h01=0x0050, text=» RF(NZ) ERAS35 NO, CONTINUE DK3 «, t00=0x0043, t01=0x0034}
0x68fa…691c Head {h00=0x001e, h01=0x0050, text=» LDK A1,0 YES FINISHED DK3«, t00=0x0043, t01=0x005c}
0x691c…6934 Head {h00=0x0014, h01=0x0050, text=» RB ERAEND DK3 «, t00=0x0043, t01=0x007e}
0x6934…694e Head {h00=0x0016, h01=0x0050, text=»ERAS34 EQU * DK3 «, t00=0x0043, t01=0x0096}
0x694e…6960 Head {h00=0x000e, h01=0x0050, text=» CWR A3,A1«, t00=0x0043, t01=0x00b0}
0x6960…698c Head {h00=0x0028, h01=0x0050, text=» RB(E) ERAEND ALL UNPROTECTED ERASED«, t00=0x0043, t01=0x00c2}
0x698c…69be Head {h00=0x002e, h01=0x0050, text=»ERAS35 LCR A2,A4 GET CHAR FROM VDU BUFFER «, t00=0x0043, t01=0x00ee}
0x69be…69d2 Head {h00=0x0010, h01=0x0050, text=» ANK A2,/7F «, t00=0x0043, t01=0x0120}
0x69d2…69e6 Head {h00=0x0010, h01=0x0050, text=» CWK A2,/20 «, t00=0x0043, t01=0x0134}
0x69e6…6a0a Head {h00=0x0020, h01=0x0050, text=» RF(L) ERAS50 ATTRIBUTE CHAR«, t00=0x0043, t01=0x0148}
0x6a0a…6a1e Head {h00=0x0010, h01=0x0050, text=» XRK A2,NULL«, t00=0x0043, t01=0x016c}
0x6a1e…6a40 Head {h00=0x001e, h01=0x0050, text=» RF(Z) ERAS40 ALREADY NULL«, t00=0x0043, t01=0x0180}
0x6a40…6a66 Head {h00=0x0022, h01=0x0050, text=» SCR A6,A4 STORE MODIFIED NULL«, t00=0x0044, t01=0x0012}
0x6a66…6a7e Head {h00=0x0014, h01=0x0050, text=»ERAS40 ADK A3,1 «, t00=0x0044, t01=0x0038}
0x6a7e…6a90 Head {h00=0x000e, h01=0x0050, text=» ADK A4,1 «, t00=0x0044, t01=0x0050}
0x6a90…6aa2 Head {h00=0x000e, h01=0x0050, text=» RB ERAS30«, t00=0x0044, t01=0x0062}
0x6aa2…6aba Head {h00=0x0014, h01=0x0050, text=»ERAS50 ADK A3,1 «, t00=0x0044, t01=0x0074}
0x6aba…6acc Head {h00=0x000e, h01=0x0050, text=» ADK A4,1 «, t00=0x0044, t01=0x008c}
0x6acc…6ae0 Head {h00=0x0010, h01=0x0050, text=» ANK A2,/10 «, t00=0x0044, t01=0x009e}
0x6ae0…6b06 Head {h00=0x0022, h01=0x0050, text=» RF(NZ) ERAS60 PROTECTED FIELD«, t00=0x0044, t01=0x00b2}
0x6b06…6b2c Head {h00=0x0022, h01=0x0050, text=» CWK A1,/0F00 EUA COMMAND? DK3«, t00=0x0044, t01=0x00d8}
0x6b2c…6b48 Head {h00=0x0018, h01=0x0050, text=» RB(L) ERAS30 NO DK3«, t00=0x0044, t01=0x00fe}
0x6b48…6b72 Head {h00=0x0026, h01=0x0050, text=»* EUA COMMAND: RESET MDT BIT DK3 «, t00=0x0044, t01=0x011a}
0x6b72…6b86 Head {h00=0x0010, h01=0x0050, text=» LC A2,-1,A4«, t00=0x0044, t01=0x0144}
0x6b86…6ba8 Head {h00=0x001e, h01=0x0050, text=» ANK A2,/FE RESET MDT BIT «, t00=0x0044, t01=0x0158}
0x6ba8…6bbc Head {h00=0x0010, h01=0x0050, text=» SC A2,-1,A4«, t00=0x0044, t01=0x017a}
0x6bbc…6bce Head {h00=0x000e, h01=0x0050, text=» RB ERAS30«, t00=0x0044, t01=0x018e}
0x6bce…6bea Head {h00=0x0018, h01=0x0050, text=»ERAS60 CWK A3,LBVDU «, t00=0x0045, t01=0x0010}
0x6bea…6c00 Head {h00=0x0012, h01=0x0050, text=» RF(L) ERAS65 «, t00=0x0045, t01=0x002c}
0x6c00…6c12 Head {h00=0x000e, h01=0x0050, text=» LDK A3,0 «, t00=0x0045, t01=0x0042}
0x6c12…6c34 Head {h00=0x001e, h01=0x0050, text=» LDKL A4,BVDU WRAP AROUND «, t00=0x0045, t01=0x0054}
0x6c34…6c4a Head {h00=0x0012, h01=0x0050, text=» ADR A4,TCABAS«, t00=0x0045, t01=0x0076}
0x6c4a…6c5e Head {h00=0x0010, h01=0x0050, text=»ERAS65 EQU *«, t00=0x0045, t01=0x008c}
0x6c5e…6c84 Head {h00=0x0022, h01=0x0050, text=» CWK A1,/0F00 EUA COMMAND? DK3«, t00=0x0045, t01=0x00a0}
0x6c84…6cac Head {h00=0x0024, h01=0x0050, text=» RF(L) ERAS67 NO, EUA ORDER DK3 «, t00=0x0045, t01=0x00c6}
0x6cac…6cd8 Head {h00=0x0028, h01=0x0050, text=» CWK A3,0 FINISHED EUA COMMAND? DK3 «, t00=0x0045, t01=0x00ee}
0x6cd8…6cfe Head {h00=0x0022, h01=0x0050, text=» RF(NZ) ERAS70 NO,CONTINUE DK3«, t00=0x0045, t01=0x011a}
0x6cfe…6d22 Head {h00=0x0020, h01=0x0050, text=» LDK A1,0 YYES, FINSHED DK3 «, t00=0x0045, t01=0x0140}
0x6d22…6d3a Head {h00=0x0014, h01=0x0050, text=» RB ERAEND DK3 «, t00=0x0045, t01=0x0164}
0x6d3a…6d54 Head {h00=0x0016, h01=0x0050, text=»ERAS67 EQU * DK3 «, t00=0x0045, t01=0x017c}
0x6d54…6d66 Head {h00=0x000e, h01=0x0050, text=» CWR A3,A1«, t00=0x0046, t01=0x0008}
0x6d66…6d92 Head {h00=0x0028, h01=0x0050, text=» RB(E) ERAEND ALL UNPROTECTED ERASED«, t00=0x0046, t01=0x001a}
0x6d92…6da6 Head {h00=0x0010, h01=0x0050, text=»ERAS70 EQU *«, t00=0x0046, t01=0x0046}
0x6da6…6db8 Head {h00=0x000e, h01=0x0050, text=» LCR A2,A4«, t00=0x0046, t01=0x005a}
0x6db8…6dcc Head {h00=0x0010, h01=0x0050, text=» ANK A2,/7F «, t00=0x0046, t01=0x006c}
0x6dcc…6de0 Head {h00=0x0010, h01=0x0050, text=» CWK A2,/20 «, t00=0x0046, t01=0x0080}
0x6de0…6e06 Head {h00=0x0022, h01=0x0050, text=» RB(L) ERAS50 ATTRIBUTE FOUND «, t00=0x0046, t01=0x0094}
0x6e06…6e18 Head {h00=0x000e, h01=0x0050, text=» ADK A3,1 «, t00=0x0046, t01=0x00ba}
0x6e18…6e2a Head {h00=0x000e, h01=0x0050, text=» ADK A4,1 «, t00=0x0046, t01=0x00cc}
0x6e2a…6e3c Head {h00=0x000e, h01=0x0050, text=» RB ERAS60«, t00=0x0046, t01=0x00de}
0x6e3c…6e4a Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0046, t01=0x00f0}
0x6e4a…6e54 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0046, t01=0x00fe}
0x6e54…6e5e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0046, t01=0x0108}
0x6e5e…6e82 Head {h00=0x0020, h01=0x0050, text=»* TRANSMIT PROGRAM ATTENTION«, t00=0x0046, t01=0x0112}
0x6e82…6e8c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0046, t01=0x0136}
0x6e8c…6e9c Head {h00=0x000c, h01=0x0050, text=»* A2=AID«, t00=0x0046, t01=0x0140}
0x6e9c…6ea6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0046, t01=0x0150}
0x6ea6…6eb0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0046, t01=0x015a}
0x6eb0…6ede Head {h00=0x002a, h01=0x0050, text=»TRPA CF A14,GTWBUF GET TRANSMIT BUFFER«, t00=0x0046, t01=0x0164}
0x6ede…6f02 (71, 0, 400) Head {h00=0x0020, h01=0x0050, text=»TRPA10 CF A14,PAID STORE AID«, t00=0x0047, t01=0x0004}
0x6f02…6f16 Head {h00=0x0010, h01=0x0050, text=»TRANS EQU * «, t00=0x0047, t01=0x0028}
0x6f16…6f3a Head {h00=0x0020, h01=0x0050, text=» CF A14,DCWRTE WRITE MESSAGE«, t00=0x0047, t01=0x003c}
0x6f3a…6f4e Head {h00=0x0010, h01=0x0050, text=»TR050 EQU * «, t00=0x0047, t01=0x0060}
0x6f4e…6f74 Head {h00=0x0022, h01=0x0050, text=» RTN A14 TRANSMISSION TROUBLE «, t00=0x0047, t01=0x0074}
0x6f74…6f8a Head {h00=0x0012, h01=0x0050, text=»TRRTN RTN A14 «, t00=0x0047, t01=0x009a}
0x6f8a…6f98 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0047, t01=0x00b0}
0x6f98…6fa2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0047, t01=0x00be}
0x6fa2…6fac Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0047, t01=0x00c8}
0x6fac…6fd0 Head {h00=0x0020, h01=0x0050, text=»* TRANSMIT PROGRAM FUNCTION «, t00=0x0047, t01=0x00d2}
0x6fd0…6fda Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0047, t01=0x00f6}
0x6fda…6fea Head {h00=0x000c, h01=0x0050, text=»* A2=AID«, t00=0x0047, t01=0x0100}
0x6fea…6ff4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0047, t01=0x0110}
0x6ff4…6ffe Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0047, t01=0x011a}
0x6ffe…702c Head {h00=0x002a, h01=0x0050, text=»TRPF CF A14,GTWBUF GET TRANSMIT BUFFER«, t00=0x0047, t01=0x0124}
0x702c…7050 Head {h00=0x0020, h01=0x0050, text=»TRPF10 CF A14,PAID STORE AID«, t00=0x0047, t01=0x0152}
0x7050…707a Head {h00=0x0026, h01=0x0050, text=» CF A14,CURSA STORE CURSOR ADDRESS«, t00=0x0047, t01=0x0176}
0x707a…709e Head {h00=0x0020, h01=0x0050, text=» CF A14,RDMOD READ MODIFIED «, t00=0x0048, t01=0x0010}
0x709e…70c4 Head {h00=0x0022, h01=0x0050, text=» RB TRANS SEND MODIFIED FIELDS«, t00=0x0048, t01=0x0034}
0x70c4…70d2 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0048, t01=0x005a}
0x70d2…70dc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0048, t01=0x0068}
0x70dc…70e6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0048, t01=0x0072}
0x70e6…710e Head {h00=0x0024, h01=0x0050, text=»* DISPLAY MODIFIED FIELDS ON VDU«, t00=0x0048, t01=0x007c}
0x710e…7118 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0048, t01=0x00a4}
0x7118…7122 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0048, t01=0x00ae}
0x7122…713c Head {h00=0x0016, h01=0x0050, text=»* A3=VDU POSITION «, t00=0x0048, t01=0x00b8}
0x713c…715a Head {h00=0x001a, h01=0x0050, text=»* A4=VDU IMAGE POINTER«, t00=0x0048, t01=0x00d2}
0x715a…717a Head {h00=0x001c, h01=0x0050, text=»* A5=MODIFIED INDICATOR «, t00=0x0048, t01=0x00f0}
0x717a…719e Head {h00=0x0020, h01=0x0050, text=»* A7=VDU LINE OUTPUT POINTER«, t00=0x0048, t01=0x0110}
0x719e…71b2 Head {h00=0x0010, h01=0x0050, text=»* A8=VDU ECB«, t00=0x0048, t01=0x0134}
0x71b2…71d6 Head {h00=0x0020, h01=0x0050, text=»* A9=VDU OUTPUT CHAR COUNTER«, t00=0x0048, t01=0x0148}
0x71d6…71e0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0048, t01=0x016c}
0x71e0…71ea Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0048, t01=0x0176}
0x71ea…7206 Head {h00=0x0018, h01=0x0050, text=»DISPL LDKL A8,ECBVDU«, t00=0x0048, t01=0x0180}
0x7206…721c Head {h00=0x0012, h01=0x0050, text=» ADR A8,CREBAS«, t00=0x0049, t01=0x000c}
0x721c…724a Head {h00=0x002a, h01=0x0050, text=» LDKL A1,/101 START FROM LINE 1 POS 1 «, t00=0x0049, t01=0x0022}
0x724a…7262 Head {h00=0x0014, h01=0x0050, text=» ST A1,ECBCW,A8 «, t00=0x0049, t01=0x0050}
0x7262…729e Head {h00=0x0038, h01=0x0050, text=» SUR A10,A10 RESET COUNT FOR INTENSIFIED DISPLAYING «, t00=0x0049, t01=0x0068}
0x729e…72b0 Head {h00=0x000e, h01=0x0050, text=» LDK A3,0 «, t00=0x0049, t01=0x00a4}
0x72b0…72c6 Head {h00=0x0012, h01=0x0050, text=» LDKL A4,BVDU «, t00=0x0049, t01=0x00b6}
0x72c6…72dc Head {h00=0x0012, h01=0x0050, text=» ADR A4,TCABAS«, t00=0x0049, t01=0x00cc}
0x72dc…730c Head {h00=0x002c, h01=0x0050, text=» CF A14,SPACES PUT SPACES IN LINE BUFFER«, t00=0x0049, t01=0x00e2}
0x730c…7354 Head {h00=0x0044, h01=0x0050, text=»****************************************************************«, t00=0x0049, t01=0x0112}
0x7354…738e Head {h00=0x0036, h01=0x0050, text=» LC A2,1919,A4 CHECK IF ATTRIBUTE IN LAST POSITION«, t00=0x0049, t01=0x015a}
0x738e…73a2 (74, 0, 400) Head {h00=0x0010, h01=0x0050, text=» ANK A2,/7F «, t00=0x004a, t01=0x0004}
0x73a2…73c4 Head {h00=0x001e, h01=0x0050, text=» CWK A2,/1F ATTRIBUTE ??? «, t00=0x004a, t01=0x0018}
0x73c4…73e0 Head {h00=0x0018, h01=0x0050, text=» RF(G) DIS100 NO!!! «, t00=0x004a, t01=0x003a}
0x73e0…73e8 Head {h00=0x0004, h01=0x0050, t00=0x004a, t01=0x0056}
0x73e8…73fa Head {h00=0x000e, h01=0x0050, text=» ANK A2,6 «, t00=0x004a, t01=0x005e}
0x73fa…740c Head {h00=0x000e, h01=0x0050, text=» XRK A2,6 «, t00=0x004a, t01=0x0070}
0x740c…744e Head {h00=0x003e, h01=0x0050, text=» ST A2,INTATT,TCABAS CHECK DISPLAY/NONDISPLAY INFORMATION «, t00=0x004a, t01=0x0082}
0x744e…7470 Head {h00=0x001e, h01=0x0050, text=» RF(Z) DIS210 NON DISPLAY «, t00=0x004a, t01=0x00c4}
0x7470…74a8 Head {h00=0x0034, h01=0x0050, text=» CF A14,INTCHK INSERT HIGH/LOW INTENS. IN BUFFER«, t00=0x004a, t01=0x00e6}
0x74a8…74f4 Head {h00=0x0048, h01=0x0050, text=»******************************************************************* «, t00=0x004a, t01=0x011e}
0x74f4…7508 Head {h00=0x0010, h01=0x0050, text=»DIS100 EQU *«, t00=0x004a, t01=0x016a}
0x7508…751e Head {h00=0x0012, h01=0x0050, text=» CWK A9,LLINE «, t00=0x004a, t01=0x017e}
0x751e…7544 (75, 0, 400) Head {h00=0x0022, h01=0x0050, text=» RF(L) DIS110 NOT END OF LINE «, t00=0x004b, t01=0x0004}
0x7544…756c Head {h00=0x0024, h01=0x0050, text=» CF A14,DISLIN DISPLAY THIS LINE«, t00=0x004b, t01=0x002a}
0x756c…759e Head {h00=0x002e, h01=0x0050, text=» CF A14,INTCHK CHECK IF LOW/HIGH INTENSITY«, t00=0x004b, t01=0x0052}
0x759e…75b2 Head {h00=0x0010, h01=0x0050, text=»DIS110 EQU *«, t00=0x004b, t01=0x0084}
0x75b2…75c8 Head {h00=0x0012, h01=0x0050, text=» CWK A3,LBVDU «, t00=0x004b, t01=0x0098}
0x75c8…75ea Head {h00=0x001e, h01=0x0050, text=» RF(NL) DIS900 ALL SCANNED«, t00=0x004b, t01=0x00ae}
0x75ea…7606 Head {h00=0x0018, h01=0x0050, text=» LCR A2,A4 GET CHAR «, t00=0x004b, t01=0x00d0}
0x7606…7648 Head {h00=0x003e, h01=0x0050, text=»************************************************ 78-08-15 «, t00=0x004b, t01=0x00ec}
0x7648…7650 Head {h00=0x0004, h01=0x0050, t00=0x004b, t01=0x012e}
0x7650…7676 Head {h00=0x0022, h01=0x0050, text=» CF A14,SET:M SET MODIFIED BIT«, t00=0x004b, t01=0x0136}
0x7676…767e Head {h00=0x0004, h01=0x0050, t00=0x004b, t01=0x015c}
0x767e…76c0 Head {h00=0x003e, h01=0x0050, text=»************************************************ 78-08-15 «, t00=0x004b, t01=0x0164}
0x76c0…76d4 Head {h00=0x0010, h01=0x0050, text=»DIS115 EQU *«, t00=0x004c, t01=0x0016}
0x76d4…76fa Head {h00=0x0022, h01=0x0050, text=» ANK A2,/7F RESET DISPLAY BIT «, t00=0x004c, t01=0x002a}
0x76fa…770c Head {h00=0x000e, h01=0x0050, text=» SCR A2,A4«, t00=0x004c, t01=0x0050}
0x770c…771e Head {h00=0x000e, h01=0x0050, text=» ADK A3,1 «, t00=0x004c, t01=0x0062}
0x771e…7730 Head {h00=0x000e, h01=0x0050, text=» ADK A4,1 «, t00=0x004c, t01=0x0074}
0x7730…7742 Head {h00=0x000e, h01=0x0050, text=» ADK A7,1 «, t00=0x004c, t01=0x0086}
0x7742…7754 Head {h00=0x000e, h01=0x0050, text=» ADKL A9,1«, t00=0x004c, t01=0x0098}
0x7754…7768 Head {h00=0x0010, h01=0x0050, text=» CWK A2,/20 «, t00=0x004c, t01=0x00aa}
0x7768…778c Head {h00=0x0020, h01=0x0050, text=» RF(L) DIS200 ATTRIBUTE CHAR«, t00=0x004c, t01=0x00be}
0x778c…77a0 Head {h00=0x0010, h01=0x0050, text=» CWK A2,NULL«, t00=0x004c, t01=0x00e2}
0x77a0…77d2 Head {h00=0x002e, h01=0x0050, text=» RB(E) DIS100 NULL EQUALS SPACE AT DISPLAY«, t00=0x004c, t01=0x00f6}
0x77d2…77e6 Head {h00=0x0010, h01=0x0050, text=» CWK A2,/7D «, t00=0x004c, t01=0x0128}
0x77e6…77fc Head {h00=0x0012, h01=0x0050, text=» RF(NE) DIS120«, t00=0x004c, t01=0x013c}
0x77fc…7810 Head {h00=0x0010, h01=0x0050, text=» LDK A2,/39 «, t00=0x004c, t01=0x0152}
0x7810…782a Head {h00=0x0016, h01=0x0050, text=»DIS120 CWK A2,/7E «, t00=0x004c, t01=0x0166}
0x782a…7840 Head {h00=0x0012, h01=0x0050, text=» RF(NE) DIS121«, t00=0x004c, t01=0x0180}
0x7840…7854 Head {h00=0x0010, h01=0x0050, text=» LDK A2,/35 «, t00=0x004d, t01=0x0008}
0x7854…786e Head {h00=0x0016, h01=0x0050, text=»DIS121 CWK A2,/7C «, t00=0x004d, t01=0x001c}
0x786e…7884 Head {h00=0x0012, h01=0x0050, text=» RF(NE) DIS122«, t00=0x004d, t01=0x0036}
0x7884…7898 Head {h00=0x0010, h01=0x0050, text=» LDK A2,/3C «, t00=0x004d, t01=0x004c}
0x7898…78ac Head {h00=0x0010, h01=0x0050, text=»DIS122 EQU *«, t00=0x004d, t01=0x0060}
0x78ac…78c8 Head {h00=0x0018, h01=0x0050, text=» CF A14,RFMDUP DK4 «, t00=0x004d, t01=0x0074}
0x78c8…7900 Head {h00=0x0034, h01=0x0050, text=» SC A2,-1,A7 STORE CHAR IN DISPLAY OUTPUT BUFFER«, t00=0x004d, t01=0x0090}
0x7900…7912 Head {h00=0x000e, h01=0x0050, text=» RB DIS100«, t00=0x004d, t01=0x00c8}
0x7912…792a Head {h00=0x0014, h01=0x0050, text=»DIS200 ANK A2,6 «, t00=0x004d, t01=0x00da}
0x792a…7950 Head {h00=0x0022, h01=0x0050, text=» XRK A2,6 CHECK IF NONDISPLAY «, t00=0x004d, t01=0x00f2}
0x7950…7986 Head {h00=0x0032, h01=0x0050, text=» ST A2,INTATT,TCABAS SAVE ATTRIBUTE CHARACTER «, t00=0x004d, t01=0x0118}
0x7986…79a8 Head {h00=0x001e, h01=0x0050, text=» RF(Z) DIS210 NON DISPLAY «, t00=0x004d, t01=0x014e}
0x79a8…79ba Head {h00=0x000e, h01=0x0050, text=» ANK A2,4 «, t00=0x004d, t01=0x0170}
0x79ba…79de Head {h00=0x0020, h01=0x0050, text=» RF(Z) DIS205 HIGH INTENSITY«, t00=0x004d, t01=0x0182}
0x79de…7a00 Head {h00=0x001e, h01=0x0050, text=» LDK A2,/1E LOW INTENSITY «, t00=0x004e, t01=0x0016}
0x7a00…7a12 Head {h00=0x000e, h01=0x0050, text=» RF DIS206«, t00=0x004e, t01=0x0038}
0x7a12…7a26 Head {h00=0x0010, h01=0x0050, text=»DIS205 EQU *«, t00=0x004e, t01=0x004a}
0x7a26…7a3e Head {h00=0x0014, h01=0x0050, text=» LDK A2,/1F HIGH«, t00=0x004e, t01=0x005e}
0x7a3e…7a52 Head {h00=0x0010, h01=0x0050, text=»DIS206 EQU *«, t00=0x004e, t01=0x0076}
0x7a52…7a80 Head {h00=0x002a, h01=0x0050, text=» SC A2,-1,A7 STORE INTENSITY CHARACTER«, t00=0x004e, t01=0x008a}
0x7a80…7aa6 Head {h00=0x0022, h01=0x0050, text=» ADKL A10,1 INCREMENT COUNTER «, t00=0x004e, t01=0x00b8}
0x7aa6…7ab8 Head {h00=0x000e, h01=0x0050, text=» ADK A7,1 «, t00=0x004e, t01=0x00de}
0x7ab8…7aca Head {h00=0x000e, h01=0x0050, text=» RB DIS100«, t00=0x004e, t01=0x00f0}
0x7aca…7ade Head {h00=0x0010, h01=0x0050, text=»DIS210 EQU *«, t00=0x004e, t01=0x0102}
0x7ade…7af4 Head {h00=0x0012, h01=0x0050, text=» CWK A9,LLINE «, t00=0x004e, t01=0x0116}
0x7af4…7b0a Head {h00=0x0012, h01=0x0050, text=» RF(L) DIS220 «, t00=0x004e, t01=0x012c}
0x7b0a…7b32 Head {h00=0x0024, h01=0x0050, text=» CF A14,DISLIN DISPLAY THIS LINE«, t00=0x004e, t01=0x0142}
0x7b32…7b46 Head {h00=0x0010, h01=0x0050, text=»DIS220 EQU *«, t00=0x004e, t01=0x016a}
0x7b46…7b5c Head {h00=0x0012, h01=0x0050, text=» CWK A3,LBVDU «, t00=0x004e, t01=0x017e}
0x7b5c…7b80 (79, 0, 400) Head {h00=0x0020, h01=0x0050, text=» RF(NL) DIS900 ALL DISPLAYED«, t00=0x004f, t01=0x0004}
0x7b80…7b92 Head {h00=0x000e, h01=0x0050, text=» LCR A2,A4«, t00=0x004f, t01=0x0028}
0x7b92…7bd4 Head {h00=0x003e, h01=0x0050, text=»************************************************* 78-08-15«, t00=0x004f, t01=0x003a}
0x7bd4…7bdc Head {h00=0x0004, h01=0x0050, t00=0x004f, t01=0x007c}
0x7bdc…7c02 Head {h00=0x0022, h01=0x0050, text=» CF A14,SET:M SET MODIFIED BIT«, t00=0x004f, t01=0x0084}
0x7c02…7c0a Head {h00=0x0004, h01=0x0050, t00=0x004f, t01=0x00aa}
0x7c0a…7c4c Head {h00=0x003e, h01=0x0050, text=»************************************************ 78-08-15 «, t00=0x004f, t01=0x00b2}
0x7c4c…7c60 Head {h00=0x0010, h01=0x0050, text=»DIS225 EQU *«, t00=0x004f, t01=0x00f4}
0x7c60…7c86 Head {h00=0x0022, h01=0x0050, text=» ANK A2,/7F RESET DISPLAY BIT «, t00=0x004f, t01=0x0108}
0x7c86…7c98 Head {h00=0x000e, h01=0x0050, text=» SCR A2,A4«, t00=0x004f, t01=0x012e}
0x7c98…7caa Head {h00=0x000e, h01=0x0050, text=» ADK A3,1 «, t00=0x004f, t01=0x0140}
0x7caa…7cbc Head {h00=0x000e, h01=0x0050, text=» ADK A4,1 «, t00=0x004f, t01=0x0152}
0x7cbc…7cce Head {h00=0x000e, h01=0x0050, text=» ADK A7,1 «, t00=0x004f, t01=0x0164}
0x7cce…7ce0 Head {h00=0x000e, h01=0x0050, text=» ADKL A9,1«, t00=0x004f, t01=0x0176}
0x7ce0…7cf4 Head {h00=0x0010, h01=0x0050, text=» CWK A2,/20 «, t00=0x004f, t01=0x0188}
0x7cf4…7d1a Head {h00=0x0022, h01=0x0050, text=» RB(L) DIS200 ATTRIBUTE FOUND «, t00=0x0050, t01=0x000c}
0x7d1a…7d2c Head {h00=0x000e, h01=0x0050, text=» RB DIS210«, t00=0x0050, t01=0x0032}
0x7d2c…7d3a Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0050, t01=0x0044}
0x7d3a…7d44 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0050, t01=0x0052}
0x7d44…7d4e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0050, t01=0x005c}
0x7d4e…7d6c Head {h00=0x001a, h01=0x0050, text=»* POSITION THE CURSOR «, t00=0x0050, t01=0x0066}
0x7d6c…7d76 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0050, t01=0x0084}
0x7d76…7d80 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0050, t01=0x008e}
0x7d80…7d94 Head {h00=0x0010, h01=0x0050, text=»SETCUR EQU *«, t00=0x0050, t01=0x0098}
0x7d94…7db6 Head {h00=0x001e, h01=0x0050, text=»DIS900 LDK A1,2 REQ LENGTH«, t00=0x0050, t01=0x00ac}
0x7db6…7dd4 Head {h00=0x001a, h01=0x0050, text=»DIS905 ST A1,ECBRL,A8 «, t00=0x0050, t01=0x00ce}
0x7dd4…7dfe Head {h00=0x0026, h01=0x0050, text=» LD A1,PCURS,TCABAS GET CURSOR POS«, t00=0x0050, t01=0x00ec}
0x7dfe…7e28 Head {h00=0x0026, h01=0x0050, text=» LDKL A2,/101 START ON LIN 1 POS 1«, t00=0x0050, t01=0x0116}
0x7e28…7e40 Head {h00=0x0014, h01=0x0050, text=» ST A2,ECBCW,A8 «, t00=0x0050, t01=0x0140}
0x7e40…7e56 Head {h00=0x0012, h01=0x0050, text=» LDKL A2,/100 «, t00=0x0050, t01=0x0158}
0x7e56…7e72 Head {h00=0x0018, h01=0x0050, text=»DIS910 CWK A1,LLINE «, t00=0x0050, t01=0x016e}
0x7e72…7e88 Head {h00=0x0012, h01=0x0050, text=» RF(L) DIS920 «, t00=0x0050, t01=0x018a}
0x7e88…7ea0 Head {h00=0x0014, h01=0x0050, text=» ADS A2,ECBCW,A8«, t00=0x0051, t01=0x0010}
0x7ea0…7eb6 Head {h00=0x0012, h01=0x0050, text=» SUKL A1,LLINE«, t00=0x0051, t01=0x0028}
0x7eb6…7ec8 Head {h00=0x000e, h01=0x0050, text=» RB DIS910«, t00=0x0051, t01=0x003e}
0x7ec8…7ee6 Head {h00=0x001a, h01=0x0050, text=»DIS920 ADS A1,ECBCW,A8«, t00=0x0051, t01=0x0050}
0x7ee6…7f0e Head {h00=0x0024, h01=0x0050, text=» LDK A7,/8B SET CURSOR AND WRITE«, t00=0x0051, t01=0x006e}
0x7f0e…7f1a Head {h00=0x0008, h01=0x0050, text=» LKM«, t00=0x0051, t01=0x0096}
0x7f1a…7f2a Head {h00=0x000c, h01=0x0050, text=» DATA 1 «, t00=0x0051, t01=0x00a2}
0x7f2a…7f5e Head {h00=0x0030, h01=0x0050, text=» CM INTATT,TCABAS CLEAR INTENSITY ATTRIBUTE «, t00=0x0051, t01=0x00b2}
0x7f5e…7f6e Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0051, t01=0x00e6}
0x7f6e…7f7c Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0051, t01=0x00f6}
0x7f7c…7f86 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0051, t01=0x0104}
0x7f86…7f90 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0051, t01=0x010e}
0x7f90…7fc4 Head {h00=0x0030, h01=0x0050, text=»* WRITE ONE CHAR FROM A2 IN CURSOR POSITION «, t00=0x0051, t01=0x0118}
0x7fc4…7fce Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0051, t01=0x014c}
0x7fce…7fd8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0051, t01=0x0156}
0x7fd8…7ff4 Head {h00=0x0018, h01=0x0050, text=»WCHAR LD A1,ECBBA,A8«, t00=0x0051, t01=0x0160}
0x7ff4…800a Head {h00=0x0012, h01=0x0050, text=» CF A14,RFMDUP«, t00=0x0051, t01=0x017c}
0x800a…803e (82, 0, 400) Head {h00=0x0030, h01=0x0050, text=» SC A2,3,A1 STORE CHAR IN VDU OUTPUT BUFFER «, t00=0x0052, t01=0x0004}
0x803e…8050 Head {h00=0x000e, h01=0x0050, text=» LDK A1,4 «, t00=0x0052, t01=0x0038}
0x8050…8072 Head {h00=0x001e, h01=0x0050, text=» RB DIS905 REQ LENGTH = 3 «, t00=0x0052, t01=0x004a}
0x8072…807c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0052, t01=0x006c}
0x807c…80ca Head {h00=0x004a, h01=0x0050, text=»********************************************************************* «, t00=0x0052, t01=0x0076}
0x80ca…80d4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0052, t01=0x00c4}
0x80d4…8110 Head {h00=0x0038, h01=0x0050, text=»* REPLACE FM & DUP WITH '*' RESP. ';', IF PRESENT«, t00=0x0052, t01=0x00ce}
0x8110…812e Head {h00=0x001a, h01=0x0050, text=»* CHARACTER IN A2«, t00=0x0052, t01=0x010a}
0x812e…8138 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0052, t01=0x0128}
0x8138…8186 Head {h00=0x004a, h01=0x0050, text=»********************************************************************* «, t00=0x0052, t01=0x0132}
0x8186…8190 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0052, t01=0x0180}
0x8190…81a4 Head {h00=0x0010, h01=0x0050, text=»RFMDUP EQU *«, t00=0x0052, t01=0x018a}
0x81a4…81ba Head {h00=0x0012, h01=0x0050, text=» CWK A2,DUPCH «, t00=0x0053, t01=0x000e}
0x81ba…81d0 Head {h00=0x0012, h01=0x0050, text=» RF(NE) RFMD10«, t00=0x0053, t01=0x0024}
0x81d0…81e8 Head {h00=0x0014, h01=0x0050, text=» LDK A2,/2A DUP «, t00=0x0053, t01=0x003a}
0x81e8…81fc Head {h00=0x0010, h01=0x0050, text=»RFMD10 EQU *«, t00=0x0053, t01=0x0052}
0x81fc…8210 Head {h00=0x0010, h01=0x0050, text=» CWK A2,FMCH«, t00=0x0053, t01=0x0066}
0x8210…8226 Head {h00=0x0012, h01=0x0050, text=» RF(NE) RFMD20«, t00=0x0053, t01=0x007a}
0x8226…823a Head {h00=0x0010, h01=0x0050, text=» LDK A2,/3B «, t00=0x0053, t01=0x0090}
0x823a…824e Head {h00=0x0010, h01=0x0050, text=»RFMD20 EQU *«, t00=0x0053, t01=0x00a4}
0x824e…825e Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0053, t01=0x00b8}
0x825e…826c Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0053, t01=0x00c8}
0x826c…8276 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0053, t01=0x00d6}
0x8276…8280 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0053, t01=0x00e0}
0x8280…82ac Head {h00=0x0028, h01=0x0050, text=»* PUT SPACES TO DISPLAY LINE BUFFER «, t00=0x0053, t01=0x00ea}
0x82ac…82b6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0053, t01=0x0116}
0x82b6…82c0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0053, t01=0x0120}
0x82c0…82de Head {h00=0x001a, h01=0x0050, text=»SPACES LD A7,ECBBA,A8 «, t00=0x0053, t01=0x012a}
0x82de…82fe Head {h00=0x001c, h01=0x0050, text=» ADK A7,2 BUFFER ADDRESS«, t00=0x0053, t01=0x0148}
0x82fe…8320 Head {h00=0x001e, h01=0x0050, text=» LDKL A9,LLINE LINE LENGTH«, t00=0x0053, t01=0x0168}
0x8320…833c Head {h00=0x0018, h01=0x0050, text=» ADR A9,A9 DOUBLE IT«, t00=0x0053, t01=0x018a}
0x833c…8358 Head {h00=0x0018, h01=0x0050, text=» LDKL A2,' ' SPACES«, t00=0x0054, t01=0x0016}
0x8358…8374 Head {h00=0x0018, h01=0x0050, text=»SPAC10 SCR A2,A7 =1«, t00=0x0054, t01=0x0032}
0x8374…838c Head {h00=0x0014, h01=0x0050, text=» SC A2,1,A7 =1 «, t00=0x0054, t01=0x004e}
0x838c…839e Head {h00=0x000e, h01=0x0050, text=» ADK A7,2 «, t00=0x0054, t01=0x0066}
0x839e…83b0 Head {h00=0x000e, h01=0x0050, text=» SUKL A9,2«, t00=0x0054, t01=0x0078}
0x83b0…83c6 Head {h00=0x0012, h01=0x0050, text=» RB(P) SPAC10 «, t00=0x0054, t01=0x008a}
0x83c6…83ee Head {h00=0x0024, h01=0x0050, text=» LDK A2,0 CLEAR A2=CHAR REGISTER«, t00=0x0054, t01=0x00a0}
0x83ee…8418 Head {h00=0x0026, h01=0x0050, text=» LDK A5,0 RESET MODIFIED INDICATOR«, t00=0x0054, t01=0x00c8}
0x8418…8430 Head {h00=0x0014, h01=0x0050, text=» LD A7,ECBBA,A8 «, t00=0x0054, t01=0x00f2}
0x8430…8450 Head {h00=0x001c, h01=0x0050, text=» ADK A7,2 BUFFER ADDRESS«, t00=0x0054, t01=0x010a}
0x8450…847a Head {h00=0x0026, h01=0x0050, text=» SUR A9,A9 RESET LINE CHAR COUNTER«, t00=0x0054, t01=0x012a}
0x847a…848a Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0054, t01=0x0154}
0x848a…8498 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0054, t01=0x0164}
0x8498…84a2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0054, t01=0x0172}
0x84a2…84ac Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0054, t01=0x017c}
0x84ac…84d8 Head {h00=0x0028, h01=0x0050, text=»* DISPLAY LINE IF ANY MODIFICATIONS «, t00=0x0054, t01=0x0186}
0x84d8…84e2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0055, t01=0x0022}
0x84e2…84ec Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0055, t01=0x002c}
0x84ec…852e Head {h00=0x003e, h01=0x0050, text=»************************************************* 78-08-15«, t00=0x0055, t01=0x0036}
0x852e…8536 Head {h00=0x0004, h01=0x0050, t00=0x0055, t01=0x0078}
0x8536…854a Head {h00=0x0010, h01=0x0050, text=»DISLIN EQU *«, t00=0x0055, t01=0x0080}
0x854a…855c Head {h00=0x000e, h01=0x0050, text=» LDR A7,A5«, t00=0x0055, t01=0x0094}
0x855c…8584 Head {h00=0x0024, h01=0x0050, text=» ANK A5,/80 ANY MODIFICATIONS ??«, t00=0x0055, t01=0x00a6}
0x8584…85aa Head {h00=0x0022, h01=0x0050, text=» RF(Z) DISL10 NO MODIFICATIONS«, t00=0x0055, t01=0x00ce}
0x85aa…85bc Head {h00=0x000e, h01=0x0050, text=» LDK A1,2 «, t00=0x0055, t01=0x00f4}
0x85bc…85e8 Head {h00=0x0028, h01=0x0050, text=» XRK A7,/A0 ONLY SPACES IN BUFFER ??«, t00=0x0055, t01=0x0106}
0x85e8…8604 Head {h00=0x0018, h01=0x0050, text=» RF(Z) DIS:10 YES!! «, t00=0x0055, t01=0x0132}
0x8604…861c Head {h00=0x0014, h01=0x0050, text=» LDKL A1,LLINE+2«, t00=0x0055, t01=0x014e}
0x861c…864e Head {h00=0x002e, h01=0x0050, text=» ADR A1,A10 ADD NR OF INTENSITY CHARACTERS«, t00=0x0055, t01=0x0166}
0x864e…8662 Head {h00=0x0010, h01=0x0050, text=»DIS:10 EQU *«, t00=0x0056, t01=0x0008}
0x8662…86a2 Head {h00=0x003c, h01=0x0050, text=»*********************************************** 78-08-15«, t00=0x0056, t01=0x001c}
0x86a2…86c8 Head {h00=0x0022, h01=0x0050, text=» ST A1,ECBRL,A8 SET REQ LENGTH«, t00=0x0056, t01=0x005c}
0x86c8…86d0 Head {h00=0x0004, h01=0x0050, t00=0x0056, t01=0x0082}
0x86d0…86d8 Head {h00=0x0004, h01=0x0050, t00=0x0056, t01=0x008a}
0x86d8…8700 Head {h00=0x0024, h01=0x0050, text=» LDK A7,/8B SET CURSOR AND WRITE«, t00=0x0056, t01=0x0092}
0x8700…870c Head {h00=0x0008, h01=0x0050, text=» LKM«, t00=0x0056, t01=0x00ba}
0x870c…871c Head {h00=0x000c, h01=0x0050, text=» DATA 1 «, t00=0x0056, t01=0x00c6}
0x871c…872a Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0056, t01=0x00d6}
0x872a…8732 Head {h00=0x0004, h01=0x0050, t00=0x0056, t01=0x00e4}
0x8732…877e Head {h00=0x0048, h01=0x0050, text=»********************************************************************«, t00=0x0056, t01=0x00ec}
0x877e…8788 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0056, t01=0x0138}
0x8788…87bc Head {h00=0x0030, h01=0x0050, text=»* EXECUTE FAST OUTPUT TO BLANK REMAINIG PART«, t00=0x0056, t01=0x0142}
0x87bc…87d2 Head {h00=0x0012, h01=0x0050, text=»* OF THE LINE «, t00=0x0056, t01=0x0176}
0x87d2…87dc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0056, t01=0x018c}
0x87dc…8828 Head {h00=0x0048, h01=0x0050, text=»******************************************************************* «, t00=0x0057, t01=0x0008}
0x8828…8830 Head {h00=0x0004, h01=0x0050, t00=0x0057, t01=0x0054}
0x8830…8858 Head {h00=0x0024, h01=0x0050, text=» LD A1,ECBCW,A8 CURSOR POSITION «, t00=0x0057, t01=0x005c}
0x8858…887c Head {h00=0x0020, h01=0x0050, text=» ANK A1,X'FF' COLUMN NUMBER «, t00=0x0057, t01=0x0084}
0x887c…88a4 Head {h00=0x0024, h01=0x0050, text=»* SUK A1,81 LAST POSITION ??? DK«, t00=0x0057, t01=0x00a8}
0x88a4…88ca Head {h00=0x0022, h01=0x0050, text=» SUK A1,80 LAST POSITION ? DK «, t00=0x0057, t01=0x00d0}
0x88ca…8902 Head {h00=0x0034, h01=0x0050, text=»* RF(Z) DISL10 YES!! NO FAST OUTPUT THIS LINE DK«, t00=0x0057, t01=0x00f6}
0x8902…893a Head {h00=0x0034, h01=0x0050, text=» RF(NL) DISL10 YES, NO FAST OUTPUT THIS LINE DK «, t00=0x0057, t01=0x012e}
0x893a…8942 Head {h00=0x0004, h01=0x0050, t00=0x0057, t01=0x0166}
0x8942…8968 Head {h00=0x0022, h01=0x0050, text=» LD A1,ECBBA,A8 BUFFER ADRESS «, t00=0x0057, t01=0x016e}
0x8968…8998 (88, 0, 400) Head {h00=0x002c, h01=0x0050, text=» LDK A2,X'2B' DONT MOVE CURSOR ONE LINE «, t00=0x0058, t01=0x0004}
0x8998…89b0 Head {h00=0x0014, h01=0x0050, text=» SC A2,1,A1 =1 «, t00=0x0058, t01=0x0034}
0x89b0…89de Head {h00=0x002a, h01=0x0050, text=» LDKL A2,X'1420' FAST OUTPUT OF SPACES«, t00=0x0058, t01=0x004c}
0x89de…89f6 Head {h00=0x0014, h01=0x0050, text=» SC A2,3,A1 =1 «, t00=0x0058, t01=0x007a}
0x89f6…8a0c Head {h00=0x0012, h01=0x0050, text=» SRL A2,8 =1 «, t00=0x0058, t01=0x0092}
0x8a0c…8a24 Head {h00=0x0014, h01=0x0050, text=» SC A2,2,A1 =1 «, t00=0x0058, t01=0x00a8}
0x8a24…8a48 Head {h00=0x0020, h01=0x0050, text=» LDK A2,84 REQUESTED LENGTH «, t00=0x0058, t01=0x00c0}
0x8a48…8a60 Head {h00=0x0014, h01=0x0050, text=» ST A2,ECBRL,A8 «, t00=0x0058, t01=0x00e4}
0x8a60…8a82 Head {h00=0x001e, h01=0x0050, text=» LDK A7,X'86' WRITE ORDER «, t00=0x0058, t01=0x00fc}
0x8a82…8a8e Head {h00=0x0008, h01=0x0050, text=» LKM«, t00=0x0058, t01=0x011e}
0x8a8e…8a9e Head {h00=0x000c, h01=0x0050, text=» DATA 1 «, t00=0x0058, t01=0x012a}
0x8a9e…8aa6 Head {h00=0x0004, h01=0x0050, t00=0x0058, t01=0x013a}
0x8aa6…8aba Head {h00=0x0010, h01=0x0050, text=»DISL10 EQU *«, t00=0x0058, t01=0x0142}
0x8aba…8acc Head {h00=0x000e, h01=0x0050, text=» LDK A2,1 «, t00=0x0058, t01=0x0156}
0x8acc…8af8 Head {h00=0x0028, h01=0x0050, text=» SC A2,ECBCW+1,A8 POS 1 ON NEXT LINE«, t00=0x0058, t01=0x0168}
0x8af8…8b0e (89, 0, 400) Head {h00=0x0012, h01=0x0050, text=» LDKL A2,/100 «, t00=0x0059, t01=0x0004}
0x8b0e…8b3c Head {h00=0x002a, h01=0x0050, text=» ADS A2,ECBCW,A8 INCREMENT LINE NUMBER«, t00=0x0059, t01=0x001a}
0x8b3c…8b64 Head {h00=0x0024, h01=0x0050, text=» RB SPACES PUT SPACES TO BUFFER «, t00=0x0059, t01=0x0048}
0x8b64…8b6c Head {h00=0x0004, h01=0x0050, t00=0x0059, t01=0x0070}
0x8b6c…8b7a Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0059, t01=0x0078}
0x8b7a…8b82 Head {h00=0x0004, h01=0x0050, t00=0x0059, t01=0x0086}
0x8b82…8b8a Head {h00=0x0004, h01=0x0050, t00=0x0059, t01=0x008e}
0x8b8a…8bd2 Head {h00=0x0044, h01=0x0050, text=»****************************************************************«, t00=0x0059, t01=0x0096}
0x8bd2…8bdc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0059, t01=0x00de}
0x8bdc…8c1e Head {h00=0x003e, h01=0x0050, text=»* I N T C H K CHECK IF LINE SHOULD BE PRINTED WITH«, t00=0x0059, t01=0x00e8}
0x8c1e…8c52 Head {h00=0x0030, h01=0x0050, text=»* HIGH OR LOW INTENSITY «, t00=0x0059, t01=0x012a}
0x8c52…8c5c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0059, t01=0x015e}
0x8c5c…8caa Head {h00=0x004a, h01=0x0050, text=»**********************************************************************«, t00=0x0059, t01=0x0168}
0x8caa…8cb2 Head {h00=0x0004, h01=0x0050, t00=0x005a, t01=0x0026}
0x8cb2…8ce2 Head {h00=0x002c, h01=0x0050, text=»INTCHK SUR A10,A10 RESET INTENSITY COUNT«, t00=0x005a, t01=0x002e}
0x8ce2…8d16 Head {h00=0x0030, h01=0x0050, text=» LD A2,INTATT,TCABAS GET INTENSITY ATTRIBUTE«, t00=0x005a, t01=0x005e}
0x8d16…8d38 Head {h00=0x001e, h01=0x0050, text=» RF(Z) INTRTN NON DISPLAY «, t00=0x005a, t01=0x0092}
0x8d38…8d60 Head {h00=0x0024, h01=0x0050, text=» ANK A2,X'4' HIGH INTENSITY ??? «, t00=0x005a, t01=0x00b4}
0x8d60…8d7a Head {h00=0x0016, h01=0x0050, text=» RF(Z) INT:10 YES «, t00=0x005a, t01=0x00dc}
0x8d7a…8d82 Head {h00=0x0004, h01=0x0050, t00=0x005a, t01=0x00f6}
0x8d82…8da6 Head {h00=0x0020, h01=0x0050, text=» LDK A2,X'1E' LOW INTENSITY «, t00=0x005a, t01=0x00fe}
0x8da6…8dc8 Head {h00=0x001e, h01=0x0050, text=» RF INT:20 HIGH INTENSITY «, t00=0x005a, t01=0x0122}
0x8dc8…8dd0 Head {h00=0x0004, h01=0x0050, t00=0x005a, t01=0x0144}
0x8dd0…8dfa Head {h00=0x0026, h01=0x0050, text=»INT:10 LDK A2,X'1F' HIGH INTENSITY«, t00=0x005a, t01=0x014c}
0x8dfa…8e02 Head {h00=0x0004, h01=0x0050, t00=0x005a, t01=0x0176}
0x8e02…8e3e Head {h00=0x0038, h01=0x0050, text=»INT:20 SCR A2,A7 SAVE INTENSITY CHARACTER IN BUFFER «, t00=0x005a, t01=0x017e}
0x8e3e…8e68 Head {h00=0x0026, h01=0x0050, text=» ADK A7,1 INCREMENT BUFFER POINTER«, t00=0x005b, t01=0x002a}
0x8e68…8e96 Head {h00=0x002a, h01=0x0050, text=» ADKL A10,1 INTENSITY COUNT «, t00=0x005b, t01=0x0054}
0x8e96…8eb4 Head {h00=0x001a, h01=0x0050, text=»INTRTN RTN A14 RETURN «, t00=0x005b, t01=0x0082}
0x8eb4…8ebe Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005b, t01=0x00a0}
0x8ebe…8ecc Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x005b, t01=0x00aa}
0x8ecc…8ed4 Head {h00=0x0004, h01=0x0050, t00=0x005b, t01=0x00b8}
0x8ed4…8f1c Head {h00=0x0044, h01=0x0050, text=»****************************************************************«, t00=0x005b, t01=0x00c0}
0x8f1c…8f26 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005b, t01=0x0108}
0x8f26…8f6a Head {h00=0x0040, h01=0x0050, text=»* SET:M SET MODIFIED BIT IF CHARACTER HAS BEEN MODIFIED «, t00=0x005b, t01=0x0112}
0x8f6a…8f74 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005b, t01=0x0156}
0x8f74…8fbe Head {h00=0x0046, h01=0x0050, text=»******************************************************************«, t00=0x005b, t01=0x0160}
0x8fbe…8fc6 Head {h00=0x0004, h01=0x0050, t00=0x005c, t01=0x001a}
0x8fc6…8fde Head {h00=0x0014, h01=0x0050, text=»SET:M CWK A2,/20«, t00=0x005c, t01=0x0022}
0x8fde…9008 Head {h00=0x0026, h01=0x0050, text=» RF(L) SET:M2 ATTRIBUTE CHARACTER «, t00=0x005c, t01=0x003a}
0x9008…901c Head {h00=0x0010, h01=0x0050, text=» CWK A2,/7F «, t00=0x005c, t01=0x0064}
0x901c…9046 Head {h00=0x0026, h01=0x0050, text=» RF(E) SET:M2 UNMODIFIED ATTRIBUTE«, t00=0x005c, t01=0x0078}
0x9046…905a Head {h00=0x0010, h01=0x0050, text=» CWK A2,/FF «, t00=0x005c, t01=0x00a2}
0x905a…9086 Head {h00=0x0028, h01=0x0050, text=» RF(NE) SET:M1 NOT NULL OR ATTRIBUTE«, t00=0x005c, t01=0x00b6}
0x9086…90b2 Head {h00=0x0028, h01=0x0050, text=» ORK A5,/A0 MODIFIED NULL CHARACTER «, t00=0x005c, t01=0x00e2}
0x90b2…90c2 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x005c, t01=0x010e}
0x90c2…90ec Head {h00=0x0026, h01=0x0050, text=»SET:M1 ORR A5,A2 SET MODIFIED BIT «, t00=0x005c, t01=0x011e}
0x90ec…9102 Head {h00=0x0012, h01=0x0050, text=»SET:M2 RTN A14«, t00=0x005c, t01=0x0148}
0x9102…910e Head {h00=0x0008, h01=0x0050, text=» END«, t00=0x005c, t01=0x015e}
0x910e…9112 Head {h00=0x4004, h01=0x0000}
0x9112…9116 00 5c 01 6a ┆ j┆
0x9116…911e (93, 1, 8) 20 04 00 00 00 5d 00 04 ┆ ] ┆
0x911e…916e (94, 0, 400) 46 31 4f 4e 00 65 01 86 00 0e 00 50 5c 52 46 5c 4d 46 43 48 39 30 00 66 00 0c 00 10 00 50 4d 46 43 48 31 30 5c 45 51 55 5c 2a 00 66 00 1e 00 12 00 50 5c 43 46 5c 41 31 34 2c 4c 4d 46 32 4f 4e 00 66 00 32 00 10 00 50 4d 46 43 48 39 30 5c 45 ┆F1ON e P RF MFCH90 f PMFCH10 EQU * f P CF A14,LMF2ON f 2 PMFCH90 E┆
0x916e…91be 51 55 5c 2a 00 66 00 48 00 16 00 50 5c 53 54 5c 41 31 2c 4d 41 49 4e 2c 54 43 41 42 41 53 00 66 00 5c 00 0c 00 50 5c 52 54 4e 5c 41 31 34 00 66 00 76 00 08 00 50 5c 58 49 46 00 66 00 86 00 06 00 50 5c 20 00 66 00 92 00 06 00 50 2a 20 00 66 ┆QU * f H P ST A1,MAIN,TCABAS f P RTN A14 f v P XIF f P f P* f┆
0x91be…920e 00 9c 00 3c 00 50 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 00 66 00 a6 00 06 00 50 2a 20 00 66 00 e6 00 0c 00 50 ┆ < P******************************************************** f P* f P┆
0x920e…925e 2a 5c 43 4c 45 41 52 20 00 66 00 f0 00 06 00 50 2a 20 00 66 01 00 00 3a 00 50 2a 5c 50 52 4f 47 52 41 4d 20 41 54 54 45 4e 54 49 4f 4e 20 4b 45 59 20 57 48 49 43 48 20 43 41 55 53 45 53 20 41 4e 20 49 2f 4f 20 4f 50 45 52 41 54 49 4f 4e 20 ┆* CLEAR f P* f : P* PROGRAM ATTENTION KEY WHICH CAUSES AN I/O OPERATION ┆
0x925e…92ae 00 66 01 0a 00 38 00 50 2a 5c 41 4e 44 20 47 45 4e 45 52 41 54 45 20 41 4e 20 41 49 44 20 43 48 41 52 41 43 54 45 52 2e 20 54 48 45 20 45 4e 54 49 52 45 20 44 49 53 50 4c 41 59 20 00 66 01 48 00 3a 00 50 2a 5c 42 55 46 46 45 52 20 49 53 20 ┆ f 8 P* AND GENERATE AN AID CHARACTER. THE ENTIRE DISPLAY f H : P* BUFFER IS ┆
0x92ae…92fe (95, 0, 400) 43 4c 45 41 52 45 44 20 54 4f 20 4e 55 4c 4c 53 20 41 4e 44 20 43 55 52 53 4f 52 20 49 53 20 4c 4f 43 41 54 45 44 20 49 4e 20 00 66 01 84 00 0e 00 50 2a 5c 48 4f 4d 45 20 50 4f 53 00 67 00 32 00 06 00 50 2a 20 00 67 00 44 00 3c 00 50 2a 2a ┆CLEARED TO NULLS AND CURSOR IS LOCATED IN f P* HOME POS g 2 P* g D < P**┆
0x92fe…934e 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 00 67 00 4e 00 06 00 50 2a 20 00 67 00 8e 00 10 00 50 43 4c 45 41 52 5c 45 51 ┆****************************************************** g N P* g PCLEAR EQ┆
0x934e…939e 55 5c 2a 20 00 67 00 98 00 20 00 50 5c 4c 44 4b 5c 41 32 2c 2f 32 44 5c 50 4f 53 20 46 4f 52 20 27 43 4c 45 41 52 27 20 00 67 00 ac 00 14 00 50 5c 4c 43 5c 41 32 2c 54 41 53 43 49 49 2c 41 32 00 67 00 d0 00 2e 00 50 5c 43 46 5c 41 31 34 2c ┆U * g P LDK A2,/2D POS FOR 'CLEAR' g P LC A2,TASCII,A2 g . P CF A14,┆
0x939e…93ee 4c 49 4e 48 4f 4e 5c 54 55 52 4e 20 4f 4e 20 22 4b 45 59 42 4f 41 52 44 20 49 4e 48 49 42 49 54 22 20 00 67 00 e8 00 28 00 50 5c 43 46 5c 41 31 34 2c 54 52 50 41 5c 55 50 44 41 54 45 20 41 49 44 20 41 4e 44 20 54 52 41 4e 53 4d 49 54 00 67 ┆LINHON TURN ON "KEYBOARD INHIBIT" g ( P CF A14,TRPA UPDATE AID AND TRANSMIT g┆
0x93ee…943e 01 1a 00 26 00 50 5c 43 46 5c 41 31 34 2c 45 52 41 53 45 5c 45 52 41 53 45 20 45 4e 54 49 52 45 20 53 43 52 45 45 4e 20 00 67 01 46 00 0c 00 50 5c 52 54 4e 5c 41 31 34 00 67 01 70 00 06 00 50 5c 20 00 67 01 80 00 06 00 50 2a 20 00 67 01 8a ┆ & P CF A14,ERASE ERASE ENTIRE SCREEN g F P RTN A14 g p P g P* g ┆
0x943e…948e (96, 0, 400) 00 40 00 50 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 00 68 00 04 00 06 00 50 2a 20 00 68 00 48 00 0c ┆ @ P************************************************************ h P* h H ┆
0x948e…94de 00 50 2a 5c 45 52 45 4f 46 20 00 68 00 52 00 06 00 50 2a 20 00 68 00 62 00 1c 00 50 2a 5c 45 52 41 53 45 20 54 4f 20 45 4e 44 20 4f 46 20 46 49 45 4c 44 20 00 68 00 6c 00 06 00 50 2a 20 00 68 00 8c 00 40 00 50 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆ P* EREOF h R P* h b P* ERASE TO END OF FIELD h l P* h @ P**********┆
0x94de…952e 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 00 68 00 96 00 06 00 50 2a 20 00 68 00 da 00 10 00 50 45 52 45 4f 46 5c 45 51 55 5c 2a 20 ┆************************************************** h P* h PEREOF EQU * ┆
0x952e…957e 00 68 00 e4 00 0e 00 50 5c 4c 44 4b 5c 41 36 2c 31 20 00 68 00 f8 00 26 00 50 5c 4c 44 5c 41 33 2c 41 54 54 52 49 42 2c 54 43 41 42 41 53 5c 47 45 54 20 41 54 54 52 49 42 55 54 45 00 68 01 0a 00 1c 00 50 5c 41 4e 4b 5c 41 33 2c 2f 31 30 5c ┆ h P LDK A6,1 h & P LD A3,ATTRIB,TCABAS GET ATTRIBUTE h P ANK A3,/10 ┆
0x957e…95ce 55 4e 50 52 4f 54 45 43 54 45 44 3f 00 68 01 34 00 16 00 50 5c 52 46 28 45 29 5c 45 52 45 31 30 30 5c 59 45 53 20 00 68 01 54 00 0e 00 50 5c 41 42 4c 5c 45 52 52 4f 52 00 68 01 6e 00 1e 00 50 45 52 45 31 30 30 5c 4c 44 5c 41 32 2c 50 43 55 ┆UNPROTECTED? h 4 P RF(E) ERE100 YES h T P ABL ERROR h n PERE100 LD A2,PCU┆
0x95ce…961e (97, 0, 400) 52 53 2c 54 43 41 42 41 53 20 00 68 01 80 00 04 00 50 00 69 00 12 00 28 00 50 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 20 20 20 37 37 2e 30 36 2e 30 31 20 00 69 00 1a 00 04 00 50 00 69 00 46 00 32 00 50 5c 43 ┆RS,TCABAS h P i ( P************************ 77.06.01 i P i F 2 P C┆
0x961e…966e 57 5c 41 32 2c 43 55 52 41 54 54 2c 54 43 41 42 41 53 5c 53 54 41 4e 44 49 4e 47 20 4f 4e 20 41 54 54 52 49 42 55 54 45 20 3f 3f 20 00 69 00 4e 00 2a 00 50 5c 41 42 4c 28 45 29 5c 45 52 52 4f 52 5c 59 45 53 21 21 20 54 55 52 4e 20 4f 4e 20 ┆W A2,CURATT,TCABAS STANDING ON ATTRIBUTE ?? i N * P ABL(E) ERROR YES!! TURN ON ┆
0x966e…96be 45 52 52 4f 52 20 4c 41 4d 50 00 69 00 84 00 04 00 50 00 69 00 b2 00 28 00 50 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 20 20 20 37 37 2e 30 36 2e 30 31 20 00 69 00 ba 00 04 00 50 00 69 00 e6 00 28 00 50 45 52 ┆ERROR LAMP i P i ( P************************ 77.06.01 i P i ( PER┆
0x96be…970e 45 31 35 30 5c 43 46 5c 41 31 34 2c 47 42 55 46 46 43 5c 47 45 54 20 42 55 46 46 2e 20 43 48 41 52 20 00 69 00 ee 00 1e 00 50 5c 43 57 4b 5c 41 33 2c 2f 31 46 5c 41 54 54 52 49 42 55 54 45 20 43 48 41 52 00 69 01 1a 00 14 00 50 5c 52 46 28 ┆E150 CF A14,GBUFFC GET BUFF. CHAR i P CWK A3,/1F ATTRIBUTE CHAR i P RF(┆
0x970e…975e 47 29 5c 45 52 45 32 30 30 5c 4e 4f 00 69 01 3c 00 14 00 50 45 52 45 31 36 30 5c 4c 44 52 5c 41 31 2c 41 32 00 69 01 54 00 18 00 50 5c 4c 44 5c 41 33 2c 50 43 55 52 53 2c 54 43 41 42 41 53 20 00 69 01 6c 00 10 00 50 45 52 45 31 37 30 5c 45 ┆G) ERE200 NO i < PERE160 LDR A1,A2 i T P LD A3,PCURS,TCABAS i l PERE170 E┆
0x975e…97ae (98, 0, 400) 51 55 5c 2a 00 69 01 88 00 12 00 50 5c 4c 44 4b 4c 5c 41 34 2c 42 56 44 55 20 00 6a 00 0c 00 12 00 50 5c 41 44 52 5c 41 34 2c 54 43 41 42 41 53 00 6a 00 22 00 0e 00 50 5c 41 44 52 5c 41 34 2c 41 33 00 6a 00 38 00 30 00 50 5c 43 46 5c 41 31 ┆QU * i P LDKL A4,BVDU j P ADR A4,TCABAS j " P ADR A4,A3 j 8 0 P CF A1┆
0x97ae…97fe 34 2c 45 52 41 53 55 41 5c 45 52 41 53 45 20 41 4e 44 20 52 45 50 4c 41 53 45 20 57 49 54 48 20 4e 55 4c 4c 53 20 00 6a 00 4a 00 28 00 50 5c 43 46 5c 41 31 34 2c 44 49 53 50 4c 5c 44 49 53 50 4c 41 59 20 45 52 41 53 45 44 20 53 43 52 45 45 ┆4,ERASUA ERASE AND REPLASE WITH NULLS j J ( P CF A14,DISPL DISPLAY ERASED SCREE┆
0x97fe…984e 4e 20 00 6a 00 7e 00 06 00 50 2a 20 00 6a 00 aa 00 28 00 50 2a 20 20 20 53 45 54 20 4d 44 54 20 42 49 54 20 49 46 20 46 4f 52 4d 41 54 54 45 44 20 53 43 52 45 45 4e 20 00 6a 00 b4 00 06 00 50 2a 20 00 6a 00 e0 00 04 00 50 00 6a 00 ea 00 18 ┆N j ~ P* j ( P* SET MDT BIT IF FORMATTED SCREEN j P* j P j ┆
0x984e…989e 00 50 5c 4c 44 5c 41 32 2c 43 55 52 41 54 54 2c 54 43 41 42 41 53 00 6a 00 f2 00 14 00 50 5c 43 57 4b 5c 41 32 2c 4c 42 56 44 55 2b 31 20 00 6a 01 0e 00 24 00 50 5c 52 46 28 45 29 5c 45 52 45 31 38 30 5c 55 4e 46 4f 52 4d 41 54 54 45 44 20 ┆ P LD A2,CURATT,TCABAS j P CWK A2,LBVDU+1 j $ P RF(E) ERE180 UNFORMATTED ┆
0x989e…98ee 53 43 52 45 45 4e 00 6a 01 26 00 04 00 50 00 6a 01 4e 00 10 00 50 5c 41 44 4b 5c 41 32 2c 42 56 44 55 00 6a 01 56 00 2e 00 50 5c 41 44 52 5c 41 32 2c 54 43 41 42 41 53 5c 41 42 53 4f 4c 55 54 45 20 41 54 54 52 49 42 55 54 45 20 41 44 44 52 ┆SCREEN j & P j N P ADK A2,BVDU j V . P ADR A2,TCABAS ABSOLUTE ATTRIBUTE ADDR┆
0x98ee…993e (99, 0, 400) 45 53 53 20 00 6a 01 6a 00 1c 00 50 5c 4c 43 52 5c 41 31 2c 41 32 5c 47 45 54 20 41 54 54 52 49 42 55 54 45 00 6b 00 0c 00 1a 00 50 5c 4f 52 4b 5c 41 31 2c 31 5c 53 45 54 20 4d 44 54 20 42 49 54 20 00 6b 00 2c 00 0e 00 50 5c 53 43 52 5c 41 ┆ESS j j P LCR A1,A2 GET ATTRIBUTE k P ORK A1,1 SET MDT BIT k , P SCR A┆
0x993e…998e 31 2c 41 32 00 6b 00 4a 00 10 00 50 45 52 45 31 38 30 5c 45 51 55 5c 2a 00 6b 00 5c 00 0c 00 50 5c 52 54 4e 5c 41 31 34 00 6b 00 70 00 28 00 50 45 52 45 32 30 30 5c 43 57 4b 5c 41 32 2c 4c 42 56 44 55 2d 31 5c 45 4e 44 20 4f 46 20 42 55 46 ┆1,A2 k J PERE180 EQU * k P RTN A14 k p ( PERE200 CWK A2,LBVDU-1 END OF BUF┆
0x998e…99de 46 45 52 3f 00 6b 00 80 00 16 00 50 5c 52 46 28 45 29 5c 45 52 45 33 30 30 5c 59 45 53 20 00 6b 00 ac 00 0e 00 50 5c 41 44 4b 5c 41 32 2c 31 20 00 6b 00 c6 00 14 00 50 5c 52 42 5c 45 52 45 31 35 30 5c 4e 45 58 54 20 00 6b 00 d8 00 2a 00 50 ┆FER? k P RF(E) ERE300 YES k P ADK A2,1 k P RB ERE150 NEXT k * P┆
0x99de…9a2e 45 52 45 33 30 30 5c 53 55 4b 5c 41 36 2c 31 5c 57 48 4f 4c 57 20 42 55 46 46 20 43 4f 4e 54 52 4f 4c 45 44 3f 20 00 6b 00 f0 00 12 00 50 5c 52 42 28 4e 29 5c 45 52 45 31 36 30 20 00 6b 01 1e 00 1a 00 50 5c 4c 44 4b 5c 41 32 2c 30 5c 57 52 ┆ERE300 SUK A6,1 WHOLW BUFF CONTROLED? k P RB(N) ERE160 k P LDK A2,0 WR┆
0x9a2e…9a7e 41 50 20 41 52 4f 55 4e 44 2e 00 6b 01 34 00 0e 00 50 5c 52 42 5c 45 52 45 31 35 30 00 6b 01 52 00 06 00 50 5c 20 00 6b 01 64 00 06 00 50 2a 20 00 6b 01 6e 00 3c 00 50 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆AP AROUND. k 4 P RB ERE150 k R P k d P* k n < P************************┆
0x9a7e…9ace (100, 0, 400) 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 00 6b 01 78 00 06 00 50 2a 20 00 6c 00 28 00 0c 00 50 2a 5c 45 52 49 4e 50 54 00 6c 00 32 00 06 00 50 2a 20 00 6c 00 42 00 3a 00 50 2a 5c 43 4c ┆******************************** k x P* l ( P* ERINPT l 2 P* l B : P* CL┆
0x9ace…9b1e 45 41 52 53 20 41 4c 4c 20 55 4e 50 52 4f 54 45 43 54 45 44 20 43 48 41 52 41 43 54 45 52 20 4c 4f 43 41 54 49 4f 4e 53 20 54 4f 20 4e 55 4c 4c 53 20 00 6c 00 4c 00 3a 00 50 2a 5c 41 4e 44 20 52 45 50 4f 53 49 54 49 4f 4e 53 20 54 48 45 20 ┆EARS ALL UNPROTECTED CHARACTER LOCATIONS TO NULLS l L : P* AND REPOSITIONS THE ┆
0x9b1e…9b6e 43 55 52 53 4f 52 20 54 4f 20 54 48 45 20 46 49 52 53 54 20 55 4e 50 52 4f 54 45 43 54 45 44 20 00 6c 00 8a 00 22 00 50 2a 5c 43 48 41 52 20 4c 4f 43 41 54 49 4f 4e 20 4f 4e 20 54 48 45 20 53 43 52 45 45 4e 20 00 6c 00 c8 00 06 00 50 2a 20 ┆CURSOR TO THE FIRST UNPROTECTED l " P* CHAR LOCATION ON THE SCREEN l P* ┆
0x9b6e…9bbe 00 6c 00 ee 00 3c 00 50 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 20 00 6c 00 f8 00 06 00 50 2a 20 00 6c 01 38 00 10 ┆ l < P******************************************************* l P* l 8 ┆
0x9bbe…9c0e 00 50 45 52 49 4e 50 54 5c 45 51 55 5c 2a 00 6c 01 42 00 28 00 50 5c 43 46 5c 41 31 34 2c 45 52 41 53 55 50 5c 45 52 41 53 45 20 41 4c 4c 20 55 4e 50 52 4f 54 45 43 54 45 44 00 6c 01 56 00 12 00 50 5c 43 46 5c 41 31 34 2c 44 49 53 50 4c 20 ┆ PERINPT EQU * l B ( P CF A14,ERASUP ERASE ALL UNPROTECTED l V P CF A14,DISPL ┆