|
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: 39868 (0x9bbc)
Notes: pts_type(SC)
Names: »VDUPRT.SC«
└─⟦26dca8ec8⟧ Bits:30009711 Philips computer tape "RÅKON-DIVFMT"
└─⟦this⟧ »REMIT2/VDUPRT.SC«
IDENT VDUPRT DK7 821005 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(NE) UPDEND NOT ESCAPE CF A14,GDCCH GET COMMAND CODE CWK A2,/31 RF(E) UPD100 WRITE CWK A2,/35 RF(E) UPD120 ERASE/WRITE CWK A2,/3F RF(E) UPD140 ERASE ALL UNPROTECTED IFT COPCMD=1 CWK A2,/37 ABL(E) UPD600 COPY COMMAND XIF RF UPDEND INVALID COMMAND CODE * * WRITE COMMAND * UPD100 EQU * CF A14,PWCC PROCESS WCC FOR MDT BIT LD A3,PCURS,TCABAS LDR A4,A3 START IN CURSOR POSITION ADKL A4,BVDU ADR A4,TCABAS LDK A5,1 INDICATE WCC, IC OR RA RF UPD220 * * ERASE/WRITE COMMAND * UPD120 EQU * CF A14,ERASE ERASE SCREEN RF UPD200 * * ERASE ALL UNPROTECTED * UPD140 EQU * CF A14,ERASUP ERASE ALL UNPROTECTED RF UPDEND NO TEXT WITH THIS COMMAND * * TAKE CARE OF WRITE CONTROL CHARACTER WCC * UPD200 CF A14,PWCC PROCESS WCC LDK A5,1 INDICATE WCC, IC OR RA * * * PROCESS DATA FROM DC BUFFER * * UPD210 LDK A3,0 START FROM POSITION ZERO LDKL A4,BVDU ADR A4,TCABAS UPD220 CW A9,DCLENG,TCABAS RF(NL) UPDEND ALL RECEIVED CHARS PROCESSED CF A14,GDCCH GET CHAR FROM DC BUFFER CWK A2,/20 RF(L) UPD300 ORDER UPD230 EQU * ORK A2,/80 SET DISPLAY BIT UPD240 EQU * LDK A5,0 INDICATE NOT WCC, IC OR RA CWK A3,LBVDU RF(E) UPD260 END OF VIDEO BUFFER UPD250 EQU * SCR A2,A4 STORE IN VIDEO BUFFER ADK A3,1 ADK A4,1 RB UPD220 UPD260 LDK A3,0 LDKL A4,BVDU ADR A4,TCABAS RB UPD250 UPD300 EQU * CWK A3,LBVDU END OF DISPLAY BUFFER ??? RF(NE) UPD302 NO!!! SUR A3,A3 FIRST SCREEN POSITION LDKL A4,BVDU ADR A4,TCABAS BUFFER POSITION UPD302 EQU * CWK A2,/1D RF(E) UPD320 START FIELD CWK A2,/11 RF(E) UPD340 SET BUFFER ADDRESS CWK A2,/13 RF(E) UPD360 INSERT CURSOR CWK A2,/09 RF(E) UPD400 PROGRAM TAB CWK A2,/14 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 DK7 821005«, t00=0x0000, t01=0x0004}
0x0020…0028 Head {h00=0x0004, h01=0x0050, t00=0x0000, t01=0x0024}
0x0028…0054 Head {h00=0x0028, h01=0x0050, text=» DK7, READ MODIFIED HANDLING (GF) «, t00=0x0000, t01=0x002c}
0x0054…0078 Head {h00=0x0020, h01=0x0050, text=» DK6 ORDER INDICATOR 'SBA'«, t00=0x0000, t01=0x0058}
0x0078…0098 Head {h00=0x001c, h01=0x0050, text=» =1,ODD BUFFER ADDRESS«, t00=0x0000, t01=0x007c}
0x0098…00b4 Head {h00=0x0018, h01=0x0050, text=» REL 2.1 79-05-23 «, t00=0x0000, t01=0x009c}
0x00b4…00d0 Head {h00=0x0018, h01=0x0050, text=» =2,KEYBOARD LAMPS«, t00=0x0000, t01=0x00b8}
0x00d0…00ec Head {h00=0x0018, h01=0x0050, text=» REL 2.1 79-05-23 «, t00=0x0000, t01=0x00d4}
0x00ec…0112 Head {h00=0x0022, h01=0x0050, text=» =3, TRANSMIT BUFFER LENGTH «, t00=0x0000, t01=0x00f0}
0x0112…012e Head {h00=0x0018, h01=0x0050, text=» REL 2.1 79-05-23 «, t00=0x0000, t01=0x0116}
0x012e…0156 Head {h00=0x0024, h01=0x0050, text=» DK5 - SKIP CHAR 06=2F=USM DK5«, t00=0x0000, t01=0x0132}
0x0156…016e Head {h00=0x0014, h01=0x0050, text=» DK4 - RFMDUP «, t00=0x0000, t01=0x015a}
0x016e…0182 Head {h00=0x0010, h01=0x0050, text=» DK3 - EUA«, t00=0x0000, t01=0x0172}
0x0182…019e Head {h00=0x0018, h01=0x0050, text=» DK2 - DC-TIMEOUT «, t00=0x0000, t01=0x0186}
0x019e…01bc Head {h00=0x001a, h01=0x0050, text=» DK1 - BLANK COL. 80«, t00=0x0001, t01=0x0012}
0x01bc…0206 Head {h00=0x0046, h01=0x0050, text=»******************************************************************«, t00=0x0001, t01=0x0030}
0x0206…0210 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x007a}
0x0210…0250 Head {h00=0x003c, h01=0x0050, text=»* V D U P R T : MODULE HANDLING MESSAGES COMING FROM«, t00=0x0001, t01=0x0084}
0x0250…028e Head {h00=0x003a, h01=0x0050, text=»* MAIN FRAME, AND DISPLAYING THEM ON«, t00=0x0001, t01=0x00c4}
0x028e…02c0 Head {h00=0x002e, h01=0x0050, text=»* THE VDU ( PTS 6344 ) .«, t00=0x0001, t01=0x0102}
0x02c0…02ca Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x0134}
0x02ca…0316 Head {h00=0x0048, h01=0x0050, text=»********************************************************************«, t00=0x0001, t01=0x013e}
0x0316…0320 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x018a}
0x0320…032a (2, 0, 400) Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x0004}
0x032a…0334 Head {h00=0x0006, h01=0x0050, text=» «, t00=0x0002, t01=0x000e}
0x0334…033e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x0018}
0x033e…0348 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x0022}
0x0348…035a Head {h00=0x000e, h01=0x0050, text=»* ENTRIES «, t00=0x0002, t01=0x002c}
0x035a…0364 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x003e}
0x0364…036e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x0048}
0x036e…039c Head {h00=0x002a, h01=0x0050, text=» ENTRY TRPF TRANSMIT, PROGRAM FUNCTION«, t00=0x0002, t01=0x0052}
0x039c…03cc Head {h00=0x002c, h01=0x0050, text=» ENTRY TRPA TRANSMIT, PROGRAM ATTENTION «, t00=0x0002, t01=0x0080}
0x03cc…03f4 Head {h00=0x0024, h01=0x0050, text=» ENTRY ERASE ERASE ENTIRE SCREEN«, t00=0x0002, t01=0x00b0}
0x03f4…041c Head {h00=0x0024, h01=0x0050, text=» ENTRY SETCUR CURSOR POSITIONING«, t00=0x0002, t01=0x00d8}
0x041c…0448 Head {h00=0x0028, h01=0x0050, text=» ENTRY ERASUP ERASE ALL UNPROTECTED «, t00=0x0002, t01=0x0100}
0x0448…0472 Head {h00=0x0026, h01=0x0050, text=» ENTRY DISPL DISPLAY MODIFIED DATA«, t00=0x0002, t01=0x012c}
0x0472…04a4 Head {h00=0x002e, h01=0x0050, text=» ENTRY ERASUA ERASE UNPROTECTED TO ADDRESS«, t00=0x0002, t01=0x0156}
0x04a4…04d6 Head {h00=0x002e, h01=0x0050, text=» ENTRY WCHAR WRITE ONE CHAR IN CURSOR POS «, t00=0x0002, t01=0x0188}
0x04d6…04ec Head {h00=0x0012, h01=0x0050, text=» ENTRY UPDATE «, t00=0x0003, t01=0x002a}
0x04ec…0512 Head {h00=0x0022, h01=0x0050, text=» ENTRY RFMDUP REPLACE FM & DUP«, t00=0x0003, t01=0x0040}
0x0512…0526 Head {h00=0x0010, h01=0x0050, text=» ENTRY DCINP«, t00=0x0003, t01=0x0066}
0x0526…053c Head {h00=0x0012, h01=0x0050, text=» ENTRY RLRBUF «, t00=0x0003, t01=0x007a}
0x053c…0552 Head {h00=0x0012, h01=0x0050, text=» ENTRY DCGETM «, t00=0x0003, t01=0x0090}
0x0552…0568 Head {h00=0x0012, h01=0x0050, text=» ENTRY GTRBUF «, t00=0x0003, t01=0x00a6}
0x0568…0572 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x00bc}
0x0572…057c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x00c6}
0x057c…0590 Head {h00=0x0010, h01=0x0050, text=»* EXTERNALS «, t00=0x0003, t01=0x00d0}
0x0590…059a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x00e4}
0x059a…05a4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x00ee}
0x05a4…05c6 Head {h00=0x001e, h01=0x0050, text=» EXTRN LINHON,LINHOF START«, t00=0x0003, t01=0x00f8}
0x05c6…05e8 Head {h00=0x001e, h01=0x0050, text=» EXTRN LSAVON,LSAVOF START«, t00=0x0003, t01=0x011a}
0x05e8…05fe Head {h00=0x0012, h01=0x0050, text=» EXTRN ATMASB «, t00=0x0003, t01=0x013c}
0x05fe…0612 Head {h00=0x0010, h01=0x0050, text=» EXTRN EMULA«, t00=0x0003, t01=0x0152}
0x0612…0628 Head {h00=0x0012, h01=0x0050, text=» EXTRN REQTIM «, t00=0x0003, t01=0x0166}
0x0628…063e Head {h00=0x0012, h01=0x0050, text=» EXTRN ICWRTE «, t00=0x0003, t01=0x017c}
0x063e…0664 (4, 0, 400) Head {h00=0x0022, h01=0x0050, text=» EXTRN READMY READ MODIFED DK7«, t00=0x0004, t01=0x0004}
0x0664…066e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x002a}
0x066e…0688 Head {h00=0x0016, h01=0x0050, text=» EXTRN SNBUSY PRT «, t00=0x0004, t01=0x0034}
0x0688…0692 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x004e}
0x0692…06c0 Head {h00=0x002a, h01=0x0050, text=» EXTRN I:EVA0 CREDIT EVALUATION TABLE «, t00=0x0004, t01=0x0058}
0x06c0…06ca Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x0086}
0x06ca…06ee Head {h00=0x0020, h01=0x0050, text=» EXTRN TASCII,TEBCDI TB3270 «, t00=0x0004, t01=0x0090}
0x06ee…06f8 Head {h00=0x0006, h01=0x0050, text=» «, t00=0x0004, t01=0x00b4}
0x06f8…0702 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x00be}
0x0702…074a Head {h00=0x0044, h01=0x0050, text=»****************************************************************«, t00=0x0004, t01=0x00c8}
0x074a…0754 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x0110}
0x0754…0780 Head {h00=0x0028, h01=0x0050, text=»* CONDITIONAL ASSEMBLY PARAMETERS «, t00=0x0004, t01=0x011a}
0x0780…078a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x0146}
0x078a…07c0 Head {h00=0x0032, h01=0x0050, text=»**********************************************«, t00=0x0004, t01=0x0150}
0x07c0…07c8 Head {h00=0x0004, h01=0x0050, t00=0x0004, t01=0x0186}
0x07c8…07fe Head {h00=0x0032, h01=0x0050, text=»OFLIN EQU 1 OFFLINE HANDLING POSSIBLE IF ::= 1«, t00=0x0004, t01=0x018e}
0x07fe…082e Head {h00=0x002c, h01=0x0050, text=»DCLIN EQU 1 NUMBER OF MAIN FRAMES (1-2) «, t00=0x0005, t01=0x0034}
0x082e…0864 Head {h00=0x0032, h01=0x0050, text=»RBUFL EQU 1150 RECEIVE BUFFER LENGTH IN WORDS «, t00=0x0005, t01=0x0064}
0x0864…0898 Head {h00=0x0030, h01=0x0050, text=»RBUFNR EQU 2 NUMBER OF RECEIVE BUFFERS (1-5)«, t00=0x0005, t01=0x009a}
0x0898…08ce Head {h00=0x0032, h01=0x0050, text=»TBUFL EQU 1150 TRANSMIT BUFFER LENGTH IN WORDS«, t00=0x0005, t01=0x00ce}
0x08ce…0904 Head {h00=0x0032, h01=0x0050, text=»TBUFNR EQU 2 NUMBER OF TRANSMIT BUFFERS (1-5) «, t00=0x0005, t01=0x0104}
0x0904…0940 Head {h00=0x0038, h01=0x0050, text=»COPCMD EQU 1 COPY COMMAND (ONLY TO PRINTER) IF := 1 «, t00=0x0005, t01=0x013a}
0x0940…096a Head {h00=0x0026, h01=0x0050, text=»EBCDIC EQU 1 ASCII = 0,EBCDIC = 1 «, t00=0x0005, t01=0x0176}
0x096a…0974 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x0010}
0x0974…0986 Head {h00=0x000e, h01=0x0050, text=»* EQUATES «, t00=0x0006, t01=0x001a}
0x0986…0990 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x002c}
0x0990…099a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x0036}
0x099a…09cc Head {h00=0x002e, h01=0x0050, text=»TIMDC EQU 600 DC TIME OUT VALUE: 60 S DK2 «, t00=0x0006, t01=0x0040}
0x09cc…09e0 Head {h00=0x0010, h01=0x0050, text=»ESC EQU /1B «, t00=0x0006, t01=0x0072}
0x09e0…09f4 Head {h00=0x0010, h01=0x0050, text=»SBA EQU /11 «, t00=0x0006, t01=0x0086}
0x09f4…0a18 Head {h00=0x0020, h01=0x0050, text=»NULL EQU /7F NULL CHARACTER «, t00=0x0006, t01=0x009a}
0x0a18…0a42 Head {h00=0x0026, h01=0x0050, text=»NEWLIN EQU /7E NEW LINE CHARACTER «, t00=0x0006, t01=0x00be}
0x0a42…0a6a Head {h00=0x0024, h01=0x0050, text=»ENDMES EQU /7D END MESSAGE CHAR «, t00=0x0006, t01=0x00e8}
0x0a6a…0a90 Head {h00=0x0022, h01=0x0050, text=»FORMFD EQU /7C FORM FEED CHAR «, t00=0x0006, t01=0x0110}
0x0a90…0aa6 Head {h00=0x0012, h01=0x0050, text=»DUPCH EQU /7B «, t00=0x0006, t01=0x0136}
0x0aa6…0aba Head {h00=0x0010, h01=0x0050, text=»FMCH EQU /60«, t00=0x0006, t01=0x014c}
0x0aba…0ad2 Head {h00=0x0014, h01=0x0050, text=»TRCH EQU /30 DK«, t00=0x0006, t01=0x0160}
0x0ad2…0afc Head {h00=0x0026, h01=0x0050, text=»SKIP EQU /06 SKIP CHAR. (USM) DK5 «, t00=0x0006, t01=0x0178}
0x0afc…0b06 Head {h00=0x0006, h01=0x0050, text=» «, t00=0x0007, t01=0x0012}
0x0b06…0b10 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x001c}
0x0b10…0b1a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x0026}
0x0b1a…0b30 Head {h00=0x0012, h01=0x0050, text=»* EQUATES «, t00=0x0007, t01=0x0030}
0x0b30…0b3a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x0046}
0x0b3a…0b60 Head {h00=0x0022, h01=0x0050, text=»* COMMON EQU FOR ECB HANDLING «, t00=0x0007, t01=0x0050}
0x0b60…0b6a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x0076}
0x0b6a…0b72 Head {h00=0x0004, h01=0x0050, t00=0x0007, t01=0x0080}
0x0b72…0b86 Head {h00=0x0010, h01=0x0050, text=»ECBBA EQU 2 «, t00=0x0007, t01=0x0088}
0x0b86…0b9a Head {h00=0x0010, h01=0x0050, text=»ECBRL EQU 4 «, t00=0x0007, t01=0x009c}
0x0b9a…0bae Head {h00=0x0010, h01=0x0050, text=»ECBEL EQU 6 «, t00=0x0007, t01=0x00b0}
0x0bae…0bc2 Head {h00=0x0010, h01=0x0050, text=»ECBRC EQU 8 «, t00=0x0007, t01=0x00c4}
0x0bc2…0bd6 Head {h00=0x0010, h01=0x0050, text=»ECBCW EQU 10«, t00=0x0007, t01=0x00d8}
0x0bd6…0be0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x00ec}
0x0be0…0bea Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x00f6}
0x0bea…0c04 Head {h00=0x0016, h01=0x0050, text=»* CREDIT USED EQU «, t00=0x0007, t01=0x0100}
0x0c04…0c0e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x011a}
0x0c0e…0c18 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x0124}
0x0c18…0c34 Head {h00=0x0018, h01=0x0050, text=»* ECB REL. ADDRESSES«, t00=0x0007, t01=0x012e}
0x0c34…0c3e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x014a}
0x0c3e…0c48 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x0154}
0x0c48…0c5a Head {h00=0x000e, h01=0x0050, text=»DIS EQU 20«, t00=0x0007, t01=0x015e}
0x0c5a…0c64 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x0170}
0x0c64…0c7e Head {h00=0x0016, h01=0x0050, text=»ECBDC EQU -DIS-14 «, t00=0x0007, t01=0x017a}
0x0c7e…0c92 (8, 0, 400) Head {h00=0x0010, h01=0x0050, text=» IFT DCLIN=2«, t00=0x0008, t01=0x0004}
0x0c92…0ca8 Head {h00=0x0012, h01=0x0050, text=» IFT COPCMD=1 «, t00=0x0008, t01=0x0018}
0x0ca8…0cc4 Head {h00=0x0018, h01=0x0050, text=»ECBDC2 EQU ECBDC-DIS«, t00=0x0008, t01=0x002e}
0x0cc4…0ce2 Head {h00=0x001a, h01=0x0050, text=»ECBICR EQU ECBDC2-DIS «, t00=0x0008, t01=0x004a}
0x0ce2…0d00 Head {h00=0x001a, h01=0x0050, text=»ECBICW EQU ECBICR-DIS «, t00=0x0008, t01=0x0068}
0x0d00…0d0c Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0008, t01=0x0086}
0x0d0c…0d20 Head {h00=0x0010, h01=0x0050, text=» IFT DCLIN=2«, t00=0x0008, t01=0x0092}
0x0d20…0d36 Head {h00=0x0012, h01=0x0050, text=» IFF COPCMD=1 «, t00=0x0008, t01=0x00a6}
0x0d36…0d52 Head {h00=0x0018, h01=0x0050, text=»ECBDC2 EQU ECBDC-DIS«, t00=0x0008, t01=0x00bc}
0x0d52…0d70 Head {h00=0x001a, h01=0x0050, text=»ECBICW EQU ECBDC2-DIS «, t00=0x0008, t01=0x00d8}
0x0d70…0d7c Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0008, t01=0x00f6}
0x0d7c…0d90 Head {h00=0x0010, h01=0x0050, text=» IFF DCLIN=2«, t00=0x0008, t01=0x0102}
0x0d90…0da6 Head {h00=0x0012, h01=0x0050, text=» IFT COPCMD=1 «, t00=0x0008, t01=0x0116}
0x0da6…0dc2 Head {h00=0x0018, h01=0x0050, text=»ECBICR EQU ECBDC-DIS«, t00=0x0008, t01=0x012c}
0x0dc2…0de0 Head {h00=0x001a, h01=0x0050, text=»ECBICW EQU ECBICR-DIS «, t00=0x0008, t01=0x0148}
0x0de0…0dec Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0008, t01=0x0166}
0x0dec…0e00 Head {h00=0x0010, h01=0x0050, text=» IFF DCLIN=2«, t00=0x0008, t01=0x0172}
0x0e00…0e16 Head {h00=0x0012, h01=0x0050, text=» IFF COPCMD=1 «, t00=0x0008, t01=0x0186}
0x0e16…0e32 Head {h00=0x0018, h01=0x0050, text=»ECBICW EQU ECBDC-DIS«, t00=0x0009, t01=0x000c}
0x0e32…0e3e Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0009, t01=0x0028}
0x0e3e…0e5c Head {h00=0x001a, h01=0x0050, text=»ECBVDU EQU ECBICW-DIS «, t00=0x0009, t01=0x0034}
0x0e5c…0e78 Head {h00=0x0018, h01=0x0050, text=»ECBKB EQU ECBVDU-DIS«, t00=0x0009, t01=0x0052}
0x0e78…0e94 Head {h00=0x0018, h01=0x0050, text=»ECBSD EQU ECBKB-DIS «, t00=0x0009, t01=0x006e}
0x0e94…0e9e Head {h00=0x0006, h01=0x0050, text=» «, t00=0x0009, t01=0x008a}
0x0e9e…0ea8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x0094}
0x0ea8…0eb2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x009e}
0x0eb2…0ed8 Head {h00=0x0022, h01=0x0050, text=»* BASE ADDRESS FOR TCA AND ECB«, t00=0x0009, t01=0x00a8}
0x0ed8…0ee2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x00ce}
0x0ee2…0ef8 Head {h00=0x0012, h01=0x0050, text=»TCABAS EQU A11«, t00=0x0009, t01=0x00d8}
0x0ef8…0f12 Head {h00=0x0016, h01=0x0050, text=»CREBAS EQU A13 ECB«, t00=0x0009, t01=0x00ee}
0x0f12…0f1c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x0108}
0x0f1c…0f26 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x0112}
0x0f26…0f42 Head {h00=0x0018, h01=0x0050, text=»* TCA REL. ADDRESSES«, t00=0x0009, t01=0x011c}
0x0f42…0f4c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x0138}
0x0f4c…0f60 Head {h00=0x0010, h01=0x0050, text=»TCT01 EQU 0 «, t00=0x0009, t01=0x0142}
0x0f60…0f7c Head {h00=0x0018, h01=0x0050, text=»PRINTER EQU TCT01+2 «, t00=0x0009, t01=0x0156}
0x0f7c…0fa8 Head {h00=0x0028, h01=0x0050, text=»BVDU EQU PRINTER+2 VDU SCREEN BUFFER«, t00=0x0009, t01=0x0172}
0x0fa8…0fdc Head {h00=0x0030, h01=0x0050, text=»PCURS EQU BVDU+1920 CURSOR ADDRESS , BINARY «, t00=0x000a, t01=0x000e}
0x0fdc…100a Head {h00=0x002a, h01=0x0050, text=»ATTRIB EQU PCURS+2 LAST ATTRIBUTE CHAR«, t00=0x000a, t01=0x0042}
0x100a…1026 Head {h00=0x0018, h01=0x0050, text=»CURATT EQU ATTRIB+2 «, t00=0x000a, t01=0x0070}
0x1026…1050 Head {h00=0x0026, h01=0x0050, text=»WCC EQU CURATT+2 WCC/CCC CHARACTER«, t00=0x000a, t01=0x008c}
0x1050…1082 Head {h00=0x002e, h01=0x0050, text=»KBINH EQU WCC+2 KEYBOARD INHIBIT INDICATOR«, t00=0x000a, t01=0x00b6}
0x1082…10aa Head {h00=0x0024, h01=0x0050, text=»LINCNT EQU KBINH+2 LINE COUNTER «, t00=0x000a, t01=0x00e8}
0x10aa…10de Head {h00=0x0030, h01=0x0050, text=»DCLENG EQU LINCNT+2 DC READ EFFECTIVE LENGTH«, t00=0x000a, t01=0x0110}
0x10de…1114 Head {h00=0x0032, h01=0x0050, text=»ICWORK EQU DCLENG+2 WORK FIELD INTERTASK COMM «, t00=0x000a, t01=0x0144}
0x1114…1144 Head {h00=0x002c, h01=0x0050, text=»INTATT EQU ICWORK+2 INTENSITY ATTRIBUTE «, t00=0x000a, t01=0x017a}
0x1144…116c Head {h00=0x0024, h01=0x0050, text=»OFFFLG EQU INTATT+2 OFFLINE FLAG«, t00=0x000b, t01=0x001a}
0x116c…1198 Head {h00=0x0028, h01=0x0050, text=»COPNO EQU OFFFLG+2 HARDCOPY TASK ID «, t00=0x000b, t01=0x0042}
0x1198…11c6 Head {h00=0x002a, h01=0x0050, text=»CCC EQU COPNO+2 COPY COMMAND CHARACTER«, t00=0x000b, t01=0x006e}
0x11c6…11e8 Head {h00=0x001e, h01=0x0050, text=»MAIN EQU CCC+2 MAIN FRAME «, t00=0x000b, t01=0x009c}
0x11e8…1212 Head {h00=0x0026, h01=0x0050, text=»MODE EQU MAIN+2 INSERT MODE SWITCH«, t00=0x000b, t01=0x00be}
0x1212…123a Head {h00=0x0024, h01=0x0050, text=»KEYS EQU MODE+2 KEY LOCK STATUS «, t00=0x000b, t01=0x00e8}
0x123a…126c Head {h00=0x002e, h01=0x0050, text=»ECBDCC EQU KEYS+2 ECB ADDRESS LAST READ DC«, t00=0x000b, t01=0x0110}
0x126c…12a2 Head {h00=0x0032, h01=0x0050, text=»ECBBLK EQU ECBDCC+2 ECBS FOR MULTIPLE WAIT &C «, t00=0x000b, t01=0x0142}
0x12a2…12da Head {h00=0x0034, h01=0x0050, text=»RDMORE EQU ECBBLK+10 BRANCH ADDRESS NEXT READ KB«, t00=0x000b, t01=0x0178}
0x12da…1314 Head {h00=0x0036, h01=0x0050, text=»RDMYRC EQU RDMORE+4 READ MODIFIED RETRURN CODE DK7«, t00=0x000c, t01=0x0020}
0x1314…131e Head {h00=0x0006, h01=0x0050, text=» «, t00=0x000c, t01=0x005a}
0x131e…1326 Head {h00=0x0004, h01=0x0050, t00=0x000c, t01=0x0064}
0x1326…1330 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x006c}
0x1330…133a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x0076}
0x133a…1368 Head {h00=0x002a, h01=0x0050, text=»LBVDU EQU 1920 1920 CHARACTER DISPLAY «, t00=0x000c, t01=0x0080}
0x1368…138e Head {h00=0x0022, h01=0x0050, text=»LPAGE EQU 48 LINES ON ONE PAGE«, t00=0x000c, t01=0x00ae}
0x138e…13bc Head {h00=0x002a, h01=0x0050, text=»LLINE EQU 80 80 CHAR PER DISPLAY LINE «, t00=0x000c, t01=0x00d4}
0x13bc…13ee Head {h00=0x002e, h01=0x0050, text=»TID EQU -4 TASK IDENTITY T:A DISPLACEMENT «, t00=0x000c, t01=0x0102}
0x13ee…13f8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x0134}
0x13f8…1422 Head {h00=0x0026, h01=0x0050, text=»* CONFIG DATA 'CB1' REL ADDRESSES «, t00=0x000c, t01=0x013e}
0x1422…142c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x0168}
0x142c…1452 Head {h00=0x0022, h01=0x0050, text=»NBRKBV EQU 0 NUMBER OF KB/VDUS«, t00=0x000c, t01=0x0172}
0x1452…147c Head {h00=0x0026, h01=0x0050, text=»NBRGTP EQU NBRKBV+2 NUMBER OF GTPS«, t00=0x000d, t01=0x0008}
0x147c…1486 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x0032}
0x1486…14bc Head {h00=0x0032, h01=0x0050, text=»MF1KBV EQU NBRGTP+2 DV ADDRESSES KB/VDU MF #1 «, t00=0x000d, t01=0x003c}
0x14bc…14f2 Head {h00=0x0032, h01=0x0050, text=»MF1GTP EQU MF1KBV+16 DV ADDRESSES GTPS MF # 1 «, t00=0x000d, t01=0x0072}
0x14f2…1506 Head {h00=0x0010, h01=0x0050, text=» IFT DCLIN=2«, t00=0x000d, t01=0x00a8}
0x1506…1522 Head {h00=0x0018, h01=0x0050, text=»MF2KBV EQU MF1GTP+16«, t00=0x000d, t01=0x00bc}
0x1522…153e Head {h00=0x0018, h01=0x0050, text=»MF2GTP EQU MF2KBV+16«, t00=0x000d, t01=0x00d8}
0x153e…154a Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x000d, t01=0x00f4}
0x154a…1554 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x0100}
0x1554…155c Head {h00=0x0004, h01=0x0050, t00=0x000d, t01=0x010a}
0x155c…1566 Head {h00=0x0006, h01=0x0050, text=» «, t00=0x000d, t01=0x0112}
0x1566…15ae Head {h00=0x0044, h01=0x0050, text=»****************************************************************«, t00=0x000d, t01=0x011c}
0x15ae…15b8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x0164}
0x15b8…15d0 Head {h00=0x0014, h01=0x0050, text=»* INPUT FROM DC «, t00=0x000d, t01=0x016e}
0x15d0…15da Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x0186}
0x15da…1616 Head {h00=0x0038, h01=0x0050, text=»****************************************************«, t00=0x000d, t01=0x0190}
0x1616…1620 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x003c}
0x1620…1640 Head {h00=0x001c, h01=0x0050, text=»* RELATIVE POS IN ECBBLK«, t00=0x000e, t01=0x0046}
0x1640…1650 Head {h00=0x000c, h01=0x0050, text=»KB EQU 2«, t00=0x000e, t01=0x0066}
0x1650…1662 Head {h00=0x000e, h01=0x0050, text=»DC1 EQU 4 «, t00=0x000e, t01=0x0076}
0x1662…1674 Head {h00=0x000e, h01=0x0050, text=»DC2 EQU 6 «, t00=0x000e, t01=0x0088}
0x1674…167e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x009a}
0x167e…1692 Head {h00=0x0010, h01=0x0050, text=»DCINP EQU * «, t00=0x000e, t01=0x00a4}
0x1692…16be Head {h00=0x0028, h01=0x0050, text=» LD A8,ECBDCC,TCABAS GET THE ECB CK7«, t00=0x000e, t01=0x00b8}
0x16be…16ec Head {h00=0x002a, h01=0x0050, text=» LD A1,ECBRC,A8 READ-MOD RECEIVED? DK7«, t00=0x000e, t01=0x00e4}
0x16ec…1708 Head {h00=0x0018, h01=0x0050, text=» ANKL A1,/4000 DK7 «, t00=0x000e, t01=0x0112}
0x1708…1736 Head {h00=0x002a, h01=0x0050, text=» RF(Z) DCIN20 NO,PROCESS NORMALLY DK7 «, t00=0x000e, t01=0x012e}
0x1736…1770 Head {h00=0x0036, h01=0x0050, text=» ST A1,RDMYRC,TCABAS SAVE RET.CODE FOR DCWRITE DK7«, t00=0x000e, t01=0x015c}
0x1770…17a0 Head {h00=0x002c, h01=0x0050, text=» CF A14,READMY YES,FAKE AN ENTER KEY DK7«, t00=0x000f, t01=0x0008}
0x17a0…17cc Head {h00=0x0028, h01=0x0050, text=» RTN A14 GO ON BACK TO BUSINESS DK7 «, t00=0x000f, t01=0x0038}
0x17cc…17e6 Head {h00=0x0016, h01=0x0050, text=»DCIN20 EQU * DK7 «, t00=0x000f, t01=0x0064}
0x17e6…1810 Head {h00=0x0026, h01=0x0050, text=» CF A14,GTRBUF GET RECEIVE BUFFER «, t00=0x000f, t01=0x007e}
0x1810…182c Head {h00=0x0018, h01=0x0050, text=» LD A8,ECBDCC,TCABAS«, t00=0x000f, t01=0x00a8}
0x182c…1850 Head {h00=0x0020, h01=0x0050, text=» CF A14,DCGETM READ MESSAGE «, t00=0x000f, t01=0x00c4}
0x1850…1864 Head {h00=0x0010, h01=0x0050, text=» IFF DCLIN=2«, t00=0x000f, t01=0x00e8}
0x1864…1882 Head {h00=0x001a, h01=0x0050, text=» CM ECBBLK+DC1,TCABAS «, t00=0x000f, t01=0x00fc}
0x1882…188e Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x000f, t01=0x011a}
0x188e…18a2 Head {h00=0x0010, h01=0x0050, text=» IFT DCLIN=2«, t00=0x000f, t01=0x0126}
0x18a2…18bc Head {h00=0x0016, h01=0x0050, text=» LD A1,MAIN,TCABAS«, t00=0x000f, t01=0x013a}
0x18bc…18dc Head {h00=0x001c, h01=0x0050, text=» CW A8,ECBBLK+DC2,TCABAS«, t00=0x000f, t01=0x0154}
0x18dc…18f8 Head {h00=0x0018, h01=0x0050, text=» RF(E) DCIN20 MF # 2«, t00=0x000f, t01=0x0174}
0x18f8…1916 Head {h00=0x001a, h01=0x0050, text=» CM ECBBLK+DC1,TCABAS «, t00=0x000f, t01=0x0190}
0x1916…1928 Head {h00=0x000e, h01=0x0050, text=» LDR A1,A1«, t00=0x0010, t01=0x001e}
0x1928…1948 Head {h00=0x001c, h01=0x0050, text=» RF(NZ) DCIN90 WRONG MF «, t00=0x0010, t01=0x0030}
0x1948…195a Head {h00=0x000e, h01=0x0050, text=» RF DCIN30«, t00=0x0010, t01=0x0050}
0x195a…196e Head {h00=0x0010, h01=0x0050, text=»DCIN20 EQU *«, t00=0x0010, t01=0x0062}
0x196e…198c Head {h00=0x001a, h01=0x0050, text=» CM ECBBLK+DC2,TCABAS «, t00=0x0010, t01=0x0076}
0x198c…199e Head {h00=0x000e, h01=0x0050, text=» LDR A1,A1«, t00=0x0010, t01=0x0094}
0x199e…19bc Head {h00=0x001a, h01=0x0050, text=» RF(Z) DCIN90 WRONG MF«, t00=0x0010, t01=0x00a6}
0x19bc…19c8 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0010, t01=0x00c4}
0x19c8…19dc Head {h00=0x0010, h01=0x0050, text=»DCIN30 EQU *«, t00=0x0010, t01=0x00d0}
0x19dc…19f0 Head {h00=0x0010, h01=0x0050, text=» IFT OFLIN=1«, t00=0x0010, t01=0x00e4}
0x19f0…1a0c Head {h00=0x0018, h01=0x0050, text=» LD A1,OFFFLG,TCABAS«, t00=0x0010, t01=0x00f8}
0x1a0c…1a22 Head {h00=0x0012, h01=0x0050, text=» RF(NZ) DCIN90«, t00=0x0010, t01=0x0114}
0x1a22…1a2e Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0010, t01=0x012a}
0x1a2e…1a5a Head {h00=0x0028, h01=0x0050, text=» LD A1,ECBEL,A8 EFFECTIVE DC-LENGTH «, t00=0x0010, t01=0x0136}
0x1a5a…1a76 Head {h00=0x0018, h01=0x0050, text=» ST A1,DCLENG,TCABAS«, t00=0x0010, t01=0x0162}
0x1a76…1a7e Head {h00=0x0004, h01=0x0050, t00=0x0010, t01=0x017e}
0x1a7e…1a86 Head {h00=0x0004, h01=0x0050, t00=0x0010, t01=0x0186}
0x1a86…1aa2 Head {h00=0x0018, h01=0x0050, text=» LD A5,KBINH,TCABAS «, t00=0x0010, t01=0x018e}
0x1aa2…1ad4 Head {h00=0x002e, h01=0x0050, text=» ORK A5,3 BIT 14,15:= 1. TOTALLY DISABLED «, t00=0x0011, t01=0x001a}
0x1ad4…1b06 Head {h00=0x002e, h01=0x0050, text=»* KEYBOARD. BIT 15 = 0 AFTER DISPLAYING.«, t00=0x0011, t01=0x004c}
0x1b06…1b22 Head {h00=0x0018, h01=0x0050, text=» ST A5,KBINH,TCABAS «, t00=0x0011, t01=0x007e}
0x1b22…1b54 Head {h00=0x002e, h01=0x0050, text=» CF A14,LINHON TURN ON 'KEYBOARD INHIBIT' «, t00=0x0011, t01=0x009a}
0x1b54…1b86 Head {h00=0x002e, h01=0x0050, text=» CF A14,LSAVON TURN ON "SYSTEM AVAILABLE" «, t00=0x0011, t01=0x00cc}
0x1b86…1b9c Head {h00=0x0012, h01=0x0050, text=» CF A14,UPDATE«, t00=0x0011, t01=0x00fe}
0x1b9c…1bb2 Head {h00=0x0012, h01=0x0050, text=» CF A14,DISPL «, t00=0x0011, t01=0x0114}
0x1bb2…1bce Head {h00=0x0018, h01=0x0050, text=» LD A2,PCURS,TCABAS «, t00=0x0011, t01=0x012a}
0x1bce…1be4 Head {h00=0x0012, h01=0x0050, text=» CF A14,ATMASB«, t00=0x0011, t01=0x0146}
0x1be4…1bec Head {h00=0x0004, h01=0x0050, t00=0x0011, t01=0x015c}
0x1bec…1bf4 Head {h00=0x0004, h01=0x0050, t00=0x0011, t01=0x0164}
0x1bf4…1bfe Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x016c}
0x1bfe…1c1a Head {h00=0x0018, h01=0x0050, text=» LD A2,KBINH,TCABAS «, t00=0x0011, t01=0x0176}
0x1c1a…1c38 (18, 0, 398) Head {h00=0x001a, h01=0x0050, text=» ANK A2,1 BIT 15 = 0? «, t00=0x0012, t01=0x0004}
0x1c38…1c4e Head {h00=0x0012, h01=0x0050, text=» RF(Z) DCIN60 «, t00=0x0012, t01=0x0022}
0x1c4e…1c6a Head {h00=0x0018, h01=0x0050, text=» LD A2,KBINH,TCABAS «, t00=0x0012, t01=0x0038}
0x1c6a…1c9c Head {h00=0x002e, h01=0x0050, text=» ANK A2,/E BIT 15:=0 KEYBOARD NOT TOTALLY «, t00=0x0012, t01=0x0054}
0x1c9c…1cbc Head {h00=0x001c, h01=0x0050, text=»* INHIBITED ANY LONGER«, t00=0x0012, t01=0x0086}
0x1cbc…1cd8 Head {h00=0x0018, h01=0x0050, text=» ST A2,KBINH,TCABAS «, t00=0x0012, t01=0x00a6}
0x1cd8…1cf2 Head {h00=0x0016, h01=0x0050, text=» LD A2,WCC,TCABAS «, t00=0x0012, t01=0x00c2}
0x1cf2…1d04 Head {h00=0x000e, h01=0x0050, text=» ANK A2,2 «, t00=0x0012, t01=0x00dc}
0x1d04…1d1a Head {h00=0x0012, h01=0x0050, text=» RF(Z) DCIN95 «, t00=0x0012, t01=0x00ee}
0x1d1a…1d2e Head {h00=0x0010, h01=0x0050, text=»DCIN60 EQU *«, t00=0x0012, t01=0x0104}
0x1d2e…1d60 Head {h00=0x002e, h01=0x0050, text=» CF A14,LINHOF TURN OFF 'KEYBOARD INHIBIT'«, t00=0x0012, t01=0x0118}
0x1d60…1d7c Head {h00=0x0018, h01=0x0050, text=» LD A2,KBINH,TCABAS «, t00=0x0012, t01=0x014a}
0x1d7c…1dac Head {h00=0x002c, h01=0x0050, text=» ANK A2,4 BITS 14,15:=0 RESTORE KEYBOARD«, t00=0x0012, t01=0x0166}
0x1dac…1dc8 Head {h00=0x0018, h01=0x0050, text=» ST A2,KBINH,TCABAS «, t00=0x0013, t01=0x0008}
0x1dc8…1dda Head {h00=0x000e, h01=0x0050, text=» RF DCIN95«, t00=0x0013, t01=0x0024}
0x1dda…1dee Head {h00=0x0010, h01=0x0050, text=»DCIN90 EQU *«, t00=0x0013, t01=0x0036}
0x1dee…1e0a Head {h00=0x0018, h01=0x0050, text=» LD A8,ECBDCC,TCABAS«, t00=0x0013, t01=0x004a}
0x1e0a…1e22 Head {h00=0x0014, h01=0x0050, text=» LD A4,ECBBA,A8 «, t00=0x0013, t01=0x0066}
0x1e22…1e38 Head {h00=0x0012, h01=0x0050, text=» CF A14,RLRBUF«, t00=0x0013, t01=0x007e}
0x1e38…1e4c Head {h00=0x0010, h01=0x0050, text=»DCIN95 EQU *«, t00=0x0013, t01=0x0094}
0x1e4c…1e62 Head {h00=0x0012, h01=0x0050, text=» CF A14,SNBUSY«, t00=0x0013, t01=0x00a8}
0x1e62…1e72 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0013, t01=0x00be}
0x1e72…1e7c Head {h00=0x0006, h01=0x0050, text=» «, t00=0x0013, t01=0x00ce}
0x1e7c…1e86 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x00d8}
0x1e86…1e98 Head {h00=0x000e, h01=0x0050, text=»* READ DC «, t00=0x0013, t01=0x00e2}
0x1e98…1ea2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x00f4}
0x1ea2…1eb6 Head {h00=0x0010, h01=0x0050, text=»DCGETM EQU *«, t00=0x0013, t01=0x00fe}
0x1eb6…1ec8 Head {h00=0x000e, h01=0x0050, text=» LDK A1,0 «, t00=0x0013, t01=0x0112}
0x1ec8…1ede Head {h00=0x0012, h01=0x0050, text=» CF A14,REQTIM«, t00=0x0013, t01=0x0124}
0x1ede…1efc Head {h00=0x001a, h01=0x0050, text=» LDK A7,/82 READ, WAIT«, t00=0x0013, t01=0x013a}
0x1efc…1f28 Head {h00=0x0028, h01=0x0050, text=» CM ECBCW,A8 NO TIME OUT SUPERVISION«, t00=0x0013, t01=0x0158}
0x1f28…1f44 Head {h00=0x0018, h01=0x0050, text=» LDKL A1,RBUFL+RBUFL«, t00=0x0013, t01=0x0184}
0x1f44…1f66 Head {h00=0x001e, h01=0x0050, text=» ST A1,ECBRL,A8 REQ LENGTH«, t00=0x0014, t01=0x0010}
0x1f66…1f7e Head {h00=0x0014, h01=0x0050, text=» ST A4,ECBBA,A8 «, t00=0x0014, t01=0x0032}
0x1f7e…1f8a Head {h00=0x0008, h01=0x0050, text=» LKM«, t00=0x0014, t01=0x004a}
0x1f8a…1f9a Head {h00=0x000c, h01=0x0050, text=» DATA 1 «, t00=0x0014, t01=0x0056}
0x1f9a…1faa Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0014, t01=0x0066}
0x1faa…1fb4 Head {h00=0x0006, h01=0x0050, text=» «, t00=0x0014, t01=0x0076}
0x1fb4…1ff6 Head {h00=0x003e, h01=0x0050, text=»**********************************************************«, t00=0x0014, t01=0x0080}
0x1ff6…2000 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x00c2}
0x2000…201a Head {h00=0x0016, h01=0x0050, text=»* BUFFER HANDLING «, t00=0x0014, t01=0x00cc}
0x201a…2024 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x00e6}
0x2024…2066 Head {h00=0x003e, h01=0x0050, text=»**********************************************************«, t00=0x0014, t01=0x00f0}
0x2066…2070 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x0132}
0x2070…2090 Head {h00=0x001c, h01=0x0050, text=»RLINK EQU RBUFL+RBUFL+2 «, t00=0x0014, t01=0x013c}
0x2090…209a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x015c}
0x209a…20ac Head {h00=0x000e, h01=0x0050, text=»RBUF EQU *«, t00=0x0014, t01=0x0166}
0x20ac…20d0 Head {h00=0x0020, h01=0x0050, text=» DATA *+2 POINTER FIRST FREE«, t00=0x0014, t01=0x0178}
0x20d0…20e6 Head {h00=0x0012, h01=0x0050, text=» IFF RBUFNR=1 «, t00=0x0015, t01=0x000c}
0x20e6…20fc Head {h00=0x0012, h01=0x0050, text=» DATA *+RLINK «, t00=0x0015, t01=0x0022}
0x20fc…210e Head {h00=0x000e, h01=0x0050, text=» RES RBUFL«, t00=0x0015, t01=0x0038}
0x210e…2124 Head {h00=0x0012, h01=0x0050, text=» IFF RBUFNR=2 «, t00=0x0015, t01=0x004a}
0x2124…213a Head {h00=0x0012, h01=0x0050, text=» DATA *+RLINK «, t00=0x0015, t01=0x0060}
0x213a…214c Head {h00=0x000e, h01=0x0050, text=» RES RBUFL«, t00=0x0015, t01=0x0076}
0x214c…2162 Head {h00=0x0012, h01=0x0050, text=» IFF RBUFNR=3 «, t00=0x0015, t01=0x0088}
0x2162…2178 Head {h00=0x0012, h01=0x0050, text=» DATA *+RLINK «, t00=0x0015, t01=0x009e}
0x2178…218a Head {h00=0x000e, h01=0x0050, text=» RES RBUFL«, t00=0x0015, t01=0x00b4}
0x218a…21a0 Head {h00=0x0012, h01=0x0050, text=» IFF RBUFNR=4 «, t00=0x0015, t01=0x00c6}
0x21a0…21b6 Head {h00=0x0012, h01=0x0050, text=» DATA *+RLINK «, t00=0x0015, t01=0x00dc}
0x21b6…21c8 Head {h00=0x000e, h01=0x0050, text=» RES RBUFL«, t00=0x0015, t01=0x00f2}
0x21c8…21d4 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0015, t01=0x0104}
0x21d4…21f0 Head {h00=0x0018, h01=0x0050, text=» DATA 0 END OF CHAIN«, t00=0x0015, t01=0x0110}
0x21f0…2202 Head {h00=0x000e, h01=0x0050, text=» RES RBUFL«, t00=0x0015, t01=0x012c}
0x2202…220c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x013e}
0x220c…2216 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x0148}
0x2216…2236 Head {h00=0x001c, h01=0x0050, text=»TLINK EQU TBUFL+TBUFL+2 «, t00=0x0015, t01=0x0152}
0x2236…2240 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x0172}
0x2240…2252 Head {h00=0x000e, h01=0x0050, text=»TBUF EQU *«, t00=0x0015, t01=0x017c}
0x2252…2276 Head {h00=0x0020, h01=0x0050, text=» DATA *+2 POINTER FIRST FREE«, t00=0x0015, t01=0x018e}
0x2276…228c Head {h00=0x0012, h01=0x0050, text=» IFF TBUFNR=1 «, t00=0x0016, t01=0x0022}
0x228c…22a2 Head {h00=0x0012, h01=0x0050, text=» DATA *+TLINK «, t00=0x0016, t01=0x0038}
0x22a2…22b4 Head {h00=0x000e, h01=0x0050, text=» RES TBUFL«, t00=0x0016, t01=0x004e}
0x22b4…22ca Head {h00=0x0012, h01=0x0050, text=» IFF TBUFNR=2 «, t00=0x0016, t01=0x0060}
0x22ca…22e0 Head {h00=0x0012, h01=0x0050, text=» DATA *+TLINK «, t00=0x0016, t01=0x0076}
0x22e0…22f2 Head {h00=0x000e, h01=0x0050, text=» RES TBUFL«, t00=0x0016, t01=0x008c}
0x22f2…2308 Head {h00=0x0012, h01=0x0050, text=» IFF TBUFNR=3 «, t00=0x0016, t01=0x009e}
0x2308…231e Head {h00=0x0012, h01=0x0050, text=» DATA *+TLINK «, t00=0x0016, t01=0x00b4}
0x231e…2330 Head {h00=0x000e, h01=0x0050, text=» RES TBUFL«, t00=0x0016, t01=0x00ca}
0x2330…2346 Head {h00=0x0012, h01=0x0050, text=» IFF TBUFNR=4 «, t00=0x0016, t01=0x00dc}
0x2346…235c Head {h00=0x0012, h01=0x0050, text=» DATA *+TLINK «, t00=0x0016, t01=0x00f2}
0x235c…236e Head {h00=0x000e, h01=0x0050, text=» RES TBUFL«, t00=0x0016, t01=0x0108}
0x236e…237a Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0016, t01=0x011a}
0x237a…2396 Head {h00=0x0018, h01=0x0050, text=» DATA 0 END OF CHAIN«, t00=0x0016, t01=0x0126}
0x2396…23a8 Head {h00=0x000e, h01=0x0050, text=» RES TBUFL«, t00=0x0016, t01=0x0142}
0x23a8…23b2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0016, t01=0x0154}
0x23b2…23bc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0016, t01=0x015e}
0x23bc…23d6 Head {h00=0x0016, h01=0x0050, text=»* GET WRITE BUFFER«, t00=0x0016, t01=0x0168}
0x23d6…23e0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0016, t01=0x0182}
0x23e0…23f4 Head {h00=0x0010, h01=0x0050, text=»GTWBUF EQU *«, t00=0x0016, t01=0x018c}
0x23f4…240a Head {h00=0x0012, h01=0x0050, text=» LDKL A5,TBUF «, t00=0x0017, t01=0x0010}
0x240a…2420 Head {h00=0x0012, h01=0x0050, text=» CF A14,GETBUF«, t00=0x0017, t01=0x0026}
0x2420…2432 Head {h00=0x000e, h01=0x0050, text=» LDR A7,A4«, t00=0x0017, t01=0x003c}
0x2432…2446 Head {h00=0x0010, h01=0x0050, text=» LDR A12,A4 «, t00=0x0017, t01=0x004e}
0x2446…245c Head {h00=0x0012, h01=0x0050, text=» ADK A7,2 SKIP«, t00=0x0017, t01=0x0062}
0x245c…2480 Head {h00=0x0020, h01=0x0050, text=» LDKL A9,2 FOR DV ADDRESS «, t00=0x0017, t01=0x0078}
0x2480…2490 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0017, t01=0x009c}
0x2490…249a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0017, t01=0x00ac}
0x249a…24b6 Head {h00=0x0018, h01=0x0050, text=»* GET RECEIVE BUFFER«, t00=0x0017, t01=0x00b6}
0x24b6…24c0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0017, t01=0x00d2}
0x24c0…24d4 Head {h00=0x0010, h01=0x0050, text=»GTRBUF EQU *«, t00=0x0017, t01=0x00dc}
0x24d4…24ea Head {h00=0x0012, h01=0x0050, text=» LDKL A5,RBUF «, t00=0x0017, t01=0x00f0}
0x24ea…24f4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0017, t01=0x0106}
0x24f4…24fe Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0017, t01=0x0110}
0x24fe…2512 Head {h00=0x0010, h01=0x0050, text=»GETBUF EQU *«, t00=0x0017, t01=0x011a}
0x2512…2526 Head {h00=0x0010, h01=0x0050, text=» LDR* A4,A5 «, t00=0x0017, t01=0x012e}
0x2526…254a Head {h00=0x0020, h01=0x0050, text=» RF(Z) GETB50 NO BUFFER FREE«, t00=0x0017, t01=0x0142}
0x254a…255e Head {h00=0x0010, h01=0x0050, text=» LDR* A3,A4 «, t00=0x0017, t01=0x0166}
0x255e…2570 Head {h00=0x000e, h01=0x0050, text=» STR A3,A5«, t00=0x0017, t01=0x017a}
0x2570…258c Head {h00=0x0018, h01=0x0050, text=» ADK A4,2 SKIP LINK «, t00=0x0017, t01=0x018c}
0x258c…259c Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0018, t01=0x0018}
0x259c…25b0 Head {h00=0x0010, h01=0x0050, text=»GETB50 EQU *«, t00=0x0018, t01=0x0028}
0x25b0…25bc Head {h00=0x0008, h01=0x0050, text=» LKM«, t00=0x0018, t01=0x003c}
0x25bc…25d8 Head {h00=0x0018, h01=0x0050, text=» DATA 0 SWITCH TASK «, t00=0x0018, t01=0x0048}
0x25d8…25ea Head {h00=0x000e, h01=0x0050, text=» RB GETBUF«, t00=0x0018, t01=0x0064}
0x25ea…25f4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0018, t01=0x0076}
0x25f4…260c Head {h00=0x0014, h01=0x0050, text=»* RELEASE BUFFER«, t00=0x0018, t01=0x0080}
0x260c…2616 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0018, t01=0x0098}
0x2616…262a Head {h00=0x0010, h01=0x0050, text=»RLRBUF EQU *«, t00=0x0018, t01=0x00a2}
0x262a…2640 Head {h00=0x0012, h01=0x0050, text=» LDKL A2,RBUF «, t00=0x0018, t01=0x00b6}
0x2640…2654 Head {h00=0x0010, h01=0x0050, text=»RELB05 EQU *«, t00=0x0018, t01=0x00cc}
0x2654…2674 Head {h00=0x001c, h01=0x0050, text=» SUK A4,2 POINT TO LINK «, t00=0x0018, t01=0x00e0}
0x2674…2688 Head {h00=0x0010, h01=0x0050, text=»RELB10 EQU *«, t00=0x0018, t01=0x0100}
0x2688…269c Head {h00=0x0010, h01=0x0050, text=» LDR* A3,A2 «, t00=0x0018, t01=0x0114}
0x269c…26b2 Head {h00=0x0012, h01=0x0050, text=» RF(Z) RELB20 «, t00=0x0018, t01=0x0128}
0x26b2…26c4 Head {h00=0x000e, h01=0x0050, text=» LDR A2,A3«, t00=0x0018, t01=0x013e}
0x26c4…26d6 Head {h00=0x000e, h01=0x0050, text=» RB RELB10«, t00=0x0018, t01=0x0150}
0x26d6…26ea Head {h00=0x0010, h01=0x0050, text=»RELB20 EQU *«, t00=0x0018, t01=0x0162}
0x26ea…26fc Head {h00=0x000e, h01=0x0050, text=» STR A4,A2«, t00=0x0018, t01=0x0176}
0x26fc…270c Head {h00=0x000c, h01=0x0050, text=» CMR A4 «, t00=0x0018, t01=0x0188}
0x270c…271c Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0019, t01=0x0008}
0x271c…2726 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0019, t01=0x0018}
0x2726…273a Head {h00=0x0010, h01=0x0050, text=»RLWBUF EQU *«, t00=0x0019, t01=0x0022}
0x273a…2750 Head {h00=0x0012, h01=0x0050, text=» LDKL A2,TBUF «, t00=0x0019, t01=0x0036}
0x2750…2762 Head {h00=0x000e, h01=0x0050, text=» RB RELB05«, t00=0x0019, t01=0x004c}
0x2762…276c Head {h00=0x0006, h01=0x0050, text=» «, t00=0x0019, t01=0x005e}
0x276c…2776 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0019, t01=0x0068}
0x2776…2780 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0019, t01=0x0072}
0x2780…27a6 Head {h00=0x0022, h01=0x0050, text=»* STORE CHARACTER IN DC BUFFER«, t00=0x0019, t01=0x007c}
0x27a6…27b0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0019, t01=0x00a2}
0x27b0…27c2 Head {h00=0x000e, h01=0x0050, text=»* A2=CHAR «, t00=0x0019, t01=0x00ac}
0x27c2…27de Head {h00=0x0018, h01=0x0050, text=»* A7=BUFFER POINTER «, t00=0x0019, t01=0x00be}
0x27de…2804 Head {h00=0x0022, h01=0x0050, text=»* A9=BUFFER CHARACTER COUNTER «, t00=0x0019, t01=0x00da}
0x2804…280e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0019, t01=0x0100}
0x280e…2818 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0019, t01=0x010a}
0x2818…282c Head {h00=0x0010, h01=0x0050, text=»PDCCH EQU * «, t00=0x0019, t01=0x0114}
0x282c…284c Head {h00=0x001c, h01=0x0050, text=» CWK A9,TBUFL+TBUFL =3 «, t00=0x0019, t01=0x0128}
0x284c…286a Head {h00=0x001a, h01=0x0050, text=» RF(G) PDCCHR OVERFLOW«, t00=0x0019, t01=0x0148}
0x286a…287c Head {h00=0x000e, h01=0x0050, text=» SCR A2,A7«, t00=0x0019, t01=0x0166}
0x287c…2890 Head {h00=0x0010, h01=0x0050, text=»PDCCH1 EQU *«, t00=0x0019, t01=0x0178}
0x2890…28a2 Head {h00=0x000e, h01=0x0050, text=» ADK A7,1 «, t00=0x0019, t01=0x018c}
0x28a2…28b4 Head {h00=0x000e, h01=0x0050, text=» ADKL A9,1«, t00=0x001a, t01=0x000e}
0x28b4…28ca Head {h00=0x0012, h01=0x0050, text=»PDCCHR RTN A14«, t00=0x001a, t01=0x0020}
0x28ca…28d4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001a, t01=0x0036}
0x28d4…28de Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001a, t01=0x0040}
0x28de…2902 Head {h00=0x0020, h01=0x0050, text=»* STORE ATTENTION ID FROM A2«, t00=0x001a, t01=0x004a}
0x2902…290c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001a, t01=0x006e}
0x290c…2916 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001a, t01=0x0078}
0x2916…2930 Head {h00=0x0016, h01=0x0050, text=»PAID CF A14,PDCCH «, t00=0x001a, t01=0x0082}
0x2930…2940 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x001a, t01=0x009c}
0x2940…294a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001a, t01=0x00ac}
0x294a…2954 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001a, t01=0x00b6}
0x2954…2980 Head {h00=0x0028, h01=0x0050, text=»* GET CHARACTER FROM DC BUFFER TO A2«, t00=0x001a, t01=0x00c0}
0x2980…298a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001a, t01=0x00ec}
0x298a…2994 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001a, t01=0x00f6}
0x2994…29ac Head {h00=0x0014, h01=0x0050, text=»GDCCH LCR A2,A7 «, t00=0x001a, t01=0x0100}
0x29ac…29c0 Head {h00=0x0010, h01=0x0050, text=» ANK A2,/FF «, t00=0x001a, t01=0x0118}
0x29c0…29ea Head {h00=0x0026, h01=0x0050, text=» RF(NZ) GDCC:1 NOT NULL CHARACTER «, t00=0x001a, t01=0x012c}
0x29ea…2a12 Head {h00=0x0024, h01=0x0050, text=» LDK A2,/7F LOAD NULL CHARACTER «, t00=0x001a, t01=0x0156}
0x2a12…2a26 Head {h00=0x0010, h01=0x0050, text=»GDCC:1 EQU *«, t00=0x001a, t01=0x017e}
0x2a26…2a38 (27, 0, 400) Head {h00=0x000e, h01=0x0050, text=» RB PDCCH1«, t00=0x001b, t01=0x0004}
0x2a38…2a42 Head {h00=0x0006, h01=0x0050, text=» «, t00=0x001b, t01=0x0016}
0x2a42…2a4c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001b, t01=0x0020}
0x2a4c…2a56 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001b, t01=0x002a}
0x2a56…2a88 Head {h00=0x002e, h01=0x0050, text=»* GET BUFFER ADDRESS TO A1 FROM DC BUFFER «, t00=0x001b, t01=0x0034}
0x2a88…2a92 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001b, t01=0x0066}
0x2a92…2a9c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001b, t01=0x0070}
0x2a9c…2ab8 Head {h00=0x0018, h01=0x0050, text=»GETADR CF A14,GDCCH «, t00=0x001b, t01=0x007a}
0x2ab8…2ad0 Head {h00=0x0014, h01=0x0050, text=» LC A1,TEBCDI,A2«, t00=0x001b, t01=0x0096}
0x2ad0…2ae4 Head {h00=0x0010, h01=0x0050, text=» ANK A1,/3F «, t00=0x001b, t01=0x00ae}
0x2ae4…2af6 Head {h00=0x000e, h01=0x0050, text=» SLL A1,6 «, t00=0x001b, t01=0x00c2}
0x2af6…2b0c Head {h00=0x0012, h01=0x0050, text=» CF A14,GDCCH «, t00=0x001b, t01=0x00d4}
0x2b0c…2b24 Head {h00=0x0014, h01=0x0050, text=» LC A2,TEBCDI,A2«, t00=0x001b, t01=0x00ea}
0x2b24…2b38 Head {h00=0x0010, h01=0x0050, text=» ANK A2,/3F «, t00=0x001b, t01=0x0102}
0x2b38…2b4a Head {h00=0x000e, h01=0x0050, text=» ORR A1,A2«, t00=0x001b, t01=0x0116}
0x2b4a…2b5a Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x001b, t01=0x0128}
0x2b5a…2b64 Head {h00=0x0006, h01=0x0050, text=» «, t00=0x001b, t01=0x0138}
0x2b64…2b6e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001b, t01=0x0142}
0x2b6e…2b78 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001b, t01=0x014c}
0x2b78…2b9e Head {h00=0x0022, h01=0x0050, text=»* WRITE MESSAGE TO MAIN FRAME «, t00=0x001b, t01=0x0156}
0x2b9e…2ba8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001b, t01=0x017c}
0x2ba8…2bd2 Head {h00=0x0026, h01=0x0050, text=»* ON EXIT A1 CONTAINS RETURN CODE «, t00=0x001b, t01=0x0186}
0x2bd2…2bdc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001c, t01=0x0020}
0x2bdc…2be6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001c, t01=0x002a}
0x2be6…2bfa Head {h00=0x0010, h01=0x0050, text=»DCWRTE EQU *«, t00=0x001c, t01=0x0034}
0x2bfa…2c10 Head {h00=0x0012, h01=0x0050, text=» LDKL A8,ECBDC«, t00=0x001c, t01=0x0048}
0x2c10…2c24 Head {h00=0x0010, h01=0x0050, text=» IFT DCLIN=2«, t00=0x001c, t01=0x005e}
0x2c24…2c3e Head {h00=0x0016, h01=0x0050, text=» LD A7,MAIN,TCABAS«, t00=0x001c, t01=0x0072}
0x2c3e…2c52 Head {h00=0x0010, h01=0x0050, text=» RF(Z) DC050«, t00=0x001c, t01=0x008c}
0x2c52…2c6a Head {h00=0x0014, h01=0x0050, text=» LDKL A8,ECBDC2 «, t00=0x001c, t01=0x00a0}
0x2c6a…2c76 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x001c, t01=0x00b8}
0x2c76…2c8a Head {h00=0x0010, h01=0x0050, text=»DC050 EQU * «, t00=0x001c, t01=0x00c4}
0x2c8a…2ca0 Head {h00=0x0012, h01=0x0050, text=» ADR A8,CREBAS«, t00=0x001c, t01=0x00d8}
0x2ca0…2cb6 Head {h00=0x0012, h01=0x0050, text=» LDKL A1,TIMDC«, t00=0x001c, t01=0x00ee}
0x2cb6…2ccc Head {h00=0x0012, h01=0x0050, text=» CF A14,REQTIM«, t00=0x001c, t01=0x0104}
0x2ccc…2cee Head {h00=0x001e, h01=0x0050, text=» ST A9,ECBRL,A8 REQ LENGTH«, t00=0x001c, t01=0x011a}
0x2cee…2d16 Head {h00=0x0024, h01=0x0050, text=» ST A12,ECBBA,A8 BUFFER ADDRESS «, t00=0x001c, t01=0x013c}
0x2d16…2d32 Head {h00=0x0018, h01=0x0050, text=» LD A7,KBINH,TCABAS «, t00=0x001c, t01=0x0164}
0x2d32…2d6e Head {h00=0x0038, h01=0x0050, text=» ORK A7,2 BIT 14 :=1 DISABLE KEYBOARD.RESET ALLOWED «, t00=0x001c, t01=0x0180}
0x2d6e…2d8a Head {h00=0x0018, h01=0x0050, text=» ST A7,KBINH,TCABAS «, t00=0x001d, t01=0x002c}
0x2d8a…2dc8 Head {h00=0x003a, h01=0x0050, text=» LD A1,RDMYRC,TCABAS SEE IF ITS A READMOD RESPONSE DK7«, t00=0x001d, t01=0x0048}
0x2dc8…2de4 Head {h00=0x0018, h01=0x0050, text=» ANKL A1,/4000 DK7 «, t00=0x001d, t01=0x0086}
0x2de4…2e10 Head {h00=0x0028, h01=0x0050, text=» RF(Z) DC070 NO, GO ON AS USUAL DK7 «, t00=0x001d, t01=0x00a2}
0x2e10…2e42 Head {h00=0x002e, h01=0x0050, text=» CM RDMYRC,TCABAS CLEAR THE RETURNCODE DK7«, t00=0x001d, t01=0x00ce}
0x2e42…2e6a Head {h00=0x0024, h01=0x0050, text=» LDK A7,/B3 YES, ORDER =/33 DK7 «, t00=0x001d, t01=0x0100}
0x2e6a…2e98 Head {h00=0x002a, h01=0x0050, text=» RF DC100 ISSUE READ MOD RESPONSE DK7 «, t00=0x001d, t01=0x0128}
0x2e98…2eb0 Head {h00=0x0014, h01=0x0050, text=»DC070 EQU * DK7«, t00=0x001d, t01=0x0156}
0x2eb0…2ec4 Head {h00=0x0010, h01=0x0050, text=» LDK A7,/86 «, t00=0x001d, t01=0x016e}
0x2ec4…2ed8 Head {h00=0x0010, h01=0x0050, text=»DC100 EQU * «, t00=0x001d, t01=0x0182}
0x2ed8…2ee4 Head {h00=0x0008, h01=0x0050, text=» LKM«, t00=0x001e, t01=0x0008}
0x2ee4…2ef4 Head {h00=0x000c, h01=0x0050, text=» DATA 1 «, t00=0x001e, t01=0x0014}
0x2ef4…2f08 Head {h00=0x0010, h01=0x0050, text=»DC200 EQU * «, t00=0x001e, t01=0x0024}
0x2f08…2f1c Head {h00=0x0010, h01=0x0050, text=» LDR A4,A12 «, t00=0x001e, t01=0x0038}
0x2f1c…2f32 Head {h00=0x0012, h01=0x0050, text=» CF A14,RLWBUF«, t00=0x001e, t01=0x004c}
0x2f32…2f5a Head {h00=0x0024, h01=0x0050, text=» LD A1,ECBRC,A8 GET RETURN CODE «, t00=0x001e, t01=0x0062}
0x2f5a…2f6e Head {h00=0x0010, h01=0x0050, text=» RF(Z) DC300«, t00=0x001e, t01=0x008a}
0x2f6e…2f8a Head {h00=0x0018, h01=0x0050, text=» LD A7,KBINH,TCABAS «, t00=0x001e, t01=0x009e}
0x2f8a…2fb6 Head {h00=0x0028, h01=0x0050, text=» ANK A7,/D BIT 14:=0 ALLIWE KEYBOARD«, t00=0x001e, t01=0x00ba}
0x2fb6…2fd2 Head {h00=0x0018, h01=0x0050, text=» ST A7,KBINH,TCABAS «, t00=0x001e, t01=0x00e6}
0x2fd2…3004 Head {h00=0x002e, h01=0x0050, text=» CF A14,LINHOF TURN OFF "KEYBOARD INHIBIT «, t00=0x001e, t01=0x0102}
0x3004…3036 Head {h00=0x002e, h01=0x0050, text=» CF A14,LSAVOF TURN OFF "SYSTEM AVAILABLE"«, t00=0x001e, t01=0x0134}
0x3036…3040 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001e, t01=0x0166}
0x3040…306e Head {h00=0x002a, h01=0x0050, text=» LDK A7,/04 RESET KEYBOARD ECB BUFFER «, t00=0x001e, t01=0x0170}
0x306e…3084 Head {h00=0x0012, h01=0x0050, text=» LDKL A8,ECBKB«, t00=0x001f, t01=0x000e}
0x3084…309a Head {h00=0x0012, h01=0x0050, text=» ADR A8,CREBAS«, t00=0x001f, t01=0x0024}
0x309a…30a6 Head {h00=0x0008, h01=0x0050, text=» LKM«, t00=0x001f, t01=0x003a}
0x30a6…30b6 Head {h00=0x000c, h01=0x0050, text=» DATA 1 «, t00=0x001f, t01=0x0046}
0x30b6…30c0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001f, t01=0x0056}
0x30c0…30d0 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x001f, t01=0x0060}
0x30d0…30e4 Head {h00=0x0010, h01=0x0050, text=»DC300 EQU * «, t00=0x001f, t01=0x0070}
0x30e4…3116 Head {h00=0x002e, h01=0x0050, text=» CF A14,LSAVON TURN ON 'SYSTEM AVAILABLE' «, t00=0x001f, t01=0x0084}
0x3116…3126 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x001f, t01=0x00b6}
0x3126…3130 Head {h00=0x0006, h01=0x0050, text=» «, t00=0x001f, t01=0x00c6}
0x3130…313a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001f, t01=0x00d0}
0x313a…3144 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001f, t01=0x00da}
0x3144…3170 Head {h00=0x0028, h01=0x0050, text=»* STORE CURSOR ADDRESS IN DC BUFFER «, t00=0x001f, t01=0x00e4}
0x3170…317a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001f, t01=0x0110}
0x317a…3184 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001f, t01=0x011a}
0x3184…31a4 Head {h00=0x001c, h01=0x0050, text=»CURSA LD A1,PCURS,TCABAS«, t00=0x001f, t01=0x0124}
0x31a4…31b6 Head {h00=0x000e, h01=0x0050, text=» RF BUFADR«, t00=0x001f, t01=0x0144}
0x31b6…31c0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001f, t01=0x0156}
0x31c0…31ca Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001f, t01=0x0160}
0x31ca…31f6 Head {h00=0x0028, h01=0x0050, text=»* STORE BUFFER ADDRESS IN DC BUFFER «, t00=0x001f, t01=0x016a}
0x31f6…3200 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0020, t01=0x0008}
0x3200…3222 Head {h00=0x001e, h01=0x0050, text=»* A1=BINARY BUFFER ADDRESS«, t00=0x0020, t01=0x0012}
0x3222…322c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0020, t01=0x0034}
0x322c…3236 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0020, t01=0x003e}
0x3236…324e Head {h00=0x0014, h01=0x0050, text=»BUFADR LDR A2,A1«, t00=0x0020, t01=0x0048}
0x324e…3260 Head {h00=0x000e, h01=0x0050, text=» SRL A2,6 «, t00=0x0020, t01=0x0060}
0x3260…3274 Head {h00=0x0010, h01=0x0050, text=» ANK A2,/3F «, t00=0x0020, t01=0x0072}
0x3274…329e Head {h00=0x0026, h01=0x0050, text=» LC A2,TASCII,A2 CONVERT TO ASCII «, t00=0x0020, t01=0x0086}
0x329e…32b4 Head {h00=0x0012, h01=0x0050, text=» CF A14,PDCCH «, t00=0x0020, t01=0x00b0}
0x32b4…32c6 Head {h00=0x000e, h01=0x0050, text=» LDR A2,A1«, t00=0x0020, t01=0x00c6}
0x32c6…32da Head {h00=0x0010, h01=0x0050, text=» ANK A2,/3F «, t00=0x0020, t01=0x00d8}
0x32da…32f2 Head {h00=0x0014, h01=0x0050, text=» LC A2,TASCII,A2«, t00=0x0020, t01=0x00ec}
0x32f2…3308 Head {h00=0x0012, h01=0x0050, text=» CF A14,PDCCH «, t00=0x0020, t01=0x0104}
0x3308…3318 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0020, t01=0x011a}
0x3318…3322 Head {h00=0x0006, h01=0x0050, text=» «, t00=0x0020, t01=0x012a}
0x3322…332c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0020, t01=0x0134}
0x332c…3336 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0020, t01=0x013e}
0x3336…336c Head {h00=0x0032, h01=0x0050, text=»* GET MODIFIED DATA FROM DISPLAY IMAGE BUFFER «, t00=0x0020, t01=0x0148}
0x336c…3376 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0020, t01=0x017e}
0x3376…339a Head {h00=0x0020, h01=0x0050, text=»* A3=BUFFER POSITION BINARY «, t00=0x0020, t01=0x0188}
0x339a…33b6 Head {h00=0x0018, h01=0x0050, text=»* A4=BUFFER POINTER «, t00=0x0021, t01=0x001c}
0x33b6…33c0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0021, t01=0x0038}
0x33c0…33ca Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0021, t01=0x0042}
0x33ca…33f0 Head {h00=0x0022, h01=0x0050, text=»RDMOD LDK A3,0 RESET POSITION «, t00=0x0021, t01=0x004c}
0x33f0…3406 Head {h00=0x0012, h01=0x0050, text=» LDKL A4,BVDU «, t00=0x0021, t01=0x0072}
0x3406…342c Head {h00=0x0022, h01=0x0050, text=» ADR A4,TCABAS BUFFER POINTER «, t00=0x0021, t01=0x0088}
0x342c…3456 Head {h00=0x0026, h01=0x0050, text=» ADKL A4,1919 LAST SCREEN POSITION«, t00=0x0021, t01=0x00ae}
0x3456…3476 Head {h00=0x001c, h01=0x0050, text=» LCR A2,A4 GET CHARACTER«, t00=0x0021, t01=0x00d8}
0x3476…34a8 Head {h00=0x002e, h01=0x0050, text=» LDKL A4,BVDU RELOAD FIRST BUFFER POSITION«, t00=0x0021, t01=0x00f8}
0x34a8…34be Head {h00=0x0012, h01=0x0050, text=» ADR A4,TCABAS«, t00=0x0021, t01=0x012a}
0x34be…34c6 Head {h00=0x0004, h01=0x0050, t00=0x0021, t01=0x0140}
0x34c6…34d8 Head {h00=0x000e, h01=0x0050, text=» LDR A1,A2«, t00=0x0021, t01=0x0148}
0x34d8…34fa Head {h00=0x001e, h01=0x0050, text=» ANK A1,/60 ATTRIBUTE ??? «, t00=0x0021, t01=0x015a}
0x34fa…3516 Head {h00=0x0018, h01=0x0050, text=» RF(Z) RD200 YES!!! «, t00=0x0021, t01=0x017c}
0x3516…351e Head {h00=0x0004, h01=0x0050, t00=0x0022, t01=0x0008}
0x351e…3538 Head {h00=0x0016, h01=0x0050, text=»RD100 CWK A3,LBVDU«, t00=0x0022, t01=0x0010}
0x3538…355c Head {h00=0x0020, h01=0x0050, text=» RF(NL) RDMODE ALL EXAMINED «, t00=0x0022, t01=0x002a}
0x355c…3578 Head {h00=0x0018, h01=0x0050, text=» LCR A2,A4 GET CHAR «, t00=0x0022, t01=0x004e}
0x3578…358a Head {h00=0x000e, h01=0x0050, text=» ADK A3,1 «, t00=0x0022, t01=0x006a}
0x358a…359c Head {h00=0x000e, h01=0x0050, text=» ADK A4,1 «, t00=0x0022, t01=0x007c}
0x359c…35b0 Head {h00=0x0010, h01=0x0050, text=»RD105 EQU * «, t00=0x0022, t01=0x008e}
0x35b0…35c2 Head {h00=0x000e, h01=0x0050, text=» LDR A1,A2«, t00=0x0022, t01=0x00a2}
0x35c2…35e2 Head {h00=0x001c, h01=0x0050, text=» ANK A1,/FF CLEAN IT DK7«, t00=0x0022, t01=0x00b4}
0x35e2…3608 Head {h00=0x0022, h01=0x0050, text=» CWK A1,/08 'APL' ESCAPE? DK7 «, t00=0x0022, t01=0x00d4}
0x3608…3630 Head {h00=0x0024, h01=0x0050, text=» RF(E) RD110 YES,SEND IT... DK7 «, t00=0x0022, t01=0x00fa}
0x3630…3644 Head {h00=0x0010, h01=0x0050, text=» ANK A1,/60 «, t00=0x0022, t01=0x0122}
0x3644…3668 Head {h00=0x0020, h01=0x0050, text=» RF(Z) RD200 ATTRIBUTE CHAR «, t00=0x0022, t01=0x0136}
0x3668…3682 Head {h00=0x0016, h01=0x0050, text=»RD110 CWK A2,NULL «, t00=0x0022, t01=0x015a}
0x3682…36a8 Head {h00=0x0022, h01=0x0050, text=» RB(E) RD100 DON'T STORE NULL «, t00=0x0022, t01=0x0174}
0x36a8…36d6 Head {h00=0x002a, h01=0x0050, text=» CF A14,PDCCH STORE CHAR IN DC BUFFER «, t00=0x0023, t01=0x000a}
0x36d6…36e8 Head {h00=0x000e, h01=0x0050, text=» RB RD100 «, t00=0x0023, t01=0x0038}
0x36e8…370c Head {h00=0x0020, h01=0x0050, text=»RD200 ANK A2,1 CHECK MDT BIT«, t00=0x0023, t01=0x004a}
0x370c…3730 Head {h00=0x0020, h01=0x0050, text=» RF(NZ) RD300 MODIFIED FIELD«, t00=0x0023, t01=0x006e}
0x3730…374a Head {h00=0x0016, h01=0x0050, text=»RD210 CWK A3,LBVDU«, t00=0x0023, t01=0x0092}
0x374a…376e Head {h00=0x0020, h01=0x0050, text=» RF(NL) RDMODE ALL EXAMINED «, t00=0x0023, t01=0x00ac}
0x376e…3780 Head {h00=0x000e, h01=0x0050, text=» LCR A2,A4«, t00=0x0023, t01=0x00d0}
0x3780…3792 Head {h00=0x000e, h01=0x0050, text=» ADK A3,1 «, t00=0x0023, t01=0x00e2}
0x3792…37a4 Head {h00=0x000e, h01=0x0050, text=» ADK A4,1 «, t00=0x0023, t01=0x00f4}
0x37a4…37b6 Head {h00=0x000e, h01=0x0050, text=» LDR A1,A2«, t00=0x0023, t01=0x0106}
0x37b6…37ca Head {h00=0x0010, h01=0x0050, text=» ANK A1,/60 «, t00=0x0023, t01=0x0118}
0x37ca…37f2 Head {h00=0x0024, h01=0x0050, text=» RB(NZ) RD210 NO ATTRIBUTE CHAR «, t00=0x0023, t01=0x012c}
0x37f2…3820 Head {h00=0x002a, h01=0x0050, text=» CWK A3,LBVDU ALL BUFFER EXAMINED ??? «, t00=0x0023, t01=0x0154}
0x3820…383c Head {h00=0x0018, h01=0x0050, text=» RF(NL) RDMODE YES!!«, t00=0x0023, t01=0x0182}
0x383c…385e Head {h00=0x001e, h01=0x0050, text=» RB RD200 ATTRIBUTE FOUND «, t00=0x0024, t01=0x000e}
0x385e…3876 Head {h00=0x0014, h01=0x0050, text=»RD300 LDK A2,SBA«, t00=0x0024, t01=0x0030}
0x3876…389c Head {h00=0x0022, h01=0x0050, text=» CF A14,PDCCH SBA TO DC BUFFER«, t00=0x0024, t01=0x0048}
0x389c…38be Head {h00=0x001e, h01=0x0050, text=» LDR A1,A3 BUFFER POSITION«, t00=0x0024, t01=0x006e}
0x38be…38e2 Head {h00=0x0020, h01=0x0050, text=» CF A14,BUFADR TO DC BUFFER «, t00=0x0024, t01=0x0090}
0x38e2…38f4 Head {h00=0x000e, h01=0x0050, text=» RB RD100 «, t00=0x0024, t01=0x00b4}
0x38f4…390a Head {h00=0x0012, h01=0x0050, text=»RDMODE RTN A14«, t00=0x0024, t01=0x00c6}
0x390a…3914 Head {h00=0x0006, h01=0x0050, text=» «, t00=0x0024, t01=0x00dc}
0x3914…391e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0024, t01=0x00e6}
0x391e…3928 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0024, t01=0x00f0}
0x3928…3960 Head {h00=0x0034, h01=0x0050, text=»* UPDATE VIDEO DISPLAY BUFFER IMAGE BY THE DATA «, t00=0x0024, t01=0x00fa}
0x3960…396a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0024, t01=0x0132}
0x396a…398e Head {h00=0x0020, h01=0x0050, text=»* RECEIVED FROM THE DC LINE «, t00=0x0024, t01=0x013c}
0x398e…3998 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0024, t01=0x0160}
0x3998…39a2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0024, t01=0x016a}
0x39a2…39c8 Head {h00=0x0022, h01=0x0050, text=»* A7=DC RECEIVE BUFFER POINTER«, t00=0x0024, t01=0x0174}
0x39c8…39e4 Head {h00=0x0018, h01=0x0050, text=»* A8=DC ECB ADDRESS «, t00=0x0025, t01=0x000a}
0x39e4…3a10 Head {h00=0x0028, h01=0x0050, text=»* A9=DC BUFFER INDEX, INITIALLY ZERO«, t00=0x0025, t01=0x0026}
0x3a10…3a1a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0025, t01=0x0052}
0x3a1a…3a3e Head {h00=0x0020, h01=0x0050, text=»* A3=DISPLAY BUFFER POSITION«, t00=0x0025, t01=0x005c}
0x3a3e…3a62 Head {h00=0x0020, h01=0x0050, text=»* A4=DISPLAY BUFFER POINTER «, t00=0x0025, t01=0x0080}
0x3a62…3a6c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0025, t01=0x00a4}
0x3a6c…3a76 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0025, t01=0x00ae}
0x3a76…3a8a Head {h00=0x0010, h01=0x0050, text=»UPDATE EQU *«, t00=0x0025, t01=0x00b8}
0x3a8a…3aa4 Head {h00=0x0016, h01=0x0050, text=» CM ICWORK,TCABAS «, t00=0x0025, t01=0x00cc}
0x3aa4…3ac0 Head {h00=0x0018, h01=0x0050, text=» LD A8,ECBDCC,TCABAS«, t00=0x0025, t01=0x00e6}
0x3ac0…3aea Head {h00=0x0026, h01=0x0050, text=» LD A7,ECBBA,A8 DC BUFFER ADDRESS «, t00=0x0025, t01=0x0102}
0x3aea…3b12 Head {h00=0x0024, h01=0x0050, text=» SUR A9,A9 RESET DC BUFFER INDEX«, t00=0x0025, t01=0x012c}
0x3b12…3b46 Head {h00=0x0030, h01=0x0050, text=» CF A14,GDCCH GET FIRST CHAR FROM DC BUFFER «, t00=0x0025, t01=0x0154}
0x3b46…3b6a Head {h00=0x0020, h01=0x0050, text=» CWK A2,ESC SHOULD BE ESCAPE«, t00=0x0025, t01=0x0188}
0x3b6a…3b8c Head {h00=0x001e, h01=0x0050, text=» RF(NE) UPDEND NOT ESCAPE «, t00=0x0026, t01=0x001c}
0x3b8c…3bb2 Head {h00=0x0022, h01=0x0050, text=» CF A14,GDCCH GET COMMAND CODE«, t00=0x0026, t01=0x003e}
0x3bb2…3bc6 Head {h00=0x0010, h01=0x0050, text=» CWK A2,/31 «, t00=0x0026, t01=0x0064}
0x3bc6…3be2 Head {h00=0x0018, h01=0x0050, text=» RF(E) UPD100 WRITE «, t00=0x0026, t01=0x0078}
0x3be2…3bf6 Head {h00=0x0010, h01=0x0050, text=» CWK A2,/35 «, t00=0x0026, t01=0x0094}
0x3bf6…3c18 Head {h00=0x001e, h01=0x0050, text=» RF(E) UPD120 ERASE/WRITE «, t00=0x0026, t01=0x00a8}
0x3c18…3c2c Head {h00=0x0010, h01=0x0050, text=» CWK A2,/3F «, t00=0x0026, t01=0x00ca}
0x3c2c…3c58 Head {h00=0x0028, h01=0x0050, text=» RF(E) UPD140 ERASE ALL UNPROTECTED «, t00=0x0026, t01=0x00de}
0x3c58…3c6e Head {h00=0x0012, h01=0x0050, text=» IFT COPCMD=1 «, t00=0x0026, t01=0x010a}
0x3c6e…3c82 Head {h00=0x0010, h01=0x0050, text=» CWK A2,/37 «, t00=0x0026, t01=0x0120}
0x3c82…3ca6 Head {h00=0x0020, h01=0x0050, text=» ABL(E) UPD600 COPY COMMAND «, t00=0x0026, t01=0x0134}
0x3ca6…3cb2 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0026, t01=0x0158}
0x3cb2…3cda Head {h00=0x0024, h01=0x0050, text=» RF UPDEND INVALID COMMAND CODE «, t00=0x0026, t01=0x0164}
0x3cda…3ce4 Head {h00=0x0006, h01=0x0050, text=» «, t00=0x0026, t01=0x018c}
0x3ce4…3cee Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0027, t01=0x0008}
0x3cee…3d06 Head {h00=0x0014, h01=0x0050, text=»* WRITE COMMAND «, t00=0x0027, t01=0x0012}
0x3d06…3d10 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0027, t01=0x002a}
0x3d10…3d24 Head {h00=0x0010, h01=0x0050, text=»UPD100 EQU *«, t00=0x0027, t01=0x0034}
0x3d24…3d50 Head {h00=0x0028, h01=0x0050, text=» CF A14,PWCC PROCESS WCC FOR MDT BIT«, t00=0x0027, t01=0x0048}
0x3d50…3d6c Head {h00=0x0018, h01=0x0050, text=» LD A3,PCURS,TCABAS «, t00=0x0027, t01=0x0074}
0x3d6c…3d98 Head {h00=0x0028, h01=0x0050, text=» LDR A4,A3 START IN CURSOR POSITION «, t00=0x0027, t01=0x0090}
0x3d98…3dae Head {h00=0x0012, h01=0x0050, text=» ADKL A4,BVDU «, t00=0x0027, t01=0x00bc}
0x3dae…3dc4 Head {h00=0x0012, h01=0x0050, text=» ADR A4,TCABAS«, t00=0x0027, t01=0x00d2}
0x3dc4…3dec Head {h00=0x0024, h01=0x0050, text=» LDK A5,1 INDICATE WCC, IC OR RA«, t00=0x0027, t01=0x00e8}
0x3dec…3dfe Head {h00=0x000e, h01=0x0050, text=» RF UPD220«, t00=0x0027, t01=0x0110}
0x3dfe…3e08 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0027, t01=0x0122}
0x3e08…3e26 Head {h00=0x001a, h01=0x0050, text=»* ERASE/WRITE COMMAND «, t00=0x0027, t01=0x012c}
0x3e26…3e30 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0027, t01=0x014a}
0x3e30…3e44 Head {h00=0x0010, h01=0x0050, text=»UPD120 EQU *«, t00=0x0027, t01=0x0154}
0x3e44…3e66 Head {h00=0x001e, h01=0x0050, text=» CF A14,ERASE ERASE SCREEN«, t00=0x0027, t01=0x0168}
0x3e66…3e78 Head {h00=0x000e, h01=0x0050, text=» RF UPD200«, t00=0x0027, t01=0x018a}
0x3e78…3e82 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0028, t01=0x000c}
0x3e82…3ea2 Head {h00=0x001c, h01=0x0050, text=»* ERASE ALL UNPROTECTED «, t00=0x0028, t01=0x0016}
0x3ea2…3eac Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0028, t01=0x0036}
0x3eac…3ec0 Head {h00=0x0010, h01=0x0050, text=»UPD140 EQU *«, t00=0x0028, t01=0x0040}
0x3ec0…3eec Head {h00=0x0028, h01=0x0050, text=» CF A14,ERASUP ERASE ALL UNPROTECTED«, t00=0x0028, t01=0x0054}
0x3eec…3f18 Head {h00=0x0028, h01=0x0050, text=» RF UPDEND NO TEXT WITH THIS COMMAND«, t00=0x0028, t01=0x0080}
0x3f18…3f22 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0028, t01=0x00ac}
0x3f22…3f54 Head {h00=0x002e, h01=0x0050, text=»* TAKE CARE OF WRITE CONTROL CHARACTER WCC«, t00=0x0028, t01=0x00b6}
0x3f54…3f5e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0028, t01=0x00e8}
0x3f5e…3f84 Head {h00=0x0022, h01=0x0050, text=»UPD200 CF A14,PWCC PROCESS WCC«, t00=0x0028, t01=0x00f2}
0x3f84…3fac Head {h00=0x0024, h01=0x0050, text=» LDK A5,1 INDICATE WCC, IC OR RA«, t00=0x0028, t01=0x0118}
0x3fac…3fb6 Head {h00=0x0006, h01=0x0050, text=» «, t00=0x0028, t01=0x0140}
0x3fb6…3fc0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0028, t01=0x014a}
0x3fc0…3fca Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0028, t01=0x0154}
0x3fca…3ff0 Head {h00=0x0022, h01=0x0050, text=»* PROCESS DATA FROM DC BUFFER «, t00=0x0028, t01=0x015e}
0x3ff0…3ffa Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0028, t01=0x0184}
0x3ffa…4004 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0028, t01=0x018e}
0x4004…4034 Head {h00=0x002c, h01=0x0050, text=»UPD210 LDK A3,0 START FROM POSITION ZERO«, t00=0x0029, t01=0x0008}
0x4034…404a Head {h00=0x0012, h01=0x0050, text=» LDKL A4,BVDU «, t00=0x0029, t01=0x0038}
0x404a…4060 Head {h00=0x0012, h01=0x0050, text=» ADR A4,TCABAS«, t00=0x0029, t01=0x004e}
0x4060…4082 Head {h00=0x001e, h01=0x0050, text=»UPD220 CW A9,DCLENG,TCABAS«, t00=0x0029, t01=0x0064}
0x4082…40b6 Head {h00=0x0030, h01=0x0050, text=» RF(NL) UPDEND ALL RECEIVED CHARS PROCESSED «, t00=0x0029, t01=0x0086}
0x40b6…40e4 Head {h00=0x002a, h01=0x0050, text=» CF A14,GDCCH GET CHAR FROM DC BUFFER «, t00=0x0029, t01=0x00ba}
0x40e4…40f8 Head {h00=0x0010, h01=0x0050, text=» CWK A2,/20 «, t00=0x0029, t01=0x00e8}
0x40f8…4114 Head {h00=0x0018, h01=0x0050, text=» RF(L) UPD300 ORDER «, t00=0x0029, t01=0x00fc}
0x4114…4128 Head {h00=0x0010, h01=0x0050, text=»UPD230 EQU *«, t00=0x0029, t01=0x0118}
0x4128…414c Head {h00=0x0020, h01=0x0050, text=» ORK A2,/80 SET DISPLAY BIT «, t00=0x0029, t01=0x012c}
0x414c…4160 Head {h00=0x0010, h01=0x0050, text=»UPD240 EQU *«, t00=0x0029, t01=0x0150}
0x4160…418c Head {h00=0x0028, h01=0x0050, text=» LDK A5,0 INDICATE NOT WCC, IC OR RA«, t00=0x0029, t01=0x0164}
0x418c…41a2 Head {h00=0x0012, h01=0x0050, text=» CWK A3,LBVDU «, t00=0x0029, t01=0x0190}
0x41a2…41cc Head {h00=0x0026, h01=0x0050, text=» RF(E) UPD260 END OF VIDEO BUFFER «, t00=0x002a, t01=0x0016}
0x41cc…41e0 Head {h00=0x0010, h01=0x0050, text=»UPD250 EQU *«, t00=0x002a, t01=0x0040}
0x41e0…4208 Head {h00=0x0024, h01=0x0050, text=» SCR A2,A4 STORE IN VIDEO BUFFER«, t00=0x002a, t01=0x0054}
0x4208…421a Head {h00=0x000e, h01=0x0050, text=» ADK A3,1 «, t00=0x002a, t01=0x007c}
0x421a…422c Head {h00=0x000e, h01=0x0050, text=» ADK A4,1 «, t00=0x002a, t01=0x008e}
0x422c…423e Head {h00=0x000e, h01=0x0050, text=» RB UPD220«, t00=0x002a, t01=0x00a0}
0x423e…4256 Head {h00=0x0014, h01=0x0050, text=»UPD260 LDK A3,0 «, t00=0x002a, t01=0x00b2}
0x4256…426c Head {h00=0x0012, h01=0x0050, text=» LDKL A4,BVDU «, t00=0x002a, t01=0x00ca}
0x426c…4282 Head {h00=0x0012, h01=0x0050, text=» ADR A4,TCABAS«, t00=0x002a, t01=0x00e0}
0x4282…4294 Head {h00=0x000e, h01=0x0050, text=» RB UPD250«, t00=0x002a, t01=0x00f6}
0x4294…42a8 Head {h00=0x0010, h01=0x0050, text=»UPD300 EQU *«, t00=0x002a, t01=0x0108}
0x42a8…42d8 Head {h00=0x002c, h01=0x0050, text=» CWK A3,LBVDU END OF DISPLAY BUFFER ??? «, t00=0x002a, t01=0x011c}
0x42d8…42f4 Head {h00=0x0018, h01=0x0050, text=» RF(NE) UPD302 NO!!!«, t00=0x002a, t01=0x014c}
0x42f4…431c Head {h00=0x0024, h01=0x0050, text=» SUR A3,A3 FIRST SCREEN POSITION«, t00=0x002a, t01=0x0168}
0x431c…4332 Head {h00=0x0012, h01=0x0050, text=» LDKL A4,BVDU «, t00=0x002a, t01=0x0190}
0x4332…4358 Head {h00=0x0022, h01=0x0050, text=» ADR A4,TCABAS BUFFER POSITION«, t00=0x002b, t01=0x0016}
0x4358…436c Head {h00=0x0010, h01=0x0050, text=»UPD302 EQU *«, t00=0x002b, t01=0x003c}
0x436c…4380 Head {h00=0x0010, h01=0x0050, text=» CWK A2,/1D «, t00=0x002b, t01=0x0050}
0x4380…43a2 Head {h00=0x001e, h01=0x0050, text=» RF(E) UPD320 START FIELD «, t00=0x002b, t01=0x0064}
0x43a2…43b6 Head {h00=0x0010, h01=0x0050, text=» CWK A2,/11 «, t00=0x002b, t01=0x0086}
0x43b6…43de Head {h00=0x0024, h01=0x0050, text=» RF(E) UPD340 SET BUFFER ADDRESS«, t00=0x002b, t01=0x009a}
0x43de…43f2 Head {h00=0x0010, h01=0x0050, text=» CWK A2,/13 «, t00=0x002b, t01=0x00c2}
0x43f2…4416 Head {h00=0x0020, h01=0x0050, text=» RF(E) UPD360 INSERT CURSOR «, t00=0x002b, t01=0x00d6}
0x4416…442a Head {h00=0x0010, h01=0x0050, text=» CWK A2,/09 «, t00=0x002b, t01=0x00fa}
0x442a…444c Head {h00=0x001e, h01=0x0050, text=» RF(E) UPD400 PROGRAM TAB «, t00=0x002b, t01=0x010e}
0x444c…4460 Head {h00=0x0010, h01=0x0050, text=» CWK A2,/14 «, t00=0x002b, t01=0x0130}
0x4460…4488 Head {h00=0x0024, h01=0x0050, text=» ABL(E) UPD500 REPEAT TO ADDRESS«, t00=0x002b, t01=0x0144}
0x4488…449c Head {h00=0x0010, h01=0x0050, text=» CWK A2,/12 «, t00=0x002b, t01=0x016c}
0x449c…44d0 Head {h00=0x0030, h01=0x0050, text=» ABL(E) UPD540 ERASE UNPROTECTED TO ADDRESS «, t00=0x002b, t01=0x0180}
0x44d0…44e4 Head {h00=0x0010, h01=0x0050, text=» CWK A2,/0C «, t00=0x002c, t01=0x0024}
0x44e4…44fa Head {h00=0x0012, h01=0x0050, text=» RF(NE) UPD305«, t00=0x002c, t01=0x0038}
0x44fa…451a Head {h00=0x001c, h01=0x0050, text=» LDK A2,FORMFD FORM FEED«, t00=0x002c, t01=0x004e}
0x451a…452c Head {h00=0x000e, h01=0x0050, text=» RB UPD230«, t00=0x002c, t01=0x006e}
0x452c…4546 Head {h00=0x0016, h01=0x0050, text=»UPD305 CWK A2,/19 «, t00=0x002c, t01=0x0080}
0x4546…455c Head {h00=0x0012, h01=0x0050, text=» RF(NE) UPD310«, t00=0x002c, t01=0x009a}
0x455c…457e Head {h00=0x001e, h01=0x0050, text=» LDK A2,ENDMES END MESSAGE«, t00=0x002c, t01=0x00b0}
0x457e…4590 Head {h00=0x000e, h01=0x0050, text=» RB UPD230«, t00=0x002c, t01=0x00d2}
0x4590…45a4 Head {h00=0x0010, h01=0x0050, text=»UPD310 EQU *«, t00=0x002c, t01=0x00e4}
0x45a4…45b8 Head {h00=0x0010, h01=0x0050, text=» CWK A2,/0A «, t00=0x002c, t01=0x00f8}
0x45b8…45ce Head {h00=0x0012, h01=0x0050, text=» RF(NE) UPD315«, t00=0x002c, t01=0x010c}
0x45ce…45ee Head {h00=0x001c, h01=0x0050, text=» LDK A2,NEWLIN NEW LINE «, t00=0x002c, t01=0x0122}
0x45ee…4600 Head {h00=0x000e, h01=0x0050, text=» RB UPD230«, t00=0x002c, t01=0x0142}
0x4600…4614 Head {h00=0x0010, h01=0x0050, text=»UPD315 EQU *«, t00=0x002c, t01=0x0154}
0x4614…4628 Head {h00=0x0010, h01=0x0050, text=» CWK A2,/18 «, t00=0x002c, t01=0x0168}
0x4628…464c Head {h00=0x0020, h01=0x0050, text=» RF(NE) UPD318 ILLEGAL ORDER«, t00=0x002c, t01=0x017c}
0x464c…4660 Head {h00=0x0010, h01=0x0050, text=» LDK A2,/30 «, t00=0x002d, t01=0x0010}
0x4660…4672 Head {h00=0x000e, h01=0x0050, text=» RB UPD230«, t00=0x002d, t01=0x0024}
0x4672…467c Head {h00=0x0006, h01=0x0050, text=» «, t00=0x002d, t01=0x0036}
0x467c…4684 Head {h00=0x0004, h01=0x0050, t00=0x002d, t01=0x0040}
0x4684…4698 Head {h00=0x0010, h01=0x0050, text=»UPD318 EQU *«, t00=0x002d, t01=0x0048}
0x4698…46b2 Head {h00=0x0016, h01=0x0050, text=» CWK A2,SKIP DK5 «, t00=0x002d, t01=0x005c}
0x46b2…46d6 Head {h00=0x0020, h01=0x0050, text=» RF(NE) UPD319 SKIP USM DK5 «, t00=0x002d, t01=0x0076}
0x46d6…46ee Head {h00=0x0014, h01=0x0050, text=» RB UPD220 DK5 «, t00=0x002d, t01=0x009a}
0x46ee…4708 Head {h00=0x0016, h01=0x0050, text=»UPD319 EQU * DK5 «, t00=0x002d, t01=0x00b2}
0x4708…472e Head {h00=0x0022, h01=0x0050, text=» CWK A2,/00 NULL CHARACTER ???«, t00=0x002d, t01=0x00cc}
0x472e…474c Head {h00=0x001a, h01=0x0050, text=» RF(NE) UPD31A NO DK7 «, t00=0x002d, t01=0x00f2}
0x474c…4772 Head {h00=0x0022, h01=0x0050, text=» LDK A2,/7F PTS NULL CHARACTER«, t00=0x002d, t01=0x0110}
0x4772…4784 Head {h00=0x000e, h01=0x0050, text=» RB UPD230«, t00=0x002d, t01=0x0136}
0x4784…479e Head {h00=0x0016, h01=0x0050, text=»UPD31A EQU * DK7 «, t00=0x002d, t01=0x0148}
0x479e…47c6 Head {h00=0x0024, h01=0x0050, text=»* CHECK ON APL ESCALE CHAR (08) «, t00=0x002d, t01=0x0162}
0x47c6…47de Head {h00=0x0014, h01=0x0050, text=» CWK A2,/08 DK7«, t00=0x002d, t01=0x018a}
0x47de…4804 Head {h00=0x0022, h01=0x0050, text=» RF(NE) UPDEND ILLEGAL CHR DK7«, t00=0x002e, t01=0x0012}
0x4804…4828 Head {h00=0x0020, h01=0x0050, text=» RB UPD250 PUT IN BUFFER DK7«, t00=0x002e, t01=0x0038}
0x4828…4830 Head {h00=0x0004, h01=0x0050, t00=0x002e, t01=0x005c}
0x4830…4874 Head {h00=0x0040, h01=0x0050, text=»************************************************************«, t00=0x002e, t01=0x0064}
0x4874…487e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002e, t01=0x00a8}
0x487e…48a0 Head {h00=0x001e, h01=0x0050, text=»* RELEASE RECEIVE BUFFER«, t00=0x002e, t01=0x00b2}
0x48a0…48aa Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002e, t01=0x00d4}
0x48aa…48d8 Head {h00=0x002a, h01=0x0050, text=»************************************* «, t00=0x002e, t01=0x00de}
0x48d8…48e0 Head {h00=0x0004, h01=0x0050, t00=0x002e, t01=0x010c}
0x48e0…48f4 Head {h00=0x0010, h01=0x0050, text=»UPDEND EQU *«, t00=0x002e, t01=0x0114}
0x48f4…4910 Head {h00=0x0018, h01=0x0050, text=» LD A8,ECBDCC,TCABAS«, t00=0x002e, t01=0x0128}
0x4910…4928 Head {h00=0x0014, h01=0x0050, text=» LD A4,ECBBA,A8 «, t00=0x002e, t01=0x0144}
0x4928…493e Head {h00=0x0012, h01=0x0050, text=» CF A14,RLRBUF«, t00=0x002e, t01=0x015c}
0x493e…4970 Head {h00=0x002e, h01=0x0050, text=»* CORRECTION FOR CURSOR LEFT ON ATTRIBUTE «, t00=0x002e, t01=0x0172}
0x4970…499e Head {h00=0x002a, h01=0x0050, text=» LD A3,PCURS,TCABAS GET CURSOR POS DK7«, t00=0x002f, t01=0x0014}
0x499e…49b8 Head {h00=0x0016, h01=0x0050, text=»UPDENA EQU * DK7 «, t00=0x002f, t01=0x0042}
0x49b8…49e0 Head {h00=0x0024, h01=0x0050, text=» LDKL A4,BVDU GET BUFFER VDU DK7«, t00=0x002f, t01=0x005c}
0x49e0…4a02 Head {h00=0x001e, h01=0x0050, text=» ADR A4,TCABAS COMPUTE IT «, t00=0x002f, t01=0x0084}
0x4a02…4a1a Head {h00=0x0014, h01=0x0050, text=» ADR A4,A3 DK7 «, t00=0x002f, t01=0x00a6}
0x4a1a…4a3e Head {h00=0x0020, h01=0x0050, text=» LCR A1,A4 GET THE CHAR DK7 «, t00=0x002f, t01=0x00be}
0x4a3e…4a62 Head {h00=0x0020, h01=0x0050, text=» ANK A1,/FF CLEAN IT UP DK7 «, t00=0x002f, t01=0x00e2}
0x4a62…4a86 Head {h00=0x0020, h01=0x0050, text=» CWK A1,/001F ATTRIBUTE DK7 «, t00=0x002f, t01=0x0106}
0x4a86…4ab4 Head {h00=0x002a, h01=0x0050, text=» RF(G) UPDENB NO,COMPLETE PROCESS DK7 «, t00=0x002f, t01=0x012a}
0x4ab4…4ada Head {h00=0x0022, h01=0x0050, text=» CWK A1,/08 'APL' ESCAPE? DK7 «, t00=0x002f, t01=0x0158}
0x4ada…4afe Head {h00=0x0020, h01=0x0050, text=» RF(E) UPDENB FORGET IT DK7 «, t00=0x002f, t01=0x017e}
0x4afe…4b28 Head {h00=0x0026, h01=0x0050, text=» ADK A3,1 YES, MOVE THE CURSOR DK7«, t00=0x0030, t01=0x0012}
0x4b28…4b4e Head {h00=0x0022, h01=0x0050, text=» CWK A3,1919 END OF SCREEN DK7«, t00=0x0030, t01=0x003c}
0x4b4e…4b78 Head {h00=0x0026, h01=0x0050, text=» RB(NG) UPDENA NO,KEEP LOOKING DK7«, t00=0x0030, t01=0x0062}
0x4b78…4b9c Head {h00=0x0020, h01=0x0050, text=» LDK A3,0 START ALL OVER DK7«, t00=0x0030, t01=0x008c}
0x4b9c…4bb2 Head {h00=0x0012, h01=0x0050, text=» RB UPDENA DK«, t00=0x0030, t01=0x00b0}
0x4bb2…4bcc Head {h00=0x0016, h01=0x0050, text=»UPDENB EQU * DK7 «, t00=0x0030, t01=0x00c6}
0x4bcc…4c00 Head {h00=0x0030, h01=0x0050, text=» ST A3,PCURS,TCABAS SAVE CURSOR POSITION DK7«, t00=0x0030, t01=0x00e0}
0x4c00…4c26 Head {h00=0x0022, h01=0x0050, text=»* END OF CORRECTION 821005/GF «, t00=0x0030, t01=0x0114}
0x4c26…4c36 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0030, t01=0x013a}
0x4c36…4c40 Head {h00=0x0006, h01=0x0050, text=» «, t00=0x0030, t01=0x014a}
0x4c40…4c4a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0030, t01=0x0154}
0x4c4a…4c54 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0030, t01=0x015e}
0x4c54…4c70 Head {h00=0x0018, h01=0x0050, text=»* START FIELD ORDER «, t00=0x0030, t01=0x0168}
0x4c70…4c7a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0030, t01=0x0184}
0x4c7a…4ca8 Head {h00=0x002a, h01=0x0050, text=»UPD320 CF A14,GDCCH GET ATTRIBUTE CHAR«, t00=0x0030, t01=0x018e}
0x4ca8…4cc0 Head {h00=0x0014, h01=0x0050, text=» LC A2,TEBCDI,A2«, t00=0x0031, t01=0x002c}
0x4cc0…4cee Head {h00=0x002a, h01=0x0050, text=» LDR A1,A2 COMPOSE PTS ATTRIBUTE CHAR «, t00=0x0031, t01=0x0044}
0x4cee…4d00 Head {h00=0x000e, h01=0x0050, text=» ANK A1,1 «, t00=0x0031, t01=0x0072}
0x4d00…4d12 Head {h00=0x000e, h01=0x0050, text=» SRL A2,1 «, t00=0x0031, t01=0x0084}
0x4d12…4d26 Head {h00=0x0010, h01=0x0050, text=» ANK A2,/1E «, t00=0x0031, t01=0x0096}
0x4d26…4d38 Head {h00=0x000e, h01=0x0050, text=» ORR A2,A1«, t00=0x0031, t01=0x00aa}
0x4d38…4d4a Head {h00=0x000e, h01=0x0050, text=» RB UPD240«, t00=0x0031, t01=0x00bc}
0x4d4a…4d54 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0031, t01=0x00ce}
0x4d54…4d70 Head {h00=0x0018, h01=0x0050, text=»* SET BUFFER ADDRESS«, t00=0x0031, t01=0x00d8}
0x4d70…4d7a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0031, t01=0x00f4}
0x4d7a…4da2 Head {h00=0x0024, h01=0x0050, text=»UPD340 CF A14,GETADR GET ADDRESS«, t00=0x0031, t01=0x00fe}
0x4da2…4db8 Head {h00=0x0012, h01=0x0050, text=» CWK A1,LBVDU «, t00=0x0031, t01=0x0126}
0x4db8…4dde Head {h00=0x0022, h01=0x0050, text=» RB(NL) UPDEND INVALID ADDRESS«, t00=0x0031, t01=0x013c}
0x4dde…4df0 Head {h00=0x000e, h01=0x0050, text=» LDR A3,A1«, t00=0x0031, t01=0x0162}
0x4df0…4e02 Head {h00=0x000e, h01=0x0050, text=» LDR A4,A3«, t00=0x0031, t01=0x0174}
0x4e02…4e18 Head {h00=0x0012, h01=0x0050, text=» ADKL A4,BVDU «, t00=0x0031, t01=0x0186}
0x4e18…4e2e Head {h00=0x0012, h01=0x0050, text=» ADR A4,TCABAS«, t00=0x0032, t01=0x000c}
0x4e2e…4e52 Head {h00=0x0020, h01=0x0050, text=» LDK A5,1 INDICATE ORDER DK6«, t00=0x0032, t01=0x0022}
0x4e52…4e66 Head {h00=0x0010, h01=0x0050, text=» ABL UPD220 «, t00=0x0032, t01=0x0046}
0x4e66…4e70 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0032, t01=0x005a}
0x4e70…4e88 Head {h00=0x0014, h01=0x0050, text=»* INSERT CURSOR «, t00=0x0032, t01=0x0064}
0x4e88…4e92 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0032, t01=0x007c}
0x4e92…4ec6 Head {h00=0x0030, h01=0x0050, text=»UPD360 ST A3,PCURS,TCABAS SET NEW CURSOR POS«, t00=0x0032, t01=0x0086}
0x4ec6…4eee Head {h00=0x0024, h01=0x0050, text=» LDK A5,1 INDICATE WCC, IC OR RA«, t00=0x0032, t01=0x00ba}
0x4eee…4f02 Head {h00=0x0010, h01=0x0050, text=» ABL UPD220 «, t00=0x0032, t01=0x00e2}
0x4f02…4f0c Head {h00=0x0006, h01=0x0050, text=» «, t00=0x0032, t01=0x00f6}
0x4f0c…4f16 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0032, t01=0x0100}
0x4f16…4f2c Head {h00=0x0012, h01=0x0050, text=»* PROGRAM TAB «, t00=0x0032, t01=0x010a}
0x4f2c…4f36 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0032, t01=0x0120}
0x4f36…4f4e Head {h00=0x0014, h01=0x0050, text=»UPD400 LDR A5,A5«, t00=0x0032, t01=0x012a}
0x4f4e…4f7c Head {h00=0x002a, h01=0x0050, text=» RF(NZ) UPD430 PT AFTER WCC, IC OR RA «, t00=0x0032, t01=0x0142}
0x4f7c…4fb0 Head {h00=0x0030, h01=0x0050, text=» LDK A1,NULL+/80 FILL CURRENT FIELD BY NULLS«, t00=0x0032, t01=0x0170}
0x4fb0…4fc4 Head {h00=0x0010, h01=0x0050, text=»UPD410 EQU *«, t00=0x0033, t01=0x0014}
0x4fc4…4fd6 Head {h00=0x000e, h01=0x0050, text=» LDK A5,0 «, t00=0x0033, t01=0x0028}
0x4fd6…4fec Head {h00=0x0012, h01=0x0050, text=» CWK A3,LBVDU «, t00=0x0033, t01=0x003a}
0x4fec…5012 Head {h00=0x0022, h01=0x0050, text=» ABL(NL) UPD210 END OF BUFFER «, t00=0x0033, t01=0x0050}
0x5012…5024 Head {h00=0x000e, h01=0x0050, text=» LCR A2,A4«, t00=0x0033, t01=0x0076}
0x5024…5036 Head {h00=0x000e, h01=0x0050, text=» ADK A3,1 «, t00=0x0033, t01=0x0088}
0x5036…504a Head {h00=0x0010, h01=0x0050, text=» ANK A2,/7F «, t00=0x0033, t01=0x009a}
0x504a…505e Head {h00=0x0010, h01=0x0050, text=» CWK A2,/20 «, t00=0x0033, t01=0x00ae}
0x505e…5074 Head {h00=0x0012, h01=0x0050, text=» RF(L) UPD415 «, t00=0x0033, t01=0x00c2}
0x5074…5092 Head {h00=0x001a, h01=0x0050, text=» SCR A1,A4 STORE NULL «, t00=0x0033, t01=0x00d8}
0x5092…50a4 Head {h00=0x000e, h01=0x0050, text=» ADK A4,1 «, t00=0x0033, t01=0x00f6}
0x50a4…50b6 Head {h00=0x000e, h01=0x0050, text=» RB UPD410«, t00=0x0033, t01=0x0108}
0x50b6…50ca Head {h00=0x0010, h01=0x0050, text=»UPD415 EQU *«, t00=0x0033, t01=0x011a}
0x50ca…50dc Head {h00=0x000e, h01=0x0050, text=» ADK A4,1 «, t00=0x0033, t01=0x012e}
0x50dc…50f6 Head {h00=0x0016, h01=0x0050, text=»UPD420 ANK A2,/10 «, t00=0x0033, t01=0x0140}
0x50f6…511e Head {h00=0x0024, h01=0x0050, text=» ABL(Z) UPD220 UNPROTECTED FIELD«, t00=0x0033, t01=0x015a}
0x511e…5132 Head {h00=0x0010, h01=0x0050, text=»UPD430 EQU *«, t00=0x0033, t01=0x0182}
0x5132…5144 Head {h00=0x000e, h01=0x0050, text=» LDK A5,0 «, t00=0x0034, t01=0x0008}
0x5144…515a Head {h00=0x0012, h01=0x0050, text=» CWK A3,LBVDU «, t00=0x0034, t01=0x001a}
0x515a…5188 Head {h00=0x002a, h01=0x0050, text=» ABL(NL) UPD210 END OF DISPLAY BUFFER «, t00=0x0034, t01=0x0030}
0x5188…519a Head {h00=0x000e, h01=0x0050, text=» LCR A2,A4«, t00=0x0034, t01=0x005e}
0x519a…51ac Head {h00=0x000e, h01=0x0050, text=» ADK A3,1 «, t00=0x0034, t01=0x0070}
0x51ac…51be Head {h00=0x000e, h01=0x0050, text=» ADK A4,1 «, t00=0x0034, t01=0x0082}
0x51be…51d2 Head {h00=0x0010, h01=0x0050, text=» ANK A2,/7F «, t00=0x0034, t01=0x0094}
0x51d2…51e6 Head {h00=0x0010, h01=0x0050, text=» CWK A2,/20 «, t00=0x0034, t01=0x00a8}
0x51e6…51fc Head {h00=0x0012, h01=0x0050, text=» RB(L) UPD420 «, t00=0x0034, t01=0x00bc}
0x51fc…520e Head {h00=0x000e, h01=0x0050, text=» RB UPD430«, t00=0x0034, t01=0x00d2}
0x520e…5218 Head {h00=0x0006, h01=0x0050, text=» «, t00=0x0034, t01=0x00e4}
0x5218…5222 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0034, t01=0x00ee}
0x5222…523e Head {h00=0x0018, h01=0x0050, text=»* REPEAT TO ADDRESS «, t00=0x0034, t01=0x00f8}
0x523e…5248 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0034, t01=0x0114}
0x5248…5274 Head {h00=0x0028, h01=0x0050, text=»UPD500 CF A14,GETADR GET END ADDRESS«, t00=0x0034, t01=0x011e}
0x5274…528a Head {h00=0x0012, h01=0x0050, text=» CWK A1,LBVDU «, t00=0x0034, t01=0x014a}
0x528a…52b0 Head {h00=0x0022, h01=0x0050, text=» RB(NL) UPDEND INVALID ADDRESS«, t00=0x0034, t01=0x0160}
0x52b0…52de Head {h00=0x002a, h01=0x0050, text=» CF A14,GDCCH GET CHAR TO BE REPEATED «, t00=0x0034, t01=0x0186}
0x52de…5306 Head {h00=0x0024, h01=0x0050, text=» LDK A5,1 INDICATE WCC, IC OR RA«, t00=0x0035, t01=0x0024}
0x5306…532c Head {h00=0x0022, h01=0x0050, text=» ORK A2,/80 INDICATE MODIFIED «, t00=0x0035, t01=0x004c}
0x532c…5334 Head {h00=0x0004, h01=0x0050, t00=0x0035, t01=0x0072}
0x5334…533c Head {h00=0x0004, h01=0x0050, t00=0x0035, t01=0x007a}
0x533c…5372 Head {h00=0x0032, h01=0x0050, text=» CWR A3,A1 NULLS TO ALL SCREEN POSITIONS ???? «, t00=0x0035, t01=0x0082}
0x5372…538e Head {h00=0x0018, h01=0x0050, text=» RF(E) UPD530 YES!!!«, t00=0x0035, t01=0x00b8}
0x538e…5396 Head {h00=0x0004, h01=0x0050, t00=0x0035, t01=0x00d4}
0x5396…539e Head {h00=0x0004, h01=0x0050, t00=0x0035, t01=0x00dc}
0x539e…53ba Head {h00=0x0018, h01=0x0050, text=»UPD510 CWK A3,LBVDU «, t00=0x0035, t01=0x00e4}
0x53ba…53e2 Head {h00=0x0024, h01=0x0050, text=» RF(L) UPD520 NOT END OF SCREEN «, t00=0x0035, t01=0x0100}
0x53e2…53f4 Head {h00=0x000e, h01=0x0050, text=» LDK A3,0 «, t00=0x0035, t01=0x0128}
0x53f4…5416 Head {h00=0x001e, h01=0x0050, text=» LDKL A4,BVDU WRAP AROUND «, t00=0x0035, t01=0x013a}
0x5416…542c Head {h00=0x0012, h01=0x0050, text=» ADR A4,TCABAS«, t00=0x0035, t01=0x015c}
0x542c…5444 Head {h00=0x0014, h01=0x0050, text=»UPD520 CWR A3,A1«, t00=0x0035, t01=0x0172}
0x5444…546c Head {h00=0x0024, h01=0x0050, text=» ABL(E) UPD220 ALL CHAR REPEATED«, t00=0x0035, t01=0x018a}
0x546c…5474 Head {h00=0x0004, h01=0x0050, t00=0x0036, t01=0x0022}
0x5474…5488 Head {h00=0x0010, h01=0x0050, text=»UPD530 EQU *«, t00=0x0036, t01=0x002a}
0x5488…5490 Head {h00=0x0004, h01=0x0050, t00=0x0036, t01=0x003e}
0x5490…54a2 Head {h00=0x000e, h01=0x0050, text=» SCR A2,A4«, t00=0x0036, t01=0x0046}
0x54a2…54b4 Head {h00=0x000e, h01=0x0050, text=» ADK A3,1 «, t00=0x0036, t01=0x0058}
0x54b4…54c6 Head {h00=0x000e, h01=0x0050, text=» ADK A4,1 «, t00=0x0036, t01=0x006a}
0x54c6…54e6 Head {h00=0x001c, h01=0x0050, text=» RB UPD510 NEXT POSITION«, t00=0x0036, t01=0x007c}
0x54e6…54f0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0036, t01=0x009c}
0x54f0…5516 Head {h00=0x0022, h01=0x0050, text=»* ERASE UNPROTECTED TO ADDRESS«, t00=0x0036, t01=0x00a6}
0x5516…5520 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0036, t01=0x00cc}
0x5520…554c Head {h00=0x0028, h01=0x0050, text=»UPD540 CF A14,GETADR GET END ADDRESS«, t00=0x0036, t01=0x00d6}
0x554c…5562 Head {h00=0x0012, h01=0x0050, text=» CWK A3,LBVDU «, t00=0x0036, t01=0x0102}
0x5562…5588 Head {h00=0x0022, h01=0x0050, text=» RB(NL) UPDEND INVALID ADDRESS«, t00=0x0036, t01=0x0118}
0x5588…55bc Head {h00=0x0030, h01=0x0050, text=» CF A14,ERASUA ERASE UNPROTECTED TO ADDRESS «, t00=0x0036, t01=0x013e}
0x55bc…55d0 Head {h00=0x0010, h01=0x0050, text=» ABL UPD220 «, t00=0x0036, t01=0x0172}
0x55d0…55e6 Head {h00=0x0012, h01=0x0050, text=» IFT COPCMD=1 «, t00=0x0036, t01=0x0186}
0x55e6…55f0 Head {h00=0x0006, h01=0x0050, text=» «, t00=0x0037, t01=0x000c}
0x55f0…55fa Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0037, t01=0x0016}
0x55fa…5610 Head {h00=0x0012, h01=0x0050, text=»* COPY COMMAND«, t00=0x0037, t01=0x0020}
0x5610…561a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0037, t01=0x0036}
0x561a…562e Head {h00=0x0010, h01=0x0050, text=»UPD600 EQU *«, t00=0x0037, t01=0x0040}
0x562e…564c Head {h00=0x001a, h01=0x0050, text=» LD A1,PRINTER,TCABAS «, t00=0x0037, t01=0x0054}
0x564c…5684 Head {h00=0x0034, h01=0x0050, text=» ABL(Z) UPDEND COPYCOMMAND NOT SUPPORTED FOR VDU«, t00=0x0037, t01=0x0072}
0x5684…5696 Head {h00=0x000e, h01=0x0050, text=» ADK A7,1 «, t00=0x0037, t01=0x00aa}
0x5696…56ac Head {h00=0x0012, h01=0x0050, text=» BYPASS CCC «, t00=0x0037, t01=0x00bc}
0x56ac…56d2 Head {h00=0x0022, h01=0x0050, text=» CF A14,GDCCH GET FROM DEVICE «, t00=0x0037, t01=0x00d2}
0x56d2…56e8 Head {h00=0x0012, h01=0x0050, text=» IFT EBCDIC=1 «, t00=0x0037, t01=0x00f8}
0x56e8…5712 Head {h00=0x0026, h01=0x0050, text=» LC A2,TEBCDI,A2 CONVERT TO EBCDIC«, t00=0x0037, t01=0x010e}
0x5712…571e Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0037, t01=0x0138}
0x571e…5734 Head {h00=0x0012, h01=0x0050, text=» IFT COPCMD=1 «, t00=0x0037, t01=0x0144}
0x5734…575a Head {h00=0x0022, h01=0x0050, text=» LD A3,6,CREBAS 'CB1' ADDRESS «, t00=0x0037, t01=0x015a}
0x575a…5772 Head {h00=0x0014, h01=0x0050, text=» LDK A4,MF1KBV-1«, t00=0x0037, t01=0x0180}
0x5772…5786 Head {h00=0x0010, h01=0x0050, text=» IFT DCLIN=2«, t00=0x0038, t01=0x0008}
0x5786…57a6 Head {h00=0x001c, h01=0x0050, text=» LD A1,ECBBLK+DC2,TCABAS«, t00=0x0038, t01=0x001c}
0x57a6…57bc Head {h00=0x0012, h01=0x0050, text=» RF(NZ) UPD602«, t00=0x0038, t01=0x003c}
0x57bc…57e0 Head {h00=0x0020, h01=0x0050, text=» LDK A4,MF2KBV-1 MF # 2 READ«, t00=0x0038, t01=0x0052}
0x57e0…57ec Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0038, t01=0x0076}
0x57ec…5802 Head {h00=0x0012, h01=0x0050, text=» IFT COPCMD=1 «, t00=0x0038, t01=0x0082}
0x5802…5816 Head {h00=0x0010, h01=0x0050, text=»UPD602 EQU *«, t00=0x0038, t01=0x0098}
0x5816…5838 Head {h00=0x001e, h01=0x0050, text=» ADR A4,A3 CONFIG TABLE -1«, t00=0x0038, t01=0x00ac}
0x5838…5862 Head {h00=0x0026, h01=0x0050, text=» LD A5,NBRKBV,A3 NUMBER OF KB/VDUS«, t00=0x0038, t01=0x00ce}
0x5862…588e Head {h00=0x0028, h01=0x0050, text=» ADR A4,A5 LAST KB/VDU CONFIGURATED «, t00=0x0038, t01=0x00f8}
0x588e…58a2 Head {h00=0x0010, h01=0x0050, text=»UPD604 EQU *«, t00=0x0038, t01=0x0124}
0x58a2…58ca Head {h00=0x0024, h01=0x0050, text=» CCR A2,A4 DV-ADDRESS MATCHES ? «, t00=0x0038, t01=0x0138}
0x58ca…58e4 Head {h00=0x0016, h01=0x0050, text=» RF(E) UPD610 YES «, t00=0x0038, t01=0x0160}
0x58e4…58f6 Head {h00=0x000e, h01=0x0050, text=» SUK A4,1 «, t00=0x0038, t01=0x017a}
0x58f6…5908 Head {h00=0x000e, h01=0x0050, text=» SUK A5,1 «, t00=0x0038, t01=0x018c}
0x5908…5926 Head {h00=0x001a, h01=0x0050, text=» RB(P) UPD604 TRY NEXT«, t00=0x0039, t01=0x000e}
0x5926…5942 Head {h00=0x0018, h01=0x0050, text=» ABL UPDEND NO MATCH«, t00=0x0039, t01=0x002c}
0x5942…594c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0039, t01=0x0048}
0x594c…5960 Head {h00=0x0010, h01=0x0050, text=»UPD610 EQU *«, t00=0x0039, t01=0x0052}
0x5960…5978 Head {h00=0x0014, h01=0x0050, text=» LDKL A8,ECBICW «, t00=0x0039, t01=0x0066}
0x5978…598e Head {h00=0x0012, h01=0x0050, text=» ADR A8,CREBAS«, t00=0x0039, t01=0x007e}
0x598e…599a Head {h00=0x0008, h01=0x0050, text=» LKM«, t00=0x0039, t01=0x0094}
0x599a…59ce Head {h00=0x0030, h01=0x0050, text=» DATA 10 ABORT LAST REQUEST IF NOT COMPLETED«, t00=0x0039, t01=0x00a0}
0x59ce…59f8 Head {h00=0x0026, h01=0x0050, text=» ADKL A5,/4B40 TASKID FROM DEVICE «, t00=0x0039, t01=0x00d4}
0x59f8…5a20 Head {h00=0x0024, h01=0x0050, text=» LD A2,-4,CREBAS GET OWN TASKID «, t00=0x0039, t01=0x00fe}
0x5a20…5a4a Head {h00=0x0026, h01=0x0050, text=» ST A2,ICWORK,TCABAS PUT IN BUFFER«, t00=0x0039, t01=0x0126}
0x5a4a…5a78 Head {h00=0x002a, h01=0x0050, text=» LDK A4,/0B WRITE ADDRESSED , NO WAIT «, t00=0x0039, t01=0x0150}
0x5a78…5a94 Head {h00=0x0018, h01=0x0050, text=» LDK A6,2 REQ LENGTH«, t00=0x0039, t01=0x017e}
0x5a94…5aac Head {h00=0x0014, h01=0x0050, text=» LDKL A3,ICWORK «, t00=0x003a, t01=0x000a}
0x5aac…5ad2 Head {h00=0x0022, h01=0x0050, text=» ADR A3,TCABAS BUFFER ADDRESS «, t00=0x003a, t01=0x0022}
0x5ad2…5af8 Head {h00=0x0022, h01=0x0050, text=» CF A14,ICWRTE WRITE INTERTASK«, t00=0x003a, t01=0x0048}
0x5af8…5b0c Head {h00=0x0010, h01=0x0050, text=» ABL UPDEND «, t00=0x003a, t01=0x006e}
0x5b0c…5b18 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x003a, t01=0x0082}
0x5b18…5b22 Head {h00=0x0006, h01=0x0050, text=» «, t00=0x003a, t01=0x008e}
0x5b22…5b2c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003a, t01=0x0098}
0x5b2c…5b36 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003a, t01=0x00a2}
0x5b36…5b60 Head {h00=0x0026, h01=0x0050, text=»* PROCESS WRITE CONTROL CHARACTER «, t00=0x003a, t01=0x00ac}
0x5b60…5b6a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003a, t01=0x00d6}
0x5b6a…5b98 Head {h00=0x002a, h01=0x0050, text=»* ONLY RESET MDT BIT IS TAKEN CARE OF «, t00=0x003a, t01=0x00e0}
0x5b98…5ba2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003a, t01=0x010e}
0x5ba2…5bac Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003a, t01=0x0118}
0x5bac…5bce Head {h00=0x001e, h01=0x0050, text=»PWCC CF A14,GDCCH GET WCC «, t00=0x003a, t01=0x0122}
0x5bce…5bf0 Head {h00=0x001e, h01=0x0050, text=» LC A2,TEBCDI,A2 IN EBCDIC«, t00=0x003a, t01=0x0144}
0x5bf0…5c12 Head {h00=0x001e, h01=0x0050, text=» ST A2,WCC,TCABAS SAVE IT «, t00=0x003a, t01=0x0166}
0x5c12…5c26 Head {h00=0x0010, h01=0x0050, text=» ANK A2,/04 «, t00=0x003a, t01=0x0188}
0x5c26…5c3a Head {h00=0x0010, h01=0x0050, text=» RF(Z) PWCC1«, t00=0x003b, t01=0x000c}
0x5c3a…5c58 Head {h00=0x001a, h01=0x0050, text=» LD A2,PRINTER,TCABAS «, t00=0x003b, t01=0x0020}
0x5c58…5c6e Head {h00=0x0012, h01=0x0050, text=» RF(NZ) PWCC1 «, t00=0x003b, t01=0x003e}
0x5c6e…5c82 Head {h00=0x0010, h01=0x0050, text=» LDR A10,A7 «, t00=0x003b, t01=0x0054}
0x5c82…5c9a Head {h00=0x0014, h01=0x0050, text=» LDKL A8,ECBVDU «, t00=0x003b, t01=0x0068}
0x5c9a…5cb0 Head {h00=0x0012, h01=0x0050, text=» ADR A8,CREBAS«, t00=0x003b, t01=0x0080}
0x5cb0…5cc8 Head {h00=0x0014, h01=0x0050, text=» LD A2,ECBBA,A8 «, t00=0x003b, t01=0x0096}
0x5cc8…5cdc Head {h00=0x0010, h01=0x0050, text=» LDK A7,/2B «, t00=0x003b, t01=0x00ae}
0x5cdc…5cf4 Head {h00=0x0014, h01=0x0050, text=» SC A7,1,A2 =1 «, t00=0x003b, t01=0x00c2}
0x5cf4…5d10 Head {h00=0x0018, h01=0x0050, text=» LDK A7,/07 BELL =1 «, t00=0x003b, t01=0x00da}
0x5d10…5d28 Head {h00=0x0014, h01=0x0050, text=» SC A7,2,A2 =1 «, t00=0x003b, t01=0x00f6}
0x5d28…5d40 Head {h00=0x0014, h01=0x0050, text=» SC A7,3,A2 =1 «, t00=0x003b, t01=0x010e}
0x5d40…5d52 Head {h00=0x000e, h01=0x0050, text=» LDK A7,4 «, t00=0x003b, t01=0x0126}
0x5d52…5d6a Head {h00=0x0014, h01=0x0050, text=» ST A7,ECBRL,A8 «, t00=0x003b, t01=0x0138}
0x5d6a…5d7e Head {h00=0x0010, h01=0x0050, text=» LDK A7,/86 «, t00=0x003b, t01=0x0150}
0x5d7e…5d8a Head {h00=0x0008, h01=0x0050, text=» LKM«, t00=0x003b, t01=0x0164}
0x5d8a…5d9a Head {h00=0x000c, h01=0x0050, text=» DATA 1 «, t00=0x003b, t01=0x0170}
0x5d9a…5db6 Head {h00=0x0018, h01=0x0050, text=» LD A8,ECBDCC,TCABAS«, t00=0x003b, t01=0x0180}
0x5db6…5dca Head {h00=0x0010, h01=0x0050, text=» LDR A7,A10 «, t00=0x003c, t01=0x000c}
0x5dca…5dde Head {h00=0x0010, h01=0x0050, text=»PWCC1 EQU * «, t00=0x003c, t01=0x0020}
0x5dde…5df8 Head {h00=0x0016, h01=0x0050, text=» LD A2,WCC,TCABAS «, t00=0x003c, t01=0x0034}
0x5df8…5e0a Head {h00=0x000e, h01=0x0050, text=» ANK A2,1 «, t00=0x003c, t01=0x004e}
0x5e0a…5e2e Head {h00=0x0020, h01=0x0050, text=» RF(NZ) RESMDT RESET ALL MDT«, t00=0x003c, t01=0x0060}
0x5e2e…5e4e Head {h00=0x001c, h01=0x0050, text=»PWCC10 RTN A14 NO ACTION«, t00=0x003c, t01=0x0084}
0x5e4e…5e58 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003c, t01=0x00a4}
0x5e58…5e62 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003c, t01=0x00ae}
0x5e62…5e7e Head {h00=0x0018, h01=0x0050, text=»* RESET ALL MDT BITS«, t00=0x003c, t01=0x00b8}
0x5e7e…5e88 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003c, t01=0x00d4}
0x5e88…5e92 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003c, t01=0x00de}
0x5e92…5eaa Head {h00=0x0014, h01=0x0050, text=»RESMDT LDK A3,0 «, t00=0x003c, t01=0x00e8}
0x5eaa…5ec0 Head {h00=0x0012, h01=0x0050, text=» LDKL A4,BVDU «, t00=0x003c, t01=0x0100}
0x5ec0…5ed6 Head {h00=0x0012, h01=0x0050, text=» ADR A4,TCABAS«, t00=0x003c, t01=0x0116}
0x5ed6…5ef2 Head {h00=0x0018, h01=0x0050, text=»RESM10 CWK A3,LBVDU «, t00=0x003c, t01=0x012c}
0x5ef2…5f12 Head {h00=0x001c, h01=0x0050, text=» RB(NL) PWCC10 ALL DONE «, t00=0x003c, t01=0x0148}
0x5f12…5f2e Head {h00=0x0018, h01=0x0050, text=» LCR A2,A4 GET CHAR «, t00=0x003c, t01=0x0168}
0x5f2e…5f42 Head {h00=0x0010, h01=0x0050, text=» ANK A2,/60 «, t00=0x003c, t01=0x0184}
0x5f42…5f66 Head {h00=0x0020, h01=0x0050, text=» RF(NZ) RESM20 NO ATTRIBUTE «, t00=0x003d, t01=0x0008}
0x5f66…5f78 Head {h00=0x000e, h01=0x0050, text=» LCR A2,A4«, t00=0x003d, t01=0x002c}
0x5f78…5f96 Head {h00=0x001a, h01=0x0050, text=» ANK A2,/FE RESET MDT «, t00=0x003d, t01=0x003e}
0x5f96…5fa8 Head {h00=0x000e, h01=0x0050, text=» SCR A2,A4«, t00=0x003d, t01=0x005c}
0x5fa8…5fc0 Head {h00=0x0014, h01=0x0050, text=»RESM20 ADK A3,1 «, t00=0x003d, t01=0x006e}
0x5fc0…5fd2 Head {h00=0x000e, h01=0x0050, text=» ADK A4,1 «, t00=0x003d, t01=0x0086}
0x5fd2…5fe4 Head {h00=0x000e, h01=0x0050, text=» RB RESM10«, t00=0x003d, t01=0x0098}
0x5fe4…5fee Head {h00=0x0006, h01=0x0050, text=» «, t00=0x003d, t01=0x00aa}
0x5fee…5ff8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003d, t01=0x00b4}
0x5ff8…6002 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003d, t01=0x00be}
0x6002…6020 Head {h00=0x001a, h01=0x0050, text=»* ERASE ENTIRE SCREEN «, t00=0x003d, t01=0x00c8}
0x6020…602a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003d, t01=0x00e6}
0x602a…6034 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003d, t01=0x00f0}
0x6034…604a Head {h00=0x0012, h01=0x0050, text=»ERASE LDK A3,0«, t00=0x003d, t01=0x00fa}
0x604a…6060 Head {h00=0x0012, h01=0x0050, text=» LDKL A4,BVDU «, t00=0x003d, t01=0x0110}
0x6060…6076 Head {h00=0x0012, h01=0x0050, text=» ADR A4,TCABAS«, t00=0x003d, t01=0x0126}
0x6076…608a Head {h00=0x0010, h01=0x0050, text=» LDK A2,NULL«, t00=0x003d, t01=0x013c}
0x608a…60a6 Head {h00=0x0018, h01=0x0050, text=»ERAS20 CWK A3,LBVDU «, t00=0x003d, t01=0x0150}
0x60a6…60c8 Head {h00=0x001e, h01=0x0050, text=» RF(NL) ERAS25 ALL ERASED «, t00=0x003d, t01=0x016c}
0x60c8…60da Head {h00=0x000e, h01=0x0050, text=» SCR A2,A4«, t00=0x003d, t01=0x018e}
0x60da…60ec Head {h00=0x000e, h01=0x0050, text=» ADK A3,1 «, t00=0x003e, t01=0x0010}
0x60ec…60fe Head {h00=0x000e, h01=0x0050, text=» ADK A4,1 «, t00=0x003e, t01=0x0022}
0x60fe…6110 Head {h00=0x000e, h01=0x0050, text=» RB ERAS20«, t00=0x003e, t01=0x0034}
0x6110…6140 Head {h00=0x002c, h01=0x0050, text=»ERAS25 CM PCURS,TCABAS RESET CURSOR POS «, t00=0x003e, t01=0x0046}
0x6140…6158 Head {h00=0x0014, h01=0x0050, text=» LDKL A1,LBVDU+1«, t00=0x003e, t01=0x0076}
0x6158…618c Head {h00=0x0030, h01=0x0050, text=» ST A1,CURATT,TCABAS INDICATE UNFORM. SCREEN«, t00=0x003e, t01=0x008e}
0x618c…61a6 Head {h00=0x0016, h01=0x0050, text=» CM ATTRIB,TCABAS «, t00=0x003e, t01=0x00c2}
0x61a6…61d6 Head {h00=0x002c, h01=0x0050, text=» LD A1,PRINTER,TCABAS CHECK DEVISE TYPE «, t00=0x003e, t01=0x00dc}
0x61d6…6202 Head {h00=0x0028, h01=0x0050, text=» RF(NZ) ERAEND PRINTER, NOT DISPLAY «, t00=0x003e, t01=0x010c}
0x6202…622e Head {h00=0x0028, h01=0x0050, text=» STR A7,A14 SAVE A7 AND A8 ON STACK «, t00=0x003e, t01=0x0138}
0x622e…6244 Head {h00=0x0012, h01=0x0050, text=» ST A8,-2,A14 «, t00=0x003e, t01=0x0164}
0x6244…625c Head {h00=0x0014, h01=0x0050, text=» LDKL A8,ECBVDU «, t00=0x003e, t01=0x017a}
0x625c…627a (63, 0, 400) Head {h00=0x001a, h01=0x0050, text=» ADR A8,CREBAS VDUECB «, t00=0x003f, t01=0x0004}
0x627a…62a0 Head {h00=0x0022, h01=0x0050, text=» LDK A7,'1' ERASE CONTROL CHAR«, t00=0x003f, t01=0x0022}
0x62a0…62bc Head {h00=0x0018, h01=0x0050, text=» LD A1,ECBBA,A8 =1 «, t00=0x003f, t01=0x0048}
0x62bc…62d4 Head {h00=0x0014, h01=0x0050, text=» SC A7,1,A1 =1 «, t00=0x003f, t01=0x0064}
0x62d4…62e6 Head {h00=0x000e, h01=0x0050, text=» LDK A7,2 «, t00=0x003f, t01=0x007c}
0x62e6…630c Head {h00=0x0022, h01=0x0050, text=» ST A7,ECBRL,A8 REQ LENGTH = 2«, t00=0x003f, t01=0x008e}
0x630c…6326 Head {h00=0x0016, h01=0x0050, text=» LDK A7,/86 WRITE «, t00=0x003f, t01=0x00b4}
0x6326…6332 Head {h00=0x0008, h01=0x0050, text=» LKM«, t00=0x003f, t01=0x00ce}
0x6332…6342 Head {h00=0x000c, h01=0x0050, text=» DATA 1 «, t00=0x003f, t01=0x00da}
0x6342…6358 Head {h00=0x0012, h01=0x0050, text=» LD A8,-2,A14 «, t00=0x003f, t01=0x00ea}
0x6358…637e Head {h00=0x0022, h01=0x0050, text=» LDR* A7,A14 RESTORE A7 AND A8«, t00=0x003f, t01=0x0100}
0x637e…6394 Head {h00=0x0012, h01=0x0050, text=»ERAEND RTN A14«, t00=0x003f, t01=0x0126}
0x6394…639e Head {h00=0x0006, h01=0x0050, text=» «, t00=0x003f, t01=0x013c}
0x639e…63a8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003f, t01=0x0146}
0x63a8…63b2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003f, t01=0x0150}
0x63b2…63d2 Head {h00=0x001c, h01=0x0050, text=»* ERASE ALL UNPROTECTED «, t00=0x003f, t01=0x015a}
0x63d2…63dc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003f, t01=0x017a}
0x63dc…63e6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003f, t01=0x0184}
0x63e6…63fe Head {h00=0x0014, h01=0x0050, text=»ERASUP LDK A2,2 «, t00=0x003f, t01=0x018e}
0x63fe…6430 Head {h00=0x002e, h01=0x0050, text=» ST A2,WCC,TCABAS SET KEYBOARD RESTORE BIT«, t00=0x0040, t01=0x0016}
0x6430…6466 Head {h00=0x0032, h01=0x0050, text=» SUR A1,A1 INDICATE ATT IN LAST SCREEN POS DK «, t00=0x0040, t01=0x0048}
0x6466…6478 Head {h00=0x000e, h01=0x0050, text=» LDK A3,0 «, t00=0x0040, t01=0x007e}
0x6478…648e Head {h00=0x0012, h01=0x0050, text=» LDKL A4,BVDU «, t00=0x0040, t01=0x0090}
0x648e…64a4 Head {h00=0x0012, h01=0x0050, text=» ADR A4,TCABAS«, t00=0x0040, t01=0x00a6}
0x64a4…64d8 Head {h00=0x0030, h01=0x0050, text=» CM PCURS,TCABAS FIND FIRST UNPROTECTED POS «, t00=0x0040, t01=0x00bc}
0x64d8…6508 Head {h00=0x002c, h01=0x0050, text=» LC A2,1919,A4 GET LAST SCREEN CHARACTER«, t00=0x0040, t01=0x00f0}
0x6508…651c Head {h00=0x0010, h01=0x0050, text=» ANK A2,/7F «, t00=0x0040, t01=0x0120}
0x651c…653e Head {h00=0x001e, h01=0x0050, text=» CWK A2,/20 ATTRIBUTE ??? «, t00=0x0040, t01=0x0134}
0x653e…6566 Head {h00=0x0024, h01=0x0050, text=» RF(L) ERU:01 YES!! WE GOT IT!! «, t00=0x0040, t01=0x0156}
0x6566…659a Head {h00=0x0030, h01=0x0050, text=» LDK A1,1 ATTRIBUTE NOT IN LAST SCREEN POS. «, t00=0x0040, t01=0x017e}
0x659a…65b6 Head {h00=0x0018, h01=0x0050, text=»ERASU1 CWK A3,LBVDU «, t00=0x0041, t01=0x0022}
0x65b6…65cc Head {h00=0x0012, h01=0x0050, text=» RF(NL) ERASU2«, t00=0x0041, t01=0x003e}
0x65cc…65e8 Head {h00=0x0018, h01=0x0050, text=» LCR A2,A4 GET CHAR «, t00=0x0041, t01=0x0054}
0x65e8…65fc Head {h00=0x0010, h01=0x0050, text=» ANK A2,/7F «, t00=0x0041, t01=0x0070}
0x65fc…660e Head {h00=0x000e, h01=0x0050, text=» ADK A3,1 «, t00=0x0041, t01=0x0084}
0x660e…6620 Head {h00=0x000e, h01=0x0050, text=» ADK A4,1 «, t00=0x0041, t01=0x0096}
0x6620…6634 Head {h00=0x0010, h01=0x0050, text=» CWK A2,/20 «, t00=0x0041, t01=0x00a8}
0x6634…6658 Head {h00=0x0020, h01=0x0050, text=» RB(NL) ERASU1 NO ATTRIBUTE «, t00=0x0041, t01=0x00bc}
0x6658…666c Head {h00=0x0010, h01=0x0050, text=»ERU:01 EQU *«, t00=0x0041, t01=0x00e0}
0x666c…6680 Head {h00=0x0010, h01=0x0050, text=» ANK A2,/10 «, t00=0x0041, t01=0x00f4}
0x6680…66a0 Head {h00=0x001c, h01=0x0050, text=» RB(NZ) ERASU1 PROTECTED«, t00=0x0041, t01=0x0108}
0x66a0…66ce Head {h00=0x002a, h01=0x0050, text=» ST A3,PCURS,TCABAS SET NEW CURSOR POS«, t00=0x0041, t01=0x0128}
0x66ce…66e0 Head {h00=0x000e, h01=0x0050, text=» LDR A1,A1«, t00=0x0041, t01=0x0156}
0x66e0…6714 Head {h00=0x0030, h01=0x0050, text=» RF(Z) ERASU3 ATTRIBUTE IN LAST SCREEN POS. «, t00=0x0041, t01=0x0168}
0x6714…672c Head {h00=0x0014, h01=0x0050, text=»ERASU2 LDK A3,0 «, t00=0x0042, t01=0x000c}
0x672c…6742 Head {h00=0x0012, h01=0x0050, text=» LDKL A4,BVDU «, t00=0x0042, t01=0x0024}
0x6742…6758 Head {h00=0x0012, h01=0x0050, text=» ADR A4,TCABAS«, t00=0x0042, t01=0x003a}
0x6758…676a Head {h00=0x000e, h01=0x0050, text=» RF ERASU4«, t00=0x0042, t01=0x0050}
0x676a…677e Head {h00=0x0010, h01=0x0050, text=»ERASU3 EQU *«, t00=0x0042, t01=0x0062}
0x677e…6790 Head {h00=0x000e, h01=0x0050, text=» LDR A3,A3«, t00=0x0042, t01=0x0076}
0x6790…67ca Head {h00=0x0036, h01=0x0050, text=» RF(Z) ERASU4 UNPROTECTED ATT. IN LAST SCREEN POS.«, t00=0x0042, t01=0x0088}
0x67ca…67f2 Head {h00=0x0024, h01=0x0050, text=» SUK A3,1 GET BACK TO ATTRIBUTE «, t00=0x0042, t01=0x00c2}
0x67f2…6810 Head {h00=0x001a, h01=0x0050, text=» SUK A4,1 - " -«, t00=0x0042, t01=0x00ea}
0x6810…6824 Head {h00=0x0010, h01=0x0050, text=»ERASU4 EQU *«, t00=0x0042, t01=0x0108}
0x6824…684a Head {h00=0x0022, h01=0x0050, text=» LDKL A1,/0F00 (LDK A1,0) DK3 «, t00=0x0042, t01=0x011c}
0x684a…686e Head {h00=0x0020, h01=0x0050, text=» LDK A6,NULL+/80 ERASE CHAR «, t00=0x0042, t01=0x0142}
0x686e…6880 Head {h00=0x000e, h01=0x0050, text=» RF ERAS35«, t00=0x0042, t01=0x0166}
0x6880…688a Head {h00=0x0006, h01=0x0050, text=» «, t00=0x0042, t01=0x0178}
0x688a…6894 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0042, t01=0x0182}
0x6894…689e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0042, t01=0x018c}
0x689e…68d0 Head {h00=0x002e, h01=0x0050, text=»* ERASE UNPROTECTED TO ADDRESS GIVEN IN A1«, t00=0x0043, t01=0x0008}
0x68d0…68da Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0043, t01=0x003a}
0x68da…68e4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0043, t01=0x0044}
0x68e4…6912 Head {h00=0x002a, h01=0x0050, text=»ERASUA LDK A6,NULL+/80 ERASE CHARACTER«, t00=0x0043, t01=0x004e}
0x6912…693a Head {h00=0x0024, h01=0x0050, text=» ******************* 78-09-11 «, t00=0x0043, t01=0x007c}
0x693a…6960 Head {h00=0x0022, h01=0x0050, text=» CWK A3,LBVDU WRAP AROUND ??? «, t00=0x0043, t01=0x00a4}
0x6960…697a Head {h00=0x0016, h01=0x0050, text=» RF(L) ERAS:1 NO!!«, t00=0x0043, t01=0x00ca}
0x697a…6998 Head {h00=0x001a, h01=0x0050, text=» LDK A3,0 BUFFERINDEX «, t00=0x0043, t01=0x00e4}
0x6998…69ae Head {h00=0x0012, h01=0x0050, text=» LDKL A4,BVDU «, t00=0x0043, t01=0x0102}
0x69ae…69de Head {h00=0x002c, h01=0x0050, text=» ADR A4,TCABAS ABSOLUTE BUFFER ADDRESS «, t00=0x0043, t01=0x0118}
0x69de…69e6 Head {h00=0x0004, h01=0x0050, t00=0x0043, t01=0x0148}
0x69e6…6a22 Head {h00=0x0038, h01=0x0050, text=»ERAS:1 LDR A3,A3 START IN FIRST SCREEN POSITION ??? «, t00=0x0043, t01=0x0150}
0x6a22…6a3e Head {h00=0x0018, h01=0x0050, text=» RF(NZ) ERAS35 NO!! «, t00=0x0043, t01=0x018c}
0x6a3e…6a6a Head {h00=0x0028, h01=0x0050, text=» LC A2,1919,A4 LAST BUFFER CHARACTER«, t00=0x0044, t01=0x0018}
0x6a6a…6a7e Head {h00=0x0010, h01=0x0050, text=» ANK A2,/7F «, t00=0x0044, t01=0x0044}
0x6a7e…6aaa Head {h00=0x0028, h01=0x0050, text=» CWK A2,/20 ATTRIBUTE CHARACTER ??? «, t00=0x0044, t01=0x0058}
0x6aaa…6ac6 Head {h00=0x0018, h01=0x0050, text=» RF(NL) ERAS35 NO!!!«, t00=0x0044, t01=0x0084}
0x6ac6…6ada Head {h00=0x0010, h01=0x0050, text=» ANK A2,/10 «, t00=0x0044, t01=0x00a0}
0x6ada…6b00 Head {h00=0x0022, h01=0x0050, text=» RF(NZ) ERAS70 PROTECTED FIELD«, t00=0x0044, t01=0x00b4}
0x6b00…6b1c Head {h00=0x0018, h01=0x0050, text=»* LC A2,1919,A4 DK3«, t00=0x0044, t01=0x00da}
0x6b1c…6b36 Head {h00=0x0016, h01=0x0050, text=»* ANK A2,/FE DK3 «, t00=0x0044, t01=0x00f6}
0x6b36…6b60 Head {h00=0x0026, h01=0x0050, text=»* SC A2,1919,A4 RESET MDT BIT DK3 «, t00=0x0044, t01=0x0110}
0x6b60…6b72 Head {h00=0x000e, h01=0x0050, text=» RF ERAS35«, t00=0x0044, t01=0x013a}
0x6b72…6b9a Head {h00=0x0024, h01=0x0050, text=» ******************** 78-09-11«, t00=0x0044, t01=0x014c}
0x6b9a…6bb6 Head {h00=0x0018, h01=0x0050, text=»ERAS30 CWK A3,LBVDU «, t00=0x0044, t01=0x0174}
0x6bb6…6bde Head {h00=0x0024, h01=0x0050, text=» RF(L) ERAS33 NOT END OF SCREEN «, t00=0x0044, t01=0x0190}
0x6bde…6bf0 Head {h00=0x000e, h01=0x0050, text=» LDK A3,0 «, t00=0x0045, t01=0x0028}
0x6bf0…6c12 Head {h00=0x001e, h01=0x0050, text=» LDKL A4,BVDU WRAP AROUND «, t00=0x0045, t01=0x003a}
0x6c12…6c28 Head {h00=0x0012, h01=0x0050, text=» ADR A4,TCABAS«, t00=0x0045, t01=0x005c}
0x6c28…6c3c Head {h00=0x0010, h01=0x0050, text=»ERAS33 EQU *«, t00=0x0045, t01=0x0072}
0x6c3c…6c62 Head {h00=0x0022, h01=0x0050, text=» CWK A1,/0F00 EUA COMMAND? DK3«, t00=0x0045, t01=0x0086}
0x6c62…6c8a Head {h00=0x0024, h01=0x0050, text=» RF(L) ERAS34 NO, EUA ORDER DK3 «, t00=0x0045, t01=0x00ac}
0x6c8a…6cb6 Head {h00=0x0028, h01=0x0050, text=» CWK A3,0 FINISHED EUA COMMAND? DK3 «, t00=0x0045, t01=0x00d4}
0x6cb6…6cde Head {h00=0x0024, h01=0x0050, text=» RF(NZ) ERAS35 NO, CONTINUE DK3 «, t00=0x0045, t01=0x0100}
0x6cde…6d00 Head {h00=0x001e, h01=0x0050, text=» LDK A1,0 YES FINISHED DK3«, t00=0x0045, t01=0x0128}
0x6d00…6d18 Head {h00=0x0014, h01=0x0050, text=» RB ERAEND DK3 «, t00=0x0045, t01=0x014a}
0x6d18…6d32 Head {h00=0x0016, h01=0x0050, text=»ERAS34 EQU * DK3 «, t00=0x0045, t01=0x0162}
0x6d32…6d44 Head {h00=0x000e, h01=0x0050, text=» CWR A3,A1«, t00=0x0045, t01=0x017c}
0x6d44…6d70 Head {h00=0x0028, h01=0x0050, text=» RB(E) ERAEND ALL UNPROTECTED ERASED«, t00=0x0045, t01=0x018e}
0x6d70…6da2 Head {h00=0x002e, h01=0x0050, text=»ERAS35 LCR A2,A4 GET CHAR FROM VDU BUFFER «, t00=0x0046, t01=0x002a}
0x6da2…6db6 Head {h00=0x0010, h01=0x0050, text=» ANK A2,/7F «, t00=0x0046, t01=0x005c}
0x6db6…6dca Head {h00=0x0010, h01=0x0050, text=» CWK A2,/20 «, t00=0x0046, t01=0x0070}
0x6dca…6dee Head {h00=0x0020, h01=0x0050, text=» RF(L) ERAS50 ATTRIBUTE CHAR«, t00=0x0046, t01=0x0084}
0x6dee…6e02 Head {h00=0x0010, h01=0x0050, text=» XRK A2,NULL«, t00=0x0046, t01=0x00a8}
0x6e02…6e24 Head {h00=0x001e, h01=0x0050, text=» RF(Z) ERAS40 ALREADY NULL«, t00=0x0046, t01=0x00bc}
0x6e24…6e4a Head {h00=0x0022, h01=0x0050, text=» SCR A6,A4 STORE MODIFIED NULL«, t00=0x0046, t01=0x00de}
0x6e4a…6e62 Head {h00=0x0014, h01=0x0050, text=»ERAS40 ADK A3,1 «, t00=0x0046, t01=0x0104}
0x6e62…6e74 Head {h00=0x000e, h01=0x0050, text=» ADK A4,1 «, t00=0x0046, t01=0x011c}
0x6e74…6e86 Head {h00=0x000e, h01=0x0050, text=» RB ERAS30«, t00=0x0046, t01=0x012e}
0x6e86…6e9e Head {h00=0x0014, h01=0x0050, text=»ERAS50 ADK A3,1 «, t00=0x0046, t01=0x0140}
0x6e9e…6eb0 Head {h00=0x000e, h01=0x0050, text=» ADK A4,1 «, t00=0x0046, t01=0x0158}
0x6eb0…6ec4 Head {h00=0x0010, h01=0x0050, text=» ANK A2,/10 «, t00=0x0046, t01=0x016a}
0x6ec4…6eea Head {h00=0x0022, h01=0x0050, text=» RF(NZ) ERAS60 PROTECTED FIELD«, t00=0x0046, t01=0x017e}
0x6eea…6f10 Head {h00=0x0022, h01=0x0050, text=» CWK A1,/0F00 EUA COMMAND? DK3«, t00=0x0047, t01=0x0014}
0x6f10…6f2c Head {h00=0x0018, h01=0x0050, text=» RB(L) ERAS30 NO DK3«, t00=0x0047, t01=0x003a}
0x6f2c…6f56 Head {h00=0x0026, h01=0x0050, text=»* EUA COMMAND: RESET MDT BIT DK3 «, t00=0x0047, t01=0x0056}
0x6f56…6f6a Head {h00=0x0010, h01=0x0050, text=» LC A2,-1,A4«, t00=0x0047, t01=0x0080}
0x6f6a…6f8c Head {h00=0x001e, h01=0x0050, text=» ANK A2,/FE RESET MDT BIT «, t00=0x0047, t01=0x0094}
0x6f8c…6fa0 Head {h00=0x0010, h01=0x0050, text=» SC A2,-1,A4«, t00=0x0047, t01=0x00b6}
0x6fa0…6fb2 Head {h00=0x000e, h01=0x0050, text=» RB ERAS30«, t00=0x0047, t01=0x00ca}
0x6fb2…6fce Head {h00=0x0018, h01=0x0050, text=»ERAS60 CWK A3,LBVDU «, t00=0x0047, t01=0x00dc}
0x6fce…6fe4 Head {h00=0x0012, h01=0x0050, text=» RF(L) ERAS65 «, t00=0x0047, t01=0x00f8}
0x6fe4…6ff6 Head {h00=0x000e, h01=0x0050, text=» LDK A3,0 «, t00=0x0047, t01=0x010e}
0x6ff6…7018 Head {h00=0x001e, h01=0x0050, text=» LDKL A4,BVDU WRAP AROUND «, t00=0x0047, t01=0x0120}
0x7018…702e Head {h00=0x0012, h01=0x0050, text=» ADR A4,TCABAS«, t00=0x0047, t01=0x0142}
0x702e…7042 Head {h00=0x0010, h01=0x0050, text=»ERAS65 EQU *«, t00=0x0047, t01=0x0158}
0x7042…7068 Head {h00=0x0022, h01=0x0050, text=» CWK A1,/0F00 EUA COMMAND? DK3«, t00=0x0047, t01=0x016c}
0x7068…7090 (72, 0, 400) Head {h00=0x0024, h01=0x0050, text=» RF(L) ERAS67 NO, EUA ORDER DK3 «, t00=0x0048, t01=0x0004}
0x7090…70bc Head {h00=0x0028, h01=0x0050, text=» CWK A3,0 FINISHED EUA COMMAND? DK3 «, t00=0x0048, t01=0x002c}
0x70bc…70e2 Head {h00=0x0022, h01=0x0050, text=» RF(NZ) ERAS70 NO,CONTINUE DK3«, t00=0x0048, t01=0x0058}
0x70e2…7106 Head {h00=0x0020, h01=0x0050, text=» LDK A1,0 YYES, FINSHED DK3 «, t00=0x0048, t01=0x007e}
0x7106…711e Head {h00=0x0014, h01=0x0050, text=» RB ERAEND DK3 «, t00=0x0048, t01=0x00a2}
0x711e…7138 Head {h00=0x0016, h01=0x0050, text=»ERAS67 EQU * DK3 «, t00=0x0048, t01=0x00ba}
0x7138…714a Head {h00=0x000e, h01=0x0050, text=» CWR A3,A1«, t00=0x0048, t01=0x00d4}
0x714a…7176 Head {h00=0x0028, h01=0x0050, text=» RB(E) ERAEND ALL UNPROTECTED ERASED«, t00=0x0048, t01=0x00e6}
0x7176…718a Head {h00=0x0010, h01=0x0050, text=»ERAS70 EQU *«, t00=0x0048, t01=0x0112}
0x718a…719c Head {h00=0x000e, h01=0x0050, text=» LCR A2,A4«, t00=0x0048, t01=0x0126}
0x719c…71b0 Head {h00=0x0010, h01=0x0050, text=» ANK A2,/7F «, t00=0x0048, t01=0x0138}
0x71b0…71c4 Head {h00=0x0010, h01=0x0050, text=» CWK A2,/20 «, t00=0x0048, t01=0x014c}
0x71c4…71ea Head {h00=0x0022, h01=0x0050, text=» RB(L) ERAS50 ATTRIBUTE FOUND «, t00=0x0048, t01=0x0160}
0x71ea…71fc Head {h00=0x000e, h01=0x0050, text=» ADK A3,1 «, t00=0x0048, t01=0x0186}
0x71fc…720e Head {h00=0x000e, h01=0x0050, text=» ADK A4,1 «, t00=0x0049, t01=0x0008}
0x720e…7220 Head {h00=0x000e, h01=0x0050, text=» RB ERAS60«, t00=0x0049, t01=0x001a}
0x7220…722a Head {h00=0x0006, h01=0x0050, text=» «, t00=0x0049, t01=0x002c}
0x722a…7234 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0049, t01=0x0036}
0x7234…723e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0049, t01=0x0040}
0x723e…7262 Head {h00=0x0020, h01=0x0050, text=»* TRANSMIT PROGRAM ATTENTION«, t00=0x0049, t01=0x004a}
0x7262…726c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0049, t01=0x006e}
0x726c…727c Head {h00=0x000c, h01=0x0050, text=»* A2=AID«, t00=0x0049, t01=0x0078}
0x727c…7286 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0049, t01=0x0088}
0x7286…7290 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0049, t01=0x0092}
0x7290…72be Head {h00=0x002a, h01=0x0050, text=»TRPA CF A14,GTWBUF GET TRANSMIT BUFFER«, t00=0x0049, t01=0x009c}
0x72be…72e2 Head {h00=0x0020, h01=0x0050, text=»TRPA10 CF A14,PAID STORE AID«, t00=0x0049, t01=0x00ca}
0x72e2…72f6 Head {h00=0x0010, h01=0x0050, text=»TRANS EQU * «, t00=0x0049, t01=0x00ee}
0x72f6…731a Head {h00=0x0020, h01=0x0050, text=» CF A14,DCWRTE WRITE MESSAGE«, t00=0x0049, t01=0x0102}
0x731a…732e Head {h00=0x0010, h01=0x0050, text=»TR050 EQU * «, t00=0x0049, t01=0x0126}
0x732e…7354 Head {h00=0x0022, h01=0x0050, text=» RTN A14 TRANSMISSION TROUBLE «, t00=0x0049, t01=0x013a}
0x7354…736a Head {h00=0x0012, h01=0x0050, text=»TRRTN RTN A14 «, t00=0x0049, t01=0x0160}
0x736a…7374 Head {h00=0x0006, h01=0x0050, text=» «, t00=0x0049, t01=0x0176}
0x7374…737e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0049, t01=0x0180}
0x737e…7388 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0049, t01=0x018a}
0x7388…73ac (74, 0, 400) Head {h00=0x0020, h01=0x0050, text=»* TRANSMIT PROGRAM FUNCTION «, t00=0x004a, t01=0x0004}
0x73ac…73b6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004a, t01=0x0028}
0x73b6…73c6 Head {h00=0x000c, h01=0x0050, text=»* A2=AID«, t00=0x004a, t01=0x0032}
0x73c6…73d0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004a, t01=0x0042}
0x73d0…73da Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004a, t01=0x004c}
0x73da…7408 Head {h00=0x002a, h01=0x0050, text=»TRPF CF A14,GTWBUF GET TRANSMIT BUFFER«, t00=0x004a, t01=0x0056}
0x7408…742c Head {h00=0x0020, h01=0x0050, text=»TRPF10 CF A14,PAID STORE AID«, t00=0x004a, t01=0x0084}
0x742c…7456 Head {h00=0x0026, h01=0x0050, text=» CF A14,CURSA STORE CURSOR ADDRESS«, t00=0x004a, t01=0x00a8}
0x7456…747a Head {h00=0x0020, h01=0x0050, text=» CF A14,RDMOD READ MODIFIED «, t00=0x004a, t01=0x00d2}
0x747a…74a0 Head {h00=0x0022, h01=0x0050, text=» RB TRANS SEND MODIFIED FIELDS«, t00=0x004a, t01=0x00f6}
0x74a0…74aa Head {h00=0x0006, h01=0x0050, text=» «, t00=0x004a, t01=0x011c}
0x74aa…74b4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004a, t01=0x0126}
0x74b4…74be Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004a, t01=0x0130}
0x74be…74e6 Head {h00=0x0024, h01=0x0050, text=»* DISPLAY MODIFIED FIELDS ON VDU«, t00=0x004a, t01=0x013a}
0x74e6…74f0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004a, t01=0x0162}
0x74f0…74fa Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004a, t01=0x016c}
0x74fa…7514 Head {h00=0x0016, h01=0x0050, text=»* A3=VDU POSITION «, t00=0x004a, t01=0x0176}
0x7514…7532 Head {h00=0x001a, h01=0x0050, text=»* A4=VDU IMAGE POINTER«, t00=0x004a, t01=0x0190}
0x7532…7552 Head {h00=0x001c, h01=0x0050, text=»* A5=MODIFIED INDICATOR «, t00=0x004b, t01=0x001e}
0x7552…7576 Head {h00=0x0020, h01=0x0050, text=»* A7=VDU LINE OUTPUT POINTER«, t00=0x004b, t01=0x003e}
0x7576…758a Head {h00=0x0010, h01=0x0050, text=»* A8=VDU ECB«, t00=0x004b, t01=0x0062}
0x758a…75ae Head {h00=0x0020, h01=0x0050, text=»* A9=VDU OUTPUT CHAR COUNTER«, t00=0x004b, t01=0x0076}
0x75ae…75b8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004b, t01=0x009a}
0x75b8…75c2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004b, t01=0x00a4}
0x75c2…75de Head {h00=0x0018, h01=0x0050, text=»DISPL LDKL A8,ECBVDU«, t00=0x004b, t01=0x00ae}
0x75de…75f4 Head {h00=0x0012, h01=0x0050, text=» ADR A8,CREBAS«, t00=0x004b, t01=0x00ca}
0x75f4…7622 Head {h00=0x002a, h01=0x0050, text=» LDKL A1,/101 START FROM LINE 1 POS 1 «, t00=0x004b, t01=0x00e0}
0x7622…763a Head {h00=0x0014, h01=0x0050, text=» ST A1,ECBCW,A8 «, t00=0x004b, t01=0x010e}
0x763a…7676 Head {h00=0x0038, h01=0x0050, text=» SUR A10,A10 RESET COUNT FOR INTENSIFIED DISPLAYING «, t00=0x004b, t01=0x0126}
0x7676…7688 Head {h00=0x000e, h01=0x0050, text=» LDK A3,0 «, t00=0x004b, t01=0x0162}
0x7688…769e Head {h00=0x0012, h01=0x0050, text=» LDKL A4,BVDU «, t00=0x004b, t01=0x0174}
0x769e…76b4 Head {h00=0x0012, h01=0x0050, text=» ADR A4,TCABAS«, t00=0x004b, t01=0x018a}
0x76b4…76e4 Head {h00=0x002c, h01=0x0050, text=» CF A14,SPACES PUT SPACES IN LINE BUFFER«, t00=0x004c, t01=0x0010}
0x76e4…771e Head {h00=0x0036, h01=0x0050, text=» LC A2,1919,A4 CHECK IF ATTRIBUTE IN LAST POSITION«, t00=0x004c, t01=0x0040}
0x771e…7732 Head {h00=0x0010, h01=0x0050, text=» ANK A2,/7F «, t00=0x004c, t01=0x007a}
0x7732…7754 Head {h00=0x001e, h01=0x0050, text=» CWK A2,/1F ATTRIBUTE ??? «, t00=0x004c, t01=0x008e}
0x7754…7770 Head {h00=0x0018, h01=0x0050, text=» RF(G) DIS100 NO!!! «, t00=0x004c, t01=0x00b0}
0x7770…7778 Head {h00=0x0004, h01=0x0050, t00=0x004c, t01=0x00cc}
0x7778…778a Head {h00=0x000e, h01=0x0050, text=» ANK A2,6 «, t00=0x004c, t01=0x00d4}
0x778a…779c Head {h00=0x000e, h01=0x0050, text=» XRK A2,6 «, t00=0x004c, t01=0x00e6}
0x779c…77de Head {h00=0x003e, h01=0x0050, text=» ST A2,INTATT,TCABAS CHECK DISPLAY/NONDISPLAY INFORMATION «, t00=0x004c, t01=0x00f8}
0x77de…7800 Head {h00=0x001e, h01=0x0050, text=» RF(Z) DIS210 NON DISPLAY «, t00=0x004c, t01=0x013a}
0x7800…7838 Head {h00=0x0034, h01=0x0050, text=» CF A14,INTCHK INSERT HIGH/LOW INTENS. IN BUFFER«, t00=0x004c, t01=0x015c}
0x7838…784c (77, 0, 400) Head {h00=0x0010, h01=0x0050, text=»DIS100 EQU *«, t00=0x004d, t01=0x0004}
0x784c…7862 Head {h00=0x0012, h01=0x0050, text=» CWK A9,LLINE «, t00=0x004d, t01=0x0018}
0x7862…7888 Head {h00=0x0022, h01=0x0050, text=» RF(L) DIS110 NOT END OF LINE «, t00=0x004d, t01=0x002e}
0x7888…78b0 Head {h00=0x0024, h01=0x0050, text=» CF A14,DISLIN DISPLAY THIS LINE«, t00=0x004d, t01=0x0054}
0x78b0…78e2 Head {h00=0x002e, h01=0x0050, text=» CF A14,INTCHK CHECK IF LOW/HIGH INTENSITY«, t00=0x004d, t01=0x007c}
0x78e2…78f6 Head {h00=0x0010, h01=0x0050, text=»DIS110 EQU *«, t00=0x004d, t01=0x00ae}
0x78f6…790c Head {h00=0x0012, h01=0x0050, text=» CWK A3,LBVDU «, t00=0x004d, t01=0x00c2}
0x790c…792e Head {h00=0x001e, h01=0x0050, text=» RF(NL) DIS900 ALL SCANNED«, t00=0x004d, t01=0x00d8}
0x792e…794a Head {h00=0x0018, h01=0x0050, text=» LCR A2,A4 GET CHAR «, t00=0x004d, t01=0x00fa}
0x794a…7952 Head {h00=0x0004, h01=0x0050, t00=0x004d, t01=0x0116}
0x7952…7978 Head {h00=0x0022, h01=0x0050, text=» CF A14,SET:M SET MODIFIED BIT«, t00=0x004d, t01=0x011e}
0x7978…7980 Head {h00=0x0004, h01=0x0050, t00=0x004d, t01=0x0144}
0x7980…7994 Head {h00=0x0010, h01=0x0050, text=»DIS115 EQU *«, t00=0x004d, t01=0x014c}
0x7994…79ba Head {h00=0x0022, h01=0x0050, text=» ANK A2,/7F RESET DISPLAY BIT «, t00=0x004d, t01=0x0160}
0x79ba…79cc Head {h00=0x000e, h01=0x0050, text=» SCR A2,A4«, t00=0x004d, t01=0x0186}
0x79cc…79de Head {h00=0x000e, h01=0x0050, text=» ADK A3,1 «, t00=0x004e, t01=0x0008}
0x79de…79f0 Head {h00=0x000e, h01=0x0050, text=» ADK A4,1 «, t00=0x004e, t01=0x001a}
0x79f0…7a02 Head {h00=0x000e, h01=0x0050, text=» ADK A7,1 «, t00=0x004e, t01=0x002c}
0x7a02…7a14 Head {h00=0x000e, h01=0x0050, text=» ADKL A9,1«, t00=0x004e, t01=0x003e}
0x7a14…7a28 Head {h00=0x0010, h01=0x0050, text=» CWK A2,/20 «, t00=0x004e, t01=0x0050}
0x7a28…7a4c Head {h00=0x0020, h01=0x0050, text=» RF(L) DIS200 ATTRIBUTE CHAR«, t00=0x004e, t01=0x0064}
0x7a4c…7a60 Head {h00=0x0010, h01=0x0050, text=» CWK A2,NULL«, t00=0x004e, t01=0x0088}
0x7a60…7a92 Head {h00=0x002e, h01=0x0050, text=» RB(E) DIS100 NULL EQUALS SPACE AT DISPLAY«, t00=0x004e, t01=0x009c}
0x7a92…7aa6 Head {h00=0x0010, h01=0x0050, text=» CWK A2,/7D «, t00=0x004e, t01=0x00ce}
0x7aa6…7abc Head {h00=0x0012, h01=0x0050, text=» RF(NE) DIS120«, t00=0x004e, t01=0x00e2}
0x7abc…7ad0 Head {h00=0x0010, h01=0x0050, text=» LDK A2,/39 «, t00=0x004e, t01=0x00f8}
0x7ad0…7aea Head {h00=0x0016, h01=0x0050, text=»DIS120 CWK A2,/7E «, t00=0x004e, t01=0x010c}
0x7aea…7b00 Head {h00=0x0012, h01=0x0050, text=» RF(NE) DIS121«, t00=0x004e, t01=0x0126}
0x7b00…7b14 Head {h00=0x0010, h01=0x0050, text=» LDK A2,/35 «, t00=0x004e, t01=0x013c}
0x7b14…7b2e Head {h00=0x0016, h01=0x0050, text=»DIS121 CWK A2,/7C «, t00=0x004e, t01=0x0150}
0x7b2e…7b44 Head {h00=0x0012, h01=0x0050, text=» RF(NE) DIS122«, t00=0x004e, t01=0x016a}
0x7b44…7b58 Head {h00=0x0010, h01=0x0050, text=» LDK A2,/3C «, t00=0x004e, t01=0x0180}
0x7b58…7b6c (79, 0, 398) Head {h00=0x0010, h01=0x0050, text=»DIS122 EQU *«, t00=0x004f, t01=0x0004}
0x7b6c…7b88 Head {h00=0x0018, h01=0x0050, text=» CF A14,RFMDUP DK4 «, t00=0x004f, t01=0x0018}
0x7b88…7bc0 Head {h00=0x0034, h01=0x0050, text=» SC A2,-1,A7 STORE CHAR IN DISPLAY OUTPUT BUFFER«, t00=0x004f, t01=0x0034}
0x7bc0…7bd2 Head {h00=0x000e, h01=0x0050, text=» RB DIS100«, t00=0x004f, t01=0x006c}
0x7bd2…7bea Head {h00=0x0014, h01=0x0050, text=»DIS200 ANK A2,6 «, t00=0x004f, t01=0x007e}
0x7bea…7c10 Head {h00=0x0022, h01=0x0050, text=» XRK A2,6 CHECK IF NONDISPLAY «, t00=0x004f, t01=0x0096}
0x7c10…7c46 Head {h00=0x0032, h01=0x0050, text=» ST A2,INTATT,TCABAS SAVE ATTRIBUTE CHARACTER «, t00=0x004f, t01=0x00bc}
0x7c46…7c68 Head {h00=0x001e, h01=0x0050, text=» RF(Z) DIS210 NON DISPLAY «, t00=0x004f, t01=0x00f2}
0x7c68…7c7a Head {h00=0x000e, h01=0x0050, text=» ANK A2,4 «, t00=0x004f, t01=0x0114}
0x7c7a…7c9e Head {h00=0x0020, h01=0x0050, text=» RF(Z) DIS205 HIGH INTENSITY«, t00=0x004f, t01=0x0126}
0x7c9e…7cc0 Head {h00=0x001e, h01=0x0050, text=» LDK A2,/1E LOW INTENSITY «, t00=0x004f, t01=0x014a}
0x7cc0…7cd2 Head {h00=0x000e, h01=0x0050, text=» RF DIS206«, t00=0x004f, t01=0x016c}
0x7cd2…7ce6 Head {h00=0x0010, h01=0x0050, text=»DIS205 EQU *«, t00=0x004f, t01=0x017e}
0x7ce6…7cfe (80, 0, 400) Head {h00=0x0014, h01=0x0050, text=» LDK A2,/1F HIGH«, t00=0x0050, t01=0x0004}
0x7cfe…7d12 Head {h00=0x0010, h01=0x0050, text=»DIS206 EQU *«, t00=0x0050, t01=0x001c}
0x7d12…7d40 Head {h00=0x002a, h01=0x0050, text=» SC A2,-1,A7 STORE INTENSITY CHARACTER«, t00=0x0050, t01=0x0030}
0x7d40…7d66 Head {h00=0x0022, h01=0x0050, text=» ADKL A10,1 INCREMENT COUNTER «, t00=0x0050, t01=0x005e}
0x7d66…7d78 Head {h00=0x000e, h01=0x0050, text=» ADK A7,1 «, t00=0x0050, t01=0x0084}
0x7d78…7d8a Head {h00=0x000e, h01=0x0050, text=» RB DIS100«, t00=0x0050, t01=0x0096}
0x7d8a…7d9e Head {h00=0x0010, h01=0x0050, text=»DIS210 EQU *«, t00=0x0050, t01=0x00a8}
0x7d9e…7db4 Head {h00=0x0012, h01=0x0050, text=» CWK A9,LLINE «, t00=0x0050, t01=0x00bc}
0x7db4…7dca Head {h00=0x0012, h01=0x0050, text=» RF(L) DIS220 «, t00=0x0050, t01=0x00d2}
0x7dca…7df2 Head {h00=0x0024, h01=0x0050, text=» CF A14,DISLIN DISPLAY THIS LINE«, t00=0x0050, t01=0x00e8}
0x7df2…7e06 Head {h00=0x0010, h01=0x0050, text=»DIS220 EQU *«, t00=0x0050, t01=0x0110}
0x7e06…7e1c Head {h00=0x0012, h01=0x0050, text=» CWK A3,LBVDU «, t00=0x0050, t01=0x0124}
0x7e1c…7e40 Head {h00=0x0020, h01=0x0050, text=» RF(NL) DIS900 ALL DISPLAYED«, t00=0x0050, t01=0x013a}
0x7e40…7e52 Head {h00=0x000e, h01=0x0050, text=» LCR A2,A4«, t00=0x0050, t01=0x015e}
0x7e52…7e5a Head {h00=0x0004, h01=0x0050, t00=0x0050, t01=0x0170}
0x7e5a…7e80 Head {h00=0x0022, h01=0x0050, text=» CF A14,SET:M SET MODIFIED BIT«, t00=0x0050, t01=0x0178}
0x7e80…7e88 Head {h00=0x0004, h01=0x0050, t00=0x0051, t01=0x000e}
0x7e88…7e9c Head {h00=0x0010, h01=0x0050, text=»DIS225 EQU *«, t00=0x0051, t01=0x0016}
0x7e9c…7ec2 Head {h00=0x0022, h01=0x0050, text=» ANK A2,/7F RESET DISPLAY BIT «, t00=0x0051, t01=0x002a}
0x7ec2…7ed4 Head {h00=0x000e, h01=0x0050, text=» SCR A2,A4«, t00=0x0051, t01=0x0050}
0x7ed4…7ee6 Head {h00=0x000e, h01=0x0050, text=» ADK A3,1 «, t00=0x0051, t01=0x0062}
0x7ee6…7ef8 Head {h00=0x000e, h01=0x0050, text=» ADK A4,1 «, t00=0x0051, t01=0x0074}
0x7ef8…7f0a Head {h00=0x000e, h01=0x0050, text=» ADK A7,1 «, t00=0x0051, t01=0x0086}
0x7f0a…7f1c Head {h00=0x000e, h01=0x0050, text=» ADKL A9,1«, t00=0x0051, t01=0x0098}
0x7f1c…7f30 Head {h00=0x0010, h01=0x0050, text=» CWK A2,/20 «, t00=0x0051, t01=0x00aa}
0x7f30…7f56 Head {h00=0x0022, h01=0x0050, text=» RB(L) DIS200 ATTRIBUTE FOUND «, t00=0x0051, t01=0x00be}
0x7f56…7f68 Head {h00=0x000e, h01=0x0050, text=» RB DIS210«, t00=0x0051, t01=0x00e4}
0x7f68…7f72 Head {h00=0x0006, h01=0x0050, text=» «, t00=0x0051, t01=0x00f6}
0x7f72…7f7c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0051, t01=0x0100}
0x7f7c…7f86 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0051, t01=0x010a}
0x7f86…7fa4 Head {h00=0x001a, h01=0x0050, text=»* POSITION THE CURSOR «, t00=0x0051, t01=0x0114}
0x7fa4…7fae Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0051, t01=0x0132}
0x7fae…7fb8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0051, t01=0x013c}
0x7fb8…7fcc Head {h00=0x0010, h01=0x0050, text=»SETCUR EQU *«, t00=0x0051, t01=0x0146}
0x7fcc…7fee Head {h00=0x001e, h01=0x0050, text=»DIS900 LDK A1,2 REQ LENGTH«, t00=0x0051, t01=0x015a}
0x7fee…800c Head {h00=0x001a, h01=0x0050, text=»DIS905 ST A1,ECBRL,A8 «, t00=0x0051, t01=0x017c}
0x800c…8036 Head {h00=0x0026, h01=0x0050, text=» LD A1,PCURS,TCABAS GET CURSOR POS«, t00=0x0052, t01=0x000a}
0x8036…8060 Head {h00=0x0026, h01=0x0050, text=» LDKL A2,/101 START ON LIN 1 POS 1«, t00=0x0052, t01=0x0034}
0x8060…8078 Head {h00=0x0014, h01=0x0050, text=» ST A2,ECBCW,A8 «, t00=0x0052, t01=0x005e}
0x8078…808e Head {h00=0x0012, h01=0x0050, text=» LDKL A2,/100 «, t00=0x0052, t01=0x0076}
0x808e…80aa Head {h00=0x0018, h01=0x0050, text=»DIS910 CWK A1,LLINE «, t00=0x0052, t01=0x008c}
0x80aa…80c0 Head {h00=0x0012, h01=0x0050, text=» RF(L) DIS920 «, t00=0x0052, t01=0x00a8}
0x80c0…80d8 Head {h00=0x0014, h01=0x0050, text=» ADS A2,ECBCW,A8«, t00=0x0052, t01=0x00be}
0x80d8…80ee Head {h00=0x0012, h01=0x0050, text=» SUKL A1,LLINE«, t00=0x0052, t01=0x00d6}
0x80ee…8100 Head {h00=0x000e, h01=0x0050, text=» RB DIS910«, t00=0x0052, t01=0x00ec}
0x8100…811e Head {h00=0x001a, h01=0x0050, text=»DIS920 ADS A1,ECBCW,A8«, t00=0x0052, t01=0x00fe}
0x811e…8146 Head {h00=0x0024, h01=0x0050, text=» LDK A7,/8B SET CURSOR AND WRITE«, t00=0x0052, t01=0x011c}
0x8146…8152 Head {h00=0x0008, h01=0x0050, text=» LKM«, t00=0x0052, t01=0x0144}
0x8152…8162 Head {h00=0x000c, h01=0x0050, text=» DATA 1 «, t00=0x0052, t01=0x0150}
0x8162…8196 Head {h00=0x0030, h01=0x0050, text=» CM INTATT,TCABAS CLEAR INTENSITY ATTRIBUTE «, t00=0x0052, t01=0x0160}
0x8196…81a6 (83, 0, 400) Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0053, t01=0x0004}
0x81a6…81b0 Head {h00=0x0006, h01=0x0050, text=» «, t00=0x0053, t01=0x0014}
0x81b0…81ba Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0053, t01=0x001e}
0x81ba…81c4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0053, t01=0x0028}
0x81c4…81f8 Head {h00=0x0030, h01=0x0050, text=»* WRITE ONE CHAR FROM A2 IN CURSOR POSITION «, t00=0x0053, t01=0x0032}
0x81f8…8202 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0053, t01=0x0066}
0x8202…820c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0053, t01=0x0070}
0x820c…8228 Head {h00=0x0018, h01=0x0050, text=»WCHAR LD A1,ECBBA,A8«, t00=0x0053, t01=0x007a}
0x8228…823e Head {h00=0x0012, h01=0x0050, text=» CF A14,RFMDUP«, t00=0x0053, t01=0x0096}
0x823e…8272 Head {h00=0x0030, h01=0x0050, text=» SC A2,3,A1 STORE CHAR IN VDU OUTPUT BUFFER «, t00=0x0053, t01=0x00ac}
0x8272…8284 Head {h00=0x000e, h01=0x0050, text=» LDK A1,4 «, t00=0x0053, t01=0x00e0}
0x8284…82a6 Head {h00=0x001e, h01=0x0050, text=» RB DIS905 REQ LENGTH = 3 «, t00=0x0053, t01=0x00f2}
0x82a6…82b0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0053, t01=0x0114}
0x82b0…82fe Head {h00=0x004a, h01=0x0050, text=»********************************************************************* «, t00=0x0053, t01=0x011e}
0x82fe…8308 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0053, t01=0x016c}
0x8308…8344 Head {h00=0x0038, h01=0x0050, text=»* REPLACE FM & DUP WITH '*' RESP. ';', IF PRESENT«, t00=0x0053, t01=0x0176}
0x8344…8362 Head {h00=0x001a, h01=0x0050, text=»* CHARACTER IN A2«, t00=0x0054, t01=0x0022}
0x8362…836c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0054, t01=0x0040}
0x836c…83ba Head {h00=0x004a, h01=0x0050, text=»********************************************************************* «, t00=0x0054, t01=0x004a}
0x83ba…83c4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0054, t01=0x0098}
0x83c4…83d8 Head {h00=0x0010, h01=0x0050, text=»RFMDUP EQU *«, t00=0x0054, t01=0x00a2}
0x83d8…83ee Head {h00=0x0012, h01=0x0050, text=» CWK A2,DUPCH «, t00=0x0054, t01=0x00b6}
0x83ee…8404 Head {h00=0x0012, h01=0x0050, text=» RF(NE) RFMD10«, t00=0x0054, t01=0x00cc}
0x8404…841c Head {h00=0x0014, h01=0x0050, text=» LDK A2,/2A DUP «, t00=0x0054, t01=0x00e2}
0x841c…8430 Head {h00=0x0010, h01=0x0050, text=»RFMD10 EQU *«, t00=0x0054, t01=0x00fa}
0x8430…8444 Head {h00=0x0010, h01=0x0050, text=» CWK A2,FMCH«, t00=0x0054, t01=0x010e}
0x8444…845a Head {h00=0x0012, h01=0x0050, text=» RF(NE) RFMD20«, t00=0x0054, t01=0x0122}
0x845a…846e Head {h00=0x0010, h01=0x0050, text=» LDK A2,/3B «, t00=0x0054, t01=0x0138}
0x846e…8482 Head {h00=0x0010, h01=0x0050, text=»RFMD20 EQU *«, t00=0x0054, t01=0x014c}
0x8482…8492 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0054, t01=0x0160}
0x8492…849c Head {h00=0x0006, h01=0x0050, text=» «, t00=0x0054, t01=0x0170}
0x849c…84a6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0054, t01=0x017a}
0x84a6…84b0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0054, t01=0x0184}
0x84b0…84dc Head {h00=0x0028, h01=0x0050, text=»* PUT SPACES TO DISPLAY LINE BUFFER «, t00=0x0054, t01=0x018e}
0x84dc…84e6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0055, t01=0x002a}
0x84e6…84f0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0055, t01=0x0034}
0x84f0…850e Head {h00=0x001a, h01=0x0050, text=»SPACES LD A7,ECBBA,A8 «, t00=0x0055, t01=0x003e}
0x850e…852e Head {h00=0x001c, h01=0x0050, text=» ADK A7,2 BUFFER ADDRESS«, t00=0x0055, t01=0x005c}
0x852e…8550 Head {h00=0x001e, h01=0x0050, text=» LDKL A9,LLINE LINE LENGTH«, t00=0x0055, t01=0x007c}
0x8550…856c Head {h00=0x0018, h01=0x0050, text=» ADR A9,A9 DOUBLE IT«, t00=0x0055, t01=0x009e}
0x856c…8588 Head {h00=0x0018, h01=0x0050, text=» LDKL A2,' ' SPACES«, t00=0x0055, t01=0x00ba}
0x8588…85a4 Head {h00=0x0018, h01=0x0050, text=»SPAC10 SCR A2,A7 =1«, t00=0x0055, t01=0x00d6}
0x85a4…85bc Head {h00=0x0014, h01=0x0050, text=» SC A2,1,A7 =1 «, t00=0x0055, t01=0x00f2}
0x85bc…85ce Head {h00=0x000e, h01=0x0050, text=» ADK A7,2 «, t00=0x0055, t01=0x010a}
0x85ce…85e0 Head {h00=0x000e, h01=0x0050, text=» SUKL A9,2«, t00=0x0055, t01=0x011c}
0x85e0…85f6 Head {h00=0x0012, h01=0x0050, text=» RB(P) SPAC10 «, t00=0x0055, t01=0x012e}
0x85f6…861e Head {h00=0x0024, h01=0x0050, text=» LDK A2,0 CLEAR A2=CHAR REGISTER«, t00=0x0055, t01=0x0144}
0x861e…8648 Head {h00=0x0026, h01=0x0050, text=» LDK A5,0 RESET MODIFIED INDICATOR«, t00=0x0055, t01=0x016c}
0x8648…8660 Head {h00=0x0014, h01=0x0050, text=» LD A7,ECBBA,A8 «, t00=0x0056, t01=0x0008}
0x8660…8680 Head {h00=0x001c, h01=0x0050, text=» ADK A7,2 BUFFER ADDRESS«, t00=0x0056, t01=0x0020}
0x8680…86aa Head {h00=0x0026, h01=0x0050, text=» SUR A9,A9 RESET LINE CHAR COUNTER«, t00=0x0056, t01=0x0040}
0x86aa…86ba Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0056, t01=0x006a}
0x86ba…86c4 Head {h00=0x0006, h01=0x0050, text=» «, t00=0x0056, t01=0x007a}
0x86c4…86ce Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0056, t01=0x0084}
0x86ce…86d8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0056, t01=0x008e}
0x86d8…8704 Head {h00=0x0028, h01=0x0050, text=»* DISPLAY LINE IF ANY MODIFICATIONS «, t00=0x0056, t01=0x0098}
0x8704…870e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0056, t01=0x00c4}
0x870e…8718 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0056, t01=0x00ce}
0x8718…8720 Head {h00=0x0004, h01=0x0050, t00=0x0056, t01=0x00d8}
0x8720…8734 Head {h00=0x0010, h01=0x0050, text=»DISLIN EQU *«, t00=0x0056, t01=0x00e0}
0x8734…8746 Head {h00=0x000e, h01=0x0050, text=» LDR A7,A5«, t00=0x0056, t01=0x00f4}
0x8746…876e Head {h00=0x0024, h01=0x0050, text=» ANK A5,/80 ANY MODIFICATIONS ??«, t00=0x0056, t01=0x0106}
0x876e…8794 Head {h00=0x0022, h01=0x0050, text=» RF(Z) DISL10 NO MODIFICATIONS«, t00=0x0056, t01=0x012e}
0x8794…87a6 Head {h00=0x000e, h01=0x0050, text=» LDK A1,2 «, t00=0x0056, t01=0x0154}
0x87a6…87d2 Head {h00=0x0028, h01=0x0050, text=» XRK A7,/A0 ONLY SPACES IN BUFFER ??«, t00=0x0056, t01=0x0166}
0x87d2…87ee (87, 0, 400) Head {h00=0x0018, h01=0x0050, text=» RF(Z) DIS:10 YES!! «, t00=0x0057, t01=0x0004}
0x87ee…8806 Head {h00=0x0014, h01=0x0050, text=» LDKL A1,LLINE+2«, t00=0x0057, t01=0x0020}
0x8806…8838 Head {h00=0x002e, h01=0x0050, text=» ADR A1,A10 ADD NR OF INTENSITY CHARACTERS«, t00=0x0057, t01=0x0038}
0x8838…884c Head {h00=0x0010, h01=0x0050, text=»DIS:10 EQU *«, t00=0x0057, t01=0x006a}
0x884c…8872 Head {h00=0x0022, h01=0x0050, text=» ST A1,ECBRL,A8 SET REQ LENGTH«, t00=0x0057, t01=0x007e}
0x8872…887a Head {h00=0x0004, h01=0x0050, t00=0x0057, t01=0x00a4}
0x887a…8882 Head {h00=0x0004, h01=0x0050, t00=0x0057, t01=0x00ac}
0x8882…88aa Head {h00=0x0024, h01=0x0050, text=» LDK A7,/8B SET CURSOR AND WRITE«, t00=0x0057, t01=0x00b4}
0x88aa…88b6 Head {h00=0x0008, h01=0x0050, text=» LKM«, t00=0x0057, t01=0x00dc}
0x88b6…88c6 Head {h00=0x000c, h01=0x0050, text=» DATA 1 «, t00=0x0057, t01=0x00e8}
0x88c6…88d0 Head {h00=0x0006, h01=0x0050, text=» «, t00=0x0057, t01=0x00f8}
0x88d0…88d8 Head {h00=0x0004, h01=0x0050, t00=0x0057, t01=0x0102}
0x88d8…8924 Head {h00=0x0048, h01=0x0050, text=»********************************************************************«, t00=0x0057, t01=0x010a}
0x8924…892e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0057, t01=0x0156}
0x892e…8962 Head {h00=0x0030, h01=0x0050, text=»* EXECUTE FAST OUTPUT TO BLANK REMAINIG PART«, t00=0x0057, t01=0x0160}
0x8962…8978 (88, 0, 400) Head {h00=0x0012, h01=0x0050, text=»* OF THE LINE «, t00=0x0058, t01=0x0004}
0x8978…8982 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0058, t01=0x001a}
0x8982…89ce Head {h00=0x0048, h01=0x0050, text=»******************************************************************* «, t00=0x0058, t01=0x0024}
0x89ce…89d6 Head {h00=0x0004, h01=0x0050, t00=0x0058, t01=0x0070}
0x89d6…89fe Head {h00=0x0024, h01=0x0050, text=» LD A1,ECBCW,A8 CURSOR POSITION «, t00=0x0058, t01=0x0078}
0x89fe…8a22 Head {h00=0x0020, h01=0x0050, text=» ANK A1,X'FF' COLUMN NUMBER «, t00=0x0058, t01=0x00a0}
0x8a22…8a48 Head {h00=0x0022, h01=0x0050, text=» SUK A1,80 LAST POSITION ? DK1«, t00=0x0058, t01=0x00c4}
0x8a48…8a80 Head {h00=0x0034, h01=0x0050, text=» RF(NL) DISL10 YES, NO FAST OUTPUT THIS LINE DK1«, t00=0x0058, t01=0x00ea}
0x8a80…8a88 Head {h00=0x0004, h01=0x0050, t00=0x0058, t01=0x0122}
0x8a88…8aae Head {h00=0x0022, h01=0x0050, text=» LD A1,ECBBA,A8 BUFFER ADRESS «, t00=0x0058, t01=0x012a}
0x8aae…8ade Head {h00=0x002c, h01=0x0050, text=» LDK A2,X'2B' DONT MOVE CURSOR ONE LINE «, t00=0x0058, t01=0x0150}
0x8ade…8af6 Head {h00=0x0014, h01=0x0050, text=» SC A2,1,A1 =1 «, t00=0x0058, t01=0x0180}
0x8af6…8b24 Head {h00=0x002a, h01=0x0050, text=» LDKL A2,X'1420' FAST OUTPUT OF SPACES«, t00=0x0059, t01=0x0008}
0x8b24…8b3c Head {h00=0x0014, h01=0x0050, text=» SC A2,3,A1 =1 «, t00=0x0059, t01=0x0036}
0x8b3c…8b52 Head {h00=0x0012, h01=0x0050, text=» SRL A2,8 =1 «, t00=0x0059, t01=0x004e}
0x8b52…8b6a Head {h00=0x0014, h01=0x0050, text=» SC A2,2,A1 =1 «, t00=0x0059, t01=0x0064}
0x8b6a…8b8e Head {h00=0x0020, h01=0x0050, text=» LDK A2,84 REQUESTED LENGTH «, t00=0x0059, t01=0x007c}
0x8b8e…8ba6 Head {h00=0x0014, h01=0x0050, text=» ST A2,ECBRL,A8 «, t00=0x0059, t01=0x00a0}
0x8ba6…8bc8 Head {h00=0x001e, h01=0x0050, text=» LDK A7,X'86' WRITE ORDER «, t00=0x0059, t01=0x00b8}
0x8bc8…8bd4 Head {h00=0x0008, h01=0x0050, text=» LKM«, t00=0x0059, t01=0x00da}
0x8bd4…8be4 Head {h00=0x000c, h01=0x0050, text=» DATA 1 «, t00=0x0059, t01=0x00e6}
0x8be4…8bec Head {h00=0x0004, h01=0x0050, t00=0x0059, t01=0x00f6}
0x8bec…8c00 Head {h00=0x0010, h01=0x0050, text=»DISL10 EQU *«, t00=0x0059, t01=0x00fe}
0x8c00…8c12 Head {h00=0x000e, h01=0x0050, text=» LDK A2,1 «, t00=0x0059, t01=0x0112}
0x8c12…8c3e Head {h00=0x0028, h01=0x0050, text=» SC A2,ECBCW+1,A8 POS 1 ON NEXT LINE«, t00=0x0059, t01=0x0124}
0x8c3e…8c54 Head {h00=0x0012, h01=0x0050, text=» LDKL A2,/100 «, t00=0x0059, t01=0x0150}
0x8c54…8c82 Head {h00=0x002a, h01=0x0050, text=» ADS A2,ECBCW,A8 INCREMENT LINE NUMBER«, t00=0x0059, t01=0x0166}
0x8c82…8caa (90, 0, 400) Head {h00=0x0024, h01=0x0050, text=» RB SPACES PUT SPACES TO BUFFER «, t00=0x005a, t01=0x0004}
0x8caa…8cb2 Head {h00=0x0004, h01=0x0050, t00=0x005a, t01=0x002c}
0x8cb2…8cbc Head {h00=0x0006, h01=0x0050, text=» «, t00=0x005a, t01=0x0034}
0x8cbc…8cc4 Head {h00=0x0004, h01=0x0050, t00=0x005a, t01=0x003e}
0x8cc4…8ccc Head {h00=0x0004, h01=0x0050, t00=0x005a, t01=0x0046}
0x8ccc…8d14 Head {h00=0x0044, h01=0x0050, text=»****************************************************************«, t00=0x005a, t01=0x004e}
0x8d14…8d1e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005a, t01=0x0096}
0x8d1e…8d60 Head {h00=0x003e, h01=0x0050, text=»* I N T C H K CHECK IF LINE SHOULD BE PRINTED WITH«, t00=0x005a, t01=0x00a0}
0x8d60…8d94 Head {h00=0x0030, h01=0x0050, text=»* HIGH OR LOW INTENSITY «, t00=0x005a, t01=0x00e2}
0x8d94…8d9e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005a, t01=0x0116}
0x8d9e…8dec Head {h00=0x004a, h01=0x0050, text=»**********************************************************************«, t00=0x005a, t01=0x0120}
0x8dec…8df4 Head {h00=0x0004, h01=0x0050, t00=0x005a, t01=0x016e}
0x8df4…8e24 Head {h00=0x002c, h01=0x0050, text=»INTCHK SUR A10,A10 RESET INTENSITY COUNT«, t00=0x005a, t01=0x0176}
0x8e24…8e58 Head {h00=0x0030, h01=0x0050, text=» LD A2,INTATT,TCABAS GET INTENSITY ATTRIBUTE«, t00=0x005b, t01=0x0016}
0x8e58…8e7a Head {h00=0x001e, h01=0x0050, text=» RF(Z) INTRTN NON DISPLAY «, t00=0x005b, t01=0x004a}
0x8e7a…8ea2 Head {h00=0x0024, h01=0x0050, text=» ANK A2,X'4' HIGH INTENSITY ??? «, t00=0x005b, t01=0x006c}
0x8ea2…8ebc Head {h00=0x0016, h01=0x0050, text=» RF(Z) INT:10 YES «, t00=0x005b, t01=0x0094}
0x8ebc…8ec4 Head {h00=0x0004, h01=0x0050, t00=0x005b, t01=0x00ae}
0x8ec4…8ee8 Head {h00=0x0020, h01=0x0050, text=» LDK A2,X'1E' LOW INTENSITY «, t00=0x005b, t01=0x00b6}
0x8ee8…8f0a Head {h00=0x001e, h01=0x0050, text=» RF INT:20 HIGH INTENSITY «, t00=0x005b, t01=0x00da}
0x8f0a…8f12 Head {h00=0x0004, h01=0x0050, t00=0x005b, t01=0x00fc}
0x8f12…8f3c Head {h00=0x0026, h01=0x0050, text=»INT:10 LDK A2,X'1F' HIGH INTENSITY«, t00=0x005b, t01=0x0104}
0x8f3c…8f44 Head {h00=0x0004, h01=0x0050, t00=0x005b, t01=0x012e}
0x8f44…8f80 Head {h00=0x0038, h01=0x0050, text=»INT:20 SCR A2,A7 SAVE INTENSITY CHARACTER IN BUFFER «, t00=0x005b, t01=0x0136}
0x8f80…8faa Head {h00=0x0026, h01=0x0050, text=» ADK A7,1 INCREMENT BUFFER POINTER«, t00=0x005b, t01=0x0172}
0x8faa…8fd8 Head {h00=0x002a, h01=0x0050, text=» ADKL A10,1 INTENSITY COUNT «, t00=0x005c, t01=0x000c}
0x8fd8…8ff6 Head {h00=0x001a, h01=0x0050, text=»INTRTN RTN A14 RETURN «, t00=0x005c, t01=0x003a}
0x8ff6…9000 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005c, t01=0x0058}
0x9000…900a Head {h00=0x0006, h01=0x0050, text=» «, t00=0x005c, t01=0x0062}
0x900a…9012 Head {h00=0x0004, h01=0x0050, t00=0x005c, t01=0x006c}
0x9012…905a Head {h00=0x0044, h01=0x0050, text=»****************************************************************«, t00=0x005c, t01=0x0074}
0x905a…9064 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005c, t01=0x00bc}
0x9064…90a8 Head {h00=0x0040, h01=0x0050, text=»* SET:M SET MODIFIED BIT IF CHARACTER HAS BEEN MODIFIED «, t00=0x005c, t01=0x00c6}
0x90a8…90b2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005c, t01=0x010a}
0x90b2…90fc Head {h00=0x0046, h01=0x0050, text=»******************************************************************«, t00=0x005c, t01=0x0114}
0x90fc…9104 Head {h00=0x0004, h01=0x0050, t00=0x005c, t01=0x015e}
0x9104…911c Head {h00=0x0014, h01=0x0050, text=»SET:M CWK A2,/20«, t00=0x005c, t01=0x0166}
0x911c…9146 Head {h00=0x0026, h01=0x0050, text=» RF(L) SET:M2 ATTRIBUTE CHARACTER «, t00=0x005c, t01=0x017e}
0x9146…915a Head {h00=0x0010, h01=0x0050, text=» CWK A2,/7F «, t00=0x005d, t01=0x0018}
0x915a…9184 Head {h00=0x0026, h01=0x0050, text=» RF(E) SET:M2 UNMODIFIED ATTRIBUTE«, t00=0x005d, t01=0x002c}
0x9184…9198 Head {h00=0x0010, h01=0x0050, text=» CWK A2,/FF «, t00=0x005d, t01=0x0056}
0x9198…91c4 Head {h00=0x0028, h01=0x0050, text=» RF(NE) SET:M1 NOT NULL OR ATTRIBUTE«, t00=0x005d, t01=0x006a}
0x91c4…91f0 Head {h00=0x0028, h01=0x0050, text=» ORK A5,/A0 MODIFIED NULL CHARACTER «, t00=0x005d, t01=0x0096}
0x91f0…9200 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x005d, t01=0x00c2}
0x9200…922a Head {h00=0x0026, h01=0x0050, text=»SET:M1 ORR A5,A2 SET MODIFIED BIT «, t00=0x005d, t01=0x00d2}
0x922a…9240 Head {h00=0x0012, h01=0x0050, text=»SET:M2 RTN A14«, t00=0x005d, t01=0x00fc}
0x9240…924c Head {h00=0x0008, h01=0x0050, text=» END«, t00=0x005d, t01=0x0112}
0x924c…9250 Head {h00=0x4004, h01=0x0000}
0x9250…9254 00 5d 01 1e ┆ ] ┆
0x9254…925c (94, 1, 8) 20 04 00 00 00 5e 00 04 ┆ ^ ┆
0x925c…92ac (95, 0, 400) 00 14 00 50 5c 4c 44 4b 4c 5c 41 38 2c 45 43 42 56 44 55 20 00 6f 00 04 00 22 00 50 5c 41 44 52 5c 41 38 2c 43 52 45 42 41 53 5c 56 44 55 2d 45 43 42 20 41 44 44 52 45 53 53 00 6f 00 1c 00 22 00 50 5c 4c 44 5c 41 32 2c 45 43 42 42 41 2c 41 ┆ P LDKL A8,ECBVDU o " P ADR A8,CREBAS VDU-ECB ADDRESS o " P LD A2,ECBBA,A┆
0x92ac…92fc 38 5c 42 55 46 46 45 52 20 41 44 44 52 45 53 53 00 6f 00 42 00 24 00 50 5c 4c 44 4b 5c 41 37 2c 58 27 32 42 27 5c 43 4f 4e 54 52 4f 4c 20 43 48 41 52 41 43 54 45 52 20 00 6f 00 68 00 10 00 50 5c 53 43 5c 41 37 2c 31 2c 41 32 20 00 6f 00 90 ┆8 BUFFER ADDRESS o B $ P LDK A7,X'2B' CONTROL CHARACTER o h P SC A7,1,A2 o ┆
0x92fc…934c 00 20 00 50 5c 4c 44 4b 5c 41 37 2c 58 27 30 37 27 5c 42 45 4c 4c 20 43 48 41 52 41 43 54 45 52 00 6f 00 a4 00 10 00 50 5c 53 43 5c 41 37 2c 32 2c 41 32 20 00 6f 00 c8 00 1e 00 50 5c 4c 44 4b 5c 41 37 2c 33 5c 52 45 51 55 45 53 54 45 44 20 ┆ P LDK A7,X'07' BELL CHARACTER o P SC A7,2,A2 o P LDK A7,3 REQUESTED ┆
0x934c…939c 4c 45 4e 47 54 48 00 6f 00 dc 00 14 00 50 5c 53 54 5c 41 37 2c 45 43 42 52 4c 2c 41 38 20 00 6f 00 fe 00 1e 00 50 5c 4c 44 4b 5c 41 37 2c 58 27 38 36 27 5c 53 4f 55 4e 44 20 41 4c 41 52 4d 20 00 6f 01 16 00 08 00 50 5c 4c 4b 4d 00 6f 01 38 ┆LENGTH o P ST A7,ECBRL,A8 o P LDK A7,X'86' SOUND ALARM o P LKM o 8┆
0x939c…93ec 00 0c 00 50 5c 44 41 54 41 5c 31 20 00 6f 01 44 00 04 00 50 00 6f 01 54 00 0c 00 50 5c 52 54 4e 5c 41 31 34 00 6f 01 5c 00 12 00 50 5c 49 46 54 5c 4b 45 59 4c 53 54 3d 31 20 00 6f 01 6c 00 06 00 50 5c 20 00 6f 01 82 00 46 00 50 2a 2a 2a 2a ┆ P DATA 1 o D P o T P RTN A14 o P IFT KEYLST=1 o l P o F P****┆
0x93ec…943c (96, 0, 400) 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 00 6f 01 8c 00 06 00 50 2a 20 00 70 00 46 00 28 00 50 ┆************************************************************** o P* p F ( P┆
0x943c…948c 2a 20 20 20 4b 45 59 20 4c 4f 43 4b 20 53 54 41 54 55 53 20 49 53 20 53 45 54 20 49 4e 20 27 4b 45 59 53 27 00 70 00 50 00 2c 00 50 2a 5c 4f 4e 20 45 4e 54 52 59 20 20 41 32 20 3d 20 4b 45 59 20 4c 4f 43 4b 20 56 41 4c 55 45 20 2f 37 30 2d ┆* KEY LOCK STATUS IS SET IN 'KEYS' p P , P* ON ENTRY A2 = KEY LOCK VALUE /70-┆
0x948c…94dc 2f 37 37 20 00 70 00 7c 00 06 00 50 2a 20 00 70 00 ac 00 46 00 50 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆/77 p | P* p F P**********************************************************┆
0x94dc…952c 2a 2a 2a 2a 2a 2a 2a 2a 00 70 00 b6 00 06 00 50 2a 20 00 70 01 00 00 0e 00 50 4b 45 59 4c 5c 45 51 55 5c 2a 00 70 01 0a 00 26 00 50 5c 53 55 4b 5c 41 32 2c 2f 37 38 5c 47 45 54 20 4e 45 47 20 4b 45 59 20 4c 4f 43 4b 20 56 41 4c 55 45 00 70 ┆******** p P* p PKEYL EQU * p & P SUK A2,/78 GET NEG KEY LOCK VALUE p┆
0x952c…957c 01 1c 00 22 00 50 5c 4c 44 5c 41 33 2c 4b 45 59 53 2c 54 43 41 42 41 53 5c 4f 4c 44 20 53 54 41 54 55 53 20 00 70 01 46 00 10 00 50 5c 4c 44 4b 5c 41 34 2c 2f 31 30 20 00 70 01 6c 00 10 00 50 4b 45 59 4c 31 30 5c 45 51 55 5c 2a 00 70 01 80 ┆ " P LD A3,KEYS,TCABAS OLD STATUS p F P LDK A4,/10 p l PKEYL10 EQU * p ┆
0x957c…95cc (97, 0, 400) 00 0e 00 50 5c 53 52 4c 5c 41 34 2c 31 20 00 71 00 04 00 1c 00 50 5c 41 44 4b 5c 41 32 2c 32 5c 31 20 3d 20 4f 46 46 2c 30 20 3d 20 4f 4e 00 71 00 16 00 12 00 50 5c 52 42 28 4e 29 5c 4b 45 59 4c 31 30 20 00 71 00 36 00 20 00 50 5c 41 4e 52 ┆ P SRL A4,1 q P ADK A2,2 1 = OFF,0 = ON q P RB(N) KEYL10 q 6 P ANR┆
0x95cc…961c 5c 41 33 2c 41 34 5c 43 48 45 43 4b 20 4f 4c 44 20 4b 45 59 20 50 4f 53 00 71 00 4c 00 1a 00 50 5c 52 46 28 4e 5a 29 5c 4b 45 59 4c 32 30 5c 57 41 53 20 4f 4e 20 00 71 00 70 00 16 00 50 5c 4c 44 52 5c 41 32 2c 41 32 5c 57 41 53 20 4f 46 46 ┆ A3,A4 CHECK OLD KEY POS q L P RF(NZ) KEYL20 WAS ON q p P LDR A2,A2 WAS OFF┆
0x961c…966c 00 71 00 8e 00 26 00 50 5c 52 46 28 4e 5a 29 5c 4b 45 59 4c 39 39 5c 4e 4f 57 20 4f 46 46 2c 20 4e 4f 20 43 48 41 4e 47 45 20 00 71 00 a8 00 16 00 50 5c 52 46 5c 4b 45 59 4c 33 30 5c 4e 4f 57 20 4f 4e 20 00 71 00 d2 00 18 00 50 4b 45 59 4c ┆ q & P RF(NZ) KEYL99 NOW OFF, NO CHANGE q P RF KEYL30 NOW ON q PKEYL┆
0x966c…96bc 32 30 5c 45 51 55 5c 2a 5c 57 41 53 20 4f 4e 20 00 71 00 ec 00 0e 00 50 5c 4c 44 52 5c 41 32 2c 41 32 00 71 01 08 00 24 00 50 5c 52 46 28 5a 29 5c 4b 45 59 4c 39 39 5c 4e 4f 57 20 4f 4e 2c 20 4e 4f 20 43 48 41 4e 47 45 20 00 71 01 1a 00 18 ┆20 EQU * WAS ON q P LDR A2,A2 q $ P RF(Z) KEYL99 NOW ON, NO CHANGE q ┆
0x96bc…970c 00 50 4b 45 59 4c 33 30 5c 45 51 55 5c 2a 20 5c 43 48 41 4e 47 45 00 71 01 42 00 16 00 50 5c 4c 44 5c 41 33 2c 4b 45 59 53 2c 54 43 41 42 41 53 00 71 01 5e 00 1c 00 50 5c 58 52 52 5c 41 33 2c 41 34 5c 43 48 41 4e 47 45 20 53 54 41 54 55 53 ┆ PKEYL30 EQU * CHANGE q B P LD A3,KEYS,TCABAS q ^ P XRR A3,A4 CHANGE STATUS┆
0x970c…975c (98, 0, 400) 00 71 01 78 00 28 00 50 5c 53 54 5c 41 33 2c 4b 45 59 53 2c 54 43 41 42 41 53 5c 53 54 4f 52 45 20 4e 45 57 20 53 54 41 54 55 53 20 00 72 00 08 00 06 00 50 2a 20 00 72 00 34 00 1c 00 50 2a 20 4b 45 59 4c 4f 43 4b 20 53 54 41 54 55 53 20 43 ┆ q x ( P ST A3,KEYS,TCABAS STORE NEW STATUS r P* r 4 P* KEYLOCK STATUS C┆
0x975c…97ac 48 41 4e 47 45 44 00 72 00 3e 00 4a 00 50 2a 20 20 20 41 33 20 3d 20 4e 45 57 20 53 54 41 54 55 53 2c 20 52 49 47 48 54 4d 4f 53 54 20 42 49 54 20 3d 20 52 49 47 48 54 4d 4f 53 54 20 4c 4f 43 4b 2c 20 42 49 54 20 4f 4e 20 3d 20 4c 4f 43 4b ┆HANGED r > J P* A3 = NEW STATUS, RIGHTMOST BIT = RIGHTMOST LOCK, BIT ON = LOCK┆
0x97ac…97fc 20 4f 4e 20 00 72 00 5e 00 2a 00 50 2a 20 20 20 41 34 20 3d 20 4b 45 59 4c 4f 43 4b 20 43 48 41 4e 47 45 44 2c 20 4c 41 59 4f 55 54 20 41 53 20 41 33 00 72 00 ac 00 28 00 50 2a 20 20 20 41 32 20 3d 20 31 2c 20 49 46 20 43 48 41 4e 47 45 44 ┆ ON r ^ * P* A4 = KEYLOCK CHANGED, LAYOUT AS A3 r ( P* A2 = 1, IF CHANGED┆
0x97fc…984c 20 54 4f 20 4f 46 46 20 45 4c 53 45 20 30 00 72 00 da 00 06 00 50 2a 20 00 72 01 06 00 2a 00 50 2a 20 49 4e 53 45 52 54 20 55 53 45 52 20 52 4f 55 54 49 4e 45 20 42 45 4c 4f 57 20 54 48 49 53 20 4c 49 4e 45 20 00 72 01 10 00 06 00 50 2a 20 ┆ TO OFF ELSE 0 r P* r * P* INSERT USER ROUTINE BELOW THIS LINE r P* ┆
0x984c…989c 00 72 01 3e 00 10 00 50 4b 45 59 4c 39 39 5c 45 51 55 5c 2a 00 72 01 48 00 0c 00 50 5c 52 54 4e 5c 41 31 34 00 72 01 5c 00 08 00 50 5c 58 49 46 00 72 01 6c 00 06 00 50 5c 20 00 72 01 78 00 06 00 50 2a 20 00 72 01 82 00 3c 00 50 2a 2a 2a 2a ┆ r > PKEYL99 EQU * r H P RTN A14 r P XIF r l P r x P* r < P****┆
0x989c…98ec (99, 0, 400) 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 00 72 01 8c 00 06 00 50 2a 20 00 73 00 3c 00 10 00 50 2a 5c 4c 41 4d 50 4d 4f 44 55 ┆**************************************************** r P* s < P* LAMPMODU┆
0x98ec…993c 4c 45 00 73 00 46 00 06 00 50 2a 20 00 73 00 5a 00 06 00 50 2a 20 00 73 00 64 00 3c 00 50 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆LE s F P* s Z P* s d < P**************************************************┆
0x993c…998c 2a 2a 2a 2a 2a 2a 00 73 00 6e 00 06 00 50 2a 20 00 73 00 ae 00 10 00 50 4c 4f 4e 5c 45 51 55 5c 2f 42 37 20 00 73 00 b8 00 10 00 50 4c 4f 46 5c 45 51 55 5c 2f 42 38 20 00 73 00 cc 00 12 00 50 5c 49 46 54 5c 4b 42 36 32 37 32 3d 31 20 00 73 ┆****** s n P* s PLON EQU /B7 s PLOF EQU /B8 s P IFT KB6272=1 s┆
0x998c…99dc 00 e0 00 10 00 50 4c 4d 46 31 5c 45 51 55 5c 2f 32 30 00 73 00 f6 00 10 00 50 4c 4d 46 32 5c 45 51 55 5c 2f 31 30 00 73 01 0a 00 14 00 50 4c 49 4f 4c 5c 45 51 55 5c 31 5c 5c 44 4b 32 20 00 73 01 1e 00 14 00 50 4c 49 4e 48 5c 45 51 55 5c 38 ┆ PLMF1 EQU /20 s PLMF2 EQU /10 s PLIOL EQU 1 DK2 s PLINH EQU 8┆
0x99dc…9a2c 5c 5c 44 4b 32 20 00 73 01 36 00 14 00 50 4c 45 52 52 5c 45 51 55 5c 34 5c 5c 44 4b 32 20 00 73 01 4e 00 16 00 50 4c 53 41 56 5c 45 51 55 5c 2f 31 30 5c 5c 44 4b 32 20 00 73 01 66 00 08 00 50 5c 58 49 46 00 73 01 80 00 12 00 50 5c 49 46 46 ┆ DK2 s 6 PLERR EQU 4 DK2 s N PLSAV EQU /10 DK2 s f P XIF s P IFF┆
0x9a2c…9a7c (100, 0, 400) 5c 4b 42 36 32 37 32 3d 31 20 00 73 01 8c 00 12 00 50 4c 4d 46 31 5c 45 51 55 5c 30 5c 5c 3d 32 00 74 00 12 00 12 00 50 4c 4d 46 32 5c 45 51 55 5c 30 5c 5c 3d 32 00 74 00 28 00 12 00 50 4c 49 4f 4c 5c 45 51 55 5c 31 5c 5c 3d 32 00 74 00 3e ┆ KB6272=1 s PLMF1 EQU 0 =2 t PLMF2 EQU 0 =2 t ( PLIOL EQU 1 =2 t >┆
0x9a7c…9acc 00 12 00 50 4c 49 4e 48 5c 45 51 55 5c 32 5c 5c 3d 32 00 74 00 54 00 12 00 50 4c 45 52 52 5c 45 51 55 5c 34 5c 5c 3d 32 00 74 00 6a 00 12 00 50 4c 53 41 56 5c 45 51 55 5c 38 5c 5c 3d 32 00 74 00 80 00 08 00 50 5c 58 49 46 00 74 00 96 00 16 ┆ PLINH EQU 2 =2 t T PLERR EQU 4 =2 t j PLSAV EQU 8 =2 t P XIF t ┆
0x9acc…9b1c 00 50 4c 4d 46 31 4f 4e 5c 4c 44 4b 5c 41 33 2c 4c 4d 46 31 00 74 00 a2 00 0e 00 50 5c 52 46 5c 4c 4d 50 4f 4e 20 00 74 00 bc 00 16 00 50 4c 4d 46 31 4f 46 5c 4c 44 4b 5c 41 33 2c 4c 4d 46 31 00 74 00 ce 00 0e 00 50 5c 52 46 5c 4c 4d 50 4f ┆ PLMF1ON LDK A3,LMF1 t P RF LMPON t PLMF1OF LDK A3,LMF1 t P RF LMPO┆
0x9b1c…9b6c 46 20 00 74 00 e8 00 16 00 50 4c 4d 46 32 4f 4e 5c 4c 44 4b 5c 41 33 2c 4c 4d 46 32 00 74 00 fa 00 0e 00 50 5c 52 46 5c 4c 4d 50 4f 4e 20 00 74 01 14 00 16 00 50 4c 4d 46 32 4f 46 5c 4c 44 4b 5c 41 33 2c 4c 4d 46 32 00 74 01 26 00 0e 00 50 ┆F t PLMF2ON LDK A3,LMF2 t P RF LMPON t PLMF2OF LDK A3,LMF2 t & P┆
0x9b6c…9bbc 5c 52 46 5c 4c 4d 50 4f 46 20 00 74 01 40 00 16 00 50 4c 49 4f 4c 4f 4e 5c 4c 44 4b 5c 41 33 2c 4c 49 4f 4c 00 74 01 52 00 0e 00 50 5c 52 46 5c 4c 4d 50 4f 4e 20 00 74 01 6c 00 16 00 50 4c 49 4f 4c 4f 46 5c 4c 44 4b 5c 41 33 2c 4c 49 4f 4c ┆ RF LMPOF t @ PLIOLON LDK A3,LIOL t R P RF LMPON t l PLIOLOF LDK A3,LIOL┆