|
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: 38120 (0x94e8)
Notes: pts_type(SC)
Names: »VDUPRT.SC«
└─⟦22f4dea89⟧ Bits:30009702 Philips computer tape "DOS_PTS_4.2_M_FL"
└─⟦this⟧ »NJ-AMT/VDUPRT.SC«
└─⟦this⟧ »PRT:3270/VDUPRT.SC«
└─⟦dab19bdd7⟧ Bits:30009677 Philips computer tape "600218"
└─⟦this⟧ »NJ-AMT/VDUPRT.SC«
└─⟦this⟧ »PRT:3270/VDUPRT.SC«
IDENT VDUPRT DK9 830818 EV DK9 RBUF,TBUF=2400 BYTES DK8, CONV.SMALL LETTERS AE,OE,AA DK7.1 'APL' ESCAPE ???? CHANGED FROM /08 TO /1E INTERNALLY WHAT IS 'APL' ESCAPE, GEORGE????? 830714 DK7, READ MODIFIED HANDLING (GF) DK6 ORDER INDICATOR 'SBA' =1,ODD BUFFER ADDRESS REL 2.1 79-05-23 =2,KEYBOARD LAMPS REL 2.1 79-05-23 =3, TRANSMIT BUFFER LENGTH REL 2.1 79-05-23 DK5 - SKIP CHAR 06=2F=USM DK5 DK4 - RFMDUP DK3 - EUA DK2 - DC-TIMEOUT DK1 - BLANK COL. 80 ****************************************************************** * * V D U P R T : MODULE HANDLING MESSAGES COMING FROM * MAIN FRAME, AND DISPLAYING THEM ON * THE VDU ( PTS 6344 ) . * ******************************************************************** * * * * * ENTRIES * * ENTRY TRPF TRANSMIT, PROGRAM FUNCTION ENTRY TRPA TRANSMIT, PROGRAM ATTENTION ENTRY ERASE ERASE ENTIRE SCREEN ENTRY SETCUR CURSOR POSITIONING ENTRY ERASUP ERASE ALL UNPROTECTED ENTRY DISPL DISPLAY MODIFIED DATA ENTRY ERASUA ERASE UNPROTECTED TO ADDRESS ENTRY WCHAR WRITE ONE CHAR IN CURSOR POS ENTRY UPDATE ENTRY RFMDUP REPLACE FM & DUP ENTRY DCINP ENTRY RLRBUF ENTRY DCGETM ENTRY GTRBUF * * * EXTERNALS * * EXTRN LINHON,LINHOF START EXTRN LSAVON,LSAVOF START EXTRN ATMASB EXTRN EMULA EXTRN REQTIM EXTRN ICWRTE EXTRN READMY READ MODIFED DK7 * 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 1200 RECEIVE BUFFER LENGTH IN WORDS DK9 RBUFNR EQU 1 NUMBER OF RECEIVE BUFFERS (1-5) TBUFL EQU 1200 TRANSMIT BUFFER LENGTH IN WORDS DK9 TBUFNR EQU 1 NUMBER OF TRANSMIT BUFFERS (1-5) COPCMD EQU 1 COPY COMMAND (ONLY TO PRINTER) IF := 1 EBCDIC EQU 1 ASCII = 0,EBCDIC = 1 * * EQUATES * * TIMDC EQU 600 DC TIME OUT VALUE: 60 S DK2 ESC EQU /1B SBA EQU /11 NULL EQU /7F NULL CHARACTER NEWLIN EQU /7E NEW LINE CHARACTER ENDMES EQU /7D END MESSAGE CHAR FORMFD EQU /7C FORM FEED CHAR DUPCH EQU /7B FMCH EQU /60 TRCH EQU /30 DK SKIP EQU /06 SKIP CHAR. (USM) DK5 * * * EQUATES * * COMMON EQU FOR ECB HANDLING * ECBBA EQU 2 ECBRL EQU 4 ECBEL EQU 6 ECBRC EQU 8 ECBCW EQU 10 * * * CREDIT USED EQU * * * ECB REL. ADDRESSES * * DIS EQU 20 * ECBDC EQU -DIS-14 IFT DCLIN=2 IFT COPCMD=1 ECBDC2 EQU ECBDC-DIS ECBICR EQU ECBDC2-DIS ECBICW EQU ECBICR-DIS XIF IFT DCLIN=2 IFF COPCMD=1 ECBDC2 EQU ECBDC-DIS ECBICW EQU ECBDC2-DIS XIF IFF DCLIN=2 IFT COPCMD=1 ECBICR EQU ECBDC-DIS ECBICW EQU ECBICR-DIS XIF IFF DCLIN=2 IFF COPCMD=1 ECBICW EQU ECBDC-DIS XIF ECBVDU EQU ECBICW-DIS ECBKB EQU ECBVDU-DIS ECBSD EQU ECBKB-DIS * * * BASE ADDRESS FOR TCA AND ECB * TCABAS EQU A11 CREBAS EQU A13 ECB * * * TCA REL. ADDRESSES * TCT01 EQU 0 PRINTER EQU TCT01+2 BVDU EQU PRINTER+2 VDU SCREEN BUFFER PCURS EQU BVDU+1920 CURSOR ADDRESS , BINARY ATTRIB EQU PCURS+2 LAST ATTRIBUTE CHAR CURATT EQU ATTRIB+2 WCC EQU CURATT+2 WCC/CCC CHARACTER KBINH EQU WCC+2 KEYBOARD INHIBIT INDICATOR LINCNT EQU KBINH+2 LINE COUNTER DCLENG EQU LINCNT+2 DC READ EFFECTIVE LENGTH ICWORK EQU DCLENG+2 WORK FIELD INTERTASK COMM INTATT EQU ICWORK+2 INTENSITY ATTRIBUTE OFFFLG EQU INTATT+2 OFFLINE FLAG COPNO EQU OFFFLG+2 HARDCOPY TASK ID CCC EQU COPNO+2 COPY COMMAND CHARACTER MAIN EQU CCC+2 MAIN FRAME MODE EQU MAIN+2 INSERT MODE SWITCH KEYS EQU MODE+2 KEY LOCK STATUS ECBDCC EQU KEYS+2 ECB ADDRESS LAST READ DC ECBBLK EQU ECBDCC+2 ECBS FOR MULTIPLE WAIT &C RDMORE EQU ECBBLK+10 BRANCH ADDRESS NEXT READ KB RDMYRC EQU RDMORE+4 READ MODIFIED RETRURN CODE DK7 * * 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 * LD A8,ECBDCC,TCABAS GET THE ECB CK7 LD A1,ECBRC,A8 READ-MOD RECEIVED? DK7 ANKL A1,/4000 DK7 RF(Z) DCIN20 NO,PROCESS NORMALLY DK7 ST A1,RDMYRC,TCABAS SAVE RET.CODE FOR DCWRITE DK7 CF A14,READMY YES,FAKE AN ENTER KEY DK7 RTN A14 GO ON BACK TO BUSINESS DK7 DCIN20 EQU * DK7 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 LD A1,RDMYRC,TCABAS SEE IF ITS A READMOD RESPONSE DK7 ANKL A1,/4000 DK7 RF(Z) DC070 NO, GO ON AS USUAL DK7 CM RDMYRC,TCABAS CLEAR THE RETURNCODE DK7 LDK A7,/B3 YES, ORDER =/33 DK7 RF DC100 ISSUE READ MOD RESPONSE DK7 DC070 EQU * DK7 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,/FF CLEAN IT DK7 CWK A1,/1E 'APL' ESCAPE? DK7.1 RF(NE) RD109 NO DK7.1 LDK A1,/08 'APL' ESCAPE DK7.1 LDK A2,/08 'APL' ESCAPE DK7.1 RF RD110 DK7.1 RD109 EQU * DK7.1 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(E) UPD050 ABL UPDEND UPD050 EQU * 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 ABL(E) UPD500 REPEAT TO ADDRESS CWK A2,/12 ABL(E) UPD540 ERASE UNPROTECTED TO ADDRESS CWK A2,/0C RF(NE) UPD305 LDK A2,FORMFD FORM FEED RB UPD230 UPD305 CWK A2,/19 RF(NE) UPD310 LDK A2,ENDMES END MESSAGE RB UPD230 UPD310 EQU * CWK A2,/0A RF(NE) UPD315 LDK A2,NEWLIN NEW LINE RB UPD230 UPD315 EQU * CWK A2,/18 RF(NE) UPD318 ILLEGAL ORDER LDK A2,/30 RB UPD230 UPD318 EQU * CWK A2,SKIP DK5 RF(NE) UPD319 SKIP USM DK5 RB UPD220 DK5 UPD319 EQU * DK5 CWK A2,/00 NULL CHARACTER ??? RF(NE) UPD31A NO DK7 LDK A2,/7F PTS NULL CHARACTER RB UPD230 UPD31A EQU * DK7 * CHECK ON APL ESCALE CHAR (08) CWK A2,/08 DK7 RF(NE) UPDEND ILLEGAL CHR DK7 LDK A2,/1E 'APL' ESCAPE DK7.1 RB UPD250 PUT IN BUFFER DK7 ************************************************************ * * RELEASE RECEIVE BUFFER * ************************************* UPDEND EQU * LD A8,ECBDCC,TCABAS LD A4,ECBBA,A8 CF A14,RLRBUF * CORRECTION FOR CURSOR LEFT ON ATTRIBUTE LD A3,PCURS,TCABAS GET CURSOR POS DK7 UPDENA EQU * DK7 LDKL A4,BVDU GET BUFFER VDU DK7 ADR A4,TCABAS COMPUTE IT ADR A4,A3 DK7 LCR A1,A4 GET THE CHAR DK7 ANK A1,/FF CLEAN IT UP DK7 CWK A1,/001F ATTRIBUTE DK7 RF(G) UPDENB NO,COMPLETE PROCESS DK7 CWK A1,/1E 'APL' ESCAPE? DK7.1 RF(E) UPDENB FORGET IT DK7 ADK A3,1 YES, MOVE THE CURSOR DK7 CWK A3,1919 END OF SCREEN DK7 RB(NG) UPDENA NO,KEEP LOOKING DK7 LDK A3,0 START ALL OVER DK7 RB UPDENA DK UPDENB EQU * DK7 ST A3,PCURS,TCABAS SAVE CURSOR POSITION DK7 * END OF CORRECTION 821005/GF 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 LDK A5,1 INDICATE ORDER DK6 ABL UPD220 * * INSERT CURSOR * UPD360 ST A3,PCURS,TCABAS SET NEW CURSOR POS LDK A5,1 INDICATE WCC, IC OR RA ABL 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 ABL(NL) UPD210 END OF BUFFER LCR A2,A4 ADK A3,1 ANK A2,/7F CWK A2,/20 RF(L) UPD415 SCR A1,A4 STORE NULL ADK A4,1 RB UPD410 UPD415 EQU * ADK A4,1 UPD420 ANK A2,/10 ABL(Z) UPD220 UNPROTECTED FIELD UPD430 EQU * LDK A5,0 CWK A3,LBVDU ABL(NL) UPD210 END OF DISPLAY BUFFER LCR A2,A4 ADK A3,1 ADK A4,1 ANK A2,/7F CWK A2,/20 RB(L) UPD420 RB UPD430 * * REPEAT TO ADDRESS * UPD500 CF A14,GETADR GET END ADDRESS CWK A1,LBVDU RB(NL) UPDEND INVALID ADDRESS CF A14,GDCCH GET CHAR TO BE REPEATED LDK A5,1 INDICATE WCC, IC OR RA ORK A2,/80 INDICATE MODIFIED CWR A3,A1 NULLS TO ALL SCREEN POSITIONS ???? RF(E) UPD530 YES!!! UPD510 CWK A3,LBVDU RF(L) UPD520 NOT END OF SCREEN LDK A3,0 LDKL A4,BVDU WRAP AROUND ADR A4,TCABAS UPD520 CWR A3,A1 ABL(E) UPD220 ALL CHAR REPEATED UPD530 EQU * SCR A2,A4 ADK A3,1 ADK A4,1 RB UPD510 NEXT POSITION * * ERASE UNPROTECTED TO ADDRESS * UPD540 CF A14,GETADR GET END ADDRESS CWK A3,LBVDU RB(NL) UPDEND INVALID ADDRESS CF A14,ERASUA ERASE UNPROTECTED TO ADDRESS ABL UPD220 IFT COPCMD=1 * * COPY COMMAND * UPD600 EQU * LD A1,PRINTER,TCABAS ABL(Z) UPDEND COPYCOMMAND NOT SUPPORTED FOR VDU ADK A7,1 BYPASS CCC CF A14,GDCCH GET FROM DEVICE IFT EBCDIC=1 LC A2,TEBCDI,A2 CONVERT TO EBCDIC XIF IFT COPCMD=1 LD A3,6,CREBAS 'CB1' ADDRESS LDK A4,MF1KBV-1 IFT DCLIN=2 LD A1,ECBBLK+DC2,TCABAS RF(NZ) UPD602 LDK A4,MF2KBV-1 MF # 2 READ XIF IFT COPCMD=1 UPD602 EQU * ADR A4,A3 CONFIG TABLE -1 LD A5,NBRKBV,A3 NUMBER OF KB/VDUS ADR A4,A5 LAST KB/VDU CONFIGURATED UPD604 EQU * CCR A2,A4 DV-ADDRESS MATCHES ? RF(E) UPD610 YES SUK A4,1 SUK A5,1 RB(P) UPD604 TRY NEXT ABL UPDEND NO MATCH * UPD610 EQU * LDKL A8,ECBICW ADR A8,CREBAS LKM DATA 10 ABORT LAST REQUEST IF NOT COMPLETED ADKL A5,/4B40 TASKID FROM DEVICE LD A2,-4,CREBAS GET OWN TASKID ST A2,ICWORK,TCABAS PUT IN BUFFER LDK A4,/0B WRITE ADDRESSED , NO WAIT LDK A6,2 REQ LENGTH LDKL A3,ICWORK ADR A3,TCABAS BUFFER ADDRESS CF A14,ICWRTE WRITE INTERTASK ABL UPDEND XIF * * * PROCESS WRITE CONTROL CHARACTER * * ONLY RESET MDT BIT IS TAKEN CARE OF * * PWCC CF A14,GDCCH GET WCC LC A2,TEBCDI,A2 IN EBCDIC ST A2,WCC,TCABAS SAVE IT ANK A2,/04 RF(Z) PWCC1 LD A2,PRINTER,TCABAS RF(NZ) PWCC1 LDR A10,A7 LDKL A8,ECBVDU ADR A8,CREBAS LD A2,ECBBA,A8 LDK A7,/2B SC A7,1,A2 =1 LDK A7,/07 BELL =1 SC A7,2,A2 =1 SC A7,3,A2 =1 LDK A7,4 ST A7,ECBRL,A8 LDK A7,/86 LKM DATA 1 LD A8,ECBDCC,TCABAS LDR A7,A10 PWCC1 EQU * LD A2,WCC,TCABAS ANK A2,1 RF(NZ) RESMDT RESET ALL MDT PWCC10 RTN A14 NO ACTION * * * RESET ALL MDT BITS * * RESMDT LDK A3,0 LDKL A4,BVDU ADR A4,TCABAS RESM10 CWK A3,LBVDU RB(NL) PWCC10 ALL DONE LCR A2,A4 GET CHAR ANK A2,/60 RF(NZ) RESM20 NO ATTRIBUTE LCR A2,A4 ANK A2,/FE RESET MDT SCR A2,A4 RESM20 ADK A3,1 ADK A4,1 RB RESM10 * * * ERASE ENTIRE SCREEN * * ERASE LDK A3,0 LDKL A4,BVDU ADR A4,TCABAS LDK A2,NULL ERAS20 CWK A3,LBVDU RF(NL) ERAS25 ALL ERASED SCR A2,A4 ADK A3,1 ADK A4,1 RB ERAS20 ERAS25 CM PCURS,TCABAS RESET CURSOR POS LDKL A1,LBVDU+1 ST A1,CURATT,TCABAS INDICATE UNFORM. SCREEN CM ATTRIB,TCABAS LD A1,PRINTER,TCABAS CHECK DEVISE TYPE RF(NZ) ERAEND PRINTER, NOT DISPLAY STR A7,A14 SAVE A7 AND A8 ON STACK ST A8,-2,A14 LDKL A8,ECBVDU ADR A8,CREBAS VDUECB LDK A7,'1' ERASE CONTROL CHAR LD A1,ECBBA,A8 =1 SC A7,1,A1 =1 LDK A7,2 ST A7,ECBRL,A8 REQ LENGTH = 2 LDK A7,/86 WRITE LKM DATA 1 LD A8,-2,A14 LDR* A7,A14 RESTORE A7 AND A8 ERAEND RTN A14 * * * ERASE ALL UNPROTECTED * * ERASUP LDK A2,2 ST A2,WCC,TCABAS SET KEYBOARD RESTORE BIT SUR A1,A1 INDICATE ATT IN LAST SCREEN POS DK LDK A3,0 LDKL A4,BVDU ADR A4,TCABAS CM PCURS,TCABAS FIND FIRST UNPROTECTED POS LC A2,1919,A4 GET LAST SCREEN CHARACTER ANK A2,/7F CWK A2,/20 ATTRIBUTE ??? RF(L) ERU:01 YES!! WE GOT IT!! LDK A1,1 ATTRIBUTE NOT IN LAST SCREEN POS. ERASU1 CWK A3,LBVDU RF(NL) ERASU2 LCR A2,A4 GET CHAR ANK A2,/7F ADK A3,1 ADK A4,1 CWK A2,/20 RB(NL) ERASU1 NO ATTRIBUTE ERU:01 EQU * ANK A2,/10 RB(NZ) ERASU1 PROTECTED ST A3,PCURS,TCABAS SET NEW CURSOR POS LDR A1,A1 RF(Z) ERASU3 ATTRIBUTE IN LAST SCREEN POS. ERASU2 LDK A3,0 LDKL A4,BVDU ADR A4,TCABAS RF ERASU4 ERASU3 EQU * LDR A3,A3 RF(Z) ERASU4 UNPROTECTED ATT. IN LAST SCREEN POS. SUK A3,1 GET BACK TO ATTRIBUTE SUK A4,1 - " - ERASU4 EQU * LDKL A1,/0F00 (LDK A1,0) DK3 LDK A6,NULL+/80 ERASE CHAR RF ERAS35 * * * 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 * CCK A2,/2222 RF(L) RFMD90 CCK A2,/2424 RF(G) RFMD90 SUK A2,/20 LC A2,DKTAB,A2 RF RFMD90 DKTAB EQU * DATA /2000,/7B7C,/7D00 RFMD90 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…0024 (0, 0, 400) Head {h00=0x0020, h01=0x0050, text=» IDENT VDUPRT DK9 830818 EV «, t00=0x0000, t01=0x0004}
0x0024…002c Head {h00=0x0004, h01=0x0050, t00=0x0000, t01=0x0028}
0x002c…0050 Head {h00=0x0020, h01=0x0050, text=» DK9 RBUF,TBUF=2400 BYTES «, t00=0x0000, t01=0x0030}
0x0050…007c Head {h00=0x0028, h01=0x0050, text=» DK8, CONV.SMALL LETTERS AE,OE,AA «, t00=0x0000, t01=0x0054}
0x007c…009e Head {h00=0x001e, h01=0x0050, text=» DK7.1 'APL' ESCAPE ????«, t00=0x0000, t01=0x0080}
0x009e…00c0 Head {h00=0x001e, h01=0x0050, text=» CHANGED FROM /08 TO /1E«, t00=0x0000, t01=0x00a2}
0x00c0…00d6 Head {h00=0x0012, h01=0x0050, text=» INTERNALLY «, t00=0x0000, t01=0x00c4}
0x00d6…0102 Head {h00=0x0028, h01=0x0050, text=» WHAT IS 'APL' ESCAPE, GEORGE?????«, t00=0x0000, t01=0x00da}
0x0102…0114 Head {h00=0x000e, h01=0x0050, text=» 830714«, t00=0x0000, t01=0x0106}
0x0114…0140 Head {h00=0x0028, h01=0x0050, text=» DK7, READ MODIFIED HANDLING (GF) «, t00=0x0000, t01=0x0118}
0x0140…0164 Head {h00=0x0020, h01=0x0050, text=» DK6 ORDER INDICATOR 'SBA'«, t00=0x0000, t01=0x0144}
0x0164…0184 Head {h00=0x001c, h01=0x0050, text=» =1,ODD BUFFER ADDRESS«, t00=0x0000, t01=0x0168}
0x0184…01a0 Head {h00=0x0018, h01=0x0050, text=» REL 2.1 79-05-23 «, t00=0x0000, t01=0x0188}
0x01a0…01bc Head {h00=0x0018, h01=0x0050, text=» =2,KEYBOARD LAMPS«, t00=0x0001, t01=0x0014}
0x01bc…01d8 Head {h00=0x0018, h01=0x0050, text=» REL 2.1 79-05-23 «, t00=0x0001, t01=0x0030}
0x01d8…01fe Head {h00=0x0022, h01=0x0050, text=» =3, TRANSMIT BUFFER LENGTH «, t00=0x0001, t01=0x004c}
0x01fe…021a Head {h00=0x0018, h01=0x0050, text=» REL 2.1 79-05-23 «, t00=0x0001, t01=0x0072}
0x021a…0242 Head {h00=0x0024, h01=0x0050, text=» DK5 - SKIP CHAR 06=2F=USM DK5«, t00=0x0001, t01=0x008e}
0x0242…025a Head {h00=0x0014, h01=0x0050, text=» DK4 - RFMDUP «, t00=0x0001, t01=0x00b6}
0x025a…026e Head {h00=0x0010, h01=0x0050, text=» DK3 - EUA«, t00=0x0001, t01=0x00ce}
0x026e…028a Head {h00=0x0018, h01=0x0050, text=» DK2 - DC-TIMEOUT «, t00=0x0001, t01=0x00e2}
0x028a…02a8 Head {h00=0x001a, h01=0x0050, text=» DK1 - BLANK COL. 80«, t00=0x0001, t01=0x00fe}
0x02a8…02f2 Head {h00=0x0046, h01=0x0050, text=»******************************************************************«, t00=0x0001, t01=0x011c}
0x02f2…02fc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x0166}
0x02fc…033c Head {h00=0x003c, h01=0x0050, text=»* V D U P R T : MODULE HANDLING MESSAGES COMING FROM«, t00=0x0001, t01=0x0170}
0x033c…037a Head {h00=0x003a, h01=0x0050, text=»* MAIN FRAME, AND DISPLAYING THEM ON«, t00=0x0002, t01=0x0020}
0x037a…03ac Head {h00=0x002e, h01=0x0050, text=»* THE VDU ( PTS 6344 ) .«, t00=0x0002, t01=0x005e}
0x03ac…03b6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x0090}
0x03b6…0402 Head {h00=0x0048, h01=0x0050, text=»********************************************************************«, t00=0x0002, t01=0x009a}
0x0402…040c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x00e6}
0x040c…0416 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x00f0}
0x0416…0420 Head {h00=0x0006, h01=0x0050, text=» «, t00=0x0002, t01=0x00fa}
0x0420…042a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x0104}
0x042a…0434 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x010e}
0x0434…0446 Head {h00=0x000e, h01=0x0050, text=»* ENTRIES «, t00=0x0002, t01=0x0118}
0x0446…0450 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x012a}
0x0450…045a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x0134}
0x045a…0488 Head {h00=0x002a, h01=0x0050, text=» ENTRY TRPF TRANSMIT, PROGRAM FUNCTION«, t00=0x0002, t01=0x013e}
0x0488…04b8 Head {h00=0x002c, h01=0x0050, text=» ENTRY TRPA TRANSMIT, PROGRAM ATTENTION «, t00=0x0002, t01=0x016c}
0x04b8…04e0 Head {h00=0x0024, h01=0x0050, text=» ENTRY ERASE ERASE ENTIRE SCREEN«, t00=0x0003, t01=0x000c}
0x04e0…0508 Head {h00=0x0024, h01=0x0050, text=» ENTRY SETCUR CURSOR POSITIONING«, t00=0x0003, t01=0x0034}
0x0508…0534 Head {h00=0x0028, h01=0x0050, text=» ENTRY ERASUP ERASE ALL UNPROTECTED «, t00=0x0003, t01=0x005c}
0x0534…055e Head {h00=0x0026, h01=0x0050, text=» ENTRY DISPL DISPLAY MODIFIED DATA«, t00=0x0003, t01=0x0088}
0x055e…0590 Head {h00=0x002e, h01=0x0050, text=» ENTRY ERASUA ERASE UNPROTECTED TO ADDRESS«, t00=0x0003, t01=0x00b2}
0x0590…05c2 Head {h00=0x002e, h01=0x0050, text=» ENTRY WCHAR WRITE ONE CHAR IN CURSOR POS «, t00=0x0003, t01=0x00e4}
0x05c2…05d8 Head {h00=0x0012, h01=0x0050, text=» ENTRY UPDATE «, t00=0x0003, t01=0x0116}
0x05d8…05fe Head {h00=0x0022, h01=0x0050, text=» ENTRY RFMDUP REPLACE FM & DUP«, t00=0x0003, t01=0x012c}
0x05fe…0612 Head {h00=0x0010, h01=0x0050, text=» ENTRY DCINP«, t00=0x0003, t01=0x0152}
0x0612…0628 Head {h00=0x0012, h01=0x0050, text=» ENTRY RLRBUF «, t00=0x0003, t01=0x0166}
0x0628…063e Head {h00=0x0012, h01=0x0050, text=» ENTRY DCGETM «, t00=0x0003, t01=0x017c}
0x063e…0654 (4, 0, 400) Head {h00=0x0012, h01=0x0050, text=» ENTRY GTRBUF «, t00=0x0004, t01=0x0004}
0x0654…065e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x001a}
0x065e…0668 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x0024}
0x0668…067c Head {h00=0x0010, h01=0x0050, text=»* EXTERNALS «, t00=0x0004, t01=0x002e}
0x067c…0686 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x0042}
0x0686…0690 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x004c}
0x0690…06b2 Head {h00=0x001e, h01=0x0050, text=» EXTRN LINHON,LINHOF START«, t00=0x0004, t01=0x0056}
0x06b2…06d4 Head {h00=0x001e, h01=0x0050, text=» EXTRN LSAVON,LSAVOF START«, t00=0x0004, t01=0x0078}
0x06d4…06ea Head {h00=0x0012, h01=0x0050, text=» EXTRN ATMASB «, t00=0x0004, t01=0x009a}
0x06ea…06fe Head {h00=0x0010, h01=0x0050, text=» EXTRN EMULA«, t00=0x0004, t01=0x00b0}
0x06fe…0714 Head {h00=0x0012, h01=0x0050, text=» EXTRN REQTIM «, t00=0x0004, t01=0x00c4}
0x0714…072a Head {h00=0x0012, h01=0x0050, text=» EXTRN ICWRTE «, t00=0x0004, t01=0x00da}
0x072a…0750 Head {h00=0x0022, h01=0x0050, text=» EXTRN READMY READ MODIFED DK7«, t00=0x0004, t01=0x00f0}
0x0750…075a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x0116}
0x075a…0774 Head {h00=0x0016, h01=0x0050, text=» EXTRN SNBUSY PRT «, t00=0x0004, t01=0x0120}
0x0774…077e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x013a}
0x077e…07ac Head {h00=0x002a, h01=0x0050, text=» EXTRN I:EVA0 CREDIT EVALUATION TABLE «, t00=0x0004, t01=0x0144}
0x07ac…07b6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x0172}
0x07b6…07da Head {h00=0x0020, h01=0x0050, text=» EXTRN TASCII,TEBCDI TB3270 «, t00=0x0004, t01=0x017c}
0x07da…07e4 Head {h00=0x0006, h01=0x0050, text=» «, t00=0x0005, t01=0x0010}
0x07e4…07ee Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x001a}
0x07ee…0836 Head {h00=0x0044, h01=0x0050, text=»****************************************************************«, t00=0x0005, t01=0x0024}
0x0836…0840 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x006c}
0x0840…086c Head {h00=0x0028, h01=0x0050, text=»* CONDITIONAL ASSEMBLY PARAMETERS «, t00=0x0005, t01=0x0076}
0x086c…0876 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x00a2}
0x0876…08ac Head {h00=0x0032, h01=0x0050, text=»**********************************************«, t00=0x0005, t01=0x00ac}
0x08ac…08b4 Head {h00=0x0004, h01=0x0050, t00=0x0005, t01=0x00e2}
0x08b4…08ea Head {h00=0x0032, h01=0x0050, text=»OFLIN EQU 1 OFFLINE HANDLING POSSIBLE IF ::= 1«, t00=0x0005, t01=0x00ea}
0x08ea…091a Head {h00=0x002c, h01=0x0050, text=»DCLIN EQU 1 NUMBER OF MAIN FRAMES (1-2) «, t00=0x0005, t01=0x0120}
0x091a…0954 Head {h00=0x0036, h01=0x0050, text=»RBUFL EQU 1200 RECEIVE BUFFER LENGTH IN WORDS DK9 «, t00=0x0005, t01=0x0150}
0x0954…0988 Head {h00=0x0030, h01=0x0050, text=»RBUFNR EQU 1 NUMBER OF RECEIVE BUFFERS (1-5)«, t00=0x0005, t01=0x018a}
0x0988…09c2 Head {h00=0x0036, h01=0x0050, text=»TBUFL EQU 1200 TRANSMIT BUFFER LENGTH IN WORDS DK9«, t00=0x0006, t01=0x002e}
0x09c2…09f8 Head {h00=0x0032, h01=0x0050, text=»TBUFNR EQU 1 NUMBER OF TRANSMIT BUFFERS (1-5) «, t00=0x0006, t01=0x0068}
0x09f8…0a34 Head {h00=0x0038, h01=0x0050, text=»COPCMD EQU 1 COPY COMMAND (ONLY TO PRINTER) IF := 1 «, t00=0x0006, t01=0x009e}
0x0a34…0a5e Head {h00=0x0026, h01=0x0050, text=»EBCDIC EQU 1 ASCII = 0,EBCDIC = 1 «, t00=0x0006, t01=0x00da}
0x0a5e…0a68 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x0104}
0x0a68…0a7a Head {h00=0x000e, h01=0x0050, text=»* EQUATES «, t00=0x0006, t01=0x010e}
0x0a7a…0a84 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x0120}
0x0a84…0a8e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x012a}
0x0a8e…0ac0 Head {h00=0x002e, h01=0x0050, text=»TIMDC EQU 600 DC TIME OUT VALUE: 60 S DK2 «, t00=0x0006, t01=0x0134}
0x0ac0…0ad4 Head {h00=0x0010, h01=0x0050, text=»ESC EQU /1B «, t00=0x0006, t01=0x0166}
0x0ad4…0ae8 Head {h00=0x0010, h01=0x0050, text=»SBA EQU /11 «, t00=0x0006, t01=0x017a}
0x0ae8…0b0c Head {h00=0x0020, h01=0x0050, text=»NULL EQU /7F NULL CHARACTER «, t00=0x0006, t01=0x018e}
0x0b0c…0b36 Head {h00=0x0026, h01=0x0050, text=»NEWLIN EQU /7E NEW LINE CHARACTER «, t00=0x0007, t01=0x0022}
0x0b36…0b5e Head {h00=0x0024, h01=0x0050, text=»ENDMES EQU /7D END MESSAGE CHAR «, t00=0x0007, t01=0x004c}
0x0b5e…0b84 Head {h00=0x0022, h01=0x0050, text=»FORMFD EQU /7C FORM FEED CHAR «, t00=0x0007, t01=0x0074}
0x0b84…0b9a Head {h00=0x0012, h01=0x0050, text=»DUPCH EQU /7B «, t00=0x0007, t01=0x009a}
0x0b9a…0bae Head {h00=0x0010, h01=0x0050, text=»FMCH EQU /60«, t00=0x0007, t01=0x00b0}
0x0bae…0bc6 Head {h00=0x0014, h01=0x0050, text=»TRCH EQU /30 DK«, t00=0x0007, t01=0x00c4}
0x0bc6…0bf0 Head {h00=0x0026, h01=0x0050, text=»SKIP EQU /06 SKIP CHAR. (USM) DK5 «, t00=0x0007, t01=0x00dc}
0x0bf0…0bfa Head {h00=0x0006, h01=0x0050, text=» «, t00=0x0007, t01=0x0106}
0x0bfa…0c04 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x0110}
0x0c04…0c0e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x011a}
0x0c0e…0c24 Head {h00=0x0012, h01=0x0050, text=»* EQUATES «, t00=0x0007, t01=0x0124}
0x0c24…0c2e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x013a}
0x0c2e…0c54 Head {h00=0x0022, h01=0x0050, text=»* COMMON EQU FOR ECB HANDLING «, t00=0x0007, t01=0x0144}
0x0c54…0c5e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x016a}
0x0c5e…0c66 Head {h00=0x0004, h01=0x0050, t00=0x0007, t01=0x0174}
0x0c66…0c7a Head {h00=0x0010, h01=0x0050, text=»ECBBA EQU 2 «, t00=0x0007, t01=0x017c}
0x0c7a…0c8e Head {h00=0x0010, h01=0x0050, text=»ECBRL EQU 4 «, t00=0x0007, t01=0x0190}
0x0c8e…0ca2 Head {h00=0x0010, h01=0x0050, text=»ECBEL EQU 6 «, t00=0x0008, t01=0x0014}
0x0ca2…0cb6 Head {h00=0x0010, h01=0x0050, text=»ECBRC EQU 8 «, t00=0x0008, t01=0x0028}
0x0cb6…0cca Head {h00=0x0010, h01=0x0050, text=»ECBCW EQU 10«, t00=0x0008, t01=0x003c}
0x0cca…0cd4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x0050}
0x0cd4…0cde Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x005a}
0x0cde…0cf8 Head {h00=0x0016, h01=0x0050, text=»* CREDIT USED EQU «, t00=0x0008, t01=0x0064}
0x0cf8…0d02 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x007e}
0x0d02…0d0c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x0088}
0x0d0c…0d28 Head {h00=0x0018, h01=0x0050, text=»* ECB REL. ADDRESSES«, t00=0x0008, t01=0x0092}
0x0d28…0d32 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x00ae}
0x0d32…0d3c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x00b8}
0x0d3c…0d4e Head {h00=0x000e, h01=0x0050, text=»DIS EQU 20«, t00=0x0008, t01=0x00c2}
0x0d4e…0d58 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x00d4}
0x0d58…0d72 Head {h00=0x0016, h01=0x0050, text=»ECBDC EQU -DIS-14 «, t00=0x0008, t01=0x00de}
0x0d72…0d86 Head {h00=0x0010, h01=0x0050, text=» IFT DCLIN=2«, t00=0x0008, t01=0x00f8}
0x0d86…0d9c Head {h00=0x0012, h01=0x0050, text=» IFT COPCMD=1 «, t00=0x0008, t01=0x010c}
0x0d9c…0db8 Head {h00=0x0018, h01=0x0050, text=»ECBDC2 EQU ECBDC-DIS«, t00=0x0008, t01=0x0122}
0x0db8…0dd6 Head {h00=0x001a, h01=0x0050, text=»ECBICR EQU ECBDC2-DIS «, t00=0x0008, t01=0x013e}
0x0dd6…0df4 Head {h00=0x001a, h01=0x0050, text=»ECBICW EQU ECBICR-DIS «, t00=0x0008, t01=0x015c}
0x0df4…0e00 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0008, t01=0x017a}
0x0e00…0e14 Head {h00=0x0010, h01=0x0050, text=» IFT DCLIN=2«, t00=0x0008, t01=0x0186}
0x0e14…0e2a Head {h00=0x0012, h01=0x0050, text=» IFF COPCMD=1 «, t00=0x0009, t01=0x000a}
0x0e2a…0e46 Head {h00=0x0018, h01=0x0050, text=»ECBDC2 EQU ECBDC-DIS«, t00=0x0009, t01=0x0020}
0x0e46…0e64 Head {h00=0x001a, h01=0x0050, text=»ECBICW EQU ECBDC2-DIS «, t00=0x0009, t01=0x003c}
0x0e64…0e70 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0009, t01=0x005a}
0x0e70…0e84 Head {h00=0x0010, h01=0x0050, text=» IFF DCLIN=2«, t00=0x0009, t01=0x0066}
0x0e84…0e9a Head {h00=0x0012, h01=0x0050, text=» IFT COPCMD=1 «, t00=0x0009, t01=0x007a}
0x0e9a…0eb6 Head {h00=0x0018, h01=0x0050, text=»ECBICR EQU ECBDC-DIS«, t00=0x0009, t01=0x0090}
0x0eb6…0ed4 Head {h00=0x001a, h01=0x0050, text=»ECBICW EQU ECBICR-DIS «, t00=0x0009, t01=0x00ac}
0x0ed4…0ee0 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0009, t01=0x00ca}
0x0ee0…0ef4 Head {h00=0x0010, h01=0x0050, text=» IFF DCLIN=2«, t00=0x0009, t01=0x00d6}
0x0ef4…0f0a Head {h00=0x0012, h01=0x0050, text=» IFF COPCMD=1 «, t00=0x0009, t01=0x00ea}
0x0f0a…0f26 Head {h00=0x0018, h01=0x0050, text=»ECBICW EQU ECBDC-DIS«, t00=0x0009, t01=0x0100}
0x0f26…0f32 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0009, t01=0x011c}
0x0f32…0f50 Head {h00=0x001a, h01=0x0050, text=»ECBVDU EQU ECBICW-DIS «, t00=0x0009, t01=0x0128}
0x0f50…0f6c Head {h00=0x0018, h01=0x0050, text=»ECBKB EQU ECBVDU-DIS«, t00=0x0009, t01=0x0146}
0x0f6c…0f88 Head {h00=0x0018, h01=0x0050, text=»ECBSD EQU ECBKB-DIS «, t00=0x0009, t01=0x0162}
0x0f88…0f92 Head {h00=0x0006, h01=0x0050, text=» «, t00=0x0009, t01=0x017e}
0x0f92…0f9c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x0188}
0x0f9c…0fa6 (10, 0, 400) Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x0004}
0x0fa6…0fcc Head {h00=0x0022, h01=0x0050, text=»* BASE ADDRESS FOR TCA AND ECB«, t00=0x000a, t01=0x000e}
0x0fcc…0fd6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x0034}
0x0fd6…0fec Head {h00=0x0012, h01=0x0050, text=»TCABAS EQU A11«, t00=0x000a, t01=0x003e}
0x0fec…1006 Head {h00=0x0016, h01=0x0050, text=»CREBAS EQU A13 ECB«, t00=0x000a, t01=0x0054}
0x1006…1010 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x006e}
0x1010…101a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x0078}
0x101a…1036 Head {h00=0x0018, h01=0x0050, text=»* TCA REL. ADDRESSES«, t00=0x000a, t01=0x0082}
0x1036…1040 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x009e}
0x1040…1054 Head {h00=0x0010, h01=0x0050, text=»TCT01 EQU 0 «, t00=0x000a, t01=0x00a8}
0x1054…1070 Head {h00=0x0018, h01=0x0050, text=»PRINTER EQU TCT01+2 «, t00=0x000a, t01=0x00bc}
0x1070…109c Head {h00=0x0028, h01=0x0050, text=»BVDU EQU PRINTER+2 VDU SCREEN BUFFER«, t00=0x000a, t01=0x00d8}
0x109c…10d0 Head {h00=0x0030, h01=0x0050, text=»PCURS EQU BVDU+1920 CURSOR ADDRESS , BINARY «, t00=0x000a, t01=0x0104}
0x10d0…10fe Head {h00=0x002a, h01=0x0050, text=»ATTRIB EQU PCURS+2 LAST ATTRIBUTE CHAR«, t00=0x000a, t01=0x0138}
0x10fe…111a Head {h00=0x0018, h01=0x0050, text=»CURATT EQU ATTRIB+2 «, t00=0x000a, t01=0x0166}
0x111a…1144 Head {h00=0x0026, h01=0x0050, text=»WCC EQU CURATT+2 WCC/CCC CHARACTER«, t00=0x000a, t01=0x0182}
0x1144…1176 Head {h00=0x002e, h01=0x0050, text=»KBINH EQU WCC+2 KEYBOARD INHIBIT INDICATOR«, t00=0x000b, t01=0x001c}
0x1176…119e Head {h00=0x0024, h01=0x0050, text=»LINCNT EQU KBINH+2 LINE COUNTER «, t00=0x000b, t01=0x004e}
0x119e…11d2 Head {h00=0x0030, h01=0x0050, text=»DCLENG EQU LINCNT+2 DC READ EFFECTIVE LENGTH«, t00=0x000b, t01=0x0076}
0x11d2…1208 Head {h00=0x0032, h01=0x0050, text=»ICWORK EQU DCLENG+2 WORK FIELD INTERTASK COMM «, t00=0x000b, t01=0x00aa}
0x1208…1238 Head {h00=0x002c, h01=0x0050, text=»INTATT EQU ICWORK+2 INTENSITY ATTRIBUTE «, t00=0x000b, t01=0x00e0}
0x1238…1260 Head {h00=0x0024, h01=0x0050, text=»OFFFLG EQU INTATT+2 OFFLINE FLAG«, t00=0x000b, t01=0x0110}
0x1260…128c Head {h00=0x0028, h01=0x0050, text=»COPNO EQU OFFFLG+2 HARDCOPY TASK ID «, t00=0x000b, t01=0x0138}
0x128c…12ba Head {h00=0x002a, h01=0x0050, text=»CCC EQU COPNO+2 COPY COMMAND CHARACTER«, t00=0x000b, t01=0x0164}
0x12ba…12dc (12, 0, 400) Head {h00=0x001e, h01=0x0050, text=»MAIN EQU CCC+2 MAIN FRAME «, t00=0x000c, t01=0x0004}
0x12dc…1306 Head {h00=0x0026, h01=0x0050, text=»MODE EQU MAIN+2 INSERT MODE SWITCH«, t00=0x000c, t01=0x0026}
0x1306…132e Head {h00=0x0024, h01=0x0050, text=»KEYS EQU MODE+2 KEY LOCK STATUS «, t00=0x000c, t01=0x0050}
0x132e…1360 Head {h00=0x002e, h01=0x0050, text=»ECBDCC EQU KEYS+2 ECB ADDRESS LAST READ DC«, t00=0x000c, t01=0x0078}
0x1360…1396 Head {h00=0x0032, h01=0x0050, text=»ECBBLK EQU ECBDCC+2 ECBS FOR MULTIPLE WAIT &C «, t00=0x000c, t01=0x00aa}
0x1396…13ce Head {h00=0x0034, h01=0x0050, text=»RDMORE EQU ECBBLK+10 BRANCH ADDRESS NEXT READ KB«, t00=0x000c, t01=0x00e0}
0x13ce…1408 Head {h00=0x0036, h01=0x0050, text=»RDMYRC EQU RDMORE+4 READ MODIFIED RETRURN CODE DK7«, t00=0x000c, t01=0x0118}
0x1408…1412 Head {h00=0x0006, h01=0x0050, text=» «, t00=0x000c, t01=0x0152}
0x1412…141a Head {h00=0x0004, h01=0x0050, t00=0x000c, t01=0x015c}
0x141a…1424 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x0164}
0x1424…142e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x016e}
0x142e…145c Head {h00=0x002a, h01=0x0050, text=»LBVDU EQU 1920 1920 CHARACTER DISPLAY «, t00=0x000c, t01=0x0178}
0x145c…1482 Head {h00=0x0022, h01=0x0050, text=»LPAGE EQU 48 LINES ON ONE PAGE«, t00=0x000d, t01=0x0016}
0x1482…14b0 Head {h00=0x002a, h01=0x0050, text=»LLINE EQU 80 80 CHAR PER DISPLAY LINE «, t00=0x000d, t01=0x003c}
0x14b0…14e2 Head {h00=0x002e, h01=0x0050, text=»TID EQU -4 TASK IDENTITY T:A DISPLACEMENT «, t00=0x000d, t01=0x006a}
0x14e2…14ec Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x009c}
0x14ec…1516 Head {h00=0x0026, h01=0x0050, text=»* CONFIG DATA 'CB1' REL ADDRESSES «, t00=0x000d, t01=0x00a6}
0x1516…1520 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x00d0}
0x1520…1546 Head {h00=0x0022, h01=0x0050, text=»NBRKBV EQU 0 NUMBER OF KB/VDUS«, t00=0x000d, t01=0x00da}
0x1546…1570 Head {h00=0x0026, h01=0x0050, text=»NBRGTP EQU NBRKBV+2 NUMBER OF GTPS«, t00=0x000d, t01=0x0100}
0x1570…157a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x012a}
0x157a…15b0 Head {h00=0x0032, h01=0x0050, text=»MF1KBV EQU NBRGTP+2 DV ADDRESSES KB/VDU MF #1 «, t00=0x000d, t01=0x0134}
0x15b0…15e6 Head {h00=0x0032, h01=0x0050, text=»MF1GTP EQU MF1KBV+16 DV ADDRESSES GTPS MF # 1 «, t00=0x000d, t01=0x016a}
0x15e6…15fa Head {h00=0x0010, h01=0x0050, text=» IFT DCLIN=2«, t00=0x000e, t01=0x0010}
0x15fa…1616 Head {h00=0x0018, h01=0x0050, text=»MF2KBV EQU MF1GTP+16«, t00=0x000e, t01=0x0024}
0x1616…1632 Head {h00=0x0018, h01=0x0050, text=»MF2GTP EQU MF2KBV+16«, t00=0x000e, t01=0x0040}
0x1632…163e Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x000e, t01=0x005c}
0x163e…1648 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x0068}
0x1648…1650 Head {h00=0x0004, h01=0x0050, t00=0x000e, t01=0x0072}
0x1650…165a Head {h00=0x0006, h01=0x0050, text=» «, t00=0x000e, t01=0x007a}
0x165a…16a2 Head {h00=0x0044, h01=0x0050, text=»****************************************************************«, t00=0x000e, t01=0x0084}
0x16a2…16ac Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x00cc}
0x16ac…16c4 Head {h00=0x0014, h01=0x0050, text=»* INPUT FROM DC «, t00=0x000e, t01=0x00d6}
0x16c4…16ce Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x00ee}
0x16ce…170a Head {h00=0x0038, h01=0x0050, text=»****************************************************«, t00=0x000e, t01=0x00f8}
0x170a…1714 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x0134}
0x1714…1734 Head {h00=0x001c, h01=0x0050, text=»* RELATIVE POS IN ECBBLK«, t00=0x000e, t01=0x013e}
0x1734…1744 Head {h00=0x000c, h01=0x0050, text=»KB EQU 2«, t00=0x000e, t01=0x015e}
0x1744…1756 Head {h00=0x000e, h01=0x0050, text=»DC1 EQU 4 «, t00=0x000e, t01=0x016e}
0x1756…1768 Head {h00=0x000e, h01=0x0050, text=»DC2 EQU 6 «, t00=0x000e, t01=0x0180}
0x1768…1772 (15, 0, 400) Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x0004}
0x1772…1786 Head {h00=0x0010, h01=0x0050, text=»DCINP EQU * «, t00=0x000f, t01=0x000e}
0x1786…17b2 Head {h00=0x0028, h01=0x0050, text=» LD A8,ECBDCC,TCABAS GET THE ECB CK7«, t00=0x000f, t01=0x0022}
0x17b2…17e0 Head {h00=0x002a, h01=0x0050, text=» LD A1,ECBRC,A8 READ-MOD RECEIVED? DK7«, t00=0x000f, t01=0x004e}
0x17e0…17fc Head {h00=0x0018, h01=0x0050, text=» ANKL A1,/4000 DK7 «, t00=0x000f, t01=0x007c}
0x17fc…182a Head {h00=0x002a, h01=0x0050, text=» RF(Z) DCIN20 NO,PROCESS NORMALLY DK7 «, t00=0x000f, t01=0x0098}
0x182a…1864 Head {h00=0x0036, h01=0x0050, text=» ST A1,RDMYRC,TCABAS SAVE RET.CODE FOR DCWRITE DK7«, t00=0x000f, t01=0x00c6}
0x1864…1894 Head {h00=0x002c, h01=0x0050, text=» CF A14,READMY YES,FAKE AN ENTER KEY DK7«, t00=0x000f, t01=0x0100}
0x1894…18c0 Head {h00=0x0028, h01=0x0050, text=» RTN A14 GO ON BACK TO BUSINESS DK7 «, t00=0x000f, t01=0x0130}
0x18c0…18da Head {h00=0x0016, h01=0x0050, text=»DCIN20 EQU * DK7 «, t00=0x000f, t01=0x015c}
0x18da…1904 Head {h00=0x0026, h01=0x0050, text=» CF A14,GTRBUF GET RECEIVE BUFFER «, t00=0x000f, t01=0x0176}
0x1904…1920 Head {h00=0x0018, h01=0x0050, text=» LD A8,ECBDCC,TCABAS«, t00=0x0010, t01=0x0010}
0x1920…1944 Head {h00=0x0020, h01=0x0050, text=» CF A14,DCGETM READ MESSAGE «, t00=0x0010, t01=0x002c}
0x1944…1958 Head {h00=0x0010, h01=0x0050, text=» IFF DCLIN=2«, t00=0x0010, t01=0x0050}
0x1958…1976 Head {h00=0x001a, h01=0x0050, text=» CM ECBBLK+DC1,TCABAS «, t00=0x0010, t01=0x0064}
0x1976…1982 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0010, t01=0x0082}
0x1982…1996 Head {h00=0x0010, h01=0x0050, text=» IFT DCLIN=2«, t00=0x0010, t01=0x008e}
0x1996…19b0 Head {h00=0x0016, h01=0x0050, text=» LD A1,MAIN,TCABAS«, t00=0x0010, t01=0x00a2}
0x19b0…19d0 Head {h00=0x001c, h01=0x0050, text=» CW A8,ECBBLK+DC2,TCABAS«, t00=0x0010, t01=0x00bc}
0x19d0…19ec Head {h00=0x0018, h01=0x0050, text=» RF(E) DCIN20 MF # 2«, t00=0x0010, t01=0x00dc}
0x19ec…1a0a Head {h00=0x001a, h01=0x0050, text=» CM ECBBLK+DC1,TCABAS «, t00=0x0010, t01=0x00f8}
0x1a0a…1a1c Head {h00=0x000e, h01=0x0050, text=» LDR A1,A1«, t00=0x0010, t01=0x0116}
0x1a1c…1a3c Head {h00=0x001c, h01=0x0050, text=» RF(NZ) DCIN90 WRONG MF «, t00=0x0010, t01=0x0128}
0x1a3c…1a4e Head {h00=0x000e, h01=0x0050, text=» RF DCIN30«, t00=0x0010, t01=0x0148}
0x1a4e…1a62 Head {h00=0x0010, h01=0x0050, text=»DCIN20 EQU *«, t00=0x0010, t01=0x015a}
0x1a62…1a80 Head {h00=0x001a, h01=0x0050, text=» CM ECBBLK+DC2,TCABAS «, t00=0x0010, t01=0x016e}
0x1a80…1a92 Head {h00=0x000e, h01=0x0050, text=» LDR A1,A1«, t00=0x0010, t01=0x018c}
0x1a92…1ab0 Head {h00=0x001a, h01=0x0050, text=» RF(Z) DCIN90 WRONG MF«, t00=0x0011, t01=0x000e}
0x1ab0…1abc Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0011, t01=0x002c}
0x1abc…1ad0 Head {h00=0x0010, h01=0x0050, text=»DCIN30 EQU *«, t00=0x0011, t01=0x0038}
0x1ad0…1ae4 Head {h00=0x0010, h01=0x0050, text=» IFT OFLIN=1«, t00=0x0011, t01=0x004c}
0x1ae4…1b00 Head {h00=0x0018, h01=0x0050, text=» LD A1,OFFFLG,TCABAS«, t00=0x0011, t01=0x0060}
0x1b00…1b16 Head {h00=0x0012, h01=0x0050, text=» RF(NZ) DCIN90«, t00=0x0011, t01=0x007c}
0x1b16…1b22 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0011, t01=0x0092}
0x1b22…1b4e Head {h00=0x0028, h01=0x0050, text=» LD A1,ECBEL,A8 EFFECTIVE DC-LENGTH «, t00=0x0011, t01=0x009e}
0x1b4e…1b6a Head {h00=0x0018, h01=0x0050, text=» ST A1,DCLENG,TCABAS«, t00=0x0011, t01=0x00ca}
0x1b6a…1b72 Head {h00=0x0004, h01=0x0050, t00=0x0011, t01=0x00e6}
0x1b72…1b7a Head {h00=0x0004, h01=0x0050, t00=0x0011, t01=0x00ee}
0x1b7a…1b96 Head {h00=0x0018, h01=0x0050, text=» LD A5,KBINH,TCABAS «, t00=0x0011, t01=0x00f6}
0x1b96…1bc8 Head {h00=0x002e, h01=0x0050, text=» ORK A5,3 BIT 14,15:= 1. TOTALLY DISABLED «, t00=0x0011, t01=0x0112}
0x1bc8…1bfa Head {h00=0x002e, h01=0x0050, text=»* KEYBOARD. BIT 15 = 0 AFTER DISPLAYING.«, t00=0x0011, t01=0x0144}
0x1bfa…1c16 Head {h00=0x0018, h01=0x0050, text=» ST A5,KBINH,TCABAS «, t00=0x0011, t01=0x0176}
0x1c16…1c48 (18, 0, 400) Head {h00=0x002e, h01=0x0050, text=» CF A14,LINHON TURN ON 'KEYBOARD INHIBIT' «, t00=0x0012, t01=0x0004}
0x1c48…1c7a Head {h00=0x002e, h01=0x0050, text=» CF A14,LSAVON TURN ON "SYSTEM AVAILABLE" «, t00=0x0012, t01=0x0036}
0x1c7a…1c90 Head {h00=0x0012, h01=0x0050, text=» CF A14,UPDATE«, t00=0x0012, t01=0x0068}
0x1c90…1ca6 Head {h00=0x0012, h01=0x0050, text=» CF A14,DISPL «, t00=0x0012, t01=0x007e}
0x1ca6…1cc2 Head {h00=0x0018, h01=0x0050, text=» LD A2,PCURS,TCABAS «, t00=0x0012, t01=0x0094}
0x1cc2…1cd8 Head {h00=0x0012, h01=0x0050, text=» CF A14,ATMASB«, t00=0x0012, t01=0x00b0}
0x1cd8…1ce0 Head {h00=0x0004, h01=0x0050, t00=0x0012, t01=0x00c6}
0x1ce0…1ce8 Head {h00=0x0004, h01=0x0050, t00=0x0012, t01=0x00ce}
0x1ce8…1cf2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x00d6}
0x1cf2…1d0e Head {h00=0x0018, h01=0x0050, text=» LD A2,KBINH,TCABAS «, t00=0x0012, t01=0x00e0}
0x1d0e…1d2c Head {h00=0x001a, h01=0x0050, text=» ANK A2,1 BIT 15 = 0? «, t00=0x0012, t01=0x00fc}
0x1d2c…1d42 Head {h00=0x0012, h01=0x0050, text=» RF(Z) DCIN60 «, t00=0x0012, t01=0x011a}
0x1d42…1d5e Head {h00=0x0018, h01=0x0050, text=» LD A2,KBINH,TCABAS «, t00=0x0012, t01=0x0130}
0x1d5e…1d90 Head {h00=0x002e, h01=0x0050, text=» ANK A2,/E BIT 15:=0 KEYBOARD NOT TOTALLY «, t00=0x0012, t01=0x014c}
0x1d90…1db0 Head {h00=0x001c, h01=0x0050, text=»* INHIBITED ANY LONGER«, t00=0x0012, t01=0x017e}
0x1db0…1dcc Head {h00=0x0018, h01=0x0050, text=» ST A2,KBINH,TCABAS «, t00=0x0013, t01=0x000e}
0x1dcc…1de6 Head {h00=0x0016, h01=0x0050, text=» LD A2,WCC,TCABAS «, t00=0x0013, t01=0x002a}
0x1de6…1df8 Head {h00=0x000e, h01=0x0050, text=» ANK A2,2 «, t00=0x0013, t01=0x0044}
0x1df8…1e0e Head {h00=0x0012, h01=0x0050, text=» RF(Z) DCIN95 «, t00=0x0013, t01=0x0056}
0x1e0e…1e22 Head {h00=0x0010, h01=0x0050, text=»DCIN60 EQU *«, t00=0x0013, t01=0x006c}
0x1e22…1e54 Head {h00=0x002e, h01=0x0050, text=» CF A14,LINHOF TURN OFF 'KEYBOARD INHIBIT'«, t00=0x0013, t01=0x0080}
0x1e54…1e70 Head {h00=0x0018, h01=0x0050, text=» LD A2,KBINH,TCABAS «, t00=0x0013, t01=0x00b2}
0x1e70…1ea0 Head {h00=0x002c, h01=0x0050, text=» ANK A2,4 BITS 14,15:=0 RESTORE KEYBOARD«, t00=0x0013, t01=0x00ce}
0x1ea0…1ebc Head {h00=0x0018, h01=0x0050, text=» ST A2,KBINH,TCABAS «, t00=0x0013, t01=0x00fe}
0x1ebc…1ece Head {h00=0x000e, h01=0x0050, text=» RF DCIN95«, t00=0x0013, t01=0x011a}
0x1ece…1ee2 Head {h00=0x0010, h01=0x0050, text=»DCIN90 EQU *«, t00=0x0013, t01=0x012c}
0x1ee2…1efe Head {h00=0x0018, h01=0x0050, text=» LD A8,ECBDCC,TCABAS«, t00=0x0013, t01=0x0140}
0x1efe…1f16 Head {h00=0x0014, h01=0x0050, text=» LD A4,ECBBA,A8 «, t00=0x0013, t01=0x015c}
0x1f16…1f2c Head {h00=0x0012, h01=0x0050, text=» CF A14,RLRBUF«, t00=0x0013, t01=0x0174}
0x1f2c…1f40 Head {h00=0x0010, h01=0x0050, text=»DCIN95 EQU *«, t00=0x0013, t01=0x018a}
0x1f40…1f56 Head {h00=0x0012, h01=0x0050, text=» CF A14,SNBUSY«, t00=0x0014, t01=0x000e}
0x1f56…1f66 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0014, t01=0x0024}
0x1f66…1f70 Head {h00=0x0006, h01=0x0050, text=» «, t00=0x0014, t01=0x0034}
0x1f70…1f7a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x003e}
0x1f7a…1f8c Head {h00=0x000e, h01=0x0050, text=»* READ DC «, t00=0x0014, t01=0x0048}
0x1f8c…1f96 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x005a}
0x1f96…1faa Head {h00=0x0010, h01=0x0050, text=»DCGETM EQU *«, t00=0x0014, t01=0x0064}
0x1faa…1fbc Head {h00=0x000e, h01=0x0050, text=» LDK A1,0 «, t00=0x0014, t01=0x0078}
0x1fbc…1fd2 Head {h00=0x0012, h01=0x0050, text=» CF A14,REQTIM«, t00=0x0014, t01=0x008a}
0x1fd2…1ff0 Head {h00=0x001a, h01=0x0050, text=» LDK A7,/82 READ, WAIT«, t00=0x0014, t01=0x00a0}
0x1ff0…201c Head {h00=0x0028, h01=0x0050, text=» CM ECBCW,A8 NO TIME OUT SUPERVISION«, t00=0x0014, t01=0x00be}
0x201c…2038 Head {h00=0x0018, h01=0x0050, text=» LDKL A1,RBUFL+RBUFL«, t00=0x0014, t01=0x00ea}
0x2038…205a Head {h00=0x001e, h01=0x0050, text=» ST A1,ECBRL,A8 REQ LENGTH«, t00=0x0014, t01=0x0106}
0x205a…2072 Head {h00=0x0014, h01=0x0050, text=» ST A4,ECBBA,A8 «, t00=0x0014, t01=0x0128}
0x2072…207e Head {h00=0x0008, h01=0x0050, text=» LKM«, t00=0x0014, t01=0x0140}
0x207e…208e Head {h00=0x000c, h01=0x0050, text=» DATA 1 «, t00=0x0014, t01=0x014c}
0x208e…209e Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0014, t01=0x015c}
0x209e…20a8 Head {h00=0x0006, h01=0x0050, text=» «, t00=0x0014, t01=0x016c}
0x20a8…20ea Head {h00=0x003e, h01=0x0050, text=»**********************************************************«, t00=0x0014, t01=0x0176}
0x20ea…20f4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x0028}
0x20f4…210e Head {h00=0x0016, h01=0x0050, text=»* BUFFER HANDLING «, t00=0x0015, t01=0x0032}
0x210e…2118 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x004c}
0x2118…215a Head {h00=0x003e, h01=0x0050, text=»**********************************************************«, t00=0x0015, t01=0x0056}
0x215a…2164 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x0098}
0x2164…2184 Head {h00=0x001c, h01=0x0050, text=»RLINK EQU RBUFL+RBUFL+2 «, t00=0x0015, t01=0x00a2}
0x2184…218e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x00c2}
0x218e…21a0 Head {h00=0x000e, h01=0x0050, text=»RBUF EQU *«, t00=0x0015, t01=0x00cc}
0x21a0…21c4 Head {h00=0x0020, h01=0x0050, text=» DATA *+2 POINTER FIRST FREE«, t00=0x0015, t01=0x00de}
0x21c4…21da Head {h00=0x0012, h01=0x0050, text=» IFF RBUFNR=1 «, t00=0x0015, t01=0x0102}
0x21da…21f0 Head {h00=0x0012, h01=0x0050, text=» DATA *+RLINK «, t00=0x0015, t01=0x0118}
0x21f0…2202 Head {h00=0x000e, h01=0x0050, text=» RES RBUFL«, t00=0x0015, t01=0x012e}
0x2202…2218 Head {h00=0x0012, h01=0x0050, text=» IFF RBUFNR=2 «, t00=0x0015, t01=0x0140}
0x2218…222e Head {h00=0x0012, h01=0x0050, text=» DATA *+RLINK «, t00=0x0015, t01=0x0156}
0x222e…2240 Head {h00=0x000e, h01=0x0050, text=» RES RBUFL«, t00=0x0015, t01=0x016c}
0x2240…2256 Head {h00=0x0012, h01=0x0050, text=» IFF RBUFNR=3 «, t00=0x0015, t01=0x017e}
0x2256…226c (22, 0, 400) Head {h00=0x0012, h01=0x0050, text=» DATA *+RLINK «, t00=0x0016, t01=0x0004}
0x226c…227e Head {h00=0x000e, h01=0x0050, text=» RES RBUFL«, t00=0x0016, t01=0x001a}
0x227e…2294 Head {h00=0x0012, h01=0x0050, text=» IFF RBUFNR=4 «, t00=0x0016, t01=0x002c}
0x2294…22aa Head {h00=0x0012, h01=0x0050, text=» DATA *+RLINK «, t00=0x0016, t01=0x0042}
0x22aa…22bc Head {h00=0x000e, h01=0x0050, text=» RES RBUFL«, t00=0x0016, t01=0x0058}
0x22bc…22c8 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0016, t01=0x006a}
0x22c8…22e4 Head {h00=0x0018, h01=0x0050, text=» DATA 0 END OF CHAIN«, t00=0x0016, t01=0x0076}
0x22e4…22f6 Head {h00=0x000e, h01=0x0050, text=» RES RBUFL«, t00=0x0016, t01=0x0092}
0x22f6…2300 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0016, t01=0x00a4}
0x2300…230a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0016, t01=0x00ae}
0x230a…232a Head {h00=0x001c, h01=0x0050, text=»TLINK EQU TBUFL+TBUFL+2 «, t00=0x0016, t01=0x00b8}
0x232a…2334 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0016, t01=0x00d8}
0x2334…2346 Head {h00=0x000e, h01=0x0050, text=»TBUF EQU *«, t00=0x0016, t01=0x00e2}
0x2346…236a Head {h00=0x0020, h01=0x0050, text=» DATA *+2 POINTER FIRST FREE«, t00=0x0016, t01=0x00f4}
0x236a…2380 Head {h00=0x0012, h01=0x0050, text=» IFF TBUFNR=1 «, t00=0x0016, t01=0x0118}
0x2380…2396 Head {h00=0x0012, h01=0x0050, text=» DATA *+TLINK «, t00=0x0016, t01=0x012e}
0x2396…23a8 Head {h00=0x000e, h01=0x0050, text=» RES TBUFL«, t00=0x0016, t01=0x0144}
0x23a8…23be Head {h00=0x0012, h01=0x0050, text=» IFF TBUFNR=2 «, t00=0x0016, t01=0x0156}
0x23be…23d4 Head {h00=0x0012, h01=0x0050, text=» DATA *+TLINK «, t00=0x0016, t01=0x016c}
0x23d4…23e6 Head {h00=0x000e, h01=0x0050, text=» RES TBUFL«, t00=0x0016, t01=0x0182}
0x23e6…23fc (23, 0, 398) Head {h00=0x0012, h01=0x0050, text=» IFF TBUFNR=3 «, t00=0x0017, t01=0x0004}
0x23fc…2412 Head {h00=0x0012, h01=0x0050, text=» DATA *+TLINK «, t00=0x0017, t01=0x001a}
0x2412…2424 Head {h00=0x000e, h01=0x0050, text=» RES TBUFL«, t00=0x0017, t01=0x0030}
0x2424…243a Head {h00=0x0012, h01=0x0050, text=» IFF TBUFNR=4 «, t00=0x0017, t01=0x0042}
0x243a…2450 Head {h00=0x0012, h01=0x0050, text=» DATA *+TLINK «, t00=0x0017, t01=0x0058}
0x2450…2462 Head {h00=0x000e, h01=0x0050, text=» RES TBUFL«, t00=0x0017, t01=0x006e}
0x2462…246e Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0017, t01=0x0080}
0x246e…248a Head {h00=0x0018, h01=0x0050, text=» DATA 0 END OF CHAIN«, t00=0x0017, t01=0x008c}
0x248a…249c Head {h00=0x000e, h01=0x0050, text=» RES TBUFL«, t00=0x0017, t01=0x00a8}
0x249c…24a6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0017, t01=0x00ba}
0x24a6…24b0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0017, t01=0x00c4}
0x24b0…24ca Head {h00=0x0016, h01=0x0050, text=»* GET WRITE BUFFER«, t00=0x0017, t01=0x00ce}
0x24ca…24d4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0017, t01=0x00e8}
0x24d4…24e8 Head {h00=0x0010, h01=0x0050, text=»GTWBUF EQU *«, t00=0x0017, t01=0x00f2}
0x24e8…24fe Head {h00=0x0012, h01=0x0050, text=» LDKL A5,TBUF «, t00=0x0017, t01=0x0106}
0x24fe…2514 Head {h00=0x0012, h01=0x0050, text=» CF A14,GETBUF«, t00=0x0017, t01=0x011c}
0x2514…2526 Head {h00=0x000e, h01=0x0050, text=» LDR A7,A4«, t00=0x0017, t01=0x0132}
0x2526…253a Head {h00=0x0010, h01=0x0050, text=» LDR A12,A4 «, t00=0x0017, t01=0x0144}
0x253a…2550 Head {h00=0x0012, h01=0x0050, text=» ADK A7,2 SKIP«, t00=0x0017, t01=0x0158}
0x2550…2574 Head {h00=0x0020, h01=0x0050, text=» LDKL A9,2 FOR DV ADDRESS «, t00=0x0017, t01=0x016e}
0x2574…2584 (24, 0, 400) Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0018, t01=0x0004}
0x2584…258e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0018, t01=0x0014}
0x258e…25aa Head {h00=0x0018, h01=0x0050, text=»* GET RECEIVE BUFFER«, t00=0x0018, t01=0x001e}
0x25aa…25b4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0018, t01=0x003a}
0x25b4…25c8 Head {h00=0x0010, h01=0x0050, text=»GTRBUF EQU *«, t00=0x0018, t01=0x0044}
0x25c8…25de Head {h00=0x0012, h01=0x0050, text=» LDKL A5,RBUF «, t00=0x0018, t01=0x0058}
0x25de…25e8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0018, t01=0x006e}
0x25e8…25f2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0018, t01=0x0078}
0x25f2…2606 Head {h00=0x0010, h01=0x0050, text=»GETBUF EQU *«, t00=0x0018, t01=0x0082}
0x2606…261a Head {h00=0x0010, h01=0x0050, text=» LDR* A4,A5 «, t00=0x0018, t01=0x0096}
0x261a…263e Head {h00=0x0020, h01=0x0050, text=» RF(Z) GETB50 NO BUFFER FREE«, t00=0x0018, t01=0x00aa}
0x263e…2652 Head {h00=0x0010, h01=0x0050, text=» LDR* A3,A4 «, t00=0x0018, t01=0x00ce}
0x2652…2664 Head {h00=0x000e, h01=0x0050, text=» STR A3,A5«, t00=0x0018, t01=0x00e2}
0x2664…2680 Head {h00=0x0018, h01=0x0050, text=» ADK A4,2 SKIP LINK «, t00=0x0018, t01=0x00f4}
0x2680…2690 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0018, t01=0x0110}
0x2690…26a4 Head {h00=0x0010, h01=0x0050, text=»GETB50 EQU *«, t00=0x0018, t01=0x0120}
0x26a4…26b0 Head {h00=0x0008, h01=0x0050, text=» LKM«, t00=0x0018, t01=0x0134}
0x26b0…26cc Head {h00=0x0018, h01=0x0050, text=» DATA 0 SWITCH TASK «, t00=0x0018, t01=0x0140}
0x26cc…26de Head {h00=0x000e, h01=0x0050, text=» RB GETBUF«, t00=0x0018, t01=0x015c}
0x26de…26e8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0018, t01=0x016e}
0x26e8…2700 Head {h00=0x0014, h01=0x0050, text=»* RELEASE BUFFER«, t00=0x0018, t01=0x0178}
0x2700…270a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0018, t01=0x0190}
0x270a…271e Head {h00=0x0010, h01=0x0050, text=»RLRBUF EQU *«, t00=0x0019, t01=0x000a}
0x271e…2734 Head {h00=0x0012, h01=0x0050, text=» LDKL A2,RBUF «, t00=0x0019, t01=0x001e}
0x2734…2748 Head {h00=0x0010, h01=0x0050, text=»RELB05 EQU *«, t00=0x0019, t01=0x0034}
0x2748…2768 Head {h00=0x001c, h01=0x0050, text=» SUK A4,2 POINT TO LINK «, t00=0x0019, t01=0x0048}
0x2768…277c Head {h00=0x0010, h01=0x0050, text=»RELB10 EQU *«, t00=0x0019, t01=0x0068}
0x277c…2790 Head {h00=0x0010, h01=0x0050, text=» LDR* A3,A2 «, t00=0x0019, t01=0x007c}
0x2790…27a6 Head {h00=0x0012, h01=0x0050, text=» RF(Z) RELB20 «, t00=0x0019, t01=0x0090}
0x27a6…27b8 Head {h00=0x000e, h01=0x0050, text=» LDR A2,A3«, t00=0x0019, t01=0x00a6}
0x27b8…27ca Head {h00=0x000e, h01=0x0050, text=» RB RELB10«, t00=0x0019, t01=0x00b8}
0x27ca…27de Head {h00=0x0010, h01=0x0050, text=»RELB20 EQU *«, t00=0x0019, t01=0x00ca}
0x27de…27f0 Head {h00=0x000e, h01=0x0050, text=» STR A4,A2«, t00=0x0019, t01=0x00de}
0x27f0…2800 Head {h00=0x000c, h01=0x0050, text=» CMR A4 «, t00=0x0019, t01=0x00f0}
0x2800…2810 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0019, t01=0x0100}
0x2810…281a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0019, t01=0x0110}
0x281a…282e Head {h00=0x0010, h01=0x0050, text=»RLWBUF EQU *«, t00=0x0019, t01=0x011a}
0x282e…2844 Head {h00=0x0012, h01=0x0050, text=» LDKL A2,TBUF «, t00=0x0019, t01=0x012e}
0x2844…2856 Head {h00=0x000e, h01=0x0050, text=» RB RELB05«, t00=0x0019, t01=0x0144}
0x2856…2860 Head {h00=0x0006, h01=0x0050, text=» «, t00=0x0019, t01=0x0156}
0x2860…286a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0019, t01=0x0160}
0x286a…2874 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0019, t01=0x016a}
0x2874…289a Head {h00=0x0022, h01=0x0050, text=»* STORE CHARACTER IN DC BUFFER«, t00=0x0019, t01=0x0174}
0x289a…28a4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001a, t01=0x000a}
0x28a4…28b6 Head {h00=0x000e, h01=0x0050, text=»* A2=CHAR «, t00=0x001a, t01=0x0014}
0x28b6…28d2 Head {h00=0x0018, h01=0x0050, text=»* A7=BUFFER POINTER «, t00=0x001a, t01=0x0026}
0x28d2…28f8 Head {h00=0x0022, h01=0x0050, text=»* A9=BUFFER CHARACTER COUNTER «, t00=0x001a, t01=0x0042}
0x28f8…2902 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001a, t01=0x0068}
0x2902…290c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001a, t01=0x0072}
0x290c…2920 Head {h00=0x0010, h01=0x0050, text=»PDCCH EQU * «, t00=0x001a, t01=0x007c}
0x2920…2940 Head {h00=0x001c, h01=0x0050, text=» CWK A9,TBUFL+TBUFL =3 «, t00=0x001a, t01=0x0090}
0x2940…295e Head {h00=0x001a, h01=0x0050, text=» RF(G) PDCCHR OVERFLOW«, t00=0x001a, t01=0x00b0}
0x295e…2970 Head {h00=0x000e, h01=0x0050, text=» SCR A2,A7«, t00=0x001a, t01=0x00ce}
0x2970…2984 Head {h00=0x0010, h01=0x0050, text=»PDCCH1 EQU *«, t00=0x001a, t01=0x00e0}
0x2984…2996 Head {h00=0x000e, h01=0x0050, text=» ADK A7,1 «, t00=0x001a, t01=0x00f4}
0x2996…29a8 Head {h00=0x000e, h01=0x0050, text=» ADKL A9,1«, t00=0x001a, t01=0x0106}
0x29a8…29be Head {h00=0x0012, h01=0x0050, text=»PDCCHR RTN A14«, t00=0x001a, t01=0x0118}
0x29be…29c8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001a, t01=0x012e}
0x29c8…29d2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001a, t01=0x0138}
0x29d2…29f6 Head {h00=0x0020, h01=0x0050, text=»* STORE ATTENTION ID FROM A2«, t00=0x001a, t01=0x0142}
0x29f6…2a00 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001a, t01=0x0166}
0x2a00…2a0a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001a, t01=0x0170}
0x2a0a…2a24 Head {h00=0x0016, h01=0x0050, text=»PAID CF A14,PDCCH «, t00=0x001a, t01=0x017a}
0x2a24…2a34 (27, 0, 400) Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x001b, t01=0x0004}
0x2a34…2a3e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001b, t01=0x0014}
0x2a3e…2a48 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001b, t01=0x001e}
0x2a48…2a74 Head {h00=0x0028, h01=0x0050, text=»* GET CHARACTER FROM DC BUFFER TO A2«, t00=0x001b, t01=0x0028}
0x2a74…2a7e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001b, t01=0x0054}
0x2a7e…2a88 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001b, t01=0x005e}
0x2a88…2aa0 Head {h00=0x0014, h01=0x0050, text=»GDCCH LCR A2,A7 «, t00=0x001b, t01=0x0068}
0x2aa0…2ab4 Head {h00=0x0010, h01=0x0050, text=» ANK A2,/FF «, t00=0x001b, t01=0x0080}
0x2ab4…2ade Head {h00=0x0026, h01=0x0050, text=» RF(NZ) GDCC:1 NOT NULL CHARACTER «, t00=0x001b, t01=0x0094}
0x2ade…2b06 Head {h00=0x0024, h01=0x0050, text=» LDK A2,/7F LOAD NULL CHARACTER «, t00=0x001b, t01=0x00be}
0x2b06…2b1a Head {h00=0x0010, h01=0x0050, text=»GDCC:1 EQU *«, t00=0x001b, t01=0x00e6}
0x2b1a…2b2c Head {h00=0x000e, h01=0x0050, text=» RB PDCCH1«, t00=0x001b, t01=0x00fa}
0x2b2c…2b36 Head {h00=0x0006, h01=0x0050, text=» «, t00=0x001b, t01=0x010c}
0x2b36…2b40 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001b, t01=0x0116}
0x2b40…2b4a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001b, t01=0x0120}
0x2b4a…2b7c Head {h00=0x002e, h01=0x0050, text=»* GET BUFFER ADDRESS TO A1 FROM DC BUFFER «, t00=0x001b, t01=0x012a}
0x2b7c…2b86 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001b, t01=0x015c}
0x2b86…2b90 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001b, t01=0x0166}
0x2b90…2bac Head {h00=0x0018, h01=0x0050, text=»GETADR CF A14,GDCCH «, t00=0x001b, t01=0x0170}
0x2bac…2bc4 Head {h00=0x0014, h01=0x0050, text=» LC A1,TEBCDI,A2«, t00=0x001b, t01=0x018c}
0x2bc4…2bd8 Head {h00=0x0010, h01=0x0050, text=» ANK A1,/3F «, t00=0x001c, t01=0x0014}
0x2bd8…2bea Head {h00=0x000e, h01=0x0050, text=» SLL A1,6 «, t00=0x001c, t01=0x0028}
0x2bea…2c00 Head {h00=0x0012, h01=0x0050, text=» CF A14,GDCCH «, t00=0x001c, t01=0x003a}
0x2c00…2c18 Head {h00=0x0014, h01=0x0050, text=» LC A2,TEBCDI,A2«, t00=0x001c, t01=0x0050}
0x2c18…2c2c Head {h00=0x0010, h01=0x0050, text=» ANK A2,/3F «, t00=0x001c, t01=0x0068}
0x2c2c…2c3e Head {h00=0x000e, h01=0x0050, text=» ORR A1,A2«, t00=0x001c, t01=0x007c}
0x2c3e…2c4e Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x001c, t01=0x008e}
0x2c4e…2c58 Head {h00=0x0006, h01=0x0050, text=» «, t00=0x001c, t01=0x009e}
0x2c58…2c62 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001c, t01=0x00a8}
0x2c62…2c6c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001c, t01=0x00b2}
0x2c6c…2c92 Head {h00=0x0022, h01=0x0050, text=»* WRITE MESSAGE TO MAIN FRAME «, t00=0x001c, t01=0x00bc}
0x2c92…2c9c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001c, t01=0x00e2}
0x2c9c…2cc6 Head {h00=0x0026, h01=0x0050, text=»* ON EXIT A1 CONTAINS RETURN CODE «, t00=0x001c, t01=0x00ec}
0x2cc6…2cd0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001c, t01=0x0116}
0x2cd0…2cda Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001c, t01=0x0120}
0x2cda…2cee Head {h00=0x0010, h01=0x0050, text=»DCWRTE EQU *«, t00=0x001c, t01=0x012a}
0x2cee…2d04 Head {h00=0x0012, h01=0x0050, text=» LDKL A8,ECBDC«, t00=0x001c, t01=0x013e}
0x2d04…2d18 Head {h00=0x0010, h01=0x0050, text=» IFT DCLIN=2«, t00=0x001c, t01=0x0154}
0x2d18…2d32 Head {h00=0x0016, h01=0x0050, text=» LD A7,MAIN,TCABAS«, t00=0x001c, t01=0x0168}
0x2d32…2d46 Head {h00=0x0010, h01=0x0050, text=» RF(Z) DC050«, t00=0x001c, t01=0x0182}
0x2d46…2d5e Head {h00=0x0014, h01=0x0050, text=» LDKL A8,ECBDC2 «, t00=0x001d, t01=0x0008}
0x2d5e…2d6a Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x001d, t01=0x0020}
0x2d6a…2d7e Head {h00=0x0010, h01=0x0050, text=»DC050 EQU * «, t00=0x001d, t01=0x002c}
0x2d7e…2d94 Head {h00=0x0012, h01=0x0050, text=» ADR A8,CREBAS«, t00=0x001d, t01=0x0040}
0x2d94…2daa Head {h00=0x0012, h01=0x0050, text=» LDKL A1,TIMDC«, t00=0x001d, t01=0x0056}
0x2daa…2dc0 Head {h00=0x0012, h01=0x0050, text=» CF A14,REQTIM«, t00=0x001d, t01=0x006c}
0x2dc0…2de2 Head {h00=0x001e, h01=0x0050, text=» ST A9,ECBRL,A8 REQ LENGTH«, t00=0x001d, t01=0x0082}
0x2de2…2e0a Head {h00=0x0024, h01=0x0050, text=» ST A12,ECBBA,A8 BUFFER ADDRESS «, t00=0x001d, t01=0x00a4}
0x2e0a…2e26 Head {h00=0x0018, h01=0x0050, text=» LD A7,KBINH,TCABAS «, t00=0x001d, t01=0x00cc}
0x2e26…2e62 Head {h00=0x0038, h01=0x0050, text=» ORK A7,2 BIT 14 :=1 DISABLE KEYBOARD.RESET ALLOWED «, t00=0x001d, t01=0x00e8}
0x2e62…2e7e Head {h00=0x0018, h01=0x0050, text=» ST A7,KBINH,TCABAS «, t00=0x001d, t01=0x0124}
0x2e7e…2ebc Head {h00=0x003a, h01=0x0050, text=» LD A1,RDMYRC,TCABAS SEE IF ITS A READMOD RESPONSE DK7«, t00=0x001d, t01=0x0140}
0x2ebc…2ed8 Head {h00=0x0018, h01=0x0050, text=» ANKL A1,/4000 DK7 «, t00=0x001d, t01=0x017e}
0x2ed8…2f04 Head {h00=0x0028, h01=0x0050, text=» RF(Z) DC070 NO, GO ON AS USUAL DK7 «, t00=0x001e, t01=0x000a}
0x2f04…2f36 Head {h00=0x002e, h01=0x0050, text=» CM RDMYRC,TCABAS CLEAR THE RETURNCODE DK7«, t00=0x001e, t01=0x0036}
0x2f36…2f5e Head {h00=0x0024, h01=0x0050, text=» LDK A7,/B3 YES, ORDER =/33 DK7 «, t00=0x001e, t01=0x0068}
0x2f5e…2f8c Head {h00=0x002a, h01=0x0050, text=» RF DC100 ISSUE READ MOD RESPONSE DK7 «, t00=0x001e, t01=0x0090}
0x2f8c…2fa4 Head {h00=0x0014, h01=0x0050, text=»DC070 EQU * DK7«, t00=0x001e, t01=0x00be}
0x2fa4…2fb8 Head {h00=0x0010, h01=0x0050, text=» LDK A7,/86 «, t00=0x001e, t01=0x00d6}
0x2fb8…2fcc Head {h00=0x0010, h01=0x0050, text=»DC100 EQU * «, t00=0x001e, t01=0x00ea}
0x2fcc…2fd8 Head {h00=0x0008, h01=0x0050, text=» LKM«, t00=0x001e, t01=0x00fe}
0x2fd8…2fe8 Head {h00=0x000c, h01=0x0050, text=» DATA 1 «, t00=0x001e, t01=0x010a}
0x2fe8…2ffc Head {h00=0x0010, h01=0x0050, text=»DC200 EQU * «, t00=0x001e, t01=0x011a}
0x2ffc…3010 Head {h00=0x0010, h01=0x0050, text=» LDR A4,A12 «, t00=0x001e, t01=0x012e}
0x3010…3026 Head {h00=0x0012, h01=0x0050, text=» CF A14,RLWBUF«, t00=0x001e, t01=0x0142}
0x3026…304e Head {h00=0x0024, h01=0x0050, text=» LD A1,ECBRC,A8 GET RETURN CODE «, t00=0x001e, t01=0x0158}
0x304e…3062 Head {h00=0x0010, h01=0x0050, text=» RF(Z) DC300«, t00=0x001e, t01=0x0180}
0x3062…307e (31, 0, 400) Head {h00=0x0018, h01=0x0050, text=» LD A7,KBINH,TCABAS «, t00=0x001f, t01=0x0004}
0x307e…30aa Head {h00=0x0028, h01=0x0050, text=» ANK A7,/D BIT 14:=0 ALLIWE KEYBOARD«, t00=0x001f, t01=0x0020}
0x30aa…30c6 Head {h00=0x0018, h01=0x0050, text=» ST A7,KBINH,TCABAS «, t00=0x001f, t01=0x004c}
0x30c6…30f8 Head {h00=0x002e, h01=0x0050, text=» CF A14,LINHOF TURN OFF "KEYBOARD INHIBIT «, t00=0x001f, t01=0x0068}
0x30f8…312a Head {h00=0x002e, h01=0x0050, text=» CF A14,LSAVOF TURN OFF "SYSTEM AVAILABLE"«, t00=0x001f, t01=0x009a}
0x312a…3134 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001f, t01=0x00cc}
0x3134…3162 Head {h00=0x002a, h01=0x0050, text=» LDK A7,/04 RESET KEYBOARD ECB BUFFER «, t00=0x001f, t01=0x00d6}
0x3162…3178 Head {h00=0x0012, h01=0x0050, text=» LDKL A8,ECBKB«, t00=0x001f, t01=0x0104}
0x3178…318e Head {h00=0x0012, h01=0x0050, text=» ADR A8,CREBAS«, t00=0x001f, t01=0x011a}
0x318e…319a Head {h00=0x0008, h01=0x0050, text=» LKM«, t00=0x001f, t01=0x0130}
0x319a…31aa Head {h00=0x000c, h01=0x0050, text=» DATA 1 «, t00=0x001f, t01=0x013c}
0x31aa…31b4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001f, t01=0x014c}
0x31b4…31c4 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x001f, t01=0x0156}
0x31c4…31d8 Head {h00=0x0010, h01=0x0050, text=»DC300 EQU * «, t00=0x001f, t01=0x0166}
0x31d8…320a Head {h00=0x002e, h01=0x0050, text=» CF A14,LSAVON TURN ON 'SYSTEM AVAILABLE' «, t00=0x001f, t01=0x017a}
0x320a…321a Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0020, t01=0x001c}
0x321a…3224 Head {h00=0x0006, h01=0x0050, text=» «, t00=0x0020, t01=0x002c}
0x3224…322e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0020, t01=0x0036}
0x322e…3238 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0020, t01=0x0040}
0x3238…3264 Head {h00=0x0028, h01=0x0050, text=»* STORE CURSOR ADDRESS IN DC BUFFER «, t00=0x0020, t01=0x004a}
0x3264…326e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0020, t01=0x0076}
0x326e…3278 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0020, t01=0x0080}
0x3278…3298 Head {h00=0x001c, h01=0x0050, text=»CURSA LD A1,PCURS,TCABAS«, t00=0x0020, t01=0x008a}
0x3298…32aa Head {h00=0x000e, h01=0x0050, text=» RF BUFADR«, t00=0x0020, t01=0x00aa}
0x32aa…32b4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0020, t01=0x00bc}
0x32b4…32be Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0020, t01=0x00c6}
0x32be…32ea Head {h00=0x0028, h01=0x0050, text=»* STORE BUFFER ADDRESS IN DC BUFFER «, t00=0x0020, t01=0x00d0}
0x32ea…32f4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0020, t01=0x00fc}
0x32f4…3316 Head {h00=0x001e, h01=0x0050, text=»* A1=BINARY BUFFER ADDRESS«, t00=0x0020, t01=0x0106}
0x3316…3320 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0020, t01=0x0128}
0x3320…332a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0020, t01=0x0132}
0x332a…3342 Head {h00=0x0014, h01=0x0050, text=»BUFADR LDR A2,A1«, t00=0x0020, t01=0x013c}
0x3342…3354 Head {h00=0x000e, h01=0x0050, text=» SRL A2,6 «, t00=0x0020, t01=0x0154}
0x3354…3368 Head {h00=0x0010, h01=0x0050, text=» ANK A2,/3F «, t00=0x0020, t01=0x0166}
0x3368…3392 Head {h00=0x0026, h01=0x0050, text=» LC A2,TASCII,A2 CONVERT TO ASCII «, t00=0x0020, t01=0x017a}
0x3392…33a8 Head {h00=0x0012, h01=0x0050, text=» CF A14,PDCCH «, t00=0x0021, t01=0x0014}
0x33a8…33ba Head {h00=0x000e, h01=0x0050, text=» LDR A2,A1«, t00=0x0021, t01=0x002a}
0x33ba…33ce Head {h00=0x0010, h01=0x0050, text=» ANK A2,/3F «, t00=0x0021, t01=0x003c}
0x33ce…33e6 Head {h00=0x0014, h01=0x0050, text=» LC A2,TASCII,A2«, t00=0x0021, t01=0x0050}
0x33e6…33fc Head {h00=0x0012, h01=0x0050, text=» CF A14,PDCCH «, t00=0x0021, t01=0x0068}
0x33fc…340c Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0021, t01=0x007e}
0x340c…3416 Head {h00=0x0006, h01=0x0050, text=» «, t00=0x0021, t01=0x008e}
0x3416…3420 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0021, t01=0x0098}
0x3420…342a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0021, t01=0x00a2}
0x342a…3460 Head {h00=0x0032, h01=0x0050, text=»* GET MODIFIED DATA FROM DISPLAY IMAGE BUFFER «, t00=0x0021, t01=0x00ac}
0x3460…346a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0021, t01=0x00e2}
0x346a…348e Head {h00=0x0020, h01=0x0050, text=»* A3=BUFFER POSITION BINARY «, t00=0x0021, t01=0x00ec}
0x348e…34aa Head {h00=0x0018, h01=0x0050, text=»* A4=BUFFER POINTER «, t00=0x0021, t01=0x0110}
0x34aa…34b4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0021, t01=0x012c}
0x34b4…34be Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0021, t01=0x0136}
0x34be…34e4 Head {h00=0x0022, h01=0x0050, text=»RDMOD LDK A3,0 RESET POSITION «, t00=0x0021, t01=0x0140}
0x34e4…34fa Head {h00=0x0012, h01=0x0050, text=» LDKL A4,BVDU «, t00=0x0021, t01=0x0166}
0x34fa…3520 Head {h00=0x0022, h01=0x0050, text=» ADR A4,TCABAS BUFFER POINTER «, t00=0x0021, t01=0x017c}
0x3520…354a Head {h00=0x0026, h01=0x0050, text=» ADKL A4,1919 LAST SCREEN POSITION«, t00=0x0022, t01=0x0012}
0x354a…356a Head {h00=0x001c, h01=0x0050, text=» LCR A2,A4 GET CHARACTER«, t00=0x0022, t01=0x003c}
0x356a…359c Head {h00=0x002e, h01=0x0050, text=» LDKL A4,BVDU RELOAD FIRST BUFFER POSITION«, t00=0x0022, t01=0x005c}
0x359c…35b2 Head {h00=0x0012, h01=0x0050, text=» ADR A4,TCABAS«, t00=0x0022, t01=0x008e}
0x35b2…35ba Head {h00=0x0004, h01=0x0050, t00=0x0022, t01=0x00a4}
0x35ba…35cc Head {h00=0x000e, h01=0x0050, text=» LDR A1,A2«, t00=0x0022, t01=0x00ac}
0x35cc…35ee Head {h00=0x001e, h01=0x0050, text=» ANK A1,/60 ATTRIBUTE ??? «, t00=0x0022, t01=0x00be}
0x35ee…360a Head {h00=0x0018, h01=0x0050, text=» RF(Z) RD200 YES!!! «, t00=0x0022, t01=0x00e0}
0x360a…3612 Head {h00=0x0004, h01=0x0050, t00=0x0022, t01=0x00fc}
0x3612…362c Head {h00=0x0016, h01=0x0050, text=»RD100 CWK A3,LBVDU«, t00=0x0022, t01=0x0104}
0x362c…3650 Head {h00=0x0020, h01=0x0050, text=» RF(NL) RDMODE ALL EXAMINED «, t00=0x0022, t01=0x011e}
0x3650…366c Head {h00=0x0018, h01=0x0050, text=» LCR A2,A4 GET CHAR «, t00=0x0022, t01=0x0142}
0x366c…367e Head {h00=0x000e, h01=0x0050, text=» ADK A3,1 «, t00=0x0022, t01=0x015e}
0x367e…3690 Head {h00=0x000e, h01=0x0050, text=» ADK A4,1 «, t00=0x0022, t01=0x0170}
0x3690…36a4 Head {h00=0x0010, h01=0x0050, text=»RD105 EQU * «, t00=0x0022, t01=0x0182}
0x36a4…36b6 Head {h00=0x000e, h01=0x0050, text=» LDR A1,A2«, t00=0x0023, t01=0x0008}
0x36b6…36d6 Head {h00=0x001c, h01=0x0050, text=» ANK A1,/FF CLEAN IT DK7«, t00=0x0023, t01=0x001a}
0x36d6…36fe Head {h00=0x0024, h01=0x0050, text=» CWK A1,/1E 'APL' ESCAPE? DK7.1 «, t00=0x0023, t01=0x003a}
0x36fe…371c Head {h00=0x001a, h01=0x0050, text=» RF(NE) RD109 NO DK7.1«, t00=0x0023, t01=0x0062}
0x371c…3742 Head {h00=0x0022, h01=0x0050, text=» LDK A1,/08 'APL' ESCAPE DK7.1«, t00=0x0023, t01=0x0080}
0x3742…3768 Head {h00=0x0022, h01=0x0050, text=» LDK A2,/08 'APL' ESCAPE DK7.1«, t00=0x0023, t01=0x00a6}
0x3768…3780 Head {h00=0x0014, h01=0x0050, text=» RF RD110 DK7.1«, t00=0x0023, t01=0x00cc}
0x3780…379a Head {h00=0x0016, h01=0x0050, text=»RD109 EQU * DK7.1«, t00=0x0023, t01=0x00e4}
0x379a…37ae Head {h00=0x0010, h01=0x0050, text=» ANK A1,/60 «, t00=0x0023, t01=0x00fe}
0x37ae…37d2 Head {h00=0x0020, h01=0x0050, text=» RF(Z) RD200 ATTRIBUTE CHAR «, t00=0x0023, t01=0x0112}
0x37d2…37ec Head {h00=0x0016, h01=0x0050, text=»RD110 CWK A2,NULL «, t00=0x0023, t01=0x0136}
0x37ec…3812 Head {h00=0x0022, h01=0x0050, text=» RB(E) RD100 DON'T STORE NULL «, t00=0x0023, t01=0x0150}
0x3812…3840 Head {h00=0x002a, h01=0x0050, text=» CF A14,PDCCH STORE CHAR IN DC BUFFER «, t00=0x0023, t01=0x0176}
0x3840…3852 Head {h00=0x000e, h01=0x0050, text=» RB RD100 «, t00=0x0024, t01=0x0014}
0x3852…3876 Head {h00=0x0020, h01=0x0050, text=»RD200 ANK A2,1 CHECK MDT BIT«, t00=0x0024, t01=0x0026}
0x3876…389a Head {h00=0x0020, h01=0x0050, text=» RF(NZ) RD300 MODIFIED FIELD«, t00=0x0024, t01=0x004a}
0x389a…38b4 Head {h00=0x0016, h01=0x0050, text=»RD210 CWK A3,LBVDU«, t00=0x0024, t01=0x006e}
0x38b4…38d8 Head {h00=0x0020, h01=0x0050, text=» RF(NL) RDMODE ALL EXAMINED «, t00=0x0024, t01=0x0088}
0x38d8…38ea Head {h00=0x000e, h01=0x0050, text=» LCR A2,A4«, t00=0x0024, t01=0x00ac}
0x38ea…38fc Head {h00=0x000e, h01=0x0050, text=» ADK A3,1 «, t00=0x0024, t01=0x00be}
0x38fc…390e Head {h00=0x000e, h01=0x0050, text=» ADK A4,1 «, t00=0x0024, t01=0x00d0}
0x390e…3920 Head {h00=0x000e, h01=0x0050, text=» LDR A1,A2«, t00=0x0024, t01=0x00e2}
0x3920…3934 Head {h00=0x0010, h01=0x0050, text=» ANK A1,/60 «, t00=0x0024, t01=0x00f4}
0x3934…395c Head {h00=0x0024, h01=0x0050, text=» RB(NZ) RD210 NO ATTRIBUTE CHAR «, t00=0x0024, t01=0x0108}
0x395c…398a Head {h00=0x002a, h01=0x0050, text=» CWK A3,LBVDU ALL BUFFER EXAMINED ??? «, t00=0x0024, t01=0x0130}
0x398a…39a6 Head {h00=0x0018, h01=0x0050, text=» RF(NL) RDMODE YES!!«, t00=0x0024, t01=0x015e}
0x39a6…39c8 Head {h00=0x001e, h01=0x0050, text=» RB RD200 ATTRIBUTE FOUND «, t00=0x0024, t01=0x017a}
0x39c8…39e0 Head {h00=0x0014, h01=0x0050, text=»RD300 LDK A2,SBA«, t00=0x0025, t01=0x000c}
0x39e0…3a06 Head {h00=0x0022, h01=0x0050, text=» CF A14,PDCCH SBA TO DC BUFFER«, t00=0x0025, t01=0x0024}
0x3a06…3a28 Head {h00=0x001e, h01=0x0050, text=» LDR A1,A3 BUFFER POSITION«, t00=0x0025, t01=0x004a}
0x3a28…3a4c Head {h00=0x0020, h01=0x0050, text=» CF A14,BUFADR TO DC BUFFER «, t00=0x0025, t01=0x006c}
0x3a4c…3a5e Head {h00=0x000e, h01=0x0050, text=» RB RD100 «, t00=0x0025, t01=0x0090}
0x3a5e…3a74 Head {h00=0x0012, h01=0x0050, text=»RDMODE RTN A14«, t00=0x0025, t01=0x00a2}
0x3a74…3a7e Head {h00=0x0006, h01=0x0050, text=» «, t00=0x0025, t01=0x00b8}
0x3a7e…3a88 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0025, t01=0x00c2}
0x3a88…3a92 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0025, t01=0x00cc}
0x3a92…3aca Head {h00=0x0034, h01=0x0050, text=»* UPDATE VIDEO DISPLAY BUFFER IMAGE BY THE DATA «, t00=0x0025, t01=0x00d6}
0x3aca…3ad4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0025, t01=0x010e}
0x3ad4…3af8 Head {h00=0x0020, h01=0x0050, text=»* RECEIVED FROM THE DC LINE «, t00=0x0025, t01=0x0118}
0x3af8…3b02 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0025, t01=0x013c}
0x3b02…3b0c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0025, t01=0x0146}
0x3b0c…3b32 Head {h00=0x0022, h01=0x0050, text=»* A7=DC RECEIVE BUFFER POINTER«, t00=0x0025, t01=0x0150}
0x3b32…3b4e Head {h00=0x0018, h01=0x0050, text=»* A8=DC ECB ADDRESS «, t00=0x0025, t01=0x0176}
0x3b4e…3b7a (38, 0, 400) Head {h00=0x0028, h01=0x0050, text=»* A9=DC BUFFER INDEX, INITIALLY ZERO«, t00=0x0026, t01=0x0004}
0x3b7a…3b84 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0026, t01=0x0030}
0x3b84…3ba8 Head {h00=0x0020, h01=0x0050, text=»* A3=DISPLAY BUFFER POSITION«, t00=0x0026, t01=0x003a}
0x3ba8…3bcc Head {h00=0x0020, h01=0x0050, text=»* A4=DISPLAY BUFFER POINTER «, t00=0x0026, t01=0x005e}
0x3bcc…3bd6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0026, t01=0x0082}
0x3bd6…3be0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0026, t01=0x008c}
0x3be0…3bf4 Head {h00=0x0010, h01=0x0050, text=»UPDATE EQU *«, t00=0x0026, t01=0x0096}
0x3bf4…3c0e Head {h00=0x0016, h01=0x0050, text=» CM ICWORK,TCABAS «, t00=0x0026, t01=0x00aa}
0x3c0e…3c2a Head {h00=0x0018, h01=0x0050, text=» LD A8,ECBDCC,TCABAS«, t00=0x0026, t01=0x00c4}
0x3c2a…3c54 Head {h00=0x0026, h01=0x0050, text=» LD A7,ECBBA,A8 DC BUFFER ADDRESS «, t00=0x0026, t01=0x00e0}
0x3c54…3c7c Head {h00=0x0024, h01=0x0050, text=» SUR A9,A9 RESET DC BUFFER INDEX«, t00=0x0026, t01=0x010a}
0x3c7c…3cb0 Head {h00=0x0030, h01=0x0050, text=» CF A14,GDCCH GET FIRST CHAR FROM DC BUFFER «, t00=0x0026, t01=0x0132}
0x3cb0…3cd4 Head {h00=0x0020, h01=0x0050, text=» CWK A2,ESC SHOULD BE ESCAPE«, t00=0x0026, t01=0x0166}
0x3cd4…3cea Head {h00=0x0012, h01=0x0050, text=» RF(E) UPD050 «, t00=0x0026, t01=0x018a}
0x3cea…3cfe Head {h00=0x0010, h01=0x0050, text=» ABL UPDEND «, t00=0x0027, t01=0x0010}
0x3cfe…3d12 Head {h00=0x0010, h01=0x0050, text=»UPD050 EQU *«, t00=0x0027, t01=0x0024}
0x3d12…3d38 Head {h00=0x0022, h01=0x0050, text=» CF A14,GDCCH GET COMMAND CODE«, t00=0x0027, t01=0x0038}
0x3d38…3d4c Head {h00=0x0010, h01=0x0050, text=» CWK A2,/31 «, t00=0x0027, t01=0x005e}
0x3d4c…3d68 Head {h00=0x0018, h01=0x0050, text=» RF(E) UPD100 WRITE «, t00=0x0027, t01=0x0072}
0x3d68…3d7c Head {h00=0x0010, h01=0x0050, text=» CWK A2,/35 «, t00=0x0027, t01=0x008e}
0x3d7c…3d9e Head {h00=0x001e, h01=0x0050, text=» RF(E) UPD120 ERASE/WRITE «, t00=0x0027, t01=0x00a2}
0x3d9e…3db2 Head {h00=0x0010, h01=0x0050, text=» CWK A2,/3F «, t00=0x0027, t01=0x00c4}
0x3db2…3dde Head {h00=0x0028, h01=0x0050, text=» RF(E) UPD140 ERASE ALL UNPROTECTED «, t00=0x0027, t01=0x00d8}
0x3dde…3df4 Head {h00=0x0012, h01=0x0050, text=» IFT COPCMD=1 «, t00=0x0027, t01=0x0104}
0x3df4…3e08 Head {h00=0x0010, h01=0x0050, text=» CWK A2,/37 «, t00=0x0027, t01=0x011a}
0x3e08…3e2c Head {h00=0x0020, h01=0x0050, text=» ABL(E) UPD600 COPY COMMAND «, t00=0x0027, t01=0x012e}
0x3e2c…3e38 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0027, t01=0x0152}
0x3e38…3e60 Head {h00=0x0024, h01=0x0050, text=» RF UPDEND INVALID COMMAND CODE «, t00=0x0027, t01=0x015e}
0x3e60…3e6a Head {h00=0x0006, h01=0x0050, text=» «, t00=0x0027, t01=0x0186}
0x3e6a…3e74 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0027, t01=0x0190}
0x3e74…3e8c Head {h00=0x0014, h01=0x0050, text=»* WRITE COMMAND «, t00=0x0028, t01=0x000a}
0x3e8c…3e96 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0028, t01=0x0022}
0x3e96…3eaa Head {h00=0x0010, h01=0x0050, text=»UPD100 EQU *«, t00=0x0028, t01=0x002c}
0x3eaa…3ed6 Head {h00=0x0028, h01=0x0050, text=» CF A14,PWCC PROCESS WCC FOR MDT BIT«, t00=0x0028, t01=0x0040}
0x3ed6…3ef2 Head {h00=0x0018, h01=0x0050, text=» LD A3,PCURS,TCABAS «, t00=0x0028, t01=0x006c}
0x3ef2…3f1e Head {h00=0x0028, h01=0x0050, text=» LDR A4,A3 START IN CURSOR POSITION «, t00=0x0028, t01=0x0088}
0x3f1e…3f34 Head {h00=0x0012, h01=0x0050, text=» ADKL A4,BVDU «, t00=0x0028, t01=0x00b4}
0x3f34…3f4a Head {h00=0x0012, h01=0x0050, text=» ADR A4,TCABAS«, t00=0x0028, t01=0x00ca}
0x3f4a…3f72 Head {h00=0x0024, h01=0x0050, text=» LDK A5,1 INDICATE WCC, IC OR RA«, t00=0x0028, t01=0x00e0}
0x3f72…3f84 Head {h00=0x000e, h01=0x0050, text=» RF UPD220«, t00=0x0028, t01=0x0108}
0x3f84…3f8e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0028, t01=0x011a}
0x3f8e…3fac Head {h00=0x001a, h01=0x0050, text=»* ERASE/WRITE COMMAND «, t00=0x0028, t01=0x0124}
0x3fac…3fb6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0028, t01=0x0142}
0x3fb6…3fca Head {h00=0x0010, h01=0x0050, text=»UPD120 EQU *«, t00=0x0028, t01=0x014c}
0x3fca…3fec Head {h00=0x001e, h01=0x0050, text=» CF A14,ERASE ERASE SCREEN«, t00=0x0028, t01=0x0160}
0x3fec…3ffe Head {h00=0x000e, h01=0x0050, text=» RF UPD200«, t00=0x0028, t01=0x0182}
0x3ffe…4008 (41, 0, 400) Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0029, t01=0x0004}
0x4008…4028 Head {h00=0x001c, h01=0x0050, text=»* ERASE ALL UNPROTECTED «, t00=0x0029, t01=0x000e}
0x4028…4032 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0029, t01=0x002e}
0x4032…4046 Head {h00=0x0010, h01=0x0050, text=»UPD140 EQU *«, t00=0x0029, t01=0x0038}
0x4046…4072 Head {h00=0x0028, h01=0x0050, text=» CF A14,ERASUP ERASE ALL UNPROTECTED«, t00=0x0029, t01=0x004c}
0x4072…409e Head {h00=0x0028, h01=0x0050, text=» RF UPDEND NO TEXT WITH THIS COMMAND«, t00=0x0029, t01=0x0078}
0x409e…40a8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0029, t01=0x00a4}
0x40a8…40da Head {h00=0x002e, h01=0x0050, text=»* TAKE CARE OF WRITE CONTROL CHARACTER WCC«, t00=0x0029, t01=0x00ae}
0x40da…40e4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0029, t01=0x00e0}
0x40e4…410a Head {h00=0x0022, h01=0x0050, text=»UPD200 CF A14,PWCC PROCESS WCC«, t00=0x0029, t01=0x00ea}
0x410a…4132 Head {h00=0x0024, h01=0x0050, text=» LDK A5,1 INDICATE WCC, IC OR RA«, t00=0x0029, t01=0x0110}
0x4132…413c Head {h00=0x0006, h01=0x0050, text=» «, t00=0x0029, t01=0x0138}
0x413c…4146 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0029, t01=0x0142}
0x4146…4150 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0029, t01=0x014c}
0x4150…4176 Head {h00=0x0022, h01=0x0050, text=»* PROCESS DATA FROM DC BUFFER «, t00=0x0029, t01=0x0156}
0x4176…4180 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0029, t01=0x017c}
0x4180…418a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0029, t01=0x0186}
0x418a…41ba Head {h00=0x002c, h01=0x0050, text=»UPD210 LDK A3,0 START FROM POSITION ZERO«, t00=0x0029, t01=0x0190}
0x41ba…41d0 Head {h00=0x0012, h01=0x0050, text=» LDKL A4,BVDU «, t00=0x002a, t01=0x0030}
0x41d0…41e6 Head {h00=0x0012, h01=0x0050, text=» ADR A4,TCABAS«, t00=0x002a, t01=0x0046}
0x41e6…4208 Head {h00=0x001e, h01=0x0050, text=»UPD220 CW A9,DCLENG,TCABAS«, t00=0x002a, t01=0x005c}
0x4208…423c Head {h00=0x0030, h01=0x0050, text=» RF(NL) UPDEND ALL RECEIVED CHARS PROCESSED «, t00=0x002a, t01=0x007e}
0x423c…426a Head {h00=0x002a, h01=0x0050, text=» CF A14,GDCCH GET CHAR FROM DC BUFFER «, t00=0x002a, t01=0x00b2}
0x426a…427e Head {h00=0x0010, h01=0x0050, text=» CWK A2,/20 «, t00=0x002a, t01=0x00e0}
0x427e…429a Head {h00=0x0018, h01=0x0050, text=» RF(L) UPD300 ORDER «, t00=0x002a, t01=0x00f4}
0x429a…42ae Head {h00=0x0010, h01=0x0050, text=»UPD230 EQU *«, t00=0x002a, t01=0x0110}
0x42ae…42d2 Head {h00=0x0020, h01=0x0050, text=» ORK A2,/80 SET DISPLAY BIT «, t00=0x002a, t01=0x0124}
0x42d2…42e6 Head {h00=0x0010, h01=0x0050, text=»UPD240 EQU *«, t00=0x002a, t01=0x0148}
0x42e6…4312 Head {h00=0x0028, h01=0x0050, text=» LDK A5,0 INDICATE NOT WCC, IC OR RA«, t00=0x002a, t01=0x015c}
0x4312…4328 Head {h00=0x0012, h01=0x0050, text=» CWK A3,LBVDU «, t00=0x002a, t01=0x0188}
0x4328…4352 Head {h00=0x0026, h01=0x0050, text=» RF(E) UPD260 END OF VIDEO BUFFER «, t00=0x002b, t01=0x000e}
0x4352…4366 Head {h00=0x0010, h01=0x0050, text=»UPD250 EQU *«, t00=0x002b, t01=0x0038}
0x4366…438e Head {h00=0x0024, h01=0x0050, text=» SCR A2,A4 STORE IN VIDEO BUFFER«, t00=0x002b, t01=0x004c}
0x438e…43a0 Head {h00=0x000e, h01=0x0050, text=» ADK A3,1 «, t00=0x002b, t01=0x0074}
0x43a0…43b2 Head {h00=0x000e, h01=0x0050, text=» ADK A4,1 «, t00=0x002b, t01=0x0086}
0x43b2…43c4 Head {h00=0x000e, h01=0x0050, text=» RB UPD220«, t00=0x002b, t01=0x0098}
0x43c4…43dc Head {h00=0x0014, h01=0x0050, text=»UPD260 LDK A3,0 «, t00=0x002b, t01=0x00aa}
0x43dc…43f2 Head {h00=0x0012, h01=0x0050, text=» LDKL A4,BVDU «, t00=0x002b, t01=0x00c2}
0x43f2…4408 Head {h00=0x0012, h01=0x0050, text=» ADR A4,TCABAS«, t00=0x002b, t01=0x00d8}
0x4408…441a Head {h00=0x000e, h01=0x0050, text=» RB UPD250«, t00=0x002b, t01=0x00ee}
0x441a…442e Head {h00=0x0010, h01=0x0050, text=»UPD300 EQU *«, t00=0x002b, t01=0x0100}
0x442e…445e Head {h00=0x002c, h01=0x0050, text=» CWK A3,LBVDU END OF DISPLAY BUFFER ??? «, t00=0x002b, t01=0x0114}
0x445e…447a Head {h00=0x0018, h01=0x0050, text=» RF(NE) UPD302 NO!!!«, t00=0x002b, t01=0x0144}
0x447a…44a2 Head {h00=0x0024, h01=0x0050, text=» SUR A3,A3 FIRST SCREEN POSITION«, t00=0x002b, t01=0x0160}
0x44a2…44b8 Head {h00=0x0012, h01=0x0050, text=» LDKL A4,BVDU «, t00=0x002b, t01=0x0188}
0x44b8…44de Head {h00=0x0022, h01=0x0050, text=» ADR A4,TCABAS BUFFER POSITION«, t00=0x002c, t01=0x000e}
0x44de…44f2 Head {h00=0x0010, h01=0x0050, text=»UPD302 EQU *«, t00=0x002c, t01=0x0034}
0x44f2…4506 Head {h00=0x0010, h01=0x0050, text=» CWK A2,/1D «, t00=0x002c, t01=0x0048}
0x4506…4528 Head {h00=0x001e, h01=0x0050, text=» RF(E) UPD320 START FIELD «, t00=0x002c, t01=0x005c}
0x4528…453c Head {h00=0x0010, h01=0x0050, text=» CWK A2,/11 «, t00=0x002c, t01=0x007e}
0x453c…4564 Head {h00=0x0024, h01=0x0050, text=» RF(E) UPD340 SET BUFFER ADDRESS«, t00=0x002c, t01=0x0092}
0x4564…4578 Head {h00=0x0010, h01=0x0050, text=» CWK A2,/13 «, t00=0x002c, t01=0x00ba}
0x4578…459c Head {h00=0x0020, h01=0x0050, text=» RF(E) UPD360 INSERT CURSOR «, t00=0x002c, t01=0x00ce}
0x459c…45b0 Head {h00=0x0010, h01=0x0050, text=» CWK A2,/09 «, t00=0x002c, t01=0x00f2}
0x45b0…45d2 Head {h00=0x001e, h01=0x0050, text=» RF(E) UPD400 PROGRAM TAB «, t00=0x002c, t01=0x0106}
0x45d2…45e6 Head {h00=0x0010, h01=0x0050, text=» CWK A2,/14 «, t00=0x002c, t01=0x0128}
0x45e6…460e Head {h00=0x0024, h01=0x0050, text=» ABL(E) UPD500 REPEAT TO ADDRESS«, t00=0x002c, t01=0x013c}
0x460e…4622 Head {h00=0x0010, h01=0x0050, text=» CWK A2,/12 «, t00=0x002c, t01=0x0164}
0x4622…4656 Head {h00=0x0030, h01=0x0050, text=» ABL(E) UPD540 ERASE UNPROTECTED TO ADDRESS «, t00=0x002c, t01=0x0178}
0x4656…466a Head {h00=0x0010, h01=0x0050, text=» CWK A2,/0C «, t00=0x002d, t01=0x001c}
0x466a…4680 Head {h00=0x0012, h01=0x0050, text=» RF(NE) UPD305«, t00=0x002d, t01=0x0030}
0x4680…46a0 Head {h00=0x001c, h01=0x0050, text=» LDK A2,FORMFD FORM FEED«, t00=0x002d, t01=0x0046}
0x46a0…46b2 Head {h00=0x000e, h01=0x0050, text=» RB UPD230«, t00=0x002d, t01=0x0066}
0x46b2…46cc Head {h00=0x0016, h01=0x0050, text=»UPD305 CWK A2,/19 «, t00=0x002d, t01=0x0078}
0x46cc…46e2 Head {h00=0x0012, h01=0x0050, text=» RF(NE) UPD310«, t00=0x002d, t01=0x0092}
0x46e2…4704 Head {h00=0x001e, h01=0x0050, text=» LDK A2,ENDMES END MESSAGE«, t00=0x002d, t01=0x00a8}
0x4704…4716 Head {h00=0x000e, h01=0x0050, text=» RB UPD230«, t00=0x002d, t01=0x00ca}
0x4716…472a Head {h00=0x0010, h01=0x0050, text=»UPD310 EQU *«, t00=0x002d, t01=0x00dc}
0x472a…473e Head {h00=0x0010, h01=0x0050, text=» CWK A2,/0A «, t00=0x002d, t01=0x00f0}
0x473e…4754 Head {h00=0x0012, h01=0x0050, text=» RF(NE) UPD315«, t00=0x002d, t01=0x0104}
0x4754…4774 Head {h00=0x001c, h01=0x0050, text=» LDK A2,NEWLIN NEW LINE «, t00=0x002d, t01=0x011a}
0x4774…4786 Head {h00=0x000e, h01=0x0050, text=» RB UPD230«, t00=0x002d, t01=0x013a}
0x4786…479a Head {h00=0x0010, h01=0x0050, text=»UPD315 EQU *«, t00=0x002d, t01=0x014c}
0x479a…47ae Head {h00=0x0010, h01=0x0050, text=» CWK A2,/18 «, t00=0x002d, t01=0x0160}
0x47ae…47d2 Head {h00=0x0020, h01=0x0050, text=» RF(NE) UPD318 ILLEGAL ORDER«, t00=0x002d, t01=0x0174}
0x47d2…47e6 Head {h00=0x0010, h01=0x0050, text=» LDK A2,/30 «, t00=0x002e, t01=0x0008}
0x47e6…47f8 Head {h00=0x000e, h01=0x0050, text=» RB UPD230«, t00=0x002e, t01=0x001c}
0x47f8…4802 Head {h00=0x0006, h01=0x0050, text=» «, t00=0x002e, t01=0x002e}
0x4802…480a Head {h00=0x0004, h01=0x0050, t00=0x002e, t01=0x0038}
0x480a…481e Head {h00=0x0010, h01=0x0050, text=»UPD318 EQU *«, t00=0x002e, t01=0x0040}
0x481e…4838 Head {h00=0x0016, h01=0x0050, text=» CWK A2,SKIP DK5 «, t00=0x002e, t01=0x0054}
0x4838…485c Head {h00=0x0020, h01=0x0050, text=» RF(NE) UPD319 SKIP USM DK5 «, t00=0x002e, t01=0x006e}
0x485c…4874 Head {h00=0x0014, h01=0x0050, text=» RB UPD220 DK5 «, t00=0x002e, t01=0x0092}
0x4874…488e Head {h00=0x0016, h01=0x0050, text=»UPD319 EQU * DK5 «, t00=0x002e, t01=0x00aa}
0x488e…48b4 Head {h00=0x0022, h01=0x0050, text=» CWK A2,/00 NULL CHARACTER ???«, t00=0x002e, t01=0x00c4}
0x48b4…48d2 Head {h00=0x001a, h01=0x0050, text=» RF(NE) UPD31A NO DK7 «, t00=0x002e, t01=0x00ea}
0x48d2…48f8 Head {h00=0x0022, h01=0x0050, text=» LDK A2,/7F PTS NULL CHARACTER«, t00=0x002e, t01=0x0108}
0x48f8…490a Head {h00=0x000e, h01=0x0050, text=» RB UPD230«, t00=0x002e, t01=0x012e}
0x490a…4924 Head {h00=0x0016, h01=0x0050, text=»UPD31A EQU * DK7 «, t00=0x002e, t01=0x0140}
0x4924…494c Head {h00=0x0024, h01=0x0050, text=»* CHECK ON APL ESCALE CHAR (08) «, t00=0x002e, t01=0x015a}
0x494c…4964 Head {h00=0x0014, h01=0x0050, text=» CWK A2,/08 DK7«, t00=0x002e, t01=0x0182}
0x4964…498a Head {h00=0x0022, h01=0x0050, text=» RF(NE) UPDEND ILLEGAL CHR DK7«, t00=0x002f, t01=0x000a}
0x498a…49b0 Head {h00=0x0022, h01=0x0050, text=» LDK A2,/1E 'APL' ESCAPE DK7.1«, t00=0x002f, t01=0x0030}
0x49b0…49d4 Head {h00=0x0020, h01=0x0050, text=» RB UPD250 PUT IN BUFFER DK7«, t00=0x002f, t01=0x0056}
0x49d4…49dc Head {h00=0x0004, h01=0x0050, t00=0x002f, t01=0x007a}
0x49dc…4a20 Head {h00=0x0040, h01=0x0050, text=»************************************************************«, t00=0x002f, t01=0x0082}
0x4a20…4a2a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002f, t01=0x00c6}
0x4a2a…4a4c Head {h00=0x001e, h01=0x0050, text=»* RELEASE RECEIVE BUFFER«, t00=0x002f, t01=0x00d0}
0x4a4c…4a56 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002f, t01=0x00f2}
0x4a56…4a84 Head {h00=0x002a, h01=0x0050, text=»************************************* «, t00=0x002f, t01=0x00fc}
0x4a84…4a8c Head {h00=0x0004, h01=0x0050, t00=0x002f, t01=0x012a}
0x4a8c…4aa0 Head {h00=0x0010, h01=0x0050, text=»UPDEND EQU *«, t00=0x002f, t01=0x0132}
0x4aa0…4abc Head {h00=0x0018, h01=0x0050, text=» LD A8,ECBDCC,TCABAS«, t00=0x002f, t01=0x0146}
0x4abc…4ad4 Head {h00=0x0014, h01=0x0050, text=» LD A4,ECBBA,A8 «, t00=0x002f, t01=0x0162}
0x4ad4…4aea Head {h00=0x0012, h01=0x0050, text=» CF A14,RLRBUF«, t00=0x002f, t01=0x017a}
0x4aea…4b1c Head {h00=0x002e, h01=0x0050, text=»* CORRECTION FOR CURSOR LEFT ON ATTRIBUTE «, t00=0x002f, t01=0x0190}
0x4b1c…4b4a Head {h00=0x002a, h01=0x0050, text=» LD A3,PCURS,TCABAS GET CURSOR POS DK7«, t00=0x0030, t01=0x0032}
0x4b4a…4b64 Head {h00=0x0016, h01=0x0050, text=»UPDENA EQU * DK7 «, t00=0x0030, t01=0x0060}
0x4b64…4b8c Head {h00=0x0024, h01=0x0050, text=» LDKL A4,BVDU GET BUFFER VDU DK7«, t00=0x0030, t01=0x007a}
0x4b8c…4bae Head {h00=0x001e, h01=0x0050, text=» ADR A4,TCABAS COMPUTE IT «, t00=0x0030, t01=0x00a2}
0x4bae…4bc6 Head {h00=0x0014, h01=0x0050, text=» ADR A4,A3 DK7 «, t00=0x0030, t01=0x00c4}
0x4bc6…4bea Head {h00=0x0020, h01=0x0050, text=» LCR A1,A4 GET THE CHAR DK7 «, t00=0x0030, t01=0x00dc}
0x4bea…4c0e Head {h00=0x0020, h01=0x0050, text=» ANK A1,/FF CLEAN IT UP DK7 «, t00=0x0030, t01=0x0100}
0x4c0e…4c32 Head {h00=0x0020, h01=0x0050, text=» CWK A1,/001F ATTRIBUTE DK7 «, t00=0x0030, t01=0x0124}
0x4c32…4c60 Head {h00=0x002a, h01=0x0050, text=» RF(G) UPDENB NO,COMPLETE PROCESS DK7 «, t00=0x0030, t01=0x0148}
0x4c60…4c88 Head {h00=0x0024, h01=0x0050, text=» CWK A1,/1E 'APL' ESCAPE? DK7.1 «, t00=0x0030, t01=0x0176}
0x4c88…4cac Head {h00=0x0020, h01=0x0050, text=» RF(E) UPDENB FORGET IT DK7 «, t00=0x0031, t01=0x000e}
0x4cac…4cd6 Head {h00=0x0026, h01=0x0050, text=» ADK A3,1 YES, MOVE THE CURSOR DK7«, t00=0x0031, t01=0x0032}
0x4cd6…4cfc Head {h00=0x0022, h01=0x0050, text=» CWK A3,1919 END OF SCREEN DK7«, t00=0x0031, t01=0x005c}
0x4cfc…4d26 Head {h00=0x0026, h01=0x0050, text=» RB(NG) UPDENA NO,KEEP LOOKING DK7«, t00=0x0031, t01=0x0082}
0x4d26…4d4a Head {h00=0x0020, h01=0x0050, text=» LDK A3,0 START ALL OVER DK7«, t00=0x0031, t01=0x00ac}
0x4d4a…4d60 Head {h00=0x0012, h01=0x0050, text=» RB UPDENA DK«, t00=0x0031, t01=0x00d0}
0x4d60…4d7a Head {h00=0x0016, h01=0x0050, text=»UPDENB EQU * DK7 «, t00=0x0031, t01=0x00e6}
0x4d7a…4dae Head {h00=0x0030, h01=0x0050, text=» ST A3,PCURS,TCABAS SAVE CURSOR POSITION DK7«, t00=0x0031, t01=0x0100}
0x4dae…4dd4 Head {h00=0x0022, h01=0x0050, text=»* END OF CORRECTION 821005/GF «, t00=0x0031, t01=0x0134}
0x4dd4…4de4 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0031, t01=0x015a}
0x4de4…4dee Head {h00=0x0006, h01=0x0050, text=» «, t00=0x0031, t01=0x016a}
0x4dee…4df8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0031, t01=0x0174}
0x4df8…4e02 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0031, t01=0x017e}
0x4e02…4e1e Head {h00=0x0018, h01=0x0050, text=»* START FIELD ORDER «, t00=0x0031, t01=0x0188}
0x4e1e…4e28 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0032, t01=0x0014}
0x4e28…4e56 Head {h00=0x002a, h01=0x0050, text=»UPD320 CF A14,GDCCH GET ATTRIBUTE CHAR«, t00=0x0032, t01=0x001e}
0x4e56…4e6e Head {h00=0x0014, h01=0x0050, text=» LC A2,TEBCDI,A2«, t00=0x0032, t01=0x004c}
0x4e6e…4e9c Head {h00=0x002a, h01=0x0050, text=» LDR A1,A2 COMPOSE PTS ATTRIBUTE CHAR «, t00=0x0032, t01=0x0064}
0x4e9c…4eae Head {h00=0x000e, h01=0x0050, text=» ANK A1,1 «, t00=0x0032, t01=0x0092}
0x4eae…4ec0 Head {h00=0x000e, h01=0x0050, text=» SRL A2,1 «, t00=0x0032, t01=0x00a4}
0x4ec0…4ed4 Head {h00=0x0010, h01=0x0050, text=» ANK A2,/1E «, t00=0x0032, t01=0x00b6}
0x4ed4…4ee6 Head {h00=0x000e, h01=0x0050, text=» ORR A2,A1«, t00=0x0032, t01=0x00ca}
0x4ee6…4ef8 Head {h00=0x000e, h01=0x0050, text=» RB UPD240«, t00=0x0032, t01=0x00dc}
0x4ef8…4f02 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0032, t01=0x00ee}
0x4f02…4f1e Head {h00=0x0018, h01=0x0050, text=»* SET BUFFER ADDRESS«, t00=0x0032, t01=0x00f8}
0x4f1e…4f28 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0032, t01=0x0114}
0x4f28…4f50 Head {h00=0x0024, h01=0x0050, text=»UPD340 CF A14,GETADR GET ADDRESS«, t00=0x0032, t01=0x011e}
0x4f50…4f66 Head {h00=0x0012, h01=0x0050, text=» CWK A1,LBVDU «, t00=0x0032, t01=0x0146}
0x4f66…4f8c Head {h00=0x0022, h01=0x0050, text=» RB(NL) UPDEND INVALID ADDRESS«, t00=0x0032, t01=0x015c}
0x4f8c…4f9e Head {h00=0x000e, h01=0x0050, text=» LDR A3,A1«, t00=0x0032, t01=0x0182}
0x4f9e…4fb0 (51, 0, 400) Head {h00=0x000e, h01=0x0050, text=» LDR A4,A3«, t00=0x0033, t01=0x0004}
0x4fb0…4fc6 Head {h00=0x0012, h01=0x0050, text=» ADKL A4,BVDU «, t00=0x0033, t01=0x0016}
0x4fc6…4fdc Head {h00=0x0012, h01=0x0050, text=» ADR A4,TCABAS«, t00=0x0033, t01=0x002c}
0x4fdc…5000 Head {h00=0x0020, h01=0x0050, text=» LDK A5,1 INDICATE ORDER DK6«, t00=0x0033, t01=0x0042}
0x5000…5014 Head {h00=0x0010, h01=0x0050, text=» ABL UPD220 «, t00=0x0033, t01=0x0066}
0x5014…501e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0033, t01=0x007a}
0x501e…5036 Head {h00=0x0014, h01=0x0050, text=»* INSERT CURSOR «, t00=0x0033, t01=0x0084}
0x5036…5040 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0033, t01=0x009c}
0x5040…5074 Head {h00=0x0030, h01=0x0050, text=»UPD360 ST A3,PCURS,TCABAS SET NEW CURSOR POS«, t00=0x0033, t01=0x00a6}
0x5074…509c Head {h00=0x0024, h01=0x0050, text=» LDK A5,1 INDICATE WCC, IC OR RA«, t00=0x0033, t01=0x00da}
0x509c…50b0 Head {h00=0x0010, h01=0x0050, text=» ABL UPD220 «, t00=0x0033, t01=0x0102}
0x50b0…50ba Head {h00=0x0006, h01=0x0050, text=» «, t00=0x0033, t01=0x0116}
0x50ba…50c4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0033, t01=0x0120}
0x50c4…50da Head {h00=0x0012, h01=0x0050, text=»* PROGRAM TAB «, t00=0x0033, t01=0x012a}
0x50da…50e4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0033, t01=0x0140}
0x50e4…50fc Head {h00=0x0014, h01=0x0050, text=»UPD400 LDR A5,A5«, t00=0x0033, t01=0x014a}
0x50fc…512a Head {h00=0x002a, h01=0x0050, text=» RF(NZ) UPD430 PT AFTER WCC, IC OR RA «, t00=0x0033, t01=0x0162}
0x512a…515e Head {h00=0x0030, h01=0x0050, text=» LDK A1,NULL+/80 FILL CURRENT FIELD BY NULLS«, t00=0x0033, t01=0x0190}
0x515e…5172 Head {h00=0x0010, h01=0x0050, text=»UPD410 EQU *«, t00=0x0034, t01=0x0034}
0x5172…5184 Head {h00=0x000e, h01=0x0050, text=» LDK A5,0 «, t00=0x0034, t01=0x0048}
0x5184…519a Head {h00=0x0012, h01=0x0050, text=» CWK A3,LBVDU «, t00=0x0034, t01=0x005a}
0x519a…51c0 Head {h00=0x0022, h01=0x0050, text=» ABL(NL) UPD210 END OF BUFFER «, t00=0x0034, t01=0x0070}
0x51c0…51d2 Head {h00=0x000e, h01=0x0050, text=» LCR A2,A4«, t00=0x0034, t01=0x0096}
0x51d2…51e4 Head {h00=0x000e, h01=0x0050, text=» ADK A3,1 «, t00=0x0034, t01=0x00a8}
0x51e4…51f8 Head {h00=0x0010, h01=0x0050, text=» ANK A2,/7F «, t00=0x0034, t01=0x00ba}
0x51f8…520c Head {h00=0x0010, h01=0x0050, text=» CWK A2,/20 «, t00=0x0034, t01=0x00ce}
0x520c…5222 Head {h00=0x0012, h01=0x0050, text=» RF(L) UPD415 «, t00=0x0034, t01=0x00e2}
0x5222…5240 Head {h00=0x001a, h01=0x0050, text=» SCR A1,A4 STORE NULL «, t00=0x0034, t01=0x00f8}
0x5240…5252 Head {h00=0x000e, h01=0x0050, text=» ADK A4,1 «, t00=0x0034, t01=0x0116}
0x5252…5264 Head {h00=0x000e, h01=0x0050, text=» RB UPD410«, t00=0x0034, t01=0x0128}
0x5264…5278 Head {h00=0x0010, h01=0x0050, text=»UPD415 EQU *«, t00=0x0034, t01=0x013a}
0x5278…528a Head {h00=0x000e, h01=0x0050, text=» ADK A4,1 «, t00=0x0034, t01=0x014e}
0x528a…52a4 Head {h00=0x0016, h01=0x0050, text=»UPD420 ANK A2,/10 «, t00=0x0034, t01=0x0160}
0x52a4…52cc Head {h00=0x0024, h01=0x0050, text=» ABL(Z) UPD220 UNPROTECTED FIELD«, t00=0x0034, t01=0x017a}
0x52cc…52e0 Head {h00=0x0010, h01=0x0050, text=»UPD430 EQU *«, t00=0x0035, t01=0x0012}
0x52e0…52f2 Head {h00=0x000e, h01=0x0050, text=» LDK A5,0 «, t00=0x0035, t01=0x0026}
0x52f2…5308 Head {h00=0x0012, h01=0x0050, text=» CWK A3,LBVDU «, t00=0x0035, t01=0x0038}
0x5308…5336 Head {h00=0x002a, h01=0x0050, text=» ABL(NL) UPD210 END OF DISPLAY BUFFER «, t00=0x0035, t01=0x004e}
0x5336…5348 Head {h00=0x000e, h01=0x0050, text=» LCR A2,A4«, t00=0x0035, t01=0x007c}
0x5348…535a Head {h00=0x000e, h01=0x0050, text=» ADK A3,1 «, t00=0x0035, t01=0x008e}
0x535a…536c Head {h00=0x000e, h01=0x0050, text=» ADK A4,1 «, t00=0x0035, t01=0x00a0}
0x536c…5380 Head {h00=0x0010, h01=0x0050, text=» ANK A2,/7F «, t00=0x0035, t01=0x00b2}
0x5380…5394 Head {h00=0x0010, h01=0x0050, text=» CWK A2,/20 «, t00=0x0035, t01=0x00c6}
0x5394…53aa Head {h00=0x0012, h01=0x0050, text=» RB(L) UPD420 «, t00=0x0035, t01=0x00da}
0x53aa…53bc Head {h00=0x000e, h01=0x0050, text=» RB UPD430«, t00=0x0035, t01=0x00f0}
0x53bc…53c6 Head {h00=0x0006, h01=0x0050, text=» «, t00=0x0035, t01=0x0102}
0x53c6…53d0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0035, t01=0x010c}
0x53d0…53ec Head {h00=0x0018, h01=0x0050, text=»* REPEAT TO ADDRESS «, t00=0x0035, t01=0x0116}
0x53ec…53f6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0035, t01=0x0132}
0x53f6…5422 Head {h00=0x0028, h01=0x0050, text=»UPD500 CF A14,GETADR GET END ADDRESS«, t00=0x0035, t01=0x013c}
0x5422…5438 Head {h00=0x0012, h01=0x0050, text=» CWK A1,LBVDU «, t00=0x0035, t01=0x0168}
0x5438…545e Head {h00=0x0022, h01=0x0050, text=» RB(NL) UPDEND INVALID ADDRESS«, t00=0x0035, t01=0x017e}
0x545e…548c Head {h00=0x002a, h01=0x0050, text=» CF A14,GDCCH GET CHAR TO BE REPEATED «, t00=0x0036, t01=0x0014}
0x548c…54b4 Head {h00=0x0024, h01=0x0050, text=» LDK A5,1 INDICATE WCC, IC OR RA«, t00=0x0036, t01=0x0042}
0x54b4…54da Head {h00=0x0022, h01=0x0050, text=» ORK A2,/80 INDICATE MODIFIED «, t00=0x0036, t01=0x006a}
0x54da…54e2 Head {h00=0x0004, h01=0x0050, t00=0x0036, t01=0x0090}
0x54e2…54ea Head {h00=0x0004, h01=0x0050, t00=0x0036, t01=0x0098}
0x54ea…5520 Head {h00=0x0032, h01=0x0050, text=» CWR A3,A1 NULLS TO ALL SCREEN POSITIONS ???? «, t00=0x0036, t01=0x00a0}
0x5520…553c Head {h00=0x0018, h01=0x0050, text=» RF(E) UPD530 YES!!!«, t00=0x0036, t01=0x00d6}
0x553c…5544 Head {h00=0x0004, h01=0x0050, t00=0x0036, t01=0x00f2}
0x5544…554c Head {h00=0x0004, h01=0x0050, t00=0x0036, t01=0x00fa}
0x554c…5568 Head {h00=0x0018, h01=0x0050, text=»UPD510 CWK A3,LBVDU «, t00=0x0036, t01=0x0102}
0x5568…5590 Head {h00=0x0024, h01=0x0050, text=» RF(L) UPD520 NOT END OF SCREEN «, t00=0x0036, t01=0x011e}
0x5590…55a2 Head {h00=0x000e, h01=0x0050, text=» LDK A3,0 «, t00=0x0036, t01=0x0146}
0x55a2…55c4 Head {h00=0x001e, h01=0x0050, text=» LDKL A4,BVDU WRAP AROUND «, t00=0x0036, t01=0x0158}
0x55c4…55da Head {h00=0x0012, h01=0x0050, text=» ADR A4,TCABAS«, t00=0x0036, t01=0x017a}
0x55da…55f2 Head {h00=0x0014, h01=0x0050, text=»UPD520 CWR A3,A1«, t00=0x0036, t01=0x0190}
0x55f2…561a Head {h00=0x0024, h01=0x0050, text=» ABL(E) UPD220 ALL CHAR REPEATED«, t00=0x0037, t01=0x0018}
0x561a…5622 Head {h00=0x0004, h01=0x0050, t00=0x0037, t01=0x0040}
0x5622…5636 Head {h00=0x0010, h01=0x0050, text=»UPD530 EQU *«, t00=0x0037, t01=0x0048}
0x5636…563e Head {h00=0x0004, h01=0x0050, t00=0x0037, t01=0x005c}
0x563e…5650 Head {h00=0x000e, h01=0x0050, text=» SCR A2,A4«, t00=0x0037, t01=0x0064}
0x5650…5662 Head {h00=0x000e, h01=0x0050, text=» ADK A3,1 «, t00=0x0037, t01=0x0076}
0x5662…5674 Head {h00=0x000e, h01=0x0050, text=» ADK A4,1 «, t00=0x0037, t01=0x0088}
0x5674…5694 Head {h00=0x001c, h01=0x0050, text=» RB UPD510 NEXT POSITION«, t00=0x0037, t01=0x009a}
0x5694…569e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0037, t01=0x00ba}
0x569e…56c4 Head {h00=0x0022, h01=0x0050, text=»* ERASE UNPROTECTED TO ADDRESS«, t00=0x0037, t01=0x00c4}
0x56c4…56ce Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0037, t01=0x00ea}
0x56ce…56fa Head {h00=0x0028, h01=0x0050, text=»UPD540 CF A14,GETADR GET END ADDRESS«, t00=0x0037, t01=0x00f4}
0x56fa…5710 Head {h00=0x0012, h01=0x0050, text=» CWK A3,LBVDU «, t00=0x0037, t01=0x0120}
0x5710…5736 Head {h00=0x0022, h01=0x0050, text=» RB(NL) UPDEND INVALID ADDRESS«, t00=0x0037, t01=0x0136}
0x5736…576a Head {h00=0x0030, h01=0x0050, text=» CF A14,ERASUA ERASE UNPROTECTED TO ADDRESS «, t00=0x0037, t01=0x015c}
0x576a…577e Head {h00=0x0010, h01=0x0050, text=» ABL UPD220 «, t00=0x0037, t01=0x0190}
0x577e…5794 Head {h00=0x0012, h01=0x0050, text=» IFT COPCMD=1 «, t00=0x0038, t01=0x0014}
0x5794…579e Head {h00=0x0006, h01=0x0050, text=» «, t00=0x0038, t01=0x002a}
0x579e…57a8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0038, t01=0x0034}
0x57a8…57be Head {h00=0x0012, h01=0x0050, text=»* COPY COMMAND«, t00=0x0038, t01=0x003e}
0x57be…57c8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0038, t01=0x0054}
0x57c8…57dc Head {h00=0x0010, h01=0x0050, text=»UPD600 EQU *«, t00=0x0038, t01=0x005e}
0x57dc…57fa Head {h00=0x001a, h01=0x0050, text=» LD A1,PRINTER,TCABAS «, t00=0x0038, t01=0x0072}
0x57fa…5832 Head {h00=0x0034, h01=0x0050, text=» ABL(Z) UPDEND COPYCOMMAND NOT SUPPORTED FOR VDU«, t00=0x0038, t01=0x0090}
0x5832…5844 Head {h00=0x000e, h01=0x0050, text=» ADK A7,1 «, t00=0x0038, t01=0x00c8}
0x5844…585a Head {h00=0x0012, h01=0x0050, text=» BYPASS CCC «, t00=0x0038, t01=0x00da}
0x585a…5880 Head {h00=0x0022, h01=0x0050, text=» CF A14,GDCCH GET FROM DEVICE «, t00=0x0038, t01=0x00f0}
0x5880…5896 Head {h00=0x0012, h01=0x0050, text=» IFT EBCDIC=1 «, t00=0x0038, t01=0x0116}
0x5896…58c0 Head {h00=0x0026, h01=0x0050, text=» LC A2,TEBCDI,A2 CONVERT TO EBCDIC«, t00=0x0038, t01=0x012c}
0x58c0…58cc Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0038, t01=0x0156}
0x58cc…58e2 Head {h00=0x0012, h01=0x0050, text=» IFT COPCMD=1 «, t00=0x0038, t01=0x0162}
0x58e2…5908 Head {h00=0x0022, h01=0x0050, text=» LD A3,6,CREBAS 'CB1' ADDRESS «, t00=0x0038, t01=0x0178}
0x5908…5920 Head {h00=0x0014, h01=0x0050, text=» LDK A4,MF1KBV-1«, t00=0x0039, t01=0x000e}
0x5920…5934 Head {h00=0x0010, h01=0x0050, text=» IFT DCLIN=2«, t00=0x0039, t01=0x0026}
0x5934…5954 Head {h00=0x001c, h01=0x0050, text=» LD A1,ECBBLK+DC2,TCABAS«, t00=0x0039, t01=0x003a}
0x5954…596a Head {h00=0x0012, h01=0x0050, text=» RF(NZ) UPD602«, t00=0x0039, t01=0x005a}
0x596a…598e Head {h00=0x0020, h01=0x0050, text=» LDK A4,MF2KBV-1 MF # 2 READ«, t00=0x0039, t01=0x0070}
0x598e…599a Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0039, t01=0x0094}
0x599a…59b0 Head {h00=0x0012, h01=0x0050, text=» IFT COPCMD=1 «, t00=0x0039, t01=0x00a0}
0x59b0…59c4 Head {h00=0x0010, h01=0x0050, text=»UPD602 EQU *«, t00=0x0039, t01=0x00b6}
0x59c4…59e6 Head {h00=0x001e, h01=0x0050, text=» ADR A4,A3 CONFIG TABLE -1«, t00=0x0039, t01=0x00ca}
0x59e6…5a10 Head {h00=0x0026, h01=0x0050, text=» LD A5,NBRKBV,A3 NUMBER OF KB/VDUS«, t00=0x0039, t01=0x00ec}
0x5a10…5a3c Head {h00=0x0028, h01=0x0050, text=» ADR A4,A5 LAST KB/VDU CONFIGURATED «, t00=0x0039, t01=0x0116}
0x5a3c…5a50 Head {h00=0x0010, h01=0x0050, text=»UPD604 EQU *«, t00=0x0039, t01=0x0142}
0x5a50…5a78 Head {h00=0x0024, h01=0x0050, text=» CCR A2,A4 DV-ADDRESS MATCHES ? «, t00=0x0039, t01=0x0156}
0x5a78…5a92 Head {h00=0x0016, h01=0x0050, text=» RF(E) UPD610 YES «, t00=0x0039, t01=0x017e}
0x5a92…5aa4 Head {h00=0x000e, h01=0x0050, text=» SUK A4,1 «, t00=0x003a, t01=0x0008}
0x5aa4…5ab6 Head {h00=0x000e, h01=0x0050, text=» SUK A5,1 «, t00=0x003a, t01=0x001a}
0x5ab6…5ad4 Head {h00=0x001a, h01=0x0050, text=» RB(P) UPD604 TRY NEXT«, t00=0x003a, t01=0x002c}
0x5ad4…5af0 Head {h00=0x0018, h01=0x0050, text=» ABL UPDEND NO MATCH«, t00=0x003a, t01=0x004a}
0x5af0…5afa Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003a, t01=0x0066}
0x5afa…5b0e Head {h00=0x0010, h01=0x0050, text=»UPD610 EQU *«, t00=0x003a, t01=0x0070}
0x5b0e…5b26 Head {h00=0x0014, h01=0x0050, text=» LDKL A8,ECBICW «, t00=0x003a, t01=0x0084}
0x5b26…5b3c Head {h00=0x0012, h01=0x0050, text=» ADR A8,CREBAS«, t00=0x003a, t01=0x009c}
0x5b3c…5b48 Head {h00=0x0008, h01=0x0050, text=» LKM«, t00=0x003a, t01=0x00b2}
0x5b48…5b7c Head {h00=0x0030, h01=0x0050, text=» DATA 10 ABORT LAST REQUEST IF NOT COMPLETED«, t00=0x003a, t01=0x00be}
0x5b7c…5ba6 Head {h00=0x0026, h01=0x0050, text=» ADKL A5,/4B40 TASKID FROM DEVICE «, t00=0x003a, t01=0x00f2}
0x5ba6…5bce Head {h00=0x0024, h01=0x0050, text=» LD A2,-4,CREBAS GET OWN TASKID «, t00=0x003a, t01=0x011c}
0x5bce…5bf8 Head {h00=0x0026, h01=0x0050, text=» ST A2,ICWORK,TCABAS PUT IN BUFFER«, t00=0x003a, t01=0x0144}
0x5bf8…5c26 Head {h00=0x002a, h01=0x0050, text=» LDK A4,/0B WRITE ADDRESSED , NO WAIT «, t00=0x003a, t01=0x016e}
0x5c26…5c42 Head {h00=0x0018, h01=0x0050, text=» LDK A6,2 REQ LENGTH«, t00=0x003b, t01=0x000c}
0x5c42…5c5a Head {h00=0x0014, h01=0x0050, text=» LDKL A3,ICWORK «, t00=0x003b, t01=0x0028}
0x5c5a…5c80 Head {h00=0x0022, h01=0x0050, text=» ADR A3,TCABAS BUFFER ADDRESS «, t00=0x003b, t01=0x0040}
0x5c80…5ca6 Head {h00=0x0022, h01=0x0050, text=» CF A14,ICWRTE WRITE INTERTASK«, t00=0x003b, t01=0x0066}
0x5ca6…5cba Head {h00=0x0010, h01=0x0050, text=» ABL UPDEND «, t00=0x003b, t01=0x008c}
0x5cba…5cc6 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x003b, t01=0x00a0}
0x5cc6…5cd0 Head {h00=0x0006, h01=0x0050, text=» «, t00=0x003b, t01=0x00ac}
0x5cd0…5cda Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003b, t01=0x00b6}
0x5cda…5ce4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003b, t01=0x00c0}
0x5ce4…5d0e Head {h00=0x0026, h01=0x0050, text=»* PROCESS WRITE CONTROL CHARACTER «, t00=0x003b, t01=0x00ca}
0x5d0e…5d18 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003b, t01=0x00f4}
0x5d18…5d46 Head {h00=0x002a, h01=0x0050, text=»* ONLY RESET MDT BIT IS TAKEN CARE OF «, t00=0x003b, t01=0x00fe}
0x5d46…5d50 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003b, t01=0x012c}
0x5d50…5d5a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003b, t01=0x0136}
0x5d5a…5d7c Head {h00=0x001e, h01=0x0050, text=»PWCC CF A14,GDCCH GET WCC «, t00=0x003b, t01=0x0140}
0x5d7c…5d9e Head {h00=0x001e, h01=0x0050, text=» LC A2,TEBCDI,A2 IN EBCDIC«, t00=0x003b, t01=0x0162}
0x5d9e…5dc0 Head {h00=0x001e, h01=0x0050, text=» ST A2,WCC,TCABAS SAVE IT «, t00=0x003b, t01=0x0184}
0x5dc0…5dd4 Head {h00=0x0010, h01=0x0050, text=» ANK A2,/04 «, t00=0x003c, t01=0x0016}
0x5dd4…5de8 Head {h00=0x0010, h01=0x0050, text=» RF(Z) PWCC1«, t00=0x003c, t01=0x002a}
0x5de8…5e06 Head {h00=0x001a, h01=0x0050, text=» LD A2,PRINTER,TCABAS «, t00=0x003c, t01=0x003e}
0x5e06…5e1c Head {h00=0x0012, h01=0x0050, text=» RF(NZ) PWCC1 «, t00=0x003c, t01=0x005c}
0x5e1c…5e30 Head {h00=0x0010, h01=0x0050, text=» LDR A10,A7 «, t00=0x003c, t01=0x0072}
0x5e30…5e48 Head {h00=0x0014, h01=0x0050, text=» LDKL A8,ECBVDU «, t00=0x003c, t01=0x0086}
0x5e48…5e5e Head {h00=0x0012, h01=0x0050, text=» ADR A8,CREBAS«, t00=0x003c, t01=0x009e}
0x5e5e…5e76 Head {h00=0x0014, h01=0x0050, text=» LD A2,ECBBA,A8 «, t00=0x003c, t01=0x00b4}
0x5e76…5e8a Head {h00=0x0010, h01=0x0050, text=» LDK A7,/2B «, t00=0x003c, t01=0x00cc}
0x5e8a…5ea2 Head {h00=0x0014, h01=0x0050, text=» SC A7,1,A2 =1 «, t00=0x003c, t01=0x00e0}
0x5ea2…5ebe Head {h00=0x0018, h01=0x0050, text=» LDK A7,/07 BELL =1 «, t00=0x003c, t01=0x00f8}
0x5ebe…5ed6 Head {h00=0x0014, h01=0x0050, text=» SC A7,2,A2 =1 «, t00=0x003c, t01=0x0114}
0x5ed6…5eee Head {h00=0x0014, h01=0x0050, text=» SC A7,3,A2 =1 «, t00=0x003c, t01=0x012c}
0x5eee…5f00 Head {h00=0x000e, h01=0x0050, text=» LDK A7,4 «, t00=0x003c, t01=0x0144}
0x5f00…5f18 Head {h00=0x0014, h01=0x0050, text=» ST A7,ECBRL,A8 «, t00=0x003c, t01=0x0156}
0x5f18…5f2c Head {h00=0x0010, h01=0x0050, text=» LDK A7,/86 «, t00=0x003c, t01=0x016e}
0x5f2c…5f38 Head {h00=0x0008, h01=0x0050, text=» LKM«, t00=0x003c, t01=0x0182}
0x5f38…5f48 Head {h00=0x000c, h01=0x0050, text=» DATA 1 «, t00=0x003c, t01=0x018e}
0x5f48…5f64 Head {h00=0x0018, h01=0x0050, text=» LD A8,ECBDCC,TCABAS«, t00=0x003d, t01=0x000e}
0x5f64…5f78 Head {h00=0x0010, h01=0x0050, text=» LDR A7,A10 «, t00=0x003d, t01=0x002a}
0x5f78…5f8c Head {h00=0x0010, h01=0x0050, text=»PWCC1 EQU * «, t00=0x003d, t01=0x003e}
0x5f8c…5fa6 Head {h00=0x0016, h01=0x0050, text=» LD A2,WCC,TCABAS «, t00=0x003d, t01=0x0052}
0x5fa6…5fb8 Head {h00=0x000e, h01=0x0050, text=» ANK A2,1 «, t00=0x003d, t01=0x006c}
0x5fb8…5fdc Head {h00=0x0020, h01=0x0050, text=» RF(NZ) RESMDT RESET ALL MDT«, t00=0x003d, t01=0x007e}
0x5fdc…5ffc Head {h00=0x001c, h01=0x0050, text=»PWCC10 RTN A14 NO ACTION«, t00=0x003d, t01=0x00a2}
0x5ffc…6006 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003d, t01=0x00c2}
0x6006…6010 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003d, t01=0x00cc}
0x6010…602c Head {h00=0x0018, h01=0x0050, text=»* RESET ALL MDT BITS«, t00=0x003d, t01=0x00d6}
0x602c…6036 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003d, t01=0x00f2}
0x6036…6040 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003d, t01=0x00fc}
0x6040…6058 Head {h00=0x0014, h01=0x0050, text=»RESMDT LDK A3,0 «, t00=0x003d, t01=0x0106}
0x6058…606e Head {h00=0x0012, h01=0x0050, text=» LDKL A4,BVDU «, t00=0x003d, t01=0x011e}
0x606e…6084 Head {h00=0x0012, h01=0x0050, text=» ADR A4,TCABAS«, t00=0x003d, t01=0x0134}
0x6084…60a0 Head {h00=0x0018, h01=0x0050, text=»RESM10 CWK A3,LBVDU «, t00=0x003d, t01=0x014a}
0x60a0…60c0 Head {h00=0x001c, h01=0x0050, text=» RB(NL) PWCC10 ALL DONE «, t00=0x003d, t01=0x0166}
0x60c0…60dc Head {h00=0x0018, h01=0x0050, text=» LCR A2,A4 GET CHAR «, t00=0x003d, t01=0x0186}
0x60dc…60f0 Head {h00=0x0010, h01=0x0050, text=» ANK A2,/60 «, t00=0x003e, t01=0x0012}
0x60f0…6114 Head {h00=0x0020, h01=0x0050, text=» RF(NZ) RESM20 NO ATTRIBUTE «, t00=0x003e, t01=0x0026}
0x6114…6126 Head {h00=0x000e, h01=0x0050, text=» LCR A2,A4«, t00=0x003e, t01=0x004a}
0x6126…6144 Head {h00=0x001a, h01=0x0050, text=» ANK A2,/FE RESET MDT «, t00=0x003e, t01=0x005c}
0x6144…6156 Head {h00=0x000e, h01=0x0050, text=» SCR A2,A4«, t00=0x003e, t01=0x007a}
0x6156…616e Head {h00=0x0014, h01=0x0050, text=»RESM20 ADK A3,1 «, t00=0x003e, t01=0x008c}
0x616e…6180 Head {h00=0x000e, h01=0x0050, text=» ADK A4,1 «, t00=0x003e, t01=0x00a4}
0x6180…6192 Head {h00=0x000e, h01=0x0050, text=» RB RESM10«, t00=0x003e, t01=0x00b6}
0x6192…619c Head {h00=0x0006, h01=0x0050, text=» «, t00=0x003e, t01=0x00c8}
0x619c…61a6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003e, t01=0x00d2}
0x61a6…61b0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003e, t01=0x00dc}
0x61b0…61ce Head {h00=0x001a, h01=0x0050, text=»* ERASE ENTIRE SCREEN «, t00=0x003e, t01=0x00e6}
0x61ce…61d8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003e, t01=0x0104}
0x61d8…61e2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003e, t01=0x010e}
0x61e2…61f8 Head {h00=0x0012, h01=0x0050, text=»ERASE LDK A3,0«, t00=0x003e, t01=0x0118}
0x61f8…620e Head {h00=0x0012, h01=0x0050, text=» LDKL A4,BVDU «, t00=0x003e, t01=0x012e}
0x620e…6224 Head {h00=0x0012, h01=0x0050, text=» ADR A4,TCABAS«, t00=0x003e, t01=0x0144}
0x6224…6238 Head {h00=0x0010, h01=0x0050, text=» LDK A2,NULL«, t00=0x003e, t01=0x015a}
0x6238…6254 Head {h00=0x0018, h01=0x0050, text=»ERAS20 CWK A3,LBVDU «, t00=0x003e, t01=0x016e}
0x6254…6276 Head {h00=0x001e, h01=0x0050, text=» RF(NL) ERAS25 ALL ERASED «, t00=0x003e, t01=0x018a}
0x6276…6288 Head {h00=0x000e, h01=0x0050, text=» SCR A2,A4«, t00=0x003f, t01=0x001c}
0x6288…629a Head {h00=0x000e, h01=0x0050, text=» ADK A3,1 «, t00=0x003f, t01=0x002e}
0x629a…62ac Head {h00=0x000e, h01=0x0050, text=» ADK A4,1 «, t00=0x003f, t01=0x0040}
0x62ac…62be Head {h00=0x000e, h01=0x0050, text=» RB ERAS20«, t00=0x003f, t01=0x0052}
0x62be…62ee Head {h00=0x002c, h01=0x0050, text=»ERAS25 CM PCURS,TCABAS RESET CURSOR POS «, t00=0x003f, t01=0x0064}
0x62ee…6306 Head {h00=0x0014, h01=0x0050, text=» LDKL A1,LBVDU+1«, t00=0x003f, t01=0x0094}
0x6306…633a Head {h00=0x0030, h01=0x0050, text=» ST A1,CURATT,TCABAS INDICATE UNFORM. SCREEN«, t00=0x003f, t01=0x00ac}
0x633a…6354 Head {h00=0x0016, h01=0x0050, text=» CM ATTRIB,TCABAS «, t00=0x003f, t01=0x00e0}
0x6354…6384 Head {h00=0x002c, h01=0x0050, text=» LD A1,PRINTER,TCABAS CHECK DEVISE TYPE «, t00=0x003f, t01=0x00fa}
0x6384…63b0 Head {h00=0x0028, h01=0x0050, text=» RF(NZ) ERAEND PRINTER, NOT DISPLAY «, t00=0x003f, t01=0x012a}
0x63b0…63dc Head {h00=0x0028, h01=0x0050, text=» STR A7,A14 SAVE A7 AND A8 ON STACK «, t00=0x003f, t01=0x0156}
0x63dc…63f2 Head {h00=0x0012, h01=0x0050, text=» ST A8,-2,A14 «, t00=0x003f, t01=0x0182}
0x63f2…640a Head {h00=0x0014, h01=0x0050, text=» LDKL A8,ECBVDU «, t00=0x0040, t01=0x0008}
0x640a…6428 Head {h00=0x001a, h01=0x0050, text=» ADR A8,CREBAS VDUECB «, t00=0x0040, t01=0x0020}
0x6428…644e Head {h00=0x0022, h01=0x0050, text=» LDK A7,'1' ERASE CONTROL CHAR«, t00=0x0040, t01=0x003e}
0x644e…646a Head {h00=0x0018, h01=0x0050, text=» LD A1,ECBBA,A8 =1 «, t00=0x0040, t01=0x0064}
0x646a…6482 Head {h00=0x0014, h01=0x0050, text=» SC A7,1,A1 =1 «, t00=0x0040, t01=0x0080}
0x6482…6494 Head {h00=0x000e, h01=0x0050, text=» LDK A7,2 «, t00=0x0040, t01=0x0098}
0x6494…64ba Head {h00=0x0022, h01=0x0050, text=» ST A7,ECBRL,A8 REQ LENGTH = 2«, t00=0x0040, t01=0x00aa}
0x64ba…64d4 Head {h00=0x0016, h01=0x0050, text=» LDK A7,/86 WRITE «, t00=0x0040, t01=0x00d0}
0x64d4…64e0 Head {h00=0x0008, h01=0x0050, text=» LKM«, t00=0x0040, t01=0x00ea}
0x64e0…64f0 Head {h00=0x000c, h01=0x0050, text=» DATA 1 «, t00=0x0040, t01=0x00f6}
0x64f0…6506 Head {h00=0x0012, h01=0x0050, text=» LD A8,-2,A14 «, t00=0x0040, t01=0x0106}
0x6506…652c Head {h00=0x0022, h01=0x0050, text=» LDR* A7,A14 RESTORE A7 AND A8«, t00=0x0040, t01=0x011c}
0x652c…6542 Head {h00=0x0012, h01=0x0050, text=»ERAEND RTN A14«, t00=0x0040, t01=0x0142}
0x6542…654c Head {h00=0x0006, h01=0x0050, text=» «, t00=0x0040, t01=0x0158}
0x654c…6556 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0040, t01=0x0162}
0x6556…6560 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0040, t01=0x016c}
0x6560…6580 Head {h00=0x001c, h01=0x0050, text=»* ERASE ALL UNPROTECTED «, t00=0x0040, t01=0x0176}
0x6580…658a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0041, t01=0x0008}
0x658a…6594 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0041, t01=0x0012}
0x6594…65ac Head {h00=0x0014, h01=0x0050, text=»ERASUP LDK A2,2 «, t00=0x0041, t01=0x001c}
0x65ac…65de Head {h00=0x002e, h01=0x0050, text=» ST A2,WCC,TCABAS SET KEYBOARD RESTORE BIT«, t00=0x0041, t01=0x0034}
0x65de…6614 Head {h00=0x0032, h01=0x0050, text=» SUR A1,A1 INDICATE ATT IN LAST SCREEN POS DK «, t00=0x0041, t01=0x0066}
0x6614…6626 Head {h00=0x000e, h01=0x0050, text=» LDK A3,0 «, t00=0x0041, t01=0x009c}
0x6626…663c Head {h00=0x0012, h01=0x0050, text=» LDKL A4,BVDU «, t00=0x0041, t01=0x00ae}
0x663c…6652 Head {h00=0x0012, h01=0x0050, text=» ADR A4,TCABAS«, t00=0x0041, t01=0x00c4}
0x6652…6686 Head {h00=0x0030, h01=0x0050, text=» CM PCURS,TCABAS FIND FIRST UNPROTECTED POS «, t00=0x0041, t01=0x00da}
0x6686…66b6 Head {h00=0x002c, h01=0x0050, text=» LC A2,1919,A4 GET LAST SCREEN CHARACTER«, t00=0x0041, t01=0x010e}
0x66b6…66ca Head {h00=0x0010, h01=0x0050, text=» ANK A2,/7F «, t00=0x0041, t01=0x013e}
0x66ca…66ec Head {h00=0x001e, h01=0x0050, text=» CWK A2,/20 ATTRIBUTE ??? «, t00=0x0041, t01=0x0152}
0x66ec…6714 Head {h00=0x0024, h01=0x0050, text=» RF(L) ERU:01 YES!! WE GOT IT!! «, t00=0x0041, t01=0x0174}
0x6714…6748 Head {h00=0x0030, h01=0x0050, text=» LDK A1,1 ATTRIBUTE NOT IN LAST SCREEN POS. «, t00=0x0042, t01=0x000c}
0x6748…6764 Head {h00=0x0018, h01=0x0050, text=»ERASU1 CWK A3,LBVDU «, t00=0x0042, t01=0x0040}
0x6764…677a Head {h00=0x0012, h01=0x0050, text=» RF(NL) ERASU2«, t00=0x0042, t01=0x005c}
0x677a…6796 Head {h00=0x0018, h01=0x0050, text=» LCR A2,A4 GET CHAR «, t00=0x0042, t01=0x0072}
0x6796…67aa Head {h00=0x0010, h01=0x0050, text=» ANK A2,/7F «, t00=0x0042, t01=0x008e}
0x67aa…67bc Head {h00=0x000e, h01=0x0050, text=» ADK A3,1 «, t00=0x0042, t01=0x00a2}
0x67bc…67ce Head {h00=0x000e, h01=0x0050, text=» ADK A4,1 «, t00=0x0042, t01=0x00b4}
0x67ce…67e2 Head {h00=0x0010, h01=0x0050, text=» CWK A2,/20 «, t00=0x0042, t01=0x00c6}
0x67e2…6806 Head {h00=0x0020, h01=0x0050, text=» RB(NL) ERASU1 NO ATTRIBUTE «, t00=0x0042, t01=0x00da}
0x6806…681a Head {h00=0x0010, h01=0x0050, text=»ERU:01 EQU *«, t00=0x0042, t01=0x00fe}
0x681a…682e Head {h00=0x0010, h01=0x0050, text=» ANK A2,/10 «, t00=0x0042, t01=0x0112}
0x682e…684e Head {h00=0x001c, h01=0x0050, text=» RB(NZ) ERASU1 PROTECTED«, t00=0x0042, t01=0x0126}
0x684e…687c Head {h00=0x002a, h01=0x0050, text=» ST A3,PCURS,TCABAS SET NEW CURSOR POS«, t00=0x0042, t01=0x0146}
0x687c…688e Head {h00=0x000e, h01=0x0050, text=» LDR A1,A1«, t00=0x0042, t01=0x0174}
0x688e…68c2 Head {h00=0x0030, h01=0x0050, text=» RF(Z) ERASU3 ATTRIBUTE IN LAST SCREEN POS. «, t00=0x0042, t01=0x0186}
0x68c2…68da Head {h00=0x0014, h01=0x0050, text=»ERASU2 LDK A3,0 «, t00=0x0043, t01=0x002a}
0x68da…68f0 Head {h00=0x0012, h01=0x0050, text=» LDKL A4,BVDU «, t00=0x0043, t01=0x0042}
0x68f0…6906 Head {h00=0x0012, h01=0x0050, text=» ADR A4,TCABAS«, t00=0x0043, t01=0x0058}
0x6906…6918 Head {h00=0x000e, h01=0x0050, text=» RF ERASU4«, t00=0x0043, t01=0x006e}
0x6918…692c Head {h00=0x0010, h01=0x0050, text=»ERASU3 EQU *«, t00=0x0043, t01=0x0080}
0x692c…693e Head {h00=0x000e, h01=0x0050, text=» LDR A3,A3«, t00=0x0043, t01=0x0094}
0x693e…6978 Head {h00=0x0036, h01=0x0050, text=» RF(Z) ERASU4 UNPROTECTED ATT. IN LAST SCREEN POS.«, t00=0x0043, t01=0x00a6}
0x6978…69a0 Head {h00=0x0024, h01=0x0050, text=» SUK A3,1 GET BACK TO ATTRIBUTE «, t00=0x0043, t01=0x00e0}
0x69a0…69be Head {h00=0x001a, h01=0x0050, text=» SUK A4,1 - " -«, t00=0x0043, t01=0x0108}
0x69be…69d2 Head {h00=0x0010, h01=0x0050, text=»ERASU4 EQU *«, t00=0x0043, t01=0x0126}
0x69d2…69f8 Head {h00=0x0022, h01=0x0050, text=» LDKL A1,/0F00 (LDK A1,0) DK3 «, t00=0x0043, t01=0x013a}
0x69f8…6a1c Head {h00=0x0020, h01=0x0050, text=» LDK A6,NULL+/80 ERASE CHAR «, t00=0x0043, t01=0x0160}
0x6a1c…6a2e Head {h00=0x000e, h01=0x0050, text=» RF ERAS35«, t00=0x0043, t01=0x0184}
0x6a2e…6a38 Head {h00=0x0006, h01=0x0050, text=» «, t00=0x0044, t01=0x0008}
0x6a38…6a42 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0044, t01=0x0012}
0x6a42…6a4c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0044, t01=0x001c}
0x6a4c…6a7e Head {h00=0x002e, h01=0x0050, text=»* ERASE UNPROTECTED TO ADDRESS GIVEN IN A1«, t00=0x0044, t01=0x0026}
0x6a7e…6a88 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0044, t01=0x0058}
0x6a88…6a92 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0044, t01=0x0062}
0x6a92…6ac0 Head {h00=0x002a, h01=0x0050, text=»ERASUA LDK A6,NULL+/80 ERASE CHARACTER«, t00=0x0044, t01=0x006c}
0x6ac0…6ae8 Head {h00=0x0024, h01=0x0050, text=» ******************* 78-09-11 «, t00=0x0044, t01=0x009a}
0x6ae8…6b0e Head {h00=0x0022, h01=0x0050, text=» CWK A3,LBVDU WRAP AROUND ??? «, t00=0x0044, t01=0x00c2}
0x6b0e…6b28 Head {h00=0x0016, h01=0x0050, text=» RF(L) ERAS:1 NO!!«, t00=0x0044, t01=0x00e8}
0x6b28…6b46 Head {h00=0x001a, h01=0x0050, text=» LDK A3,0 BUFFERINDEX «, t00=0x0044, t01=0x0102}
0x6b46…6b5c Head {h00=0x0012, h01=0x0050, text=» LDKL A4,BVDU «, t00=0x0044, t01=0x0120}
0x6b5c…6b8c Head {h00=0x002c, h01=0x0050, text=» ADR A4,TCABAS ABSOLUTE BUFFER ADDRESS «, t00=0x0044, t01=0x0136}
0x6b8c…6b94 Head {h00=0x0004, h01=0x0050, t00=0x0044, t01=0x0166}
0x6b94…6bd0 Head {h00=0x0038, h01=0x0050, text=»ERAS:1 LDR A3,A3 START IN FIRST SCREEN POSITION ??? «, t00=0x0044, t01=0x016e}
0x6bd0…6bec Head {h00=0x0018, h01=0x0050, text=» RF(NZ) ERAS35 NO!! «, t00=0x0045, t01=0x001a}
0x6bec…6c18 Head {h00=0x0028, h01=0x0050, text=» LC A2,1919,A4 LAST BUFFER CHARACTER«, t00=0x0045, t01=0x0036}
0x6c18…6c2c Head {h00=0x0010, h01=0x0050, text=» ANK A2,/7F «, t00=0x0045, t01=0x0062}
0x6c2c…6c58 Head {h00=0x0028, h01=0x0050, text=» CWK A2,/20 ATTRIBUTE CHARACTER ??? «, t00=0x0045, t01=0x0076}
0x6c58…6c74 Head {h00=0x0018, h01=0x0050, text=» RF(NL) ERAS35 NO!!!«, t00=0x0045, t01=0x00a2}
0x6c74…6c88 Head {h00=0x0010, h01=0x0050, text=» ANK A2,/10 «, t00=0x0045, t01=0x00be}
0x6c88…6cae Head {h00=0x0022, h01=0x0050, text=» RF(NZ) ERAS70 PROTECTED FIELD«, t00=0x0045, t01=0x00d2}
0x6cae…6cca Head {h00=0x0018, h01=0x0050, text=»* LC A2,1919,A4 DK3«, t00=0x0045, t01=0x00f8}
0x6cca…6ce4 Head {h00=0x0016, h01=0x0050, text=»* ANK A2,/FE DK3 «, t00=0x0045, t01=0x0114}
0x6ce4…6d0e Head {h00=0x0026, h01=0x0050, text=»* SC A2,1919,A4 RESET MDT BIT DK3 «, t00=0x0045, t01=0x012e}
0x6d0e…6d20 Head {h00=0x000e, h01=0x0050, text=» RF ERAS35«, t00=0x0045, t01=0x0158}
0x6d20…6d48 Head {h00=0x0024, h01=0x0050, text=» ******************** 78-09-11«, t00=0x0045, t01=0x016a}
0x6d48…6d64 (70, 0, 400) Head {h00=0x0018, h01=0x0050, text=»ERAS30 CWK A3,LBVDU «, t00=0x0046, t01=0x0004}
0x6d64…6d8c Head {h00=0x0024, h01=0x0050, text=» RF(L) ERAS33 NOT END OF SCREEN «, t00=0x0046, t01=0x0020}
0x6d8c…6d9e Head {h00=0x000e, h01=0x0050, text=» LDK A3,0 «, t00=0x0046, t01=0x0048}
0x6d9e…6dc0 Head {h00=0x001e, h01=0x0050, text=» LDKL A4,BVDU WRAP AROUND «, t00=0x0046, t01=0x005a}
0x6dc0…6dd6 Head {h00=0x0012, h01=0x0050, text=» ADR A4,TCABAS«, t00=0x0046, t01=0x007c}
0x6dd6…6dea Head {h00=0x0010, h01=0x0050, text=»ERAS33 EQU *«, t00=0x0046, t01=0x0092}
0x6dea…6e10 Head {h00=0x0022, h01=0x0050, text=» CWK A1,/0F00 EUA COMMAND? DK3«, t00=0x0046, t01=0x00a6}
0x6e10…6e38 Head {h00=0x0024, h01=0x0050, text=» RF(L) ERAS34 NO, EUA ORDER DK3 «, t00=0x0046, t01=0x00cc}
0x6e38…6e64 Head {h00=0x0028, h01=0x0050, text=» CWK A3,0 FINISHED EUA COMMAND? DK3 «, t00=0x0046, t01=0x00f4}
0x6e64…6e8c Head {h00=0x0024, h01=0x0050, text=» RF(NZ) ERAS35 NO, CONTINUE DK3 «, t00=0x0046, t01=0x0120}
0x6e8c…6eae Head {h00=0x001e, h01=0x0050, text=» LDK A1,0 YES FINISHED DK3«, t00=0x0046, t01=0x0148}
0x6eae…6ec6 Head {h00=0x0014, h01=0x0050, text=» RB ERAEND DK3 «, t00=0x0046, t01=0x016a}
0x6ec6…6ee0 Head {h00=0x0016, h01=0x0050, text=»ERAS34 EQU * DK3 «, t00=0x0046, t01=0x0182}
0x6ee0…6ef2 Head {h00=0x000e, h01=0x0050, text=» CWR A3,A1«, t00=0x0047, t01=0x000c}
0x6ef2…6f1e Head {h00=0x0028, h01=0x0050, text=» RB(E) ERAEND ALL UNPROTECTED ERASED«, t00=0x0047, t01=0x001e}
0x6f1e…6f50 Head {h00=0x002e, h01=0x0050, text=»ERAS35 LCR A2,A4 GET CHAR FROM VDU BUFFER «, t00=0x0047, t01=0x004a}
0x6f50…6f64 Head {h00=0x0010, h01=0x0050, text=» ANK A2,/7F «, t00=0x0047, t01=0x007c}
0x6f64…6f78 Head {h00=0x0010, h01=0x0050, text=» CWK A2,/20 «, t00=0x0047, t01=0x0090}
0x6f78…6f9c Head {h00=0x0020, h01=0x0050, text=» RF(L) ERAS50 ATTRIBUTE CHAR«, t00=0x0047, t01=0x00a4}
0x6f9c…6fb0 Head {h00=0x0010, h01=0x0050, text=» XRK A2,NULL«, t00=0x0047, t01=0x00c8}
0x6fb0…6fd2 Head {h00=0x001e, h01=0x0050, text=» RF(Z) ERAS40 ALREADY NULL«, t00=0x0047, t01=0x00dc}
0x6fd2…6ff8 Head {h00=0x0022, h01=0x0050, text=» SCR A6,A4 STORE MODIFIED NULL«, t00=0x0047, t01=0x00fe}
0x6ff8…7010 Head {h00=0x0014, h01=0x0050, text=»ERAS40 ADK A3,1 «, t00=0x0047, t01=0x0124}
0x7010…7022 Head {h00=0x000e, h01=0x0050, text=» ADK A4,1 «, t00=0x0047, t01=0x013c}
0x7022…7034 Head {h00=0x000e, h01=0x0050, text=» RB ERAS30«, t00=0x0047, t01=0x014e}
0x7034…704c Head {h00=0x0014, h01=0x0050, text=»ERAS50 ADK A3,1 «, t00=0x0047, t01=0x0160}
0x704c…705e Head {h00=0x000e, h01=0x0050, text=» ADK A4,1 «, t00=0x0047, t01=0x0178}
0x705e…7072 Head {h00=0x0010, h01=0x0050, text=» ANK A2,/10 «, t00=0x0047, t01=0x018a}
0x7072…7098 Head {h00=0x0022, h01=0x0050, text=» RF(NZ) ERAS60 PROTECTED FIELD«, t00=0x0048, t01=0x000e}
0x7098…70be Head {h00=0x0022, h01=0x0050, text=» CWK A1,/0F00 EUA COMMAND? DK3«, t00=0x0048, t01=0x0034}
0x70be…70da Head {h00=0x0018, h01=0x0050, text=» RB(L) ERAS30 NO DK3«, t00=0x0048, t01=0x005a}
0x70da…7104 Head {h00=0x0026, h01=0x0050, text=»* EUA COMMAND: RESET MDT BIT DK3 «, t00=0x0048, t01=0x0076}
0x7104…7118 Head {h00=0x0010, h01=0x0050, text=» LC A2,-1,A4«, t00=0x0048, t01=0x00a0}
0x7118…713a Head {h00=0x001e, h01=0x0050, text=» ANK A2,/FE RESET MDT BIT «, t00=0x0048, t01=0x00b4}
0x713a…714e Head {h00=0x0010, h01=0x0050, text=» SC A2,-1,A4«, t00=0x0048, t01=0x00d6}
0x714e…7160 Head {h00=0x000e, h01=0x0050, text=» RB ERAS30«, t00=0x0048, t01=0x00ea}
0x7160…717c Head {h00=0x0018, h01=0x0050, text=»ERAS60 CWK A3,LBVDU «, t00=0x0048, t01=0x00fc}
0x717c…7192 Head {h00=0x0012, h01=0x0050, text=» RF(L) ERAS65 «, t00=0x0048, t01=0x0118}
0x7192…71a4 Head {h00=0x000e, h01=0x0050, text=» LDK A3,0 «, t00=0x0048, t01=0x012e}
0x71a4…71c6 Head {h00=0x001e, h01=0x0050, text=» LDKL A4,BVDU WRAP AROUND «, t00=0x0048, t01=0x0140}
0x71c6…71dc Head {h00=0x0012, h01=0x0050, text=» ADR A4,TCABAS«, t00=0x0048, t01=0x0162}
0x71dc…71f0 Head {h00=0x0010, h01=0x0050, text=»ERAS65 EQU *«, t00=0x0048, t01=0x0178}
0x71f0…7216 Head {h00=0x0022, h01=0x0050, text=» CWK A1,/0F00 EUA COMMAND? DK3«, t00=0x0048, t01=0x018c}
0x7216…723e Head {h00=0x0024, h01=0x0050, text=» RF(L) ERAS67 NO, EUA ORDER DK3 «, t00=0x0049, t01=0x0022}
0x723e…726a Head {h00=0x0028, h01=0x0050, text=» CWK A3,0 FINISHED EUA COMMAND? DK3 «, t00=0x0049, t01=0x004a}
0x726a…7290 Head {h00=0x0022, h01=0x0050, text=» RF(NZ) ERAS70 NO,CONTINUE DK3«, t00=0x0049, t01=0x0076}
0x7290…72b4 Head {h00=0x0020, h01=0x0050, text=» LDK A1,0 YYES, FINSHED DK3 «, t00=0x0049, t01=0x009c}
0x72b4…72cc Head {h00=0x0014, h01=0x0050, text=» RB ERAEND DK3 «, t00=0x0049, t01=0x00c0}
0x72cc…72e6 Head {h00=0x0016, h01=0x0050, text=»ERAS67 EQU * DK3 «, t00=0x0049, t01=0x00d8}
0x72e6…72f8 Head {h00=0x000e, h01=0x0050, text=» CWR A3,A1«, t00=0x0049, t01=0x00f2}
0x72f8…7324 Head {h00=0x0028, h01=0x0050, text=» RB(E) ERAEND ALL UNPROTECTED ERASED«, t00=0x0049, t01=0x0104}
0x7324…7338 Head {h00=0x0010, h01=0x0050, text=»ERAS70 EQU *«, t00=0x0049, t01=0x0130}
0x7338…734a Head {h00=0x000e, h01=0x0050, text=» LCR A2,A4«, t00=0x0049, t01=0x0144}
0x734a…735e Head {h00=0x0010, h01=0x0050, text=» ANK A2,/7F «, t00=0x0049, t01=0x0156}
0x735e…7372 Head {h00=0x0010, h01=0x0050, text=» CWK A2,/20 «, t00=0x0049, t01=0x016a}
0x7372…7398 Head {h00=0x0022, h01=0x0050, text=» RB(L) ERAS50 ATTRIBUTE FOUND «, t00=0x0049, t01=0x017e}
0x7398…73aa Head {h00=0x000e, h01=0x0050, text=» ADK A3,1 «, t00=0x004a, t01=0x0014}
0x73aa…73bc Head {h00=0x000e, h01=0x0050, text=» ADK A4,1 «, t00=0x004a, t01=0x0026}
0x73bc…73ce Head {h00=0x000e, h01=0x0050, text=» RB ERAS60«, t00=0x004a, t01=0x0038}
0x73ce…73d8 Head {h00=0x0006, h01=0x0050, text=» «, t00=0x004a, t01=0x004a}
0x73d8…73e2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004a, t01=0x0054}
0x73e2…73ec Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004a, t01=0x005e}
0x73ec…7410 Head {h00=0x0020, h01=0x0050, text=»* TRANSMIT PROGRAM ATTENTION«, t00=0x004a, t01=0x0068}
0x7410…741a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004a, t01=0x008c}
0x741a…742a Head {h00=0x000c, h01=0x0050, text=»* A2=AID«, t00=0x004a, t01=0x0096}
0x742a…7434 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004a, t01=0x00a6}
0x7434…743e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004a, t01=0x00b0}
0x743e…746c Head {h00=0x002a, h01=0x0050, text=»TRPA CF A14,GTWBUF GET TRANSMIT BUFFER«, t00=0x004a, t01=0x00ba}
0x746c…7490 Head {h00=0x0020, h01=0x0050, text=»TRPA10 CF A14,PAID STORE AID«, t00=0x004a, t01=0x00e8}
0x7490…74a4 Head {h00=0x0010, h01=0x0050, text=»TRANS EQU * «, t00=0x004a, t01=0x010c}
0x74a4…74c8 Head {h00=0x0020, h01=0x0050, text=» CF A14,DCWRTE WRITE MESSAGE«, t00=0x004a, t01=0x0120}
0x74c8…74dc Head {h00=0x0010, h01=0x0050, text=»TR050 EQU * «, t00=0x004a, t01=0x0144}
0x74dc…7502 Head {h00=0x0022, h01=0x0050, text=» RTN A14 TRANSMISSION TROUBLE «, t00=0x004a, t01=0x0158}
0x7502…7518 Head {h00=0x0012, h01=0x0050, text=»TRRTN RTN A14 «, t00=0x004a, t01=0x017e}
0x7518…7522 (75, 0, 400) Head {h00=0x0006, h01=0x0050, text=» «, t00=0x004b, t01=0x0004}
0x7522…752c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004b, t01=0x000e}
0x752c…7536 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004b, t01=0x0018}
0x7536…755a Head {h00=0x0020, h01=0x0050, text=»* TRANSMIT PROGRAM FUNCTION «, t00=0x004b, t01=0x0022}
0x755a…7564 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004b, t01=0x0046}
0x7564…7574 Head {h00=0x000c, h01=0x0050, text=»* A2=AID«, t00=0x004b, t01=0x0050}
0x7574…757e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004b, t01=0x0060}
0x757e…7588 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004b, t01=0x006a}
0x7588…75b6 Head {h00=0x002a, h01=0x0050, text=»TRPF CF A14,GTWBUF GET TRANSMIT BUFFER«, t00=0x004b, t01=0x0074}
0x75b6…75da Head {h00=0x0020, h01=0x0050, text=»TRPF10 CF A14,PAID STORE AID«, t00=0x004b, t01=0x00a2}
0x75da…7604 Head {h00=0x0026, h01=0x0050, text=» CF A14,CURSA STORE CURSOR ADDRESS«, t00=0x004b, t01=0x00c6}
0x7604…7628 Head {h00=0x0020, h01=0x0050, text=» CF A14,RDMOD READ MODIFIED «, t00=0x004b, t01=0x00f0}
0x7628…764e Head {h00=0x0022, h01=0x0050, text=» RB TRANS SEND MODIFIED FIELDS«, t00=0x004b, t01=0x0114}
0x764e…7658 Head {h00=0x0006, h01=0x0050, text=» «, t00=0x004b, t01=0x013a}
0x7658…7662 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004b, t01=0x0144}
0x7662…766c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004b, t01=0x014e}
0x766c…7694 Head {h00=0x0024, h01=0x0050, text=»* DISPLAY MODIFIED FIELDS ON VDU«, t00=0x004b, t01=0x0158}
0x7694…769e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004b, t01=0x0180}
0x769e…76a8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004b, t01=0x018a}
0x76a8…76c2 (76, 0, 398) Head {h00=0x0016, h01=0x0050, text=»* A3=VDU POSITION «, t00=0x004c, t01=0x0004}
0x76c2…76e0 Head {h00=0x001a, h01=0x0050, text=»* A4=VDU IMAGE POINTER«, t00=0x004c, t01=0x001e}
0x76e0…7700 Head {h00=0x001c, h01=0x0050, text=»* A5=MODIFIED INDICATOR «, t00=0x004c, t01=0x003c}
0x7700…7724 Head {h00=0x0020, h01=0x0050, text=»* A7=VDU LINE OUTPUT POINTER«, t00=0x004c, t01=0x005c}
0x7724…7738 Head {h00=0x0010, h01=0x0050, text=»* A8=VDU ECB«, t00=0x004c, t01=0x0080}
0x7738…775c Head {h00=0x0020, h01=0x0050, text=»* A9=VDU OUTPUT CHAR COUNTER«, t00=0x004c, t01=0x0094}
0x775c…7766 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004c, t01=0x00b8}
0x7766…7770 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004c, t01=0x00c2}
0x7770…778c Head {h00=0x0018, h01=0x0050, text=»DISPL LDKL A8,ECBVDU«, t00=0x004c, t01=0x00cc}
0x778c…77a2 Head {h00=0x0012, h01=0x0050, text=» ADR A8,CREBAS«, t00=0x004c, t01=0x00e8}
0x77a2…77d0 Head {h00=0x002a, h01=0x0050, text=» LDKL A1,/101 START FROM LINE 1 POS 1 «, t00=0x004c, t01=0x00fe}
0x77d0…77e8 Head {h00=0x0014, h01=0x0050, text=» ST A1,ECBCW,A8 «, t00=0x004c, t01=0x012c}
0x77e8…7824 Head {h00=0x0038, h01=0x0050, text=» SUR A10,A10 RESET COUNT FOR INTENSIFIED DISPLAYING «, t00=0x004c, t01=0x0144}
0x7824…7836 Head {h00=0x000e, h01=0x0050, text=» LDK A3,0 «, t00=0x004c, t01=0x0180}
0x7836…784c (77, 0, 400) Head {h00=0x0012, h01=0x0050, text=» LDKL A4,BVDU «, t00=0x004d, t01=0x0004}
0x784c…7862 Head {h00=0x0012, h01=0x0050, text=» ADR A4,TCABAS«, t00=0x004d, t01=0x001a}
0x7862…7892 Head {h00=0x002c, h01=0x0050, text=» CF A14,SPACES PUT SPACES IN LINE BUFFER«, t00=0x004d, t01=0x0030}
0x7892…78cc Head {h00=0x0036, h01=0x0050, text=» LC A2,1919,A4 CHECK IF ATTRIBUTE IN LAST POSITION«, t00=0x004d, t01=0x0060}
0x78cc…78e0 Head {h00=0x0010, h01=0x0050, text=» ANK A2,/7F «, t00=0x004d, t01=0x009a}
0x78e0…7902 Head {h00=0x001e, h01=0x0050, text=» CWK A2,/1F ATTRIBUTE ??? «, t00=0x004d, t01=0x00ae}
0x7902…791e Head {h00=0x0018, h01=0x0050, text=» RF(G) DIS100 NO!!! «, t00=0x004d, t01=0x00d0}
0x791e…7926 Head {h00=0x0004, h01=0x0050, t00=0x004d, t01=0x00ec}
0x7926…7938 Head {h00=0x000e, h01=0x0050, text=» ANK A2,6 «, t00=0x004d, t01=0x00f4}
0x7938…794a Head {h00=0x000e, h01=0x0050, text=» XRK A2,6 «, t00=0x004d, t01=0x0106}
0x794a…798c Head {h00=0x003e, h01=0x0050, text=» ST A2,INTATT,TCABAS CHECK DISPLAY/NONDISPLAY INFORMATION «, t00=0x004d, t01=0x0118}
0x798c…79ae Head {h00=0x001e, h01=0x0050, text=» RF(Z) DIS210 NON DISPLAY «, t00=0x004d, t01=0x015a}
0x79ae…79e6 Head {h00=0x0034, h01=0x0050, text=» CF A14,INTCHK INSERT HIGH/LOW INTENS. IN BUFFER«, t00=0x004d, t01=0x017c}
0x79e6…79fa Head {h00=0x0010, h01=0x0050, text=»DIS100 EQU *«, t00=0x004e, t01=0x0024}
0x79fa…7a10 Head {h00=0x0012, h01=0x0050, text=» CWK A9,LLINE «, t00=0x004e, t01=0x0038}
0x7a10…7a36 Head {h00=0x0022, h01=0x0050, text=» RF(L) DIS110 NOT END OF LINE «, t00=0x004e, t01=0x004e}
0x7a36…7a5e Head {h00=0x0024, h01=0x0050, text=» CF A14,DISLIN DISPLAY THIS LINE«, t00=0x004e, t01=0x0074}
0x7a5e…7a90 Head {h00=0x002e, h01=0x0050, text=» CF A14,INTCHK CHECK IF LOW/HIGH INTENSITY«, t00=0x004e, t01=0x009c}
0x7a90…7aa4 Head {h00=0x0010, h01=0x0050, text=»DIS110 EQU *«, t00=0x004e, t01=0x00ce}
0x7aa4…7aba Head {h00=0x0012, h01=0x0050, text=» CWK A3,LBVDU «, t00=0x004e, t01=0x00e2}
0x7aba…7adc Head {h00=0x001e, h01=0x0050, text=» RF(NL) DIS900 ALL SCANNED«, t00=0x004e, t01=0x00f8}
0x7adc…7af8 Head {h00=0x0018, h01=0x0050, text=» LCR A2,A4 GET CHAR «, t00=0x004e, t01=0x011a}
0x7af8…7b00 Head {h00=0x0004, h01=0x0050, t00=0x004e, t01=0x0136}
0x7b00…7b26 Head {h00=0x0022, h01=0x0050, text=» CF A14,SET:M SET MODIFIED BIT«, t00=0x004e, t01=0x013e}
0x7b26…7b2e Head {h00=0x0004, h01=0x0050, t00=0x004e, t01=0x0164}
0x7b2e…7b42 Head {h00=0x0010, h01=0x0050, text=»DIS115 EQU *«, t00=0x004e, t01=0x016c}
0x7b42…7b68 Head {h00=0x0022, h01=0x0050, text=» ANK A2,/7F RESET DISPLAY BIT «, t00=0x004e, t01=0x0180}
0x7b68…7b7a Head {h00=0x000e, h01=0x0050, text=» SCR A2,A4«, t00=0x004f, t01=0x0016}
0x7b7a…7b8c Head {h00=0x000e, h01=0x0050, text=» ADK A3,1 «, t00=0x004f, t01=0x0028}
0x7b8c…7b9e Head {h00=0x000e, h01=0x0050, text=» ADK A4,1 «, t00=0x004f, t01=0x003a}
0x7b9e…7bb0 Head {h00=0x000e, h01=0x0050, text=» ADK A7,1 «, t00=0x004f, t01=0x004c}
0x7bb0…7bc2 Head {h00=0x000e, h01=0x0050, text=» ADKL A9,1«, t00=0x004f, t01=0x005e}
0x7bc2…7bd6 Head {h00=0x0010, h01=0x0050, text=» CWK A2,/20 «, t00=0x004f, t01=0x0070}
0x7bd6…7bfa Head {h00=0x0020, h01=0x0050, text=» RF(L) DIS200 ATTRIBUTE CHAR«, t00=0x004f, t01=0x0084}
0x7bfa…7c0e Head {h00=0x0010, h01=0x0050, text=» CWK A2,NULL«, t00=0x004f, t01=0x00a8}
0x7c0e…7c40 Head {h00=0x002e, h01=0x0050, text=» RB(E) DIS100 NULL EQUALS SPACE AT DISPLAY«, t00=0x004f, t01=0x00bc}
0x7c40…7c54 Head {h00=0x0010, h01=0x0050, text=» CWK A2,/7D «, t00=0x004f, t01=0x00ee}
0x7c54…7c6a Head {h00=0x0012, h01=0x0050, text=» RF(NE) DIS120«, t00=0x004f, t01=0x0102}
0x7c6a…7c7e Head {h00=0x0010, h01=0x0050, text=» LDK A2,/39 «, t00=0x004f, t01=0x0118}
0x7c7e…7c98 Head {h00=0x0016, h01=0x0050, text=»DIS120 CWK A2,/7E «, t00=0x004f, t01=0x012c}
0x7c98…7cae Head {h00=0x0012, h01=0x0050, text=» RF(NE) DIS121«, t00=0x004f, t01=0x0146}
0x7cae…7cc2 Head {h00=0x0010, h01=0x0050, text=» LDK A2,/35 «, t00=0x004f, t01=0x015c}
0x7cc2…7cdc Head {h00=0x0016, h01=0x0050, text=»DIS121 CWK A2,/7C «, t00=0x004f, t01=0x0170}
0x7cdc…7cf2 Head {h00=0x0012, h01=0x0050, text=» RF(NE) DIS122«, t00=0x004f, t01=0x018a}
0x7cf2…7d06 Head {h00=0x0010, h01=0x0050, text=» LDK A2,/3C «, t00=0x0050, t01=0x0010}
0x7d06…7d1a Head {h00=0x0010, h01=0x0050, text=»DIS122 EQU *«, t00=0x0050, t01=0x0024}
0x7d1a…7d36 Head {h00=0x0018, h01=0x0050, text=» CF A14,RFMDUP DK4 «, t00=0x0050, t01=0x0038}
0x7d36…7d6e Head {h00=0x0034, h01=0x0050, text=» SC A2,-1,A7 STORE CHAR IN DISPLAY OUTPUT BUFFER«, t00=0x0050, t01=0x0054}
0x7d6e…7d80 Head {h00=0x000e, h01=0x0050, text=» RB DIS100«, t00=0x0050, t01=0x008c}
0x7d80…7d98 Head {h00=0x0014, h01=0x0050, text=»DIS200 ANK A2,6 «, t00=0x0050, t01=0x009e}
0x7d98…7dbe Head {h00=0x0022, h01=0x0050, text=» XRK A2,6 CHECK IF NONDISPLAY «, t00=0x0050, t01=0x00b6}
0x7dbe…7df4 Head {h00=0x0032, h01=0x0050, text=» ST A2,INTATT,TCABAS SAVE ATTRIBUTE CHARACTER «, t00=0x0050, t01=0x00dc}
0x7df4…7e16 Head {h00=0x001e, h01=0x0050, text=» RF(Z) DIS210 NON DISPLAY «, t00=0x0050, t01=0x0112}
0x7e16…7e28 Head {h00=0x000e, h01=0x0050, text=» ANK A2,4 «, t00=0x0050, t01=0x0134}
0x7e28…7e4c Head {h00=0x0020, h01=0x0050, text=» RF(Z) DIS205 HIGH INTENSITY«, t00=0x0050, t01=0x0146}
0x7e4c…7e6e Head {h00=0x001e, h01=0x0050, text=» LDK A2,/1E LOW INTENSITY «, t00=0x0050, t01=0x016a}
0x7e6e…7e80 Head {h00=0x000e, h01=0x0050, text=» RF DIS206«, t00=0x0050, t01=0x018c}
0x7e80…7e94 Head {h00=0x0010, h01=0x0050, text=»DIS205 EQU *«, t00=0x0051, t01=0x000e}
0x7e94…7eac Head {h00=0x0014, h01=0x0050, text=» LDK A2,/1F HIGH«, t00=0x0051, t01=0x0022}
0x7eac…7ec0 Head {h00=0x0010, h01=0x0050, text=»DIS206 EQU *«, t00=0x0051, t01=0x003a}
0x7ec0…7eee Head {h00=0x002a, h01=0x0050, text=» SC A2,-1,A7 STORE INTENSITY CHARACTER«, t00=0x0051, t01=0x004e}
0x7eee…7f14 Head {h00=0x0022, h01=0x0050, text=» ADKL A10,1 INCREMENT COUNTER «, t00=0x0051, t01=0x007c}
0x7f14…7f26 Head {h00=0x000e, h01=0x0050, text=» ADK A7,1 «, t00=0x0051, t01=0x00a2}
0x7f26…7f38 Head {h00=0x000e, h01=0x0050, text=» RB DIS100«, t00=0x0051, t01=0x00b4}
0x7f38…7f4c Head {h00=0x0010, h01=0x0050, text=»DIS210 EQU *«, t00=0x0051, t01=0x00c6}
0x7f4c…7f62 Head {h00=0x0012, h01=0x0050, text=» CWK A9,LLINE «, t00=0x0051, t01=0x00da}
0x7f62…7f78 Head {h00=0x0012, h01=0x0050, text=» RF(L) DIS220 «, t00=0x0051, t01=0x00f0}
0x7f78…7fa0 Head {h00=0x0024, h01=0x0050, text=» CF A14,DISLIN DISPLAY THIS LINE«, t00=0x0051, t01=0x0106}
0x7fa0…7fb4 Head {h00=0x0010, h01=0x0050, text=»DIS220 EQU *«, t00=0x0051, t01=0x012e}
0x7fb4…7fca Head {h00=0x0012, h01=0x0050, text=» CWK A3,LBVDU «, t00=0x0051, t01=0x0142}
0x7fca…7fee Head {h00=0x0020, h01=0x0050, text=» RF(NL) DIS900 ALL DISPLAYED«, t00=0x0051, t01=0x0158}
0x7fee…8000 Head {h00=0x000e, h01=0x0050, text=» LCR A2,A4«, t00=0x0051, t01=0x017c}
0x8000…8008 Head {h00=0x0004, h01=0x0050, t00=0x0051, t01=0x018e}
0x8008…802e Head {h00=0x0022, h01=0x0050, text=» CF A14,SET:M SET MODIFIED BIT«, t00=0x0052, t01=0x0008}
0x802e…8036 Head {h00=0x0004, h01=0x0050, t00=0x0052, t01=0x002e}
0x8036…804a Head {h00=0x0010, h01=0x0050, text=»DIS225 EQU *«, t00=0x0052, t01=0x0036}
0x804a…8070 Head {h00=0x0022, h01=0x0050, text=» ANK A2,/7F RESET DISPLAY BIT «, t00=0x0052, t01=0x004a}
0x8070…8082 Head {h00=0x000e, h01=0x0050, text=» SCR A2,A4«, t00=0x0052, t01=0x0070}
0x8082…8094 Head {h00=0x000e, h01=0x0050, text=» ADK A3,1 «, t00=0x0052, t01=0x0082}
0x8094…80a6 Head {h00=0x000e, h01=0x0050, text=» ADK A4,1 «, t00=0x0052, t01=0x0094}
0x80a6…80b8 Head {h00=0x000e, h01=0x0050, text=» ADK A7,1 «, t00=0x0052, t01=0x00a6}
0x80b8…80ca Head {h00=0x000e, h01=0x0050, text=» ADKL A9,1«, t00=0x0052, t01=0x00b8}
0x80ca…80de Head {h00=0x0010, h01=0x0050, text=» CWK A2,/20 «, t00=0x0052, t01=0x00ca}
0x80de…8104 Head {h00=0x0022, h01=0x0050, text=» RB(L) DIS200 ATTRIBUTE FOUND «, t00=0x0052, t01=0x00de}
0x8104…8116 Head {h00=0x000e, h01=0x0050, text=» RB DIS210«, t00=0x0052, t01=0x0104}
0x8116…8120 Head {h00=0x0006, h01=0x0050, text=» «, t00=0x0052, t01=0x0116}
0x8120…812a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0052, t01=0x0120}
0x812a…8134 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0052, t01=0x012a}
0x8134…8152 Head {h00=0x001a, h01=0x0050, text=»* POSITION THE CURSOR «, t00=0x0052, t01=0x0134}
0x8152…815c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0052, t01=0x0152}
0x815c…8166 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0052, t01=0x015c}
0x8166…817a Head {h00=0x0010, h01=0x0050, text=»SETCUR EQU *«, t00=0x0052, t01=0x0166}
0x817a…819c Head {h00=0x001e, h01=0x0050, text=»DIS900 LDK A1,2 REQ LENGTH«, t00=0x0052, t01=0x017a}
0x819c…81ba Head {h00=0x001a, h01=0x0050, text=»DIS905 ST A1,ECBRL,A8 «, t00=0x0053, t01=0x000c}
0x81ba…81e4 Head {h00=0x0026, h01=0x0050, text=» LD A1,PCURS,TCABAS GET CURSOR POS«, t00=0x0053, t01=0x002a}
0x81e4…820e Head {h00=0x0026, h01=0x0050, text=» LDKL A2,/101 START ON LIN 1 POS 1«, t00=0x0053, t01=0x0054}
0x820e…8226 Head {h00=0x0014, h01=0x0050, text=» ST A2,ECBCW,A8 «, t00=0x0053, t01=0x007e}
0x8226…823c Head {h00=0x0012, h01=0x0050, text=» LDKL A2,/100 «, t00=0x0053, t01=0x0096}
0x823c…8258 Head {h00=0x0018, h01=0x0050, text=»DIS910 CWK A1,LLINE «, t00=0x0053, t01=0x00ac}
0x8258…826e Head {h00=0x0012, h01=0x0050, text=» RF(L) DIS920 «, t00=0x0053, t01=0x00c8}
0x826e…8286 Head {h00=0x0014, h01=0x0050, text=» ADS A2,ECBCW,A8«, t00=0x0053, t01=0x00de}
0x8286…829c Head {h00=0x0012, h01=0x0050, text=» SUKL A1,LLINE«, t00=0x0053, t01=0x00f6}
0x829c…82ae Head {h00=0x000e, h01=0x0050, text=» RB DIS910«, t00=0x0053, t01=0x010c}
0x82ae…82cc Head {h00=0x001a, h01=0x0050, text=»DIS920 ADS A1,ECBCW,A8«, t00=0x0053, t01=0x011e}
0x82cc…82f4 Head {h00=0x0024, h01=0x0050, text=» LDK A7,/8B SET CURSOR AND WRITE«, t00=0x0053, t01=0x013c}
0x82f4…8300 Head {h00=0x0008, h01=0x0050, text=» LKM«, t00=0x0053, t01=0x0164}
0x8300…8310 Head {h00=0x000c, h01=0x0050, text=» DATA 1 «, t00=0x0053, t01=0x0170}
0x8310…8344 Head {h00=0x0030, h01=0x0050, text=» CM INTATT,TCABAS CLEAR INTENSITY ATTRIBUTE «, t00=0x0053, t01=0x0180}
0x8344…8354 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0054, t01=0x0024}
0x8354…835e Head {h00=0x0006, h01=0x0050, text=» «, t00=0x0054, t01=0x0034}
0x835e…8368 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0054, t01=0x003e}
0x8368…8372 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0054, t01=0x0048}
0x8372…83a6 Head {h00=0x0030, h01=0x0050, text=»* WRITE ONE CHAR FROM A2 IN CURSOR POSITION «, t00=0x0054, t01=0x0052}
0x83a6…83b0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0054, t01=0x0086}
0x83b0…83ba Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0054, t01=0x0090}
0x83ba…83d6 Head {h00=0x0018, h01=0x0050, text=»WCHAR LD A1,ECBBA,A8«, t00=0x0054, t01=0x009a}
0x83d6…83ec Head {h00=0x0012, h01=0x0050, text=» CF A14,RFMDUP«, t00=0x0054, t01=0x00b6}
0x83ec…8420 Head {h00=0x0030, h01=0x0050, text=» SC A2,3,A1 STORE CHAR IN VDU OUTPUT BUFFER «, t00=0x0054, t01=0x00cc}
0x8420…8432 Head {h00=0x000e, h01=0x0050, text=» LDK A1,4 «, t00=0x0054, t01=0x0100}
0x8432…8454 Head {h00=0x001e, h01=0x0050, text=» RB DIS905 REQ LENGTH = 3 «, t00=0x0054, t01=0x0112}
0x8454…845e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0054, t01=0x0134}
0x845e…84ac Head {h00=0x004a, h01=0x0050, text=»********************************************************************* «, t00=0x0054, t01=0x013e}
0x84ac…84b6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0054, t01=0x018c}
0x84b6…84f2 Head {h00=0x0038, h01=0x0050, text=»* REPLACE FM & DUP WITH '*' RESP. ';', IF PRESENT«, t00=0x0055, t01=0x0008}
0x84f2…8510 Head {h00=0x001a, h01=0x0050, text=»* CHARACTER IN A2«, t00=0x0055, t01=0x0044}
0x8510…851a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0055, t01=0x0062}
0x851a…8568 Head {h00=0x004a, h01=0x0050, text=»********************************************************************* «, t00=0x0055, t01=0x006c}
0x8568…8572 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0055, t01=0x00ba}
0x8572…8586 Head {h00=0x0010, h01=0x0050, text=»RFMDUP EQU *«, t00=0x0055, t01=0x00c4}
0x8586…859c Head {h00=0x0012, h01=0x0050, text=» CWK A2,DUPCH «, t00=0x0055, t01=0x00d8}
0x859c…85b2 Head {h00=0x0012, h01=0x0050, text=» RF(NE) RFMD10«, t00=0x0055, t01=0x00ee}
0x85b2…85ca Head {h00=0x0014, h01=0x0050, text=» LDK A2,/2A DUP «, t00=0x0055, t01=0x0104}
0x85ca…85de Head {h00=0x0010, h01=0x0050, text=»RFMD10 EQU *«, t00=0x0055, t01=0x011c}
0x85de…85f2 Head {h00=0x0010, h01=0x0050, text=» CWK A2,FMCH«, t00=0x0055, t01=0x0130}
0x85f2…8608 Head {h00=0x0012, h01=0x0050, text=» RF(NE) RFMD20«, t00=0x0055, t01=0x0144}
0x8608…861c Head {h00=0x0010, h01=0x0050, text=» LDK A2,/3B «, t00=0x0055, t01=0x015a}
0x861c…8630 Head {h00=0x0010, h01=0x0050, text=»RFMD20 EQU *«, t00=0x0055, t01=0x016e}
0x8630…8646 Head {h00=0x0012, h01=0x0050, text=» CCK A2,/2222 «, t00=0x0055, t01=0x0182}
0x8646…865c Head {h00=0x0012, h01=0x0050, text=» RF(L) RFMD90 «, t00=0x0056, t01=0x0008}
0x865c…8672 Head {h00=0x0012, h01=0x0050, text=» CCK A2,/2424 «, t00=0x0056, t01=0x001e}
0x8672…8688 Head {h00=0x0012, h01=0x0050, text=» RF(G) RFMD90 «, t00=0x0056, t01=0x0034}
0x8688…869c Head {h00=0x0010, h01=0x0050, text=» SUK A2,/20 «, t00=0x0056, t01=0x004a}
0x869c…86b4 Head {h00=0x0014, h01=0x0050, text=» LC A2,DKTAB,A2 «, t00=0x0056, t01=0x005e}
0x86b4…86c6 Head {h00=0x000e, h01=0x0050, text=» RF RFMD90«, t00=0x0056, t01=0x0076}
0x86c6…86da Head {h00=0x0010, h01=0x0050, text=»DKTAB EQU * «, t00=0x0056, t01=0x0088}
0x86da…86fa Head {h00=0x001c, h01=0x0050, text=» DATA /2000,/7B7C,/7D00 «, t00=0x0056, t01=0x009c}
0x86fa…870e Head {h00=0x0010, h01=0x0050, text=»RFMD90 EQU *«, t00=0x0056, t01=0x00bc}
0x870e…871e Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0056, t01=0x00d0}
0x871e…8728 Head {h00=0x0006, h01=0x0050, text=» «, t00=0x0056, t01=0x00e0}
0x8728…8732 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0056, t01=0x00ea}
0x8732…873c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0056, t01=0x00f4}
0x873c…8768 Head {h00=0x0028, h01=0x0050, text=»* PUT SPACES TO DISPLAY LINE BUFFER «, t00=0x0056, t01=0x00fe}
0x8768…8772 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0056, t01=0x012a}
0x8772…877c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0056, t01=0x0134}
0x877c…879a Head {h00=0x001a, h01=0x0050, text=»SPACES LD A7,ECBBA,A8 «, t00=0x0056, t01=0x013e}
0x879a…87ba Head {h00=0x001c, h01=0x0050, text=» ADK A7,2 BUFFER ADDRESS«, t00=0x0056, t01=0x015c}
0x87ba…87dc Head {h00=0x001e, h01=0x0050, text=» LDKL A9,LLINE LINE LENGTH«, t00=0x0056, t01=0x017c}
0x87dc…87f8 Head {h00=0x0018, h01=0x0050, text=» ADR A9,A9 DOUBLE IT«, t00=0x0057, t01=0x000e}
0x87f8…8814 Head {h00=0x0018, h01=0x0050, text=» LDKL A2,' ' SPACES«, t00=0x0057, t01=0x002a}
0x8814…8830 Head {h00=0x0018, h01=0x0050, text=»SPAC10 SCR A2,A7 =1«, t00=0x0057, t01=0x0046}
0x8830…8848 Head {h00=0x0014, h01=0x0050, text=» SC A2,1,A7 =1 «, t00=0x0057, t01=0x0062}
0x8848…885a Head {h00=0x000e, h01=0x0050, text=» ADK A7,2 «, t00=0x0057, t01=0x007a}
0x885a…886c Head {h00=0x000e, h01=0x0050, text=» SUKL A9,2«, t00=0x0057, t01=0x008c}
0x886c…8882 Head {h00=0x0012, h01=0x0050, text=» RB(P) SPAC10 «, t00=0x0057, t01=0x009e}
0x8882…88aa Head {h00=0x0024, h01=0x0050, text=» LDK A2,0 CLEAR A2=CHAR REGISTER«, t00=0x0057, t01=0x00b4}
0x88aa…88d4 Head {h00=0x0026, h01=0x0050, text=» LDK A5,0 RESET MODIFIED INDICATOR«, t00=0x0057, t01=0x00dc}
0x88d4…88ec Head {h00=0x0014, h01=0x0050, text=» LD A7,ECBBA,A8 «, t00=0x0057, t01=0x0106}
0x88ec…890c Head {h00=0x001c, h01=0x0050, text=» ADK A7,2 BUFFER ADDRESS«, t00=0x0057, t01=0x011e}
0x890c…8936 Head {h00=0x0026, h01=0x0050, text=» SUR A9,A9 RESET LINE CHAR COUNTER«, t00=0x0057, t01=0x013e}
0x8936…8946 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0057, t01=0x0168}
0x8946…8950 Head {h00=0x0006, h01=0x0050, text=» «, t00=0x0057, t01=0x0178}
0x8950…895a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0057, t01=0x0182}
0x895a…8964 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0057, t01=0x018c}
0x8964…8990 Head {h00=0x0028, h01=0x0050, text=»* DISPLAY LINE IF ANY MODIFICATIONS «, t00=0x0058, t01=0x0008}
0x8990…899a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0058, t01=0x0034}
0x899a…89a4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0058, t01=0x003e}
0x89a4…89ac Head {h00=0x0004, h01=0x0050, t00=0x0058, t01=0x0048}
0x89ac…89c0 Head {h00=0x0010, h01=0x0050, text=»DISLIN EQU *«, t00=0x0058, t01=0x0050}
0x89c0…89d2 Head {h00=0x000e, h01=0x0050, text=» LDR A7,A5«, t00=0x0058, t01=0x0064}
0x89d2…89fa Head {h00=0x0024, h01=0x0050, text=» ANK A5,/80 ANY MODIFICATIONS ??«, t00=0x0058, t01=0x0076}
0x89fa…8a20 Head {h00=0x0022, h01=0x0050, text=» RF(Z) DISL10 NO MODIFICATIONS«, t00=0x0058, t01=0x009e}
0x8a20…8a32 Head {h00=0x000e, h01=0x0050, text=» LDK A1,2 «, t00=0x0058, t01=0x00c4}
0x8a32…8a5e Head {h00=0x0028, h01=0x0050, text=» XRK A7,/A0 ONLY SPACES IN BUFFER ??«, t00=0x0058, t01=0x00d6}
0x8a5e…8a7a Head {h00=0x0018, h01=0x0050, text=» RF(Z) DIS:10 YES!! «, t00=0x0058, t01=0x0102}
0x8a7a…8a92 Head {h00=0x0014, h01=0x0050, text=» LDKL A1,LLINE+2«, t00=0x0058, t01=0x011e}
0x8a92…8ac4 Head {h00=0x002e, h01=0x0050, text=» ADR A1,A10 ADD NR OF INTENSITY CHARACTERS«, t00=0x0058, t01=0x0136}
0x8ac4…8ad8 Head {h00=0x0010, h01=0x0050, text=»DIS:10 EQU *«, t00=0x0058, t01=0x0168}
0x8ad8…8afe Head {h00=0x0022, h01=0x0050, text=» ST A1,ECBRL,A8 SET REQ LENGTH«, t00=0x0058, t01=0x017c}
0x8afe…8b06 Head {h00=0x0004, h01=0x0050, t00=0x0059, t01=0x0012}
0x8b06…8b0e Head {h00=0x0004, h01=0x0050, t00=0x0059, t01=0x001a}
0x8b0e…8b36 Head {h00=0x0024, h01=0x0050, text=» LDK A7,/8B SET CURSOR AND WRITE«, t00=0x0059, t01=0x0022}
0x8b36…8b42 Head {h00=0x0008, h01=0x0050, text=» LKM«, t00=0x0059, t01=0x004a}
0x8b42…8b52 Head {h00=0x000c, h01=0x0050, text=» DATA 1 «, t00=0x0059, t01=0x0056}
0x8b52…8b5c Head {h00=0x0006, h01=0x0050, text=» «, t00=0x0059, t01=0x0066}
0x8b5c…8b64 Head {h00=0x0004, h01=0x0050, t00=0x0059, t01=0x0070}
0x8b64…8bb0 Head {h00=0x0048, h01=0x0050, text=»********************************************************************«, t00=0x0059, t01=0x0078}
0x8bb0…8bba Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0059, t01=0x00c4}
0x8bba…8bee Head {h00=0x0030, h01=0x0050, text=»* EXECUTE FAST OUTPUT TO BLANK REMAINIG PART«, t00=0x0059, t01=0x00ce}
0x8bee…8c04 Head {h00=0x0012, h01=0x0050, text=»* OF THE LINE «, t00=0x0059, t01=0x0102}
0x8c04…8c0e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0059, t01=0x0118}
0x8c0e…8c5a Head {h00=0x0048, h01=0x0050, text=»******************************************************************* «, t00=0x0059, t01=0x0122}
0x8c5a…8c62 Head {h00=0x0004, h01=0x0050, t00=0x0059, t01=0x016e}
0x8c62…8c8a Head {h00=0x0024, h01=0x0050, text=» LD A1,ECBCW,A8 CURSOR POSITION «, t00=0x0059, t01=0x0176}
0x8c8a…8cae Head {h00=0x0020, h01=0x0050, text=» ANK A1,X'FF' COLUMN NUMBER «, t00=0x005a, t01=0x000e}
0x8cae…8cd4 Head {h00=0x0022, h01=0x0050, text=» SUK A1,80 LAST POSITION ? DK1«, t00=0x005a, t01=0x0032}
0x8cd4…8d0c Head {h00=0x0034, h01=0x0050, text=» RF(NL) DISL10 YES, NO FAST OUTPUT THIS LINE DK1«, t00=0x005a, t01=0x0058}
0x8d0c…8d14 Head {h00=0x0004, h01=0x0050, t00=0x005a, t01=0x0090}
0x8d14…8d3a Head {h00=0x0022, h01=0x0050, text=» LD A1,ECBBA,A8 BUFFER ADRESS «, t00=0x005a, t01=0x0098}
0x8d3a…8d6a Head {h00=0x002c, h01=0x0050, text=» LDK A2,X'2B' DONT MOVE CURSOR ONE LINE «, t00=0x005a, t01=0x00be}
0x8d6a…8d82 Head {h00=0x0014, h01=0x0050, text=» SC A2,1,A1 =1 «, t00=0x005a, t01=0x00ee}
0x8d82…8db0 Head {h00=0x002a, h01=0x0050, text=» LDKL A2,X'1420' FAST OUTPUT OF SPACES«, t00=0x005a, t01=0x0106}
0x8db0…8dc8 Head {h00=0x0014, h01=0x0050, text=» SC A2,3,A1 =1 «, t00=0x005a, t01=0x0134}
0x8dc8…8dde Head {h00=0x0012, h01=0x0050, text=» SRL A2,8 =1 «, t00=0x005a, t01=0x014c}
0x8dde…8df6 Head {h00=0x0014, h01=0x0050, text=» SC A2,2,A1 =1 «, t00=0x005a, t01=0x0162}
0x8df6…8e1a Head {h00=0x0020, h01=0x0050, text=» LDK A2,84 REQUESTED LENGTH «, t00=0x005a, t01=0x017a}
0x8e1a…8e32 Head {h00=0x0014, h01=0x0050, text=» ST A2,ECBRL,A8 «, t00=0x005b, t01=0x000e}
0x8e32…8e54 Head {h00=0x001e, h01=0x0050, text=» LDK A7,X'86' WRITE ORDER «, t00=0x005b, t01=0x0026}
0x8e54…8e60 Head {h00=0x0008, h01=0x0050, text=» LKM«, t00=0x005b, t01=0x0048}
0x8e60…8e70 Head {h00=0x000c, h01=0x0050, text=» DATA 1 «, t00=0x005b, t01=0x0054}
0x8e70…8e78 Head {h00=0x0004, h01=0x0050, t00=0x005b, t01=0x0064}
0x8e78…8e8c Head {h00=0x0010, h01=0x0050, text=»DISL10 EQU *«, t00=0x005b, t01=0x006c}
0x8e8c…8e9e Head {h00=0x000e, h01=0x0050, text=» LDK A2,1 «, t00=0x005b, t01=0x0080}
0x8e9e…8eca Head {h00=0x0028, h01=0x0050, text=» SC A2,ECBCW+1,A8 POS 1 ON NEXT LINE«, t00=0x005b, t01=0x0092}
0x8eca…8ee0 Head {h00=0x0012, h01=0x0050, text=» LDKL A2,/100 «, t00=0x005b, t01=0x00be}
0x8ee0…8f0e Head {h00=0x002a, h01=0x0050, text=» ADS A2,ECBCW,A8 INCREMENT LINE NUMBER«, t00=0x005b, t01=0x00d4}
0x8f0e…8f36 Head {h00=0x0024, h01=0x0050, text=» RB SPACES PUT SPACES TO BUFFER «, t00=0x005b, t01=0x0102}
0x8f36…8f3e Head {h00=0x0004, h01=0x0050, t00=0x005b, t01=0x012a}
0x8f3e…8f48 Head {h00=0x0006, h01=0x0050, text=» «, t00=0x005b, t01=0x0132}
0x8f48…8f50 Head {h00=0x0004, h01=0x0050, t00=0x005b, t01=0x013c}
0x8f50…8f58 Head {h00=0x0004, h01=0x0050, t00=0x005b, t01=0x0144}
0x8f58…8fa0 Head {h00=0x0044, h01=0x0050, text=»****************************************************************«, t00=0x005b, t01=0x014c}
0x8fa0…8faa (92, 0, 398) Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005c, t01=0x0004}
0x8faa…8fec Head {h00=0x003e, h01=0x0050, text=»* I N T C H K CHECK IF LINE SHOULD BE PRINTED WITH«, t00=0x005c, t01=0x000e}
0x8fec…9020 Head {h00=0x0030, h01=0x0050, text=»* HIGH OR LOW INTENSITY «, t00=0x005c, t01=0x0050}
0x9020…902a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005c, t01=0x0084}
0x902a…9078 Head {h00=0x004a, h01=0x0050, text=»**********************************************************************«, t00=0x005c, t01=0x008e}
0x9078…9080 Head {h00=0x0004, h01=0x0050, t00=0x005c, t01=0x00dc}
0x9080…90b0 Head {h00=0x002c, h01=0x0050, text=»INTCHK SUR A10,A10 RESET INTENSITY COUNT«, t00=0x005c, t01=0x00e4}
0x90b0…90e4 Head {h00=0x0030, h01=0x0050, text=» LD A2,INTATT,TCABAS GET INTENSITY ATTRIBUTE«, t00=0x005c, t01=0x0114}
0x90e4…9106 Head {h00=0x001e, h01=0x0050, text=» RF(Z) INTRTN NON DISPLAY «, t00=0x005c, t01=0x0148}
0x9106…912e Head {h00=0x0024, h01=0x0050, text=» ANK A2,X'4' HIGH INTENSITY ??? «, t00=0x005c, t01=0x016a}
0x912e…9148 (93, 0, 400) Head {h00=0x0016, h01=0x0050, text=» RF(Z) INT:10 YES «, t00=0x005d, t01=0x0004}
0x9148…9150 Head {h00=0x0004, h01=0x0050, t00=0x005d, t01=0x001e}
0x9150…9174 Head {h00=0x0020, h01=0x0050, text=» LDK A2,X'1E' LOW INTENSITY «, t00=0x005d, t01=0x0026}
0x9174…9196 Head {h00=0x001e, h01=0x0050, text=» RF INT:20 HIGH INTENSITY «, t00=0x005d, t01=0x004a}
0x9196…919e Head {h00=0x0004, h01=0x0050, t00=0x005d, t01=0x006c}
0x919e…91c8 Head {h00=0x0026, h01=0x0050, text=»INT:10 LDK A2,X'1F' HIGH INTENSITY«, t00=0x005d, t01=0x0074}
0x91c8…91d0 Head {h00=0x0004, h01=0x0050, t00=0x005d, t01=0x009e}
0x91d0…920c Head {h00=0x0038, h01=0x0050, text=»INT:20 SCR A2,A7 SAVE INTENSITY CHARACTER IN BUFFER «, t00=0x005d, t01=0x00a6}
0x920c…9236 Head {h00=0x0026, h01=0x0050, text=» ADK A7,1 INCREMENT BUFFER POINTER«, t00=0x005d, t01=0x00e2}
0x9236…9264 Head {h00=0x002a, h01=0x0050, text=» ADKL A10,1 INTENSITY COUNT «, t00=0x005d, t01=0x010c}
0x9264…9282 Head {h00=0x001a, h01=0x0050, text=»INTRTN RTN A14 RETURN «, t00=0x005d, t01=0x013a}
0x9282…928c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005d, t01=0x0158}
0x928c…9296 Head {h00=0x0006, h01=0x0050, text=» «, t00=0x005d, t01=0x0162}
0x9296…929e Head {h00=0x0004, h01=0x0050, t00=0x005d, t01=0x016c}
0x929e…92e6 Head {h00=0x0044, h01=0x0050, text=»****************************************************************«, t00=0x005d, t01=0x0174}
0x92e6…92f0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005e, t01=0x002c}
0x92f0…9334 Head {h00=0x0040, h01=0x0050, text=»* SET:M SET MODIFIED BIT IF CHARACTER HAS BEEN MODIFIED «, t00=0x005e, t01=0x0036}
0x9334…933e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005e, t01=0x007a}
0x933e…9388 Head {h00=0x0046, h01=0x0050, text=»******************************************************************«, t00=0x005e, t01=0x0084}
0x9388…9390 Head {h00=0x0004, h01=0x0050, t00=0x005e, t01=0x00ce}
0x9390…93a8 Head {h00=0x0014, h01=0x0050, text=»SET:M CWK A2,/20«, t00=0x005e, t01=0x00d6}
0x93a8…93d2 Head {h00=0x0026, h01=0x0050, text=» RF(L) SET:M2 ATTRIBUTE CHARACTER «, t00=0x005e, t01=0x00ee}
0x93d2…93e6 Head {h00=0x0010, h01=0x0050, text=» CWK A2,/7F «, t00=0x005e, t01=0x0118}
0x93e6…9410 Head {h00=0x0026, h01=0x0050, text=» RF(E) SET:M2 UNMODIFIED ATTRIBUTE«, t00=0x005e, t01=0x012c}
0x9410…9424 Head {h00=0x0010, h01=0x0050, text=» CWK A2,/FF «, t00=0x005e, t01=0x0156}
0x9424…9450 Head {h00=0x0028, h01=0x0050, text=» RF(NE) SET:M1 NOT NULL OR ATTRIBUTE«, t00=0x005e, t01=0x016a}
0x9450…947c Head {h00=0x0028, h01=0x0050, text=» ORK A5,/A0 MODIFIED NULL CHARACTER «, t00=0x005f, t01=0x0008}
0x947c…948c Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x005f, t01=0x0034}
0x948c…94b6 Head {h00=0x0026, h01=0x0050, text=»SET:M1 ORR A5,A2 SET MODIFIED BIT «, t00=0x005f, t01=0x0044}
0x94b6…94cc Head {h00=0x0012, h01=0x0050, text=»SET:M2 RTN A14«, t00=0x005f, t01=0x006e}
0x94cc…94d8 Head {h00=0x0008, h01=0x0050, text=» END«, t00=0x005f, t01=0x0084}
0x94d8…94dc Head {h00=0x4004, h01=0x0000}
0x94dc…94e0 00 5f 00 90 ┆ _ ┆
0x94e0…94e8 (96, 1, 8) 20 04 00 00 00 60 00 04 ┆ ` ┆