|
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: 39900 (0x9bdc)
Notes: pts_type(SC)
Names: »VDUPRT.SC«
└─⟦9ad21746d⟧ Bits:30009682 Philips computer tape "600304"
└─⟦this⟧ »NJ-AMT/VDUPRT.SC«
IDENT VDUPRT 2.1DK 4 79-10-20 870150540210 =DK4 - RFMDUP =DK3, EUA =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 ****************************************************************** * * V D U P R T : MODULE HANDLING MESSAGES COMING FROM * MAIN FRAME, AND DISPLAYING THEM ON * THE VDU ( PTS 6344 ) . * ******************************************************************** * * EJECT * * * ENTRIES * * ENTRY TRPF TRANSMIT, PROGRAM FUNCTION ENTRY TRPA TRANSMIT, PROGRAM ATTENTION ENTRY ERASE ERASE ENTIRE SCREEN ENTRY SETCUR CURSOR POSITIONING ENTRY ERASUP ERASE ALL UNPROTECTED ENTRY DISPL DISPLAY MODIFIED DATA ENTRY ERASUA ERASE UNPROTECTED TO ADDRESS ENTRY WCHAR WRITE ONE CHAR IN CURSOR POS ENTRY UPDATE ENTRY RFMDUP REPLACE FM & DUP ENTRY DCINP ENTRY RLRBUF ENTRY DCGETM ENTRY GTRBUF * * * EXTERNALS * * EXTRN LINHON,LINHOF START EXTRN LSAVON,LSAVOF START EXTRN ATMASB EXTRN EMULA EXTRN REQTIM EXTRN ICWRTE * EXTRN SNBUSY PRT * EXTRN I:EVA0 CREDIT EVALUATION TABLE * EXTRN TASCII,TEBCDI TB3270 EJECT * **************************************************************** * * CONDITIONAL ASSEMBLY PARAMETERS * ********************************************** OFLIN EQU 1 OFFLINE HANDLING POSSIBLE IF ::= 1 DCLIN EQU 1 NUMBER OF MAIN FRAMES (1-2) RBUFL EQU 1150 RECEIVE BUFFER LENGTH IN WORDS RBUFNR EQU 2 NUMBER OF RECEIVE BUFFERS (1-5) TBUFL EQU 1150 TRANSMIT BUFFER LENGTH IN WORDS TBUFNR EQU 2 NUMBER OF TRANSMIT BUFFERS (1-5) COPCMD EQU 1 COPY COMMAND (ONLY TO PRINTER) IF := 1 EBCDIC EQU 0 ASCII = 0,EBCDIC = 1 * * EQUATES * * TIMDC EQU 600 DC TIME OUT VALUE: 60 S DK2 ESC EQU /1B SBA EQU /11 NULL EQU /7F NULL CHARACTER NEWLIN EQU /7E NEW LINE CHARACTER ENDMES EQU /7D END MESSAGE CHAR FORMFD EQU /7C FORM FEED CHAR DUPCH EQU /7B FMCH EQU /60 EJECT * * * 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 EJECT * * * 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 EJECT * * 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 * EJECT **************************************************************** * * INPUT FROM DC * **************************************************** * * RELATIVE POS IN ECBBLK KB EQU 2 DC1 EQU 4 DC2 EQU 6 * DCINP EQU * CF A14,GTRBUF GET RECEIVE BUFFER LD A8,ECBDCC,TCABAS CF A14,DCGETM READ MESSAGE IFF DCLIN=2 CM ECBBLK+DC1,TCABAS XIF IFT DCLIN=2 LD A1,MAIN,TCABAS CW A8,ECBBLK+DC2,TCABAS RF(E) DCIN20 MF # 2 CM ECBBLK+DC1,TCABAS LDR A1,A1 RF(NZ) DCIN90 WRONG MF RF DCIN30 DCIN20 EQU * CM ECBBLK+DC2,TCABAS LDR A1,A1 RF(Z) DCIN90 WRONG MF XIF DCIN30 EQU * IFT OFLIN=1 LD A1,OFFFLG,TCABAS RF(NZ) DCIN90 XIF LD A1,ECBEL,A8 EFFECTIVE DC-LENGTH ST A1,DCLENG,TCABAS LD A5,KBINH,TCABAS ORK A5,3 BIT 14,15:= 1. TOTALLY DISABLED * KEYBOARD. BIT 15 = 0 AFTER DISPLAYING. ST A5,KBINH,TCABAS CF A14,LINHON TURN ON 'KEYBOARD INHIBIT' CF A14,LSAVON TURN ON "SYSTEM AVAILABLE" CF A14,UPDATE CF A14,DISPL LD A2,PCURS,TCABAS CF A14,ATMASB * LD A2,KBINH,TCABAS ANK A2,1 BIT 15 = 0? RF(Z) DCIN60 LD A2,KBINH,TCABAS ANK A2,/E BIT 15:=0 KEYBOARD NOT TOTALLY * INHIBITED ANY LONGER ST A2,KBINH,TCABAS LD A2,WCC,TCABAS ANK A2,2 RF(Z) DCIN95 DCIN60 EQU * CF A14,LINHOF TURN OFF 'KEYBOARD INHIBIT' LD A2,KBINH,TCABAS ANK A2,4 BITS 14,15:=0 RESTORE KEYBOARD ST A2,KBINH,TCABAS RF DCIN95 DCIN90 EQU * LD A8,ECBDCC,TCABAS LD A4,ECBBA,A8 CF A14,RLRBUF DCIN95 EQU * CF A14,SNBUSY RTN A14 EJECT * * 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 EJECT ********************************************************** * * 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 EJECT * * * 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 EJECT * * * 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 EJECT * * * WRITE MESSAGE TO MAIN FRAME * * ON EXIT A1 CONTAINS RETURN CODE * * DCWRTE EQU * LDKL A8,ECBDC IFT DCLIN=2 LD A7,MAIN,TCABAS RF(Z) DC050 LDKL A8,ECBDC2 XIF DC050 EQU * ADR A8,CREBAS LDKL A1,TIMDC CF A14,REQTIM ST A9,ECBRL,A8 REQ LENGTH ST A12,ECBBA,A8 BUFFER ADDRESS LD A7,KBINH,TCABAS ORK A7,2 BIT 14 :=1 DISABLE KEYBOARD.RESET ALLOWED ST A7,KBINH,TCABAS LDK A7,/86 DC100 EQU * LKM DATA 1 DC200 EQU * LDR A4,A12 CF A14,RLWBUF LD A1,ECBRC,A8 GET RETURN CODE RF(Z) DC300 LD A7,KBINH,TCABAS ANK A7,/D BIT 14:=0 ALLIWE KEYBOARD ST A7,KBINH,TCABAS CF A14,LINHOF TURN OFF "KEYBOARD INHIBIT CF A14,LSAVOF TURN OFF "SYSTEM AVAILABLE" * LDK A7,/04 RESET KEYBOARD ECB BUFFER LDKL A8,ECBKB ADR A8,CREBAS LKM DATA 1 * RTN A14 DC300 EQU * CF A14,LSAVON TURN ON 'SYSTEM AVAILABLE' RTN A14 EJECT * * * 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 EJECT * * * GET MODIFIED DATA FROM DISPLAY IMAGE BUFFER * * A3=BUFFER POSITION BINARY * A4=BUFFER POINTER * * RDMOD LDK A3,0 RESET POSITION LDKL A4,BVDU ADR A4,TCABAS BUFFER POINTER ************************************************************ ADKL A4,1919 LAST SCREEN POSITION LCR A2,A4 GET CHARACTER LDKL A4,BVDU RELOAD FIRST BUFFER POSITION ADR A4,TCABAS LDR A1,A2 ANK A1,/60 ATTRIBUTE ??? RF(Z) RD200 YES!!! ************************************************************ RD100 CWK A3,LBVDU RF(NL) RDMODE ALL EXAMINED LCR A2,A4 GET CHAR ADK A3,1 ADK A4,1 ************************************************************ RD105 EQU * ************************************************************ LDR A1,A2 ANK A1,/60 RF(Z) RD200 ATTRIBUTE CHAR RD110 CWK A2,NULL RB(E) RD100 DON'T STORE NULL CF A14,PDCCH STORE CHAR IN DC BUFFER RB RD100 RD200 ANK A2,1 CHECK MDT BIT RF(NZ) RD300 MODIFIED FIELD RD210 CWK A3,LBVDU RF(NL) RDMODE ALL EXAMINED LCR A2,A4 ADK A3,1 ADK A4,1 LDR A1,A2 ANK A1,/60 RB(NZ) RD210 NO ATTRIBUTE CHAR ******************************************************** 78-05-11 CWK A3,LBVDU ALL BUFFER EXAMINED ??? RF(NL) RDMODE YES!! ******************************************************** 78-05-11 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 EJECT * * * 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 EJECT * * 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 EJECT * * * 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 * ******************************************* 78-08-15 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 * ******************************************* 78-08-15 CWK A2,/1D RF(E) UPD320 START FIELD CWK A2,/11 RF(E) UPD340 SET BUFFER ADDRESS CWK A2,/13 RF(E) UPD360 INSERT CURSOR CWK A2,/09 RF(E) UPD400 PROGRAM TAB CWK A2,/14 RF(E) UPD500 REPEAT TO ADDRESS CWK A2,/12 RF(E) UPD540 ERASE UNPROTECTED TO ADDRESS CWK A2,/0C RF(NE) UPD305 LDK A2,FORMFD FORM FEED RB UPD230 UPD305 CWK A2,/19 RF(NE) UPD310 LDK A2,ENDMES END MESSAGE RB UPD230 UPD310 EQU * CWK A2,/0A RF(NE) UPD315 LDK A2,NEWLIN NEW LINE RB UPD230 UPD315 EQU * CWK A2,/18 RF(NE) UPD318 ILLEGAL ORDER LDK A2,/30 RB UPD230 EJECT UPD318 EQU * CWK A2,/00 NULL CHARACTER ??? RF(NE) UPDEND NO!! ILLEGAL ORDER LDK A2,/7F PTS NULL CHARACTER RB UPD230 ************************************************************ * * RELEASE RECEIVE BUFFER * ************************************* UPDEND EQU * LD A8,ECBDCC,TCABAS LD A4,ECBBA,A8 CF A14,RLRBUF RTN A14 EJECT * * * START FIELD ORDER * UPD320 CF A14,GDCCH GET ATTRIBUTE CHAR LC A2,TEBCDI,A2 LDR A1,A2 COMPOSE PTS ATTRIBUTE CHAR ANK A1,1 SRL A2,1 ANK A2,/1E ORR A2,A1 RB UPD240 * * SET BUFFER ADDRESS * UPD340 CF A14,GETADR GET ADDRESS CWK A1,LBVDU RB(NL) UPDEND INVALID ADDRESS LDR A3,A1 LDR A4,A3 ADKL A4,BVDU ADR A4,TCABAS RB UPD220 * * INSERT CURSOR * UPD360 ST A3,PCURS,TCABAS SET NEW CURSOR POS LDK A5,1 INDICATE WCC, IC OR RA RB UPD220 EJECT * * PROGRAM TAB * UPD400 LDR A5,A5 RF(NZ) UPD430 PT AFTER WCC, IC OR RA LDK A1,NULL+/80 FILL CURRENT FIELD BY NULLS UPD410 EQU * LDK A5,0 CWK A3,LBVDU RB(NL) UPD210 END OF BUFFER LCR A2,A4 ADK A3,1 ANK A2,/7F CWK A2,/20 RF(L) UPD415 SCR A1,A4 STORE NULL ADK A4,1 RB UPD410 UPD415 EQU * ADK A4,1 UPD420 ANK A2,/10 RB(Z) UPD220 UNPROTECTED FIELD UPD430 EQU * LDK A5,0 CWK A3,LBVDU ABL(NL) UPD210 END OF DISPLAY BUFFER LCR A2,A4 ADK A3,1 ADK A4,1 ANK A2,/7F CWK A2,/20 RB(L) UPD420 RB UPD430 EJECT * * 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 **************************************************** 78-07-02 CWR A3,A1 NULLS TO ALL SCREEN POSITIONS ???? RF(E) UPD530 YES!!! ***************************************************** 78-07-02 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 ******************************************************* 78-07-02 UPD530 EQU * ***************************************************** 78-07-02 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 EJECT * * 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 EJECT * * * 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 EJECT * * * 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 EJECT * * * ERASE ALL UNPROTECTED * * ERASUP LDK A2,2 ST A2,WCC,TCABAS SET KEYBOARD RESTORE BIT SUR A1,A1 INDICATE ATT IN LAST SCREEN POS DK LDK A3,0 LDKL A4,BVDU ADR A4,TCABAS CM PCURS,TCABAS FIND FIRST UNPROTECTED POS ******************************************************************** LC A2,1919,A4 GET LAST SCREEN CHARACTER ANK A2,/7F CWK A2,/20 ATTRIBUTE ??? RF(L) ERU:01 YES!! WE GOT IT!! LDK A1,1 ATTRIBUTE NOT IN LAST SCREEN POS. ******************************************************** ERASU1 CWK A3,LBVDU RF(NL) ERASU2 LCR A2,A4 GET CHAR ANK A2,/7F ADK A3,1 ADK A4,1 CWK A2,/20 RB(NL) ERASU1 NO ATTRIBUTE ERU:01 EQU * ANK A2,/10 RB(NZ) ERASU1 PROTECTED ST A3,PCURS,TCABAS SET NEW CURSOR POS LDR A1,A1 RF(Z) ERASU3 ATTRIBUTE IN LAST SCREEN POS. ERASU2 LDK A3,0 LDKL A4,BVDU ADR A4,TCABAS RF ERASU4 ERASU3 EQU * LDR A3,A3 RF(Z) ERASU4 UNPROTECTED ATT. IN LAST SCREEN POS. SUK A3,1 GET BACK TO ATTRIBUTE SUK A4,1 - " - ERASU4 EQU * LDKL A1,/0F00 (LDK A1,0) DK3 LDK A6,NULL+/80 ERASE CHAR RF ERAS35 EJECT * * * ERASE UNPROTECTED TO ADDRESS GIVEN IN A1 * * ERASUA LDK A6,NULL+/80 ERASE CHARACTER ******************* 78-09-11 CWK A3,LBVDU WRAP AROUND ??? RF(L) ERAS:1 NO!! LDK A3,0 BUFFERINDEX LDKL A4,BVDU ADR A4,TCABAS ABSOLUTE BUFFER ADDRESS ERAS:1 LDR A3,A3 START IN FIRST SCREEN POSITION ??? RF(NZ) ERAS35 NO!! LC A2,1919,A4 LAST BUFFER CHARACTER ANK A2,/7F CWK A2,/20 ATTRIBUTE CHARACTER ??? RF(NL) ERAS35 NO!!! ANK A2,/10 RF(NZ) ERAS70 PROTECTED FIELD * LC A2,1919,A4 DK3 * ANK A2,/FE DK3 * SC A2,1919,A4 RESET MDT BIT DK3 RF ERAS35 ******************** 78-09-11 ERAS30 CWK A3,LBVDU RF(L) ERAS33 NOT END OF SCREEN LDK A3,0 LDKL A4,BVDU WRAP AROUND ADR A4,TCABAS ERAS33 EQU * CWK A1,/0F00 EUA COMMAND? DK3 RF(L) ERAS34 NO, EUA ORDER DK3 CWK A3,0 FINISHED EUA COMMAND? DK3 RF(NZ) ERAS35 NO, CONTINUE DK3 LDK A1,0 YES FINISHED DK3 RB ERAEND DK3 ERAS34 EQU * DK3 CWR A3,A1 RB(E) ERAEND ALL UNPROTECTED ERASED ERAS35 LCR A2,A4 GET CHAR FROM VDU BUFFER ANK A2,/7F CWK A2,/20 RF(L) ERAS50 ATTRIBUTE CHAR XRK A2,NULL RF(Z) ERAS40 ALREADY NULL SCR A6,A4 STORE MODIFIED NULL ERAS40 ADK A3,1 ADK A4,1 RB ERAS30 ERAS50 ADK A3,1 ADK A4,1 ANK A2,/10 RF(NZ) ERAS60 PROTECTED FIELD CWK A1,/0F00 EUA COMMAND? DK3 RB(L) ERAS30 NO DK3 * EUA COMMAND: RESET MDT BIT DK3 LC A2,-1,A4 ANK A2,/FE RESET MDT BIT SC A2,-1,A4 RB ERAS30 ERAS60 CWK A3,LBVDU RF(L) ERAS65 LDK A3,0 LDKL A4,BVDU WRAP AROUND ADR A4,TCABAS ERAS65 EQU * CWK A1,/0F00 EUA COMMAND? DK3 RF(L) ERAS67 NO, EUA ORDER DK3 CWK A3,0 FINISHED EUA COMMAND? DK3 RF(NZ) ERAS70 NO,CONTINUE DK3 LDK A1,0 YYES, FINSHED DK3 RB ERAEND DK3 ERAS67 EQU * DK3 CWR A3,A1 RB(E) ERAEND ALL UNPROTECTED ERASED ERAS70 EQU * LCR A2,A4 ANK A2,/7F CWK A2,/20 RB(L) ERAS50 ATTRIBUTE FOUND ADK A3,1 ADK A4,1 RB ERAS60 EJECT * * * 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 EJECT * * * 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 EJECT * * * 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 ************************************************ 78-08-15 CF A14,SET:M SET MODIFIED BIT ************************************************ 78-08-15 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 ************************************************* 78-08-15 CF A14,SET:M SET MODIFIED BIT ************************************************ 78-08-15 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 EJECT * * * 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 EJECT * * * 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 EJECT * * * 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 EJECT * * * DISPLAY LINE IF ANY MODIFICATIONS * * ************************************************* 78-08-15 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 * *********************************************** 78-08-15 ST A1,ECBRL,A8 SET REQ LENGTH LDK A7,/8B SET CURSOR AND WRITE LKM DATA 1 EJECT ******************************************************************** * * EXECUTE FAST OUTPUT TO BLANK REMAINIG PART * OF THE LINE * ******************************************************************* LD A1,ECBCW,A8 CURSOR POSITION ANK A1,X'FF' COLUMN NUMBER * SUK A1,81 LAST POSITION ??? DK SUK A1,80 LAST POSITION ? DK * RF(Z) DISL10 YES!! NO FAST OUTPUT THIS LINE DK RF(NL) DISL10 YES, NO FAST OUTPUT THIS LINE DK 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 EJECT **************************************************************** * * 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 * EJECT **************************************************************** * * SET:M SET MODIFIED BIT IF CHARACTER HAS BEEN MODIFIED * ****************************************************************** SET:M CWK A2,/20 RF(L) SET:M2 ATTRIBUTE CHARACTER CWK A2,/7F RF(E) SET:M2 UNMODIFIED ATTRIBUTE CWK A2,/FF RF(NE) SET:M1 NOT NULL OR ATTRIBUTE ORK A5,/A0 MODIFIED NULL CHARACTER RTN A14 SET:M1 ORR A5,A2 SET MODIFIED BIT SET:M2 RTN A14 END
0x0000…0036 (0, 0, 400) Head {h00=0x0032, h01=0x0050, text=» IDENT VDUPRT 2.1DK 4 79-10-20 870150540210 «, t00=0x0000, t01=0x0004}
0x0036…003e Head {h00=0x0004, h01=0x0050, t00=0x0000, t01=0x003a}
0x003e…0056 Head {h00=0x0014, h01=0x0050, text=» =DK4 - RFMDUP«, t00=0x0000, t01=0x0042}
0x0056…006a Head {h00=0x0010, h01=0x0050, text=» =DK3, EUA«, t00=0x0000, t01=0x005a}
0x006a…008a Head {h00=0x001c, h01=0x0050, text=» =1,ODD BUFFER ADDRESS«, t00=0x0000, t01=0x006e}
0x008a…00a6 Head {h00=0x0018, h01=0x0050, text=» REL 2.1 79-05-23 «, t00=0x0000, t01=0x008e}
0x00a6…00c2 Head {h00=0x0018, h01=0x0050, text=» =2,KEYBOARD LAMPS«, t00=0x0000, t01=0x00aa}
0x00c2…00de Head {h00=0x0018, h01=0x0050, text=» REL 2.1 79-05-23 «, t00=0x0000, t01=0x00c6}
0x00de…0104 Head {h00=0x0022, h01=0x0050, text=» =3, TRANSMIT BUFFER LENGTH «, t00=0x0000, t01=0x00e2}
0x0104…0120 Head {h00=0x0018, h01=0x0050, text=» REL 2.1 79-05-23 «, t00=0x0000, t01=0x0108}
0x0120…016a Head {h00=0x0046, h01=0x0050, text=»******************************************************************«, t00=0x0000, t01=0x0124}
0x016a…0174 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x016e}
0x0174…01b4 Head {h00=0x003c, h01=0x0050, text=»* V D U P R T : MODULE HANDLING MESSAGES COMING FROM«, t00=0x0000, t01=0x0178}
0x01b4…01f2 Head {h00=0x003a, h01=0x0050, text=»* MAIN FRAME, AND DISPLAYING THEM ON«, t00=0x0001, t01=0x0028}
0x01f2…0224 Head {h00=0x002e, h01=0x0050, text=»* THE VDU ( PTS 6344 ) .«, t00=0x0001, t01=0x0066}
0x0224…022e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x0098}
0x022e…027a Head {h00=0x0048, h01=0x0050, text=»********************************************************************«, t00=0x0001, t01=0x00a2}
0x027a…0284 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x00ee}
0x0284…028e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x00f8}
0x028e…029c Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0001, t01=0x0102}
0x029c…02a6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x0110}
0x02a6…02b0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x011a}
0x02b0…02c2 Head {h00=0x000e, h01=0x0050, text=»* ENTRIES «, t00=0x0001, t01=0x0124}
0x02c2…02cc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x0136}
0x02cc…02d6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x0140}
0x02d6…0304 Head {h00=0x002a, h01=0x0050, text=» ENTRY TRPF TRANSMIT, PROGRAM FUNCTION«, t00=0x0001, t01=0x014a}
0x0304…0334 Head {h00=0x002c, h01=0x0050, text=» ENTRY TRPA TRANSMIT, PROGRAM ATTENTION «, t00=0x0001, t01=0x0178}
0x0334…035c Head {h00=0x0024, h01=0x0050, text=» ENTRY ERASE ERASE ENTIRE SCREEN«, t00=0x0002, t01=0x0018}
0x035c…0384 Head {h00=0x0024, h01=0x0050, text=» ENTRY SETCUR CURSOR POSITIONING«, t00=0x0002, t01=0x0040}
0x0384…03b0 Head {h00=0x0028, h01=0x0050, text=» ENTRY ERASUP ERASE ALL UNPROTECTED «, t00=0x0002, t01=0x0068}
0x03b0…03da Head {h00=0x0026, h01=0x0050, text=» ENTRY DISPL DISPLAY MODIFIED DATA«, t00=0x0002, t01=0x0094}
0x03da…040c Head {h00=0x002e, h01=0x0050, text=» ENTRY ERASUA ERASE UNPROTECTED TO ADDRESS«, t00=0x0002, t01=0x00be}
0x040c…043e Head {h00=0x002e, h01=0x0050, text=» ENTRY WCHAR WRITE ONE CHAR IN CURSOR POS «, t00=0x0002, t01=0x00f0}
0x043e…0454 Head {h00=0x0012, h01=0x0050, text=» ENTRY UPDATE «, t00=0x0002, t01=0x0122}
0x0454…047a Head {h00=0x0022, h01=0x0050, text=» ENTRY RFMDUP REPLACE FM & DUP«, t00=0x0002, t01=0x0138}
0x047a…048e Head {h00=0x0010, h01=0x0050, text=» ENTRY DCINP«, t00=0x0002, t01=0x015e}
0x048e…04a4 Head {h00=0x0012, h01=0x0050, text=» ENTRY RLRBUF «, t00=0x0002, t01=0x0172}
0x04a4…04ba Head {h00=0x0012, h01=0x0050, text=» ENTRY DCGETM «, t00=0x0002, t01=0x0188}
0x04ba…04d0 Head {h00=0x0012, h01=0x0050, text=» ENTRY GTRBUF «, t00=0x0003, t01=0x000e}
0x04d0…04da Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x0024}
0x04da…04e4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x002e}
0x04e4…04f8 Head {h00=0x0010, h01=0x0050, text=»* EXTERNALS «, t00=0x0003, t01=0x0038}
0x04f8…0502 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x004c}
0x0502…050c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x0056}
0x050c…052e Head {h00=0x001e, h01=0x0050, text=» EXTRN LINHON,LINHOF START«, t00=0x0003, t01=0x0060}
0x052e…0550 Head {h00=0x001e, h01=0x0050, text=» EXTRN LSAVON,LSAVOF START«, t00=0x0003, t01=0x0082}
0x0550…0566 Head {h00=0x0012, h01=0x0050, text=» EXTRN ATMASB «, t00=0x0003, t01=0x00a4}
0x0566…057a Head {h00=0x0010, h01=0x0050, text=» EXTRN EMULA«, t00=0x0003, t01=0x00ba}
0x057a…0590 Head {h00=0x0012, h01=0x0050, text=» EXTRN REQTIM «, t00=0x0003, t01=0x00ce}
0x0590…05a6 Head {h00=0x0012, h01=0x0050, text=» EXTRN ICWRTE «, t00=0x0003, t01=0x00e4}
0x05a6…05b0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x00fa}
0x05b0…05ca Head {h00=0x0016, h01=0x0050, text=» EXTRN SNBUSY PRT «, t00=0x0003, t01=0x0104}
0x05ca…05d4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x011e}
0x05d4…0602 Head {h00=0x002a, h01=0x0050, text=» EXTRN I:EVA0 CREDIT EVALUATION TABLE «, t00=0x0003, t01=0x0128}
0x0602…060c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x0156}
0x060c…0630 Head {h00=0x0020, h01=0x0050, text=» EXTRN TASCII,TEBCDI TB3270 «, t00=0x0003, t01=0x0160}
0x0630…063e Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0003, t01=0x0184}
0x063e…0648 (4, 0, 400) Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x0004}
0x0648…0690 Head {h00=0x0044, h01=0x0050, text=»****************************************************************«, t00=0x0004, t01=0x000e}
0x0690…069a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x0056}
0x069a…06c6 Head {h00=0x0028, h01=0x0050, text=»* CONDITIONAL ASSEMBLY PARAMETERS «, t00=0x0004, t01=0x0060}
0x06c6…06d0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x008c}
0x06d0…0706 Head {h00=0x0032, h01=0x0050, text=»**********************************************«, t00=0x0004, t01=0x0096}
0x0706…070e Head {h00=0x0004, h01=0x0050, t00=0x0004, t01=0x00cc}
0x070e…0744 Head {h00=0x0032, h01=0x0050, text=»OFLIN EQU 1 OFFLINE HANDLING POSSIBLE IF ::= 1«, t00=0x0004, t01=0x00d4}
0x0744…0774 Head {h00=0x002c, h01=0x0050, text=»DCLIN EQU 1 NUMBER OF MAIN FRAMES (1-2) «, t00=0x0004, t01=0x010a}
0x0774…07aa Head {h00=0x0032, h01=0x0050, text=»RBUFL EQU 1150 RECEIVE BUFFER LENGTH IN WORDS «, t00=0x0004, t01=0x013a}
0x07aa…07de Head {h00=0x0030, h01=0x0050, text=»RBUFNR EQU 2 NUMBER OF RECEIVE BUFFERS (1-5)«, t00=0x0004, t01=0x0170}
0x07de…0814 Head {h00=0x0032, h01=0x0050, text=»TBUFL EQU 1150 TRANSMIT BUFFER LENGTH IN WORDS«, t00=0x0005, t01=0x0014}
0x0814…084a Head {h00=0x0032, h01=0x0050, text=»TBUFNR EQU 2 NUMBER OF TRANSMIT BUFFERS (1-5) «, t00=0x0005, t01=0x004a}
0x084a…0886 Head {h00=0x0038, h01=0x0050, text=»COPCMD EQU 1 COPY COMMAND (ONLY TO PRINTER) IF := 1 «, t00=0x0005, t01=0x0080}
0x0886…08b0 Head {h00=0x0026, h01=0x0050, text=»EBCDIC EQU 0 ASCII = 0,EBCDIC = 1 «, t00=0x0005, t01=0x00bc}
0x08b0…08ba Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x00e6}
0x08ba…08cc Head {h00=0x000e, h01=0x0050, text=»* EQUATES «, t00=0x0005, t01=0x00f0}
0x08cc…08d6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x0102}
0x08d6…08e0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x010c}
0x08e0…0912 Head {h00=0x002e, h01=0x0050, text=»TIMDC EQU 600 DC TIME OUT VALUE: 60 S DK2 «, t00=0x0005, t01=0x0116}
0x0912…0926 Head {h00=0x0010, h01=0x0050, text=»ESC EQU /1B «, t00=0x0005, t01=0x0148}
0x0926…093a Head {h00=0x0010, h01=0x0050, text=»SBA EQU /11 «, t00=0x0005, t01=0x015c}
0x093a…095e Head {h00=0x0020, h01=0x0050, text=»NULL EQU /7F NULL CHARACTER «, t00=0x0005, t01=0x0170}
0x095e…0988 (6, 0, 400) Head {h00=0x0026, h01=0x0050, text=»NEWLIN EQU /7E NEW LINE CHARACTER «, t00=0x0006, t01=0x0004}
0x0988…09b0 Head {h00=0x0024, h01=0x0050, text=»ENDMES EQU /7D END MESSAGE CHAR «, t00=0x0006, t01=0x002e}
0x09b0…09d6 Head {h00=0x0022, h01=0x0050, text=»FORMFD EQU /7C FORM FEED CHAR «, t00=0x0006, t01=0x0056}
0x09d6…09ec Head {h00=0x0012, h01=0x0050, text=»DUPCH EQU /7B «, t00=0x0006, t01=0x007c}
0x09ec…0a00 Head {h00=0x0010, h01=0x0050, text=»FMCH EQU /60«, t00=0x0006, t01=0x0092}
0x0a00…0a0e Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0006, t01=0x00a6}
0x0a0e…0a18 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x00b4}
0x0a18…0a22 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x00be}
0x0a22…0a38 Head {h00=0x0012, h01=0x0050, text=»* EQUATES «, t00=0x0006, t01=0x00c8}
0x0a38…0a42 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x00de}
0x0a42…0a68 Head {h00=0x0022, h01=0x0050, text=»* COMMON EQU FOR ECB HANDLING «, t00=0x0006, t01=0x00e8}
0x0a68…0a72 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x010e}
0x0a72…0a7a Head {h00=0x0004, h01=0x0050, t00=0x0006, t01=0x0118}
0x0a7a…0a8e Head {h00=0x0010, h01=0x0050, text=»ECBBA EQU 2 «, t00=0x0006, t01=0x0120}
0x0a8e…0aa2 Head {h00=0x0010, h01=0x0050, text=»ECBRL EQU 4 «, t00=0x0006, t01=0x0134}
0x0aa2…0ab6 Head {h00=0x0010, h01=0x0050, text=»ECBEL EQU 6 «, t00=0x0006, t01=0x0148}
0x0ab6…0aca Head {h00=0x0010, h01=0x0050, text=»ECBRC EQU 8 «, t00=0x0006, t01=0x015c}
0x0aca…0ade Head {h00=0x0010, h01=0x0050, text=»ECBCW EQU 10«, t00=0x0006, t01=0x0170}
0x0ade…0ae8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x0184}
0x0ae8…0af2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x018e}
0x0af2…0b0c Head {h00=0x0016, h01=0x0050, text=»* CREDIT USED EQU «, t00=0x0007, t01=0x0008}
0x0b0c…0b16 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x0022}
0x0b16…0b20 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x002c}
0x0b20…0b3c Head {h00=0x0018, h01=0x0050, text=»* ECB REL. ADDRESSES«, t00=0x0007, t01=0x0036}
0x0b3c…0b46 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x0052}
0x0b46…0b50 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x005c}
0x0b50…0b62 Head {h00=0x000e, h01=0x0050, text=»DIS EQU 20«, t00=0x0007, t01=0x0066}
0x0b62…0b6c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x0078}
0x0b6c…0b86 Head {h00=0x0016, h01=0x0050, text=»ECBDC EQU -DIS-14 «, t00=0x0007, t01=0x0082}
0x0b86…0b9a Head {h00=0x0010, h01=0x0050, text=» IFT DCLIN=2«, t00=0x0007, t01=0x009c}
0x0b9a…0bb0 Head {h00=0x0012, h01=0x0050, text=» IFT COPCMD=1 «, t00=0x0007, t01=0x00b0}
0x0bb0…0bcc Head {h00=0x0018, h01=0x0050, text=»ECBDC2 EQU ECBDC-DIS«, t00=0x0007, t01=0x00c6}
0x0bcc…0bea Head {h00=0x001a, h01=0x0050, text=»ECBICR EQU ECBDC2-DIS «, t00=0x0007, t01=0x00e2}
0x0bea…0c08 Head {h00=0x001a, h01=0x0050, text=»ECBICW EQU ECBICR-DIS «, t00=0x0007, t01=0x0100}
0x0c08…0c14 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0007, t01=0x011e}
0x0c14…0c28 Head {h00=0x0010, h01=0x0050, text=» IFT DCLIN=2«, t00=0x0007, t01=0x012a}
0x0c28…0c3e Head {h00=0x0012, h01=0x0050, text=» IFF COPCMD=1 «, t00=0x0007, t01=0x013e}
0x0c3e…0c5a Head {h00=0x0018, h01=0x0050, text=»ECBDC2 EQU ECBDC-DIS«, t00=0x0007, t01=0x0154}
0x0c5a…0c78 Head {h00=0x001a, h01=0x0050, text=»ECBICW EQU ECBDC2-DIS «, t00=0x0007, t01=0x0170}
0x0c78…0c84 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0007, t01=0x018e}
0x0c84…0c98 Head {h00=0x0010, h01=0x0050, text=» IFF DCLIN=2«, t00=0x0008, t01=0x000a}
0x0c98…0cae Head {h00=0x0012, h01=0x0050, text=» IFT COPCMD=1 «, t00=0x0008, t01=0x001e}
0x0cae…0cca Head {h00=0x0018, h01=0x0050, text=»ECBICR EQU ECBDC-DIS«, t00=0x0008, t01=0x0034}
0x0cca…0ce8 Head {h00=0x001a, h01=0x0050, text=»ECBICW EQU ECBICR-DIS «, t00=0x0008, t01=0x0050}
0x0ce8…0cf4 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0008, t01=0x006e}
0x0cf4…0d08 Head {h00=0x0010, h01=0x0050, text=» IFF DCLIN=2«, t00=0x0008, t01=0x007a}
0x0d08…0d1e Head {h00=0x0012, h01=0x0050, text=» IFF COPCMD=1 «, t00=0x0008, t01=0x008e}
0x0d1e…0d3a Head {h00=0x0018, h01=0x0050, text=»ECBICW EQU ECBDC-DIS«, t00=0x0008, t01=0x00a4}
0x0d3a…0d46 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0008, t01=0x00c0}
0x0d46…0d64 Head {h00=0x001a, h01=0x0050, text=»ECBVDU EQU ECBICW-DIS «, t00=0x0008, t01=0x00cc}
0x0d64…0d80 Head {h00=0x0018, h01=0x0050, text=»ECBKB EQU ECBVDU-DIS«, t00=0x0008, t01=0x00ea}
0x0d80…0d9c Head {h00=0x0018, h01=0x0050, text=»ECBSD EQU ECBKB-DIS «, t00=0x0008, t01=0x0106}
0x0d9c…0daa Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0008, t01=0x0122}
0x0daa…0db4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x0130}
0x0db4…0dbe Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x013a}
0x0dbe…0de4 Head {h00=0x0022, h01=0x0050, text=»* BASE ADDRESS FOR TCA AND ECB«, t00=0x0008, t01=0x0144}
0x0de4…0dee Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x016a}
0x0dee…0e04 Head {h00=0x0012, h01=0x0050, text=»TCABAS EQU A11«, t00=0x0008, t01=0x0174}
0x0e04…0e1e Head {h00=0x0016, h01=0x0050, text=»CREBAS EQU A13 ECB«, t00=0x0008, t01=0x018a}
0x0e1e…0e28 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x0014}
0x0e28…0e32 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x001e}
0x0e32…0e4e Head {h00=0x0018, h01=0x0050, text=»* TCA REL. ADDRESSES«, t00=0x0009, t01=0x0028}
0x0e4e…0e58 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x0044}
0x0e58…0e6c Head {h00=0x0010, h01=0x0050, text=»TCT01 EQU 0 «, t00=0x0009, t01=0x004e}
0x0e6c…0e88 Head {h00=0x0018, h01=0x0050, text=»PRINTER EQU TCT01+2 «, t00=0x0009, t01=0x0062}
0x0e88…0eb4 Head {h00=0x0028, h01=0x0050, text=»BVDU EQU PRINTER+2 VDU SCREEN BUFFER«, t00=0x0009, t01=0x007e}
0x0eb4…0ee8 Head {h00=0x0030, h01=0x0050, text=»PCURS EQU BVDU+1920 CURSOR ADDRESS , BINARY «, t00=0x0009, t01=0x00aa}
0x0ee8…0f16 Head {h00=0x002a, h01=0x0050, text=»ATTRIB EQU PCURS+2 LAST ATTRIBUTE CHAR«, t00=0x0009, t01=0x00de}
0x0f16…0f32 Head {h00=0x0018, h01=0x0050, text=»CURATT EQU ATTRIB+2 «, t00=0x0009, t01=0x010c}
0x0f32…0f5c Head {h00=0x0026, h01=0x0050, text=»WCC EQU CURATT+2 WCC/CCC CHARACTER«, t00=0x0009, t01=0x0128}
0x0f5c…0f8e Head {h00=0x002e, h01=0x0050, text=»KBINH EQU WCC+2 KEYBOARD INHIBIT INDICATOR«, t00=0x0009, t01=0x0152}
0x0f8e…0fb6 Head {h00=0x0024, h01=0x0050, text=»LINCNT EQU KBINH+2 LINE COUNTER «, t00=0x0009, t01=0x0184}
0x0fb6…0fea Head {h00=0x0030, h01=0x0050, text=»DCLENG EQU LINCNT+2 DC READ EFFECTIVE LENGTH«, t00=0x000a, t01=0x001c}
0x0fea…1020 Head {h00=0x0032, h01=0x0050, text=»ICWORK EQU DCLENG+2 WORK FIELD INTERTASK COMM «, t00=0x000a, t01=0x0050}
0x1020…1050 Head {h00=0x002c, h01=0x0050, text=»INTATT EQU ICWORK+2 INTENSITY ATTRIBUTE «, t00=0x000a, t01=0x0086}
0x1050…1078 Head {h00=0x0024, h01=0x0050, text=»OFFFLG EQU INTATT+2 OFFLINE FLAG«, t00=0x000a, t01=0x00b6}
0x1078…10a4 Head {h00=0x0028, h01=0x0050, text=»COPNO EQU OFFFLG+2 HARDCOPY TASK ID «, t00=0x000a, t01=0x00de}
0x10a4…10d2 Head {h00=0x002a, h01=0x0050, text=»CCC EQU COPNO+2 COPY COMMAND CHARACTER«, t00=0x000a, t01=0x010a}
0x10d2…10f4 Head {h00=0x001e, h01=0x0050, text=»MAIN EQU CCC+2 MAIN FRAME «, t00=0x000a, t01=0x0138}
0x10f4…111e Head {h00=0x0026, h01=0x0050, text=»MODE EQU MAIN+2 INSERT MODE SWITCH«, t00=0x000a, t01=0x015a}
0x111e…1146 Head {h00=0x0024, h01=0x0050, text=»KEYS EQU MODE+2 KEY LOCK STATUS «, t00=0x000a, t01=0x0184}
0x1146…1178 Head {h00=0x002e, h01=0x0050, text=»ECBDCC EQU KEYS+2 ECB ADDRESS LAST READ DC«, t00=0x000b, t01=0x001c}
0x1178…11ae Head {h00=0x0032, h01=0x0050, text=»ECBBLK EQU ECBDCC+2 ECBS FOR MULTIPLE WAIT &C «, t00=0x000b, t01=0x004e}
0x11ae…11e6 Head {h00=0x0034, h01=0x0050, text=»RDMORE EQU ECBBLK+10 BRANCH ADDRESS NEXT READ KB«, t00=0x000b, t01=0x0084}
0x11e6…11f4 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000b, t01=0x00bc}
0x11f4…11fc Head {h00=0x0004, h01=0x0050, t00=0x000b, t01=0x00ca}
0x11fc…1206 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x00d2}
0x1206…1210 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x00dc}
0x1210…123e Head {h00=0x002a, h01=0x0050, text=»LBVDU EQU 1920 1920 CHARACTER DISPLAY «, t00=0x000b, t01=0x00e6}
0x123e…1264 Head {h00=0x0022, h01=0x0050, text=»LPAGE EQU 48 LINES ON ONE PAGE«, t00=0x000b, t01=0x0114}
0x1264…1292 Head {h00=0x002a, h01=0x0050, text=»LLINE EQU 80 80 CHAR PER DISPLAY LINE «, t00=0x000b, t01=0x013a}
0x1292…12c4 Head {h00=0x002e, h01=0x0050, text=»TID EQU -4 TASK IDENTITY T:A DISPLACEMENT «, t00=0x000b, t01=0x0168}
0x12c4…12ce Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x000a}
0x12ce…12f8 Head {h00=0x0026, h01=0x0050, text=»* CONFIG DATA 'CB1' REL ADDRESSES «, t00=0x000c, t01=0x0014}
0x12f8…1302 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x003e}
0x1302…1328 Head {h00=0x0022, h01=0x0050, text=»NBRKBV EQU 0 NUMBER OF KB/VDUS«, t00=0x000c, t01=0x0048}
0x1328…1352 Head {h00=0x0026, h01=0x0050, text=»NBRGTP EQU NBRKBV+2 NUMBER OF GTPS«, t00=0x000c, t01=0x006e}
0x1352…135c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x0098}
0x135c…1392 Head {h00=0x0032, h01=0x0050, text=»MF1KBV EQU NBRGTP+2 DV ADDRESSES KB/VDU MF #1 «, t00=0x000c, t01=0x00a2}
0x1392…13c8 Head {h00=0x0032, h01=0x0050, text=»MF1GTP EQU MF1KBV+16 DV ADDRESSES GTPS MF # 1 «, t00=0x000c, t01=0x00d8}
0x13c8…13dc Head {h00=0x0010, h01=0x0050, text=» IFT DCLIN=2«, t00=0x000c, t01=0x010e}
0x13dc…13f8 Head {h00=0x0018, h01=0x0050, text=»MF2KBV EQU MF1GTP+16«, t00=0x000c, t01=0x0122}
0x13f8…1414 Head {h00=0x0018, h01=0x0050, text=»MF2GTP EQU MF2KBV+16«, t00=0x000c, t01=0x013e}
0x1414…1420 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x000c, t01=0x015a}
0x1420…142a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x0166}
0x142a…1432 Head {h00=0x0004, h01=0x0050, t00=0x000c, t01=0x0170}
0x1432…1440 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000c, t01=0x0178}
0x1440…1488 Head {h00=0x0044, h01=0x0050, text=»****************************************************************«, t00=0x000c, t01=0x0186}
0x1488…1492 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x003e}
0x1492…14aa Head {h00=0x0014, h01=0x0050, text=»* INPUT FROM DC «, t00=0x000d, t01=0x0048}
0x14aa…14b4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x0060}
0x14b4…14f0 Head {h00=0x0038, h01=0x0050, text=»****************************************************«, t00=0x000d, t01=0x006a}
0x14f0…14fa Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x00a6}
0x14fa…151a Head {h00=0x001c, h01=0x0050, text=»* RELATIVE POS IN ECBBLK«, t00=0x000d, t01=0x00b0}
0x151a…152a Head {h00=0x000c, h01=0x0050, text=»KB EQU 2«, t00=0x000d, t01=0x00d0}
0x152a…153c Head {h00=0x000e, h01=0x0050, text=»DC1 EQU 4 «, t00=0x000d, t01=0x00e0}
0x153c…154e Head {h00=0x000e, h01=0x0050, text=»DC2 EQU 6 «, t00=0x000d, t01=0x00f2}
0x154e…1558 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x0104}
0x1558…156c Head {h00=0x0010, h01=0x0050, text=»DCINP EQU * «, t00=0x000d, t01=0x010e}
0x156c…1596 Head {h00=0x0026, h01=0x0050, text=» CF A14,GTRBUF GET RECEIVE BUFFER «, t00=0x000d, t01=0x0122}
0x1596…15b2 Head {h00=0x0018, h01=0x0050, text=» LD A8,ECBDCC,TCABAS«, t00=0x000d, t01=0x014c}
0x15b2…15d6 Head {h00=0x0020, h01=0x0050, text=» CF A14,DCGETM READ MESSAGE «, t00=0x000d, t01=0x0168}
0x15d6…15ea Head {h00=0x0010, h01=0x0050, text=» IFF DCLIN=2«, t00=0x000d, t01=0x018c}
0x15ea…1608 Head {h00=0x001a, h01=0x0050, text=» CM ECBBLK+DC1,TCABAS «, t00=0x000e, t01=0x0010}
0x1608…1614 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x000e, t01=0x002e}
0x1614…1628 Head {h00=0x0010, h01=0x0050, text=» IFT DCLIN=2«, t00=0x000e, t01=0x003a}
0x1628…1642 Head {h00=0x0016, h01=0x0050, text=» LD A1,MAIN,TCABAS«, t00=0x000e, t01=0x004e}
0x1642…1662 Head {h00=0x001c, h01=0x0050, text=» CW A8,ECBBLK+DC2,TCABAS«, t00=0x000e, t01=0x0068}
0x1662…167e Head {h00=0x0018, h01=0x0050, text=» RF(E) DCIN20 MF # 2«, t00=0x000e, t01=0x0088}
0x167e…169c Head {h00=0x001a, h01=0x0050, text=» CM ECBBLK+DC1,TCABAS «, t00=0x000e, t01=0x00a4}
0x169c…16ae Head {h00=0x000e, h01=0x0050, text=» LDR A1,A1«, t00=0x000e, t01=0x00c2}
0x16ae…16ce Head {h00=0x001c, h01=0x0050, text=» RF(NZ) DCIN90 WRONG MF «, t00=0x000e, t01=0x00d4}
0x16ce…16e0 Head {h00=0x000e, h01=0x0050, text=» RF DCIN30«, t00=0x000e, t01=0x00f4}
0x16e0…16f4 Head {h00=0x0010, h01=0x0050, text=»DCIN20 EQU *«, t00=0x000e, t01=0x0106}
0x16f4…1712 Head {h00=0x001a, h01=0x0050, text=» CM ECBBLK+DC2,TCABAS «, t00=0x000e, t01=0x011a}
0x1712…1724 Head {h00=0x000e, h01=0x0050, text=» LDR A1,A1«, t00=0x000e, t01=0x0138}
0x1724…1742 Head {h00=0x001a, h01=0x0050, text=» RF(Z) DCIN90 WRONG MF«, t00=0x000e, t01=0x014a}
0x1742…174e Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x000e, t01=0x0168}
0x174e…1762 Head {h00=0x0010, h01=0x0050, text=»DCIN30 EQU *«, t00=0x000e, t01=0x0174}
0x1762…1776 Head {h00=0x0010, h01=0x0050, text=» IFT OFLIN=1«, t00=0x000e, t01=0x0188}
0x1776…1792 Head {h00=0x0018, h01=0x0050, text=» LD A1,OFFFLG,TCABAS«, t00=0x000f, t01=0x000c}
0x1792…17a8 Head {h00=0x0012, h01=0x0050, text=» RF(NZ) DCIN90«, t00=0x000f, t01=0x0028}
0x17a8…17b4 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x000f, t01=0x003e}
0x17b4…17e0 Head {h00=0x0028, h01=0x0050, text=» LD A1,ECBEL,A8 EFFECTIVE DC-LENGTH «, t00=0x000f, t01=0x004a}
0x17e0…17fc Head {h00=0x0018, h01=0x0050, text=» ST A1,DCLENG,TCABAS«, t00=0x000f, t01=0x0076}
0x17fc…1804 Head {h00=0x0004, h01=0x0050, t00=0x000f, t01=0x0092}
0x1804…180c Head {h00=0x0004, h01=0x0050, t00=0x000f, t01=0x009a}
0x180c…1828 Head {h00=0x0018, h01=0x0050, text=» LD A5,KBINH,TCABAS «, t00=0x000f, t01=0x00a2}
0x1828…185a Head {h00=0x002e, h01=0x0050, text=» ORK A5,3 BIT 14,15:= 1. TOTALLY DISABLED «, t00=0x000f, t01=0x00be}
0x185a…188c Head {h00=0x002e, h01=0x0050, text=»* KEYBOARD. BIT 15 = 0 AFTER DISPLAYING.«, t00=0x000f, t01=0x00f0}
0x188c…18a8 Head {h00=0x0018, h01=0x0050, text=» ST A5,KBINH,TCABAS «, t00=0x000f, t01=0x0122}
0x18a8…18da Head {h00=0x002e, h01=0x0050, text=» CF A14,LINHON TURN ON 'KEYBOARD INHIBIT' «, t00=0x000f, t01=0x013e}
0x18da…190c Head {h00=0x002e, h01=0x0050, text=» CF A14,LSAVON TURN ON "SYSTEM AVAILABLE" «, t00=0x000f, t01=0x0170}
0x190c…1922 Head {h00=0x0012, h01=0x0050, text=» CF A14,UPDATE«, t00=0x0010, t01=0x0012}
0x1922…1938 Head {h00=0x0012, h01=0x0050, text=» CF A14,DISPL «, t00=0x0010, t01=0x0028}
0x1938…1954 Head {h00=0x0018, h01=0x0050, text=» LD A2,PCURS,TCABAS «, t00=0x0010, t01=0x003e}
0x1954…196a Head {h00=0x0012, h01=0x0050, text=» CF A14,ATMASB«, t00=0x0010, t01=0x005a}
0x196a…1972 Head {h00=0x0004, h01=0x0050, t00=0x0010, t01=0x0070}
0x1972…197a Head {h00=0x0004, h01=0x0050, t00=0x0010, t01=0x0078}
0x197a…1984 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x0080}
0x1984…19a0 Head {h00=0x0018, h01=0x0050, text=» LD A2,KBINH,TCABAS «, t00=0x0010, t01=0x008a}
0x19a0…19be Head {h00=0x001a, h01=0x0050, text=» ANK A2,1 BIT 15 = 0? «, t00=0x0010, t01=0x00a6}
0x19be…19d4 Head {h00=0x0012, h01=0x0050, text=» RF(Z) DCIN60 «, t00=0x0010, t01=0x00c4}
0x19d4…19f0 Head {h00=0x0018, h01=0x0050, text=» LD A2,KBINH,TCABAS «, t00=0x0010, t01=0x00da}
0x19f0…1a22 Head {h00=0x002e, h01=0x0050, text=» ANK A2,/E BIT 15:=0 KEYBOARD NOT TOTALLY «, t00=0x0010, t01=0x00f6}
0x1a22…1a42 Head {h00=0x001c, h01=0x0050, text=»* INHIBITED ANY LONGER«, t00=0x0010, t01=0x0128}
0x1a42…1a5e Head {h00=0x0018, h01=0x0050, text=» ST A2,KBINH,TCABAS «, t00=0x0010, t01=0x0148}
0x1a5e…1a78 Head {h00=0x0016, h01=0x0050, text=» LD A2,WCC,TCABAS «, t00=0x0010, t01=0x0164}
0x1a78…1a8a Head {h00=0x000e, h01=0x0050, text=» ANK A2,2 «, t00=0x0010, t01=0x017e}
0x1a8a…1aa0 Head {h00=0x0012, h01=0x0050, text=» RF(Z) DCIN95 «, t00=0x0010, t01=0x0190}
0x1aa0…1ab4 Head {h00=0x0010, h01=0x0050, text=»DCIN60 EQU *«, t00=0x0011, t01=0x0016}
0x1ab4…1ae6 Head {h00=0x002e, h01=0x0050, text=» CF A14,LINHOF TURN OFF 'KEYBOARD INHIBIT'«, t00=0x0011, t01=0x002a}
0x1ae6…1b02 Head {h00=0x0018, h01=0x0050, text=» LD A2,KBINH,TCABAS «, t00=0x0011, t01=0x005c}
0x1b02…1b32 Head {h00=0x002c, h01=0x0050, text=» ANK A2,4 BITS 14,15:=0 RESTORE KEYBOARD«, t00=0x0011, t01=0x0078}
0x1b32…1b4e Head {h00=0x0018, h01=0x0050, text=» ST A2,KBINH,TCABAS «, t00=0x0011, t01=0x00a8}
0x1b4e…1b60 Head {h00=0x000e, h01=0x0050, text=» RF DCIN95«, t00=0x0011, t01=0x00c4}
0x1b60…1b74 Head {h00=0x0010, h01=0x0050, text=»DCIN90 EQU *«, t00=0x0011, t01=0x00d6}
0x1b74…1b90 Head {h00=0x0018, h01=0x0050, text=» LD A8,ECBDCC,TCABAS«, t00=0x0011, t01=0x00ea}
0x1b90…1ba8 Head {h00=0x0014, h01=0x0050, text=» LD A4,ECBBA,A8 «, t00=0x0011, t01=0x0106}
0x1ba8…1bbe Head {h00=0x0012, h01=0x0050, text=» CF A14,RLRBUF«, t00=0x0011, t01=0x011e}
0x1bbe…1bd2 Head {h00=0x0010, h01=0x0050, text=»DCIN95 EQU *«, t00=0x0011, t01=0x0134}
0x1bd2…1be8 Head {h00=0x0012, h01=0x0050, text=» CF A14,SNBUSY«, t00=0x0011, t01=0x0148}
0x1be8…1bf8 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0011, t01=0x015e}
0x1bf8…1c06 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0011, t01=0x016e}
0x1c06…1c10 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x017c}
0x1c10…1c22 Head {h00=0x000e, h01=0x0050, text=»* READ DC «, t00=0x0011, t01=0x0186}
0x1c22…1c2c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x0008}
0x1c2c…1c40 Head {h00=0x0010, h01=0x0050, text=»DCGETM EQU *«, t00=0x0012, t01=0x0012}
0x1c40…1c52 Head {h00=0x000e, h01=0x0050, text=» LDK A1,0 «, t00=0x0012, t01=0x0026}
0x1c52…1c68 Head {h00=0x0012, h01=0x0050, text=» CF A14,REQTIM«, t00=0x0012, t01=0x0038}
0x1c68…1c86 Head {h00=0x001a, h01=0x0050, text=» LDK A7,/82 READ, WAIT«, t00=0x0012, t01=0x004e}
0x1c86…1cb2 Head {h00=0x0028, h01=0x0050, text=» CM ECBCW,A8 NO TIME OUT SUPERVISION«, t00=0x0012, t01=0x006c}
0x1cb2…1cce Head {h00=0x0018, h01=0x0050, text=» LDKL A1,RBUFL+RBUFL«, t00=0x0012, t01=0x0098}
0x1cce…1cf0 Head {h00=0x001e, h01=0x0050, text=» ST A1,ECBRL,A8 REQ LENGTH«, t00=0x0012, t01=0x00b4}
0x1cf0…1d08 Head {h00=0x0014, h01=0x0050, text=» ST A4,ECBBA,A8 «, t00=0x0012, t01=0x00d6}
0x1d08…1d14 Head {h00=0x0008, h01=0x0050, text=» LKM«, t00=0x0012, t01=0x00ee}
0x1d14…1d24 Head {h00=0x000c, h01=0x0050, text=» DATA 1 «, t00=0x0012, t01=0x00fa}
0x1d24…1d34 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0012, t01=0x010a}
0x1d34…1d42 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0012, t01=0x011a}
0x1d42…1d84 Head {h00=0x003e, h01=0x0050, text=»**********************************************************«, t00=0x0012, t01=0x0128}
0x1d84…1d8e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x016a}
0x1d8e…1da8 Head {h00=0x0016, h01=0x0050, text=»* BUFFER HANDLING «, t00=0x0012, t01=0x0174}
0x1da8…1db2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x018e}
0x1db2…1df4 Head {h00=0x003e, h01=0x0050, text=»**********************************************************«, t00=0x0013, t01=0x0008}
0x1df4…1dfe Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x004a}
0x1dfe…1e1e Head {h00=0x001c, h01=0x0050, text=»RLINK EQU RBUFL+RBUFL+2 «, t00=0x0013, t01=0x0054}
0x1e1e…1e28 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x0074}
0x1e28…1e3a Head {h00=0x000e, h01=0x0050, text=»RBUF EQU *«, t00=0x0013, t01=0x007e}
0x1e3a…1e5e Head {h00=0x0020, h01=0x0050, text=» DATA *+2 POINTER FIRST FREE«, t00=0x0013, t01=0x0090}
0x1e5e…1e74 Head {h00=0x0012, h01=0x0050, text=» IFF RBUFNR=1 «, t00=0x0013, t01=0x00b4}
0x1e74…1e8a Head {h00=0x0012, h01=0x0050, text=» DATA *+RLINK «, t00=0x0013, t01=0x00ca}
0x1e8a…1e9c Head {h00=0x000e, h01=0x0050, text=» RES RBUFL«, t00=0x0013, t01=0x00e0}
0x1e9c…1eb2 Head {h00=0x0012, h01=0x0050, text=» IFF RBUFNR=2 «, t00=0x0013, t01=0x00f2}
0x1eb2…1ec8 Head {h00=0x0012, h01=0x0050, text=» DATA *+RLINK «, t00=0x0013, t01=0x0108}
0x1ec8…1eda Head {h00=0x000e, h01=0x0050, text=» RES RBUFL«, t00=0x0013, t01=0x011e}
0x1eda…1ef0 Head {h00=0x0012, h01=0x0050, text=» IFF RBUFNR=3 «, t00=0x0013, t01=0x0130}
0x1ef0…1f06 Head {h00=0x0012, h01=0x0050, text=» DATA *+RLINK «, t00=0x0013, t01=0x0146}
0x1f06…1f18 Head {h00=0x000e, h01=0x0050, text=» RES RBUFL«, t00=0x0013, t01=0x015c}
0x1f18…1f2e Head {h00=0x0012, h01=0x0050, text=» IFF RBUFNR=4 «, t00=0x0013, t01=0x016e}
0x1f2e…1f44 Head {h00=0x0012, h01=0x0050, text=» DATA *+RLINK «, t00=0x0013, t01=0x0184}
0x1f44…1f56 Head {h00=0x000e, h01=0x0050, text=» RES RBUFL«, t00=0x0014, t01=0x000a}
0x1f56…1f62 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0014, t01=0x001c}
0x1f62…1f7e Head {h00=0x0018, h01=0x0050, text=» DATA 0 END OF CHAIN«, t00=0x0014, t01=0x0028}
0x1f7e…1f90 Head {h00=0x000e, h01=0x0050, text=» RES RBUFL«, t00=0x0014, t01=0x0044}
0x1f90…1f9a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x0056}
0x1f9a…1fa4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x0060}
0x1fa4…1fc4 Head {h00=0x001c, h01=0x0050, text=»TLINK EQU TBUFL+TBUFL+2 «, t00=0x0014, t01=0x006a}
0x1fc4…1fce Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x008a}
0x1fce…1fe0 Head {h00=0x000e, h01=0x0050, text=»TBUF EQU *«, t00=0x0014, t01=0x0094}
0x1fe0…2004 Head {h00=0x0020, h01=0x0050, text=» DATA *+2 POINTER FIRST FREE«, t00=0x0014, t01=0x00a6}
0x2004…201a Head {h00=0x0012, h01=0x0050, text=» IFF TBUFNR=1 «, t00=0x0014, t01=0x00ca}
0x201a…2030 Head {h00=0x0012, h01=0x0050, text=» DATA *+TLINK «, t00=0x0014, t01=0x00e0}
0x2030…2042 Head {h00=0x000e, h01=0x0050, text=» RES TBUFL«, t00=0x0014, t01=0x00f6}
0x2042…2058 Head {h00=0x0012, h01=0x0050, text=» IFF TBUFNR=2 «, t00=0x0014, t01=0x0108}
0x2058…206e Head {h00=0x0012, h01=0x0050, text=» DATA *+TLINK «, t00=0x0014, t01=0x011e}
0x206e…2080 Head {h00=0x000e, h01=0x0050, text=» RES TBUFL«, t00=0x0014, t01=0x0134}
0x2080…2096 Head {h00=0x0012, h01=0x0050, text=» IFF TBUFNR=3 «, t00=0x0014, t01=0x0146}
0x2096…20ac Head {h00=0x0012, h01=0x0050, text=» DATA *+TLINK «, t00=0x0014, t01=0x015c}
0x20ac…20be Head {h00=0x000e, h01=0x0050, text=» RES TBUFL«, t00=0x0014, t01=0x0172}
0x20be…20d4 Head {h00=0x0012, h01=0x0050, text=» IFF TBUFNR=4 «, t00=0x0014, t01=0x0184}
0x20d4…20ea Head {h00=0x0012, h01=0x0050, text=» DATA *+TLINK «, t00=0x0015, t01=0x000a}
0x20ea…20fc Head {h00=0x000e, h01=0x0050, text=» RES TBUFL«, t00=0x0015, t01=0x0020}
0x20fc…2108 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0015, t01=0x0032}
0x2108…2124 Head {h00=0x0018, h01=0x0050, text=» DATA 0 END OF CHAIN«, t00=0x0015, t01=0x003e}
0x2124…2136 Head {h00=0x000e, h01=0x0050, text=» RES TBUFL«, t00=0x0015, t01=0x005a}
0x2136…2140 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x006c}
0x2140…214a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x0076}
0x214a…2164 Head {h00=0x0016, h01=0x0050, text=»* GET WRITE BUFFER«, t00=0x0015, t01=0x0080}
0x2164…216e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x009a}
0x216e…2182 Head {h00=0x0010, h01=0x0050, text=»GTWBUF EQU *«, t00=0x0015, t01=0x00a4}
0x2182…2198 Head {h00=0x0012, h01=0x0050, text=» LDKL A5,TBUF «, t00=0x0015, t01=0x00b8}
0x2198…21ae Head {h00=0x0012, h01=0x0050, text=» CF A14,GETBUF«, t00=0x0015, t01=0x00ce}
0x21ae…21c0 Head {h00=0x000e, h01=0x0050, text=» LDR A7,A4«, t00=0x0015, t01=0x00e4}
0x21c0…21d4 Head {h00=0x0010, h01=0x0050, text=» LDR A12,A4 «, t00=0x0015, t01=0x00f6}
0x21d4…21ea Head {h00=0x0012, h01=0x0050, text=» ADK A7,2 SKIP«, t00=0x0015, t01=0x010a}
0x21ea…220e Head {h00=0x0020, h01=0x0050, text=» LDKL A9,2 FOR DV ADDRESS «, t00=0x0015, t01=0x0120}
0x220e…221e Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0015, t01=0x0144}
0x221e…2228 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x0154}
0x2228…2244 Head {h00=0x0018, h01=0x0050, text=»* GET RECEIVE BUFFER«, t00=0x0015, t01=0x015e}
0x2244…224e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x017a}
0x224e…2262 Head {h00=0x0010, h01=0x0050, text=»GTRBUF EQU *«, t00=0x0015, t01=0x0184}
0x2262…2278 Head {h00=0x0012, h01=0x0050, text=» LDKL A5,RBUF «, t00=0x0016, t01=0x0008}
0x2278…2282 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0016, t01=0x001e}
0x2282…228c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0016, t01=0x0028}
0x228c…22a0 Head {h00=0x0010, h01=0x0050, text=»GETBUF EQU *«, t00=0x0016, t01=0x0032}
0x22a0…22b4 Head {h00=0x0010, h01=0x0050, text=» LDR* A4,A5 «, t00=0x0016, t01=0x0046}
0x22b4…22d8 Head {h00=0x0020, h01=0x0050, text=» RF(Z) GETB50 NO BUFFER FREE«, t00=0x0016, t01=0x005a}
0x22d8…22ec Head {h00=0x0010, h01=0x0050, text=» LDR* A3,A4 «, t00=0x0016, t01=0x007e}
0x22ec…22fe Head {h00=0x000e, h01=0x0050, text=» STR A3,A5«, t00=0x0016, t01=0x0092}
0x22fe…231a Head {h00=0x0018, h01=0x0050, text=» ADK A4,2 SKIP LINK «, t00=0x0016, t01=0x00a4}
0x231a…232a Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0016, t01=0x00c0}
0x232a…233e Head {h00=0x0010, h01=0x0050, text=»GETB50 EQU *«, t00=0x0016, t01=0x00d0}
0x233e…234a Head {h00=0x0008, h01=0x0050, text=» LKM«, t00=0x0016, t01=0x00e4}
0x234a…2366 Head {h00=0x0018, h01=0x0050, text=» DATA 0 SWITCH TASK «, t00=0x0016, t01=0x00f0}
0x2366…2378 Head {h00=0x000e, h01=0x0050, text=» RB GETBUF«, t00=0x0016, t01=0x010c}
0x2378…2382 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0016, t01=0x011e}
0x2382…239a Head {h00=0x0014, h01=0x0050, text=»* RELEASE BUFFER«, t00=0x0016, t01=0x0128}
0x239a…23a4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0016, t01=0x0140}
0x23a4…23b8 Head {h00=0x0010, h01=0x0050, text=»RLRBUF EQU *«, t00=0x0016, t01=0x014a}
0x23b8…23ce Head {h00=0x0012, h01=0x0050, text=» LDKL A2,RBUF «, t00=0x0016, t01=0x015e}
0x23ce…23e2 Head {h00=0x0010, h01=0x0050, text=»RELB05 EQU *«, t00=0x0016, t01=0x0174}
0x23e2…2402 Head {h00=0x001c, h01=0x0050, text=» SUK A4,2 POINT TO LINK «, t00=0x0016, t01=0x0188}
0x2402…2416 Head {h00=0x0010, h01=0x0050, text=»RELB10 EQU *«, t00=0x0017, t01=0x0018}
0x2416…242a Head {h00=0x0010, h01=0x0050, text=» LDR* A3,A2 «, t00=0x0017, t01=0x002c}
0x242a…2440 Head {h00=0x0012, h01=0x0050, text=» RF(Z) RELB20 «, t00=0x0017, t01=0x0040}
0x2440…2452 Head {h00=0x000e, h01=0x0050, text=» LDR A2,A3«, t00=0x0017, t01=0x0056}
0x2452…2464 Head {h00=0x000e, h01=0x0050, text=» RB RELB10«, t00=0x0017, t01=0x0068}
0x2464…2478 Head {h00=0x0010, h01=0x0050, text=»RELB20 EQU *«, t00=0x0017, t01=0x007a}
0x2478…248a Head {h00=0x000e, h01=0x0050, text=» STR A4,A2«, t00=0x0017, t01=0x008e}
0x248a…249a Head {h00=0x000c, h01=0x0050, text=» CMR A4 «, t00=0x0017, t01=0x00a0}
0x249a…24aa Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0017, t01=0x00b0}
0x24aa…24b4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0017, t01=0x00c0}
0x24b4…24c8 Head {h00=0x0010, h01=0x0050, text=»RLWBUF EQU *«, t00=0x0017, t01=0x00ca}
0x24c8…24de Head {h00=0x0012, h01=0x0050, text=» LDKL A2,TBUF «, t00=0x0017, t01=0x00de}
0x24de…24f0 Head {h00=0x000e, h01=0x0050, text=» RB RELB05«, t00=0x0017, t01=0x00f4}
0x24f0…24fe Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0017, t01=0x0106}
0x24fe…2508 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0017, t01=0x0114}
0x2508…2512 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0017, t01=0x011e}
0x2512…2538 Head {h00=0x0022, h01=0x0050, text=»* STORE CHARACTER IN DC BUFFER«, t00=0x0017, t01=0x0128}
0x2538…2542 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0017, t01=0x014e}
0x2542…2554 Head {h00=0x000e, h01=0x0050, text=»* A2=CHAR «, t00=0x0017, t01=0x0158}
0x2554…2570 Head {h00=0x0018, h01=0x0050, text=»* A7=BUFFER POINTER «, t00=0x0017, t01=0x016a}
0x2570…2596 Head {h00=0x0022, h01=0x0050, text=»* A9=BUFFER CHARACTER COUNTER «, t00=0x0017, t01=0x0186}
0x2596…25a0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0018, t01=0x001c}
0x25a0…25aa Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0018, t01=0x0026}
0x25aa…25be Head {h00=0x0010, h01=0x0050, text=»PDCCH EQU * «, t00=0x0018, t01=0x0030}
0x25be…25de Head {h00=0x001c, h01=0x0050, text=» CWK A9,TBUFL+TBUFL =3 «, t00=0x0018, t01=0x0044}
0x25de…25fc Head {h00=0x001a, h01=0x0050, text=» RF(G) PDCCHR OVERFLOW«, t00=0x0018, t01=0x0064}
0x25fc…260e Head {h00=0x000e, h01=0x0050, text=» SCR A2,A7«, t00=0x0018, t01=0x0082}
0x260e…2622 Head {h00=0x0010, h01=0x0050, text=»PDCCH1 EQU *«, t00=0x0018, t01=0x0094}
0x2622…2634 Head {h00=0x000e, h01=0x0050, text=» ADK A7,1 «, t00=0x0018, t01=0x00a8}
0x2634…2646 Head {h00=0x000e, h01=0x0050, text=» ADKL A9,1«, t00=0x0018, t01=0x00ba}
0x2646…265c Head {h00=0x0012, h01=0x0050, text=»PDCCHR RTN A14«, t00=0x0018, t01=0x00cc}
0x265c…2666 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0018, t01=0x00e2}
0x2666…2670 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0018, t01=0x00ec}
0x2670…2694 Head {h00=0x0020, h01=0x0050, text=»* STORE ATTENTION ID FROM A2«, t00=0x0018, t01=0x00f6}
0x2694…269e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0018, t01=0x011a}
0x269e…26a8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0018, t01=0x0124}
0x26a8…26c2 Head {h00=0x0016, h01=0x0050, text=»PAID CF A14,PDCCH «, t00=0x0018, t01=0x012e}
0x26c2…26d2 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0018, t01=0x0148}
0x26d2…26dc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0018, t01=0x0158}
0x26dc…26e6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0018, t01=0x0162}
0x26e6…2712 Head {h00=0x0028, h01=0x0050, text=»* GET CHARACTER FROM DC BUFFER TO A2«, t00=0x0018, t01=0x016c}
0x2712…271c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0019, t01=0x0008}
0x271c…2726 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0019, t01=0x0012}
0x2726…273e Head {h00=0x0014, h01=0x0050, text=»GDCCH LCR A2,A7 «, t00=0x0019, t01=0x001c}
0x273e…2752 Head {h00=0x0010, h01=0x0050, text=» ANK A2,/FF «, t00=0x0019, t01=0x0034}
0x2752…277c Head {h00=0x0026, h01=0x0050, text=» RF(NZ) GDCC:1 NOT NULL CHARACTER «, t00=0x0019, t01=0x0048}
0x277c…27a4 Head {h00=0x0024, h01=0x0050, text=» LDK A2,/7F LOAD NULL CHARACTER «, t00=0x0019, t01=0x0072}
0x27a4…27b8 Head {h00=0x0010, h01=0x0050, text=»GDCC:1 EQU *«, t00=0x0019, t01=0x009a}
0x27b8…27ca Head {h00=0x000e, h01=0x0050, text=» RB PDCCH1«, t00=0x0019, t01=0x00ae}
0x27ca…27d8 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0019, t01=0x00c0}
0x27d8…27e2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0019, t01=0x00ce}
0x27e2…27ec Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0019, t01=0x00d8}
0x27ec…281e Head {h00=0x002e, h01=0x0050, text=»* GET BUFFER ADDRESS TO A1 FROM DC BUFFER «, t00=0x0019, t01=0x00e2}
0x281e…2828 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0019, t01=0x0114}
0x2828…2832 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0019, t01=0x011e}
0x2832…284e Head {h00=0x0018, h01=0x0050, text=»GETADR CF A14,GDCCH «, t00=0x0019, t01=0x0128}
0x284e…2866 Head {h00=0x0014, h01=0x0050, text=» LC A1,TEBCDI,A2«, t00=0x0019, t01=0x0144}
0x2866…287a Head {h00=0x0010, h01=0x0050, text=» ANK A1,/3F «, t00=0x0019, t01=0x015c}
0x287a…288c Head {h00=0x000e, h01=0x0050, text=» SLL A1,6 «, t00=0x0019, t01=0x0170}
0x288c…28a2 Head {h00=0x0012, h01=0x0050, text=» CF A14,GDCCH «, t00=0x0019, t01=0x0182}
0x28a2…28ba Head {h00=0x0014, h01=0x0050, text=» LC A2,TEBCDI,A2«, t00=0x001a, t01=0x0008}
0x28ba…28ce Head {h00=0x0010, h01=0x0050, text=» ANK A2,/3F «, t00=0x001a, t01=0x0020}
0x28ce…28e0 Head {h00=0x000e, h01=0x0050, text=» ORR A1,A2«, t00=0x001a, t01=0x0034}
0x28e0…28f0 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x001a, t01=0x0046}
0x28f0…28fe Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x001a, t01=0x0056}
0x28fe…2908 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001a, t01=0x0064}
0x2908…2912 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001a, t01=0x006e}
0x2912…2938 Head {h00=0x0022, h01=0x0050, text=»* WRITE MESSAGE TO MAIN FRAME «, t00=0x001a, t01=0x0078}
0x2938…2942 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001a, t01=0x009e}
0x2942…296c Head {h00=0x0026, h01=0x0050, text=»* ON EXIT A1 CONTAINS RETURN CODE «, t00=0x001a, t01=0x00a8}
0x296c…2976 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001a, t01=0x00d2}
0x2976…2980 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001a, t01=0x00dc}
0x2980…2994 Head {h00=0x0010, h01=0x0050, text=»DCWRTE EQU *«, t00=0x001a, t01=0x00e6}
0x2994…29aa Head {h00=0x0012, h01=0x0050, text=» LDKL A8,ECBDC«, t00=0x001a, t01=0x00fa}
0x29aa…29be Head {h00=0x0010, h01=0x0050, text=» IFT DCLIN=2«, t00=0x001a, t01=0x0110}
0x29be…29d8 Head {h00=0x0016, h01=0x0050, text=» LD A7,MAIN,TCABAS«, t00=0x001a, t01=0x0124}
0x29d8…29ec Head {h00=0x0010, h01=0x0050, text=» RF(Z) DC050«, t00=0x001a, t01=0x013e}
0x29ec…2a04 Head {h00=0x0014, h01=0x0050, text=» LDKL A8,ECBDC2 «, t00=0x001a, t01=0x0152}
0x2a04…2a10 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x001a, t01=0x016a}
0x2a10…2a24 Head {h00=0x0010, h01=0x0050, text=»DC050 EQU * «, t00=0x001a, t01=0x0176}
0x2a24…2a3a Head {h00=0x0012, h01=0x0050, text=» ADR A8,CREBAS«, t00=0x001a, t01=0x018a}
0x2a3a…2a50 Head {h00=0x0012, h01=0x0050, text=» LDKL A1,TIMDC«, t00=0x001b, t01=0x0010}
0x2a50…2a66 Head {h00=0x0012, h01=0x0050, text=» CF A14,REQTIM«, t00=0x001b, t01=0x0026}
0x2a66…2a88 Head {h00=0x001e, h01=0x0050, text=» ST A9,ECBRL,A8 REQ LENGTH«, t00=0x001b, t01=0x003c}
0x2a88…2ab0 Head {h00=0x0024, h01=0x0050, text=» ST A12,ECBBA,A8 BUFFER ADDRESS «, t00=0x001b, t01=0x005e}
0x2ab0…2acc Head {h00=0x0018, h01=0x0050, text=» LD A7,KBINH,TCABAS «, t00=0x001b, t01=0x0086}
0x2acc…2b08 Head {h00=0x0038, h01=0x0050, text=» ORK A7,2 BIT 14 :=1 DISABLE KEYBOARD.RESET ALLOWED «, t00=0x001b, t01=0x00a2}
0x2b08…2b24 Head {h00=0x0018, h01=0x0050, text=» ST A7,KBINH,TCABAS «, t00=0x001b, t01=0x00de}
0x2b24…2b38 Head {h00=0x0010, h01=0x0050, text=» LDK A7,/86 «, t00=0x001b, t01=0x00fa}
0x2b38…2b4c Head {h00=0x0010, h01=0x0050, text=»DC100 EQU * «, t00=0x001b, t01=0x010e}
0x2b4c…2b58 Head {h00=0x0008, h01=0x0050, text=» LKM«, t00=0x001b, t01=0x0122}
0x2b58…2b68 Head {h00=0x000c, h01=0x0050, text=» DATA 1 «, t00=0x001b, t01=0x012e}
0x2b68…2b7c Head {h00=0x0010, h01=0x0050, text=»DC200 EQU * «, t00=0x001b, t01=0x013e}
0x2b7c…2b90 Head {h00=0x0010, h01=0x0050, text=» LDR A4,A12 «, t00=0x001b, t01=0x0152}
0x2b90…2ba6 Head {h00=0x0012, h01=0x0050, text=» CF A14,RLWBUF«, t00=0x001b, t01=0x0166}
0x2ba6…2bce Head {h00=0x0024, h01=0x0050, text=» LD A1,ECBRC,A8 GET RETURN CODE «, t00=0x001b, t01=0x017c}
0x2bce…2be2 Head {h00=0x0010, h01=0x0050, text=» RF(Z) DC300«, t00=0x001c, t01=0x0014}
0x2be2…2bfe Head {h00=0x0018, h01=0x0050, text=» LD A7,KBINH,TCABAS «, t00=0x001c, t01=0x0028}
0x2bfe…2c2a Head {h00=0x0028, h01=0x0050, text=» ANK A7,/D BIT 14:=0 ALLIWE KEYBOARD«, t00=0x001c, t01=0x0044}
0x2c2a…2c46 Head {h00=0x0018, h01=0x0050, text=» ST A7,KBINH,TCABAS «, t00=0x001c, t01=0x0070}
0x2c46…2c78 Head {h00=0x002e, h01=0x0050, text=» CF A14,LINHOF TURN OFF "KEYBOARD INHIBIT «, t00=0x001c, t01=0x008c}
0x2c78…2caa Head {h00=0x002e, h01=0x0050, text=» CF A14,LSAVOF TURN OFF "SYSTEM AVAILABLE"«, t00=0x001c, t01=0x00be}
0x2caa…2cb4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001c, t01=0x00f0}
0x2cb4…2ce2 Head {h00=0x002a, h01=0x0050, text=» LDK A7,/04 RESET KEYBOARD ECB BUFFER «, t00=0x001c, t01=0x00fa}
0x2ce2…2cf8 Head {h00=0x0012, h01=0x0050, text=» LDKL A8,ECBKB«, t00=0x001c, t01=0x0128}
0x2cf8…2d0e Head {h00=0x0012, h01=0x0050, text=» ADR A8,CREBAS«, t00=0x001c, t01=0x013e}
0x2d0e…2d1a Head {h00=0x0008, h01=0x0050, text=» LKM«, t00=0x001c, t01=0x0154}
0x2d1a…2d2a Head {h00=0x000c, h01=0x0050, text=» DATA 1 «, t00=0x001c, t01=0x0160}
0x2d2a…2d34 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001c, t01=0x0170}
0x2d34…2d44 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x001c, t01=0x017a}
0x2d44…2d58 Head {h00=0x0010, h01=0x0050, text=»DC300 EQU * «, t00=0x001c, t01=0x018a}
0x2d58…2d8a Head {h00=0x002e, h01=0x0050, text=» CF A14,LSAVON TURN ON 'SYSTEM AVAILABLE' «, t00=0x001d, t01=0x000e}
0x2d8a…2d9a Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x001d, t01=0x0040}
0x2d9a…2da8 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x001d, t01=0x0050}
0x2da8…2db2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001d, t01=0x005e}
0x2db2…2dbc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001d, t01=0x0068}
0x2dbc…2de8 Head {h00=0x0028, h01=0x0050, text=»* STORE CURSOR ADDRESS IN DC BUFFER «, t00=0x001d, t01=0x0072}
0x2de8…2df2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001d, t01=0x009e}
0x2df2…2dfc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001d, t01=0x00a8}
0x2dfc…2e1c Head {h00=0x001c, h01=0x0050, text=»CURSA LD A1,PCURS,TCABAS«, t00=0x001d, t01=0x00b2}
0x2e1c…2e2e Head {h00=0x000e, h01=0x0050, text=» RF BUFADR«, t00=0x001d, t01=0x00d2}
0x2e2e…2e38 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001d, t01=0x00e4}
0x2e38…2e42 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001d, t01=0x00ee}
0x2e42…2e6e Head {h00=0x0028, h01=0x0050, text=»* STORE BUFFER ADDRESS IN DC BUFFER «, t00=0x001d, t01=0x00f8}
0x2e6e…2e78 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001d, t01=0x0124}
0x2e78…2e9a Head {h00=0x001e, h01=0x0050, text=»* A1=BINARY BUFFER ADDRESS«, t00=0x001d, t01=0x012e}
0x2e9a…2ea4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001d, t01=0x0150}
0x2ea4…2eae Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001d, t01=0x015a}
0x2eae…2ec6 Head {h00=0x0014, h01=0x0050, text=»BUFADR LDR A2,A1«, t00=0x001d, t01=0x0164}
0x2ec6…2ed8 Head {h00=0x000e, h01=0x0050, text=» SRL A2,6 «, t00=0x001d, t01=0x017c}
0x2ed8…2eec Head {h00=0x0010, h01=0x0050, text=» ANK A2,/3F «, t00=0x001d, t01=0x018e}
0x2eec…2f16 Head {h00=0x0026, h01=0x0050, text=» LC A2,TASCII,A2 CONVERT TO ASCII «, t00=0x001e, t01=0x0012}
0x2f16…2f2c Head {h00=0x0012, h01=0x0050, text=» CF A14,PDCCH «, t00=0x001e, t01=0x003c}
0x2f2c…2f3e Head {h00=0x000e, h01=0x0050, text=» LDR A2,A1«, t00=0x001e, t01=0x0052}
0x2f3e…2f52 Head {h00=0x0010, h01=0x0050, text=» ANK A2,/3F «, t00=0x001e, t01=0x0064}
0x2f52…2f6a Head {h00=0x0014, h01=0x0050, text=» LC A2,TASCII,A2«, t00=0x001e, t01=0x0078}
0x2f6a…2f80 Head {h00=0x0012, h01=0x0050, text=» CF A14,PDCCH «, t00=0x001e, t01=0x0090}
0x2f80…2f90 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x001e, t01=0x00a6}
0x2f90…2f9e Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x001e, t01=0x00b6}
0x2f9e…2fa8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001e, t01=0x00c4}
0x2fa8…2fb2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001e, t01=0x00ce}
0x2fb2…2fe8 Head {h00=0x0032, h01=0x0050, text=»* GET MODIFIED DATA FROM DISPLAY IMAGE BUFFER «, t00=0x001e, t01=0x00d8}
0x2fe8…2ff2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001e, t01=0x010e}
0x2ff2…3016 Head {h00=0x0020, h01=0x0050, text=»* A3=BUFFER POSITION BINARY «, t00=0x001e, t01=0x0118}
0x3016…3032 Head {h00=0x0018, h01=0x0050, text=»* A4=BUFFER POINTER «, t00=0x001e, t01=0x013c}
0x3032…303c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001e, t01=0x0158}
0x303c…3046 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001e, t01=0x0162}
0x3046…306c Head {h00=0x0022, h01=0x0050, text=»RDMOD LDK A3,0 RESET POSITION «, t00=0x001e, t01=0x016c}
0x306c…3082 (31, 0, 400) Head {h00=0x0012, h01=0x0050, text=» LDKL A4,BVDU «, t00=0x001f, t01=0x0004}
0x3082…30a8 Head {h00=0x0022, h01=0x0050, text=» ADR A4,TCABAS BUFFER POINTER «, t00=0x001f, t01=0x001a}
0x30a8…30ec Head {h00=0x0040, h01=0x0050, text=»************************************************************«, t00=0x001f, t01=0x0040}
0x30ec…3116 Head {h00=0x0026, h01=0x0050, text=» ADKL A4,1919 LAST SCREEN POSITION«, t00=0x001f, t01=0x0084}
0x3116…3136 Head {h00=0x001c, h01=0x0050, text=» LCR A2,A4 GET CHARACTER«, t00=0x001f, t01=0x00ae}
0x3136…3168 Head {h00=0x002e, h01=0x0050, text=» LDKL A4,BVDU RELOAD FIRST BUFFER POSITION«, t00=0x001f, t01=0x00ce}
0x3168…317e Head {h00=0x0012, h01=0x0050, text=» ADR A4,TCABAS«, t00=0x001f, t01=0x0100}
0x317e…3186 Head {h00=0x0004, h01=0x0050, t00=0x001f, t01=0x0116}
0x3186…3198 Head {h00=0x000e, h01=0x0050, text=» LDR A1,A2«, t00=0x001f, t01=0x011e}
0x3198…31ba Head {h00=0x001e, h01=0x0050, text=» ANK A1,/60 ATTRIBUTE ??? «, t00=0x001f, t01=0x0130}
0x31ba…31d6 Head {h00=0x0018, h01=0x0050, text=» RF(Z) RD200 YES!!! «, t00=0x001f, t01=0x0152}
0x31d6…31de Head {h00=0x0004, h01=0x0050, t00=0x001f, t01=0x016e}
0x31de…3222 Head {h00=0x0040, h01=0x0050, text=»************************************************************«, t00=0x001f, t01=0x0176}
0x3222…323c Head {h00=0x0016, h01=0x0050, text=»RD100 CWK A3,LBVDU«, t00=0x0020, t01=0x002a}
0x323c…3260 Head {h00=0x0020, h01=0x0050, text=» RF(NL) RDMODE ALL EXAMINED «, t00=0x0020, t01=0x0044}
0x3260…327c Head {h00=0x0018, h01=0x0050, text=» LCR A2,A4 GET CHAR «, t00=0x0020, t01=0x0068}
0x327c…328e Head {h00=0x000e, h01=0x0050, text=» ADK A3,1 «, t00=0x0020, t01=0x0084}
0x328e…32a0 Head {h00=0x000e, h01=0x0050, text=» ADK A4,1 «, t00=0x0020, t01=0x0096}
0x32a0…32e4 Head {h00=0x0040, h01=0x0050, text=»************************************************************«, t00=0x0020, t01=0x00a8}
0x32e4…32f8 Head {h00=0x0010, h01=0x0050, text=»RD105 EQU * «, t00=0x0020, t01=0x00ec}
0x32f8…333c Head {h00=0x0040, h01=0x0050, text=»************************************************************«, t00=0x0020, t01=0x0100}
0x333c…334e Head {h00=0x000e, h01=0x0050, text=» LDR A1,A2«, t00=0x0020, t01=0x0144}
0x334e…3362 Head {h00=0x0010, h01=0x0050, text=» ANK A1,/60 «, t00=0x0020, t01=0x0156}
0x3362…3386 Head {h00=0x0020, h01=0x0050, text=» RF(Z) RD200 ATTRIBUTE CHAR «, t00=0x0020, t01=0x016a}
0x3386…33a0 Head {h00=0x0016, h01=0x0050, text=»RD110 CWK A2,NULL «, t00=0x0020, t01=0x018e}
0x33a0…33c6 Head {h00=0x0022, h01=0x0050, text=» RB(E) RD100 DON'T STORE NULL «, t00=0x0021, t01=0x0018}
0x33c6…33f4 Head {h00=0x002a, h01=0x0050, text=» CF A14,PDCCH STORE CHAR IN DC BUFFER «, t00=0x0021, t01=0x003e}
0x33f4…3406 Head {h00=0x000e, h01=0x0050, text=» RB RD100 «, t00=0x0021, t01=0x006c}
0x3406…342a Head {h00=0x0020, h01=0x0050, text=»RD200 ANK A2,1 CHECK MDT BIT«, t00=0x0021, t01=0x007e}
0x342a…344e Head {h00=0x0020, h01=0x0050, text=» RF(NZ) RD300 MODIFIED FIELD«, t00=0x0021, t01=0x00a2}
0x344e…3468 Head {h00=0x0016, h01=0x0050, text=»RD210 CWK A3,LBVDU«, t00=0x0021, t01=0x00c6}
0x3468…348c Head {h00=0x0020, h01=0x0050, text=» RF(NL) RDMODE ALL EXAMINED «, t00=0x0021, t01=0x00e0}
0x348c…349e Head {h00=0x000e, h01=0x0050, text=» LCR A2,A4«, t00=0x0021, t01=0x0104}
0x349e…34b0 Head {h00=0x000e, h01=0x0050, text=» ADK A3,1 «, t00=0x0021, t01=0x0116}
0x34b0…34c2 Head {h00=0x000e, h01=0x0050, text=» ADK A4,1 «, t00=0x0021, t01=0x0128}
0x34c2…34d4 Head {h00=0x000e, h01=0x0050, text=» LDR A1,A2«, t00=0x0021, t01=0x013a}
0x34d4…34e8 Head {h00=0x0010, h01=0x0050, text=» ANK A1,/60 «, t00=0x0021, t01=0x014c}
0x34e8…3510 Head {h00=0x0024, h01=0x0050, text=» RB(NZ) RD210 NO ATTRIBUTE CHAR «, t00=0x0021, t01=0x0160}
0x3510…355a Head {h00=0x0046, h01=0x0050, text=»******************************************************** 78-05-11«, t00=0x0021, t01=0x0188}
0x355a…3588 Head {h00=0x002a, h01=0x0050, text=» CWK A3,LBVDU ALL BUFFER EXAMINED ??? «, t00=0x0022, t01=0x0042}
0x3588…35a4 Head {h00=0x0018, h01=0x0050, text=» RF(NL) RDMODE YES!!«, t00=0x0022, t01=0x0070}
0x35a4…35ee Head {h00=0x0046, h01=0x0050, text=»******************************************************** 78-05-11«, t00=0x0022, t01=0x008c}
0x35ee…3610 Head {h00=0x001e, h01=0x0050, text=» RB RD200 ATTRIBUTE FOUND «, t00=0x0022, t01=0x00d6}
0x3610…3628 Head {h00=0x0014, h01=0x0050, text=»RD300 LDK A2,SBA«, t00=0x0022, t01=0x00f8}
0x3628…364e Head {h00=0x0022, h01=0x0050, text=» CF A14,PDCCH SBA TO DC BUFFER«, t00=0x0022, t01=0x0110}
0x364e…3670 Head {h00=0x001e, h01=0x0050, text=» LDR A1,A3 BUFFER POSITION«, t00=0x0022, t01=0x0136}
0x3670…3694 Head {h00=0x0020, h01=0x0050, text=» CF A14,BUFADR TO DC BUFFER «, t00=0x0022, t01=0x0158}
0x3694…36a6 Head {h00=0x000e, h01=0x0050, text=» RB RD100 «, t00=0x0022, t01=0x017c}
0x36a6…36bc Head {h00=0x0012, h01=0x0050, text=»RDMODE RTN A14«, t00=0x0022, t01=0x018e}
0x36bc…36ca Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0023, t01=0x0014}
0x36ca…36d4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0023, t01=0x0022}
0x36d4…36de Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0023, t01=0x002c}
0x36de…3716 Head {h00=0x0034, h01=0x0050, text=»* UPDATE VIDEO DISPLAY BUFFER IMAGE BY THE DATA «, t00=0x0023, t01=0x0036}
0x3716…3720 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0023, t01=0x006e}
0x3720…3744 Head {h00=0x0020, h01=0x0050, text=»* RECEIVED FROM THE DC LINE «, t00=0x0023, t01=0x0078}
0x3744…374e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0023, t01=0x009c}
0x374e…3758 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0023, t01=0x00a6}
0x3758…377e Head {h00=0x0022, h01=0x0050, text=»* A7=DC RECEIVE BUFFER POINTER«, t00=0x0023, t01=0x00b0}
0x377e…379a Head {h00=0x0018, h01=0x0050, text=»* A8=DC ECB ADDRESS «, t00=0x0023, t01=0x00d6}
0x379a…37c6 Head {h00=0x0028, h01=0x0050, text=»* A9=DC BUFFER INDEX, INITIALLY ZERO«, t00=0x0023, t01=0x00f2}
0x37c6…37d0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0023, t01=0x011e}
0x37d0…37f4 Head {h00=0x0020, h01=0x0050, text=»* A3=DISPLAY BUFFER POSITION«, t00=0x0023, t01=0x0128}
0x37f4…3818 Head {h00=0x0020, h01=0x0050, text=»* A4=DISPLAY BUFFER POINTER «, t00=0x0023, t01=0x014c}
0x3818…3822 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0023, t01=0x0170}
0x3822…382c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0023, t01=0x017a}
0x382c…3840 Head {h00=0x0010, h01=0x0050, text=»UPDATE EQU *«, t00=0x0023, t01=0x0184}
0x3840…385a Head {h00=0x0016, h01=0x0050, text=» CM ICWORK,TCABAS «, t00=0x0024, t01=0x0008}
0x385a…3876 Head {h00=0x0018, h01=0x0050, text=» LD A8,ECBDCC,TCABAS«, t00=0x0024, t01=0x0022}
0x3876…38a0 Head {h00=0x0026, h01=0x0050, text=» LD A7,ECBBA,A8 DC BUFFER ADDRESS «, t00=0x0024, t01=0x003e}
0x38a0…38c8 Head {h00=0x0024, h01=0x0050, text=» SUR A9,A9 RESET DC BUFFER INDEX«, t00=0x0024, t01=0x0068}
0x38c8…38fc Head {h00=0x0030, h01=0x0050, text=» CF A14,GDCCH GET FIRST CHAR FROM DC BUFFER «, t00=0x0024, t01=0x0090}
0x38fc…3920 Head {h00=0x0020, h01=0x0050, text=» CWK A2,ESC SHOULD BE ESCAPE«, t00=0x0024, t01=0x00c4}
0x3920…3942 Head {h00=0x001e, h01=0x0050, text=» RF(NE) UPDEND NOT ESCAPE «, t00=0x0024, t01=0x00e8}
0x3942…3968 Head {h00=0x0022, h01=0x0050, text=» CF A14,GDCCH GET COMMAND CODE«, t00=0x0024, t01=0x010a}
0x3968…397c Head {h00=0x0010, h01=0x0050, text=» CWK A2,/31 «, t00=0x0024, t01=0x0130}
0x397c…3998 Head {h00=0x0018, h01=0x0050, text=» RF(E) UPD100 WRITE «, t00=0x0024, t01=0x0144}
0x3998…39ac Head {h00=0x0010, h01=0x0050, text=» CWK A2,/35 «, t00=0x0024, t01=0x0160}
0x39ac…39ce Head {h00=0x001e, h01=0x0050, text=» RF(E) UPD120 ERASE/WRITE «, t00=0x0024, t01=0x0174}
0x39ce…39e2 Head {h00=0x0010, h01=0x0050, text=» CWK A2,/3F «, t00=0x0025, t01=0x0008}
0x39e2…3a0e Head {h00=0x0028, h01=0x0050, text=» RF(E) UPD140 ERASE ALL UNPROTECTED «, t00=0x0025, t01=0x001c}
0x3a0e…3a24 Head {h00=0x0012, h01=0x0050, text=» IFT COPCMD=1 «, t00=0x0025, t01=0x0048}
0x3a24…3a38 Head {h00=0x0010, h01=0x0050, text=» CWK A2,/37 «, t00=0x0025, t01=0x005e}
0x3a38…3a5c Head {h00=0x0020, h01=0x0050, text=» ABL(E) UPD600 COPY COMMAND «, t00=0x0025, t01=0x0072}
0x3a5c…3a68 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0025, t01=0x0096}
0x3a68…3a90 Head {h00=0x0024, h01=0x0050, text=» RF UPDEND INVALID COMMAND CODE «, t00=0x0025, t01=0x00a2}
0x3a90…3a9e Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0025, t01=0x00ca}
0x3a9e…3aa8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0025, t01=0x00d8}
0x3aa8…3ac0 Head {h00=0x0014, h01=0x0050, text=»* WRITE COMMAND «, t00=0x0025, t01=0x00e2}
0x3ac0…3aca Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0025, t01=0x00fa}
0x3aca…3ade Head {h00=0x0010, h01=0x0050, text=»UPD100 EQU *«, t00=0x0025, t01=0x0104}
0x3ade…3b0a Head {h00=0x0028, h01=0x0050, text=» CF A14,PWCC PROCESS WCC FOR MDT BIT«, t00=0x0025, t01=0x0118}
0x3b0a…3b26 Head {h00=0x0018, h01=0x0050, text=» LD A3,PCURS,TCABAS «, t00=0x0025, t01=0x0144}
0x3b26…3b52 Head {h00=0x0028, h01=0x0050, text=» LDR A4,A3 START IN CURSOR POSITION «, t00=0x0025, t01=0x0160}
0x3b52…3b68 Head {h00=0x0012, h01=0x0050, text=» ADKL A4,BVDU «, t00=0x0025, t01=0x018c}
0x3b68…3b7e Head {h00=0x0012, h01=0x0050, text=» ADR A4,TCABAS«, t00=0x0026, t01=0x0012}
0x3b7e…3ba6 Head {h00=0x0024, h01=0x0050, text=» LDK A5,1 INDICATE WCC, IC OR RA«, t00=0x0026, t01=0x0028}
0x3ba6…3bb8 Head {h00=0x000e, h01=0x0050, text=» RF UPD220«, t00=0x0026, t01=0x0050}
0x3bb8…3bc2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0026, t01=0x0062}
0x3bc2…3be0 Head {h00=0x001a, h01=0x0050, text=»* ERASE/WRITE COMMAND «, t00=0x0026, t01=0x006c}
0x3be0…3bea Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0026, t01=0x008a}
0x3bea…3bfe Head {h00=0x0010, h01=0x0050, text=»UPD120 EQU *«, t00=0x0026, t01=0x0094}
0x3bfe…3c20 Head {h00=0x001e, h01=0x0050, text=» CF A14,ERASE ERASE SCREEN«, t00=0x0026, t01=0x00a8}
0x3c20…3c32 Head {h00=0x000e, h01=0x0050, text=» RF UPD200«, t00=0x0026, t01=0x00ca}
0x3c32…3c3c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0026, t01=0x00dc}
0x3c3c…3c5c Head {h00=0x001c, h01=0x0050, text=»* ERASE ALL UNPROTECTED «, t00=0x0026, t01=0x00e6}
0x3c5c…3c66 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0026, t01=0x0106}
0x3c66…3c7a Head {h00=0x0010, h01=0x0050, text=»UPD140 EQU *«, t00=0x0026, t01=0x0110}
0x3c7a…3ca6 Head {h00=0x0028, h01=0x0050, text=» CF A14,ERASUP ERASE ALL UNPROTECTED«, t00=0x0026, t01=0x0124}
0x3ca6…3cd2 Head {h00=0x0028, h01=0x0050, text=» RF UPDEND NO TEXT WITH THIS COMMAND«, t00=0x0026, t01=0x0150}
0x3cd2…3cdc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0026, t01=0x017c}
0x3cdc…3d0e Head {h00=0x002e, h01=0x0050, text=»* TAKE CARE OF WRITE CONTROL CHARACTER WCC«, t00=0x0026, t01=0x0186}
0x3d0e…3d18 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0027, t01=0x0028}
0x3d18…3d3e Head {h00=0x0022, h01=0x0050, text=»UPD200 CF A14,PWCC PROCESS WCC«, t00=0x0027, t01=0x0032}
0x3d3e…3d66 Head {h00=0x0024, h01=0x0050, text=» LDK A5,1 INDICATE WCC, IC OR RA«, t00=0x0027, t01=0x0058}
0x3d66…3d74 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0027, t01=0x0080}
0x3d74…3d7e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0027, t01=0x008e}
0x3d7e…3d88 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0027, t01=0x0098}
0x3d88…3dae Head {h00=0x0022, h01=0x0050, text=»* PROCESS DATA FROM DC BUFFER «, t00=0x0027, t01=0x00a2}
0x3dae…3db8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0027, t01=0x00c8}
0x3db8…3dc2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0027, t01=0x00d2}
0x3dc2…3df2 Head {h00=0x002c, h01=0x0050, text=»UPD210 LDK A3,0 START FROM POSITION ZERO«, t00=0x0027, t01=0x00dc}
0x3df2…3e08 Head {h00=0x0012, h01=0x0050, text=» LDKL A4,BVDU «, t00=0x0027, t01=0x010c}
0x3e08…3e1e Head {h00=0x0012, h01=0x0050, text=» ADR A4,TCABAS«, t00=0x0027, t01=0x0122}
0x3e1e…3e40 Head {h00=0x001e, h01=0x0050, text=»UPD220 CW A9,DCLENG,TCABAS«, t00=0x0027, t01=0x0138}
0x3e40…3e74 Head {h00=0x0030, h01=0x0050, text=» RF(NL) UPDEND ALL RECEIVED CHARS PROCESSED «, t00=0x0027, t01=0x015a}
0x3e74…3ea2 Head {h00=0x002a, h01=0x0050, text=» CF A14,GDCCH GET CHAR FROM DC BUFFER «, t00=0x0027, t01=0x018e}
0x3ea2…3eb6 Head {h00=0x0010, h01=0x0050, text=» CWK A2,/20 «, t00=0x0028, t01=0x002c}
0x3eb6…3ed2 Head {h00=0x0018, h01=0x0050, text=» RF(L) UPD300 ORDER «, t00=0x0028, t01=0x0040}
0x3ed2…3ee6 Head {h00=0x0010, h01=0x0050, text=»UPD230 EQU *«, t00=0x0028, t01=0x005c}
0x3ee6…3f0a Head {h00=0x0020, h01=0x0050, text=» ORK A2,/80 SET DISPLAY BIT «, t00=0x0028, t01=0x0070}
0x3f0a…3f1e Head {h00=0x0010, h01=0x0050, text=»UPD240 EQU *«, t00=0x0028, t01=0x0094}
0x3f1e…3f4a Head {h00=0x0028, h01=0x0050, text=» LDK A5,0 INDICATE NOT WCC, IC OR RA«, t00=0x0028, t01=0x00a8}
0x3f4a…3f60 Head {h00=0x0012, h01=0x0050, text=» CWK A3,LBVDU «, t00=0x0028, t01=0x00d4}
0x3f60…3f8a Head {h00=0x0026, h01=0x0050, text=» RF(E) UPD260 END OF VIDEO BUFFER «, t00=0x0028, t01=0x00ea}
0x3f8a…3f9e Head {h00=0x0010, h01=0x0050, text=»UPD250 EQU *«, t00=0x0028, t01=0x0114}
0x3f9e…3fc6 Head {h00=0x0024, h01=0x0050, text=» SCR A2,A4 STORE IN VIDEO BUFFER«, t00=0x0028, t01=0x0128}
0x3fc6…3fd8 Head {h00=0x000e, h01=0x0050, text=» ADK A3,1 «, t00=0x0028, t01=0x0150}
0x3fd8…3fea Head {h00=0x000e, h01=0x0050, text=» ADK A4,1 «, t00=0x0028, t01=0x0162}
0x3fea…3ffc Head {h00=0x000e, h01=0x0050, text=» RB UPD220«, t00=0x0028, t01=0x0174}
0x3ffc…4014 Head {h00=0x0014, h01=0x0050, text=»UPD260 LDK A3,0 «, t00=0x0028, t01=0x0186}
0x4014…402a Head {h00=0x0012, h01=0x0050, text=» LDKL A4,BVDU «, t00=0x0029, t01=0x000e}
0x402a…4040 Head {h00=0x0012, h01=0x0050, text=» ADR A4,TCABAS«, t00=0x0029, t01=0x0024}
0x4040…4052 Head {h00=0x000e, h01=0x0050, text=» RB UPD250«, t00=0x0029, t01=0x003a}
0x4052…4066 Head {h00=0x0010, h01=0x0050, text=»UPD300 EQU *«, t00=0x0029, t01=0x004c}
0x4066…40a4 Head {h00=0x003a, h01=0x0050, text=»******************************************* 78-08-15 «, t00=0x0029, t01=0x0060}
0x40a4…40d4 Head {h00=0x002c, h01=0x0050, text=» CWK A3,LBVDU END OF DISPLAY BUFFER ??? «, t00=0x0029, t01=0x009e}
0x40d4…40f0 Head {h00=0x0018, h01=0x0050, text=» RF(NE) UPD302 NO!!!«, t00=0x0029, t01=0x00ce}
0x40f0…4118 Head {h00=0x0024, h01=0x0050, text=» SUR A3,A3 FIRST SCREEN POSITION«, t00=0x0029, t01=0x00ea}
0x4118…412e Head {h00=0x0012, h01=0x0050, text=» LDKL A4,BVDU «, t00=0x0029, t01=0x0112}
0x412e…4154 Head {h00=0x0022, h01=0x0050, text=» ADR A4,TCABAS BUFFER POSITION«, t00=0x0029, t01=0x0128}
0x4154…4168 Head {h00=0x0010, h01=0x0050, text=»UPD302 EQU *«, t00=0x0029, t01=0x014e}
0x4168…41a6 Head {h00=0x003a, h01=0x0050, text=»******************************************* 78-08-15 «, t00=0x0029, t01=0x0162}
0x41a6…41ba Head {h00=0x0010, h01=0x0050, text=» CWK A2,/1D «, t00=0x002a, t01=0x0010}
0x41ba…41dc Head {h00=0x001e, h01=0x0050, text=» RF(E) UPD320 START FIELD «, t00=0x002a, t01=0x0024}
0x41dc…41f0 Head {h00=0x0010, h01=0x0050, text=» CWK A2,/11 «, t00=0x002a, t01=0x0046}
0x41f0…4218 Head {h00=0x0024, h01=0x0050, text=» RF(E) UPD340 SET BUFFER ADDRESS«, t00=0x002a, t01=0x005a}
0x4218…422c Head {h00=0x0010, h01=0x0050, text=» CWK A2,/13 «, t00=0x002a, t01=0x0082}
0x422c…4250 Head {h00=0x0020, h01=0x0050, text=» RF(E) UPD360 INSERT CURSOR «, t00=0x002a, t01=0x0096}
0x4250…4264 Head {h00=0x0010, h01=0x0050, text=» CWK A2,/09 «, t00=0x002a, t01=0x00ba}
0x4264…4286 Head {h00=0x001e, h01=0x0050, text=» RF(E) UPD400 PROGRAM TAB «, t00=0x002a, t01=0x00ce}
0x4286…429a Head {h00=0x0010, h01=0x0050, text=» CWK A2,/14 «, t00=0x002a, t01=0x00f0}
0x429a…42c2 Head {h00=0x0024, h01=0x0050, text=» RF(E) UPD500 REPEAT TO ADDRESS «, t00=0x002a, t01=0x0104}
0x42c2…42d6 Head {h00=0x0010, h01=0x0050, text=» CWK A2,/12 «, t00=0x002a, t01=0x012c}
0x42d6…4308 Head {h00=0x002e, h01=0x0050, text=» RF(E) UPD540 ERASE UNPROTECTED TO ADDRESS«, t00=0x002a, t01=0x0140}
0x4308…431c Head {h00=0x0010, h01=0x0050, text=» CWK A2,/0C «, t00=0x002a, t01=0x0172}
0x431c…4332 Head {h00=0x0012, h01=0x0050, text=» RF(NE) UPD305«, t00=0x002a, t01=0x0186}
0x4332…4352 Head {h00=0x001c, h01=0x0050, text=» LDK A2,FORMFD FORM FEED«, t00=0x002b, t01=0x000c}
0x4352…4364 Head {h00=0x000e, h01=0x0050, text=» RB UPD230«, t00=0x002b, t01=0x002c}
0x4364…437e Head {h00=0x0016, h01=0x0050, text=»UPD305 CWK A2,/19 «, t00=0x002b, t01=0x003e}
0x437e…4394 Head {h00=0x0012, h01=0x0050, text=» RF(NE) UPD310«, t00=0x002b, t01=0x0058}
0x4394…43b6 Head {h00=0x001e, h01=0x0050, text=» LDK A2,ENDMES END MESSAGE«, t00=0x002b, t01=0x006e}
0x43b6…43c8 Head {h00=0x000e, h01=0x0050, text=» RB UPD230«, t00=0x002b, t01=0x0090}
0x43c8…43dc Head {h00=0x0010, h01=0x0050, text=»UPD310 EQU *«, t00=0x002b, t01=0x00a2}
0x43dc…43f0 Head {h00=0x0010, h01=0x0050, text=» CWK A2,/0A «, t00=0x002b, t01=0x00b6}
0x43f0…4406 Head {h00=0x0012, h01=0x0050, text=» RF(NE) UPD315«, t00=0x002b, t01=0x00ca}
0x4406…4426 Head {h00=0x001c, h01=0x0050, text=» LDK A2,NEWLIN NEW LINE «, t00=0x002b, t01=0x00e0}
0x4426…4438 Head {h00=0x000e, h01=0x0050, text=» RB UPD230«, t00=0x002b, t01=0x0100}
0x4438…444c Head {h00=0x0010, h01=0x0050, text=»UPD315 EQU *«, t00=0x002b, t01=0x0112}
0x444c…4460 Head {h00=0x0010, h01=0x0050, text=» CWK A2,/18 «, t00=0x002b, t01=0x0126}
0x4460…4484 Head {h00=0x0020, h01=0x0050, text=» RF(NE) UPD318 ILLEGAL ORDER«, t00=0x002b, t01=0x013a}
0x4484…4498 Head {h00=0x0010, h01=0x0050, text=» LDK A2,/30 «, t00=0x002b, t01=0x015e}
0x4498…44aa Head {h00=0x000e, h01=0x0050, text=» RB UPD230«, t00=0x002b, t01=0x0172}
0x44aa…44b8 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x002b, t01=0x0184}
0x44b8…44c0 (44, 0, 400) Head {h00=0x0004, h01=0x0050, t00=0x002c, t01=0x0004}
0x44c0…44d4 Head {h00=0x0010, h01=0x0050, text=»UPD318 EQU *«, t00=0x002c, t01=0x000c}
0x44d4…44fa Head {h00=0x0022, h01=0x0050, text=» CWK A2,/00 NULL CHARACTER ???«, t00=0x002c, t01=0x0020}
0x44fa…4524 Head {h00=0x0026, h01=0x0050, text=» RF(NE) UPDEND NO!! ILLEGAL ORDER«, t00=0x002c, t01=0x0046}
0x4524…454a Head {h00=0x0022, h01=0x0050, text=» LDK A2,/7F PTS NULL CHARACTER«, t00=0x002c, t01=0x0070}
0x454a…455c Head {h00=0x000e, h01=0x0050, text=» RB UPD230«, t00=0x002c, t01=0x0096}
0x455c…4564 Head {h00=0x0004, h01=0x0050, t00=0x002c, t01=0x00a8}
0x4564…45a8 Head {h00=0x0040, h01=0x0050, text=»************************************************************«, t00=0x002c, t01=0x00b0}
0x45a8…45b2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002c, t01=0x00f4}
0x45b2…45d4 Head {h00=0x001e, h01=0x0050, text=»* RELEASE RECEIVE BUFFER«, t00=0x002c, t01=0x00fe}
0x45d4…45de Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002c, t01=0x0120}
0x45de…460c Head {h00=0x002a, h01=0x0050, text=»************************************* «, t00=0x002c, t01=0x012a}
0x460c…4614 Head {h00=0x0004, h01=0x0050, t00=0x002c, t01=0x0158}
0x4614…4628 Head {h00=0x0010, h01=0x0050, text=»UPDEND EQU *«, t00=0x002c, t01=0x0160}
0x4628…4644 Head {h00=0x0018, h01=0x0050, text=» LD A8,ECBDCC,TCABAS«, t00=0x002c, t01=0x0174}
0x4644…465c Head {h00=0x0014, h01=0x0050, text=» LD A4,ECBBA,A8 «, t00=0x002c, t01=0x0190}
0x465c…4672 Head {h00=0x0012, h01=0x0050, text=» CF A14,RLRBUF«, t00=0x002d, t01=0x0018}
0x4672…4682 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x002d, t01=0x002e}
0x4682…4690 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x002d, t01=0x003e}
0x4690…469a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002d, t01=0x004c}
0x469a…46a4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002d, t01=0x0056}
0x46a4…46c0 Head {h00=0x0018, h01=0x0050, text=»* START FIELD ORDER «, t00=0x002d, t01=0x0060}
0x46c0…46ca Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002d, t01=0x007c}
0x46ca…46f8 Head {h00=0x002a, h01=0x0050, text=»UPD320 CF A14,GDCCH GET ATTRIBUTE CHAR«, t00=0x002d, t01=0x0086}
0x46f8…4710 Head {h00=0x0014, h01=0x0050, text=» LC A2,TEBCDI,A2«, t00=0x002d, t01=0x00b4}
0x4710…473e Head {h00=0x002a, h01=0x0050, text=» LDR A1,A2 COMPOSE PTS ATTRIBUTE CHAR «, t00=0x002d, t01=0x00cc}
0x473e…4750 Head {h00=0x000e, h01=0x0050, text=» ANK A1,1 «, t00=0x002d, t01=0x00fa}
0x4750…4762 Head {h00=0x000e, h01=0x0050, text=» SRL A2,1 «, t00=0x002d, t01=0x010c}
0x4762…4776 Head {h00=0x0010, h01=0x0050, text=» ANK A2,/1E «, t00=0x002d, t01=0x011e}
0x4776…4788 Head {h00=0x000e, h01=0x0050, text=» ORR A2,A1«, t00=0x002d, t01=0x0132}
0x4788…479a Head {h00=0x000e, h01=0x0050, text=» RB UPD240«, t00=0x002d, t01=0x0144}
0x479a…47a4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002d, t01=0x0156}
0x47a4…47c0 Head {h00=0x0018, h01=0x0050, text=»* SET BUFFER ADDRESS«, t00=0x002d, t01=0x0160}
0x47c0…47ca Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002d, t01=0x017c}
0x47ca…47f2 Head {h00=0x0024, h01=0x0050, text=»UPD340 CF A14,GETADR GET ADDRESS«, t00=0x002d, t01=0x0186}
0x47f2…4808 Head {h00=0x0012, h01=0x0050, text=» CWK A1,LBVDU «, t00=0x002e, t01=0x001e}
0x4808…482e Head {h00=0x0022, h01=0x0050, text=» RB(NL) UPDEND INVALID ADDRESS«, t00=0x002e, t01=0x0034}
0x482e…4840 Head {h00=0x000e, h01=0x0050, text=» LDR A3,A1«, t00=0x002e, t01=0x005a}
0x4840…4852 Head {h00=0x000e, h01=0x0050, text=» LDR A4,A3«, t00=0x002e, t01=0x006c}
0x4852…4868 Head {h00=0x0012, h01=0x0050, text=» ADKL A4,BVDU «, t00=0x002e, t01=0x007e}
0x4868…487e Head {h00=0x0012, h01=0x0050, text=» ADR A4,TCABAS«, t00=0x002e, t01=0x0094}
0x487e…4890 Head {h00=0x000e, h01=0x0050, text=» RB UPD220«, t00=0x002e, t01=0x00aa}
0x4890…489a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002e, t01=0x00bc}
0x489a…48b2 Head {h00=0x0014, h01=0x0050, text=»* INSERT CURSOR «, t00=0x002e, t01=0x00c6}
0x48b2…48bc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002e, t01=0x00de}
0x48bc…48f0 Head {h00=0x0030, h01=0x0050, text=»UPD360 ST A3,PCURS,TCABAS SET NEW CURSOR POS«, t00=0x002e, t01=0x00e8}
0x48f0…4918 Head {h00=0x0024, h01=0x0050, text=» LDK A5,1 INDICATE WCC, IC OR RA«, t00=0x002e, t01=0x011c}
0x4918…492a Head {h00=0x000e, h01=0x0050, text=» RB UPD220«, t00=0x002e, t01=0x0144}
0x492a…4938 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x002e, t01=0x0156}
0x4938…4942 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002e, t01=0x0164}
0x4942…4958 Head {h00=0x0012, h01=0x0050, text=»* PROGRAM TAB «, t00=0x002e, t01=0x016e}
0x4958…4962 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002e, t01=0x0184}
0x4962…497a Head {h00=0x0014, h01=0x0050, text=»UPD400 LDR A5,A5«, t00=0x002e, t01=0x018e}
0x497a…49a8 Head {h00=0x002a, h01=0x0050, text=» RF(NZ) UPD430 PT AFTER WCC, IC OR RA «, t00=0x002f, t01=0x0016}
0x49a8…49dc Head {h00=0x0030, h01=0x0050, text=» LDK A1,NULL+/80 FILL CURRENT FIELD BY NULLS«, t00=0x002f, t01=0x0044}
0x49dc…49f0 Head {h00=0x0010, h01=0x0050, text=»UPD410 EQU *«, t00=0x002f, t01=0x0078}
0x49f0…4a02 Head {h00=0x000e, h01=0x0050, text=» LDK A5,0 «, t00=0x002f, t01=0x008c}
0x4a02…4a18 Head {h00=0x0012, h01=0x0050, text=» CWK A3,LBVDU «, t00=0x002f, t01=0x009e}
0x4a18…4a3c Head {h00=0x0020, h01=0x0050, text=» RB(NL) UPD210 END OF BUFFER«, t00=0x002f, t01=0x00b4}
0x4a3c…4a4e Head {h00=0x000e, h01=0x0050, text=» LCR A2,A4«, t00=0x002f, t01=0x00d8}
0x4a4e…4a60 Head {h00=0x000e, h01=0x0050, text=» ADK A3,1 «, t00=0x002f, t01=0x00ea}
0x4a60…4a74 Head {h00=0x0010, h01=0x0050, text=» ANK A2,/7F «, t00=0x002f, t01=0x00fc}
0x4a74…4a88 Head {h00=0x0010, h01=0x0050, text=» CWK A2,/20 «, t00=0x002f, t01=0x0110}
0x4a88…4a9e Head {h00=0x0012, h01=0x0050, text=» RF(L) UPD415 «, t00=0x002f, t01=0x0124}
0x4a9e…4abc Head {h00=0x001a, h01=0x0050, text=» SCR A1,A4 STORE NULL «, t00=0x002f, t01=0x013a}
0x4abc…4ace Head {h00=0x000e, h01=0x0050, text=» ADK A4,1 «, t00=0x002f, t01=0x0158}
0x4ace…4ae0 Head {h00=0x000e, h01=0x0050, text=» RB UPD410«, t00=0x002f, t01=0x016a}
0x4ae0…4af4 Head {h00=0x0010, h01=0x0050, text=»UPD415 EQU *«, t00=0x002f, t01=0x017c}
0x4af4…4b06 Head {h00=0x000e, h01=0x0050, text=» ADK A4,1 «, t00=0x002f, t01=0x0190}
0x4b06…4b20 Head {h00=0x0016, h01=0x0050, text=»UPD420 ANK A2,/10 «, t00=0x0030, t01=0x0012}
0x4b20…4b48 Head {h00=0x0024, h01=0x0050, text=» RB(Z) UPD220 UNPROTECTED FIELD «, t00=0x0030, t01=0x002c}
0x4b48…4b5c Head {h00=0x0010, h01=0x0050, text=»UPD430 EQU *«, t00=0x0030, t01=0x0054}
0x4b5c…4b6e Head {h00=0x000e, h01=0x0050, text=» LDK A5,0 «, t00=0x0030, t01=0x0068}
0x4b6e…4b84 Head {h00=0x0012, h01=0x0050, text=» CWK A3,LBVDU «, t00=0x0030, t01=0x007a}
0x4b84…4bb2 Head {h00=0x002a, h01=0x0050, text=» ABL(NL) UPD210 END OF DISPLAY BUFFER «, t00=0x0030, t01=0x0090}
0x4bb2…4bc4 Head {h00=0x000e, h01=0x0050, text=» LCR A2,A4«, t00=0x0030, t01=0x00be}
0x4bc4…4bd6 Head {h00=0x000e, h01=0x0050, text=» ADK A3,1 «, t00=0x0030, t01=0x00d0}
0x4bd6…4be8 Head {h00=0x000e, h01=0x0050, text=» ADK A4,1 «, t00=0x0030, t01=0x00e2}
0x4be8…4bfc Head {h00=0x0010, h01=0x0050, text=» ANK A2,/7F «, t00=0x0030, t01=0x00f4}
0x4bfc…4c10 Head {h00=0x0010, h01=0x0050, text=» CWK A2,/20 «, t00=0x0030, t01=0x0108}
0x4c10…4c26 Head {h00=0x0012, h01=0x0050, text=» RB(L) UPD420 «, t00=0x0030, t01=0x011c}
0x4c26…4c38 Head {h00=0x000e, h01=0x0050, text=» RB UPD430«, t00=0x0030, t01=0x0132}
0x4c38…4c46 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0030, t01=0x0144}
0x4c46…4c50 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0030, t01=0x0152}
0x4c50…4c6c Head {h00=0x0018, h01=0x0050, text=»* REPEAT TO ADDRESS «, t00=0x0030, t01=0x015c}
0x4c6c…4c76 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0030, t01=0x0178}
0x4c76…4ca2 Head {h00=0x0028, h01=0x0050, text=»UPD500 CF A14,GETADR GET END ADDRESS«, t00=0x0030, t01=0x0182}
0x4ca2…4cb8 Head {h00=0x0012, h01=0x0050, text=» CWK A1,LBVDU «, t00=0x0031, t01=0x001e}
0x4cb8…4cde Head {h00=0x0022, h01=0x0050, text=» RB(NL) UPDEND INVALID ADDRESS«, t00=0x0031, t01=0x0034}
0x4cde…4d0c Head {h00=0x002a, h01=0x0050, text=» CF A14,GDCCH GET CHAR TO BE REPEATED «, t00=0x0031, t01=0x005a}
0x4d0c…4d34 Head {h00=0x0024, h01=0x0050, text=» LDK A5,1 INDICATE WCC, IC OR RA«, t00=0x0031, t01=0x0088}
0x4d34…4d5a Head {h00=0x0022, h01=0x0050, text=» ORK A2,/80 INDICATE MODIFIED «, t00=0x0031, t01=0x00b0}
0x4d5a…4d62 Head {h00=0x0004, h01=0x0050, t00=0x0031, t01=0x00d6}
0x4d62…4da8 Head {h00=0x0042, h01=0x0050, text=»**************************************************** 78-07-02«, t00=0x0031, t01=0x00de}
0x4da8…4db0 Head {h00=0x0004, h01=0x0050, t00=0x0031, t01=0x0124}
0x4db0…4de6 Head {h00=0x0032, h01=0x0050, text=» CWR A3,A1 NULLS TO ALL SCREEN POSITIONS ???? «, t00=0x0031, t01=0x012c}
0x4de6…4e02 Head {h00=0x0018, h01=0x0050, text=» RF(E) UPD530 YES!!!«, t00=0x0031, t01=0x0162}
0x4e02…4e0a Head {h00=0x0004, h01=0x0050, t00=0x0031, t01=0x017e}
0x4e0a…4e52 Head {h00=0x0044, h01=0x0050, text=»***************************************************** 78-07-02 «, t00=0x0031, t01=0x0186}
0x4e52…4e5a Head {h00=0x0004, h01=0x0050, t00=0x0032, t01=0x003e}
0x4e5a…4e76 Head {h00=0x0018, h01=0x0050, text=»UPD510 CWK A3,LBVDU «, t00=0x0032, t01=0x0046}
0x4e76…4e9e Head {h00=0x0024, h01=0x0050, text=» RF(L) UPD520 NOT END OF SCREEN «, t00=0x0032, t01=0x0062}
0x4e9e…4eb0 Head {h00=0x000e, h01=0x0050, text=» LDK A3,0 «, t00=0x0032, t01=0x008a}
0x4eb0…4ed2 Head {h00=0x001e, h01=0x0050, text=» LDKL A4,BVDU WRAP AROUND «, t00=0x0032, t01=0x009c}
0x4ed2…4ee8 Head {h00=0x0012, h01=0x0050, text=» ADR A4,TCABAS«, t00=0x0032, t01=0x00be}
0x4ee8…4f00 Head {h00=0x0014, h01=0x0050, text=»UPD520 CWR A3,A1«, t00=0x0032, t01=0x00d4}
0x4f00…4f28 Head {h00=0x0024, h01=0x0050, text=» ABL(E) UPD220 ALL CHAR REPEATED«, t00=0x0032, t01=0x00ec}
0x4f28…4f30 Head {h00=0x0004, h01=0x0050, t00=0x0032, t01=0x0114}
0x4f30…4f7a Head {h00=0x0046, h01=0x0050, text=»******************************************************* 78-07-02 «, t00=0x0032, t01=0x011c}
0x4f7a…4f8e Head {h00=0x0010, h01=0x0050, text=»UPD530 EQU *«, t00=0x0032, t01=0x0166}
0x4f8e…4fd6 Head {h00=0x0044, h01=0x0050, text=»***************************************************** 78-07-02 «, t00=0x0032, t01=0x017a}
0x4fd6…4fde Head {h00=0x0004, h01=0x0050, t00=0x0033, t01=0x0032}
0x4fde…4ff0 Head {h00=0x000e, h01=0x0050, text=» SCR A2,A4«, t00=0x0033, t01=0x003a}
0x4ff0…5002 Head {h00=0x000e, h01=0x0050, text=» ADK A3,1 «, t00=0x0033, t01=0x004c}
0x5002…5014 Head {h00=0x000e, h01=0x0050, text=» ADK A4,1 «, t00=0x0033, t01=0x005e}
0x5014…5034 Head {h00=0x001c, h01=0x0050, text=» RB UPD510 NEXT POSITION«, t00=0x0033, t01=0x0070}
0x5034…503e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0033, t01=0x0090}
0x503e…5064 Head {h00=0x0022, h01=0x0050, text=»* ERASE UNPROTECTED TO ADDRESS«, t00=0x0033, t01=0x009a}
0x5064…506e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0033, t01=0x00c0}
0x506e…509a Head {h00=0x0028, h01=0x0050, text=»UPD540 CF A14,GETADR GET END ADDRESS«, t00=0x0033, t01=0x00ca}
0x509a…50b0 Head {h00=0x0012, h01=0x0050, text=» CWK A3,LBVDU «, t00=0x0033, t01=0x00f6}
0x50b0…50d6 Head {h00=0x0022, h01=0x0050, text=» RB(NL) UPDEND INVALID ADDRESS«, t00=0x0033, t01=0x010c}
0x50d6…510a Head {h00=0x0030, h01=0x0050, text=» CF A14,ERASUA ERASE UNPROTECTED TO ADDRESS «, t00=0x0033, t01=0x0132}
0x510a…511e Head {h00=0x0010, h01=0x0050, text=» ABL UPD220 «, t00=0x0033, t01=0x0166}
0x511e…5134 Head {h00=0x0012, h01=0x0050, text=» IFT COPCMD=1 «, t00=0x0033, t01=0x017a}
0x5134…5142 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0033, t01=0x0190}
0x5142…514c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0034, t01=0x000e}
0x514c…5162 Head {h00=0x0012, h01=0x0050, text=»* COPY COMMAND«, t00=0x0034, t01=0x0018}
0x5162…516c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0034, t01=0x002e}
0x516c…5180 Head {h00=0x0010, h01=0x0050, text=»UPD600 EQU *«, t00=0x0034, t01=0x0038}
0x5180…519e Head {h00=0x001a, h01=0x0050, text=» LD A1,PRINTER,TCABAS «, t00=0x0034, t01=0x004c}
0x519e…51d6 Head {h00=0x0034, h01=0x0050, text=» ABL(Z) UPDEND COPYCOMMAND NOT SUPPORTED FOR VDU«, t00=0x0034, t01=0x006a}
0x51d6…51e8 Head {h00=0x000e, h01=0x0050, text=» ADK A7,1 «, t00=0x0034, t01=0x00a2}
0x51e8…51fe Head {h00=0x0012, h01=0x0050, text=» BYPASS CCC «, t00=0x0034, t01=0x00b4}
0x51fe…5224 Head {h00=0x0022, h01=0x0050, text=» CF A14,GDCCH GET FROM DEVICE «, t00=0x0034, t01=0x00ca}
0x5224…523a Head {h00=0x0012, h01=0x0050, text=» IFT EBCDIC=1 «, t00=0x0034, t01=0x00f0}
0x523a…5264 Head {h00=0x0026, h01=0x0050, text=» LC A2,TEBCDI,A2 CONVERT TO EBCDIC«, t00=0x0034, t01=0x0106}
0x5264…5270 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0034, t01=0x0130}
0x5270…5286 Head {h00=0x0012, h01=0x0050, text=» IFT COPCMD=1 «, t00=0x0034, t01=0x013c}
0x5286…52ac Head {h00=0x0022, h01=0x0050, text=» LD A3,6,CREBAS 'CB1' ADDRESS «, t00=0x0034, t01=0x0152}
0x52ac…52c4 Head {h00=0x0014, h01=0x0050, text=» LDK A4,MF1KBV-1«, t00=0x0034, t01=0x0178}
0x52c4…52d8 Head {h00=0x0010, h01=0x0050, text=» IFT DCLIN=2«, t00=0x0034, t01=0x0190}
0x52d8…52f8 Head {h00=0x001c, h01=0x0050, text=» LD A1,ECBBLK+DC2,TCABAS«, t00=0x0035, t01=0x0014}
0x52f8…530e Head {h00=0x0012, h01=0x0050, text=» RF(NZ) UPD602«, t00=0x0035, t01=0x0034}
0x530e…5332 Head {h00=0x0020, h01=0x0050, text=» LDK A4,MF2KBV-1 MF # 2 READ«, t00=0x0035, t01=0x004a}
0x5332…533e Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0035, t01=0x006e}
0x533e…5354 Head {h00=0x0012, h01=0x0050, text=» IFT COPCMD=1 «, t00=0x0035, t01=0x007a}
0x5354…5368 Head {h00=0x0010, h01=0x0050, text=»UPD602 EQU *«, t00=0x0035, t01=0x0090}
0x5368…538a Head {h00=0x001e, h01=0x0050, text=» ADR A4,A3 CONFIG TABLE -1«, t00=0x0035, t01=0x00a4}
0x538a…53b4 Head {h00=0x0026, h01=0x0050, text=» LD A5,NBRKBV,A3 NUMBER OF KB/VDUS«, t00=0x0035, t01=0x00c6}
0x53b4…53e0 Head {h00=0x0028, h01=0x0050, text=» ADR A4,A5 LAST KB/VDU CONFIGURATED «, t00=0x0035, t01=0x00f0}
0x53e0…53f4 Head {h00=0x0010, h01=0x0050, text=»UPD604 EQU *«, t00=0x0035, t01=0x011c}
0x53f4…541c Head {h00=0x0024, h01=0x0050, text=» CCR A2,A4 DV-ADDRESS MATCHES ? «, t00=0x0035, t01=0x0130}
0x541c…5436 Head {h00=0x0016, h01=0x0050, text=» RF(E) UPD610 YES «, t00=0x0035, t01=0x0158}
0x5436…5448 Head {h00=0x000e, h01=0x0050, text=» SUK A4,1 «, t00=0x0035, t01=0x0172}
0x5448…545a Head {h00=0x000e, h01=0x0050, text=» SUK A5,1 «, t00=0x0035, t01=0x0184}
0x545a…5478 Head {h00=0x001a, h01=0x0050, text=» RB(P) UPD604 TRY NEXT«, t00=0x0036, t01=0x0008}
0x5478…5494 Head {h00=0x0018, h01=0x0050, text=» ABL UPDEND NO MATCH«, t00=0x0036, t01=0x0026}
0x5494…549e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0036, t01=0x0042}
0x549e…54b2 Head {h00=0x0010, h01=0x0050, text=»UPD610 EQU *«, t00=0x0036, t01=0x004c}
0x54b2…54ca Head {h00=0x0014, h01=0x0050, text=» LDKL A8,ECBICW «, t00=0x0036, t01=0x0060}
0x54ca…54e0 Head {h00=0x0012, h01=0x0050, text=» ADR A8,CREBAS«, t00=0x0036, t01=0x0078}
0x54e0…54ec Head {h00=0x0008, h01=0x0050, text=» LKM«, t00=0x0036, t01=0x008e}
0x54ec…5520 Head {h00=0x0030, h01=0x0050, text=» DATA 10 ABORT LAST REQUEST IF NOT COMPLETED«, t00=0x0036, t01=0x009a}
0x5520…554a Head {h00=0x0026, h01=0x0050, text=» ADKL A5,/4B40 TASKID FROM DEVICE «, t00=0x0036, t01=0x00ce}
0x554a…5572 Head {h00=0x0024, h01=0x0050, text=» LD A2,-4,CREBAS GET OWN TASKID «, t00=0x0036, t01=0x00f8}
0x5572…559c Head {h00=0x0026, h01=0x0050, text=» ST A2,ICWORK,TCABAS PUT IN BUFFER«, t00=0x0036, t01=0x0120}
0x559c…55ca Head {h00=0x002a, h01=0x0050, text=» LDK A4,/0B WRITE ADDRESSED , NO WAIT «, t00=0x0036, t01=0x014a}
0x55ca…55e6 Head {h00=0x0018, h01=0x0050, text=» LDK A6,2 REQ LENGTH«, t00=0x0036, t01=0x0178}
0x55e6…55fe (55, 0, 400) Head {h00=0x0014, h01=0x0050, text=» LDKL A3,ICWORK «, t00=0x0037, t01=0x0004}
0x55fe…5624 Head {h00=0x0022, h01=0x0050, text=» ADR A3,TCABAS BUFFER ADDRESS «, t00=0x0037, t01=0x001c}
0x5624…564a Head {h00=0x0022, h01=0x0050, text=» CF A14,ICWRTE WRITE INTERTASK«, t00=0x0037, t01=0x0042}
0x564a…565e Head {h00=0x0010, h01=0x0050, text=» ABL UPDEND «, t00=0x0037, t01=0x0068}
0x565e…566a Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0037, t01=0x007c}
0x566a…5678 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0037, t01=0x0088}
0x5678…5682 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0037, t01=0x0096}
0x5682…568c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0037, t01=0x00a0}
0x568c…56b6 Head {h00=0x0026, h01=0x0050, text=»* PROCESS WRITE CONTROL CHARACTER «, t00=0x0037, t01=0x00aa}
0x56b6…56c0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0037, t01=0x00d4}
0x56c0…56ee Head {h00=0x002a, h01=0x0050, text=»* ONLY RESET MDT BIT IS TAKEN CARE OF «, t00=0x0037, t01=0x00de}
0x56ee…56f8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0037, t01=0x010c}
0x56f8…5702 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0037, t01=0x0116}
0x5702…5724 Head {h00=0x001e, h01=0x0050, text=»PWCC CF A14,GDCCH GET WCC «, t00=0x0037, t01=0x0120}
0x5724…5746 Head {h00=0x001e, h01=0x0050, text=» LC A2,TEBCDI,A2 IN EBCDIC«, t00=0x0037, t01=0x0142}
0x5746…5768 Head {h00=0x001e, h01=0x0050, text=» ST A2,WCC,TCABAS SAVE IT «, t00=0x0037, t01=0x0164}
0x5768…577c Head {h00=0x0010, h01=0x0050, text=» ANK A2,/04 «, t00=0x0037, t01=0x0186}
0x577c…5790 Head {h00=0x0010, h01=0x0050, text=» RF(Z) PWCC1«, t00=0x0038, t01=0x000a}
0x5790…57ae Head {h00=0x001a, h01=0x0050, text=» LD A2,PRINTER,TCABAS «, t00=0x0038, t01=0x001e}
0x57ae…57c4 Head {h00=0x0012, h01=0x0050, text=» RF(NZ) PWCC1 «, t00=0x0038, t01=0x003c}
0x57c4…57d8 Head {h00=0x0010, h01=0x0050, text=» LDR A10,A7 «, t00=0x0038, t01=0x0052}
0x57d8…57f0 Head {h00=0x0014, h01=0x0050, text=» LDKL A8,ECBVDU «, t00=0x0038, t01=0x0066}
0x57f0…5806 Head {h00=0x0012, h01=0x0050, text=» ADR A8,CREBAS«, t00=0x0038, t01=0x007e}
0x5806…581e Head {h00=0x0014, h01=0x0050, text=» LD A2,ECBBA,A8 «, t00=0x0038, t01=0x0094}
0x581e…5832 Head {h00=0x0010, h01=0x0050, text=» LDK A7,/2B «, t00=0x0038, t01=0x00ac}
0x5832…584a Head {h00=0x0014, h01=0x0050, text=» SC A7,1,A2 =1 «, t00=0x0038, t01=0x00c0}
0x584a…5866 Head {h00=0x0018, h01=0x0050, text=» LDK A7,/07 BELL =1 «, t00=0x0038, t01=0x00d8}
0x5866…587e Head {h00=0x0014, h01=0x0050, text=» SC A7,2,A2 =1 «, t00=0x0038, t01=0x00f4}
0x587e…5896 Head {h00=0x0014, h01=0x0050, text=» SC A7,3,A2 =1 «, t00=0x0038, t01=0x010c}
0x5896…58a8 Head {h00=0x000e, h01=0x0050, text=» LDK A7,4 «, t00=0x0038, t01=0x0124}
0x58a8…58c0 Head {h00=0x0014, h01=0x0050, text=» ST A7,ECBRL,A8 «, t00=0x0038, t01=0x0136}
0x58c0…58d4 Head {h00=0x0010, h01=0x0050, text=» LDK A7,/86 «, t00=0x0038, t01=0x014e}
0x58d4…58e0 Head {h00=0x0008, h01=0x0050, text=» LKM«, t00=0x0038, t01=0x0162}
0x58e0…58f0 Head {h00=0x000c, h01=0x0050, text=» DATA 1 «, t00=0x0038, t01=0x016e}
0x58f0…590c Head {h00=0x0018, h01=0x0050, text=» LD A8,ECBDCC,TCABAS«, t00=0x0038, t01=0x017e}
0x590c…5920 Head {h00=0x0010, h01=0x0050, text=» LDR A7,A10 «, t00=0x0039, t01=0x000a}
0x5920…5934 Head {h00=0x0010, h01=0x0050, text=»PWCC1 EQU * «, t00=0x0039, t01=0x001e}
0x5934…594e Head {h00=0x0016, h01=0x0050, text=» LD A2,WCC,TCABAS «, t00=0x0039, t01=0x0032}
0x594e…5960 Head {h00=0x000e, h01=0x0050, text=» ANK A2,1 «, t00=0x0039, t01=0x004c}
0x5960…5984 Head {h00=0x0020, h01=0x0050, text=» RF(NZ) RESMDT RESET ALL MDT«, t00=0x0039, t01=0x005e}
0x5984…59a4 Head {h00=0x001c, h01=0x0050, text=»PWCC10 RTN A14 NO ACTION«, t00=0x0039, t01=0x0082}
0x59a4…59ae Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0039, t01=0x00a2}
0x59ae…59b8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0039, t01=0x00ac}
0x59b8…59d4 Head {h00=0x0018, h01=0x0050, text=»* RESET ALL MDT BITS«, t00=0x0039, t01=0x00b6}
0x59d4…59de Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0039, t01=0x00d2}
0x59de…59e8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0039, t01=0x00dc}
0x59e8…5a00 Head {h00=0x0014, h01=0x0050, text=»RESMDT LDK A3,0 «, t00=0x0039, t01=0x00e6}
0x5a00…5a16 Head {h00=0x0012, h01=0x0050, text=» LDKL A4,BVDU «, t00=0x0039, t01=0x00fe}
0x5a16…5a2c Head {h00=0x0012, h01=0x0050, text=» ADR A4,TCABAS«, t00=0x0039, t01=0x0114}
0x5a2c…5a48 Head {h00=0x0018, h01=0x0050, text=»RESM10 CWK A3,LBVDU «, t00=0x0039, t01=0x012a}
0x5a48…5a68 Head {h00=0x001c, h01=0x0050, text=» RB(NL) PWCC10 ALL DONE «, t00=0x0039, t01=0x0146}
0x5a68…5a84 Head {h00=0x0018, h01=0x0050, text=» LCR A2,A4 GET CHAR «, t00=0x0039, t01=0x0166}
0x5a84…5a98 Head {h00=0x0010, h01=0x0050, text=» ANK A2,/60 «, t00=0x0039, t01=0x0182}
0x5a98…5abc Head {h00=0x0020, h01=0x0050, text=» RF(NZ) RESM20 NO ATTRIBUTE «, t00=0x003a, t01=0x0008}
0x5abc…5ace Head {h00=0x000e, h01=0x0050, text=» LCR A2,A4«, t00=0x003a, t01=0x002c}
0x5ace…5aec Head {h00=0x001a, h01=0x0050, text=» ANK A2,/FE RESET MDT «, t00=0x003a, t01=0x003e}
0x5aec…5afe Head {h00=0x000e, h01=0x0050, text=» SCR A2,A4«, t00=0x003a, t01=0x005c}
0x5afe…5b16 Head {h00=0x0014, h01=0x0050, text=»RESM20 ADK A3,1 «, t00=0x003a, t01=0x006e}
0x5b16…5b28 Head {h00=0x000e, h01=0x0050, text=» ADK A4,1 «, t00=0x003a, t01=0x0086}
0x5b28…5b3a Head {h00=0x000e, h01=0x0050, text=» RB RESM10«, t00=0x003a, t01=0x0098}
0x5b3a…5b48 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x003a, t01=0x00aa}
0x5b48…5b52 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003a, t01=0x00b8}
0x5b52…5b5c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003a, t01=0x00c2}
0x5b5c…5b7a Head {h00=0x001a, h01=0x0050, text=»* ERASE ENTIRE SCREEN «, t00=0x003a, t01=0x00cc}
0x5b7a…5b84 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003a, t01=0x00ea}
0x5b84…5b8e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003a, t01=0x00f4}
0x5b8e…5ba4 Head {h00=0x0012, h01=0x0050, text=»ERASE LDK A3,0«, t00=0x003a, t01=0x00fe}
0x5ba4…5bba Head {h00=0x0012, h01=0x0050, text=» LDKL A4,BVDU «, t00=0x003a, t01=0x0114}
0x5bba…5bd0 Head {h00=0x0012, h01=0x0050, text=» ADR A4,TCABAS«, t00=0x003a, t01=0x012a}
0x5bd0…5be4 Head {h00=0x0010, h01=0x0050, text=» LDK A2,NULL«, t00=0x003a, t01=0x0140}
0x5be4…5c00 Head {h00=0x0018, h01=0x0050, text=»ERAS20 CWK A3,LBVDU «, t00=0x003a, t01=0x0154}
0x5c00…5c22 Head {h00=0x001e, h01=0x0050, text=» RF(NL) ERAS25 ALL ERASED «, t00=0x003a, t01=0x0170}
0x5c22…5c34 (59, 0, 400) Head {h00=0x000e, h01=0x0050, text=» SCR A2,A4«, t00=0x003b, t01=0x0004}
0x5c34…5c46 Head {h00=0x000e, h01=0x0050, text=» ADK A3,1 «, t00=0x003b, t01=0x0016}
0x5c46…5c58 Head {h00=0x000e, h01=0x0050, text=» ADK A4,1 «, t00=0x003b, t01=0x0028}
0x5c58…5c6a Head {h00=0x000e, h01=0x0050, text=» RB ERAS20«, t00=0x003b, t01=0x003a}
0x5c6a…5c9a Head {h00=0x002c, h01=0x0050, text=»ERAS25 CM PCURS,TCABAS RESET CURSOR POS «, t00=0x003b, t01=0x004c}
0x5c9a…5cb2 Head {h00=0x0014, h01=0x0050, text=» LDKL A1,LBVDU+1«, t00=0x003b, t01=0x007c}
0x5cb2…5ce6 Head {h00=0x0030, h01=0x0050, text=» ST A1,CURATT,TCABAS INDICATE UNFORM. SCREEN«, t00=0x003b, t01=0x0094}
0x5ce6…5d00 Head {h00=0x0016, h01=0x0050, text=» CM ATTRIB,TCABAS «, t00=0x003b, t01=0x00c8}
0x5d00…5d30 Head {h00=0x002c, h01=0x0050, text=» LD A1,PRINTER,TCABAS CHECK DEVISE TYPE «, t00=0x003b, t01=0x00e2}
0x5d30…5d5c Head {h00=0x0028, h01=0x0050, text=» RF(NZ) ERAEND PRINTER, NOT DISPLAY «, t00=0x003b, t01=0x0112}
0x5d5c…5d88 Head {h00=0x0028, h01=0x0050, text=» STR A7,A14 SAVE A7 AND A8 ON STACK «, t00=0x003b, t01=0x013e}
0x5d88…5d9e Head {h00=0x0012, h01=0x0050, text=» ST A8,-2,A14 «, t00=0x003b, t01=0x016a}
0x5d9e…5db6 Head {h00=0x0014, h01=0x0050, text=» LDKL A8,ECBVDU «, t00=0x003b, t01=0x0180}
0x5db6…5dd4 Head {h00=0x001a, h01=0x0050, text=» ADR A8,CREBAS VDUECB «, t00=0x003c, t01=0x0008}
0x5dd4…5dfa Head {h00=0x0022, h01=0x0050, text=» LDK A7,'1' ERASE CONTROL CHAR«, t00=0x003c, t01=0x0026}
0x5dfa…5e16 Head {h00=0x0018, h01=0x0050, text=» LD A1,ECBBA,A8 =1 «, t00=0x003c, t01=0x004c}
0x5e16…5e2e Head {h00=0x0014, h01=0x0050, text=» SC A7,1,A1 =1 «, t00=0x003c, t01=0x0068}
0x5e2e…5e40 Head {h00=0x000e, h01=0x0050, text=» LDK A7,2 «, t00=0x003c, t01=0x0080}
0x5e40…5e66 Head {h00=0x0022, h01=0x0050, text=» ST A7,ECBRL,A8 REQ LENGTH = 2«, t00=0x003c, t01=0x0092}
0x5e66…5e80 Head {h00=0x0016, h01=0x0050, text=» LDK A7,/86 WRITE «, t00=0x003c, t01=0x00b8}
0x5e80…5e8c Head {h00=0x0008, h01=0x0050, text=» LKM«, t00=0x003c, t01=0x00d2}
0x5e8c…5e9c Head {h00=0x000c, h01=0x0050, text=» DATA 1 «, t00=0x003c, t01=0x00de}
0x5e9c…5eb2 Head {h00=0x0012, h01=0x0050, text=» LD A8,-2,A14 «, t00=0x003c, t01=0x00ee}
0x5eb2…5ed8 Head {h00=0x0022, h01=0x0050, text=» LDR* A7,A14 RESTORE A7 AND A8«, t00=0x003c, t01=0x0104}
0x5ed8…5eee Head {h00=0x0012, h01=0x0050, text=»ERAEND RTN A14«, t00=0x003c, t01=0x012a}
0x5eee…5efc Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x003c, t01=0x0140}
0x5efc…5f06 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003c, t01=0x014e}
0x5f06…5f10 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003c, t01=0x0158}
0x5f10…5f30 Head {h00=0x001c, h01=0x0050, text=»* ERASE ALL UNPROTECTED «, t00=0x003c, t01=0x0162}
0x5f30…5f3a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003c, t01=0x0182}
0x5f3a…5f44 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003c, t01=0x018c}
0x5f44…5f5c Head {h00=0x0014, h01=0x0050, text=»ERASUP LDK A2,2 «, t00=0x003d, t01=0x0008}
0x5f5c…5f8e Head {h00=0x002e, h01=0x0050, text=» ST A2,WCC,TCABAS SET KEYBOARD RESTORE BIT«, t00=0x003d, t01=0x0020}
0x5f8e…5fc4 Head {h00=0x0032, h01=0x0050, text=» SUR A1,A1 INDICATE ATT IN LAST SCREEN POS DK «, t00=0x003d, t01=0x0052}
0x5fc4…5fd6 Head {h00=0x000e, h01=0x0050, text=» LDK A3,0 «, t00=0x003d, t01=0x0088}
0x5fd6…5fec Head {h00=0x0012, h01=0x0050, text=» LDKL A4,BVDU «, t00=0x003d, t01=0x009a}
0x5fec…6002 Head {h00=0x0012, h01=0x0050, text=» ADR A4,TCABAS«, t00=0x003d, t01=0x00b0}
0x6002…6036 Head {h00=0x0030, h01=0x0050, text=» CM PCURS,TCABAS FIND FIRST UNPROTECTED POS «, t00=0x003d, t01=0x00c6}
0x6036…6082 Head {h00=0x0048, h01=0x0050, text=»********************************************************************«, t00=0x003d, t01=0x00fa}
0x6082…60b2 Head {h00=0x002c, h01=0x0050, text=» LC A2,1919,A4 GET LAST SCREEN CHARACTER«, t00=0x003d, t01=0x0146}
0x60b2…60c6 Head {h00=0x0010, h01=0x0050, text=» ANK A2,/7F «, t00=0x003d, t01=0x0176}
0x60c6…60e8 Head {h00=0x001e, h01=0x0050, text=» CWK A2,/20 ATTRIBUTE ??? «, t00=0x003d, t01=0x018a}
0x60e8…6110 Head {h00=0x0024, h01=0x0050, text=» RF(L) ERU:01 YES!! WE GOT IT!! «, t00=0x003e, t01=0x001c}
0x6110…6144 Head {h00=0x0030, h01=0x0050, text=» LDK A1,1 ATTRIBUTE NOT IN LAST SCREEN POS. «, t00=0x003e, t01=0x0044}
0x6144…6184 Head {h00=0x003c, h01=0x0050, text=»********************************************************«, t00=0x003e, t01=0x0078}
0x6184…61a0 Head {h00=0x0018, h01=0x0050, text=»ERASU1 CWK A3,LBVDU «, t00=0x003e, t01=0x00b8}
0x61a0…61b6 Head {h00=0x0012, h01=0x0050, text=» RF(NL) ERASU2«, t00=0x003e, t01=0x00d4}
0x61b6…61d2 Head {h00=0x0018, h01=0x0050, text=» LCR A2,A4 GET CHAR «, t00=0x003e, t01=0x00ea}
0x61d2…61e6 Head {h00=0x0010, h01=0x0050, text=» ANK A2,/7F «, t00=0x003e, t01=0x0106}
0x61e6…61f8 Head {h00=0x000e, h01=0x0050, text=» ADK A3,1 «, t00=0x003e, t01=0x011a}
0x61f8…620a Head {h00=0x000e, h01=0x0050, text=» ADK A4,1 «, t00=0x003e, t01=0x012c}
0x620a…621e Head {h00=0x0010, h01=0x0050, text=» CWK A2,/20 «, t00=0x003e, t01=0x013e}
0x621e…6242 Head {h00=0x0020, h01=0x0050, text=» RB(NL) ERASU1 NO ATTRIBUTE «, t00=0x003e, t01=0x0152}
0x6242…6256 Head {h00=0x0010, h01=0x0050, text=»ERU:01 EQU *«, t00=0x003e, t01=0x0176}
0x6256…626a Head {h00=0x0010, h01=0x0050, text=» ANK A2,/10 «, t00=0x003e, t01=0x018a}
0x626a…628a Head {h00=0x001c, h01=0x0050, text=» RB(NZ) ERASU1 PROTECTED«, t00=0x003f, t01=0x000e}
0x628a…62b8 Head {h00=0x002a, h01=0x0050, text=» ST A3,PCURS,TCABAS SET NEW CURSOR POS«, t00=0x003f, t01=0x002e}
0x62b8…62ca Head {h00=0x000e, h01=0x0050, text=» LDR A1,A1«, t00=0x003f, t01=0x005c}
0x62ca…62fe Head {h00=0x0030, h01=0x0050, text=» RF(Z) ERASU3 ATTRIBUTE IN LAST SCREEN POS. «, t00=0x003f, t01=0x006e}
0x62fe…6316 Head {h00=0x0014, h01=0x0050, text=»ERASU2 LDK A3,0 «, t00=0x003f, t01=0x00a2}
0x6316…632c Head {h00=0x0012, h01=0x0050, text=» LDKL A4,BVDU «, t00=0x003f, t01=0x00ba}
0x632c…6342 Head {h00=0x0012, h01=0x0050, text=» ADR A4,TCABAS«, t00=0x003f, t01=0x00d0}
0x6342…6354 Head {h00=0x000e, h01=0x0050, text=» RF ERASU4«, t00=0x003f, t01=0x00e6}
0x6354…6368 Head {h00=0x0010, h01=0x0050, text=»ERASU3 EQU *«, t00=0x003f, t01=0x00f8}
0x6368…637a Head {h00=0x000e, h01=0x0050, text=» LDR A3,A3«, t00=0x003f, t01=0x010c}
0x637a…63b4 Head {h00=0x0036, h01=0x0050, text=» RF(Z) ERASU4 UNPROTECTED ATT. IN LAST SCREEN POS.«, t00=0x003f, t01=0x011e}
0x63b4…63dc Head {h00=0x0024, h01=0x0050, text=» SUK A3,1 GET BACK TO ATTRIBUTE «, t00=0x003f, t01=0x0158}
0x63dc…63fa Head {h00=0x001a, h01=0x0050, text=» SUK A4,1 - " -«, t00=0x003f, t01=0x0180}
0x63fa…640e Head {h00=0x0010, h01=0x0050, text=»ERASU4 EQU *«, t00=0x0040, t01=0x000e}
0x640e…6434 Head {h00=0x0022, h01=0x0050, text=» LDKL A1,/0F00 (LDK A1,0) DK3 «, t00=0x0040, t01=0x0022}
0x6434…6458 Head {h00=0x0020, h01=0x0050, text=» LDK A6,NULL+/80 ERASE CHAR «, t00=0x0040, t01=0x0048}
0x6458…646a Head {h00=0x000e, h01=0x0050, text=» RF ERAS35«, t00=0x0040, t01=0x006c}
0x646a…6478 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0040, t01=0x007e}
0x6478…6482 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0040, t01=0x008c}
0x6482…648c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0040, t01=0x0096}
0x648c…64be Head {h00=0x002e, h01=0x0050, text=»* ERASE UNPROTECTED TO ADDRESS GIVEN IN A1«, t00=0x0040, t01=0x00a0}
0x64be…64c8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0040, t01=0x00d2}
0x64c8…64d2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0040, t01=0x00dc}
0x64d2…6500 Head {h00=0x002a, h01=0x0050, text=»ERASUA LDK A6,NULL+/80 ERASE CHARACTER«, t00=0x0040, t01=0x00e6}
0x6500…6528 Head {h00=0x0024, h01=0x0050, text=» ******************* 78-09-11 «, t00=0x0040, t01=0x0114}
0x6528…654e Head {h00=0x0022, h01=0x0050, text=» CWK A3,LBVDU WRAP AROUND ??? «, t00=0x0040, t01=0x013c}
0x654e…6568 Head {h00=0x0016, h01=0x0050, text=» RF(L) ERAS:1 NO!!«, t00=0x0040, t01=0x0162}
0x6568…6586 Head {h00=0x001a, h01=0x0050, text=» LDK A3,0 BUFFERINDEX «, t00=0x0040, t01=0x017c}
0x6586…659c Head {h00=0x0012, h01=0x0050, text=» LDKL A4,BVDU «, t00=0x0041, t01=0x000a}
0x659c…65cc Head {h00=0x002c, h01=0x0050, text=» ADR A4,TCABAS ABSOLUTE BUFFER ADDRESS «, t00=0x0041, t01=0x0020}
0x65cc…65d4 Head {h00=0x0004, h01=0x0050, t00=0x0041, t01=0x0050}
0x65d4…6610 Head {h00=0x0038, h01=0x0050, text=»ERAS:1 LDR A3,A3 START IN FIRST SCREEN POSITION ??? «, t00=0x0041, t01=0x0058}
0x6610…662c Head {h00=0x0018, h01=0x0050, text=» RF(NZ) ERAS35 NO!! «, t00=0x0041, t01=0x0094}
0x662c…6658 Head {h00=0x0028, h01=0x0050, text=» LC A2,1919,A4 LAST BUFFER CHARACTER«, t00=0x0041, t01=0x00b0}
0x6658…666c Head {h00=0x0010, h01=0x0050, text=» ANK A2,/7F «, t00=0x0041, t01=0x00dc}
0x666c…6698 Head {h00=0x0028, h01=0x0050, text=» CWK A2,/20 ATTRIBUTE CHARACTER ??? «, t00=0x0041, t01=0x00f0}
0x6698…66b4 Head {h00=0x0018, h01=0x0050, text=» RF(NL) ERAS35 NO!!!«, t00=0x0041, t01=0x011c}
0x66b4…66c8 Head {h00=0x0010, h01=0x0050, text=» ANK A2,/10 «, t00=0x0041, t01=0x0138}
0x66c8…66ee Head {h00=0x0022, h01=0x0050, text=» RF(NZ) ERAS70 PROTECTED FIELD«, t00=0x0041, t01=0x014c}
0x66ee…670a Head {h00=0x0018, h01=0x0050, text=»* LC A2,1919,A4 DK3«, t00=0x0041, t01=0x0172}
0x670a…6724 Head {h00=0x0016, h01=0x0050, text=»* ANK A2,/FE DK3 «, t00=0x0041, t01=0x018e}
0x6724…674e Head {h00=0x0026, h01=0x0050, text=»* SC A2,1919,A4 RESET MDT BIT DK3 «, t00=0x0042, t01=0x0018}
0x674e…6760 Head {h00=0x000e, h01=0x0050, text=» RF ERAS35«, t00=0x0042, t01=0x0042}
0x6760…6788 Head {h00=0x0024, h01=0x0050, text=» ******************** 78-09-11«, t00=0x0042, t01=0x0054}
0x6788…67a4 Head {h00=0x0018, h01=0x0050, text=»ERAS30 CWK A3,LBVDU «, t00=0x0042, t01=0x007c}
0x67a4…67cc Head {h00=0x0024, h01=0x0050, text=» RF(L) ERAS33 NOT END OF SCREEN «, t00=0x0042, t01=0x0098}
0x67cc…67de Head {h00=0x000e, h01=0x0050, text=» LDK A3,0 «, t00=0x0042, t01=0x00c0}
0x67de…6800 Head {h00=0x001e, h01=0x0050, text=» LDKL A4,BVDU WRAP AROUND «, t00=0x0042, t01=0x00d2}
0x6800…6816 Head {h00=0x0012, h01=0x0050, text=» ADR A4,TCABAS«, t00=0x0042, t01=0x00f4}
0x6816…682a Head {h00=0x0010, h01=0x0050, text=»ERAS33 EQU *«, t00=0x0042, t01=0x010a}
0x682a…6850 Head {h00=0x0022, h01=0x0050, text=» CWK A1,/0F00 EUA COMMAND? DK3«, t00=0x0042, t01=0x011e}
0x6850…6878 Head {h00=0x0024, h01=0x0050, text=» RF(L) ERAS34 NO, EUA ORDER DK3 «, t00=0x0042, t01=0x0144}
0x6878…68a4 Head {h00=0x0028, h01=0x0050, text=» CWK A3,0 FINISHED EUA COMMAND? DK3 «, t00=0x0042, t01=0x016c}
0x68a4…68cc Head {h00=0x0024, h01=0x0050, text=» RF(NZ) ERAS35 NO, CONTINUE DK3 «, t00=0x0043, t01=0x0008}
0x68cc…68ee Head {h00=0x001e, h01=0x0050, text=» LDK A1,0 YES FINISHED DK3«, t00=0x0043, t01=0x0030}
0x68ee…6906 Head {h00=0x0014, h01=0x0050, text=» RB ERAEND DK3 «, t00=0x0043, t01=0x0052}
0x6906…6920 Head {h00=0x0016, h01=0x0050, text=»ERAS34 EQU * DK3 «, t00=0x0043, t01=0x006a}
0x6920…6932 Head {h00=0x000e, h01=0x0050, text=» CWR A3,A1«, t00=0x0043, t01=0x0084}
0x6932…695e Head {h00=0x0028, h01=0x0050, text=» RB(E) ERAEND ALL UNPROTECTED ERASED«, t00=0x0043, t01=0x0096}
0x695e…6990 Head {h00=0x002e, h01=0x0050, text=»ERAS35 LCR A2,A4 GET CHAR FROM VDU BUFFER «, t00=0x0043, t01=0x00c2}
0x6990…69a4 Head {h00=0x0010, h01=0x0050, text=» ANK A2,/7F «, t00=0x0043, t01=0x00f4}
0x69a4…69b8 Head {h00=0x0010, h01=0x0050, text=» CWK A2,/20 «, t00=0x0043, t01=0x0108}
0x69b8…69dc Head {h00=0x0020, h01=0x0050, text=» RF(L) ERAS50 ATTRIBUTE CHAR«, t00=0x0043, t01=0x011c}
0x69dc…69f0 Head {h00=0x0010, h01=0x0050, text=» XRK A2,NULL«, t00=0x0043, t01=0x0140}
0x69f0…6a12 Head {h00=0x001e, h01=0x0050, text=» RF(Z) ERAS40 ALREADY NULL«, t00=0x0043, t01=0x0154}
0x6a12…6a38 Head {h00=0x0022, h01=0x0050, text=» SCR A6,A4 STORE MODIFIED NULL«, t00=0x0043, t01=0x0176}
0x6a38…6a50 Head {h00=0x0014, h01=0x0050, text=»ERAS40 ADK A3,1 «, t00=0x0044, t01=0x000c}
0x6a50…6a62 Head {h00=0x000e, h01=0x0050, text=» ADK A4,1 «, t00=0x0044, t01=0x0024}
0x6a62…6a74 Head {h00=0x000e, h01=0x0050, text=» RB ERAS30«, t00=0x0044, t01=0x0036}
0x6a74…6a8c Head {h00=0x0014, h01=0x0050, text=»ERAS50 ADK A3,1 «, t00=0x0044, t01=0x0048}
0x6a8c…6a9e Head {h00=0x000e, h01=0x0050, text=» ADK A4,1 «, t00=0x0044, t01=0x0060}
0x6a9e…6ab2 Head {h00=0x0010, h01=0x0050, text=» ANK A2,/10 «, t00=0x0044, t01=0x0072}
0x6ab2…6ad8 Head {h00=0x0022, h01=0x0050, text=» RF(NZ) ERAS60 PROTECTED FIELD«, t00=0x0044, t01=0x0086}
0x6ad8…6afe Head {h00=0x0022, h01=0x0050, text=» CWK A1,/0F00 EUA COMMAND? DK3«, t00=0x0044, t01=0x00ac}
0x6afe…6b1a Head {h00=0x0018, h01=0x0050, text=» RB(L) ERAS30 NO DK3«, t00=0x0044, t01=0x00d2}
0x6b1a…6b44 Head {h00=0x0026, h01=0x0050, text=»* EUA COMMAND: RESET MDT BIT DK3 «, t00=0x0044, t01=0x00ee}
0x6b44…6b58 Head {h00=0x0010, h01=0x0050, text=» LC A2,-1,A4«, t00=0x0044, t01=0x0118}
0x6b58…6b7a Head {h00=0x001e, h01=0x0050, text=» ANK A2,/FE RESET MDT BIT «, t00=0x0044, t01=0x012c}
0x6b7a…6b8e Head {h00=0x0010, h01=0x0050, text=» SC A2,-1,A4«, t00=0x0044, t01=0x014e}
0x6b8e…6ba0 Head {h00=0x000e, h01=0x0050, text=» RB ERAS30«, t00=0x0044, t01=0x0162}
0x6ba0…6bbc Head {h00=0x0018, h01=0x0050, text=»ERAS60 CWK A3,LBVDU «, t00=0x0044, t01=0x0174}
0x6bbc…6bd2 Head {h00=0x0012, h01=0x0050, text=» RF(L) ERAS65 «, t00=0x0044, t01=0x0190}
0x6bd2…6be4 Head {h00=0x000e, h01=0x0050, text=» LDK A3,0 «, t00=0x0045, t01=0x0016}
0x6be4…6c06 Head {h00=0x001e, h01=0x0050, text=» LDKL A4,BVDU WRAP AROUND «, t00=0x0045, t01=0x0028}
0x6c06…6c1c Head {h00=0x0012, h01=0x0050, text=» ADR A4,TCABAS«, t00=0x0045, t01=0x004a}
0x6c1c…6c30 Head {h00=0x0010, h01=0x0050, text=»ERAS65 EQU *«, t00=0x0045, t01=0x0060}
0x6c30…6c56 Head {h00=0x0022, h01=0x0050, text=» CWK A1,/0F00 EUA COMMAND? DK3«, t00=0x0045, t01=0x0074}
0x6c56…6c7e Head {h00=0x0024, h01=0x0050, text=» RF(L) ERAS67 NO, EUA ORDER DK3 «, t00=0x0045, t01=0x009a}
0x6c7e…6caa Head {h00=0x0028, h01=0x0050, text=» CWK A3,0 FINISHED EUA COMMAND? DK3 «, t00=0x0045, t01=0x00c2}
0x6caa…6cd0 Head {h00=0x0022, h01=0x0050, text=» RF(NZ) ERAS70 NO,CONTINUE DK3«, t00=0x0045, t01=0x00ee}
0x6cd0…6cf4 Head {h00=0x0020, h01=0x0050, text=» LDK A1,0 YYES, FINSHED DK3 «, t00=0x0045, t01=0x0114}
0x6cf4…6d0c Head {h00=0x0014, h01=0x0050, text=» RB ERAEND DK3 «, t00=0x0045, t01=0x0138}
0x6d0c…6d26 Head {h00=0x0016, h01=0x0050, text=»ERAS67 EQU * DK3 «, t00=0x0045, t01=0x0150}
0x6d26…6d38 Head {h00=0x000e, h01=0x0050, text=» CWR A3,A1«, t00=0x0045, t01=0x016a}
0x6d38…6d64 Head {h00=0x0028, h01=0x0050, text=» RB(E) ERAEND ALL UNPROTECTED ERASED«, t00=0x0045, t01=0x017c}
0x6d64…6d78 Head {h00=0x0010, h01=0x0050, text=»ERAS70 EQU *«, t00=0x0046, t01=0x0018}
0x6d78…6d8a Head {h00=0x000e, h01=0x0050, text=» LCR A2,A4«, t00=0x0046, t01=0x002c}
0x6d8a…6d9e Head {h00=0x0010, h01=0x0050, text=» ANK A2,/7F «, t00=0x0046, t01=0x003e}
0x6d9e…6db2 Head {h00=0x0010, h01=0x0050, text=» CWK A2,/20 «, t00=0x0046, t01=0x0052}
0x6db2…6dd8 Head {h00=0x0022, h01=0x0050, text=» RB(L) ERAS50 ATTRIBUTE FOUND «, t00=0x0046, t01=0x0066}
0x6dd8…6dea Head {h00=0x000e, h01=0x0050, text=» ADK A3,1 «, t00=0x0046, t01=0x008c}
0x6dea…6dfc Head {h00=0x000e, h01=0x0050, text=» ADK A4,1 «, t00=0x0046, t01=0x009e}
0x6dfc…6e0e Head {h00=0x000e, h01=0x0050, text=» RB ERAS60«, t00=0x0046, t01=0x00b0}
0x6e0e…6e1c Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0046, t01=0x00c2}
0x6e1c…6e26 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0046, t01=0x00d0}
0x6e26…6e30 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0046, t01=0x00da}
0x6e30…6e54 Head {h00=0x0020, h01=0x0050, text=»* TRANSMIT PROGRAM ATTENTION«, t00=0x0046, t01=0x00e4}
0x6e54…6e5e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0046, t01=0x0108}
0x6e5e…6e6e Head {h00=0x000c, h01=0x0050, text=»* A2=AID«, t00=0x0046, t01=0x0112}
0x6e6e…6e78 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0046, t01=0x0122}
0x6e78…6e82 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0046, t01=0x012c}
0x6e82…6eb0 Head {h00=0x002a, h01=0x0050, text=»TRPA CF A14,GTWBUF GET TRANSMIT BUFFER«, t00=0x0046, t01=0x0136}
0x6eb0…6ed4 Head {h00=0x0020, h01=0x0050, text=»TRPA10 CF A14,PAID STORE AID«, t00=0x0046, t01=0x0164}
0x6ed4…6ee8 Head {h00=0x0010, h01=0x0050, text=»TRANS EQU * «, t00=0x0046, t01=0x0188}
0x6ee8…6f0c Head {h00=0x0020, h01=0x0050, text=» CF A14,DCWRTE WRITE MESSAGE«, t00=0x0047, t01=0x000c}
0x6f0c…6f20 Head {h00=0x0010, h01=0x0050, text=»TR050 EQU * «, t00=0x0047, t01=0x0030}
0x6f20…6f46 Head {h00=0x0022, h01=0x0050, text=» RTN A14 TRANSMISSION TROUBLE «, t00=0x0047, t01=0x0044}
0x6f46…6f5c Head {h00=0x0012, h01=0x0050, text=»TRRTN RTN A14 «, t00=0x0047, t01=0x006a}
0x6f5c…6f6a Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0047, t01=0x0080}
0x6f6a…6f74 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0047, t01=0x008e}
0x6f74…6f7e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0047, t01=0x0098}
0x6f7e…6fa2 Head {h00=0x0020, h01=0x0050, text=»* TRANSMIT PROGRAM FUNCTION «, t00=0x0047, t01=0x00a2}
0x6fa2…6fac Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0047, t01=0x00c6}
0x6fac…6fbc Head {h00=0x000c, h01=0x0050, text=»* A2=AID«, t00=0x0047, t01=0x00d0}
0x6fbc…6fc6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0047, t01=0x00e0}
0x6fc6…6fd0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0047, t01=0x00ea}
0x6fd0…6ffe Head {h00=0x002a, h01=0x0050, text=»TRPF CF A14,GTWBUF GET TRANSMIT BUFFER«, t00=0x0047, t01=0x00f4}
0x6ffe…7022 Head {h00=0x0020, h01=0x0050, text=»TRPF10 CF A14,PAID STORE AID«, t00=0x0047, t01=0x0122}
0x7022…704c Head {h00=0x0026, h01=0x0050, text=» CF A14,CURSA STORE CURSOR ADDRESS«, t00=0x0047, t01=0x0146}
0x704c…7070 Head {h00=0x0020, h01=0x0050, text=» CF A14,RDMOD READ MODIFIED «, t00=0x0047, t01=0x0170}
0x7070…7096 (72, 0, 400) Head {h00=0x0022, h01=0x0050, text=» RB TRANS SEND MODIFIED FIELDS«, t00=0x0048, t01=0x0004}
0x7096…70a4 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0048, t01=0x002a}
0x70a4…70ae Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0048, t01=0x0038}
0x70ae…70b8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0048, t01=0x0042}
0x70b8…70e0 Head {h00=0x0024, h01=0x0050, text=»* DISPLAY MODIFIED FIELDS ON VDU«, t00=0x0048, t01=0x004c}
0x70e0…70ea Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0048, t01=0x0074}
0x70ea…70f4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0048, t01=0x007e}
0x70f4…710e Head {h00=0x0016, h01=0x0050, text=»* A3=VDU POSITION «, t00=0x0048, t01=0x0088}
0x710e…712c Head {h00=0x001a, h01=0x0050, text=»* A4=VDU IMAGE POINTER«, t00=0x0048, t01=0x00a2}
0x712c…714c Head {h00=0x001c, h01=0x0050, text=»* A5=MODIFIED INDICATOR «, t00=0x0048, t01=0x00c0}
0x714c…7170 Head {h00=0x0020, h01=0x0050, text=»* A7=VDU LINE OUTPUT POINTER«, t00=0x0048, t01=0x00e0}
0x7170…7184 Head {h00=0x0010, h01=0x0050, text=»* A8=VDU ECB«, t00=0x0048, t01=0x0104}
0x7184…71a8 Head {h00=0x0020, h01=0x0050, text=»* A9=VDU OUTPUT CHAR COUNTER«, t00=0x0048, t01=0x0118}
0x71a8…71b2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0048, t01=0x013c}
0x71b2…71bc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0048, t01=0x0146}
0x71bc…71d8 Head {h00=0x0018, h01=0x0050, text=»DISPL LDKL A8,ECBVDU«, t00=0x0048, t01=0x0150}
0x71d8…71ee Head {h00=0x0012, h01=0x0050, text=» ADR A8,CREBAS«, t00=0x0048, t01=0x016c}
0x71ee…721c Head {h00=0x002a, h01=0x0050, text=» LDKL A1,/101 START FROM LINE 1 POS 1 «, t00=0x0048, t01=0x0182}
0x721c…7234 Head {h00=0x0014, h01=0x0050, text=» ST A1,ECBCW,A8 «, t00=0x0049, t01=0x0020}
0x7234…7270 Head {h00=0x0038, h01=0x0050, text=» SUR A10,A10 RESET COUNT FOR INTENSIFIED DISPLAYING «, t00=0x0049, t01=0x0038}
0x7270…7282 Head {h00=0x000e, h01=0x0050, text=» LDK A3,0 «, t00=0x0049, t01=0x0074}
0x7282…7298 Head {h00=0x0012, h01=0x0050, text=» LDKL A4,BVDU «, t00=0x0049, t01=0x0086}
0x7298…72ae Head {h00=0x0012, h01=0x0050, text=» ADR A4,TCABAS«, t00=0x0049, t01=0x009c}
0x72ae…72de Head {h00=0x002c, h01=0x0050, text=» CF A14,SPACES PUT SPACES IN LINE BUFFER«, t00=0x0049, t01=0x00b2}
0x72de…7326 Head {h00=0x0044, h01=0x0050, text=»****************************************************************«, t00=0x0049, t01=0x00e2}
0x7326…7360 Head {h00=0x0036, h01=0x0050, text=» LC A2,1919,A4 CHECK IF ATTRIBUTE IN LAST POSITION«, t00=0x0049, t01=0x012a}
0x7360…7374 Head {h00=0x0010, h01=0x0050, text=» ANK A2,/7F «, t00=0x0049, t01=0x0164}
0x7374…7396 Head {h00=0x001e, h01=0x0050, text=» CWK A2,/1F ATTRIBUTE ??? «, t00=0x0049, t01=0x0178}
0x7396…73b2 Head {h00=0x0018, h01=0x0050, text=» RF(G) DIS100 NO!!! «, t00=0x004a, t01=0x000a}
0x73b2…73ba Head {h00=0x0004, h01=0x0050, t00=0x004a, t01=0x0026}
0x73ba…73cc Head {h00=0x000e, h01=0x0050, text=» ANK A2,6 «, t00=0x004a, t01=0x002e}
0x73cc…73de Head {h00=0x000e, h01=0x0050, text=» XRK A2,6 «, t00=0x004a, t01=0x0040}
0x73de…7420 Head {h00=0x003e, h01=0x0050, text=» ST A2,INTATT,TCABAS CHECK DISPLAY/NONDISPLAY INFORMATION «, t00=0x004a, t01=0x0052}
0x7420…7442 Head {h00=0x001e, h01=0x0050, text=» RF(Z) DIS210 NON DISPLAY «, t00=0x004a, t01=0x0094}
0x7442…747a Head {h00=0x0034, h01=0x0050, text=» CF A14,INTCHK INSERT HIGH/LOW INTENS. IN BUFFER«, t00=0x004a, t01=0x00b6}
0x747a…74c6 Head {h00=0x0048, h01=0x0050, text=»******************************************************************* «, t00=0x004a, t01=0x00ee}
0x74c6…74da Head {h00=0x0010, h01=0x0050, text=»DIS100 EQU *«, t00=0x004a, t01=0x013a}
0x74da…74f0 Head {h00=0x0012, h01=0x0050, text=» CWK A9,LLINE «, t00=0x004a, t01=0x014e}
0x74f0…7516 Head {h00=0x0022, h01=0x0050, text=» RF(L) DIS110 NOT END OF LINE «, t00=0x004a, t01=0x0164}
0x7516…753e Head {h00=0x0024, h01=0x0050, text=» CF A14,DISLIN DISPLAY THIS LINE«, t00=0x004a, t01=0x018a}
0x753e…7570 Head {h00=0x002e, h01=0x0050, text=» CF A14,INTCHK CHECK IF LOW/HIGH INTENSITY«, t00=0x004b, t01=0x0022}
0x7570…7584 Head {h00=0x0010, h01=0x0050, text=»DIS110 EQU *«, t00=0x004b, t01=0x0054}
0x7584…759a Head {h00=0x0012, h01=0x0050, text=» CWK A3,LBVDU «, t00=0x004b, t01=0x0068}
0x759a…75bc Head {h00=0x001e, h01=0x0050, text=» RF(NL) DIS900 ALL SCANNED«, t00=0x004b, t01=0x007e}
0x75bc…75d8 Head {h00=0x0018, h01=0x0050, text=» LCR A2,A4 GET CHAR «, t00=0x004b, t01=0x00a0}
0x75d8…761a Head {h00=0x003e, h01=0x0050, text=»************************************************ 78-08-15 «, t00=0x004b, t01=0x00bc}
0x761a…7622 Head {h00=0x0004, h01=0x0050, t00=0x004b, t01=0x00fe}
0x7622…7648 Head {h00=0x0022, h01=0x0050, text=» CF A14,SET:M SET MODIFIED BIT«, t00=0x004b, t01=0x0106}
0x7648…7650 Head {h00=0x0004, h01=0x0050, t00=0x004b, t01=0x012c}
0x7650…7692 Head {h00=0x003e, h01=0x0050, text=»************************************************ 78-08-15 «, t00=0x004b, t01=0x0134}
0x7692…76a6 Head {h00=0x0010, h01=0x0050, text=»DIS115 EQU *«, t00=0x004b, t01=0x0176}
0x76a6…76cc Head {h00=0x0022, h01=0x0050, text=» ANK A2,/7F RESET DISPLAY BIT «, t00=0x004b, t01=0x018a}
0x76cc…76de Head {h00=0x000e, h01=0x0050, text=» SCR A2,A4«, t00=0x004c, t01=0x0020}
0x76de…76f0 Head {h00=0x000e, h01=0x0050, text=» ADK A3,1 «, t00=0x004c, t01=0x0032}
0x76f0…7702 Head {h00=0x000e, h01=0x0050, text=» ADK A4,1 «, t00=0x004c, t01=0x0044}
0x7702…7714 Head {h00=0x000e, h01=0x0050, text=» ADK A7,1 «, t00=0x004c, t01=0x0056}
0x7714…7726 Head {h00=0x000e, h01=0x0050, text=» ADKL A9,1«, t00=0x004c, t01=0x0068}
0x7726…773a Head {h00=0x0010, h01=0x0050, text=» CWK A2,/20 «, t00=0x004c, t01=0x007a}
0x773a…775e Head {h00=0x0020, h01=0x0050, text=» RF(L) DIS200 ATTRIBUTE CHAR«, t00=0x004c, t01=0x008e}
0x775e…7772 Head {h00=0x0010, h01=0x0050, text=» CWK A2,NULL«, t00=0x004c, t01=0x00b2}
0x7772…77a4 Head {h00=0x002e, h01=0x0050, text=» RB(E) DIS100 NULL EQUALS SPACE AT DISPLAY«, t00=0x004c, t01=0x00c6}
0x77a4…77b8 Head {h00=0x0010, h01=0x0050, text=» CWK A2,/7D «, t00=0x004c, t01=0x00f8}
0x77b8…77ce Head {h00=0x0012, h01=0x0050, text=» RF(NE) DIS120«, t00=0x004c, t01=0x010c}
0x77ce…77e2 Head {h00=0x0010, h01=0x0050, text=» LDK A2,/39 «, t00=0x004c, t01=0x0122}
0x77e2…77fc Head {h00=0x0016, h01=0x0050, text=»DIS120 CWK A2,/7E «, t00=0x004c, t01=0x0136}
0x77fc…7812 Head {h00=0x0012, h01=0x0050, text=» RF(NE) DIS121«, t00=0x004c, t01=0x0150}
0x7812…7826 Head {h00=0x0010, h01=0x0050, text=» LDK A2,/35 «, t00=0x004c, t01=0x0166}
0x7826…7840 Head {h00=0x0016, h01=0x0050, text=»DIS121 CWK A2,/7C «, t00=0x004c, t01=0x017a}
0x7840…7856 (77, 0, 398) Head {h00=0x0012, h01=0x0050, text=» RF(NE) DIS122«, t00=0x004d, t01=0x0004}
0x7856…786a Head {h00=0x0010, h01=0x0050, text=» LDK A2,/3C «, t00=0x004d, t01=0x001a}
0x786a…787e Head {h00=0x0010, h01=0x0050, text=»DIS122 EQU *«, t00=0x004d, t01=0x002e}
0x787e…789a Head {h00=0x0018, h01=0x0050, text=» CF A14,RFMDUP DK4 «, t00=0x004d, t01=0x0042}
0x789a…78d2 Head {h00=0x0034, h01=0x0050, text=» SC A2,-1,A7 STORE CHAR IN DISPLAY OUTPUT BUFFER«, t00=0x004d, t01=0x005e}
0x78d2…78e4 Head {h00=0x000e, h01=0x0050, text=» RB DIS100«, t00=0x004d, t01=0x0096}
0x78e4…78fc Head {h00=0x0014, h01=0x0050, text=»DIS200 ANK A2,6 «, t00=0x004d, t01=0x00a8}
0x78fc…7922 Head {h00=0x0022, h01=0x0050, text=» XRK A2,6 CHECK IF NONDISPLAY «, t00=0x004d, t01=0x00c0}
0x7922…7958 Head {h00=0x0032, h01=0x0050, text=» ST A2,INTATT,TCABAS SAVE ATTRIBUTE CHARACTER «, t00=0x004d, t01=0x00e6}
0x7958…797a Head {h00=0x001e, h01=0x0050, text=» RF(Z) DIS210 NON DISPLAY «, t00=0x004d, t01=0x011c}
0x797a…798c Head {h00=0x000e, h01=0x0050, text=» ANK A2,4 «, t00=0x004d, t01=0x013e}
0x798c…79b0 Head {h00=0x0020, h01=0x0050, text=» RF(Z) DIS205 HIGH INTENSITY«, t00=0x004d, t01=0x0150}
0x79b0…79d2 Head {h00=0x001e, h01=0x0050, text=» LDK A2,/1E LOW INTENSITY «, t00=0x004d, t01=0x0174}
0x79d2…79e4 Head {h00=0x000e, h01=0x0050, text=» RF DIS206«, t00=0x004e, t01=0x0008}
0x79e4…79f8 Head {h00=0x0010, h01=0x0050, text=»DIS205 EQU *«, t00=0x004e, t01=0x001a}
0x79f8…7a10 Head {h00=0x0014, h01=0x0050, text=» LDK A2,/1F HIGH«, t00=0x004e, t01=0x002e}
0x7a10…7a24 Head {h00=0x0010, h01=0x0050, text=»DIS206 EQU *«, t00=0x004e, t01=0x0046}
0x7a24…7a52 Head {h00=0x002a, h01=0x0050, text=» SC A2,-1,A7 STORE INTENSITY CHARACTER«, t00=0x004e, t01=0x005a}
0x7a52…7a78 Head {h00=0x0022, h01=0x0050, text=» ADKL A10,1 INCREMENT COUNTER «, t00=0x004e, t01=0x0088}
0x7a78…7a8a Head {h00=0x000e, h01=0x0050, text=» ADK A7,1 «, t00=0x004e, t01=0x00ae}
0x7a8a…7a9c Head {h00=0x000e, h01=0x0050, text=» RB DIS100«, t00=0x004e, t01=0x00c0}
0x7a9c…7ab0 Head {h00=0x0010, h01=0x0050, text=»DIS210 EQU *«, t00=0x004e, t01=0x00d2}
0x7ab0…7ac6 Head {h00=0x0012, h01=0x0050, text=» CWK A9,LLINE «, t00=0x004e, t01=0x00e6}
0x7ac6…7adc Head {h00=0x0012, h01=0x0050, text=» RF(L) DIS220 «, t00=0x004e, t01=0x00fc}
0x7adc…7b04 Head {h00=0x0024, h01=0x0050, text=» CF A14,DISLIN DISPLAY THIS LINE«, t00=0x004e, t01=0x0112}
0x7b04…7b18 Head {h00=0x0010, h01=0x0050, text=»DIS220 EQU *«, t00=0x004e, t01=0x013a}
0x7b18…7b2e Head {h00=0x0012, h01=0x0050, text=» CWK A3,LBVDU «, t00=0x004e, t01=0x014e}
0x7b2e…7b52 Head {h00=0x0020, h01=0x0050, text=» RF(NL) DIS900 ALL DISPLAYED«, t00=0x004e, t01=0x0164}
0x7b52…7b64 Head {h00=0x000e, h01=0x0050, text=» LCR A2,A4«, t00=0x004e, t01=0x0188}
0x7b64…7ba6 Head {h00=0x003e, h01=0x0050, text=»************************************************* 78-08-15«, t00=0x004f, t01=0x000a}
0x7ba6…7bae Head {h00=0x0004, h01=0x0050, t00=0x004f, t01=0x004c}
0x7bae…7bd4 Head {h00=0x0022, h01=0x0050, text=» CF A14,SET:M SET MODIFIED BIT«, t00=0x004f, t01=0x0054}
0x7bd4…7bdc Head {h00=0x0004, h01=0x0050, t00=0x004f, t01=0x007a}
0x7bdc…7c1e Head {h00=0x003e, h01=0x0050, text=»************************************************ 78-08-15 «, t00=0x004f, t01=0x0082}
0x7c1e…7c32 Head {h00=0x0010, h01=0x0050, text=»DIS225 EQU *«, t00=0x004f, t01=0x00c4}
0x7c32…7c58 Head {h00=0x0022, h01=0x0050, text=» ANK A2,/7F RESET DISPLAY BIT «, t00=0x004f, t01=0x00d8}
0x7c58…7c6a Head {h00=0x000e, h01=0x0050, text=» SCR A2,A4«, t00=0x004f, t01=0x00fe}
0x7c6a…7c7c Head {h00=0x000e, h01=0x0050, text=» ADK A3,1 «, t00=0x004f, t01=0x0110}
0x7c7c…7c8e Head {h00=0x000e, h01=0x0050, text=» ADK A4,1 «, t00=0x004f, t01=0x0122}
0x7c8e…7ca0 Head {h00=0x000e, h01=0x0050, text=» ADK A7,1 «, t00=0x004f, t01=0x0134}
0x7ca0…7cb2 Head {h00=0x000e, h01=0x0050, text=» ADKL A9,1«, t00=0x004f, t01=0x0146}
0x7cb2…7cc6 Head {h00=0x0010, h01=0x0050, text=» CWK A2,/20 «, t00=0x004f, t01=0x0158}
0x7cc6…7cec Head {h00=0x0022, h01=0x0050, text=» RB(L) DIS200 ATTRIBUTE FOUND «, t00=0x004f, t01=0x016c}
0x7cec…7cfe (80, 0, 400) Head {h00=0x000e, h01=0x0050, text=» RB DIS210«, t00=0x0050, t01=0x0004}
0x7cfe…7d0c Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0050, t01=0x0016}
0x7d0c…7d16 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0050, t01=0x0024}
0x7d16…7d20 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0050, t01=0x002e}
0x7d20…7d3e Head {h00=0x001a, h01=0x0050, text=»* POSITION THE CURSOR «, t00=0x0050, t01=0x0038}
0x7d3e…7d48 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0050, t01=0x0056}
0x7d48…7d52 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0050, t01=0x0060}
0x7d52…7d66 Head {h00=0x0010, h01=0x0050, text=»SETCUR EQU *«, t00=0x0050, t01=0x006a}
0x7d66…7d88 Head {h00=0x001e, h01=0x0050, text=»DIS900 LDK A1,2 REQ LENGTH«, t00=0x0050, t01=0x007e}
0x7d88…7da6 Head {h00=0x001a, h01=0x0050, text=»DIS905 ST A1,ECBRL,A8 «, t00=0x0050, t01=0x00a0}
0x7da6…7dd0 Head {h00=0x0026, h01=0x0050, text=» LD A1,PCURS,TCABAS GET CURSOR POS«, t00=0x0050, t01=0x00be}
0x7dd0…7dfa Head {h00=0x0026, h01=0x0050, text=» LDKL A2,/101 START ON LIN 1 POS 1«, t00=0x0050, t01=0x00e8}
0x7dfa…7e12 Head {h00=0x0014, h01=0x0050, text=» ST A2,ECBCW,A8 «, t00=0x0050, t01=0x0112}
0x7e12…7e28 Head {h00=0x0012, h01=0x0050, text=» LDKL A2,/100 «, t00=0x0050, t01=0x012a}
0x7e28…7e44 Head {h00=0x0018, h01=0x0050, text=»DIS910 CWK A1,LLINE «, t00=0x0050, t01=0x0140}
0x7e44…7e5a Head {h00=0x0012, h01=0x0050, text=» RF(L) DIS920 «, t00=0x0050, t01=0x015c}
0x7e5a…7e72 Head {h00=0x0014, h01=0x0050, text=» ADS A2,ECBCW,A8«, t00=0x0050, t01=0x0172}
0x7e72…7e88 Head {h00=0x0012, h01=0x0050, text=» SUKL A1,LLINE«, t00=0x0050, t01=0x018a}
0x7e88…7e9a Head {h00=0x000e, h01=0x0050, text=» RB DIS910«, t00=0x0051, t01=0x0010}
0x7e9a…7eb8 Head {h00=0x001a, h01=0x0050, text=»DIS920 ADS A1,ECBCW,A8«, t00=0x0051, t01=0x0022}
0x7eb8…7ee0 Head {h00=0x0024, h01=0x0050, text=» LDK A7,/8B SET CURSOR AND WRITE«, t00=0x0051, t01=0x0040}
0x7ee0…7eec Head {h00=0x0008, h01=0x0050, text=» LKM«, t00=0x0051, t01=0x0068}
0x7eec…7efc Head {h00=0x000c, h01=0x0050, text=» DATA 1 «, t00=0x0051, t01=0x0074}
0x7efc…7f30 Head {h00=0x0030, h01=0x0050, text=» CM INTATT,TCABAS CLEAR INTENSITY ATTRIBUTE «, t00=0x0051, t01=0x0084}
0x7f30…7f40 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0051, t01=0x00b8}
0x7f40…7f4e Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0051, t01=0x00c8}
0x7f4e…7f58 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0051, t01=0x00d6}
0x7f58…7f62 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0051, t01=0x00e0}
0x7f62…7f96 Head {h00=0x0030, h01=0x0050, text=»* WRITE ONE CHAR FROM A2 IN CURSOR POSITION «, t00=0x0051, t01=0x00ea}
0x7f96…7fa0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0051, t01=0x011e}
0x7fa0…7faa Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0051, t01=0x0128}
0x7faa…7fc6 Head {h00=0x0018, h01=0x0050, text=»WCHAR LD A1,ECBBA,A8«, t00=0x0051, t01=0x0132}
0x7fc6…7fdc Head {h00=0x0012, h01=0x0050, text=» CF A14,RFMDUP«, t00=0x0051, t01=0x014e}
0x7fdc…8010 Head {h00=0x0030, h01=0x0050, text=» SC A2,3,A1 STORE CHAR IN VDU OUTPUT BUFFER «, t00=0x0051, t01=0x0164}
0x8010…8022 Head {h00=0x000e, h01=0x0050, text=» LDK A1,4 «, t00=0x0052, t01=0x0008}
0x8022…8044 Head {h00=0x001e, h01=0x0050, text=» RB DIS905 REQ LENGTH = 3 «, t00=0x0052, t01=0x001a}
0x8044…804e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0052, t01=0x003c}
0x804e…809c Head {h00=0x004a, h01=0x0050, text=»********************************************************************* «, t00=0x0052, t01=0x0046}
0x809c…80a6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0052, t01=0x0094}
0x80a6…80e2 Head {h00=0x0038, h01=0x0050, text=»* REPLACE FM & DUP WITH '*' RESP. ';', IF PRESENT«, t00=0x0052, t01=0x009e}
0x80e2…8100 Head {h00=0x001a, h01=0x0050, text=»* CHARACTER IN A2«, t00=0x0052, t01=0x00da}
0x8100…810a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0052, t01=0x00f8}
0x810a…8158 Head {h00=0x004a, h01=0x0050, text=»********************************************************************* «, t00=0x0052, t01=0x0102}
0x8158…8162 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0052, t01=0x0150}
0x8162…8176 Head {h00=0x0010, h01=0x0050, text=»RFMDUP EQU *«, t00=0x0052, t01=0x015a}
0x8176…818c Head {h00=0x0012, h01=0x0050, text=» CWK A2,DUPCH «, t00=0x0052, t01=0x016e}
0x818c…81a2 Head {h00=0x0012, h01=0x0050, text=» RF(NE) RFMD10«, t00=0x0052, t01=0x0184}
0x81a2…81ba Head {h00=0x0014, h01=0x0050, text=» LDK A2,/2A DUP «, t00=0x0053, t01=0x000a}
0x81ba…81ce Head {h00=0x0010, h01=0x0050, text=»RFMD10 EQU *«, t00=0x0053, t01=0x0022}
0x81ce…81e2 Head {h00=0x0010, h01=0x0050, text=» CWK A2,FMCH«, t00=0x0053, t01=0x0036}
0x81e2…81f8 Head {h00=0x0012, h01=0x0050, text=» RF(NE) RFMD20«, t00=0x0053, t01=0x004a}
0x81f8…820c Head {h00=0x0010, h01=0x0050, text=» LDK A2,/3B «, t00=0x0053, t01=0x0060}
0x820c…8220 Head {h00=0x0010, h01=0x0050, text=»RFMD20 EQU *«, t00=0x0053, t01=0x0074}
0x8220…8230 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0053, t01=0x0088}
0x8230…823e Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0053, t01=0x0098}
0x823e…8248 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0053, t01=0x00a6}
0x8248…8252 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0053, t01=0x00b0}
0x8252…827e Head {h00=0x0028, h01=0x0050, text=»* PUT SPACES TO DISPLAY LINE BUFFER «, t00=0x0053, t01=0x00ba}
0x827e…8288 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0053, t01=0x00e6}
0x8288…8292 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0053, t01=0x00f0}
0x8292…82b0 Head {h00=0x001a, h01=0x0050, text=»SPACES LD A7,ECBBA,A8 «, t00=0x0053, t01=0x00fa}
0x82b0…82d0 Head {h00=0x001c, h01=0x0050, text=» ADK A7,2 BUFFER ADDRESS«, t00=0x0053, t01=0x0118}
0x82d0…82f2 Head {h00=0x001e, h01=0x0050, text=» LDKL A9,LLINE LINE LENGTH«, t00=0x0053, t01=0x0138}
0x82f2…830e Head {h00=0x0018, h01=0x0050, text=» ADR A9,A9 DOUBLE IT«, t00=0x0053, t01=0x015a}
0x830e…832a Head {h00=0x0018, h01=0x0050, text=» LDKL A2,' ' SPACES«, t00=0x0053, t01=0x0176}
0x832a…8346 (84, 0, 400) Head {h00=0x0018, h01=0x0050, text=»SPAC10 SCR A2,A7 =1«, t00=0x0054, t01=0x0004}
0x8346…835e Head {h00=0x0014, h01=0x0050, text=» SC A2,1,A7 =1 «, t00=0x0054, t01=0x0020}
0x835e…8370 Head {h00=0x000e, h01=0x0050, text=» ADK A7,2 «, t00=0x0054, t01=0x0038}
0x8370…8382 Head {h00=0x000e, h01=0x0050, text=» SUKL A9,2«, t00=0x0054, t01=0x004a}
0x8382…8398 Head {h00=0x0012, h01=0x0050, text=» RB(P) SPAC10 «, t00=0x0054, t01=0x005c}
0x8398…83c0 Head {h00=0x0024, h01=0x0050, text=» LDK A2,0 CLEAR A2=CHAR REGISTER«, t00=0x0054, t01=0x0072}
0x83c0…83ea Head {h00=0x0026, h01=0x0050, text=» LDK A5,0 RESET MODIFIED INDICATOR«, t00=0x0054, t01=0x009a}
0x83ea…8402 Head {h00=0x0014, h01=0x0050, text=» LD A7,ECBBA,A8 «, t00=0x0054, t01=0x00c4}
0x8402…8422 Head {h00=0x001c, h01=0x0050, text=» ADK A7,2 BUFFER ADDRESS«, t00=0x0054, t01=0x00dc}
0x8422…844c Head {h00=0x0026, h01=0x0050, text=» SUR A9,A9 RESET LINE CHAR COUNTER«, t00=0x0054, t01=0x00fc}
0x844c…845c Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0054, t01=0x0126}
0x845c…846a Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0054, t01=0x0136}
0x846a…8474 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0054, t01=0x0144}
0x8474…847e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0054, t01=0x014e}
0x847e…84aa Head {h00=0x0028, h01=0x0050, text=»* DISPLAY LINE IF ANY MODIFICATIONS «, t00=0x0054, t01=0x0158}
0x84aa…84b4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0054, t01=0x0184}
0x84b4…84be Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0054, t01=0x018e}
0x84be…8500 Head {h00=0x003e, h01=0x0050, text=»************************************************* 78-08-15«, t00=0x0055, t01=0x0008}
0x8500…8508 Head {h00=0x0004, h01=0x0050, t00=0x0055, t01=0x004a}
0x8508…851c Head {h00=0x0010, h01=0x0050, text=»DISLIN EQU *«, t00=0x0055, t01=0x0052}
0x851c…852e Head {h00=0x000e, h01=0x0050, text=» LDR A7,A5«, t00=0x0055, t01=0x0066}
0x852e…8556 Head {h00=0x0024, h01=0x0050, text=» ANK A5,/80 ANY MODIFICATIONS ??«, t00=0x0055, t01=0x0078}
0x8556…857c Head {h00=0x0022, h01=0x0050, text=» RF(Z) DISL10 NO MODIFICATIONS«, t00=0x0055, t01=0x00a0}
0x857c…858e Head {h00=0x000e, h01=0x0050, text=» LDK A1,2 «, t00=0x0055, t01=0x00c6}
0x858e…85ba Head {h00=0x0028, h01=0x0050, text=» XRK A7,/A0 ONLY SPACES IN BUFFER ??«, t00=0x0055, t01=0x00d8}
0x85ba…85d6 Head {h00=0x0018, h01=0x0050, text=» RF(Z) DIS:10 YES!! «, t00=0x0055, t01=0x0104}
0x85d6…85ee Head {h00=0x0014, h01=0x0050, text=» LDKL A1,LLINE+2«, t00=0x0055, t01=0x0120}
0x85ee…8620 Head {h00=0x002e, h01=0x0050, text=» ADR A1,A10 ADD NR OF INTENSITY CHARACTERS«, t00=0x0055, t01=0x0138}
0x8620…8634 Head {h00=0x0010, h01=0x0050, text=»DIS:10 EQU *«, t00=0x0055, t01=0x016a}
0x8634…8674 Head {h00=0x003c, h01=0x0050, text=»*********************************************** 78-08-15«, t00=0x0055, t01=0x017e}
0x8674…869a Head {h00=0x0022, h01=0x0050, text=» ST A1,ECBRL,A8 SET REQ LENGTH«, t00=0x0056, t01=0x002e}
0x869a…86a2 Head {h00=0x0004, h01=0x0050, t00=0x0056, t01=0x0054}
0x86a2…86aa Head {h00=0x0004, h01=0x0050, t00=0x0056, t01=0x005c}
0x86aa…86d2 Head {h00=0x0024, h01=0x0050, text=» LDK A7,/8B SET CURSOR AND WRITE«, t00=0x0056, t01=0x0064}
0x86d2…86de Head {h00=0x0008, h01=0x0050, text=» LKM«, t00=0x0056, t01=0x008c}
0x86de…86ee Head {h00=0x000c, h01=0x0050, text=» DATA 1 «, t00=0x0056, t01=0x0098}
0x86ee…86fc Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0056, t01=0x00a8}
0x86fc…8704 Head {h00=0x0004, h01=0x0050, t00=0x0056, t01=0x00b6}
0x8704…8750 Head {h00=0x0048, h01=0x0050, text=»********************************************************************«, t00=0x0056, t01=0x00be}
0x8750…875a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0056, t01=0x010a}
0x875a…878e Head {h00=0x0030, h01=0x0050, text=»* EXECUTE FAST OUTPUT TO BLANK REMAINIG PART«, t00=0x0056, t01=0x0114}
0x878e…87a4 Head {h00=0x0012, h01=0x0050, text=»* OF THE LINE «, t00=0x0056, t01=0x0148}
0x87a4…87ae Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0056, t01=0x015e}
0x87ae…87fa Head {h00=0x0048, h01=0x0050, text=»******************************************************************* «, t00=0x0056, t01=0x0168}
0x87fa…8802 Head {h00=0x0004, h01=0x0050, t00=0x0057, t01=0x0024}
0x8802…882a Head {h00=0x0024, h01=0x0050, text=» LD A1,ECBCW,A8 CURSOR POSITION «, t00=0x0057, t01=0x002c}
0x882a…884e Head {h00=0x0020, h01=0x0050, text=» ANK A1,X'FF' COLUMN NUMBER «, t00=0x0057, t01=0x0054}
0x884e…8876 Head {h00=0x0024, h01=0x0050, text=»* SUK A1,81 LAST POSITION ??? DK«, t00=0x0057, t01=0x0078}
0x8876…889c Head {h00=0x0022, h01=0x0050, text=» SUK A1,80 LAST POSITION ? DK «, t00=0x0057, t01=0x00a0}
0x889c…88d4 Head {h00=0x0034, h01=0x0050, text=»* RF(Z) DISL10 YES!! NO FAST OUTPUT THIS LINE DK«, t00=0x0057, t01=0x00c6}
0x88d4…890c Head {h00=0x0034, h01=0x0050, text=» RF(NL) DISL10 YES, NO FAST OUTPUT THIS LINE DK «, t00=0x0057, t01=0x00fe}
0x890c…8914 Head {h00=0x0004, h01=0x0050, t00=0x0057, t01=0x0136}
0x8914…893a Head {h00=0x0022, h01=0x0050, text=» LD A1,ECBBA,A8 BUFFER ADRESS «, t00=0x0057, t01=0x013e}
0x893a…896a Head {h00=0x002c, h01=0x0050, text=» LDK A2,X'2B' DONT MOVE CURSOR ONE LINE «, t00=0x0057, t01=0x0164}
0x896a…8982 (88, 0, 400) Head {h00=0x0014, h01=0x0050, text=» SC A2,1,A1 =1 «, t00=0x0058, t01=0x0004}
0x8982…89b0 Head {h00=0x002a, h01=0x0050, text=» LDKL A2,X'1420' FAST OUTPUT OF SPACES«, t00=0x0058, t01=0x001c}
0x89b0…89c8 Head {h00=0x0014, h01=0x0050, text=» SC A2,3,A1 =1 «, t00=0x0058, t01=0x004a}
0x89c8…89de Head {h00=0x0012, h01=0x0050, text=» SRL A2,8 =1 «, t00=0x0058, t01=0x0062}
0x89de…89f6 Head {h00=0x0014, h01=0x0050, text=» SC A2,2,A1 =1 «, t00=0x0058, t01=0x0078}
0x89f6…8a1a Head {h00=0x0020, h01=0x0050, text=» LDK A2,84 REQUESTED LENGTH «, t00=0x0058, t01=0x0090}
0x8a1a…8a32 Head {h00=0x0014, h01=0x0050, text=» ST A2,ECBRL,A8 «, t00=0x0058, t01=0x00b4}
0x8a32…8a54 Head {h00=0x001e, h01=0x0050, text=» LDK A7,X'86' WRITE ORDER «, t00=0x0058, t01=0x00cc}
0x8a54…8a60 Head {h00=0x0008, h01=0x0050, text=» LKM«, t00=0x0058, t01=0x00ee}
0x8a60…8a70 Head {h00=0x000c, h01=0x0050, text=» DATA 1 «, t00=0x0058, t01=0x00fa}
0x8a70…8a78 Head {h00=0x0004, h01=0x0050, t00=0x0058, t01=0x010a}
0x8a78…8a8c Head {h00=0x0010, h01=0x0050, text=»DISL10 EQU *«, t00=0x0058, t01=0x0112}
0x8a8c…8a9e Head {h00=0x000e, h01=0x0050, text=» LDK A2,1 «, t00=0x0058, t01=0x0126}
0x8a9e…8aca Head {h00=0x0028, h01=0x0050, text=» SC A2,ECBCW+1,A8 POS 1 ON NEXT LINE«, t00=0x0058, t01=0x0138}
0x8aca…8ae0 Head {h00=0x0012, h01=0x0050, text=» LDKL A2,/100 «, t00=0x0058, t01=0x0164}
0x8ae0…8b0e Head {h00=0x002a, h01=0x0050, text=» ADS A2,ECBCW,A8 INCREMENT LINE NUMBER«, t00=0x0058, t01=0x017a}
0x8b0e…8b36 Head {h00=0x0024, h01=0x0050, text=» RB SPACES PUT SPACES TO BUFFER «, t00=0x0059, t01=0x0018}
0x8b36…8b3e Head {h00=0x0004, h01=0x0050, t00=0x0059, t01=0x0040}
0x8b3e…8b4c Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0059, t01=0x0048}
0x8b4c…8b54 Head {h00=0x0004, h01=0x0050, t00=0x0059, t01=0x0056}
0x8b54…8b5c Head {h00=0x0004, h01=0x0050, t00=0x0059, t01=0x005e}
0x8b5c…8ba4 Head {h00=0x0044, h01=0x0050, text=»****************************************************************«, t00=0x0059, t01=0x0066}
0x8ba4…8bae Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0059, t01=0x00ae}
0x8bae…8bf0 Head {h00=0x003e, h01=0x0050, text=»* I N T C H K CHECK IF LINE SHOULD BE PRINTED WITH«, t00=0x0059, t01=0x00b8}
0x8bf0…8c24 Head {h00=0x0030, h01=0x0050, text=»* HIGH OR LOW INTENSITY «, t00=0x0059, t01=0x00fa}
0x8c24…8c2e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0059, t01=0x012e}
0x8c2e…8c7c Head {h00=0x004a, h01=0x0050, text=»**********************************************************************«, t00=0x0059, t01=0x0138}
0x8c7c…8c84 Head {h00=0x0004, h01=0x0050, t00=0x0059, t01=0x0186}
0x8c84…8cb4 Head {h00=0x002c, h01=0x0050, text=»INTCHK SUR A10,A10 RESET INTENSITY COUNT«, t00=0x0059, t01=0x018e}
0x8cb4…8ce8 Head {h00=0x0030, h01=0x0050, text=» LD A2,INTATT,TCABAS GET INTENSITY ATTRIBUTE«, t00=0x005a, t01=0x002e}
0x8ce8…8d0a Head {h00=0x001e, h01=0x0050, text=» RF(Z) INTRTN NON DISPLAY «, t00=0x005a, t01=0x0062}
0x8d0a…8d32 Head {h00=0x0024, h01=0x0050, text=» ANK A2,X'4' HIGH INTENSITY ??? «, t00=0x005a, t01=0x0084}
0x8d32…8d4c Head {h00=0x0016, h01=0x0050, text=» RF(Z) INT:10 YES «, t00=0x005a, t01=0x00ac}
0x8d4c…8d54 Head {h00=0x0004, h01=0x0050, t00=0x005a, t01=0x00c6}
0x8d54…8d78 Head {h00=0x0020, h01=0x0050, text=» LDK A2,X'1E' LOW INTENSITY «, t00=0x005a, t01=0x00ce}
0x8d78…8d9a Head {h00=0x001e, h01=0x0050, text=» RF INT:20 HIGH INTENSITY «, t00=0x005a, t01=0x00f2}
0x8d9a…8da2 Head {h00=0x0004, h01=0x0050, t00=0x005a, t01=0x0114}
0x8da2…8dcc Head {h00=0x0026, h01=0x0050, text=»INT:10 LDK A2,X'1F' HIGH INTENSITY«, t00=0x005a, t01=0x011c}
0x8dcc…8dd4 Head {h00=0x0004, h01=0x0050, t00=0x005a, t01=0x0146}
0x8dd4…8e10 Head {h00=0x0038, h01=0x0050, text=»INT:20 SCR A2,A7 SAVE INTENSITY CHARACTER IN BUFFER «, t00=0x005a, t01=0x014e}
0x8e10…8e3a Head {h00=0x0026, h01=0x0050, text=» ADK A7,1 INCREMENT BUFFER POINTER«, t00=0x005a, t01=0x018a}
0x8e3a…8e68 Head {h00=0x002a, h01=0x0050, text=» ADKL A10,1 INTENSITY COUNT «, t00=0x005b, t01=0x0024}
0x8e68…8e86 Head {h00=0x001a, h01=0x0050, text=»INTRTN RTN A14 RETURN «, t00=0x005b, t01=0x0052}
0x8e86…8e90 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005b, t01=0x0070}
0x8e90…8e9e Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x005b, t01=0x007a}
0x8e9e…8ea6 Head {h00=0x0004, h01=0x0050, t00=0x005b, t01=0x0088}
0x8ea6…8eee Head {h00=0x0044, h01=0x0050, text=»****************************************************************«, t00=0x005b, t01=0x0090}
0x8eee…8ef8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005b, t01=0x00d8}
0x8ef8…8f3c Head {h00=0x0040, h01=0x0050, text=»* SET:M SET MODIFIED BIT IF CHARACTER HAS BEEN MODIFIED «, t00=0x005b, t01=0x00e2}
0x8f3c…8f46 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005b, t01=0x0126}
0x8f46…8f90 Head {h00=0x0046, h01=0x0050, text=»******************************************************************«, t00=0x005b, t01=0x0130}
0x8f90…8f98 Head {h00=0x0004, h01=0x0050, t00=0x005b, t01=0x017a}
0x8f98…8fb0 Head {h00=0x0014, h01=0x0050, text=»SET:M CWK A2,/20«, t00=0x005b, t01=0x0182}
0x8fb0…8fda Head {h00=0x0026, h01=0x0050, text=» RF(L) SET:M2 ATTRIBUTE CHARACTER «, t00=0x005c, t01=0x000a}
0x8fda…8fee Head {h00=0x0010, h01=0x0050, text=» CWK A2,/7F «, t00=0x005c, t01=0x0034}
0x8fee…9018 Head {h00=0x0026, h01=0x0050, text=» RF(E) SET:M2 UNMODIFIED ATTRIBUTE«, t00=0x005c, t01=0x0048}
0x9018…902c Head {h00=0x0010, h01=0x0050, text=» CWK A2,/FF «, t00=0x005c, t01=0x0072}
0x902c…9058 Head {h00=0x0028, h01=0x0050, text=» RF(NE) SET:M1 NOT NULL OR ATTRIBUTE«, t00=0x005c, t01=0x0086}
0x9058…9084 Head {h00=0x0028, h01=0x0050, text=» ORK A5,/A0 MODIFIED NULL CHARACTER «, t00=0x005c, t01=0x00b2}
0x9084…9094 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x005c, t01=0x00de}
0x9094…90be Head {h00=0x0026, h01=0x0050, text=»SET:M1 ORR A5,A2 SET MODIFIED BIT «, t00=0x005c, t01=0x00ee}
0x90be…90d4 Head {h00=0x0012, h01=0x0050, text=»SET:M2 RTN A14«, t00=0x005c, t01=0x0118}
0x90d4…90e0 Head {h00=0x0008, h01=0x0050, text=» END«, t00=0x005c, t01=0x012e}
0x90e0…90e4 Head {h00=0x4004, h01=0x0000}
0x90e4…90e8 00 5c 01 3a ┆ :┆
0x90e8…90f0 (93, 1, 8) 20 04 00 00 00 5d 00 04 ┆ ] ┆
0x90f0…9140 (94, 0, 400) 48 41 4e 44 4c 49 4e 47 20 52 55 54 49 4e 00 5d 01 78 00 24 00 50 5c 52 54 4e 5c 41 31 34 5c 47 4f 20 54 4f 20 4d 41 49 4e 20 52 45 41 44 20 4d 4f 44 55 4c 45 20 00 5e 00 16 00 04 00 50 00 5e 00 3e 00 04 00 50 00 5e 00 46 00 0c 00 50 50 46 ┆HANDLING RUTIN ] x $ P RTN A14 GO TO MAIN READ MODULE ^ P ^ > P ^ F PPF┆
0x9140…9190 5c 45 51 55 5c 2a 00 5e 00 4e 00 10 00 50 5c 53 55 4b 5c 41 32 2c 2f 35 43 20 00 5e 00 5e 00 0e 00 50 5c 52 42 5c 45 4e 54 31 30 30 00 5e 00 72 00 10 00 50 5c 49 46 54 5c 4f 46 4c 49 4e 3d 31 00 5e 00 84 00 06 00 50 5c 20 00 5e 00 98 00 40 ┆ EQU * ^ N P SUK A2,/5C ^ ^ P RB ENT100 ^ r P IFT OFLIN=1 ^ P ^ @┆
0x9190…91e0 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 2a 2a 00 5e 00 a2 00 06 00 50 2a 20 00 5e 00 e6 00 0c 00 50 ┆ P************************************************************ ^ P* ^ P┆
0x91e0…9230 2a 5c 4f 46 4c 49 4e 45 00 5e 00 f0 00 3c 00 50 2a 20 20 20 20 20 20 20 20 20 20 20 20 54 48 45 20 4f 46 46 4c 49 4e 45 20 53 57 49 54 43 48 20 22 4f 46 46 46 4c 47 22 20 49 53 20 53 45 54 20 3d 20 31 20 41 4e 44 20 00 5e 01 00 00 38 00 50 ┆* OFLINE ^ < P* THE OFFLINE SWITCH "OFFFLG" IS SET = 1 AND ^ 8 P┆
0x9230…9280 2a 20 20 20 20 20 20 20 20 20 20 20 41 20 42 52 41 4e 43 48 20 49 53 20 4d 41 44 45 20 42 41 43 4b 20 54 4f 20 43 52 45 44 49 54 20 50 52 4f 47 52 41 4d 20 00 5e 01 40 00 06 00 50 2a 20 00 5e 01 7c 00 42 00 50 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆* A BRANCH IS MADE BACK TO CREDIT PROGRAM ^ @ P* ^ | B P**********┆
0x9280…92d0 (95, 0, 398) 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 20 00 5e 01 86 00 10 00 50 4f 46 4c 49 4e 45 5c 45 51 55 5c 2a 00 5f 00 3c 00 12 00 50 ┆*************************************************** ^ POFLINE EQU * _ < P┆
0x92d0…9320 5c 43 46 5c 41 31 34 2c 43 4c 45 41 52 20 00 5f 00 50 00 10 00 50 4f 46 4c 49 30 35 5c 45 51 55 5c 2a 00 5f 00 66 00 12 00 50 5c 43 46 5c 41 31 34 2c 52 45 53 45 54 20 00 5f 00 7a 00 10 00 50 5c 49 46 54 5c 44 43 4c 49 4e 3d 32 00 5f 00 90 ┆ CF A14,CLEAR _ P POFLI05 EQU * _ f P CF A14,RESET _ z P IFT DCLIN=2 _ ┆
0x9320…9370 00 16 00 50 5c 4c 44 5c 41 37 2c 4d 41 49 4e 2c 54 43 41 42 41 53 00 5f 00 a4 00 0e 00 50 5c 58 52 4b 5c 41 37 2c 31 20 00 5f 00 be 00 16 00 50 5c 53 54 5c 41 37 2c 4d 41 49 4e 2c 54 43 41 42 41 53 00 5f 00 d0 00 30 00 50 5c 43 46 5c 41 31 ┆ P LD A7,MAIN,TCABAS _ P XRK A7,1 _ P ST A7,MAIN,TCABAS _ 0 P CF A1┆
0x9370…93c0 34 2c 44 43 41 42 4f 52 5c 41 42 4f 52 54 20 52 45 51 55 45 53 54 20 4e 4f 54 20 43 55 52 52 45 4e 54 20 4d 46 20 00 5f 00 ea 00 08 00 50 5c 58 49 46 00 5f 01 1e 00 10 00 50 5c 49 46 54 5c 4f 46 4c 49 4e 3d 31 00 5f 01 2a 00 36 00 50 5c 4c ┆4,DCABOR ABORT REQUEST NOT CURRENT MF _ P XIF _ P IFT OFLIN=1 _ * 6 P L┆
0x93c0…940e 44 4b 5c 41 31 2c 30 5c 44 56 20 41 44 44 52 45 53 53 20 3a 3a 3d 20 30 4d 45 53 53 41 47 45 53 20 54 4f 20 56 44 55 20 49 47 4e 4f 52 45 44 20 00 5f 01 3e 00 1a 00 50 5c 4c 44 4b 4c 5c 41 38 2c 45 43 42 44 43 5c 4d 46 20 23 20 31 20 ┆DK A1,0 DV ADDRESS ::= 0MESSAGES TO VDU IGNORED _ > P LDKL A8,ECBDC MF # 1 ┆
0x940e…945e (96, 0, 400) 00 5f 01 78 00 26 00 50 5c 43 46 5c 41 31 34 2c 45 4d 55 4c 41 5c 54 52 41 4e 53 46 45 52 20 50 41 52 41 4d 45 54 45 52 53 20 00 60 00 08 00 10 00 50 5c 49 46 54 5c 44 43 4c 49 4e 3d 32 00 60 00 32 00 1a 00 50 5c 4c 44 4b 4c 5c 41 38 2c 45 ┆ _ x & P CF A14,EMULA TRANSFER PARAMETERS ` P IFT DCLIN=2 ` 2 P LDKL A8,E┆
0x945e…94ae 43 42 44 43 32 5c 4d 46 20 23 20 32 00 60 00 46 00 26 00 50 5c 43 46 5c 41 31 34 2c 45 4d 55 4c 41 5c 54 52 41 4e 53 46 45 52 20 50 41 52 41 4d 45 54 45 52 53 20 00 60 00 64 00 08 00 50 5c 58 49 46 00 60 00 8e 00 10 00 50 5c 49 46 54 5c 4f ┆CBDC2 MF # 2 ` F & P CF A14,EMULA TRANSFER PARAMETERS ` d P XIF ` P IFT O┆
0x94ae…94fe 46 4c 49 4e 3d 31 00 60 00 9a 00 12 00 50 5c 43 46 5c 41 31 34 2c 4c 4d 46 31 4f 46 00 60 00 ae 00 12 00 50 5c 43 46 5c 41 31 34 2c 4c 4d 46 32 4f 46 00 60 00 c4 00 12 00 50 5c 43 46 5c 41 31 34 2c 4c 53 41 56 4f 46 00 60 00 da 00 28 00 50 ┆FLIN=1 ` P CF A14,LMF1OF ` P CF A14,LMF2OF ` P CF A14,LSAVOF ` ( P┆
0x94fe…954e 5c 43 46 5c 41 31 34 2c 4c 49 4f 4c 4f 4e 5c 54 55 52 4e 20 4f 4e 20 4f 46 46 4c 49 4e 45 20 4c 41 4d 50 20 00 60 00 f0 00 26 00 50 5c 49 4d 5c 4f 46 46 46 4c 47 2c 54 43 41 42 41 53 5c 53 45 54 20 4f 46 46 4c 49 4e 45 20 46 4c 41 47 00 60 ┆ CF A14,LIOLON TURN ON OFFLINE LAMP ` & P IM OFFFLG,TCABAS SET OFFLINE FLAG `┆
0x954e…959e 01 1c 00 24 00 50 5c 41 44 4b 4c 5c 41 31 34 2c 34 5c 53 4b 49 50 20 4f 4e 45 20 53 54 41 43 4b 20 4c 45 56 45 4c 00 60 01 46 00 2a 00 50 5c 4c 44 5c 41 31 33 2c 32 2c 41 31 34 5c 52 45 4c 4f 41 44 20 52 45 47 49 53 54 45 52 53 20 41 31 32 ┆ $ P ADKL A14,4 SKIP ONE STACK LEVEL ` F * P LD A13,2,A14 RELOAD REGISTERS A12┆
0x959e…95ee (97, 0, 400) 2d 41 31 33 00 60 01 6e 00 12 00 50 5c 4c 44 5c 41 31 32 2c 34 2c 41 31 34 20 00 61 00 0c 00 24 00 50 5c 41 44 4b 4c 5c 41 31 34 2c 34 5c 55 50 44 41 54 45 20 53 54 41 43 4b 20 50 4f 49 4e 54 45 52 00 61 00 22 00 2a 00 50 5c 41 42 4c 5c 49 ┆-A13 ` n P LD A12,4,A14 a $ P ADKL A14,4 UPDATE STACK POINTER a " * P ABL I┆
0x95ee…963e 3a 52 54 31 5c 52 45 54 55 52 4e 20 54 4f 20 22 4f 46 46 4c 49 4e 45 22 20 50 52 4f 47 52 41 4d 00 61 00 4a 00 04 00 50 00 61 00 78 00 08 00 50 5c 58 49 46 00 61 00 80 00 10 00 50 5c 49 46 54 5c 44 43 4c 49 4e 3d 32 00 61 00 8c 00 06 00 50 ┆:RT1 RETURN TO "OFFLINE" PROGRAM a J P a x P XIF a P IFT DCLIN=2 a P┆
0x963e…968e 5c 20 00 61 00 a0 00 40 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 2a 20 00 61 00 aa 00 06 00 50 2a 20 ┆ a @ P*********************************************************** a P* ┆
0x968e…96de 00 61 00 ee 00 16 00 50 2a 5c 4d 41 49 4e 46 52 41 4d 45 20 43 48 41 4e 47 45 00 61 00 f8 00 48 00 50 2a 5c 20 20 54 48 45 20 53 57 49 54 43 48 20 27 4d 41 49 4e 27 20 49 53 20 43 48 41 4e 47 45 44 2c 20 41 4e 44 20 54 48 45 20 41 50 50 52 ┆ a P* MAINFRAME CHANGE a H P* THE SWITCH 'MAIN' IS CHANGED, AND THE APPR┆
0x96de…972e 4f 50 52 49 41 54 45 20 27 53 59 53 54 45 4d 27 20 4c 41 4d 50 20 00 61 01 12 00 1a 00 50 2a 5c 20 20 20 20 20 20 49 53 20 54 54 55 52 4e 45 44 20 4f 4e 20 00 61 01 5e 00 06 00 50 2a 20 00 61 01 7c 00 4a 00 50 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆OPRIATE 'SYSTEM' LAMP a P* IS TTURNED ON a ^ P* a | J P**********┆
0x972e…977e (98, 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 20 00 61 01 86 00 06 00 50 2a 20 00 62 00 44 00 10 00 50 4d 46 ┆*********************************************************** a P* b D PMF┆
0x977e…97ce 43 48 47 45 5c 45 51 55 5c 2a 00 62 00 4e 00 12 00 50 5c 43 46 5c 41 31 34 2c 43 4c 45 41 52 20 00 62 00 62 00 10 00 50 4d 46 43 48 30 35 5c 45 51 55 5c 2a 00 62 00 78 00 12 00 50 5c 43 46 5c 41 31 34 2c 52 45 53 45 54 20 00 62 00 8c 00 12 ┆CHGE EQU * b N P CF A14,CLEAR b b PMFCH05 EQU * b x P CF A14,RESET b ┆
0x97ce…981e 00 50 5c 43 46 5c 41 31 34 2c 4c 4d 46 31 4f 46 00 62 00 a2 00 12 00 50 5c 43 46 5c 41 31 34 2c 4c 4d 46 32 4f 46 00 62 00 b8 00 12 00 50 5c 43 46 5c 41 31 34 2c 4c 53 41 56 4f 46 00 62 00 ce 00 16 00 50 5c 4c 44 5c 41 31 2c 4d 41 49 4e 2c ┆ P CF A14,LMF1OF b P CF A14,LMF2OF b P CF A14,LSAVOF b P LD A1,MAIN,┆
0x981e…986e 54 43 41 42 41 53 00 62 00 e4 00 0e 00 50 5c 58 52 4b 5c 41 31 2c 31 20 00 62 00 fe 00 12 00 50 5c 52 46 28 4e 5a 29 5c 4d 46 43 48 31 30 00 62 01 10 00 12 00 50 5c 43 46 5c 41 31 34 2c 4c 4d 46 31 4f 4e 00 62 01 26 00 0e 00 50 5c 52 46 5c ┆TCABAS b P XRK A1,1 b P RF(NZ) MFCH10 b P CF A14,LMF1ON b & P RF ┆
0x986e…98be 4d 46 43 48 39 30 00 62 01 3c 00 10 00 50 4d 46 43 48 31 30 5c 45 51 55 5c 2a 00 62 01 4e 00 12 00 50 5c 43 46 5c 41 31 34 2c 4c 4d 46 32 4f 4e 00 62 01 62 00 10 00 50 4d 46 43 48 39 30 5c 45 51 55 5c 2a 00 62 01 78 00 16 00 50 5c 53 54 5c ┆MFCH90 b < PMFCH10 EQU * b N P CF A14,LMF2ON b b PMFCH90 EQU * b x P ST ┆
0x98be…990e (99, 0, 400) 41 31 2c 4d 41 49 4e 2c 54 43 41 42 41 53 00 62 01 8c 00 0c 00 50 5c 52 54 4e 5c 41 31 34 00 63 00 16 00 08 00 50 5c 58 49 46 00 63 00 26 00 06 00 50 5c 20 00 63 00 32 00 06 00 50 2a 20 00 63 00 3c 00 3c 00 50 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆A1,MAIN,TCABAS b P RTN A14 c P XIF c & P c 2 P* c < < P**********┆
0x990e…995e 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 63 00 46 00 06 00 50 2a 20 00 63 00 86 00 0c 00 50 2a 5c 43 4c 45 41 52 20 00 63 00 90 00 06 00 50 ┆********************************************** c F P* c P* CLEAR c P┆
0x995e…99ae 2a 20 00 63 00 a0 00 3a 00 50 2a 5c 50 52 4f 47 52 41 4d 20 41 54 54 45 4e 54 49 4f 4e 20 4b 45 59 20 57 48 49 43 48 20 43 41 55 53 45 53 20 41 4e 20 49 2f 4f 20 4f 50 45 52 41 54 49 4f 4e 20 00 63 00 aa 00 38 00 50 2a 5c 41 4e 44 20 47 45 ┆* c : P* PROGRAM ATTENTION KEY WHICH CAUSES AN I/O OPERATION c 8 P* AND GE┆
0x99ae…99fe 4e 45 52 41 54 45 20 41 4e 20 41 49 44 20 43 48 41 52 41 43 54 45 52 2e 20 54 48 45 20 45 4e 54 49 52 45 20 44 49 53 50 4c 41 59 20 00 63 00 e8 00 3a 00 50 2a 5c 42 55 46 46 45 52 20 49 53 20 43 4c 45 41 52 45 44 20 54 4f 20 4e 55 4c 4c 53 ┆NERATE AN AID CHARACTER. THE ENTIRE DISPLAY c : P* BUFFER IS CLEARED TO NULLS┆
0x99fe…9a4e 20 41 4e 44 20 43 55 52 53 4f 52 20 49 53 20 4c 4f 43 41 54 45 44 20 49 4e 20 00 63 01 24 00 0e 00 50 2a 5c 48 4f 4d 45 20 50 4f 53 00 63 01 62 00 06 00 50 2a 20 00 63 01 74 00 3c 00 50 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆ AND CURSOR IS LOCATED IN c $ P* HOME POS c b P* c t < P******************┆
0x9a4e…9a9e (100, 0, 398) 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 63 01 7e 00 06 00 50 2a 20 00 64 00 2e 00 10 00 50 43 4c 45 41 52 5c 45 51 55 5c 2a 20 00 64 00 38 00 20 00 50 5c 4c 44 4b ┆************************************** c ~ P* d . PCLEAR EQU * d 8 P LDK┆
0x9a9e…9aee 5c 41 32 2c 2f 32 44 5c 50 4f 53 20 46 4f 52 20 27 43 4c 45 41 52 27 20 00 64 00 4c 00 14 00 50 5c 4c 43 5c 41 32 2c 54 41 53 43 49 49 2c 41 32 00 64 00 70 00 2e 00 50 5c 43 46 5c 41 31 34 2c 4c 49 4e 48 4f 4e 5c 54 55 52 4e 20 4f 4e 20 22 ┆ A2,/2D POS FOR 'CLEAR' d L P LC A2,TASCII,A2 d p . P CF A14,LINHON TURN ON "┆
0x9aee…9b3e 4b 45 59 42 4f 41 52 44 20 49 4e 48 49 42 49 54 22 20 00 64 00 88 00 28 00 50 5c 43 46 5c 41 31 34 2c 54 52 50 41 5c 55 50 44 41 54 45 20 41 49 44 20 41 4e 44 20 54 52 41 4e 53 4d 49 54 00 64 00 ba 00 26 00 50 5c 43 46 5c 41 31 34 2c 45 52 ┆KEYBOARD INHIBIT" d ( P CF A14,TRPA UPDATE AID AND TRANSMIT d & P CF A14,ER┆
0x9b3e…9b8e 41 53 45 5c 45 52 41 53 45 20 45 4e 54 49 52 45 20 53 43 52 45 45 4e 20 00 64 00 e6 00 0c 00 50 5c 52 54 4e 5c 41 31 34 00 64 01 10 00 06 00 50 5c 20 00 64 01 20 00 06 00 50 2a 20 00 64 01 2a 00 40 00 50 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆ASE ERASE ENTIRE SCREEN d P RTN A14 d P d P* d * @ P************┆
0x9b8e…9bdc 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 64 01 34 00 06 00 50 2a 20 00 64 01 78 00 0c 00 50 2a 5c 45 52 45 4f 46 20 00 64 01 82 ┆************************************************ d 4 P* d x P* EREOF d ┆