|
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: 36640 (0x8f20)
Notes: pts_type(SC)
Names: »VDUPRX.SC«
└─⟦f445cacdf⟧ Bits:30009666 Philips computer tape "600111"
└─⟦this⟧ »NJ-AMT/VDUPRX.SC«
IDENT VDUPRT 2.1DK 4 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 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 0 ASCII = 0,EBCDIC = 1 * * EQUATES * * TIMDC EQU 600 DC TIME OUT VALUE: 60 S DK2 ESC EQU /1B SBA EQU /11 NULL EQU /7F NULL CHARACTER NEWLIN EQU /7E NEW LINE CHARACTER ENDMES EQU /7D END MESSAGE CHAR FORMFD EQU /7C FORM FEED CHAR DUPCH EQU /7B FMCH EQU /60 TRCH EQU /30 DK * * * 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,/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 RB(Z) UPD220 UNPROTECTED FIELD UPD430 EQU * LDK A5,0 CWK A3,LBVDU ABL(NL) UPD210 END OF DISPLAY BUFFER LCR A2,A4 ADK A3,1 ADK A4,1 ANK A2,/7F CWK A2,/20 RB(L) UPD420 RB UPD430 * * 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 4 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…010c Head {h00=0x0014, h01=0x0050, text=» DK4 - RFMDUP «, t00=0x0000, t01=0x00f8}
0x010c…0120 Head {h00=0x0010, h01=0x0050, text=» DK3 - EUA«, t00=0x0000, t01=0x0110}
0x0120…013c Head {h00=0x0018, h01=0x0050, text=» DK2 - DC-TIMEOUT «, t00=0x0000, t01=0x0124}
0x013c…015a Head {h00=0x001a, h01=0x0050, text=» DK1 - BLANK COL. 80«, t00=0x0000, t01=0x0140}
0x015a…01a4 Head {h00=0x0046, h01=0x0050, text=»******************************************************************«, t00=0x0000, t01=0x015e}
0x01a4…01ae Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x0018}
0x01ae…01ee Head {h00=0x003c, h01=0x0050, text=»* V D U P R T : MODULE HANDLING MESSAGES COMING FROM«, t00=0x0001, t01=0x0022}
0x01ee…022c Head {h00=0x003a, h01=0x0050, text=»* MAIN FRAME, AND DISPLAYING THEM ON«, t00=0x0001, t01=0x0062}
0x022c…025e Head {h00=0x002e, h01=0x0050, text=»* THE VDU ( PTS 6344 ) .«, t00=0x0001, t01=0x00a0}
0x025e…0268 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x00d2}
0x0268…02b4 Head {h00=0x0048, h01=0x0050, text=»********************************************************************«, t00=0x0001, t01=0x00dc}
0x02b4…02be Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x0128}
0x02be…02c8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x0132}
0x02c8…02d2 Head {h00=0x0006, h01=0x0050, text=» «, t00=0x0001, t01=0x013c}
0x02d2…02dc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x0146}
0x02dc…02e6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x0150}
0x02e6…02f8 Head {h00=0x000e, h01=0x0050, text=»* ENTRIES «, t00=0x0001, t01=0x015a}
0x02f8…0302 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x016c}
0x0302…030c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x0176}
0x030c…033a Head {h00=0x002a, h01=0x0050, text=» ENTRY TRPF TRANSMIT, PROGRAM FUNCTION«, t00=0x0001, t01=0x0180}
0x033a…036a Head {h00=0x002c, h01=0x0050, text=» ENTRY TRPA TRANSMIT, PROGRAM ATTENTION «, t00=0x0002, t01=0x001e}
0x036a…0392 Head {h00=0x0024, h01=0x0050, text=» ENTRY ERASE ERASE ENTIRE SCREEN«, t00=0x0002, t01=0x004e}
0x0392…03ba Head {h00=0x0024, h01=0x0050, text=» ENTRY SETCUR CURSOR POSITIONING«, t00=0x0002, t01=0x0076}
0x03ba…03e6 Head {h00=0x0028, h01=0x0050, text=» ENTRY ERASUP ERASE ALL UNPROTECTED «, t00=0x0002, t01=0x009e}
0x03e6…0410 Head {h00=0x0026, h01=0x0050, text=» ENTRY DISPL DISPLAY MODIFIED DATA«, t00=0x0002, t01=0x00ca}
0x0410…0442 Head {h00=0x002e, h01=0x0050, text=» ENTRY ERASUA ERASE UNPROTECTED TO ADDRESS«, t00=0x0002, t01=0x00f4}
0x0442…0474 Head {h00=0x002e, h01=0x0050, text=» ENTRY WCHAR WRITE ONE CHAR IN CURSOR POS «, t00=0x0002, t01=0x0126}
0x0474…048a Head {h00=0x0012, h01=0x0050, text=» ENTRY UPDATE «, t00=0x0002, t01=0x0158}
0x048a…04b0 Head {h00=0x0022, h01=0x0050, text=» ENTRY RFMDUP REPLACE FM & DUP«, t00=0x0002, t01=0x016e}
0x04b0…04c4 (3, 0, 398) Head {h00=0x0010, h01=0x0050, text=» ENTRY DCINP«, t00=0x0003, t01=0x0004}
0x04c4…04da Head {h00=0x0012, h01=0x0050, text=» ENTRY RLRBUF «, t00=0x0003, t01=0x0018}
0x04da…04f0 Head {h00=0x0012, h01=0x0050, text=» ENTRY DCGETM «, t00=0x0003, t01=0x002e}
0x04f0…0506 Head {h00=0x0012, h01=0x0050, text=» ENTRY GTRBUF «, t00=0x0003, t01=0x0044}
0x0506…0510 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x005a}
0x0510…051a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x0064}
0x051a…052e Head {h00=0x0010, h01=0x0050, text=»* EXTERNALS «, t00=0x0003, t01=0x006e}
0x052e…0538 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x0082}
0x0538…0542 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x008c}
0x0542…0564 Head {h00=0x001e, h01=0x0050, text=» EXTRN LINHON,LINHOF START«, t00=0x0003, t01=0x0096}
0x0564…0586 Head {h00=0x001e, h01=0x0050, text=» EXTRN LSAVON,LSAVOF START«, t00=0x0003, t01=0x00b8}
0x0586…059c Head {h00=0x0012, h01=0x0050, text=» EXTRN ATMASB «, t00=0x0003, t01=0x00da}
0x059c…05b0 Head {h00=0x0010, h01=0x0050, text=» EXTRN EMULA«, t00=0x0003, t01=0x00f0}
0x05b0…05c6 Head {h00=0x0012, h01=0x0050, text=» EXTRN REQTIM «, t00=0x0003, t01=0x0104}
0x05c6…05dc Head {h00=0x0012, h01=0x0050, text=» EXTRN ICWRTE «, t00=0x0003, t01=0x011a}
0x05dc…05e6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x0130}
0x05e6…0600 Head {h00=0x0016, h01=0x0050, text=» EXTRN SNBUSY PRT «, t00=0x0003, t01=0x013a}
0x0600…060a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x0154}
0x060a…0638 Head {h00=0x002a, h01=0x0050, text=» EXTRN I:EVA0 CREDIT EVALUATION TABLE «, t00=0x0003, t01=0x015e}
0x0638…0642 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x018c}
0x0642…0666 Head {h00=0x0020, h01=0x0050, text=» EXTRN TASCII,TEBCDI TB3270 «, t00=0x0004, t01=0x0008}
0x0666…0670 Head {h00=0x0006, h01=0x0050, text=» «, t00=0x0004, t01=0x002c}
0x0670…067a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x0036}
0x067a…06c2 Head {h00=0x0044, h01=0x0050, text=»****************************************************************«, t00=0x0004, t01=0x0040}
0x06c2…06cc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x0088}
0x06cc…06f8 Head {h00=0x0028, h01=0x0050, text=»* CONDITIONAL ASSEMBLY PARAMETERS «, t00=0x0004, t01=0x0092}
0x06f8…0702 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x00be}
0x0702…0738 Head {h00=0x0032, h01=0x0050, text=»**********************************************«, t00=0x0004, t01=0x00c8}
0x0738…0740 Head {h00=0x0004, h01=0x0050, t00=0x0004, t01=0x00fe}
0x0740…0776 Head {h00=0x0032, h01=0x0050, text=»OFLIN EQU 1 OFFLINE HANDLING POSSIBLE IF ::= 1«, t00=0x0004, t01=0x0106}
0x0776…07a6 Head {h00=0x002c, h01=0x0050, text=»DCLIN EQU 1 NUMBER OF MAIN FRAMES (1-2) «, t00=0x0004, t01=0x013c}
0x07a6…07dc Head {h00=0x0032, h01=0x0050, text=»RBUFL EQU 1150 RECEIVE BUFFER LENGTH IN WORDS «, t00=0x0004, t01=0x016c}
0x07dc…0810 Head {h00=0x0030, h01=0x0050, text=»RBUFNR EQU 2 NUMBER OF RECEIVE BUFFERS (1-5)«, t00=0x0005, t01=0x0012}
0x0810…0846 Head {h00=0x0032, h01=0x0050, text=»TBUFL EQU 1150 TRANSMIT BUFFER LENGTH IN WORDS«, t00=0x0005, t01=0x0046}
0x0846…087c Head {h00=0x0032, h01=0x0050, text=»TBUFNR EQU 2 NUMBER OF TRANSMIT BUFFERS (1-5) «, t00=0x0005, t01=0x007c}
0x087c…08b8 Head {h00=0x0038, h01=0x0050, text=»COPCMD EQU 1 COPY COMMAND (ONLY TO PRINTER) IF := 1 «, t00=0x0005, t01=0x00b2}
0x08b8…08e2 Head {h00=0x0026, h01=0x0050, text=»EBCDIC EQU 0 ASCII = 0,EBCDIC = 1 «, t00=0x0005, t01=0x00ee}
0x08e2…08ec Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x0118}
0x08ec…08fe Head {h00=0x000e, h01=0x0050, text=»* EQUATES «, t00=0x0005, t01=0x0122}
0x08fe…0908 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x0134}
0x0908…0912 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x013e}
0x0912…0944 Head {h00=0x002e, h01=0x0050, text=»TIMDC EQU 600 DC TIME OUT VALUE: 60 S DK2 «, t00=0x0005, t01=0x0148}
0x0944…0958 Head {h00=0x0010, h01=0x0050, text=»ESC EQU /1B «, t00=0x0005, t01=0x017a}
0x0958…096c Head {h00=0x0010, h01=0x0050, text=»SBA EQU /11 «, t00=0x0005, t01=0x018e}
0x096c…0990 Head {h00=0x0020, h01=0x0050, text=»NULL EQU /7F NULL CHARACTER «, t00=0x0006, t01=0x0012}
0x0990…09ba Head {h00=0x0026, h01=0x0050, text=»NEWLIN EQU /7E NEW LINE CHARACTER «, t00=0x0006, t01=0x0036}
0x09ba…09e2 Head {h00=0x0024, h01=0x0050, text=»ENDMES EQU /7D END MESSAGE CHAR «, t00=0x0006, t01=0x0060}
0x09e2…0a08 Head {h00=0x0022, h01=0x0050, text=»FORMFD EQU /7C FORM FEED CHAR «, t00=0x0006, t01=0x0088}
0x0a08…0a1e Head {h00=0x0012, h01=0x0050, text=»DUPCH EQU /7B «, t00=0x0006, t01=0x00ae}
0x0a1e…0a32 Head {h00=0x0010, h01=0x0050, text=»FMCH EQU /60«, t00=0x0006, t01=0x00c4}
0x0a32…0a4a Head {h00=0x0014, h01=0x0050, text=»TRCH EQU /30 DK«, t00=0x0006, t01=0x00d8}
0x0a4a…0a54 Head {h00=0x0006, h01=0x0050, text=» «, t00=0x0006, t01=0x00f0}
0x0a54…0a5e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x00fa}
0x0a5e…0a68 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x0104}
0x0a68…0a7e Head {h00=0x0012, h01=0x0050, text=»* EQUATES «, t00=0x0006, t01=0x010e}
0x0a7e…0a88 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x0124}
0x0a88…0aae Head {h00=0x0022, h01=0x0050, text=»* COMMON EQU FOR ECB HANDLING «, t00=0x0006, t01=0x012e}
0x0aae…0ab8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x0154}
0x0ab8…0ac0 Head {h00=0x0004, h01=0x0050, t00=0x0006, t01=0x015e}
0x0ac0…0ad4 Head {h00=0x0010, h01=0x0050, text=»ECBBA EQU 2 «, t00=0x0006, t01=0x0166}
0x0ad4…0ae8 Head {h00=0x0010, h01=0x0050, text=»ECBRL EQU 4 «, t00=0x0006, t01=0x017a}
0x0ae8…0afc Head {h00=0x0010, h01=0x0050, text=»ECBEL EQU 6 «, t00=0x0006, t01=0x018e}
0x0afc…0b10 Head {h00=0x0010, h01=0x0050, text=»ECBRC EQU 8 «, t00=0x0007, t01=0x0012}
0x0b10…0b24 Head {h00=0x0010, h01=0x0050, text=»ECBCW EQU 10«, t00=0x0007, t01=0x0026}
0x0b24…0b2e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x003a}
0x0b2e…0b38 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x0044}
0x0b38…0b52 Head {h00=0x0016, h01=0x0050, text=»* CREDIT USED EQU «, t00=0x0007, t01=0x004e}
0x0b52…0b5c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x0068}
0x0b5c…0b66 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x0072}
0x0b66…0b82 Head {h00=0x0018, h01=0x0050, text=»* ECB REL. ADDRESSES«, t00=0x0007, t01=0x007c}
0x0b82…0b8c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x0098}
0x0b8c…0b96 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x00a2}
0x0b96…0ba8 Head {h00=0x000e, h01=0x0050, text=»DIS EQU 20«, t00=0x0007, t01=0x00ac}
0x0ba8…0bb2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x00be}
0x0bb2…0bcc Head {h00=0x0016, h01=0x0050, text=»ECBDC EQU -DIS-14 «, t00=0x0007, t01=0x00c8}
0x0bcc…0be0 Head {h00=0x0010, h01=0x0050, text=» IFT DCLIN=2«, t00=0x0007, t01=0x00e2}
0x0be0…0bf6 Head {h00=0x0012, h01=0x0050, text=» IFT COPCMD=1 «, t00=0x0007, t01=0x00f6}
0x0bf6…0c12 Head {h00=0x0018, h01=0x0050, text=»ECBDC2 EQU ECBDC-DIS«, t00=0x0007, t01=0x010c}
0x0c12…0c30 Head {h00=0x001a, h01=0x0050, text=»ECBICR EQU ECBDC2-DIS «, t00=0x0007, t01=0x0128}
0x0c30…0c4e Head {h00=0x001a, h01=0x0050, text=»ECBICW EQU ECBICR-DIS «, t00=0x0007, t01=0x0146}
0x0c4e…0c5a Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0007, t01=0x0164}
0x0c5a…0c6e Head {h00=0x0010, h01=0x0050, text=» IFT DCLIN=2«, t00=0x0007, t01=0x0170}
0x0c6e…0c84 Head {h00=0x0012, h01=0x0050, text=» IFF COPCMD=1 «, t00=0x0007, t01=0x0184}
0x0c84…0ca0 Head {h00=0x0018, h01=0x0050, text=»ECBDC2 EQU ECBDC-DIS«, t00=0x0008, t01=0x000a}
0x0ca0…0cbe Head {h00=0x001a, h01=0x0050, text=»ECBICW EQU ECBDC2-DIS «, t00=0x0008, t01=0x0026}
0x0cbe…0cca Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0008, t01=0x0044}
0x0cca…0cde Head {h00=0x0010, h01=0x0050, text=» IFF DCLIN=2«, t00=0x0008, t01=0x0050}
0x0cde…0cf4 Head {h00=0x0012, h01=0x0050, text=» IFT COPCMD=1 «, t00=0x0008, t01=0x0064}
0x0cf4…0d10 Head {h00=0x0018, h01=0x0050, text=»ECBICR EQU ECBDC-DIS«, t00=0x0008, t01=0x007a}
0x0d10…0d2e Head {h00=0x001a, h01=0x0050, text=»ECBICW EQU ECBICR-DIS «, t00=0x0008, t01=0x0096}
0x0d2e…0d3a Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0008, t01=0x00b4}
0x0d3a…0d4e Head {h00=0x0010, h01=0x0050, text=» IFF DCLIN=2«, t00=0x0008, t01=0x00c0}
0x0d4e…0d64 Head {h00=0x0012, h01=0x0050, text=» IFF COPCMD=1 «, t00=0x0008, t01=0x00d4}
0x0d64…0d80 Head {h00=0x0018, h01=0x0050, text=»ECBICW EQU ECBDC-DIS«, t00=0x0008, t01=0x00ea}
0x0d80…0d8c Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0008, t01=0x0106}
0x0d8c…0daa Head {h00=0x001a, h01=0x0050, text=»ECBVDU EQU ECBICW-DIS «, t00=0x0008, t01=0x0112}
0x0daa…0dc6 Head {h00=0x0018, h01=0x0050, text=»ECBKB EQU ECBVDU-DIS«, t00=0x0008, t01=0x0130}
0x0dc6…0de2 Head {h00=0x0018, h01=0x0050, text=»ECBSD EQU ECBKB-DIS «, t00=0x0008, t01=0x014c}
0x0de2…0dec Head {h00=0x0006, h01=0x0050, text=» «, t00=0x0008, t01=0x0168}
0x0dec…0df6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x0172}
0x0df6…0e00 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x017c}
0x0e00…0e26 Head {h00=0x0022, h01=0x0050, text=»* BASE ADDRESS FOR TCA AND ECB«, t00=0x0008, t01=0x0186}
0x0e26…0e30 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x001c}
0x0e30…0e46 Head {h00=0x0012, h01=0x0050, text=»TCABAS EQU A11«, t00=0x0009, t01=0x0026}
0x0e46…0e60 Head {h00=0x0016, h01=0x0050, text=»CREBAS EQU A13 ECB«, t00=0x0009, t01=0x003c}
0x0e60…0e6a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x0056}
0x0e6a…0e74 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x0060}
0x0e74…0e90 Head {h00=0x0018, h01=0x0050, text=»* TCA REL. ADDRESSES«, t00=0x0009, t01=0x006a}
0x0e90…0e9a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x0086}
0x0e9a…0eae Head {h00=0x0010, h01=0x0050, text=»TCT01 EQU 0 «, t00=0x0009, t01=0x0090}
0x0eae…0eca Head {h00=0x0018, h01=0x0050, text=»PRINTER EQU TCT01+2 «, t00=0x0009, t01=0x00a4}
0x0eca…0ef6 Head {h00=0x0028, h01=0x0050, text=»BVDU EQU PRINTER+2 VDU SCREEN BUFFER«, t00=0x0009, t01=0x00c0}
0x0ef6…0f2a Head {h00=0x0030, h01=0x0050, text=»PCURS EQU BVDU+1920 CURSOR ADDRESS , BINARY «, t00=0x0009, t01=0x00ec}
0x0f2a…0f58 Head {h00=0x002a, h01=0x0050, text=»ATTRIB EQU PCURS+2 LAST ATTRIBUTE CHAR«, t00=0x0009, t01=0x0120}
0x0f58…0f74 Head {h00=0x0018, h01=0x0050, text=»CURATT EQU ATTRIB+2 «, t00=0x0009, t01=0x014e}
0x0f74…0f9e Head {h00=0x0026, h01=0x0050, text=»WCC EQU CURATT+2 WCC/CCC CHARACTER«, t00=0x0009, t01=0x016a}
0x0f9e…0fd0 (10, 0, 400) Head {h00=0x002e, h01=0x0050, text=»KBINH EQU WCC+2 KEYBOARD INHIBIT INDICATOR«, t00=0x000a, t01=0x0004}
0x0fd0…0ff8 Head {h00=0x0024, h01=0x0050, text=»LINCNT EQU KBINH+2 LINE COUNTER «, t00=0x000a, t01=0x0036}
0x0ff8…102c Head {h00=0x0030, h01=0x0050, text=»DCLENG EQU LINCNT+2 DC READ EFFECTIVE LENGTH«, t00=0x000a, t01=0x005e}
0x102c…1062 Head {h00=0x0032, h01=0x0050, text=»ICWORK EQU DCLENG+2 WORK FIELD INTERTASK COMM «, t00=0x000a, t01=0x0092}
0x1062…1092 Head {h00=0x002c, h01=0x0050, text=»INTATT EQU ICWORK+2 INTENSITY ATTRIBUTE «, t00=0x000a, t01=0x00c8}
0x1092…10ba Head {h00=0x0024, h01=0x0050, text=»OFFFLG EQU INTATT+2 OFFLINE FLAG«, t00=0x000a, t01=0x00f8}
0x10ba…10e6 Head {h00=0x0028, h01=0x0050, text=»COPNO EQU OFFFLG+2 HARDCOPY TASK ID «, t00=0x000a, t01=0x0120}
0x10e6…1114 Head {h00=0x002a, h01=0x0050, text=»CCC EQU COPNO+2 COPY COMMAND CHARACTER«, t00=0x000a, t01=0x014c}
0x1114…1136 Head {h00=0x001e, h01=0x0050, text=»MAIN EQU CCC+2 MAIN FRAME «, t00=0x000a, t01=0x017a}
0x1136…1160 Head {h00=0x0026, h01=0x0050, text=»MODE EQU MAIN+2 INSERT MODE SWITCH«, t00=0x000b, t01=0x000c}
0x1160…1188 Head {h00=0x0024, h01=0x0050, text=»KEYS EQU MODE+2 KEY LOCK STATUS «, t00=0x000b, t01=0x0036}
0x1188…11ba Head {h00=0x002e, h01=0x0050, text=»ECBDCC EQU KEYS+2 ECB ADDRESS LAST READ DC«, t00=0x000b, t01=0x005e}
0x11ba…11f0 Head {h00=0x0032, h01=0x0050, text=»ECBBLK EQU ECBDCC+2 ECBS FOR MULTIPLE WAIT &C «, t00=0x000b, t01=0x0090}
0x11f0…1228 Head {h00=0x0034, h01=0x0050, text=»RDMORE EQU ECBBLK+10 BRANCH ADDRESS NEXT READ KB«, t00=0x000b, t01=0x00c6}
0x1228…1232 Head {h00=0x0006, h01=0x0050, text=» «, t00=0x000b, t01=0x00fe}
0x1232…123a Head {h00=0x0004, h01=0x0050, t00=0x000b, t01=0x0108}
0x123a…1244 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x0110}
0x1244…124e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x011a}
0x124e…127c Head {h00=0x002a, h01=0x0050, text=»LBVDU EQU 1920 1920 CHARACTER DISPLAY «, t00=0x000b, t01=0x0124}
0x127c…12a2 Head {h00=0x0022, h01=0x0050, text=»LPAGE EQU 48 LINES ON ONE PAGE«, t00=0x000b, t01=0x0152}
0x12a2…12d0 Head {h00=0x002a, h01=0x0050, text=»LLINE EQU 80 80 CHAR PER DISPLAY LINE «, t00=0x000b, t01=0x0178}
0x12d0…1302 Head {h00=0x002e, h01=0x0050, text=»TID EQU -4 TASK IDENTITY T:A DISPLACEMENT «, t00=0x000c, t01=0x0016}
0x1302…130c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x0048}
0x130c…1336 Head {h00=0x0026, h01=0x0050, text=»* CONFIG DATA 'CB1' REL ADDRESSES «, t00=0x000c, t01=0x0052}
0x1336…1340 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x007c}
0x1340…1366 Head {h00=0x0022, h01=0x0050, text=»NBRKBV EQU 0 NUMBER OF KB/VDUS«, t00=0x000c, t01=0x0086}
0x1366…1390 Head {h00=0x0026, h01=0x0050, text=»NBRGTP EQU NBRKBV+2 NUMBER OF GTPS«, t00=0x000c, t01=0x00ac}
0x1390…139a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x00d6}
0x139a…13d0 Head {h00=0x0032, h01=0x0050, text=»MF1KBV EQU NBRGTP+2 DV ADDRESSES KB/VDU MF #1 «, t00=0x000c, t01=0x00e0}
0x13d0…1406 Head {h00=0x0032, h01=0x0050, text=»MF1GTP EQU MF1KBV+16 DV ADDRESSES GTPS MF # 1 «, t00=0x000c, t01=0x0116}
0x1406…141a Head {h00=0x0010, h01=0x0050, text=» IFT DCLIN=2«, t00=0x000c, t01=0x014c}
0x141a…1436 Head {h00=0x0018, h01=0x0050, text=»MF2KBV EQU MF1GTP+16«, t00=0x000c, t01=0x0160}
0x1436…1452 Head {h00=0x0018, h01=0x0050, text=»MF2GTP EQU MF2KBV+16«, t00=0x000c, t01=0x017c}
0x1452…145e Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x000d, t01=0x0008}
0x145e…1468 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x0014}
0x1468…1470 Head {h00=0x0004, h01=0x0050, t00=0x000d, t01=0x001e}
0x1470…147a Head {h00=0x0006, h01=0x0050, text=» «, t00=0x000d, t01=0x0026}
0x147a…14c2 Head {h00=0x0044, h01=0x0050, text=»****************************************************************«, t00=0x000d, t01=0x0030}
0x14c2…14cc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x0078}
0x14cc…14e4 Head {h00=0x0014, h01=0x0050, text=»* INPUT FROM DC «, t00=0x000d, t01=0x0082}
0x14e4…14ee Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x009a}
0x14ee…152a Head {h00=0x0038, h01=0x0050, text=»****************************************************«, t00=0x000d, t01=0x00a4}
0x152a…1534 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x00e0}
0x1534…1554 Head {h00=0x001c, h01=0x0050, text=»* RELATIVE POS IN ECBBLK«, t00=0x000d, t01=0x00ea}
0x1554…1564 Head {h00=0x000c, h01=0x0050, text=»KB EQU 2«, t00=0x000d, t01=0x010a}
0x1564…1576 Head {h00=0x000e, h01=0x0050, text=»DC1 EQU 4 «, t00=0x000d, t01=0x011a}
0x1576…1588 Head {h00=0x000e, h01=0x0050, text=»DC2 EQU 6 «, t00=0x000d, t01=0x012c}
0x1588…1592 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x013e}
0x1592…15a6 Head {h00=0x0010, h01=0x0050, text=»DCINP EQU * «, t00=0x000d, t01=0x0148}
0x15a6…15d0 Head {h00=0x0026, h01=0x0050, text=» CF A14,GTRBUF GET RECEIVE BUFFER «, t00=0x000d, t01=0x015c}
0x15d0…15ec Head {h00=0x0018, h01=0x0050, text=» LD A8,ECBDCC,TCABAS«, t00=0x000d, t01=0x0186}
0x15ec…1610 Head {h00=0x0020, h01=0x0050, text=» CF A14,DCGETM READ MESSAGE «, t00=0x000e, t01=0x0012}
0x1610…1624 Head {h00=0x0010, h01=0x0050, text=» IFF DCLIN=2«, t00=0x000e, t01=0x0036}
0x1624…1642 Head {h00=0x001a, h01=0x0050, text=» CM ECBBLK+DC1,TCABAS «, t00=0x000e, t01=0x004a}
0x1642…164e Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x000e, t01=0x0068}
0x164e…1662 Head {h00=0x0010, h01=0x0050, text=» IFT DCLIN=2«, t00=0x000e, t01=0x0074}
0x1662…167c Head {h00=0x0016, h01=0x0050, text=» LD A1,MAIN,TCABAS«, t00=0x000e, t01=0x0088}
0x167c…169c Head {h00=0x001c, h01=0x0050, text=» CW A8,ECBBLK+DC2,TCABAS«, t00=0x000e, t01=0x00a2}
0x169c…16b8 Head {h00=0x0018, h01=0x0050, text=» RF(E) DCIN20 MF # 2«, t00=0x000e, t01=0x00c2}
0x16b8…16d6 Head {h00=0x001a, h01=0x0050, text=» CM ECBBLK+DC1,TCABAS «, t00=0x000e, t01=0x00de}
0x16d6…16e8 Head {h00=0x000e, h01=0x0050, text=» LDR A1,A1«, t00=0x000e, t01=0x00fc}
0x16e8…1708 Head {h00=0x001c, h01=0x0050, text=» RF(NZ) DCIN90 WRONG MF «, t00=0x000e, t01=0x010e}
0x1708…171a Head {h00=0x000e, h01=0x0050, text=» RF DCIN30«, t00=0x000e, t01=0x012e}
0x171a…172e Head {h00=0x0010, h01=0x0050, text=»DCIN20 EQU *«, t00=0x000e, t01=0x0140}
0x172e…174c Head {h00=0x001a, h01=0x0050, text=» CM ECBBLK+DC2,TCABAS «, t00=0x000e, t01=0x0154}
0x174c…175e Head {h00=0x000e, h01=0x0050, text=» LDR A1,A1«, t00=0x000e, t01=0x0172}
0x175e…177c Head {h00=0x001a, h01=0x0050, text=» RF(Z) DCIN90 WRONG MF«, t00=0x000e, t01=0x0184}
0x177c…1788 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x000f, t01=0x0012}
0x1788…179c Head {h00=0x0010, h01=0x0050, text=»DCIN30 EQU *«, t00=0x000f, t01=0x001e}
0x179c…17b0 Head {h00=0x0010, h01=0x0050, text=» IFT OFLIN=1«, t00=0x000f, t01=0x0032}
0x17b0…17cc Head {h00=0x0018, h01=0x0050, text=» LD A1,OFFFLG,TCABAS«, t00=0x000f, t01=0x0046}
0x17cc…17e2 Head {h00=0x0012, h01=0x0050, text=» RF(NZ) DCIN90«, t00=0x000f, t01=0x0062}
0x17e2…17ee Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x000f, t01=0x0078}
0x17ee…181a Head {h00=0x0028, h01=0x0050, text=» LD A1,ECBEL,A8 EFFECTIVE DC-LENGTH «, t00=0x000f, t01=0x0084}
0x181a…1836 Head {h00=0x0018, h01=0x0050, text=» ST A1,DCLENG,TCABAS«, t00=0x000f, t01=0x00b0}
0x1836…183e Head {h00=0x0004, h01=0x0050, t00=0x000f, t01=0x00cc}
0x183e…1846 Head {h00=0x0004, h01=0x0050, t00=0x000f, t01=0x00d4}
0x1846…1862 Head {h00=0x0018, h01=0x0050, text=» LD A5,KBINH,TCABAS «, t00=0x000f, t01=0x00dc}
0x1862…1894 Head {h00=0x002e, h01=0x0050, text=» ORK A5,3 BIT 14,15:= 1. TOTALLY DISABLED «, t00=0x000f, t01=0x00f8}
0x1894…18c6 Head {h00=0x002e, h01=0x0050, text=»* KEYBOARD. BIT 15 = 0 AFTER DISPLAYING.«, t00=0x000f, t01=0x012a}
0x18c6…18e2 Head {h00=0x0018, h01=0x0050, text=» ST A5,KBINH,TCABAS «, t00=0x000f, t01=0x015c}
0x18e2…1914 Head {h00=0x002e, h01=0x0050, text=» CF A14,LINHON TURN ON 'KEYBOARD INHIBIT' «, t00=0x000f, t01=0x0178}
0x1914…1946 Head {h00=0x002e, h01=0x0050, text=» CF A14,LSAVON TURN ON "SYSTEM AVAILABLE" «, t00=0x0010, t01=0x001a}
0x1946…195c Head {h00=0x0012, h01=0x0050, text=» CF A14,UPDATE«, t00=0x0010, t01=0x004c}
0x195c…1972 Head {h00=0x0012, h01=0x0050, text=» CF A14,DISPL «, t00=0x0010, t01=0x0062}
0x1972…198e Head {h00=0x0018, h01=0x0050, text=» LD A2,PCURS,TCABAS «, t00=0x0010, t01=0x0078}
0x198e…19a4 Head {h00=0x0012, h01=0x0050, text=» CF A14,ATMASB«, t00=0x0010, t01=0x0094}
0x19a4…19ac Head {h00=0x0004, h01=0x0050, t00=0x0010, t01=0x00aa}
0x19ac…19b4 Head {h00=0x0004, h01=0x0050, t00=0x0010, t01=0x00b2}
0x19b4…19be Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x00ba}
0x19be…19da Head {h00=0x0018, h01=0x0050, text=» LD A2,KBINH,TCABAS «, t00=0x0010, t01=0x00c4}
0x19da…19f8 Head {h00=0x001a, h01=0x0050, text=» ANK A2,1 BIT 15 = 0? «, t00=0x0010, t01=0x00e0}
0x19f8…1a0e Head {h00=0x0012, h01=0x0050, text=» RF(Z) DCIN60 «, t00=0x0010, t01=0x00fe}
0x1a0e…1a2a Head {h00=0x0018, h01=0x0050, text=» LD A2,KBINH,TCABAS «, t00=0x0010, t01=0x0114}
0x1a2a…1a5c Head {h00=0x002e, h01=0x0050, text=» ANK A2,/E BIT 15:=0 KEYBOARD NOT TOTALLY «, t00=0x0010, t01=0x0130}
0x1a5c…1a7c Head {h00=0x001c, h01=0x0050, text=»* INHIBITED ANY LONGER«, t00=0x0010, t01=0x0162}
0x1a7c…1a98 Head {h00=0x0018, h01=0x0050, text=» ST A2,KBINH,TCABAS «, t00=0x0010, t01=0x0182}
0x1a98…1ab2 Head {h00=0x0016, h01=0x0050, text=» LD A2,WCC,TCABAS «, t00=0x0011, t01=0x000e}
0x1ab2…1ac4 Head {h00=0x000e, h01=0x0050, text=» ANK A2,2 «, t00=0x0011, t01=0x0028}
0x1ac4…1ada Head {h00=0x0012, h01=0x0050, text=» RF(Z) DCIN95 «, t00=0x0011, t01=0x003a}
0x1ada…1aee Head {h00=0x0010, h01=0x0050, text=»DCIN60 EQU *«, t00=0x0011, t01=0x0050}
0x1aee…1b20 Head {h00=0x002e, h01=0x0050, text=» CF A14,LINHOF TURN OFF 'KEYBOARD INHIBIT'«, t00=0x0011, t01=0x0064}
0x1b20…1b3c Head {h00=0x0018, h01=0x0050, text=» LD A2,KBINH,TCABAS «, t00=0x0011, t01=0x0096}
0x1b3c…1b6c Head {h00=0x002c, h01=0x0050, text=» ANK A2,4 BITS 14,15:=0 RESTORE KEYBOARD«, t00=0x0011, t01=0x00b2}
0x1b6c…1b88 Head {h00=0x0018, h01=0x0050, text=» ST A2,KBINH,TCABAS «, t00=0x0011, t01=0x00e2}
0x1b88…1b9a Head {h00=0x000e, h01=0x0050, text=» RF DCIN95«, t00=0x0011, t01=0x00fe}
0x1b9a…1bae Head {h00=0x0010, h01=0x0050, text=»DCIN90 EQU *«, t00=0x0011, t01=0x0110}
0x1bae…1bca Head {h00=0x0018, h01=0x0050, text=» LD A8,ECBDCC,TCABAS«, t00=0x0011, t01=0x0124}
0x1bca…1be2 Head {h00=0x0014, h01=0x0050, text=» LD A4,ECBBA,A8 «, t00=0x0011, t01=0x0140}
0x1be2…1bf8 Head {h00=0x0012, h01=0x0050, text=» CF A14,RLRBUF«, t00=0x0011, t01=0x0158}
0x1bf8…1c0c Head {h00=0x0010, h01=0x0050, text=»DCIN95 EQU *«, t00=0x0011, t01=0x016e}
0x1c0c…1c22 Head {h00=0x0012, h01=0x0050, text=» CF A14,SNBUSY«, t00=0x0011, t01=0x0182}
0x1c22…1c32 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0012, t01=0x0008}
0x1c32…1c3c Head {h00=0x0006, h01=0x0050, text=» «, t00=0x0012, t01=0x0018}
0x1c3c…1c46 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x0022}
0x1c46…1c58 Head {h00=0x000e, h01=0x0050, text=»* READ DC «, t00=0x0012, t01=0x002c}
0x1c58…1c62 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x003e}
0x1c62…1c76 Head {h00=0x0010, h01=0x0050, text=»DCGETM EQU *«, t00=0x0012, t01=0x0048}
0x1c76…1c88 Head {h00=0x000e, h01=0x0050, text=» LDK A1,0 «, t00=0x0012, t01=0x005c}
0x1c88…1c9e Head {h00=0x0012, h01=0x0050, text=» CF A14,REQTIM«, t00=0x0012, t01=0x006e}
0x1c9e…1cbc Head {h00=0x001a, h01=0x0050, text=» LDK A7,/82 READ, WAIT«, t00=0x0012, t01=0x0084}
0x1cbc…1ce8 Head {h00=0x0028, h01=0x0050, text=» CM ECBCW,A8 NO TIME OUT SUPERVISION«, t00=0x0012, t01=0x00a2}
0x1ce8…1d04 Head {h00=0x0018, h01=0x0050, text=» LDKL A1,RBUFL+RBUFL«, t00=0x0012, t01=0x00ce}
0x1d04…1d26 Head {h00=0x001e, h01=0x0050, text=» ST A1,ECBRL,A8 REQ LENGTH«, t00=0x0012, t01=0x00ea}
0x1d26…1d3e Head {h00=0x0014, h01=0x0050, text=» ST A4,ECBBA,A8 «, t00=0x0012, t01=0x010c}
0x1d3e…1d4a Head {h00=0x0008, h01=0x0050, text=» LKM«, t00=0x0012, t01=0x0124}
0x1d4a…1d5a Head {h00=0x000c, h01=0x0050, text=» DATA 1 «, t00=0x0012, t01=0x0130}
0x1d5a…1d6a Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0012, t01=0x0140}
0x1d6a…1d74 Head {h00=0x0006, h01=0x0050, text=» «, t00=0x0012, t01=0x0150}
0x1d74…1db6 Head {h00=0x003e, h01=0x0050, text=»**********************************************************«, t00=0x0012, t01=0x015a}
0x1db6…1dc0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x000c}
0x1dc0…1dda Head {h00=0x0016, h01=0x0050, text=»* BUFFER HANDLING «, t00=0x0013, t01=0x0016}
0x1dda…1de4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x0030}
0x1de4…1e26 Head {h00=0x003e, h01=0x0050, text=»**********************************************************«, t00=0x0013, t01=0x003a}
0x1e26…1e30 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x007c}
0x1e30…1e50 Head {h00=0x001c, h01=0x0050, text=»RLINK EQU RBUFL+RBUFL+2 «, t00=0x0013, t01=0x0086}
0x1e50…1e5a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x00a6}
0x1e5a…1e6c Head {h00=0x000e, h01=0x0050, text=»RBUF EQU *«, t00=0x0013, t01=0x00b0}
0x1e6c…1e90 Head {h00=0x0020, h01=0x0050, text=» DATA *+2 POINTER FIRST FREE«, t00=0x0013, t01=0x00c2}
0x1e90…1ea6 Head {h00=0x0012, h01=0x0050, text=» IFF RBUFNR=1 «, t00=0x0013, t01=0x00e6}
0x1ea6…1ebc Head {h00=0x0012, h01=0x0050, text=» DATA *+RLINK «, t00=0x0013, t01=0x00fc}
0x1ebc…1ece Head {h00=0x000e, h01=0x0050, text=» RES RBUFL«, t00=0x0013, t01=0x0112}
0x1ece…1ee4 Head {h00=0x0012, h01=0x0050, text=» IFF RBUFNR=2 «, t00=0x0013, t01=0x0124}
0x1ee4…1efa Head {h00=0x0012, h01=0x0050, text=» DATA *+RLINK «, t00=0x0013, t01=0x013a}
0x1efa…1f0c Head {h00=0x000e, h01=0x0050, text=» RES RBUFL«, t00=0x0013, t01=0x0150}
0x1f0c…1f22 Head {h00=0x0012, h01=0x0050, text=» IFF RBUFNR=3 «, t00=0x0013, t01=0x0162}
0x1f22…1f38 Head {h00=0x0012, h01=0x0050, text=» DATA *+RLINK «, t00=0x0013, t01=0x0178}
0x1f38…1f4a Head {h00=0x000e, h01=0x0050, text=» RES RBUFL«, t00=0x0013, t01=0x018e}
0x1f4a…1f60 Head {h00=0x0012, h01=0x0050, text=» IFF RBUFNR=4 «, t00=0x0014, t01=0x0010}
0x1f60…1f76 Head {h00=0x0012, h01=0x0050, text=» DATA *+RLINK «, t00=0x0014, t01=0x0026}
0x1f76…1f88 Head {h00=0x000e, h01=0x0050, text=» RES RBUFL«, t00=0x0014, t01=0x003c}
0x1f88…1f94 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0014, t01=0x004e}
0x1f94…1fb0 Head {h00=0x0018, h01=0x0050, text=» DATA 0 END OF CHAIN«, t00=0x0014, t01=0x005a}
0x1fb0…1fc2 Head {h00=0x000e, h01=0x0050, text=» RES RBUFL«, t00=0x0014, t01=0x0076}
0x1fc2…1fcc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x0088}
0x1fcc…1fd6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x0092}
0x1fd6…1ff6 Head {h00=0x001c, h01=0x0050, text=»TLINK EQU TBUFL+TBUFL+2 «, t00=0x0014, t01=0x009c}
0x1ff6…2000 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x00bc}
0x2000…2012 Head {h00=0x000e, h01=0x0050, text=»TBUF EQU *«, t00=0x0014, t01=0x00c6}
0x2012…2036 Head {h00=0x0020, h01=0x0050, text=» DATA *+2 POINTER FIRST FREE«, t00=0x0014, t01=0x00d8}
0x2036…204c Head {h00=0x0012, h01=0x0050, text=» IFF TBUFNR=1 «, t00=0x0014, t01=0x00fc}
0x204c…2062 Head {h00=0x0012, h01=0x0050, text=» DATA *+TLINK «, t00=0x0014, t01=0x0112}
0x2062…2074 Head {h00=0x000e, h01=0x0050, text=» RES TBUFL«, t00=0x0014, t01=0x0128}
0x2074…208a Head {h00=0x0012, h01=0x0050, text=» IFF TBUFNR=2 «, t00=0x0014, t01=0x013a}
0x208a…20a0 Head {h00=0x0012, h01=0x0050, text=» DATA *+TLINK «, t00=0x0014, t01=0x0150}
0x20a0…20b2 Head {h00=0x000e, h01=0x0050, text=» RES TBUFL«, t00=0x0014, t01=0x0166}
0x20b2…20c8 Head {h00=0x0012, h01=0x0050, text=» IFF TBUFNR=3 «, t00=0x0014, t01=0x0178}
0x20c8…20de Head {h00=0x0012, h01=0x0050, text=» DATA *+TLINK «, t00=0x0014, t01=0x018e}
0x20de…20f0 Head {h00=0x000e, h01=0x0050, text=» RES TBUFL«, t00=0x0015, t01=0x0014}
0x20f0…2106 Head {h00=0x0012, h01=0x0050, text=» IFF TBUFNR=4 «, t00=0x0015, t01=0x0026}
0x2106…211c Head {h00=0x0012, h01=0x0050, text=» DATA *+TLINK «, t00=0x0015, t01=0x003c}
0x211c…212e Head {h00=0x000e, h01=0x0050, text=» RES TBUFL«, t00=0x0015, t01=0x0052}
0x212e…213a Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0015, t01=0x0064}
0x213a…2156 Head {h00=0x0018, h01=0x0050, text=» DATA 0 END OF CHAIN«, t00=0x0015, t01=0x0070}
0x2156…2168 Head {h00=0x000e, h01=0x0050, text=» RES TBUFL«, t00=0x0015, t01=0x008c}
0x2168…2172 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x009e}
0x2172…217c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x00a8}
0x217c…2196 Head {h00=0x0016, h01=0x0050, text=»* GET WRITE BUFFER«, t00=0x0015, t01=0x00b2}
0x2196…21a0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x00cc}
0x21a0…21b4 Head {h00=0x0010, h01=0x0050, text=»GTWBUF EQU *«, t00=0x0015, t01=0x00d6}
0x21b4…21ca Head {h00=0x0012, h01=0x0050, text=» LDKL A5,TBUF «, t00=0x0015, t01=0x00ea}
0x21ca…21e0 Head {h00=0x0012, h01=0x0050, text=» CF A14,GETBUF«, t00=0x0015, t01=0x0100}
0x21e0…21f2 Head {h00=0x000e, h01=0x0050, text=» LDR A7,A4«, t00=0x0015, t01=0x0116}
0x21f2…2206 Head {h00=0x0010, h01=0x0050, text=» LDR A12,A4 «, t00=0x0015, t01=0x0128}
0x2206…221c Head {h00=0x0012, h01=0x0050, text=» ADK A7,2 SKIP«, t00=0x0015, t01=0x013c}
0x221c…2240 Head {h00=0x0020, h01=0x0050, text=» LDKL A9,2 FOR DV ADDRESS «, t00=0x0015, t01=0x0152}
0x2240…2250 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0015, t01=0x0176}
0x2250…225a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x0186}
0x225a…2276 Head {h00=0x0018, h01=0x0050, text=»* GET RECEIVE BUFFER«, t00=0x0015, t01=0x0190}
0x2276…2280 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0016, t01=0x001c}
0x2280…2294 Head {h00=0x0010, h01=0x0050, text=»GTRBUF EQU *«, t00=0x0016, t01=0x0026}
0x2294…22aa Head {h00=0x0012, h01=0x0050, text=» LDKL A5,RBUF «, t00=0x0016, t01=0x003a}
0x22aa…22b4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0016, t01=0x0050}
0x22b4…22be Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0016, t01=0x005a}
0x22be…22d2 Head {h00=0x0010, h01=0x0050, text=»GETBUF EQU *«, t00=0x0016, t01=0x0064}
0x22d2…22e6 Head {h00=0x0010, h01=0x0050, text=» LDR* A4,A5 «, t00=0x0016, t01=0x0078}
0x22e6…230a Head {h00=0x0020, h01=0x0050, text=» RF(Z) GETB50 NO BUFFER FREE«, t00=0x0016, t01=0x008c}
0x230a…231e Head {h00=0x0010, h01=0x0050, text=» LDR* A3,A4 «, t00=0x0016, t01=0x00b0}
0x231e…2330 Head {h00=0x000e, h01=0x0050, text=» STR A3,A5«, t00=0x0016, t01=0x00c4}
0x2330…234c Head {h00=0x0018, h01=0x0050, text=» ADK A4,2 SKIP LINK «, t00=0x0016, t01=0x00d6}
0x234c…235c Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0016, t01=0x00f2}
0x235c…2370 Head {h00=0x0010, h01=0x0050, text=»GETB50 EQU *«, t00=0x0016, t01=0x0102}
0x2370…237c Head {h00=0x0008, h01=0x0050, text=» LKM«, t00=0x0016, t01=0x0116}
0x237c…2398 Head {h00=0x0018, h01=0x0050, text=» DATA 0 SWITCH TASK «, t00=0x0016, t01=0x0122}
0x2398…23aa Head {h00=0x000e, h01=0x0050, text=» RB GETBUF«, t00=0x0016, t01=0x013e}
0x23aa…23b4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0016, t01=0x0150}
0x23b4…23cc Head {h00=0x0014, h01=0x0050, text=»* RELEASE BUFFER«, t00=0x0016, t01=0x015a}
0x23cc…23d6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0016, t01=0x0172}
0x23d6…23ea Head {h00=0x0010, h01=0x0050, text=»RLRBUF EQU *«, t00=0x0016, t01=0x017c}
0x23ea…2400 Head {h00=0x0012, h01=0x0050, text=» LDKL A2,RBUF «, t00=0x0016, t01=0x0190}
0x2400…2414 Head {h00=0x0010, h01=0x0050, text=»RELB05 EQU *«, t00=0x0017, t01=0x0016}
0x2414…2434 Head {h00=0x001c, h01=0x0050, text=» SUK A4,2 POINT TO LINK «, t00=0x0017, t01=0x002a}
0x2434…2448 Head {h00=0x0010, h01=0x0050, text=»RELB10 EQU *«, t00=0x0017, t01=0x004a}
0x2448…245c Head {h00=0x0010, h01=0x0050, text=» LDR* A3,A2 «, t00=0x0017, t01=0x005e}
0x245c…2472 Head {h00=0x0012, h01=0x0050, text=» RF(Z) RELB20 «, t00=0x0017, t01=0x0072}
0x2472…2484 Head {h00=0x000e, h01=0x0050, text=» LDR A2,A3«, t00=0x0017, t01=0x0088}
0x2484…2496 Head {h00=0x000e, h01=0x0050, text=» RB RELB10«, t00=0x0017, t01=0x009a}
0x2496…24aa Head {h00=0x0010, h01=0x0050, text=»RELB20 EQU *«, t00=0x0017, t01=0x00ac}
0x24aa…24bc Head {h00=0x000e, h01=0x0050, text=» STR A4,A2«, t00=0x0017, t01=0x00c0}
0x24bc…24cc Head {h00=0x000c, h01=0x0050, text=» CMR A4 «, t00=0x0017, t01=0x00d2}
0x24cc…24dc Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0017, t01=0x00e2}
0x24dc…24e6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0017, t01=0x00f2}
0x24e6…24fa Head {h00=0x0010, h01=0x0050, text=»RLWBUF EQU *«, t00=0x0017, t01=0x00fc}
0x24fa…2510 Head {h00=0x0012, h01=0x0050, text=» LDKL A2,TBUF «, t00=0x0017, t01=0x0110}
0x2510…2522 Head {h00=0x000e, h01=0x0050, text=» RB RELB05«, t00=0x0017, t01=0x0126}
0x2522…252c Head {h00=0x0006, h01=0x0050, text=» «, t00=0x0017, t01=0x0138}
0x252c…2536 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0017, t01=0x0142}
0x2536…2540 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0017, t01=0x014c}
0x2540…2566 Head {h00=0x0022, h01=0x0050, text=»* STORE CHARACTER IN DC BUFFER«, t00=0x0017, t01=0x0156}
0x2566…2570 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0017, t01=0x017c}
0x2570…2582 Head {h00=0x000e, h01=0x0050, text=»* A2=CHAR «, t00=0x0017, t01=0x0186}
0x2582…259e Head {h00=0x0018, h01=0x0050, text=»* A7=BUFFER POINTER «, t00=0x0018, t01=0x0008}
0x259e…25c4 Head {h00=0x0022, h01=0x0050, text=»* A9=BUFFER CHARACTER COUNTER «, t00=0x0018, t01=0x0024}
0x25c4…25ce Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0018, t01=0x004a}
0x25ce…25d8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0018, t01=0x0054}
0x25d8…25ec Head {h00=0x0010, h01=0x0050, text=»PDCCH EQU * «, t00=0x0018, t01=0x005e}
0x25ec…260c Head {h00=0x001c, h01=0x0050, text=» CWK A9,TBUFL+TBUFL =3 «, t00=0x0018, t01=0x0072}
0x260c…262a Head {h00=0x001a, h01=0x0050, text=» RF(G) PDCCHR OVERFLOW«, t00=0x0018, t01=0x0092}
0x262a…263c Head {h00=0x000e, h01=0x0050, text=» SCR A2,A7«, t00=0x0018, t01=0x00b0}
0x263c…2650 Head {h00=0x0010, h01=0x0050, text=»PDCCH1 EQU *«, t00=0x0018, t01=0x00c2}
0x2650…2662 Head {h00=0x000e, h01=0x0050, text=» ADK A7,1 «, t00=0x0018, t01=0x00d6}
0x2662…2674 Head {h00=0x000e, h01=0x0050, text=» ADKL A9,1«, t00=0x0018, t01=0x00e8}
0x2674…268a Head {h00=0x0012, h01=0x0050, text=»PDCCHR RTN A14«, t00=0x0018, t01=0x00fa}
0x268a…2694 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0018, t01=0x0110}
0x2694…269e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0018, t01=0x011a}
0x269e…26c2 Head {h00=0x0020, h01=0x0050, text=»* STORE ATTENTION ID FROM A2«, t00=0x0018, t01=0x0124}
0x26c2…26cc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0018, t01=0x0148}
0x26cc…26d6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0018, t01=0x0152}
0x26d6…26f0 Head {h00=0x0016, h01=0x0050, text=»PAID CF A14,PDCCH «, t00=0x0018, t01=0x015c}
0x26f0…2700 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0018, t01=0x0176}
0x2700…270a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0018, t01=0x0186}
0x270a…2714 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0018, t01=0x0190}
0x2714…2740 Head {h00=0x0028, h01=0x0050, text=»* GET CHARACTER FROM DC BUFFER TO A2«, t00=0x0019, t01=0x000a}
0x2740…274a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0019, t01=0x0036}
0x274a…2754 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0019, t01=0x0040}
0x2754…276c Head {h00=0x0014, h01=0x0050, text=»GDCCH LCR A2,A7 «, t00=0x0019, t01=0x004a}
0x276c…2780 Head {h00=0x0010, h01=0x0050, text=» ANK A2,/FF «, t00=0x0019, t01=0x0062}
0x2780…27aa Head {h00=0x0026, h01=0x0050, text=» RF(NZ) GDCC:1 NOT NULL CHARACTER «, t00=0x0019, t01=0x0076}
0x27aa…27d2 Head {h00=0x0024, h01=0x0050, text=» LDK A2,/7F LOAD NULL CHARACTER «, t00=0x0019, t01=0x00a0}
0x27d2…27e6 Head {h00=0x0010, h01=0x0050, text=»GDCC:1 EQU *«, t00=0x0019, t01=0x00c8}
0x27e6…27f8 Head {h00=0x000e, h01=0x0050, text=» RB PDCCH1«, t00=0x0019, t01=0x00dc}
0x27f8…2802 Head {h00=0x0006, h01=0x0050, text=» «, t00=0x0019, t01=0x00ee}
0x2802…280c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0019, t01=0x00f8}
0x280c…2816 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0019, t01=0x0102}
0x2816…2848 Head {h00=0x002e, h01=0x0050, text=»* GET BUFFER ADDRESS TO A1 FROM DC BUFFER «, t00=0x0019, t01=0x010c}
0x2848…2852 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0019, t01=0x013e}
0x2852…285c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0019, t01=0x0148}
0x285c…2878 Head {h00=0x0018, h01=0x0050, text=»GETADR CF A14,GDCCH «, t00=0x0019, t01=0x0152}
0x2878…2890 Head {h00=0x0014, h01=0x0050, text=» LC A1,TEBCDI,A2«, t00=0x0019, t01=0x016e}
0x2890…28a4 Head {h00=0x0010, h01=0x0050, text=» ANK A1,/3F «, t00=0x0019, t01=0x0186}
0x28a4…28b6 Head {h00=0x000e, h01=0x0050, text=» SLL A1,6 «, t00=0x001a, t01=0x000a}
0x28b6…28cc Head {h00=0x0012, h01=0x0050, text=» CF A14,GDCCH «, t00=0x001a, t01=0x001c}
0x28cc…28e4 Head {h00=0x0014, h01=0x0050, text=» LC A2,TEBCDI,A2«, t00=0x001a, t01=0x0032}
0x28e4…28f8 Head {h00=0x0010, h01=0x0050, text=» ANK A2,/3F «, t00=0x001a, t01=0x004a}
0x28f8…290a Head {h00=0x000e, h01=0x0050, text=» ORR A1,A2«, t00=0x001a, t01=0x005e}
0x290a…291a Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x001a, t01=0x0070}
0x291a…2924 Head {h00=0x0006, h01=0x0050, text=» «, t00=0x001a, t01=0x0080}
0x2924…292e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001a, t01=0x008a}
0x292e…2938 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001a, t01=0x0094}
0x2938…295e Head {h00=0x0022, h01=0x0050, text=»* WRITE MESSAGE TO MAIN FRAME «, t00=0x001a, t01=0x009e}
0x295e…2968 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001a, t01=0x00c4}
0x2968…2992 Head {h00=0x0026, h01=0x0050, text=»* ON EXIT A1 CONTAINS RETURN CODE «, t00=0x001a, t01=0x00ce}
0x2992…299c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001a, t01=0x00f8}
0x299c…29a6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001a, t01=0x0102}
0x29a6…29ba Head {h00=0x0010, h01=0x0050, text=»DCWRTE EQU *«, t00=0x001a, t01=0x010c}
0x29ba…29d0 Head {h00=0x0012, h01=0x0050, text=» LDKL A8,ECBDC«, t00=0x001a, t01=0x0120}
0x29d0…29e4 Head {h00=0x0010, h01=0x0050, text=» IFT DCLIN=2«, t00=0x001a, t01=0x0136}
0x29e4…29fe Head {h00=0x0016, h01=0x0050, text=» LD A7,MAIN,TCABAS«, t00=0x001a, t01=0x014a}
0x29fe…2a12 Head {h00=0x0010, h01=0x0050, text=» RF(Z) DC050«, t00=0x001a, t01=0x0164}
0x2a12…2a2a Head {h00=0x0014, h01=0x0050, text=» LDKL A8,ECBDC2 «, t00=0x001a, t01=0x0178}
0x2a2a…2a36 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x001a, t01=0x0190}
0x2a36…2a4a Head {h00=0x0010, h01=0x0050, text=»DC050 EQU * «, t00=0x001b, t01=0x000c}
0x2a4a…2a60 Head {h00=0x0012, h01=0x0050, text=» ADR A8,CREBAS«, t00=0x001b, t01=0x0020}
0x2a60…2a76 Head {h00=0x0012, h01=0x0050, text=» LDKL A1,TIMDC«, t00=0x001b, t01=0x0036}
0x2a76…2a8c Head {h00=0x0012, h01=0x0050, text=» CF A14,REQTIM«, t00=0x001b, t01=0x004c}
0x2a8c…2aae Head {h00=0x001e, h01=0x0050, text=» ST A9,ECBRL,A8 REQ LENGTH«, t00=0x001b, t01=0x0062}
0x2aae…2ad6 Head {h00=0x0024, h01=0x0050, text=» ST A12,ECBBA,A8 BUFFER ADDRESS «, t00=0x001b, t01=0x0084}
0x2ad6…2af2 Head {h00=0x0018, h01=0x0050, text=» LD A7,KBINH,TCABAS «, t00=0x001b, t01=0x00ac}
0x2af2…2b2e Head {h00=0x0038, h01=0x0050, text=» ORK A7,2 BIT 14 :=1 DISABLE KEYBOARD.RESET ALLOWED «, t00=0x001b, t01=0x00c8}
0x2b2e…2b4a Head {h00=0x0018, h01=0x0050, text=» ST A7,KBINH,TCABAS «, t00=0x001b, t01=0x0104}
0x2b4a…2b5e Head {h00=0x0010, h01=0x0050, text=» LDK A7,/86 «, t00=0x001b, t01=0x0120}
0x2b5e…2b72 Head {h00=0x0010, h01=0x0050, text=»DC100 EQU * «, t00=0x001b, t01=0x0134}
0x2b72…2b7e Head {h00=0x0008, h01=0x0050, text=» LKM«, t00=0x001b, t01=0x0148}
0x2b7e…2b8e Head {h00=0x000c, h01=0x0050, text=» DATA 1 «, t00=0x001b, t01=0x0154}
0x2b8e…2ba2 Head {h00=0x0010, h01=0x0050, text=»DC200 EQU * «, t00=0x001b, t01=0x0164}
0x2ba2…2bb6 Head {h00=0x0010, h01=0x0050, text=» LDR A4,A12 «, t00=0x001b, t01=0x0178}
0x2bb6…2bcc Head {h00=0x0012, h01=0x0050, text=» CF A14,RLWBUF«, t00=0x001b, t01=0x018c}
0x2bcc…2bf4 Head {h00=0x0024, h01=0x0050, text=» LD A1,ECBRC,A8 GET RETURN CODE «, t00=0x001c, t01=0x0012}
0x2bf4…2c08 Head {h00=0x0010, h01=0x0050, text=» RF(Z) DC300«, t00=0x001c, t01=0x003a}
0x2c08…2c24 Head {h00=0x0018, h01=0x0050, text=» LD A7,KBINH,TCABAS «, t00=0x001c, t01=0x004e}
0x2c24…2c50 Head {h00=0x0028, h01=0x0050, text=» ANK A7,/D BIT 14:=0 ALLIWE KEYBOARD«, t00=0x001c, t01=0x006a}
0x2c50…2c6c Head {h00=0x0018, h01=0x0050, text=» ST A7,KBINH,TCABAS «, t00=0x001c, t01=0x0096}
0x2c6c…2c9e Head {h00=0x002e, h01=0x0050, text=» CF A14,LINHOF TURN OFF "KEYBOARD INHIBIT «, t00=0x001c, t01=0x00b2}
0x2c9e…2cd0 Head {h00=0x002e, h01=0x0050, text=» CF A14,LSAVOF TURN OFF "SYSTEM AVAILABLE"«, t00=0x001c, t01=0x00e4}
0x2cd0…2cda Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001c, t01=0x0116}
0x2cda…2d08 Head {h00=0x002a, h01=0x0050, text=» LDK A7,/04 RESET KEYBOARD ECB BUFFER «, t00=0x001c, t01=0x0120}
0x2d08…2d1e Head {h00=0x0012, h01=0x0050, text=» LDKL A8,ECBKB«, t00=0x001c, t01=0x014e}
0x2d1e…2d34 Head {h00=0x0012, h01=0x0050, text=» ADR A8,CREBAS«, t00=0x001c, t01=0x0164}
0x2d34…2d40 Head {h00=0x0008, h01=0x0050, text=» LKM«, t00=0x001c, t01=0x017a}
0x2d40…2d50 Head {h00=0x000c, h01=0x0050, text=» DATA 1 «, t00=0x001c, t01=0x0186}
0x2d50…2d5a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001d, t01=0x0008}
0x2d5a…2d6a Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x001d, t01=0x0012}
0x2d6a…2d7e Head {h00=0x0010, h01=0x0050, text=»DC300 EQU * «, t00=0x001d, t01=0x0022}
0x2d7e…2db0 Head {h00=0x002e, h01=0x0050, text=» CF A14,LSAVON TURN ON 'SYSTEM AVAILABLE' «, t00=0x001d, t01=0x0036}
0x2db0…2dc0 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x001d, t01=0x0068}
0x2dc0…2dca Head {h00=0x0006, h01=0x0050, text=» «, t00=0x001d, t01=0x0078}
0x2dca…2dd4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001d, t01=0x0082}
0x2dd4…2dde Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001d, t01=0x008c}
0x2dde…2e0a Head {h00=0x0028, h01=0x0050, text=»* STORE CURSOR ADDRESS IN DC BUFFER «, t00=0x001d, t01=0x0096}
0x2e0a…2e14 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001d, t01=0x00c2}
0x2e14…2e1e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001d, t01=0x00cc}
0x2e1e…2e3e Head {h00=0x001c, h01=0x0050, text=»CURSA LD A1,PCURS,TCABAS«, t00=0x001d, t01=0x00d6}
0x2e3e…2e50 Head {h00=0x000e, h01=0x0050, text=» RF BUFADR«, t00=0x001d, t01=0x00f6}
0x2e50…2e5a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001d, t01=0x0108}
0x2e5a…2e64 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001d, t01=0x0112}
0x2e64…2e90 Head {h00=0x0028, h01=0x0050, text=»* STORE BUFFER ADDRESS IN DC BUFFER «, t00=0x001d, t01=0x011c}
0x2e90…2e9a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001d, t01=0x0148}
0x2e9a…2ebc Head {h00=0x001e, h01=0x0050, text=»* A1=BINARY BUFFER ADDRESS«, t00=0x001d, t01=0x0152}
0x2ebc…2ec6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001d, t01=0x0174}
0x2ec6…2ed0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001d, t01=0x017e}
0x2ed0…2ee8 Head {h00=0x0014, h01=0x0050, text=»BUFADR LDR A2,A1«, t00=0x001d, t01=0x0188}
0x2ee8…2efa Head {h00=0x000e, h01=0x0050, text=» SRL A2,6 «, t00=0x001e, t01=0x0010}
0x2efa…2f0e Head {h00=0x0010, h01=0x0050, text=» ANK A2,/3F «, t00=0x001e, t01=0x0022}
0x2f0e…2f38 Head {h00=0x0026, h01=0x0050, text=» LC A2,TASCII,A2 CONVERT TO ASCII «, t00=0x001e, t01=0x0036}
0x2f38…2f4e Head {h00=0x0012, h01=0x0050, text=» CF A14,PDCCH «, t00=0x001e, t01=0x0060}
0x2f4e…2f60 Head {h00=0x000e, h01=0x0050, text=» LDR A2,A1«, t00=0x001e, t01=0x0076}
0x2f60…2f74 Head {h00=0x0010, h01=0x0050, text=» ANK A2,/3F «, t00=0x001e, t01=0x0088}
0x2f74…2f8c Head {h00=0x0014, h01=0x0050, text=» LC A2,TASCII,A2«, t00=0x001e, t01=0x009c}
0x2f8c…2fa2 Head {h00=0x0012, h01=0x0050, text=» CF A14,PDCCH «, t00=0x001e, t01=0x00b4}
0x2fa2…2fb2 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x001e, t01=0x00ca}
0x2fb2…2fbc Head {h00=0x0006, h01=0x0050, text=» «, t00=0x001e, t01=0x00da}
0x2fbc…2fc6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001e, t01=0x00e4}
0x2fc6…2fd0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001e, t01=0x00ee}
0x2fd0…3006 Head {h00=0x0032, h01=0x0050, text=»* GET MODIFIED DATA FROM DISPLAY IMAGE BUFFER «, t00=0x001e, t01=0x00f8}
0x3006…3010 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001e, t01=0x012e}
0x3010…3034 Head {h00=0x0020, h01=0x0050, text=»* A3=BUFFER POSITION BINARY «, t00=0x001e, t01=0x0138}
0x3034…3050 Head {h00=0x0018, h01=0x0050, text=»* A4=BUFFER POINTER «, t00=0x001e, t01=0x015c}
0x3050…305a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001e, t01=0x0178}
0x305a…3064 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001e, t01=0x0182}
0x3064…308a Head {h00=0x0022, h01=0x0050, text=»RDMOD LDK A3,0 RESET POSITION «, t00=0x001e, t01=0x018c}
0x308a…30a0 Head {h00=0x0012, h01=0x0050, text=» LDKL A4,BVDU «, t00=0x001f, t01=0x0022}
0x30a0…30c6 Head {h00=0x0022, h01=0x0050, text=» ADR A4,TCABAS BUFFER POINTER «, t00=0x001f, t01=0x0038}
0x30c6…30f0 Head {h00=0x0026, h01=0x0050, text=» ADKL A4,1919 LAST SCREEN POSITION«, t00=0x001f, t01=0x005e}
0x30f0…3110 Head {h00=0x001c, h01=0x0050, text=» LCR A2,A4 GET CHARACTER«, t00=0x001f, t01=0x0088}
0x3110…3142 Head {h00=0x002e, h01=0x0050, text=» LDKL A4,BVDU RELOAD FIRST BUFFER POSITION«, t00=0x001f, t01=0x00a8}
0x3142…3158 Head {h00=0x0012, h01=0x0050, text=» ADR A4,TCABAS«, t00=0x001f, t01=0x00da}
0x3158…3160 Head {h00=0x0004, h01=0x0050, t00=0x001f, t01=0x00f0}
0x3160…3172 Head {h00=0x000e, h01=0x0050, text=» LDR A1,A2«, t00=0x001f, t01=0x00f8}
0x3172…3194 Head {h00=0x001e, h01=0x0050, text=» ANK A1,/60 ATTRIBUTE ??? «, t00=0x001f, t01=0x010a}
0x3194…31b0 Head {h00=0x0018, h01=0x0050, text=» RF(Z) RD200 YES!!! «, t00=0x001f, t01=0x012c}
0x31b0…31b8 Head {h00=0x0004, h01=0x0050, t00=0x001f, t01=0x0148}
0x31b8…31d2 Head {h00=0x0016, h01=0x0050, text=»RD100 CWK A3,LBVDU«, t00=0x001f, t01=0x0150}
0x31d2…31f6 Head {h00=0x0020, h01=0x0050, text=» RF(NL) RDMODE ALL EXAMINED «, t00=0x001f, t01=0x016a}
0x31f6…3212 Head {h00=0x0018, h01=0x0050, text=» LCR A2,A4 GET CHAR «, t00=0x001f, t01=0x018e}
0x3212…3224 Head {h00=0x000e, h01=0x0050, text=» ADK A3,1 «, t00=0x0020, t01=0x001a}
0x3224…3236 Head {h00=0x000e, h01=0x0050, text=» ADK A4,1 «, t00=0x0020, t01=0x002c}
0x3236…324a Head {h00=0x0010, h01=0x0050, text=»RD105 EQU * «, t00=0x0020, t01=0x003e}
0x324a…325c Head {h00=0x000e, h01=0x0050, text=» LDR A1,A2«, t00=0x0020, t01=0x0052}
0x325c…3270 Head {h00=0x0010, h01=0x0050, text=» ANK A1,/60 «, t00=0x0020, t01=0x0064}
0x3270…3294 Head {h00=0x0020, h01=0x0050, text=» RF(Z) RD200 ATTRIBUTE CHAR «, t00=0x0020, t01=0x0078}
0x3294…32ae Head {h00=0x0016, h01=0x0050, text=»RD110 CWK A2,NULL «, t00=0x0020, t01=0x009c}
0x32ae…32d4 Head {h00=0x0022, h01=0x0050, text=» RB(E) RD100 DON'T STORE NULL «, t00=0x0020, t01=0x00b6}
0x32d4…3302 Head {h00=0x002a, h01=0x0050, text=» CF A14,PDCCH STORE CHAR IN DC BUFFER «, t00=0x0020, t01=0x00dc}
0x3302…3314 Head {h00=0x000e, h01=0x0050, text=» RB RD100 «, t00=0x0020, t01=0x010a}
0x3314…3338 Head {h00=0x0020, h01=0x0050, text=»RD200 ANK A2,1 CHECK MDT BIT«, t00=0x0020, t01=0x011c}
0x3338…335c Head {h00=0x0020, h01=0x0050, text=» RF(NZ) RD300 MODIFIED FIELD«, t00=0x0020, t01=0x0140}
0x335c…3376 Head {h00=0x0016, h01=0x0050, text=»RD210 CWK A3,LBVDU«, t00=0x0020, t01=0x0164}
0x3376…339a Head {h00=0x0020, h01=0x0050, text=» RF(NL) RDMODE ALL EXAMINED «, t00=0x0020, t01=0x017e}
0x339a…33ac Head {h00=0x000e, h01=0x0050, text=» LCR A2,A4«, t00=0x0021, t01=0x0012}
0x33ac…33be Head {h00=0x000e, h01=0x0050, text=» ADK A3,1 «, t00=0x0021, t01=0x0024}
0x33be…33d0 Head {h00=0x000e, h01=0x0050, text=» ADK A4,1 «, t00=0x0021, t01=0x0036}
0x33d0…33e2 Head {h00=0x000e, h01=0x0050, text=» LDR A1,A2«, t00=0x0021, t01=0x0048}
0x33e2…33f6 Head {h00=0x0010, h01=0x0050, text=» ANK A1,/60 «, t00=0x0021, t01=0x005a}
0x33f6…341e Head {h00=0x0024, h01=0x0050, text=» RB(NZ) RD210 NO ATTRIBUTE CHAR «, t00=0x0021, t01=0x006e}
0x341e…344c Head {h00=0x002a, h01=0x0050, text=» CWK A3,LBVDU ALL BUFFER EXAMINED ??? «, t00=0x0021, t01=0x0096}
0x344c…3468 Head {h00=0x0018, h01=0x0050, text=» RF(NL) RDMODE YES!!«, t00=0x0021, t01=0x00c4}
0x3468…348a Head {h00=0x001e, h01=0x0050, text=» RB RD200 ATTRIBUTE FOUND «, t00=0x0021, t01=0x00e0}
0x348a…34a2 Head {h00=0x0014, h01=0x0050, text=»RD300 LDK A2,SBA«, t00=0x0021, t01=0x0102}
0x34a2…34c8 Head {h00=0x0022, h01=0x0050, text=» CF A14,PDCCH SBA TO DC BUFFER«, t00=0x0021, t01=0x011a}
0x34c8…34ea Head {h00=0x001e, h01=0x0050, text=» LDR A1,A3 BUFFER POSITION«, t00=0x0021, t01=0x0140}
0x34ea…350e Head {h00=0x0020, h01=0x0050, text=» CF A14,BUFADR TO DC BUFFER «, t00=0x0021, t01=0x0162}
0x350e…3520 Head {h00=0x000e, h01=0x0050, text=» RB RD100 «, t00=0x0021, t01=0x0186}
0x3520…3536 Head {h00=0x0012, h01=0x0050, text=»RDMODE RTN A14«, t00=0x0022, t01=0x0008}
0x3536…3540 Head {h00=0x0006, h01=0x0050, text=» «, t00=0x0022, t01=0x001e}
0x3540…354a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0022, t01=0x0028}
0x354a…3554 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0022, t01=0x0032}
0x3554…358c Head {h00=0x0034, h01=0x0050, text=»* UPDATE VIDEO DISPLAY BUFFER IMAGE BY THE DATA «, t00=0x0022, t01=0x003c}
0x358c…3596 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0022, t01=0x0074}
0x3596…35ba Head {h00=0x0020, h01=0x0050, text=»* RECEIVED FROM THE DC LINE «, t00=0x0022, t01=0x007e}
0x35ba…35c4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0022, t01=0x00a2}
0x35c4…35ce Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0022, t01=0x00ac}
0x35ce…35f4 Head {h00=0x0022, h01=0x0050, text=»* A7=DC RECEIVE BUFFER POINTER«, t00=0x0022, t01=0x00b6}
0x35f4…3610 Head {h00=0x0018, h01=0x0050, text=»* A8=DC ECB ADDRESS «, t00=0x0022, t01=0x00dc}
0x3610…363c Head {h00=0x0028, h01=0x0050, text=»* A9=DC BUFFER INDEX, INITIALLY ZERO«, t00=0x0022, t01=0x00f8}
0x363c…3646 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0022, t01=0x0124}
0x3646…366a Head {h00=0x0020, h01=0x0050, text=»* A3=DISPLAY BUFFER POSITION«, t00=0x0022, t01=0x012e}
0x366a…368e Head {h00=0x0020, h01=0x0050, text=»* A4=DISPLAY BUFFER POINTER «, t00=0x0022, t01=0x0152}
0x368e…3698 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0022, t01=0x0176}
0x3698…36a2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0022, t01=0x0180}
0x36a2…36b6 Head {h00=0x0010, h01=0x0050, text=»UPDATE EQU *«, t00=0x0022, t01=0x018a}
0x36b6…36d0 Head {h00=0x0016, h01=0x0050, text=» CM ICWORK,TCABAS «, t00=0x0023, t01=0x000e}
0x36d0…36ec Head {h00=0x0018, h01=0x0050, text=» LD A8,ECBDCC,TCABAS«, t00=0x0023, t01=0x0028}
0x36ec…3716 Head {h00=0x0026, h01=0x0050, text=» LD A7,ECBBA,A8 DC BUFFER ADDRESS «, t00=0x0023, t01=0x0044}
0x3716…373e Head {h00=0x0024, h01=0x0050, text=» SUR A9,A9 RESET DC BUFFER INDEX«, t00=0x0023, t01=0x006e}
0x373e…3772 Head {h00=0x0030, h01=0x0050, text=» CF A14,GDCCH GET FIRST CHAR FROM DC BUFFER «, t00=0x0023, t01=0x0096}
0x3772…3796 Head {h00=0x0020, h01=0x0050, text=» CWK A2,ESC SHOULD BE ESCAPE«, t00=0x0023, t01=0x00ca}
0x3796…37b8 Head {h00=0x001e, h01=0x0050, text=» RF(NE) UPDEND NOT ESCAPE «, t00=0x0023, t01=0x00ee}
0x37b8…37de Head {h00=0x0022, h01=0x0050, text=» CF A14,GDCCH GET COMMAND CODE«, t00=0x0023, t01=0x0110}
0x37de…37f2 Head {h00=0x0010, h01=0x0050, text=» CWK A2,/31 «, t00=0x0023, t01=0x0136}
0x37f2…380e Head {h00=0x0018, h01=0x0050, text=» RF(E) UPD100 WRITE «, t00=0x0023, t01=0x014a}
0x380e…3822 Head {h00=0x0010, h01=0x0050, text=» CWK A2,/35 «, t00=0x0023, t01=0x0166}
0x3822…3844 Head {h00=0x001e, h01=0x0050, text=» RF(E) UPD120 ERASE/WRITE «, t00=0x0023, t01=0x017a}
0x3844…3858 Head {h00=0x0010, h01=0x0050, text=» CWK A2,/3F «, t00=0x0024, t01=0x000c}
0x3858…3884 Head {h00=0x0028, h01=0x0050, text=» RF(E) UPD140 ERASE ALL UNPROTECTED «, t00=0x0024, t01=0x0020}
0x3884…389a Head {h00=0x0012, h01=0x0050, text=» IFT COPCMD=1 «, t00=0x0024, t01=0x004c}
0x389a…38ae Head {h00=0x0010, h01=0x0050, text=» CWK A2,/37 «, t00=0x0024, t01=0x0062}
0x38ae…38d2 Head {h00=0x0020, h01=0x0050, text=» ABL(E) UPD600 COPY COMMAND «, t00=0x0024, t01=0x0076}
0x38d2…38de Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0024, t01=0x009a}
0x38de…3906 Head {h00=0x0024, h01=0x0050, text=» RF UPDEND INVALID COMMAND CODE «, t00=0x0024, t01=0x00a6}
0x3906…3910 Head {h00=0x0006, h01=0x0050, text=» «, t00=0x0024, t01=0x00ce}
0x3910…391a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0024, t01=0x00d8}
0x391a…3932 Head {h00=0x0014, h01=0x0050, text=»* WRITE COMMAND «, t00=0x0024, t01=0x00e2}
0x3932…393c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0024, t01=0x00fa}
0x393c…3950 Head {h00=0x0010, h01=0x0050, text=»UPD100 EQU *«, t00=0x0024, t01=0x0104}
0x3950…397c Head {h00=0x0028, h01=0x0050, text=» CF A14,PWCC PROCESS WCC FOR MDT BIT«, t00=0x0024, t01=0x0118}
0x397c…3998 Head {h00=0x0018, h01=0x0050, text=» LD A3,PCURS,TCABAS «, t00=0x0024, t01=0x0144}
0x3998…39c4 Head {h00=0x0028, h01=0x0050, text=» LDR A4,A3 START IN CURSOR POSITION «, t00=0x0024, t01=0x0160}
0x39c4…39da Head {h00=0x0012, h01=0x0050, text=» ADKL A4,BVDU «, t00=0x0024, t01=0x018c}
0x39da…39f0 Head {h00=0x0012, h01=0x0050, text=» ADR A4,TCABAS«, t00=0x0025, t01=0x0012}
0x39f0…3a18 Head {h00=0x0024, h01=0x0050, text=» LDK A5,1 INDICATE WCC, IC OR RA«, t00=0x0025, t01=0x0028}
0x3a18…3a2a Head {h00=0x000e, h01=0x0050, text=» RF UPD220«, t00=0x0025, t01=0x0050}
0x3a2a…3a34 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0025, t01=0x0062}
0x3a34…3a52 Head {h00=0x001a, h01=0x0050, text=»* ERASE/WRITE COMMAND «, t00=0x0025, t01=0x006c}
0x3a52…3a5c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0025, t01=0x008a}
0x3a5c…3a70 Head {h00=0x0010, h01=0x0050, text=»UPD120 EQU *«, t00=0x0025, t01=0x0094}
0x3a70…3a92 Head {h00=0x001e, h01=0x0050, text=» CF A14,ERASE ERASE SCREEN«, t00=0x0025, t01=0x00a8}
0x3a92…3aa4 Head {h00=0x000e, h01=0x0050, text=» RF UPD200«, t00=0x0025, t01=0x00ca}
0x3aa4…3aae Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0025, t01=0x00dc}
0x3aae…3ace Head {h00=0x001c, h01=0x0050, text=»* ERASE ALL UNPROTECTED «, t00=0x0025, t01=0x00e6}
0x3ace…3ad8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0025, t01=0x0106}
0x3ad8…3aec Head {h00=0x0010, h01=0x0050, text=»UPD140 EQU *«, t00=0x0025, t01=0x0110}
0x3aec…3b18 Head {h00=0x0028, h01=0x0050, text=» CF A14,ERASUP ERASE ALL UNPROTECTED«, t00=0x0025, t01=0x0124}
0x3b18…3b44 Head {h00=0x0028, h01=0x0050, text=» RF UPDEND NO TEXT WITH THIS COMMAND«, t00=0x0025, t01=0x0150}
0x3b44…3b4e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0025, t01=0x017c}
0x3b4e…3b80 Head {h00=0x002e, h01=0x0050, text=»* TAKE CARE OF WRITE CONTROL CHARACTER WCC«, t00=0x0025, t01=0x0186}
0x3b80…3b8a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0026, t01=0x0028}
0x3b8a…3bb0 Head {h00=0x0022, h01=0x0050, text=»UPD200 CF A14,PWCC PROCESS WCC«, t00=0x0026, t01=0x0032}
0x3bb0…3bd8 Head {h00=0x0024, h01=0x0050, text=» LDK A5,1 INDICATE WCC, IC OR RA«, t00=0x0026, t01=0x0058}
0x3bd8…3be2 Head {h00=0x0006, h01=0x0050, text=» «, t00=0x0026, t01=0x0080}
0x3be2…3bec Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0026, t01=0x008a}
0x3bec…3bf6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0026, t01=0x0094}
0x3bf6…3c1c Head {h00=0x0022, h01=0x0050, text=»* PROCESS DATA FROM DC BUFFER «, t00=0x0026, t01=0x009e}
0x3c1c…3c26 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0026, t01=0x00c4}
0x3c26…3c30 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0026, t01=0x00ce}
0x3c30…3c60 Head {h00=0x002c, h01=0x0050, text=»UPD210 LDK A3,0 START FROM POSITION ZERO«, t00=0x0026, t01=0x00d8}
0x3c60…3c76 Head {h00=0x0012, h01=0x0050, text=» LDKL A4,BVDU «, t00=0x0026, t01=0x0108}
0x3c76…3c8c Head {h00=0x0012, h01=0x0050, text=» ADR A4,TCABAS«, t00=0x0026, t01=0x011e}
0x3c8c…3cae Head {h00=0x001e, h01=0x0050, text=»UPD220 CW A9,DCLENG,TCABAS«, t00=0x0026, t01=0x0134}
0x3cae…3ce2 Head {h00=0x0030, h01=0x0050, text=» RF(NL) UPDEND ALL RECEIVED CHARS PROCESSED «, t00=0x0026, t01=0x0156}
0x3ce2…3d10 Head {h00=0x002a, h01=0x0050, text=» CF A14,GDCCH GET CHAR FROM DC BUFFER «, t00=0x0026, t01=0x018a}
0x3d10…3d24 Head {h00=0x0010, h01=0x0050, text=» CWK A2,/20 «, t00=0x0027, t01=0x0028}
0x3d24…3d40 Head {h00=0x0018, h01=0x0050, text=» RF(L) UPD300 ORDER «, t00=0x0027, t01=0x003c}
0x3d40…3d54 Head {h00=0x0010, h01=0x0050, text=»UPD230 EQU *«, t00=0x0027, t01=0x0058}
0x3d54…3d78 Head {h00=0x0020, h01=0x0050, text=» ORK A2,/80 SET DISPLAY BIT «, t00=0x0027, t01=0x006c}
0x3d78…3d8c Head {h00=0x0010, h01=0x0050, text=»UPD240 EQU *«, t00=0x0027, t01=0x0090}
0x3d8c…3db8 Head {h00=0x0028, h01=0x0050, text=» LDK A5,0 INDICATE NOT WCC, IC OR RA«, t00=0x0027, t01=0x00a4}
0x3db8…3dce Head {h00=0x0012, h01=0x0050, text=» CWK A3,LBVDU «, t00=0x0027, t01=0x00d0}
0x3dce…3df8 Head {h00=0x0026, h01=0x0050, text=» RF(E) UPD260 END OF VIDEO BUFFER «, t00=0x0027, t01=0x00e6}
0x3df8…3e0c Head {h00=0x0010, h01=0x0050, text=»UPD250 EQU *«, t00=0x0027, t01=0x0110}
0x3e0c…3e34 Head {h00=0x0024, h01=0x0050, text=» SCR A2,A4 STORE IN VIDEO BUFFER«, t00=0x0027, t01=0x0124}
0x3e34…3e46 Head {h00=0x000e, h01=0x0050, text=» ADK A3,1 «, t00=0x0027, t01=0x014c}
0x3e46…3e58 Head {h00=0x000e, h01=0x0050, text=» ADK A4,1 «, t00=0x0027, t01=0x015e}
0x3e58…3e6a Head {h00=0x000e, h01=0x0050, text=» RB UPD220«, t00=0x0027, t01=0x0170}
0x3e6a…3e82 Head {h00=0x0014, h01=0x0050, text=»UPD260 LDK A3,0 «, t00=0x0027, t01=0x0182}
0x3e82…3e98 Head {h00=0x0012, h01=0x0050, text=» LDKL A4,BVDU «, t00=0x0028, t01=0x000a}
0x3e98…3eae Head {h00=0x0012, h01=0x0050, text=» ADR A4,TCABAS«, t00=0x0028, t01=0x0020}
0x3eae…3ec0 Head {h00=0x000e, h01=0x0050, text=» RB UPD250«, t00=0x0028, t01=0x0036}
0x3ec0…3ed4 Head {h00=0x0010, h01=0x0050, text=»UPD300 EQU *«, t00=0x0028, t01=0x0048}
0x3ed4…3f04 Head {h00=0x002c, h01=0x0050, text=» CWK A3,LBVDU END OF DISPLAY BUFFER ??? «, t00=0x0028, t01=0x005c}
0x3f04…3f20 Head {h00=0x0018, h01=0x0050, text=» RF(NE) UPD302 NO!!!«, t00=0x0028, t01=0x008c}
0x3f20…3f48 Head {h00=0x0024, h01=0x0050, text=» SUR A3,A3 FIRST SCREEN POSITION«, t00=0x0028, t01=0x00a8}
0x3f48…3f5e Head {h00=0x0012, h01=0x0050, text=» LDKL A4,BVDU «, t00=0x0028, t01=0x00d0}
0x3f5e…3f84 Head {h00=0x0022, h01=0x0050, text=» ADR A4,TCABAS BUFFER POSITION«, t00=0x0028, t01=0x00e6}
0x3f84…3f98 Head {h00=0x0010, h01=0x0050, text=»UPD302 EQU *«, t00=0x0028, t01=0x010c}
0x3f98…3fac Head {h00=0x0010, h01=0x0050, text=» CWK A2,/1D «, t00=0x0028, t01=0x0120}
0x3fac…3fce Head {h00=0x001e, h01=0x0050, text=» RF(E) UPD320 START FIELD «, t00=0x0028, t01=0x0134}
0x3fce…3fe2 Head {h00=0x0010, h01=0x0050, text=» CWK A2,/11 «, t00=0x0028, t01=0x0156}
0x3fe2…400a Head {h00=0x0024, h01=0x0050, text=» RF(E) UPD340 SET BUFFER ADDRESS«, t00=0x0028, t01=0x016a}
0x400a…401e (41, 0, 400) Head {h00=0x0010, h01=0x0050, text=» CWK A2,/13 «, t00=0x0029, t01=0x0004}
0x401e…4042 Head {h00=0x0020, h01=0x0050, text=» RF(E) UPD360 INSERT CURSOR «, t00=0x0029, t01=0x0018}
0x4042…4056 Head {h00=0x0010, h01=0x0050, text=» CWK A2,/09 «, t00=0x0029, t01=0x003c}
0x4056…4078 Head {h00=0x001e, h01=0x0050, text=» RF(E) UPD400 PROGRAM TAB «, t00=0x0029, t01=0x0050}
0x4078…408c Head {h00=0x0010, h01=0x0050, text=» CWK A2,/14 «, t00=0x0029, t01=0x0072}
0x408c…40b4 Head {h00=0x0024, h01=0x0050, text=» RF(E) UPD500 REPEAT TO ADDRESS «, t00=0x0029, t01=0x0086}
0x40b4…40c8 Head {h00=0x0010, h01=0x0050, text=» CWK A2,/12 «, t00=0x0029, t01=0x00ae}
0x40c8…40fa Head {h00=0x002e, h01=0x0050, text=» RF(E) UPD540 ERASE UNPROTECTED TO ADDRESS«, t00=0x0029, t01=0x00c2}
0x40fa…410e Head {h00=0x0010, h01=0x0050, text=» CWK A2,/0C «, t00=0x0029, t01=0x00f4}
0x410e…4124 Head {h00=0x0012, h01=0x0050, text=» RF(NE) UPD305«, t00=0x0029, t01=0x0108}
0x4124…4144 Head {h00=0x001c, h01=0x0050, text=» LDK A2,FORMFD FORM FEED«, t00=0x0029, t01=0x011e}
0x4144…4156 Head {h00=0x000e, h01=0x0050, text=» RB UPD230«, t00=0x0029, t01=0x013e}
0x4156…4170 Head {h00=0x0016, h01=0x0050, text=»UPD305 CWK A2,/19 «, t00=0x0029, t01=0x0150}
0x4170…4186 Head {h00=0x0012, h01=0x0050, text=» RF(NE) UPD310«, t00=0x0029, t01=0x016a}
0x4186…41a8 Head {h00=0x001e, h01=0x0050, text=» LDK A2,ENDMES END MESSAGE«, t00=0x0029, t01=0x0180}
0x41a8…41ba Head {h00=0x000e, h01=0x0050, text=» RB UPD230«, t00=0x002a, t01=0x0012}
0x41ba…41ce Head {h00=0x0010, h01=0x0050, text=»UPD310 EQU *«, t00=0x002a, t01=0x0024}
0x41ce…41e2 Head {h00=0x0010, h01=0x0050, text=» CWK A2,/0A «, t00=0x002a, t01=0x0038}
0x41e2…41f8 Head {h00=0x0012, h01=0x0050, text=» RF(NE) UPD315«, t00=0x002a, t01=0x004c}
0x41f8…4218 Head {h00=0x001c, h01=0x0050, text=» LDK A2,NEWLIN NEW LINE «, t00=0x002a, t01=0x0062}
0x4218…422a Head {h00=0x000e, h01=0x0050, text=» RB UPD230«, t00=0x002a, t01=0x0082}
0x422a…423e Head {h00=0x0010, h01=0x0050, text=»UPD315 EQU *«, t00=0x002a, t01=0x0094}
0x423e…4252 Head {h00=0x0010, h01=0x0050, text=» CWK A2,/18 «, t00=0x002a, t01=0x00a8}
0x4252…4276 Head {h00=0x0020, h01=0x0050, text=» RF(NE) UPD318 ILLEGAL ORDER«, t00=0x002a, t01=0x00bc}
0x4276…428a Head {h00=0x0010, h01=0x0050, text=» LDK A2,/30 «, t00=0x002a, t01=0x00e0}
0x428a…429c Head {h00=0x000e, h01=0x0050, text=» RB UPD230«, t00=0x002a, t01=0x00f4}
0x429c…42a6 Head {h00=0x0006, h01=0x0050, text=» «, t00=0x002a, t01=0x0106}
0x42a6…42ae Head {h00=0x0004, h01=0x0050, t00=0x002a, t01=0x0110}
0x42ae…42c2 Head {h00=0x0010, h01=0x0050, text=»UPD318 EQU *«, t00=0x002a, t01=0x0118}
0x42c2…42e8 Head {h00=0x0022, h01=0x0050, text=» CWK A2,/00 NULL CHARACTER ???«, t00=0x002a, t01=0x012c}
0x42e8…4312 Head {h00=0x0026, h01=0x0050, text=» RF(NE) UPDEND NO!! ILLEGAL ORDER«, t00=0x002a, t01=0x0152}
0x4312…4338 Head {h00=0x0022, h01=0x0050, text=» LDK A2,/7F PTS NULL CHARACTER«, t00=0x002a, t01=0x017c}
0x4338…434a Head {h00=0x000e, h01=0x0050, text=» RB UPD230«, t00=0x002b, t01=0x0012}
0x434a…4352 Head {h00=0x0004, h01=0x0050, t00=0x002b, t01=0x0024}
0x4352…4396 Head {h00=0x0040, h01=0x0050, text=»************************************************************«, t00=0x002b, t01=0x002c}
0x4396…43a0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002b, t01=0x0070}
0x43a0…43c2 Head {h00=0x001e, h01=0x0050, text=»* RELEASE RECEIVE BUFFER«, t00=0x002b, t01=0x007a}
0x43c2…43cc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002b, t01=0x009c}
0x43cc…43fa Head {h00=0x002a, h01=0x0050, text=»************************************* «, t00=0x002b, t01=0x00a6}
0x43fa…4402 Head {h00=0x0004, h01=0x0050, t00=0x002b, t01=0x00d4}
0x4402…4416 Head {h00=0x0010, h01=0x0050, text=»UPDEND EQU *«, t00=0x002b, t01=0x00dc}
0x4416…4432 Head {h00=0x0018, h01=0x0050, text=» LD A8,ECBDCC,TCABAS«, t00=0x002b, t01=0x00f0}
0x4432…444a Head {h00=0x0014, h01=0x0050, text=» LD A4,ECBBA,A8 «, t00=0x002b, t01=0x010c}
0x444a…4460 Head {h00=0x0012, h01=0x0050, text=» CF A14,RLRBUF«, t00=0x002b, t01=0x0124}
0x4460…4470 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x002b, t01=0x013a}
0x4470…447a Head {h00=0x0006, h01=0x0050, text=» «, t00=0x002b, t01=0x014a}
0x447a…4484 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002b, t01=0x0154}
0x4484…448e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002b, t01=0x015e}
0x448e…44aa Head {h00=0x0018, h01=0x0050, text=»* START FIELD ORDER «, t00=0x002b, t01=0x0168}
0x44aa…44b4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002b, t01=0x0184}
0x44b4…44e2 Head {h00=0x002a, h01=0x0050, text=»UPD320 CF A14,GDCCH GET ATTRIBUTE CHAR«, t00=0x002b, t01=0x018e}
0x44e2…44fa Head {h00=0x0014, h01=0x0050, text=» LC A2,TEBCDI,A2«, t00=0x002c, t01=0x002c}
0x44fa…4528 Head {h00=0x002a, h01=0x0050, text=» LDR A1,A2 COMPOSE PTS ATTRIBUTE CHAR «, t00=0x002c, t01=0x0044}
0x4528…453a Head {h00=0x000e, h01=0x0050, text=» ANK A1,1 «, t00=0x002c, t01=0x0072}
0x453a…454c Head {h00=0x000e, h01=0x0050, text=» SRL A2,1 «, t00=0x002c, t01=0x0084}
0x454c…4560 Head {h00=0x0010, h01=0x0050, text=» ANK A2,/1E «, t00=0x002c, t01=0x0096}
0x4560…4572 Head {h00=0x000e, h01=0x0050, text=» ORR A2,A1«, t00=0x002c, t01=0x00aa}
0x4572…4584 Head {h00=0x000e, h01=0x0050, text=» RB UPD240«, t00=0x002c, t01=0x00bc}
0x4584…458e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002c, t01=0x00ce}
0x458e…45aa Head {h00=0x0018, h01=0x0050, text=»* SET BUFFER ADDRESS«, t00=0x002c, t01=0x00d8}
0x45aa…45b4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002c, t01=0x00f4}
0x45b4…45dc Head {h00=0x0024, h01=0x0050, text=»UPD340 CF A14,GETADR GET ADDRESS«, t00=0x002c, t01=0x00fe}
0x45dc…45f2 Head {h00=0x0012, h01=0x0050, text=» CWK A1,LBVDU «, t00=0x002c, t01=0x0126}
0x45f2…4618 Head {h00=0x0022, h01=0x0050, text=» RB(NL) UPDEND INVALID ADDRESS«, t00=0x002c, t01=0x013c}
0x4618…462a Head {h00=0x000e, h01=0x0050, text=» LDR A3,A1«, t00=0x002c, t01=0x0162}
0x462a…463c Head {h00=0x000e, h01=0x0050, text=» LDR A4,A3«, t00=0x002c, t01=0x0174}
0x463c…4652 Head {h00=0x0012, h01=0x0050, text=» ADKL A4,BVDU «, t00=0x002c, t01=0x0186}
0x4652…4668 Head {h00=0x0012, h01=0x0050, text=» ADR A4,TCABAS«, t00=0x002d, t01=0x000c}
0x4668…467a Head {h00=0x000e, h01=0x0050, text=» RB UPD220«, t00=0x002d, t01=0x0022}
0x467a…4684 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002d, t01=0x0034}
0x4684…469c Head {h00=0x0014, h01=0x0050, text=»* INSERT CURSOR «, t00=0x002d, t01=0x003e}
0x469c…46a6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002d, t01=0x0056}
0x46a6…46da Head {h00=0x0030, h01=0x0050, text=»UPD360 ST A3,PCURS,TCABAS SET NEW CURSOR POS«, t00=0x002d, t01=0x0060}
0x46da…4702 Head {h00=0x0024, h01=0x0050, text=» LDK A5,1 INDICATE WCC, IC OR RA«, t00=0x002d, t01=0x0094}
0x4702…4714 Head {h00=0x000e, h01=0x0050, text=» RB UPD220«, t00=0x002d, t01=0x00bc}
0x4714…471e Head {h00=0x0006, h01=0x0050, text=» «, t00=0x002d, t01=0x00ce}
0x471e…4728 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002d, t01=0x00d8}
0x4728…473e Head {h00=0x0012, h01=0x0050, text=»* PROGRAM TAB «, t00=0x002d, t01=0x00e2}
0x473e…4748 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002d, t01=0x00f8}
0x4748…4760 Head {h00=0x0014, h01=0x0050, text=»UPD400 LDR A5,A5«, t00=0x002d, t01=0x0102}
0x4760…478e Head {h00=0x002a, h01=0x0050, text=» RF(NZ) UPD430 PT AFTER WCC, IC OR RA «, t00=0x002d, t01=0x011a}
0x478e…47c2 Head {h00=0x0030, h01=0x0050, text=» LDK A1,NULL+/80 FILL CURRENT FIELD BY NULLS«, t00=0x002d, t01=0x0148}
0x47c2…47d6 Head {h00=0x0010, h01=0x0050, text=»UPD410 EQU *«, t00=0x002d, t01=0x017c}
0x47d6…47e8 Head {h00=0x000e, h01=0x0050, text=» LDK A5,0 «, t00=0x002d, t01=0x0190}
0x47e8…47fe Head {h00=0x0012, h01=0x0050, text=» CWK A3,LBVDU «, t00=0x002e, t01=0x0012}
0x47fe…4822 Head {h00=0x0020, h01=0x0050, text=» RB(NL) UPD210 END OF BUFFER«, t00=0x002e, t01=0x0028}
0x4822…4834 Head {h00=0x000e, h01=0x0050, text=» LCR A2,A4«, t00=0x002e, t01=0x004c}
0x4834…4846 Head {h00=0x000e, h01=0x0050, text=» ADK A3,1 «, t00=0x002e, t01=0x005e}
0x4846…485a Head {h00=0x0010, h01=0x0050, text=» ANK A2,/7F «, t00=0x002e, t01=0x0070}
0x485a…486e Head {h00=0x0010, h01=0x0050, text=» CWK A2,/20 «, t00=0x002e, t01=0x0084}
0x486e…4884 Head {h00=0x0012, h01=0x0050, text=» RF(L) UPD415 «, t00=0x002e, t01=0x0098}
0x4884…48a2 Head {h00=0x001a, h01=0x0050, text=» SCR A1,A4 STORE NULL «, t00=0x002e, t01=0x00ae}
0x48a2…48b4 Head {h00=0x000e, h01=0x0050, text=» ADK A4,1 «, t00=0x002e, t01=0x00cc}
0x48b4…48c6 Head {h00=0x000e, h01=0x0050, text=» RB UPD410«, t00=0x002e, t01=0x00de}
0x48c6…48da Head {h00=0x0010, h01=0x0050, text=»UPD415 EQU *«, t00=0x002e, t01=0x00f0}
0x48da…48ec Head {h00=0x000e, h01=0x0050, text=» ADK A4,1 «, t00=0x002e, t01=0x0104}
0x48ec…4906 Head {h00=0x0016, h01=0x0050, text=»UPD420 ANK A2,/10 «, t00=0x002e, t01=0x0116}
0x4906…492e Head {h00=0x0024, h01=0x0050, text=» RB(Z) UPD220 UNPROTECTED FIELD «, t00=0x002e, t01=0x0130}
0x492e…4942 Head {h00=0x0010, h01=0x0050, text=»UPD430 EQU *«, t00=0x002e, t01=0x0158}
0x4942…4954 Head {h00=0x000e, h01=0x0050, text=» LDK A5,0 «, t00=0x002e, t01=0x016c}
0x4954…496a Head {h00=0x0012, h01=0x0050, text=» CWK A3,LBVDU «, t00=0x002e, t01=0x017e}
0x496a…4998 (47, 0, 400) Head {h00=0x002a, h01=0x0050, text=» ABL(NL) UPD210 END OF DISPLAY BUFFER «, t00=0x002f, t01=0x0004}
0x4998…49aa Head {h00=0x000e, h01=0x0050, text=» LCR A2,A4«, t00=0x002f, t01=0x0032}
0x49aa…49bc Head {h00=0x000e, h01=0x0050, text=» ADK A3,1 «, t00=0x002f, t01=0x0044}
0x49bc…49ce Head {h00=0x000e, h01=0x0050, text=» ADK A4,1 «, t00=0x002f, t01=0x0056}
0x49ce…49e2 Head {h00=0x0010, h01=0x0050, text=» ANK A2,/7F «, t00=0x002f, t01=0x0068}
0x49e2…49f6 Head {h00=0x0010, h01=0x0050, text=» CWK A2,/20 «, t00=0x002f, t01=0x007c}
0x49f6…4a0c Head {h00=0x0012, h01=0x0050, text=» RB(L) UPD420 «, t00=0x002f, t01=0x0090}
0x4a0c…4a1e Head {h00=0x000e, h01=0x0050, text=» RB UPD430«, t00=0x002f, t01=0x00a6}
0x4a1e…4a28 Head {h00=0x0006, h01=0x0050, text=» «, t00=0x002f, t01=0x00b8}
0x4a28…4a32 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002f, t01=0x00c2}
0x4a32…4a4e Head {h00=0x0018, h01=0x0050, text=»* REPEAT TO ADDRESS «, t00=0x002f, t01=0x00cc}
0x4a4e…4a58 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002f, t01=0x00e8}
0x4a58…4a84 Head {h00=0x0028, h01=0x0050, text=»UPD500 CF A14,GETADR GET END ADDRESS«, t00=0x002f, t01=0x00f2}
0x4a84…4a9a Head {h00=0x0012, h01=0x0050, text=» CWK A1,LBVDU «, t00=0x002f, t01=0x011e}
0x4a9a…4ac0 Head {h00=0x0022, h01=0x0050, text=» RB(NL) UPDEND INVALID ADDRESS«, t00=0x002f, t01=0x0134}
0x4ac0…4aee Head {h00=0x002a, h01=0x0050, text=» CF A14,GDCCH GET CHAR TO BE REPEATED «, t00=0x002f, t01=0x015a}
0x4aee…4b16 Head {h00=0x0024, h01=0x0050, text=» LDK A5,1 INDICATE WCC, IC OR RA«, t00=0x002f, t01=0x0188}
0x4b16…4b3c Head {h00=0x0022, h01=0x0050, text=» ORK A2,/80 INDICATE MODIFIED «, t00=0x0030, t01=0x0020}
0x4b3c…4b44 Head {h00=0x0004, h01=0x0050, t00=0x0030, t01=0x0046}
0x4b44…4b4c Head {h00=0x0004, h01=0x0050, t00=0x0030, t01=0x004e}
0x4b4c…4b82 Head {h00=0x0032, h01=0x0050, text=» CWR A3,A1 NULLS TO ALL SCREEN POSITIONS ???? «, t00=0x0030, t01=0x0056}
0x4b82…4b9e Head {h00=0x0018, h01=0x0050, text=» RF(E) UPD530 YES!!!«, t00=0x0030, t01=0x008c}
0x4b9e…4ba6 Head {h00=0x0004, h01=0x0050, t00=0x0030, t01=0x00a8}
0x4ba6…4bae Head {h00=0x0004, h01=0x0050, t00=0x0030, t01=0x00b0}
0x4bae…4bca Head {h00=0x0018, h01=0x0050, text=»UPD510 CWK A3,LBVDU «, t00=0x0030, t01=0x00b8}
0x4bca…4bf2 Head {h00=0x0024, h01=0x0050, text=» RF(L) UPD520 NOT END OF SCREEN «, t00=0x0030, t01=0x00d4}
0x4bf2…4c04 Head {h00=0x000e, h01=0x0050, text=» LDK A3,0 «, t00=0x0030, t01=0x00fc}
0x4c04…4c26 Head {h00=0x001e, h01=0x0050, text=» LDKL A4,BVDU WRAP AROUND «, t00=0x0030, t01=0x010e}
0x4c26…4c3c Head {h00=0x0012, h01=0x0050, text=» ADR A4,TCABAS«, t00=0x0030, t01=0x0130}
0x4c3c…4c54 Head {h00=0x0014, h01=0x0050, text=»UPD520 CWR A3,A1«, t00=0x0030, t01=0x0146}
0x4c54…4c7c Head {h00=0x0024, h01=0x0050, text=» ABL(E) UPD220 ALL CHAR REPEATED«, t00=0x0030, t01=0x015e}
0x4c7c…4c84 Head {h00=0x0004, h01=0x0050, t00=0x0030, t01=0x0186}
0x4c84…4c98 Head {h00=0x0010, h01=0x0050, text=»UPD530 EQU *«, t00=0x0030, t01=0x018e}
0x4c98…4ca0 Head {h00=0x0004, h01=0x0050, t00=0x0031, t01=0x0012}
0x4ca0…4cb2 Head {h00=0x000e, h01=0x0050, text=» SCR A2,A4«, t00=0x0031, t01=0x001a}
0x4cb2…4cc4 Head {h00=0x000e, h01=0x0050, text=» ADK A3,1 «, t00=0x0031, t01=0x002c}
0x4cc4…4cd6 Head {h00=0x000e, h01=0x0050, text=» ADK A4,1 «, t00=0x0031, t01=0x003e}
0x4cd6…4cf6 Head {h00=0x001c, h01=0x0050, text=» RB UPD510 NEXT POSITION«, t00=0x0031, t01=0x0050}
0x4cf6…4d00 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0031, t01=0x0070}
0x4d00…4d26 Head {h00=0x0022, h01=0x0050, text=»* ERASE UNPROTECTED TO ADDRESS«, t00=0x0031, t01=0x007a}
0x4d26…4d30 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0031, t01=0x00a0}
0x4d30…4d5c Head {h00=0x0028, h01=0x0050, text=»UPD540 CF A14,GETADR GET END ADDRESS«, t00=0x0031, t01=0x00aa}
0x4d5c…4d72 Head {h00=0x0012, h01=0x0050, text=» CWK A3,LBVDU «, t00=0x0031, t01=0x00d6}
0x4d72…4d98 Head {h00=0x0022, h01=0x0050, text=» RB(NL) UPDEND INVALID ADDRESS«, t00=0x0031, t01=0x00ec}
0x4d98…4dcc Head {h00=0x0030, h01=0x0050, text=» CF A14,ERASUA ERASE UNPROTECTED TO ADDRESS «, t00=0x0031, t01=0x0112}
0x4dcc…4de0 Head {h00=0x0010, h01=0x0050, text=» ABL UPD220 «, t00=0x0031, t01=0x0146}
0x4de0…4df6 Head {h00=0x0012, h01=0x0050, text=» IFT COPCMD=1 «, t00=0x0031, t01=0x015a}
0x4df6…4e00 Head {h00=0x0006, h01=0x0050, text=» «, t00=0x0031, t01=0x0170}
0x4e00…4e0a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0031, t01=0x017a}
0x4e0a…4e20 Head {h00=0x0012, h01=0x0050, text=»* COPY COMMAND«, t00=0x0031, t01=0x0184}
0x4e20…4e2a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0032, t01=0x000a}
0x4e2a…4e3e Head {h00=0x0010, h01=0x0050, text=»UPD600 EQU *«, t00=0x0032, t01=0x0014}
0x4e3e…4e5c Head {h00=0x001a, h01=0x0050, text=» LD A1,PRINTER,TCABAS «, t00=0x0032, t01=0x0028}
0x4e5c…4e94 Head {h00=0x0034, h01=0x0050, text=» ABL(Z) UPDEND COPYCOMMAND NOT SUPPORTED FOR VDU«, t00=0x0032, t01=0x0046}
0x4e94…4ea6 Head {h00=0x000e, h01=0x0050, text=» ADK A7,1 «, t00=0x0032, t01=0x007e}
0x4ea6…4ebc Head {h00=0x0012, h01=0x0050, text=» BYPASS CCC «, t00=0x0032, t01=0x0090}
0x4ebc…4ee2 Head {h00=0x0022, h01=0x0050, text=» CF A14,GDCCH GET FROM DEVICE «, t00=0x0032, t01=0x00a6}
0x4ee2…4ef8 Head {h00=0x0012, h01=0x0050, text=» IFT EBCDIC=1 «, t00=0x0032, t01=0x00cc}
0x4ef8…4f22 Head {h00=0x0026, h01=0x0050, text=» LC A2,TEBCDI,A2 CONVERT TO EBCDIC«, t00=0x0032, t01=0x00e2}
0x4f22…4f2e Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0032, t01=0x010c}
0x4f2e…4f44 Head {h00=0x0012, h01=0x0050, text=» IFT COPCMD=1 «, t00=0x0032, t01=0x0118}
0x4f44…4f6a Head {h00=0x0022, h01=0x0050, text=» LD A3,6,CREBAS 'CB1' ADDRESS «, t00=0x0032, t01=0x012e}
0x4f6a…4f82 Head {h00=0x0014, h01=0x0050, text=» LDK A4,MF1KBV-1«, t00=0x0032, t01=0x0154}
0x4f82…4f96 Head {h00=0x0010, h01=0x0050, text=» IFT DCLIN=2«, t00=0x0032, t01=0x016c}
0x4f96…4fb6 Head {h00=0x001c, h01=0x0050, text=» LD A1,ECBBLK+DC2,TCABAS«, t00=0x0032, t01=0x0180}
0x4fb6…4fcc Head {h00=0x0012, h01=0x0050, text=» RF(NZ) UPD602«, t00=0x0033, t01=0x0010}
0x4fcc…4ff0 Head {h00=0x0020, h01=0x0050, text=» LDK A4,MF2KBV-1 MF # 2 READ«, t00=0x0033, t01=0x0026}
0x4ff0…4ffc Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0033, t01=0x004a}
0x4ffc…5012 Head {h00=0x0012, h01=0x0050, text=» IFT COPCMD=1 «, t00=0x0033, t01=0x0056}
0x5012…5026 Head {h00=0x0010, h01=0x0050, text=»UPD602 EQU *«, t00=0x0033, t01=0x006c}
0x5026…5048 Head {h00=0x001e, h01=0x0050, text=» ADR A4,A3 CONFIG TABLE -1«, t00=0x0033, t01=0x0080}
0x5048…5072 Head {h00=0x0026, h01=0x0050, text=» LD A5,NBRKBV,A3 NUMBER OF KB/VDUS«, t00=0x0033, t01=0x00a2}
0x5072…509e Head {h00=0x0028, h01=0x0050, text=» ADR A4,A5 LAST KB/VDU CONFIGURATED «, t00=0x0033, t01=0x00cc}
0x509e…50b2 Head {h00=0x0010, h01=0x0050, text=»UPD604 EQU *«, t00=0x0033, t01=0x00f8}
0x50b2…50da Head {h00=0x0024, h01=0x0050, text=» CCR A2,A4 DV-ADDRESS MATCHES ? «, t00=0x0033, t01=0x010c}
0x50da…50f4 Head {h00=0x0016, h01=0x0050, text=» RF(E) UPD610 YES «, t00=0x0033, t01=0x0134}
0x50f4…5106 Head {h00=0x000e, h01=0x0050, text=» SUK A4,1 «, t00=0x0033, t01=0x014e}
0x5106…5118 Head {h00=0x000e, h01=0x0050, text=» SUK A5,1 «, t00=0x0033, t01=0x0160}
0x5118…5136 Head {h00=0x001a, h01=0x0050, text=» RB(P) UPD604 TRY NEXT«, t00=0x0033, t01=0x0172}
0x5136…5152 Head {h00=0x0018, h01=0x0050, text=» ABL UPDEND NO MATCH«, t00=0x0033, t01=0x0190}
0x5152…515c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0034, t01=0x001c}
0x515c…5170 Head {h00=0x0010, h01=0x0050, text=»UPD610 EQU *«, t00=0x0034, t01=0x0026}
0x5170…5188 Head {h00=0x0014, h01=0x0050, text=» LDKL A8,ECBICW «, t00=0x0034, t01=0x003a}
0x5188…519e Head {h00=0x0012, h01=0x0050, text=» ADR A8,CREBAS«, t00=0x0034, t01=0x0052}
0x519e…51aa Head {h00=0x0008, h01=0x0050, text=» LKM«, t00=0x0034, t01=0x0068}
0x51aa…51de Head {h00=0x0030, h01=0x0050, text=» DATA 10 ABORT LAST REQUEST IF NOT COMPLETED«, t00=0x0034, t01=0x0074}
0x51de…5208 Head {h00=0x0026, h01=0x0050, text=» ADKL A5,/4B40 TASKID FROM DEVICE «, t00=0x0034, t01=0x00a8}
0x5208…5230 Head {h00=0x0024, h01=0x0050, text=» LD A2,-4,CREBAS GET OWN TASKID «, t00=0x0034, t01=0x00d2}
0x5230…525a Head {h00=0x0026, h01=0x0050, text=» ST A2,ICWORK,TCABAS PUT IN BUFFER«, t00=0x0034, t01=0x00fa}
0x525a…5288 Head {h00=0x002a, h01=0x0050, text=» LDK A4,/0B WRITE ADDRESSED , NO WAIT «, t00=0x0034, t01=0x0124}
0x5288…52a4 Head {h00=0x0018, h01=0x0050, text=» LDK A6,2 REQ LENGTH«, t00=0x0034, t01=0x0152}
0x52a4…52bc Head {h00=0x0014, h01=0x0050, text=» LDKL A3,ICWORK «, t00=0x0034, t01=0x016e}
0x52bc…52e2 Head {h00=0x0022, h01=0x0050, text=» ADR A3,TCABAS BUFFER ADDRESS «, t00=0x0034, t01=0x0186}
0x52e2…5308 Head {h00=0x0022, h01=0x0050, text=» CF A14,ICWRTE WRITE INTERTASK«, t00=0x0035, t01=0x001c}
0x5308…531c Head {h00=0x0010, h01=0x0050, text=» ABL UPDEND «, t00=0x0035, t01=0x0042}
0x531c…5328 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0035, t01=0x0056}
0x5328…5332 Head {h00=0x0006, h01=0x0050, text=» «, t00=0x0035, t01=0x0062}
0x5332…533c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0035, t01=0x006c}
0x533c…5346 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0035, t01=0x0076}
0x5346…5370 Head {h00=0x0026, h01=0x0050, text=»* PROCESS WRITE CONTROL CHARACTER «, t00=0x0035, t01=0x0080}
0x5370…537a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0035, t01=0x00aa}
0x537a…53a8 Head {h00=0x002a, h01=0x0050, text=»* ONLY RESET MDT BIT IS TAKEN CARE OF «, t00=0x0035, t01=0x00b4}
0x53a8…53b2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0035, t01=0x00e2}
0x53b2…53bc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0035, t01=0x00ec}
0x53bc…53de Head {h00=0x001e, h01=0x0050, text=»PWCC CF A14,GDCCH GET WCC «, t00=0x0035, t01=0x00f6}
0x53de…5400 Head {h00=0x001e, h01=0x0050, text=» LC A2,TEBCDI,A2 IN EBCDIC«, t00=0x0035, t01=0x0118}
0x5400…5422 Head {h00=0x001e, h01=0x0050, text=» ST A2,WCC,TCABAS SAVE IT «, t00=0x0035, t01=0x013a}
0x5422…5436 Head {h00=0x0010, h01=0x0050, text=» ANK A2,/04 «, t00=0x0035, t01=0x015c}
0x5436…544a Head {h00=0x0010, h01=0x0050, text=» RF(Z) PWCC1«, t00=0x0035, t01=0x0170}
0x544a…5468 Head {h00=0x001a, h01=0x0050, text=» LD A2,PRINTER,TCABAS «, t00=0x0035, t01=0x0184}
0x5468…547e Head {h00=0x0012, h01=0x0050, text=» RF(NZ) PWCC1 «, t00=0x0036, t01=0x0012}
0x547e…5492 Head {h00=0x0010, h01=0x0050, text=» LDR A10,A7 «, t00=0x0036, t01=0x0028}
0x5492…54aa Head {h00=0x0014, h01=0x0050, text=» LDKL A8,ECBVDU «, t00=0x0036, t01=0x003c}
0x54aa…54c0 Head {h00=0x0012, h01=0x0050, text=» ADR A8,CREBAS«, t00=0x0036, t01=0x0054}
0x54c0…54d8 Head {h00=0x0014, h01=0x0050, text=» LD A2,ECBBA,A8 «, t00=0x0036, t01=0x006a}
0x54d8…54ec Head {h00=0x0010, h01=0x0050, text=» LDK A7,/2B «, t00=0x0036, t01=0x0082}
0x54ec…5504 Head {h00=0x0014, h01=0x0050, text=» SC A7,1,A2 =1 «, t00=0x0036, t01=0x0096}
0x5504…5520 Head {h00=0x0018, h01=0x0050, text=» LDK A7,/07 BELL =1 «, t00=0x0036, t01=0x00ae}
0x5520…5538 Head {h00=0x0014, h01=0x0050, text=» SC A7,2,A2 =1 «, t00=0x0036, t01=0x00ca}
0x5538…5550 Head {h00=0x0014, h01=0x0050, text=» SC A7,3,A2 =1 «, t00=0x0036, t01=0x00e2}
0x5550…5562 Head {h00=0x000e, h01=0x0050, text=» LDK A7,4 «, t00=0x0036, t01=0x00fa}
0x5562…557a Head {h00=0x0014, h01=0x0050, text=» ST A7,ECBRL,A8 «, t00=0x0036, t01=0x010c}
0x557a…558e Head {h00=0x0010, h01=0x0050, text=» LDK A7,/86 «, t00=0x0036, t01=0x0124}
0x558e…559a Head {h00=0x0008, h01=0x0050, text=» LKM«, t00=0x0036, t01=0x0138}
0x559a…55aa Head {h00=0x000c, h01=0x0050, text=» DATA 1 «, t00=0x0036, t01=0x0144}
0x55aa…55c6 Head {h00=0x0018, h01=0x0050, text=» LD A8,ECBDCC,TCABAS«, t00=0x0036, t01=0x0154}
0x55c6…55da Head {h00=0x0010, h01=0x0050, text=» LDR A7,A10 «, t00=0x0036, t01=0x0170}
0x55da…55ee Head {h00=0x0010, h01=0x0050, text=»PWCC1 EQU * «, t00=0x0036, t01=0x0184}
0x55ee…5608 Head {h00=0x0016, h01=0x0050, text=» LD A2,WCC,TCABAS «, t00=0x0037, t01=0x0008}
0x5608…561a Head {h00=0x000e, h01=0x0050, text=» ANK A2,1 «, t00=0x0037, t01=0x0022}
0x561a…563e Head {h00=0x0020, h01=0x0050, text=» RF(NZ) RESMDT RESET ALL MDT«, t00=0x0037, t01=0x0034}
0x563e…565e Head {h00=0x001c, h01=0x0050, text=»PWCC10 RTN A14 NO ACTION«, t00=0x0037, t01=0x0058}
0x565e…5668 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0037, t01=0x0078}
0x5668…5672 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0037, t01=0x0082}
0x5672…568e Head {h00=0x0018, h01=0x0050, text=»* RESET ALL MDT BITS«, t00=0x0037, t01=0x008c}
0x568e…5698 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0037, t01=0x00a8}
0x5698…56a2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0037, t01=0x00b2}
0x56a2…56ba Head {h00=0x0014, h01=0x0050, text=»RESMDT LDK A3,0 «, t00=0x0037, t01=0x00bc}
0x56ba…56d0 Head {h00=0x0012, h01=0x0050, text=» LDKL A4,BVDU «, t00=0x0037, t01=0x00d4}
0x56d0…56e6 Head {h00=0x0012, h01=0x0050, text=» ADR A4,TCABAS«, t00=0x0037, t01=0x00ea}
0x56e6…5702 Head {h00=0x0018, h01=0x0050, text=»RESM10 CWK A3,LBVDU «, t00=0x0037, t01=0x0100}
0x5702…5722 Head {h00=0x001c, h01=0x0050, text=» RB(NL) PWCC10 ALL DONE «, t00=0x0037, t01=0x011c}
0x5722…573e Head {h00=0x0018, h01=0x0050, text=» LCR A2,A4 GET CHAR «, t00=0x0037, t01=0x013c}
0x573e…5752 Head {h00=0x0010, h01=0x0050, text=» ANK A2,/60 «, t00=0x0037, t01=0x0158}
0x5752…5776 Head {h00=0x0020, h01=0x0050, text=» RF(NZ) RESM20 NO ATTRIBUTE «, t00=0x0037, t01=0x016c}
0x5776…5788 Head {h00=0x000e, h01=0x0050, text=» LCR A2,A4«, t00=0x0037, t01=0x0190}
0x5788…57a6 Head {h00=0x001a, h01=0x0050, text=» ANK A2,/FE RESET MDT «, t00=0x0038, t01=0x0012}
0x57a6…57b8 Head {h00=0x000e, h01=0x0050, text=» SCR A2,A4«, t00=0x0038, t01=0x0030}
0x57b8…57d0 Head {h00=0x0014, h01=0x0050, text=»RESM20 ADK A3,1 «, t00=0x0038, t01=0x0042}
0x57d0…57e2 Head {h00=0x000e, h01=0x0050, text=» ADK A4,1 «, t00=0x0038, t01=0x005a}
0x57e2…57f4 Head {h00=0x000e, h01=0x0050, text=» RB RESM10«, t00=0x0038, t01=0x006c}
0x57f4…57fe Head {h00=0x0006, h01=0x0050, text=» «, t00=0x0038, t01=0x007e}
0x57fe…5808 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0038, t01=0x0088}
0x5808…5812 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0038, t01=0x0092}
0x5812…5830 Head {h00=0x001a, h01=0x0050, text=»* ERASE ENTIRE SCREEN «, t00=0x0038, t01=0x009c}
0x5830…583a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0038, t01=0x00ba}
0x583a…5844 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0038, t01=0x00c4}
0x5844…585a Head {h00=0x0012, h01=0x0050, text=»ERASE LDK A3,0«, t00=0x0038, t01=0x00ce}
0x585a…5870 Head {h00=0x0012, h01=0x0050, text=» LDKL A4,BVDU «, t00=0x0038, t01=0x00e4}
0x5870…5886 Head {h00=0x0012, h01=0x0050, text=» ADR A4,TCABAS«, t00=0x0038, t01=0x00fa}
0x5886…589a Head {h00=0x0010, h01=0x0050, text=» LDK A2,NULL«, t00=0x0038, t01=0x0110}
0x589a…58b6 Head {h00=0x0018, h01=0x0050, text=»ERAS20 CWK A3,LBVDU «, t00=0x0038, t01=0x0124}
0x58b6…58d8 Head {h00=0x001e, h01=0x0050, text=» RF(NL) ERAS25 ALL ERASED «, t00=0x0038, t01=0x0140}
0x58d8…58ea Head {h00=0x000e, h01=0x0050, text=» SCR A2,A4«, t00=0x0038, t01=0x0162}
0x58ea…58fc Head {h00=0x000e, h01=0x0050, text=» ADK A3,1 «, t00=0x0038, t01=0x0174}
0x58fc…590e Head {h00=0x000e, h01=0x0050, text=» ADK A4,1 «, t00=0x0038, t01=0x0186}
0x590e…5920 Head {h00=0x000e, h01=0x0050, text=» RB ERAS20«, t00=0x0039, t01=0x0008}
0x5920…5950 Head {h00=0x002c, h01=0x0050, text=»ERAS25 CM PCURS,TCABAS RESET CURSOR POS «, t00=0x0039, t01=0x001a}
0x5950…5968 Head {h00=0x0014, h01=0x0050, text=» LDKL A1,LBVDU+1«, t00=0x0039, t01=0x004a}
0x5968…599c Head {h00=0x0030, h01=0x0050, text=» ST A1,CURATT,TCABAS INDICATE UNFORM. SCREEN«, t00=0x0039, t01=0x0062}
0x599c…59b6 Head {h00=0x0016, h01=0x0050, text=» CM ATTRIB,TCABAS «, t00=0x0039, t01=0x0096}
0x59b6…59e6 Head {h00=0x002c, h01=0x0050, text=» LD A1,PRINTER,TCABAS CHECK DEVISE TYPE «, t00=0x0039, t01=0x00b0}
0x59e6…5a12 Head {h00=0x0028, h01=0x0050, text=» RF(NZ) ERAEND PRINTER, NOT DISPLAY «, t00=0x0039, t01=0x00e0}
0x5a12…5a3e Head {h00=0x0028, h01=0x0050, text=» STR A7,A14 SAVE A7 AND A8 ON STACK «, t00=0x0039, t01=0x010c}
0x5a3e…5a54 Head {h00=0x0012, h01=0x0050, text=» ST A8,-2,A14 «, t00=0x0039, t01=0x0138}
0x5a54…5a6c Head {h00=0x0014, h01=0x0050, text=» LDKL A8,ECBVDU «, t00=0x0039, t01=0x014e}
0x5a6c…5a8a Head {h00=0x001a, h01=0x0050, text=» ADR A8,CREBAS VDUECB «, t00=0x0039, t01=0x0166}
0x5a8a…5ab0 Head {h00=0x0022, h01=0x0050, text=» LDK A7,'1' ERASE CONTROL CHAR«, t00=0x0039, t01=0x0184}
0x5ab0…5acc Head {h00=0x0018, h01=0x0050, text=» LD A1,ECBBA,A8 =1 «, t00=0x003a, t01=0x001a}
0x5acc…5ae4 Head {h00=0x0014, h01=0x0050, text=» SC A7,1,A1 =1 «, t00=0x003a, t01=0x0036}
0x5ae4…5af6 Head {h00=0x000e, h01=0x0050, text=» LDK A7,2 «, t00=0x003a, t01=0x004e}
0x5af6…5b1c Head {h00=0x0022, h01=0x0050, text=» ST A7,ECBRL,A8 REQ LENGTH = 2«, t00=0x003a, t01=0x0060}
0x5b1c…5b36 Head {h00=0x0016, h01=0x0050, text=» LDK A7,/86 WRITE «, t00=0x003a, t01=0x0086}
0x5b36…5b42 Head {h00=0x0008, h01=0x0050, text=» LKM«, t00=0x003a, t01=0x00a0}
0x5b42…5b52 Head {h00=0x000c, h01=0x0050, text=» DATA 1 «, t00=0x003a, t01=0x00ac}
0x5b52…5b68 Head {h00=0x0012, h01=0x0050, text=» LD A8,-2,A14 «, t00=0x003a, t01=0x00bc}
0x5b68…5b8e Head {h00=0x0022, h01=0x0050, text=» LDR* A7,A14 RESTORE A7 AND A8«, t00=0x003a, t01=0x00d2}
0x5b8e…5ba4 Head {h00=0x0012, h01=0x0050, text=»ERAEND RTN A14«, t00=0x003a, t01=0x00f8}
0x5ba4…5bae Head {h00=0x0006, h01=0x0050, text=» «, t00=0x003a, t01=0x010e}
0x5bae…5bb8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003a, t01=0x0118}
0x5bb8…5bc2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003a, t01=0x0122}
0x5bc2…5be2 Head {h00=0x001c, h01=0x0050, text=»* ERASE ALL UNPROTECTED «, t00=0x003a, t01=0x012c}
0x5be2…5bec Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003a, t01=0x014c}
0x5bec…5bf6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003a, t01=0x0156}
0x5bf6…5c0e Head {h00=0x0014, h01=0x0050, text=»ERASUP LDK A2,2 «, t00=0x003a, t01=0x0160}
0x5c0e…5c40 Head {h00=0x002e, h01=0x0050, text=» ST A2,WCC,TCABAS SET KEYBOARD RESTORE BIT«, t00=0x003a, t01=0x0178}
0x5c40…5c76 Head {h00=0x0032, h01=0x0050, text=» SUR A1,A1 INDICATE ATT IN LAST SCREEN POS DK «, t00=0x003b, t01=0x001a}
0x5c76…5c88 Head {h00=0x000e, h01=0x0050, text=» LDK A3,0 «, t00=0x003b, t01=0x0050}
0x5c88…5c9e Head {h00=0x0012, h01=0x0050, text=» LDKL A4,BVDU «, t00=0x003b, t01=0x0062}
0x5c9e…5cb4 Head {h00=0x0012, h01=0x0050, text=» ADR A4,TCABAS«, t00=0x003b, t01=0x0078}
0x5cb4…5ce8 Head {h00=0x0030, h01=0x0050, text=» CM PCURS,TCABAS FIND FIRST UNPROTECTED POS «, t00=0x003b, t01=0x008e}
0x5ce8…5d18 Head {h00=0x002c, h01=0x0050, text=» LC A2,1919,A4 GET LAST SCREEN CHARACTER«, t00=0x003b, t01=0x00c2}
0x5d18…5d2c Head {h00=0x0010, h01=0x0050, text=» ANK A2,/7F «, t00=0x003b, t01=0x00f2}
0x5d2c…5d4e Head {h00=0x001e, h01=0x0050, text=» CWK A2,/20 ATTRIBUTE ??? «, t00=0x003b, t01=0x0106}
0x5d4e…5d76 Head {h00=0x0024, h01=0x0050, text=» RF(L) ERU:01 YES!! WE GOT IT!! «, t00=0x003b, t01=0x0128}
0x5d76…5daa Head {h00=0x0030, h01=0x0050, text=» LDK A1,1 ATTRIBUTE NOT IN LAST SCREEN POS. «, t00=0x003b, t01=0x0150}
0x5daa…5dc6 Head {h00=0x0018, h01=0x0050, text=»ERASU1 CWK A3,LBVDU «, t00=0x003b, t01=0x0184}
0x5dc6…5ddc Head {h00=0x0012, h01=0x0050, text=» RF(NL) ERASU2«, t00=0x003c, t01=0x0010}
0x5ddc…5df8 Head {h00=0x0018, h01=0x0050, text=» LCR A2,A4 GET CHAR «, t00=0x003c, t01=0x0026}
0x5df8…5e0c Head {h00=0x0010, h01=0x0050, text=» ANK A2,/7F «, t00=0x003c, t01=0x0042}
0x5e0c…5e1e Head {h00=0x000e, h01=0x0050, text=» ADK A3,1 «, t00=0x003c, t01=0x0056}
0x5e1e…5e30 Head {h00=0x000e, h01=0x0050, text=» ADK A4,1 «, t00=0x003c, t01=0x0068}
0x5e30…5e44 Head {h00=0x0010, h01=0x0050, text=» CWK A2,/20 «, t00=0x003c, t01=0x007a}
0x5e44…5e68 Head {h00=0x0020, h01=0x0050, text=» RB(NL) ERASU1 NO ATTRIBUTE «, t00=0x003c, t01=0x008e}
0x5e68…5e7c Head {h00=0x0010, h01=0x0050, text=»ERU:01 EQU *«, t00=0x003c, t01=0x00b2}
0x5e7c…5e90 Head {h00=0x0010, h01=0x0050, text=» ANK A2,/10 «, t00=0x003c, t01=0x00c6}
0x5e90…5eb0 Head {h00=0x001c, h01=0x0050, text=» RB(NZ) ERASU1 PROTECTED«, t00=0x003c, t01=0x00da}
0x5eb0…5ede Head {h00=0x002a, h01=0x0050, text=» ST A3,PCURS,TCABAS SET NEW CURSOR POS«, t00=0x003c, t01=0x00fa}
0x5ede…5ef0 Head {h00=0x000e, h01=0x0050, text=» LDR A1,A1«, t00=0x003c, t01=0x0128}
0x5ef0…5f24 Head {h00=0x0030, h01=0x0050, text=» RF(Z) ERASU3 ATTRIBUTE IN LAST SCREEN POS. «, t00=0x003c, t01=0x013a}
0x5f24…5f3c Head {h00=0x0014, h01=0x0050, text=»ERASU2 LDK A3,0 «, t00=0x003c, t01=0x016e}
0x5f3c…5f52 Head {h00=0x0012, h01=0x0050, text=» LDKL A4,BVDU «, t00=0x003c, t01=0x0186}
0x5f52…5f68 Head {h00=0x0012, h01=0x0050, text=» ADR A4,TCABAS«, t00=0x003d, t01=0x000c}
0x5f68…5f7a Head {h00=0x000e, h01=0x0050, text=» RF ERASU4«, t00=0x003d, t01=0x0022}
0x5f7a…5f8e Head {h00=0x0010, h01=0x0050, text=»ERASU3 EQU *«, t00=0x003d, t01=0x0034}
0x5f8e…5fa0 Head {h00=0x000e, h01=0x0050, text=» LDR A3,A3«, t00=0x003d, t01=0x0048}
0x5fa0…5fda Head {h00=0x0036, h01=0x0050, text=» RF(Z) ERASU4 UNPROTECTED ATT. IN LAST SCREEN POS.«, t00=0x003d, t01=0x005a}
0x5fda…6002 Head {h00=0x0024, h01=0x0050, text=» SUK A3,1 GET BACK TO ATTRIBUTE «, t00=0x003d, t01=0x0094}
0x6002…6020 Head {h00=0x001a, h01=0x0050, text=» SUK A4,1 - " -«, t00=0x003d, t01=0x00bc}
0x6020…6034 Head {h00=0x0010, h01=0x0050, text=»ERASU4 EQU *«, t00=0x003d, t01=0x00da}
0x6034…605a Head {h00=0x0022, h01=0x0050, text=» LDKL A1,/0F00 (LDK A1,0) DK3 «, t00=0x003d, t01=0x00ee}
0x605a…607e Head {h00=0x0020, h01=0x0050, text=» LDK A6,NULL+/80 ERASE CHAR «, t00=0x003d, t01=0x0114}
0x607e…6090 Head {h00=0x000e, h01=0x0050, text=» RF ERAS35«, t00=0x003d, t01=0x0138}
0x6090…609e Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x003d, t01=0x014a}
0x609e…60a8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003d, t01=0x0158}
0x60a8…60b2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003d, t01=0x0162}
0x60b2…60e4 Head {h00=0x002e, h01=0x0050, text=»* ERASE UNPROTECTED TO ADDRESS GIVEN IN A1«, t00=0x003d, t01=0x016c}
0x60e4…60ee Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003e, t01=0x000e}
0x60ee…60f8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003e, t01=0x0018}
0x60f8…6126 Head {h00=0x002a, h01=0x0050, text=»ERASUA LDK A6,NULL+/80 ERASE CHARACTER«, t00=0x003e, t01=0x0022}
0x6126…614e Head {h00=0x0024, h01=0x0050, text=» ******************* 78-09-11 «, t00=0x003e, t01=0x0050}
0x614e…6174 Head {h00=0x0022, h01=0x0050, text=» CWK A3,LBVDU WRAP AROUND ??? «, t00=0x003e, t01=0x0078}
0x6174…618e Head {h00=0x0016, h01=0x0050, text=» RF(L) ERAS:1 NO!!«, t00=0x003e, t01=0x009e}
0x618e…61ac Head {h00=0x001a, h01=0x0050, text=» LDK A3,0 BUFFERINDEX «, t00=0x003e, t01=0x00b8}
0x61ac…61c2 Head {h00=0x0012, h01=0x0050, text=» LDKL A4,BVDU «, t00=0x003e, t01=0x00d6}
0x61c2…61f2 Head {h00=0x002c, h01=0x0050, text=» ADR A4,TCABAS ABSOLUTE BUFFER ADDRESS «, t00=0x003e, t01=0x00ec}
0x61f2…61fa Head {h00=0x0004, h01=0x0050, t00=0x003e, t01=0x011c}
0x61fa…6236 Head {h00=0x0038, h01=0x0050, text=»ERAS:1 LDR A3,A3 START IN FIRST SCREEN POSITION ??? «, t00=0x003e, t01=0x0124}
0x6236…6252 Head {h00=0x0018, h01=0x0050, text=» RF(NZ) ERAS35 NO!! «, t00=0x003e, t01=0x0160}
0x6252…627e Head {h00=0x0028, h01=0x0050, text=» LC A2,1919,A4 LAST BUFFER CHARACTER«, t00=0x003e, t01=0x017c}
0x627e…6292 Head {h00=0x0010, h01=0x0050, text=» ANK A2,/7F «, t00=0x003f, t01=0x0018}
0x6292…62be Head {h00=0x0028, h01=0x0050, text=» CWK A2,/20 ATTRIBUTE CHARACTER ??? «, t00=0x003f, t01=0x002c}
0x62be…62da Head {h00=0x0018, h01=0x0050, text=» RF(NL) ERAS35 NO!!!«, t00=0x003f, t01=0x0058}
0x62da…62ee Head {h00=0x0010, h01=0x0050, text=» ANK A2,/10 «, t00=0x003f, t01=0x0074}
0x62ee…6314 Head {h00=0x0022, h01=0x0050, text=» RF(NZ) ERAS70 PROTECTED FIELD«, t00=0x003f, t01=0x0088}
0x6314…6330 Head {h00=0x0018, h01=0x0050, text=»* LC A2,1919,A4 DK3«, t00=0x003f, t01=0x00ae}
0x6330…634a Head {h00=0x0016, h01=0x0050, text=»* ANK A2,/FE DK3 «, t00=0x003f, t01=0x00ca}
0x634a…6374 Head {h00=0x0026, h01=0x0050, text=»* SC A2,1919,A4 RESET MDT BIT DK3 «, t00=0x003f, t01=0x00e4}
0x6374…6386 Head {h00=0x000e, h01=0x0050, text=» RF ERAS35«, t00=0x003f, t01=0x010e}
0x6386…63ae Head {h00=0x0024, h01=0x0050, text=» ******************** 78-09-11«, t00=0x003f, t01=0x0120}
0x63ae…63ca Head {h00=0x0018, h01=0x0050, text=»ERAS30 CWK A3,LBVDU «, t00=0x003f, t01=0x0148}
0x63ca…63f2 Head {h00=0x0024, h01=0x0050, text=» RF(L) ERAS33 NOT END OF SCREEN «, t00=0x003f, t01=0x0164}
0x63f2…6404 Head {h00=0x000e, h01=0x0050, text=» LDK A3,0 «, t00=0x003f, t01=0x018c}
0x6404…6426 Head {h00=0x001e, h01=0x0050, text=» LDKL A4,BVDU WRAP AROUND «, t00=0x0040, t01=0x000e}
0x6426…643c Head {h00=0x0012, h01=0x0050, text=» ADR A4,TCABAS«, t00=0x0040, t01=0x0030}
0x643c…6450 Head {h00=0x0010, h01=0x0050, text=»ERAS33 EQU *«, t00=0x0040, t01=0x0046}
0x6450…6476 Head {h00=0x0022, h01=0x0050, text=» CWK A1,/0F00 EUA COMMAND? DK3«, t00=0x0040, t01=0x005a}
0x6476…649e Head {h00=0x0024, h01=0x0050, text=» RF(L) ERAS34 NO, EUA ORDER DK3 «, t00=0x0040, t01=0x0080}
0x649e…64ca Head {h00=0x0028, h01=0x0050, text=» CWK A3,0 FINISHED EUA COMMAND? DK3 «, t00=0x0040, t01=0x00a8}
0x64ca…64f2 Head {h00=0x0024, h01=0x0050, text=» RF(NZ) ERAS35 NO, CONTINUE DK3 «, t00=0x0040, t01=0x00d4}
0x64f2…6514 Head {h00=0x001e, h01=0x0050, text=» LDK A1,0 YES FINISHED DK3«, t00=0x0040, t01=0x00fc}
0x6514…652c Head {h00=0x0014, h01=0x0050, text=» RB ERAEND DK3 «, t00=0x0040, t01=0x011e}
0x652c…6546 Head {h00=0x0016, h01=0x0050, text=»ERAS34 EQU * DK3 «, t00=0x0040, t01=0x0136}
0x6546…6558 Head {h00=0x000e, h01=0x0050, text=» CWR A3,A1«, t00=0x0040, t01=0x0150}
0x6558…6584 Head {h00=0x0028, h01=0x0050, text=» RB(E) ERAEND ALL UNPROTECTED ERASED«, t00=0x0040, t01=0x0162}
0x6584…65b6 Head {h00=0x002e, h01=0x0050, text=»ERAS35 LCR A2,A4 GET CHAR FROM VDU BUFFER «, t00=0x0040, t01=0x018e}
0x65b6…65ca Head {h00=0x0010, h01=0x0050, text=» ANK A2,/7F «, t00=0x0041, t01=0x0030}
0x65ca…65de Head {h00=0x0010, h01=0x0050, text=» CWK A2,/20 «, t00=0x0041, t01=0x0044}
0x65de…6602 Head {h00=0x0020, h01=0x0050, text=» RF(L) ERAS50 ATTRIBUTE CHAR«, t00=0x0041, t01=0x0058}
0x6602…6616 Head {h00=0x0010, h01=0x0050, text=» XRK A2,NULL«, t00=0x0041, t01=0x007c}
0x6616…6638 Head {h00=0x001e, h01=0x0050, text=» RF(Z) ERAS40 ALREADY NULL«, t00=0x0041, t01=0x0090}
0x6638…665e Head {h00=0x0022, h01=0x0050, text=» SCR A6,A4 STORE MODIFIED NULL«, t00=0x0041, t01=0x00b2}
0x665e…6676 Head {h00=0x0014, h01=0x0050, text=»ERAS40 ADK A3,1 «, t00=0x0041, t01=0x00d8}
0x6676…6688 Head {h00=0x000e, h01=0x0050, text=» ADK A4,1 «, t00=0x0041, t01=0x00f0}
0x6688…669a Head {h00=0x000e, h01=0x0050, text=» RB ERAS30«, t00=0x0041, t01=0x0102}
0x669a…66b2 Head {h00=0x0014, h01=0x0050, text=»ERAS50 ADK A3,1 «, t00=0x0041, t01=0x0114}
0x66b2…66c4 Head {h00=0x000e, h01=0x0050, text=» ADK A4,1 «, t00=0x0041, t01=0x012c}
0x66c4…66d8 Head {h00=0x0010, h01=0x0050, text=» ANK A2,/10 «, t00=0x0041, t01=0x013e}
0x66d8…66fe Head {h00=0x0022, h01=0x0050, text=» RF(NZ) ERAS60 PROTECTED FIELD«, t00=0x0041, t01=0x0152}
0x66fe…6724 Head {h00=0x0022, h01=0x0050, text=» CWK A1,/0F00 EUA COMMAND? DK3«, t00=0x0041, t01=0x0178}
0x6724…6740 Head {h00=0x0018, h01=0x0050, text=» RB(L) ERAS30 NO DK3«, t00=0x0042, t01=0x000e}
0x6740…676a Head {h00=0x0026, h01=0x0050, text=»* EUA COMMAND: RESET MDT BIT DK3 «, t00=0x0042, t01=0x002a}
0x676a…677e Head {h00=0x0010, h01=0x0050, text=» LC A2,-1,A4«, t00=0x0042, t01=0x0054}
0x677e…67a0 Head {h00=0x001e, h01=0x0050, text=» ANK A2,/FE RESET MDT BIT «, t00=0x0042, t01=0x0068}
0x67a0…67b4 Head {h00=0x0010, h01=0x0050, text=» SC A2,-1,A4«, t00=0x0042, t01=0x008a}
0x67b4…67c6 Head {h00=0x000e, h01=0x0050, text=» RB ERAS30«, t00=0x0042, t01=0x009e}
0x67c6…67e2 Head {h00=0x0018, h01=0x0050, text=»ERAS60 CWK A3,LBVDU «, t00=0x0042, t01=0x00b0}
0x67e2…67f8 Head {h00=0x0012, h01=0x0050, text=» RF(L) ERAS65 «, t00=0x0042, t01=0x00cc}
0x67f8…680a Head {h00=0x000e, h01=0x0050, text=» LDK A3,0 «, t00=0x0042, t01=0x00e2}
0x680a…682c Head {h00=0x001e, h01=0x0050, text=» LDKL A4,BVDU WRAP AROUND «, t00=0x0042, t01=0x00f4}
0x682c…6842 Head {h00=0x0012, h01=0x0050, text=» ADR A4,TCABAS«, t00=0x0042, t01=0x0116}
0x6842…6856 Head {h00=0x0010, h01=0x0050, text=»ERAS65 EQU *«, t00=0x0042, t01=0x012c}
0x6856…687c Head {h00=0x0022, h01=0x0050, text=» CWK A1,/0F00 EUA COMMAND? DK3«, t00=0x0042, t01=0x0140}
0x687c…68a4 Head {h00=0x0024, h01=0x0050, text=» RF(L) ERAS67 NO, EUA ORDER DK3 «, t00=0x0042, t01=0x0166}
0x68a4…68d0 Head {h00=0x0028, h01=0x0050, text=» CWK A3,0 FINISHED EUA COMMAND? DK3 «, t00=0x0042, t01=0x018e}
0x68d0…68f6 Head {h00=0x0022, h01=0x0050, text=» RF(NZ) ERAS70 NO,CONTINUE DK3«, t00=0x0043, t01=0x002a}
0x68f6…691a Head {h00=0x0020, h01=0x0050, text=» LDK A1,0 YYES, FINSHED DK3 «, t00=0x0043, t01=0x0050}
0x691a…6932 Head {h00=0x0014, h01=0x0050, text=» RB ERAEND DK3 «, t00=0x0043, t01=0x0074}
0x6932…694c Head {h00=0x0016, h01=0x0050, text=»ERAS67 EQU * DK3 «, t00=0x0043, t01=0x008c}
0x694c…695e Head {h00=0x000e, h01=0x0050, text=» CWR A3,A1«, t00=0x0043, t01=0x00a6}
0x695e…698a Head {h00=0x0028, h01=0x0050, text=» RB(E) ERAEND ALL UNPROTECTED ERASED«, t00=0x0043, t01=0x00b8}
0x698a…699e Head {h00=0x0010, h01=0x0050, text=»ERAS70 EQU *«, t00=0x0043, t01=0x00e4}
0x699e…69b0 Head {h00=0x000e, h01=0x0050, text=» LCR A2,A4«, t00=0x0043, t01=0x00f8}
0x69b0…69c4 Head {h00=0x0010, h01=0x0050, text=» ANK A2,/7F «, t00=0x0043, t01=0x010a}
0x69c4…69d8 Head {h00=0x0010, h01=0x0050, text=» CWK A2,/20 «, t00=0x0043, t01=0x011e}
0x69d8…69fe Head {h00=0x0022, h01=0x0050, text=» RB(L) ERAS50 ATTRIBUTE FOUND «, t00=0x0043, t01=0x0132}
0x69fe…6a10 Head {h00=0x000e, h01=0x0050, text=» ADK A3,1 «, t00=0x0043, t01=0x0158}
0x6a10…6a22 Head {h00=0x000e, h01=0x0050, text=» ADK A4,1 «, t00=0x0043, t01=0x016a}
0x6a22…6a34 Head {h00=0x000e, h01=0x0050, text=» RB ERAS60«, t00=0x0043, t01=0x017c}
0x6a34…6a3e Head {h00=0x0006, h01=0x0050, text=» «, t00=0x0043, t01=0x018e}
0x6a3e…6a48 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0044, t01=0x0008}
0x6a48…6a52 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0044, t01=0x0012}
0x6a52…6a76 Head {h00=0x0020, h01=0x0050, text=»* TRANSMIT PROGRAM ATTENTION«, t00=0x0044, t01=0x001c}
0x6a76…6a80 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0044, t01=0x0040}
0x6a80…6a90 Head {h00=0x000c, h01=0x0050, text=»* A2=AID«, t00=0x0044, t01=0x004a}
0x6a90…6a9a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0044, t01=0x005a}
0x6a9a…6aa4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0044, t01=0x0064}
0x6aa4…6ad2 Head {h00=0x002a, h01=0x0050, text=»TRPA CF A14,GTWBUF GET TRANSMIT BUFFER«, t00=0x0044, t01=0x006e}
0x6ad2…6af6 Head {h00=0x0020, h01=0x0050, text=»TRPA10 CF A14,PAID STORE AID«, t00=0x0044, t01=0x009c}
0x6af6…6b0a Head {h00=0x0010, h01=0x0050, text=»TRANS EQU * «, t00=0x0044, t01=0x00c0}
0x6b0a…6b2e Head {h00=0x0020, h01=0x0050, text=» CF A14,DCWRTE WRITE MESSAGE«, t00=0x0044, t01=0x00d4}
0x6b2e…6b42 Head {h00=0x0010, h01=0x0050, text=»TR050 EQU * «, t00=0x0044, t01=0x00f8}
0x6b42…6b68 Head {h00=0x0022, h01=0x0050, text=» RTN A14 TRANSMISSION TROUBLE «, t00=0x0044, t01=0x010c}
0x6b68…6b7e Head {h00=0x0012, h01=0x0050, text=»TRRTN RTN A14 «, t00=0x0044, t01=0x0132}
0x6b7e…6b88 Head {h00=0x0006, h01=0x0050, text=» «, t00=0x0044, t01=0x0148}
0x6b88…6b92 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0044, t01=0x0152}
0x6b92…6b9c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0044, t01=0x015c}
0x6b9c…6bc0 Head {h00=0x0020, h01=0x0050, text=»* TRANSMIT PROGRAM FUNCTION «, t00=0x0044, t01=0x0166}
0x6bc0…6bca Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0044, t01=0x018a}
0x6bca…6bda (69, 0, 400) Head {h00=0x000c, h01=0x0050, text=»* A2=AID«, t00=0x0045, t01=0x0004}
0x6bda…6be4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0045, t01=0x0014}
0x6be4…6bee Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0045, t01=0x001e}
0x6bee…6c1c Head {h00=0x002a, h01=0x0050, text=»TRPF CF A14,GTWBUF GET TRANSMIT BUFFER«, t00=0x0045, t01=0x0028}
0x6c1c…6c40 Head {h00=0x0020, h01=0x0050, text=»TRPF10 CF A14,PAID STORE AID«, t00=0x0045, t01=0x0056}
0x6c40…6c6a Head {h00=0x0026, h01=0x0050, text=» CF A14,CURSA STORE CURSOR ADDRESS«, t00=0x0045, t01=0x007a}
0x6c6a…6c8e Head {h00=0x0020, h01=0x0050, text=» CF A14,RDMOD READ MODIFIED «, t00=0x0045, t01=0x00a4}
0x6c8e…6cb4 Head {h00=0x0022, h01=0x0050, text=» RB TRANS SEND MODIFIED FIELDS«, t00=0x0045, t01=0x00c8}
0x6cb4…6cbe Head {h00=0x0006, h01=0x0050, text=» «, t00=0x0045, t01=0x00ee}
0x6cbe…6cc8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0045, t01=0x00f8}
0x6cc8…6cd2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0045, t01=0x0102}
0x6cd2…6cfa Head {h00=0x0024, h01=0x0050, text=»* DISPLAY MODIFIED FIELDS ON VDU«, t00=0x0045, t01=0x010c}
0x6cfa…6d04 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0045, t01=0x0134}
0x6d04…6d0e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0045, t01=0x013e}
0x6d0e…6d28 Head {h00=0x0016, h01=0x0050, text=»* A3=VDU POSITION «, t00=0x0045, t01=0x0148}
0x6d28…6d46 Head {h00=0x001a, h01=0x0050, text=»* A4=VDU IMAGE POINTER«, t00=0x0045, t01=0x0162}
0x6d46…6d66 Head {h00=0x001c, h01=0x0050, text=»* A5=MODIFIED INDICATOR «, t00=0x0045, t01=0x0180}
0x6d66…6d8a Head {h00=0x0020, h01=0x0050, text=»* A7=VDU LINE OUTPUT POINTER«, t00=0x0046, t01=0x0010}
0x6d8a…6d9e Head {h00=0x0010, h01=0x0050, text=»* A8=VDU ECB«, t00=0x0046, t01=0x0034}
0x6d9e…6dc2 Head {h00=0x0020, h01=0x0050, text=»* A9=VDU OUTPUT CHAR COUNTER«, t00=0x0046, t01=0x0048}
0x6dc2…6dcc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0046, t01=0x006c}
0x6dcc…6dd6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0046, t01=0x0076}
0x6dd6…6df2 Head {h00=0x0018, h01=0x0050, text=»DISPL LDKL A8,ECBVDU«, t00=0x0046, t01=0x0080}
0x6df2…6e08 Head {h00=0x0012, h01=0x0050, text=» ADR A8,CREBAS«, t00=0x0046, t01=0x009c}
0x6e08…6e36 Head {h00=0x002a, h01=0x0050, text=» LDKL A1,/101 START FROM LINE 1 POS 1 «, t00=0x0046, t01=0x00b2}
0x6e36…6e4e Head {h00=0x0014, h01=0x0050, text=» ST A1,ECBCW,A8 «, t00=0x0046, t01=0x00e0}
0x6e4e…6e8a Head {h00=0x0038, h01=0x0050, text=» SUR A10,A10 RESET COUNT FOR INTENSIFIED DISPLAYING «, t00=0x0046, t01=0x00f8}
0x6e8a…6e9c Head {h00=0x000e, h01=0x0050, text=» LDK A3,0 «, t00=0x0046, t01=0x0134}
0x6e9c…6eb2 Head {h00=0x0012, h01=0x0050, text=» LDKL A4,BVDU «, t00=0x0046, t01=0x0146}
0x6eb2…6ec8 Head {h00=0x0012, h01=0x0050, text=» ADR A4,TCABAS«, t00=0x0046, t01=0x015c}
0x6ec8…6ef8 Head {h00=0x002c, h01=0x0050, text=» CF A14,SPACES PUT SPACES IN LINE BUFFER«, t00=0x0046, t01=0x0172}
0x6ef8…6f32 Head {h00=0x0036, h01=0x0050, text=» LC A2,1919,A4 CHECK IF ATTRIBUTE IN LAST POSITION«, t00=0x0047, t01=0x0012}
0x6f32…6f46 Head {h00=0x0010, h01=0x0050, text=» ANK A2,/7F «, t00=0x0047, t01=0x004c}
0x6f46…6f68 Head {h00=0x001e, h01=0x0050, text=» CWK A2,/1F ATTRIBUTE ??? «, t00=0x0047, t01=0x0060}
0x6f68…6f84 Head {h00=0x0018, h01=0x0050, text=» RF(G) DIS100 NO!!! «, t00=0x0047, t01=0x0082}
0x6f84…6f8c Head {h00=0x0004, h01=0x0050, t00=0x0047, t01=0x009e}
0x6f8c…6f9e Head {h00=0x000e, h01=0x0050, text=» ANK A2,6 «, t00=0x0047, t01=0x00a6}
0x6f9e…6fb0 Head {h00=0x000e, h01=0x0050, text=» XRK A2,6 «, t00=0x0047, t01=0x00b8}
0x6fb0…6ff2 Head {h00=0x003e, h01=0x0050, text=» ST A2,INTATT,TCABAS CHECK DISPLAY/NONDISPLAY INFORMATION «, t00=0x0047, t01=0x00ca}
0x6ff2…7014 Head {h00=0x001e, h01=0x0050, text=» RF(Z) DIS210 NON DISPLAY «, t00=0x0047, t01=0x010c}
0x7014…704c Head {h00=0x0034, h01=0x0050, text=» CF A14,INTCHK INSERT HIGH/LOW INTENS. IN BUFFER«, t00=0x0047, t01=0x012e}
0x704c…7060 Head {h00=0x0010, h01=0x0050, text=»DIS100 EQU *«, t00=0x0047, t01=0x0166}
0x7060…7076 Head {h00=0x0012, h01=0x0050, text=» CWK A9,LLINE «, t00=0x0047, t01=0x017a}
0x7076…709c Head {h00=0x0022, h01=0x0050, text=» RF(L) DIS110 NOT END OF LINE «, t00=0x0047, t01=0x0190}
0x709c…70c4 Head {h00=0x0024, h01=0x0050, text=» CF A14,DISLIN DISPLAY THIS LINE«, t00=0x0048, t01=0x0026}
0x70c4…70f6 Head {h00=0x002e, h01=0x0050, text=» CF A14,INTCHK CHECK IF LOW/HIGH INTENSITY«, t00=0x0048, t01=0x004e}
0x70f6…710a Head {h00=0x0010, h01=0x0050, text=»DIS110 EQU *«, t00=0x0048, t01=0x0080}
0x710a…7120 Head {h00=0x0012, h01=0x0050, text=» CWK A3,LBVDU «, t00=0x0048, t01=0x0094}
0x7120…7142 Head {h00=0x001e, h01=0x0050, text=» RF(NL) DIS900 ALL SCANNED«, t00=0x0048, t01=0x00aa}
0x7142…715e Head {h00=0x0018, h01=0x0050, text=» LCR A2,A4 GET CHAR «, t00=0x0048, t01=0x00cc}
0x715e…7166 Head {h00=0x0004, h01=0x0050, t00=0x0048, t01=0x00e8}
0x7166…718c Head {h00=0x0022, h01=0x0050, text=» CF A14,SET:M SET MODIFIED BIT«, t00=0x0048, t01=0x00f0}
0x718c…7194 Head {h00=0x0004, h01=0x0050, t00=0x0048, t01=0x0116}
0x7194…71a8 Head {h00=0x0010, h01=0x0050, text=»DIS115 EQU *«, t00=0x0048, t01=0x011e}
0x71a8…71ce Head {h00=0x0022, h01=0x0050, text=» ANK A2,/7F RESET DISPLAY BIT «, t00=0x0048, t01=0x0132}
0x71ce…71e0 Head {h00=0x000e, h01=0x0050, text=» SCR A2,A4«, t00=0x0048, t01=0x0158}
0x71e0…71f2 Head {h00=0x000e, h01=0x0050, text=» ADK A3,1 «, t00=0x0048, t01=0x016a}
0x71f2…7204 Head {h00=0x000e, h01=0x0050, text=» ADK A4,1 «, t00=0x0048, t01=0x017c}
0x7204…7216 Head {h00=0x000e, h01=0x0050, text=» ADK A7,1 «, t00=0x0048, t01=0x018e}
0x7216…7228 Head {h00=0x000e, h01=0x0050, text=» ADKL A9,1«, t00=0x0049, t01=0x0010}
0x7228…723c Head {h00=0x0010, h01=0x0050, text=» CWK A2,/20 «, t00=0x0049, t01=0x0022}
0x723c…7260 Head {h00=0x0020, h01=0x0050, text=» RF(L) DIS200 ATTRIBUTE CHAR«, t00=0x0049, t01=0x0036}
0x7260…7274 Head {h00=0x0010, h01=0x0050, text=» CWK A2,NULL«, t00=0x0049, t01=0x005a}
0x7274…72a6 Head {h00=0x002e, h01=0x0050, text=» RB(E) DIS100 NULL EQUALS SPACE AT DISPLAY«, t00=0x0049, t01=0x006e}
0x72a6…72ba Head {h00=0x0010, h01=0x0050, text=» CWK A2,/7D «, t00=0x0049, t01=0x00a0}
0x72ba…72d0 Head {h00=0x0012, h01=0x0050, text=» RF(NE) DIS120«, t00=0x0049, t01=0x00b4}
0x72d0…72e4 Head {h00=0x0010, h01=0x0050, text=» LDK A2,/39 «, t00=0x0049, t01=0x00ca}
0x72e4…72fe Head {h00=0x0016, h01=0x0050, text=»DIS120 CWK A2,/7E «, t00=0x0049, t01=0x00de}
0x72fe…7314 Head {h00=0x0012, h01=0x0050, text=» RF(NE) DIS121«, t00=0x0049, t01=0x00f8}
0x7314…7328 Head {h00=0x0010, h01=0x0050, text=» LDK A2,/35 «, t00=0x0049, t01=0x010e}
0x7328…7342 Head {h00=0x0016, h01=0x0050, text=»DIS121 CWK A2,/7C «, t00=0x0049, t01=0x0122}
0x7342…7358 Head {h00=0x0012, h01=0x0050, text=» RF(NE) DIS122«, t00=0x0049, t01=0x013c}
0x7358…736c Head {h00=0x0010, h01=0x0050, text=» LDK A2,/3C «, t00=0x0049, t01=0x0152}
0x736c…7380 Head {h00=0x0010, h01=0x0050, text=»DIS122 EQU *«, t00=0x0049, t01=0x0166}
0x7380…739c Head {h00=0x0018, h01=0x0050, text=» CF A14,RFMDUP DK4 «, t00=0x0049, t01=0x017a}
0x739c…73d4 Head {h00=0x0034, h01=0x0050, text=» SC A2,-1,A7 STORE CHAR IN DISPLAY OUTPUT BUFFER«, t00=0x004a, t01=0x0008}
0x73d4…73e6 Head {h00=0x000e, h01=0x0050, text=» RB DIS100«, t00=0x004a, t01=0x0040}
0x73e6…73fe Head {h00=0x0014, h01=0x0050, text=»DIS200 ANK A2,6 «, t00=0x004a, t01=0x0052}
0x73fe…7424 Head {h00=0x0022, h01=0x0050, text=» XRK A2,6 CHECK IF NONDISPLAY «, t00=0x004a, t01=0x006a}
0x7424…745a Head {h00=0x0032, h01=0x0050, text=» ST A2,INTATT,TCABAS SAVE ATTRIBUTE CHARACTER «, t00=0x004a, t01=0x0090}
0x745a…747c Head {h00=0x001e, h01=0x0050, text=» RF(Z) DIS210 NON DISPLAY «, t00=0x004a, t01=0x00c6}
0x747c…748e Head {h00=0x000e, h01=0x0050, text=» ANK A2,4 «, t00=0x004a, t01=0x00e8}
0x748e…74b2 Head {h00=0x0020, h01=0x0050, text=» RF(Z) DIS205 HIGH INTENSITY«, t00=0x004a, t01=0x00fa}
0x74b2…74d4 Head {h00=0x001e, h01=0x0050, text=» LDK A2,/1E LOW INTENSITY «, t00=0x004a, t01=0x011e}
0x74d4…74e6 Head {h00=0x000e, h01=0x0050, text=» RF DIS206«, t00=0x004a, t01=0x0140}
0x74e6…74fa Head {h00=0x0010, h01=0x0050, text=»DIS205 EQU *«, t00=0x004a, t01=0x0152}
0x74fa…7512 Head {h00=0x0014, h01=0x0050, text=» LDK A2,/1F HIGH«, t00=0x004a, t01=0x0166}
0x7512…7526 Head {h00=0x0010, h01=0x0050, text=»DIS206 EQU *«, t00=0x004a, t01=0x017e}
0x7526…7554 (75, 0, 400) Head {h00=0x002a, h01=0x0050, text=» SC A2,-1,A7 STORE INTENSITY CHARACTER«, t00=0x004b, t01=0x0004}
0x7554…757a Head {h00=0x0022, h01=0x0050, text=» ADKL A10,1 INCREMENT COUNTER «, t00=0x004b, t01=0x0032}
0x757a…758c Head {h00=0x000e, h01=0x0050, text=» ADK A7,1 «, t00=0x004b, t01=0x0058}
0x758c…759e Head {h00=0x000e, h01=0x0050, text=» RB DIS100«, t00=0x004b, t01=0x006a}
0x759e…75b2 Head {h00=0x0010, h01=0x0050, text=»DIS210 EQU *«, t00=0x004b, t01=0x007c}
0x75b2…75c8 Head {h00=0x0012, h01=0x0050, text=» CWK A9,LLINE «, t00=0x004b, t01=0x0090}
0x75c8…75de Head {h00=0x0012, h01=0x0050, text=» RF(L) DIS220 «, t00=0x004b, t01=0x00a6}
0x75de…7606 Head {h00=0x0024, h01=0x0050, text=» CF A14,DISLIN DISPLAY THIS LINE«, t00=0x004b, t01=0x00bc}
0x7606…761a Head {h00=0x0010, h01=0x0050, text=»DIS220 EQU *«, t00=0x004b, t01=0x00e4}
0x761a…7630 Head {h00=0x0012, h01=0x0050, text=» CWK A3,LBVDU «, t00=0x004b, t01=0x00f8}
0x7630…7654 Head {h00=0x0020, h01=0x0050, text=» RF(NL) DIS900 ALL DISPLAYED«, t00=0x004b, t01=0x010e}
0x7654…7666 Head {h00=0x000e, h01=0x0050, text=» LCR A2,A4«, t00=0x004b, t01=0x0132}
0x7666…766e Head {h00=0x0004, h01=0x0050, t00=0x004b, t01=0x0144}
0x766e…7694 Head {h00=0x0022, h01=0x0050, text=» CF A14,SET:M SET MODIFIED BIT«, t00=0x004b, t01=0x014c}
0x7694…769c Head {h00=0x0004, h01=0x0050, t00=0x004b, t01=0x0172}
0x769c…76b0 Head {h00=0x0010, h01=0x0050, text=»DIS225 EQU *«, t00=0x004b, t01=0x017a}
0x76b0…76d6 Head {h00=0x0022, h01=0x0050, text=» ANK A2,/7F RESET DISPLAY BIT «, t00=0x004b, t01=0x018e}
0x76d6…76e8 Head {h00=0x000e, h01=0x0050, text=» SCR A2,A4«, t00=0x004c, t01=0x0024}
0x76e8…76fa Head {h00=0x000e, h01=0x0050, text=» ADK A3,1 «, t00=0x004c, t01=0x0036}
0x76fa…770c Head {h00=0x000e, h01=0x0050, text=» ADK A4,1 «, t00=0x004c, t01=0x0048}
0x770c…771e Head {h00=0x000e, h01=0x0050, text=» ADK A7,1 «, t00=0x004c, t01=0x005a}
0x771e…7730 Head {h00=0x000e, h01=0x0050, text=» ADKL A9,1«, t00=0x004c, t01=0x006c}
0x7730…7744 Head {h00=0x0010, h01=0x0050, text=» CWK A2,/20 «, t00=0x004c, t01=0x007e}
0x7744…776a Head {h00=0x0022, h01=0x0050, text=» RB(L) DIS200 ATTRIBUTE FOUND «, t00=0x004c, t01=0x0092}
0x776a…777c Head {h00=0x000e, h01=0x0050, text=» RB DIS210«, t00=0x004c, t01=0x00b8}
0x777c…7786 Head {h00=0x0006, h01=0x0050, text=» «, t00=0x004c, t01=0x00ca}
0x7786…7790 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004c, t01=0x00d4}
0x7790…779a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004c, t01=0x00de}
0x779a…77b8 Head {h00=0x001a, h01=0x0050, text=»* POSITION THE CURSOR «, t00=0x004c, t01=0x00e8}
0x77b8…77c2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004c, t01=0x0106}
0x77c2…77cc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004c, t01=0x0110}
0x77cc…77e0 Head {h00=0x0010, h01=0x0050, text=»SETCUR EQU *«, t00=0x004c, t01=0x011a}
0x77e0…7802 Head {h00=0x001e, h01=0x0050, text=»DIS900 LDK A1,2 REQ LENGTH«, t00=0x004c, t01=0x012e}
0x7802…7820 Head {h00=0x001a, h01=0x0050, text=»DIS905 ST A1,ECBRL,A8 «, t00=0x004c, t01=0x0150}
0x7820…784a Head {h00=0x0026, h01=0x0050, text=» LD A1,PCURS,TCABAS GET CURSOR POS«, t00=0x004c, t01=0x016e}
0x784a…7874 Head {h00=0x0026, h01=0x0050, text=» LDKL A2,/101 START ON LIN 1 POS 1«, t00=0x004d, t01=0x0008}
0x7874…788c Head {h00=0x0014, h01=0x0050, text=» ST A2,ECBCW,A8 «, t00=0x004d, t01=0x0032}
0x788c…78a2 Head {h00=0x0012, h01=0x0050, text=» LDKL A2,/100 «, t00=0x004d, t01=0x004a}
0x78a2…78be Head {h00=0x0018, h01=0x0050, text=»DIS910 CWK A1,LLINE «, t00=0x004d, t01=0x0060}
0x78be…78d4 Head {h00=0x0012, h01=0x0050, text=» RF(L) DIS920 «, t00=0x004d, t01=0x007c}
0x78d4…78ec Head {h00=0x0014, h01=0x0050, text=» ADS A2,ECBCW,A8«, t00=0x004d, t01=0x0092}
0x78ec…7902 Head {h00=0x0012, h01=0x0050, text=» SUKL A1,LLINE«, t00=0x004d, t01=0x00aa}
0x7902…7914 Head {h00=0x000e, h01=0x0050, text=» RB DIS910«, t00=0x004d, t01=0x00c0}
0x7914…7932 Head {h00=0x001a, h01=0x0050, text=»DIS920 ADS A1,ECBCW,A8«, t00=0x004d, t01=0x00d2}
0x7932…795a Head {h00=0x0024, h01=0x0050, text=» LDK A7,/8B SET CURSOR AND WRITE«, t00=0x004d, t01=0x00f0}
0x795a…7966 Head {h00=0x0008, h01=0x0050, text=» LKM«, t00=0x004d, t01=0x0118}
0x7966…7976 Head {h00=0x000c, h01=0x0050, text=» DATA 1 «, t00=0x004d, t01=0x0124}
0x7976…79aa Head {h00=0x0030, h01=0x0050, text=» CM INTATT,TCABAS CLEAR INTENSITY ATTRIBUTE «, t00=0x004d, t01=0x0134}
0x79aa…79ba Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x004d, t01=0x0168}
0x79ba…79c4 Head {h00=0x0006, h01=0x0050, text=» «, t00=0x004d, t01=0x0178}
0x79c4…79ce Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004d, t01=0x0182}
0x79ce…79d8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004d, t01=0x018c}
0x79d8…7a0c Head {h00=0x0030, h01=0x0050, text=»* WRITE ONE CHAR FROM A2 IN CURSOR POSITION «, t00=0x004e, t01=0x0008}
0x7a0c…7a16 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004e, t01=0x003c}
0x7a16…7a20 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004e, t01=0x0046}
0x7a20…7a3c Head {h00=0x0018, h01=0x0050, text=»WCHAR LD A1,ECBBA,A8«, t00=0x004e, t01=0x0050}
0x7a3c…7a52 Head {h00=0x0012, h01=0x0050, text=» CF A14,RFMDUP«, t00=0x004e, t01=0x006c}
0x7a52…7a86 Head {h00=0x0030, h01=0x0050, text=» SC A2,3,A1 STORE CHAR IN VDU OUTPUT BUFFER «, t00=0x004e, t01=0x0082}
0x7a86…7a98 Head {h00=0x000e, h01=0x0050, text=» LDK A1,4 «, t00=0x004e, t01=0x00b6}
0x7a98…7aba Head {h00=0x001e, h01=0x0050, text=» RB DIS905 REQ LENGTH = 3 «, t00=0x004e, t01=0x00c8}
0x7aba…7ac4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004e, t01=0x00ea}
0x7ac4…7b12 Head {h00=0x004a, h01=0x0050, text=»********************************************************************* «, t00=0x004e, t01=0x00f4}
0x7b12…7b1c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004e, t01=0x0142}
0x7b1c…7b58 Head {h00=0x0038, h01=0x0050, text=»* REPLACE FM & DUP WITH '*' RESP. ';', IF PRESENT«, t00=0x004e, t01=0x014c}
0x7b58…7b76 Head {h00=0x001a, h01=0x0050, text=»* CHARACTER IN A2«, t00=0x004e, t01=0x0188}
0x7b76…7b80 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004f, t01=0x0016}
0x7b80…7bce Head {h00=0x004a, h01=0x0050, text=»********************************************************************* «, t00=0x004f, t01=0x0020}
0x7bce…7bd8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004f, t01=0x006e}
0x7bd8…7bec Head {h00=0x0010, h01=0x0050, text=»RFMDUP EQU *«, t00=0x004f, t01=0x0078}
0x7bec…7c02 Head {h00=0x0012, h01=0x0050, text=» CWK A2,DUPCH «, t00=0x004f, t01=0x008c}
0x7c02…7c18 Head {h00=0x0012, h01=0x0050, text=» RF(NE) RFMD10«, t00=0x004f, t01=0x00a2}
0x7c18…7c30 Head {h00=0x0014, h01=0x0050, text=» LDK A2,/2A DUP «, t00=0x004f, t01=0x00b8}
0x7c30…7c44 Head {h00=0x0010, h01=0x0050, text=»RFMD10 EQU *«, t00=0x004f, t01=0x00d0}
0x7c44…7c58 Head {h00=0x0010, h01=0x0050, text=» CWK A2,FMCH«, t00=0x004f, t01=0x00e4}
0x7c58…7c6e Head {h00=0x0012, h01=0x0050, text=» RF(NE) RFMD20«, t00=0x004f, t01=0x00f8}
0x7c6e…7c82 Head {h00=0x0010, h01=0x0050, text=» LDK A2,/3B «, t00=0x004f, t01=0x010e}
0x7c82…7c96 Head {h00=0x0010, h01=0x0050, text=»RFMD20 EQU *«, t00=0x004f, t01=0x0122}
0x7c96…7ca6 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x004f, t01=0x0136}
0x7ca6…7cb0 Head {h00=0x0006, h01=0x0050, text=» «, t00=0x004f, t01=0x0146}
0x7cb0…7cba Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004f, t01=0x0150}
0x7cba…7cc4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004f, t01=0x015a}
0x7cc4…7cf0 Head {h00=0x0028, h01=0x0050, text=»* PUT SPACES TO DISPLAY LINE BUFFER «, t00=0x004f, t01=0x0164}
0x7cf0…7cfa Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004f, t01=0x0190}
0x7cfa…7d04 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0050, t01=0x000a}
0x7d04…7d22 Head {h00=0x001a, h01=0x0050, text=»SPACES LD A7,ECBBA,A8 «, t00=0x0050, t01=0x0014}
0x7d22…7d42 Head {h00=0x001c, h01=0x0050, text=» ADK A7,2 BUFFER ADDRESS«, t00=0x0050, t01=0x0032}
0x7d42…7d64 Head {h00=0x001e, h01=0x0050, text=» LDKL A9,LLINE LINE LENGTH«, t00=0x0050, t01=0x0052}
0x7d64…7d80 Head {h00=0x0018, h01=0x0050, text=» ADR A9,A9 DOUBLE IT«, t00=0x0050, t01=0x0074}
0x7d80…7d9c Head {h00=0x0018, h01=0x0050, text=» LDKL A2,' ' SPACES«, t00=0x0050, t01=0x0090}
0x7d9c…7db8 Head {h00=0x0018, h01=0x0050, text=»SPAC10 SCR A2,A7 =1«, t00=0x0050, t01=0x00ac}
0x7db8…7dd0 Head {h00=0x0014, h01=0x0050, text=» SC A2,1,A7 =1 «, t00=0x0050, t01=0x00c8}
0x7dd0…7de2 Head {h00=0x000e, h01=0x0050, text=» ADK A7,2 «, t00=0x0050, t01=0x00e0}
0x7de2…7df4 Head {h00=0x000e, h01=0x0050, text=» SUKL A9,2«, t00=0x0050, t01=0x00f2}
0x7df4…7e0a Head {h00=0x0012, h01=0x0050, text=» RB(P) SPAC10 «, t00=0x0050, t01=0x0104}
0x7e0a…7e32 Head {h00=0x0024, h01=0x0050, text=» LDK A2,0 CLEAR A2=CHAR REGISTER«, t00=0x0050, t01=0x011a}
0x7e32…7e5c Head {h00=0x0026, h01=0x0050, text=» LDK A5,0 RESET MODIFIED INDICATOR«, t00=0x0050, t01=0x0142}
0x7e5c…7e74 Head {h00=0x0014, h01=0x0050, text=» LD A7,ECBBA,A8 «, t00=0x0050, t01=0x016c}
0x7e74…7e94 Head {h00=0x001c, h01=0x0050, text=» ADK A7,2 BUFFER ADDRESS«, t00=0x0050, t01=0x0184}
0x7e94…7ebe Head {h00=0x0026, h01=0x0050, text=» SUR A9,A9 RESET LINE CHAR COUNTER«, t00=0x0051, t01=0x0014}
0x7ebe…7ece Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0051, t01=0x003e}
0x7ece…7ed8 Head {h00=0x0006, h01=0x0050, text=» «, t00=0x0051, t01=0x004e}
0x7ed8…7ee2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0051, t01=0x0058}
0x7ee2…7eec Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0051, t01=0x0062}
0x7eec…7f18 Head {h00=0x0028, h01=0x0050, text=»* DISPLAY LINE IF ANY MODIFICATIONS «, t00=0x0051, t01=0x006c}
0x7f18…7f22 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0051, t01=0x0098}
0x7f22…7f2c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0051, t01=0x00a2}
0x7f2c…7f34 Head {h00=0x0004, h01=0x0050, t00=0x0051, t01=0x00ac}
0x7f34…7f48 Head {h00=0x0010, h01=0x0050, text=»DISLIN EQU *«, t00=0x0051, t01=0x00b4}
0x7f48…7f5a Head {h00=0x000e, h01=0x0050, text=» LDR A7,A5«, t00=0x0051, t01=0x00c8}
0x7f5a…7f82 Head {h00=0x0024, h01=0x0050, text=» ANK A5,/80 ANY MODIFICATIONS ??«, t00=0x0051, t01=0x00da}
0x7f82…7fa8 Head {h00=0x0022, h01=0x0050, text=» RF(Z) DISL10 NO MODIFICATIONS«, t00=0x0051, t01=0x0102}
0x7fa8…7fba Head {h00=0x000e, h01=0x0050, text=» LDK A1,2 «, t00=0x0051, t01=0x0128}
0x7fba…7fe6 Head {h00=0x0028, h01=0x0050, text=» XRK A7,/A0 ONLY SPACES IN BUFFER ??«, t00=0x0051, t01=0x013a}
0x7fe6…8002 Head {h00=0x0018, h01=0x0050, text=» RF(Z) DIS:10 YES!! «, t00=0x0051, t01=0x0166}
0x8002…801a Head {h00=0x0014, h01=0x0050, text=» LDKL A1,LLINE+2«, t00=0x0051, t01=0x0182}
0x801a…804c Head {h00=0x002e, h01=0x0050, text=» ADR A1,A10 ADD NR OF INTENSITY CHARACTERS«, t00=0x0052, t01=0x000a}
0x804c…8060 Head {h00=0x0010, h01=0x0050, text=»DIS:10 EQU *«, t00=0x0052, t01=0x003c}
0x8060…8086 Head {h00=0x0022, h01=0x0050, text=» ST A1,ECBRL,A8 SET REQ LENGTH«, t00=0x0052, t01=0x0050}
0x8086…808e Head {h00=0x0004, h01=0x0050, t00=0x0052, t01=0x0076}
0x808e…8096 Head {h00=0x0004, h01=0x0050, t00=0x0052, t01=0x007e}
0x8096…80be Head {h00=0x0024, h01=0x0050, text=» LDK A7,/8B SET CURSOR AND WRITE«, t00=0x0052, t01=0x0086}
0x80be…80ca Head {h00=0x0008, h01=0x0050, text=» LKM«, t00=0x0052, t01=0x00ae}
0x80ca…80da Head {h00=0x000c, h01=0x0050, text=» DATA 1 «, t00=0x0052, t01=0x00ba}
0x80da…80e4 Head {h00=0x0006, h01=0x0050, text=» «, t00=0x0052, t01=0x00ca}
0x80e4…80ec Head {h00=0x0004, h01=0x0050, t00=0x0052, t01=0x00d4}
0x80ec…8138 Head {h00=0x0048, h01=0x0050, text=»********************************************************************«, t00=0x0052, t01=0x00dc}
0x8138…8142 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0052, t01=0x0128}
0x8142…8176 Head {h00=0x0030, h01=0x0050, text=»* EXECUTE FAST OUTPUT TO BLANK REMAINIG PART«, t00=0x0052, t01=0x0132}
0x8176…818c Head {h00=0x0012, h01=0x0050, text=»* OF THE LINE «, t00=0x0052, t01=0x0166}
0x818c…8196 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0052, t01=0x017c}
0x8196…81e2 Head {h00=0x0048, h01=0x0050, text=»******************************************************************* «, t00=0x0052, t01=0x0186}
0x81e2…81ea Head {h00=0x0004, h01=0x0050, t00=0x0053, t01=0x0042}
0x81ea…8212 Head {h00=0x0024, h01=0x0050, text=» LD A1,ECBCW,A8 CURSOR POSITION «, t00=0x0053, t01=0x004a}
0x8212…8236 Head {h00=0x0020, h01=0x0050, text=» ANK A1,X'FF' COLUMN NUMBER «, t00=0x0053, t01=0x0072}
0x8236…825c Head {h00=0x0022, h01=0x0050, text=» SUK A1,80 LAST POSITION ? DK1«, t00=0x0053, t01=0x0096}
0x825c…8294 Head {h00=0x0034, h01=0x0050, text=» RF(NL) DISL10 YES, NO FAST OUTPUT THIS LINE DK1«, t00=0x0053, t01=0x00bc}
0x8294…829c Head {h00=0x0004, h01=0x0050, t00=0x0053, t01=0x00f4}
0x829c…82c2 Head {h00=0x0022, h01=0x0050, text=» LD A1,ECBBA,A8 BUFFER ADRESS «, t00=0x0053, t01=0x00fc}
0x82c2…82f2 Head {h00=0x002c, h01=0x0050, text=» LDK A2,X'2B' DONT MOVE CURSOR ONE LINE «, t00=0x0053, t01=0x0122}
0x82f2…830a Head {h00=0x0014, h01=0x0050, text=» SC A2,1,A1 =1 «, t00=0x0053, t01=0x0152}
0x830a…8338 Head {h00=0x002a, h01=0x0050, text=» LDKL A2,X'1420' FAST OUTPUT OF SPACES«, t00=0x0053, t01=0x016a}
0x8338…8350 Head {h00=0x0014, h01=0x0050, text=» SC A2,3,A1 =1 «, t00=0x0054, t01=0x0008}
0x8350…8366 Head {h00=0x0012, h01=0x0050, text=» SRL A2,8 =1 «, t00=0x0054, t01=0x0020}
0x8366…837e Head {h00=0x0014, h01=0x0050, text=» SC A2,2,A1 =1 «, t00=0x0054, t01=0x0036}
0x837e…83a2 Head {h00=0x0020, h01=0x0050, text=» LDK A2,84 REQUESTED LENGTH «, t00=0x0054, t01=0x004e}
0x83a2…83ba Head {h00=0x0014, h01=0x0050, text=» ST A2,ECBRL,A8 «, t00=0x0054, t01=0x0072}
0x83ba…83dc Head {h00=0x001e, h01=0x0050, text=» LDK A7,X'86' WRITE ORDER «, t00=0x0054, t01=0x008a}
0x83dc…83e8 Head {h00=0x0008, h01=0x0050, text=» LKM«, t00=0x0054, t01=0x00ac}
0x83e8…83f8 Head {h00=0x000c, h01=0x0050, text=» DATA 1 «, t00=0x0054, t01=0x00b8}
0x83f8…8400 Head {h00=0x0004, h01=0x0050, t00=0x0054, t01=0x00c8}
0x8400…8414 Head {h00=0x0010, h01=0x0050, text=»DISL10 EQU *«, t00=0x0054, t01=0x00d0}
0x8414…8426 Head {h00=0x000e, h01=0x0050, text=» LDK A2,1 «, t00=0x0054, t01=0x00e4}
0x8426…8452 Head {h00=0x0028, h01=0x0050, text=» SC A2,ECBCW+1,A8 POS 1 ON NEXT LINE«, t00=0x0054, t01=0x00f6}
0x8452…8468 Head {h00=0x0012, h01=0x0050, text=» LDKL A2,/100 «, t00=0x0054, t01=0x0122}
0x8468…8496 Head {h00=0x002a, h01=0x0050, text=» ADS A2,ECBCW,A8 INCREMENT LINE NUMBER«, t00=0x0054, t01=0x0138}
0x8496…84be Head {h00=0x0024, h01=0x0050, text=» RB SPACES PUT SPACES TO BUFFER «, t00=0x0054, t01=0x0166}
0x84be…84c6 Head {h00=0x0004, h01=0x0050, t00=0x0054, t01=0x018e}
0x84c6…84d0 Head {h00=0x0006, h01=0x0050, text=» «, t00=0x0055, t01=0x0008}
0x84d0…84d8 Head {h00=0x0004, h01=0x0050, t00=0x0055, t01=0x0012}
0x84d8…84e0 Head {h00=0x0004, h01=0x0050, t00=0x0055, t01=0x001a}
0x84e0…8528 Head {h00=0x0044, h01=0x0050, text=»****************************************************************«, t00=0x0055, t01=0x0022}
0x8528…8532 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0055, t01=0x006a}
0x8532…8574 Head {h00=0x003e, h01=0x0050, text=»* I N T C H K CHECK IF LINE SHOULD BE PRINTED WITH«, t00=0x0055, t01=0x0074}
0x8574…85a8 Head {h00=0x0030, h01=0x0050, text=»* HIGH OR LOW INTENSITY «, t00=0x0055, t01=0x00b6}
0x85a8…85b2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0055, t01=0x00ea}
0x85b2…8600 Head {h00=0x004a, h01=0x0050, text=»**********************************************************************«, t00=0x0055, t01=0x00f4}
0x8600…8608 Head {h00=0x0004, h01=0x0050, t00=0x0055, t01=0x0142}
0x8608…8638 Head {h00=0x002c, h01=0x0050, text=»INTCHK SUR A10,A10 RESET INTENSITY COUNT«, t00=0x0055, t01=0x014a}
0x8638…866c Head {h00=0x0030, h01=0x0050, text=» LD A2,INTATT,TCABAS GET INTENSITY ATTRIBUTE«, t00=0x0055, t01=0x017a}
0x866c…868e Head {h00=0x001e, h01=0x0050, text=» RF(Z) INTRTN NON DISPLAY «, t00=0x0056, t01=0x001e}
0x868e…86b6 Head {h00=0x0024, h01=0x0050, text=» ANK A2,X'4' HIGH INTENSITY ??? «, t00=0x0056, t01=0x0040}
0x86b6…86d0 Head {h00=0x0016, h01=0x0050, text=» RF(Z) INT:10 YES «, t00=0x0056, t01=0x0068}
0x86d0…86d8 Head {h00=0x0004, h01=0x0050, t00=0x0056, t01=0x0082}
0x86d8…86fc Head {h00=0x0020, h01=0x0050, text=» LDK A2,X'1E' LOW INTENSITY «, t00=0x0056, t01=0x008a}
0x86fc…871e Head {h00=0x001e, h01=0x0050, text=» RF INT:20 HIGH INTENSITY «, t00=0x0056, t01=0x00ae}
0x871e…8726 Head {h00=0x0004, h01=0x0050, t00=0x0056, t01=0x00d0}
0x8726…8750 Head {h00=0x0026, h01=0x0050, text=»INT:10 LDK A2,X'1F' HIGH INTENSITY«, t00=0x0056, t01=0x00d8}
0x8750…8758 Head {h00=0x0004, h01=0x0050, t00=0x0056, t01=0x0102}
0x8758…8794 Head {h00=0x0038, h01=0x0050, text=»INT:20 SCR A2,A7 SAVE INTENSITY CHARACTER IN BUFFER «, t00=0x0056, t01=0x010a}
0x8794…87be Head {h00=0x0026, h01=0x0050, text=» ADK A7,1 INCREMENT BUFFER POINTER«, t00=0x0056, t01=0x0146}
0x87be…87ec Head {h00=0x002a, h01=0x0050, text=» ADKL A10,1 INTENSITY COUNT «, t00=0x0056, t01=0x0170}
0x87ec…880a Head {h00=0x001a, h01=0x0050, text=»INTRTN RTN A14 RETURN «, t00=0x0057, t01=0x000e}
0x880a…8814 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0057, t01=0x002c}
0x8814…881e Head {h00=0x0006, h01=0x0050, text=» «, t00=0x0057, t01=0x0036}
0x881e…8826 Head {h00=0x0004, h01=0x0050, t00=0x0057, t01=0x0040}
0x8826…886e Head {h00=0x0044, h01=0x0050, text=»****************************************************************«, t00=0x0057, t01=0x0048}
0x886e…8878 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0057, t01=0x0090}
0x8878…88bc Head {h00=0x0040, h01=0x0050, text=»* SET:M SET MODIFIED BIT IF CHARACTER HAS BEEN MODIFIED «, t00=0x0057, t01=0x009a}
0x88bc…88c6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0057, t01=0x00de}
0x88c6…8910 Head {h00=0x0046, h01=0x0050, text=»******************************************************************«, t00=0x0057, t01=0x00e8}
0x8910…8918 Head {h00=0x0004, h01=0x0050, t00=0x0057, t01=0x0132}
0x8918…8930 Head {h00=0x0014, h01=0x0050, text=»SET:M CWK A2,/20«, t00=0x0057, t01=0x013a}
0x8930…895a Head {h00=0x0026, h01=0x0050, text=» RF(L) SET:M2 ATTRIBUTE CHARACTER «, t00=0x0057, t01=0x0152}
0x895a…896e Head {h00=0x0010, h01=0x0050, text=» CWK A2,/7F «, t00=0x0057, t01=0x017c}
0x896e…8998 Head {h00=0x0026, h01=0x0050, text=» RF(E) SET:M2 UNMODIFIED ATTRIBUTE«, t00=0x0057, t01=0x0190}
0x8998…89ac Head {h00=0x0010, h01=0x0050, text=» CWK A2,/FF «, t00=0x0058, t01=0x002a}
0x89ac…89d8 Head {h00=0x0028, h01=0x0050, text=» RF(NE) SET:M1 NOT NULL OR ATTRIBUTE«, t00=0x0058, t01=0x003e}
0x89d8…8a04 Head {h00=0x0028, h01=0x0050, text=» ORK A5,/A0 MODIFIED NULL CHARACTER «, t00=0x0058, t01=0x006a}
0x8a04…8a14 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0058, t01=0x0096}
0x8a14…8a3e Head {h00=0x0026, h01=0x0050, text=»SET:M1 ORR A5,A2 SET MODIFIED BIT «, t00=0x0058, t01=0x00a6}
0x8a3e…8a54 Head {h00=0x0012, h01=0x0050, text=»SET:M2 RTN A14«, t00=0x0058, t01=0x00d0}
0x8a54…8a60 Head {h00=0x0008, h01=0x0050, text=» END«, t00=0x0058, t01=0x00e6}
0x8a60…8a64 Head {h00=0x4004, h01=0x0000}
0x8a64…8a68 00 58 00 f2 ┆ X ┆
0x8a68…8a70 (89, 1, 8) 20 04 00 00 00 59 00 04 ┆ Y ┆
0x8a70…8ac0 (90, 0, 400) 2c 41 36 5c 53 54 4f 52 45 20 00 69 01 84 00 14 00 50 43 4c 54 30 33 32 5c 4c 44 4b 5c 41 34 2c 30 20 00 6a 00 12 00 30 00 50 43 4c 54 30 33 33 5c 4c 44 4b 5c 41 33 2c 32 5c 49 4e 44 49 43 41 54 45 20 52 45 43 4f 56 45 52 59 20 4f 46 20 44 ┆,A6 STORE i PCLT032 LDK A4,0 j 0 PCLT033 LDK A3,2 INDICATE RECOVERY OF D┆
0x8ac0…8b10 45 56 49 43 45 20 00 6a 00 2a 00 12 00 50 5c 4c 44 4b 5c 41 34 2c 31 5c 5c 3d 33 20 00 6a 00 5e 00 0e 00 50 5c 52 46 5c 43 50 4f 30 32 35 00 6a 00 74 00 0a 00 50 5c 45 4a 45 43 54 00 6a 00 86 00 06 00 50 2a 20 00 6a 00 94 00 18 00 50 2a 20 ┆EVICE j * P LDK A4,1 =3 j ^ P RF CPO025 j t P EJECT j P* j P* ┆
0x8b10…8b60 20 20 20 41 42 43 2d 20 20 56 52 43 2d 45 52 52 4f 52 00 6a 00 9e 00 06 00 50 2a 20 00 6a 00 ba 00 38 00 50 2a 20 20 20 20 49 46 20 42 4c 4f 43 4b 53 45 4e 44 49 4e 47 20 53 41 4d 45 20 50 52 4f 43 45 44 55 52 45 20 41 53 20 46 4f 52 20 54 ┆ ABC- VRC-ERROR j P* j 8 P* IF BLOCKSENDING SAME PROCEDURE AS FOR T┆
0x8b60…8bb0 48 45 20 4f 54 48 45 52 00 6a 00 c4 00 1e 00 50 2a 20 20 20 20 45 52 52 4f 52 53 20 4f 46 20 54 59 50 45 20 41 42 43 2d 2e 20 00 6a 01 00 00 34 00 50 2a 20 20 20 20 49 46 20 4f 55 54 50 55 54 20 54 4f 20 50 52 49 4e 54 45 52 53 20 57 49 54 ┆HE OTHER j P* ERRORS OF TYPE ABC-. j 4 P* IF OUTPUT TO PRINTERS WIT┆
0x8bb0…8c00 48 20 4c 52 43 2d 43 4f 4e 54 52 4f 4c 20 53 41 4d 45 00 6a 01 22 00 20 00 50 2a 20 20 20 20 50 52 4f 43 45 44 55 52 45 20 41 53 20 46 4f 52 20 41 42 43 2b 2e 20 00 6a 01 5a 00 06 00 50 2a 20 00 6a 01 7e 00 26 00 50 43 4c 54 30 34 32 5c 4c ┆H LRC-CONTROL SAME j " P* PROCEDURE AS FOR ABC+. j Z P* j ~ & PCLT042 L┆
0x8c00…8c50 (91, 0, 400) 44 52 2a 5c 41 34 2c 41 36 5c 42 4c 4f 43 4b 20 53 45 4e 44 49 4e 47 20 3f 20 00 6a 01 88 00 12 00 50 5c 52 42 28 4e 29 5c 43 4c 54 30 33 31 20 00 6b 00 22 00 16 00 50 43 4c 54 30 34 33 5c 41 42 4c 5c 43 4c 54 31 30 37 20 00 6b 00 38 00 0a ┆DR* A4,A6 BLOCK SENDING ? j P RB(N) CLT031 k " PCLT043 ABL CLT107 k 8 ┆
0x8c50…8ca0 00 50 5c 45 4a 45 43 54 00 6b 00 52 00 06 00 50 2a 20 00 6b 00 60 00 12 00 50 2a 20 20 20 20 50 4f 57 45 52 20 4f 4e 20 00 6b 00 6a 00 06 00 50 2a 20 00 6b 00 80 00 38 00 50 2a 20 20 20 20 52 45 43 4f 56 45 52 59 20 52 4f 55 54 49 4e 45 53 ┆ P EJECT k R P* k ` P* POWER ON k j P* k 8 P* RECOVERY ROUTINES┆
0x8ca0…8cf0 20 41 52 45 20 53 54 41 52 54 45 44 20 46 4f 52 20 45 56 45 52 59 20 44 45 56 49 43 45 20 00 6b 00 8a 00 3c 00 50 2a 20 20 20 20 4f 4e 20 41 43 54 55 41 4c 20 4c 49 4e 45 20 45 58 43 45 50 54 20 54 48 4f 53 45 20 4f 43 43 55 50 59 49 4e 47 ┆ ARE STARTED FOR EVERY DEVICE k < P* ON ACTUAL LINE EXCEPT THOSE OCCUPYING┆
0x8cf0…8d40 20 43 48 41 4e 4e 45 4c 20 55 4e 49 54 20 00 6b 00 c6 00 20 00 50 2a 20 20 20 20 4f 52 20 54 48 4f 53 45 20 49 4e 20 45 43 48 4f 20 4d 4f 44 45 2e 20 00 6b 01 06 00 06 00 50 2a 20 00 6b 01 2a 00 26 00 50 2a 20 20 20 20 4f 4e 20 45 58 49 54 ┆ CHANNEL UNIT k P* OR THOSE IN ECHO MODE. k P* k * & P* ON EXIT┆
0x8d40…8d90 20 54 4f 20 52 45 43 4f 56 45 52 59 20 52 4f 55 54 49 4e 45 3a 20 00 6b 01 34 00 06 00 50 2a 20 00 6b 01 5e 00 18 00 50 2a 20 20 20 20 41 35 20 3d 20 53 54 41 43 4b 42 41 53 45 20 00 6b 01 68 00 1a 00 50 2a 20 20 20 20 41 36 20 3d 20 44 57 ┆ TO RECOVERY ROUTINE: k 4 P* k ^ P* A5 = STACKBASE k h P* A6 = DW┆
0x8d90…8de0 (92, 0, 400) 54 2d 41 44 44 52 45 53 53 20 00 6b 01 84 00 06 00 50 2a 20 00 6c 00 12 00 10 00 50 43 48 50 4f 57 4f 5c 45 51 55 5c 2a 00 6c 00 1c 00 2c 00 50 5c 4c 44 52 2a 5c 41 32 2c 41 35 5c 47 45 54 20 43 48 41 4e 4e 45 4c 20 4f 43 43 55 50 59 49 4e ┆T-ADDRESS k P* l PCHPOWO EQU * l , P LDR* A2,A5 GET CHANNEL OCCUPYIN┆
0x8de0…8e30 47 20 44 45 56 49 43 45 00 6c 00 30 00 2e 00 50 5c 43 4d 5c 43 57 54 52 54 43 2c 41 35 5c 52 45 53 45 54 20 52 45 54 52 41 4e 53 4d 49 53 53 49 4f 4e 20 43 4f 55 4e 54 45 52 00 6c 00 60 00 18 00 50 5c 4c 44 52 5c 41 37 2c 41 37 5c 52 45 4d ┆G DEVICE l 0 . P CM CWTRTC,A5 RESET RETRANSMISSION COUNTER l ` P LDR A7,A7 REM┆
0x8e30…8e80 4f 54 45 20 3f 20 00 6c 00 92 00 14 00 50 5c 52 46 28 4e 29 5c 43 50 4f 30 31 30 5c 4e 4f 00 6c 00 ae 00 2a 00 50 5c 43 4d 5c 4c 52 43 44 57 54 2c 41 37 5c 52 45 53 45 54 20 4c 52 43 2d 44 45 56 49 43 45 20 50 4f 49 4e 54 45 52 00 6c 00 c6 ┆OTE ? l P RF(N) CPO010 NO l * P CM LRCDWT,A7 RESET LRC-DEVICE POINTER l ┆
0x8e80…8ed0 00 0e 00 50 5c 4c 44 4b 5c 41 37 2c 31 20 00 6c 00 f4 00 30 00 50 5c 41 4e 53 5c 41 37 2c 43 57 54 42 4c 4b 2c 41 35 5c 52 45 53 45 54 20 42 4c 4f 43 4b 53 45 4e 44 49 4e 47 20 52 55 4e 4e 49 4e 47 00 6c 01 06 00 24 00 50 43 50 4f 30 31 30 ┆ P LDK A7,1 l 0 P ANS A7,CWTBLK,A5 RESET BLOCKSENDING RUNNING l $ PCPO010┆
0x8ed0…8f20 5c 4c 44 52 5c 41 33 2c 41 36 5c 44 45 56 49 43 45 20 43 4f 55 4e 54 45 52 20 00 6c 01 3a 00 10 00 50 5c 41 4e 4b 5c 41 33 2c 2f 46 46 20 00 6c 01 62 00 22 00 50 5c 4c 44 52 5c 41 31 2c 41 38 5c 53 45 54 20 41 44 44 52 45 53 53 20 50 4f 49 ┆ LDR A3,A6 DEVICE COUNTER l : P ANK A3,/FF l b " P LDR A1,A8 SET ADDRESS POI┆