|
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: 37762 (0x9382)
Notes: pts_type(SC)
Names: »VDUPRT.SC«
└─⟦110b7ed5e⟧ Bits:30009664 Philips computer tape "600106"
└─⟦this⟧ »D3270:92/VDUPRT.SC«
└─⟦bdcaa0fa2⟧ Bits:30009700 Philips computer tape "600999"
└─⟦this⟧ »D3270:92/VDUPRT.SC«
IDENT VDUPRT DK8 830613 DK8, CONV.SMALL LETTERS AE,OE,AA 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 1150 RECEIVE BUFFER LENGTH IN WORDS RBUFNR EQU 2 NUMBER OF RECEIVE BUFFERS (1-5) TBUFL EQU 1150 TRANSMIT BUFFER LENGTH IN WORDS TBUFNR EQU 2 NUMBER OF TRANSMIT BUFFERS (1-5) COPCMD EQU 1 COPY COMMAND (ONLY TO PRINTER) IF := 1 EBCDIC EQU 1 ASCII = 0,EBCDIC = 1 * * EQUATES * * TIMDC EQU 600 DC TIME OUT VALUE: 60 S DK2 ESC EQU /1B SBA EQU /11 NULL EQU /7F NULL CHARACTER NEWLIN EQU /7E NEW LINE CHARACTER ENDMES EQU /7D END MESSAGE CHAR FORMFD EQU /7C FORM FEED CHAR DUPCH EQU /7B FMCH EQU /60 TRCH EQU /30 DK SKIP EQU /06 SKIP CHAR. (USM) DK5 * * * EQUATES * * COMMON EQU FOR ECB HANDLING * ECBBA EQU 2 ECBRL EQU 4 ECBEL EQU 6 ECBRC EQU 8 ECBCW EQU 10 * * * CREDIT USED EQU * * * ECB REL. ADDRESSES * * DIS EQU 20 * ECBDC EQU -DIS-14 IFT DCLIN=2 IFT COPCMD=1 ECBDC2 EQU ECBDC-DIS ECBICR EQU ECBDC2-DIS ECBICW EQU ECBICR-DIS XIF IFT DCLIN=2 IFF COPCMD=1 ECBDC2 EQU ECBDC-DIS ECBICW EQU ECBDC2-DIS XIF IFF DCLIN=2 IFT COPCMD=1 ECBICR EQU ECBDC-DIS ECBICW EQU ECBICR-DIS XIF IFF DCLIN=2 IFF COPCMD=1 ECBICW EQU ECBDC-DIS XIF ECBVDU EQU ECBICW-DIS ECBKB EQU ECBVDU-DIS ECBSD EQU ECBKB-DIS * * * BASE ADDRESS FOR TCA AND ECB * TCABAS EQU A11 CREBAS EQU A13 ECB * * * TCA REL. ADDRESSES * TCT01 EQU 0 PRINTER EQU TCT01+2 BVDU EQU PRINTER+2 VDU SCREEN BUFFER PCURS EQU BVDU+1920 CURSOR ADDRESS , BINARY ATTRIB EQU PCURS+2 LAST ATTRIBUTE CHAR CURATT EQU ATTRIB+2 WCC EQU CURATT+2 WCC/CCC CHARACTER KBINH EQU WCC+2 KEYBOARD INHIBIT INDICATOR LINCNT EQU KBINH+2 LINE COUNTER DCLENG EQU LINCNT+2 DC READ EFFECTIVE LENGTH ICWORK EQU DCLENG+2 WORK FIELD INTERTASK COMM INTATT EQU ICWORK+2 INTENSITY ATTRIBUTE OFFFLG EQU INTATT+2 OFFLINE FLAG COPNO EQU OFFFLG+2 HARDCOPY TASK ID CCC EQU COPNO+2 COPY COMMAND CHARACTER MAIN EQU CCC+2 MAIN FRAME MODE EQU MAIN+2 INSERT MODE SWITCH KEYS EQU MODE+2 KEY LOCK STATUS ECBDCC EQU KEYS+2 ECB ADDRESS LAST READ DC ECBBLK EQU ECBDCC+2 ECBS FOR MULTIPLE WAIT &C RDMORE EQU ECBBLK+10 BRANCH ADDRESS NEXT READ KB 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,/08 'APL' ESCAPE? DK7 RF(E) RD110 YES,SEND IT... DK7 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 * CCK A2,/2222 RF(L) UPD255 CCK A2,/2424 RF(G) UPD255 SUK A2,/20 LC A2,DKTAB,A2 RF UPD255 DKTAB EQU * DATA /2000,/7B7C,/7D00 UPD255 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 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,/08 'APL' ESCAPE? DK7 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 * 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…0020 (0, 0, 400) Head {h00=0x001c, h01=0x0050, text=» IDENT VDUPRT DK8 830613«, t00=0x0000, t01=0x0004}
0x0020…0028 Head {h00=0x0004, h01=0x0050, t00=0x0000, t01=0x0024}
0x0028…0054 Head {h00=0x0028, h01=0x0050, text=» DK8, CONV.SMALL LETTERS AE,OE,AA «, t00=0x0000, t01=0x002c}
0x0054…0080 Head {h00=0x0028, h01=0x0050, text=» DK7, READ MODIFIED HANDLING (GF) «, t00=0x0000, t01=0x0058}
0x0080…00a4 Head {h00=0x0020, h01=0x0050, text=» DK6 ORDER INDICATOR 'SBA'«, t00=0x0000, t01=0x0084}
0x00a4…00c4 Head {h00=0x001c, h01=0x0050, text=» =1,ODD BUFFER ADDRESS«, t00=0x0000, t01=0x00a8}
0x00c4…00e0 Head {h00=0x0018, h01=0x0050, text=» REL 2.1 79-05-23 «, t00=0x0000, t01=0x00c8}
0x00e0…00fc Head {h00=0x0018, h01=0x0050, text=» =2,KEYBOARD LAMPS«, t00=0x0000, t01=0x00e4}
0x00fc…0118 Head {h00=0x0018, h01=0x0050, text=» REL 2.1 79-05-23 «, t00=0x0000, t01=0x0100}
0x0118…013e Head {h00=0x0022, h01=0x0050, text=» =3, TRANSMIT BUFFER LENGTH «, t00=0x0000, t01=0x011c}
0x013e…015a Head {h00=0x0018, h01=0x0050, text=» REL 2.1 79-05-23 «, t00=0x0000, t01=0x0142}
0x015a…0182 Head {h00=0x0024, h01=0x0050, text=» DK5 - SKIP CHAR 06=2F=USM DK5«, t00=0x0000, t01=0x015e}
0x0182…019a Head {h00=0x0014, h01=0x0050, text=» DK4 - RFMDUP «, t00=0x0000, t01=0x0186}
0x019a…01ae Head {h00=0x0010, h01=0x0050, text=» DK3 - EUA«, t00=0x0001, t01=0x000e}
0x01ae…01ca Head {h00=0x0018, h01=0x0050, text=» DK2 - DC-TIMEOUT «, t00=0x0001, t01=0x0022}
0x01ca…01e8 Head {h00=0x001a, h01=0x0050, text=» DK1 - BLANK COL. 80«, t00=0x0001, t01=0x003e}
0x01e8…0232 Head {h00=0x0046, h01=0x0050, text=»******************************************************************«, t00=0x0001, t01=0x005c}
0x0232…023c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x00a6}
0x023c…027c Head {h00=0x003c, h01=0x0050, text=»* V D U P R T : MODULE HANDLING MESSAGES COMING FROM«, t00=0x0001, t01=0x00b0}
0x027c…02ba Head {h00=0x003a, h01=0x0050, text=»* MAIN FRAME, AND DISPLAYING THEM ON«, t00=0x0001, t01=0x00f0}
0x02ba…02ec Head {h00=0x002e, h01=0x0050, text=»* THE VDU ( PTS 6344 ) .«, t00=0x0001, t01=0x012e}
0x02ec…02f6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x0160}
0x02f6…0342 Head {h00=0x0048, h01=0x0050, text=»********************************************************************«, t00=0x0001, t01=0x016a}
0x0342…034c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x0026}
0x034c…0356 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x0030}
0x0356…0360 Head {h00=0x0006, h01=0x0050, text=» «, t00=0x0002, t01=0x003a}
0x0360…036a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x0044}
0x036a…0374 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x004e}
0x0374…0386 Head {h00=0x000e, h01=0x0050, text=»* ENTRIES «, t00=0x0002, t01=0x0058}
0x0386…0390 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x006a}
0x0390…039a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x0074}
0x039a…03c8 Head {h00=0x002a, h01=0x0050, text=» ENTRY TRPF TRANSMIT, PROGRAM FUNCTION«, t00=0x0002, t01=0x007e}
0x03c8…03f8 Head {h00=0x002c, h01=0x0050, text=» ENTRY TRPA TRANSMIT, PROGRAM ATTENTION «, t00=0x0002, t01=0x00ac}
0x03f8…0420 Head {h00=0x0024, h01=0x0050, text=» ENTRY ERASE ERASE ENTIRE SCREEN«, t00=0x0002, t01=0x00dc}
0x0420…0448 Head {h00=0x0024, h01=0x0050, text=» ENTRY SETCUR CURSOR POSITIONING«, t00=0x0002, t01=0x0104}
0x0448…0474 Head {h00=0x0028, h01=0x0050, text=» ENTRY ERASUP ERASE ALL UNPROTECTED «, t00=0x0002, t01=0x012c}
0x0474…049e Head {h00=0x0026, h01=0x0050, text=» ENTRY DISPL DISPLAY MODIFIED DATA«, t00=0x0002, t01=0x0158}
0x049e…04d0 Head {h00=0x002e, h01=0x0050, text=» ENTRY ERASUA ERASE UNPROTECTED TO ADDRESS«, t00=0x0002, t01=0x0182}
0x04d0…0502 Head {h00=0x002e, h01=0x0050, text=» ENTRY WCHAR WRITE ONE CHAR IN CURSOR POS «, t00=0x0003, t01=0x0024}
0x0502…0518 Head {h00=0x0012, h01=0x0050, text=» ENTRY UPDATE «, t00=0x0003, t01=0x0056}
0x0518…053e Head {h00=0x0022, h01=0x0050, text=» ENTRY RFMDUP REPLACE FM & DUP«, t00=0x0003, t01=0x006c}
0x053e…0552 Head {h00=0x0010, h01=0x0050, text=» ENTRY DCINP«, t00=0x0003, t01=0x0092}
0x0552…0568 Head {h00=0x0012, h01=0x0050, text=» ENTRY RLRBUF «, t00=0x0003, t01=0x00a6}
0x0568…057e Head {h00=0x0012, h01=0x0050, text=» ENTRY DCGETM «, t00=0x0003, t01=0x00bc}
0x057e…0594 Head {h00=0x0012, h01=0x0050, text=» ENTRY GTRBUF «, t00=0x0003, t01=0x00d2}
0x0594…059e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x00e8}
0x059e…05a8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x00f2}
0x05a8…05bc Head {h00=0x0010, h01=0x0050, text=»* EXTERNALS «, t00=0x0003, t01=0x00fc}
0x05bc…05c6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x0110}
0x05c6…05d0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x011a}
0x05d0…05f2 Head {h00=0x001e, h01=0x0050, text=» EXTRN LINHON,LINHOF START«, t00=0x0003, t01=0x0124}
0x05f2…0614 Head {h00=0x001e, h01=0x0050, text=» EXTRN LSAVON,LSAVOF START«, t00=0x0003, t01=0x0146}
0x0614…062a Head {h00=0x0012, h01=0x0050, text=» EXTRN ATMASB «, t00=0x0003, t01=0x0168}
0x062a…063e Head {h00=0x0010, h01=0x0050, text=» EXTRN EMULA«, t00=0x0003, t01=0x017e}
0x063e…0654 (4, 0, 400) Head {h00=0x0012, h01=0x0050, text=» EXTRN REQTIM «, t00=0x0004, t01=0x0004}
0x0654…066a Head {h00=0x0012, h01=0x0050, text=» EXTRN ICWRTE «, t00=0x0004, t01=0x001a}
0x066a…0690 Head {h00=0x0022, h01=0x0050, text=» EXTRN READMY READ MODIFED DK7«, t00=0x0004, t01=0x0030}
0x0690…069a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x0056}
0x069a…06b4 Head {h00=0x0016, h01=0x0050, text=» EXTRN SNBUSY PRT «, t00=0x0004, t01=0x0060}
0x06b4…06be Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x007a}
0x06be…06ec Head {h00=0x002a, h01=0x0050, text=» EXTRN I:EVA0 CREDIT EVALUATION TABLE «, t00=0x0004, t01=0x0084}
0x06ec…06f6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x00b2}
0x06f6…071a Head {h00=0x0020, h01=0x0050, text=» EXTRN TASCII,TEBCDI TB3270 «, t00=0x0004, t01=0x00bc}
0x071a…0724 Head {h00=0x0006, h01=0x0050, text=» «, t00=0x0004, t01=0x00e0}
0x0724…072e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x00ea}
0x072e…0776 Head {h00=0x0044, h01=0x0050, text=»****************************************************************«, t00=0x0004, t01=0x00f4}
0x0776…0780 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x013c}
0x0780…07ac Head {h00=0x0028, h01=0x0050, text=»* CONDITIONAL ASSEMBLY PARAMETERS «, t00=0x0004, t01=0x0146}
0x07ac…07b6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x0172}
0x07b6…07ec Head {h00=0x0032, h01=0x0050, text=»**********************************************«, t00=0x0004, t01=0x017c}
0x07ec…07f4 Head {h00=0x0004, h01=0x0050, t00=0x0005, t01=0x0022}
0x07f4…082a Head {h00=0x0032, h01=0x0050, text=»OFLIN EQU 1 OFFLINE HANDLING POSSIBLE IF ::= 1«, t00=0x0005, t01=0x002a}
0x082a…085a Head {h00=0x002c, h01=0x0050, text=»DCLIN EQU 1 NUMBER OF MAIN FRAMES (1-2) «, t00=0x0005, t01=0x0060}
0x085a…0890 Head {h00=0x0032, h01=0x0050, text=»RBUFL EQU 1150 RECEIVE BUFFER LENGTH IN WORDS «, t00=0x0005, t01=0x0090}
0x0890…08c4 Head {h00=0x0030, h01=0x0050, text=»RBUFNR EQU 2 NUMBER OF RECEIVE BUFFERS (1-5)«, t00=0x0005, t01=0x00c6}
0x08c4…08fa Head {h00=0x0032, h01=0x0050, text=»TBUFL EQU 1150 TRANSMIT BUFFER LENGTH IN WORDS«, t00=0x0005, t01=0x00fa}
0x08fa…0930 Head {h00=0x0032, h01=0x0050, text=»TBUFNR EQU 2 NUMBER OF TRANSMIT BUFFERS (1-5) «, t00=0x0005, t01=0x0130}
0x0930…096c Head {h00=0x0038, h01=0x0050, text=»COPCMD EQU 1 COPY COMMAND (ONLY TO PRINTER) IF := 1 «, t00=0x0005, t01=0x0166}
0x096c…0996 Head {h00=0x0026, h01=0x0050, text=»EBCDIC EQU 1 ASCII = 0,EBCDIC = 1 «, t00=0x0006, t01=0x0012}
0x0996…09a0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x003c}
0x09a0…09b2 Head {h00=0x000e, h01=0x0050, text=»* EQUATES «, t00=0x0006, t01=0x0046}
0x09b2…09bc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x0058}
0x09bc…09c6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x0062}
0x09c6…09f8 Head {h00=0x002e, h01=0x0050, text=»TIMDC EQU 600 DC TIME OUT VALUE: 60 S DK2 «, t00=0x0006, t01=0x006c}
0x09f8…0a0c Head {h00=0x0010, h01=0x0050, text=»ESC EQU /1B «, t00=0x0006, t01=0x009e}
0x0a0c…0a20 Head {h00=0x0010, h01=0x0050, text=»SBA EQU /11 «, t00=0x0006, t01=0x00b2}
0x0a20…0a44 Head {h00=0x0020, h01=0x0050, text=»NULL EQU /7F NULL CHARACTER «, t00=0x0006, t01=0x00c6}
0x0a44…0a6e Head {h00=0x0026, h01=0x0050, text=»NEWLIN EQU /7E NEW LINE CHARACTER «, t00=0x0006, t01=0x00ea}
0x0a6e…0a96 Head {h00=0x0024, h01=0x0050, text=»ENDMES EQU /7D END MESSAGE CHAR «, t00=0x0006, t01=0x0114}
0x0a96…0abc Head {h00=0x0022, h01=0x0050, text=»FORMFD EQU /7C FORM FEED CHAR «, t00=0x0006, t01=0x013c}
0x0abc…0ad2 Head {h00=0x0012, h01=0x0050, text=»DUPCH EQU /7B «, t00=0x0006, t01=0x0162}
0x0ad2…0ae6 Head {h00=0x0010, h01=0x0050, text=»FMCH EQU /60«, t00=0x0006, t01=0x0178}
0x0ae6…0afe Head {h00=0x0014, h01=0x0050, text=»TRCH EQU /30 DK«, t00=0x0006, t01=0x018c}
0x0afe…0b28 Head {h00=0x0026, h01=0x0050, text=»SKIP EQU /06 SKIP CHAR. (USM) DK5 «, t00=0x0007, t01=0x0014}
0x0b28…0b32 Head {h00=0x0006, h01=0x0050, text=» «, t00=0x0007, t01=0x003e}
0x0b32…0b3c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x0048}
0x0b3c…0b46 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x0052}
0x0b46…0b5c Head {h00=0x0012, h01=0x0050, text=»* EQUATES «, t00=0x0007, t01=0x005c}
0x0b5c…0b66 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x0072}
0x0b66…0b8c Head {h00=0x0022, h01=0x0050, text=»* COMMON EQU FOR ECB HANDLING «, t00=0x0007, t01=0x007c}
0x0b8c…0b96 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x00a2}
0x0b96…0b9e Head {h00=0x0004, h01=0x0050, t00=0x0007, t01=0x00ac}
0x0b9e…0bb2 Head {h00=0x0010, h01=0x0050, text=»ECBBA EQU 2 «, t00=0x0007, t01=0x00b4}
0x0bb2…0bc6 Head {h00=0x0010, h01=0x0050, text=»ECBRL EQU 4 «, t00=0x0007, t01=0x00c8}
0x0bc6…0bda Head {h00=0x0010, h01=0x0050, text=»ECBEL EQU 6 «, t00=0x0007, t01=0x00dc}
0x0bda…0bee Head {h00=0x0010, h01=0x0050, text=»ECBRC EQU 8 «, t00=0x0007, t01=0x00f0}
0x0bee…0c02 Head {h00=0x0010, h01=0x0050, text=»ECBCW EQU 10«, t00=0x0007, t01=0x0104}
0x0c02…0c0c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x0118}
0x0c0c…0c16 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x0122}
0x0c16…0c30 Head {h00=0x0016, h01=0x0050, text=»* CREDIT USED EQU «, t00=0x0007, t01=0x012c}
0x0c30…0c3a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x0146}
0x0c3a…0c44 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x0150}
0x0c44…0c60 Head {h00=0x0018, h01=0x0050, text=»* ECB REL. ADDRESSES«, t00=0x0007, t01=0x015a}
0x0c60…0c6a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x0176}
0x0c6a…0c74 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x0180}
0x0c74…0c86 Head {h00=0x000e, h01=0x0050, text=»DIS EQU 20«, t00=0x0007, t01=0x018a}
0x0c86…0c90 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x000c}
0x0c90…0caa Head {h00=0x0016, h01=0x0050, text=»ECBDC EQU -DIS-14 «, t00=0x0008, t01=0x0016}
0x0caa…0cbe Head {h00=0x0010, h01=0x0050, text=» IFT DCLIN=2«, t00=0x0008, t01=0x0030}
0x0cbe…0cd4 Head {h00=0x0012, h01=0x0050, text=» IFT COPCMD=1 «, t00=0x0008, t01=0x0044}
0x0cd4…0cf0 Head {h00=0x0018, h01=0x0050, text=»ECBDC2 EQU ECBDC-DIS«, t00=0x0008, t01=0x005a}
0x0cf0…0d0e Head {h00=0x001a, h01=0x0050, text=»ECBICR EQU ECBDC2-DIS «, t00=0x0008, t01=0x0076}
0x0d0e…0d2c Head {h00=0x001a, h01=0x0050, text=»ECBICW EQU ECBICR-DIS «, t00=0x0008, t01=0x0094}
0x0d2c…0d38 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0008, t01=0x00b2}
0x0d38…0d4c Head {h00=0x0010, h01=0x0050, text=» IFT DCLIN=2«, t00=0x0008, t01=0x00be}
0x0d4c…0d62 Head {h00=0x0012, h01=0x0050, text=» IFF COPCMD=1 «, t00=0x0008, t01=0x00d2}
0x0d62…0d7e Head {h00=0x0018, h01=0x0050, text=»ECBDC2 EQU ECBDC-DIS«, t00=0x0008, t01=0x00e8}
0x0d7e…0d9c Head {h00=0x001a, h01=0x0050, text=»ECBICW EQU ECBDC2-DIS «, t00=0x0008, t01=0x0104}
0x0d9c…0da8 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0008, t01=0x0122}
0x0da8…0dbc Head {h00=0x0010, h01=0x0050, text=» IFF DCLIN=2«, t00=0x0008, t01=0x012e}
0x0dbc…0dd2 Head {h00=0x0012, h01=0x0050, text=» IFT COPCMD=1 «, t00=0x0008, t01=0x0142}
0x0dd2…0dee Head {h00=0x0018, h01=0x0050, text=»ECBICR EQU ECBDC-DIS«, t00=0x0008, t01=0x0158}
0x0dee…0e0c Head {h00=0x001a, h01=0x0050, text=»ECBICW EQU ECBICR-DIS «, t00=0x0008, t01=0x0174}
0x0e0c…0e18 (9, 0, 400) Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0009, t01=0x0004}
0x0e18…0e2c Head {h00=0x0010, h01=0x0050, text=» IFF DCLIN=2«, t00=0x0009, t01=0x0010}
0x0e2c…0e42 Head {h00=0x0012, h01=0x0050, text=» IFF COPCMD=1 «, t00=0x0009, t01=0x0024}
0x0e42…0e5e Head {h00=0x0018, h01=0x0050, text=»ECBICW EQU ECBDC-DIS«, t00=0x0009, t01=0x003a}
0x0e5e…0e6a Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0009, t01=0x0056}
0x0e6a…0e88 Head {h00=0x001a, h01=0x0050, text=»ECBVDU EQU ECBICW-DIS «, t00=0x0009, t01=0x0062}
0x0e88…0ea4 Head {h00=0x0018, h01=0x0050, text=»ECBKB EQU ECBVDU-DIS«, t00=0x0009, t01=0x0080}
0x0ea4…0ec0 Head {h00=0x0018, h01=0x0050, text=»ECBSD EQU ECBKB-DIS «, t00=0x0009, t01=0x009c}
0x0ec0…0eca Head {h00=0x0006, h01=0x0050, text=» «, t00=0x0009, t01=0x00b8}
0x0eca…0ed4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x00c2}
0x0ed4…0ede Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x00cc}
0x0ede…0f04 Head {h00=0x0022, h01=0x0050, text=»* BASE ADDRESS FOR TCA AND ECB«, t00=0x0009, t01=0x00d6}
0x0f04…0f0e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x00fc}
0x0f0e…0f24 Head {h00=0x0012, h01=0x0050, text=»TCABAS EQU A11«, t00=0x0009, t01=0x0106}
0x0f24…0f3e Head {h00=0x0016, h01=0x0050, text=»CREBAS EQU A13 ECB«, t00=0x0009, t01=0x011c}
0x0f3e…0f48 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x0136}
0x0f48…0f52 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x0140}
0x0f52…0f6e Head {h00=0x0018, h01=0x0050, text=»* TCA REL. ADDRESSES«, t00=0x0009, t01=0x014a}
0x0f6e…0f78 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x0166}
0x0f78…0f8c Head {h00=0x0010, h01=0x0050, text=»TCT01 EQU 0 «, t00=0x0009, t01=0x0170}
0x0f8c…0fa8 Head {h00=0x0018, h01=0x0050, text=»PRINTER EQU TCT01+2 «, t00=0x0009, t01=0x0184}
0x0fa8…0fd4 Head {h00=0x0028, h01=0x0050, text=»BVDU EQU PRINTER+2 VDU SCREEN BUFFER«, t00=0x000a, t01=0x0010}
0x0fd4…1008 Head {h00=0x0030, h01=0x0050, text=»PCURS EQU BVDU+1920 CURSOR ADDRESS , BINARY «, t00=0x000a, t01=0x003c}
0x1008…1036 Head {h00=0x002a, h01=0x0050, text=»ATTRIB EQU PCURS+2 LAST ATTRIBUTE CHAR«, t00=0x000a, t01=0x0070}
0x1036…1052 Head {h00=0x0018, h01=0x0050, text=»CURATT EQU ATTRIB+2 «, t00=0x000a, t01=0x009e}
0x1052…107c Head {h00=0x0026, h01=0x0050, text=»WCC EQU CURATT+2 WCC/CCC CHARACTER«, t00=0x000a, t01=0x00ba}
0x107c…10ae Head {h00=0x002e, h01=0x0050, text=»KBINH EQU WCC+2 KEYBOARD INHIBIT INDICATOR«, t00=0x000a, t01=0x00e4}
0x10ae…10d6 Head {h00=0x0024, h01=0x0050, text=»LINCNT EQU KBINH+2 LINE COUNTER «, t00=0x000a, t01=0x0116}
0x10d6…110a Head {h00=0x0030, h01=0x0050, text=»DCLENG EQU LINCNT+2 DC READ EFFECTIVE LENGTH«, t00=0x000a, t01=0x013e}
0x110a…1140 Head {h00=0x0032, h01=0x0050, text=»ICWORK EQU DCLENG+2 WORK FIELD INTERTASK COMM «, t00=0x000a, t01=0x0172}
0x1140…1170 Head {h00=0x002c, h01=0x0050, text=»INTATT EQU ICWORK+2 INTENSITY ATTRIBUTE «, t00=0x000b, t01=0x0018}
0x1170…1198 Head {h00=0x0024, h01=0x0050, text=»OFFFLG EQU INTATT+2 OFFLINE FLAG«, t00=0x000b, t01=0x0048}
0x1198…11c4 Head {h00=0x0028, h01=0x0050, text=»COPNO EQU OFFFLG+2 HARDCOPY TASK ID «, t00=0x000b, t01=0x0070}
0x11c4…11f2 Head {h00=0x002a, h01=0x0050, text=»CCC EQU COPNO+2 COPY COMMAND CHARACTER«, t00=0x000b, t01=0x009c}
0x11f2…1214 Head {h00=0x001e, h01=0x0050, text=»MAIN EQU CCC+2 MAIN FRAME «, t00=0x000b, t01=0x00ca}
0x1214…123e Head {h00=0x0026, h01=0x0050, text=»MODE EQU MAIN+2 INSERT MODE SWITCH«, t00=0x000b, t01=0x00ec}
0x123e…1266 Head {h00=0x0024, h01=0x0050, text=»KEYS EQU MODE+2 KEY LOCK STATUS «, t00=0x000b, t01=0x0116}
0x1266…1298 Head {h00=0x002e, h01=0x0050, text=»ECBDCC EQU KEYS+2 ECB ADDRESS LAST READ DC«, t00=0x000b, t01=0x013e}
0x1298…12ce Head {h00=0x0032, h01=0x0050, text=»ECBBLK EQU ECBDCC+2 ECBS FOR MULTIPLE WAIT &C «, t00=0x000b, t01=0x0170}
0x12ce…1306 Head {h00=0x0034, h01=0x0050, text=»RDMORE EQU ECBBLK+10 BRANCH ADDRESS NEXT READ KB«, t00=0x000c, t01=0x0016}
0x1306…1340 Head {h00=0x0036, h01=0x0050, text=»RDMYRC EQU RDMORE+4 READ MODIFIED RETRURN CODE DK7«, t00=0x000c, t01=0x004e}
0x1340…134a Head {h00=0x0006, h01=0x0050, text=» «, t00=0x000c, t01=0x0088}
0x134a…1352 Head {h00=0x0004, h01=0x0050, t00=0x000c, t01=0x0092}
0x1352…135c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x009a}
0x135c…1366 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x00a4}
0x1366…1394 Head {h00=0x002a, h01=0x0050, text=»LBVDU EQU 1920 1920 CHARACTER DISPLAY «, t00=0x000c, t01=0x00ae}
0x1394…13ba Head {h00=0x0022, h01=0x0050, text=»LPAGE EQU 48 LINES ON ONE PAGE«, t00=0x000c, t01=0x00dc}
0x13ba…13e8 Head {h00=0x002a, h01=0x0050, text=»LLINE EQU 80 80 CHAR PER DISPLAY LINE «, t00=0x000c, t01=0x0102}
0x13e8…141a Head {h00=0x002e, h01=0x0050, text=»TID EQU -4 TASK IDENTITY T:A DISPLACEMENT «, t00=0x000c, t01=0x0130}
0x141a…1424 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x0162}
0x1424…144e Head {h00=0x0026, h01=0x0050, text=»* CONFIG DATA 'CB1' REL ADDRESSES «, t00=0x000c, t01=0x016c}
0x144e…1458 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x0008}
0x1458…147e Head {h00=0x0022, h01=0x0050, text=»NBRKBV EQU 0 NUMBER OF KB/VDUS«, t00=0x000d, t01=0x0012}
0x147e…14a8 Head {h00=0x0026, h01=0x0050, text=»NBRGTP EQU NBRKBV+2 NUMBER OF GTPS«, t00=0x000d, t01=0x0038}
0x14a8…14b2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x0062}
0x14b2…14e8 Head {h00=0x0032, h01=0x0050, text=»MF1KBV EQU NBRGTP+2 DV ADDRESSES KB/VDU MF #1 «, t00=0x000d, t01=0x006c}
0x14e8…151e Head {h00=0x0032, h01=0x0050, text=»MF1GTP EQU MF1KBV+16 DV ADDRESSES GTPS MF # 1 «, t00=0x000d, t01=0x00a2}
0x151e…1532 Head {h00=0x0010, h01=0x0050, text=» IFT DCLIN=2«, t00=0x000d, t01=0x00d8}
0x1532…154e Head {h00=0x0018, h01=0x0050, text=»MF2KBV EQU MF1GTP+16«, t00=0x000d, t01=0x00ec}
0x154e…156a Head {h00=0x0018, h01=0x0050, text=»MF2GTP EQU MF2KBV+16«, t00=0x000d, t01=0x0108}
0x156a…1576 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x000d, t01=0x0124}
0x1576…1580 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x0130}
0x1580…1588 Head {h00=0x0004, h01=0x0050, t00=0x000d, t01=0x013a}
0x1588…1592 Head {h00=0x0006, h01=0x0050, text=» «, t00=0x000d, t01=0x0142}
0x1592…15da Head {h00=0x0044, h01=0x0050, text=»****************************************************************«, t00=0x000d, t01=0x014c}
0x15da…15e4 (14, 0, 400) Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x0004}
0x15e4…15fc Head {h00=0x0014, h01=0x0050, text=»* INPUT FROM DC «, t00=0x000e, t01=0x000e}
0x15fc…1606 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x0026}
0x1606…1642 Head {h00=0x0038, h01=0x0050, text=»****************************************************«, t00=0x000e, t01=0x0030}
0x1642…164c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x006c}
0x164c…166c Head {h00=0x001c, h01=0x0050, text=»* RELATIVE POS IN ECBBLK«, t00=0x000e, t01=0x0076}
0x166c…167c Head {h00=0x000c, h01=0x0050, text=»KB EQU 2«, t00=0x000e, t01=0x0096}
0x167c…168e Head {h00=0x000e, h01=0x0050, text=»DC1 EQU 4 «, t00=0x000e, t01=0x00a6}
0x168e…16a0 Head {h00=0x000e, h01=0x0050, text=»DC2 EQU 6 «, t00=0x000e, t01=0x00b8}
0x16a0…16aa Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x00ca}
0x16aa…16be Head {h00=0x0010, h01=0x0050, text=»DCINP EQU * «, t00=0x000e, t01=0x00d4}
0x16be…16ea Head {h00=0x0028, h01=0x0050, text=» LD A8,ECBDCC,TCABAS GET THE ECB CK7«, t00=0x000e, t01=0x00e8}
0x16ea…1718 Head {h00=0x002a, h01=0x0050, text=» LD A1,ECBRC,A8 READ-MOD RECEIVED? DK7«, t00=0x000e, t01=0x0114}
0x1718…1734 Head {h00=0x0018, h01=0x0050, text=» ANKL A1,/4000 DK7 «, t00=0x000e, t01=0x0142}
0x1734…1762 Head {h00=0x002a, h01=0x0050, text=» RF(Z) DCIN20 NO,PROCESS NORMALLY DK7 «, t00=0x000e, t01=0x015e}
0x1762…179c Head {h00=0x0036, h01=0x0050, text=» ST A1,RDMYRC,TCABAS SAVE RET.CODE FOR DCWRITE DK7«, t00=0x000e, t01=0x018c}
0x179c…17cc Head {h00=0x002c, h01=0x0050, text=» CF A14,READMY YES,FAKE AN ENTER KEY DK7«, t00=0x000f, t01=0x0036}
0x17cc…17f8 Head {h00=0x0028, h01=0x0050, text=» RTN A14 GO ON BACK TO BUSINESS DK7 «, t00=0x000f, t01=0x0066}
0x17f8…1812 Head {h00=0x0016, h01=0x0050, text=»DCIN20 EQU * DK7 «, t00=0x000f, t01=0x0092}
0x1812…183c Head {h00=0x0026, h01=0x0050, text=» CF A14,GTRBUF GET RECEIVE BUFFER «, t00=0x000f, t01=0x00ac}
0x183c…1858 Head {h00=0x0018, h01=0x0050, text=» LD A8,ECBDCC,TCABAS«, t00=0x000f, t01=0x00d6}
0x1858…187c Head {h00=0x0020, h01=0x0050, text=» CF A14,DCGETM READ MESSAGE «, t00=0x000f, t01=0x00f2}
0x187c…1890 Head {h00=0x0010, h01=0x0050, text=» IFF DCLIN=2«, t00=0x000f, t01=0x0116}
0x1890…18ae Head {h00=0x001a, h01=0x0050, text=» CM ECBBLK+DC1,TCABAS «, t00=0x000f, t01=0x012a}
0x18ae…18ba Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x000f, t01=0x0148}
0x18ba…18ce Head {h00=0x0010, h01=0x0050, text=» IFT DCLIN=2«, t00=0x000f, t01=0x0154}
0x18ce…18e8 Head {h00=0x0016, h01=0x0050, text=» LD A1,MAIN,TCABAS«, t00=0x000f, t01=0x0168}
0x18e8…1908 Head {h00=0x001c, h01=0x0050, text=» CW A8,ECBBLK+DC2,TCABAS«, t00=0x000f, t01=0x0182}
0x1908…1924 Head {h00=0x0018, h01=0x0050, text=» RF(E) DCIN20 MF # 2«, t00=0x0010, t01=0x0012}
0x1924…1942 Head {h00=0x001a, h01=0x0050, text=» CM ECBBLK+DC1,TCABAS «, t00=0x0010, t01=0x002e}
0x1942…1954 Head {h00=0x000e, h01=0x0050, text=» LDR A1,A1«, t00=0x0010, t01=0x004c}
0x1954…1974 Head {h00=0x001c, h01=0x0050, text=» RF(NZ) DCIN90 WRONG MF «, t00=0x0010, t01=0x005e}
0x1974…1986 Head {h00=0x000e, h01=0x0050, text=» RF DCIN30«, t00=0x0010, t01=0x007e}
0x1986…199a Head {h00=0x0010, h01=0x0050, text=»DCIN20 EQU *«, t00=0x0010, t01=0x0090}
0x199a…19b8 Head {h00=0x001a, h01=0x0050, text=» CM ECBBLK+DC2,TCABAS «, t00=0x0010, t01=0x00a4}
0x19b8…19ca Head {h00=0x000e, h01=0x0050, text=» LDR A1,A1«, t00=0x0010, t01=0x00c2}
0x19ca…19e8 Head {h00=0x001a, h01=0x0050, text=» RF(Z) DCIN90 WRONG MF«, t00=0x0010, t01=0x00d4}
0x19e8…19f4 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0010, t01=0x00f2}
0x19f4…1a08 Head {h00=0x0010, h01=0x0050, text=»DCIN30 EQU *«, t00=0x0010, t01=0x00fe}
0x1a08…1a1c Head {h00=0x0010, h01=0x0050, text=» IFT OFLIN=1«, t00=0x0010, t01=0x0112}
0x1a1c…1a38 Head {h00=0x0018, h01=0x0050, text=» LD A1,OFFFLG,TCABAS«, t00=0x0010, t01=0x0126}
0x1a38…1a4e Head {h00=0x0012, h01=0x0050, text=» RF(NZ) DCIN90«, t00=0x0010, t01=0x0142}
0x1a4e…1a5a Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0010, t01=0x0158}
0x1a5a…1a86 Head {h00=0x0028, h01=0x0050, text=» LD A1,ECBEL,A8 EFFECTIVE DC-LENGTH «, t00=0x0010, t01=0x0164}
0x1a86…1aa2 Head {h00=0x0018, h01=0x0050, text=» ST A1,DCLENG,TCABAS«, t00=0x0010, t01=0x0190}
0x1aa2…1aaa Head {h00=0x0004, h01=0x0050, t00=0x0011, t01=0x001c}
0x1aaa…1ab2 Head {h00=0x0004, h01=0x0050, t00=0x0011, t01=0x0024}
0x1ab2…1ace Head {h00=0x0018, h01=0x0050, text=» LD A5,KBINH,TCABAS «, t00=0x0011, t01=0x002c}
0x1ace…1b00 Head {h00=0x002e, h01=0x0050, text=» ORK A5,3 BIT 14,15:= 1. TOTALLY DISABLED «, t00=0x0011, t01=0x0048}
0x1b00…1b32 Head {h00=0x002e, h01=0x0050, text=»* KEYBOARD. BIT 15 = 0 AFTER DISPLAYING.«, t00=0x0011, t01=0x007a}
0x1b32…1b4e Head {h00=0x0018, h01=0x0050, text=» ST A5,KBINH,TCABAS «, t00=0x0011, t01=0x00ac}
0x1b4e…1b80 Head {h00=0x002e, h01=0x0050, text=» CF A14,LINHON TURN ON 'KEYBOARD INHIBIT' «, t00=0x0011, t01=0x00c8}
0x1b80…1bb2 Head {h00=0x002e, h01=0x0050, text=» CF A14,LSAVON TURN ON "SYSTEM AVAILABLE" «, t00=0x0011, t01=0x00fa}
0x1bb2…1bc8 Head {h00=0x0012, h01=0x0050, text=» CF A14,UPDATE«, t00=0x0011, t01=0x012c}
0x1bc8…1bde Head {h00=0x0012, h01=0x0050, text=» CF A14,DISPL «, t00=0x0011, t01=0x0142}
0x1bde…1bfa Head {h00=0x0018, h01=0x0050, text=» LD A2,PCURS,TCABAS «, t00=0x0011, t01=0x0158}
0x1bfa…1c10 Head {h00=0x0012, h01=0x0050, text=» CF A14,ATMASB«, t00=0x0011, t01=0x0174}
0x1c10…1c18 Head {h00=0x0004, h01=0x0050, t00=0x0011, t01=0x018a}
0x1c18…1c20 (18, 0, 400) Head {h00=0x0004, h01=0x0050, t00=0x0012, t01=0x0004}
0x1c20…1c2a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x000c}
0x1c2a…1c46 Head {h00=0x0018, h01=0x0050, text=» LD A2,KBINH,TCABAS «, t00=0x0012, t01=0x0016}
0x1c46…1c64 Head {h00=0x001a, h01=0x0050, text=» ANK A2,1 BIT 15 = 0? «, t00=0x0012, t01=0x0032}
0x1c64…1c7a Head {h00=0x0012, h01=0x0050, text=» RF(Z) DCIN60 «, t00=0x0012, t01=0x0050}
0x1c7a…1c96 Head {h00=0x0018, h01=0x0050, text=» LD A2,KBINH,TCABAS «, t00=0x0012, t01=0x0066}
0x1c96…1cc8 Head {h00=0x002e, h01=0x0050, text=» ANK A2,/E BIT 15:=0 KEYBOARD NOT TOTALLY «, t00=0x0012, t01=0x0082}
0x1cc8…1ce8 Head {h00=0x001c, h01=0x0050, text=»* INHIBITED ANY LONGER«, t00=0x0012, t01=0x00b4}
0x1ce8…1d04 Head {h00=0x0018, h01=0x0050, text=» ST A2,KBINH,TCABAS «, t00=0x0012, t01=0x00d4}
0x1d04…1d1e Head {h00=0x0016, h01=0x0050, text=» LD A2,WCC,TCABAS «, t00=0x0012, t01=0x00f0}
0x1d1e…1d30 Head {h00=0x000e, h01=0x0050, text=» ANK A2,2 «, t00=0x0012, t01=0x010a}
0x1d30…1d46 Head {h00=0x0012, h01=0x0050, text=» RF(Z) DCIN95 «, t00=0x0012, t01=0x011c}
0x1d46…1d5a Head {h00=0x0010, h01=0x0050, text=»DCIN60 EQU *«, t00=0x0012, t01=0x0132}
0x1d5a…1d8c Head {h00=0x002e, h01=0x0050, text=» CF A14,LINHOF TURN OFF 'KEYBOARD INHIBIT'«, t00=0x0012, t01=0x0146}
0x1d8c…1da8 Head {h00=0x0018, h01=0x0050, text=» LD A2,KBINH,TCABAS «, t00=0x0012, t01=0x0178}
0x1da8…1dd8 (19, 0, 400) Head {h00=0x002c, h01=0x0050, text=» ANK A2,4 BITS 14,15:=0 RESTORE KEYBOARD«, t00=0x0013, t01=0x0004}
0x1dd8…1df4 Head {h00=0x0018, h01=0x0050, text=» ST A2,KBINH,TCABAS «, t00=0x0013, t01=0x0034}
0x1df4…1e06 Head {h00=0x000e, h01=0x0050, text=» RF DCIN95«, t00=0x0013, t01=0x0050}
0x1e06…1e1a Head {h00=0x0010, h01=0x0050, text=»DCIN90 EQU *«, t00=0x0013, t01=0x0062}
0x1e1a…1e36 Head {h00=0x0018, h01=0x0050, text=» LD A8,ECBDCC,TCABAS«, t00=0x0013, t01=0x0076}
0x1e36…1e4e Head {h00=0x0014, h01=0x0050, text=» LD A4,ECBBA,A8 «, t00=0x0013, t01=0x0092}
0x1e4e…1e64 Head {h00=0x0012, h01=0x0050, text=» CF A14,RLRBUF«, t00=0x0013, t01=0x00aa}
0x1e64…1e78 Head {h00=0x0010, h01=0x0050, text=»DCIN95 EQU *«, t00=0x0013, t01=0x00c0}
0x1e78…1e8e Head {h00=0x0012, h01=0x0050, text=» CF A14,SNBUSY«, t00=0x0013, t01=0x00d4}
0x1e8e…1e9e Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0013, t01=0x00ea}
0x1e9e…1ea8 Head {h00=0x0006, h01=0x0050, text=» «, t00=0x0013, t01=0x00fa}
0x1ea8…1eb2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x0104}
0x1eb2…1ec4 Head {h00=0x000e, h01=0x0050, text=»* READ DC «, t00=0x0013, t01=0x010e}
0x1ec4…1ece Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x0120}
0x1ece…1ee2 Head {h00=0x0010, h01=0x0050, text=»DCGETM EQU *«, t00=0x0013, t01=0x012a}
0x1ee2…1ef4 Head {h00=0x000e, h01=0x0050, text=» LDK A1,0 «, t00=0x0013, t01=0x013e}
0x1ef4…1f0a Head {h00=0x0012, h01=0x0050, text=» CF A14,REQTIM«, t00=0x0013, t01=0x0150}
0x1f0a…1f28 Head {h00=0x001a, h01=0x0050, text=» LDK A7,/82 READ, WAIT«, t00=0x0013, t01=0x0166}
0x1f28…1f54 Head {h00=0x0028, h01=0x0050, text=» CM ECBCW,A8 NO TIME OUT SUPERVISION«, t00=0x0013, t01=0x0184}
0x1f54…1f70 Head {h00=0x0018, h01=0x0050, text=» LDKL A1,RBUFL+RBUFL«, t00=0x0014, t01=0x0020}
0x1f70…1f92 Head {h00=0x001e, h01=0x0050, text=» ST A1,ECBRL,A8 REQ LENGTH«, t00=0x0014, t01=0x003c}
0x1f92…1faa Head {h00=0x0014, h01=0x0050, text=» ST A4,ECBBA,A8 «, t00=0x0014, t01=0x005e}
0x1faa…1fb6 Head {h00=0x0008, h01=0x0050, text=» LKM«, t00=0x0014, t01=0x0076}
0x1fb6…1fc6 Head {h00=0x000c, h01=0x0050, text=» DATA 1 «, t00=0x0014, t01=0x0082}
0x1fc6…1fd6 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0014, t01=0x0092}
0x1fd6…1fe0 Head {h00=0x0006, h01=0x0050, text=» «, t00=0x0014, t01=0x00a2}
0x1fe0…2022 Head {h00=0x003e, h01=0x0050, text=»**********************************************************«, t00=0x0014, t01=0x00ac}
0x2022…202c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x00ee}
0x202c…2046 Head {h00=0x0016, h01=0x0050, text=»* BUFFER HANDLING «, t00=0x0014, t01=0x00f8}
0x2046…2050 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x0112}
0x2050…2092 Head {h00=0x003e, h01=0x0050, text=»**********************************************************«, t00=0x0014, t01=0x011c}
0x2092…209c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x015e}
0x209c…20bc Head {h00=0x001c, h01=0x0050, text=»RLINK EQU RBUFL+RBUFL+2 «, t00=0x0014, t01=0x0168}
0x20bc…20c6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x0188}
0x20c6…20d8 (21, 0, 400) Head {h00=0x000e, h01=0x0050, text=»RBUF EQU *«, t00=0x0015, t01=0x0004}
0x20d8…20fc Head {h00=0x0020, h01=0x0050, text=» DATA *+2 POINTER FIRST FREE«, t00=0x0015, t01=0x0016}
0x20fc…2112 Head {h00=0x0012, h01=0x0050, text=» IFF RBUFNR=1 «, t00=0x0015, t01=0x003a}
0x2112…2128 Head {h00=0x0012, h01=0x0050, text=» DATA *+RLINK «, t00=0x0015, t01=0x0050}
0x2128…213a Head {h00=0x000e, h01=0x0050, text=» RES RBUFL«, t00=0x0015, t01=0x0066}
0x213a…2150 Head {h00=0x0012, h01=0x0050, text=» IFF RBUFNR=2 «, t00=0x0015, t01=0x0078}
0x2150…2166 Head {h00=0x0012, h01=0x0050, text=» DATA *+RLINK «, t00=0x0015, t01=0x008e}
0x2166…2178 Head {h00=0x000e, h01=0x0050, text=» RES RBUFL«, t00=0x0015, t01=0x00a4}
0x2178…218e Head {h00=0x0012, h01=0x0050, text=» IFF RBUFNR=3 «, t00=0x0015, t01=0x00b6}
0x218e…21a4 Head {h00=0x0012, h01=0x0050, text=» DATA *+RLINK «, t00=0x0015, t01=0x00cc}
0x21a4…21b6 Head {h00=0x000e, h01=0x0050, text=» RES RBUFL«, t00=0x0015, t01=0x00e2}
0x21b6…21cc Head {h00=0x0012, h01=0x0050, text=» IFF RBUFNR=4 «, t00=0x0015, t01=0x00f4}
0x21cc…21e2 Head {h00=0x0012, h01=0x0050, text=» DATA *+RLINK «, t00=0x0015, t01=0x010a}
0x21e2…21f4 Head {h00=0x000e, h01=0x0050, text=» RES RBUFL«, t00=0x0015, t01=0x0120}
0x21f4…2200 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0015, t01=0x0132}
0x2200…221c Head {h00=0x0018, h01=0x0050, text=» DATA 0 END OF CHAIN«, t00=0x0015, t01=0x013e}
0x221c…222e Head {h00=0x000e, h01=0x0050, text=» RES RBUFL«, t00=0x0015, t01=0x015a}
0x222e…2238 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x016c}
0x2238…2242 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x0176}
0x2242…2262 Head {h00=0x001c, h01=0x0050, text=»TLINK EQU TBUFL+TBUFL+2 «, t00=0x0015, t01=0x0180}
0x2262…226c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0016, t01=0x0010}
0x226c…227e Head {h00=0x000e, h01=0x0050, text=»TBUF EQU *«, t00=0x0016, t01=0x001a}
0x227e…22a2 Head {h00=0x0020, h01=0x0050, text=» DATA *+2 POINTER FIRST FREE«, t00=0x0016, t01=0x002c}
0x22a2…22b8 Head {h00=0x0012, h01=0x0050, text=» IFF TBUFNR=1 «, t00=0x0016, t01=0x0050}
0x22b8…22ce Head {h00=0x0012, h01=0x0050, text=» DATA *+TLINK «, t00=0x0016, t01=0x0066}
0x22ce…22e0 Head {h00=0x000e, h01=0x0050, text=» RES TBUFL«, t00=0x0016, t01=0x007c}
0x22e0…22f6 Head {h00=0x0012, h01=0x0050, text=» IFF TBUFNR=2 «, t00=0x0016, t01=0x008e}
0x22f6…230c Head {h00=0x0012, h01=0x0050, text=» DATA *+TLINK «, t00=0x0016, t01=0x00a4}
0x230c…231e Head {h00=0x000e, h01=0x0050, text=» RES TBUFL«, t00=0x0016, t01=0x00ba}
0x231e…2334 Head {h00=0x0012, h01=0x0050, text=» IFF TBUFNR=3 «, t00=0x0016, t01=0x00cc}
0x2334…234a Head {h00=0x0012, h01=0x0050, text=» DATA *+TLINK «, t00=0x0016, t01=0x00e2}
0x234a…235c Head {h00=0x000e, h01=0x0050, text=» RES TBUFL«, t00=0x0016, t01=0x00f8}
0x235c…2372 Head {h00=0x0012, h01=0x0050, text=» IFF TBUFNR=4 «, t00=0x0016, t01=0x010a}
0x2372…2388 Head {h00=0x0012, h01=0x0050, text=» DATA *+TLINK «, t00=0x0016, t01=0x0120}
0x2388…239a Head {h00=0x000e, h01=0x0050, text=» RES TBUFL«, t00=0x0016, t01=0x0136}
0x239a…23a6 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0016, t01=0x0148}
0x23a6…23c2 Head {h00=0x0018, h01=0x0050, text=» DATA 0 END OF CHAIN«, t00=0x0016, t01=0x0154}
0x23c2…23d4 Head {h00=0x000e, h01=0x0050, text=» RES TBUFL«, t00=0x0016, t01=0x0170}
0x23d4…23de Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0016, t01=0x0182}
0x23de…23e8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0016, t01=0x018c}
0x23e8…2402 Head {h00=0x0016, h01=0x0050, text=»* GET WRITE BUFFER«, t00=0x0017, t01=0x0008}
0x2402…240c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0017, t01=0x0022}
0x240c…2420 Head {h00=0x0010, h01=0x0050, text=»GTWBUF EQU *«, t00=0x0017, t01=0x002c}
0x2420…2436 Head {h00=0x0012, h01=0x0050, text=» LDKL A5,TBUF «, t00=0x0017, t01=0x0040}
0x2436…244c Head {h00=0x0012, h01=0x0050, text=» CF A14,GETBUF«, t00=0x0017, t01=0x0056}
0x244c…245e Head {h00=0x000e, h01=0x0050, text=» LDR A7,A4«, t00=0x0017, t01=0x006c}
0x245e…2472 Head {h00=0x0010, h01=0x0050, text=» LDR A12,A4 «, t00=0x0017, t01=0x007e}
0x2472…2488 Head {h00=0x0012, h01=0x0050, text=» ADK A7,2 SKIP«, t00=0x0017, t01=0x0092}
0x2488…24ac Head {h00=0x0020, h01=0x0050, text=» LDKL A9,2 FOR DV ADDRESS «, t00=0x0017, t01=0x00a8}
0x24ac…24bc Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0017, t01=0x00cc}
0x24bc…24c6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0017, t01=0x00dc}
0x24c6…24e2 Head {h00=0x0018, h01=0x0050, text=»* GET RECEIVE BUFFER«, t00=0x0017, t01=0x00e6}
0x24e2…24ec Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0017, t01=0x0102}
0x24ec…2500 Head {h00=0x0010, h01=0x0050, text=»GTRBUF EQU *«, t00=0x0017, t01=0x010c}
0x2500…2516 Head {h00=0x0012, h01=0x0050, text=» LDKL A5,RBUF «, t00=0x0017, t01=0x0120}
0x2516…2520 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0017, t01=0x0136}
0x2520…252a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0017, t01=0x0140}
0x252a…253e Head {h00=0x0010, h01=0x0050, text=»GETBUF EQU *«, t00=0x0017, t01=0x014a}
0x253e…2552 Head {h00=0x0010, h01=0x0050, text=» LDR* A4,A5 «, t00=0x0017, t01=0x015e}
0x2552…2576 Head {h00=0x0020, h01=0x0050, text=» RF(Z) GETB50 NO BUFFER FREE«, t00=0x0017, t01=0x0172}
0x2576…258a Head {h00=0x0010, h01=0x0050, text=» LDR* A3,A4 «, t00=0x0018, t01=0x0008}
0x258a…259c Head {h00=0x000e, h01=0x0050, text=» STR A3,A5«, t00=0x0018, t01=0x001c}
0x259c…25b8 Head {h00=0x0018, h01=0x0050, text=» ADK A4,2 SKIP LINK «, t00=0x0018, t01=0x002e}
0x25b8…25c8 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0018, t01=0x004a}
0x25c8…25dc Head {h00=0x0010, h01=0x0050, text=»GETB50 EQU *«, t00=0x0018, t01=0x005a}
0x25dc…25e8 Head {h00=0x0008, h01=0x0050, text=» LKM«, t00=0x0018, t01=0x006e}
0x25e8…2604 Head {h00=0x0018, h01=0x0050, text=» DATA 0 SWITCH TASK «, t00=0x0018, t01=0x007a}
0x2604…2616 Head {h00=0x000e, h01=0x0050, text=» RB GETBUF«, t00=0x0018, t01=0x0096}
0x2616…2620 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0018, t01=0x00a8}
0x2620…2638 Head {h00=0x0014, h01=0x0050, text=»* RELEASE BUFFER«, t00=0x0018, t01=0x00b2}
0x2638…2642 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0018, t01=0x00ca}
0x2642…2656 Head {h00=0x0010, h01=0x0050, text=»RLRBUF EQU *«, t00=0x0018, t01=0x00d4}
0x2656…266c Head {h00=0x0012, h01=0x0050, text=» LDKL A2,RBUF «, t00=0x0018, t01=0x00e8}
0x266c…2680 Head {h00=0x0010, h01=0x0050, text=»RELB05 EQU *«, t00=0x0018, t01=0x00fe}
0x2680…26a0 Head {h00=0x001c, h01=0x0050, text=» SUK A4,2 POINT TO LINK «, t00=0x0018, t01=0x0112}
0x26a0…26b4 Head {h00=0x0010, h01=0x0050, text=»RELB10 EQU *«, t00=0x0018, t01=0x0132}
0x26b4…26c8 Head {h00=0x0010, h01=0x0050, text=» LDR* A3,A2 «, t00=0x0018, t01=0x0146}
0x26c8…26de Head {h00=0x0012, h01=0x0050, text=» RF(Z) RELB20 «, t00=0x0018, t01=0x015a}
0x26de…26f0 Head {h00=0x000e, h01=0x0050, text=» LDR A2,A3«, t00=0x0018, t01=0x0170}
0x26f0…2702 Head {h00=0x000e, h01=0x0050, text=» RB RELB10«, t00=0x0018, t01=0x0182}
0x2702…2716 (25, 0, 400) Head {h00=0x0010, h01=0x0050, text=»RELB20 EQU *«, t00=0x0019, t01=0x0004}
0x2716…2728 Head {h00=0x000e, h01=0x0050, text=» STR A4,A2«, t00=0x0019, t01=0x0018}
0x2728…2738 Head {h00=0x000c, h01=0x0050, text=» CMR A4 «, t00=0x0019, t01=0x002a}
0x2738…2748 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0019, t01=0x003a}
0x2748…2752 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0019, t01=0x004a}
0x2752…2766 Head {h00=0x0010, h01=0x0050, text=»RLWBUF EQU *«, t00=0x0019, t01=0x0054}
0x2766…277c Head {h00=0x0012, h01=0x0050, text=» LDKL A2,TBUF «, t00=0x0019, t01=0x0068}
0x277c…278e Head {h00=0x000e, h01=0x0050, text=» RB RELB05«, t00=0x0019, t01=0x007e}
0x278e…2798 Head {h00=0x0006, h01=0x0050, text=» «, t00=0x0019, t01=0x0090}
0x2798…27a2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0019, t01=0x009a}
0x27a2…27ac Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0019, t01=0x00a4}
0x27ac…27d2 Head {h00=0x0022, h01=0x0050, text=»* STORE CHARACTER IN DC BUFFER«, t00=0x0019, t01=0x00ae}
0x27d2…27dc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0019, t01=0x00d4}
0x27dc…27ee Head {h00=0x000e, h01=0x0050, text=»* A2=CHAR «, t00=0x0019, t01=0x00de}
0x27ee…280a Head {h00=0x0018, h01=0x0050, text=»* A7=BUFFER POINTER «, t00=0x0019, t01=0x00f0}
0x280a…2830 Head {h00=0x0022, h01=0x0050, text=»* A9=BUFFER CHARACTER COUNTER «, t00=0x0019, t01=0x010c}
0x2830…283a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0019, t01=0x0132}
0x283a…2844 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0019, t01=0x013c}
0x2844…2858 Head {h00=0x0010, h01=0x0050, text=»PDCCH EQU * «, t00=0x0019, t01=0x0146}
0x2858…2878 Head {h00=0x001c, h01=0x0050, text=» CWK A9,TBUFL+TBUFL =3 «, t00=0x0019, t01=0x015a}
0x2878…2896 Head {h00=0x001a, h01=0x0050, text=» RF(G) PDCCHR OVERFLOW«, t00=0x0019, t01=0x017a}
0x2896…28a8 Head {h00=0x000e, h01=0x0050, text=» SCR A2,A7«, t00=0x001a, t01=0x0008}
0x28a8…28bc Head {h00=0x0010, h01=0x0050, text=»PDCCH1 EQU *«, t00=0x001a, t01=0x001a}
0x28bc…28ce Head {h00=0x000e, h01=0x0050, text=» ADK A7,1 «, t00=0x001a, t01=0x002e}
0x28ce…28e0 Head {h00=0x000e, h01=0x0050, text=» ADKL A9,1«, t00=0x001a, t01=0x0040}
0x28e0…28f6 Head {h00=0x0012, h01=0x0050, text=»PDCCHR RTN A14«, t00=0x001a, t01=0x0052}
0x28f6…2900 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001a, t01=0x0068}
0x2900…290a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001a, t01=0x0072}
0x290a…292e Head {h00=0x0020, h01=0x0050, text=»* STORE ATTENTION ID FROM A2«, t00=0x001a, t01=0x007c}
0x292e…2938 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001a, t01=0x00a0}
0x2938…2942 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001a, t01=0x00aa}
0x2942…295c Head {h00=0x0016, h01=0x0050, text=»PAID CF A14,PDCCH «, t00=0x001a, t01=0x00b4}
0x295c…296c Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x001a, t01=0x00ce}
0x296c…2976 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001a, t01=0x00de}
0x2976…2980 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001a, t01=0x00e8}
0x2980…29ac Head {h00=0x0028, h01=0x0050, text=»* GET CHARACTER FROM DC BUFFER TO A2«, t00=0x001a, t01=0x00f2}
0x29ac…29b6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001a, t01=0x011e}
0x29b6…29c0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001a, t01=0x0128}
0x29c0…29d8 Head {h00=0x0014, h01=0x0050, text=»GDCCH LCR A2,A7 «, t00=0x001a, t01=0x0132}
0x29d8…29ec Head {h00=0x0010, h01=0x0050, text=» ANK A2,/FF «, t00=0x001a, t01=0x014a}
0x29ec…2a16 Head {h00=0x0026, h01=0x0050, text=» RF(NZ) GDCC:1 NOT NULL CHARACTER «, t00=0x001a, t01=0x015e}
0x2a16…2a3e Head {h00=0x0024, h01=0x0050, text=» LDK A2,/7F LOAD NULL CHARACTER «, t00=0x001a, t01=0x0188}
0x2a3e…2a52 Head {h00=0x0010, h01=0x0050, text=»GDCC:1 EQU *«, t00=0x001b, t01=0x0020}
0x2a52…2a64 Head {h00=0x000e, h01=0x0050, text=» RB PDCCH1«, t00=0x001b, t01=0x0034}
0x2a64…2a6e Head {h00=0x0006, h01=0x0050, text=» «, t00=0x001b, t01=0x0046}
0x2a6e…2a78 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001b, t01=0x0050}
0x2a78…2a82 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001b, t01=0x005a}
0x2a82…2ab4 Head {h00=0x002e, h01=0x0050, text=»* GET BUFFER ADDRESS TO A1 FROM DC BUFFER «, t00=0x001b, t01=0x0064}
0x2ab4…2abe Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001b, t01=0x0096}
0x2abe…2ac8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001b, t01=0x00a0}
0x2ac8…2ae4 Head {h00=0x0018, h01=0x0050, text=»GETADR CF A14,GDCCH «, t00=0x001b, t01=0x00aa}
0x2ae4…2afc Head {h00=0x0014, h01=0x0050, text=» LC A1,TEBCDI,A2«, t00=0x001b, t01=0x00c6}
0x2afc…2b10 Head {h00=0x0010, h01=0x0050, text=» ANK A1,/3F «, t00=0x001b, t01=0x00de}
0x2b10…2b22 Head {h00=0x000e, h01=0x0050, text=» SLL A1,6 «, t00=0x001b, t01=0x00f2}
0x2b22…2b38 Head {h00=0x0012, h01=0x0050, text=» CF A14,GDCCH «, t00=0x001b, t01=0x0104}
0x2b38…2b50 Head {h00=0x0014, h01=0x0050, text=» LC A2,TEBCDI,A2«, t00=0x001b, t01=0x011a}
0x2b50…2b64 Head {h00=0x0010, h01=0x0050, text=» ANK A2,/3F «, t00=0x001b, t01=0x0132}
0x2b64…2b76 Head {h00=0x000e, h01=0x0050, text=» ORR A1,A2«, t00=0x001b, t01=0x0146}
0x2b76…2b86 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x001b, t01=0x0158}
0x2b86…2b90 Head {h00=0x0006, h01=0x0050, text=» «, t00=0x001b, t01=0x0168}
0x2b90…2b9a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001b, t01=0x0172}
0x2b9a…2ba4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001b, t01=0x017c}
0x2ba4…2bca Head {h00=0x0022, h01=0x0050, text=»* WRITE MESSAGE TO MAIN FRAME «, t00=0x001b, t01=0x0186}
0x2bca…2bd4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001c, t01=0x001c}
0x2bd4…2bfe Head {h00=0x0026, h01=0x0050, text=»* ON EXIT A1 CONTAINS RETURN CODE «, t00=0x001c, t01=0x0026}
0x2bfe…2c08 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001c, t01=0x0050}
0x2c08…2c12 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001c, t01=0x005a}
0x2c12…2c26 Head {h00=0x0010, h01=0x0050, text=»DCWRTE EQU *«, t00=0x001c, t01=0x0064}
0x2c26…2c3c Head {h00=0x0012, h01=0x0050, text=» LDKL A8,ECBDC«, t00=0x001c, t01=0x0078}
0x2c3c…2c50 Head {h00=0x0010, h01=0x0050, text=» IFT DCLIN=2«, t00=0x001c, t01=0x008e}
0x2c50…2c6a Head {h00=0x0016, h01=0x0050, text=» LD A7,MAIN,TCABAS«, t00=0x001c, t01=0x00a2}
0x2c6a…2c7e Head {h00=0x0010, h01=0x0050, text=» RF(Z) DC050«, t00=0x001c, t01=0x00bc}
0x2c7e…2c96 Head {h00=0x0014, h01=0x0050, text=» LDKL A8,ECBDC2 «, t00=0x001c, t01=0x00d0}
0x2c96…2ca2 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x001c, t01=0x00e8}
0x2ca2…2cb6 Head {h00=0x0010, h01=0x0050, text=»DC050 EQU * «, t00=0x001c, t01=0x00f4}
0x2cb6…2ccc Head {h00=0x0012, h01=0x0050, text=» ADR A8,CREBAS«, t00=0x001c, t01=0x0108}
0x2ccc…2ce2 Head {h00=0x0012, h01=0x0050, text=» LDKL A1,TIMDC«, t00=0x001c, t01=0x011e}
0x2ce2…2cf8 Head {h00=0x0012, h01=0x0050, text=» CF A14,REQTIM«, t00=0x001c, t01=0x0134}
0x2cf8…2d1a Head {h00=0x001e, h01=0x0050, text=» ST A9,ECBRL,A8 REQ LENGTH«, t00=0x001c, t01=0x014a}
0x2d1a…2d42 Head {h00=0x0024, h01=0x0050, text=» ST A12,ECBBA,A8 BUFFER ADDRESS «, t00=0x001c, t01=0x016c}
0x2d42…2d5e (29, 0, 400) Head {h00=0x0018, h01=0x0050, text=» LD A7,KBINH,TCABAS «, t00=0x001d, t01=0x0004}
0x2d5e…2d9a Head {h00=0x0038, h01=0x0050, text=» ORK A7,2 BIT 14 :=1 DISABLE KEYBOARD.RESET ALLOWED «, t00=0x001d, t01=0x0020}
0x2d9a…2db6 Head {h00=0x0018, h01=0x0050, text=» ST A7,KBINH,TCABAS «, t00=0x001d, t01=0x005c}
0x2db6…2df4 Head {h00=0x003a, h01=0x0050, text=» LD A1,RDMYRC,TCABAS SEE IF ITS A READMOD RESPONSE DK7«, t00=0x001d, t01=0x0078}
0x2df4…2e10 Head {h00=0x0018, h01=0x0050, text=» ANKL A1,/4000 DK7 «, t00=0x001d, t01=0x00b6}
0x2e10…2e3c Head {h00=0x0028, h01=0x0050, text=» RF(Z) DC070 NO, GO ON AS USUAL DK7 «, t00=0x001d, t01=0x00d2}
0x2e3c…2e6e Head {h00=0x002e, h01=0x0050, text=» CM RDMYRC,TCABAS CLEAR THE RETURNCODE DK7«, t00=0x001d, t01=0x00fe}
0x2e6e…2e96 Head {h00=0x0024, h01=0x0050, text=» LDK A7,/B3 YES, ORDER =/33 DK7 «, t00=0x001d, t01=0x0130}
0x2e96…2ec4 Head {h00=0x002a, h01=0x0050, text=» RF DC100 ISSUE READ MOD RESPONSE DK7 «, t00=0x001d, t01=0x0158}
0x2ec4…2edc Head {h00=0x0014, h01=0x0050, text=»DC070 EQU * DK7«, t00=0x001d, t01=0x0186}
0x2edc…2ef0 Head {h00=0x0010, h01=0x0050, text=» LDK A7,/86 «, t00=0x001e, t01=0x000e}
0x2ef0…2f04 Head {h00=0x0010, h01=0x0050, text=»DC100 EQU * «, t00=0x001e, t01=0x0022}
0x2f04…2f10 Head {h00=0x0008, h01=0x0050, text=» LKM«, t00=0x001e, t01=0x0036}
0x2f10…2f20 Head {h00=0x000c, h01=0x0050, text=» DATA 1 «, t00=0x001e, t01=0x0042}
0x2f20…2f34 Head {h00=0x0010, h01=0x0050, text=»DC200 EQU * «, t00=0x001e, t01=0x0052}
0x2f34…2f48 Head {h00=0x0010, h01=0x0050, text=» LDR A4,A12 «, t00=0x001e, t01=0x0066}
0x2f48…2f5e Head {h00=0x0012, h01=0x0050, text=» CF A14,RLWBUF«, t00=0x001e, t01=0x007a}
0x2f5e…2f86 Head {h00=0x0024, h01=0x0050, text=» LD A1,ECBRC,A8 GET RETURN CODE «, t00=0x001e, t01=0x0090}
0x2f86…2f9a Head {h00=0x0010, h01=0x0050, text=» RF(Z) DC300«, t00=0x001e, t01=0x00b8}
0x2f9a…2fb6 Head {h00=0x0018, h01=0x0050, text=» LD A7,KBINH,TCABAS «, t00=0x001e, t01=0x00cc}
0x2fb6…2fe2 Head {h00=0x0028, h01=0x0050, text=» ANK A7,/D BIT 14:=0 ALLIWE KEYBOARD«, t00=0x001e, t01=0x00e8}
0x2fe2…2ffe Head {h00=0x0018, h01=0x0050, text=» ST A7,KBINH,TCABAS «, t00=0x001e, t01=0x0114}
0x2ffe…3030 Head {h00=0x002e, h01=0x0050, text=» CF A14,LINHOF TURN OFF "KEYBOARD INHIBIT «, t00=0x001e, t01=0x0130}
0x3030…3062 Head {h00=0x002e, h01=0x0050, text=» CF A14,LSAVOF TURN OFF "SYSTEM AVAILABLE"«, t00=0x001e, t01=0x0162}
0x3062…306c (31, 0, 400) Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001f, t01=0x0004}
0x306c…309a Head {h00=0x002a, h01=0x0050, text=» LDK A7,/04 RESET KEYBOARD ECB BUFFER «, t00=0x001f, t01=0x000e}
0x309a…30b0 Head {h00=0x0012, h01=0x0050, text=» LDKL A8,ECBKB«, t00=0x001f, t01=0x003c}
0x30b0…30c6 Head {h00=0x0012, h01=0x0050, text=» ADR A8,CREBAS«, t00=0x001f, t01=0x0052}
0x30c6…30d2 Head {h00=0x0008, h01=0x0050, text=» LKM«, t00=0x001f, t01=0x0068}
0x30d2…30e2 Head {h00=0x000c, h01=0x0050, text=» DATA 1 «, t00=0x001f, t01=0x0074}
0x30e2…30ec Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001f, t01=0x0084}
0x30ec…30fc Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x001f, t01=0x008e}
0x30fc…3110 Head {h00=0x0010, h01=0x0050, text=»DC300 EQU * «, t00=0x001f, t01=0x009e}
0x3110…3142 Head {h00=0x002e, h01=0x0050, text=» CF A14,LSAVON TURN ON 'SYSTEM AVAILABLE' «, t00=0x001f, t01=0x00b2}
0x3142…3152 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x001f, t01=0x00e4}
0x3152…315c Head {h00=0x0006, h01=0x0050, text=» «, t00=0x001f, t01=0x00f4}
0x315c…3166 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001f, t01=0x00fe}
0x3166…3170 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001f, t01=0x0108}
0x3170…319c Head {h00=0x0028, h01=0x0050, text=»* STORE CURSOR ADDRESS IN DC BUFFER «, t00=0x001f, t01=0x0112}
0x319c…31a6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001f, t01=0x013e}
0x31a6…31b0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001f, t01=0x0148}
0x31b0…31d0 Head {h00=0x001c, h01=0x0050, text=»CURSA LD A1,PCURS,TCABAS«, t00=0x001f, t01=0x0152}
0x31d0…31e2 Head {h00=0x000e, h01=0x0050, text=» RF BUFADR«, t00=0x001f, t01=0x0172}
0x31e2…31ec Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001f, t01=0x0184}
0x31ec…31f6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001f, t01=0x018e}
0x31f6…3222 Head {h00=0x0028, h01=0x0050, text=»* STORE BUFFER ADDRESS IN DC BUFFER «, t00=0x0020, t01=0x0008}
0x3222…322c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0020, t01=0x0034}
0x322c…324e Head {h00=0x001e, h01=0x0050, text=»* A1=BINARY BUFFER ADDRESS«, t00=0x0020, t01=0x003e}
0x324e…3258 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0020, t01=0x0060}
0x3258…3262 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0020, t01=0x006a}
0x3262…327a Head {h00=0x0014, h01=0x0050, text=»BUFADR LDR A2,A1«, t00=0x0020, t01=0x0074}
0x327a…328c Head {h00=0x000e, h01=0x0050, text=» SRL A2,6 «, t00=0x0020, t01=0x008c}
0x328c…32a0 Head {h00=0x0010, h01=0x0050, text=» ANK A2,/3F «, t00=0x0020, t01=0x009e}
0x32a0…32ca Head {h00=0x0026, h01=0x0050, text=» LC A2,TASCII,A2 CONVERT TO ASCII «, t00=0x0020, t01=0x00b2}
0x32ca…32e0 Head {h00=0x0012, h01=0x0050, text=» CF A14,PDCCH «, t00=0x0020, t01=0x00dc}
0x32e0…32f2 Head {h00=0x000e, h01=0x0050, text=» LDR A2,A1«, t00=0x0020, t01=0x00f2}
0x32f2…3306 Head {h00=0x0010, h01=0x0050, text=» ANK A2,/3F «, t00=0x0020, t01=0x0104}
0x3306…331e Head {h00=0x0014, h01=0x0050, text=» LC A2,TASCII,A2«, t00=0x0020, t01=0x0118}
0x331e…3334 Head {h00=0x0012, h01=0x0050, text=» CF A14,PDCCH «, t00=0x0020, t01=0x0130}
0x3334…3344 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0020, t01=0x0146}
0x3344…334e Head {h00=0x0006, h01=0x0050, text=» «, t00=0x0020, t01=0x0156}
0x334e…3358 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0020, t01=0x0160}
0x3358…3362 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0020, t01=0x016a}
0x3362…3398 Head {h00=0x0032, h01=0x0050, text=»* GET MODIFIED DATA FROM DISPLAY IMAGE BUFFER «, t00=0x0020, t01=0x0174}
0x3398…33a2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0021, t01=0x001a}
0x33a2…33c6 Head {h00=0x0020, h01=0x0050, text=»* A3=BUFFER POSITION BINARY «, t00=0x0021, t01=0x0024}
0x33c6…33e2 Head {h00=0x0018, h01=0x0050, text=»* A4=BUFFER POINTER «, t00=0x0021, t01=0x0048}
0x33e2…33ec Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0021, t01=0x0064}
0x33ec…33f6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0021, t01=0x006e}
0x33f6…341c Head {h00=0x0022, h01=0x0050, text=»RDMOD LDK A3,0 RESET POSITION «, t00=0x0021, t01=0x0078}
0x341c…3432 Head {h00=0x0012, h01=0x0050, text=» LDKL A4,BVDU «, t00=0x0021, t01=0x009e}
0x3432…3458 Head {h00=0x0022, h01=0x0050, text=» ADR A4,TCABAS BUFFER POINTER «, t00=0x0021, t01=0x00b4}
0x3458…3482 Head {h00=0x0026, h01=0x0050, text=» ADKL A4,1919 LAST SCREEN POSITION«, t00=0x0021, t01=0x00da}
0x3482…34a2 Head {h00=0x001c, h01=0x0050, text=» LCR A2,A4 GET CHARACTER«, t00=0x0021, t01=0x0104}
0x34a2…34d4 Head {h00=0x002e, h01=0x0050, text=» LDKL A4,BVDU RELOAD FIRST BUFFER POSITION«, t00=0x0021, t01=0x0124}
0x34d4…34ea Head {h00=0x0012, h01=0x0050, text=» ADR A4,TCABAS«, t00=0x0021, t01=0x0156}
0x34ea…34f2 Head {h00=0x0004, h01=0x0050, t00=0x0021, t01=0x016c}
0x34f2…3504 Head {h00=0x000e, h01=0x0050, text=» LDR A1,A2«, t00=0x0021, t01=0x0174}
0x3504…3526 Head {h00=0x001e, h01=0x0050, text=» ANK A1,/60 ATTRIBUTE ??? «, t00=0x0021, t01=0x0186}
0x3526…3542 Head {h00=0x0018, h01=0x0050, text=» RF(Z) RD200 YES!!! «, t00=0x0022, t01=0x0018}
0x3542…354a Head {h00=0x0004, h01=0x0050, t00=0x0022, t01=0x0034}
0x354a…3564 Head {h00=0x0016, h01=0x0050, text=»RD100 CWK A3,LBVDU«, t00=0x0022, t01=0x003c}
0x3564…3588 Head {h00=0x0020, h01=0x0050, text=» RF(NL) RDMODE ALL EXAMINED «, t00=0x0022, t01=0x0056}
0x3588…35a4 Head {h00=0x0018, h01=0x0050, text=» LCR A2,A4 GET CHAR «, t00=0x0022, t01=0x007a}
0x35a4…35b6 Head {h00=0x000e, h01=0x0050, text=» ADK A3,1 «, t00=0x0022, t01=0x0096}
0x35b6…35c8 Head {h00=0x000e, h01=0x0050, text=» ADK A4,1 «, t00=0x0022, t01=0x00a8}
0x35c8…35dc Head {h00=0x0010, h01=0x0050, text=»RD105 EQU * «, t00=0x0022, t01=0x00ba}
0x35dc…35ee Head {h00=0x000e, h01=0x0050, text=» LDR A1,A2«, t00=0x0022, t01=0x00ce}
0x35ee…360e Head {h00=0x001c, h01=0x0050, text=» ANK A1,/FF CLEAN IT DK7«, t00=0x0022, t01=0x00e0}
0x360e…3634 Head {h00=0x0022, h01=0x0050, text=» CWK A1,/08 'APL' ESCAPE? DK7 «, t00=0x0022, t01=0x0100}
0x3634…365c Head {h00=0x0024, h01=0x0050, text=» RF(E) RD110 YES,SEND IT... DK7 «, t00=0x0022, t01=0x0126}
0x365c…3670 Head {h00=0x0010, h01=0x0050, text=» ANK A1,/60 «, t00=0x0022, t01=0x014e}
0x3670…3694 Head {h00=0x0020, h01=0x0050, text=» RF(Z) RD200 ATTRIBUTE CHAR «, t00=0x0022, t01=0x0162}
0x3694…36ae Head {h00=0x0016, h01=0x0050, text=»RD110 CWK A2,NULL «, t00=0x0022, t01=0x0186}
0x36ae…36d4 Head {h00=0x0022, h01=0x0050, text=» RB(E) RD100 DON'T STORE NULL «, t00=0x0023, t01=0x0010}
0x36d4…3702 Head {h00=0x002a, h01=0x0050, text=» CF A14,PDCCH STORE CHAR IN DC BUFFER «, t00=0x0023, t01=0x0036}
0x3702…3714 Head {h00=0x000e, h01=0x0050, text=» RB RD100 «, t00=0x0023, t01=0x0064}
0x3714…3738 Head {h00=0x0020, h01=0x0050, text=»RD200 ANK A2,1 CHECK MDT BIT«, t00=0x0023, t01=0x0076}
0x3738…375c Head {h00=0x0020, h01=0x0050, text=» RF(NZ) RD300 MODIFIED FIELD«, t00=0x0023, t01=0x009a}
0x375c…3776 Head {h00=0x0016, h01=0x0050, text=»RD210 CWK A3,LBVDU«, t00=0x0023, t01=0x00be}
0x3776…379a Head {h00=0x0020, h01=0x0050, text=» RF(NL) RDMODE ALL EXAMINED «, t00=0x0023, t01=0x00d8}
0x379a…37ac Head {h00=0x000e, h01=0x0050, text=» LCR A2,A4«, t00=0x0023, t01=0x00fc}
0x37ac…37be Head {h00=0x000e, h01=0x0050, text=» ADK A3,1 «, t00=0x0023, t01=0x010e}
0x37be…37d0 Head {h00=0x000e, h01=0x0050, text=» ADK A4,1 «, t00=0x0023, t01=0x0120}
0x37d0…37e2 Head {h00=0x000e, h01=0x0050, text=» LDR A1,A2«, t00=0x0023, t01=0x0132}
0x37e2…37f6 Head {h00=0x0010, h01=0x0050, text=» ANK A1,/60 «, t00=0x0023, t01=0x0144}
0x37f6…381e Head {h00=0x0024, h01=0x0050, text=» RB(NZ) RD210 NO ATTRIBUTE CHAR «, t00=0x0023, t01=0x0158}
0x381e…384c Head {h00=0x002a, h01=0x0050, text=» CWK A3,LBVDU ALL BUFFER EXAMINED ??? «, t00=0x0023, t01=0x0180}
0x384c…3868 Head {h00=0x0018, h01=0x0050, text=» RF(NL) RDMODE YES!!«, t00=0x0024, t01=0x001e}
0x3868…388a Head {h00=0x001e, h01=0x0050, text=» RB RD200 ATTRIBUTE FOUND «, t00=0x0024, t01=0x003a}
0x388a…38a2 Head {h00=0x0014, h01=0x0050, text=»RD300 LDK A2,SBA«, t00=0x0024, t01=0x005c}
0x38a2…38c8 Head {h00=0x0022, h01=0x0050, text=» CF A14,PDCCH SBA TO DC BUFFER«, t00=0x0024, t01=0x0074}
0x38c8…38ea Head {h00=0x001e, h01=0x0050, text=» LDR A1,A3 BUFFER POSITION«, t00=0x0024, t01=0x009a}
0x38ea…390e Head {h00=0x0020, h01=0x0050, text=» CF A14,BUFADR TO DC BUFFER «, t00=0x0024, t01=0x00bc}
0x390e…3920 Head {h00=0x000e, h01=0x0050, text=» RB RD100 «, t00=0x0024, t01=0x00e0}
0x3920…3936 Head {h00=0x0012, h01=0x0050, text=»RDMODE RTN A14«, t00=0x0024, t01=0x00f2}
0x3936…3940 Head {h00=0x0006, h01=0x0050, text=» «, t00=0x0024, t01=0x0108}
0x3940…394a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0024, t01=0x0112}
0x394a…3954 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0024, t01=0x011c}
0x3954…398c Head {h00=0x0034, h01=0x0050, text=»* UPDATE VIDEO DISPLAY BUFFER IMAGE BY THE DATA «, t00=0x0024, t01=0x0126}
0x398c…3996 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0024, t01=0x015e}
0x3996…39ba Head {h00=0x0020, h01=0x0050, text=»* RECEIVED FROM THE DC LINE «, t00=0x0024, t01=0x0168}
0x39ba…39c4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0024, t01=0x018c}
0x39c4…39ce Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0025, t01=0x0008}
0x39ce…39f4 Head {h00=0x0022, h01=0x0050, text=»* A7=DC RECEIVE BUFFER POINTER«, t00=0x0025, t01=0x0012}
0x39f4…3a10 Head {h00=0x0018, h01=0x0050, text=»* A8=DC ECB ADDRESS «, t00=0x0025, t01=0x0038}
0x3a10…3a3c Head {h00=0x0028, h01=0x0050, text=»* A9=DC BUFFER INDEX, INITIALLY ZERO«, t00=0x0025, t01=0x0054}
0x3a3c…3a46 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0025, t01=0x0080}
0x3a46…3a6a Head {h00=0x0020, h01=0x0050, text=»* A3=DISPLAY BUFFER POSITION«, t00=0x0025, t01=0x008a}
0x3a6a…3a8e Head {h00=0x0020, h01=0x0050, text=»* A4=DISPLAY BUFFER POINTER «, t00=0x0025, t01=0x00ae}
0x3a8e…3a98 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0025, t01=0x00d2}
0x3a98…3aa2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0025, t01=0x00dc}
0x3aa2…3ab6 Head {h00=0x0010, h01=0x0050, text=»UPDATE EQU *«, t00=0x0025, t01=0x00e6}
0x3ab6…3ad0 Head {h00=0x0016, h01=0x0050, text=» CM ICWORK,TCABAS «, t00=0x0025, t01=0x00fa}
0x3ad0…3aec Head {h00=0x0018, h01=0x0050, text=» LD A8,ECBDCC,TCABAS«, t00=0x0025, t01=0x0114}
0x3aec…3b16 Head {h00=0x0026, h01=0x0050, text=» LD A7,ECBBA,A8 DC BUFFER ADDRESS «, t00=0x0025, t01=0x0130}
0x3b16…3b3e Head {h00=0x0024, h01=0x0050, text=» SUR A9,A9 RESET DC BUFFER INDEX«, t00=0x0025, t01=0x015a}
0x3b3e…3b72 Head {h00=0x0030, h01=0x0050, text=» CF A14,GDCCH GET FIRST CHAR FROM DC BUFFER «, t00=0x0025, t01=0x0182}
0x3b72…3b96 Head {h00=0x0020, h01=0x0050, text=» CWK A2,ESC SHOULD BE ESCAPE«, t00=0x0026, t01=0x0026}
0x3b96…3bac Head {h00=0x0012, h01=0x0050, text=» RF(E) UPD050 «, t00=0x0026, t01=0x004a}
0x3bac…3bc0 Head {h00=0x0010, h01=0x0050, text=» ABL UPDEND «, t00=0x0026, t01=0x0060}
0x3bc0…3bd4 Head {h00=0x0010, h01=0x0050, text=»UPD050 EQU *«, t00=0x0026, t01=0x0074}
0x3bd4…3bfa Head {h00=0x0022, h01=0x0050, text=» CF A14,GDCCH GET COMMAND CODE«, t00=0x0026, t01=0x0088}
0x3bfa…3c0e Head {h00=0x0010, h01=0x0050, text=» CWK A2,/31 «, t00=0x0026, t01=0x00ae}
0x3c0e…3c2a Head {h00=0x0018, h01=0x0050, text=» RF(E) UPD100 WRITE «, t00=0x0026, t01=0x00c2}
0x3c2a…3c3e Head {h00=0x0010, h01=0x0050, text=» CWK A2,/35 «, t00=0x0026, t01=0x00de}
0x3c3e…3c60 Head {h00=0x001e, h01=0x0050, text=» RF(E) UPD120 ERASE/WRITE «, t00=0x0026, t01=0x00f2}
0x3c60…3c74 Head {h00=0x0010, h01=0x0050, text=» CWK A2,/3F «, t00=0x0026, t01=0x0114}
0x3c74…3ca0 Head {h00=0x0028, h01=0x0050, text=» RF(E) UPD140 ERASE ALL UNPROTECTED «, t00=0x0026, t01=0x0128}
0x3ca0…3cb6 Head {h00=0x0012, h01=0x0050, text=» IFT COPCMD=1 «, t00=0x0026, t01=0x0154}
0x3cb6…3cca Head {h00=0x0010, h01=0x0050, text=» CWK A2,/37 «, t00=0x0026, t01=0x016a}
0x3cca…3cee Head {h00=0x0020, h01=0x0050, text=» ABL(E) UPD600 COPY COMMAND «, t00=0x0026, t01=0x017e}
0x3cee…3cfa Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0027, t01=0x0012}
0x3cfa…3d22 Head {h00=0x0024, h01=0x0050, text=» RF UPDEND INVALID COMMAND CODE «, t00=0x0027, t01=0x001e}
0x3d22…3d2c Head {h00=0x0006, h01=0x0050, text=» «, t00=0x0027, t01=0x0046}
0x3d2c…3d36 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0027, t01=0x0050}
0x3d36…3d4e Head {h00=0x0014, h01=0x0050, text=»* WRITE COMMAND «, t00=0x0027, t01=0x005a}
0x3d4e…3d58 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0027, t01=0x0072}
0x3d58…3d6c Head {h00=0x0010, h01=0x0050, text=»UPD100 EQU *«, t00=0x0027, t01=0x007c}
0x3d6c…3d98 Head {h00=0x0028, h01=0x0050, text=» CF A14,PWCC PROCESS WCC FOR MDT BIT«, t00=0x0027, t01=0x0090}
0x3d98…3db4 Head {h00=0x0018, h01=0x0050, text=» LD A3,PCURS,TCABAS «, t00=0x0027, t01=0x00bc}
0x3db4…3de0 Head {h00=0x0028, h01=0x0050, text=» LDR A4,A3 START IN CURSOR POSITION «, t00=0x0027, t01=0x00d8}
0x3de0…3df6 Head {h00=0x0012, h01=0x0050, text=» ADKL A4,BVDU «, t00=0x0027, t01=0x0104}
0x3df6…3e0c Head {h00=0x0012, h01=0x0050, text=» ADR A4,TCABAS«, t00=0x0027, t01=0x011a}
0x3e0c…3e34 Head {h00=0x0024, h01=0x0050, text=» LDK A5,1 INDICATE WCC, IC OR RA«, t00=0x0027, t01=0x0130}
0x3e34…3e46 Head {h00=0x000e, h01=0x0050, text=» RF UPD220«, t00=0x0027, t01=0x0158}
0x3e46…3e50 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0027, t01=0x016a}
0x3e50…3e6e Head {h00=0x001a, h01=0x0050, text=»* ERASE/WRITE COMMAND «, t00=0x0027, t01=0x0174}
0x3e6e…3e78 (40, 0, 400) Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0028, t01=0x0004}
0x3e78…3e8c Head {h00=0x0010, h01=0x0050, text=»UPD120 EQU *«, t00=0x0028, t01=0x000e}
0x3e8c…3eae Head {h00=0x001e, h01=0x0050, text=» CF A14,ERASE ERASE SCREEN«, t00=0x0028, t01=0x0022}
0x3eae…3ec0 Head {h00=0x000e, h01=0x0050, text=» RF UPD200«, t00=0x0028, t01=0x0044}
0x3ec0…3eca Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0028, t01=0x0056}
0x3eca…3eea Head {h00=0x001c, h01=0x0050, text=»* ERASE ALL UNPROTECTED «, t00=0x0028, t01=0x0060}
0x3eea…3ef4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0028, t01=0x0080}
0x3ef4…3f08 Head {h00=0x0010, h01=0x0050, text=»UPD140 EQU *«, t00=0x0028, t01=0x008a}
0x3f08…3f34 Head {h00=0x0028, h01=0x0050, text=» CF A14,ERASUP ERASE ALL UNPROTECTED«, t00=0x0028, t01=0x009e}
0x3f34…3f60 Head {h00=0x0028, h01=0x0050, text=» RF UPDEND NO TEXT WITH THIS COMMAND«, t00=0x0028, t01=0x00ca}
0x3f60…3f6a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0028, t01=0x00f6}
0x3f6a…3f9c Head {h00=0x002e, h01=0x0050, text=»* TAKE CARE OF WRITE CONTROL CHARACTER WCC«, t00=0x0028, t01=0x0100}
0x3f9c…3fa6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0028, t01=0x0132}
0x3fa6…3fcc Head {h00=0x0022, h01=0x0050, text=»UPD200 CF A14,PWCC PROCESS WCC«, t00=0x0028, t01=0x013c}
0x3fcc…3ff4 Head {h00=0x0024, h01=0x0050, text=» LDK A5,1 INDICATE WCC, IC OR RA«, t00=0x0028, t01=0x0162}
0x3ff4…3ffe Head {h00=0x0006, h01=0x0050, text=» «, t00=0x0028, t01=0x018a}
0x3ffe…4008 (41, 0, 400) Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0029, t01=0x0004}
0x4008…4012 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0029, t01=0x000e}
0x4012…4038 Head {h00=0x0022, h01=0x0050, text=»* PROCESS DATA FROM DC BUFFER «, t00=0x0029, t01=0x0018}
0x4038…4042 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0029, t01=0x003e}
0x4042…404c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0029, t01=0x0048}
0x404c…407c Head {h00=0x002c, h01=0x0050, text=»UPD210 LDK A3,0 START FROM POSITION ZERO«, t00=0x0029, t01=0x0052}
0x407c…4092 Head {h00=0x0012, h01=0x0050, text=» LDKL A4,BVDU «, t00=0x0029, t01=0x0082}
0x4092…40a8 Head {h00=0x0012, h01=0x0050, text=» ADR A4,TCABAS«, t00=0x0029, t01=0x0098}
0x40a8…40ca Head {h00=0x001e, h01=0x0050, text=»UPD220 CW A9,DCLENG,TCABAS«, t00=0x0029, t01=0x00ae}
0x40ca…40fe Head {h00=0x0030, h01=0x0050, text=» RF(NL) UPDEND ALL RECEIVED CHARS PROCESSED «, t00=0x0029, t01=0x00d0}
0x40fe…412c Head {h00=0x002a, h01=0x0050, text=» CF A14,GDCCH GET CHAR FROM DC BUFFER «, t00=0x0029, t01=0x0104}
0x412c…4140 Head {h00=0x0010, h01=0x0050, text=» CWK A2,/20 «, t00=0x0029, t01=0x0132}
0x4140…415c Head {h00=0x0018, h01=0x0050, text=» RF(L) UPD300 ORDER «, t00=0x0029, t01=0x0146}
0x415c…4170 Head {h00=0x0010, h01=0x0050, text=»UPD230 EQU *«, t00=0x0029, t01=0x0162}
0x4170…4194 Head {h00=0x0020, h01=0x0050, text=» ORK A2,/80 SET DISPLAY BIT «, t00=0x0029, t01=0x0176}
0x4194…41a8 Head {h00=0x0010, h01=0x0050, text=»UPD240 EQU *«, t00=0x002a, t01=0x000a}
0x41a8…41d4 Head {h00=0x0028, h01=0x0050, text=» LDK A5,0 INDICATE NOT WCC, IC OR RA«, t00=0x002a, t01=0x001e}
0x41d4…41ea Head {h00=0x0012, h01=0x0050, text=» CWK A3,LBVDU «, t00=0x002a, t01=0x004a}
0x41ea…4214 Head {h00=0x0026, h01=0x0050, text=» RF(E) UPD260 END OF VIDEO BUFFER «, t00=0x002a, t01=0x0060}
0x4214…4228 Head {h00=0x0010, h01=0x0050, text=»UPD250 EQU *«, t00=0x002a, t01=0x008a}
0x4228…423e Head {h00=0x0012, h01=0x0050, text=» CCK A2,/2222 «, t00=0x002a, t01=0x009e}
0x423e…4254 Head {h00=0x0012, h01=0x0050, text=» RF(L) UPD255 «, t00=0x002a, t01=0x00b4}
0x4254…426a Head {h00=0x0012, h01=0x0050, text=» CCK A2,/2424 «, t00=0x002a, t01=0x00ca}
0x426a…4280 Head {h00=0x0012, h01=0x0050, text=» RF(G) UPD255 «, t00=0x002a, t01=0x00e0}
0x4280…4294 Head {h00=0x0010, h01=0x0050, text=» SUK A2,/20 «, t00=0x002a, t01=0x00f6}
0x4294…42ac Head {h00=0x0014, h01=0x0050, text=» LC A2,DKTAB,A2 «, t00=0x002a, t01=0x010a}
0x42ac…42be Head {h00=0x000e, h01=0x0050, text=» RF UPD255«, t00=0x002a, t01=0x0122}
0x42be…42d2 Head {h00=0x0010, h01=0x0050, text=»DKTAB EQU * «, t00=0x002a, t01=0x0134}
0x42d2…42f2 Head {h00=0x001c, h01=0x0050, text=» DATA /2000,/7B7C,/7D00 «, t00=0x002a, t01=0x0148}
0x42f2…4306 Head {h00=0x0010, h01=0x0050, text=»UPD255 EQU *«, t00=0x002a, t01=0x0168}
0x4306…432e Head {h00=0x0024, h01=0x0050, text=» SCR A2,A4 STORE IN VIDEO BUFFER«, t00=0x002a, t01=0x017c}
0x432e…4340 Head {h00=0x000e, h01=0x0050, text=» ADK A3,1 «, t00=0x002b, t01=0x0014}
0x4340…4352 Head {h00=0x000e, h01=0x0050, text=» ADK A4,1 «, t00=0x002b, t01=0x0026}
0x4352…4364 Head {h00=0x000e, h01=0x0050, text=» RB UPD220«, t00=0x002b, t01=0x0038}
0x4364…437c Head {h00=0x0014, h01=0x0050, text=»UPD260 LDK A3,0 «, t00=0x002b, t01=0x004a}
0x437c…4392 Head {h00=0x0012, h01=0x0050, text=» LDKL A4,BVDU «, t00=0x002b, t01=0x0062}
0x4392…43a8 Head {h00=0x0012, h01=0x0050, text=» ADR A4,TCABAS«, t00=0x002b, t01=0x0078}
0x43a8…43ba Head {h00=0x000e, h01=0x0050, text=» RB UPD250«, t00=0x002b, t01=0x008e}
0x43ba…43ce Head {h00=0x0010, h01=0x0050, text=»UPD300 EQU *«, t00=0x002b, t01=0x00a0}
0x43ce…43fe Head {h00=0x002c, h01=0x0050, text=» CWK A3,LBVDU END OF DISPLAY BUFFER ??? «, t00=0x002b, t01=0x00b4}
0x43fe…441a Head {h00=0x0018, h01=0x0050, text=» RF(NE) UPD302 NO!!!«, t00=0x002b, t01=0x00e4}
0x441a…4442 Head {h00=0x0024, h01=0x0050, text=» SUR A3,A3 FIRST SCREEN POSITION«, t00=0x002b, t01=0x0100}
0x4442…4458 Head {h00=0x0012, h01=0x0050, text=» LDKL A4,BVDU «, t00=0x002b, t01=0x0128}
0x4458…447e Head {h00=0x0022, h01=0x0050, text=» ADR A4,TCABAS BUFFER POSITION«, t00=0x002b, t01=0x013e}
0x447e…4492 Head {h00=0x0010, h01=0x0050, text=»UPD302 EQU *«, t00=0x002b, t01=0x0164}
0x4492…44a6 Head {h00=0x0010, h01=0x0050, text=» CWK A2,/1D «, t00=0x002b, t01=0x0178}
0x44a6…44c8 Head {h00=0x001e, h01=0x0050, text=» RF(E) UPD320 START FIELD «, t00=0x002b, t01=0x018c}
0x44c8…44dc Head {h00=0x0010, h01=0x0050, text=» CWK A2,/11 «, t00=0x002c, t01=0x001e}
0x44dc…4504 Head {h00=0x0024, h01=0x0050, text=» RF(E) UPD340 SET BUFFER ADDRESS«, t00=0x002c, t01=0x0032}
0x4504…4518 Head {h00=0x0010, h01=0x0050, text=» CWK A2,/13 «, t00=0x002c, t01=0x005a}
0x4518…453c Head {h00=0x0020, h01=0x0050, text=» RF(E) UPD360 INSERT CURSOR «, t00=0x002c, t01=0x006e}
0x453c…4550 Head {h00=0x0010, h01=0x0050, text=» CWK A2,/09 «, t00=0x002c, t01=0x0092}
0x4550…4572 Head {h00=0x001e, h01=0x0050, text=» RF(E) UPD400 PROGRAM TAB «, t00=0x002c, t01=0x00a6}
0x4572…4586 Head {h00=0x0010, h01=0x0050, text=» CWK A2,/14 «, t00=0x002c, t01=0x00c8}
0x4586…45ae Head {h00=0x0024, h01=0x0050, text=» ABL(E) UPD500 REPEAT TO ADDRESS«, t00=0x002c, t01=0x00dc}
0x45ae…45c2 Head {h00=0x0010, h01=0x0050, text=» CWK A2,/12 «, t00=0x002c, t01=0x0104}
0x45c2…45f6 Head {h00=0x0030, h01=0x0050, text=» ABL(E) UPD540 ERASE UNPROTECTED TO ADDRESS «, t00=0x002c, t01=0x0118}
0x45f6…460a Head {h00=0x0010, h01=0x0050, text=» CWK A2,/0C «, t00=0x002c, t01=0x014c}
0x460a…4620 Head {h00=0x0012, h01=0x0050, text=» RF(NE) UPD305«, t00=0x002c, t01=0x0160}
0x4620…4640 Head {h00=0x001c, h01=0x0050, text=» LDK A2,FORMFD FORM FEED«, t00=0x002c, t01=0x0176}
0x4640…4652 Head {h00=0x000e, h01=0x0050, text=» RB UPD230«, t00=0x002d, t01=0x0008}
0x4652…466c Head {h00=0x0016, h01=0x0050, text=»UPD305 CWK A2,/19 «, t00=0x002d, t01=0x001a}
0x466c…4682 Head {h00=0x0012, h01=0x0050, text=» RF(NE) UPD310«, t00=0x002d, t01=0x0034}
0x4682…46a4 Head {h00=0x001e, h01=0x0050, text=» LDK A2,ENDMES END MESSAGE«, t00=0x002d, t01=0x004a}
0x46a4…46b6 Head {h00=0x000e, h01=0x0050, text=» RB UPD230«, t00=0x002d, t01=0x006c}
0x46b6…46ca Head {h00=0x0010, h01=0x0050, text=»UPD310 EQU *«, t00=0x002d, t01=0x007e}
0x46ca…46de Head {h00=0x0010, h01=0x0050, text=» CWK A2,/0A «, t00=0x002d, t01=0x0092}
0x46de…46f4 Head {h00=0x0012, h01=0x0050, text=» RF(NE) UPD315«, t00=0x002d, t01=0x00a6}
0x46f4…4714 Head {h00=0x001c, h01=0x0050, text=» LDK A2,NEWLIN NEW LINE «, t00=0x002d, t01=0x00bc}
0x4714…4726 Head {h00=0x000e, h01=0x0050, text=» RB UPD230«, t00=0x002d, t01=0x00dc}
0x4726…473a Head {h00=0x0010, h01=0x0050, text=»UPD315 EQU *«, t00=0x002d, t01=0x00ee}
0x473a…474e Head {h00=0x0010, h01=0x0050, text=» CWK A2,/18 «, t00=0x002d, t01=0x0102}
0x474e…4772 Head {h00=0x0020, h01=0x0050, text=» RF(NE) UPD318 ILLEGAL ORDER«, t00=0x002d, t01=0x0116}
0x4772…4786 Head {h00=0x0010, h01=0x0050, text=» LDK A2,/30 «, t00=0x002d, t01=0x013a}
0x4786…4798 Head {h00=0x000e, h01=0x0050, text=» RB UPD230«, t00=0x002d, t01=0x014e}
0x4798…47a2 Head {h00=0x0006, h01=0x0050, text=» «, t00=0x002d, t01=0x0160}
0x47a2…47aa Head {h00=0x0004, h01=0x0050, t00=0x002d, t01=0x016a}
0x47aa…47be Head {h00=0x0010, h01=0x0050, text=»UPD318 EQU *«, t00=0x002d, t01=0x0172}
0x47be…47d8 Head {h00=0x0016, h01=0x0050, text=» CWK A2,SKIP DK5 «, t00=0x002d, t01=0x0186}
0x47d8…47fc Head {h00=0x0020, h01=0x0050, text=» RF(NE) UPD319 SKIP USM DK5 «, t00=0x002e, t01=0x0010}
0x47fc…4814 Head {h00=0x0014, h01=0x0050, text=» RB UPD220 DK5 «, t00=0x002e, t01=0x0034}
0x4814…482e Head {h00=0x0016, h01=0x0050, text=»UPD319 EQU * DK5 «, t00=0x002e, t01=0x004c}
0x482e…4854 Head {h00=0x0022, h01=0x0050, text=» CWK A2,/00 NULL CHARACTER ???«, t00=0x002e, t01=0x0066}
0x4854…4872 Head {h00=0x001a, h01=0x0050, text=» RF(NE) UPD31A NO DK7 «, t00=0x002e, t01=0x008c}
0x4872…4898 Head {h00=0x0022, h01=0x0050, text=» LDK A2,/7F PTS NULL CHARACTER«, t00=0x002e, t01=0x00aa}
0x4898…48aa Head {h00=0x000e, h01=0x0050, text=» RB UPD230«, t00=0x002e, t01=0x00d0}
0x48aa…48c4 Head {h00=0x0016, h01=0x0050, text=»UPD31A EQU * DK7 «, t00=0x002e, t01=0x00e2}
0x48c4…48ec Head {h00=0x0024, h01=0x0050, text=»* CHECK ON APL ESCALE CHAR (08) «, t00=0x002e, t01=0x00fc}
0x48ec…4904 Head {h00=0x0014, h01=0x0050, text=» CWK A2,/08 DK7«, t00=0x002e, t01=0x0124}
0x4904…492a Head {h00=0x0022, h01=0x0050, text=» RF(NE) UPDEND ILLEGAL CHR DK7«, t00=0x002e, t01=0x013c}
0x492a…494e Head {h00=0x0020, h01=0x0050, text=» RB UPD250 PUT IN BUFFER DK7«, t00=0x002e, t01=0x0162}
0x494e…4956 Head {h00=0x0004, h01=0x0050, t00=0x002e, t01=0x0186}
0x4956…499a Head {h00=0x0040, h01=0x0050, text=»************************************************************«, t00=0x002e, t01=0x018e}
0x499a…49a4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002f, t01=0x0042}
0x49a4…49c6 Head {h00=0x001e, h01=0x0050, text=»* RELEASE RECEIVE BUFFER«, t00=0x002f, t01=0x004c}
0x49c6…49d0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002f, t01=0x006e}
0x49d0…49fe Head {h00=0x002a, h01=0x0050, text=»************************************* «, t00=0x002f, t01=0x0078}
0x49fe…4a06 Head {h00=0x0004, h01=0x0050, t00=0x002f, t01=0x00a6}
0x4a06…4a1a Head {h00=0x0010, h01=0x0050, text=»UPDEND EQU *«, t00=0x002f, t01=0x00ae}
0x4a1a…4a36 Head {h00=0x0018, h01=0x0050, text=» LD A8,ECBDCC,TCABAS«, t00=0x002f, t01=0x00c2}
0x4a36…4a4e Head {h00=0x0014, h01=0x0050, text=» LD A4,ECBBA,A8 «, t00=0x002f, t01=0x00de}
0x4a4e…4a64 Head {h00=0x0012, h01=0x0050, text=» CF A14,RLRBUF«, t00=0x002f, t01=0x00f6}
0x4a64…4a96 Head {h00=0x002e, h01=0x0050, text=»* CORRECTION FOR CURSOR LEFT ON ATTRIBUTE «, t00=0x002f, t01=0x010c}
0x4a96…4ac4 Head {h00=0x002a, h01=0x0050, text=» LD A3,PCURS,TCABAS GET CURSOR POS DK7«, t00=0x002f, t01=0x013e}
0x4ac4…4ade Head {h00=0x0016, h01=0x0050, text=»UPDENA EQU * DK7 «, t00=0x002f, t01=0x016c}
0x4ade…4b06 Head {h00=0x0024, h01=0x0050, text=» LDKL A4,BVDU GET BUFFER VDU DK7«, t00=0x002f, t01=0x0186}
0x4b06…4b28 Head {h00=0x001e, h01=0x0050, text=» ADR A4,TCABAS COMPUTE IT «, t00=0x0030, t01=0x001e}
0x4b28…4b40 Head {h00=0x0014, h01=0x0050, text=» ADR A4,A3 DK7 «, t00=0x0030, t01=0x0040}
0x4b40…4b64 Head {h00=0x0020, h01=0x0050, text=» LCR A1,A4 GET THE CHAR DK7 «, t00=0x0030, t01=0x0058}
0x4b64…4b88 Head {h00=0x0020, h01=0x0050, text=» ANK A1,/FF CLEAN IT UP DK7 «, t00=0x0030, t01=0x007c}
0x4b88…4bac Head {h00=0x0020, h01=0x0050, text=» CWK A1,/001F ATTRIBUTE DK7 «, t00=0x0030, t01=0x00a0}
0x4bac…4bda Head {h00=0x002a, h01=0x0050, text=» RF(G) UPDENB NO,COMPLETE PROCESS DK7 «, t00=0x0030, t01=0x00c4}
0x4bda…4c00 Head {h00=0x0022, h01=0x0050, text=» CWK A1,/08 'APL' ESCAPE? DK7 «, t00=0x0030, t01=0x00f2}
0x4c00…4c24 Head {h00=0x0020, h01=0x0050, text=» RF(E) UPDENB FORGET IT DK7 «, t00=0x0030, t01=0x0118}
0x4c24…4c4e Head {h00=0x0026, h01=0x0050, text=» ADK A3,1 YES, MOVE THE CURSOR DK7«, t00=0x0030, t01=0x013c}
0x4c4e…4c74 Head {h00=0x0022, h01=0x0050, text=» CWK A3,1919 END OF SCREEN DK7«, t00=0x0030, t01=0x0166}
0x4c74…4c9e Head {h00=0x0026, h01=0x0050, text=» RB(NG) UPDENA NO,KEEP LOOKING DK7«, t00=0x0030, t01=0x018c}
0x4c9e…4cc2 Head {h00=0x0020, h01=0x0050, text=» LDK A3,0 START ALL OVER DK7«, t00=0x0031, t01=0x0026}
0x4cc2…4cd8 Head {h00=0x0012, h01=0x0050, text=» RB UPDENA DK«, t00=0x0031, t01=0x004a}
0x4cd8…4cf2 Head {h00=0x0016, h01=0x0050, text=»UPDENB EQU * DK7 «, t00=0x0031, t01=0x0060}
0x4cf2…4d26 Head {h00=0x0030, h01=0x0050, text=» ST A3,PCURS,TCABAS SAVE CURSOR POSITION DK7«, t00=0x0031, t01=0x007a}
0x4d26…4d4c Head {h00=0x0022, h01=0x0050, text=»* END OF CORRECTION 821005/GF «, t00=0x0031, t01=0x00ae}
0x4d4c…4d5c Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0031, t01=0x00d4}
0x4d5c…4d66 Head {h00=0x0006, h01=0x0050, text=» «, t00=0x0031, t01=0x00e4}
0x4d66…4d70 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0031, t01=0x00ee}
0x4d70…4d7a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0031, t01=0x00f8}
0x4d7a…4d96 Head {h00=0x0018, h01=0x0050, text=»* START FIELD ORDER «, t00=0x0031, t01=0x0102}
0x4d96…4da0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0031, t01=0x011e}
0x4da0…4dce Head {h00=0x002a, h01=0x0050, text=»UPD320 CF A14,GDCCH GET ATTRIBUTE CHAR«, t00=0x0031, t01=0x0128}
0x4dce…4de6 Head {h00=0x0014, h01=0x0050, text=» LC A2,TEBCDI,A2«, t00=0x0031, t01=0x0156}
0x4de6…4e14 Head {h00=0x002a, h01=0x0050, text=» LDR A1,A2 COMPOSE PTS ATTRIBUTE CHAR «, t00=0x0031, t01=0x016e}
0x4e14…4e26 Head {h00=0x000e, h01=0x0050, text=» ANK A1,1 «, t00=0x0032, t01=0x000c}
0x4e26…4e38 Head {h00=0x000e, h01=0x0050, text=» SRL A2,1 «, t00=0x0032, t01=0x001e}
0x4e38…4e4c Head {h00=0x0010, h01=0x0050, text=» ANK A2,/1E «, t00=0x0032, t01=0x0030}
0x4e4c…4e5e Head {h00=0x000e, h01=0x0050, text=» ORR A2,A1«, t00=0x0032, t01=0x0044}
0x4e5e…4e70 Head {h00=0x000e, h01=0x0050, text=» RB UPD240«, t00=0x0032, t01=0x0056}
0x4e70…4e7a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0032, t01=0x0068}
0x4e7a…4e96 Head {h00=0x0018, h01=0x0050, text=»* SET BUFFER ADDRESS«, t00=0x0032, t01=0x0072}
0x4e96…4ea0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0032, t01=0x008e}
0x4ea0…4ec8 Head {h00=0x0024, h01=0x0050, text=»UPD340 CF A14,GETADR GET ADDRESS«, t00=0x0032, t01=0x0098}
0x4ec8…4ede Head {h00=0x0012, h01=0x0050, text=» CWK A1,LBVDU «, t00=0x0032, t01=0x00c0}
0x4ede…4f04 Head {h00=0x0022, h01=0x0050, text=» RB(NL) UPDEND INVALID ADDRESS«, t00=0x0032, t01=0x00d6}
0x4f04…4f16 Head {h00=0x000e, h01=0x0050, text=» LDR A3,A1«, t00=0x0032, t01=0x00fc}
0x4f16…4f28 Head {h00=0x000e, h01=0x0050, text=» LDR A4,A3«, t00=0x0032, t01=0x010e}
0x4f28…4f3e Head {h00=0x0012, h01=0x0050, text=» ADKL A4,BVDU «, t00=0x0032, t01=0x0120}
0x4f3e…4f54 Head {h00=0x0012, h01=0x0050, text=» ADR A4,TCABAS«, t00=0x0032, t01=0x0136}
0x4f54…4f78 Head {h00=0x0020, h01=0x0050, text=» LDK A5,1 INDICATE ORDER DK6«, t00=0x0032, t01=0x014c}
0x4f78…4f8c Head {h00=0x0010, h01=0x0050, text=» ABL UPD220 «, t00=0x0032, t01=0x0170}
0x4f8c…4f96 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0032, t01=0x0184}
0x4f96…4fae Head {h00=0x0014, h01=0x0050, text=»* INSERT CURSOR «, t00=0x0032, t01=0x018e}
0x4fae…4fb8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0033, t01=0x0016}
0x4fb8…4fec Head {h00=0x0030, h01=0x0050, text=»UPD360 ST A3,PCURS,TCABAS SET NEW CURSOR POS«, t00=0x0033, t01=0x0020}
0x4fec…5014 Head {h00=0x0024, h01=0x0050, text=» LDK A5,1 INDICATE WCC, IC OR RA«, t00=0x0033, t01=0x0054}
0x5014…5028 Head {h00=0x0010, h01=0x0050, text=» ABL UPD220 «, t00=0x0033, t01=0x007c}
0x5028…5032 Head {h00=0x0006, h01=0x0050, text=» «, t00=0x0033, t01=0x0090}
0x5032…503c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0033, t01=0x009a}
0x503c…5052 Head {h00=0x0012, h01=0x0050, text=»* PROGRAM TAB «, t00=0x0033, t01=0x00a4}
0x5052…505c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0033, t01=0x00ba}
0x505c…5074 Head {h00=0x0014, h01=0x0050, text=»UPD400 LDR A5,A5«, t00=0x0033, t01=0x00c4}
0x5074…50a2 Head {h00=0x002a, h01=0x0050, text=» RF(NZ) UPD430 PT AFTER WCC, IC OR RA «, t00=0x0033, t01=0x00dc}
0x50a2…50d6 Head {h00=0x0030, h01=0x0050, text=» LDK A1,NULL+/80 FILL CURRENT FIELD BY NULLS«, t00=0x0033, t01=0x010a}
0x50d6…50ea Head {h00=0x0010, h01=0x0050, text=»UPD410 EQU *«, t00=0x0033, t01=0x013e}
0x50ea…50fc Head {h00=0x000e, h01=0x0050, text=» LDK A5,0 «, t00=0x0033, t01=0x0152}
0x50fc…5112 Head {h00=0x0012, h01=0x0050, text=» CWK A3,LBVDU «, t00=0x0033, t01=0x0164}
0x5112…5138 Head {h00=0x0022, h01=0x0050, text=» ABL(NL) UPD210 END OF BUFFER «, t00=0x0033, t01=0x017a}
0x5138…514a Head {h00=0x000e, h01=0x0050, text=» LCR A2,A4«, t00=0x0034, t01=0x0010}
0x514a…515c Head {h00=0x000e, h01=0x0050, text=» ADK A3,1 «, t00=0x0034, t01=0x0022}
0x515c…5170 Head {h00=0x0010, h01=0x0050, text=» ANK A2,/7F «, t00=0x0034, t01=0x0034}
0x5170…5184 Head {h00=0x0010, h01=0x0050, text=» CWK A2,/20 «, t00=0x0034, t01=0x0048}
0x5184…519a Head {h00=0x0012, h01=0x0050, text=» RF(L) UPD415 «, t00=0x0034, t01=0x005c}
0x519a…51b8 Head {h00=0x001a, h01=0x0050, text=» SCR A1,A4 STORE NULL «, t00=0x0034, t01=0x0072}
0x51b8…51ca Head {h00=0x000e, h01=0x0050, text=» ADK A4,1 «, t00=0x0034, t01=0x0090}
0x51ca…51dc Head {h00=0x000e, h01=0x0050, text=» RB UPD410«, t00=0x0034, t01=0x00a2}
0x51dc…51f0 Head {h00=0x0010, h01=0x0050, text=»UPD415 EQU *«, t00=0x0034, t01=0x00b4}
0x51f0…5202 Head {h00=0x000e, h01=0x0050, text=» ADK A4,1 «, t00=0x0034, t01=0x00c8}
0x5202…521c Head {h00=0x0016, h01=0x0050, text=»UPD420 ANK A2,/10 «, t00=0x0034, t01=0x00da}
0x521c…5244 Head {h00=0x0024, h01=0x0050, text=» ABL(Z) UPD220 UNPROTECTED FIELD«, t00=0x0034, t01=0x00f4}
0x5244…5258 Head {h00=0x0010, h01=0x0050, text=»UPD430 EQU *«, t00=0x0034, t01=0x011c}
0x5258…526a Head {h00=0x000e, h01=0x0050, text=» LDK A5,0 «, t00=0x0034, t01=0x0130}
0x526a…5280 Head {h00=0x0012, h01=0x0050, text=» CWK A3,LBVDU «, t00=0x0034, t01=0x0142}
0x5280…52ae Head {h00=0x002a, h01=0x0050, text=» ABL(NL) UPD210 END OF DISPLAY BUFFER «, t00=0x0034, t01=0x0158}
0x52ae…52c0 Head {h00=0x000e, h01=0x0050, text=» LCR A2,A4«, t00=0x0034, t01=0x0186}
0x52c0…52d2 Head {h00=0x000e, h01=0x0050, text=» ADK A3,1 «, t00=0x0035, t01=0x0008}
0x52d2…52e4 Head {h00=0x000e, h01=0x0050, text=» ADK A4,1 «, t00=0x0035, t01=0x001a}
0x52e4…52f8 Head {h00=0x0010, h01=0x0050, text=» ANK A2,/7F «, t00=0x0035, t01=0x002c}
0x52f8…530c Head {h00=0x0010, h01=0x0050, text=» CWK A2,/20 «, t00=0x0035, t01=0x0040}
0x530c…5322 Head {h00=0x0012, h01=0x0050, text=» RB(L) UPD420 «, t00=0x0035, t01=0x0054}
0x5322…5334 Head {h00=0x000e, h01=0x0050, text=» RB UPD430«, t00=0x0035, t01=0x006a}
0x5334…533e Head {h00=0x0006, h01=0x0050, text=» «, t00=0x0035, t01=0x007c}
0x533e…5348 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0035, t01=0x0086}
0x5348…5364 Head {h00=0x0018, h01=0x0050, text=»* REPEAT TO ADDRESS «, t00=0x0035, t01=0x0090}
0x5364…536e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0035, t01=0x00ac}
0x536e…539a Head {h00=0x0028, h01=0x0050, text=»UPD500 CF A14,GETADR GET END ADDRESS«, t00=0x0035, t01=0x00b6}
0x539a…53b0 Head {h00=0x0012, h01=0x0050, text=» CWK A1,LBVDU «, t00=0x0035, t01=0x00e2}
0x53b0…53d6 Head {h00=0x0022, h01=0x0050, text=» RB(NL) UPDEND INVALID ADDRESS«, t00=0x0035, t01=0x00f8}
0x53d6…5404 Head {h00=0x002a, h01=0x0050, text=» CF A14,GDCCH GET CHAR TO BE REPEATED «, t00=0x0035, t01=0x011e}
0x5404…542c Head {h00=0x0024, h01=0x0050, text=» LDK A5,1 INDICATE WCC, IC OR RA«, t00=0x0035, t01=0x014c}
0x542c…5452 Head {h00=0x0022, h01=0x0050, text=» ORK A2,/80 INDICATE MODIFIED «, t00=0x0035, t01=0x0174}
0x5452…545a Head {h00=0x0004, h01=0x0050, t00=0x0036, t01=0x000a}
0x545a…5462 Head {h00=0x0004, h01=0x0050, t00=0x0036, t01=0x0012}
0x5462…5498 Head {h00=0x0032, h01=0x0050, text=» CWR A3,A1 NULLS TO ALL SCREEN POSITIONS ???? «, t00=0x0036, t01=0x001a}
0x5498…54b4 Head {h00=0x0018, h01=0x0050, text=» RF(E) UPD530 YES!!!«, t00=0x0036, t01=0x0050}
0x54b4…54bc Head {h00=0x0004, h01=0x0050, t00=0x0036, t01=0x006c}
0x54bc…54c4 Head {h00=0x0004, h01=0x0050, t00=0x0036, t01=0x0074}
0x54c4…54e0 Head {h00=0x0018, h01=0x0050, text=»UPD510 CWK A3,LBVDU «, t00=0x0036, t01=0x007c}
0x54e0…5508 Head {h00=0x0024, h01=0x0050, text=» RF(L) UPD520 NOT END OF SCREEN «, t00=0x0036, t01=0x0098}
0x5508…551a Head {h00=0x000e, h01=0x0050, text=» LDK A3,0 «, t00=0x0036, t01=0x00c0}
0x551a…553c Head {h00=0x001e, h01=0x0050, text=» LDKL A4,BVDU WRAP AROUND «, t00=0x0036, t01=0x00d2}
0x553c…5552 Head {h00=0x0012, h01=0x0050, text=» ADR A4,TCABAS«, t00=0x0036, t01=0x00f4}
0x5552…556a Head {h00=0x0014, h01=0x0050, text=»UPD520 CWR A3,A1«, t00=0x0036, t01=0x010a}
0x556a…5592 Head {h00=0x0024, h01=0x0050, text=» ABL(E) UPD220 ALL CHAR REPEATED«, t00=0x0036, t01=0x0122}
0x5592…559a Head {h00=0x0004, h01=0x0050, t00=0x0036, t01=0x014a}
0x559a…55ae Head {h00=0x0010, h01=0x0050, text=»UPD530 EQU *«, t00=0x0036, t01=0x0152}
0x55ae…55b6 Head {h00=0x0004, h01=0x0050, t00=0x0036, t01=0x0166}
0x55b6…55c8 Head {h00=0x000e, h01=0x0050, text=» SCR A2,A4«, t00=0x0036, t01=0x016e}
0x55c8…55da Head {h00=0x000e, h01=0x0050, text=» ADK A3,1 «, t00=0x0036, t01=0x0180}
0x55da…55ec (55, 0, 400) Head {h00=0x000e, h01=0x0050, text=» ADK A4,1 «, t00=0x0037, t01=0x0004}
0x55ec…560c Head {h00=0x001c, h01=0x0050, text=» RB UPD510 NEXT POSITION«, t00=0x0037, t01=0x0016}
0x560c…5616 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0037, t01=0x0036}
0x5616…563c Head {h00=0x0022, h01=0x0050, text=»* ERASE UNPROTECTED TO ADDRESS«, t00=0x0037, t01=0x0040}
0x563c…5646 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0037, t01=0x0066}
0x5646…5672 Head {h00=0x0028, h01=0x0050, text=»UPD540 CF A14,GETADR GET END ADDRESS«, t00=0x0037, t01=0x0070}
0x5672…5688 Head {h00=0x0012, h01=0x0050, text=» CWK A3,LBVDU «, t00=0x0037, t01=0x009c}
0x5688…56ae Head {h00=0x0022, h01=0x0050, text=» RB(NL) UPDEND INVALID ADDRESS«, t00=0x0037, t01=0x00b2}
0x56ae…56e2 Head {h00=0x0030, h01=0x0050, text=» CF A14,ERASUA ERASE UNPROTECTED TO ADDRESS «, t00=0x0037, t01=0x00d8}
0x56e2…56f6 Head {h00=0x0010, h01=0x0050, text=» ABL UPD220 «, t00=0x0037, t01=0x010c}
0x56f6…570c Head {h00=0x0012, h01=0x0050, text=» IFT COPCMD=1 «, t00=0x0037, t01=0x0120}
0x570c…5716 Head {h00=0x0006, h01=0x0050, text=» «, t00=0x0037, t01=0x0136}
0x5716…5720 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0037, t01=0x0140}
0x5720…5736 Head {h00=0x0012, h01=0x0050, text=»* COPY COMMAND«, t00=0x0037, t01=0x014a}
0x5736…5740 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0037, t01=0x0160}
0x5740…5754 Head {h00=0x0010, h01=0x0050, text=»UPD600 EQU *«, t00=0x0037, t01=0x016a}
0x5754…5772 Head {h00=0x001a, h01=0x0050, text=» LD A1,PRINTER,TCABAS «, t00=0x0037, t01=0x017e}
0x5772…57aa Head {h00=0x0034, h01=0x0050, text=» ABL(Z) UPDEND COPYCOMMAND NOT SUPPORTED FOR VDU«, t00=0x0038, t01=0x000c}
0x57aa…57bc Head {h00=0x000e, h01=0x0050, text=» ADK A7,1 «, t00=0x0038, t01=0x0044}
0x57bc…57d2 Head {h00=0x0012, h01=0x0050, text=» BYPASS CCC «, t00=0x0038, t01=0x0056}
0x57d2…57f8 Head {h00=0x0022, h01=0x0050, text=» CF A14,GDCCH GET FROM DEVICE «, t00=0x0038, t01=0x006c}
0x57f8…580e Head {h00=0x0012, h01=0x0050, text=» IFT EBCDIC=1 «, t00=0x0038, t01=0x0092}
0x580e…5838 Head {h00=0x0026, h01=0x0050, text=» LC A2,TEBCDI,A2 CONVERT TO EBCDIC«, t00=0x0038, t01=0x00a8}
0x5838…5844 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0038, t01=0x00d2}
0x5844…585a Head {h00=0x0012, h01=0x0050, text=» IFT COPCMD=1 «, t00=0x0038, t01=0x00de}
0x585a…5880 Head {h00=0x0022, h01=0x0050, text=» LD A3,6,CREBAS 'CB1' ADDRESS «, t00=0x0038, t01=0x00f4}
0x5880…5898 Head {h00=0x0014, h01=0x0050, text=» LDK A4,MF1KBV-1«, t00=0x0038, t01=0x011a}
0x5898…58ac Head {h00=0x0010, h01=0x0050, text=» IFT DCLIN=2«, t00=0x0038, t01=0x0132}
0x58ac…58cc Head {h00=0x001c, h01=0x0050, text=» LD A1,ECBBLK+DC2,TCABAS«, t00=0x0038, t01=0x0146}
0x58cc…58e2 Head {h00=0x0012, h01=0x0050, text=» RF(NZ) UPD602«, t00=0x0038, t01=0x0166}
0x58e2…5906 Head {h00=0x0020, h01=0x0050, text=» LDK A4,MF2KBV-1 MF # 2 READ«, t00=0x0038, t01=0x017c}
0x5906…5912 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0039, t01=0x0010}
0x5912…5928 Head {h00=0x0012, h01=0x0050, text=» IFT COPCMD=1 «, t00=0x0039, t01=0x001c}
0x5928…593c Head {h00=0x0010, h01=0x0050, text=»UPD602 EQU *«, t00=0x0039, t01=0x0032}
0x593c…595e Head {h00=0x001e, h01=0x0050, text=» ADR A4,A3 CONFIG TABLE -1«, t00=0x0039, t01=0x0046}
0x595e…5988 Head {h00=0x0026, h01=0x0050, text=» LD A5,NBRKBV,A3 NUMBER OF KB/VDUS«, t00=0x0039, t01=0x0068}
0x5988…59b4 Head {h00=0x0028, h01=0x0050, text=» ADR A4,A5 LAST KB/VDU CONFIGURATED «, t00=0x0039, t01=0x0092}
0x59b4…59c8 Head {h00=0x0010, h01=0x0050, text=»UPD604 EQU *«, t00=0x0039, t01=0x00be}
0x59c8…59f0 Head {h00=0x0024, h01=0x0050, text=» CCR A2,A4 DV-ADDRESS MATCHES ? «, t00=0x0039, t01=0x00d2}
0x59f0…5a0a Head {h00=0x0016, h01=0x0050, text=» RF(E) UPD610 YES «, t00=0x0039, t01=0x00fa}
0x5a0a…5a1c Head {h00=0x000e, h01=0x0050, text=» SUK A4,1 «, t00=0x0039, t01=0x0114}
0x5a1c…5a2e Head {h00=0x000e, h01=0x0050, text=» SUK A5,1 «, t00=0x0039, t01=0x0126}
0x5a2e…5a4c Head {h00=0x001a, h01=0x0050, text=» RB(P) UPD604 TRY NEXT«, t00=0x0039, t01=0x0138}
0x5a4c…5a68 Head {h00=0x0018, h01=0x0050, text=» ABL UPDEND NO MATCH«, t00=0x0039, t01=0x0156}
0x5a68…5a72 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0039, t01=0x0172}
0x5a72…5a86 Head {h00=0x0010, h01=0x0050, text=»UPD610 EQU *«, t00=0x0039, t01=0x017c}
0x5a86…5a9e Head {h00=0x0014, h01=0x0050, text=» LDKL A8,ECBICW «, t00=0x0039, t01=0x0190}
0x5a9e…5ab4 Head {h00=0x0012, h01=0x0050, text=» ADR A8,CREBAS«, t00=0x003a, t01=0x0018}
0x5ab4…5ac0 Head {h00=0x0008, h01=0x0050, text=» LKM«, t00=0x003a, t01=0x002e}
0x5ac0…5af4 Head {h00=0x0030, h01=0x0050, text=» DATA 10 ABORT LAST REQUEST IF NOT COMPLETED«, t00=0x003a, t01=0x003a}
0x5af4…5b1e Head {h00=0x0026, h01=0x0050, text=» ADKL A5,/4B40 TASKID FROM DEVICE «, t00=0x003a, t01=0x006e}
0x5b1e…5b46 Head {h00=0x0024, h01=0x0050, text=» LD A2,-4,CREBAS GET OWN TASKID «, t00=0x003a, t01=0x0098}
0x5b46…5b70 Head {h00=0x0026, h01=0x0050, text=» ST A2,ICWORK,TCABAS PUT IN BUFFER«, t00=0x003a, t01=0x00c0}
0x5b70…5b9e Head {h00=0x002a, h01=0x0050, text=» LDK A4,/0B WRITE ADDRESSED , NO WAIT «, t00=0x003a, t01=0x00ea}
0x5b9e…5bba Head {h00=0x0018, h01=0x0050, text=» LDK A6,2 REQ LENGTH«, t00=0x003a, t01=0x0118}
0x5bba…5bd2 Head {h00=0x0014, h01=0x0050, text=» LDKL A3,ICWORK «, t00=0x003a, t01=0x0134}
0x5bd2…5bf8 Head {h00=0x0022, h01=0x0050, text=» ADR A3,TCABAS BUFFER ADDRESS «, t00=0x003a, t01=0x014c}
0x5bf8…5c1e Head {h00=0x0022, h01=0x0050, text=» CF A14,ICWRTE WRITE INTERTASK«, t00=0x003a, t01=0x0172}
0x5c1e…5c32 Head {h00=0x0010, h01=0x0050, text=» ABL UPDEND «, t00=0x003b, t01=0x0008}
0x5c32…5c3e Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x003b, t01=0x001c}
0x5c3e…5c48 Head {h00=0x0006, h01=0x0050, text=» «, t00=0x003b, t01=0x0028}
0x5c48…5c52 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003b, t01=0x0032}
0x5c52…5c5c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003b, t01=0x003c}
0x5c5c…5c86 Head {h00=0x0026, h01=0x0050, text=»* PROCESS WRITE CONTROL CHARACTER «, t00=0x003b, t01=0x0046}
0x5c86…5c90 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003b, t01=0x0070}
0x5c90…5cbe Head {h00=0x002a, h01=0x0050, text=»* ONLY RESET MDT BIT IS TAKEN CARE OF «, t00=0x003b, t01=0x007a}
0x5cbe…5cc8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003b, t01=0x00a8}
0x5cc8…5cd2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003b, t01=0x00b2}
0x5cd2…5cf4 Head {h00=0x001e, h01=0x0050, text=»PWCC CF A14,GDCCH GET WCC «, t00=0x003b, t01=0x00bc}
0x5cf4…5d16 Head {h00=0x001e, h01=0x0050, text=» LC A2,TEBCDI,A2 IN EBCDIC«, t00=0x003b, t01=0x00de}
0x5d16…5d38 Head {h00=0x001e, h01=0x0050, text=» ST A2,WCC,TCABAS SAVE IT «, t00=0x003b, t01=0x0100}
0x5d38…5d4c Head {h00=0x0010, h01=0x0050, text=» ANK A2,/04 «, t00=0x003b, t01=0x0122}
0x5d4c…5d60 Head {h00=0x0010, h01=0x0050, text=» RF(Z) PWCC1«, t00=0x003b, t01=0x0136}
0x5d60…5d7e Head {h00=0x001a, h01=0x0050, text=» LD A2,PRINTER,TCABAS «, t00=0x003b, t01=0x014a}
0x5d7e…5d94 Head {h00=0x0012, h01=0x0050, text=» RF(NZ) PWCC1 «, t00=0x003b, t01=0x0168}
0x5d94…5da8 Head {h00=0x0010, h01=0x0050, text=» LDR A10,A7 «, t00=0x003b, t01=0x017e}
0x5da8…5dc0 (60, 0, 400) Head {h00=0x0014, h01=0x0050, text=» LDKL A8,ECBVDU «, t00=0x003c, t01=0x0004}
0x5dc0…5dd6 Head {h00=0x0012, h01=0x0050, text=» ADR A8,CREBAS«, t00=0x003c, t01=0x001c}
0x5dd6…5dee Head {h00=0x0014, h01=0x0050, text=» LD A2,ECBBA,A8 «, t00=0x003c, t01=0x0032}
0x5dee…5e02 Head {h00=0x0010, h01=0x0050, text=» LDK A7,/2B «, t00=0x003c, t01=0x004a}
0x5e02…5e1a Head {h00=0x0014, h01=0x0050, text=» SC A7,1,A2 =1 «, t00=0x003c, t01=0x005e}
0x5e1a…5e36 Head {h00=0x0018, h01=0x0050, text=» LDK A7,/07 BELL =1 «, t00=0x003c, t01=0x0076}
0x5e36…5e4e Head {h00=0x0014, h01=0x0050, text=» SC A7,2,A2 =1 «, t00=0x003c, t01=0x0092}
0x5e4e…5e66 Head {h00=0x0014, h01=0x0050, text=» SC A7,3,A2 =1 «, t00=0x003c, t01=0x00aa}
0x5e66…5e78 Head {h00=0x000e, h01=0x0050, text=» LDK A7,4 «, t00=0x003c, t01=0x00c2}
0x5e78…5e90 Head {h00=0x0014, h01=0x0050, text=» ST A7,ECBRL,A8 «, t00=0x003c, t01=0x00d4}
0x5e90…5ea4 Head {h00=0x0010, h01=0x0050, text=» LDK A7,/86 «, t00=0x003c, t01=0x00ec}
0x5ea4…5eb0 Head {h00=0x0008, h01=0x0050, text=» LKM«, t00=0x003c, t01=0x0100}
0x5eb0…5ec0 Head {h00=0x000c, h01=0x0050, text=» DATA 1 «, t00=0x003c, t01=0x010c}
0x5ec0…5edc Head {h00=0x0018, h01=0x0050, text=» LD A8,ECBDCC,TCABAS«, t00=0x003c, t01=0x011c}
0x5edc…5ef0 Head {h00=0x0010, h01=0x0050, text=» LDR A7,A10 «, t00=0x003c, t01=0x0138}
0x5ef0…5f04 Head {h00=0x0010, h01=0x0050, text=»PWCC1 EQU * «, t00=0x003c, t01=0x014c}
0x5f04…5f1e Head {h00=0x0016, h01=0x0050, text=» LD A2,WCC,TCABAS «, t00=0x003c, t01=0x0160}
0x5f1e…5f30 Head {h00=0x000e, h01=0x0050, text=» ANK A2,1 «, t00=0x003c, t01=0x017a}
0x5f30…5f54 Head {h00=0x0020, h01=0x0050, text=» RF(NZ) RESMDT RESET ALL MDT«, t00=0x003c, t01=0x018c}
0x5f54…5f74 Head {h00=0x001c, h01=0x0050, text=»PWCC10 RTN A14 NO ACTION«, t00=0x003d, t01=0x0020}
0x5f74…5f7e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003d, t01=0x0040}
0x5f7e…5f88 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003d, t01=0x004a}
0x5f88…5fa4 Head {h00=0x0018, h01=0x0050, text=»* RESET ALL MDT BITS«, t00=0x003d, t01=0x0054}
0x5fa4…5fae Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003d, t01=0x0070}
0x5fae…5fb8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003d, t01=0x007a}
0x5fb8…5fd0 Head {h00=0x0014, h01=0x0050, text=»RESMDT LDK A3,0 «, t00=0x003d, t01=0x0084}
0x5fd0…5fe6 Head {h00=0x0012, h01=0x0050, text=» LDKL A4,BVDU «, t00=0x003d, t01=0x009c}
0x5fe6…5ffc Head {h00=0x0012, h01=0x0050, text=» ADR A4,TCABAS«, t00=0x003d, t01=0x00b2}
0x5ffc…6018 Head {h00=0x0018, h01=0x0050, text=»RESM10 CWK A3,LBVDU «, t00=0x003d, t01=0x00c8}
0x6018…6038 Head {h00=0x001c, h01=0x0050, text=» RB(NL) PWCC10 ALL DONE «, t00=0x003d, t01=0x00e4}
0x6038…6054 Head {h00=0x0018, h01=0x0050, text=» LCR A2,A4 GET CHAR «, t00=0x003d, t01=0x0104}
0x6054…6068 Head {h00=0x0010, h01=0x0050, text=» ANK A2,/60 «, t00=0x003d, t01=0x0120}
0x6068…608c Head {h00=0x0020, h01=0x0050, text=» RF(NZ) RESM20 NO ATTRIBUTE «, t00=0x003d, t01=0x0134}
0x608c…609e Head {h00=0x000e, h01=0x0050, text=» LCR A2,A4«, t00=0x003d, t01=0x0158}
0x609e…60bc Head {h00=0x001a, h01=0x0050, text=» ANK A2,/FE RESET MDT «, t00=0x003d, t01=0x016a}
0x60bc…60ce Head {h00=0x000e, h01=0x0050, text=» SCR A2,A4«, t00=0x003d, t01=0x0188}
0x60ce…60e6 Head {h00=0x0014, h01=0x0050, text=»RESM20 ADK A3,1 «, t00=0x003e, t01=0x000a}
0x60e6…60f8 Head {h00=0x000e, h01=0x0050, text=» ADK A4,1 «, t00=0x003e, t01=0x0022}
0x60f8…610a Head {h00=0x000e, h01=0x0050, text=» RB RESM10«, t00=0x003e, t01=0x0034}
0x610a…6114 Head {h00=0x0006, h01=0x0050, text=» «, t00=0x003e, t01=0x0046}
0x6114…611e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003e, t01=0x0050}
0x611e…6128 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003e, t01=0x005a}
0x6128…6146 Head {h00=0x001a, h01=0x0050, text=»* ERASE ENTIRE SCREEN «, t00=0x003e, t01=0x0064}
0x6146…6150 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003e, t01=0x0082}
0x6150…615a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003e, t01=0x008c}
0x615a…6170 Head {h00=0x0012, h01=0x0050, text=»ERASE LDK A3,0«, t00=0x003e, t01=0x0096}
0x6170…6186 Head {h00=0x0012, h01=0x0050, text=» LDKL A4,BVDU «, t00=0x003e, t01=0x00ac}
0x6186…619c Head {h00=0x0012, h01=0x0050, text=» ADR A4,TCABAS«, t00=0x003e, t01=0x00c2}
0x619c…61b0 Head {h00=0x0010, h01=0x0050, text=» LDK A2,NULL«, t00=0x003e, t01=0x00d8}
0x61b0…61cc Head {h00=0x0018, h01=0x0050, text=»ERAS20 CWK A3,LBVDU «, t00=0x003e, t01=0x00ec}
0x61cc…61ee Head {h00=0x001e, h01=0x0050, text=» RF(NL) ERAS25 ALL ERASED «, t00=0x003e, t01=0x0108}
0x61ee…6200 Head {h00=0x000e, h01=0x0050, text=» SCR A2,A4«, t00=0x003e, t01=0x012a}
0x6200…6212 Head {h00=0x000e, h01=0x0050, text=» ADK A3,1 «, t00=0x003e, t01=0x013c}
0x6212…6224 Head {h00=0x000e, h01=0x0050, text=» ADK A4,1 «, t00=0x003e, t01=0x014e}
0x6224…6236 Head {h00=0x000e, h01=0x0050, text=» RB ERAS20«, t00=0x003e, t01=0x0160}
0x6236…6266 Head {h00=0x002c, h01=0x0050, text=»ERAS25 CM PCURS,TCABAS RESET CURSOR POS «, t00=0x003e, t01=0x0172}
0x6266…627e Head {h00=0x0014, h01=0x0050, text=» LDKL A1,LBVDU+1«, t00=0x003f, t01=0x0012}
0x627e…62b2 Head {h00=0x0030, h01=0x0050, text=» ST A1,CURATT,TCABAS INDICATE UNFORM. SCREEN«, t00=0x003f, t01=0x002a}
0x62b2…62cc Head {h00=0x0016, h01=0x0050, text=» CM ATTRIB,TCABAS «, t00=0x003f, t01=0x005e}
0x62cc…62fc Head {h00=0x002c, h01=0x0050, text=» LD A1,PRINTER,TCABAS CHECK DEVISE TYPE «, t00=0x003f, t01=0x0078}
0x62fc…6328 Head {h00=0x0028, h01=0x0050, text=» RF(NZ) ERAEND PRINTER, NOT DISPLAY «, t00=0x003f, t01=0x00a8}
0x6328…6354 Head {h00=0x0028, h01=0x0050, text=» STR A7,A14 SAVE A7 AND A8 ON STACK «, t00=0x003f, t01=0x00d4}
0x6354…636a Head {h00=0x0012, h01=0x0050, text=» ST A8,-2,A14 «, t00=0x003f, t01=0x0100}
0x636a…6382 Head {h00=0x0014, h01=0x0050, text=» LDKL A8,ECBVDU «, t00=0x003f, t01=0x0116}
0x6382…63a0 Head {h00=0x001a, h01=0x0050, text=» ADR A8,CREBAS VDUECB «, t00=0x003f, t01=0x012e}
0x63a0…63c6 Head {h00=0x0022, h01=0x0050, text=» LDK A7,'1' ERASE CONTROL CHAR«, t00=0x003f, t01=0x014c}
0x63c6…63e2 Head {h00=0x0018, h01=0x0050, text=» LD A1,ECBBA,A8 =1 «, t00=0x003f, t01=0x0172}
0x63e2…63fa Head {h00=0x0014, h01=0x0050, text=» SC A7,1,A1 =1 «, t00=0x003f, t01=0x018e}
0x63fa…640c Head {h00=0x000e, h01=0x0050, text=» LDK A7,2 «, t00=0x0040, t01=0x0016}
0x640c…6432 Head {h00=0x0022, h01=0x0050, text=» ST A7,ECBRL,A8 REQ LENGTH = 2«, t00=0x0040, t01=0x0028}
0x6432…644c Head {h00=0x0016, h01=0x0050, text=» LDK A7,/86 WRITE «, t00=0x0040, t01=0x004e}
0x644c…6458 Head {h00=0x0008, h01=0x0050, text=» LKM«, t00=0x0040, t01=0x0068}
0x6458…6468 Head {h00=0x000c, h01=0x0050, text=» DATA 1 «, t00=0x0040, t01=0x0074}
0x6468…647e Head {h00=0x0012, h01=0x0050, text=» LD A8,-2,A14 «, t00=0x0040, t01=0x0084}
0x647e…64a4 Head {h00=0x0022, h01=0x0050, text=» LDR* A7,A14 RESTORE A7 AND A8«, t00=0x0040, t01=0x009a}
0x64a4…64ba Head {h00=0x0012, h01=0x0050, text=»ERAEND RTN A14«, t00=0x0040, t01=0x00c0}
0x64ba…64c4 Head {h00=0x0006, h01=0x0050, text=» «, t00=0x0040, t01=0x00d6}
0x64c4…64ce Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0040, t01=0x00e0}
0x64ce…64d8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0040, t01=0x00ea}
0x64d8…64f8 Head {h00=0x001c, h01=0x0050, text=»* ERASE ALL UNPROTECTED «, t00=0x0040, t01=0x00f4}
0x64f8…6502 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0040, t01=0x0114}
0x6502…650c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0040, t01=0x011e}
0x650c…6524 Head {h00=0x0014, h01=0x0050, text=»ERASUP LDK A2,2 «, t00=0x0040, t01=0x0128}
0x6524…6556 Head {h00=0x002e, h01=0x0050, text=» ST A2,WCC,TCABAS SET KEYBOARD RESTORE BIT«, t00=0x0040, t01=0x0140}
0x6556…658c Head {h00=0x0032, h01=0x0050, text=» SUR A1,A1 INDICATE ATT IN LAST SCREEN POS DK «, t00=0x0040, t01=0x0172}
0x658c…659e Head {h00=0x000e, h01=0x0050, text=» LDK A3,0 «, t00=0x0041, t01=0x0018}
0x659e…65b4 Head {h00=0x0012, h01=0x0050, text=» LDKL A4,BVDU «, t00=0x0041, t01=0x002a}
0x65b4…65ca Head {h00=0x0012, h01=0x0050, text=» ADR A4,TCABAS«, t00=0x0041, t01=0x0040}
0x65ca…65fe Head {h00=0x0030, h01=0x0050, text=» CM PCURS,TCABAS FIND FIRST UNPROTECTED POS «, t00=0x0041, t01=0x0056}
0x65fe…662e Head {h00=0x002c, h01=0x0050, text=» LC A2,1919,A4 GET LAST SCREEN CHARACTER«, t00=0x0041, t01=0x008a}
0x662e…6642 Head {h00=0x0010, h01=0x0050, text=» ANK A2,/7F «, t00=0x0041, t01=0x00ba}
0x6642…6664 Head {h00=0x001e, h01=0x0050, text=» CWK A2,/20 ATTRIBUTE ??? «, t00=0x0041, t01=0x00ce}
0x6664…668c Head {h00=0x0024, h01=0x0050, text=» RF(L) ERU:01 YES!! WE GOT IT!! «, t00=0x0041, t01=0x00f0}
0x668c…66c0 Head {h00=0x0030, h01=0x0050, text=» LDK A1,1 ATTRIBUTE NOT IN LAST SCREEN POS. «, t00=0x0041, t01=0x0118}
0x66c0…66dc Head {h00=0x0018, h01=0x0050, text=»ERASU1 CWK A3,LBVDU «, t00=0x0041, t01=0x014c}
0x66dc…66f2 Head {h00=0x0012, h01=0x0050, text=» RF(NL) ERASU2«, t00=0x0041, t01=0x0168}
0x66f2…670e Head {h00=0x0018, h01=0x0050, text=» LCR A2,A4 GET CHAR «, t00=0x0041, t01=0x017e}
0x670e…6722 Head {h00=0x0010, h01=0x0050, text=» ANK A2,/7F «, t00=0x0042, t01=0x000a}
0x6722…6734 Head {h00=0x000e, h01=0x0050, text=» ADK A3,1 «, t00=0x0042, t01=0x001e}
0x6734…6746 Head {h00=0x000e, h01=0x0050, text=» ADK A4,1 «, t00=0x0042, t01=0x0030}
0x6746…675a Head {h00=0x0010, h01=0x0050, text=» CWK A2,/20 «, t00=0x0042, t01=0x0042}
0x675a…677e Head {h00=0x0020, h01=0x0050, text=» RB(NL) ERASU1 NO ATTRIBUTE «, t00=0x0042, t01=0x0056}
0x677e…6792 Head {h00=0x0010, h01=0x0050, text=»ERU:01 EQU *«, t00=0x0042, t01=0x007a}
0x6792…67a6 Head {h00=0x0010, h01=0x0050, text=» ANK A2,/10 «, t00=0x0042, t01=0x008e}
0x67a6…67c6 Head {h00=0x001c, h01=0x0050, text=» RB(NZ) ERASU1 PROTECTED«, t00=0x0042, t01=0x00a2}
0x67c6…67f4 Head {h00=0x002a, h01=0x0050, text=» ST A3,PCURS,TCABAS SET NEW CURSOR POS«, t00=0x0042, t01=0x00c2}
0x67f4…6806 Head {h00=0x000e, h01=0x0050, text=» LDR A1,A1«, t00=0x0042, t01=0x00f0}
0x6806…683a Head {h00=0x0030, h01=0x0050, text=» RF(Z) ERASU3 ATTRIBUTE IN LAST SCREEN POS. «, t00=0x0042, t01=0x0102}
0x683a…6852 Head {h00=0x0014, h01=0x0050, text=»ERASU2 LDK A3,0 «, t00=0x0042, t01=0x0136}
0x6852…6868 Head {h00=0x0012, h01=0x0050, text=» LDKL A4,BVDU «, t00=0x0042, t01=0x014e}
0x6868…687e Head {h00=0x0012, h01=0x0050, text=» ADR A4,TCABAS«, t00=0x0042, t01=0x0164}
0x687e…6890 Head {h00=0x000e, h01=0x0050, text=» RF ERASU4«, t00=0x0042, t01=0x017a}
0x6890…68a4 Head {h00=0x0010, h01=0x0050, text=»ERASU3 EQU *«, t00=0x0042, t01=0x018c}
0x68a4…68b6 Head {h00=0x000e, h01=0x0050, text=» LDR A3,A3«, t00=0x0043, t01=0x0010}
0x68b6…68f0 Head {h00=0x0036, h01=0x0050, text=» RF(Z) ERASU4 UNPROTECTED ATT. IN LAST SCREEN POS.«, t00=0x0043, t01=0x0022}
0x68f0…6918 Head {h00=0x0024, h01=0x0050, text=» SUK A3,1 GET BACK TO ATTRIBUTE «, t00=0x0043, t01=0x005c}
0x6918…6936 Head {h00=0x001a, h01=0x0050, text=» SUK A4,1 - " -«, t00=0x0043, t01=0x0084}
0x6936…694a Head {h00=0x0010, h01=0x0050, text=»ERASU4 EQU *«, t00=0x0043, t01=0x00a2}
0x694a…6970 Head {h00=0x0022, h01=0x0050, text=» LDKL A1,/0F00 (LDK A1,0) DK3 «, t00=0x0043, t01=0x00b6}
0x6970…6994 Head {h00=0x0020, h01=0x0050, text=» LDK A6,NULL+/80 ERASE CHAR «, t00=0x0043, t01=0x00dc}
0x6994…69a6 Head {h00=0x000e, h01=0x0050, text=» RF ERAS35«, t00=0x0043, t01=0x0100}
0x69a6…69b0 Head {h00=0x0006, h01=0x0050, text=» «, t00=0x0043, t01=0x0112}
0x69b0…69ba Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0043, t01=0x011c}
0x69ba…69c4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0043, t01=0x0126}
0x69c4…69f6 Head {h00=0x002e, h01=0x0050, text=»* ERASE UNPROTECTED TO ADDRESS GIVEN IN A1«, t00=0x0043, t01=0x0130}
0x69f6…6a00 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0043, t01=0x0162}
0x6a00…6a0a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0043, t01=0x016c}
0x6a0a…6a38 Head {h00=0x002a, h01=0x0050, text=»ERASUA LDK A6,NULL+/80 ERASE CHARACTER«, t00=0x0043, t01=0x0176}
0x6a38…6a60 Head {h00=0x0024, h01=0x0050, text=» ******************* 78-09-11 «, t00=0x0044, t01=0x0014}
0x6a60…6a86 Head {h00=0x0022, h01=0x0050, text=» CWK A3,LBVDU WRAP AROUND ??? «, t00=0x0044, t01=0x003c}
0x6a86…6aa0 Head {h00=0x0016, h01=0x0050, text=» RF(L) ERAS:1 NO!!«, t00=0x0044, t01=0x0062}
0x6aa0…6abe Head {h00=0x001a, h01=0x0050, text=» LDK A3,0 BUFFERINDEX «, t00=0x0044, t01=0x007c}
0x6abe…6ad4 Head {h00=0x0012, h01=0x0050, text=» LDKL A4,BVDU «, t00=0x0044, t01=0x009a}
0x6ad4…6b04 Head {h00=0x002c, h01=0x0050, text=» ADR A4,TCABAS ABSOLUTE BUFFER ADDRESS «, t00=0x0044, t01=0x00b0}
0x6b04…6b0c Head {h00=0x0004, h01=0x0050, t00=0x0044, t01=0x00e0}
0x6b0c…6b48 Head {h00=0x0038, h01=0x0050, text=»ERAS:1 LDR A3,A3 START IN FIRST SCREEN POSITION ??? «, t00=0x0044, t01=0x00e8}
0x6b48…6b64 Head {h00=0x0018, h01=0x0050, text=» RF(NZ) ERAS35 NO!! «, t00=0x0044, t01=0x0124}
0x6b64…6b90 Head {h00=0x0028, h01=0x0050, text=» LC A2,1919,A4 LAST BUFFER CHARACTER«, t00=0x0044, t01=0x0140}
0x6b90…6ba4 Head {h00=0x0010, h01=0x0050, text=» ANK A2,/7F «, t00=0x0044, t01=0x016c}
0x6ba4…6bd0 Head {h00=0x0028, h01=0x0050, text=» CWK A2,/20 ATTRIBUTE CHARACTER ??? «, t00=0x0044, t01=0x0180}
0x6bd0…6bec Head {h00=0x0018, h01=0x0050, text=» RF(NL) ERAS35 NO!!!«, t00=0x0045, t01=0x001c}
0x6bec…6c00 Head {h00=0x0010, h01=0x0050, text=» ANK A2,/10 «, t00=0x0045, t01=0x0038}
0x6c00…6c26 Head {h00=0x0022, h01=0x0050, text=» RF(NZ) ERAS70 PROTECTED FIELD«, t00=0x0045, t01=0x004c}
0x6c26…6c42 Head {h00=0x0018, h01=0x0050, text=»* LC A2,1919,A4 DK3«, t00=0x0045, t01=0x0072}
0x6c42…6c5c Head {h00=0x0016, h01=0x0050, text=»* ANK A2,/FE DK3 «, t00=0x0045, t01=0x008e}
0x6c5c…6c86 Head {h00=0x0026, h01=0x0050, text=»* SC A2,1919,A4 RESET MDT BIT DK3 «, t00=0x0045, t01=0x00a8}
0x6c86…6c98 Head {h00=0x000e, h01=0x0050, text=» RF ERAS35«, t00=0x0045, t01=0x00d2}
0x6c98…6cc0 Head {h00=0x0024, h01=0x0050, text=» ******************** 78-09-11«, t00=0x0045, t01=0x00e4}
0x6cc0…6cdc Head {h00=0x0018, h01=0x0050, text=»ERAS30 CWK A3,LBVDU «, t00=0x0045, t01=0x010c}
0x6cdc…6d04 Head {h00=0x0024, h01=0x0050, text=» RF(L) ERAS33 NOT END OF SCREEN «, t00=0x0045, t01=0x0128}
0x6d04…6d16 Head {h00=0x000e, h01=0x0050, text=» LDK A3,0 «, t00=0x0045, t01=0x0150}
0x6d16…6d38 Head {h00=0x001e, h01=0x0050, text=» LDKL A4,BVDU WRAP AROUND «, t00=0x0045, t01=0x0162}
0x6d38…6d4e Head {h00=0x0012, h01=0x0050, text=» ADR A4,TCABAS«, t00=0x0045, t01=0x0184}
0x6d4e…6d62 Head {h00=0x0010, h01=0x0050, text=»ERAS33 EQU *«, t00=0x0046, t01=0x000a}
0x6d62…6d88 Head {h00=0x0022, h01=0x0050, text=» CWK A1,/0F00 EUA COMMAND? DK3«, t00=0x0046, t01=0x001e}
0x6d88…6db0 Head {h00=0x0024, h01=0x0050, text=» RF(L) ERAS34 NO, EUA ORDER DK3 «, t00=0x0046, t01=0x0044}
0x6db0…6ddc Head {h00=0x0028, h01=0x0050, text=» CWK A3,0 FINISHED EUA COMMAND? DK3 «, t00=0x0046, t01=0x006c}
0x6ddc…6e04 Head {h00=0x0024, h01=0x0050, text=» RF(NZ) ERAS35 NO, CONTINUE DK3 «, t00=0x0046, t01=0x0098}
0x6e04…6e26 Head {h00=0x001e, h01=0x0050, text=» LDK A1,0 YES FINISHED DK3«, t00=0x0046, t01=0x00c0}
0x6e26…6e3e Head {h00=0x0014, h01=0x0050, text=» RB ERAEND DK3 «, t00=0x0046, t01=0x00e2}
0x6e3e…6e58 Head {h00=0x0016, h01=0x0050, text=»ERAS34 EQU * DK3 «, t00=0x0046, t01=0x00fa}
0x6e58…6e6a Head {h00=0x000e, h01=0x0050, text=» CWR A3,A1«, t00=0x0046, t01=0x0114}
0x6e6a…6e96 Head {h00=0x0028, h01=0x0050, text=» RB(E) ERAEND ALL UNPROTECTED ERASED«, t00=0x0046, t01=0x0126}
0x6e96…6ec8 Head {h00=0x002e, h01=0x0050, text=»ERAS35 LCR A2,A4 GET CHAR FROM VDU BUFFER «, t00=0x0046, t01=0x0152}
0x6ec8…6edc Head {h00=0x0010, h01=0x0050, text=» ANK A2,/7F «, t00=0x0046, t01=0x0184}
0x6edc…6ef0 Head {h00=0x0010, h01=0x0050, text=» CWK A2,/20 «, t00=0x0047, t01=0x0008}
0x6ef0…6f14 Head {h00=0x0020, h01=0x0050, text=» RF(L) ERAS50 ATTRIBUTE CHAR«, t00=0x0047, t01=0x001c}
0x6f14…6f28 Head {h00=0x0010, h01=0x0050, text=» XRK A2,NULL«, t00=0x0047, t01=0x0040}
0x6f28…6f4a Head {h00=0x001e, h01=0x0050, text=» RF(Z) ERAS40 ALREADY NULL«, t00=0x0047, t01=0x0054}
0x6f4a…6f70 Head {h00=0x0022, h01=0x0050, text=» SCR A6,A4 STORE MODIFIED NULL«, t00=0x0047, t01=0x0076}
0x6f70…6f88 Head {h00=0x0014, h01=0x0050, text=»ERAS40 ADK A3,1 «, t00=0x0047, t01=0x009c}
0x6f88…6f9a Head {h00=0x000e, h01=0x0050, text=» ADK A4,1 «, t00=0x0047, t01=0x00b4}
0x6f9a…6fac Head {h00=0x000e, h01=0x0050, text=» RB ERAS30«, t00=0x0047, t01=0x00c6}
0x6fac…6fc4 Head {h00=0x0014, h01=0x0050, text=»ERAS50 ADK A3,1 «, t00=0x0047, t01=0x00d8}
0x6fc4…6fd6 Head {h00=0x000e, h01=0x0050, text=» ADK A4,1 «, t00=0x0047, t01=0x00f0}
0x6fd6…6fea Head {h00=0x0010, h01=0x0050, text=» ANK A2,/10 «, t00=0x0047, t01=0x0102}
0x6fea…7010 Head {h00=0x0022, h01=0x0050, text=» RF(NZ) ERAS60 PROTECTED FIELD«, t00=0x0047, t01=0x0116}
0x7010…7036 Head {h00=0x0022, h01=0x0050, text=» CWK A1,/0F00 EUA COMMAND? DK3«, t00=0x0047, t01=0x013c}
0x7036…7052 Head {h00=0x0018, h01=0x0050, text=» RB(L) ERAS30 NO DK3«, t00=0x0047, t01=0x0162}
0x7052…707c Head {h00=0x0026, h01=0x0050, text=»* EUA COMMAND: RESET MDT BIT DK3 «, t00=0x0047, t01=0x017e}
0x707c…7090 Head {h00=0x0010, h01=0x0050, text=» LC A2,-1,A4«, t00=0x0048, t01=0x0018}
0x7090…70b2 Head {h00=0x001e, h01=0x0050, text=» ANK A2,/FE RESET MDT BIT «, t00=0x0048, t01=0x002c}
0x70b2…70c6 Head {h00=0x0010, h01=0x0050, text=» SC A2,-1,A4«, t00=0x0048, t01=0x004e}
0x70c6…70d8 Head {h00=0x000e, h01=0x0050, text=» RB ERAS30«, t00=0x0048, t01=0x0062}
0x70d8…70f4 Head {h00=0x0018, h01=0x0050, text=»ERAS60 CWK A3,LBVDU «, t00=0x0048, t01=0x0074}
0x70f4…710a Head {h00=0x0012, h01=0x0050, text=» RF(L) ERAS65 «, t00=0x0048, t01=0x0090}
0x710a…711c Head {h00=0x000e, h01=0x0050, text=» LDK A3,0 «, t00=0x0048, t01=0x00a6}
0x711c…713e Head {h00=0x001e, h01=0x0050, text=» LDKL A4,BVDU WRAP AROUND «, t00=0x0048, t01=0x00b8}
0x713e…7154 Head {h00=0x0012, h01=0x0050, text=» ADR A4,TCABAS«, t00=0x0048, t01=0x00da}
0x7154…7168 Head {h00=0x0010, h01=0x0050, text=»ERAS65 EQU *«, t00=0x0048, t01=0x00f0}
0x7168…718e Head {h00=0x0022, h01=0x0050, text=» CWK A1,/0F00 EUA COMMAND? DK3«, t00=0x0048, t01=0x0104}
0x718e…71b6 Head {h00=0x0024, h01=0x0050, text=» RF(L) ERAS67 NO, EUA ORDER DK3 «, t00=0x0048, t01=0x012a}
0x71b6…71e2 Head {h00=0x0028, h01=0x0050, text=» CWK A3,0 FINISHED EUA COMMAND? DK3 «, t00=0x0048, t01=0x0152}
0x71e2…7208 Head {h00=0x0022, h01=0x0050, text=» RF(NZ) ERAS70 NO,CONTINUE DK3«, t00=0x0048, t01=0x017e}
0x7208…722c Head {h00=0x0020, h01=0x0050, text=» LDK A1,0 YYES, FINSHED DK3 «, t00=0x0049, t01=0x0014}
0x722c…7244 Head {h00=0x0014, h01=0x0050, text=» RB ERAEND DK3 «, t00=0x0049, t01=0x0038}
0x7244…725e Head {h00=0x0016, h01=0x0050, text=»ERAS67 EQU * DK3 «, t00=0x0049, t01=0x0050}
0x725e…7270 Head {h00=0x000e, h01=0x0050, text=» CWR A3,A1«, t00=0x0049, t01=0x006a}
0x7270…729c Head {h00=0x0028, h01=0x0050, text=» RB(E) ERAEND ALL UNPROTECTED ERASED«, t00=0x0049, t01=0x007c}
0x729c…72b0 Head {h00=0x0010, h01=0x0050, text=»ERAS70 EQU *«, t00=0x0049, t01=0x00a8}
0x72b0…72c2 Head {h00=0x000e, h01=0x0050, text=» LCR A2,A4«, t00=0x0049, t01=0x00bc}
0x72c2…72d6 Head {h00=0x0010, h01=0x0050, text=» ANK A2,/7F «, t00=0x0049, t01=0x00ce}
0x72d6…72ea Head {h00=0x0010, h01=0x0050, text=» CWK A2,/20 «, t00=0x0049, t01=0x00e2}
0x72ea…7310 Head {h00=0x0022, h01=0x0050, text=» RB(L) ERAS50 ATTRIBUTE FOUND «, t00=0x0049, t01=0x00f6}
0x7310…7322 Head {h00=0x000e, h01=0x0050, text=» ADK A3,1 «, t00=0x0049, t01=0x011c}
0x7322…7334 Head {h00=0x000e, h01=0x0050, text=» ADK A4,1 «, t00=0x0049, t01=0x012e}
0x7334…7346 Head {h00=0x000e, h01=0x0050, text=» RB ERAS60«, t00=0x0049, t01=0x0140}
0x7346…7350 Head {h00=0x0006, h01=0x0050, text=» «, t00=0x0049, t01=0x0152}
0x7350…735a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0049, t01=0x015c}
0x735a…7364 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0049, t01=0x0166}
0x7364…7388 Head {h00=0x0020, h01=0x0050, text=»* TRANSMIT PROGRAM ATTENTION«, t00=0x0049, t01=0x0170}
0x7388…7392 (74, 0, 400) Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004a, t01=0x0004}
0x7392…73a2 Head {h00=0x000c, h01=0x0050, text=»* A2=AID«, t00=0x004a, t01=0x000e}
0x73a2…73ac Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004a, t01=0x001e}
0x73ac…73b6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004a, t01=0x0028}
0x73b6…73e4 Head {h00=0x002a, h01=0x0050, text=»TRPA CF A14,GTWBUF GET TRANSMIT BUFFER«, t00=0x004a, t01=0x0032}
0x73e4…7408 Head {h00=0x0020, h01=0x0050, text=»TRPA10 CF A14,PAID STORE AID«, t00=0x004a, t01=0x0060}
0x7408…741c Head {h00=0x0010, h01=0x0050, text=»TRANS EQU * «, t00=0x004a, t01=0x0084}
0x741c…7440 Head {h00=0x0020, h01=0x0050, text=» CF A14,DCWRTE WRITE MESSAGE«, t00=0x004a, t01=0x0098}
0x7440…7454 Head {h00=0x0010, h01=0x0050, text=»TR050 EQU * «, t00=0x004a, t01=0x00bc}
0x7454…747a Head {h00=0x0022, h01=0x0050, text=» RTN A14 TRANSMISSION TROUBLE «, t00=0x004a, t01=0x00d0}
0x747a…7490 Head {h00=0x0012, h01=0x0050, text=»TRRTN RTN A14 «, t00=0x004a, t01=0x00f6}
0x7490…749a Head {h00=0x0006, h01=0x0050, text=» «, t00=0x004a, t01=0x010c}
0x749a…74a4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004a, t01=0x0116}
0x74a4…74ae Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004a, t01=0x0120}
0x74ae…74d2 Head {h00=0x0020, h01=0x0050, text=»* TRANSMIT PROGRAM FUNCTION «, t00=0x004a, t01=0x012a}
0x74d2…74dc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004a, t01=0x014e}
0x74dc…74ec Head {h00=0x000c, h01=0x0050, text=»* A2=AID«, t00=0x004a, t01=0x0158}
0x74ec…74f6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004a, t01=0x0168}
0x74f6…7500 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004a, t01=0x0172}
0x7500…752e Head {h00=0x002a, h01=0x0050, text=»TRPF CF A14,GTWBUF GET TRANSMIT BUFFER«, t00=0x004a, t01=0x017c}
0x752e…7552 Head {h00=0x0020, h01=0x0050, text=»TRPF10 CF A14,PAID STORE AID«, t00=0x004b, t01=0x001a}
0x7552…757c Head {h00=0x0026, h01=0x0050, text=» CF A14,CURSA STORE CURSOR ADDRESS«, t00=0x004b, t01=0x003e}
0x757c…75a0 Head {h00=0x0020, h01=0x0050, text=» CF A14,RDMOD READ MODIFIED «, t00=0x004b, t01=0x0068}
0x75a0…75c6 Head {h00=0x0022, h01=0x0050, text=» RB TRANS SEND MODIFIED FIELDS«, t00=0x004b, t01=0x008c}
0x75c6…75d0 Head {h00=0x0006, h01=0x0050, text=» «, t00=0x004b, t01=0x00b2}
0x75d0…75da Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004b, t01=0x00bc}
0x75da…75e4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004b, t01=0x00c6}
0x75e4…760c Head {h00=0x0024, h01=0x0050, text=»* DISPLAY MODIFIED FIELDS ON VDU«, t00=0x004b, t01=0x00d0}
0x760c…7616 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004b, t01=0x00f8}
0x7616…7620 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004b, t01=0x0102}
0x7620…763a Head {h00=0x0016, h01=0x0050, text=»* A3=VDU POSITION «, t00=0x004b, t01=0x010c}
0x763a…7658 Head {h00=0x001a, h01=0x0050, text=»* A4=VDU IMAGE POINTER«, t00=0x004b, t01=0x0126}
0x7658…7678 Head {h00=0x001c, h01=0x0050, text=»* A5=MODIFIED INDICATOR «, t00=0x004b, t01=0x0144}
0x7678…769c Head {h00=0x0020, h01=0x0050, text=»* A7=VDU LINE OUTPUT POINTER«, t00=0x004b, t01=0x0164}
0x769c…76b0 Head {h00=0x0010, h01=0x0050, text=»* A8=VDU ECB«, t00=0x004b, t01=0x0188}
0x76b0…76d4 Head {h00=0x0020, h01=0x0050, text=»* A9=VDU OUTPUT CHAR COUNTER«, t00=0x004c, t01=0x000c}
0x76d4…76de Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004c, t01=0x0030}
0x76de…76e8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004c, t01=0x003a}
0x76e8…7704 Head {h00=0x0018, h01=0x0050, text=»DISPL LDKL A8,ECBVDU«, t00=0x004c, t01=0x0044}
0x7704…771a Head {h00=0x0012, h01=0x0050, text=» ADR A8,CREBAS«, t00=0x004c, t01=0x0060}
0x771a…7748 Head {h00=0x002a, h01=0x0050, text=» LDKL A1,/101 START FROM LINE 1 POS 1 «, t00=0x004c, t01=0x0076}
0x7748…7760 Head {h00=0x0014, h01=0x0050, text=» ST A1,ECBCW,A8 «, t00=0x004c, t01=0x00a4}
0x7760…779c Head {h00=0x0038, h01=0x0050, text=» SUR A10,A10 RESET COUNT FOR INTENSIFIED DISPLAYING «, t00=0x004c, t01=0x00bc}
0x779c…77ae Head {h00=0x000e, h01=0x0050, text=» LDK A3,0 «, t00=0x004c, t01=0x00f8}
0x77ae…77c4 Head {h00=0x0012, h01=0x0050, text=» LDKL A4,BVDU «, t00=0x004c, t01=0x010a}
0x77c4…77da Head {h00=0x0012, h01=0x0050, text=» ADR A4,TCABAS«, t00=0x004c, t01=0x0120}
0x77da…780a Head {h00=0x002c, h01=0x0050, text=» CF A14,SPACES PUT SPACES IN LINE BUFFER«, t00=0x004c, t01=0x0136}
0x780a…7844 Head {h00=0x0036, h01=0x0050, text=» LC A2,1919,A4 CHECK IF ATTRIBUTE IN LAST POSITION«, t00=0x004c, t01=0x0166}
0x7844…7858 Head {h00=0x0010, h01=0x0050, text=» ANK A2,/7F «, t00=0x004d, t01=0x0010}
0x7858…787a Head {h00=0x001e, h01=0x0050, text=» CWK A2,/1F ATTRIBUTE ??? «, t00=0x004d, t01=0x0024}
0x787a…7896 Head {h00=0x0018, h01=0x0050, text=» RF(G) DIS100 NO!!! «, t00=0x004d, t01=0x0046}
0x7896…789e Head {h00=0x0004, h01=0x0050, t00=0x004d, t01=0x0062}
0x789e…78b0 Head {h00=0x000e, h01=0x0050, text=» ANK A2,6 «, t00=0x004d, t01=0x006a}
0x78b0…78c2 Head {h00=0x000e, h01=0x0050, text=» XRK A2,6 «, t00=0x004d, t01=0x007c}
0x78c2…7904 Head {h00=0x003e, h01=0x0050, text=» ST A2,INTATT,TCABAS CHECK DISPLAY/NONDISPLAY INFORMATION «, t00=0x004d, t01=0x008e}
0x7904…7926 Head {h00=0x001e, h01=0x0050, text=» RF(Z) DIS210 NON DISPLAY «, t00=0x004d, t01=0x00d0}
0x7926…795e Head {h00=0x0034, h01=0x0050, text=» CF A14,INTCHK INSERT HIGH/LOW INTENS. IN BUFFER«, t00=0x004d, t01=0x00f2}
0x795e…7972 Head {h00=0x0010, h01=0x0050, text=»DIS100 EQU *«, t00=0x004d, t01=0x012a}
0x7972…7988 Head {h00=0x0012, h01=0x0050, text=» CWK A9,LLINE «, t00=0x004d, t01=0x013e}
0x7988…79ae Head {h00=0x0022, h01=0x0050, text=» RF(L) DIS110 NOT END OF LINE «, t00=0x004d, t01=0x0154}
0x79ae…79d6 Head {h00=0x0024, h01=0x0050, text=» CF A14,DISLIN DISPLAY THIS LINE«, t00=0x004d, t01=0x017a}
0x79d6…7a08 Head {h00=0x002e, h01=0x0050, text=» CF A14,INTCHK CHECK IF LOW/HIGH INTENSITY«, t00=0x004e, t01=0x0012}
0x7a08…7a1c Head {h00=0x0010, h01=0x0050, text=»DIS110 EQU *«, t00=0x004e, t01=0x0044}
0x7a1c…7a32 Head {h00=0x0012, h01=0x0050, text=» CWK A3,LBVDU «, t00=0x004e, t01=0x0058}
0x7a32…7a54 Head {h00=0x001e, h01=0x0050, text=» RF(NL) DIS900 ALL SCANNED«, t00=0x004e, t01=0x006e}
0x7a54…7a70 Head {h00=0x0018, h01=0x0050, text=» LCR A2,A4 GET CHAR «, t00=0x004e, t01=0x0090}
0x7a70…7a78 Head {h00=0x0004, h01=0x0050, t00=0x004e, t01=0x00ac}
0x7a78…7a9e Head {h00=0x0022, h01=0x0050, text=» CF A14,SET:M SET MODIFIED BIT«, t00=0x004e, t01=0x00b4}
0x7a9e…7aa6 Head {h00=0x0004, h01=0x0050, t00=0x004e, t01=0x00da}
0x7aa6…7aba Head {h00=0x0010, h01=0x0050, text=»DIS115 EQU *«, t00=0x004e, t01=0x00e2}
0x7aba…7ae0 Head {h00=0x0022, h01=0x0050, text=» ANK A2,/7F RESET DISPLAY BIT «, t00=0x004e, t01=0x00f6}
0x7ae0…7af2 Head {h00=0x000e, h01=0x0050, text=» SCR A2,A4«, t00=0x004e, t01=0x011c}
0x7af2…7b04 Head {h00=0x000e, h01=0x0050, text=» ADK A3,1 «, t00=0x004e, t01=0x012e}
0x7b04…7b16 Head {h00=0x000e, h01=0x0050, text=» ADK A4,1 «, t00=0x004e, t01=0x0140}
0x7b16…7b28 Head {h00=0x000e, h01=0x0050, text=» ADK A7,1 «, t00=0x004e, t01=0x0152}
0x7b28…7b3a Head {h00=0x000e, h01=0x0050, text=» ADKL A9,1«, t00=0x004e, t01=0x0164}
0x7b3a…7b4e Head {h00=0x0010, h01=0x0050, text=» CWK A2,/20 «, t00=0x004e, t01=0x0176}
0x7b4e…7b72 Head {h00=0x0020, h01=0x0050, text=» RF(L) DIS200 ATTRIBUTE CHAR«, t00=0x004e, t01=0x018a}
0x7b72…7b86 Head {h00=0x0010, h01=0x0050, text=» CWK A2,NULL«, t00=0x004f, t01=0x001e}
0x7b86…7bb8 Head {h00=0x002e, h01=0x0050, text=» RB(E) DIS100 NULL EQUALS SPACE AT DISPLAY«, t00=0x004f, t01=0x0032}
0x7bb8…7bcc Head {h00=0x0010, h01=0x0050, text=» CWK A2,/7D «, t00=0x004f, t01=0x0064}
0x7bcc…7be2 Head {h00=0x0012, h01=0x0050, text=» RF(NE) DIS120«, t00=0x004f, t01=0x0078}
0x7be2…7bf6 Head {h00=0x0010, h01=0x0050, text=» LDK A2,/39 «, t00=0x004f, t01=0x008e}
0x7bf6…7c10 Head {h00=0x0016, h01=0x0050, text=»DIS120 CWK A2,/7E «, t00=0x004f, t01=0x00a2}
0x7c10…7c26 Head {h00=0x0012, h01=0x0050, text=» RF(NE) DIS121«, t00=0x004f, t01=0x00bc}
0x7c26…7c3a Head {h00=0x0010, h01=0x0050, text=» LDK A2,/35 «, t00=0x004f, t01=0x00d2}
0x7c3a…7c54 Head {h00=0x0016, h01=0x0050, text=»DIS121 CWK A2,/7C «, t00=0x004f, t01=0x00e6}
0x7c54…7c6a Head {h00=0x0012, h01=0x0050, text=» RF(NE) DIS122«, t00=0x004f, t01=0x0100}
0x7c6a…7c7e Head {h00=0x0010, h01=0x0050, text=» LDK A2,/3C «, t00=0x004f, t01=0x0116}
0x7c7e…7c92 Head {h00=0x0010, h01=0x0050, text=»DIS122 EQU *«, t00=0x004f, t01=0x012a}
0x7c92…7cae Head {h00=0x0018, h01=0x0050, text=» CF A14,RFMDUP DK4 «, t00=0x004f, t01=0x013e}
0x7cae…7ce6 Head {h00=0x0034, h01=0x0050, text=» SC A2,-1,A7 STORE CHAR IN DISPLAY OUTPUT BUFFER«, t00=0x004f, t01=0x015a}
0x7ce6…7cf8 (80, 0, 400) Head {h00=0x000e, h01=0x0050, text=» RB DIS100«, t00=0x0050, t01=0x0004}
0x7cf8…7d10 Head {h00=0x0014, h01=0x0050, text=»DIS200 ANK A2,6 «, t00=0x0050, t01=0x0016}
0x7d10…7d36 Head {h00=0x0022, h01=0x0050, text=» XRK A2,6 CHECK IF NONDISPLAY «, t00=0x0050, t01=0x002e}
0x7d36…7d6c Head {h00=0x0032, h01=0x0050, text=» ST A2,INTATT,TCABAS SAVE ATTRIBUTE CHARACTER «, t00=0x0050, t01=0x0054}
0x7d6c…7d8e Head {h00=0x001e, h01=0x0050, text=» RF(Z) DIS210 NON DISPLAY «, t00=0x0050, t01=0x008a}
0x7d8e…7da0 Head {h00=0x000e, h01=0x0050, text=» ANK A2,4 «, t00=0x0050, t01=0x00ac}
0x7da0…7dc4 Head {h00=0x0020, h01=0x0050, text=» RF(Z) DIS205 HIGH INTENSITY«, t00=0x0050, t01=0x00be}
0x7dc4…7de6 Head {h00=0x001e, h01=0x0050, text=» LDK A2,/1E LOW INTENSITY «, t00=0x0050, t01=0x00e2}
0x7de6…7df8 Head {h00=0x000e, h01=0x0050, text=» RF DIS206«, t00=0x0050, t01=0x0104}
0x7df8…7e0c Head {h00=0x0010, h01=0x0050, text=»DIS205 EQU *«, t00=0x0050, t01=0x0116}
0x7e0c…7e24 Head {h00=0x0014, h01=0x0050, text=» LDK A2,/1F HIGH«, t00=0x0050, t01=0x012a}
0x7e24…7e38 Head {h00=0x0010, h01=0x0050, text=»DIS206 EQU *«, t00=0x0050, t01=0x0142}
0x7e38…7e66 Head {h00=0x002a, h01=0x0050, text=» SC A2,-1,A7 STORE INTENSITY CHARACTER«, t00=0x0050, t01=0x0156}
0x7e66…7e8c Head {h00=0x0022, h01=0x0050, text=» ADKL A10,1 INCREMENT COUNTER «, t00=0x0050, t01=0x0184}
0x7e8c…7e9e Head {h00=0x000e, h01=0x0050, text=» ADK A7,1 «, t00=0x0051, t01=0x001a}
0x7e9e…7eb0 Head {h00=0x000e, h01=0x0050, text=» RB DIS100«, t00=0x0051, t01=0x002c}
0x7eb0…7ec4 Head {h00=0x0010, h01=0x0050, text=»DIS210 EQU *«, t00=0x0051, t01=0x003e}
0x7ec4…7eda Head {h00=0x0012, h01=0x0050, text=» CWK A9,LLINE «, t00=0x0051, t01=0x0052}
0x7eda…7ef0 Head {h00=0x0012, h01=0x0050, text=» RF(L) DIS220 «, t00=0x0051, t01=0x0068}
0x7ef0…7f18 Head {h00=0x0024, h01=0x0050, text=» CF A14,DISLIN DISPLAY THIS LINE«, t00=0x0051, t01=0x007e}
0x7f18…7f2c Head {h00=0x0010, h01=0x0050, text=»DIS220 EQU *«, t00=0x0051, t01=0x00a6}
0x7f2c…7f42 Head {h00=0x0012, h01=0x0050, text=» CWK A3,LBVDU «, t00=0x0051, t01=0x00ba}
0x7f42…7f66 Head {h00=0x0020, h01=0x0050, text=» RF(NL) DIS900 ALL DISPLAYED«, t00=0x0051, t01=0x00d0}
0x7f66…7f78 Head {h00=0x000e, h01=0x0050, text=» LCR A2,A4«, t00=0x0051, t01=0x00f4}
0x7f78…7f80 Head {h00=0x0004, h01=0x0050, t00=0x0051, t01=0x0106}
0x7f80…7fa6 Head {h00=0x0022, h01=0x0050, text=» CF A14,SET:M SET MODIFIED BIT«, t00=0x0051, t01=0x010e}
0x7fa6…7fae Head {h00=0x0004, h01=0x0050, t00=0x0051, t01=0x0134}
0x7fae…7fc2 Head {h00=0x0010, h01=0x0050, text=»DIS225 EQU *«, t00=0x0051, t01=0x013c}
0x7fc2…7fe8 Head {h00=0x0022, h01=0x0050, text=» ANK A2,/7F RESET DISPLAY BIT «, t00=0x0051, t01=0x0150}
0x7fe8…7ffa Head {h00=0x000e, h01=0x0050, text=» SCR A2,A4«, t00=0x0051, t01=0x0176}
0x7ffa…800c Head {h00=0x000e, h01=0x0050, text=» ADK A3,1 «, t00=0x0051, t01=0x0188}
0x800c…801e Head {h00=0x000e, h01=0x0050, text=» ADK A4,1 «, t00=0x0052, t01=0x000a}
0x801e…8030 Head {h00=0x000e, h01=0x0050, text=» ADK A7,1 «, t00=0x0052, t01=0x001c}
0x8030…8042 Head {h00=0x000e, h01=0x0050, text=» ADKL A9,1«, t00=0x0052, t01=0x002e}
0x8042…8056 Head {h00=0x0010, h01=0x0050, text=» CWK A2,/20 «, t00=0x0052, t01=0x0040}
0x8056…807c Head {h00=0x0022, h01=0x0050, text=» RB(L) DIS200 ATTRIBUTE FOUND «, t00=0x0052, t01=0x0054}
0x807c…808e Head {h00=0x000e, h01=0x0050, text=» RB DIS210«, t00=0x0052, t01=0x007a}
0x808e…8098 Head {h00=0x0006, h01=0x0050, text=» «, t00=0x0052, t01=0x008c}
0x8098…80a2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0052, t01=0x0096}
0x80a2…80ac Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0052, t01=0x00a0}
0x80ac…80ca Head {h00=0x001a, h01=0x0050, text=»* POSITION THE CURSOR «, t00=0x0052, t01=0x00aa}
0x80ca…80d4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0052, t01=0x00c8}
0x80d4…80de Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0052, t01=0x00d2}
0x80de…80f2 Head {h00=0x0010, h01=0x0050, text=»SETCUR EQU *«, t00=0x0052, t01=0x00dc}
0x80f2…8114 Head {h00=0x001e, h01=0x0050, text=»DIS900 LDK A1,2 REQ LENGTH«, t00=0x0052, t01=0x00f0}
0x8114…8132 Head {h00=0x001a, h01=0x0050, text=»DIS905 ST A1,ECBRL,A8 «, t00=0x0052, t01=0x0112}
0x8132…815c Head {h00=0x0026, h01=0x0050, text=» LD A1,PCURS,TCABAS GET CURSOR POS«, t00=0x0052, t01=0x0130}
0x815c…8186 Head {h00=0x0026, h01=0x0050, text=» LDKL A2,/101 START ON LIN 1 POS 1«, t00=0x0052, t01=0x015a}
0x8186…819e Head {h00=0x0014, h01=0x0050, text=» ST A2,ECBCW,A8 «, t00=0x0052, t01=0x0184}
0x819e…81b4 Head {h00=0x0012, h01=0x0050, text=» LDKL A2,/100 «, t00=0x0053, t01=0x000c}
0x81b4…81d0 Head {h00=0x0018, h01=0x0050, text=»DIS910 CWK A1,LLINE «, t00=0x0053, t01=0x0022}
0x81d0…81e6 Head {h00=0x0012, h01=0x0050, text=» RF(L) DIS920 «, t00=0x0053, t01=0x003e}
0x81e6…81fe Head {h00=0x0014, h01=0x0050, text=» ADS A2,ECBCW,A8«, t00=0x0053, t01=0x0054}
0x81fe…8214 Head {h00=0x0012, h01=0x0050, text=» SUKL A1,LLINE«, t00=0x0053, t01=0x006c}
0x8214…8226 Head {h00=0x000e, h01=0x0050, text=» RB DIS910«, t00=0x0053, t01=0x0082}
0x8226…8244 Head {h00=0x001a, h01=0x0050, text=»DIS920 ADS A1,ECBCW,A8«, t00=0x0053, t01=0x0094}
0x8244…826c Head {h00=0x0024, h01=0x0050, text=» LDK A7,/8B SET CURSOR AND WRITE«, t00=0x0053, t01=0x00b2}
0x826c…8278 Head {h00=0x0008, h01=0x0050, text=» LKM«, t00=0x0053, t01=0x00da}
0x8278…8288 Head {h00=0x000c, h01=0x0050, text=» DATA 1 «, t00=0x0053, t01=0x00e6}
0x8288…82bc Head {h00=0x0030, h01=0x0050, text=» CM INTATT,TCABAS CLEAR INTENSITY ATTRIBUTE «, t00=0x0053, t01=0x00f6}
0x82bc…82cc Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0053, t01=0x012a}
0x82cc…82d6 Head {h00=0x0006, h01=0x0050, text=» «, t00=0x0053, t01=0x013a}
0x82d6…82e0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0053, t01=0x0144}
0x82e0…82ea Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0053, t01=0x014e}
0x82ea…831e Head {h00=0x0030, h01=0x0050, text=»* WRITE ONE CHAR FROM A2 IN CURSOR POSITION «, t00=0x0053, t01=0x0158}
0x831e…8328 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0053, t01=0x018c}
0x8328…8332 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0054, t01=0x0008}
0x8332…834e Head {h00=0x0018, h01=0x0050, text=»WCHAR LD A1,ECBBA,A8«, t00=0x0054, t01=0x0012}
0x834e…8364 Head {h00=0x0012, h01=0x0050, text=» CF A14,RFMDUP«, t00=0x0054, t01=0x002e}
0x8364…8398 Head {h00=0x0030, h01=0x0050, text=» SC A2,3,A1 STORE CHAR IN VDU OUTPUT BUFFER «, t00=0x0054, t01=0x0044}
0x8398…83aa Head {h00=0x000e, h01=0x0050, text=» LDK A1,4 «, t00=0x0054, t01=0x0078}
0x83aa…83cc Head {h00=0x001e, h01=0x0050, text=» RB DIS905 REQ LENGTH = 3 «, t00=0x0054, t01=0x008a}
0x83cc…83d6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0054, t01=0x00ac}
0x83d6…8424 Head {h00=0x004a, h01=0x0050, text=»********************************************************************* «, t00=0x0054, t01=0x00b6}
0x8424…842e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0054, t01=0x0104}
0x842e…846a Head {h00=0x0038, h01=0x0050, text=»* REPLACE FM & DUP WITH '*' RESP. ';', IF PRESENT«, t00=0x0054, t01=0x010e}
0x846a…8488 Head {h00=0x001a, h01=0x0050, text=»* CHARACTER IN A2«, t00=0x0054, t01=0x014a}
0x8488…8492 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0054, t01=0x0168}
0x8492…84e0 Head {h00=0x004a, h01=0x0050, text=»********************************************************************* «, t00=0x0054, t01=0x0172}
0x84e0…84ea Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0055, t01=0x0030}
0x84ea…84fe Head {h00=0x0010, h01=0x0050, text=»RFMDUP EQU *«, t00=0x0055, t01=0x003a}
0x84fe…8514 Head {h00=0x0012, h01=0x0050, text=» CWK A2,DUPCH «, t00=0x0055, t01=0x004e}
0x8514…852a Head {h00=0x0012, h01=0x0050, text=» RF(NE) RFMD10«, t00=0x0055, t01=0x0064}
0x852a…8542 Head {h00=0x0014, h01=0x0050, text=» LDK A2,/2A DUP «, t00=0x0055, t01=0x007a}
0x8542…8556 Head {h00=0x0010, h01=0x0050, text=»RFMD10 EQU *«, t00=0x0055, t01=0x0092}
0x8556…856a Head {h00=0x0010, h01=0x0050, text=» CWK A2,FMCH«, t00=0x0055, t01=0x00a6}
0x856a…8580 Head {h00=0x0012, h01=0x0050, text=» RF(NE) RFMD20«, t00=0x0055, t01=0x00ba}
0x8580…8594 Head {h00=0x0010, h01=0x0050, text=» LDK A2,/3B «, t00=0x0055, t01=0x00d0}
0x8594…85a8 Head {h00=0x0010, h01=0x0050, text=»RFMD20 EQU *«, t00=0x0055, t01=0x00e4}
0x85a8…85b8 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0055, t01=0x00f8}
0x85b8…85c2 Head {h00=0x0006, h01=0x0050, text=» «, t00=0x0055, t01=0x0108}
0x85c2…85cc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0055, t01=0x0112}
0x85cc…85d6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0055, t01=0x011c}
0x85d6…8602 Head {h00=0x0028, h01=0x0050, text=»* PUT SPACES TO DISPLAY LINE BUFFER «, t00=0x0055, t01=0x0126}
0x8602…860c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0055, t01=0x0152}
0x860c…8616 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0055, t01=0x015c}
0x8616…8634 Head {h00=0x001a, h01=0x0050, text=»SPACES LD A7,ECBBA,A8 «, t00=0x0055, t01=0x0166}
0x8634…8654 Head {h00=0x001c, h01=0x0050, text=» ADK A7,2 BUFFER ADDRESS«, t00=0x0055, t01=0x0184}
0x8654…8676 Head {h00=0x001e, h01=0x0050, text=» LDKL A9,LLINE LINE LENGTH«, t00=0x0056, t01=0x0014}
0x8676…8692 Head {h00=0x0018, h01=0x0050, text=» ADR A9,A9 DOUBLE IT«, t00=0x0056, t01=0x0036}
0x8692…86ae Head {h00=0x0018, h01=0x0050, text=» LDKL A2,' ' SPACES«, t00=0x0056, t01=0x0052}
0x86ae…86ca Head {h00=0x0018, h01=0x0050, text=»SPAC10 SCR A2,A7 =1«, t00=0x0056, t01=0x006e}
0x86ca…86e2 Head {h00=0x0014, h01=0x0050, text=» SC A2,1,A7 =1 «, t00=0x0056, t01=0x008a}
0x86e2…86f4 Head {h00=0x000e, h01=0x0050, text=» ADK A7,2 «, t00=0x0056, t01=0x00a2}
0x86f4…8706 Head {h00=0x000e, h01=0x0050, text=» SUKL A9,2«, t00=0x0056, t01=0x00b4}
0x8706…871c Head {h00=0x0012, h01=0x0050, text=» RB(P) SPAC10 «, t00=0x0056, t01=0x00c6}
0x871c…8744 Head {h00=0x0024, h01=0x0050, text=» LDK A2,0 CLEAR A2=CHAR REGISTER«, t00=0x0056, t01=0x00dc}
0x8744…876e Head {h00=0x0026, h01=0x0050, text=» LDK A5,0 RESET MODIFIED INDICATOR«, t00=0x0056, t01=0x0104}
0x876e…8786 Head {h00=0x0014, h01=0x0050, text=» LD A7,ECBBA,A8 «, t00=0x0056, t01=0x012e}
0x8786…87a6 Head {h00=0x001c, h01=0x0050, text=» ADK A7,2 BUFFER ADDRESS«, t00=0x0056, t01=0x0146}
0x87a6…87d0 Head {h00=0x0026, h01=0x0050, text=» SUR A9,A9 RESET LINE CHAR COUNTER«, t00=0x0056, t01=0x0166}
0x87d0…87e0 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0056, t01=0x0190}
0x87e0…87ea Head {h00=0x0006, h01=0x0050, text=» «, t00=0x0057, t01=0x0010}
0x87ea…87f4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0057, t01=0x001a}
0x87f4…87fe Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0057, t01=0x0024}
0x87fe…882a Head {h00=0x0028, h01=0x0050, text=»* DISPLAY LINE IF ANY MODIFICATIONS «, t00=0x0057, t01=0x002e}
0x882a…8834 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0057, t01=0x005a}
0x8834…883e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0057, t01=0x0064}
0x883e…8846 Head {h00=0x0004, h01=0x0050, t00=0x0057, t01=0x006e}
0x8846…885a Head {h00=0x0010, h01=0x0050, text=»DISLIN EQU *«, t00=0x0057, t01=0x0076}
0x885a…886c Head {h00=0x000e, h01=0x0050, text=» LDR A7,A5«, t00=0x0057, t01=0x008a}
0x886c…8894 Head {h00=0x0024, h01=0x0050, text=» ANK A5,/80 ANY MODIFICATIONS ??«, t00=0x0057, t01=0x009c}
0x8894…88ba Head {h00=0x0022, h01=0x0050, text=» RF(Z) DISL10 NO MODIFICATIONS«, t00=0x0057, t01=0x00c4}
0x88ba…88cc Head {h00=0x000e, h01=0x0050, text=» LDK A1,2 «, t00=0x0057, t01=0x00ea}
0x88cc…88f8 Head {h00=0x0028, h01=0x0050, text=» XRK A7,/A0 ONLY SPACES IN BUFFER ??«, t00=0x0057, t01=0x00fc}
0x88f8…8914 Head {h00=0x0018, h01=0x0050, text=» RF(Z) DIS:10 YES!! «, t00=0x0057, t01=0x0128}
0x8914…892c Head {h00=0x0014, h01=0x0050, text=» LDKL A1,LLINE+2«, t00=0x0057, t01=0x0144}
0x892c…895e Head {h00=0x002e, h01=0x0050, text=» ADR A1,A10 ADD NR OF INTENSITY CHARACTERS«, t00=0x0057, t01=0x015c}
0x895e…8972 Head {h00=0x0010, h01=0x0050, text=»DIS:10 EQU *«, t00=0x0057, t01=0x018e}
0x8972…8998 Head {h00=0x0022, h01=0x0050, text=» ST A1,ECBRL,A8 SET REQ LENGTH«, t00=0x0058, t01=0x0012}
0x8998…89a0 Head {h00=0x0004, h01=0x0050, t00=0x0058, t01=0x0038}
0x89a0…89a8 Head {h00=0x0004, h01=0x0050, t00=0x0058, t01=0x0040}
0x89a8…89d0 Head {h00=0x0024, h01=0x0050, text=» LDK A7,/8B SET CURSOR AND WRITE«, t00=0x0058, t01=0x0048}
0x89d0…89dc Head {h00=0x0008, h01=0x0050, text=» LKM«, t00=0x0058, t01=0x0070}
0x89dc…89ec Head {h00=0x000c, h01=0x0050, text=» DATA 1 «, t00=0x0058, t01=0x007c}
0x89ec…89f6 Head {h00=0x0006, h01=0x0050, text=» «, t00=0x0058, t01=0x008c}
0x89f6…89fe Head {h00=0x0004, h01=0x0050, t00=0x0058, t01=0x0096}
0x89fe…8a4a Head {h00=0x0048, h01=0x0050, text=»********************************************************************«, t00=0x0058, t01=0x009e}
0x8a4a…8a54 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0058, t01=0x00ea}
0x8a54…8a88 Head {h00=0x0030, h01=0x0050, text=»* EXECUTE FAST OUTPUT TO BLANK REMAINIG PART«, t00=0x0058, t01=0x00f4}
0x8a88…8a9e Head {h00=0x0012, h01=0x0050, text=»* OF THE LINE «, t00=0x0058, t01=0x0128}
0x8a9e…8aa8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0058, t01=0x013e}
0x8aa8…8af4 Head {h00=0x0048, h01=0x0050, text=»******************************************************************* «, t00=0x0058, t01=0x0148}
0x8af4…8afc (89, 0, 400) Head {h00=0x0004, h01=0x0050, t00=0x0059, t01=0x0004}
0x8afc…8b24 Head {h00=0x0024, h01=0x0050, text=» LD A1,ECBCW,A8 CURSOR POSITION «, t00=0x0059, t01=0x000c}
0x8b24…8b48 Head {h00=0x0020, h01=0x0050, text=» ANK A1,X'FF' COLUMN NUMBER «, t00=0x0059, t01=0x0034}
0x8b48…8b6e Head {h00=0x0022, h01=0x0050, text=» SUK A1,80 LAST POSITION ? DK1«, t00=0x0059, t01=0x0058}
0x8b6e…8ba6 Head {h00=0x0034, h01=0x0050, text=» RF(NL) DISL10 YES, NO FAST OUTPUT THIS LINE DK1«, t00=0x0059, t01=0x007e}
0x8ba6…8bae Head {h00=0x0004, h01=0x0050, t00=0x0059, t01=0x00b6}
0x8bae…8bd4 Head {h00=0x0022, h01=0x0050, text=» LD A1,ECBBA,A8 BUFFER ADRESS «, t00=0x0059, t01=0x00be}
0x8bd4…8c04 Head {h00=0x002c, h01=0x0050, text=» LDK A2,X'2B' DONT MOVE CURSOR ONE LINE «, t00=0x0059, t01=0x00e4}
0x8c04…8c1c Head {h00=0x0014, h01=0x0050, text=» SC A2,1,A1 =1 «, t00=0x0059, t01=0x0114}
0x8c1c…8c4a Head {h00=0x002a, h01=0x0050, text=» LDKL A2,X'1420' FAST OUTPUT OF SPACES«, t00=0x0059, t01=0x012c}
0x8c4a…8c62 Head {h00=0x0014, h01=0x0050, text=» SC A2,3,A1 =1 «, t00=0x0059, t01=0x015a}
0x8c62…8c78 Head {h00=0x0012, h01=0x0050, text=» SRL A2,8 =1 «, t00=0x0059, t01=0x0172}
0x8c78…8c90 Head {h00=0x0014, h01=0x0050, text=» SC A2,2,A1 =1 «, t00=0x0059, t01=0x0188}
0x8c90…8cb4 Head {h00=0x0020, h01=0x0050, text=» LDK A2,84 REQUESTED LENGTH «, t00=0x005a, t01=0x0010}
0x8cb4…8ccc Head {h00=0x0014, h01=0x0050, text=» ST A2,ECBRL,A8 «, t00=0x005a, t01=0x0034}
0x8ccc…8cee Head {h00=0x001e, h01=0x0050, text=» LDK A7,X'86' WRITE ORDER «, t00=0x005a, t01=0x004c}
0x8cee…8cfa Head {h00=0x0008, h01=0x0050, text=» LKM«, t00=0x005a, t01=0x006e}
0x8cfa…8d0a Head {h00=0x000c, h01=0x0050, text=» DATA 1 «, t00=0x005a, t01=0x007a}
0x8d0a…8d12 Head {h00=0x0004, h01=0x0050, t00=0x005a, t01=0x008a}
0x8d12…8d26 Head {h00=0x0010, h01=0x0050, text=»DISL10 EQU *«, t00=0x005a, t01=0x0092}
0x8d26…8d38 Head {h00=0x000e, h01=0x0050, text=» LDK A2,1 «, t00=0x005a, t01=0x00a6}
0x8d38…8d64 Head {h00=0x0028, h01=0x0050, text=» SC A2,ECBCW+1,A8 POS 1 ON NEXT LINE«, t00=0x005a, t01=0x00b8}
0x8d64…8d7a Head {h00=0x0012, h01=0x0050, text=» LDKL A2,/100 «, t00=0x005a, t01=0x00e4}
0x8d7a…8da8 Head {h00=0x002a, h01=0x0050, text=» ADS A2,ECBCW,A8 INCREMENT LINE NUMBER«, t00=0x005a, t01=0x00fa}
0x8da8…8dd0 Head {h00=0x0024, h01=0x0050, text=» RB SPACES PUT SPACES TO BUFFER «, t00=0x005a, t01=0x0128}
0x8dd0…8dd8 Head {h00=0x0004, h01=0x0050, t00=0x005a, t01=0x0150}
0x8dd8…8de2 Head {h00=0x0006, h01=0x0050, text=» «, t00=0x005a, t01=0x0158}
0x8de2…8dea Head {h00=0x0004, h01=0x0050, t00=0x005a, t01=0x0162}
0x8dea…8df2 Head {h00=0x0004, h01=0x0050, t00=0x005a, t01=0x016a}
0x8df2…8e3a Head {h00=0x0044, h01=0x0050, text=»****************************************************************«, t00=0x005a, t01=0x0172}
0x8e3a…8e44 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005b, t01=0x002a}
0x8e44…8e86 Head {h00=0x003e, h01=0x0050, text=»* I N T C H K CHECK IF LINE SHOULD BE PRINTED WITH«, t00=0x005b, t01=0x0034}
0x8e86…8eba Head {h00=0x0030, h01=0x0050, text=»* HIGH OR LOW INTENSITY «, t00=0x005b, t01=0x0076}
0x8eba…8ec4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005b, t01=0x00aa}
0x8ec4…8f12 Head {h00=0x004a, h01=0x0050, text=»**********************************************************************«, t00=0x005b, t01=0x00b4}
0x8f12…8f1a Head {h00=0x0004, h01=0x0050, t00=0x005b, t01=0x0102}
0x8f1a…8f4a Head {h00=0x002c, h01=0x0050, text=»INTCHK SUR A10,A10 RESET INTENSITY COUNT«, t00=0x005b, t01=0x010a}
0x8f4a…8f7e Head {h00=0x0030, h01=0x0050, text=» LD A2,INTATT,TCABAS GET INTENSITY ATTRIBUTE«, t00=0x005b, t01=0x013a}
0x8f7e…8fa0 Head {h00=0x001e, h01=0x0050, text=» RF(Z) INTRTN NON DISPLAY «, t00=0x005b, t01=0x016e}
0x8fa0…8fc8 Head {h00=0x0024, h01=0x0050, text=» ANK A2,X'4' HIGH INTENSITY ??? «, t00=0x005b, t01=0x0190}
0x8fc8…8fe2 Head {h00=0x0016, h01=0x0050, text=» RF(Z) INT:10 YES «, t00=0x005c, t01=0x0028}
0x8fe2…8fea Head {h00=0x0004, h01=0x0050, t00=0x005c, t01=0x0042}
0x8fea…900e Head {h00=0x0020, h01=0x0050, text=» LDK A2,X'1E' LOW INTENSITY «, t00=0x005c, t01=0x004a}
0x900e…9030 Head {h00=0x001e, h01=0x0050, text=» RF INT:20 HIGH INTENSITY «, t00=0x005c, t01=0x006e}
0x9030…9038 Head {h00=0x0004, h01=0x0050, t00=0x005c, t01=0x0090}
0x9038…9062 Head {h00=0x0026, h01=0x0050, text=»INT:10 LDK A2,X'1F' HIGH INTENSITY«, t00=0x005c, t01=0x0098}
0x9062…906a Head {h00=0x0004, h01=0x0050, t00=0x005c, t01=0x00c2}
0x906a…90a6 Head {h00=0x0038, h01=0x0050, text=»INT:20 SCR A2,A7 SAVE INTENSITY CHARACTER IN BUFFER «, t00=0x005c, t01=0x00ca}
0x90a6…90d0 Head {h00=0x0026, h01=0x0050, text=» ADK A7,1 INCREMENT BUFFER POINTER«, t00=0x005c, t01=0x0106}
0x90d0…90fe Head {h00=0x002a, h01=0x0050, text=» ADKL A10,1 INTENSITY COUNT «, t00=0x005c, t01=0x0130}
0x90fe…911c Head {h00=0x001a, h01=0x0050, text=»INTRTN RTN A14 RETURN «, t00=0x005c, t01=0x015e}
0x911c…9126 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005c, t01=0x017c}
0x9126…9130 Head {h00=0x0006, h01=0x0050, text=» «, t00=0x005c, t01=0x0186}
0x9130…9138 Head {h00=0x0004, h01=0x0050, t00=0x005c, t01=0x0190}
0x9138…9180 Head {h00=0x0044, h01=0x0050, text=»****************************************************************«, t00=0x005d, t01=0x0008}
0x9180…918a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005d, t01=0x0050}
0x918a…91ce Head {h00=0x0040, h01=0x0050, text=»* SET:M SET MODIFIED BIT IF CHARACTER HAS BEEN MODIFIED «, t00=0x005d, t01=0x005a}
0x91ce…91d8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005d, t01=0x009e}
0x91d8…9222 Head {h00=0x0046, h01=0x0050, text=»******************************************************************«, t00=0x005d, t01=0x00a8}
0x9222…922a Head {h00=0x0004, h01=0x0050, t00=0x005d, t01=0x00f2}
0x922a…9242 Head {h00=0x0014, h01=0x0050, text=»SET:M CWK A2,/20«, t00=0x005d, t01=0x00fa}
0x9242…926c Head {h00=0x0026, h01=0x0050, text=» RF(L) SET:M2 ATTRIBUTE CHARACTER «, t00=0x005d, t01=0x0112}
0x926c…9280 Head {h00=0x0010, h01=0x0050, text=» CWK A2,/7F «, t00=0x005d, t01=0x013c}
0x9280…92aa Head {h00=0x0026, h01=0x0050, text=» RF(E) SET:M2 UNMODIFIED ATTRIBUTE«, t00=0x005d, t01=0x0150}
0x92aa…92be Head {h00=0x0010, h01=0x0050, text=» CWK A2,/FF «, t00=0x005d, t01=0x017a}
0x92be…92ea Head {h00=0x0028, h01=0x0050, text=» RF(NE) SET:M1 NOT NULL OR ATTRIBUTE«, t00=0x005d, t01=0x018e}
0x92ea…9316 Head {h00=0x0028, h01=0x0050, text=» ORK A5,/A0 MODIFIED NULL CHARACTER «, t00=0x005e, t01=0x002a}
0x9316…9326 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x005e, t01=0x0056}
0x9326…9350 Head {h00=0x0026, h01=0x0050, text=»SET:M1 ORR A5,A2 SET MODIFIED BIT «, t00=0x005e, t01=0x0066}
0x9350…9366 Head {h00=0x0012, h01=0x0050, text=»SET:M2 RTN A14«, t00=0x005e, t01=0x0090}
0x9366…9372 Head {h00=0x0008, h01=0x0050, text=» END«, t00=0x005e, t01=0x00a6}
0x9372…9376 Head {h00=0x4004, h01=0x0000}
0x9376…937a 00 5e 00 b2 ┆ ^ ┆
0x937a…9382 (95, 1, 8) 20 04 00 00 00 5f 00 04 ┆ _ ┆