|
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: 36452 (0x8e64)
Notes: pts_type(SC)
Names: »VDUPRX.SC«
└─⟦75255755f⟧ Bits:30009693 Philips computer tape "600410"
└─⟦this⟧ »NJREMIT/VDUPRX.SC«
└─⟦b6546aa17⟧ Bits:30009689 Philips computer tape "600325"
└─⟦this⟧ »REMIT2/VDUPRX.SC«
IDENT VDUPRT 2.1DK 5 79-10-20 870150540210 =1,ODD BUFFER ADDRESS REL 2.1 79-05-23 =2,KEYBOARD LAMPS REL 2.1 79-05-23 =3, TRANSMIT BUFFER LENGTH REL 2.1 79-05-23 DK5 - SKIP CHAR 06=2F=USM DK5 DK4 - RFMDUP DK3 - EUA DK2 - DC-TIMEOUT DK1 - BLANK COL. 80 ****************************************************************** * * V D U P R T : MODULE HANDLING MESSAGES COMING FROM * MAIN FRAME, AND DISPLAYING THEM ON * THE VDU ( PTS 6344 ) . * ******************************************************************** * * * * * 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 * **************************************************************** * * CONDITIONAL ASSEMBLY PARAMETERS * ********************************************** OFLIN EQU 1 OFFLINE HANDLING POSSIBLE IF ::= 1 DCLIN EQU 1 NUMBER OF MAIN FRAMES (1-2) RBUFL EQU 1150 RECEIVE BUFFER LENGTH IN WORDS RBUFNR EQU 2 NUMBER OF RECEIVE BUFFERS (1-5) TBUFL EQU 1150 TRANSMIT BUFFER LENGTH IN WORDS TBUFNR EQU 2 NUMBER OF TRANSMIT BUFFERS (1-5) COPCMD EQU 1 COPY COMMAND (ONLY TO PRINTER) IF := 1 EBCDIC EQU 1 ASCII = 0,EBCDIC = 1 * * EQUATES * * TIMDC EQU 600 DC TIME OUT VALUE: 60 S DK2 ESC EQU /1B SBA EQU /11 NULL EQU /7F NULL CHARACTER NEWLIN EQU /7E NEW LINE CHARACTER ENDMES EQU /7D END MESSAGE CHAR FORMFD EQU /7C FORM FEED CHAR DUPCH EQU /7B FMCH EQU /60 TRCH EQU /30 DK SKIP EQU /06 SKIP CHAR. (USM) DK5 * * * 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 * * * 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 * * 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 * **************************************************************** * * 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 * * 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 ********************************************************** * * 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 * * * 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 * * * 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 * * * 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 * * * 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 * * * 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 CWK A3,LBVDU ALL BUFFER EXAMINED ??? RF(NL) RDMODE YES!! 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 * * * 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 * * 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 * * * 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 * 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 * 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 UPD318 EQU * CWK A2,SKIP DK5 RF(NE) UPD319 SKIP USM DK5 ADK A3,1 DK5 RB UPD220 DK5 UPD319 EQU * DK5 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 * * * START FIELD ORDER * UPD320 CF A14,GDCCH GET ATTRIBUTE CHAR LC A2,TEBCDI,A2 LDR A1,A2 COMPOSE PTS ATTRIBUTE CHAR ANK A1,1 SRL A2,1 ANK A2,/1E ORR A2,A1 RB UPD240 * * SET BUFFER ADDRESS * UPD340 CF A14,GETADR GET ADDRESS CWK A1,LBVDU RB(NL) UPDEND INVALID ADDRESS LDR A3,A1 LDR A4,A3 ADKL A4,BVDU ADR A4,TCABAS RB UPD220 * * INSERT CURSOR * UPD360 ST A3,PCURS,TCABAS SET NEW CURSOR POS LDK A5,1 INDICATE WCC, IC OR RA RB UPD220 * * 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 ABL(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 * * 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 CWR A3,A1 NULLS TO ALL SCREEN POSITIONS ???? RF(E) UPD530 YES!!! 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 UPD530 EQU * 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 * * 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 * * * 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 * * * 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 * * * 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 * * * 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 * * * 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 * * * 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 CF A14,SET:M SET MODIFIED BIT 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 CF A14,SET:M SET MODIFIED BIT 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 * * * 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 * * * 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 * * * 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 * * * DISPLAY LINE IF ANY MODIFICATIONS * * 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 * ST A1,ECBRL,A8 SET REQ LENGTH LDK A7,/8B SET CURSOR AND WRITE LKM DATA 1 ******************************************************************** * * EXECUTE FAST OUTPUT TO BLANK REMAINIG PART * OF THE LINE * ******************************************************************* LD A1,ECBCW,A8 CURSOR POSITION ANK A1,X'FF' COLUMN NUMBER SUK A1,80 LAST POSITION ? DK1 RF(NL) DISL10 YES, NO FAST OUTPUT THIS LINE DK1 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 **************************************************************** * * 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 * **************************************************************** * * 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 5 79-10-20 870150540210 «, t00=0x0000, t01=0x0004}
0x0036…003e Head {h00=0x0004, h01=0x0050, t00=0x0000, t01=0x003a}
0x003e…005e Head {h00=0x001c, h01=0x0050, text=» =1,ODD BUFFER ADDRESS«, t00=0x0000, t01=0x0042}
0x005e…007a Head {h00=0x0018, h01=0x0050, text=» REL 2.1 79-05-23 «, t00=0x0000, t01=0x0062}
0x007a…0096 Head {h00=0x0018, h01=0x0050, text=» =2,KEYBOARD LAMPS«, t00=0x0000, t01=0x007e}
0x0096…00b2 Head {h00=0x0018, h01=0x0050, text=» REL 2.1 79-05-23 «, t00=0x0000, t01=0x009a}
0x00b2…00d8 Head {h00=0x0022, h01=0x0050, text=» =3, TRANSMIT BUFFER LENGTH «, t00=0x0000, t01=0x00b6}
0x00d8…00f4 Head {h00=0x0018, h01=0x0050, text=» REL 2.1 79-05-23 «, t00=0x0000, t01=0x00dc}
0x00f4…011c Head {h00=0x0024, h01=0x0050, text=» DK5 - SKIP CHAR 06=2F=USM DK5«, t00=0x0000, t01=0x00f8}
0x011c…0134 Head {h00=0x0014, h01=0x0050, text=» DK4 - RFMDUP «, t00=0x0000, t01=0x0120}
0x0134…0148 Head {h00=0x0010, h01=0x0050, text=» DK3 - EUA«, t00=0x0000, t01=0x0138}
0x0148…0164 Head {h00=0x0018, h01=0x0050, text=» DK2 - DC-TIMEOUT «, t00=0x0000, t01=0x014c}
0x0164…0182 Head {h00=0x001a, h01=0x0050, text=» DK1 - BLANK COL. 80«, t00=0x0000, t01=0x0168}
0x0182…01cc Head {h00=0x0046, h01=0x0050, text=»******************************************************************«, t00=0x0000, t01=0x0186}
0x01cc…01d6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x0040}
0x01d6…0216 Head {h00=0x003c, h01=0x0050, text=»* V D U P R T : MODULE HANDLING MESSAGES COMING FROM«, t00=0x0001, t01=0x004a}
0x0216…0254 Head {h00=0x003a, h01=0x0050, text=»* MAIN FRAME, AND DISPLAYING THEM ON«, t00=0x0001, t01=0x008a}
0x0254…0286 Head {h00=0x002e, h01=0x0050, text=»* THE VDU ( PTS 6344 ) .«, t00=0x0001, t01=0x00c8}
0x0286…0290 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x00fa}
0x0290…02dc Head {h00=0x0048, h01=0x0050, text=»********************************************************************«, t00=0x0001, t01=0x0104}
0x02dc…02e6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x0150}
0x02e6…02f0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x015a}
0x02f0…02fa Head {h00=0x0006, h01=0x0050, text=» «, t00=0x0001, t01=0x0164}
0x02fa…0304 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x016e}
0x0304…030e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x0178}
0x030e…0320 Head {h00=0x000e, h01=0x0050, text=»* ENTRIES «, t00=0x0001, t01=0x0182}
0x0320…032a (2, 0, 398) Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x0004}
0x032a…0334 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x000e}
0x0334…0362 Head {h00=0x002a, h01=0x0050, text=» ENTRY TRPF TRANSMIT, PROGRAM FUNCTION«, t00=0x0002, t01=0x0018}
0x0362…0392 Head {h00=0x002c, h01=0x0050, text=» ENTRY TRPA TRANSMIT, PROGRAM ATTENTION «, t00=0x0002, t01=0x0046}
0x0392…03ba Head {h00=0x0024, h01=0x0050, text=» ENTRY ERASE ERASE ENTIRE SCREEN«, t00=0x0002, t01=0x0076}
0x03ba…03e2 Head {h00=0x0024, h01=0x0050, text=» ENTRY SETCUR CURSOR POSITIONING«, t00=0x0002, t01=0x009e}
0x03e2…040e Head {h00=0x0028, h01=0x0050, text=» ENTRY ERASUP ERASE ALL UNPROTECTED «, t00=0x0002, t01=0x00c6}
0x040e…0438 Head {h00=0x0026, h01=0x0050, text=» ENTRY DISPL DISPLAY MODIFIED DATA«, t00=0x0002, t01=0x00f2}
0x0438…046a Head {h00=0x002e, h01=0x0050, text=» ENTRY ERASUA ERASE UNPROTECTED TO ADDRESS«, t00=0x0002, t01=0x011c}
0x046a…049c Head {h00=0x002e, h01=0x0050, text=» ENTRY WCHAR WRITE ONE CHAR IN CURSOR POS «, t00=0x0002, t01=0x014e}
0x049c…04b2 Head {h00=0x0012, h01=0x0050, text=» ENTRY UPDATE «, t00=0x0002, t01=0x0180}
0x04b2…04d8 Head {h00=0x0022, h01=0x0050, text=» ENTRY RFMDUP REPLACE FM & DUP«, t00=0x0003, t01=0x0008}
0x04d8…04ec Head {h00=0x0010, h01=0x0050, text=» ENTRY DCINP«, t00=0x0003, t01=0x002e}
0x04ec…0502 Head {h00=0x0012, h01=0x0050, text=» ENTRY RLRBUF «, t00=0x0003, t01=0x0042}
0x0502…0518 Head {h00=0x0012, h01=0x0050, text=» ENTRY DCGETM «, t00=0x0003, t01=0x0058}
0x0518…052e Head {h00=0x0012, h01=0x0050, text=» ENTRY GTRBUF «, t00=0x0003, t01=0x006e}
0x052e…0538 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x0084}
0x0538…0542 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x008e}
0x0542…0556 Head {h00=0x0010, h01=0x0050, text=»* EXTERNALS «, t00=0x0003, t01=0x0098}
0x0556…0560 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x00ac}
0x0560…056a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x00b6}
0x056a…058c Head {h00=0x001e, h01=0x0050, text=» EXTRN LINHON,LINHOF START«, t00=0x0003, t01=0x00c0}
0x058c…05ae Head {h00=0x001e, h01=0x0050, text=» EXTRN LSAVON,LSAVOF START«, t00=0x0003, t01=0x00e2}
0x05ae…05c4 Head {h00=0x0012, h01=0x0050, text=» EXTRN ATMASB «, t00=0x0003, t01=0x0104}
0x05c4…05d8 Head {h00=0x0010, h01=0x0050, text=» EXTRN EMULA«, t00=0x0003, t01=0x011a}
0x05d8…05ee Head {h00=0x0012, h01=0x0050, text=» EXTRN REQTIM «, t00=0x0003, t01=0x012e}
0x05ee…0604 Head {h00=0x0012, h01=0x0050, text=» EXTRN ICWRTE «, t00=0x0003, t01=0x0144}
0x0604…060e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x015a}
0x060e…0628 Head {h00=0x0016, h01=0x0050, text=» EXTRN SNBUSY PRT «, t00=0x0003, t01=0x0164}
0x0628…0632 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x017e}
0x0632…0660 Head {h00=0x002a, h01=0x0050, text=» EXTRN I:EVA0 CREDIT EVALUATION TABLE «, t00=0x0003, t01=0x0188}
0x0660…066a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x0026}
0x066a…068e Head {h00=0x0020, h01=0x0050, text=» EXTRN TASCII,TEBCDI TB3270 «, t00=0x0004, t01=0x0030}
0x068e…0698 Head {h00=0x0006, h01=0x0050, text=» «, t00=0x0004, t01=0x0054}
0x0698…06a2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x005e}
0x06a2…06ea Head {h00=0x0044, h01=0x0050, text=»****************************************************************«, t00=0x0004, t01=0x0068}
0x06ea…06f4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x00b0}
0x06f4…0720 Head {h00=0x0028, h01=0x0050, text=»* CONDITIONAL ASSEMBLY PARAMETERS «, t00=0x0004, t01=0x00ba}
0x0720…072a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x00e6}
0x072a…0760 Head {h00=0x0032, h01=0x0050, text=»**********************************************«, t00=0x0004, t01=0x00f0}
0x0760…0768 Head {h00=0x0004, h01=0x0050, t00=0x0004, t01=0x0126}
0x0768…079e Head {h00=0x0032, h01=0x0050, text=»OFLIN EQU 1 OFFLINE HANDLING POSSIBLE IF ::= 1«, t00=0x0004, t01=0x012e}
0x079e…07ce Head {h00=0x002c, h01=0x0050, text=»DCLIN EQU 1 NUMBER OF MAIN FRAMES (1-2) «, t00=0x0004, t01=0x0164}
0x07ce…0804 (5, 0, 400) Head {h00=0x0032, h01=0x0050, text=»RBUFL EQU 1150 RECEIVE BUFFER LENGTH IN WORDS «, t00=0x0005, t01=0x0004}
0x0804…0838 Head {h00=0x0030, h01=0x0050, text=»RBUFNR EQU 2 NUMBER OF RECEIVE BUFFERS (1-5)«, t00=0x0005, t01=0x003a}
0x0838…086e Head {h00=0x0032, h01=0x0050, text=»TBUFL EQU 1150 TRANSMIT BUFFER LENGTH IN WORDS«, t00=0x0005, t01=0x006e}
0x086e…08a4 Head {h00=0x0032, h01=0x0050, text=»TBUFNR EQU 2 NUMBER OF TRANSMIT BUFFERS (1-5) «, t00=0x0005, t01=0x00a4}
0x08a4…08e0 Head {h00=0x0038, h01=0x0050, text=»COPCMD EQU 1 COPY COMMAND (ONLY TO PRINTER) IF := 1 «, t00=0x0005, t01=0x00da}
0x08e0…090a Head {h00=0x0026, h01=0x0050, text=»EBCDIC EQU 1 ASCII = 0,EBCDIC = 1 «, t00=0x0005, t01=0x0116}
0x090a…0914 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x0140}
0x0914…0926 Head {h00=0x000e, h01=0x0050, text=»* EQUATES «, t00=0x0005, t01=0x014a}
0x0926…0930 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x015c}
0x0930…093a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x0166}
0x093a…096c Head {h00=0x002e, h01=0x0050, text=»TIMDC EQU 600 DC TIME OUT VALUE: 60 S DK2 «, t00=0x0005, t01=0x0170}
0x096c…0980 Head {h00=0x0010, h01=0x0050, text=»ESC EQU /1B «, t00=0x0006, t01=0x0012}
0x0980…0994 Head {h00=0x0010, h01=0x0050, text=»SBA EQU /11 «, t00=0x0006, t01=0x0026}
0x0994…09b8 Head {h00=0x0020, h01=0x0050, text=»NULL EQU /7F NULL CHARACTER «, t00=0x0006, t01=0x003a}
0x09b8…09e2 Head {h00=0x0026, h01=0x0050, text=»NEWLIN EQU /7E NEW LINE CHARACTER «, t00=0x0006, t01=0x005e}
0x09e2…0a0a Head {h00=0x0024, h01=0x0050, text=»ENDMES EQU /7D END MESSAGE CHAR «, t00=0x0006, t01=0x0088}
0x0a0a…0a30 Head {h00=0x0022, h01=0x0050, text=»FORMFD EQU /7C FORM FEED CHAR «, t00=0x0006, t01=0x00b0}
0x0a30…0a46 Head {h00=0x0012, h01=0x0050, text=»DUPCH EQU /7B «, t00=0x0006, t01=0x00d6}
0x0a46…0a5a Head {h00=0x0010, h01=0x0050, text=»FMCH EQU /60«, t00=0x0006, t01=0x00ec}
0x0a5a…0a72 Head {h00=0x0014, h01=0x0050, text=»TRCH EQU /30 DK«, t00=0x0006, t01=0x0100}
0x0a72…0a9c Head {h00=0x0026, h01=0x0050, text=»SKIP EQU /06 SKIP CHAR. (USM) DK5 «, t00=0x0006, t01=0x0118}
0x0a9c…0aa6 Head {h00=0x0006, h01=0x0050, text=» «, t00=0x0006, t01=0x0142}
0x0aa6…0ab0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x014c}
0x0ab0…0aba Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x0156}
0x0aba…0ad0 Head {h00=0x0012, h01=0x0050, text=»* EQUATES «, t00=0x0006, t01=0x0160}
0x0ad0…0ada Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x0176}
0x0ada…0b00 Head {h00=0x0022, h01=0x0050, text=»* COMMON EQU FOR ECB HANDLING «, t00=0x0006, t01=0x0180}
0x0b00…0b0a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x0016}
0x0b0a…0b12 Head {h00=0x0004, h01=0x0050, t00=0x0007, t01=0x0020}
0x0b12…0b26 Head {h00=0x0010, h01=0x0050, text=»ECBBA EQU 2 «, t00=0x0007, t01=0x0028}
0x0b26…0b3a Head {h00=0x0010, h01=0x0050, text=»ECBRL EQU 4 «, t00=0x0007, t01=0x003c}
0x0b3a…0b4e Head {h00=0x0010, h01=0x0050, text=»ECBEL EQU 6 «, t00=0x0007, t01=0x0050}
0x0b4e…0b62 Head {h00=0x0010, h01=0x0050, text=»ECBRC EQU 8 «, t00=0x0007, t01=0x0064}
0x0b62…0b76 Head {h00=0x0010, h01=0x0050, text=»ECBCW EQU 10«, t00=0x0007, t01=0x0078}
0x0b76…0b80 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x008c}
0x0b80…0b8a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x0096}
0x0b8a…0ba4 Head {h00=0x0016, h01=0x0050, text=»* CREDIT USED EQU «, t00=0x0007, t01=0x00a0}
0x0ba4…0bae Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x00ba}
0x0bae…0bb8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x00c4}
0x0bb8…0bd4 Head {h00=0x0018, h01=0x0050, text=»* ECB REL. ADDRESSES«, t00=0x0007, t01=0x00ce}
0x0bd4…0bde Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x00ea}
0x0bde…0be8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x00f4}
0x0be8…0bfa Head {h00=0x000e, h01=0x0050, text=»DIS EQU 20«, t00=0x0007, t01=0x00fe}
0x0bfa…0c04 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x0110}
0x0c04…0c1e Head {h00=0x0016, h01=0x0050, text=»ECBDC EQU -DIS-14 «, t00=0x0007, t01=0x011a}
0x0c1e…0c32 Head {h00=0x0010, h01=0x0050, text=» IFT DCLIN=2«, t00=0x0007, t01=0x0134}
0x0c32…0c48 Head {h00=0x0012, h01=0x0050, text=» IFT COPCMD=1 «, t00=0x0007, t01=0x0148}
0x0c48…0c64 Head {h00=0x0018, h01=0x0050, text=»ECBDC2 EQU ECBDC-DIS«, t00=0x0007, t01=0x015e}
0x0c64…0c82 Head {h00=0x001a, h01=0x0050, text=»ECBICR EQU ECBDC2-DIS «, t00=0x0007, t01=0x017a}
0x0c82…0ca0 Head {h00=0x001a, h01=0x0050, text=»ECBICW EQU ECBICR-DIS «, t00=0x0008, t01=0x0008}
0x0ca0…0cac Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0008, t01=0x0026}
0x0cac…0cc0 Head {h00=0x0010, h01=0x0050, text=» IFT DCLIN=2«, t00=0x0008, t01=0x0032}
0x0cc0…0cd6 Head {h00=0x0012, h01=0x0050, text=» IFF COPCMD=1 «, t00=0x0008, t01=0x0046}
0x0cd6…0cf2 Head {h00=0x0018, h01=0x0050, text=»ECBDC2 EQU ECBDC-DIS«, t00=0x0008, t01=0x005c}
0x0cf2…0d10 Head {h00=0x001a, h01=0x0050, text=»ECBICW EQU ECBDC2-DIS «, t00=0x0008, t01=0x0078}
0x0d10…0d1c Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0008, t01=0x0096}
0x0d1c…0d30 Head {h00=0x0010, h01=0x0050, text=» IFF DCLIN=2«, t00=0x0008, t01=0x00a2}
0x0d30…0d46 Head {h00=0x0012, h01=0x0050, text=» IFT COPCMD=1 «, t00=0x0008, t01=0x00b6}
0x0d46…0d62 Head {h00=0x0018, h01=0x0050, text=»ECBICR EQU ECBDC-DIS«, t00=0x0008, t01=0x00cc}
0x0d62…0d80 Head {h00=0x001a, h01=0x0050, text=»ECBICW EQU ECBICR-DIS «, t00=0x0008, t01=0x00e8}
0x0d80…0d8c Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0008, t01=0x0106}
0x0d8c…0da0 Head {h00=0x0010, h01=0x0050, text=» IFF DCLIN=2«, t00=0x0008, t01=0x0112}
0x0da0…0db6 Head {h00=0x0012, h01=0x0050, text=» IFF COPCMD=1 «, t00=0x0008, t01=0x0126}
0x0db6…0dd2 Head {h00=0x0018, h01=0x0050, text=»ECBICW EQU ECBDC-DIS«, t00=0x0008, t01=0x013c}
0x0dd2…0dde Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0008, t01=0x0158}
0x0dde…0dfc Head {h00=0x001a, h01=0x0050, text=»ECBVDU EQU ECBICW-DIS «, t00=0x0008, t01=0x0164}
0x0dfc…0e18 Head {h00=0x0018, h01=0x0050, text=»ECBKB EQU ECBVDU-DIS«, t00=0x0008, t01=0x0182}
0x0e18…0e34 Head {h00=0x0018, h01=0x0050, text=»ECBSD EQU ECBKB-DIS «, t00=0x0009, t01=0x000e}
0x0e34…0e3e Head {h00=0x0006, h01=0x0050, text=» «, t00=0x0009, t01=0x002a}
0x0e3e…0e48 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x0034}
0x0e48…0e52 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x003e}
0x0e52…0e78 Head {h00=0x0022, h01=0x0050, text=»* BASE ADDRESS FOR TCA AND ECB«, t00=0x0009, t01=0x0048}
0x0e78…0e82 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x006e}
0x0e82…0e98 Head {h00=0x0012, h01=0x0050, text=»TCABAS EQU A11«, t00=0x0009, t01=0x0078}
0x0e98…0eb2 Head {h00=0x0016, h01=0x0050, text=»CREBAS EQU A13 ECB«, t00=0x0009, t01=0x008e}
0x0eb2…0ebc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x00a8}
0x0ebc…0ec6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x00b2}
0x0ec6…0ee2 Head {h00=0x0018, h01=0x0050, text=»* TCA REL. ADDRESSES«, t00=0x0009, t01=0x00bc}
0x0ee2…0eec Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x00d8}
0x0eec…0f00 Head {h00=0x0010, h01=0x0050, text=»TCT01 EQU 0 «, t00=0x0009, t01=0x00e2}
0x0f00…0f1c Head {h00=0x0018, h01=0x0050, text=»PRINTER EQU TCT01+2 «, t00=0x0009, t01=0x00f6}
0x0f1c…0f48 Head {h00=0x0028, h01=0x0050, text=»BVDU EQU PRINTER+2 VDU SCREEN BUFFER«, t00=0x0009, t01=0x0112}
0x0f48…0f7c Head {h00=0x0030, h01=0x0050, text=»PCURS EQU BVDU+1920 CURSOR ADDRESS , BINARY «, t00=0x0009, t01=0x013e}
0x0f7c…0faa Head {h00=0x002a, h01=0x0050, text=»ATTRIB EQU PCURS+2 LAST ATTRIBUTE CHAR«, t00=0x0009, t01=0x0172}
0x0faa…0fc6 Head {h00=0x0018, h01=0x0050, text=»CURATT EQU ATTRIB+2 «, t00=0x000a, t01=0x0010}
0x0fc6…0ff0 Head {h00=0x0026, h01=0x0050, text=»WCC EQU CURATT+2 WCC/CCC CHARACTER«, t00=0x000a, t01=0x002c}
0x0ff0…1022 Head {h00=0x002e, h01=0x0050, text=»KBINH EQU WCC+2 KEYBOARD INHIBIT INDICATOR«, t00=0x000a, t01=0x0056}
0x1022…104a Head {h00=0x0024, h01=0x0050, text=»LINCNT EQU KBINH+2 LINE COUNTER «, t00=0x000a, t01=0x0088}
0x104a…107e Head {h00=0x0030, h01=0x0050, text=»DCLENG EQU LINCNT+2 DC READ EFFECTIVE LENGTH«, t00=0x000a, t01=0x00b0}
0x107e…10b4 Head {h00=0x0032, h01=0x0050, text=»ICWORK EQU DCLENG+2 WORK FIELD INTERTASK COMM «, t00=0x000a, t01=0x00e4}
0x10b4…10e4 Head {h00=0x002c, h01=0x0050, text=»INTATT EQU ICWORK+2 INTENSITY ATTRIBUTE «, t00=0x000a, t01=0x011a}
0x10e4…110c Head {h00=0x0024, h01=0x0050, text=»OFFFLG EQU INTATT+2 OFFLINE FLAG«, t00=0x000a, t01=0x014a}
0x110c…1138 Head {h00=0x0028, h01=0x0050, text=»COPNO EQU OFFFLG+2 HARDCOPY TASK ID «, t00=0x000a, t01=0x0172}
0x1138…1166 Head {h00=0x002a, h01=0x0050, text=»CCC EQU COPNO+2 COPY COMMAND CHARACTER«, t00=0x000b, t01=0x000e}
0x1166…1188 Head {h00=0x001e, h01=0x0050, text=»MAIN EQU CCC+2 MAIN FRAME «, t00=0x000b, t01=0x003c}
0x1188…11b2 Head {h00=0x0026, h01=0x0050, text=»MODE EQU MAIN+2 INSERT MODE SWITCH«, t00=0x000b, t01=0x005e}
0x11b2…11da Head {h00=0x0024, h01=0x0050, text=»KEYS EQU MODE+2 KEY LOCK STATUS «, t00=0x000b, t01=0x0088}
0x11da…120c Head {h00=0x002e, h01=0x0050, text=»ECBDCC EQU KEYS+2 ECB ADDRESS LAST READ DC«, t00=0x000b, t01=0x00b0}
0x120c…1242 Head {h00=0x0032, h01=0x0050, text=»ECBBLK EQU ECBDCC+2 ECBS FOR MULTIPLE WAIT &C «, t00=0x000b, t01=0x00e2}
0x1242…127a Head {h00=0x0034, h01=0x0050, text=»RDMORE EQU ECBBLK+10 BRANCH ADDRESS NEXT READ KB«, t00=0x000b, t01=0x0118}
0x127a…1284 Head {h00=0x0006, h01=0x0050, text=» «, t00=0x000b, t01=0x0150}
0x1284…128c Head {h00=0x0004, h01=0x0050, t00=0x000b, t01=0x015a}
0x128c…1296 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x0162}
0x1296…12a0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x016c}
0x12a0…12ce Head {h00=0x002a, h01=0x0050, text=»LBVDU EQU 1920 1920 CHARACTER DISPLAY «, t00=0x000b, t01=0x0176}
0x12ce…12f4 Head {h00=0x0022, h01=0x0050, text=»LPAGE EQU 48 LINES ON ONE PAGE«, t00=0x000c, t01=0x0014}
0x12f4…1322 Head {h00=0x002a, h01=0x0050, text=»LLINE EQU 80 80 CHAR PER DISPLAY LINE «, t00=0x000c, t01=0x003a}
0x1322…1354 Head {h00=0x002e, h01=0x0050, text=»TID EQU -4 TASK IDENTITY T:A DISPLACEMENT «, t00=0x000c, t01=0x0068}
0x1354…135e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x009a}
0x135e…1388 Head {h00=0x0026, h01=0x0050, text=»* CONFIG DATA 'CB1' REL ADDRESSES «, t00=0x000c, t01=0x00a4}
0x1388…1392 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x00ce}
0x1392…13b8 Head {h00=0x0022, h01=0x0050, text=»NBRKBV EQU 0 NUMBER OF KB/VDUS«, t00=0x000c, t01=0x00d8}
0x13b8…13e2 Head {h00=0x0026, h01=0x0050, text=»NBRGTP EQU NBRKBV+2 NUMBER OF GTPS«, t00=0x000c, t01=0x00fe}
0x13e2…13ec Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x0128}
0x13ec…1422 Head {h00=0x0032, h01=0x0050, text=»MF1KBV EQU NBRGTP+2 DV ADDRESSES KB/VDU MF #1 «, t00=0x000c, t01=0x0132}
0x1422…1458 Head {h00=0x0032, h01=0x0050, text=»MF1GTP EQU MF1KBV+16 DV ADDRESSES GTPS MF # 1 «, t00=0x000c, t01=0x0168}
0x1458…146c Head {h00=0x0010, h01=0x0050, text=» IFT DCLIN=2«, t00=0x000d, t01=0x000e}
0x146c…1488 Head {h00=0x0018, h01=0x0050, text=»MF2KBV EQU MF1GTP+16«, t00=0x000d, t01=0x0022}
0x1488…14a4 Head {h00=0x0018, h01=0x0050, text=»MF2GTP EQU MF2KBV+16«, t00=0x000d, t01=0x003e}
0x14a4…14b0 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x000d, t01=0x005a}
0x14b0…14ba Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x0066}
0x14ba…14c2 Head {h00=0x0004, h01=0x0050, t00=0x000d, t01=0x0070}
0x14c2…14cc Head {h00=0x0006, h01=0x0050, text=» «, t00=0x000d, t01=0x0078}
0x14cc…1514 Head {h00=0x0044, h01=0x0050, text=»****************************************************************«, t00=0x000d, t01=0x0082}
0x1514…151e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x00ca}
0x151e…1536 Head {h00=0x0014, h01=0x0050, text=»* INPUT FROM DC «, t00=0x000d, t01=0x00d4}
0x1536…1540 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x00ec}
0x1540…157c Head {h00=0x0038, h01=0x0050, text=»****************************************************«, t00=0x000d, t01=0x00f6}
0x157c…1586 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x0132}
0x1586…15a6 Head {h00=0x001c, h01=0x0050, text=»* RELATIVE POS IN ECBBLK«, t00=0x000d, t01=0x013c}
0x15a6…15b6 Head {h00=0x000c, h01=0x0050, text=»KB EQU 2«, t00=0x000d, t01=0x015c}
0x15b6…15c8 Head {h00=0x000e, h01=0x0050, text=»DC1 EQU 4 «, t00=0x000d, t01=0x016c}
0x15c8…15da Head {h00=0x000e, h01=0x0050, text=»DC2 EQU 6 «, t00=0x000d, t01=0x017e}
0x15da…15e4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x0190}
0x15e4…15f8 Head {h00=0x0010, h01=0x0050, text=»DCINP EQU * «, t00=0x000e, t01=0x000a}
0x15f8…1622 Head {h00=0x0026, h01=0x0050, text=» CF A14,GTRBUF GET RECEIVE BUFFER «, t00=0x000e, t01=0x001e}
0x1622…163e Head {h00=0x0018, h01=0x0050, text=» LD A8,ECBDCC,TCABAS«, t00=0x000e, t01=0x0048}
0x163e…1662 Head {h00=0x0020, h01=0x0050, text=» CF A14,DCGETM READ MESSAGE «, t00=0x000e, t01=0x0064}
0x1662…1676 Head {h00=0x0010, h01=0x0050, text=» IFF DCLIN=2«, t00=0x000e, t01=0x0088}
0x1676…1694 Head {h00=0x001a, h01=0x0050, text=» CM ECBBLK+DC1,TCABAS «, t00=0x000e, t01=0x009c}
0x1694…16a0 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x000e, t01=0x00ba}
0x16a0…16b4 Head {h00=0x0010, h01=0x0050, text=» IFT DCLIN=2«, t00=0x000e, t01=0x00c6}
0x16b4…16ce Head {h00=0x0016, h01=0x0050, text=» LD A1,MAIN,TCABAS«, t00=0x000e, t01=0x00da}
0x16ce…16ee Head {h00=0x001c, h01=0x0050, text=» CW A8,ECBBLK+DC2,TCABAS«, t00=0x000e, t01=0x00f4}
0x16ee…170a Head {h00=0x0018, h01=0x0050, text=» RF(E) DCIN20 MF # 2«, t00=0x000e, t01=0x0114}
0x170a…1728 Head {h00=0x001a, h01=0x0050, text=» CM ECBBLK+DC1,TCABAS «, t00=0x000e, t01=0x0130}
0x1728…173a Head {h00=0x000e, h01=0x0050, text=» LDR A1,A1«, t00=0x000e, t01=0x014e}
0x173a…175a Head {h00=0x001c, h01=0x0050, text=» RF(NZ) DCIN90 WRONG MF «, t00=0x000e, t01=0x0160}
0x175a…176c Head {h00=0x000e, h01=0x0050, text=» RF DCIN30«, t00=0x000e, t01=0x0180}
0x176c…1780 (15, 0, 400) Head {h00=0x0010, h01=0x0050, text=»DCIN20 EQU *«, t00=0x000f, t01=0x0004}
0x1780…179e Head {h00=0x001a, h01=0x0050, text=» CM ECBBLK+DC2,TCABAS «, t00=0x000f, t01=0x0018}
0x179e…17b0 Head {h00=0x000e, h01=0x0050, text=» LDR A1,A1«, t00=0x000f, t01=0x0036}
0x17b0…17ce Head {h00=0x001a, h01=0x0050, text=» RF(Z) DCIN90 WRONG MF«, t00=0x000f, t01=0x0048}
0x17ce…17da Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x000f, t01=0x0066}
0x17da…17ee Head {h00=0x0010, h01=0x0050, text=»DCIN30 EQU *«, t00=0x000f, t01=0x0072}
0x17ee…1802 Head {h00=0x0010, h01=0x0050, text=» IFT OFLIN=1«, t00=0x000f, t01=0x0086}
0x1802…181e Head {h00=0x0018, h01=0x0050, text=» LD A1,OFFFLG,TCABAS«, t00=0x000f, t01=0x009a}
0x181e…1834 Head {h00=0x0012, h01=0x0050, text=» RF(NZ) DCIN90«, t00=0x000f, t01=0x00b6}
0x1834…1840 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x000f, t01=0x00cc}
0x1840…186c Head {h00=0x0028, h01=0x0050, text=» LD A1,ECBEL,A8 EFFECTIVE DC-LENGTH «, t00=0x000f, t01=0x00d8}
0x186c…1888 Head {h00=0x0018, h01=0x0050, text=» ST A1,DCLENG,TCABAS«, t00=0x000f, t01=0x0104}
0x1888…1890 Head {h00=0x0004, h01=0x0050, t00=0x000f, t01=0x0120}
0x1890…1898 Head {h00=0x0004, h01=0x0050, t00=0x000f, t01=0x0128}
0x1898…18b4 Head {h00=0x0018, h01=0x0050, text=» LD A5,KBINH,TCABAS «, t00=0x000f, t01=0x0130}
0x18b4…18e6 Head {h00=0x002e, h01=0x0050, text=» ORK A5,3 BIT 14,15:= 1. TOTALLY DISABLED «, t00=0x000f, t01=0x014c}
0x18e6…1918 Head {h00=0x002e, h01=0x0050, text=»* KEYBOARD. BIT 15 = 0 AFTER DISPLAYING.«, t00=0x000f, t01=0x017e}
0x1918…1934 Head {h00=0x0018, h01=0x0050, text=» ST A5,KBINH,TCABAS «, t00=0x0010, t01=0x0020}
0x1934…1966 Head {h00=0x002e, h01=0x0050, text=» CF A14,LINHON TURN ON 'KEYBOARD INHIBIT' «, t00=0x0010, t01=0x003c}
0x1966…1998 Head {h00=0x002e, h01=0x0050, text=» CF A14,LSAVON TURN ON "SYSTEM AVAILABLE" «, t00=0x0010, t01=0x006e}
0x1998…19ae Head {h00=0x0012, h01=0x0050, text=» CF A14,UPDATE«, t00=0x0010, t01=0x00a0}
0x19ae…19c4 Head {h00=0x0012, h01=0x0050, text=» CF A14,DISPL «, t00=0x0010, t01=0x00b6}
0x19c4…19e0 Head {h00=0x0018, h01=0x0050, text=» LD A2,PCURS,TCABAS «, t00=0x0010, t01=0x00cc}
0x19e0…19f6 Head {h00=0x0012, h01=0x0050, text=» CF A14,ATMASB«, t00=0x0010, t01=0x00e8}
0x19f6…19fe Head {h00=0x0004, h01=0x0050, t00=0x0010, t01=0x00fe}
0x19fe…1a06 Head {h00=0x0004, h01=0x0050, t00=0x0010, t01=0x0106}
0x1a06…1a10 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x010e}
0x1a10…1a2c Head {h00=0x0018, h01=0x0050, text=» LD A2,KBINH,TCABAS «, t00=0x0010, t01=0x0118}
0x1a2c…1a4a Head {h00=0x001a, h01=0x0050, text=» ANK A2,1 BIT 15 = 0? «, t00=0x0010, t01=0x0134}
0x1a4a…1a60 Head {h00=0x0012, h01=0x0050, text=» RF(Z) DCIN60 «, t00=0x0010, t01=0x0152}
0x1a60…1a7c Head {h00=0x0018, h01=0x0050, text=» LD A2,KBINH,TCABAS «, t00=0x0010, t01=0x0168}
0x1a7c…1aae Head {h00=0x002e, h01=0x0050, text=» ANK A2,/E BIT 15:=0 KEYBOARD NOT TOTALLY «, t00=0x0010, t01=0x0184}
0x1aae…1ace Head {h00=0x001c, h01=0x0050, text=»* INHIBITED ANY LONGER«, t00=0x0011, t01=0x0026}
0x1ace…1aea Head {h00=0x0018, h01=0x0050, text=» ST A2,KBINH,TCABAS «, t00=0x0011, t01=0x0046}
0x1aea…1b04 Head {h00=0x0016, h01=0x0050, text=» LD A2,WCC,TCABAS «, t00=0x0011, t01=0x0062}
0x1b04…1b16 Head {h00=0x000e, h01=0x0050, text=» ANK A2,2 «, t00=0x0011, t01=0x007c}
0x1b16…1b2c Head {h00=0x0012, h01=0x0050, text=» RF(Z) DCIN95 «, t00=0x0011, t01=0x008e}
0x1b2c…1b40 Head {h00=0x0010, h01=0x0050, text=»DCIN60 EQU *«, t00=0x0011, t01=0x00a4}
0x1b40…1b72 Head {h00=0x002e, h01=0x0050, text=» CF A14,LINHOF TURN OFF 'KEYBOARD INHIBIT'«, t00=0x0011, t01=0x00b8}
0x1b72…1b8e Head {h00=0x0018, h01=0x0050, text=» LD A2,KBINH,TCABAS «, t00=0x0011, t01=0x00ea}
0x1b8e…1bbe Head {h00=0x002c, h01=0x0050, text=» ANK A2,4 BITS 14,15:=0 RESTORE KEYBOARD«, t00=0x0011, t01=0x0106}
0x1bbe…1bda Head {h00=0x0018, h01=0x0050, text=» ST A2,KBINH,TCABAS «, t00=0x0011, t01=0x0136}
0x1bda…1bec Head {h00=0x000e, h01=0x0050, text=» RF DCIN95«, t00=0x0011, t01=0x0152}
0x1bec…1c00 Head {h00=0x0010, h01=0x0050, text=»DCIN90 EQU *«, t00=0x0011, t01=0x0164}
0x1c00…1c1c Head {h00=0x0018, h01=0x0050, text=» LD A8,ECBDCC,TCABAS«, t00=0x0011, t01=0x0178}
0x1c1c…1c34 (18, 0, 400) Head {h00=0x0014, h01=0x0050, text=» LD A4,ECBBA,A8 «, t00=0x0012, t01=0x0004}
0x1c34…1c4a Head {h00=0x0012, h01=0x0050, text=» CF A14,RLRBUF«, t00=0x0012, t01=0x001c}
0x1c4a…1c5e Head {h00=0x0010, h01=0x0050, text=»DCIN95 EQU *«, t00=0x0012, t01=0x0032}
0x1c5e…1c74 Head {h00=0x0012, h01=0x0050, text=» CF A14,SNBUSY«, t00=0x0012, t01=0x0046}
0x1c74…1c84 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0012, t01=0x005c}
0x1c84…1c8e Head {h00=0x0006, h01=0x0050, text=» «, t00=0x0012, t01=0x006c}
0x1c8e…1c98 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x0076}
0x1c98…1caa Head {h00=0x000e, h01=0x0050, text=»* READ DC «, t00=0x0012, t01=0x0080}
0x1caa…1cb4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x0092}
0x1cb4…1cc8 Head {h00=0x0010, h01=0x0050, text=»DCGETM EQU *«, t00=0x0012, t01=0x009c}
0x1cc8…1cda Head {h00=0x000e, h01=0x0050, text=» LDK A1,0 «, t00=0x0012, t01=0x00b0}
0x1cda…1cf0 Head {h00=0x0012, h01=0x0050, text=» CF A14,REQTIM«, t00=0x0012, t01=0x00c2}
0x1cf0…1d0e Head {h00=0x001a, h01=0x0050, text=» LDK A7,/82 READ, WAIT«, t00=0x0012, t01=0x00d8}
0x1d0e…1d3a Head {h00=0x0028, h01=0x0050, text=» CM ECBCW,A8 NO TIME OUT SUPERVISION«, t00=0x0012, t01=0x00f6}
0x1d3a…1d56 Head {h00=0x0018, h01=0x0050, text=» LDKL A1,RBUFL+RBUFL«, t00=0x0012, t01=0x0122}
0x1d56…1d78 Head {h00=0x001e, h01=0x0050, text=» ST A1,ECBRL,A8 REQ LENGTH«, t00=0x0012, t01=0x013e}
0x1d78…1d90 Head {h00=0x0014, h01=0x0050, text=» ST A4,ECBBA,A8 «, t00=0x0012, t01=0x0160}
0x1d90…1d9c Head {h00=0x0008, h01=0x0050, text=» LKM«, t00=0x0012, t01=0x0178}
0x1d9c…1dac Head {h00=0x000c, h01=0x0050, text=» DATA 1 «, t00=0x0012, t01=0x0184}
0x1dac…1dbc (19, 0, 400) Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0013, t01=0x0004}
0x1dbc…1dc6 Head {h00=0x0006, h01=0x0050, text=» «, t00=0x0013, t01=0x0014}
0x1dc6…1e08 Head {h00=0x003e, h01=0x0050, text=»**********************************************************«, t00=0x0013, t01=0x001e}
0x1e08…1e12 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x0060}
0x1e12…1e2c Head {h00=0x0016, h01=0x0050, text=»* BUFFER HANDLING «, t00=0x0013, t01=0x006a}
0x1e2c…1e36 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x0084}
0x1e36…1e78 Head {h00=0x003e, h01=0x0050, text=»**********************************************************«, t00=0x0013, t01=0x008e}
0x1e78…1e82 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x00d0}
0x1e82…1ea2 Head {h00=0x001c, h01=0x0050, text=»RLINK EQU RBUFL+RBUFL+2 «, t00=0x0013, t01=0x00da}
0x1ea2…1eac Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x00fa}
0x1eac…1ebe Head {h00=0x000e, h01=0x0050, text=»RBUF EQU *«, t00=0x0013, t01=0x0104}
0x1ebe…1ee2 Head {h00=0x0020, h01=0x0050, text=» DATA *+2 POINTER FIRST FREE«, t00=0x0013, t01=0x0116}
0x1ee2…1ef8 Head {h00=0x0012, h01=0x0050, text=» IFF RBUFNR=1 «, t00=0x0013, t01=0x013a}
0x1ef8…1f0e Head {h00=0x0012, h01=0x0050, text=» DATA *+RLINK «, t00=0x0013, t01=0x0150}
0x1f0e…1f20 Head {h00=0x000e, h01=0x0050, text=» RES RBUFL«, t00=0x0013, t01=0x0166}
0x1f20…1f36 Head {h00=0x0012, h01=0x0050, text=» IFF RBUFNR=2 «, t00=0x0013, t01=0x0178}
0x1f36…1f4c Head {h00=0x0012, h01=0x0050, text=» DATA *+RLINK «, t00=0x0013, t01=0x018e}
0x1f4c…1f5e Head {h00=0x000e, h01=0x0050, text=» RES RBUFL«, t00=0x0014, t01=0x0014}
0x1f5e…1f74 Head {h00=0x0012, h01=0x0050, text=» IFF RBUFNR=3 «, t00=0x0014, t01=0x0026}
0x1f74…1f8a Head {h00=0x0012, h01=0x0050, text=» DATA *+RLINK «, t00=0x0014, t01=0x003c}
0x1f8a…1f9c Head {h00=0x000e, h01=0x0050, text=» RES RBUFL«, t00=0x0014, t01=0x0052}
0x1f9c…1fb2 Head {h00=0x0012, h01=0x0050, text=» IFF RBUFNR=4 «, t00=0x0014, t01=0x0064}
0x1fb2…1fc8 Head {h00=0x0012, h01=0x0050, text=» DATA *+RLINK «, t00=0x0014, t01=0x007a}
0x1fc8…1fda Head {h00=0x000e, h01=0x0050, text=» RES RBUFL«, t00=0x0014, t01=0x0090}
0x1fda…1fe6 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0014, t01=0x00a2}
0x1fe6…2002 Head {h00=0x0018, h01=0x0050, text=» DATA 0 END OF CHAIN«, t00=0x0014, t01=0x00ae}
0x2002…2014 Head {h00=0x000e, h01=0x0050, text=» RES RBUFL«, t00=0x0014, t01=0x00ca}
0x2014…201e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x00dc}
0x201e…2028 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x00e6}
0x2028…2048 Head {h00=0x001c, h01=0x0050, text=»TLINK EQU TBUFL+TBUFL+2 «, t00=0x0014, t01=0x00f0}
0x2048…2052 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x0110}
0x2052…2064 Head {h00=0x000e, h01=0x0050, text=»TBUF EQU *«, t00=0x0014, t01=0x011a}
0x2064…2088 Head {h00=0x0020, h01=0x0050, text=» DATA *+2 POINTER FIRST FREE«, t00=0x0014, t01=0x012c}
0x2088…209e Head {h00=0x0012, h01=0x0050, text=» IFF TBUFNR=1 «, t00=0x0014, t01=0x0150}
0x209e…20b4 Head {h00=0x0012, h01=0x0050, text=» DATA *+TLINK «, t00=0x0014, t01=0x0166}
0x20b4…20c6 Head {h00=0x000e, h01=0x0050, text=» RES TBUFL«, t00=0x0014, t01=0x017c}
0x20c6…20dc Head {h00=0x0012, h01=0x0050, text=» IFF TBUFNR=2 «, t00=0x0014, t01=0x018e}
0x20dc…20f2 Head {h00=0x0012, h01=0x0050, text=» DATA *+TLINK «, t00=0x0015, t01=0x0014}
0x20f2…2104 Head {h00=0x000e, h01=0x0050, text=» RES TBUFL«, t00=0x0015, t01=0x002a}
0x2104…211a Head {h00=0x0012, h01=0x0050, text=» IFF TBUFNR=3 «, t00=0x0015, t01=0x003c}
0x211a…2130 Head {h00=0x0012, h01=0x0050, text=» DATA *+TLINK «, t00=0x0015, t01=0x0052}
0x2130…2142 Head {h00=0x000e, h01=0x0050, text=» RES TBUFL«, t00=0x0015, t01=0x0068}
0x2142…2158 Head {h00=0x0012, h01=0x0050, text=» IFF TBUFNR=4 «, t00=0x0015, t01=0x007a}
0x2158…216e Head {h00=0x0012, h01=0x0050, text=» DATA *+TLINK «, t00=0x0015, t01=0x0090}
0x216e…2180 Head {h00=0x000e, h01=0x0050, text=» RES TBUFL«, t00=0x0015, t01=0x00a6}
0x2180…218c Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0015, t01=0x00b8}
0x218c…21a8 Head {h00=0x0018, h01=0x0050, text=» DATA 0 END OF CHAIN«, t00=0x0015, t01=0x00c4}
0x21a8…21ba Head {h00=0x000e, h01=0x0050, text=» RES TBUFL«, t00=0x0015, t01=0x00e0}
0x21ba…21c4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x00f2}
0x21c4…21ce Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x00fc}
0x21ce…21e8 Head {h00=0x0016, h01=0x0050, text=»* GET WRITE BUFFER«, t00=0x0015, t01=0x0106}
0x21e8…21f2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x0120}
0x21f2…2206 Head {h00=0x0010, h01=0x0050, text=»GTWBUF EQU *«, t00=0x0015, t01=0x012a}
0x2206…221c Head {h00=0x0012, h01=0x0050, text=» LDKL A5,TBUF «, t00=0x0015, t01=0x013e}
0x221c…2232 Head {h00=0x0012, h01=0x0050, text=» CF A14,GETBUF«, t00=0x0015, t01=0x0154}
0x2232…2244 Head {h00=0x000e, h01=0x0050, text=» LDR A7,A4«, t00=0x0015, t01=0x016a}
0x2244…2258 Head {h00=0x0010, h01=0x0050, text=» LDR A12,A4 «, t00=0x0015, t01=0x017c}
0x2258…226e Head {h00=0x0012, h01=0x0050, text=» ADK A7,2 SKIP«, t00=0x0015, t01=0x0190}
0x226e…2292 Head {h00=0x0020, h01=0x0050, text=» LDKL A9,2 FOR DV ADDRESS «, t00=0x0016, t01=0x0016}
0x2292…22a2 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0016, t01=0x003a}
0x22a2…22ac Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0016, t01=0x004a}
0x22ac…22c8 Head {h00=0x0018, h01=0x0050, text=»* GET RECEIVE BUFFER«, t00=0x0016, t01=0x0054}
0x22c8…22d2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0016, t01=0x0070}
0x22d2…22e6 Head {h00=0x0010, h01=0x0050, text=»GTRBUF EQU *«, t00=0x0016, t01=0x007a}
0x22e6…22fc Head {h00=0x0012, h01=0x0050, text=» LDKL A5,RBUF «, t00=0x0016, t01=0x008e}
0x22fc…2306 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0016, t01=0x00a4}
0x2306…2310 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0016, t01=0x00ae}
0x2310…2324 Head {h00=0x0010, h01=0x0050, text=»GETBUF EQU *«, t00=0x0016, t01=0x00b8}
0x2324…2338 Head {h00=0x0010, h01=0x0050, text=» LDR* A4,A5 «, t00=0x0016, t01=0x00cc}
0x2338…235c Head {h00=0x0020, h01=0x0050, text=» RF(Z) GETB50 NO BUFFER FREE«, t00=0x0016, t01=0x00e0}
0x235c…2370 Head {h00=0x0010, h01=0x0050, text=» LDR* A3,A4 «, t00=0x0016, t01=0x0104}
0x2370…2382 Head {h00=0x000e, h01=0x0050, text=» STR A3,A5«, t00=0x0016, t01=0x0118}
0x2382…239e Head {h00=0x0018, h01=0x0050, text=» ADK A4,2 SKIP LINK «, t00=0x0016, t01=0x012a}
0x239e…23ae Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0016, t01=0x0146}
0x23ae…23c2 Head {h00=0x0010, h01=0x0050, text=»GETB50 EQU *«, t00=0x0016, t01=0x0156}
0x23c2…23ce Head {h00=0x0008, h01=0x0050, text=» LKM«, t00=0x0016, t01=0x016a}
0x23ce…23ea Head {h00=0x0018, h01=0x0050, text=» DATA 0 SWITCH TASK «, t00=0x0016, t01=0x0176}
0x23ea…23fc (23, 0, 400) Head {h00=0x000e, h01=0x0050, text=» RB GETBUF«, t00=0x0017, t01=0x0004}
0x23fc…2406 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0017, t01=0x0016}
0x2406…241e Head {h00=0x0014, h01=0x0050, text=»* RELEASE BUFFER«, t00=0x0017, t01=0x0020}
0x241e…2428 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0017, t01=0x0038}
0x2428…243c Head {h00=0x0010, h01=0x0050, text=»RLRBUF EQU *«, t00=0x0017, t01=0x0042}
0x243c…2452 Head {h00=0x0012, h01=0x0050, text=» LDKL A2,RBUF «, t00=0x0017, t01=0x0056}
0x2452…2466 Head {h00=0x0010, h01=0x0050, text=»RELB05 EQU *«, t00=0x0017, t01=0x006c}
0x2466…2486 Head {h00=0x001c, h01=0x0050, text=» SUK A4,2 POINT TO LINK «, t00=0x0017, t01=0x0080}
0x2486…249a Head {h00=0x0010, h01=0x0050, text=»RELB10 EQU *«, t00=0x0017, t01=0x00a0}
0x249a…24ae Head {h00=0x0010, h01=0x0050, text=» LDR* A3,A2 «, t00=0x0017, t01=0x00b4}
0x24ae…24c4 Head {h00=0x0012, h01=0x0050, text=» RF(Z) RELB20 «, t00=0x0017, t01=0x00c8}
0x24c4…24d6 Head {h00=0x000e, h01=0x0050, text=» LDR A2,A3«, t00=0x0017, t01=0x00de}
0x24d6…24e8 Head {h00=0x000e, h01=0x0050, text=» RB RELB10«, t00=0x0017, t01=0x00f0}
0x24e8…24fc Head {h00=0x0010, h01=0x0050, text=»RELB20 EQU *«, t00=0x0017, t01=0x0102}
0x24fc…250e Head {h00=0x000e, h01=0x0050, text=» STR A4,A2«, t00=0x0017, t01=0x0116}
0x250e…251e Head {h00=0x000c, h01=0x0050, text=» CMR A4 «, t00=0x0017, t01=0x0128}
0x251e…252e Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0017, t01=0x0138}
0x252e…2538 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0017, t01=0x0148}
0x2538…254c Head {h00=0x0010, h01=0x0050, text=»RLWBUF EQU *«, t00=0x0017, t01=0x0152}
0x254c…2562 Head {h00=0x0012, h01=0x0050, text=» LDKL A2,TBUF «, t00=0x0017, t01=0x0166}
0x2562…2574 Head {h00=0x000e, h01=0x0050, text=» RB RELB05«, t00=0x0017, t01=0x017c}
0x2574…257e Head {h00=0x0006, h01=0x0050, text=» «, t00=0x0017, t01=0x018e}
0x257e…2588 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0018, t01=0x0008}
0x2588…2592 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0018, t01=0x0012}
0x2592…25b8 Head {h00=0x0022, h01=0x0050, text=»* STORE CHARACTER IN DC BUFFER«, t00=0x0018, t01=0x001c}
0x25b8…25c2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0018, t01=0x0042}
0x25c2…25d4 Head {h00=0x000e, h01=0x0050, text=»* A2=CHAR «, t00=0x0018, t01=0x004c}
0x25d4…25f0 Head {h00=0x0018, h01=0x0050, text=»* A7=BUFFER POINTER «, t00=0x0018, t01=0x005e}
0x25f0…2616 Head {h00=0x0022, h01=0x0050, text=»* A9=BUFFER CHARACTER COUNTER «, t00=0x0018, t01=0x007a}
0x2616…2620 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0018, t01=0x00a0}
0x2620…262a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0018, t01=0x00aa}
0x262a…263e Head {h00=0x0010, h01=0x0050, text=»PDCCH EQU * «, t00=0x0018, t01=0x00b4}
0x263e…265e Head {h00=0x001c, h01=0x0050, text=» CWK A9,TBUFL+TBUFL =3 «, t00=0x0018, t01=0x00c8}
0x265e…267c Head {h00=0x001a, h01=0x0050, text=» RF(G) PDCCHR OVERFLOW«, t00=0x0018, t01=0x00e8}
0x267c…268e Head {h00=0x000e, h01=0x0050, text=» SCR A2,A7«, t00=0x0018, t01=0x0106}
0x268e…26a2 Head {h00=0x0010, h01=0x0050, text=»PDCCH1 EQU *«, t00=0x0018, t01=0x0118}
0x26a2…26b4 Head {h00=0x000e, h01=0x0050, text=» ADK A7,1 «, t00=0x0018, t01=0x012c}
0x26b4…26c6 Head {h00=0x000e, h01=0x0050, text=» ADKL A9,1«, t00=0x0018, t01=0x013e}
0x26c6…26dc Head {h00=0x0012, h01=0x0050, text=»PDCCHR RTN A14«, t00=0x0018, t01=0x0150}
0x26dc…26e6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0018, t01=0x0166}
0x26e6…26f0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0018, t01=0x0170}
0x26f0…2714 Head {h00=0x0020, h01=0x0050, text=»* STORE ATTENTION ID FROM A2«, t00=0x0018, t01=0x017a}
0x2714…271e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0019, t01=0x000e}
0x271e…2728 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0019, t01=0x0018}
0x2728…2742 Head {h00=0x0016, h01=0x0050, text=»PAID CF A14,PDCCH «, t00=0x0019, t01=0x0022}
0x2742…2752 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0019, t01=0x003c}
0x2752…275c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0019, t01=0x004c}
0x275c…2766 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0019, t01=0x0056}
0x2766…2792 Head {h00=0x0028, h01=0x0050, text=»* GET CHARACTER FROM DC BUFFER TO A2«, t00=0x0019, t01=0x0060}
0x2792…279c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0019, t01=0x008c}
0x279c…27a6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0019, t01=0x0096}
0x27a6…27be Head {h00=0x0014, h01=0x0050, text=»GDCCH LCR A2,A7 «, t00=0x0019, t01=0x00a0}
0x27be…27d2 Head {h00=0x0010, h01=0x0050, text=» ANK A2,/FF «, t00=0x0019, t01=0x00b8}
0x27d2…27fc Head {h00=0x0026, h01=0x0050, text=» RF(NZ) GDCC:1 NOT NULL CHARACTER «, t00=0x0019, t01=0x00cc}
0x27fc…2824 Head {h00=0x0024, h01=0x0050, text=» LDK A2,/7F LOAD NULL CHARACTER «, t00=0x0019, t01=0x00f6}
0x2824…2838 Head {h00=0x0010, h01=0x0050, text=»GDCC:1 EQU *«, t00=0x0019, t01=0x011e}
0x2838…284a Head {h00=0x000e, h01=0x0050, text=» RB PDCCH1«, t00=0x0019, t01=0x0132}
0x284a…2854 Head {h00=0x0006, h01=0x0050, text=» «, t00=0x0019, t01=0x0144}
0x2854…285e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0019, t01=0x014e}
0x285e…2868 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0019, t01=0x0158}
0x2868…289a Head {h00=0x002e, h01=0x0050, text=»* GET BUFFER ADDRESS TO A1 FROM DC BUFFER «, t00=0x0019, t01=0x0162}
0x289a…28a4 (26, 0, 400) Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001a, t01=0x0004}
0x28a4…28ae Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001a, t01=0x000e}
0x28ae…28ca Head {h00=0x0018, h01=0x0050, text=»GETADR CF A14,GDCCH «, t00=0x001a, t01=0x0018}
0x28ca…28e2 Head {h00=0x0014, h01=0x0050, text=» LC A1,TEBCDI,A2«, t00=0x001a, t01=0x0034}
0x28e2…28f6 Head {h00=0x0010, h01=0x0050, text=» ANK A1,/3F «, t00=0x001a, t01=0x004c}
0x28f6…2908 Head {h00=0x000e, h01=0x0050, text=» SLL A1,6 «, t00=0x001a, t01=0x0060}
0x2908…291e Head {h00=0x0012, h01=0x0050, text=» CF A14,GDCCH «, t00=0x001a, t01=0x0072}
0x291e…2936 Head {h00=0x0014, h01=0x0050, text=» LC A2,TEBCDI,A2«, t00=0x001a, t01=0x0088}
0x2936…294a Head {h00=0x0010, h01=0x0050, text=» ANK A2,/3F «, t00=0x001a, t01=0x00a0}
0x294a…295c Head {h00=0x000e, h01=0x0050, text=» ORR A1,A2«, t00=0x001a, t01=0x00b4}
0x295c…296c Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x001a, t01=0x00c6}
0x296c…2976 Head {h00=0x0006, h01=0x0050, text=» «, t00=0x001a, t01=0x00d6}
0x2976…2980 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001a, t01=0x00e0}
0x2980…298a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001a, t01=0x00ea}
0x298a…29b0 Head {h00=0x0022, h01=0x0050, text=»* WRITE MESSAGE TO MAIN FRAME «, t00=0x001a, t01=0x00f4}
0x29b0…29ba Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001a, t01=0x011a}
0x29ba…29e4 Head {h00=0x0026, h01=0x0050, text=»* ON EXIT A1 CONTAINS RETURN CODE «, t00=0x001a, t01=0x0124}
0x29e4…29ee Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001a, t01=0x014e}
0x29ee…29f8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001a, t01=0x0158}
0x29f8…2a0c Head {h00=0x0010, h01=0x0050, text=»DCWRTE EQU *«, t00=0x001a, t01=0x0162}
0x2a0c…2a22 Head {h00=0x0012, h01=0x0050, text=» LDKL A8,ECBDC«, t00=0x001a, t01=0x0176}
0x2a22…2a36 Head {h00=0x0010, h01=0x0050, text=» IFT DCLIN=2«, t00=0x001a, t01=0x018c}
0x2a36…2a50 Head {h00=0x0016, h01=0x0050, text=» LD A7,MAIN,TCABAS«, t00=0x001b, t01=0x0010}
0x2a50…2a64 Head {h00=0x0010, h01=0x0050, text=» RF(Z) DC050«, t00=0x001b, t01=0x002a}
0x2a64…2a7c Head {h00=0x0014, h01=0x0050, text=» LDKL A8,ECBDC2 «, t00=0x001b, t01=0x003e}
0x2a7c…2a88 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x001b, t01=0x0056}
0x2a88…2a9c Head {h00=0x0010, h01=0x0050, text=»DC050 EQU * «, t00=0x001b, t01=0x0062}
0x2a9c…2ab2 Head {h00=0x0012, h01=0x0050, text=» ADR A8,CREBAS«, t00=0x001b, t01=0x0076}
0x2ab2…2ac8 Head {h00=0x0012, h01=0x0050, text=» LDKL A1,TIMDC«, t00=0x001b, t01=0x008c}
0x2ac8…2ade Head {h00=0x0012, h01=0x0050, text=» CF A14,REQTIM«, t00=0x001b, t01=0x00a2}
0x2ade…2b00 Head {h00=0x001e, h01=0x0050, text=» ST A9,ECBRL,A8 REQ LENGTH«, t00=0x001b, t01=0x00b8}
0x2b00…2b28 Head {h00=0x0024, h01=0x0050, text=» ST A12,ECBBA,A8 BUFFER ADDRESS «, t00=0x001b, t01=0x00da}
0x2b28…2b44 Head {h00=0x0018, h01=0x0050, text=» LD A7,KBINH,TCABAS «, t00=0x001b, t01=0x0102}
0x2b44…2b80 Head {h00=0x0038, h01=0x0050, text=» ORK A7,2 BIT 14 :=1 DISABLE KEYBOARD.RESET ALLOWED «, t00=0x001b, t01=0x011e}
0x2b80…2b9c Head {h00=0x0018, h01=0x0050, text=» ST A7,KBINH,TCABAS «, t00=0x001b, t01=0x015a}
0x2b9c…2bb0 Head {h00=0x0010, h01=0x0050, text=» LDK A7,/86 «, t00=0x001b, t01=0x0176}
0x2bb0…2bc4 Head {h00=0x0010, h01=0x0050, text=»DC100 EQU * «, t00=0x001b, t01=0x018a}
0x2bc4…2bd0 Head {h00=0x0008, h01=0x0050, text=» LKM«, t00=0x001c, t01=0x000e}
0x2bd0…2be0 Head {h00=0x000c, h01=0x0050, text=» DATA 1 «, t00=0x001c, t01=0x001a}
0x2be0…2bf4 Head {h00=0x0010, h01=0x0050, text=»DC200 EQU * «, t00=0x001c, t01=0x002a}
0x2bf4…2c08 Head {h00=0x0010, h01=0x0050, text=» LDR A4,A12 «, t00=0x001c, t01=0x003e}
0x2c08…2c1e Head {h00=0x0012, h01=0x0050, text=» CF A14,RLWBUF«, t00=0x001c, t01=0x0052}
0x2c1e…2c46 Head {h00=0x0024, h01=0x0050, text=» LD A1,ECBRC,A8 GET RETURN CODE «, t00=0x001c, t01=0x0068}
0x2c46…2c5a Head {h00=0x0010, h01=0x0050, text=» RF(Z) DC300«, t00=0x001c, t01=0x0090}
0x2c5a…2c76 Head {h00=0x0018, h01=0x0050, text=» LD A7,KBINH,TCABAS «, t00=0x001c, t01=0x00a4}
0x2c76…2ca2 Head {h00=0x0028, h01=0x0050, text=» ANK A7,/D BIT 14:=0 ALLIWE KEYBOARD«, t00=0x001c, t01=0x00c0}
0x2ca2…2cbe Head {h00=0x0018, h01=0x0050, text=» ST A7,KBINH,TCABAS «, t00=0x001c, t01=0x00ec}
0x2cbe…2cf0 Head {h00=0x002e, h01=0x0050, text=» CF A14,LINHOF TURN OFF "KEYBOARD INHIBIT «, t00=0x001c, t01=0x0108}
0x2cf0…2d22 Head {h00=0x002e, h01=0x0050, text=» CF A14,LSAVOF TURN OFF "SYSTEM AVAILABLE"«, t00=0x001c, t01=0x013a}
0x2d22…2d2c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001c, t01=0x016c}
0x2d2c…2d5a Head {h00=0x002a, h01=0x0050, text=» LDK A7,/04 RESET KEYBOARD ECB BUFFER «, t00=0x001c, t01=0x0176}
0x2d5a…2d70 Head {h00=0x0012, h01=0x0050, text=» LDKL A8,ECBKB«, t00=0x001d, t01=0x0014}
0x2d70…2d86 Head {h00=0x0012, h01=0x0050, text=» ADR A8,CREBAS«, t00=0x001d, t01=0x002a}
0x2d86…2d92 Head {h00=0x0008, h01=0x0050, text=» LKM«, t00=0x001d, t01=0x0040}
0x2d92…2da2 Head {h00=0x000c, h01=0x0050, text=» DATA 1 «, t00=0x001d, t01=0x004c}
0x2da2…2dac Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001d, t01=0x005c}
0x2dac…2dbc Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x001d, t01=0x0066}
0x2dbc…2dd0 Head {h00=0x0010, h01=0x0050, text=»DC300 EQU * «, t00=0x001d, t01=0x0076}
0x2dd0…2e02 Head {h00=0x002e, h01=0x0050, text=» CF A14,LSAVON TURN ON 'SYSTEM AVAILABLE' «, t00=0x001d, t01=0x008a}
0x2e02…2e12 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x001d, t01=0x00bc}
0x2e12…2e1c Head {h00=0x0006, h01=0x0050, text=» «, t00=0x001d, t01=0x00cc}
0x2e1c…2e26 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001d, t01=0x00d6}
0x2e26…2e30 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001d, t01=0x00e0}
0x2e30…2e5c Head {h00=0x0028, h01=0x0050, text=»* STORE CURSOR ADDRESS IN DC BUFFER «, t00=0x001d, t01=0x00ea}
0x2e5c…2e66 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001d, t01=0x0116}
0x2e66…2e70 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001d, t01=0x0120}
0x2e70…2e90 Head {h00=0x001c, h01=0x0050, text=»CURSA LD A1,PCURS,TCABAS«, t00=0x001d, t01=0x012a}
0x2e90…2ea2 Head {h00=0x000e, h01=0x0050, text=» RF BUFADR«, t00=0x001d, t01=0x014a}
0x2ea2…2eac Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001d, t01=0x015c}
0x2eac…2eb6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001d, t01=0x0166}
0x2eb6…2ee2 Head {h00=0x0028, h01=0x0050, text=»* STORE BUFFER ADDRESS IN DC BUFFER «, t00=0x001d, t01=0x0170}
0x2ee2…2eec Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001e, t01=0x000c}
0x2eec…2f0e Head {h00=0x001e, h01=0x0050, text=»* A1=BINARY BUFFER ADDRESS«, t00=0x001e, t01=0x0016}
0x2f0e…2f18 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001e, t01=0x0038}
0x2f18…2f22 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001e, t01=0x0042}
0x2f22…2f3a Head {h00=0x0014, h01=0x0050, text=»BUFADR LDR A2,A1«, t00=0x001e, t01=0x004c}
0x2f3a…2f4c Head {h00=0x000e, h01=0x0050, text=» SRL A2,6 «, t00=0x001e, t01=0x0064}
0x2f4c…2f60 Head {h00=0x0010, h01=0x0050, text=» ANK A2,/3F «, t00=0x001e, t01=0x0076}
0x2f60…2f8a Head {h00=0x0026, h01=0x0050, text=» LC A2,TASCII,A2 CONVERT TO ASCII «, t00=0x001e, t01=0x008a}
0x2f8a…2fa0 Head {h00=0x0012, h01=0x0050, text=» CF A14,PDCCH «, t00=0x001e, t01=0x00b4}
0x2fa0…2fb2 Head {h00=0x000e, h01=0x0050, text=» LDR A2,A1«, t00=0x001e, t01=0x00ca}
0x2fb2…2fc6 Head {h00=0x0010, h01=0x0050, text=» ANK A2,/3F «, t00=0x001e, t01=0x00dc}
0x2fc6…2fde Head {h00=0x0014, h01=0x0050, text=» LC A2,TASCII,A2«, t00=0x001e, t01=0x00f0}
0x2fde…2ff4 Head {h00=0x0012, h01=0x0050, text=» CF A14,PDCCH «, t00=0x001e, t01=0x0108}
0x2ff4…3004 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x001e, t01=0x011e}
0x3004…300e Head {h00=0x0006, h01=0x0050, text=» «, t00=0x001e, t01=0x012e}
0x300e…3018 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001e, t01=0x0138}
0x3018…3022 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001e, t01=0x0142}
0x3022…3058 Head {h00=0x0032, h01=0x0050, text=»* GET MODIFIED DATA FROM DISPLAY IMAGE BUFFER «, t00=0x001e, t01=0x014c}
0x3058…3062 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001e, t01=0x0182}
0x3062…3086 Head {h00=0x0020, h01=0x0050, text=»* A3=BUFFER POSITION BINARY «, t00=0x001e, t01=0x018c}
0x3086…30a2 Head {h00=0x0018, h01=0x0050, text=»* A4=BUFFER POINTER «, t00=0x001f, t01=0x0020}
0x30a2…30ac Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001f, t01=0x003c}
0x30ac…30b6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001f, t01=0x0046}
0x30b6…30dc Head {h00=0x0022, h01=0x0050, text=»RDMOD LDK A3,0 RESET POSITION «, t00=0x001f, t01=0x0050}
0x30dc…30f2 Head {h00=0x0012, h01=0x0050, text=» LDKL A4,BVDU «, t00=0x001f, t01=0x0076}
0x30f2…3118 Head {h00=0x0022, h01=0x0050, text=» ADR A4,TCABAS BUFFER POINTER «, t00=0x001f, t01=0x008c}
0x3118…3142 Head {h00=0x0026, h01=0x0050, text=» ADKL A4,1919 LAST SCREEN POSITION«, t00=0x001f, t01=0x00b2}
0x3142…3162 Head {h00=0x001c, h01=0x0050, text=» LCR A2,A4 GET CHARACTER«, t00=0x001f, t01=0x00dc}
0x3162…3194 Head {h00=0x002e, h01=0x0050, text=» LDKL A4,BVDU RELOAD FIRST BUFFER POSITION«, t00=0x001f, t01=0x00fc}
0x3194…31aa Head {h00=0x0012, h01=0x0050, text=» ADR A4,TCABAS«, t00=0x001f, t01=0x012e}
0x31aa…31b2 Head {h00=0x0004, h01=0x0050, t00=0x001f, t01=0x0144}
0x31b2…31c4 Head {h00=0x000e, h01=0x0050, text=» LDR A1,A2«, t00=0x001f, t01=0x014c}
0x31c4…31e6 Head {h00=0x001e, h01=0x0050, text=» ANK A1,/60 ATTRIBUTE ??? «, t00=0x001f, t01=0x015e}
0x31e6…3202 Head {h00=0x0018, h01=0x0050, text=» RF(Z) RD200 YES!!! «, t00=0x001f, t01=0x0180}
0x3202…320a Head {h00=0x0004, h01=0x0050, t00=0x0020, t01=0x000c}
0x320a…3224 Head {h00=0x0016, h01=0x0050, text=»RD100 CWK A3,LBVDU«, t00=0x0020, t01=0x0014}
0x3224…3248 Head {h00=0x0020, h01=0x0050, text=» RF(NL) RDMODE ALL EXAMINED «, t00=0x0020, t01=0x002e}
0x3248…3264 Head {h00=0x0018, h01=0x0050, text=» LCR A2,A4 GET CHAR «, t00=0x0020, t01=0x0052}
0x3264…3276 Head {h00=0x000e, h01=0x0050, text=» ADK A3,1 «, t00=0x0020, t01=0x006e}
0x3276…3288 Head {h00=0x000e, h01=0x0050, text=» ADK A4,1 «, t00=0x0020, t01=0x0080}
0x3288…329c Head {h00=0x0010, h01=0x0050, text=»RD105 EQU * «, t00=0x0020, t01=0x0092}
0x329c…32ae Head {h00=0x000e, h01=0x0050, text=» LDR A1,A2«, t00=0x0020, t01=0x00a6}
0x32ae…32c2 Head {h00=0x0010, h01=0x0050, text=» ANK A1,/60 «, t00=0x0020, t01=0x00b8}
0x32c2…32e6 Head {h00=0x0020, h01=0x0050, text=» RF(Z) RD200 ATTRIBUTE CHAR «, t00=0x0020, t01=0x00cc}
0x32e6…3300 Head {h00=0x0016, h01=0x0050, text=»RD110 CWK A2,NULL «, t00=0x0020, t01=0x00f0}
0x3300…3326 Head {h00=0x0022, h01=0x0050, text=» RB(E) RD100 DON'T STORE NULL «, t00=0x0020, t01=0x010a}
0x3326…3354 Head {h00=0x002a, h01=0x0050, text=» CF A14,PDCCH STORE CHAR IN DC BUFFER «, t00=0x0020, t01=0x0130}
0x3354…3366 Head {h00=0x000e, h01=0x0050, text=» RB RD100 «, t00=0x0020, t01=0x015e}
0x3366…338a Head {h00=0x0020, h01=0x0050, text=»RD200 ANK A2,1 CHECK MDT BIT«, t00=0x0020, t01=0x0170}
0x338a…33ae (33, 0, 400) Head {h00=0x0020, h01=0x0050, text=» RF(NZ) RD300 MODIFIED FIELD«, t00=0x0021, t01=0x0004}
0x33ae…33c8 Head {h00=0x0016, h01=0x0050, text=»RD210 CWK A3,LBVDU«, t00=0x0021, t01=0x0028}
0x33c8…33ec Head {h00=0x0020, h01=0x0050, text=» RF(NL) RDMODE ALL EXAMINED «, t00=0x0021, t01=0x0042}
0x33ec…33fe Head {h00=0x000e, h01=0x0050, text=» LCR A2,A4«, t00=0x0021, t01=0x0066}
0x33fe…3410 Head {h00=0x000e, h01=0x0050, text=» ADK A3,1 «, t00=0x0021, t01=0x0078}
0x3410…3422 Head {h00=0x000e, h01=0x0050, text=» ADK A4,1 «, t00=0x0021, t01=0x008a}
0x3422…3434 Head {h00=0x000e, h01=0x0050, text=» LDR A1,A2«, t00=0x0021, t01=0x009c}
0x3434…3448 Head {h00=0x0010, h01=0x0050, text=» ANK A1,/60 «, t00=0x0021, t01=0x00ae}
0x3448…3470 Head {h00=0x0024, h01=0x0050, text=» RB(NZ) RD210 NO ATTRIBUTE CHAR «, t00=0x0021, t01=0x00c2}
0x3470…349e Head {h00=0x002a, h01=0x0050, text=» CWK A3,LBVDU ALL BUFFER EXAMINED ??? «, t00=0x0021, t01=0x00ea}
0x349e…34ba Head {h00=0x0018, h01=0x0050, text=» RF(NL) RDMODE YES!!«, t00=0x0021, t01=0x0118}
0x34ba…34dc Head {h00=0x001e, h01=0x0050, text=» RB RD200 ATTRIBUTE FOUND «, t00=0x0021, t01=0x0134}
0x34dc…34f4 Head {h00=0x0014, h01=0x0050, text=»RD300 LDK A2,SBA«, t00=0x0021, t01=0x0156}
0x34f4…351a Head {h00=0x0022, h01=0x0050, text=» CF A14,PDCCH SBA TO DC BUFFER«, t00=0x0021, t01=0x016e}
0x351a…353c (34, 0, 400) Head {h00=0x001e, h01=0x0050, text=» LDR A1,A3 BUFFER POSITION«, t00=0x0022, t01=0x0004}
0x353c…3560 Head {h00=0x0020, h01=0x0050, text=» CF A14,BUFADR TO DC BUFFER «, t00=0x0022, t01=0x0026}
0x3560…3572 Head {h00=0x000e, h01=0x0050, text=» RB RD100 «, t00=0x0022, t01=0x004a}
0x3572…3588 Head {h00=0x0012, h01=0x0050, text=»RDMODE RTN A14«, t00=0x0022, t01=0x005c}
0x3588…3592 Head {h00=0x0006, h01=0x0050, text=» «, t00=0x0022, t01=0x0072}
0x3592…359c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0022, t01=0x007c}
0x359c…35a6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0022, t01=0x0086}
0x35a6…35de Head {h00=0x0034, h01=0x0050, text=»* UPDATE VIDEO DISPLAY BUFFER IMAGE BY THE DATA «, t00=0x0022, t01=0x0090}
0x35de…35e8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0022, t01=0x00c8}
0x35e8…360c Head {h00=0x0020, h01=0x0050, text=»* RECEIVED FROM THE DC LINE «, t00=0x0022, t01=0x00d2}
0x360c…3616 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0022, t01=0x00f6}
0x3616…3620 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0022, t01=0x0100}
0x3620…3646 Head {h00=0x0022, h01=0x0050, text=»* A7=DC RECEIVE BUFFER POINTER«, t00=0x0022, t01=0x010a}
0x3646…3662 Head {h00=0x0018, h01=0x0050, text=»* A8=DC ECB ADDRESS «, t00=0x0022, t01=0x0130}
0x3662…368e Head {h00=0x0028, h01=0x0050, text=»* A9=DC BUFFER INDEX, INITIALLY ZERO«, t00=0x0022, t01=0x014c}
0x368e…3698 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0022, t01=0x0178}
0x3698…36bc Head {h00=0x0020, h01=0x0050, text=»* A3=DISPLAY BUFFER POSITION«, t00=0x0022, t01=0x0182}
0x36bc…36e0 Head {h00=0x0020, h01=0x0050, text=»* A4=DISPLAY BUFFER POINTER «, t00=0x0023, t01=0x0016}
0x36e0…36ea Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0023, t01=0x003a}
0x36ea…36f4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0023, t01=0x0044}
0x36f4…3708 Head {h00=0x0010, h01=0x0050, text=»UPDATE EQU *«, t00=0x0023, t01=0x004e}
0x3708…3722 Head {h00=0x0016, h01=0x0050, text=» CM ICWORK,TCABAS «, t00=0x0023, t01=0x0062}
0x3722…373e Head {h00=0x0018, h01=0x0050, text=» LD A8,ECBDCC,TCABAS«, t00=0x0023, t01=0x007c}
0x373e…3768 Head {h00=0x0026, h01=0x0050, text=» LD A7,ECBBA,A8 DC BUFFER ADDRESS «, t00=0x0023, t01=0x0098}
0x3768…3790 Head {h00=0x0024, h01=0x0050, text=» SUR A9,A9 RESET DC BUFFER INDEX«, t00=0x0023, t01=0x00c2}
0x3790…37c4 Head {h00=0x0030, h01=0x0050, text=» CF A14,GDCCH GET FIRST CHAR FROM DC BUFFER «, t00=0x0023, t01=0x00ea}
0x37c4…37e8 Head {h00=0x0020, h01=0x0050, text=» CWK A2,ESC SHOULD BE ESCAPE«, t00=0x0023, t01=0x011e}
0x37e8…380a Head {h00=0x001e, h01=0x0050, text=» RF(NE) UPDEND NOT ESCAPE «, t00=0x0023, t01=0x0142}
0x380a…3830 Head {h00=0x0022, h01=0x0050, text=» CF A14,GDCCH GET COMMAND CODE«, t00=0x0023, t01=0x0164}
0x3830…3844 Head {h00=0x0010, h01=0x0050, text=» CWK A2,/31 «, t00=0x0023, t01=0x018a}
0x3844…3860 Head {h00=0x0018, h01=0x0050, text=» RF(E) UPD100 WRITE «, t00=0x0024, t01=0x000e}
0x3860…3874 Head {h00=0x0010, h01=0x0050, text=» CWK A2,/35 «, t00=0x0024, t01=0x002a}
0x3874…3896 Head {h00=0x001e, h01=0x0050, text=» RF(E) UPD120 ERASE/WRITE «, t00=0x0024, t01=0x003e}
0x3896…38aa Head {h00=0x0010, h01=0x0050, text=» CWK A2,/3F «, t00=0x0024, t01=0x0060}
0x38aa…38d6 Head {h00=0x0028, h01=0x0050, text=» RF(E) UPD140 ERASE ALL UNPROTECTED «, t00=0x0024, t01=0x0074}
0x38d6…38ec Head {h00=0x0012, h01=0x0050, text=» IFT COPCMD=1 «, t00=0x0024, t01=0x00a0}
0x38ec…3900 Head {h00=0x0010, h01=0x0050, text=» CWK A2,/37 «, t00=0x0024, t01=0x00b6}
0x3900…3924 Head {h00=0x0020, h01=0x0050, text=» ABL(E) UPD600 COPY COMMAND «, t00=0x0024, t01=0x00ca}
0x3924…3930 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0024, t01=0x00ee}
0x3930…3958 Head {h00=0x0024, h01=0x0050, text=» RF UPDEND INVALID COMMAND CODE «, t00=0x0024, t01=0x00fa}
0x3958…3962 Head {h00=0x0006, h01=0x0050, text=» «, t00=0x0024, t01=0x0122}
0x3962…396c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0024, t01=0x012c}
0x396c…3984 Head {h00=0x0014, h01=0x0050, text=»* WRITE COMMAND «, t00=0x0024, t01=0x0136}
0x3984…398e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0024, t01=0x014e}
0x398e…39a2 Head {h00=0x0010, h01=0x0050, text=»UPD100 EQU *«, t00=0x0024, t01=0x0158}
0x39a2…39ce Head {h00=0x0028, h01=0x0050, text=» CF A14,PWCC PROCESS WCC FOR MDT BIT«, t00=0x0024, t01=0x016c}
0x39ce…39ea Head {h00=0x0018, h01=0x0050, text=» LD A3,PCURS,TCABAS «, t00=0x0025, t01=0x0008}
0x39ea…3a16 Head {h00=0x0028, h01=0x0050, text=» LDR A4,A3 START IN CURSOR POSITION «, t00=0x0025, t01=0x0024}
0x3a16…3a2c Head {h00=0x0012, h01=0x0050, text=» ADKL A4,BVDU «, t00=0x0025, t01=0x0050}
0x3a2c…3a42 Head {h00=0x0012, h01=0x0050, text=» ADR A4,TCABAS«, t00=0x0025, t01=0x0066}
0x3a42…3a6a Head {h00=0x0024, h01=0x0050, text=» LDK A5,1 INDICATE WCC, IC OR RA«, t00=0x0025, t01=0x007c}
0x3a6a…3a7c Head {h00=0x000e, h01=0x0050, text=» RF UPD220«, t00=0x0025, t01=0x00a4}
0x3a7c…3a86 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0025, t01=0x00b6}
0x3a86…3aa4 Head {h00=0x001a, h01=0x0050, text=»* ERASE/WRITE COMMAND «, t00=0x0025, t01=0x00c0}
0x3aa4…3aae Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0025, t01=0x00de}
0x3aae…3ac2 Head {h00=0x0010, h01=0x0050, text=»UPD120 EQU *«, t00=0x0025, t01=0x00e8}
0x3ac2…3ae4 Head {h00=0x001e, h01=0x0050, text=» CF A14,ERASE ERASE SCREEN«, t00=0x0025, t01=0x00fc}
0x3ae4…3af6 Head {h00=0x000e, h01=0x0050, text=» RF UPD200«, t00=0x0025, t01=0x011e}
0x3af6…3b00 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0025, t01=0x0130}
0x3b00…3b20 Head {h00=0x001c, h01=0x0050, text=»* ERASE ALL UNPROTECTED «, t00=0x0025, t01=0x013a}
0x3b20…3b2a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0025, t01=0x015a}
0x3b2a…3b3e Head {h00=0x0010, h01=0x0050, text=»UPD140 EQU *«, t00=0x0025, t01=0x0164}
0x3b3e…3b6a Head {h00=0x0028, h01=0x0050, text=» CF A14,ERASUP ERASE ALL UNPROTECTED«, t00=0x0025, t01=0x0178}
0x3b6a…3b96 Head {h00=0x0028, h01=0x0050, text=» RF UPDEND NO TEXT WITH THIS COMMAND«, t00=0x0026, t01=0x0014}
0x3b96…3ba0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0026, t01=0x0040}
0x3ba0…3bd2 Head {h00=0x002e, h01=0x0050, text=»* TAKE CARE OF WRITE CONTROL CHARACTER WCC«, t00=0x0026, t01=0x004a}
0x3bd2…3bdc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0026, t01=0x007c}
0x3bdc…3c02 Head {h00=0x0022, h01=0x0050, text=»UPD200 CF A14,PWCC PROCESS WCC«, t00=0x0026, t01=0x0086}
0x3c02…3c2a Head {h00=0x0024, h01=0x0050, text=» LDK A5,1 INDICATE WCC, IC OR RA«, t00=0x0026, t01=0x00ac}
0x3c2a…3c34 Head {h00=0x0006, h01=0x0050, text=» «, t00=0x0026, t01=0x00d4}
0x3c34…3c3e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0026, t01=0x00de}
0x3c3e…3c48 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0026, t01=0x00e8}
0x3c48…3c6e Head {h00=0x0022, h01=0x0050, text=»* PROCESS DATA FROM DC BUFFER «, t00=0x0026, t01=0x00f2}
0x3c6e…3c78 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0026, t01=0x0118}
0x3c78…3c82 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0026, t01=0x0122}
0x3c82…3cb2 Head {h00=0x002c, h01=0x0050, text=»UPD210 LDK A3,0 START FROM POSITION ZERO«, t00=0x0026, t01=0x012c}
0x3cb2…3cc8 Head {h00=0x0012, h01=0x0050, text=» LDKL A4,BVDU «, t00=0x0026, t01=0x015c}
0x3cc8…3cde Head {h00=0x0012, h01=0x0050, text=» ADR A4,TCABAS«, t00=0x0026, t01=0x0172}
0x3cde…3d00 Head {h00=0x001e, h01=0x0050, text=»UPD220 CW A9,DCLENG,TCABAS«, t00=0x0026, t01=0x0188}
0x3d00…3d34 Head {h00=0x0030, h01=0x0050, text=» RF(NL) UPDEND ALL RECEIVED CHARS PROCESSED «, t00=0x0027, t01=0x001a}
0x3d34…3d62 Head {h00=0x002a, h01=0x0050, text=» CF A14,GDCCH GET CHAR FROM DC BUFFER «, t00=0x0027, t01=0x004e}
0x3d62…3d76 Head {h00=0x0010, h01=0x0050, text=» CWK A2,/20 «, t00=0x0027, t01=0x007c}
0x3d76…3d92 Head {h00=0x0018, h01=0x0050, text=» RF(L) UPD300 ORDER «, t00=0x0027, t01=0x0090}
0x3d92…3da6 Head {h00=0x0010, h01=0x0050, text=»UPD230 EQU *«, t00=0x0027, t01=0x00ac}
0x3da6…3dca Head {h00=0x0020, h01=0x0050, text=» ORK A2,/80 SET DISPLAY BIT «, t00=0x0027, t01=0x00c0}
0x3dca…3dde Head {h00=0x0010, h01=0x0050, text=»UPD240 EQU *«, t00=0x0027, t01=0x00e4}
0x3dde…3e0a Head {h00=0x0028, h01=0x0050, text=» LDK A5,0 INDICATE NOT WCC, IC OR RA«, t00=0x0027, t01=0x00f8}
0x3e0a…3e20 Head {h00=0x0012, h01=0x0050, text=» CWK A3,LBVDU «, t00=0x0027, t01=0x0124}
0x3e20…3e4a Head {h00=0x0026, h01=0x0050, text=» RF(E) UPD260 END OF VIDEO BUFFER «, t00=0x0027, t01=0x013a}
0x3e4a…3e5e Head {h00=0x0010, h01=0x0050, text=»UPD250 EQU *«, t00=0x0027, t01=0x0164}
0x3e5e…3e86 Head {h00=0x0024, h01=0x0050, text=» SCR A2,A4 STORE IN VIDEO BUFFER«, t00=0x0027, t01=0x0178}
0x3e86…3e98 Head {h00=0x000e, h01=0x0050, text=» ADK A3,1 «, t00=0x0028, t01=0x0010}
0x3e98…3eaa Head {h00=0x000e, h01=0x0050, text=» ADK A4,1 «, t00=0x0028, t01=0x0022}
0x3eaa…3ebc Head {h00=0x000e, h01=0x0050, text=» RB UPD220«, t00=0x0028, t01=0x0034}
0x3ebc…3ed4 Head {h00=0x0014, h01=0x0050, text=»UPD260 LDK A3,0 «, t00=0x0028, t01=0x0046}
0x3ed4…3eea Head {h00=0x0012, h01=0x0050, text=» LDKL A4,BVDU «, t00=0x0028, t01=0x005e}
0x3eea…3f00 Head {h00=0x0012, h01=0x0050, text=» ADR A4,TCABAS«, t00=0x0028, t01=0x0074}
0x3f00…3f12 Head {h00=0x000e, h01=0x0050, text=» RB UPD250«, t00=0x0028, t01=0x008a}
0x3f12…3f26 Head {h00=0x0010, h01=0x0050, text=»UPD300 EQU *«, t00=0x0028, t01=0x009c}
0x3f26…3f56 Head {h00=0x002c, h01=0x0050, text=» CWK A3,LBVDU END OF DISPLAY BUFFER ??? «, t00=0x0028, t01=0x00b0}
0x3f56…3f72 Head {h00=0x0018, h01=0x0050, text=» RF(NE) UPD302 NO!!!«, t00=0x0028, t01=0x00e0}
0x3f72…3f9a Head {h00=0x0024, h01=0x0050, text=» SUR A3,A3 FIRST SCREEN POSITION«, t00=0x0028, t01=0x00fc}
0x3f9a…3fb0 Head {h00=0x0012, h01=0x0050, text=» LDKL A4,BVDU «, t00=0x0028, t01=0x0124}
0x3fb0…3fd6 Head {h00=0x0022, h01=0x0050, text=» ADR A4,TCABAS BUFFER POSITION«, t00=0x0028, t01=0x013a}
0x3fd6…3fea Head {h00=0x0010, h01=0x0050, text=»UPD302 EQU *«, t00=0x0028, t01=0x0160}
0x3fea…3ffe Head {h00=0x0010, h01=0x0050, text=» CWK A2,/1D «, t00=0x0028, t01=0x0174}
0x3ffe…4020 Head {h00=0x001e, h01=0x0050, text=» RF(E) UPD320 START FIELD «, t00=0x0028, t01=0x0188}
0x4020…4034 Head {h00=0x0010, h01=0x0050, text=» CWK A2,/11 «, t00=0x0029, t01=0x001a}
0x4034…405c Head {h00=0x0024, h01=0x0050, text=» RF(E) UPD340 SET BUFFER ADDRESS«, t00=0x0029, t01=0x002e}
0x405c…4070 Head {h00=0x0010, h01=0x0050, text=» CWK A2,/13 «, t00=0x0029, t01=0x0056}
0x4070…4094 Head {h00=0x0020, h01=0x0050, text=» RF(E) UPD360 INSERT CURSOR «, t00=0x0029, t01=0x006a}
0x4094…40a8 Head {h00=0x0010, h01=0x0050, text=» CWK A2,/09 «, t00=0x0029, t01=0x008e}
0x40a8…40ca Head {h00=0x001e, h01=0x0050, text=» RF(E) UPD400 PROGRAM TAB «, t00=0x0029, t01=0x00a2}
0x40ca…40de Head {h00=0x0010, h01=0x0050, text=» CWK A2,/14 «, t00=0x0029, t01=0x00c4}
0x40de…4106 Head {h00=0x0024, h01=0x0050, text=» RF(E) UPD500 REPEAT TO ADDRESS «, t00=0x0029, t01=0x00d8}
0x4106…411a Head {h00=0x0010, h01=0x0050, text=» CWK A2,/12 «, t00=0x0029, t01=0x0100}
0x411a…414c Head {h00=0x002e, h01=0x0050, text=» RF(E) UPD540 ERASE UNPROTECTED TO ADDRESS«, t00=0x0029, t01=0x0114}
0x414c…4160 Head {h00=0x0010, h01=0x0050, text=» CWK A2,/0C «, t00=0x0029, t01=0x0146}
0x4160…4176 Head {h00=0x0012, h01=0x0050, text=» RF(NE) UPD305«, t00=0x0029, t01=0x015a}
0x4176…4196 Head {h00=0x001c, h01=0x0050, text=» LDK A2,FORMFD FORM FEED«, t00=0x0029, t01=0x0170}
0x4196…41a8 Head {h00=0x000e, h01=0x0050, text=» RB UPD230«, t00=0x0029, t01=0x0190}
0x41a8…41c2 Head {h00=0x0016, h01=0x0050, text=»UPD305 CWK A2,/19 «, t00=0x002a, t01=0x0012}
0x41c2…41d8 Head {h00=0x0012, h01=0x0050, text=» RF(NE) UPD310«, t00=0x002a, t01=0x002c}
0x41d8…41fa Head {h00=0x001e, h01=0x0050, text=» LDK A2,ENDMES END MESSAGE«, t00=0x002a, t01=0x0042}
0x41fa…420c Head {h00=0x000e, h01=0x0050, text=» RB UPD230«, t00=0x002a, t01=0x0064}
0x420c…4220 Head {h00=0x0010, h01=0x0050, text=»UPD310 EQU *«, t00=0x002a, t01=0x0076}
0x4220…4234 Head {h00=0x0010, h01=0x0050, text=» CWK A2,/0A «, t00=0x002a, t01=0x008a}
0x4234…424a Head {h00=0x0012, h01=0x0050, text=» RF(NE) UPD315«, t00=0x002a, t01=0x009e}
0x424a…426a Head {h00=0x001c, h01=0x0050, text=» LDK A2,NEWLIN NEW LINE «, t00=0x002a, t01=0x00b4}
0x426a…427c Head {h00=0x000e, h01=0x0050, text=» RB UPD230«, t00=0x002a, t01=0x00d4}
0x427c…4290 Head {h00=0x0010, h01=0x0050, text=»UPD315 EQU *«, t00=0x002a, t01=0x00e6}
0x4290…42a4 Head {h00=0x0010, h01=0x0050, text=» CWK A2,/18 «, t00=0x002a, t01=0x00fa}
0x42a4…42c8 Head {h00=0x0020, h01=0x0050, text=» RF(NE) UPD318 ILLEGAL ORDER«, t00=0x002a, t01=0x010e}
0x42c8…42dc Head {h00=0x0010, h01=0x0050, text=» LDK A2,/30 «, t00=0x002a, t01=0x0132}
0x42dc…42ee Head {h00=0x000e, h01=0x0050, text=» RB UPD230«, t00=0x002a, t01=0x0146}
0x42ee…42f8 Head {h00=0x0006, h01=0x0050, text=» «, t00=0x002a, t01=0x0158}
0x42f8…4300 Head {h00=0x0004, h01=0x0050, t00=0x002a, t01=0x0162}
0x4300…4314 Head {h00=0x0010, h01=0x0050, text=»UPD318 EQU *«, t00=0x002a, t01=0x016a}
0x4314…432e Head {h00=0x0016, h01=0x0050, text=» CWK A2,SKIP DK5 «, t00=0x002a, t01=0x017e}
0x432e…4352 Head {h00=0x0020, h01=0x0050, text=» RF(NE) UPD319 SKIP USM DK5 «, t00=0x002b, t01=0x0008}
0x4352…4368 Head {h00=0x0012, h01=0x0050, text=» ADK A3,1 DK5«, t00=0x002b, t01=0x002c}
0x4368…4380 Head {h00=0x0014, h01=0x0050, text=» RB UPD220 DK5 «, t00=0x002b, t01=0x0042}
0x4380…439a Head {h00=0x0016, h01=0x0050, text=»UPD319 EQU * DK5 «, t00=0x002b, t01=0x005a}
0x439a…43c0 Head {h00=0x0022, h01=0x0050, text=» CWK A2,/00 NULL CHARACTER ???«, t00=0x002b, t01=0x0074}
0x43c0…43ea Head {h00=0x0026, h01=0x0050, text=» RF(NE) UPDEND NO!! ILLEGAL ORDER«, t00=0x002b, t01=0x009a}
0x43ea…4410 Head {h00=0x0022, h01=0x0050, text=» LDK A2,/7F PTS NULL CHARACTER«, t00=0x002b, t01=0x00c4}
0x4410…4422 Head {h00=0x000e, h01=0x0050, text=» RB UPD230«, t00=0x002b, t01=0x00ea}
0x4422…442a Head {h00=0x0004, h01=0x0050, t00=0x002b, t01=0x00fc}
0x442a…446e Head {h00=0x0040, h01=0x0050, text=»************************************************************«, t00=0x002b, t01=0x0104}
0x446e…4478 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002b, t01=0x0148}
0x4478…449a Head {h00=0x001e, h01=0x0050, text=»* RELEASE RECEIVE BUFFER«, t00=0x002b, t01=0x0152}
0x449a…44a4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002b, t01=0x0174}
0x44a4…44d2 Head {h00=0x002a, h01=0x0050, text=»************************************* «, t00=0x002b, t01=0x017e}
0x44d2…44da Head {h00=0x0004, h01=0x0050, t00=0x002c, t01=0x001c}
0x44da…44ee Head {h00=0x0010, h01=0x0050, text=»UPDEND EQU *«, t00=0x002c, t01=0x0024}
0x44ee…450a Head {h00=0x0018, h01=0x0050, text=» LD A8,ECBDCC,TCABAS«, t00=0x002c, t01=0x0038}
0x450a…4522 Head {h00=0x0014, h01=0x0050, text=» LD A4,ECBBA,A8 «, t00=0x002c, t01=0x0054}
0x4522…4538 Head {h00=0x0012, h01=0x0050, text=» CF A14,RLRBUF«, t00=0x002c, t01=0x006c}
0x4538…4548 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x002c, t01=0x0082}
0x4548…4552 Head {h00=0x0006, h01=0x0050, text=» «, t00=0x002c, t01=0x0092}
0x4552…455c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002c, t01=0x009c}
0x455c…4566 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002c, t01=0x00a6}
0x4566…4582 Head {h00=0x0018, h01=0x0050, text=»* START FIELD ORDER «, t00=0x002c, t01=0x00b0}
0x4582…458c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002c, t01=0x00cc}
0x458c…45ba Head {h00=0x002a, h01=0x0050, text=»UPD320 CF A14,GDCCH GET ATTRIBUTE CHAR«, t00=0x002c, t01=0x00d6}
0x45ba…45d2 Head {h00=0x0014, h01=0x0050, text=» LC A2,TEBCDI,A2«, t00=0x002c, t01=0x0104}
0x45d2…4600 Head {h00=0x002a, h01=0x0050, text=» LDR A1,A2 COMPOSE PTS ATTRIBUTE CHAR «, t00=0x002c, t01=0x011c}
0x4600…4612 Head {h00=0x000e, h01=0x0050, text=» ANK A1,1 «, t00=0x002c, t01=0x014a}
0x4612…4624 Head {h00=0x000e, h01=0x0050, text=» SRL A2,1 «, t00=0x002c, t01=0x015c}
0x4624…4638 Head {h00=0x0010, h01=0x0050, text=» ANK A2,/1E «, t00=0x002c, t01=0x016e}
0x4638…464a Head {h00=0x000e, h01=0x0050, text=» ORR A2,A1«, t00=0x002c, t01=0x0182}
0x464a…465c (45, 0, 400) Head {h00=0x000e, h01=0x0050, text=» RB UPD240«, t00=0x002d, t01=0x0004}
0x465c…4666 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002d, t01=0x0016}
0x4666…4682 Head {h00=0x0018, h01=0x0050, text=»* SET BUFFER ADDRESS«, t00=0x002d, t01=0x0020}
0x4682…468c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002d, t01=0x003c}
0x468c…46b4 Head {h00=0x0024, h01=0x0050, text=»UPD340 CF A14,GETADR GET ADDRESS«, t00=0x002d, t01=0x0046}
0x46b4…46ca Head {h00=0x0012, h01=0x0050, text=» CWK A1,LBVDU «, t00=0x002d, t01=0x006e}
0x46ca…46f0 Head {h00=0x0022, h01=0x0050, text=» RB(NL) UPDEND INVALID ADDRESS«, t00=0x002d, t01=0x0084}
0x46f0…4702 Head {h00=0x000e, h01=0x0050, text=» LDR A3,A1«, t00=0x002d, t01=0x00aa}
0x4702…4714 Head {h00=0x000e, h01=0x0050, text=» LDR A4,A3«, t00=0x002d, t01=0x00bc}
0x4714…472a Head {h00=0x0012, h01=0x0050, text=» ADKL A4,BVDU «, t00=0x002d, t01=0x00ce}
0x472a…4740 Head {h00=0x0012, h01=0x0050, text=» ADR A4,TCABAS«, t00=0x002d, t01=0x00e4}
0x4740…4752 Head {h00=0x000e, h01=0x0050, text=» RB UPD220«, t00=0x002d, t01=0x00fa}
0x4752…475c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002d, t01=0x010c}
0x475c…4774 Head {h00=0x0014, h01=0x0050, text=»* INSERT CURSOR «, t00=0x002d, t01=0x0116}
0x4774…477e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002d, t01=0x012e}
0x477e…47b2 Head {h00=0x0030, h01=0x0050, text=»UPD360 ST A3,PCURS,TCABAS SET NEW CURSOR POS«, t00=0x002d, t01=0x0138}
0x47b2…47da Head {h00=0x0024, h01=0x0050, text=» LDK A5,1 INDICATE WCC, IC OR RA«, t00=0x002d, t01=0x016c}
0x47da…47ec (46, 0, 400) Head {h00=0x000e, h01=0x0050, text=» RB UPD220«, t00=0x002e, t01=0x0004}
0x47ec…47f6 Head {h00=0x0006, h01=0x0050, text=» «, t00=0x002e, t01=0x0016}
0x47f6…4800 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002e, t01=0x0020}
0x4800…4816 Head {h00=0x0012, h01=0x0050, text=»* PROGRAM TAB «, t00=0x002e, t01=0x002a}
0x4816…4820 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002e, t01=0x0040}
0x4820…4838 Head {h00=0x0014, h01=0x0050, text=»UPD400 LDR A5,A5«, t00=0x002e, t01=0x004a}
0x4838…4866 Head {h00=0x002a, h01=0x0050, text=» RF(NZ) UPD430 PT AFTER WCC, IC OR RA «, t00=0x002e, t01=0x0062}
0x4866…489a Head {h00=0x0030, h01=0x0050, text=» LDK A1,NULL+/80 FILL CURRENT FIELD BY NULLS«, t00=0x002e, t01=0x0090}
0x489a…48ae Head {h00=0x0010, h01=0x0050, text=»UPD410 EQU *«, t00=0x002e, t01=0x00c4}
0x48ae…48c0 Head {h00=0x000e, h01=0x0050, text=» LDK A5,0 «, t00=0x002e, t01=0x00d8}
0x48c0…48d6 Head {h00=0x0012, h01=0x0050, text=» CWK A3,LBVDU «, t00=0x002e, t01=0x00ea}
0x48d6…48fa Head {h00=0x0020, h01=0x0050, text=» RB(NL) UPD210 END OF BUFFER«, t00=0x002e, t01=0x0100}
0x48fa…490c Head {h00=0x000e, h01=0x0050, text=» LCR A2,A4«, t00=0x002e, t01=0x0124}
0x490c…491e Head {h00=0x000e, h01=0x0050, text=» ADK A3,1 «, t00=0x002e, t01=0x0136}
0x491e…4932 Head {h00=0x0010, h01=0x0050, text=» ANK A2,/7F «, t00=0x002e, t01=0x0148}
0x4932…4946 Head {h00=0x0010, h01=0x0050, text=» CWK A2,/20 «, t00=0x002e, t01=0x015c}
0x4946…495c Head {h00=0x0012, h01=0x0050, text=» RF(L) UPD415 «, t00=0x002e, t01=0x0170}
0x495c…497a Head {h00=0x001a, h01=0x0050, text=» SCR A1,A4 STORE NULL «, t00=0x002e, t01=0x0186}
0x497a…498c Head {h00=0x000e, h01=0x0050, text=» ADK A4,1 «, t00=0x002f, t01=0x0014}
0x498c…499e Head {h00=0x000e, h01=0x0050, text=» RB UPD410«, t00=0x002f, t01=0x0026}
0x499e…49b2 Head {h00=0x0010, h01=0x0050, text=»UPD415 EQU *«, t00=0x002f, t01=0x0038}
0x49b2…49c4 Head {h00=0x000e, h01=0x0050, text=» ADK A4,1 «, t00=0x002f, t01=0x004c}
0x49c4…49de Head {h00=0x0016, h01=0x0050, text=»UPD420 ANK A2,/10 «, t00=0x002f, t01=0x005e}
0x49de…4a06 Head {h00=0x0024, h01=0x0050, text=» ABL(Z) UPD220 UNPROTECTED FIELD«, t00=0x002f, t01=0x0078}
0x4a06…4a1a Head {h00=0x0010, h01=0x0050, text=»UPD430 EQU *«, t00=0x002f, t01=0x00a0}
0x4a1a…4a2c Head {h00=0x000e, h01=0x0050, text=» LDK A5,0 «, t00=0x002f, t01=0x00b4}
0x4a2c…4a42 Head {h00=0x0012, h01=0x0050, text=» CWK A3,LBVDU «, t00=0x002f, t01=0x00c6}
0x4a42…4a70 Head {h00=0x002a, h01=0x0050, text=» ABL(NL) UPD210 END OF DISPLAY BUFFER «, t00=0x002f, t01=0x00dc}
0x4a70…4a82 Head {h00=0x000e, h01=0x0050, text=» LCR A2,A4«, t00=0x002f, t01=0x010a}
0x4a82…4a94 Head {h00=0x000e, h01=0x0050, text=» ADK A3,1 «, t00=0x002f, t01=0x011c}
0x4a94…4aa6 Head {h00=0x000e, h01=0x0050, text=» ADK A4,1 «, t00=0x002f, t01=0x012e}
0x4aa6…4aba Head {h00=0x0010, h01=0x0050, text=» ANK A2,/7F «, t00=0x002f, t01=0x0140}
0x4aba…4ace Head {h00=0x0010, h01=0x0050, text=» CWK A2,/20 «, t00=0x002f, t01=0x0154}
0x4ace…4ae4 Head {h00=0x0012, h01=0x0050, text=» RB(L) UPD420 «, t00=0x002f, t01=0x0168}
0x4ae4…4af6 Head {h00=0x000e, h01=0x0050, text=» RB UPD430«, t00=0x002f, t01=0x017e}
0x4af6…4b00 Head {h00=0x0006, h01=0x0050, text=» «, t00=0x002f, t01=0x0190}
0x4b00…4b0a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0030, t01=0x000a}
0x4b0a…4b26 Head {h00=0x0018, h01=0x0050, text=»* REPEAT TO ADDRESS «, t00=0x0030, t01=0x0014}
0x4b26…4b30 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0030, t01=0x0030}
0x4b30…4b5c Head {h00=0x0028, h01=0x0050, text=»UPD500 CF A14,GETADR GET END ADDRESS«, t00=0x0030, t01=0x003a}
0x4b5c…4b72 Head {h00=0x0012, h01=0x0050, text=» CWK A1,LBVDU «, t00=0x0030, t01=0x0066}
0x4b72…4b98 Head {h00=0x0022, h01=0x0050, text=» RB(NL) UPDEND INVALID ADDRESS«, t00=0x0030, t01=0x007c}
0x4b98…4bc6 Head {h00=0x002a, h01=0x0050, text=» CF A14,GDCCH GET CHAR TO BE REPEATED «, t00=0x0030, t01=0x00a2}
0x4bc6…4bee Head {h00=0x0024, h01=0x0050, text=» LDK A5,1 INDICATE WCC, IC OR RA«, t00=0x0030, t01=0x00d0}
0x4bee…4c14 Head {h00=0x0022, h01=0x0050, text=» ORK A2,/80 INDICATE MODIFIED «, t00=0x0030, t01=0x00f8}
0x4c14…4c1c Head {h00=0x0004, h01=0x0050, t00=0x0030, t01=0x011e}
0x4c1c…4c24 Head {h00=0x0004, h01=0x0050, t00=0x0030, t01=0x0126}
0x4c24…4c5a Head {h00=0x0032, h01=0x0050, text=» CWR A3,A1 NULLS TO ALL SCREEN POSITIONS ???? «, t00=0x0030, t01=0x012e}
0x4c5a…4c76 Head {h00=0x0018, h01=0x0050, text=» RF(E) UPD530 YES!!!«, t00=0x0030, t01=0x0164}
0x4c76…4c7e Head {h00=0x0004, h01=0x0050, t00=0x0030, t01=0x0180}
0x4c7e…4c86 Head {h00=0x0004, h01=0x0050, t00=0x0030, t01=0x0188}
0x4c86…4ca2 Head {h00=0x0018, h01=0x0050, text=»UPD510 CWK A3,LBVDU «, t00=0x0030, t01=0x0190}
0x4ca2…4cca Head {h00=0x0024, h01=0x0050, text=» RF(L) UPD520 NOT END OF SCREEN «, t00=0x0031, t01=0x001c}
0x4cca…4cdc Head {h00=0x000e, h01=0x0050, text=» LDK A3,0 «, t00=0x0031, t01=0x0044}
0x4cdc…4cfe Head {h00=0x001e, h01=0x0050, text=» LDKL A4,BVDU WRAP AROUND «, t00=0x0031, t01=0x0056}
0x4cfe…4d14 Head {h00=0x0012, h01=0x0050, text=» ADR A4,TCABAS«, t00=0x0031, t01=0x0078}
0x4d14…4d2c Head {h00=0x0014, h01=0x0050, text=»UPD520 CWR A3,A1«, t00=0x0031, t01=0x008e}
0x4d2c…4d54 Head {h00=0x0024, h01=0x0050, text=» ABL(E) UPD220 ALL CHAR REPEATED«, t00=0x0031, t01=0x00a6}
0x4d54…4d5c Head {h00=0x0004, h01=0x0050, t00=0x0031, t01=0x00ce}
0x4d5c…4d70 Head {h00=0x0010, h01=0x0050, text=»UPD530 EQU *«, t00=0x0031, t01=0x00d6}
0x4d70…4d78 Head {h00=0x0004, h01=0x0050, t00=0x0031, t01=0x00ea}
0x4d78…4d8a Head {h00=0x000e, h01=0x0050, text=» SCR A2,A4«, t00=0x0031, t01=0x00f2}
0x4d8a…4d9c Head {h00=0x000e, h01=0x0050, text=» ADK A3,1 «, t00=0x0031, t01=0x0104}
0x4d9c…4dae Head {h00=0x000e, h01=0x0050, text=» ADK A4,1 «, t00=0x0031, t01=0x0116}
0x4dae…4dce Head {h00=0x001c, h01=0x0050, text=» RB UPD510 NEXT POSITION«, t00=0x0031, t01=0x0128}
0x4dce…4dd8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0031, t01=0x0148}
0x4dd8…4dfe Head {h00=0x0022, h01=0x0050, text=»* ERASE UNPROTECTED TO ADDRESS«, t00=0x0031, t01=0x0152}
0x4dfe…4e08 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0031, t01=0x0178}
0x4e08…4e34 Head {h00=0x0028, h01=0x0050, text=»UPD540 CF A14,GETADR GET END ADDRESS«, t00=0x0031, t01=0x0182}
0x4e34…4e4a Head {h00=0x0012, h01=0x0050, text=» CWK A3,LBVDU «, t00=0x0032, t01=0x001e}
0x4e4a…4e70 Head {h00=0x0022, h01=0x0050, text=» RB(NL) UPDEND INVALID ADDRESS«, t00=0x0032, t01=0x0034}
0x4e70…4ea4 Head {h00=0x0030, h01=0x0050, text=» CF A14,ERASUA ERASE UNPROTECTED TO ADDRESS «, t00=0x0032, t01=0x005a}
0x4ea4…4eb8 Head {h00=0x0010, h01=0x0050, text=» ABL UPD220 «, t00=0x0032, t01=0x008e}
0x4eb8…4ece Head {h00=0x0012, h01=0x0050, text=» IFT COPCMD=1 «, t00=0x0032, t01=0x00a2}
0x4ece…4ed8 Head {h00=0x0006, h01=0x0050, text=» «, t00=0x0032, t01=0x00b8}
0x4ed8…4ee2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0032, t01=0x00c2}
0x4ee2…4ef8 Head {h00=0x0012, h01=0x0050, text=»* COPY COMMAND«, t00=0x0032, t01=0x00cc}
0x4ef8…4f02 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0032, t01=0x00e2}
0x4f02…4f16 Head {h00=0x0010, h01=0x0050, text=»UPD600 EQU *«, t00=0x0032, t01=0x00ec}
0x4f16…4f34 Head {h00=0x001a, h01=0x0050, text=» LD A1,PRINTER,TCABAS «, t00=0x0032, t01=0x0100}
0x4f34…4f6c Head {h00=0x0034, h01=0x0050, text=» ABL(Z) UPDEND COPYCOMMAND NOT SUPPORTED FOR VDU«, t00=0x0032, t01=0x011e}
0x4f6c…4f7e Head {h00=0x000e, h01=0x0050, text=» ADK A7,1 «, t00=0x0032, t01=0x0156}
0x4f7e…4f94 Head {h00=0x0012, h01=0x0050, text=» BYPASS CCC «, t00=0x0032, t01=0x0168}
0x4f94…4fba Head {h00=0x0022, h01=0x0050, text=» CF A14,GDCCH GET FROM DEVICE «, t00=0x0032, t01=0x017e}
0x4fba…4fd0 Head {h00=0x0012, h01=0x0050, text=» IFT EBCDIC=1 «, t00=0x0033, t01=0x0014}
0x4fd0…4ffa Head {h00=0x0026, h01=0x0050, text=» LC A2,TEBCDI,A2 CONVERT TO EBCDIC«, t00=0x0033, t01=0x002a}
0x4ffa…5006 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0033, t01=0x0054}
0x5006…501c Head {h00=0x0012, h01=0x0050, text=» IFT COPCMD=1 «, t00=0x0033, t01=0x0060}
0x501c…5042 Head {h00=0x0022, h01=0x0050, text=» LD A3,6,CREBAS 'CB1' ADDRESS «, t00=0x0033, t01=0x0076}
0x5042…505a Head {h00=0x0014, h01=0x0050, text=» LDK A4,MF1KBV-1«, t00=0x0033, t01=0x009c}
0x505a…506e Head {h00=0x0010, h01=0x0050, text=» IFT DCLIN=2«, t00=0x0033, t01=0x00b4}
0x506e…508e Head {h00=0x001c, h01=0x0050, text=» LD A1,ECBBLK+DC2,TCABAS«, t00=0x0033, t01=0x00c8}
0x508e…50a4 Head {h00=0x0012, h01=0x0050, text=» RF(NZ) UPD602«, t00=0x0033, t01=0x00e8}
0x50a4…50c8 Head {h00=0x0020, h01=0x0050, text=» LDK A4,MF2KBV-1 MF # 2 READ«, t00=0x0033, t01=0x00fe}
0x50c8…50d4 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0033, t01=0x0122}
0x50d4…50ea Head {h00=0x0012, h01=0x0050, text=» IFT COPCMD=1 «, t00=0x0033, t01=0x012e}
0x50ea…50fe Head {h00=0x0010, h01=0x0050, text=»UPD602 EQU *«, t00=0x0033, t01=0x0144}
0x50fe…5120 Head {h00=0x001e, h01=0x0050, text=» ADR A4,A3 CONFIG TABLE -1«, t00=0x0033, t01=0x0158}
0x5120…514a Head {h00=0x0026, h01=0x0050, text=» LD A5,NBRKBV,A3 NUMBER OF KB/VDUS«, t00=0x0033, t01=0x017a}
0x514a…5176 Head {h00=0x0028, h01=0x0050, text=» ADR A4,A5 LAST KB/VDU CONFIGURATED «, t00=0x0034, t01=0x0014}
0x5176…518a Head {h00=0x0010, h01=0x0050, text=»UPD604 EQU *«, t00=0x0034, t01=0x0040}
0x518a…51b2 Head {h00=0x0024, h01=0x0050, text=» CCR A2,A4 DV-ADDRESS MATCHES ? «, t00=0x0034, t01=0x0054}
0x51b2…51cc Head {h00=0x0016, h01=0x0050, text=» RF(E) UPD610 YES «, t00=0x0034, t01=0x007c}
0x51cc…51de Head {h00=0x000e, h01=0x0050, text=» SUK A4,1 «, t00=0x0034, t01=0x0096}
0x51de…51f0 Head {h00=0x000e, h01=0x0050, text=» SUK A5,1 «, t00=0x0034, t01=0x00a8}
0x51f0…520e Head {h00=0x001a, h01=0x0050, text=» RB(P) UPD604 TRY NEXT«, t00=0x0034, t01=0x00ba}
0x520e…522a Head {h00=0x0018, h01=0x0050, text=» ABL UPDEND NO MATCH«, t00=0x0034, t01=0x00d8}
0x522a…5234 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0034, t01=0x00f4}
0x5234…5248 Head {h00=0x0010, h01=0x0050, text=»UPD610 EQU *«, t00=0x0034, t01=0x00fe}
0x5248…5260 Head {h00=0x0014, h01=0x0050, text=» LDKL A8,ECBICW «, t00=0x0034, t01=0x0112}
0x5260…5276 Head {h00=0x0012, h01=0x0050, text=» ADR A8,CREBAS«, t00=0x0034, t01=0x012a}
0x5276…5282 Head {h00=0x0008, h01=0x0050, text=» LKM«, t00=0x0034, t01=0x0140}
0x5282…52b6 Head {h00=0x0030, h01=0x0050, text=» DATA 10 ABORT LAST REQUEST IF NOT COMPLETED«, t00=0x0034, t01=0x014c}
0x52b6…52e0 Head {h00=0x0026, h01=0x0050, text=» ADKL A5,/4B40 TASKID FROM DEVICE «, t00=0x0034, t01=0x0180}
0x52e0…5308 Head {h00=0x0024, h01=0x0050, text=» LD A2,-4,CREBAS GET OWN TASKID «, t00=0x0035, t01=0x001a}
0x5308…5332 Head {h00=0x0026, h01=0x0050, text=» ST A2,ICWORK,TCABAS PUT IN BUFFER«, t00=0x0035, t01=0x0042}
0x5332…5360 Head {h00=0x002a, h01=0x0050, text=» LDK A4,/0B WRITE ADDRESSED , NO WAIT «, t00=0x0035, t01=0x006c}
0x5360…537c Head {h00=0x0018, h01=0x0050, text=» LDK A6,2 REQ LENGTH«, t00=0x0035, t01=0x009a}
0x537c…5394 Head {h00=0x0014, h01=0x0050, text=» LDKL A3,ICWORK «, t00=0x0035, t01=0x00b6}
0x5394…53ba Head {h00=0x0022, h01=0x0050, text=» ADR A3,TCABAS BUFFER ADDRESS «, t00=0x0035, t01=0x00ce}
0x53ba…53e0 Head {h00=0x0022, h01=0x0050, text=» CF A14,ICWRTE WRITE INTERTASK«, t00=0x0035, t01=0x00f4}
0x53e0…53f4 Head {h00=0x0010, h01=0x0050, text=» ABL UPDEND «, t00=0x0035, t01=0x011a}
0x53f4…5400 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0035, t01=0x012e}
0x5400…540a Head {h00=0x0006, h01=0x0050, text=» «, t00=0x0035, t01=0x013a}
0x540a…5414 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0035, t01=0x0144}
0x5414…541e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0035, t01=0x014e}
0x541e…5448 Head {h00=0x0026, h01=0x0050, text=»* PROCESS WRITE CONTROL CHARACTER «, t00=0x0035, t01=0x0158}
0x5448…5452 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0035, t01=0x0182}
0x5452…5480 Head {h00=0x002a, h01=0x0050, text=»* ONLY RESET MDT BIT IS TAKEN CARE OF «, t00=0x0035, t01=0x018c}
0x5480…548a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0036, t01=0x002a}
0x548a…5494 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0036, t01=0x0034}
0x5494…54b6 Head {h00=0x001e, h01=0x0050, text=»PWCC CF A14,GDCCH GET WCC «, t00=0x0036, t01=0x003e}
0x54b6…54d8 Head {h00=0x001e, h01=0x0050, text=» LC A2,TEBCDI,A2 IN EBCDIC«, t00=0x0036, t01=0x0060}
0x54d8…54fa Head {h00=0x001e, h01=0x0050, text=» ST A2,WCC,TCABAS SAVE IT «, t00=0x0036, t01=0x0082}
0x54fa…550e Head {h00=0x0010, h01=0x0050, text=» ANK A2,/04 «, t00=0x0036, t01=0x00a4}
0x550e…5522 Head {h00=0x0010, h01=0x0050, text=» RF(Z) PWCC1«, t00=0x0036, t01=0x00b8}
0x5522…5540 Head {h00=0x001a, h01=0x0050, text=» LD A2,PRINTER,TCABAS «, t00=0x0036, t01=0x00cc}
0x5540…5556 Head {h00=0x0012, h01=0x0050, text=» RF(NZ) PWCC1 «, t00=0x0036, t01=0x00ea}
0x5556…556a Head {h00=0x0010, h01=0x0050, text=» LDR A10,A7 «, t00=0x0036, t01=0x0100}
0x556a…5582 Head {h00=0x0014, h01=0x0050, text=» LDKL A8,ECBVDU «, t00=0x0036, t01=0x0114}
0x5582…5598 Head {h00=0x0012, h01=0x0050, text=» ADR A8,CREBAS«, t00=0x0036, t01=0x012c}
0x5598…55b0 Head {h00=0x0014, h01=0x0050, text=» LD A2,ECBBA,A8 «, t00=0x0036, t01=0x0142}
0x55b0…55c4 Head {h00=0x0010, h01=0x0050, text=» LDK A7,/2B «, t00=0x0036, t01=0x015a}
0x55c4…55dc Head {h00=0x0014, h01=0x0050, text=» SC A7,1,A2 =1 «, t00=0x0036, t01=0x016e}
0x55dc…55f8 Head {h00=0x0018, h01=0x0050, text=» LDK A7,/07 BELL =1 «, t00=0x0036, t01=0x0186}
0x55f8…5610 Head {h00=0x0014, h01=0x0050, text=» SC A7,2,A2 =1 «, t00=0x0037, t01=0x0012}
0x5610…5628 Head {h00=0x0014, h01=0x0050, text=» SC A7,3,A2 =1 «, t00=0x0037, t01=0x002a}
0x5628…563a Head {h00=0x000e, h01=0x0050, text=» LDK A7,4 «, t00=0x0037, t01=0x0042}
0x563a…5652 Head {h00=0x0014, h01=0x0050, text=» ST A7,ECBRL,A8 «, t00=0x0037, t01=0x0054}
0x5652…5666 Head {h00=0x0010, h01=0x0050, text=» LDK A7,/86 «, t00=0x0037, t01=0x006c}
0x5666…5672 Head {h00=0x0008, h01=0x0050, text=» LKM«, t00=0x0037, t01=0x0080}
0x5672…5682 Head {h00=0x000c, h01=0x0050, text=» DATA 1 «, t00=0x0037, t01=0x008c}
0x5682…569e Head {h00=0x0018, h01=0x0050, text=» LD A8,ECBDCC,TCABAS«, t00=0x0037, t01=0x009c}
0x569e…56b2 Head {h00=0x0010, h01=0x0050, text=» LDR A7,A10 «, t00=0x0037, t01=0x00b8}
0x56b2…56c6 Head {h00=0x0010, h01=0x0050, text=»PWCC1 EQU * «, t00=0x0037, t01=0x00cc}
0x56c6…56e0 Head {h00=0x0016, h01=0x0050, text=» LD A2,WCC,TCABAS «, t00=0x0037, t01=0x00e0}
0x56e0…56f2 Head {h00=0x000e, h01=0x0050, text=» ANK A2,1 «, t00=0x0037, t01=0x00fa}
0x56f2…5716 Head {h00=0x0020, h01=0x0050, text=» RF(NZ) RESMDT RESET ALL MDT«, t00=0x0037, t01=0x010c}
0x5716…5736 Head {h00=0x001c, h01=0x0050, text=»PWCC10 RTN A14 NO ACTION«, t00=0x0037, t01=0x0130}
0x5736…5740 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0037, t01=0x0150}
0x5740…574a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0037, t01=0x015a}
0x574a…5766 Head {h00=0x0018, h01=0x0050, text=»* RESET ALL MDT BITS«, t00=0x0037, t01=0x0164}
0x5766…5770 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0037, t01=0x0180}
0x5770…577a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0037, t01=0x018a}
0x577a…5792 (56, 0, 398) Head {h00=0x0014, h01=0x0050, text=»RESMDT LDK A3,0 «, t00=0x0038, t01=0x0004}
0x5792…57a8 Head {h00=0x0012, h01=0x0050, text=» LDKL A4,BVDU «, t00=0x0038, t01=0x001c}
0x57a8…57be Head {h00=0x0012, h01=0x0050, text=» ADR A4,TCABAS«, t00=0x0038, t01=0x0032}
0x57be…57da Head {h00=0x0018, h01=0x0050, text=»RESM10 CWK A3,LBVDU «, t00=0x0038, t01=0x0048}
0x57da…57fa Head {h00=0x001c, h01=0x0050, text=» RB(NL) PWCC10 ALL DONE «, t00=0x0038, t01=0x0064}
0x57fa…5816 Head {h00=0x0018, h01=0x0050, text=» LCR A2,A4 GET CHAR «, t00=0x0038, t01=0x0084}
0x5816…582a Head {h00=0x0010, h01=0x0050, text=» ANK A2,/60 «, t00=0x0038, t01=0x00a0}
0x582a…584e Head {h00=0x0020, h01=0x0050, text=» RF(NZ) RESM20 NO ATTRIBUTE «, t00=0x0038, t01=0x00b4}
0x584e…5860 Head {h00=0x000e, h01=0x0050, text=» LCR A2,A4«, t00=0x0038, t01=0x00d8}
0x5860…587e Head {h00=0x001a, h01=0x0050, text=» ANK A2,/FE RESET MDT «, t00=0x0038, t01=0x00ea}
0x587e…5890 Head {h00=0x000e, h01=0x0050, text=» SCR A2,A4«, t00=0x0038, t01=0x0108}
0x5890…58a8 Head {h00=0x0014, h01=0x0050, text=»RESM20 ADK A3,1 «, t00=0x0038, t01=0x011a}
0x58a8…58ba Head {h00=0x000e, h01=0x0050, text=» ADK A4,1 «, t00=0x0038, t01=0x0132}
0x58ba…58cc Head {h00=0x000e, h01=0x0050, text=» RB RESM10«, t00=0x0038, t01=0x0144}
0x58cc…58d6 Head {h00=0x0006, h01=0x0050, text=» «, t00=0x0038, t01=0x0156}
0x58d6…58e0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0038, t01=0x0160}
0x58e0…58ea Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0038, t01=0x016a}
0x58ea…5908 Head {h00=0x001a, h01=0x0050, text=»* ERASE ENTIRE SCREEN «, t00=0x0038, t01=0x0174}
0x5908…5912 (57, 0, 400) Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0039, t01=0x0004}
0x5912…591c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0039, t01=0x000e}
0x591c…5932 Head {h00=0x0012, h01=0x0050, text=»ERASE LDK A3,0«, t00=0x0039, t01=0x0018}
0x5932…5948 Head {h00=0x0012, h01=0x0050, text=» LDKL A4,BVDU «, t00=0x0039, t01=0x002e}
0x5948…595e Head {h00=0x0012, h01=0x0050, text=» ADR A4,TCABAS«, t00=0x0039, t01=0x0044}
0x595e…5972 Head {h00=0x0010, h01=0x0050, text=» LDK A2,NULL«, t00=0x0039, t01=0x005a}
0x5972…598e Head {h00=0x0018, h01=0x0050, text=»ERAS20 CWK A3,LBVDU «, t00=0x0039, t01=0x006e}
0x598e…59b0 Head {h00=0x001e, h01=0x0050, text=» RF(NL) ERAS25 ALL ERASED «, t00=0x0039, t01=0x008a}
0x59b0…59c2 Head {h00=0x000e, h01=0x0050, text=» SCR A2,A4«, t00=0x0039, t01=0x00ac}
0x59c2…59d4 Head {h00=0x000e, h01=0x0050, text=» ADK A3,1 «, t00=0x0039, t01=0x00be}
0x59d4…59e6 Head {h00=0x000e, h01=0x0050, text=» ADK A4,1 «, t00=0x0039, t01=0x00d0}
0x59e6…59f8 Head {h00=0x000e, h01=0x0050, text=» RB ERAS20«, t00=0x0039, t01=0x00e2}
0x59f8…5a28 Head {h00=0x002c, h01=0x0050, text=»ERAS25 CM PCURS,TCABAS RESET CURSOR POS «, t00=0x0039, t01=0x00f4}
0x5a28…5a40 Head {h00=0x0014, h01=0x0050, text=» LDKL A1,LBVDU+1«, t00=0x0039, t01=0x0124}
0x5a40…5a74 Head {h00=0x0030, h01=0x0050, text=» ST A1,CURATT,TCABAS INDICATE UNFORM. SCREEN«, t00=0x0039, t01=0x013c}
0x5a74…5a8e Head {h00=0x0016, h01=0x0050, text=» CM ATTRIB,TCABAS «, t00=0x0039, t01=0x0170}
0x5a8e…5abe Head {h00=0x002c, h01=0x0050, text=» LD A1,PRINTER,TCABAS CHECK DEVISE TYPE «, t00=0x0039, t01=0x018a}
0x5abe…5aea Head {h00=0x0028, h01=0x0050, text=» RF(NZ) ERAEND PRINTER, NOT DISPLAY «, t00=0x003a, t01=0x002a}
0x5aea…5b16 Head {h00=0x0028, h01=0x0050, text=» STR A7,A14 SAVE A7 AND A8 ON STACK «, t00=0x003a, t01=0x0056}
0x5b16…5b2c Head {h00=0x0012, h01=0x0050, text=» ST A8,-2,A14 «, t00=0x003a, t01=0x0082}
0x5b2c…5b44 Head {h00=0x0014, h01=0x0050, text=» LDKL A8,ECBVDU «, t00=0x003a, t01=0x0098}
0x5b44…5b62 Head {h00=0x001a, h01=0x0050, text=» ADR A8,CREBAS VDUECB «, t00=0x003a, t01=0x00b0}
0x5b62…5b88 Head {h00=0x0022, h01=0x0050, text=» LDK A7,'1' ERASE CONTROL CHAR«, t00=0x003a, t01=0x00ce}
0x5b88…5ba4 Head {h00=0x0018, h01=0x0050, text=» LD A1,ECBBA,A8 =1 «, t00=0x003a, t01=0x00f4}
0x5ba4…5bbc Head {h00=0x0014, h01=0x0050, text=» SC A7,1,A1 =1 «, t00=0x003a, t01=0x0110}
0x5bbc…5bce Head {h00=0x000e, h01=0x0050, text=» LDK A7,2 «, t00=0x003a, t01=0x0128}
0x5bce…5bf4 Head {h00=0x0022, h01=0x0050, text=» ST A7,ECBRL,A8 REQ LENGTH = 2«, t00=0x003a, t01=0x013a}
0x5bf4…5c0e Head {h00=0x0016, h01=0x0050, text=» LDK A7,/86 WRITE «, t00=0x003a, t01=0x0160}
0x5c0e…5c1a Head {h00=0x0008, h01=0x0050, text=» LKM«, t00=0x003a, t01=0x017a}
0x5c1a…5c2a Head {h00=0x000c, h01=0x0050, text=» DATA 1 «, t00=0x003a, t01=0x0186}
0x5c2a…5c40 Head {h00=0x0012, h01=0x0050, text=» LD A8,-2,A14 «, t00=0x003b, t01=0x0008}
0x5c40…5c66 Head {h00=0x0022, h01=0x0050, text=» LDR* A7,A14 RESTORE A7 AND A8«, t00=0x003b, t01=0x001e}
0x5c66…5c7c Head {h00=0x0012, h01=0x0050, text=»ERAEND RTN A14«, t00=0x003b, t01=0x0044}
0x5c7c…5c86 Head {h00=0x0006, h01=0x0050, text=» «, t00=0x003b, t01=0x005a}
0x5c86…5c90 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003b, t01=0x0064}
0x5c90…5c9a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003b, t01=0x006e}
0x5c9a…5cba Head {h00=0x001c, h01=0x0050, text=»* ERASE ALL UNPROTECTED «, t00=0x003b, t01=0x0078}
0x5cba…5cc4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003b, t01=0x0098}
0x5cc4…5cce Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003b, t01=0x00a2}
0x5cce…5ce6 Head {h00=0x0014, h01=0x0050, text=»ERASUP LDK A2,2 «, t00=0x003b, t01=0x00ac}
0x5ce6…5d18 Head {h00=0x002e, h01=0x0050, text=» ST A2,WCC,TCABAS SET KEYBOARD RESTORE BIT«, t00=0x003b, t01=0x00c4}
0x5d18…5d4e Head {h00=0x0032, h01=0x0050, text=» SUR A1,A1 INDICATE ATT IN LAST SCREEN POS DK «, t00=0x003b, t01=0x00f6}
0x5d4e…5d60 Head {h00=0x000e, h01=0x0050, text=» LDK A3,0 «, t00=0x003b, t01=0x012c}
0x5d60…5d76 Head {h00=0x0012, h01=0x0050, text=» LDKL A4,BVDU «, t00=0x003b, t01=0x013e}
0x5d76…5d8c Head {h00=0x0012, h01=0x0050, text=» ADR A4,TCABAS«, t00=0x003b, t01=0x0154}
0x5d8c…5dc0 Head {h00=0x0030, h01=0x0050, text=» CM PCURS,TCABAS FIND FIRST UNPROTECTED POS «, t00=0x003b, t01=0x016a}
0x5dc0…5df0 Head {h00=0x002c, h01=0x0050, text=» LC A2,1919,A4 GET LAST SCREEN CHARACTER«, t00=0x003c, t01=0x000e}
0x5df0…5e04 Head {h00=0x0010, h01=0x0050, text=» ANK A2,/7F «, t00=0x003c, t01=0x003e}
0x5e04…5e26 Head {h00=0x001e, h01=0x0050, text=» CWK A2,/20 ATTRIBUTE ??? «, t00=0x003c, t01=0x0052}
0x5e26…5e4e Head {h00=0x0024, h01=0x0050, text=» RF(L) ERU:01 YES!! WE GOT IT!! «, t00=0x003c, t01=0x0074}
0x5e4e…5e82 Head {h00=0x0030, h01=0x0050, text=» LDK A1,1 ATTRIBUTE NOT IN LAST SCREEN POS. «, t00=0x003c, t01=0x009c}
0x5e82…5e9e Head {h00=0x0018, h01=0x0050, text=»ERASU1 CWK A3,LBVDU «, t00=0x003c, t01=0x00d0}
0x5e9e…5eb4 Head {h00=0x0012, h01=0x0050, text=» RF(NL) ERASU2«, t00=0x003c, t01=0x00ec}
0x5eb4…5ed0 Head {h00=0x0018, h01=0x0050, text=» LCR A2,A4 GET CHAR «, t00=0x003c, t01=0x0102}
0x5ed0…5ee4 Head {h00=0x0010, h01=0x0050, text=» ANK A2,/7F «, t00=0x003c, t01=0x011e}
0x5ee4…5ef6 Head {h00=0x000e, h01=0x0050, text=» ADK A3,1 «, t00=0x003c, t01=0x0132}
0x5ef6…5f08 Head {h00=0x000e, h01=0x0050, text=» ADK A4,1 «, t00=0x003c, t01=0x0144}
0x5f08…5f1c Head {h00=0x0010, h01=0x0050, text=» CWK A2,/20 «, t00=0x003c, t01=0x0156}
0x5f1c…5f40 Head {h00=0x0020, h01=0x0050, text=» RB(NL) ERASU1 NO ATTRIBUTE «, t00=0x003c, t01=0x016a}
0x5f40…5f54 Head {h00=0x0010, h01=0x0050, text=»ERU:01 EQU *«, t00=0x003c, t01=0x018e}
0x5f54…5f68 Head {h00=0x0010, h01=0x0050, text=» ANK A2,/10 «, t00=0x003d, t01=0x0012}
0x5f68…5f88 Head {h00=0x001c, h01=0x0050, text=» RB(NZ) ERASU1 PROTECTED«, t00=0x003d, t01=0x0026}
0x5f88…5fb6 Head {h00=0x002a, h01=0x0050, text=» ST A3,PCURS,TCABAS SET NEW CURSOR POS«, t00=0x003d, t01=0x0046}
0x5fb6…5fc8 Head {h00=0x000e, h01=0x0050, text=» LDR A1,A1«, t00=0x003d, t01=0x0074}
0x5fc8…5ffc Head {h00=0x0030, h01=0x0050, text=» RF(Z) ERASU3 ATTRIBUTE IN LAST SCREEN POS. «, t00=0x003d, t01=0x0086}
0x5ffc…6014 Head {h00=0x0014, h01=0x0050, text=»ERASU2 LDK A3,0 «, t00=0x003d, t01=0x00ba}
0x6014…602a Head {h00=0x0012, h01=0x0050, text=» LDKL A4,BVDU «, t00=0x003d, t01=0x00d2}
0x602a…6040 Head {h00=0x0012, h01=0x0050, text=» ADR A4,TCABAS«, t00=0x003d, t01=0x00e8}
0x6040…6052 Head {h00=0x000e, h01=0x0050, text=» RF ERASU4«, t00=0x003d, t01=0x00fe}
0x6052…6066 Head {h00=0x0010, h01=0x0050, text=»ERASU3 EQU *«, t00=0x003d, t01=0x0110}
0x6066…6078 Head {h00=0x000e, h01=0x0050, text=» LDR A3,A3«, t00=0x003d, t01=0x0124}
0x6078…60b2 Head {h00=0x0036, h01=0x0050, text=» RF(Z) ERASU4 UNPROTECTED ATT. IN LAST SCREEN POS.«, t00=0x003d, t01=0x0136}
0x60b2…60da Head {h00=0x0024, h01=0x0050, text=» SUK A3,1 GET BACK TO ATTRIBUTE «, t00=0x003d, t01=0x0170}
0x60da…60f8 Head {h00=0x001a, h01=0x0050, text=» SUK A4,1 - " -«, t00=0x003e, t01=0x0008}
0x60f8…610c Head {h00=0x0010, h01=0x0050, text=»ERASU4 EQU *«, t00=0x003e, t01=0x0026}
0x610c…6132 Head {h00=0x0022, h01=0x0050, text=» LDKL A1,/0F00 (LDK A1,0) DK3 «, t00=0x003e, t01=0x003a}
0x6132…6156 Head {h00=0x0020, h01=0x0050, text=» LDK A6,NULL+/80 ERASE CHAR «, t00=0x003e, t01=0x0060}
0x6156…6168 Head {h00=0x000e, h01=0x0050, text=» RF ERAS35«, t00=0x003e, t01=0x0084}
0x6168…6176 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x003e, t01=0x0096}
0x6176…6180 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003e, t01=0x00a4}
0x6180…618a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003e, t01=0x00ae}
0x618a…61bc Head {h00=0x002e, h01=0x0050, text=»* ERASE UNPROTECTED TO ADDRESS GIVEN IN A1«, t00=0x003e, t01=0x00b8}
0x61bc…61c6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003e, t01=0x00ea}
0x61c6…61d0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003e, t01=0x00f4}
0x61d0…61fe Head {h00=0x002a, h01=0x0050, text=»ERASUA LDK A6,NULL+/80 ERASE CHARACTER«, t00=0x003e, t01=0x00fe}
0x61fe…6226 Head {h00=0x0024, h01=0x0050, text=» ******************* 78-09-11 «, t00=0x003e, t01=0x012c}
0x6226…624c Head {h00=0x0022, h01=0x0050, text=» CWK A3,LBVDU WRAP AROUND ??? «, t00=0x003e, t01=0x0154}
0x624c…6266 Head {h00=0x0016, h01=0x0050, text=» RF(L) ERAS:1 NO!!«, t00=0x003e, t01=0x017a}
0x6266…6284 (63, 0, 400) Head {h00=0x001a, h01=0x0050, text=» LDK A3,0 BUFFERINDEX «, t00=0x003f, t01=0x0004}
0x6284…629a Head {h00=0x0012, h01=0x0050, text=» LDKL A4,BVDU «, t00=0x003f, t01=0x0022}
0x629a…62ca Head {h00=0x002c, h01=0x0050, text=» ADR A4,TCABAS ABSOLUTE BUFFER ADDRESS «, t00=0x003f, t01=0x0038}
0x62ca…62d2 Head {h00=0x0004, h01=0x0050, t00=0x003f, t01=0x0068}
0x62d2…630e Head {h00=0x0038, h01=0x0050, text=»ERAS:1 LDR A3,A3 START IN FIRST SCREEN POSITION ??? «, t00=0x003f, t01=0x0070}
0x630e…632a Head {h00=0x0018, h01=0x0050, text=» RF(NZ) ERAS35 NO!! «, t00=0x003f, t01=0x00ac}
0x632a…6356 Head {h00=0x0028, h01=0x0050, text=» LC A2,1919,A4 LAST BUFFER CHARACTER«, t00=0x003f, t01=0x00c8}
0x6356…636a Head {h00=0x0010, h01=0x0050, text=» ANK A2,/7F «, t00=0x003f, t01=0x00f4}
0x636a…6396 Head {h00=0x0028, h01=0x0050, text=» CWK A2,/20 ATTRIBUTE CHARACTER ??? «, t00=0x003f, t01=0x0108}
0x6396…63b2 Head {h00=0x0018, h01=0x0050, text=» RF(NL) ERAS35 NO!!!«, t00=0x003f, t01=0x0134}
0x63b2…63c6 Head {h00=0x0010, h01=0x0050, text=» ANK A2,/10 «, t00=0x003f, t01=0x0150}
0x63c6…63ec Head {h00=0x0022, h01=0x0050, text=» RF(NZ) ERAS70 PROTECTED FIELD«, t00=0x003f, t01=0x0164}
0x63ec…6408 Head {h00=0x0018, h01=0x0050, text=»* LC A2,1919,A4 DK3«, t00=0x003f, t01=0x018a}
0x6408…6422 Head {h00=0x0016, h01=0x0050, text=»* ANK A2,/FE DK3 «, t00=0x0040, t01=0x0016}
0x6422…644c Head {h00=0x0026, h01=0x0050, text=»* SC A2,1919,A4 RESET MDT BIT DK3 «, t00=0x0040, t01=0x0030}
0x644c…645e Head {h00=0x000e, h01=0x0050, text=» RF ERAS35«, t00=0x0040, t01=0x005a}
0x645e…6486 Head {h00=0x0024, h01=0x0050, text=» ******************** 78-09-11«, t00=0x0040, t01=0x006c}
0x6486…64a2 Head {h00=0x0018, h01=0x0050, text=»ERAS30 CWK A3,LBVDU «, t00=0x0040, t01=0x0094}
0x64a2…64ca Head {h00=0x0024, h01=0x0050, text=» RF(L) ERAS33 NOT END OF SCREEN «, t00=0x0040, t01=0x00b0}
0x64ca…64dc Head {h00=0x000e, h01=0x0050, text=» LDK A3,0 «, t00=0x0040, t01=0x00d8}
0x64dc…64fe Head {h00=0x001e, h01=0x0050, text=» LDKL A4,BVDU WRAP AROUND «, t00=0x0040, t01=0x00ea}
0x64fe…6514 Head {h00=0x0012, h01=0x0050, text=» ADR A4,TCABAS«, t00=0x0040, t01=0x010c}
0x6514…6528 Head {h00=0x0010, h01=0x0050, text=»ERAS33 EQU *«, t00=0x0040, t01=0x0122}
0x6528…654e Head {h00=0x0022, h01=0x0050, text=» CWK A1,/0F00 EUA COMMAND? DK3«, t00=0x0040, t01=0x0136}
0x654e…6576 Head {h00=0x0024, h01=0x0050, text=» RF(L) ERAS34 NO, EUA ORDER DK3 «, t00=0x0040, t01=0x015c}
0x6576…65a2 Head {h00=0x0028, h01=0x0050, text=» CWK A3,0 FINISHED EUA COMMAND? DK3 «, t00=0x0040, t01=0x0184}
0x65a2…65ca Head {h00=0x0024, h01=0x0050, text=» RF(NZ) ERAS35 NO, CONTINUE DK3 «, t00=0x0041, t01=0x0020}
0x65ca…65ec Head {h00=0x001e, h01=0x0050, text=» LDK A1,0 YES FINISHED DK3«, t00=0x0041, t01=0x0048}
0x65ec…6604 Head {h00=0x0014, h01=0x0050, text=» RB ERAEND DK3 «, t00=0x0041, t01=0x006a}
0x6604…661e Head {h00=0x0016, h01=0x0050, text=»ERAS34 EQU * DK3 «, t00=0x0041, t01=0x0082}
0x661e…6630 Head {h00=0x000e, h01=0x0050, text=» CWR A3,A1«, t00=0x0041, t01=0x009c}
0x6630…665c Head {h00=0x0028, h01=0x0050, text=» RB(E) ERAEND ALL UNPROTECTED ERASED«, t00=0x0041, t01=0x00ae}
0x665c…668e Head {h00=0x002e, h01=0x0050, text=»ERAS35 LCR A2,A4 GET CHAR FROM VDU BUFFER «, t00=0x0041, t01=0x00da}
0x668e…66a2 Head {h00=0x0010, h01=0x0050, text=» ANK A2,/7F «, t00=0x0041, t01=0x010c}
0x66a2…66b6 Head {h00=0x0010, h01=0x0050, text=» CWK A2,/20 «, t00=0x0041, t01=0x0120}
0x66b6…66da Head {h00=0x0020, h01=0x0050, text=» RF(L) ERAS50 ATTRIBUTE CHAR«, t00=0x0041, t01=0x0134}
0x66da…66ee Head {h00=0x0010, h01=0x0050, text=» XRK A2,NULL«, t00=0x0041, t01=0x0158}
0x66ee…6710 Head {h00=0x001e, h01=0x0050, text=» RF(Z) ERAS40 ALREADY NULL«, t00=0x0041, t01=0x016c}
0x6710…6736 Head {h00=0x0022, h01=0x0050, text=» SCR A6,A4 STORE MODIFIED NULL«, t00=0x0041, t01=0x018e}
0x6736…674e Head {h00=0x0014, h01=0x0050, text=»ERAS40 ADK A3,1 «, t00=0x0042, t01=0x0024}
0x674e…6760 Head {h00=0x000e, h01=0x0050, text=» ADK A4,1 «, t00=0x0042, t01=0x003c}
0x6760…6772 Head {h00=0x000e, h01=0x0050, text=» RB ERAS30«, t00=0x0042, t01=0x004e}
0x6772…678a Head {h00=0x0014, h01=0x0050, text=»ERAS50 ADK A3,1 «, t00=0x0042, t01=0x0060}
0x678a…679c Head {h00=0x000e, h01=0x0050, text=» ADK A4,1 «, t00=0x0042, t01=0x0078}
0x679c…67b0 Head {h00=0x0010, h01=0x0050, text=» ANK A2,/10 «, t00=0x0042, t01=0x008a}
0x67b0…67d6 Head {h00=0x0022, h01=0x0050, text=» RF(NZ) ERAS60 PROTECTED FIELD«, t00=0x0042, t01=0x009e}
0x67d6…67fc Head {h00=0x0022, h01=0x0050, text=» CWK A1,/0F00 EUA COMMAND? DK3«, t00=0x0042, t01=0x00c4}
0x67fc…6818 Head {h00=0x0018, h01=0x0050, text=» RB(L) ERAS30 NO DK3«, t00=0x0042, t01=0x00ea}
0x6818…6842 Head {h00=0x0026, h01=0x0050, text=»* EUA COMMAND: RESET MDT BIT DK3 «, t00=0x0042, t01=0x0106}
0x6842…6856 Head {h00=0x0010, h01=0x0050, text=» LC A2,-1,A4«, t00=0x0042, t01=0x0130}
0x6856…6878 Head {h00=0x001e, h01=0x0050, text=» ANK A2,/FE RESET MDT BIT «, t00=0x0042, t01=0x0144}
0x6878…688c Head {h00=0x0010, h01=0x0050, text=» SC A2,-1,A4«, t00=0x0042, t01=0x0166}
0x688c…689e Head {h00=0x000e, h01=0x0050, text=» RB ERAS30«, t00=0x0042, t01=0x017a}
0x689e…68ba Head {h00=0x0018, h01=0x0050, text=»ERAS60 CWK A3,LBVDU «, t00=0x0042, t01=0x018c}
0x68ba…68d0 Head {h00=0x0012, h01=0x0050, text=» RF(L) ERAS65 «, t00=0x0043, t01=0x0018}
0x68d0…68e2 Head {h00=0x000e, h01=0x0050, text=» LDK A3,0 «, t00=0x0043, t01=0x002e}
0x68e2…6904 Head {h00=0x001e, h01=0x0050, text=» LDKL A4,BVDU WRAP AROUND «, t00=0x0043, t01=0x0040}
0x6904…691a Head {h00=0x0012, h01=0x0050, text=» ADR A4,TCABAS«, t00=0x0043, t01=0x0062}
0x691a…692e Head {h00=0x0010, h01=0x0050, text=»ERAS65 EQU *«, t00=0x0043, t01=0x0078}
0x692e…6954 Head {h00=0x0022, h01=0x0050, text=» CWK A1,/0F00 EUA COMMAND? DK3«, t00=0x0043, t01=0x008c}
0x6954…697c Head {h00=0x0024, h01=0x0050, text=» RF(L) ERAS67 NO, EUA ORDER DK3 «, t00=0x0043, t01=0x00b2}
0x697c…69a8 Head {h00=0x0028, h01=0x0050, text=» CWK A3,0 FINISHED EUA COMMAND? DK3 «, t00=0x0043, t01=0x00da}
0x69a8…69ce Head {h00=0x0022, h01=0x0050, text=» RF(NZ) ERAS70 NO,CONTINUE DK3«, t00=0x0043, t01=0x0106}
0x69ce…69f2 Head {h00=0x0020, h01=0x0050, text=» LDK A1,0 YYES, FINSHED DK3 «, t00=0x0043, t01=0x012c}
0x69f2…6a0a Head {h00=0x0014, h01=0x0050, text=» RB ERAEND DK3 «, t00=0x0043, t01=0x0150}
0x6a0a…6a24 Head {h00=0x0016, h01=0x0050, text=»ERAS67 EQU * DK3 «, t00=0x0043, t01=0x0168}
0x6a24…6a36 Head {h00=0x000e, h01=0x0050, text=» CWR A3,A1«, t00=0x0043, t01=0x0182}
0x6a36…6a62 (68, 0, 400) Head {h00=0x0028, h01=0x0050, text=» RB(E) ERAEND ALL UNPROTECTED ERASED«, t00=0x0044, t01=0x0004}
0x6a62…6a76 Head {h00=0x0010, h01=0x0050, text=»ERAS70 EQU *«, t00=0x0044, t01=0x0030}
0x6a76…6a88 Head {h00=0x000e, h01=0x0050, text=» LCR A2,A4«, t00=0x0044, t01=0x0044}
0x6a88…6a9c Head {h00=0x0010, h01=0x0050, text=» ANK A2,/7F «, t00=0x0044, t01=0x0056}
0x6a9c…6ab0 Head {h00=0x0010, h01=0x0050, text=» CWK A2,/20 «, t00=0x0044, t01=0x006a}
0x6ab0…6ad6 Head {h00=0x0022, h01=0x0050, text=» RB(L) ERAS50 ATTRIBUTE FOUND «, t00=0x0044, t01=0x007e}
0x6ad6…6ae8 Head {h00=0x000e, h01=0x0050, text=» ADK A3,1 «, t00=0x0044, t01=0x00a4}
0x6ae8…6afa Head {h00=0x000e, h01=0x0050, text=» ADK A4,1 «, t00=0x0044, t01=0x00b6}
0x6afa…6b0c Head {h00=0x000e, h01=0x0050, text=» RB ERAS60«, t00=0x0044, t01=0x00c8}
0x6b0c…6b16 Head {h00=0x0006, h01=0x0050, text=» «, t00=0x0044, t01=0x00da}
0x6b16…6b20 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0044, t01=0x00e4}
0x6b20…6b2a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0044, t01=0x00ee}
0x6b2a…6b4e Head {h00=0x0020, h01=0x0050, text=»* TRANSMIT PROGRAM ATTENTION«, t00=0x0044, t01=0x00f8}
0x6b4e…6b58 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0044, t01=0x011c}
0x6b58…6b68 Head {h00=0x000c, h01=0x0050, text=»* A2=AID«, t00=0x0044, t01=0x0126}
0x6b68…6b72 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0044, t01=0x0136}
0x6b72…6b7c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0044, t01=0x0140}
0x6b7c…6baa Head {h00=0x002a, h01=0x0050, text=»TRPA CF A14,GTWBUF GET TRANSMIT BUFFER«, t00=0x0044, t01=0x014a}
0x6baa…6bce Head {h00=0x0020, h01=0x0050, text=»TRPA10 CF A14,PAID STORE AID«, t00=0x0044, t01=0x0178}
0x6bce…6be2 Head {h00=0x0010, h01=0x0050, text=»TRANS EQU * «, t00=0x0045, t01=0x000c}
0x6be2…6c06 Head {h00=0x0020, h01=0x0050, text=» CF A14,DCWRTE WRITE MESSAGE«, t00=0x0045, t01=0x0020}
0x6c06…6c1a Head {h00=0x0010, h01=0x0050, text=»TR050 EQU * «, t00=0x0045, t01=0x0044}
0x6c1a…6c40 Head {h00=0x0022, h01=0x0050, text=» RTN A14 TRANSMISSION TROUBLE «, t00=0x0045, t01=0x0058}
0x6c40…6c56 Head {h00=0x0012, h01=0x0050, text=»TRRTN RTN A14 «, t00=0x0045, t01=0x007e}
0x6c56…6c60 Head {h00=0x0006, h01=0x0050, text=» «, t00=0x0045, t01=0x0094}
0x6c60…6c6a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0045, t01=0x009e}
0x6c6a…6c74 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0045, t01=0x00a8}
0x6c74…6c98 Head {h00=0x0020, h01=0x0050, text=»* TRANSMIT PROGRAM FUNCTION «, t00=0x0045, t01=0x00b2}
0x6c98…6ca2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0045, t01=0x00d6}
0x6ca2…6cb2 Head {h00=0x000c, h01=0x0050, text=»* A2=AID«, t00=0x0045, t01=0x00e0}
0x6cb2…6cbc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0045, t01=0x00f0}
0x6cbc…6cc6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0045, t01=0x00fa}
0x6cc6…6cf4 Head {h00=0x002a, h01=0x0050, text=»TRPF CF A14,GTWBUF GET TRANSMIT BUFFER«, t00=0x0045, t01=0x0104}
0x6cf4…6d18 Head {h00=0x0020, h01=0x0050, text=»TRPF10 CF A14,PAID STORE AID«, t00=0x0045, t01=0x0132}
0x6d18…6d42 Head {h00=0x0026, h01=0x0050, text=» CF A14,CURSA STORE CURSOR ADDRESS«, t00=0x0045, t01=0x0156}
0x6d42…6d66 Head {h00=0x0020, h01=0x0050, text=» CF A14,RDMOD READ MODIFIED «, t00=0x0045, t01=0x0180}
0x6d66…6d8c Head {h00=0x0022, h01=0x0050, text=» RB TRANS SEND MODIFIED FIELDS«, t00=0x0046, t01=0x0014}
0x6d8c…6d96 Head {h00=0x0006, h01=0x0050, text=» «, t00=0x0046, t01=0x003a}
0x6d96…6da0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0046, t01=0x0044}
0x6da0…6daa Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0046, t01=0x004e}
0x6daa…6dd2 Head {h00=0x0024, h01=0x0050, text=»* DISPLAY MODIFIED FIELDS ON VDU«, t00=0x0046, t01=0x0058}
0x6dd2…6ddc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0046, t01=0x0080}
0x6ddc…6de6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0046, t01=0x008a}
0x6de6…6e00 Head {h00=0x0016, h01=0x0050, text=»* A3=VDU POSITION «, t00=0x0046, t01=0x0094}
0x6e00…6e1e Head {h00=0x001a, h01=0x0050, text=»* A4=VDU IMAGE POINTER«, t00=0x0046, t01=0x00ae}
0x6e1e…6e3e Head {h00=0x001c, h01=0x0050, text=»* A5=MODIFIED INDICATOR «, t00=0x0046, t01=0x00cc}
0x6e3e…6e62 Head {h00=0x0020, h01=0x0050, text=»* A7=VDU LINE OUTPUT POINTER«, t00=0x0046, t01=0x00ec}
0x6e62…6e76 Head {h00=0x0010, h01=0x0050, text=»* A8=VDU ECB«, t00=0x0046, t01=0x0110}
0x6e76…6e9a Head {h00=0x0020, h01=0x0050, text=»* A9=VDU OUTPUT CHAR COUNTER«, t00=0x0046, t01=0x0124}
0x6e9a…6ea4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0046, t01=0x0148}
0x6ea4…6eae Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0046, t01=0x0152}
0x6eae…6eca Head {h00=0x0018, h01=0x0050, text=»DISPL LDKL A8,ECBVDU«, t00=0x0046, t01=0x015c}
0x6eca…6ee0 Head {h00=0x0012, h01=0x0050, text=» ADR A8,CREBAS«, t00=0x0046, t01=0x0178}
0x6ee0…6f0e Head {h00=0x002a, h01=0x0050, text=» LDKL A1,/101 START FROM LINE 1 POS 1 «, t00=0x0046, t01=0x018e}
0x6f0e…6f26 Head {h00=0x0014, h01=0x0050, text=» ST A1,ECBCW,A8 «, t00=0x0047, t01=0x002c}
0x6f26…6f62 Head {h00=0x0038, h01=0x0050, text=» SUR A10,A10 RESET COUNT FOR INTENSIFIED DISPLAYING «, t00=0x0047, t01=0x0044}
0x6f62…6f74 Head {h00=0x000e, h01=0x0050, text=» LDK A3,0 «, t00=0x0047, t01=0x0080}
0x6f74…6f8a Head {h00=0x0012, h01=0x0050, text=» LDKL A4,BVDU «, t00=0x0047, t01=0x0092}
0x6f8a…6fa0 Head {h00=0x0012, h01=0x0050, text=» ADR A4,TCABAS«, t00=0x0047, t01=0x00a8}
0x6fa0…6fd0 Head {h00=0x002c, h01=0x0050, text=» CF A14,SPACES PUT SPACES IN LINE BUFFER«, t00=0x0047, t01=0x00be}
0x6fd0…700a Head {h00=0x0036, h01=0x0050, text=» LC A2,1919,A4 CHECK IF ATTRIBUTE IN LAST POSITION«, t00=0x0047, t01=0x00ee}
0x700a…701e Head {h00=0x0010, h01=0x0050, text=» ANK A2,/7F «, t00=0x0047, t01=0x0128}
0x701e…7040 Head {h00=0x001e, h01=0x0050, text=» CWK A2,/1F ATTRIBUTE ??? «, t00=0x0047, t01=0x013c}
0x7040…705c Head {h00=0x0018, h01=0x0050, text=» RF(G) DIS100 NO!!! «, t00=0x0047, t01=0x015e}
0x705c…7064 Head {h00=0x0004, h01=0x0050, t00=0x0047, t01=0x017a}
0x7064…7076 Head {h00=0x000e, h01=0x0050, text=» ANK A2,6 «, t00=0x0047, t01=0x0182}
0x7076…7088 (72, 0, 400) Head {h00=0x000e, h01=0x0050, text=» XRK A2,6 «, t00=0x0048, t01=0x0004}
0x7088…70ca Head {h00=0x003e, h01=0x0050, text=» ST A2,INTATT,TCABAS CHECK DISPLAY/NONDISPLAY INFORMATION «, t00=0x0048, t01=0x0016}
0x70ca…70ec Head {h00=0x001e, h01=0x0050, text=» RF(Z) DIS210 NON DISPLAY «, t00=0x0048, t01=0x0058}
0x70ec…7124 Head {h00=0x0034, h01=0x0050, text=» CF A14,INTCHK INSERT HIGH/LOW INTENS. IN BUFFER«, t00=0x0048, t01=0x007a}
0x7124…7138 Head {h00=0x0010, h01=0x0050, text=»DIS100 EQU *«, t00=0x0048, t01=0x00b2}
0x7138…714e Head {h00=0x0012, h01=0x0050, text=» CWK A9,LLINE «, t00=0x0048, t01=0x00c6}
0x714e…7174 Head {h00=0x0022, h01=0x0050, text=» RF(L) DIS110 NOT END OF LINE «, t00=0x0048, t01=0x00dc}
0x7174…719c Head {h00=0x0024, h01=0x0050, text=» CF A14,DISLIN DISPLAY THIS LINE«, t00=0x0048, t01=0x0102}
0x719c…71ce Head {h00=0x002e, h01=0x0050, text=» CF A14,INTCHK CHECK IF LOW/HIGH INTENSITY«, t00=0x0048, t01=0x012a}
0x71ce…71e2 Head {h00=0x0010, h01=0x0050, text=»DIS110 EQU *«, t00=0x0048, t01=0x015c}
0x71e2…71f8 Head {h00=0x0012, h01=0x0050, text=» CWK A3,LBVDU «, t00=0x0048, t01=0x0170}
0x71f8…721a Head {h00=0x001e, h01=0x0050, text=» RF(NL) DIS900 ALL SCANNED«, t00=0x0048, t01=0x0186}
0x721a…7236 Head {h00=0x0018, h01=0x0050, text=» LCR A2,A4 GET CHAR «, t00=0x0049, t01=0x0018}
0x7236…723e Head {h00=0x0004, h01=0x0050, t00=0x0049, t01=0x0034}
0x723e…7264 Head {h00=0x0022, h01=0x0050, text=» CF A14,SET:M SET MODIFIED BIT«, t00=0x0049, t01=0x003c}
0x7264…726c Head {h00=0x0004, h01=0x0050, t00=0x0049, t01=0x0062}
0x726c…7280 Head {h00=0x0010, h01=0x0050, text=»DIS115 EQU *«, t00=0x0049, t01=0x006a}
0x7280…72a6 Head {h00=0x0022, h01=0x0050, text=» ANK A2,/7F RESET DISPLAY BIT «, t00=0x0049, t01=0x007e}
0x72a6…72b8 Head {h00=0x000e, h01=0x0050, text=» SCR A2,A4«, t00=0x0049, t01=0x00a4}
0x72b8…72ca Head {h00=0x000e, h01=0x0050, text=» ADK A3,1 «, t00=0x0049, t01=0x00b6}
0x72ca…72dc Head {h00=0x000e, h01=0x0050, text=» ADK A4,1 «, t00=0x0049, t01=0x00c8}
0x72dc…72ee Head {h00=0x000e, h01=0x0050, text=» ADK A7,1 «, t00=0x0049, t01=0x00da}
0x72ee…7300 Head {h00=0x000e, h01=0x0050, text=» ADKL A9,1«, t00=0x0049, t01=0x00ec}
0x7300…7314 Head {h00=0x0010, h01=0x0050, text=» CWK A2,/20 «, t00=0x0049, t01=0x00fe}
0x7314…7338 Head {h00=0x0020, h01=0x0050, text=» RF(L) DIS200 ATTRIBUTE CHAR«, t00=0x0049, t01=0x0112}
0x7338…734c Head {h00=0x0010, h01=0x0050, text=» CWK A2,NULL«, t00=0x0049, t01=0x0136}
0x734c…737e Head {h00=0x002e, h01=0x0050, text=» RB(E) DIS100 NULL EQUALS SPACE AT DISPLAY«, t00=0x0049, t01=0x014a}
0x737e…7392 Head {h00=0x0010, h01=0x0050, text=» CWK A2,/7D «, t00=0x0049, t01=0x017c}
0x7392…73a8 Head {h00=0x0012, h01=0x0050, text=» RF(NE) DIS120«, t00=0x0049, t01=0x0190}
0x73a8…73bc Head {h00=0x0010, h01=0x0050, text=» LDK A2,/39 «, t00=0x004a, t01=0x0016}
0x73bc…73d6 Head {h00=0x0016, h01=0x0050, text=»DIS120 CWK A2,/7E «, t00=0x004a, t01=0x002a}
0x73d6…73ec Head {h00=0x0012, h01=0x0050, text=» RF(NE) DIS121«, t00=0x004a, t01=0x0044}
0x73ec…7400 Head {h00=0x0010, h01=0x0050, text=» LDK A2,/35 «, t00=0x004a, t01=0x005a}
0x7400…741a Head {h00=0x0016, h01=0x0050, text=»DIS121 CWK A2,/7C «, t00=0x004a, t01=0x006e}
0x741a…7430 Head {h00=0x0012, h01=0x0050, text=» RF(NE) DIS122«, t00=0x004a, t01=0x0088}
0x7430…7444 Head {h00=0x0010, h01=0x0050, text=» LDK A2,/3C «, t00=0x004a, t01=0x009e}
0x7444…7458 Head {h00=0x0010, h01=0x0050, text=»DIS122 EQU *«, t00=0x004a, t01=0x00b2}
0x7458…7474 Head {h00=0x0018, h01=0x0050, text=» CF A14,RFMDUP DK4 «, t00=0x004a, t01=0x00c6}
0x7474…74ac Head {h00=0x0034, h01=0x0050, text=» SC A2,-1,A7 STORE CHAR IN DISPLAY OUTPUT BUFFER«, t00=0x004a, t01=0x00e2}
0x74ac…74be Head {h00=0x000e, h01=0x0050, text=» RB DIS100«, t00=0x004a, t01=0x011a}
0x74be…74d6 Head {h00=0x0014, h01=0x0050, text=»DIS200 ANK A2,6 «, t00=0x004a, t01=0x012c}
0x74d6…74fc Head {h00=0x0022, h01=0x0050, text=» XRK A2,6 CHECK IF NONDISPLAY «, t00=0x004a, t01=0x0144}
0x74fc…7532 Head {h00=0x0032, h01=0x0050, text=» ST A2,INTATT,TCABAS SAVE ATTRIBUTE CHARACTER «, t00=0x004a, t01=0x016a}
0x7532…7554 Head {h00=0x001e, h01=0x0050, text=» RF(Z) DIS210 NON DISPLAY «, t00=0x004b, t01=0x0010}
0x7554…7566 Head {h00=0x000e, h01=0x0050, text=» ANK A2,4 «, t00=0x004b, t01=0x0032}
0x7566…758a Head {h00=0x0020, h01=0x0050, text=» RF(Z) DIS205 HIGH INTENSITY«, t00=0x004b, t01=0x0044}
0x758a…75ac Head {h00=0x001e, h01=0x0050, text=» LDK A2,/1E LOW INTENSITY «, t00=0x004b, t01=0x0068}
0x75ac…75be Head {h00=0x000e, h01=0x0050, text=» RF DIS206«, t00=0x004b, t01=0x008a}
0x75be…75d2 Head {h00=0x0010, h01=0x0050, text=»DIS205 EQU *«, t00=0x004b, t01=0x009c}
0x75d2…75ea Head {h00=0x0014, h01=0x0050, text=» LDK A2,/1F HIGH«, t00=0x004b, t01=0x00b0}
0x75ea…75fe Head {h00=0x0010, h01=0x0050, text=»DIS206 EQU *«, t00=0x004b, t01=0x00c8}
0x75fe…762c Head {h00=0x002a, h01=0x0050, text=» SC A2,-1,A7 STORE INTENSITY CHARACTER«, t00=0x004b, t01=0x00dc}
0x762c…7652 Head {h00=0x0022, h01=0x0050, text=» ADKL A10,1 INCREMENT COUNTER «, t00=0x004b, t01=0x010a}
0x7652…7664 Head {h00=0x000e, h01=0x0050, text=» ADK A7,1 «, t00=0x004b, t01=0x0130}
0x7664…7676 Head {h00=0x000e, h01=0x0050, text=» RB DIS100«, t00=0x004b, t01=0x0142}
0x7676…768a Head {h00=0x0010, h01=0x0050, text=»DIS210 EQU *«, t00=0x004b, t01=0x0154}
0x768a…76a0 Head {h00=0x0012, h01=0x0050, text=» CWK A9,LLINE «, t00=0x004b, t01=0x0168}
0x76a0…76b6 Head {h00=0x0012, h01=0x0050, text=» RF(L) DIS220 «, t00=0x004b, t01=0x017e}
0x76b6…76de (76, 0, 400) Head {h00=0x0024, h01=0x0050, text=» CF A14,DISLIN DISPLAY THIS LINE«, t00=0x004c, t01=0x0004}
0x76de…76f2 Head {h00=0x0010, h01=0x0050, text=»DIS220 EQU *«, t00=0x004c, t01=0x002c}
0x76f2…7708 Head {h00=0x0012, h01=0x0050, text=» CWK A3,LBVDU «, t00=0x004c, t01=0x0040}
0x7708…772c Head {h00=0x0020, h01=0x0050, text=» RF(NL) DIS900 ALL DISPLAYED«, t00=0x004c, t01=0x0056}
0x772c…773e Head {h00=0x000e, h01=0x0050, text=» LCR A2,A4«, t00=0x004c, t01=0x007a}
0x773e…7746 Head {h00=0x0004, h01=0x0050, t00=0x004c, t01=0x008c}
0x7746…776c Head {h00=0x0022, h01=0x0050, text=» CF A14,SET:M SET MODIFIED BIT«, t00=0x004c, t01=0x0094}
0x776c…7774 Head {h00=0x0004, h01=0x0050, t00=0x004c, t01=0x00ba}
0x7774…7788 Head {h00=0x0010, h01=0x0050, text=»DIS225 EQU *«, t00=0x004c, t01=0x00c2}
0x7788…77ae Head {h00=0x0022, h01=0x0050, text=» ANK A2,/7F RESET DISPLAY BIT «, t00=0x004c, t01=0x00d6}
0x77ae…77c0 Head {h00=0x000e, h01=0x0050, text=» SCR A2,A4«, t00=0x004c, t01=0x00fc}
0x77c0…77d2 Head {h00=0x000e, h01=0x0050, text=» ADK A3,1 «, t00=0x004c, t01=0x010e}
0x77d2…77e4 Head {h00=0x000e, h01=0x0050, text=» ADK A4,1 «, t00=0x004c, t01=0x0120}
0x77e4…77f6 Head {h00=0x000e, h01=0x0050, text=» ADK A7,1 «, t00=0x004c, t01=0x0132}
0x77f6…7808 Head {h00=0x000e, h01=0x0050, text=» ADKL A9,1«, t00=0x004c, t01=0x0144}
0x7808…781c Head {h00=0x0010, h01=0x0050, text=» CWK A2,/20 «, t00=0x004c, t01=0x0156}
0x781c…7842 Head {h00=0x0022, h01=0x0050, text=» RB(L) DIS200 ATTRIBUTE FOUND «, t00=0x004c, t01=0x016a}
0x7842…7854 Head {h00=0x000e, h01=0x0050, text=» RB DIS210«, t00=0x004c, t01=0x0190}
0x7854…785e Head {h00=0x0006, h01=0x0050, text=» «, t00=0x004d, t01=0x0012}
0x785e…7868 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004d, t01=0x001c}
0x7868…7872 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004d, t01=0x0026}
0x7872…7890 Head {h00=0x001a, h01=0x0050, text=»* POSITION THE CURSOR «, t00=0x004d, t01=0x0030}
0x7890…789a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004d, t01=0x004e}
0x789a…78a4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004d, t01=0x0058}
0x78a4…78b8 Head {h00=0x0010, h01=0x0050, text=»SETCUR EQU *«, t00=0x004d, t01=0x0062}
0x78b8…78da Head {h00=0x001e, h01=0x0050, text=»DIS900 LDK A1,2 REQ LENGTH«, t00=0x004d, t01=0x0076}
0x78da…78f8 Head {h00=0x001a, h01=0x0050, text=»DIS905 ST A1,ECBRL,A8 «, t00=0x004d, t01=0x0098}
0x78f8…7922 Head {h00=0x0026, h01=0x0050, text=» LD A1,PCURS,TCABAS GET CURSOR POS«, t00=0x004d, t01=0x00b6}
0x7922…794c Head {h00=0x0026, h01=0x0050, text=» LDKL A2,/101 START ON LIN 1 POS 1«, t00=0x004d, t01=0x00e0}
0x794c…7964 Head {h00=0x0014, h01=0x0050, text=» ST A2,ECBCW,A8 «, t00=0x004d, t01=0x010a}
0x7964…797a Head {h00=0x0012, h01=0x0050, text=» LDKL A2,/100 «, t00=0x004d, t01=0x0122}
0x797a…7996 Head {h00=0x0018, h01=0x0050, text=»DIS910 CWK A1,LLINE «, t00=0x004d, t01=0x0138}
0x7996…79ac Head {h00=0x0012, h01=0x0050, text=» RF(L) DIS920 «, t00=0x004d, t01=0x0154}
0x79ac…79c4 Head {h00=0x0014, h01=0x0050, text=» ADS A2,ECBCW,A8«, t00=0x004d, t01=0x016a}
0x79c4…79da Head {h00=0x0012, h01=0x0050, text=» SUKL A1,LLINE«, t00=0x004d, t01=0x0182}
0x79da…79ec Head {h00=0x000e, h01=0x0050, text=» RB DIS910«, t00=0x004e, t01=0x0008}
0x79ec…7a0a Head {h00=0x001a, h01=0x0050, text=»DIS920 ADS A1,ECBCW,A8«, t00=0x004e, t01=0x001a}
0x7a0a…7a32 Head {h00=0x0024, h01=0x0050, text=» LDK A7,/8B SET CURSOR AND WRITE«, t00=0x004e, t01=0x0038}
0x7a32…7a3e Head {h00=0x0008, h01=0x0050, text=» LKM«, t00=0x004e, t01=0x0060}
0x7a3e…7a4e Head {h00=0x000c, h01=0x0050, text=» DATA 1 «, t00=0x004e, t01=0x006c}
0x7a4e…7a82 Head {h00=0x0030, h01=0x0050, text=» CM INTATT,TCABAS CLEAR INTENSITY ATTRIBUTE «, t00=0x004e, t01=0x007c}
0x7a82…7a92 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x004e, t01=0x00b0}
0x7a92…7a9c Head {h00=0x0006, h01=0x0050, text=» «, t00=0x004e, t01=0x00c0}
0x7a9c…7aa6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004e, t01=0x00ca}
0x7aa6…7ab0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004e, t01=0x00d4}
0x7ab0…7ae4 Head {h00=0x0030, h01=0x0050, text=»* WRITE ONE CHAR FROM A2 IN CURSOR POSITION «, t00=0x004e, t01=0x00de}
0x7ae4…7aee Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004e, t01=0x0112}
0x7aee…7af8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004e, t01=0x011c}
0x7af8…7b14 Head {h00=0x0018, h01=0x0050, text=»WCHAR LD A1,ECBBA,A8«, t00=0x004e, t01=0x0126}
0x7b14…7b2a Head {h00=0x0012, h01=0x0050, text=» CF A14,RFMDUP«, t00=0x004e, t01=0x0142}
0x7b2a…7b5e Head {h00=0x0030, h01=0x0050, text=» SC A2,3,A1 STORE CHAR IN VDU OUTPUT BUFFER «, t00=0x004e, t01=0x0158}
0x7b5e…7b70 Head {h00=0x000e, h01=0x0050, text=» LDK A1,4 «, t00=0x004e, t01=0x018c}
0x7b70…7b92 Head {h00=0x001e, h01=0x0050, text=» RB DIS905 REQ LENGTH = 3 «, t00=0x004f, t01=0x000e}
0x7b92…7b9c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004f, t01=0x0030}
0x7b9c…7bea Head {h00=0x004a, h01=0x0050, text=»********************************************************************* «, t00=0x004f, t01=0x003a}
0x7bea…7bf4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004f, t01=0x0088}
0x7bf4…7c30 Head {h00=0x0038, h01=0x0050, text=»* REPLACE FM & DUP WITH '*' RESP. ';', IF PRESENT«, t00=0x004f, t01=0x0092}
0x7c30…7c4e Head {h00=0x001a, h01=0x0050, text=»* CHARACTER IN A2«, t00=0x004f, t01=0x00ce}
0x7c4e…7c58 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004f, t01=0x00ec}
0x7c58…7ca6 Head {h00=0x004a, h01=0x0050, text=»********************************************************************* «, t00=0x004f, t01=0x00f6}
0x7ca6…7cb0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004f, t01=0x0144}
0x7cb0…7cc4 Head {h00=0x0010, h01=0x0050, text=»RFMDUP EQU *«, t00=0x004f, t01=0x014e}
0x7cc4…7cda Head {h00=0x0012, h01=0x0050, text=» CWK A2,DUPCH «, t00=0x004f, t01=0x0162}
0x7cda…7cf0 Head {h00=0x0012, h01=0x0050, text=» RF(NE) RFMD10«, t00=0x004f, t01=0x0178}
0x7cf0…7d08 Head {h00=0x0014, h01=0x0050, text=» LDK A2,/2A DUP «, t00=0x004f, t01=0x018e}
0x7d08…7d1c Head {h00=0x0010, h01=0x0050, text=»RFMD10 EQU *«, t00=0x0050, t01=0x0016}
0x7d1c…7d30 Head {h00=0x0010, h01=0x0050, text=» CWK A2,FMCH«, t00=0x0050, t01=0x002a}
0x7d30…7d46 Head {h00=0x0012, h01=0x0050, text=» RF(NE) RFMD20«, t00=0x0050, t01=0x003e}
0x7d46…7d5a Head {h00=0x0010, h01=0x0050, text=» LDK A2,/3B «, t00=0x0050, t01=0x0054}
0x7d5a…7d6e Head {h00=0x0010, h01=0x0050, text=»RFMD20 EQU *«, t00=0x0050, t01=0x0068}
0x7d6e…7d7e Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0050, t01=0x007c}
0x7d7e…7d88 Head {h00=0x0006, h01=0x0050, text=» «, t00=0x0050, t01=0x008c}
0x7d88…7d92 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0050, t01=0x0096}
0x7d92…7d9c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0050, t01=0x00a0}
0x7d9c…7dc8 Head {h00=0x0028, h01=0x0050, text=»* PUT SPACES TO DISPLAY LINE BUFFER «, t00=0x0050, t01=0x00aa}
0x7dc8…7dd2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0050, t01=0x00d6}
0x7dd2…7ddc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0050, t01=0x00e0}
0x7ddc…7dfa Head {h00=0x001a, h01=0x0050, text=»SPACES LD A7,ECBBA,A8 «, t00=0x0050, t01=0x00ea}
0x7dfa…7e1a Head {h00=0x001c, h01=0x0050, text=» ADK A7,2 BUFFER ADDRESS«, t00=0x0050, t01=0x0108}
0x7e1a…7e3c Head {h00=0x001e, h01=0x0050, text=» LDKL A9,LLINE LINE LENGTH«, t00=0x0050, t01=0x0128}
0x7e3c…7e58 Head {h00=0x0018, h01=0x0050, text=» ADR A9,A9 DOUBLE IT«, t00=0x0050, t01=0x014a}
0x7e58…7e74 Head {h00=0x0018, h01=0x0050, text=» LDKL A2,' ' SPACES«, t00=0x0050, t01=0x0166}
0x7e74…7e90 Head {h00=0x0018, h01=0x0050, text=»SPAC10 SCR A2,A7 =1«, t00=0x0050, t01=0x0182}
0x7e90…7ea8 Head {h00=0x0014, h01=0x0050, text=» SC A2,1,A7 =1 «, t00=0x0051, t01=0x000e}
0x7ea8…7eba Head {h00=0x000e, h01=0x0050, text=» ADK A7,2 «, t00=0x0051, t01=0x0026}
0x7eba…7ecc Head {h00=0x000e, h01=0x0050, text=» SUKL A9,2«, t00=0x0051, t01=0x0038}
0x7ecc…7ee2 Head {h00=0x0012, h01=0x0050, text=» RB(P) SPAC10 «, t00=0x0051, t01=0x004a}
0x7ee2…7f0a Head {h00=0x0024, h01=0x0050, text=» LDK A2,0 CLEAR A2=CHAR REGISTER«, t00=0x0051, t01=0x0060}
0x7f0a…7f34 Head {h00=0x0026, h01=0x0050, text=» LDK A5,0 RESET MODIFIED INDICATOR«, t00=0x0051, t01=0x0088}
0x7f34…7f4c Head {h00=0x0014, h01=0x0050, text=» LD A7,ECBBA,A8 «, t00=0x0051, t01=0x00b2}
0x7f4c…7f6c Head {h00=0x001c, h01=0x0050, text=» ADK A7,2 BUFFER ADDRESS«, t00=0x0051, t01=0x00ca}
0x7f6c…7f96 Head {h00=0x0026, h01=0x0050, text=» SUR A9,A9 RESET LINE CHAR COUNTER«, t00=0x0051, t01=0x00ea}
0x7f96…7fa6 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0051, t01=0x0114}
0x7fa6…7fb0 Head {h00=0x0006, h01=0x0050, text=» «, t00=0x0051, t01=0x0124}
0x7fb0…7fba Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0051, t01=0x012e}
0x7fba…7fc4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0051, t01=0x0138}
0x7fc4…7ff0 Head {h00=0x0028, h01=0x0050, text=»* DISPLAY LINE IF ANY MODIFICATIONS «, t00=0x0051, t01=0x0142}
0x7ff0…7ffa Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0051, t01=0x016e}
0x7ffa…8004 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0051, t01=0x0178}
0x8004…800c Head {h00=0x0004, h01=0x0050, t00=0x0051, t01=0x0182}
0x800c…8020 Head {h00=0x0010, h01=0x0050, text=»DISLIN EQU *«, t00=0x0051, t01=0x018a}
0x8020…8032 Head {h00=0x000e, h01=0x0050, text=» LDR A7,A5«, t00=0x0052, t01=0x000e}
0x8032…805a Head {h00=0x0024, h01=0x0050, text=» ANK A5,/80 ANY MODIFICATIONS ??«, t00=0x0052, t01=0x0020}
0x805a…8080 Head {h00=0x0022, h01=0x0050, text=» RF(Z) DISL10 NO MODIFICATIONS«, t00=0x0052, t01=0x0048}
0x8080…8092 Head {h00=0x000e, h01=0x0050, text=» LDK A1,2 «, t00=0x0052, t01=0x006e}
0x8092…80be Head {h00=0x0028, h01=0x0050, text=» XRK A7,/A0 ONLY SPACES IN BUFFER ??«, t00=0x0052, t01=0x0080}
0x80be…80da Head {h00=0x0018, h01=0x0050, text=» RF(Z) DIS:10 YES!! «, t00=0x0052, t01=0x00ac}
0x80da…80f2 Head {h00=0x0014, h01=0x0050, text=» LDKL A1,LLINE+2«, t00=0x0052, t01=0x00c8}
0x80f2…8124 Head {h00=0x002e, h01=0x0050, text=» ADR A1,A10 ADD NR OF INTENSITY CHARACTERS«, t00=0x0052, t01=0x00e0}
0x8124…8138 Head {h00=0x0010, h01=0x0050, text=»DIS:10 EQU *«, t00=0x0052, t01=0x0112}
0x8138…815e Head {h00=0x0022, h01=0x0050, text=» ST A1,ECBRL,A8 SET REQ LENGTH«, t00=0x0052, t01=0x0126}
0x815e…8166 Head {h00=0x0004, h01=0x0050, t00=0x0052, t01=0x014c}
0x8166…816e Head {h00=0x0004, h01=0x0050, t00=0x0052, t01=0x0154}
0x816e…8196 Head {h00=0x0024, h01=0x0050, text=» LDK A7,/8B SET CURSOR AND WRITE«, t00=0x0052, t01=0x015c}
0x8196…81a2 Head {h00=0x0008, h01=0x0050, text=» LKM«, t00=0x0052, t01=0x0184}
0x81a2…81b2 Head {h00=0x000c, h01=0x0050, text=» DATA 1 «, t00=0x0052, t01=0x0190}
0x81b2…81bc Head {h00=0x0006, h01=0x0050, text=» «, t00=0x0053, t01=0x0010}
0x81bc…81c4 Head {h00=0x0004, h01=0x0050, t00=0x0053, t01=0x001a}
0x81c4…8210 Head {h00=0x0048, h01=0x0050, text=»********************************************************************«, t00=0x0053, t01=0x0022}
0x8210…821a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0053, t01=0x006e}
0x821a…824e Head {h00=0x0030, h01=0x0050, text=»* EXECUTE FAST OUTPUT TO BLANK REMAINIG PART«, t00=0x0053, t01=0x0078}
0x824e…8264 Head {h00=0x0012, h01=0x0050, text=»* OF THE LINE «, t00=0x0053, t01=0x00ac}
0x8264…826e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0053, t01=0x00c2}
0x826e…82ba Head {h00=0x0048, h01=0x0050, text=»******************************************************************* «, t00=0x0053, t01=0x00cc}
0x82ba…82c2 Head {h00=0x0004, h01=0x0050, t00=0x0053, t01=0x0118}
0x82c2…82ea Head {h00=0x0024, h01=0x0050, text=» LD A1,ECBCW,A8 CURSOR POSITION «, t00=0x0053, t01=0x0120}
0x82ea…830e Head {h00=0x0020, h01=0x0050, text=» ANK A1,X'FF' COLUMN NUMBER «, t00=0x0053, t01=0x0148}
0x830e…8334 Head {h00=0x0022, h01=0x0050, text=» SUK A1,80 LAST POSITION ? DK1«, t00=0x0053, t01=0x016c}
0x8334…836c (84, 0, 400) Head {h00=0x0034, h01=0x0050, text=» RF(NL) DISL10 YES, NO FAST OUTPUT THIS LINE DK1«, t00=0x0054, t01=0x0004}
0x836c…8374 Head {h00=0x0004, h01=0x0050, t00=0x0054, t01=0x003c}
0x8374…839a Head {h00=0x0022, h01=0x0050, text=» LD A1,ECBBA,A8 BUFFER ADRESS «, t00=0x0054, t01=0x0044}
0x839a…83ca Head {h00=0x002c, h01=0x0050, text=» LDK A2,X'2B' DONT MOVE CURSOR ONE LINE «, t00=0x0054, t01=0x006a}
0x83ca…83e2 Head {h00=0x0014, h01=0x0050, text=» SC A2,1,A1 =1 «, t00=0x0054, t01=0x009a}
0x83e2…8410 Head {h00=0x002a, h01=0x0050, text=» LDKL A2,X'1420' FAST OUTPUT OF SPACES«, t00=0x0054, t01=0x00b2}
0x8410…8428 Head {h00=0x0014, h01=0x0050, text=» SC A2,3,A1 =1 «, t00=0x0054, t01=0x00e0}
0x8428…843e Head {h00=0x0012, h01=0x0050, text=» SRL A2,8 =1 «, t00=0x0054, t01=0x00f8}
0x843e…8456 Head {h00=0x0014, h01=0x0050, text=» SC A2,2,A1 =1 «, t00=0x0054, t01=0x010e}
0x8456…847a Head {h00=0x0020, h01=0x0050, text=» LDK A2,84 REQUESTED LENGTH «, t00=0x0054, t01=0x0126}
0x847a…8492 Head {h00=0x0014, h01=0x0050, text=» ST A2,ECBRL,A8 «, t00=0x0054, t01=0x014a}
0x8492…84b4 Head {h00=0x001e, h01=0x0050, text=» LDK A7,X'86' WRITE ORDER «, t00=0x0054, t01=0x0162}
0x84b4…84c0 Head {h00=0x0008, h01=0x0050, text=» LKM«, t00=0x0054, t01=0x0184}
0x84c0…84d0 Head {h00=0x000c, h01=0x0050, text=» DATA 1 «, t00=0x0054, t01=0x0190}
0x84d0…84d8 Head {h00=0x0004, h01=0x0050, t00=0x0055, t01=0x0010}
0x84d8…84ec Head {h00=0x0010, h01=0x0050, text=»DISL10 EQU *«, t00=0x0055, t01=0x0018}
0x84ec…84fe Head {h00=0x000e, h01=0x0050, text=» LDK A2,1 «, t00=0x0055, t01=0x002c}
0x84fe…852a Head {h00=0x0028, h01=0x0050, text=» SC A2,ECBCW+1,A8 POS 1 ON NEXT LINE«, t00=0x0055, t01=0x003e}
0x852a…8540 Head {h00=0x0012, h01=0x0050, text=» LDKL A2,/100 «, t00=0x0055, t01=0x006a}
0x8540…856e Head {h00=0x002a, h01=0x0050, text=» ADS A2,ECBCW,A8 INCREMENT LINE NUMBER«, t00=0x0055, t01=0x0080}
0x856e…8596 Head {h00=0x0024, h01=0x0050, text=» RB SPACES PUT SPACES TO BUFFER «, t00=0x0055, t01=0x00ae}
0x8596…859e Head {h00=0x0004, h01=0x0050, t00=0x0055, t01=0x00d6}
0x859e…85a8 Head {h00=0x0006, h01=0x0050, text=» «, t00=0x0055, t01=0x00de}
0x85a8…85b0 Head {h00=0x0004, h01=0x0050, t00=0x0055, t01=0x00e8}
0x85b0…85b8 Head {h00=0x0004, h01=0x0050, t00=0x0055, t01=0x00f0}
0x85b8…8600 Head {h00=0x0044, h01=0x0050, text=»****************************************************************«, t00=0x0055, t01=0x00f8}
0x8600…860a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0055, t01=0x0140}
0x860a…864c Head {h00=0x003e, h01=0x0050, text=»* I N T C H K CHECK IF LINE SHOULD BE PRINTED WITH«, t00=0x0055, t01=0x014a}
0x864c…8680 Head {h00=0x0030, h01=0x0050, text=»* HIGH OR LOW INTENSITY «, t00=0x0055, t01=0x018c}
0x8680…868a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0056, t01=0x0030}
0x868a…86d8 Head {h00=0x004a, h01=0x0050, text=»**********************************************************************«, t00=0x0056, t01=0x003a}
0x86d8…86e0 Head {h00=0x0004, h01=0x0050, t00=0x0056, t01=0x0088}
0x86e0…8710 Head {h00=0x002c, h01=0x0050, text=»INTCHK SUR A10,A10 RESET INTENSITY COUNT«, t00=0x0056, t01=0x0090}
0x8710…8744 Head {h00=0x0030, h01=0x0050, text=» LD A2,INTATT,TCABAS GET INTENSITY ATTRIBUTE«, t00=0x0056, t01=0x00c0}
0x8744…8766 Head {h00=0x001e, h01=0x0050, text=» RF(Z) INTRTN NON DISPLAY «, t00=0x0056, t01=0x00f4}
0x8766…878e Head {h00=0x0024, h01=0x0050, text=» ANK A2,X'4' HIGH INTENSITY ??? «, t00=0x0056, t01=0x0116}
0x878e…87a8 Head {h00=0x0016, h01=0x0050, text=» RF(Z) INT:10 YES «, t00=0x0056, t01=0x013e}
0x87a8…87b0 Head {h00=0x0004, h01=0x0050, t00=0x0056, t01=0x0158}
0x87b0…87d4 Head {h00=0x0020, h01=0x0050, text=» LDK A2,X'1E' LOW INTENSITY «, t00=0x0056, t01=0x0160}
0x87d4…87f6 Head {h00=0x001e, h01=0x0050, text=» RF INT:20 HIGH INTENSITY «, t00=0x0056, t01=0x0184}
0x87f6…87fe Head {h00=0x0004, h01=0x0050, t00=0x0057, t01=0x0016}
0x87fe…8828 Head {h00=0x0026, h01=0x0050, text=»INT:10 LDK A2,X'1F' HIGH INTENSITY«, t00=0x0057, t01=0x001e}
0x8828…8830 Head {h00=0x0004, h01=0x0050, t00=0x0057, t01=0x0048}
0x8830…886c Head {h00=0x0038, h01=0x0050, text=»INT:20 SCR A2,A7 SAVE INTENSITY CHARACTER IN BUFFER «, t00=0x0057, t01=0x0050}
0x886c…8896 Head {h00=0x0026, h01=0x0050, text=» ADK A7,1 INCREMENT BUFFER POINTER«, t00=0x0057, t01=0x008c}
0x8896…88c4 Head {h00=0x002a, h01=0x0050, text=» ADKL A10,1 INTENSITY COUNT «, t00=0x0057, t01=0x00b6}
0x88c4…88e2 Head {h00=0x001a, h01=0x0050, text=»INTRTN RTN A14 RETURN «, t00=0x0057, t01=0x00e4}
0x88e2…88ec Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0057, t01=0x0102}
0x88ec…88f6 Head {h00=0x0006, h01=0x0050, text=» «, t00=0x0057, t01=0x010c}
0x88f6…88fe Head {h00=0x0004, h01=0x0050, t00=0x0057, t01=0x0116}
0x88fe…8946 Head {h00=0x0044, h01=0x0050, text=»****************************************************************«, t00=0x0057, t01=0x011e}
0x8946…8950 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0057, t01=0x0166}
0x8950…8994 Head {h00=0x0040, h01=0x0050, text=»* SET:M SET MODIFIED BIT IF CHARACTER HAS BEEN MODIFIED «, t00=0x0057, t01=0x0170}
0x8994…899e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0058, t01=0x0024}
0x899e…89e8 Head {h00=0x0046, h01=0x0050, text=»******************************************************************«, t00=0x0058, t01=0x002e}
0x89e8…89f0 Head {h00=0x0004, h01=0x0050, t00=0x0058, t01=0x0078}
0x89f0…8a08 Head {h00=0x0014, h01=0x0050, text=»SET:M CWK A2,/20«, t00=0x0058, t01=0x0080}
0x8a08…8a32 Head {h00=0x0026, h01=0x0050, text=» RF(L) SET:M2 ATTRIBUTE CHARACTER «, t00=0x0058, t01=0x0098}
0x8a32…8a46 Head {h00=0x0010, h01=0x0050, text=» CWK A2,/7F «, t00=0x0058, t01=0x00c2}
0x8a46…8a70 Head {h00=0x0026, h01=0x0050, text=» RF(E) SET:M2 UNMODIFIED ATTRIBUTE«, t00=0x0058, t01=0x00d6}
0x8a70…8a84 Head {h00=0x0010, h01=0x0050, text=» CWK A2,/FF «, t00=0x0058, t01=0x0100}
0x8a84…8ab0 Head {h00=0x0028, h01=0x0050, text=» RF(NE) SET:M1 NOT NULL OR ATTRIBUTE«, t00=0x0058, t01=0x0114}
0x8ab0…8adc Head {h00=0x0028, h01=0x0050, text=» ORK A5,/A0 MODIFIED NULL CHARACTER «, t00=0x0058, t01=0x0140}
0x8adc…8aec Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0058, t01=0x016c}
0x8aec…8b16 Head {h00=0x0026, h01=0x0050, text=»SET:M1 ORR A5,A2 SET MODIFIED BIT «, t00=0x0058, t01=0x017c}
0x8b16…8b2c Head {h00=0x0012, h01=0x0050, text=»SET:M2 RTN A14«, t00=0x0059, t01=0x0016}
0x8b2c…8b38 Head {h00=0x0008, h01=0x0050, text=» END«, t00=0x0059, t01=0x002c}
0x8b38…8b3c Head {h00=0x4004, h01=0x0000}
0x8b3c…8b40 00 59 00 38 ┆ Y 8┆
0x8b40…8b48 (90, 1, 8) 20 04 00 00 00 5a 00 04 ┆ Z ┆
0x8b48…8b98 (91, 0, 398) 50 41 31 5c 45 51 55 5c 2a 20 00 5a 01 90 00 18 00 50 5c 4c 44 4b 5c 41 32 2c 2f 32 43 5c 50 41 31 20 50 4f 53 20 00 5b 00 12 00 0e 00 50 5c 52 42 5c 43 41 4e 31 30 30 00 5b 00 2e 00 06 00 50 2a 20 00 5b 00 40 00 06 00 50 2a 20 00 5b 00 4a ┆PA1 EQU * Z P LDK A2,/2C PA1 POS [ P RB CAN100 [ . P* [ @ P* [ J┆
0x8b98…8be8 00 24 00 50 2a 20 20 20 20 50 41 33 20 20 20 50 52 4f 47 52 41 4d 20 41 54 54 45 4e 54 49 4f 4e 20 4b 45 59 00 5b 00 54 00 06 00 50 2a 20 00 5b 00 7c 00 06 00 50 2a 20 00 5b 00 86 00 0e 00 50 50 41 33 5c 45 51 55 5c 2a 20 00 5b 00 90 00 18 ┆ $ P* PA3 PROGRAM ATTENTION KEY [ T P* [ | P* [ PPA3 EQU * [ ┆
0x8be8…8c38 00 50 5c 4c 44 4b 5c 41 32 2c 2f 32 42 5c 50 41 33 20 50 4f 53 20 00 5b 00 a2 00 0e 00 50 5c 52 42 5c 43 41 4e 31 30 30 00 5b 00 be 00 06 00 50 2a 20 00 5b 00 d0 00 1c 00 50 2a 5c 50 41 34 20 2d 20 50 41 31 30 20 28 41 4c 46 41 53 4b 4f 50 ┆ P LDK A2,/2B PA3 POS [ P RB CAN100 [ P* [ P* PA4 - PA10 (ALFASKOP┆
0x8c38…8c88 29 20 00 5b 00 da 00 14 00 50 5c 49 46 54 5c 50 41 34 39 3d 31 5c 5c 44 4b 33 00 5b 00 fa 00 14 00 50 50 41 45 58 42 5c 45 51 55 5c 2a 5c 5c 44 4b 33 00 5b 01 12 00 14 00 50 5c 53 55 4b 5c 41 32 2c 2f 36 5c 5c 44 4b 33 20 00 5b 01 2a 00 16 ┆) [ P IFT PA49=1 DK3 [ PPAEXB EQU * DK3 [ P SUK A2,/6 DK3 [ * ┆
0x8c88…8cd6 00 50 5c 52 46 28 47 29 5c 50 46 45 52 52 5c 5c 44 4b 33 20 00 5b 01 42 00 1e 00 50 5c 41 44 4b 5c 41 32 2c 2f 36 39 5c 53 45 54 20 50 41 34 2d 39 5c 44 4b 33 20 00 5b 01 5c 00 14 00 50 5c 52 42 5c 43 41 4e 32 30 30 5c 5c 44 4b 33 20 ┆ P RF(G) PFERR DK3 [ B P ADK A2,/69 SET PA4-9 DK3 [ P RB CAN200 DK3 ┆
0x8cd6…8d26 (92, 0, 398) 00 5b 01 7e 00 0e 00 50 5c 58 49 46 5c 5c 5c 44 4b 33 00 5c 00 08 00 06 00 50 2a 20 00 5c 00 1a 00 10 00 50 50 41 34 31 30 5c 45 51 55 5c 2a 20 00 5c 00 24 00 10 00 50 5c 53 55 4b 5c 41 32 2c 2f 32 30 20 00 5c 00 38 00 0e 00 50 5c 52 42 5c ┆ [ ~ P XIF DK3 P* PPA410 EQU * $ P SUK A2,/20 8 P RB ┆
0x8d26…8d76 43 41 4e 32 30 30 00 5c 00 4c 00 0a 00 50 5c 45 4a 45 43 54 00 5c 00 5e 00 06 00 50 2a 20 00 5c 00 6c 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 ┆CAN200 L P EJECT ^ P* l < P******************************************┆
0x8d76…8dc6 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 00 5c 00 76 00 06 00 50 2a 20 00 5c 00 b6 00 0c 00 50 2a 5c 45 4e 54 45 52 20 00 5c 00 c0 00 06 00 50 2a 20 00 5c 00 d0 00 38 00 50 2a 5c 50 52 4f 47 52 41 4d 20 46 55 4e 43 54 49 4f 4e 20 4b 45 59 ┆************** v P* P* ENTER P* 8 P* PROGRAM FUNCTION KEY┆
0x8dc6…8e16 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 00 5c 00 da 00 3c 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 20 46 4f 4c 4c 4f 57 45 44 20 42 ┆ WHICH CAUSES AN I/O OPERATION < P* AND GENERATE AN AID CHARACTER FOLLOWED B┆
0x8e16…8e64 59 20 41 4e 20 53 42 41 20 4f 52 44 45 52 00 5c 01 16 00 38 00 50 2a 5c 41 54 54 52 49 42 55 54 45 20 41 44 44 52 45 53 53 20 41 4e 44 20 54 45 58 54 20 46 4f 52 20 45 41 43 48 20 4d 4f 44 49 46 49 45 44 20 46 49 45 4c 44 00 5c 01 56 ┆Y AN SBA ORDER 8 P* ATTRIBUTE ADDRESS AND TEXT FOR EACH MODIFIED FIELD V┆