|
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: 52470 (0xccf6)
Notes: pts_type(SC)
Names: »VDU.SC«
└─⟦a16d9b08d⟧ Bits:30009712 Philips computer tape "TOSS11"
└─⟦this⟧ »U3270.1/VDU.SC«
IDENT VDU REL 11.1 82-03-16 870150541110 =3, NONDISPLAY ERROR 82-02-12 =2, NATIONAL CHAR 81-04-08 =1, LINFLG AT UNFORM. 81-01-26 **************************************************************** * * * MODULE VDU * * MODULE HANDLING THE DISPLAY SCREEN AND * * BUFFER * * (EMULATION 3270 SNA/SDLC, BSC) * * * **************************************************************** EJECT *********************************************************** * * LIST OF ROUTINES * * DISMOD DISPLAY MODIFIED FIELDS * DISLIN DISPLAY LINE * SPACES MOVE SPACES INTO ECB BUFFER * INTCHK GET INTENSITY CHAR. * SETIND SET DISPLAY INDICATOR * INSMOD INSERT CHAR. * UPDCNT UPDATE COUNTERS * GETVDU GET CHAR. IN VDU BUFFER * STOVDU STORE CHAR IN VDU BUFFER * SCRINF GET SCREEN INFORMATION * STOINF STORE SCREEN INFORMATION * SOUND SOUND ALARM * WRAP CHECK IF WRAP AROUND * LINWRP CHECK IF LINE WRAP * LINE UPDATE LINE FLAG * LINATT UPDATE LINFLG AT ATTRIBUTE CHANGE * NLROUT NEW LINE ROUTINE * ERASE ERASE ENTIRE SCREEN * ERASUP ERASE ALL UNPROTECTED * ERASUA ERASE UNPROTECTED TO ADDRESS * POSUNP MOVE CURSOR TO NEXT UNPRO. POS * DISID DISPLAY HARDCOPY TASKID * DISSTA DISPLAY STATISTICS * MOVTXT MOVE TEXT * CONASC CONVERT TO ASCII * ATMASF SEARCH ATTRIBUTE FORWARD * ATMASB SEARCH ATTRIBUTE BACKWARD * SNULL SEARCH FIRST NULL CHAR. * WCHAR DISPLAY CHAR. AND CURSOR * RFMDUP REPLACE FM OR DUP CHAR. IF ANY * DISCHA DISPLAY CHAR. * ***************************************************************** EJECT ******************************************************************** * * * ENTRY POINTS * * * ******************************************************************** ENTRY INSMOD INSERT CHARACTER ENTRY GETVDU GET CHAR. FROM VDU BUFFER ENTRY STOVDU STORE CHAR. IN VDU BUFFER ENTRY SCRINF GET SCREEN INFORMATION ENTRY STOINF SAVE SCREEN INFORMATION ENTRY POSUNP MOVE TO NEXT UNPROTECTED POS. ENTRY ATMASB SEARCH ATTRIBUTE BACKWARDS ENTRY ATMASF SEARCH ATTRIBUTE FOREWARD ENTRY DISCHA DISPLAY CHAR. ENTRY WCHAR DISPLAY CHAR. AND CURSOR ENTRY DISMOD DISPLAY MODIFIED FIELDS ENTRY DISID DISPLAY HARDCOPY TASKID ENTRY ERASUA ERASE UNPROTECTED TO ADDRESS ENTRY ERASE ERASE ENTIRE SCREEN ENTRY SOUND SOUND ALARM ON VDU ENTRY ERASUP ERASE ALL UNPROTECTED ENTRY WRAP CHECK IF WRAP AROUND ENTRY NLROUT NEW LINE ROUTINE ENTRY LINWRP CHECK LINE WRAP ENTRY LINE UPDATE LINE FLAG ENTRY LINATT UPADTE ENTRY DISSTA DISPLAY STATISTICS EJECT ******************************************************************** * * * EXTERNAL REFERENCES * * * ******************************************************************** EXTRN TAB TAB UNPROCTECTED FOREWARD (KEYB) EXTRN CRDOWN MOVE CURSOR UNPROTECTED NEXT LINE (KEYB) EXTRN RDHOME UNPROTECTED FIRST ON SCREEN (KEYB) EXTRN SAVE1 SAVE REGISTERS (PAD) EXTRN REST1 RESTORE REGISTERS (PAD) EXTRN CONNAT TRANSFORM OF NAT.CHAR =2 EJECT ********************************************************************* * * * CONDITIONAL ASSEMBLY PARAMETERS * * * ********************************************************************* X:I EQU 1 INSERT/DELETE HANDLING IN:DL EQU X:I X:O EQU 0 TEST INCLUDED IF:=1 TEST EQU X:O X:R EQU 0 . =2 TRANAT EQU X:R TRANSFORM OF NAT.CHAR =2 EJECT *************************************************************** * * * DECLARATIONS OF DATA AND EQUATES * * *************************************************************** * * EQUATES FOR ECB HANDLING * ECBBA EQU 2 BUFFER ADDRESS ECBRL EQU 4 REQUESTED LENGTH ECBEL EQU 6 EFFECTIVE LENGTH ECBRC EQU 8 RETURN CODE ECBCW EQU 10 CONTROL WORD * * SPECIAL CHARACTERS * NULL EQU 0 NULL CHAR. NEWLIN EQU /0A NEW LINE CHAR. FORMFD EQU /0C FORM FEED CHAR. ENDMES EQU /19 END MESSAGE CHAR. DUPCH EQU /1C DUPLICATE CHAR. FMCH EQU /1E FIELD MARK CHAR. * * TASK IDENTIFICATION CODE * VDUCOD EQU 'VV' VDU KB TASK * * INTERNAL STATUS * LINUPD EQU /0001 LINE UPDATED ATTREC EQU /0002 ATTRIBUTE RECEIVED * * VDU SCREEN SIZE * LLINE EQU 80 LINE LENGTH LBVDU EQU 1920 TOTAL SIZE IFT TEST=1 * * STAT. LAYOUT * NUMLIN EQU 13 NUMBER OF LINES YO DISPLAY STALIN EQU 5 STARTING LINE OF DISPLAY STAPOS EQU 5 STARTTING POS ON LINE TXTSIZ EQU 15 SIZE OF PERMANENT TEXT INDEX DATA /0102,/0405,/0608,/090A,/0C0E,/1D1E,/1F00 XIF EJECT * * RELATIVE ADDRESSES IN * TERMINAL WORKBLOCK * TCT01 EQU 0 TASK IDENTIFICATION BVDU EQU TCT01+2 SCREEN BUFFER LINFLG EQU BVDU+1920 INTERNAL LINE FLAGS PCURS EQU LINFLG+24 CURSOR ADDRESS ATTRIB EQU PCURS+2 LAST ATTRIBUTE CHAR CURATT EQU ATTRIB+2 WCC EQU CURATT+2 WCC/CCC CHARACTER INTATT EQU WCC+8 INTENSITY ATTRIBUTE REGI EQU INTATT+32 WORK REGISTER ECBVDU EQU REGI+40 * * RELATIVE ADDRESSES IN * COMMON WORKBLOCK * IDTEXT EQU 2 IDENT TEXT LAYOUT IFT TEST=1 STATXT EQU IDTEXT+22 STATISTIC TEXT LAYOUT XIF EJECT ********************************************************* * * * DISMOD DISPLAY MODIFIED FIELDS * * * ********************************************************* * REGISTERS * * A2= CHAR. * A3= ADDRESS IN VDU-BUFFER * A4= REL. CURSOR POS. * A5= REL. ATTRIBUTE POS. * A6= ADDRESS IN ECB * A7= INDEX IN ECB * A8= VDU ECB * A9= INTENSITY COUNTER * A10= INDICATOR * A11= CREDIT WORK AREA * A13= RESERVED * ***************************************************** DISMOD EQU * LD A8,ECBVDU,A11 LDKL A1,/101 LINE 1 POS. 1 ST A1,ECBCW,A8 SUR A9,A9 RESET INTENSITY COUNTER SUR A10,A10 . =3 LDKL A3,BVDU ADR A3,A11 CF A14,SCRINF LDK A4,0 FIRST SCREEN POS./=3 CF A14,SPACES SPACES IN ECB BUFFER ST A5,REGI,A11 LDKL A1,LBVDU+1 LDR A5,A11 CW A1,REGI,A11 RF(NE) DIS100 NO LDK A2,0 LOW INTENSITY ST A2,INTATT,A11 DIS100 EQU * LDR A10,A10 RF(NZ) DIS900 CF A14,INTCHK CHECK INTENSITY CHAR. LDR A1,A10 SUR A10,A10 LDR A1,A1 RF(N) DIS800 NONDISPLAY RF(NZ) DIS400 DISPLAY LINE LD A2,ECBCW,A8 NO MODIFICATION CWK A2,/1901 ALLDISPLAYED RB(NE) DIS100 NO RF DIS900 DIS400 EQU * CWK A7,LLINE LINE COMPLETED? RF(L) DIS500 NO CF A14,DISLIN DISPLAY LINE RB DIS100 DIS500 EQU * LCR A2,A3 GET CHAR. IN VDU-BUFFER CF A14,SETIND SET SPACE INDICATOR CCK A2,/8000 ATTRIBUTE? RF(NL) DIS700 YES CF A14,UPDCNT UPDATE COUNTERS CWK A2,NULL NULL CHAR.? RB(E) DIS400 YES CWK A2,NEWLIN NEW LINE CHAR.? RB(E) DIS400 YES CWK A2,ENDMES END MESSAGE CHAR.? RB(E) DIS400 YES CWK A2,FORMFD FORM FEED CHAR.? RB(E) DIS400 YES CF A14,RFMDUP REPLACE DUP AND FM CHAR. IFF TRANAT=0 . =2 LC A2,CONNAT,A2 TRANSFORM NAT.CHAR =2 XIF . =2 SC A2,-1,A6 STORE CHAR. IN ECB BUFFER RB DIS400 DIS700 EQU * ST A2,INTATT,A11 LDR A1,A2 ANK A1,8 LOW INTENSITY? RF(Z) DIS725 YES ANK A2,4 HIGH INTENSITY? RF(Z) DIS715 YES CF A14,UPDCNT UPDATE COUNTERS RF DIS800 NONDISPLAY DIS715 EQU * LDK A2,/1F HIGH RF DIS750 DIS725 EQU * LDK A2,/1E LOW DIS750 EQU * SCR A2,A6 SAVE CHAR. IN ECB BUFFER ADKL A9,1 CF A14,UPDCNT UPDATE COUNTERS ADK A6,1 RB DIS400 DIS800 EQU * CWK A7,LLINE LINE COMPLETED? RF(L) DIS850 NO CF A14,DISLIN DISPLAY LINE RB DIS100 DIS850 EQU * LCR A2,A3 GET CHAR. IN VDU-BUFFER CCK A2,/8000 ATTRIBUTE? RB(NL) DIS700 YES CF A14,UPDCNT UPDATE COUNTERS RB DIS800 DIS900 EQU * CF A14,SCRINF GET SCREEN INFORMATION LDK A1,2 REQ. LENGTH CF A14,DISCHA SET CURSOR RTN A14 EJECT *********************************************************** * * * DISLIN DISPLAY LINE ON VDU * * * *********************************************************** * REGISTERS * * A3= RESERVED * A4= RESERVED * A5= RESERVED * A6= RESERVED * A8= ECB VDU * A9= INTENSITY COUNTER * A10= INDICATOR * A11= RESERVED * A13= RESERVED * *********************************************************** DISLIN EQU * LDK A7,2 REQ. LENGTH LDR A1,A10 ANKL A1,1 ONLY SPACES? RF(Z) DISL10 YES LDKL A7,LLINE+2 REQ. LENGTH ADR A7,A9 ADD NUMBER OF INTENSITY CHAR. DISL10 EQU * ST A7,ECBRL,A8 LDKL A7,/8B SET CURSOR AND WRITE LKM DATA 1 LD A1,ECBCW,A8 GET CURSOR POS. ANK A1,/FF SUK A1,81 LAST POS. ON LINE DISPLAYED? RF(Z) DISL90 YES LD A6,ECBBA,A8 LDK A2,/2B SC A2,1,A6 LDKL A2,/1420 SC A2,3,A6 SRL A2,8 SC A2,2,A6 LDK A2,84 ST A2,ECBRL,A8 LDK A7,/86 WRITE LKM DATA 1 DISL90 EQU * ADK A5,1 LDK A2,1 FIRST POS. ON LINE SC A2,ECBCW+1,A8 LDKL A2,/100 MOVE ONE LINE DOWN ADS A2,ECBCW,A8 SUR A10,A10 LD A2,ECBCW,A8 CWK A2,/1901 END OF SCREEN RF(NE) DISL95 NO LDKL A10,1 DISL95 EQU * CF A14,SPACES MOVE SPACES TO ECB BUFFER RTN A14 EJECT ************************************************************ * * * SPACES MOVE SPACES TO ECB BUFFER * * * ************************************************************ * REGISTERS * * A2= CHAR. * A3= RESERVED * A4= RESERVED * A5= RESERVED * A6= ADDRESS IN ECB BUFFER * A7= INDEX IN ECB * A8= VDU ECB * A9= INTENSITY COUNTER * A10= INDICATOR * A11= RESERVED * A13= RESERVED * ************************************************************ SPACES EQU * LD A6,ECBBA,A8 GET BUFFER ADDRESS ADK A6,2 LDK A7,LLINE LINE LENGTH ADR A7,A7 BUFFER LENGTH LDKL A2,' ' SPACES SPAC10 EQU * SCR A2,A6 SC A2,1,A6 ADK A6,2 SUK A7,2 WHOLE BUFFER SPACED? RB(P) SPAC10 NO LDK A2,0 CHAR. LD A6,ECBBA,A8 BUFFER ADDRESS ADK A6,2 LDK A7,0 RESET CHAR. COUNTER RTN A14 EJECT ********************************************************* * * * INTCHK GET INTENSITY CHAR. * * * ********************************************************* * REGISTERS * * A2= CHAR. * A3= RESERVED * A4= RESERVED * A5= RESERVED * A6= ADDRESS IN ECB BUFFER * A7= RESERVED * A8= RESERVED * A9= INTENSITY COUNTER * A10= INDICATOR * A11= CREDIT WORK AREA * A13= RESERVED * ************************************************ INTCHK EQU * SUR A9,A9 RESET INTENSITY COUNTER LC A2,LINFLG,A5 GET LINE FLAG ANK A2,1 MODIFIED? RF(NZ) INT100 YES ADK A3,LLINE NEXT LINE ADK A4,LLINE ADK A5,1 LDK A2,1 SC A2,ECBCW+1,A8 LDKL A2,/100 ADS A2,ECBCW,A8 LDKL A10,0 RF INT900 INT100 EQU * LC A2,LINFLG,A5 ANK A2,2 SC A2,LINFLG,A5 LDKL A10,1 LD A2,REGI,A11 CWK A2,LBVDU+1 UNFORMATTED SCREEN? RF(E) INT200 YES CF A14,SAVE1 LDR A1,A4 CF A14,SCRINF LDR A2,A5 LDR A3,A6 CF A14,ATMASB GET CURRENT ATTRIBUTE ST A6,INTATT,A11 LDR A5,A2 LDR A6,A3 CF A14,STOINF CF A14,REST1 LDK A7,0 INT200 EQU * LD A2,INTATT,A11 LDR A1,A2 ANK A1,8 LOW INTENSITY? RF(Z) INT300 YES ANK A2,4 HIGH INTENSITY? RF(NZ) INT800 NO, NONDISPLAY LDK A2,/1F HIGH RF INT400 INT300 EQU * LDK A2,/1E LOW INT400 EQU * SCR A2,A6 SAVE IN ECB BUFFER ADK A6,1 ADKL A9,1 RF INT900 INT800 EQU * LDKL A10,/8000 INT900 EQU * RTN A14 EJECT ************************************************ * * * SETIND SET DISPLAY INDICATOR * * * ************************************************ * REGISTERS * * A2= CHAR * A3= RESERVED * A4= RESERVED * A5= RESERVED * A6= RESERVED * A7= RESERVED * A8= RESERVED * A9= RESERVED * A10= DISPLAY INDICATOR * A11= RESERVED * A13= RESERVED * ********************************** SETIND EQU * CWK A2,NULL NULL CHAR? RF(E) SETI90 YES ORKL A10,1 INDICATE NOT ONLY SPACES SETI90 EQU * RTN A14 EJECT **************************************************************** * * * INSMOD INSERT CHARACTER * * * **************************************************************** * REGISTERS * * A1= AT RETURN 0=NULL IN POS., 1=NORMAL INSERT, 2=NOT ALLOWED * A2= RESERVED * A4= REL. CURSOR POS. * A5= REL. ATTRIBUTE POS. * A6= ATTRIBUTE CHAR. * A11= CREDIT WORK AREA * A13= RESERVED * *************************************************************** INSMOD EQU * IFT IN:DL=1 LDR A1,A4 CF A14,GETVDU GET CHAR. IN VDU BUFFER CCK A7,NULL NULL CHAR.? RF(NE) INS100 NO LDK A1,0 INDICATE NULL IN CURSOR POS. RF INS900 INS100 EQU * LDR A3,A4 CWK A5,LBVDU+1 UNFORMATTED SCREEN? RF(E) INS200 YES LDR A8,A6 SAVE OLD LDR A9,A5 SAVE OLD CF A14,ATMASF SEARCH ATTRIBUTE FORWARD LDR A3,A5 ST A8,ATTRIB,A11 RESTORE ST A9,CURATT,A11 RESTORE LDR A6,A8 LDR A5,A9 INS200 EQU * CF A14,SNULL SEARCH FIRST NULL ANK A1,2 NULL FOUND? RF(Z) INS300 YES LDK A1,2 INDICATE ERROR RF INS900 INS300 EQU * CWK A5,LBVDU+1 UNFORMATTED SCREEN? RF(E) INS350 YES ORK A6,1 SET MDT-BIT ON IN ATTRIBUTE ST A6,ATTRIB,A11 LDR A1,A5 LDR A7,A6 CF A14,STOVDU SAVE NEW ATTRIBUTE IN VDU-BUFFER INS350 EQU * LDR A1,A3 ST A4,REGI,A11 LDR A4,A1 LDK A5,LLINE LDR A6,A11 SUR A10,A10 LDR A9,A1 CF A14,LINE UPDATE LINE FLAG LDR A1,A9 INS400 EQU * CWK A1,0 CHAR TO MOVE IN LAST SCREEN POS? RF(E) INS500 YES SUK A1,1 CF A14,GETVDU GET CHAR IN VDU BUFFER ADK A1,1 LDR A9,A1 LDK A5,LLINE LDR A6,A11 CF A14,LINE LDR A1,A9 LC A9,LINFLG,A6 ORKL A9,1 SC A9,LINFLG,A6 CF A14,STOVDU STORE CHAR IN VDU BUFFER SUK A1,1 SUK A4,1 INS450 EQU * CW A1,REGI,A11 ALL SHIFTED? RF(E) INS600 YES RB INS400 INS500 EQU * LDKL A1,LBVDU-1 GET LAST CHAR CF A14,GETVDU GET CHAR IN VDU BUFFER LDK A1,0 LDK A4,0 LDR A9,A1 LDK A5,LLINE LDR A6,A11 CF A14,LINE LDR A1,A9 LC A9,LINFLG,A6 ORKL A9,1 SC A9,LINFLG,A6 CF A14,STOVDU STORE CHAR IN VDU BUFFER LDKL A1,LBVDU-1 LAST SCREEN POS. LDKL A4,LBVDU-1 RB INS450 INS600 EQU * LDR A7,A2 GET KEY-CHAR CF A14,STOVDU STORE CHAR IN VDU BUFFER LDK A5,LLINE LDR A6,A11 CF A14,LINE LC A9,LINFLG,A6 ORKL A9,1 SC A9,LINFLG,A6 IM PCURS,A11 MOVE CURSOR LD A4,REGI,A11 ADK A4,1 CWK A4,LBVDU-1 WRAP AROUND? RF(NG) INS700 NO LDK A4,0 FIRST POS. ON SCREEN CM PCURS,A11 INS700 EQU * CF A14,DISMOD DISPLAY MODIFIED FIELD LDK A1,1 INDICATE NORMAL INSERT INS900 EQU * RTN A14 XIF EJECT ********************************************************* * * * UPDCNT UPDATE COUNTERS * * * ********************************************************* * REGISTERS * * A3= ADDRESS IN VDU BUFFER * A4= REL CURSOR POS * A5= RESERVED * A6= ADDRESS IN ECB * A7= INDEX IN ECB * A8= RESERVED * A9= RESERVED * A10= RESERVED * A11= RESERVED * A13= RESERVED * ********************************************************* UPDCNT EQU * ADK A3,1 ADK A4,1 ADK A6,1 ADK A7,1 RTN A14 EJECT **************************************************************** * * * GETVDU GET CHAR. IN VDU BUFFER * * * **************************************************************** * REGISTERS * * A1= REL. POS IN VDU BUFFER * A2= RESERVED * A3= RESERVED * A4= RESERVED * A5= RESERVED * A6= RESERVED * A7= CHAR. FROM VDU BUFFER * A8= RESERVED * A9= RESERVED * A10= RESERVED * A11= CREDIT WORK AREA * A13= RESERVED * ******************************************************** GETVDU EQU * LDKL A7,BVDU ADR A7,A11 ADR A7,A1 LCR A7,A7 ANK A7,/FF RTN A14 EJECT ************************************************************** * * * STOVDU STORE CHAR. IN VDU BUFFER * * * ************************************************************** * REGISTERS * * A1= REL. POS. IN VDU BUFFER * A2= RESERVED * A3= RESERVED * A4= RESERVED * A5= RESERVED * A6= RESERVED * A7= CHAR. TO STORE IN VDU BUFFER * A9= RESERVED * A10= RESERVED * A11= CREDIT WORK AREA * A13= RESERVED * ******************************************************** STOVDU EQU * LDKL A8,BVDU ADR A8,A11 ADR A8,A1 SCR A7,A8 RTN A14 EJECT ******************************************************** * * * SCRINF GET SCREEN INFORMATION * * * ******************************************************** * REGISTERS * * A2= RESERVED * A4= REL. CURSOR POS. * A5= REL. ATTRIBUTE POS. * A6= ATTRIBUTE CHAR. * A11= CREDIT WORK AREA * A13= RESERVED * ******************************************************* SCRINF EQU * LD A4,PCURS,A11 GET CURSOR POS. LD A5,CURATT,A11 GET ATTRIBUTE POS. LD A6,ATTRIB,A11 GET ATTRIBUTE CHAR. RTN A14 EJECT ******************************************************** * * * STOINF STORE SCREEN INFORMATION * * * ******************************************************** * REGISTERS * * A4= REL. CURSOR POS. * A5= REL. ATTRIBUTE POS. * A6= ATTRIBUTE CHAR. * A11= CREDIT WORK AREA * A13= RESERVED * ******************************************************** STOINF EQU * ST A4,PCURS,A11 ST A5,CURATT,A11 ST A6,ATTRIB,A11 RTN A14 EJECT ******************************************************* * * * SOUND SOUND ALARM ON VDU * * * ******************************************************* * REGISTERS * * A1= RETURN CODE * A8= ECBVDU * A11= CREDIT WORK AREA * A13= RESERVED * ******************************************************* SOUND EQU * LD A8,ECBVDU,A11 LD A1,ECBBA,A8 LDK A2,/2B CONTROL CHAR. SC A2,1,A1 LDK A2,/07 BELL CHAR. SC A2,2,A1 LDK A2,3 REQ. LENGTH ST A2,ECBRL,A8 LDK A7,/86 LKM DATA 1 LD A1,ECBRC,A8 GET RETURN CODE RTN A14 EJECT ***************************************************** * * * WRAP CHECK IF WRAP AROUND * * * ***************************************************** * REGISTERS * * A2= RESERVED * A3= ADDRESS IN VDU BUFFER * A4= REL. CURSOR POS. * A5= RESERVED * A6= RESERVED * A7= RESERVED * A8= RESERVED * A9= RESERVED * A10= RESERVED * A11= CREDIT WORK AREA * A13= RESERVED * ***************************************************** WRAP EQU * CWK A4,LBVDU WRAP AROUND RF(L) WRAP90 NO LDK A4,0 FIRST SCREEN POS. LDKL A3,BVDU ADR A3,A11 WRAP90 EQU * RTN A14 EJECT ************************************************************ * * * LINWRP CHECK LINE WRAP * * * ************************************************************ * REGISTERS * * A3= RESERVED * A4= REL CURSOR POS * A5= LAST IN ROW REL POS * A6= RESERVED * A8= RESERVED * A9= RESERVED * A10= RESERVED * A11= RESERVED * A13= RESERVED * *********************************************************** LINWRP EQU * CWR A5,A4 END OF LINE? RF(G) LINW10 NO CF A14,LINE UPDATE LINE FLAG LINW10 EQU * RTN A14 EJECT ************************************************************ * * * LINE UPDATE LINE FLAG * * * ************************************************************* * REGISTERS * * A3= ADDRESS IN VDU BUFFER * A4= REL CURSOR POS * A5= LAST IN ROW REL POS * A6= INTERNAL LINE FLAG ADDRESS * A8= RESERVED * A9= RESERVED * A10= RESERFED * A11= CREDIT WORK AREA * A13= RESERVED * *********************************************************** LINE EQU * CWR A5,A4 THIS LINE? RF(G) LIN400 YES,MAYBE LDR A1,A10 ANK A1,ATTREC ATTRIBUTE RECEIVED? RF(Z) LIN100 NO LC A1,LINFLG,A6 ORK A1,2 SC A1,LINFLG,A6 LIN100 EQU * SUR A6,A11 ADK A6,1 UPDATE ADDRESS CWK A6,23 WRAP SCREEN? RF(G) LIN300 YES ADK A5,LLINE ADR A6,A11 RB LINE LIN300 EQU * LDK A4,0 FIRST SCREEN POS. LDKL A3,BVDU ADR A3,A11 LDR A6,A11 LDK A5,LLINE LIN400 EQU * SUR A5,A4 CWK A5,81 RF(L) LIN500 THIS LINE LDK A5,LLINE LDR A6,A11 RB LINE LIN500 EQU * ADR A5,A4 RESTORE RTN A14 EJECT ************************************************************* * * * LINATT UPADTE LINFLG AT ATTRIBUTE CHANGE * * * ************************************************************* * REGISTERS * * A3= ADDRESS IN VDU BUFFER * A4= REL CURSOR POS * A5= LAST IN ROW REL POS * A6= INTERNAL LINE FLAG ADDRESS * A8= RESERVED * A9= RESERVED * A10= RESERVED * A11= CREDIT WORK AREA * A13= RESERVED * ************************************************************** LINATT EQU * CF A14,SAVE1 SUR A6,A11 LDK A2,0 LDR A10,A4 . =1 LINA10 EQU * ADK A4,1 ADK A3,1 CWR A5,A4 END OF LINE? RF(G) LINA30 NO ADR A6,A11 LC A1,LINFLG,A6 ORK A1,1 SC A1,LINFLG,A6 SUR A6,A11 ADK A6,1 CWK A6,23 WRAP AROUND? RF(G) LINA20 YES ADK A5,LLINE RF LINA30 LINA20 EQU * LDK A6,0 LDK A4,0 LDKL A3,BVDU ADR A3,A11 LDK A5,LLINE LINA30 EQU * CWR A4,A10 ALL CHECKED? =1 RF(E) LINA40 YES =1 LCR A2,A3 CWK A2,/80 ATTRIBUTE RB(NG) LINA10 YES LINA40 EQU * . =1 CF A14,REST1 RTN A14 EJECT *********************************************************** * * * NLROUT NEW LINE ROUTINE * * * *********************************************************** * REGISTERS * * A3= ADDRES IN VDU BUFFER * A4= REL CURSOR POS * A5= RESERVED * A6= RESERVED * A8= RESERVED * A9= RESERVED * A10= RESERVED * A11= RESERVED * A13= RESERVED * *********************************************************** NLROUT EQU * LDR A1,A4 SAVE CURSOR POS. CF A14,CRDOWN MOVE CURSOR ON E LINE DOWN LDK A7,0 NLR100 EQU * SUK A4,LLINE COMPUTE LEFTMOST POS. RF(N) NLR200 ADK A7,LLINE RB NLR100 NLR200 EQU * LDR A4,A1 LDK A2,NULL NLR300 EQU * CWR A7,A4 ALL NULLED? RF(E) NLR900 YES SCR A2,A3 NULL IN VDU BUFFER LC A1,LINFLG,A6 ORKL A1,1 SC A1,LINFLG,A6 ADK A3,1 ADK A4,1 CF A14,LINWRP RB NLR300 NLR900 EQU * RTN A14 EJECT ******************************************************************** * * * ERASE ERASE ENTIRE SCREEN * * * ******************************************************************* * REGISTERS * * A2= CHAR. * A3= ADDRESS IN VDU-BUFFER * A4= REL. CURSOR ADDRESS * A5= REL ATTRIBUTE POS * A6= ATTRIBUTE CHAR * A11= CREDIT WORK AREA * A13= RESERVED * ********************************************************* ERASE EQU * LDK A4,0 FIRST SCREEN POS. LDKL A3,BVDU ADR A3,A11 LDK A2,NULL STORE NULL CHAR. ERAS10 EQU * CWK A4,LBVDU+24 WHOLE SCREEN NULLED? RF(NL) ERAS20 YES SCR A2,A3 STORE CHAR. ADK A3,1 ADK A4,1 RB ERAS10 ERAS20 EQU * LDK A4,0 FIRST SCREEN POS. LDKL A5,LBVDU+1 UNFORMATTED SCREEN LDK A6,0 CF A14,STOINF SAVE SCREEN INFORMATION LC A1,TCT01,A11 CCK A1,VDUCOD PRINTER UNPACK? RF(NE) ERAS30 YES LD A8,ECBVDU,A11 LDK A2,'1' ERASE CHAR. LD A1,ECBBA,A8 SC A2,1,A1 LDK A1,2 REQ. LENGTH ST A1,ECBRL,A8 LDK A7,/86 WRITE LKM DATA 1 ERAS30 EQU * RTN A14 EJECT ********************************************************* * * * ERASUP ERASE ALL UNPROTECTED * * * ********************************************************* * REGISTERS * * A2= CHAR. * A3= ADDRESS IN VDU-BUFFER * A4= REL. CURSOR POS. * A5= REL. ATTRIBUTE POS. * A6= INTERNAL LINE FLAG ADDRESS * A11= CREDIT WORK AREA * A13= RESERVED * ********************************************************* ERASUP EQU * LDK A1,2 RESTORE KEYBOARD-BIT ST A1,WCC,A11 LDK A4,0 FIRST SCREEN POS. LDKL A3,BVDU ADR A3,A11 LDK A7,NULL STORE NULL CHAR. CWK A5,LBVDU+1 UNFORMATTED SCREEN? RF(NE) ERUP10 NO CF A14,ERASE RF ERUP90 ERUP10 EQU * LCR A2,A3 GET CHAR. CCK A2,/8000 ATTRIBUTE? RF(NL) ERUP20 YES ADK A3,1 ADK A4,1 RB ERUP10 ERUP20 EQU * LDR A9,A4 FIRST ATTRIBUTE POS. LDK A5,LLINE LDR A6,A11 SUR A10,A10 CF A14,LINE RF ERUP47 ERUP30 EQU * ADK A3,1 ADK A4,1 CF A14,LINWRP CHECK IF LINWRP AROUND LCR A2,A3 GET CHAR. CCK A2,/8000 ATTRIBUTE? RB(L) ERUP30 NO ERUP45 EQU * CWR A9,A4 ALL SCANNED? RF(E) ERUP70 YES ERUP47 EQU * LDR A1,A2 ANK A1,/20 PROTECTED? RB(NZ) ERUP30 YES ANK A2,/FE RESET MDT-BIT SCR A2,A3 SAVE ATTRIBUTE LC A1,LINFLG,A6 ORK A1,1 SC A1,LINFLG,A6 ADK A3,1 ADK A4,1 ERUP50 EQU * CF A14,LINWRP CHECK IF LINWRP AROUND LCR A2,A3 GET CHAR. CCK A2,/8000 ATTRIBUTE? RB(NL) ERUP45 YES SCR A7,A3 STORE NULL CHAR. IN VDU BUFFER LC A1,LINFLG,A6 ORK A1,1 SC A1,LINFLG,A6 ADK A3,1 ADK A4,1 RB ERUP50 ERUP70 EQU * CF A14,RDHOME TAB. UNPROTECTED FIRST ON SCREEN ERUP90 EQU * RTN A14 EJECT **************************************************************** * * ERASUA ERASE UNPROTECTED TO ADDRESS * * * **************************************************************** * REGISTERS * * A1= STOP ADDRESS * A2= CHAR. * A3= ADDRESS IN VDU-BUFFER * A4= REL. CURSOR POS. * A5= REL ATTRIBUTE POS. * A6= ATTRIBUTE CHAR. * A7= NULL CHAR. * A11= CREDIT WORK AREA * A13= RESERVED * **************************************************************** ERASUA EQU * LDK A7,NULL STORE NULL CHAR. LDKL A3,BVDU ADR A3,A11 ADR A3,A4 BUFFER POS. CWK A5,LBVDU+1 UNFORMATTED SCREEN? RF(E) ERUA47 YES LDR A2,A6 GET CURRENT ATTRIBUTE CWR A5,A4 STANDING ON ATTRIBUTE? RF(NE) ERUA10 NO ADK A3,1 ADK A4,1 CWR A1,A4 ALL NULLED? RF(E) ERUA70 YES CF A14,WRAP CHECK IF WRAP AROUND ERUA10 EQU * ANK A2,/20 PROTECTED FIELD? RF(Z) ERUA47 NO ERUA30 EQU * CF A14,WRAP CHECK IF WRAP AROUND LCR A2,A3 GET CHAR. ADK A3,1 ADK A4,1 CWR A1,A4 ALL NULLED? RF(E) ERUA70 YES CCK A2,/8000 ATTRIBUTE? RB(L) ERUA30 NO ERUA45 EQU * LDR A8,A2 ANKL A8,/20 PROTECTED? RB(NZ) ERUA30 YES ERUA47 EQU * LDR A6,A11 LDK A5,LLINE LDR A8,A1 CF A14,LINE LDR A1,A8 RF ERUA60 ERUA50 EQU * LDR A8,A1 CF A14,LINWRP LDR A1,A8 CWR A1,A4 ALL NULLED? RF(E) ERUA70 YES ERUA60 EQU * LCR A2,A3 GET CHAR. CCK A2,/8000 ATTRIBUTE? RB(NL) ERUA45 YES SCR A7,A3 STORE NULL CHAR, IN VDU-BUFFER LC A8,LINFLG,A6 ORKL A8,1 SC A8,LINFLG,A6 ADK A3,1 ADK A4,1 RB ERUA50 ERUA70 EQU * RTN A14 EJECT ********************************************************** * * * POSUNP MOVE CURSOR TO NEXT UNPR. POS. * * * ********************************************************** * REGISTERS * * A2= RESERVED * A4= REL. CURSOR POS. * A5= REL. ATTRIBUTE POS. * A6= ATTRIBUTE CHAR * A11= CREDIT WORK AREA * A13= RESERVED * *********************************************************** POSUNP EQU * CWK A4,LBVDU-1 WRAP AROUND? RF(NG) POSU20 NO LDK A4,0 FIRST POS. ON SCREEN ST A4,PCURS,A11 POSU20 EQU * LDR A1,A4 CF A14,GETVDU GET CHAR IN VDU BUFFER CCK A7,/8000 ATTRIBUTE? RF(L) POSU30 NO LDR A6,A7 ANK A7,/30 CWK A7,/30 PROTECTED AND NUMERIC? RF(E) POSU25 YES LDR A5,A1 IM PCURS,A11 MOVE CURSOR ADK A4,1 CWK A4,LBVDU-1 WRAP AROUND? RF(NG) POSU23 NO LDK A4,0 POSU23 EQU * CF A14,STOINF SAVE SCREEN INFORMATION LDK A1,2 REQ. LENGTH CF A14,DISCHA SET CURSOR RF POSU30 POSU25 EQU * CF A14,TAB TAB NEXT UNPROTECTED FIELD POSU30 EQU * LD A8,ECBVDU,A11 LD A1,ECBCW,A8 ANK A1,/FF LINE POS. SUK A1,81 LAST POS. ON LINE? RF(NZ) POSU90 NO LDK A1,2 REQ. LENGTH CF A14,DISCHA SET CURSOR POSU90 EQU * RTN A14 EJECT ************************************************************ * * * DISID DISPLAY HARDCOPY TASKID * * * ************************************************************ * REGISTERS * * ************************************************************ DISID EQU * LD A8,ECBVDU,A11 CF A14,SPACES SPACE IN ECB BUFFER LD A3,6,A13 GET COMMON BLOCK BASE LDR A1,A5 SAVE TASK ID LDK A5,IDTEXT ADR A5,A3 POINT ON IDBUFFER ADK A6,46 LDK A3,6 ANK A4,1 PRINTER OPERABLE? RF(Z) DISI10 YES ADK A3,16 DISI10 EQU * SUK A3,2 MOVE INTO ECBBUFFER RF(N) DISI20 COMPLETED LDR* A2,A5 STR A2,A6 ADK A5,2 ADK A6,2 RB DISI10 DISI20 EQU * LD A6,ECBBA,A8 ST A1,ECBBA+52,A6 SAVE TASK ID IN BUFFER LC A2,X'1F' HIGH INTENSITY CHAR. SC A2,ECBBA+45,A6 LDKL A10,1 INDICATE NOT ONLY SPACES LDKL A9,1 1 INTENSITY CHAR. LDKL A2,X'1801' DISPLAY ON LAST ROW ST A2,ECBCW,A8 CF A14,DISLIN DISPLAY IDENT TEXT RTN A14 EJECT ************************************************************** * * DISSTA DISPLAY STATISTICS * *************************************************************** * REGISTERS * * *************************************************************** DISSTA EQU * IFT TEST=1 LD A8,ECBVDU,A11 LDK A1,STALIN WHERE TO START SLL A1,8 LDK A2,1 ORR A2,A1 FIRST POS. ON THAT LINE ST A2,ECBCW,A8 CF A14,SPACES CLEAN THE BUFFER LDK A5,0 RESET INDEX LD A3,6,A13 ADK A3,STATXT POINT TO TEXT DISS10 EQU * LDK A2,/1F HIGH INTENSITY SCR A2,A6 ADK A6,1 LDKL A9,1 LDK A1,TXTSIZ GET SIZE OF TEXT PER LINE CF A14,MOVTXT MOVE IT IN TO BUFFER ADK A6,5+STAPOS MAKE SOME ROOM LC A1,INDEX,A5 SLL A1,1 ADR A1,A12 POINT OUT STAT VALUE LCR A2,A1 CF A14,CONASC MAKE IT VISABLE LDR A4,A2 LCR A2,A1 SRL A2,4 CF A14,CONASC SLL A2,8 ORR A2,A4 SC A2,+1,A6 SRL A2,8 SCR A2,A6 ADK A6,2 LC A2,+1,A1 CF A14,CONASC AS ABOVE LDR A4,A2 LC A2,+1,A1 SRL A2,4 CF A14,CONASC SLL A2,8 ORR A2,A4 SC A2,+1,A6 SRL A2,8 SCR A2,A6 LDKL A10,1 NOT ONLY SPACES CF A14,DISLIN DISPLAY STAT. CWK A5,NUMLIN LIMIT REACHED? RB(NE) DISS10 NO XIF RTN A14 IFT TEST=1 EJECT *********************************************************** * * MOVTXT MOVE TEXT * *********************************************************** * REGISTERS * * ********************************************************** MOVTXT EQU * LCR A2,A3 ADK A3,1 SC A2,STAPOS,A6 ADK A6,1 SUK A1,1 RB(NZ) MOVTXT RTN A14 EJECT ********************************************************** * * CONASC CONVERT TO ASCII * ******************************************************** * REGISTERS * * ******************************************************** CONASC EQU * ANK A2,/0F CCK A2,/0909 RF(G) CONA10 ORK A2,/30 RF CONA90 CONA10 EQU * ADK A2,/37 CONA90 EQU * RTN A14 XIF EJECT ********************************************************* * * * ATMASF SEARCH ATTRIBUTE FORWARD * * * ********************************************************* * REGISTERS * * A1= AT ENTRY START SEARCH ADDRESS * A2= RESERVED * A3= RESERVED * A4= REL. CURSOR POS. * A5= REL. ATTRIBUTE POS. * A6= ATTRIBUTE CHAR. * A8= RESERVED * A9= RESERVED * A10= RESERVED * A11= CREDIT WORK AREA * A13= RESERVED * ********************************************************* ATMASF EQU * ST A1,REGI,A11 ASF100 EQU * ADK A1,1 CWK A1,LBVDU-1 WRAP AROUND? RF(NG) ASF200 NO LDK A1,0 FIRST POS. ON SCREEN ASF200 EQU * CW A1,REGI,A11 WHOLE SCREEN SEARCHED? RF(E) ASF900 YES CF A14,GETVDU GET CHAR. IN VDU BUFFER CCK A7,/8000 ATTRIBUTE? RB(L) ASF100 NO LDR A6,A7 LDR A5,A1 CF A14,STOINF SAVE NEW SCREEN INFORMATION ASF900 EQU * RTN A14 EJECT *********************************************************************** * * * ATMASB SEARCH ATTRIBUTE BACKWARD * * * *********************************************************************** * REGISTERS * * A1= ATENTRY START SEARCH ADDR. * A2= RESERVED * A3= RESERVED * A4= REL. CURSOR POS. * A5= REL. ATTRIBUTE POS. * A6= ATTRIBUTE CHAR. * A8= RESERVED * A9= RESERVED * A10= RESERVED * A11= CREDIT WORK AREA * A13= RESERVED * ************************************************************************ ATMASB EQU * ST A1,REGI,A11 ASB100 EQU * CF A14,GETVDU GET CHAR. IN VDU BUFFER CCK A7,/8000 ATTRIBUTE? RF(NL) ASB300 YES SUK A1,1 RF(NN) ASB200 NOT WRAP AROUND LDKL A1,LBVDU-1 LAST POS. ON SCREEN ASB200 EQU * CW A1,REGI,A11 WHOLE SCREEN SEARCHED? RF(E) ASB900 YES RB ASB100 ASB300 EQU * LDR A6,A7 LDR A5,A1 CF A14,STOINF SAVE SCREEN INFORMATION ASB900 EQU * RTN A14 EJECT *************************************************************** * * * SNULL SEARCH FIRST NULL CHAR. * * * *************************************************************** * REGISTERS * * A1= AT RETURN 1=NULL FOUND, 2=NO NULL FOUND * A2= RESERVED * A3= AT ENTRY LAST SEARCH ADDR., AT RETURN NULL ADDR. IF ANY * A4= REL. CURSOR POS. * A5= RESERVED * A6= RESERVED * A11= CREDIT WORK AREA * A13= RESERVED * **************************************************************** SNULL EQU * LDR A1,A4 SNU100 EQU * ADK A1,1 CWK A1,LBVDU-1 WRAP AROUND? RF(NG) SNU200 NO LDK A1,0 FIRST SCREEN POS. SNU200 EQU * CWR A1,A3 ALL SEARCHED? RF(E) SNU300 YES CF A14,GETVDU GET CHAR IN VDU BUFFER CCK A7,NULL NULL CHAR? RB(NE) SNU100 NO LDR A3,A1 LDK A1,1 INDICATE NULL FOUND RF SNU900 SNU300 EQU * LDK A1,2 SNU900 EQU * RTN A14 EJECT ************************************************************ * * * WCHAR DISPLAY CHAR. AND CURSOR * * * ************************************************************ * REGISTERS * * A2= KEY-CHAR * A4= REL. CURSOR POS. * A5= REL. ATTRIBUTE POS. * A6= ATTRIBUTE CHAR. * A8= VDU-ECB * A11= CREDIT WORK AREA * A13= RESERVED * ************************************************************* WCHAR EQU * LD A8,ECBVDU,A11 LDK A1,/1E LOW INTENSITY CHAR. LDR A7,A6 ANK A7,/8 STANDARD DISPLAY? RF(Z) WCH300 YES LDR A7,A6 ANK A7,/4 INTENSIFIED DISPLAY? RF(NZ) WCH200 NO LDK A1,/1F HIGH INTENSITY CHAR. RF WCH300 WCH200 EQU * LDK A2,/20 NONDISPLAY WCH300 EQU * LD A7,ECBBA,A8 GET BUFFER ADDRESS SC A1,2,A7 SAVE INTENSITY CHAR. CF A14,RFMDUP REPLACE FM OR DUP CHAR. IFF TRANAT=0 . =2 LC A2,CONNAT,A2 TRANSFORM NAT.CHAR =2 XIF . =2 SC A2,3,A7 STORE CHAR. IN VDU BUFFER LDK A1,4 REQ. LENGTH CF A14,DISCHA DISPLAY ADK A4,1 IM PCURS,A11 CWK A5,LBVDU+1 UNFORMATTED SCREEN? RF(E) WCH900 YES ORK A6,1 SET MDT-BITS IN ATTRIBUTE ST A6,ATTRIB,A11 LDR A1,A5 LDR A7,A6 CF A14,STOVDU STORE CHAR. IN VDU BUFFER WCH900 EQU * RTN A14 EJECT ********************************************************* * * * RFMDUP REPLACE FM OR DUP CHAR IF PRESENT * * * ********************************************************* * REGISTERS * A2= KEY-CHAR * A4= RESERVED * A5= RESERVED * A6= RESERVED * A11= CREDIT WORK AREA * A13= RESERVED * *********************************************** RFMDUP EQU * CWK A2,DUPCH DUP CHAR? RF(NE) RFMD10 NO LDK A2,/2A REPLACE RF RFMD90 RFMD10 EQU * CWK A2,FMCH FM CHAR? RF(NE) RFMD90 NO LDK A2,/3B REPLACE RFMD90 EQU * RTN A14 EJECT ************************************************ * * * DISCHA DISPLAY CHAR * * * ************************************************ * REGISTERS * * A1= REQ. LENGTH * A2= RESERVED * A4= RESERVED * A5= RESERVED * A6= RESERVED * A8= VDU-ECB * A11= CREDIT WORK AREA * A13= RESERVED * ************************************************* DISCHA EQU * LC A2,TCT01,A11 CCK A2,VDUCOD PRINTER UNPACK? RF(NE) DISC95 YES LD A8,ECBVDU,A11 ST A1,ECBRL,A8 LDKL A1,/101 START AT LINE 1 POS. 1 ST A1,ECBCW,A8 LDKL A1,/100 LDR A7,A4 CURSOR POS. DISC10 EQU * CWK A7,LLINE NEXT LINE? RF(L) DISC90 NO ADS A1,ECBCW,A8 MOVE TO NEXT LINE SUKL A7,LLINE RB DISC10 DISC90 EQU * ADS A7,ECBCW,A8 LDK A7,/8B SET CURSOR AND WRITE LKM DATA 1 DISC95 EQU * RTN A14 END
0x0000…0032 (0, 0, 400) Head {h00=0x002e, h01=0x0050, text=» IDENT VDU REL 11.1 82-03-16 870150541110 «, t00=0x0000, t01=0x0004}
0x0032…003a Head {h00=0x0004, h01=0x0050, t00=0x0000, t01=0x0036}
0x003a…005a Head {h00=0x001c, h01=0x0050, text=» =3, NONDISPLAY ERROR «, t00=0x0000, t01=0x003e}
0x005a…006e Head {h00=0x0010, h01=0x0050, text=» 82-02-12 «, t00=0x0000, t01=0x005e}
0x006e…008a Head {h00=0x0018, h01=0x0050, text=» =2, NATIONAL CHAR«, t00=0x0000, t01=0x0072}
0x008a…009e Head {h00=0x0010, h01=0x0050, text=» 81-04-08 «, t00=0x0000, t01=0x008e}
0x009e…00be Head {h00=0x001c, h01=0x0050, text=» =1, LINFLG AT UNFORM.«, t00=0x0000, t01=0x00a2}
0x00be…00d2 Head {h00=0x0010, h01=0x0050, text=» 81-01-26 «, t00=0x0000, t01=0x00c2}
0x00d2…011a Head {h00=0x0044, h01=0x0050, text=»****************************************************************«, t00=0x0000, t01=0x00d6}
0x011a…0162 Head {h00=0x0044, h01=0x0050, text=»* *«, t00=0x0000, t01=0x011e}
0x0162…01aa Head {h00=0x0044, h01=0x0050, text=»* MODULE VDU *«, t00=0x0000, t01=0x0166}
0x01aa…01f2 Head {h00=0x0044, h01=0x0050, text=»* MODULE HANDLING THE DISPLAY SCREEN AND *«, t00=0x0001, t01=0x001e}
0x01f2…023a Head {h00=0x0044, h01=0x0050, text=»* BUFFER *«, t00=0x0001, t01=0x0066}
0x023a…0282 Head {h00=0x0044, h01=0x0050, text=»* (EMULATION 3270 SNA/SDLC, BSC) *«, t00=0x0001, t01=0x00ae}
0x0282…02ca Head {h00=0x0044, h01=0x0050, text=»* *«, t00=0x0001, t01=0x00f6}
0x02ca…0312 Head {h00=0x0044, h01=0x0050, text=»****************************************************************«, t00=0x0001, t01=0x013e}
0x0312…0320 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0001, t01=0x0186}
0x0320…0364 (2, 0, 400) Head {h00=0x0040, h01=0x0050, text=»*********************************************************** «, t00=0x0002, t01=0x0004}
0x0364…036e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x0048}
0x036e…0388 Head {h00=0x0016, h01=0x0050, text=»* LIST OF ROUTINES«, t00=0x0002, t01=0x0052}
0x0388…0392 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x006c}
0x0392…03c8 Head {h00=0x0032, h01=0x0050, text=»* DISMOD DISPLAY MODIFIED FIELDS «, t00=0x0002, t01=0x0076}
0x03c8…03f2 Head {h00=0x0026, h01=0x0050, text=»* DISLIN DISPLAY LINE«, t00=0x0002, t01=0x00ac}
0x03f2…042c Head {h00=0x0036, h01=0x0050, text=»* SPACES MOVE SPACES INTO ECB BUFFER «, t00=0x0002, t01=0x00d6}
0x042c…045e Head {h00=0x002e, h01=0x0050, text=»* INTCHK GET INTENSITY CHAR. «, t00=0x0002, t01=0x0110}
0x045e…0492 Head {h00=0x0030, h01=0x0050, text=»* SETIND SET DISPLAY INDICATOR «, t00=0x0002, t01=0x0142}
0x0492…04bc Head {h00=0x0026, h01=0x0050, text=»* INSMOD INSERT CHAR.«, t00=0x0002, t01=0x0176}
0x04bc…04ea Head {h00=0x002a, h01=0x0050, text=»* UPDCNT UPDATE COUNTERS «, t00=0x0003, t01=0x0010}
0x04ea…0520 Head {h00=0x0032, h01=0x0050, text=»* GETVDU GET CHAR. IN VDU BUFFER «, t00=0x0003, t01=0x003e}
0x0520…0556 Head {h00=0x0032, h01=0x0050, text=»* STOVDU STORE CHAR IN VDU BUFFER«, t00=0x0003, t01=0x0074}
0x0556…058a Head {h00=0x0030, h01=0x0050, text=»* SCRINF GET SCREEN INFORMATION«, t00=0x0003, t01=0x00aa}
0x058a…05c0 Head {h00=0x0032, h01=0x0050, text=»* STOINF STORE SCREEN INFORMATION«, t00=0x0003, t01=0x00de}
0x05c0…05ea Head {h00=0x0026, h01=0x0050, text=»* SOUND SOUND ALARM «, t00=0x0003, t01=0x0114}
0x05ea…061c Head {h00=0x002e, h01=0x0050, text=»* WRAP CHECK IF WRAP AROUND«, t00=0x0003, t01=0x013e}
0x061c…064c Head {h00=0x002c, h01=0x0050, text=»* LINWRP CHECK IF LINE WRAP«, t00=0x0003, t01=0x0170}
0x064c…067a Head {h00=0x002a, h01=0x0050, text=»* LINE UPDATE LINE FLAG«, t00=0x0004, t01=0x0010}
0x067a…06ba Head {h00=0x003c, h01=0x0050, text=»* LINATT UPDATE LINFLG AT ATTRIBUTE CHANGE «, t00=0x0004, t01=0x003e}
0x06ba…06e8 Head {h00=0x002a, h01=0x0050, text=»* NLROUT NEW LINE ROUTINE«, t00=0x0004, t01=0x007e}
0x06e8…071a Head {h00=0x002e, h01=0x0050, text=»* ERASE ERASE ENTIRE SCREEN «, t00=0x0004, t01=0x00ac}
0x071a…074e Head {h00=0x0030, h01=0x0050, text=»* ERASUP ERASE ALL UNPROTECTED «, t00=0x0004, t01=0x00de}
0x074e…0788 Head {h00=0x0036, h01=0x0050, text=»* ERASUA ERASE UNPROTECTED TO ADDRESS«, t00=0x0004, t01=0x0112}
0x0788…07c4 Head {h00=0x0038, h01=0x0050, text=»* POSUNP MOVE CURSOR TO NEXT UNPRO. POS«, t00=0x0004, t01=0x014c}
0x07c4…07fa Head {h00=0x0032, h01=0x0050, text=»* DISID DISPLAY HARDCOPY TASKID «, t00=0x0004, t01=0x0188}
0x07fa…082a Head {h00=0x002c, h01=0x0050, text=»* DISSTA DISPLAY STATISTICS«, t00=0x0005, t01=0x002e}
0x082a…0852 Head {h00=0x0024, h01=0x0050, text=»* MOVTXT MOVE TEXT «, t00=0x0005, t01=0x005e}
0x0852…0880 Head {h00=0x002a, h01=0x0050, text=»* CONASC CONVERT TO ASCII«, t00=0x0005, t01=0x0086}
0x0880…08b6 Head {h00=0x0032, h01=0x0050, text=»* ATMASF SEARCH ATTRIBUTE FORWARD«, t00=0x0005, t01=0x00b4}
0x08b6…08ee Head {h00=0x0034, h01=0x0050, text=»* ATMASB SEARCH ATTRIBUTE BACKWARD «, t00=0x0005, t01=0x00ea}
0x08ee…0924 Head {h00=0x0032, h01=0x0050, text=»* SNULL SEARCH FIRST NULL CHAR. «, t00=0x0005, t01=0x0122}
0x0924…095a Head {h00=0x0032, h01=0x0050, text=»* WCHAR DISPLAY CHAR. AND CURSOR«, t00=0x0005, t01=0x0158}
0x095a…0996 Head {h00=0x0038, h01=0x0050, text=»* RFMDUP REPLACE FM OR DUP CHAR. IF ANY«, t00=0x0005, t01=0x018e}
0x0996…09c2 Head {h00=0x0028, h01=0x0050, text=»* DISCHA DISPLAY CHAR. «, t00=0x0006, t01=0x003a}
0x09c2…09cc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x0066}
0x09cc…0a16 Head {h00=0x0046, h01=0x0050, text=»***************************************************************** «, t00=0x0006, t01=0x0070}
0x0a16…0a24 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0006, t01=0x00ba}
0x0a24…0a70 Head {h00=0x0048, h01=0x0050, text=»********************************************************************«, t00=0x0006, t01=0x00c8}
0x0a70…0abc Head {h00=0x0048, h01=0x0050, text=»* *«, t00=0x0006, t01=0x0114}
0x0abc…0b08 Head {h00=0x0048, h01=0x0050, text=»* ENTRY POINTS *«, t00=0x0006, t01=0x0160}
0x0b08…0b54 Head {h00=0x0048, h01=0x0050, text=»* *«, t00=0x0007, t01=0x001c}
0x0b54…0ba0 Head {h00=0x0048, h01=0x0050, text=»********************************************************************«, t00=0x0007, t01=0x0068}
0x0ba0…0ba8 Head {h00=0x0004, h01=0x0050, t00=0x0007, t01=0x00b4}
0x0ba8…0bce Head {h00=0x0022, h01=0x0050, text=» ENTRY INSMOD INSERT CHARACTER«, t00=0x0007, t01=0x00bc}
0x0bce…0bfe Head {h00=0x002c, h01=0x0050, text=» ENTRY GETVDU GET CHAR. FROM VDU BUFFER «, t00=0x0007, t01=0x00e2}
0x0bfe…0c2e Head {h00=0x002c, h01=0x0050, text=» ENTRY STOVDU STORE CHAR. IN VDU BUFFER «, t00=0x0007, t01=0x0112}
0x0c2e…0c5a Head {h00=0x0028, h01=0x0050, text=» ENTRY SCRINF GET SCREEN INFORMATION«, t00=0x0007, t01=0x0142}
0x0c5a…0c88 Head {h00=0x002a, h01=0x0050, text=» ENTRY STOINF SAVE SCREEN INFORMATION «, t00=0x0007, t01=0x016e}
0x0c88…0cbc Head {h00=0x0030, h01=0x0050, text=» ENTRY POSUNP MOVE TO NEXT UNPROTECTED POS. «, t00=0x0008, t01=0x000c}
0x0cbc…0cec Head {h00=0x002c, h01=0x0050, text=» ENTRY ATMASB SEARCH ATTRIBUTE BACKWARDS«, t00=0x0008, t01=0x0040}
0x0cec…0d1c Head {h00=0x002c, h01=0x0050, text=» ENTRY ATMASF SEARCH ATTRIBUTE FOREWARD «, t00=0x0008, t01=0x0070}
0x0d1c…0d40 Head {h00=0x0020, h01=0x0050, text=» ENTRY DISCHA DISPLAY CHAR. «, t00=0x0008, t01=0x00a0}
0x0d40…0d6e Head {h00=0x002a, h01=0x0050, text=» ENTRY WCHAR DISPLAY CHAR. AND CURSOR «, t00=0x0008, t01=0x00c4}
0x0d6e…0d9c Head {h00=0x002a, h01=0x0050, text=» ENTRY DISMOD DISPLAY MODIFIED FIELDS «, t00=0x0008, t01=0x00f2}
0x0d9c…0dc8 Head {h00=0x0028, h01=0x0050, text=» ENTRY DISID DISPLAY HARDCOPY TASKID«, t00=0x0008, t01=0x0120}
0x0dc8…0dfa Head {h00=0x002e, h01=0x0050, text=» ENTRY ERASUA ERASE UNPROTECTED TO ADDRESS«, t00=0x0008, t01=0x014c}
0x0dfa…0e22 Head {h00=0x0024, h01=0x0050, text=» ENTRY ERASE ERASE ENTIRE SCREEN«, t00=0x0008, t01=0x017e}
0x0e22…0e4a Head {h00=0x0024, h01=0x0050, text=» ENTRY SOUND SOUND ALARM ON VDU «, t00=0x0009, t01=0x0016}
0x0e4a…0e76 Head {h00=0x0028, h01=0x0050, text=» ENTRY ERASUP ERASE ALL UNPROTECTED «, t00=0x0009, t01=0x003e}
0x0e76…0e9e Head {h00=0x0024, h01=0x0050, text=» ENTRY WRAP CHECK IF WRAP AROUND«, t00=0x0009, t01=0x006a}
0x0e9e…0ec4 Head {h00=0x0022, h01=0x0050, text=» ENTRY NLROUT NEW LINE ROUTINE«, t00=0x0009, t01=0x0092}
0x0ec4…0eea Head {h00=0x0022, h01=0x0050, text=» ENTRY LINWRP CHECK LINE WRAP «, t00=0x0009, t01=0x00b8}
0x0eea…0f0e Head {h00=0x0020, h01=0x0050, text=» ENTRY LINE UPDATE LINE FLAG«, t00=0x0009, t01=0x00de}
0x0f0e…0f2a Head {h00=0x0018, h01=0x0050, text=» ENTRY LINATT UPADTE«, t00=0x0009, t01=0x0102}
0x0f2a…0f52 Head {h00=0x0024, h01=0x0050, text=» ENTRY DISSTA DISPLAY STATISTICS«, t00=0x0009, t01=0x011e}
0x0f52…0f5a Head {h00=0x0004, h01=0x0050, t00=0x0009, t01=0x0146}
0x0f5a…0f68 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0009, t01=0x014e}
0x0f68…0fb4 Head {h00=0x0048, h01=0x0050, text=»********************************************************************«, t00=0x0009, t01=0x015c}
0x0fb4…1000 Head {h00=0x0048, h01=0x0050, text=»* *«, t00=0x000a, t01=0x0018}
0x1000…104c Head {h00=0x0048, h01=0x0050, text=»* EXTERNAL REFERENCES *«, t00=0x000a, t01=0x0064}
0x104c…1098 Head {h00=0x0048, h01=0x0050, text=»* *«, t00=0x000a, t01=0x00b0}
0x1098…10e4 Head {h00=0x0048, h01=0x0050, text=»********************************************************************«, t00=0x000a, t01=0x00fc}
0x10e4…10ec Head {h00=0x0004, h01=0x0050, t00=0x000a, t01=0x0148}
0x10ec…1120 Head {h00=0x0030, h01=0x0050, text=» EXTRN TAB TAB UNPROCTECTED FOREWARD (KEYB) «, t00=0x000a, t01=0x0150}
0x1120…115e Head {h00=0x003a, h01=0x0050, text=» EXTRN CRDOWN MOVE CURSOR UNPROTECTED NEXT LINE (KEYB)«, t00=0x000a, t01=0x0184}
0x115e…1196 Head {h00=0x0034, h01=0x0050, text=» EXTRN RDHOME UNPROTECTED FIRST ON SCREEN (KEYB)«, t00=0x000b, t01=0x0032}
0x1196…11c0 Head {h00=0x0026, h01=0x0050, text=» EXTRN SAVE1 SAVE REGISTERS (PAD) «, t00=0x000b, t01=0x006a}
0x11c0…11ec Head {h00=0x0028, h01=0x0050, text=» EXTRN REST1 RESTORE REGISTERS (PAD)«, t00=0x000b, t01=0x0094}
0x11ec…121a Head {h00=0x002a, h01=0x0050, text=» EXTRN CONNAT TRANSFORM OF NAT.CHAR =2«, t00=0x000b, t01=0x00c0}
0x121a…1228 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000b, t01=0x00ee}
0x1228…1230 Head {h00=0x0004, h01=0x0050, t00=0x000b, t01=0x00fc}
0x1230…1238 Head {h00=0x0004, h01=0x0050, t00=0x000b, t01=0x0104}
0x1238…1286 Head {h00=0x004a, h01=0x0050, text=»********************************************************************* «, t00=0x000b, t01=0x010c}
0x1286…12d4 Head {h00=0x004a, h01=0x0050, text=»* * «, t00=0x000b, t01=0x015a}
0x12d4…1322 Head {h00=0x004a, h01=0x0050, text=»* CONDITIONAL ASSEMBLY PARAMETERS * «, t00=0x000c, t01=0x0018}
0x1322…1370 Head {h00=0x004a, h01=0x0050, text=»* * «, t00=0x000c, t01=0x0066}
0x1370…13be Head {h00=0x004a, h01=0x0050, text=»********************************************************************* «, t00=0x000c, t01=0x00b4}
0x13be…13c6 Head {h00=0x0004, h01=0x0050, t00=0x000c, t01=0x0102}
0x13c6…13ee Head {h00=0x0024, h01=0x0050, text=»X:I EQU 1 INSERT/DELETE HANDLING«, t00=0x000c, t01=0x010a}
0x13ee…1404 Head {h00=0x0012, h01=0x0050, text=»IN:DL EQU X:I «, t00=0x000c, t01=0x0132}
0x1404…142a Head {h00=0x0022, h01=0x0050, text=»X:O EQU 0 TEST INCLUDED IF:=1 «, t00=0x000c, t01=0x0148}
0x142a…143e Head {h00=0x0010, h01=0x0050, text=»TEST EQU X:O«, t00=0x000c, t01=0x016e}
0x143e…1454 Head {h00=0x0012, h01=0x0050, text=»X:R EQU 0 . =2«, t00=0x000c, t01=0x0182}
0x1454…1484 Head {h00=0x002c, h01=0x0050, text=»TRANAT EQU X:R TRANSFORM OF NAT.CHAR =2 «, t00=0x000d, t01=0x0008}
0x1484…1492 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000d, t01=0x0038}
0x1492…14da Head {h00=0x0044, h01=0x003f, text=»*************************************************************** «, t00=0x000d, t01=0x0046}
0x14da…1522 Head {h00=0x0044, h01=0x003f, text=»* * «, t00=0x000d, t01=0x008e}
0x1522…154c Head {h00=0x0026, h01=0x0050, text=»* DECLARATIONS OF DATA AND EQUATES«, t00=0x000d, t01=0x00d6}
0x154c…1594 Head {h00=0x0044, h01=0x003f, text=»* * «, t00=0x000d, t01=0x0100}
0x1594…15dc Head {h00=0x0044, h01=0x003f, text=»*************************************************************** «, t00=0x000d, t01=0x0148}
0x15dc…15e4 Head {h00=0x0004, h01=0x0002, t00=0x000d, t01=0x0190}
0x15e4…15ee Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x000e, t01=0x0008}
0x15ee…1616 Head {h00=0x0024, h01=0x0020, text=»* EQUATES FOR ECB HANDLING«, t00=0x000e, t01=0x0012}
0x1616…1620 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x000e, t01=0x003a}
0x1620…1642 Head {h00=0x001e, h01=0x001a, text=»ECBBA EQU 2 BUFFER ADDRESS«, t00=0x000e, t01=0x0044}
0x1642…1666 Head {h00=0x0020, h01=0x001c, text=»ECBRL EQU 4 REQUESTED LENGTH«, t00=0x000e, t01=0x0066}
0x1666…168a Head {h00=0x0020, h01=0x001c, text=»ECBEL EQU 6 EFFECTIVE LENGTH«, t00=0x000e, t01=0x008a}
0x168a…16aa Head {h00=0x001c, h01=0x0017, text=»ECBRC EQU 8 RETURN CODE «, t00=0x000e, t01=0x00ae}
0x16aa…16cc Head {h00=0x001e, h01=0x0019, text=»ECBCW EQU 10 CONTROL WORD «, t00=0x000e, t01=0x00ce}
0x16cc…16d6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x00f0}
0x16d6…16f2 Head {h00=0x0018, h01=0x0050, text=»* SPECIAL CHARACTERS«, t00=0x000e, t01=0x00fa}
0x16f2…16fc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x0116}
0x16fc…171a Head {h00=0x001a, h01=0x0050, text=»NULL EQU 0 NULL CHAR. «, t00=0x000e, t01=0x0120}
0x171a…1740 Head {h00=0x0022, h01=0x0050, text=»NEWLIN EQU /0A NEW LINE CHAR. «, t00=0x000e, t01=0x013e}
0x1740…1766 Head {h00=0x0022, h01=0x0050, text=»FORMFD EQU /0C FORM FEED CHAR.«, t00=0x000e, t01=0x0164}
0x1766…178e Head {h00=0x0024, h01=0x0050, text=»ENDMES EQU /19 END MESSAGE CHAR.«, t00=0x000e, t01=0x018a}
0x178e…17b4 Head {h00=0x0022, h01=0x0050, text=»DUPCH EQU /1C DUPLICATE CHAR. «, t00=0x000f, t01=0x0022}
0x17b4…17da Head {h00=0x0022, h01=0x0050, text=»FMCH EQU /1E FIELD MARK CHAR. «, t00=0x000f, t01=0x0048}
0x17da…17e4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x006e}
0x17e4…1806 Head {h00=0x001e, h01=0x0050, text=»* TASK IDENTIFICATION CODE«, t00=0x000f, t01=0x0078}
0x1806…1810 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x009a}
0x1810…1834 Head {h00=0x0020, h01=0x0050, text=»VDUCOD EQU 'VV' VDU KB TASK «, t00=0x000f, t01=0x00a4}
0x1834…183e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x00c8}
0x183e…1858 Head {h00=0x0016, h01=0x0050, text=»* INTERNAL STATUS «, t00=0x000f, t01=0x00d2}
0x1858…1862 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x00ec}
0x1862…1888 Head {h00=0x0022, h01=0x0050, text=»LINUPD EQU /0001 LINE UPDATED «, t00=0x000f, t01=0x00f6}
0x1888…18b4 Head {h00=0x0028, h01=0x0050, text=»ATTREC EQU /0002 ATTRIBUTE RECEIVED «, t00=0x000f, t01=0x011c}
0x18b4…18be Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x0148}
0x18be…18d8 Head {h00=0x0016, h01=0x0050, text=»* VDU SCREEN SIZE «, t00=0x000f, t01=0x0152}
0x18d8…18e2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x016c}
0x18e2…1902 Head {h00=0x001c, h01=0x0050, text=»LLINE EQU 80 LINE LENGTH«, t00=0x000f, t01=0x0176}
0x1902…1924 Head {h00=0x001e, h01=0x0050, text=»LBVDU EQU 1920 TOTAL SIZE «, t00=0x0010, t01=0x0008}
0x1924…1938 Head {h00=0x0010, h01=0x0050, text=» IFT TEST=1 «, t00=0x0010, t01=0x002a}
0x1938…1942 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x003e}
0x1942…1958 Head {h00=0x0012, h01=0x0050, text=»* STAT. LAYOUT«, t00=0x0010, t01=0x0048}
0x1958…1962 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x005e}
0x1962…1992 Head {h00=0x002c, h01=0x0050, text=»NUMLIN EQU 13 NUMBER OF LINES YO DISPLAY«, t00=0x0010, t01=0x0068}
0x1992…19c0 Head {h00=0x002a, h01=0x0050, text=»STALIN EQU 5 STARTING LINE OF DISPLAY «, t00=0x0010, t01=0x0098}
0x19c0…19ea Head {h00=0x0026, h01=0x0050, text=»STAPOS EQU 5 STARTTING POS ON LINE«, t00=0x0010, t01=0x00c6}
0x19ea…1a16 Head {h00=0x0028, h01=0x0050, text=»TXTSIZ EQU 15 SIZE OF PERMANENT TEXT«, t00=0x0010, t01=0x00f0}
0x1a16…1a52 Head {h00=0x0038, h01=0x0050, text=»INDEX DATA /0102,/0405,/0608,/090A,/0C0E,/1D1E,/1F00«, t00=0x0010, t01=0x011c}
0x1a52…1a5e Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0010, t01=0x0158}
0x1a5e…1a6c Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0010, t01=0x0164}
0x1a6c…1a76 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x0172}
0x1a76…1a96 Head {h00=0x001c, h01=0x0050, text=»* RELATIVE ADDRESSES IN «, t00=0x0010, t01=0x017c}
0x1a96…1ab2 Head {h00=0x0018, h01=0x0050, text=»* TERMINAL WORKBLOCK«, t00=0x0011, t01=0x000c}
0x1ab2…1abc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x0028}
0x1abc…1ae4 Head {h00=0x0024, h01=0x0050, text=»TCT01 EQU 0 TASK IDENTIFICATION «, t00=0x0011, t01=0x0032}
0x1ae4…1b0a Head {h00=0x0022, h01=0x0050, text=»BVDU EQU TCT01+2 SCREEN BUFFER«, t00=0x0011, t01=0x005a}
0x1b0a…1b3a Head {h00=0x002c, h01=0x0050, text=»LINFLG EQU BVDU+1920 INTERNAL LINE FLAGS«, t00=0x0011, t01=0x0080}
0x1b3a…1b64 Head {h00=0x0026, h01=0x0050, text=»PCURS EQU LINFLG+24 CURSOR ADDRESS«, t00=0x0011, t01=0x00b0}
0x1b64…1b92 Head {h00=0x002a, h01=0x0050, text=»ATTRIB EQU PCURS+2 LAST ATTRIBUTE CHAR«, t00=0x0011, t01=0x00da}
0x1b92…1bae Head {h00=0x0018, h01=0x0050, text=»CURATT EQU ATTRIB+2 «, t00=0x0011, t01=0x0108}
0x1bae…1bd8 Head {h00=0x0026, h01=0x0050, text=»WCC EQU CURATT+2 WCC/CCC CHARACTER«, t00=0x0011, t01=0x0124}
0x1bd8…1c04 Head {h00=0x0028, h01=0x0050, text=»INTATT EQU WCC+8 INTENSITY ATTRIBUTE«, t00=0x0011, t01=0x014e}
0x1c04…1c2c Head {h00=0x0024, h01=0x0050, text=»REGI EQU INTATT+32 WORK REGISTER«, t00=0x0011, t01=0x017a}
0x1c2c…1c46 Head {h00=0x0016, h01=0x0050, text=»ECBVDU EQU REGI+40«, t00=0x0012, t01=0x0012}
0x1c46…1c50 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x002c}
0x1c50…1c70 Head {h00=0x001c, h01=0x0050, text=»* RELATIVE ADDRESSES IN «, t00=0x0012, t01=0x0036}
0x1c70…1c8a Head {h00=0x0016, h01=0x0050, text=»* COMMON WORKBLOCK«, t00=0x0012, t01=0x0056}
0x1c8a…1c94 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x0070}
0x1c94…1cba Head {h00=0x0022, h01=0x0050, text=»IDTEXT EQU 2 IDENT TEXT LAYOUT«, t00=0x0012, t01=0x007a}
0x1cba…1cce Head {h00=0x0010, h01=0x0050, text=» IFT TEST=1 «, t00=0x0012, t01=0x00a0}
0x1cce…1d00 Head {h00=0x002e, h01=0x0050, text=»STATXT EQU IDTEXT+22 STATISTIC TEXT LAYOUT«, t00=0x0012, t01=0x00b4}
0x1d00…1d0c Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0012, t01=0x00e6}
0x1d0c…1d1a Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0012, t01=0x00f2}
0x1d1a…1d5c Head {h00=0x003e, h01=0x0050, text=»********************************************************* «, t00=0x0012, t01=0x0100}
0x1d5c…1d9e Head {h00=0x003e, h01=0x0050, text=»* * «, t00=0x0012, t01=0x0142}
0x1d9e…1de0 Head {h00=0x003e, h01=0x0050, text=»* DISMOD DISPLAY MODIFIED FIELDS * «, t00=0x0012, t01=0x0184}
0x1de0…1e22 Head {h00=0x003e, h01=0x0050, text=»* * «, t00=0x0013, t01=0x0036}
0x1e22…1e64 Head {h00=0x003e, h01=0x0050, text=»********************************************************* «, t00=0x0013, t01=0x0078}
0x1e64…1e78 Head {h00=0x0010, h01=0x0050, text=»* REGISTERS«, t00=0x0013, t01=0x00ba}
0x1e78…1e82 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x00ce}
0x1e82…1e96 Head {h00=0x0010, h01=0x0050, text=»* A2= CHAR. «, t00=0x0013, t01=0x00d8}
0x1e96…1eba Head {h00=0x0020, h01=0x0050, text=»* A3= ADDRESS IN VDU-BUFFER «, t00=0x0013, t01=0x00ec}
0x1eba…1ed8 Head {h00=0x001a, h01=0x0050, text=»* A4= REL. CURSOR POS.«, t00=0x0013, t01=0x0110}
0x1ed8…1efa Head {h00=0x001e, h01=0x0050, text=»* A5= REL. ATTRIBUTE POS. «, t00=0x0013, t01=0x012e}
0x1efa…1f16 Head {h00=0x0018, h01=0x0050, text=»* A6= ADDRESS IN ECB«, t00=0x0013, t01=0x0150}
0x1f16…1f30 Head {h00=0x0016, h01=0x0050, text=»* A7= INDEX IN ECB«, t00=0x0013, t01=0x016c}
0x1f30…1f46 Head {h00=0x0012, h01=0x0050, text=»* A8= VDU ECB «, t00=0x0013, t01=0x0186}
0x1f46…1f66 Head {h00=0x001c, h01=0x0050, text=»* A9= INTENSITY COUNTER «, t00=0x0014, t01=0x000c}
0x1f66…1f7e Head {h00=0x0014, h01=0x0050, text=»* A10= INDICATOR«, t00=0x0014, t01=0x002c}
0x1f7e…1f9e Head {h00=0x001c, h01=0x0050, text=»* A11= CREDIT WORK AREA «, t00=0x0014, t01=0x0044}
0x1f9e…1fb6 Head {h00=0x0014, h01=0x0050, text=»* A13= RESERVED «, t00=0x0014, t01=0x0064}
0x1fb6…1fc0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x007c}
0x1fc0…1ffe Head {h00=0x003a, h01=0x0050, text=»***************************************************** «, t00=0x0014, t01=0x0086}
0x1ffe…2012 Head {h00=0x0010, h01=0x0050, text=»DISMOD EQU *«, t00=0x0014, t01=0x00c4}
0x2012…202c Head {h00=0x0016, h01=0x0050, text=» LD A8,ECBVDU,A11 «, t00=0x0014, t01=0x00d8}
0x202c…2050 Head {h00=0x0020, h01=0x0050, text=» LDKL A1,/101 LINE 1 POS. 1 «, t00=0x0014, t01=0x00f2}
0x2050…2068 Head {h00=0x0014, h01=0x0050, text=» ST A1,ECBCW,A8 «, t00=0x0014, t01=0x0116}
0x2068…2092 Head {h00=0x0026, h01=0x0050, text=» SUR A9,A9 RESET INTENSITY COUNTER«, t00=0x0014, t01=0x012e}
0x2092…20a6 Head {h00=0x0010, h01=0x0050, text=» SUR A10,A10«, t00=0x0014, t01=0x0158}
0x20a6…20b6 Head {h00=0x000c, h01=0x0050, text=» . =3 «, t00=0x0014, t01=0x016c}
0x20b6…20cc Head {h00=0x0012, h01=0x0050, text=» LDKL A3,BVDU «, t00=0x0014, t01=0x017c}
0x20cc…20e0 (21, 0, 400) Head {h00=0x0010, h01=0x0050, text=» ADR A3,A11 «, t00=0x0015, t01=0x0004}
0x20e0…20f6 Head {h00=0x0012, h01=0x0050, text=» CF A14,SCRINF«, t00=0x0015, t01=0x0018}
0x20f6…211c Head {h00=0x0022, h01=0x0050, text=» LDK A4,0 FIRST SCREEN POS./=3«, t00=0x0015, t01=0x002e}
0x211c…2148 Head {h00=0x0028, h01=0x0050, text=» CF A14,SPACES SPACES IN ECB BUFFER «, t00=0x0015, t01=0x0054}
0x2148…2160 Head {h00=0x0014, h01=0x0050, text=» ST A5,REGI,A11 «, t00=0x0015, t01=0x0080}
0x2160…2178 Head {h00=0x0014, h01=0x0050, text=» LDKL A1,LBVDU+1«, t00=0x0015, t01=0x0098}
0x2178…218c Head {h00=0x0010, h01=0x0050, text=» LDR A5,A11 «, t00=0x0015, t01=0x00b0}
0x218c…21a4 Head {h00=0x0014, h01=0x0050, text=» CW A1,REGI,A11 «, t00=0x0015, t01=0x00c4}
0x21a4…21be Head {h00=0x0016, h01=0x0050, text=» RF(NE) DIS100 NO «, t00=0x0015, t01=0x00dc}
0x21be…21de Head {h00=0x001c, h01=0x0050, text=» LDK A2,0 LOW INTENSITY «, t00=0x0015, t01=0x00f6}
0x21de…21f8 Head {h00=0x0016, h01=0x0050, text=» ST A2,INTATT,A11 «, t00=0x0015, t01=0x0116}
0x21f8…220c Head {h00=0x0010, h01=0x0050, text=»DIS100 EQU *«, t00=0x0015, t01=0x0130}
0x220c…2220 Head {h00=0x0010, h01=0x0050, text=» LDR A10,A10«, t00=0x0015, t01=0x0144}
0x2220…2236 Head {h00=0x0012, h01=0x0050, text=» RF(NZ) DIS900«, t00=0x0015, t01=0x0158}
0x2236…2262 Head {h00=0x0028, h01=0x0050, text=» CF A14,INTCHK CHECK INTENSITY CHAR.«, t00=0x0015, t01=0x016e}
0x2262…2276 Head {h00=0x0010, h01=0x0050, text=» LDR A1,A10 «, t00=0x0016, t01=0x000a}
0x2276…228a Head {h00=0x0010, h01=0x0050, text=» SUR A10,A10«, t00=0x0016, t01=0x001e}
0x228a…229c Head {h00=0x000e, h01=0x0050, text=» LDR A1,A1«, t00=0x0016, t01=0x0032}
0x229c…22bc Head {h00=0x001c, h01=0x0050, text=» RF(N) DIS800 NONDISPLAY«, t00=0x0016, t01=0x0044}
0x22bc…22e0 Head {h00=0x0020, h01=0x0050, text=» RF(NZ) DIS400 DISPLAY LINE «, t00=0x0016, t01=0x0064}
0x22e0…2308 Head {h00=0x0024, h01=0x0050, text=» LD A2,ECBCW,A8 NO MODIFICATION «, t00=0x0016, t01=0x0088}
0x2308…232a Head {h00=0x001e, h01=0x0050, text=» CWK A2,/1901 ALLDISPLAYED«, t00=0x0016, t01=0x00b0}
0x232a…2344 Head {h00=0x0016, h01=0x0050, text=» RB(NE) DIS100 NO «, t00=0x0016, t01=0x00d2}
0x2344…2356 Head {h00=0x000e, h01=0x0050, text=» RF DIS900«, t00=0x0016, t01=0x00ec}
0x2356…236a Head {h00=0x0010, h01=0x0050, text=»DIS400 EQU *«, t00=0x0016, t01=0x00fe}
0x236a…2390 Head {h00=0x0022, h01=0x0050, text=» CWK A7,LLINE LINE COMPLETED? «, t00=0x0016, t01=0x0112}
0x2390…23a8 Head {h00=0x0014, h01=0x0050, text=» RF(L) DIS500 NO«, t00=0x0016, t01=0x0138}
0x23a8…23cc Head {h00=0x0020, h01=0x0050, text=» CF A14,DISLIN DISPLAY LINE «, t00=0x0016, t01=0x0150}
0x23cc…23de Head {h00=0x000e, h01=0x0050, text=» RB DIS100«, t00=0x0016, t01=0x0174}
0x23de…23f2 Head {h00=0x0010, h01=0x0050, text=»DIS500 EQU *«, t00=0x0016, t01=0x0186}
0x23f2…241c Head {h00=0x0026, h01=0x0050, text=» LCR A2,A3 GET CHAR. IN VDU-BUFFER«, t00=0x0017, t01=0x000a}
0x241c…2446 Head {h00=0x0026, h01=0x0050, text=» CF A14,SETIND SET SPACE INDICATOR«, t00=0x0017, t01=0x0034}
0x2446…2466 Head {h00=0x001c, h01=0x0050, text=» CCK A2,/8000 ATTRIBUTE?«, t00=0x0017, t01=0x005e}
0x2466…2480 Head {h00=0x0016, h01=0x0050, text=» RF(NL) DIS700 YES«, t00=0x0017, t01=0x007e}
0x2480…24a6 Head {h00=0x0022, h01=0x0050, text=» CF A14,UPDCNT UPDATE COUNTERS«, t00=0x0017, t01=0x0098}
0x24a6…24c6 Head {h00=0x001c, h01=0x0050, text=» CWK A2,NULL NULL CHAR.?«, t00=0x0017, t01=0x00be}
0x24c6…24e0 Head {h00=0x0016, h01=0x0050, text=» RB(E) DIS400 YES «, t00=0x0017, t01=0x00de}
0x24e0…2506 Head {h00=0x0022, h01=0x0050, text=» CWK A2,NEWLIN NEW LINE CHAR.?«, t00=0x0017, t01=0x00f8}
0x2506…2520 Head {h00=0x0016, h01=0x0050, text=» RB(E) DIS400 YES «, t00=0x0017, t01=0x011e}
0x2520…254a Head {h00=0x0026, h01=0x0050, text=» CWK A2,ENDMES END MESSAGE CHAR.? «, t00=0x0017, t01=0x0138}
0x254a…2564 Head {h00=0x0016, h01=0x0050, text=» RB(E) DIS400 YES «, t00=0x0017, t01=0x0162}
0x2564…258c Head {h00=0x0024, h01=0x0050, text=» CWK A2,FORMFD FORM FEED CHAR.? «, t00=0x0017, t01=0x017c}
0x258c…25a6 Head {h00=0x0016, h01=0x0050, text=» RB(E) DIS400 YES «, t00=0x0018, t01=0x0014}
0x25a6…25d6 Head {h00=0x002c, h01=0x0050, text=» CF A14,RFMDUP REPLACE DUP AND FM CHAR. «, t00=0x0018, t01=0x002e}
0x25d6…25f0 Head {h00=0x0016, h01=0x0050, text=» IFF TRANAT=0 . =2«, t00=0x0018, t01=0x005e}
0x25f0…261e Head {h00=0x002a, h01=0x0050, text=» LC A2,CONNAT,A2 TRANSFORM NAT.CHAR =2«, t00=0x0018, t01=0x0078}
0x261e…2630 Head {h00=0x000e, h01=0x0050, text=» XIF . =2«, t00=0x0018, t01=0x00a6}
0x2630…265e Head {h00=0x002a, h01=0x0050, text=» SC A2,-1,A6 STORE CHAR. IN ECB BUFFER«, t00=0x0018, t01=0x00b8}
0x265e…2670 Head {h00=0x000e, h01=0x0050, text=» RB DIS400«, t00=0x0018, t01=0x00e6}
0x2670…2684 Head {h00=0x0010, h01=0x0050, text=»DIS700 EQU *«, t00=0x0018, t01=0x00f8}
0x2684…269e Head {h00=0x0016, h01=0x0050, text=» ST A2,INTATT,A11 «, t00=0x0018, t01=0x010c}
0x269e…26b0 Head {h00=0x000e, h01=0x0050, text=» LDR A1,A2«, t00=0x0018, t01=0x0126}
0x26b0…26d0 Head {h00=0x001c, h01=0x0050, text=» ANK A1,8 LOW INTENSITY?«, t00=0x0018, t01=0x0138}
0x26d0…26ea Head {h00=0x0016, h01=0x0050, text=» RF(Z) DIS725 YES «, t00=0x0018, t01=0x0158}
0x26ea…270c Head {h00=0x001e, h01=0x0050, text=» ANK A2,4 HIGH INTENSITY? «, t00=0x0018, t01=0x0172}
0x270c…2726 (25, 0, 400) Head {h00=0x0016, h01=0x0050, text=» RF(Z) DIS715 YES «, t00=0x0019, t01=0x0004}
0x2726…274c Head {h00=0x0022, h01=0x0050, text=» CF A14,UPDCNT UPDATE COUNTERS«, t00=0x0019, t01=0x001e}
0x274c…276a Head {h00=0x001a, h01=0x0050, text=» RF DIS800 NONDISPLAY «, t00=0x0019, t01=0x0044}
0x276a…277e Head {h00=0x0010, h01=0x0050, text=»DIS715 EQU *«, t00=0x0019, t01=0x0062}
0x277e…2796 Head {h00=0x0014, h01=0x0050, text=» LDK A2,/1F HIGH«, t00=0x0019, t01=0x0076}
0x2796…27a8 Head {h00=0x000e, h01=0x0050, text=» RF DIS750«, t00=0x0019, t01=0x008e}
0x27a8…27bc Head {h00=0x0010, h01=0x0050, text=»DIS725 EQU *«, t00=0x0019, t01=0x00a0}
0x27bc…27d4 Head {h00=0x0014, h01=0x0050, text=» LDK A2,/1E LOW «, t00=0x0019, t01=0x00b4}
0x27d4…27e8 Head {h00=0x0010, h01=0x0050, text=»DIS750 EQU *«, t00=0x0019, t01=0x00cc}
0x27e8…2814 Head {h00=0x0028, h01=0x0050, text=» SCR A2,A6 SAVE CHAR. IN ECB BUFFER «, t00=0x0019, t01=0x00e0}
0x2814…2826 Head {h00=0x000e, h01=0x0050, text=» ADKL A9,1«, t00=0x0019, t01=0x010c}
0x2826…284c Head {h00=0x0022, h01=0x0050, text=» CF A14,UPDCNT UPDATE COUNTERS«, t00=0x0019, t01=0x011e}
0x284c…285e Head {h00=0x000e, h01=0x0050, text=» ADK A6,1 «, t00=0x0019, t01=0x0144}
0x285e…2870 Head {h00=0x000e, h01=0x0050, text=» RB DIS400«, t00=0x0019, t01=0x0156}
0x2870…2884 Head {h00=0x0010, h01=0x0050, text=»DIS800 EQU *«, t00=0x0019, t01=0x0168}
0x2884…28aa Head {h00=0x0022, h01=0x0050, text=» CWK A7,LLINE LINE COMPLETED? «, t00=0x0019, t01=0x017c}
0x28aa…28c2 Head {h00=0x0014, h01=0x0050, text=» RF(L) DIS850 NO«, t00=0x001a, t01=0x0012}
0x28c2…28e6 Head {h00=0x0020, h01=0x0050, text=» CF A14,DISLIN DISPLAY LINE «, t00=0x001a, t01=0x002a}
0x28e6…28f8 Head {h00=0x000e, h01=0x0050, text=» RB DIS100«, t00=0x001a, t01=0x004e}
0x28f8…290c Head {h00=0x0010, h01=0x0050, text=»DIS850 EQU *«, t00=0x001a, t01=0x0060}
0x290c…2936 Head {h00=0x0026, h01=0x0050, text=» LCR A2,A3 GET CHAR. IN VDU-BUFFER«, t00=0x001a, t01=0x0074}
0x2936…2956 Head {h00=0x001c, h01=0x0050, text=» CCK A2,/8000 ATTRIBUTE?«, t00=0x001a, t01=0x009e}
0x2956…2970 Head {h00=0x0016, h01=0x0050, text=» RB(NL) DIS700 YES«, t00=0x001a, t01=0x00be}
0x2970…2996 Head {h00=0x0022, h01=0x0050, text=» CF A14,UPDCNT UPDATE COUNTERS«, t00=0x001a, t01=0x00d8}
0x2996…29a8 Head {h00=0x000e, h01=0x0050, text=» RB DIS800«, t00=0x001a, t01=0x00fe}
0x29a8…29bc Head {h00=0x0010, h01=0x0050, text=»DIS900 EQU *«, t00=0x001a, t01=0x0110}
0x29bc…29ea Head {h00=0x002a, h01=0x0050, text=» CF A14,SCRINF GET SCREEN INFORMATION «, t00=0x001a, t01=0x0124}
0x29ea…2a08 Head {h00=0x001a, h01=0x0050, text=» LDK A1,2 REQ. LENGTH «, t00=0x001a, t01=0x0152}
0x2a08…2a2a Head {h00=0x001e, h01=0x0050, text=» CF A14,DISCHA SET CURSOR «, t00=0x001a, t01=0x0170}
0x2a2a…2a3a (27, 0, 400) Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x001b, t01=0x0004}
0x2a3a…2a48 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x001b, t01=0x0014}
0x2a48…2a8c Head {h00=0x0040, h01=0x0050, text=»*********************************************************** «, t00=0x001b, t01=0x0022}
0x2a8c…2ad0 Head {h00=0x0040, h01=0x0050, text=»* * «, t00=0x001b, t01=0x0066}
0x2ad0…2b14 Head {h00=0x0040, h01=0x0050, text=»* DISLIN DISPLAY LINE ON VDU * «, t00=0x001b, t01=0x00aa}
0x2b14…2b58 Head {h00=0x0040, h01=0x0050, text=»* * «, t00=0x001b, t01=0x00ee}
0x2b58…2b9c Head {h00=0x0040, h01=0x0050, text=»*********************************************************** «, t00=0x001b, t01=0x0132}
0x2b9c…2bb0 Head {h00=0x0010, h01=0x0050, text=»* REGISTERS«, t00=0x001b, t01=0x0176}
0x2bb0…2bba Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001b, t01=0x018a}
0x2bba…2bd0 (28, 0, 400) Head {h00=0x0012, h01=0x0050, text=»* A3= RESERVED«, t00=0x001c, t01=0x0004}
0x2bd0…2be6 Head {h00=0x0012, h01=0x0050, text=»* A4= RESERVED«, t00=0x001c, t01=0x001a}
0x2be6…2bfc Head {h00=0x0012, h01=0x0050, text=»* A5= RESERVED«, t00=0x001c, t01=0x0030}
0x2bfc…2c12 Head {h00=0x0012, h01=0x0050, text=»* A6= RESERVED«, t00=0x001c, t01=0x0046}
0x2c12…2c28 Head {h00=0x0012, h01=0x0050, text=»* A8= ECB VDU «, t00=0x001c, t01=0x005c}
0x2c28…2c48 Head {h00=0x001c, h01=0x0050, text=»* A9= INTENSITY COUNTER «, t00=0x001c, t01=0x0072}
0x2c48…2c60 Head {h00=0x0014, h01=0x0050, text=»* A10= INDICATOR«, t00=0x001c, t01=0x0092}
0x2c60…2c78 Head {h00=0x0014, h01=0x0050, text=»* A11= RESERVED «, t00=0x001c, t01=0x00aa}
0x2c78…2c90 Head {h00=0x0014, h01=0x0050, text=»* A13= RESERVED «, t00=0x001c, t01=0x00c2}
0x2c90…2c9a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001c, t01=0x00da}
0x2c9a…2cde Head {h00=0x0040, h01=0x0050, text=»*********************************************************** «, t00=0x001c, t01=0x00e4}
0x2cde…2cf2 Head {h00=0x0010, h01=0x0050, text=»DISLIN EQU *«, t00=0x001c, t01=0x0128}
0x2cf2…2d10 Head {h00=0x001a, h01=0x0050, text=» LDK A7,2 REQ. LENGTH «, t00=0x001c, t01=0x013c}
0x2d10…2d24 Head {h00=0x0010, h01=0x0050, text=» LDR A1,A10 «, t00=0x001c, t01=0x015a}
0x2d24…2d44 Head {h00=0x001c, h01=0x0050, text=» ANKL A1,1 ONLY SPACES? «, t00=0x001c, t01=0x016e}
0x2d44…2d5e Head {h00=0x0016, h01=0x0050, text=» RF(Z) DISL10 YES «, t00=0x001c, t01=0x018e}
0x2d5e…2d82 Head {h00=0x0020, h01=0x0050, text=» LDKL A7,LLINE+2 REQ. LENGTH«, t00=0x001d, t01=0x0018}
0x2d82…2db2 Head {h00=0x002c, h01=0x0050, text=» ADR A7,A9 ADD NUMBER OF INTENSITY CHAR.«, t00=0x001d, t01=0x003c}
0x2db2…2dc6 Head {h00=0x0010, h01=0x0050, text=»DISL10 EQU *«, t00=0x001d, t01=0x006c}
0x2dc6…2dde Head {h00=0x0014, h01=0x0050, text=» ST A7,ECBRL,A8 «, t00=0x001d, t01=0x0080}
0x2dde…2e08 Head {h00=0x0026, h01=0x0050, text=» LDKL A7,/8B SET CURSOR AND WRITE «, t00=0x001d, t01=0x0098}
0x2e08…2e14 Head {h00=0x0008, h01=0x0050, text=» LKM«, t00=0x001d, t01=0x00c2}
0x2e14…2e24 Head {h00=0x000c, h01=0x0050, text=» DATA 1 «, t00=0x001d, t01=0x00ce}
0x2e24…2e4c Head {h00=0x0024, h01=0x0050, text=» LD A1,ECBCW,A8 GET CURSOR POS. «, t00=0x001d, t01=0x00de}
0x2e4c…2e60 Head {h00=0x0010, h01=0x0050, text=» ANK A1,/FF «, t00=0x001d, t01=0x0106}
0x2e60…2e90 Head {h00=0x002c, h01=0x0050, text=» SUK A1,81 LAST POS. ON LINE DISPLAYED? «, t00=0x001d, t01=0x011a}
0x2e90…2eaa Head {h00=0x0016, h01=0x0050, text=» RF(Z) DISL90 YES «, t00=0x001d, t01=0x014a}
0x2eaa…2ec2 Head {h00=0x0014, h01=0x0050, text=» LD A6,ECBBA,A8 «, t00=0x001d, t01=0x0164}
0x2ec2…2ed6 Head {h00=0x0010, h01=0x0050, text=» LDK A2,/2B «, t00=0x001d, t01=0x017c}
0x2ed6…2eea Head {h00=0x0010, h01=0x0050, text=» SC A2,1,A6 «, t00=0x001d, t01=0x0190}
0x2eea…2f00 Head {h00=0x0012, h01=0x0050, text=» LDKL A2,/1420«, t00=0x001e, t01=0x0014}
0x2f00…2f14 Head {h00=0x0010, h01=0x0050, text=» SC A2,3,A6 «, t00=0x001e, t01=0x002a}
0x2f14…2f26 Head {h00=0x000e, h01=0x0050, text=» SRL A2,8 «, t00=0x001e, t01=0x003e}
0x2f26…2f3a Head {h00=0x0010, h01=0x0050, text=» SC A2,2,A6 «, t00=0x001e, t01=0x0050}
0x2f3a…2f4c Head {h00=0x000e, h01=0x0050, text=» LDK A2,84«, t00=0x001e, t01=0x0064}
0x2f4c…2f64 Head {h00=0x0014, h01=0x0050, text=» ST A2,ECBRL,A8 «, t00=0x001e, t01=0x0076}
0x2f64…2f7e Head {h00=0x0016, h01=0x0050, text=» LDK A7,/86 WRITE «, t00=0x001e, t01=0x008e}
0x2f7e…2f8a Head {h00=0x0008, h01=0x0050, text=» LKM«, t00=0x001e, t01=0x00a8}
0x2f8a…2f9a Head {h00=0x000c, h01=0x0050, text=» DATA 1 «, t00=0x001e, t01=0x00b4}
0x2f9a…2fae Head {h00=0x0010, h01=0x0050, text=»DISL90 EQU *«, t00=0x001e, t01=0x00c4}
0x2fae…2fc0 Head {h00=0x000e, h01=0x0050, text=» ADK A5,1 «, t00=0x001e, t01=0x00d8}
0x2fc0…2fe4 Head {h00=0x0020, h01=0x0050, text=» LDK A2,1 FIRST POS. ON LINE«, t00=0x001e, t01=0x00ea}
0x2fe4…2ffe Head {h00=0x0016, h01=0x0050, text=» SC A2,ECBCW+1,A8 «, t00=0x001e, t01=0x010e}
0x2ffe…3026 Head {h00=0x0024, h01=0x0050, text=» LDKL A2,/100 MOVE ONE LINE DOWN«, t00=0x001e, t01=0x0128}
0x3026…303e Head {h00=0x0014, h01=0x0050, text=» ADS A2,ECBCW,A8«, t00=0x001e, t01=0x0150}
0x303e…3052 Head {h00=0x0010, h01=0x0050, text=» SUR A10,A10«, t00=0x001e, t01=0x0168}
0x3052…306a Head {h00=0x0014, h01=0x0050, text=» LD A2,ECBCW,A8 «, t00=0x001e, t01=0x017c}
0x306a…308e (31, 0, 400) Head {h00=0x0020, h01=0x0050, text=» CWK A2,/1901 END OF SCREEN «, t00=0x001f, t01=0x0004}
0x308e…30a8 Head {h00=0x0016, h01=0x0050, text=» RF(NE) DISL95 NO «, t00=0x001f, t01=0x0028}
0x30a8…30bc Head {h00=0x0010, h01=0x0050, text=» LDKL A10,1 «, t00=0x001f, t01=0x0042}
0x30bc…30d0 Head {h00=0x0010, h01=0x0050, text=»DISL95 EQU *«, t00=0x001f, t01=0x0056}
0x30d0…3100 Head {h00=0x002c, h01=0x0050, text=» CF A14,SPACES MOVE SPACES TO ECB BUFFER«, t00=0x001f, t01=0x006a}
0x3100…3110 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x001f, t01=0x009a}
0x3110…311e Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x001f, t01=0x00aa}
0x311e…3162 Head {h00=0x0040, h01=0x0050, text=»************************************************************«, t00=0x001f, t01=0x00b8}
0x3162…31a6 Head {h00=0x0040, h01=0x0050, text=»* *«, t00=0x001f, t01=0x00fc}
0x31a6…31ea Head {h00=0x0040, h01=0x0050, text=»* SPACES MOVE SPACES TO ECB BUFFER *«, t00=0x001f, t01=0x0140}
0x31ea…322e Head {h00=0x0040, h01=0x0050, text=»* *«, t00=0x001f, t01=0x0184}
0x322e…3272 Head {h00=0x0040, h01=0x0050, text=»************************************************************«, t00=0x0020, t01=0x0038}
0x3272…3286 Head {h00=0x0010, h01=0x0050, text=»* REGISTERS«, t00=0x0020, t01=0x007c}
0x3286…3290 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0020, t01=0x0090}
0x3290…32a4 Head {h00=0x0010, h01=0x0050, text=»* A2= CHAR. «, t00=0x0020, t01=0x009a}
0x32a4…32ba Head {h00=0x0012, h01=0x0050, text=»* A3= RESERVED«, t00=0x0020, t01=0x00ae}
0x32ba…32d0 Head {h00=0x0012, h01=0x0050, text=»* A4= RESERVED«, t00=0x0020, t01=0x00c4}
0x32d0…32e6 Head {h00=0x0012, h01=0x0050, text=»* A5= RESERVED«, t00=0x0020, t01=0x00da}
0x32e6…330a Head {h00=0x0020, h01=0x0050, text=»* A6= ADDRESS IN ECB BUFFER «, t00=0x0020, t01=0x00f0}
0x330a…3324 Head {h00=0x0016, h01=0x0050, text=»* A7= INDEX IN ECB«, t00=0x0020, t01=0x0114}
0x3324…333a Head {h00=0x0012, h01=0x0050, text=»* A8= VDU ECB «, t00=0x0020, t01=0x012e}
0x333a…335a Head {h00=0x001c, h01=0x0050, text=»* A9= INTENSITY COUNTER «, t00=0x0020, t01=0x0144}
0x335a…3372 Head {h00=0x0014, h01=0x0050, text=»* A10= INDICATOR«, t00=0x0020, t01=0x0164}
0x3372…338a Head {h00=0x0014, h01=0x0050, text=»* A11= RESERVED «, t00=0x0020, t01=0x017c}
0x338a…33a2 (33, 0, 400) Head {h00=0x0014, h01=0x0050, text=»* A13= RESERVED «, t00=0x0021, t01=0x0004}
0x33a2…33ac Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0021, t01=0x001c}
0x33ac…33f0 Head {h00=0x0040, h01=0x0050, text=»************************************************************«, t00=0x0021, t01=0x0026}
0x33f0…3404 Head {h00=0x0010, h01=0x0050, text=»SPACES EQU *«, t00=0x0021, t01=0x006a}
0x3404…342e Head {h00=0x0026, h01=0x0050, text=» LD A6,ECBBA,A8 GET BUFFER ADDRESS«, t00=0x0021, t01=0x007e}
0x342e…3440 Head {h00=0x000e, h01=0x0050, text=» ADK A6,2 «, t00=0x0021, t01=0x00a8}
0x3440…3462 Head {h00=0x001e, h01=0x0050, text=» LDK A7,LLINE LINE LENGTH «, t00=0x0021, t01=0x00ba}
0x3462…3482 Head {h00=0x001c, h01=0x0050, text=» ADR A7,A7 BUFFER LENGTH«, t00=0x0021, t01=0x00dc}
0x3482…349e Head {h00=0x0018, h01=0x0050, text=» LDKL A2,' ' SPACES«, t00=0x0021, t01=0x00fc}
0x349e…34b2 Head {h00=0x0010, h01=0x0050, text=»SPAC10 EQU *«, t00=0x0021, t01=0x0118}
0x34b2…34c4 Head {h00=0x000e, h01=0x0050, text=» SCR A2,A6«, t00=0x0021, t01=0x012c}
0x34c4…34d8 Head {h00=0x0010, h01=0x0050, text=» SC A2,1,A6 «, t00=0x0021, t01=0x013e}
0x34d8…34ea Head {h00=0x000e, h01=0x0050, text=» ADK A6,2 «, t00=0x0021, t01=0x0152}
0x34ea…3510 Head {h00=0x0022, h01=0x0050, text=» SUK A7,2 WHOLE BUFFER SPACED?«, t00=0x0021, t01=0x0164}
0x3510…3528 Head {h00=0x0014, h01=0x0050, text=» RB(P) SPAC10 NO«, t00=0x0021, t01=0x018a}
0x3528…3540 Head {h00=0x0014, h01=0x0050, text=» LDK A2,0 CHAR. «, t00=0x0022, t01=0x0012}
0x3540…3566 Head {h00=0x0022, h01=0x0050, text=» LD A6,ECBBA,A8 BUFFER ADDRESS«, t00=0x0022, t01=0x002a}
0x3566…3578 Head {h00=0x000e, h01=0x0050, text=» ADK A6,2 «, t00=0x0022, t01=0x0050}
0x3578…359e Head {h00=0x0022, h01=0x0050, text=» LDK A7,0 RESET CHAR. COUNTER «, t00=0x0022, t01=0x0062}
0x359e…35ae Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0022, t01=0x0088}
0x35ae…35bc Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0022, t01=0x0098}
0x35bc…35fe Head {h00=0x003e, h01=0x0050, text=»********************************************************* «, t00=0x0022, t01=0x00a6}
0x35fe…3640 Head {h00=0x003e, h01=0x0050, text=»* * «, t00=0x0022, t01=0x00e8}
0x3640…3682 Head {h00=0x003e, h01=0x0050, text=»* INTCHK GET INTENSITY CHAR. * «, t00=0x0022, t01=0x012a}
0x3682…36c4 Head {h00=0x003e, h01=0x0050, text=»* * «, t00=0x0022, t01=0x016c}
0x36c4…3706 Head {h00=0x003e, h01=0x0050, text=»********************************************************* «, t00=0x0023, t01=0x001e}
0x3706…371a Head {h00=0x0010, h01=0x0050, text=»* REGISTERS«, t00=0x0023, t01=0x0060}
0x371a…3724 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0023, t01=0x0074}
0x3724…3738 Head {h00=0x0010, h01=0x0050, text=»* A2= CHAR. «, t00=0x0023, t01=0x007e}
0x3738…374e Head {h00=0x0012, h01=0x0050, text=»* A3= RESERVED«, t00=0x0023, t01=0x0092}
0x374e…3764 Head {h00=0x0012, h01=0x0050, text=»* A4= RESERVED«, t00=0x0023, t01=0x00a8}
0x3764…377a Head {h00=0x0012, h01=0x0050, text=»* A5= RESERVED«, t00=0x0023, t01=0x00be}
0x377a…379e Head {h00=0x0020, h01=0x0050, text=»* A6= ADDRESS IN ECB BUFFER «, t00=0x0023, t01=0x00d4}
0x379e…37b4 Head {h00=0x0012, h01=0x0050, text=»* A7= RESERVED«, t00=0x0023, t01=0x00f8}
0x37b4…37ca Head {h00=0x0012, h01=0x0050, text=»* A8= RESERVED«, t00=0x0023, t01=0x010e}
0x37ca…37ea Head {h00=0x001c, h01=0x0050, text=»* A9= INTENSITY COUNTER «, t00=0x0023, t01=0x0124}
0x37ea…3802 Head {h00=0x0014, h01=0x0050, text=»* A10= INDICATOR«, t00=0x0023, t01=0x0144}
0x3802…3822 Head {h00=0x001c, h01=0x0050, text=»* A11= CREDIT WORK AREA «, t00=0x0023, t01=0x015c}
0x3822…383a Head {h00=0x0014, h01=0x0050, text=»* A13= RESERVED «, t00=0x0023, t01=0x017c}
0x383a…3844 (36, 0, 398) Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0024, t01=0x0004}
0x3844…387c Head {h00=0x0034, h01=0x0050, text=»************************************************«, t00=0x0024, t01=0x000e}
0x387c…3890 Head {h00=0x0010, h01=0x0050, text=»INTCHK EQU *«, t00=0x0024, t01=0x0046}
0x3890…38ba Head {h00=0x0026, h01=0x0050, text=» SUR A9,A9 RESET INTENSITY COUNTER«, t00=0x0024, t01=0x005a}
0x38ba…38e0 Head {h00=0x0022, h01=0x0050, text=» LC A2,LINFLG,A5 GET LINE FLAG«, t00=0x0024, t01=0x0084}
0x38e0…38fc Head {h00=0x0018, h01=0x0050, text=» ANK A2,1 MODIFIED? «, t00=0x0024, t01=0x00aa}
0x38fc…3916 Head {h00=0x0016, h01=0x0050, text=» RF(NZ) INT100 YES«, t00=0x0024, t01=0x00c6}
0x3916…3936 Head {h00=0x001c, h01=0x0050, text=» ADK A3,LLINE NEXT LINE «, t00=0x0024, t01=0x00e0}
0x3936…394c Head {h00=0x0012, h01=0x0050, text=» ADK A4,LLINE «, t00=0x0024, t01=0x0100}
0x394c…395e Head {h00=0x000e, h01=0x0050, text=» ADK A5,1 «, t00=0x0024, t01=0x0116}
0x395e…3970 Head {h00=0x000e, h01=0x0050, text=» LDK A2,1 «, t00=0x0024, t01=0x0128}
0x3970…398a Head {h00=0x0016, h01=0x0050, text=» SC A2,ECBCW+1,A8 «, t00=0x0024, t01=0x013a}
0x398a…39a0 Head {h00=0x0012, h01=0x0050, text=» LDKL A2,/100 «, t00=0x0024, t01=0x0154}
0x39a0…39b8 Head {h00=0x0014, h01=0x0050, text=» ADS A2,ECBCW,A8«, t00=0x0024, t01=0x016a}
0x39b8…39cc Head {h00=0x0010, h01=0x0050, text=» LDKL A10,0 «, t00=0x0024, t01=0x0182}
0x39cc…39de Head {h00=0x000e, h01=0x0050, text=» RF INT900«, t00=0x0025, t01=0x0008}
0x39de…39f2 Head {h00=0x0010, h01=0x0050, text=»INT100 EQU *«, t00=0x0025, t01=0x001a}
0x39f2…3a0a Head {h00=0x0014, h01=0x0050, text=» LC A2,LINFLG,A5«, t00=0x0025, t01=0x002e}
0x3a0a…3a1c Head {h00=0x000e, h01=0x0050, text=» ANK A2,2 «, t00=0x0025, t01=0x0046}
0x3a1c…3a34 Head {h00=0x0014, h01=0x0050, text=» SC A2,LINFLG,A5«, t00=0x0025, t01=0x0058}
0x3a34…3a48 Head {h00=0x0010, h01=0x0050, text=» LDKL A10,1 «, t00=0x0025, t01=0x0070}
0x3a48…3a60 Head {h00=0x0014, h01=0x0050, text=» LD A2,REGI,A11 «, t00=0x0025, t01=0x0084}
0x3a60…3a8c Head {h00=0x0028, h01=0x0050, text=» CWK A2,LBVDU+1 UNFORMATTED SCREEN? «, t00=0x0025, t01=0x009c}
0x3a8c…3aa6 Head {h00=0x0016, h01=0x0050, text=» RF(E) INT200 YES «, t00=0x0025, t01=0x00c8}
0x3aa6…3abc Head {h00=0x0012, h01=0x0050, text=» CF A14,SAVE1 «, t00=0x0025, t01=0x00e2}
0x3abc…3ace Head {h00=0x000e, h01=0x0050, text=» LDR A1,A4«, t00=0x0025, t01=0x00f8}
0x3ace…3ae4 Head {h00=0x0012, h01=0x0050, text=» CF A14,SCRINF«, t00=0x0025, t01=0x010a}
0x3ae4…3af6 Head {h00=0x000e, h01=0x0050, text=» LDR A2,A5«, t00=0x0025, t01=0x0120}
0x3af6…3b08 Head {h00=0x000e, h01=0x0050, text=» LDR A3,A6«, t00=0x0025, t01=0x0132}
0x3b08…3b34 Head {h00=0x0028, h01=0x0050, text=» CF A14,ATMASB GET CURRENT ATTRIBUTE«, t00=0x0025, t01=0x0144}
0x3b34…3b4e Head {h00=0x0016, h01=0x0050, text=» ST A6,INTATT,A11 «, t00=0x0025, t01=0x0170}
0x3b4e…3b60 Head {h00=0x000e, h01=0x0050, text=» LDR A5,A2«, t00=0x0025, t01=0x018a}
0x3b60…3b72 Head {h00=0x000e, h01=0x0050, text=» LDR A6,A3«, t00=0x0026, t01=0x000c}
0x3b72…3b88 Head {h00=0x0012, h01=0x0050, text=» CF A14,STOINF«, t00=0x0026, t01=0x001e}
0x3b88…3b9e Head {h00=0x0012, h01=0x0050, text=» CF A14,REST1 «, t00=0x0026, t01=0x0034}
0x3b9e…3bb0 Head {h00=0x000e, h01=0x0050, text=» LDK A7,0 «, t00=0x0026, t01=0x004a}
0x3bb0…3bc4 Head {h00=0x0010, h01=0x0050, text=»INT200 EQU *«, t00=0x0026, t01=0x005c}
0x3bc4…3bde Head {h00=0x0016, h01=0x0050, text=» LD A2,INTATT,A11 «, t00=0x0026, t01=0x0070}
0x3bde…3bf0 Head {h00=0x000e, h01=0x0050, text=» LDR A1,A2«, t00=0x0026, t01=0x008a}
0x3bf0…3c10 Head {h00=0x001c, h01=0x0050, text=» ANK A1,8 LOW INTENSITY?«, t00=0x0026, t01=0x009c}
0x3c10…3c2a Head {h00=0x0016, h01=0x0050, text=» RF(Z) INT300 YES «, t00=0x0026, t01=0x00bc}
0x3c2a…3c4c Head {h00=0x001e, h01=0x0050, text=» ANK A2,4 HIGH INTENSITY? «, t00=0x0026, t01=0x00d6}
0x3c4c…3c72 Head {h00=0x0022, h01=0x0050, text=» RF(NZ) INT800 NO, NONDISPLAY «, t00=0x0026, t01=0x00f8}
0x3c72…3c8a Head {h00=0x0014, h01=0x0050, text=» LDK A2,/1F HIGH«, t00=0x0026, t01=0x011e}
0x3c8a…3c9c Head {h00=0x000e, h01=0x0050, text=» RF INT400«, t00=0x0026, t01=0x0136}
0x3c9c…3cb0 Head {h00=0x0010, h01=0x0050, text=»INT300 EQU *«, t00=0x0026, t01=0x0148}
0x3cb0…3cc8 Head {h00=0x0014, h01=0x0050, text=» LDK A2,/1E LOW «, t00=0x0026, t01=0x015c}
0x3cc8…3cdc Head {h00=0x0010, h01=0x0050, text=»INT400 EQU *«, t00=0x0026, t01=0x0174}
0x3cdc…3d02 Head {h00=0x0022, h01=0x0050, text=» SCR A2,A6 SAVE IN ECB BUFFER «, t00=0x0026, t01=0x0188}
0x3d02…3d14 Head {h00=0x000e, h01=0x0050, text=» ADK A6,1 «, t00=0x0027, t01=0x001e}
0x3d14…3d26 Head {h00=0x000e, h01=0x0050, text=» ADKL A9,1«, t00=0x0027, t01=0x0030}
0x3d26…3d38 Head {h00=0x000e, h01=0x0050, text=» RF INT900«, t00=0x0027, t01=0x0042}
0x3d38…3d4c Head {h00=0x0010, h01=0x0050, text=»INT800 EQU *«, t00=0x0027, t01=0x0054}
0x3d4c…3d64 Head {h00=0x0014, h01=0x0050, text=» LDKL A10,/8000 «, t00=0x0027, t01=0x0068}
0x3d64…3d78 Head {h00=0x0010, h01=0x0050, text=»INT900 EQU *«, t00=0x0027, t01=0x0080}
0x3d78…3d88 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0027, t01=0x0094}
0x3d88…3d96 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0027, t01=0x00a4}
0x3d96…3dce Head {h00=0x0034, h01=0x0050, text=»************************************************«, t00=0x0027, t01=0x00b2}
0x3dce…3e06 Head {h00=0x0034, h01=0x0050, text=»* *«, t00=0x0027, t01=0x00ea}
0x3e06…3e3e Head {h00=0x0034, h01=0x0050, text=»* SETIND SET DISPLAY INDICATOR *«, t00=0x0027, t01=0x0122}
0x3e3e…3e76 Head {h00=0x0034, h01=0x0050, text=»* *«, t00=0x0027, t01=0x015a}
0x3e76…3eae (40, 0, 400) Head {h00=0x0034, h01=0x0050, text=»************************************************«, t00=0x0028, t01=0x0004}
0x3eae…3ec2 Head {h00=0x0010, h01=0x0050, text=»* REGISTERS«, t00=0x0028, t01=0x003c}
0x3ec2…3ecc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0028, t01=0x0050}
0x3ecc…3ede Head {h00=0x000e, h01=0x0050, text=»* A2= CHAR«, t00=0x0028, t01=0x005a}
0x3ede…3ef4 Head {h00=0x0012, h01=0x0050, text=»* A3= RESERVED«, t00=0x0028, t01=0x006c}
0x3ef4…3f0a Head {h00=0x0012, h01=0x0050, text=»* A4= RESERVED«, t00=0x0028, t01=0x0082}
0x3f0a…3f20 Head {h00=0x0012, h01=0x0050, text=»* A5= RESERVED«, t00=0x0028, t01=0x0098}
0x3f20…3f36 Head {h00=0x0012, h01=0x0050, text=»* A6= RESERVED«, t00=0x0028, t01=0x00ae}
0x3f36…3f4c Head {h00=0x0012, h01=0x0050, text=»* A7= RESERVED«, t00=0x0028, t01=0x00c4}
0x3f4c…3f62 Head {h00=0x0012, h01=0x0050, text=»* A8= RESERVED«, t00=0x0028, t01=0x00da}
0x3f62…3f78 Head {h00=0x0012, h01=0x0050, text=»* A9= RESERVED«, t00=0x0028, t01=0x00f0}
0x3f78…3f98 Head {h00=0x001c, h01=0x0050, text=»* A10= DISPLAY INDICATOR«, t00=0x0028, t01=0x0106}
0x3f98…3fb0 Head {h00=0x0014, h01=0x0050, text=»* A11= RESERVED «, t00=0x0028, t01=0x0126}
0x3fb0…3fc8 Head {h00=0x0014, h01=0x0050, text=»* A13= RESERVED «, t00=0x0028, t01=0x013e}
0x3fc8…3fd2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0028, t01=0x0156}
0x3fd2…3ffc Head {h00=0x0026, h01=0x0050, text=»**********************************«, t00=0x0028, t01=0x0160}
0x3ffc…4010 Head {h00=0x0010, h01=0x0050, text=»SETIND EQU *«, t00=0x0028, t01=0x018a}
0x4010…4030 Head {h00=0x001c, h01=0x0050, text=» CWK A2,NULL NULL CHAR? «, t00=0x0029, t01=0x000e}
0x4030…404a Head {h00=0x0016, h01=0x0050, text=» RF(E) SETI90 YES «, t00=0x0029, t01=0x002e}
0x404a…4076 Head {h00=0x0028, h01=0x0050, text=» ORKL A10,1 INDICATE NOT ONLY SPACES«, t00=0x0029, t01=0x0048}
0x4076…408a Head {h00=0x0010, h01=0x0050, text=»SETI90 EQU *«, t00=0x0029, t01=0x0074}
0x408a…409a Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0029, t01=0x0088}
0x409a…40a8 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0029, t01=0x0098}
0x40a8…40f0 Head {h00=0x0044, h01=0x0050, text=»****************************************************************«, t00=0x0029, t01=0x00a6}
0x40f0…4138 Head {h00=0x0044, h01=0x0050, text=»* *«, t00=0x0029, t01=0x00ee}
0x4138…4180 Head {h00=0x0044, h01=0x0050, text=»* INSMOD INSERT CHARACTER *«, t00=0x0029, t01=0x0136}
0x4180…41c8 Head {h00=0x0044, h01=0x0050, text=»* *«, t00=0x0029, t01=0x017e}
0x41c8…4210 Head {h00=0x0044, h01=0x0050, text=»****************************************************************«, t00=0x002a, t01=0x0036}
0x4210…4224 Head {h00=0x0010, h01=0x0050, text=»* REGISTERS«, t00=0x002a, t01=0x007e}
0x4224…422e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002a, t01=0x0092}
0x422e…4276 Head {h00=0x0044, h01=0x0050, text=»* A1= AT RETURN 0=NULL IN POS., 1=NORMAL INSERT, 2=NOT ALLOWED «, t00=0x002a, t01=0x009c}
0x4276…428c Head {h00=0x0012, h01=0x0050, text=»* A2= RESERVED«, t00=0x002a, t01=0x00e4}
0x428c…42aa Head {h00=0x001a, h01=0x0050, text=»* A4= REL. CURSOR POS.«, t00=0x002a, t01=0x00fa}
0x42aa…42cc Head {h00=0x001e, h01=0x0050, text=»* A5= REL. ATTRIBUTE POS. «, t00=0x002a, t01=0x0118}
0x42cc…42ea Head {h00=0x001a, h01=0x0050, text=»* A6= ATTRIBUTE CHAR. «, t00=0x002a, t01=0x013a}
0x42ea…430a Head {h00=0x001c, h01=0x0050, text=»* A11= CREDIT WORK AREA «, t00=0x002a, t01=0x0158}
0x430a…4322 Head {h00=0x0014, h01=0x0050, text=»* A13= RESERVED «, t00=0x002a, t01=0x0178}
0x4322…432c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002a, t01=0x0190}
0x432c…4374 Head {h00=0x0044, h01=0x0050, text=»*************************************************************** «, t00=0x002b, t01=0x000a}
0x4374…4388 Head {h00=0x0010, h01=0x0050, text=»INSMOD EQU *«, t00=0x002b, t01=0x0052}
0x4388…439c Head {h00=0x0010, h01=0x0050, text=» IFT IN:DL=1«, t00=0x002b, t01=0x0066}
0x439c…43ae Head {h00=0x000e, h01=0x0050, text=» LDR A1,A4«, t00=0x002b, t01=0x007a}
0x43ae…43dc Head {h00=0x002a, h01=0x0050, text=» CF A14,GETVDU GET CHAR. IN VDU BUFFER«, t00=0x002b, t01=0x008c}
0x43dc…43fc Head {h00=0x001c, h01=0x0050, text=» CCK A7,NULL NULL CHAR.?«, t00=0x002b, t01=0x00ba}
0x43fc…4416 Head {h00=0x0016, h01=0x0050, text=» RF(NE) INS100 NO «, t00=0x002b, t01=0x00da}
0x4416…4444 Head {h00=0x002a, h01=0x0050, text=» LDK A1,0 INDICATE NULL IN CURSOR POS.«, t00=0x002b, t01=0x00f4}
0x4444…4456 Head {h00=0x000e, h01=0x0050, text=» RF INS900«, t00=0x002b, t01=0x0122}
0x4456…446a Head {h00=0x0010, h01=0x0050, text=»INS100 EQU *«, t00=0x002b, t01=0x0134}
0x446a…447c Head {h00=0x000e, h01=0x0050, text=» LDR A3,A4«, t00=0x002b, t01=0x0148}
0x447c…44a8 Head {h00=0x0028, h01=0x0050, text=» CWK A5,LBVDU+1 UNFORMATTED SCREEN? «, t00=0x002b, t01=0x015a}
0x44a8…44c2 Head {h00=0x0016, h01=0x0050, text=» RF(E) INS200 YES «, t00=0x002b, t01=0x0186}
0x44c2…44de Head {h00=0x0018, h01=0x0050, text=» LDR A8,A6 SAVE OLD «, t00=0x002c, t01=0x0010}
0x44de…44fa Head {h00=0x0018, h01=0x0050, text=» LDR A9,A5 SAVE OLD «, t00=0x002c, t01=0x002c}
0x44fa…452a Head {h00=0x002c, h01=0x0050, text=» CF A14,ATMASF SEARCH ATTRIBUTE FORWARD «, t00=0x002c, t01=0x0048}
0x452a…453c Head {h00=0x000e, h01=0x0050, text=» LDR A3,A5«, t00=0x002c, t01=0x0078}
0x453c…455e Head {h00=0x001e, h01=0x0050, text=» ST A8,ATTRIB,A11 RESTORE «, t00=0x002c, t01=0x008a}
0x455e…4580 Head {h00=0x001e, h01=0x0050, text=» ST A9,CURATT,A11 RESTORE «, t00=0x002c, t01=0x00ac}
0x4580…4592 Head {h00=0x000e, h01=0x0050, text=» LDR A6,A8«, t00=0x002c, t01=0x00ce}
0x4592…45a4 Head {h00=0x000e, h01=0x0050, text=» LDR A5,A9«, t00=0x002c, t01=0x00e0}
0x45a4…45b8 Head {h00=0x0010, h01=0x0050, text=»INS200 EQU *«, t00=0x002c, t01=0x00f2}
0x45b8…45e0 Head {h00=0x0024, h01=0x0050, text=» CF A14,SNULL SEARCH FIRST NULL «, t00=0x002c, t01=0x0106}
0x45e0…45fe Head {h00=0x001a, h01=0x0050, text=» ANK A1,2 NULL FOUND? «, t00=0x002c, t01=0x012e}
0x45fe…4618 Head {h00=0x0016, h01=0x0050, text=» RF(Z) INS300 YES «, t00=0x002c, t01=0x014c}
0x4618…4638 Head {h00=0x001c, h01=0x0050, text=» LDK A1,2 INDICATE ERROR«, t00=0x002c, t01=0x0166}
0x4638…464a Head {h00=0x000e, h01=0x0050, text=» RF INS900«, t00=0x002c, t01=0x0186}
0x464a…465e Head {h00=0x0010, h01=0x0050, text=»INS300 EQU *«, t00=0x002d, t01=0x0008}
0x465e…468a Head {h00=0x0028, h01=0x0050, text=» CWK A5,LBVDU+1 UNFORMATTED SCREEN? «, t00=0x002d, t01=0x001c}
0x468a…46a4 Head {h00=0x0016, h01=0x0050, text=» RF(E) INS350 YES «, t00=0x002d, t01=0x0048}
0x46a4…46d2 Head {h00=0x002a, h01=0x0050, text=» ORK A6,1 SET MDT-BIT ON IN ATTRIBUTE «, t00=0x002d, t01=0x0062}
0x46d2…46ec Head {h00=0x0016, h01=0x0050, text=» ST A6,ATTRIB,A11 «, t00=0x002d, t01=0x0090}
0x46ec…46fe Head {h00=0x000e, h01=0x0050, text=» LDR A1,A5«, t00=0x002d, t01=0x00aa}
0x46fe…4710 Head {h00=0x000e, h01=0x0050, text=» LDR A7,A6«, t00=0x002d, t01=0x00bc}
0x4710…4748 Head {h00=0x0034, h01=0x0050, text=» CF A14,STOVDU SAVE NEW ATTRIBUTE IN VDU-BUFFER «, t00=0x002d, t01=0x00ce}
0x4748…475c Head {h00=0x0010, h01=0x0050, text=»INS350 EQU *«, t00=0x002d, t01=0x0106}
0x475c…476e Head {h00=0x000e, h01=0x0050, text=» LDR A1,A3«, t00=0x002d, t01=0x011a}
0x476e…4786 Head {h00=0x0014, h01=0x0050, text=» ST A4,REGI,A11 «, t00=0x002d, t01=0x012c}
0x4786…4798 Head {h00=0x000e, h01=0x0050, text=» LDR A4,A1«, t00=0x002d, t01=0x0144}
0x4798…47ae Head {h00=0x0012, h01=0x0050, text=» LDK A5,LLINE «, t00=0x002d, t01=0x0156}
0x47ae…47c2 Head {h00=0x0010, h01=0x0050, text=» LDR A6,A11 «, t00=0x002d, t01=0x016c}
0x47c2…47d6 Head {h00=0x0010, h01=0x0050, text=» SUR A10,A10«, t00=0x002d, t01=0x0180}
0x47d6…47e8 (46, 0, 400) Head {h00=0x000e, h01=0x0050, text=» LDR A9,A1«, t00=0x002e, t01=0x0004}
0x47e8…480e Head {h00=0x0022, h01=0x0050, text=» CF A14,LINE UPDATE LINE FLAG «, t00=0x002e, t01=0x0016}
0x480e…4820 Head {h00=0x000e, h01=0x0050, text=» LDR A1,A9«, t00=0x002e, t01=0x003c}
0x4820…4834 Head {h00=0x0010, h01=0x0050, text=»INS400 EQU *«, t00=0x002e, t01=0x004e}
0x4834…4866 Head {h00=0x002e, h01=0x0050, text=» CWK A1,0 CHAR TO MOVE IN LAST SCREEN POS?«, t00=0x002e, t01=0x0062}
0x4866…4880 Head {h00=0x0016, h01=0x0050, text=» RF(E) INS500 YES «, t00=0x002e, t01=0x0094}
0x4880…4892 Head {h00=0x000e, h01=0x0050, text=» SUK A1,1 «, t00=0x002e, t01=0x00ae}
0x4892…48c0 Head {h00=0x002a, h01=0x0050, text=» CF A14,GETVDU GET CHAR IN VDU BUFFER «, t00=0x002e, t01=0x00c0}
0x48c0…48d2 Head {h00=0x000e, h01=0x0050, text=» ADK A1,1 «, t00=0x002e, t01=0x00ee}
0x48d2…48e4 Head {h00=0x000e, h01=0x0050, text=» LDR A9,A1«, t00=0x002e, t01=0x0100}
0x48e4…48fa Head {h00=0x0012, h01=0x0050, text=» LDK A5,LLINE «, t00=0x002e, t01=0x0112}
0x48fa…490e Head {h00=0x0010, h01=0x0050, text=» LDR A6,A11 «, t00=0x002e, t01=0x0128}
0x490e…4922 Head {h00=0x0010, h01=0x0050, text=» CF A14,LINE«, t00=0x002e, t01=0x013c}
0x4922…4934 Head {h00=0x000e, h01=0x0050, text=» LDR A1,A9«, t00=0x002e, t01=0x0150}
0x4934…494c Head {h00=0x0014, h01=0x0050, text=» LC A9,LINFLG,A6«, t00=0x002e, t01=0x0162}
0x494c…495e Head {h00=0x000e, h01=0x0050, text=» ORKL A9,1«, t00=0x002e, t01=0x017a}
0x495e…4976 Head {h00=0x0014, h01=0x0050, text=» SC A9,LINFLG,A6«, t00=0x002e, t01=0x018c}
0x4976…49a6 Head {h00=0x002c, h01=0x0050, text=» CF A14,STOVDU STORE CHAR IN VDU BUFFER «, t00=0x002f, t01=0x0014}
0x49a6…49b8 Head {h00=0x000e, h01=0x0050, text=» SUK A1,1 «, t00=0x002f, t01=0x0044}
0x49b8…49ca Head {h00=0x000e, h01=0x0050, text=» SUK A4,1 «, t00=0x002f, t01=0x0056}
0x49ca…49de Head {h00=0x0010, h01=0x0050, text=»INS450 EQU *«, t00=0x002f, t01=0x0068}
0x49de…4a02 Head {h00=0x0020, h01=0x0050, text=» CW A1,REGI,A11 ALL SHIFTED?«, t00=0x002f, t01=0x007c}
0x4a02…4a1c Head {h00=0x0016, h01=0x0050, text=» RF(E) INS600 YES «, t00=0x002f, t01=0x00a0}
0x4a1c…4a2e Head {h00=0x000e, h01=0x0050, text=» RB INS400«, t00=0x002f, t01=0x00ba}
0x4a2e…4a42 Head {h00=0x0010, h01=0x0050, text=»INS500 EQU *«, t00=0x002f, t01=0x00cc}
0x4a42…4a68 Head {h00=0x0022, h01=0x0050, text=» LDKL A1,LBVDU-1 GET LAST CHAR«, t00=0x002f, t01=0x00e0}
0x4a68…4a96 Head {h00=0x002a, h01=0x0050, text=» CF A14,GETVDU GET CHAR IN VDU BUFFER «, t00=0x002f, t01=0x0106}
0x4a96…4aa8 Head {h00=0x000e, h01=0x0050, text=» LDK A1,0 «, t00=0x002f, t01=0x0134}
0x4aa8…4aba Head {h00=0x000e, h01=0x0050, text=» LDK A4,0 «, t00=0x002f, t01=0x0146}
0x4aba…4acc Head {h00=0x000e, h01=0x0050, text=» LDR A9,A1«, t00=0x002f, t01=0x0158}
0x4acc…4ae2 Head {h00=0x0012, h01=0x0050, text=» LDK A5,LLINE «, t00=0x002f, t01=0x016a}
0x4ae2…4af6 Head {h00=0x0010, h01=0x0050, text=» LDR A6,A11 «, t00=0x002f, t01=0x0180}
0x4af6…4b0a (48, 0, 398) Head {h00=0x0010, h01=0x0050, text=» CF A14,LINE«, t00=0x0030, t01=0x0004}
0x4b0a…4b1c Head {h00=0x000e, h01=0x0050, text=» LDR A1,A9«, t00=0x0030, t01=0x0018}
0x4b1c…4b34 Head {h00=0x0014, h01=0x0050, text=» LC A9,LINFLG,A6«, t00=0x0030, t01=0x002a}
0x4b34…4b46 Head {h00=0x000e, h01=0x0050, text=» ORKL A9,1«, t00=0x0030, t01=0x0042}
0x4b46…4b5e Head {h00=0x0014, h01=0x0050, text=» SC A9,LINFLG,A6«, t00=0x0030, t01=0x0054}
0x4b5e…4b8e Head {h00=0x002c, h01=0x0050, text=» CF A14,STOVDU STORE CHAR IN VDU BUFFER «, t00=0x0030, t01=0x006c}
0x4b8e…4bb8 Head {h00=0x0026, h01=0x0050, text=» LDKL A1,LBVDU-1 LAST SCREEN POS. «, t00=0x0030, t01=0x009c}
0x4bb8…4bd0 Head {h00=0x0014, h01=0x0050, text=» LDKL A4,LBVDU-1«, t00=0x0030, t01=0x00c6}
0x4bd0…4be2 Head {h00=0x000e, h01=0x0050, text=» RB INS450«, t00=0x0030, t01=0x00de}
0x4be2…4bf6 Head {h00=0x0010, h01=0x0050, text=»INS600 EQU *«, t00=0x0030, t01=0x00f0}
0x4bf6…4c16 Head {h00=0x001c, h01=0x0050, text=» LDR A7,A2 GET KEY-CHAR «, t00=0x0030, t01=0x0104}
0x4c16…4c46 Head {h00=0x002c, h01=0x0050, text=» CF A14,STOVDU STORE CHAR IN VDU BUFFER «, t00=0x0030, t01=0x0124}
0x4c46…4c5c Head {h00=0x0012, h01=0x0050, text=» LDK A5,LLINE «, t00=0x0030, t01=0x0154}
0x4c5c…4c70 Head {h00=0x0010, h01=0x0050, text=» LDR A6,A11 «, t00=0x0030, t01=0x016a}
0x4c70…4c84 Head {h00=0x0010, h01=0x0050, text=» CF A14,LINE«, t00=0x0030, t01=0x017e}
0x4c84…4c9c (49, 0, 400) Head {h00=0x0014, h01=0x0050, text=» LC A9,LINFLG,A6«, t00=0x0031, t01=0x0004}
0x4c9c…4cae Head {h00=0x000e, h01=0x0050, text=» ORKL A9,1«, t00=0x0031, t01=0x001c}
0x4cae…4cc6 Head {h00=0x0014, h01=0x0050, text=» SC A9,LINFLG,A6«, t00=0x0031, t01=0x002e}
0x4cc6…4ce8 Head {h00=0x001e, h01=0x0050, text=» IM PCURS,A11 MOVE CURSOR «, t00=0x0031, t01=0x0046}
0x4ce8…4d00 Head {h00=0x0014, h01=0x0050, text=» LD A4,REGI,A11 «, t00=0x0031, t01=0x0068}
0x4d00…4d12 Head {h00=0x000e, h01=0x0050, text=» ADK A4,1 «, t00=0x0031, t01=0x0080}
0x4d12…4d36 Head {h00=0x0020, h01=0x0050, text=» CWK A4,LBVDU-1 WRAP AROUND?«, t00=0x0031, t01=0x0092}
0x4d36…4d50 Head {h00=0x0016, h01=0x0050, text=» RF(NG) INS700 NO «, t00=0x0031, t01=0x00b6}
0x4d50…4d76 Head {h00=0x0022, h01=0x0050, text=» LDK A4,0 FIRST POS. ON SCREEN«, t00=0x0031, t01=0x00d0}
0x4d76…4d8c Head {h00=0x0012, h01=0x0050, text=» CM PCURS,A11 «, t00=0x0031, t01=0x00f6}
0x4d8c…4da0 Head {h00=0x0010, h01=0x0050, text=»INS700 EQU *«, t00=0x0031, t01=0x010c}
0x4da0…4dce Head {h00=0x002a, h01=0x0050, text=» CF A14,DISMOD DISPLAY MODIFIED FIELD «, t00=0x0031, t01=0x0120}
0x4dce…4df6 Head {h00=0x0024, h01=0x0050, text=» LDK A1,1 INDICATE NORMAL INSERT«, t00=0x0031, t01=0x014e}
0x4df6…4e0a Head {h00=0x0010, h01=0x0050, text=»INS900 EQU *«, t00=0x0031, t01=0x0176}
0x4e0a…4e1a Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0031, t01=0x018a}
0x4e1a…4e26 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0032, t01=0x000a}
0x4e26…4e34 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0032, t01=0x0016}
0x4e34…4e76 Head {h00=0x003e, h01=0x0050, text=»********************************************************* «, t00=0x0032, t01=0x0024}
0x4e76…4eb8 Head {h00=0x003e, h01=0x0050, text=»* * «, t00=0x0032, t01=0x0066}
0x4eb8…4efa Head {h00=0x003e, h01=0x0050, text=»* UPDCNT UPDATE COUNTERS *«, t00=0x0032, t01=0x00a8}
0x4efa…4f3c Head {h00=0x003e, h01=0x0050, text=»* * «, t00=0x0032, t01=0x00ea}
0x4f3c…4f7e Head {h00=0x003e, h01=0x0050, text=»********************************************************* «, t00=0x0032, t01=0x012c}
0x4f7e…4f9a Head {h00=0x0018, h01=0x0050, text=»* REGISTERS«, t00=0x0032, t01=0x016e}
0x4f9a…4fa4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0032, t01=0x018a}
0x4fa4…4fc8 (51, 0, 400) Head {h00=0x0020, h01=0x0050, text=»* A3= ADDRESS IN VDU BUFFER «, t00=0x0033, t01=0x0004}
0x4fc8…4fe4 Head {h00=0x0018, h01=0x0050, text=»* A4= REL CURSOR POS«, t00=0x0033, t01=0x0028}
0x4fe4…4ffa Head {h00=0x0012, h01=0x0050, text=»* A5= RESERVED«, t00=0x0033, t01=0x0044}
0x4ffa…5016 Head {h00=0x0018, h01=0x0050, text=»* A6= ADDRESS IN ECB«, t00=0x0033, t01=0x005a}
0x5016…5030 Head {h00=0x0016, h01=0x0050, text=»* A7= INDEX IN ECB«, t00=0x0033, t01=0x0076}
0x5030…5046 Head {h00=0x0012, h01=0x0050, text=»* A8= RESERVED«, t00=0x0033, t01=0x0090}
0x5046…505c Head {h00=0x0012, h01=0x0050, text=»* A9= RESERVED«, t00=0x0033, t01=0x00a6}
0x505c…5074 Head {h00=0x0014, h01=0x0050, text=»* A10= RESERVED «, t00=0x0033, t01=0x00bc}
0x5074…508c Head {h00=0x0014, h01=0x0050, text=»* A11= RESERVED «, t00=0x0033, t01=0x00d4}
0x508c…50a4 Head {h00=0x0014, h01=0x0050, text=»* A13= RESERVED «, t00=0x0033, t01=0x00ec}
0x50a4…50ae Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0033, t01=0x0104}
0x50ae…50f0 Head {h00=0x003e, h01=0x0050, text=»********************************************************* «, t00=0x0033, t01=0x010e}
0x50f0…5104 Head {h00=0x0010, h01=0x0050, text=»UPDCNT EQU *«, t00=0x0033, t01=0x0150}
0x5104…5116 Head {h00=0x000e, h01=0x0050, text=» ADK A3,1 «, t00=0x0033, t01=0x0164}
0x5116…5128 Head {h00=0x000e, h01=0x0050, text=» ADK A4,1 «, t00=0x0033, t01=0x0176}
0x5128…513a Head {h00=0x000e, h01=0x0050, text=» ADK A6,1 «, t00=0x0033, t01=0x0188}
0x513a…514c Head {h00=0x000e, h01=0x0050, text=» ADK A7,1 «, t00=0x0034, t01=0x000a}
0x514c…515c Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0034, t01=0x001c}
0x515c…516a Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0034, t01=0x002c}
0x516a…51b2 Head {h00=0x0044, h01=0x0050, text=»****************************************************************«, t00=0x0034, t01=0x003a}
0x51b2…51fa Head {h00=0x0044, h01=0x0050, text=»* *«, t00=0x0034, t01=0x0082}
0x51fa…5242 Head {h00=0x0044, h01=0x0050, text=»* GETVDU GET CHAR. IN VDU BUFFER *«, t00=0x0034, t01=0x00ca}
0x5242…528a Head {h00=0x0044, h01=0x0050, text=»* *«, t00=0x0034, t01=0x0112}
0x528a…52d2 Head {h00=0x0044, h01=0x0050, text=»****************************************************************«, t00=0x0034, t01=0x015a}
0x52d2…52e6 Head {h00=0x0010, h01=0x0050, text=»* REGISTERS«, t00=0x0035, t01=0x0012}
0x52e6…52f0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0035, t01=0x0026}
0x52f0…5314 Head {h00=0x0020, h01=0x0050, text=»* A1= REL. POS IN VDU BUFFER«, t00=0x0035, t01=0x0030}
0x5314…532a Head {h00=0x0012, h01=0x0050, text=»* A2= RESERVED«, t00=0x0035, t01=0x0054}
0x532a…5340 Head {h00=0x0012, h01=0x0050, text=»* A3= RESERVED«, t00=0x0035, t01=0x006a}
0x5340…5356 Head {h00=0x0012, h01=0x0050, text=»* A4= RESERVED«, t00=0x0035, t01=0x0080}
0x5356…536c Head {h00=0x0012, h01=0x0050, text=»* A5= RESERVED«, t00=0x0035, t01=0x0096}
0x536c…5382 Head {h00=0x0012, h01=0x0050, text=»* A6= RESERVED«, t00=0x0035, t01=0x00ac}
0x5382…53a6 Head {h00=0x0020, h01=0x0050, text=»* A7= CHAR. FROM VDU BUFFER «, t00=0x0035, t01=0x00c2}
0x53a6…53bc Head {h00=0x0012, h01=0x0050, text=»* A8= RESERVED«, t00=0x0035, t01=0x00e6}
0x53bc…53d2 Head {h00=0x0012, h01=0x0050, text=»* A9= RESERVED«, t00=0x0035, t01=0x00fc}
0x53d2…53ea Head {h00=0x0014, h01=0x0050, text=»* A10= RESERVED «, t00=0x0035, t01=0x0112}
0x53ea…540a Head {h00=0x001c, h01=0x0050, text=»* A11= CREDIT WORK AREA «, t00=0x0035, t01=0x012a}
0x540a…5422 Head {h00=0x0014, h01=0x0050, text=»* A13= RESERVED «, t00=0x0035, t01=0x014a}
0x5422…542c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0035, t01=0x0162}
0x542c…546c Head {h00=0x003c, h01=0x0050, text=»********************************************************«, t00=0x0035, t01=0x016c}
0x546c…5480 Head {h00=0x0010, h01=0x0050, text=»GETVDU EQU *«, t00=0x0036, t01=0x001c}
0x5480…5496 Head {h00=0x0012, h01=0x0050, text=» LDKL A7,BVDU «, t00=0x0036, t01=0x0030}
0x5496…54aa Head {h00=0x0010, h01=0x0050, text=» ADR A7,A11 «, t00=0x0036, t01=0x0046}
0x54aa…54bc Head {h00=0x000e, h01=0x0050, text=» ADR A7,A1«, t00=0x0036, t01=0x005a}
0x54bc…54ce Head {h00=0x000e, h01=0x0050, text=» LCR A7,A7«, t00=0x0036, t01=0x006c}
0x54ce…54e2 Head {h00=0x0010, h01=0x0050, text=» ANK A7,/FF «, t00=0x0036, t01=0x007e}
0x54e2…54f2 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0036, t01=0x0092}
0x54f2…5500 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0036, t01=0x00a2}
0x5500…5546 Head {h00=0x0042, h01=0x0050, text=»**************************************************************«, t00=0x0036, t01=0x00b0}
0x5546…558c Head {h00=0x0042, h01=0x0050, text=»* *«, t00=0x0036, t01=0x00f6}
0x558c…55d2 Head {h00=0x0042, h01=0x0050, text=»* STOVDU STORE CHAR. IN VDU BUFFER *«, t00=0x0036, t01=0x013c}
0x55d2…5618 Head {h00=0x0042, h01=0x0050, text=»* *«, t00=0x0036, t01=0x0182}
0x5618…565e Head {h00=0x0042, h01=0x0050, text=»**************************************************************«, t00=0x0037, t01=0x0038}
0x565e…5672 Head {h00=0x0010, h01=0x0050, text=»* REGISTERS«, t00=0x0037, t01=0x007e}
0x5672…567c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0037, t01=0x0092}
0x567c…56a2 Head {h00=0x0022, h01=0x0050, text=»* A1= REL. POS. IN VDU BUFFER «, t00=0x0037, t01=0x009c}
0x56a2…56b8 Head {h00=0x0012, h01=0x0050, text=»* A2= RESERVED«, t00=0x0037, t01=0x00c2}
0x56b8…56ce Head {h00=0x0012, h01=0x0050, text=»* A3= RESERVED«, t00=0x0037, t01=0x00d8}
0x56ce…56e4 Head {h00=0x0012, h01=0x0050, text=»* A4= RESERVED«, t00=0x0037, t01=0x00ee}
0x56e4…56fa Head {h00=0x0012, h01=0x0050, text=»* A5= RESERVED«, t00=0x0037, t01=0x0104}
0x56fa…5710 Head {h00=0x0012, h01=0x0050, text=»* A6= RESERVED«, t00=0x0037, t01=0x011a}
0x5710…573a Head {h00=0x0026, h01=0x0050, text=»* A7= CHAR. TO STORE IN VDU BUFFER«, t00=0x0037, t01=0x0130}
0x573a…5750 Head {h00=0x0012, h01=0x0050, text=»* A9= RESERVED«, t00=0x0037, t01=0x015a}
0x5750…5768 Head {h00=0x0014, h01=0x0050, text=»* A10= RESERVED «, t00=0x0037, t01=0x0170}
0x5768…5788 Head {h00=0x001c, h01=0x0050, text=»* A11= CREDIT WORK AREA «, t00=0x0037, t01=0x0188}
0x5788…57a0 Head {h00=0x0014, h01=0x0050, text=»* A13= RESERVED «, t00=0x0038, t01=0x0018}
0x57a0…57aa Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0038, t01=0x0030}
0x57aa…57ea Head {h00=0x003c, h01=0x0050, text=»********************************************************«, t00=0x0038, t01=0x003a}
0x57ea…57fe Head {h00=0x0010, h01=0x0050, text=»STOVDU EQU *«, t00=0x0038, t01=0x007a}
0x57fe…5814 Head {h00=0x0012, h01=0x0050, text=» LDKL A8,BVDU «, t00=0x0038, t01=0x008e}
0x5814…5828 Head {h00=0x0010, h01=0x0050, text=» ADR A8,A11 «, t00=0x0038, t01=0x00a4}
0x5828…583a Head {h00=0x000e, h01=0x0050, text=» ADR A8,A1«, t00=0x0038, t01=0x00b8}
0x583a…584c Head {h00=0x000e, h01=0x0050, text=» SCR A7,A8«, t00=0x0038, t01=0x00ca}
0x584c…585c Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0038, t01=0x00dc}
0x585c…586a Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0038, t01=0x00ec}
0x586a…58aa Head {h00=0x003c, h01=0x0050, text=»********************************************************«, t00=0x0038, t01=0x00fa}
0x58aa…58ea Head {h00=0x003c, h01=0x0050, text=»* *«, t00=0x0038, t01=0x013a}
0x58ea…592a Head {h00=0x003c, h01=0x0050, text=»* SCRINF GET SCREEN INFORMATION *«, t00=0x0038, t01=0x017a}
0x592a…596a Head {h00=0x003c, h01=0x0050, text=»* *«, t00=0x0039, t01=0x002a}
0x596a…59aa Head {h00=0x003c, h01=0x0050, text=»********************************************************«, t00=0x0039, t01=0x006a}
0x59aa…59be Head {h00=0x0010, h01=0x0050, text=»* REGISTERS«, t00=0x0039, t01=0x00aa}
0x59be…59c8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0039, t01=0x00be}
0x59c8…59de Head {h00=0x0012, h01=0x0050, text=»* A2= RESERVED«, t00=0x0039, t01=0x00c8}
0x59de…59fc Head {h00=0x001a, h01=0x0050, text=»* A4= REL. CURSOR POS.«, t00=0x0039, t01=0x00de}
0x59fc…5a1e Head {h00=0x001e, h01=0x0050, text=»* A5= REL. ATTRIBUTE POS. «, t00=0x0039, t01=0x00fc}
0x5a1e…5a3c Head {h00=0x001a, h01=0x0050, text=»* A6= ATTRIBUTE CHAR. «, t00=0x0039, t01=0x011e}
0x5a3c…5a5c Head {h00=0x001c, h01=0x0050, text=»* A11= CREDIT WORK AREA «, t00=0x0039, t01=0x013c}
0x5a5c…5a74 Head {h00=0x0014, h01=0x0050, text=»* A13= RESERVED «, t00=0x0039, t01=0x015c}
0x5a74…5a7e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0039, t01=0x0174}
0x5a7e…5abe Head {h00=0x003c, h01=0x0050, text=»******************************************************* «, t00=0x0039, t01=0x017e}
0x5abe…5ad2 Head {h00=0x0010, h01=0x0050, text=»SCRINF EQU *«, t00=0x003a, t01=0x002e}
0x5ad2…5afa Head {h00=0x0024, h01=0x0050, text=» LD A4,PCURS,A11 GET CURSOR POS.«, t00=0x003a, t01=0x0042}
0x5afa…5b26 Head {h00=0x0028, h01=0x0050, text=» LD A5,CURATT,A11 GET ATTRIBUTE POS.«, t00=0x003a, t01=0x006a}
0x5b26…5b54 Head {h00=0x002a, h01=0x0050, text=» LD A6,ATTRIB,A11 GET ATTRIBUTE CHAR. «, t00=0x003a, t01=0x0096}
0x5b54…5b64 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x003a, t01=0x00c4}
0x5b64…5b72 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x003a, t01=0x00d4}
0x5b72…5bb2 Head {h00=0x003c, h01=0x0050, text=»********************************************************«, t00=0x003a, t01=0x00e2}
0x5bb2…5bf2 Head {h00=0x003c, h01=0x0050, text=»* *«, t00=0x003a, t01=0x0122}
0x5bf2…5c32 Head {h00=0x003c, h01=0x0050, text=»* STOINF STORE SCREEN INFORMATION *«, t00=0x003a, t01=0x0162}
0x5c32…5c72 Head {h00=0x003c, h01=0x0050, text=»* *«, t00=0x003b, t01=0x0012}
0x5c72…5cb2 Head {h00=0x003c, h01=0x0050, text=»********************************************************«, t00=0x003b, t01=0x0052}
0x5cb2…5cc6 Head {h00=0x0010, h01=0x0050, text=»* REGISTERS«, t00=0x003b, t01=0x0092}
0x5cc6…5cd0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003b, t01=0x00a6}
0x5cd0…5cee Head {h00=0x001a, h01=0x0050, text=»* A4= REL. CURSOR POS.«, t00=0x003b, t01=0x00b0}
0x5cee…5d10 Head {h00=0x001e, h01=0x0050, text=»* A5= REL. ATTRIBUTE POS. «, t00=0x003b, t01=0x00ce}
0x5d10…5d2e Head {h00=0x001a, h01=0x0050, text=»* A6= ATTRIBUTE CHAR. «, t00=0x003b, t01=0x00f0}
0x5d2e…5d4e Head {h00=0x001c, h01=0x0050, text=»* A11= CREDIT WORK AREA «, t00=0x003b, t01=0x010e}
0x5d4e…5d66 Head {h00=0x0014, h01=0x0050, text=»* A13= RESERVED «, t00=0x003b, t01=0x012e}
0x5d66…5d70 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003b, t01=0x0146}
0x5d70…5db0 Head {h00=0x003c, h01=0x0050, text=»********************************************************«, t00=0x003b, t01=0x0150}
0x5db0…5dc4 Head {h00=0x0010, h01=0x0050, text=»STOINF EQU *«, t00=0x003b, t01=0x0190}
0x5dc4…5ddc Head {h00=0x0014, h01=0x0050, text=» ST A4,PCURS,A11«, t00=0x003c, t01=0x0014}
0x5ddc…5df6 Head {h00=0x0016, h01=0x0050, text=» ST A5,CURATT,A11 «, t00=0x003c, t01=0x002c}
0x5df6…5e10 Head {h00=0x0016, h01=0x0050, text=» ST A6,ATTRIB,A11 «, t00=0x003c, t01=0x0046}
0x5e10…5e20 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x003c, t01=0x0060}
0x5e20…5e2e Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x003c, t01=0x0070}
0x5e2e…5e6e Head {h00=0x003c, h01=0x0050, text=»******************************************************* «, t00=0x003c, t01=0x007e}
0x5e6e…5eae Head {h00=0x003c, h01=0x0050, text=»* * «, t00=0x003c, t01=0x00be}
0x5eae…5eee Head {h00=0x003c, h01=0x0050, text=»* SOUND SOUND ALARM ON VDU * «, t00=0x003c, t01=0x00fe}
0x5eee…5f2e Head {h00=0x003c, h01=0x0050, text=»* * «, t00=0x003c, t01=0x013e}
0x5f2e…5f6e Head {h00=0x003c, h01=0x0050, text=»******************************************************* «, t00=0x003c, t01=0x017e}
0x5f6e…5f82 Head {h00=0x0010, h01=0x0050, text=»* REGISTERS«, t00=0x003d, t01=0x002e}
0x5f82…5f8c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003d, t01=0x0042}
0x5f8c…5fa6 Head {h00=0x0016, h01=0x0050, text=»* A1= RETURN CODE «, t00=0x003d, t01=0x004c}
0x5fa6…5fba Head {h00=0x0010, h01=0x0050, text=»* A8= ECBVDU«, t00=0x003d, t01=0x0066}
0x5fba…5fda Head {h00=0x001c, h01=0x0050, text=»* A11= CREDIT WORK AREA «, t00=0x003d, t01=0x007a}
0x5fda…5ff2 Head {h00=0x0014, h01=0x0050, text=»* A13= RESERVED «, t00=0x003d, t01=0x009a}
0x5ff2…5ffc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003d, t01=0x00b2}
0x5ffc…603c Head {h00=0x003c, h01=0x0050, text=»******************************************************* «, t00=0x003d, t01=0x00bc}
0x603c…6050 Head {h00=0x0010, h01=0x0050, text=»SOUND EQU * «, t00=0x003d, t01=0x00fc}
0x6050…606a Head {h00=0x0016, h01=0x0050, text=» LD A8,ECBVDU,A11 «, t00=0x003d, t01=0x0110}
0x606a…6082 Head {h00=0x0014, h01=0x0050, text=» LD A1,ECBBA,A8 «, t00=0x003d, t01=0x012a}
0x6082…60a4 Head {h00=0x001e, h01=0x0050, text=» LDK A2,/2B CONTROL CHAR. «, t00=0x003d, t01=0x0142}
0x60a4…60b8 Head {h00=0x0010, h01=0x0050, text=» SC A2,1,A1 «, t00=0x003d, t01=0x0164}
0x60b8…60d6 Head {h00=0x001a, h01=0x0050, text=» LDK A2,/07 BELL CHAR.«, t00=0x003d, t01=0x0178}
0x60d6…60ea Head {h00=0x0010, h01=0x0050, text=» SC A2,2,A1 «, t00=0x003e, t01=0x0008}
0x60ea…6108 Head {h00=0x001a, h01=0x0050, text=» LDK A2,3 REQ. LENGTH «, t00=0x003e, t01=0x001c}
0x6108…6120 Head {h00=0x0014, h01=0x0050, text=» ST A2,ECBRL,A8 «, t00=0x003e, t01=0x003a}
0x6120…6134 Head {h00=0x0010, h01=0x0050, text=» LDK A7,/86 «, t00=0x003e, t01=0x0052}
0x6134…6140 Head {h00=0x0008, h01=0x0050, text=» LKM«, t00=0x003e, t01=0x0066}
0x6140…6150 Head {h00=0x000c, h01=0x0050, text=» DATA 1 «, t00=0x003e, t01=0x0072}
0x6150…6178 Head {h00=0x0024, h01=0x0050, text=» LD A1,ECBRC,A8 GET RETURN CODE «, t00=0x003e, t01=0x0082}
0x6178…6188 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x003e, t01=0x00aa}
0x6188…6196 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x003e, t01=0x00ba}
0x6196…61d4 Head {h00=0x003a, h01=0x0050, text=»***************************************************** «, t00=0x003e, t01=0x00c8}
0x61d4…6212 Head {h00=0x003a, h01=0x0050, text=»* * «, t00=0x003e, t01=0x0106}
0x6212…6250 Head {h00=0x003a, h01=0x0050, text=»* WRAP CHECK IF WRAP AROUND * «, t00=0x003e, t01=0x0144}
0x6250…628e Head {h00=0x003a, h01=0x0050, text=»* * «, t00=0x003e, t01=0x0182}
0x628e…62cc Head {h00=0x003a, h01=0x0050, text=»***************************************************** «, t00=0x003f, t01=0x0030}
0x62cc…62e0 Head {h00=0x0010, h01=0x0050, text=»* REGISTERS«, t00=0x003f, t01=0x006e}
0x62e0…62ea Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003f, t01=0x0082}
0x62ea…6300 Head {h00=0x0012, h01=0x0050, text=»* A2= RESERVED«, t00=0x003f, t01=0x008c}
0x6300…6324 Head {h00=0x0020, h01=0x0050, text=»* A3= ADDRESS IN VDU BUFFER «, t00=0x003f, t01=0x00a2}
0x6324…6342 Head {h00=0x001a, h01=0x0050, text=»* A4= REL. CURSOR POS.«, t00=0x003f, t01=0x00c6}
0x6342…6358 Head {h00=0x0012, h01=0x0050, text=»* A5= RESERVED«, t00=0x003f, t01=0x00e4}
0x6358…636e Head {h00=0x0012, h01=0x0050, text=»* A6= RESERVED«, t00=0x003f, t01=0x00fa}
0x636e…6384 Head {h00=0x0012, h01=0x0050, text=»* A7= RESERVED«, t00=0x003f, t01=0x0110}
0x6384…639a Head {h00=0x0012, h01=0x0050, text=»* A8= RESERVED«, t00=0x003f, t01=0x0126}
0x639a…63b0 Head {h00=0x0012, h01=0x0050, text=»* A9= RESERVED«, t00=0x003f, t01=0x013c}
0x63b0…63c8 Head {h00=0x0014, h01=0x0050, text=»* A10= RESERVED «, t00=0x003f, t01=0x0152}
0x63c8…63e8 Head {h00=0x001c, h01=0x0050, text=»* A11= CREDIT WORK AREA «, t00=0x003f, t01=0x016a}
0x63e8…6400 Head {h00=0x0014, h01=0x0050, text=»* A13= RESERVED «, t00=0x003f, t01=0x018a}
0x6400…640a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0040, t01=0x0012}
0x640a…6448 Head {h00=0x003a, h01=0x0050, text=»***************************************************** «, t00=0x0040, t01=0x001c}
0x6448…645a Head {h00=0x000e, h01=0x0050, text=»WRAP EQU *«, t00=0x0040, t01=0x005a}
0x645a…647c Head {h00=0x001e, h01=0x0050, text=» CWK A4,LBVDU WRAP AROUND «, t00=0x0040, t01=0x006c}
0x647c…6494 Head {h00=0x0014, h01=0x0050, text=» RF(L) WRAP90 NO«, t00=0x0040, t01=0x008e}
0x6494…64b8 Head {h00=0x0020, h01=0x0050, text=» LDK A4,0 FIRST SCREEN POS. «, t00=0x0040, t01=0x00a6}
0x64b8…64ce Head {h00=0x0012, h01=0x0050, text=» LDKL A3,BVDU «, t00=0x0040, t01=0x00ca}
0x64ce…64e2 Head {h00=0x0010, h01=0x0050, text=» ADR A3,A11 «, t00=0x0040, t01=0x00e0}
0x64e2…64f6 Head {h00=0x0010, h01=0x0050, text=»WRAP90 EQU *«, t00=0x0040, t01=0x00f4}
0x64f6…6506 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0040, t01=0x0108}
0x6506…6514 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0040, t01=0x0118}
0x6514…6558 Head {h00=0x0040, h01=0x0050, text=»************************************************************«, t00=0x0040, t01=0x0126}
0x6558…659c Head {h00=0x0040, h01=0x0050, text=»* *«, t00=0x0040, t01=0x016a}
0x659c…65e2 Head {h00=0x0042, h01=0x0050, text=»* LINWRP CHECK LINE WRAP * «, t00=0x0041, t01=0x001e}
0x65e2…6626 Head {h00=0x0040, h01=0x0050, text=»* *«, t00=0x0041, t01=0x0064}
0x6626…666a Head {h00=0x0040, h01=0x0050, text=»************************************************************«, t00=0x0041, t01=0x00a8}
0x666a…667e Head {h00=0x0010, h01=0x0050, text=»* REGISTERS«, t00=0x0041, t01=0x00ec}
0x667e…6688 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0041, t01=0x0100}
0x6688…669e Head {h00=0x0012, h01=0x0050, text=»* A3= RESERVED«, t00=0x0041, t01=0x010a}
0x669e…66ba Head {h00=0x0018, h01=0x0050, text=»* A4= REL CURSOR POS«, t00=0x0041, t01=0x0120}
0x66ba…66dc Head {h00=0x001e, h01=0x0050, text=»* A5= LAST IN ROW REL POS «, t00=0x0041, t01=0x013c}
0x66dc…66f2 Head {h00=0x0012, h01=0x0050, text=»* A6= RESERVED«, t00=0x0041, t01=0x015e}
0x66f2…6708 Head {h00=0x0012, h01=0x0050, text=»* A8= RESERVED«, t00=0x0041, t01=0x0174}
0x6708…671e Head {h00=0x0012, h01=0x0050, text=»* A9= RESERVED«, t00=0x0041, t01=0x018a}
0x671e…6736 Head {h00=0x0014, h01=0x0050, text=»* A10= RESERVED «, t00=0x0042, t01=0x0010}
0x6736…674e Head {h00=0x0014, h01=0x0050, text=»* A11= RESERVED «, t00=0x0042, t01=0x0028}
0x674e…6766 Head {h00=0x0014, h01=0x0050, text=»* A13= RESERVED «, t00=0x0042, t01=0x0040}
0x6766…6770 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0042, t01=0x0058}
0x6770…67b4 Head {h00=0x0040, h01=0x0050, text=»*********************************************************** «, t00=0x0042, t01=0x0062}
0x67b4…67c8 Head {h00=0x0010, h01=0x0050, text=»LINWRP EQU *«, t00=0x0042, t01=0x00a6}
0x67c8…67e8 Head {h00=0x001c, h01=0x0050, text=» CWR A5,A4 END OF LINE? «, t00=0x0042, t01=0x00ba}
0x67e8…6800 Head {h00=0x0014, h01=0x0050, text=» RF(G) LINW10 NO«, t00=0x0042, t01=0x00da}
0x6800…6826 Head {h00=0x0022, h01=0x0050, text=» CF A14,LINE UPDATE LINE FLAG «, t00=0x0042, t01=0x00f2}
0x6826…683a Head {h00=0x0010, h01=0x0050, text=»LINW10 EQU *«, t00=0x0042, t01=0x0118}
0x683a…684a Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0042, t01=0x012c}
0x684a…6858 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0042, t01=0x013c}
0x6858…689c Head {h00=0x0040, h01=0x0050, text=»************************************************************«, t00=0x0042, t01=0x014a}
0x689c…68e0 Head {h00=0x0040, h01=0x0050, text=»* *«, t00=0x0042, t01=0x018e}
0x68e0…6924 Head {h00=0x0040, h01=0x0050, text=»* LINE UPDATE LINE FLAG *«, t00=0x0043, t01=0x0042}
0x6924…6968 Head {h00=0x0040, h01=0x0050, text=»* *«, t00=0x0043, t01=0x0086}
0x6968…69ae Head {h00=0x0042, h01=0x0050, text=»************************************************************* «, t00=0x0043, t01=0x00ca}
0x69ae…69c2 Head {h00=0x0010, h01=0x0050, text=»* REGISTERS«, t00=0x0043, t01=0x0110}
0x69c2…69cc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0043, t01=0x0124}
0x69cc…69f0 Head {h00=0x0020, h01=0x0050, text=»* A3= ADDRESS IN VDU BUFFER «, t00=0x0043, t01=0x012e}
0x69f0…6a0c Head {h00=0x0018, h01=0x0050, text=»* A4= REL CURSOR POS«, t00=0x0043, t01=0x0152}
0x6a0c…6a2e Head {h00=0x001e, h01=0x0050, text=»* A5= LAST IN ROW REL POS «, t00=0x0043, t01=0x016e}
0x6a2e…6a56 Head {h00=0x0024, h01=0x0050, text=»* A6= INTERNAL LINE FLAG ADDRESS«, t00=0x0043, t01=0x0190}
0x6a56…6a6c Head {h00=0x0012, h01=0x0050, text=»* A8= RESERVED«, t00=0x0044, t01=0x0028}
0x6a6c…6a82 Head {h00=0x0012, h01=0x0050, text=»* A9= RESERVED«, t00=0x0044, t01=0x003e}
0x6a82…6a9a Head {h00=0x0014, h01=0x0050, text=»* A10= RESERFED «, t00=0x0044, t01=0x0054}
0x6a9a…6aba Head {h00=0x001c, h01=0x0050, text=»* A11= CREDIT WORK AREA «, t00=0x0044, t01=0x006c}
0x6aba…6ad2 Head {h00=0x0014, h01=0x0050, text=»* A13= RESERVED «, t00=0x0044, t01=0x008c}
0x6ad2…6adc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0044, t01=0x00a4}
0x6adc…6b20 Head {h00=0x0040, h01=0x0050, text=»*********************************************************** «, t00=0x0044, t01=0x00ae}
0x6b20…6b32 Head {h00=0x000e, h01=0x0050, text=»LINE EQU *«, t00=0x0044, t01=0x00f2}
0x6b32…6b50 Head {h00=0x001a, h01=0x0050, text=» CWR A5,A4 THIS LINE? «, t00=0x0044, t01=0x0104}
0x6b50…6b70 Head {h00=0x001c, h01=0x0050, text=» RF(G) LIN400 YES,MAYBE «, t00=0x0044, t01=0x0122}
0x6b70…6b84 Head {h00=0x0010, h01=0x0050, text=» LDR A1,A10 «, t00=0x0044, t01=0x0142}
0x6b84…6bae Head {h00=0x0026, h01=0x0050, text=» ANK A1,ATTREC ATTRIBUTE RECEIVED?«, t00=0x0044, t01=0x0156}
0x6bae…6bc6 Head {h00=0x0014, h01=0x0050, text=» RF(Z) LIN100 NO«, t00=0x0044, t01=0x0180}
0x6bc6…6bde Head {h00=0x0014, h01=0x0050, text=» LC A1,LINFLG,A6«, t00=0x0045, t01=0x0008}
0x6bde…6bf0 Head {h00=0x000e, h01=0x0050, text=» ORK A1,2 «, t00=0x0045, t01=0x0020}
0x6bf0…6c08 Head {h00=0x0014, h01=0x0050, text=» SC A1,LINFLG,A6«, t00=0x0045, t01=0x0032}
0x6c08…6c1c Head {h00=0x0010, h01=0x0050, text=»LIN100 EQU *«, t00=0x0045, t01=0x004a}
0x6c1c…6c30 Head {h00=0x0010, h01=0x0050, text=» SUR A6,A11 «, t00=0x0045, t01=0x005e}
0x6c30…6c50 Head {h00=0x001c, h01=0x0050, text=» ADK A6,1 UPDATE ADDRESS«, t00=0x0045, t01=0x0072}
0x6c50…6c70 Head {h00=0x001c, h01=0x0050, text=» CWK A6,23 WRAP SCREEN? «, t00=0x0045, t01=0x0092}
0x6c70…6c8a Head {h00=0x0016, h01=0x0050, text=» RF(G) LIN300 YES «, t00=0x0045, t01=0x00b2}
0x6c8a…6ca0 Head {h00=0x0012, h01=0x0050, text=» ADK A5,LLINE «, t00=0x0045, t01=0x00cc}
0x6ca0…6cb4 Head {h00=0x0010, h01=0x0050, text=» ADR A6,A11 «, t00=0x0045, t01=0x00e2}
0x6cb4…6cc4 Head {h00=0x000c, h01=0x0050, text=» RB LINE«, t00=0x0045, t01=0x00f6}
0x6cc4…6cd8 Head {h00=0x0010, h01=0x0050, text=»LIN300 EQU *«, t00=0x0045, t01=0x0106}
0x6cd8…6cfc Head {h00=0x0020, h01=0x0050, text=» LDK A4,0 FIRST SCREEN POS. «, t00=0x0045, t01=0x011a}
0x6cfc…6d12 Head {h00=0x0012, h01=0x0050, text=» LDKL A3,BVDU «, t00=0x0045, t01=0x013e}
0x6d12…6d26 Head {h00=0x0010, h01=0x0050, text=» ADR A3,A11 «, t00=0x0045, t01=0x0154}
0x6d26…6d3a Head {h00=0x0010, h01=0x0050, text=» LDR A6,A11 «, t00=0x0045, t01=0x0168}
0x6d3a…6d50 Head {h00=0x0012, h01=0x0050, text=» LDK A5,LLINE «, t00=0x0045, t01=0x017c}
0x6d50…6d64 (70, 0, 400) Head {h00=0x0010, h01=0x0050, text=»LIN400 EQU *«, t00=0x0046, t01=0x0004}
0x6d64…6d78 Head {h00=0x0010, h01=0x0050, text=» SUR A5,A4 «, t00=0x0046, t01=0x0018}
0x6d78…6d8a Head {h00=0x000e, h01=0x0050, text=» CWK A5,81«, t00=0x0046, t01=0x002c}
0x6d8a…6daa Head {h00=0x001c, h01=0x0050, text=» RF(L) LIN500 THIS LINE «, t00=0x0046, t01=0x003e}
0x6daa…6dc0 Head {h00=0x0012, h01=0x0050, text=» LDK A5,LLINE «, t00=0x0046, t01=0x005e}
0x6dc0…6dd4 Head {h00=0x0010, h01=0x0050, text=» LDR A6,A11 «, t00=0x0046, t01=0x0074}
0x6dd4…6de4 Head {h00=0x000c, h01=0x0050, text=» RB LINE«, t00=0x0046, t01=0x0088}
0x6de4…6df8 Head {h00=0x0010, h01=0x0050, text=»LIN500 EQU *«, t00=0x0046, t01=0x0098}
0x6df8…6e12 Head {h00=0x0016, h01=0x0050, text=» ADR A5,A4 RESTORE«, t00=0x0046, t01=0x00ac}
0x6e12…6e22 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0046, t01=0x00c6}
0x6e22…6e30 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0046, t01=0x00d6}
0x6e30…6e76 Head {h00=0x0042, h01=0x0050, text=»************************************************************* «, t00=0x0046, t01=0x00e4}
0x6e76…6ebc Head {h00=0x0042, h01=0x0050, text=»* * «, t00=0x0046, t01=0x012a}
0x6ebc…6f02 Head {h00=0x0042, h01=0x0050, text=»* LINATT UPADTE LINFLG AT ATTRIBUTE CHANGE * «, t00=0x0046, t01=0x0170}
0x6f02…6f48 Head {h00=0x0042, h01=0x0050, text=»* * «, t00=0x0047, t01=0x0026}
0x6f48…6f8e Head {h00=0x0042, h01=0x0050, text=»************************************************************* «, t00=0x0047, t01=0x006c}
0x6f8e…6fa2 Head {h00=0x0010, h01=0x0050, text=»* REGISTERS«, t00=0x0047, t01=0x00b2}
0x6fa2…6fac Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0047, t01=0x00c6}
0x6fac…6fd0 Head {h00=0x0020, h01=0x0050, text=»* A3= ADDRESS IN VDU BUFFER «, t00=0x0047, t01=0x00d0}
0x6fd0…6fec Head {h00=0x0018, h01=0x0050, text=»* A4= REL CURSOR POS«, t00=0x0047, t01=0x00f4}
0x6fec…700e Head {h00=0x001e, h01=0x0050, text=»* A5= LAST IN ROW REL POS «, t00=0x0047, t01=0x0110}
0x700e…7036 Head {h00=0x0024, h01=0x0050, text=»* A6= INTERNAL LINE FLAG ADDRESS«, t00=0x0047, t01=0x0132}
0x7036…704c Head {h00=0x0012, h01=0x0050, text=»* A8= RESERVED«, t00=0x0047, t01=0x015a}
0x704c…7062 Head {h00=0x0012, h01=0x0050, text=»* A9= RESERVED«, t00=0x0047, t01=0x0170}
0x7062…707a Head {h00=0x0014, h01=0x0050, text=»* A10= RESERVED «, t00=0x0047, t01=0x0186}
0x707a…709a Head {h00=0x001c, h01=0x0050, text=»* A11= CREDIT WORK AREA «, t00=0x0048, t01=0x000e}
0x709a…70b2 Head {h00=0x0014, h01=0x0050, text=»* A13= RESERVED «, t00=0x0048, t01=0x002e}
0x70b2…70bc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0048, t01=0x0046}
0x70bc…7102 Head {h00=0x0042, h01=0x0050, text=»**************************************************************«, t00=0x0048, t01=0x0050}
0x7102…7116 Head {h00=0x0010, h01=0x0050, text=»LINATT EQU *«, t00=0x0048, t01=0x0096}
0x7116…712c Head {h00=0x0012, h01=0x0050, text=» CF A14,SAVE1 «, t00=0x0048, t01=0x00aa}
0x712c…7140 Head {h00=0x0010, h01=0x0050, text=» SUR A6,A11 «, t00=0x0048, t01=0x00c0}
0x7140…7152 Head {h00=0x000e, h01=0x0050, text=» LDK A2,0 «, t00=0x0048, t01=0x00d4}
0x7152…716a Head {h00=0x0014, h01=0x0050, text=» LDR A10,A4 . =1«, t00=0x0048, t01=0x00e6}
0x716a…717e Head {h00=0x0010, h01=0x0050, text=»LINA10 EQU *«, t00=0x0048, t01=0x00fe}
0x717e…7190 Head {h00=0x000e, h01=0x0050, text=» ADK A4,1 «, t00=0x0048, t01=0x0112}
0x7190…71a2 Head {h00=0x000e, h01=0x0050, text=» ADK A3,1 «, t00=0x0048, t01=0x0124}
0x71a2…71c2 Head {h00=0x001c, h01=0x0050, text=» CWR A5,A4 END OF LINE? «, t00=0x0048, t01=0x0136}
0x71c2…71da Head {h00=0x0014, h01=0x0050, text=» RF(G) LINA30 NO«, t00=0x0048, t01=0x0156}
0x71da…71ee Head {h00=0x0010, h01=0x0050, text=» ADR A6,A11 «, t00=0x0048, t01=0x016e}
0x71ee…7206 Head {h00=0x0014, h01=0x0050, text=» LC A1,LINFLG,A6«, t00=0x0048, t01=0x0182}
0x7206…7218 Head {h00=0x000e, h01=0x0050, text=» ORK A1,1 «, t00=0x0049, t01=0x000a}
0x7218…7230 Head {h00=0x0014, h01=0x0050, text=» SC A1,LINFLG,A6«, t00=0x0049, t01=0x001c}
0x7230…7244 Head {h00=0x0010, h01=0x0050, text=» SUR A6,A11 «, t00=0x0049, t01=0x0034}
0x7244…7256 Head {h00=0x000e, h01=0x0050, text=» ADK A6,1 «, t00=0x0049, t01=0x0048}
0x7256…7276 Head {h00=0x001c, h01=0x0050, text=» CWK A6,23 WRAP AROUND? «, t00=0x0049, t01=0x005a}
0x7276…7290 Head {h00=0x0016, h01=0x0050, text=» RF(G) LINA20 YES «, t00=0x0049, t01=0x007a}
0x7290…72a6 Head {h00=0x0012, h01=0x0050, text=» ADK A5,LLINE «, t00=0x0049, t01=0x0094}
0x72a6…72b8 Head {h00=0x000e, h01=0x0050, text=» RF LINA30«, t00=0x0049, t01=0x00aa}
0x72b8…72cc Head {h00=0x0010, h01=0x0050, text=»LINA20 EQU *«, t00=0x0049, t01=0x00bc}
0x72cc…72de Head {h00=0x000e, h01=0x0050, text=» LDK A6,0 «, t00=0x0049, t01=0x00d0}
0x72de…72f0 Head {h00=0x000e, h01=0x0050, text=» LDK A4,0 «, t00=0x0049, t01=0x00e2}
0x72f0…7306 Head {h00=0x0012, h01=0x0050, text=» LDKL A3,BVDU «, t00=0x0049, t01=0x00f4}
0x7306…731a Head {h00=0x0010, h01=0x0050, text=» ADR A3,A11 «, t00=0x0049, t01=0x010a}
0x731a…7330 Head {h00=0x0012, h01=0x0050, text=» LDK A5,LLINE «, t00=0x0049, t01=0x011e}
0x7330…7344 Head {h00=0x0010, h01=0x0050, text=»LINA30 EQU *«, t00=0x0049, t01=0x0134}
0x7344…7368 Head {h00=0x0020, h01=0x0050, text=» CWR A4,A10 ALL CHECKED? =1 «, t00=0x0049, t01=0x0148}
0x7368…7384 Head {h00=0x0018, h01=0x0050, text=» RF(E) LINA40 YES =1«, t00=0x0049, t01=0x016c}
0x7384…7396 Head {h00=0x000e, h01=0x0050, text=» LCR A2,A3«, t00=0x0049, t01=0x0188}
0x7396…73b4 Head {h00=0x001a, h01=0x0050, text=» CWK A2,/80 ATTRIBUTE «, t00=0x004a, t01=0x000a}
0x73b4…73ce Head {h00=0x0016, h01=0x0050, text=» RB(NG) LINA10 YES«, t00=0x004a, t01=0x0028}
0x73ce…73e8 Head {h00=0x0016, h01=0x0050, text=»LINA40 EQU * . =1 «, t00=0x004a, t01=0x0042}
0x73e8…73fe Head {h00=0x0012, h01=0x0050, text=» CF A14,REST1 «, t00=0x004a, t01=0x005c}
0x73fe…740e Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x004a, t01=0x0072}
0x740e…741c Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x004a, t01=0x0082}
0x741c…7460 Head {h00=0x0040, h01=0x0050, text=»*********************************************************** «, t00=0x004a, t01=0x0090}
0x7460…74a4 Head {h00=0x0040, h01=0x0050, text=»* * «, t00=0x004a, t01=0x00d4}
0x74a4…74e8 Head {h00=0x0040, h01=0x0050, text=»* NLROUT NEW LINE ROUTINE * «, t00=0x004a, t01=0x0118}
0x74e8…752c Head {h00=0x0040, h01=0x0050, text=»* * «, t00=0x004a, t01=0x015c}
0x752c…7570 Head {h00=0x0040, h01=0x0050, text=»*********************************************************** «, t00=0x004b, t01=0x0010}
0x7570…7584 Head {h00=0x0010, h01=0x0050, text=»* REGISTERS«, t00=0x004b, t01=0x0054}
0x7584…758e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004b, t01=0x0068}
0x758e…75b0 Head {h00=0x001e, h01=0x0050, text=»* A3= ADDRES IN VDU BUFFER«, t00=0x004b, t01=0x0072}
0x75b0…75cc Head {h00=0x0018, h01=0x0050, text=»* A4= REL CURSOR POS«, t00=0x004b, t01=0x0094}
0x75cc…75e2 Head {h00=0x0012, h01=0x0050, text=»* A5= RESERVED«, t00=0x004b, t01=0x00b0}
0x75e2…75f8 Head {h00=0x0012, h01=0x0050, text=»* A6= RESERVED«, t00=0x004b, t01=0x00c6}
0x75f8…760e Head {h00=0x0012, h01=0x0050, text=»* A8= RESERVED«, t00=0x004b, t01=0x00dc}
0x760e…7624 Head {h00=0x0012, h01=0x0050, text=»* A9= RESERVED«, t00=0x004b, t01=0x00f2}
0x7624…763c Head {h00=0x0014, h01=0x0050, text=»* A10= RESERVED «, t00=0x004b, t01=0x0108}
0x763c…7654 Head {h00=0x0014, h01=0x0050, text=»* A11= RESERVED «, t00=0x004b, t01=0x0120}
0x7654…766c Head {h00=0x0014, h01=0x0050, text=»* A13= RESERVED «, t00=0x004b, t01=0x0138}
0x766c…7676 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004b, t01=0x0150}
0x7676…76ba Head {h00=0x0040, h01=0x0050, text=»*********************************************************** «, t00=0x004b, t01=0x015a}
0x76ba…76ce Head {h00=0x0010, h01=0x0050, text=»NLROUT EQU *«, t00=0x004c, t01=0x000e}
0x76ce…76f2 Head {h00=0x0020, h01=0x0050, text=» LDR A1,A4 SAVE CURSOR POS. «, t00=0x004c, t01=0x0022}
0x76f2…7724 Head {h00=0x002e, h01=0x0050, text=» CF A14,CRDOWN MOVE CURSOR ON E LINE DOWN «, t00=0x004c, t01=0x0046}
0x7724…7736 Head {h00=0x000e, h01=0x0050, text=» LDK A7,0 «, t00=0x004c, t01=0x0078}
0x7736…774a Head {h00=0x0010, h01=0x0050, text=»NLR100 EQU *«, t00=0x004c, t01=0x008a}
0x774a…7776 Head {h00=0x0028, h01=0x0050, text=» SUK A4,LLINE COMPUTE LEFTMOST POS. «, t00=0x004c, t01=0x009e}
0x7776…778c Head {h00=0x0012, h01=0x0050, text=» RF(N) NLR200 «, t00=0x004c, t01=0x00ca}
0x778c…77a2 Head {h00=0x0012, h01=0x0050, text=» ADK A7,LLINE «, t00=0x004c, t01=0x00e0}
0x77a2…77b4 Head {h00=0x000e, h01=0x0050, text=» RB NLR100«, t00=0x004c, t01=0x00f6}
0x77b4…77c8 Head {h00=0x0010, h01=0x0050, text=»NLR200 EQU *«, t00=0x004c, t01=0x0108}
0x77c8…77da Head {h00=0x000e, h01=0x0050, text=» LDR A4,A1«, t00=0x004c, t01=0x011c}
0x77da…77ee Head {h00=0x0010, h01=0x0050, text=» LDK A2,NULL«, t00=0x004c, t01=0x012e}
0x77ee…7802 Head {h00=0x0010, h01=0x0050, text=»NLR300 EQU *«, t00=0x004c, t01=0x0142}
0x7802…7820 Head {h00=0x001a, h01=0x0050, text=» CWR A7,A4 ALL NULLED?«, t00=0x004c, t01=0x0156}
0x7820…783a Head {h00=0x0016, h01=0x0050, text=» RF(E) NLR900 YES «, t00=0x004c, t01=0x0174}
0x783a…7860 Head {h00=0x0022, h01=0x0050, text=» SCR A2,A3 NULL IN VDU BUFFER «, t00=0x004c, t01=0x018e}
0x7860…7878 Head {h00=0x0014, h01=0x0050, text=» LC A1,LINFLG,A6«, t00=0x004d, t01=0x0024}
0x7878…788a Head {h00=0x000e, h01=0x0050, text=» ORKL A1,1«, t00=0x004d, t01=0x003c}
0x788a…78a2 Head {h00=0x0014, h01=0x0050, text=» SC A1,LINFLG,A6«, t00=0x004d, t01=0x004e}
0x78a2…78b4 Head {h00=0x000e, h01=0x0050, text=» ADK A3,1 «, t00=0x004d, t01=0x0066}
0x78b4…78c6 Head {h00=0x000e, h01=0x0050, text=» ADK A4,1 «, t00=0x004d, t01=0x0078}
0x78c6…78dc Head {h00=0x0012, h01=0x0050, text=» CF A14,LINWRP«, t00=0x004d, t01=0x008a}
0x78dc…78ee Head {h00=0x000e, h01=0x0050, text=» RB NLR300«, t00=0x004d, t01=0x00a0}
0x78ee…7902 Head {h00=0x0010, h01=0x0050, text=»NLR900 EQU *«, t00=0x004d, t01=0x00b2}
0x7902…7912 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x004d, t01=0x00c6}
0x7912…7920 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x004d, t01=0x00d6}
0x7920…796c Head {h00=0x0048, h01=0x0050, text=»********************************************************************«, t00=0x004d, t01=0x00e4}
0x796c…79b8 Head {h00=0x0048, h01=0x0050, text=»* * «, t00=0x004d, t01=0x0130}
0x79b8…7a04 Head {h00=0x0048, h01=0x0050, text=»* ERASE ERASE ENTIRE SCREEN * «, t00=0x004d, t01=0x017c}
0x7a04…7a50 Head {h00=0x0048, h01=0x0050, text=»* * «, t00=0x004e, t01=0x0038}
0x7a50…7a9c Head {h00=0x0048, h01=0x0050, text=»******************************************************************* «, t00=0x004e, t01=0x0084}
0x7a9c…7ab0 Head {h00=0x0010, h01=0x0050, text=»* REGISTERS«, t00=0x004e, t01=0x00d0}
0x7ab0…7aba Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004e, t01=0x00e4}
0x7aba…7ace Head {h00=0x0010, h01=0x0050, text=»* A2= CHAR. «, t00=0x004e, t01=0x00ee}
0x7ace…7af2 Head {h00=0x0020, h01=0x0050, text=»* A3= ADDRESS IN VDU-BUFFER «, t00=0x004e, t01=0x0102}
0x7af2…7b14 Head {h00=0x001e, h01=0x0050, text=»* A4= REL. CURSOR ADDRESS «, t00=0x004e, t01=0x0126}
0x7b14…7b34 Head {h00=0x001c, h01=0x0050, text=»* A5= REL ATTRIBUTE POS «, t00=0x004e, t01=0x0148}
0x7b34…7b50 Head {h00=0x0018, h01=0x0050, text=»* A6= ATTRIBUTE CHAR«, t00=0x004e, t01=0x0168}
0x7b50…7b70 Head {h00=0x001c, h01=0x0050, text=»* A11= CREDIT WORK AREA «, t00=0x004e, t01=0x0184}
0x7b70…7b88 Head {h00=0x0014, h01=0x0050, text=»* A13= RESERVED «, t00=0x004f, t01=0x0014}
0x7b88…7b92 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004f, t01=0x002c}
0x7b92…7bd4 Head {h00=0x003e, h01=0x0050, text=»********************************************************* «, t00=0x004f, t01=0x0036}
0x7bd4…7be8 Head {h00=0x0010, h01=0x0050, text=»ERASE EQU * «, t00=0x004f, t01=0x0078}
0x7be8…7c0c Head {h00=0x0020, h01=0x0050, text=» LDK A4,0 FIRST SCREEN POS. «, t00=0x004f, t01=0x008c}
0x7c0c…7c22 Head {h00=0x0012, h01=0x0050, text=» LDKL A3,BVDU «, t00=0x004f, t01=0x00b0}
0x7c22…7c36 Head {h00=0x0010, h01=0x0050, text=» ADR A3,A11 «, t00=0x004f, t01=0x00c6}
0x7c36…7c5c Head {h00=0x0022, h01=0x0050, text=» LDK A2,NULL STORE NULL CHAR. «, t00=0x004f, t01=0x00da}
0x7c5c…7c70 Head {h00=0x0010, h01=0x0050, text=»ERAS10 EQU *«, t00=0x004f, t01=0x0100}
0x7c70…7c9e Head {h00=0x002a, h01=0x0050, text=» CWK A4,LBVDU+24 WHOLE SCREEN NULLED? «, t00=0x004f, t01=0x0114}
0x7c9e…7cb8 Head {h00=0x0016, h01=0x0050, text=» RF(NL) ERAS20 YES«, t00=0x004f, t01=0x0142}
0x7cb8…7cd6 Head {h00=0x001a, h01=0x0050, text=» SCR A2,A3 STORE CHAR.«, t00=0x004f, t01=0x015c}
0x7cd6…7ce8 Head {h00=0x000e, h01=0x0050, text=» ADK A3,1 «, t00=0x004f, t01=0x017a}
0x7ce8…7cfa Head {h00=0x000e, h01=0x0050, text=» ADK A4,1 «, t00=0x004f, t01=0x018c}
0x7cfa…7d0c Head {h00=0x000e, h01=0x0050, text=» RB ERAS10«, t00=0x0050, t01=0x000e}
0x7d0c…7d20 Head {h00=0x0010, h01=0x0050, text=»ERAS20 EQU *«, t00=0x0050, t01=0x0020}
0x7d20…7d44 Head {h00=0x0020, h01=0x0050, text=» LDK A4,0 FIRST SCREEN POS. «, t00=0x0050, t01=0x0034}
0x7d44…7d70 Head {h00=0x0028, h01=0x0050, text=» LDKL A5,LBVDU+1 UNFORMATTED SCREEN «, t00=0x0050, t01=0x0058}
0x7d70…7d82 Head {h00=0x000e, h01=0x0050, text=» LDK A6,0 «, t00=0x0050, t01=0x0084}
0x7d82…7db0 Head {h00=0x002a, h01=0x0050, text=» CF A14,STOINF SAVE SCREEN INFORMATION«, t00=0x0050, t01=0x0096}
0x7db0…7dc8 Head {h00=0x0014, h01=0x0050, text=» LC A1,TCT01,A11«, t00=0x0050, t01=0x00c4}
0x7dc8…7dee Head {h00=0x0022, h01=0x0050, text=» CCK A1,VDUCOD PRINTER UNPACK?«, t00=0x0050, t01=0x00dc}
0x7dee…7e08 Head {h00=0x0016, h01=0x0050, text=» RF(NE) ERAS30 YES«, t00=0x0050, t01=0x0102}
0x7e08…7e22 Head {h00=0x0016, h01=0x0050, text=» LD A8,ECBVDU,A11 «, t00=0x0050, t01=0x011c}
0x7e22…7e42 Head {h00=0x001c, h01=0x0050, text=» LDK A2,'1' ERASE CHAR. «, t00=0x0050, t01=0x0136}
0x7e42…7e5a Head {h00=0x0014, h01=0x0050, text=» LD A1,ECBBA,A8 «, t00=0x0050, t01=0x0156}
0x7e5a…7e6e Head {h00=0x0010, h01=0x0050, text=» SC A2,1,A1 «, t00=0x0050, t01=0x016e}
0x7e6e…7e8c Head {h00=0x001a, h01=0x0050, text=» LDK A1,2 REQ. LENGTH «, t00=0x0050, t01=0x0182}
0x7e8c…7ea4 Head {h00=0x0014, h01=0x0050, text=» ST A1,ECBRL,A8 «, t00=0x0051, t01=0x0010}
0x7ea4…7ebe Head {h00=0x0016, h01=0x0050, text=» LDK A7,/86 WRITE «, t00=0x0051, t01=0x0028}
0x7ebe…7eca Head {h00=0x0008, h01=0x0050, text=» LKM«, t00=0x0051, t01=0x0042}
0x7eca…7eda Head {h00=0x000c, h01=0x0050, text=» DATA 1 «, t00=0x0051, t01=0x004e}
0x7eda…7eee Head {h00=0x0010, h01=0x0050, text=»ERAS30 EQU *«, t00=0x0051, t01=0x005e}
0x7eee…7efe Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0051, t01=0x0072}
0x7efe…7f0c Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0051, t01=0x0082}
0x7f0c…7f4e Head {h00=0x003e, h01=0x0050, text=»********************************************************* «, t00=0x0051, t01=0x0090}
0x7f4e…7f90 Head {h00=0x003e, h01=0x0050, text=»* * «, t00=0x0051, t01=0x00d2}
0x7f90…7fd2 Head {h00=0x003e, h01=0x0050, text=»* ERASUP ERASE ALL UNPROTECTED * «, t00=0x0051, t01=0x0114}
0x7fd2…8014 Head {h00=0x003e, h01=0x0050, text=»* * «, t00=0x0051, t01=0x0156}
0x8014…8056 Head {h00=0x003e, h01=0x0050, text=»********************************************************* «, t00=0x0052, t01=0x0008}
0x8056…806a Head {h00=0x0010, h01=0x0050, text=»* REGISTERS«, t00=0x0052, t01=0x004a}
0x806a…8074 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0052, t01=0x005e}
0x8074…8088 Head {h00=0x0010, h01=0x0050, text=»* A2= CHAR. «, t00=0x0052, t01=0x0068}
0x8088…80ac Head {h00=0x0020, h01=0x0050, text=»* A3= ADDRESS IN VDU-BUFFER «, t00=0x0052, t01=0x007c}
0x80ac…80ca Head {h00=0x001a, h01=0x0050, text=»* A4= REL. CURSOR POS.«, t00=0x0052, t01=0x00a0}
0x80ca…80ec Head {h00=0x001e, h01=0x0050, text=»* A5= REL. ATTRIBUTE POS. «, t00=0x0052, t01=0x00be}
0x80ec…8114 Head {h00=0x0024, h01=0x0050, text=»* A6= INTERNAL LINE FLAG ADDRESS«, t00=0x0052, t01=0x00e0}
0x8114…8134 Head {h00=0x001c, h01=0x0050, text=»* A11= CREDIT WORK AREA «, t00=0x0052, t01=0x0108}
0x8134…814c Head {h00=0x0014, h01=0x0050, text=»* A13= RESERVED «, t00=0x0052, t01=0x0128}
0x814c…8156 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0052, t01=0x0140}
0x8156…8198 Head {h00=0x003e, h01=0x0050, text=»********************************************************* «, t00=0x0052, t01=0x014a}
0x8198…81ac Head {h00=0x0010, h01=0x0050, text=»ERASUP EQU *«, t00=0x0052, t01=0x018c}
0x81ac…81d2 Head {h00=0x0022, h01=0x0050, text=» LDK A1,2 RESTORE KEYBOARD-BIT«, t00=0x0053, t01=0x0010}
0x81d2…81e8 Head {h00=0x0012, h01=0x0050, text=» ST A1,WCC,A11«, t00=0x0053, t01=0x0036}
0x81e8…820c Head {h00=0x0020, h01=0x0050, text=» LDK A4,0 FIRST SCREEN POS. «, t00=0x0053, t01=0x004c}
0x820c…8222 Head {h00=0x0012, h01=0x0050, text=» LDKL A3,BVDU «, t00=0x0053, t01=0x0070}
0x8222…8236 Head {h00=0x0010, h01=0x0050, text=» ADR A3,A11 «, t00=0x0053, t01=0x0086}
0x8236…825c Head {h00=0x0022, h01=0x0050, text=» LDK A7,NULL STORE NULL CHAR. «, t00=0x0053, t01=0x009a}
0x825c…8288 Head {h00=0x0028, h01=0x0050, text=» CWK A5,LBVDU+1 UNFORMATTED SCREEN? «, t00=0x0053, t01=0x00c0}
0x8288…82a2 Head {h00=0x0016, h01=0x0050, text=» RF(NE) ERUP10 NO «, t00=0x0053, t01=0x00ec}
0x82a2…82b8 Head {h00=0x0012, h01=0x0050, text=» CF A14,ERASE «, t00=0x0053, t01=0x0106}
0x82b8…82ca Head {h00=0x000e, h01=0x0050, text=» RF ERUP90«, t00=0x0053, t01=0x011c}
0x82ca…82de Head {h00=0x0010, h01=0x0050, text=»ERUP10 EQU *«, t00=0x0053, t01=0x012e}
0x82de…82fa Head {h00=0x0018, h01=0x0050, text=» LCR A2,A3 GET CHAR.«, t00=0x0053, t01=0x0142}
0x82fa…831a Head {h00=0x001c, h01=0x0050, text=» CCK A2,/8000 ATTRIBUTE?«, t00=0x0053, t01=0x015e}
0x831a…8334 Head {h00=0x0016, h01=0x0050, text=» RF(NL) ERUP20 YES«, t00=0x0053, t01=0x017e}
0x8334…8346 Head {h00=0x000e, h01=0x0050, text=» ADK A3,1 «, t00=0x0054, t01=0x0008}
0x8346…8358 Head {h00=0x000e, h01=0x0050, text=» ADK A4,1 «, t00=0x0054, t01=0x001a}
0x8358…836a Head {h00=0x000e, h01=0x0050, text=» RB ERUP10«, t00=0x0054, t01=0x002c}
0x836a…837e Head {h00=0x0010, h01=0x0050, text=»ERUP20 EQU *«, t00=0x0054, t01=0x003e}
0x837e…83a6 Head {h00=0x0024, h01=0x0050, text=» LDR A9,A4 FIRST ATTRIBUTE POS. «, t00=0x0054, t01=0x0052}
0x83a6…83bc Head {h00=0x0012, h01=0x0050, text=» LDK A5,LLINE «, t00=0x0054, t01=0x007a}
0x83bc…83d0 Head {h00=0x0010, h01=0x0050, text=» LDR A6,A11 «, t00=0x0054, t01=0x0090}
0x83d0…83e4 Head {h00=0x0010, h01=0x0050, text=» SUR A10,A10«, t00=0x0054, t01=0x00a4}
0x83e4…83f8 Head {h00=0x0010, h01=0x0050, text=» CF A14,LINE«, t00=0x0054, t01=0x00b8}
0x83f8…840a Head {h00=0x000e, h01=0x0050, text=» RF ERUP47«, t00=0x0054, t01=0x00cc}
0x840a…841e Head {h00=0x0010, h01=0x0050, text=»ERUP30 EQU *«, t00=0x0054, t01=0x00de}
0x841e…8430 Head {h00=0x000e, h01=0x0050, text=» ADK A3,1 «, t00=0x0054, t01=0x00f2}
0x8430…8442 Head {h00=0x000e, h01=0x0050, text=» ADK A4,1 «, t00=0x0054, t01=0x0104}
0x8442…8470 Head {h00=0x002a, h01=0x0050, text=» CF A14,LINWRP CHECK IF LINWRP AROUND «, t00=0x0054, t01=0x0116}
0x8470…848c Head {h00=0x0018, h01=0x0050, text=» LCR A2,A3 GET CHAR.«, t00=0x0054, t01=0x0144}
0x848c…84ac Head {h00=0x001c, h01=0x0050, text=» CCK A2,/8000 ATTRIBUTE?«, t00=0x0054, t01=0x0160}
0x84ac…84c4 Head {h00=0x0014, h01=0x0050, text=» RB(L) ERUP30 NO«, t00=0x0054, t01=0x0180}
0x84c4…84d8 Head {h00=0x0010, h01=0x0050, text=»ERUP45 EQU *«, t00=0x0055, t01=0x0008}
0x84d8…84f8 Head {h00=0x001c, h01=0x0050, text=» CWR A9,A4 ALL SCANNED? «, t00=0x0055, t01=0x001c}
0x84f8…8512 Head {h00=0x0016, h01=0x0050, text=» RF(E) ERUP70 YES «, t00=0x0055, t01=0x003c}
0x8512…8526 Head {h00=0x0010, h01=0x0050, text=»ERUP47 EQU *«, t00=0x0055, t01=0x0056}
0x8526…8538 Head {h00=0x000e, h01=0x0050, text=» LDR A1,A2«, t00=0x0055, t01=0x006a}
0x8538…8556 Head {h00=0x001a, h01=0x0050, text=» ANK A1,/20 PROTECTED?«, t00=0x0055, t01=0x007c}
0x8556…8570 Head {h00=0x0016, h01=0x0050, text=» RB(NZ) ERUP30 YES«, t00=0x0055, t01=0x009a}
0x8570…8592 Head {h00=0x001e, h01=0x0050, text=» ANK A2,/FE RESET MDT-BIT «, t00=0x0055, t01=0x00b4}
0x8592…85b4 Head {h00=0x001e, h01=0x0050, text=» SCR A2,A3 SAVE ATTRIBUTE «, t00=0x0055, t01=0x00d6}
0x85b4…85cc Head {h00=0x0014, h01=0x0050, text=» LC A1,LINFLG,A6«, t00=0x0055, t01=0x00f8}
0x85cc…85de Head {h00=0x000e, h01=0x0050, text=» ORK A1,1 «, t00=0x0055, t01=0x0110}
0x85de…85f6 Head {h00=0x0014, h01=0x0050, text=» SC A1,LINFLG,A6«, t00=0x0055, t01=0x0122}
0x85f6…8608 Head {h00=0x000e, h01=0x0050, text=» ADK A3,1 «, t00=0x0055, t01=0x013a}
0x8608…861a Head {h00=0x000e, h01=0x0050, text=» ADK A4,1 «, t00=0x0055, t01=0x014c}
0x861a…862e Head {h00=0x0010, h01=0x0050, text=»ERUP50 EQU *«, t00=0x0055, t01=0x015e}
0x862e…865c Head {h00=0x002a, h01=0x0050, text=» CF A14,LINWRP CHECK IF LINWRP AROUND «, t00=0x0055, t01=0x0172}
0x865c…8678 Head {h00=0x0018, h01=0x0050, text=» LCR A2,A3 GET CHAR.«, t00=0x0056, t01=0x0010}
0x8678…8698 Head {h00=0x001c, h01=0x0050, text=» CCK A2,/8000 ATTRIBUTE?«, t00=0x0056, t01=0x002c}
0x8698…86b2 Head {h00=0x0016, h01=0x0050, text=» RB(NL) ERUP45 YES«, t00=0x0056, t01=0x004c}
0x86b2…86e4 Head {h00=0x002e, h01=0x0050, text=» SCR A7,A3 STORE NULL CHAR. IN VDU BUFFER «, t00=0x0056, t01=0x0066}
0x86e4…86fc Head {h00=0x0014, h01=0x0050, text=» LC A1,LINFLG,A6«, t00=0x0056, t01=0x0098}
0x86fc…870e Head {h00=0x000e, h01=0x0050, text=» ORK A1,1 «, t00=0x0056, t01=0x00b0}
0x870e…8726 Head {h00=0x0014, h01=0x0050, text=» SC A1,LINFLG,A6«, t00=0x0056, t01=0x00c2}
0x8726…8738 Head {h00=0x000e, h01=0x0050, text=» ADK A3,1 «, t00=0x0056, t01=0x00da}
0x8738…874a Head {h00=0x000e, h01=0x0050, text=» ADK A4,1 «, t00=0x0056, t01=0x00ec}
0x874a…875c Head {h00=0x000e, h01=0x0050, text=» RB ERUP50«, t00=0x0056, t01=0x00fe}
0x875c…8770 Head {h00=0x0010, h01=0x0050, text=»ERUP70 EQU *«, t00=0x0056, t01=0x0110}
0x8770…87a8 Head {h00=0x0034, h01=0x0050, text=» CF A14,RDHOME TAB. UNPROTECTED FIRST ON SCREEN «, t00=0x0056, t01=0x0124}
0x87a8…87bc Head {h00=0x0010, h01=0x0050, text=»ERUP90 EQU *«, t00=0x0056, t01=0x015c}
0x87bc…87cc Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0056, t01=0x0170}
0x87cc…87da Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0056, t01=0x0180}
0x87da…8822 Head {h00=0x0044, h01=0x0050, text=»****************************************************************«, t00=0x0056, t01=0x018e}
0x8822…882c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0057, t01=0x0046}
0x882c…8874 Head {h00=0x0044, h01=0x0050, text=»* ERASUA ERASE UNPROTECTED TO ADDRESS *«, t00=0x0057, t01=0x0050}
0x8874…88bc Head {h00=0x0044, h01=0x0050, text=»* *«, t00=0x0057, t01=0x0098}
0x88bc…8904 Head {h00=0x0044, h01=0x0050, text=»****************************************************************«, t00=0x0057, t01=0x00e0}
0x8904…8918 Head {h00=0x0010, h01=0x0050, text=»* REGISTERS«, t00=0x0057, t01=0x0128}
0x8918…8922 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0057, t01=0x013c}
0x8922…893c Head {h00=0x0016, h01=0x0050, text=»* A1= STOP ADDRESS«, t00=0x0057, t01=0x0146}
0x893c…8950 Head {h00=0x0010, h01=0x0050, text=»* A2= CHAR. «, t00=0x0057, t01=0x0160}
0x8950…8974 Head {h00=0x0020, h01=0x0050, text=»* A3= ADDRESS IN VDU-BUFFER «, t00=0x0057, t01=0x0174}
0x8974…8992 Head {h00=0x001a, h01=0x0050, text=»* A4= REL. CURSOR POS.«, t00=0x0058, t01=0x0008}
0x8992…89b2 Head {h00=0x001c, h01=0x0050, text=»* A5= REL ATTRIBUTE POS.«, t00=0x0058, t01=0x0026}
0x89b2…89d0 Head {h00=0x001a, h01=0x0050, text=»* A6= ATTRIBUTE CHAR. «, t00=0x0058, t01=0x0046}
0x89d0…89e8 Head {h00=0x0014, h01=0x0050, text=»* A7= NULL CHAR.«, t00=0x0058, t01=0x0064}
0x89e8…8a08 Head {h00=0x001c, h01=0x0050, text=»* A11= CREDIT WORK AREA «, t00=0x0058, t01=0x007c}
0x8a08…8a20 Head {h00=0x0014, h01=0x0050, text=»* A13= RESERVED «, t00=0x0058, t01=0x009c}
0x8a20…8a2a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0058, t01=0x00b4}
0x8a2a…8a72 Head {h00=0x0044, h01=0x0050, text=»****************************************************************«, t00=0x0058, t01=0x00be}
0x8a72…8a86 Head {h00=0x0010, h01=0x0050, text=»ERASUA EQU *«, t00=0x0058, t01=0x0106}
0x8a86…8aac Head {h00=0x0022, h01=0x0050, text=» LDK A7,NULL STORE NULL CHAR. «, t00=0x0058, t01=0x011a}
0x8aac…8ac2 Head {h00=0x0012, h01=0x0050, text=» LDKL A3,BVDU «, t00=0x0058, t01=0x0140}
0x8ac2…8ad6 Head {h00=0x0010, h01=0x0050, text=» ADR A3,A11 «, t00=0x0058, t01=0x0156}
0x8ad6…8af4 Head {h00=0x001a, h01=0x0050, text=» ADR A3,A4 BUFFER POS.«, t00=0x0058, t01=0x016a}
0x8af4…8b20 Head {h00=0x0028, h01=0x0050, text=» CWK A5,LBVDU+1 UNFORMATTED SCREEN? «, t00=0x0058, t01=0x0188}
0x8b20…8b3a Head {h00=0x0016, h01=0x0050, text=» RF(E) ERUA47 YES «, t00=0x0059, t01=0x0024}
0x8b3a…8b62 Head {h00=0x0024, h01=0x0050, text=» LDR A2,A6 GET CURRENT ATTRIBUTE«, t00=0x0059, t01=0x003e}
0x8b62…8b8c Head {h00=0x0026, h01=0x0050, text=» CWR A5,A4 STANDING ON ATTRIBUTE? «, t00=0x0059, t01=0x0066}
0x8b8c…8ba6 Head {h00=0x0016, h01=0x0050, text=» RF(NE) ERUA10 NO «, t00=0x0059, t01=0x0090}
0x8ba6…8bb8 Head {h00=0x000e, h01=0x0050, text=» ADK A3,1 «, t00=0x0059, t01=0x00aa}
0x8bb8…8bca Head {h00=0x000e, h01=0x0050, text=» ADK A4,1 «, t00=0x0059, t01=0x00bc}
0x8bca…8be8 Head {h00=0x001a, h01=0x0050, text=» CWR A1,A4 ALL NULLED?«, t00=0x0059, t01=0x00ce}
0x8be8…8c02 Head {h00=0x0016, h01=0x0050, text=» RF(E) ERUA70 YES «, t00=0x0059, t01=0x00ec}
0x8c02…8c2c Head {h00=0x0026, h01=0x0050, text=» CF A14,WRAP CHECK IF WRAP AROUND «, t00=0x0059, t01=0x0106}
0x8c2c…8c40 Head {h00=0x0010, h01=0x0050, text=»ERUA10 EQU *«, t00=0x0059, t01=0x0130}
0x8c40…8c64 Head {h00=0x0020, h01=0x0050, text=» ANK A2,/20 PROTECTED FIELD?«, t00=0x0059, t01=0x0144}
0x8c64…8c7c Head {h00=0x0014, h01=0x0050, text=» RF(Z) ERUA47 NO«, t00=0x0059, t01=0x0168}
0x8c7c…8c90 Head {h00=0x0010, h01=0x0050, text=»ERUA30 EQU *«, t00=0x0059, t01=0x0180}
0x8c90…8cba (90, 0, 400) Head {h00=0x0026, h01=0x0050, text=» CF A14,WRAP CHECK IF WRAP AROUND «, t00=0x005a, t01=0x0004}
0x8cba…8cd6 Head {h00=0x0018, h01=0x0050, text=» LCR A2,A3 GET CHAR.«, t00=0x005a, t01=0x002e}
0x8cd6…8ce8 Head {h00=0x000e, h01=0x0050, text=» ADK A3,1 «, t00=0x005a, t01=0x004a}
0x8ce8…8cfa Head {h00=0x000e, h01=0x0050, text=» ADK A4,1 «, t00=0x005a, t01=0x005c}
0x8cfa…8d18 Head {h00=0x001a, h01=0x0050, text=» CWR A1,A4 ALL NULLED?«, t00=0x005a, t01=0x006e}
0x8d18…8d32 Head {h00=0x0016, h01=0x0050, text=» RF(E) ERUA70 YES «, t00=0x005a, t01=0x008c}
0x8d32…8d52 Head {h00=0x001c, h01=0x0050, text=» CCK A2,/8000 ATTRIBUTE?«, t00=0x005a, t01=0x00a6}
0x8d52…8d6a Head {h00=0x0014, h01=0x0050, text=» RB(L) ERUA30 NO«, t00=0x005a, t01=0x00c6}
0x8d6a…8d7e Head {h00=0x0010, h01=0x0050, text=»ERUA45 EQU *«, t00=0x005a, t01=0x00de}
0x8d7e…8d90 Head {h00=0x000e, h01=0x0050, text=» LDR A8,A2«, t00=0x005a, t01=0x00f2}
0x8d90…8db0 Head {h00=0x001c, h01=0x0050, text=» ANKL A8,/20 PROTECTED? «, t00=0x005a, t01=0x0104}
0x8db0…8dca Head {h00=0x0016, h01=0x0050, text=» RB(NZ) ERUA30 YES«, t00=0x005a, t01=0x0124}
0x8dca…8dde Head {h00=0x0010, h01=0x0050, text=»ERUA47 EQU *«, t00=0x005a, t01=0x013e}
0x8dde…8df2 Head {h00=0x0010, h01=0x0050, text=» LDR A6,A11 «, t00=0x005a, t01=0x0152}
0x8df2…8e08 Head {h00=0x0012, h01=0x0050, text=» LDK A5,LLINE «, t00=0x005a, t01=0x0166}
0x8e08…8e1a Head {h00=0x000e, h01=0x0050, text=» LDR A8,A1«, t00=0x005a, t01=0x017c}
0x8e1a…8e2e Head {h00=0x0010, h01=0x0050, text=» CF A14,LINE«, t00=0x005a, t01=0x018e}
0x8e2e…8e40 Head {h00=0x000e, h01=0x0050, text=» LDR A1,A8«, t00=0x005b, t01=0x0012}
0x8e40…8e52 Head {h00=0x000e, h01=0x0050, text=» RF ERUA60«, t00=0x005b, t01=0x0024}
0x8e52…8e66 Head {h00=0x0010, h01=0x0050, text=»ERUA50 EQU *«, t00=0x005b, t01=0x0036}
0x8e66…8e78 Head {h00=0x000e, h01=0x0050, text=» LDR A8,A1«, t00=0x005b, t01=0x004a}
0x8e78…8e8e Head {h00=0x0012, h01=0x0050, text=» CF A14,LINWRP«, t00=0x005b, t01=0x005c}
0x8e8e…8ea0 Head {h00=0x000e, h01=0x0050, text=» LDR A1,A8«, t00=0x005b, t01=0x0072}
0x8ea0…8ebe Head {h00=0x001a, h01=0x0050, text=» CWR A1,A4 ALL NULLED?«, t00=0x005b, t01=0x0084}
0x8ebe…8ed8 Head {h00=0x0016, h01=0x0050, text=» RF(E) ERUA70 YES «, t00=0x005b, t01=0x00a2}
0x8ed8…8eec Head {h00=0x0010, h01=0x0050, text=»ERUA60 EQU *«, t00=0x005b, t01=0x00bc}
0x8eec…8f08 Head {h00=0x0018, h01=0x0050, text=» LCR A2,A3 GET CHAR.«, t00=0x005b, t01=0x00d0}
0x8f08…8f28 Head {h00=0x001c, h01=0x0050, text=» CCK A2,/8000 ATTRIBUTE?«, t00=0x005b, t01=0x00ec}
0x8f28…8f42 Head {h00=0x0016, h01=0x0050, text=» RB(NL) ERUA45 YES«, t00=0x005b, t01=0x010c}
0x8f42…8f74 Head {h00=0x002e, h01=0x0050, text=» SCR A7,A3 STORE NULL CHAR, IN VDU-BUFFER «, t00=0x005b, t01=0x0126}
0x8f74…8f8c Head {h00=0x0014, h01=0x0050, text=» LC A8,LINFLG,A6«, t00=0x005b, t01=0x0158}
0x8f8c…8f9e Head {h00=0x000e, h01=0x0050, text=» ORKL A8,1«, t00=0x005b, t01=0x0170}
0x8f9e…8fb6 Head {h00=0x0014, h01=0x0050, text=» SC A8,LINFLG,A6«, t00=0x005b, t01=0x0182}
0x8fb6…8fc8 Head {h00=0x000e, h01=0x0050, text=» ADK A3,1 «, t00=0x005c, t01=0x000a}
0x8fc8…8fda Head {h00=0x000e, h01=0x0050, text=» ADK A4,1 «, t00=0x005c, t01=0x001c}
0x8fda…8fec Head {h00=0x000e, h01=0x0050, text=» RB ERUA50«, t00=0x005c, t01=0x002e}
0x8fec…9000 Head {h00=0x0010, h01=0x0050, text=»ERUA70 EQU *«, t00=0x005c, t01=0x0040}
0x9000…9010 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x005c, t01=0x0054}
0x9010…901e Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x005c, t01=0x0064}
0x901e…9060 Head {h00=0x003e, h01=0x0050, text=»**********************************************************«, t00=0x005c, t01=0x0072}
0x9060…90a2 Head {h00=0x003e, h01=0x0050, text=»* *«, t00=0x005c, t01=0x00b4}
0x90a2…90e4 Head {h00=0x003e, h01=0x0050, text=»* POSUNP MOVE CURSOR TO NEXT UNPR. POS. *«, t00=0x005c, t01=0x00f6}
0x90e4…9126 Head {h00=0x003e, h01=0x0050, text=»* *«, t00=0x005c, t01=0x0138}
0x9126…9168 Head {h00=0x003e, h01=0x0050, text=»**********************************************************«, t00=0x005c, t01=0x017a}
0x9168…917c Head {h00=0x0010, h01=0x0050, text=»* REGISTERS«, t00=0x005d, t01=0x002c}
0x917c…9186 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005d, t01=0x0040}
0x9186…919c Head {h00=0x0012, h01=0x0050, text=»* A2= RESERVED«, t00=0x005d, t01=0x004a}
0x919c…91ba Head {h00=0x001a, h01=0x0050, text=»* A4= REL. CURSOR POS.«, t00=0x005d, t01=0x0060}
0x91ba…91dc Head {h00=0x001e, h01=0x0050, text=»* A5= REL. ATTRIBUTE POS. «, t00=0x005d, t01=0x007e}
0x91dc…91f8 Head {h00=0x0018, h01=0x0050, text=»* A6= ATTRIBUTE CHAR«, t00=0x005d, t01=0x00a0}
0x91f8…9218 Head {h00=0x001c, h01=0x0050, text=»* A11= CREDIT WORK AREA «, t00=0x005d, t01=0x00bc}
0x9218…9230 Head {h00=0x0014, h01=0x0050, text=»* A13= RESERVED «, t00=0x005d, t01=0x00dc}
0x9230…923a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005d, t01=0x00f4}
0x923a…927e Head {h00=0x0040, h01=0x0050, text=»*********************************************************** «, t00=0x005d, t01=0x00fe}
0x927e…9292 Head {h00=0x0010, h01=0x0050, text=»POSUNP EQU *«, t00=0x005d, t01=0x0142}
0x9292…92b6 Head {h00=0x0020, h01=0x0050, text=» CWK A4,LBVDU-1 WRAP AROUND?«, t00=0x005d, t01=0x0156}
0x92b6…92d0 Head {h00=0x0016, h01=0x0050, text=» RF(NG) POSU20 NO «, t00=0x005d, t01=0x017a}
0x92d0…92f6 (94, 0, 400) Head {h00=0x0022, h01=0x0050, text=» LDK A4,0 FIRST POS. ON SCREEN«, t00=0x005e, t01=0x0004}
0x92f6…930e Head {h00=0x0014, h01=0x0050, text=» ST A4,PCURS,A11«, t00=0x005e, t01=0x002a}
0x930e…9322 Head {h00=0x0010, h01=0x0050, text=»POSU20 EQU *«, t00=0x005e, t01=0x0042}
0x9322…9334 Head {h00=0x000e, h01=0x0050, text=» LDR A1,A4«, t00=0x005e, t01=0x0056}
0x9334…9362 Head {h00=0x002a, h01=0x0050, text=» CF A14,GETVDU GET CHAR IN VDU BUFFER «, t00=0x005e, t01=0x0068}
0x9362…9382 Head {h00=0x001c, h01=0x0050, text=» CCK A7,/8000 ATTRIBUTE?«, t00=0x005e, t01=0x0096}
0x9382…939a Head {h00=0x0014, h01=0x0050, text=» RF(L) POSU30 NO«, t00=0x005e, t01=0x00b6}
0x939a…93ac Head {h00=0x000e, h01=0x0050, text=» LDR A6,A7«, t00=0x005e, t01=0x00ce}
0x93ac…93c0 Head {h00=0x0010, h01=0x0050, text=» ANK A7,/30 «, t00=0x005e, t01=0x00e0}
0x93c0…93ea Head {h00=0x0026, h01=0x0050, text=» CWK A7,/30 PROTECTED AND NUMERIC?«, t00=0x005e, t01=0x00f4}
0x93ea…9404 Head {h00=0x0016, h01=0x0050, text=» RF(E) POSU25 YES «, t00=0x005e, t01=0x011e}
0x9404…9416 Head {h00=0x000e, h01=0x0050, text=» LDR A5,A1«, t00=0x005e, t01=0x0138}
0x9416…9438 Head {h00=0x001e, h01=0x0050, text=» IM PCURS,A11 MOVE CURSOR «, t00=0x005e, t01=0x014a}
0x9438…944a Head {h00=0x000e, h01=0x0050, text=» ADK A4,1 «, t00=0x005e, t01=0x016c}
0x944a…946e Head {h00=0x0020, h01=0x0050, text=» CWK A4,LBVDU-1 WRAP AROUND?«, t00=0x005e, t01=0x017e}
0x946e…9488 Head {h00=0x0016, h01=0x0050, text=» RF(NG) POSU23 NO «, t00=0x005f, t01=0x0012}
0x9488…949a Head {h00=0x000e, h01=0x0050, text=» LDK A4,0 «, t00=0x005f, t01=0x002c}
0x949a…94ae Head {h00=0x0010, h01=0x0050, text=»POSU23 EQU *«, t00=0x005f, t01=0x003e}
0x94ae…94dc Head {h00=0x002a, h01=0x0050, text=» CF A14,STOINF SAVE SCREEN INFORMATION«, t00=0x005f, t01=0x0052}
0x94dc…94fa Head {h00=0x001a, h01=0x0050, text=» LDK A1,2 REQ. LENGTH «, t00=0x005f, t01=0x0080}
0x94fa…951c Head {h00=0x001e, h01=0x0050, text=» CF A14,DISCHA SET CURSOR «, t00=0x005f, t01=0x009e}
0x951c…952e Head {h00=0x000e, h01=0x0050, text=» RF POSU30«, t00=0x005f, t01=0x00c0}
0x952e…9542 Head {h00=0x0010, h01=0x0050, text=»POSU25 EQU *«, t00=0x005f, t01=0x00d2}
0x9542…9570 Head {h00=0x002a, h01=0x0050, text=» CF A14,TAB TAB NEXT UNPROTECTED FIELD«, t00=0x005f, t01=0x00e6}
0x9570…9584 Head {h00=0x0010, h01=0x0050, text=»POSU30 EQU *«, t00=0x005f, t01=0x0114}
0x9584…959e Head {h00=0x0016, h01=0x0050, text=» LD A8,ECBVDU,A11 «, t00=0x005f, t01=0x0128}
0x959e…95b6 Head {h00=0x0014, h01=0x0050, text=» LD A1,ECBCW,A8 «, t00=0x005f, t01=0x0142}
0x95b6…95d4 Head {h00=0x001a, h01=0x0050, text=» ANK A1,/FF LINE POS. «, t00=0x005f, t01=0x015a}
0x95d4…95fa Head {h00=0x0022, h01=0x0050, text=» SUK A1,81 LAST POS. ON LINE? «, t00=0x005f, t01=0x0178}
0x95fa…9614 Head {h00=0x0016, h01=0x0050, text=» RF(NZ) POSU90 NO «, t00=0x0060, t01=0x000e}
0x9614…9632 Head {h00=0x001a, h01=0x0050, text=» LDK A1,2 REQ. LENGTH «, t00=0x0060, t01=0x0028}
0x9632…9654 Head {h00=0x001e, h01=0x0050, text=» CF A14,DISCHA SET CURSOR «, t00=0x0060, t01=0x0046}
0x9654…9668 Head {h00=0x0010, h01=0x0050, text=»POSU90 EQU *«, t00=0x0060, t01=0x0068}
0x9668…9678 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0060, t01=0x007c}
0x9678…9686 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0060, t01=0x008c}
0x9686…96ca Head {h00=0x0040, h01=0x0050, text=»************************************************************«, t00=0x0060, t01=0x009a}
0x96ca…970e Head {h00=0x0040, h01=0x0050, text=»* *«, t00=0x0060, t01=0x00de}
0x970e…9752 Head {h00=0x0040, h01=0x0050, text=»* DISID DISPLAY HARDCOPY TASKID *«, t00=0x0060, t01=0x0122}
0x9752…9796 Head {h00=0x0040, h01=0x0050, text=»* *«, t00=0x0060, t01=0x0166}
0x9796…97da Head {h00=0x0040, h01=0x0050, text=»************************************************************«, t00=0x0061, t01=0x001a}
0x97da…97fa Head {h00=0x001c, h01=0x0050, text=»* REGISTERS«, t00=0x0061, t01=0x005e}
0x97fa…9804 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0061, t01=0x007e}
0x9804…980e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0061, t01=0x0088}
0x980e…9852 Head {h00=0x0040, h01=0x0050, text=»************************************************************«, t00=0x0061, t01=0x0092}
0x9852…9866 Head {h00=0x0010, h01=0x0050, text=»DISID EQU * «, t00=0x0061, t01=0x00d6}
0x9866…9880 Head {h00=0x0016, h01=0x0050, text=» LD A8,ECBVDU,A11 «, t00=0x0061, t01=0x00ea}
0x9880…98aa Head {h00=0x0026, h01=0x0050, text=» CF A14,SPACES SPACE IN ECB BUFFER«, t00=0x0061, t01=0x0104}
0x98aa…98d4 Head {h00=0x0026, h01=0x0050, text=» LD A3,6,A13 GET COMMON BLOCK BASE«, t00=0x0061, t01=0x012e}
0x98d4…98f4 Head {h00=0x001c, h01=0x0050, text=» LDR A1,A5 SAVE TASK ID «, t00=0x0061, t01=0x0158}
0x98f4…990a Head {h00=0x0012, h01=0x0050, text=» LDK A5,IDTEXT«, t00=0x0061, t01=0x0178}
0x990a…992e Head {h00=0x0020, h01=0x0050, text=» ADR A5,A3 POINT ON IDBUFFER«, t00=0x0061, t01=0x018e}
0x992e…9940 Head {h00=0x000e, h01=0x0050, text=» ADK A6,46«, t00=0x0062, t01=0x0022}
0x9940…9952 Head {h00=0x000e, h01=0x0050, text=» LDK A3,6 «, t00=0x0062, t01=0x0034}
0x9952…9976 Head {h00=0x0020, h01=0x0050, text=» ANK A4,1 PRINTER OPERABLE? «, t00=0x0062, t01=0x0046}
0x9976…9990 Head {h00=0x0016, h01=0x0050, text=» RF(Z) DISI10 YES «, t00=0x0062, t01=0x006a}
0x9990…99a2 Head {h00=0x000e, h01=0x0050, text=» ADK A3,16«, t00=0x0062, t01=0x0084}
0x99a2…99b6 Head {h00=0x0010, h01=0x0050, text=»DISI10 EQU *«, t00=0x0062, t01=0x0096}
0x99b6…99dc Head {h00=0x0022, h01=0x0050, text=» SUK A3,2 MOVE INTO ECBBUFFER «, t00=0x0062, t01=0x00aa}
0x99dc…99fc Head {h00=0x001c, h01=0x0050, text=» RF(N) DISI20 COMPLETED «, t00=0x0062, t01=0x00d0}
0x99fc…9a10 Head {h00=0x0010, h01=0x0050, text=» LDR* A2,A5 «, t00=0x0062, t01=0x00f0}
0x9a10…9a22 Head {h00=0x000e, h01=0x0050, text=» STR A2,A6«, t00=0x0062, t01=0x0104}
0x9a22…9a34 Head {h00=0x000e, h01=0x0050, text=» ADK A5,2 «, t00=0x0062, t01=0x0116}
0x9a34…9a46 Head {h00=0x000e, h01=0x0050, text=» ADK A6,2 «, t00=0x0062, t01=0x0128}
0x9a46…9a58 Head {h00=0x000e, h01=0x0050, text=» RB DISI10«, t00=0x0062, t01=0x013a}
0x9a58…9a6c Head {h00=0x0010, h01=0x0050, text=»DISI20 EQU *«, t00=0x0062, t01=0x014c}
0x9a6c…9a84 Head {h00=0x0014, h01=0x0050, text=» LD A6,ECBBA,A8 «, t00=0x0062, t01=0x0160}
0x9a84…9ab6 Head {h00=0x002e, h01=0x0050, text=» ST A1,ECBBA+52,A6 SAVE TASK ID IN BUFFER «, t00=0x0062, t01=0x0178}
0x9ab6…9ae0 Head {h00=0x0026, h01=0x0050, text=» LC A2,X'1F' HIGH INTENSITY CHAR. «, t00=0x0063, t01=0x001a}
0x9ae0…9afa Head {h00=0x0016, h01=0x0050, text=» SC A2,ECBBA+45,A6«, t00=0x0063, t01=0x0044}
0x9afa…9b26 Head {h00=0x0028, h01=0x0050, text=» LDKL A10,1 INDICATE NOT ONLY SPACES«, t00=0x0063, t01=0x005e}
0x9b26…9b4a Head {h00=0x0020, h01=0x0050, text=» LDKL A9,1 1 INTENSITY CHAR.«, t00=0x0063, t01=0x008a}
0x9b4a…9b76 Head {h00=0x0028, h01=0x0050, text=» LDKL A2,X'1801' DISPLAY ON LAST ROW«, t00=0x0063, t01=0x00ae}
0x9b76…9b8e Head {h00=0x0014, h01=0x0050, text=» ST A2,ECBCW,A8 «, t00=0x0063, t01=0x00da}
0x9b8e…9bb8 Head {h00=0x0026, h01=0x0050, text=» CF A14,DISLIN DISPLAY IDENT TEXT «, t00=0x0063, t01=0x00f2}
0x9bb8…9bc8 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0063, t01=0x011c}
0x9bc8…9bd6 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0063, t01=0x012c}
0x9bd6…9c1c Head {h00=0x0042, h01=0x0050, text=»**************************************************************«, t00=0x0063, t01=0x013a}
0x9c1c…9c26 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0063, t01=0x0180}
0x9c26…9c4a Head {h00=0x0020, h01=0x0050, text=»* DISSTA DISPLAY STATISTICS «, t00=0x0063, t01=0x018a}
0x9c4a…9c54 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0064, t01=0x001e}
0x9c54…9c9c Head {h00=0x0044, h01=0x0050, text=»*************************************************************** «, t00=0x0064, t01=0x0028}
0x9c9c…9cb6 Head {h00=0x0016, h01=0x0050, text=»* REGISTERS«, t00=0x0064, t01=0x0070}
0x9cb6…9cc0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0064, t01=0x008a}
0x9cc0…9cca Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0064, t01=0x0094}
0x9cca…9d12 Head {h00=0x0044, h01=0x0050, text=»*************************************************************** «, t00=0x0064, t01=0x009e}
0x9d12…9d26 Head {h00=0x0010, h01=0x0050, text=»DISSTA EQU *«, t00=0x0064, t01=0x00e6}
0x9d26…9d3a Head {h00=0x0010, h01=0x0050, text=» IFT TEST=1 «, t00=0x0064, t01=0x00fa}
0x9d3a…9d54 Head {h00=0x0016, h01=0x0050, text=» LD A8,ECBVDU,A11 «, t00=0x0064, t01=0x010e}
0x9d54…9d7a Head {h00=0x0022, h01=0x0050, text=» LDK A1,STALIN WHERE TO START «, t00=0x0064, t01=0x0128}
0x9d7a…9d8c Head {h00=0x000e, h01=0x0050, text=» SLL A1,8 «, t00=0x0064, t01=0x014e}
0x9d8c…9d9e Head {h00=0x000e, h01=0x0050, text=» LDK A2,1 «, t00=0x0064, t01=0x0160}
0x9d9e…9dc8 Head {h00=0x0026, h01=0x0050, text=» ORR A2,A1 FIRST POS. ON THAT LINE«, t00=0x0064, t01=0x0172}
0x9dc8…9de0 Head {h00=0x0014, h01=0x0050, text=» ST A2,ECBCW,A8 «, t00=0x0065, t01=0x000c}
0x9de0…9e08 Head {h00=0x0024, h01=0x0050, text=» CF A14,SPACES CLEAN THE BUFFER «, t00=0x0065, t01=0x0024}
0x9e08…9e26 Head {h00=0x001a, h01=0x0050, text=» LDK A5,0 RESET INDEX «, t00=0x0065, t01=0x004c}
0x9e26…9e3a Head {h00=0x0010, h01=0x0050, text=» LD A3,6,A13«, t00=0x0065, t01=0x006a}
0x9e3a…9e5e Head {h00=0x0020, h01=0x0050, text=» ADK A3,STATXT POINT TO TEXT«, t00=0x0065, t01=0x007e}
0x9e5e…9e72 Head {h00=0x0010, h01=0x0050, text=»DISS10 EQU *«, t00=0x0065, t01=0x00a2}
0x9e72…9e94 Head {h00=0x001e, h01=0x0050, text=» LDK A2,/1F HIGH INTENSITY«, t00=0x0065, t01=0x00b6}
0x9e94…9ea6 Head {h00=0x000e, h01=0x0050, text=» SCR A2,A6«, t00=0x0065, t01=0x00d8}
0x9ea6…9eb8 Head {h00=0x000e, h01=0x0050, text=» ADK A6,1 «, t00=0x0065, t01=0x00ea}
0x9eb8…9eca Head {h00=0x000e, h01=0x0050, text=» LDKL A9,1«, t00=0x0065, t01=0x00fc}
0x9eca…9efa Head {h00=0x002c, h01=0x0050, text=» LDK A1,TXTSIZ GET SIZE OF TEXT PER LINE«, t00=0x0065, t01=0x010e}
0x9efa…9f26 Head {h00=0x0028, h01=0x0050, text=» CF A14,MOVTXT MOVE IT IN TO BUFFER «, t00=0x0065, t01=0x013e}
0x9f26…9f4e Head {h00=0x0024, h01=0x0050, text=» ADK A6,5+STAPOS MAKE SOME ROOM «, t00=0x0065, t01=0x016a}
0x9f4e…9f66 (102, 0, 400) Head {h00=0x0014, h01=0x0050, text=» LC A1,INDEX,A5 «, t00=0x0066, t01=0x0004}
0x9f66…9f78 Head {h00=0x000e, h01=0x0050, text=» SLL A1,1 «, t00=0x0066, t01=0x001c}
0x9f78…9fa0 Head {h00=0x0024, h01=0x0050, text=» ADR A1,A12 POINT OUT STAT VALUE«, t00=0x0066, t01=0x002e}
0x9fa0…9fb2 Head {h00=0x000e, h01=0x0050, text=» LCR A2,A1«, t00=0x0066, t01=0x0056}
0x9fb2…9fd8 Head {h00=0x0022, h01=0x0050, text=» CF A14,CONASC MAKE IT VISABLE«, t00=0x0066, t01=0x0068}
0x9fd8…9fea Head {h00=0x000e, h01=0x0050, text=» LDR A4,A2«, t00=0x0066, t01=0x008e}
0x9fea…9ffc Head {h00=0x000e, h01=0x0050, text=» LCR A2,A1«, t00=0x0066, t01=0x00a0}
0x9ffc…a00e Head {h00=0x000e, h01=0x0050, text=» SRL A2,4 «, t00=0x0066, t01=0x00b2}
0xa00e…a024 Head {h00=0x0012, h01=0x0050, text=» CF A14,CONASC«, t00=0x0066, t01=0x00c4}
0xa024…a036 Head {h00=0x000e, h01=0x0050, text=» SLL A2,8 «, t00=0x0066, t01=0x00da}
0xa036…a048 Head {h00=0x000e, h01=0x0050, text=» ORR A2,A4«, t00=0x0066, t01=0x00ec}
0xa048…a05c Head {h00=0x0010, h01=0x0050, text=» SC A2,+1,A6«, t00=0x0066, t01=0x00fe}
0xa05c…a06e Head {h00=0x000e, h01=0x0050, text=» SRL A2,8 «, t00=0x0066, t01=0x0112}
0xa06e…a080 Head {h00=0x000e, h01=0x0050, text=» SCR A2,A6«, t00=0x0066, t01=0x0124}
0xa080…a092 Head {h00=0x000e, h01=0x0050, text=» ADK A6,2 «, t00=0x0066, t01=0x0136}
0xa092…a0a6 Head {h00=0x0010, h01=0x0050, text=» LC A2,+1,A1«, t00=0x0066, t01=0x0148}
0xa0a6…a0c6 Head {h00=0x001c, h01=0x0050, text=» CF A14,CONASC AS ABOVE «, t00=0x0066, t01=0x015c}
0xa0c6…a0d8 Head {h00=0x000e, h01=0x0050, text=» LDR A4,A2«, t00=0x0066, t01=0x017c}
0xa0d8…a0ec Head {h00=0x0010, h01=0x0050, text=» LC A2,+1,A1«, t00=0x0066, t01=0x018e}
0xa0ec…a0fe Head {h00=0x000e, h01=0x0050, text=» SRL A2,4 «, t00=0x0067, t01=0x0012}
0xa0fe…a114 Head {h00=0x0012, h01=0x0050, text=» CF A14,CONASC«, t00=0x0067, t01=0x0024}
0xa114…a126 Head {h00=0x000e, h01=0x0050, text=» SLL A2,8 «, t00=0x0067, t01=0x003a}
0xa126…a138 Head {h00=0x000e, h01=0x0050, text=» ORR A2,A4«, t00=0x0067, t01=0x004c}
0xa138…a14c Head {h00=0x0010, h01=0x0050, text=» SC A2,+1,A6«, t00=0x0067, t01=0x005e}
0xa14c…a15e Head {h00=0x000e, h01=0x0050, text=» SRL A2,8 «, t00=0x0067, t01=0x0072}
0xa15e…a170 Head {h00=0x000e, h01=0x0050, text=» SCR A2,A6«, t00=0x0067, t01=0x0084}
0xa170…a194 Head {h00=0x0020, h01=0x0050, text=» LDKL A10,1 NOT ONLY SPACES «, t00=0x0067, t01=0x0096}
0xa194…a1b8 Head {h00=0x0020, h01=0x0050, text=» CF A14,DISLIN DISPLAY STAT.«, t00=0x0067, t01=0x00ba}
0xa1b8…a1de Head {h00=0x0022, h01=0x0050, text=» CWK A5,NUMLIN LIMIT REACHED? «, t00=0x0067, t01=0x00de}
0xa1de…a1f8 Head {h00=0x0016, h01=0x0050, text=» RB(NE) DISS10 NO «, t00=0x0067, t01=0x0104}
0xa1f8…a204 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0067, t01=0x011e}
0xa204…a214 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0067, t01=0x012a}
0xa214…a228 Head {h00=0x0010, h01=0x0050, text=» IFT TEST=1 «, t00=0x0067, t01=0x013a}
0xa228…a236 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0067, t01=0x014e}
0xa236…a27a Head {h00=0x0040, h01=0x0050, text=»*********************************************************** «, t00=0x0067, t01=0x015c}
0xa27a…a284 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0068, t01=0x0010}
0xa284…a29e Head {h00=0x0016, h01=0x0050, text=»* MOVTXT MOVE TEXT«, t00=0x0068, t01=0x001a}
0xa29e…a2a8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0068, t01=0x0034}
0xa2a8…a2ec Head {h00=0x0040, h01=0x0050, text=»*********************************************************** «, t00=0x0068, t01=0x003e}
0xa2ec…a306 Head {h00=0x0016, h01=0x0050, text=»* REGISTERS «, t00=0x0068, t01=0x0082}
0xa306…a310 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0068, t01=0x009c}
0xa310…a31a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0068, t01=0x00a6}
0xa31a…a35c Head {h00=0x003e, h01=0x0050, text=»**********************************************************«, t00=0x0068, t01=0x00b0}
0xa35c…a364 Head {h00=0x0004, h01=0x0050, t00=0x0068, t01=0x00f2}
0xa364…a378 Head {h00=0x0010, h01=0x0050, text=»MOVTXT EQU *«, t00=0x0068, t01=0x00fa}
0xa378…a38a Head {h00=0x000e, h01=0x0050, text=» LCR A2,A3«, t00=0x0068, t01=0x010e}
0xa38a…a39c Head {h00=0x000e, h01=0x0050, text=» ADK A3,1 «, t00=0x0068, t01=0x0120}
0xa39c…a3b4 Head {h00=0x0014, h01=0x0050, text=» SC A2,STAPOS,A6«, t00=0x0068, t01=0x0132}
0xa3b4…a3c6 Head {h00=0x000e, h01=0x0050, text=» ADK A6,1 «, t00=0x0068, t01=0x014a}
0xa3c6…a3d8 Head {h00=0x000e, h01=0x0050, text=» SUK A1,1 «, t00=0x0068, t01=0x015c}
0xa3d8…a3ee Head {h00=0x0012, h01=0x0050, text=» RB(NZ) MOVTXT«, t00=0x0068, t01=0x016e}
0xa3ee…a3fe Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0068, t01=0x0184}
0xa3fe…a40c (105, 0, 400) Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0069, t01=0x0004}
0xa40c…a44e Head {h00=0x003e, h01=0x0050, text=»**********************************************************«, t00=0x0069, t01=0x0012}
0xa44e…a458 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0069, t01=0x0054}
0xa458…a47a Head {h00=0x001e, h01=0x0050, text=»* CONASC CONVERT TO ASCII «, t00=0x0069, t01=0x005e}
0xa47a…a484 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0069, t01=0x0080}
0xa484…a4c4 Head {h00=0x003c, h01=0x0050, text=»********************************************************«, t00=0x0069, t01=0x008a}
0xa4c4…a4da Head {h00=0x0012, h01=0x0050, text=»* REGISTERS«, t00=0x0069, t01=0x00ca}
0xa4da…a4e4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0069, t01=0x00e0}
0xa4e4…a4ee Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0069, t01=0x00ea}
0xa4ee…a52e Head {h00=0x003c, h01=0x0050, text=»********************************************************«, t00=0x0069, t01=0x00f4}
0xa52e…a542 Head {h00=0x0010, h01=0x0050, text=»CONASC EQU *«, t00=0x0069, t01=0x0134}
0xa542…a556 Head {h00=0x0010, h01=0x0050, text=» ANK A2,/0F «, t00=0x0069, t01=0x0148}
0xa556…a56c Head {h00=0x0012, h01=0x0050, text=» CCK A2,/0909 «, t00=0x0069, t01=0x015c}
0xa56c…a582 Head {h00=0x0012, h01=0x0050, text=» RF(G) CONA10 «, t00=0x0069, t01=0x0172}
0xa582…a596 Head {h00=0x0010, h01=0x0050, text=» ORK A2,/30 «, t00=0x0069, t01=0x0188}
0xa596…a5a8 Head {h00=0x000e, h01=0x0050, text=» RF CONA90«, t00=0x006a, t01=0x000c}
0xa5a8…a5bc Head {h00=0x0010, h01=0x0050, text=»CONA10 EQU *«, t00=0x006a, t01=0x001e}
0xa5bc…a5d0 Head {h00=0x0010, h01=0x0050, text=» ADK A2,/37 «, t00=0x006a, t01=0x0032}
0xa5d0…a5e4 Head {h00=0x0010, h01=0x0050, text=»CONA90 EQU *«, t00=0x006a, t01=0x0046}
0xa5e4…a5f4 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x006a, t01=0x005a}
0xa5f4…a600 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x006a, t01=0x006a}
0xa600…a60e Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x006a, t01=0x0076}
0xa60e…a650 Head {h00=0x003e, h01=0x0050, text=»********************************************************* «, t00=0x006a, t01=0x0084}
0xa650…a692 Head {h00=0x003e, h01=0x0050, text=»* * «, t00=0x006a, t01=0x00c6}
0xa692…a6d4 Head {h00=0x003e, h01=0x0050, text=»* ATMASF SEARCH ATTRIBUTE FORWARD * «, t00=0x006a, t01=0x0108}
0xa6d4…a716 Head {h00=0x003e, h01=0x0050, text=»* * «, t00=0x006a, t01=0x014a}
0xa716…a758 Head {h00=0x003e, h01=0x0050, text=»********************************************************* «, t00=0x006a, t01=0x018c}
0xa758…a76c Head {h00=0x0010, h01=0x0050, text=»* REGISTERS«, t00=0x006b, t01=0x003e}
0xa76c…a776 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006b, t01=0x0052}
0xa776…a7a2 Head {h00=0x0028, h01=0x0050, text=»* A1= AT ENTRY START SEARCH ADDRESS «, t00=0x006b, t01=0x005c}
0xa7a2…a7b8 Head {h00=0x0012, h01=0x0050, text=»* A2= RESERVED«, t00=0x006b, t01=0x0088}
0xa7b8…a7ce Head {h00=0x0012, h01=0x0050, text=»* A3= RESERVED«, t00=0x006b, t01=0x009e}
0xa7ce…a7ec Head {h00=0x001a, h01=0x0050, text=»* A4= REL. CURSOR POS.«, t00=0x006b, t01=0x00b4}
0xa7ec…a80e Head {h00=0x001e, h01=0x0050, text=»* A5= REL. ATTRIBUTE POS. «, t00=0x006b, t01=0x00d2}
0xa80e…a82c Head {h00=0x001a, h01=0x0050, text=»* A6= ATTRIBUTE CHAR. «, t00=0x006b, t01=0x00f4}
0xa82c…a842 Head {h00=0x0012, h01=0x0050, text=»* A8= RESERVED«, t00=0x006b, t01=0x0112}
0xa842…a858 Head {h00=0x0012, h01=0x0050, text=»* A9= RESERVED«, t00=0x006b, t01=0x0128}
0xa858…a870 Head {h00=0x0014, h01=0x0050, text=»* A10= RESERVED «, t00=0x006b, t01=0x013e}
0xa870…a890 Head {h00=0x001c, h01=0x0050, text=»* A11= CREDIT WORK AREA «, t00=0x006b, t01=0x0156}
0xa890…a8a8 Head {h00=0x0014, h01=0x0050, text=»* A13= RESERVED «, t00=0x006b, t01=0x0176}
0xa8a8…a8b2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006b, t01=0x018e}
0xa8b2…a8f4 Head {h00=0x003e, h01=0x0050, text=»********************************************************* «, t00=0x006c, t01=0x0008}
0xa8f4…a908 Head {h00=0x0010, h01=0x0050, text=»ATMASF EQU *«, t00=0x006c, t01=0x004a}
0xa908…a920 Head {h00=0x0014, h01=0x0050, text=» ST A1,REGI,A11 «, t00=0x006c, t01=0x005e}
0xa920…a934 Head {h00=0x0010, h01=0x0050, text=»ASF100 EQU *«, t00=0x006c, t01=0x0076}
0xa934…a946 Head {h00=0x000e, h01=0x0050, text=» ADK A1,1 «, t00=0x006c, t01=0x008a}
0xa946…a96a Head {h00=0x0020, h01=0x0050, text=» CWK A1,LBVDU-1 WRAP AROUND?«, t00=0x006c, t01=0x009c}
0xa96a…a984 Head {h00=0x0016, h01=0x0050, text=» RF(NG) ASF200 NO «, t00=0x006c, t01=0x00c0}
0xa984…a9aa Head {h00=0x0022, h01=0x0050, text=» LDK A1,0 FIRST POS. ON SCREEN«, t00=0x006c, t01=0x00da}
0xa9aa…a9be Head {h00=0x0010, h01=0x0050, text=»ASF200 EQU *«, t00=0x006c, t01=0x0100}
0xa9be…a9ec Head {h00=0x002a, h01=0x0050, text=» CW A1,REGI,A11 WHOLE SCREEN SEARCHED?«, t00=0x006c, t01=0x0114}
0xa9ec…aa06 Head {h00=0x0016, h01=0x0050, text=» RF(E) ASF900 YES «, t00=0x006c, t01=0x0142}
0xaa06…aa34 Head {h00=0x002a, h01=0x0050, text=» CF A14,GETVDU GET CHAR. IN VDU BUFFER«, t00=0x006c, t01=0x015c}
0xaa34…aa54 Head {h00=0x001c, h01=0x0050, text=» CCK A7,/8000 ATTRIBUTE?«, t00=0x006c, t01=0x018a}
0xaa54…aa6c Head {h00=0x0014, h01=0x0050, text=» RB(L) ASF100 NO«, t00=0x006d, t01=0x001a}
0xaa6c…aa7e Head {h00=0x000e, h01=0x0050, text=» LDR A6,A7«, t00=0x006d, t01=0x0032}
0xaa7e…aa90 Head {h00=0x000e, h01=0x0050, text=» LDR A5,A1«, t00=0x006d, t01=0x0044}
0xaa90…aac2 Head {h00=0x002e, h01=0x0050, text=» CF A14,STOINF SAVE NEW SCREEN INFORMATION«, t00=0x006d, t01=0x0056}
0xaac2…aad6 Head {h00=0x0010, h01=0x0050, text=»ASF900 EQU *«, t00=0x006d, t01=0x0088}
0xaad6…aae6 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x006d, t01=0x009c}
0xaae6…aaf4 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x006d, t01=0x00ac}
0xaaf4…ab44 Head {h00=0x004c, h01=0x0050, text=»*********************************************************************** «, t00=0x006d, t01=0x00ba}
0xab44…ab94 Head {h00=0x004c, h01=0x0050, text=»* * «, t00=0x006d, t01=0x010a}
0xab94…abe4 Head {h00=0x004c, h01=0x0050, text=»* ATMASB SEARCH ATTRIBUTE BACKWARD * «, t00=0x006d, t01=0x015a}
0xabe4…ac34 Head {h00=0x004c, h01=0x0050, text=»* * «, t00=0x006e, t01=0x001a}
0xac34…ac84 Head {h00=0x004c, h01=0x0050, text=»*********************************************************************** «, t00=0x006e, t01=0x006a}
0xac84…ac98 Head {h00=0x0010, h01=0x0050, text=»* REGISTERS«, t00=0x006e, t01=0x00ba}
0xac98…aca2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006e, t01=0x00ce}
0xaca2…acca Head {h00=0x0024, h01=0x0050, text=»* A1= ATENTRY START SEARCH ADDR.«, t00=0x006e, t01=0x00d8}
0xacca…ace0 Head {h00=0x0012, h01=0x0050, text=»* A2= RESERVED«, t00=0x006e, t01=0x0100}
0xace0…acf6 Head {h00=0x0012, h01=0x0050, text=»* A3= RESERVED«, t00=0x006e, t01=0x0116}
0xacf6…ad14 Head {h00=0x001a, h01=0x0050, text=»* A4= REL. CURSOR POS.«, t00=0x006e, t01=0x012c}
0xad14…ad36 Head {h00=0x001e, h01=0x0050, text=»* A5= REL. ATTRIBUTE POS. «, t00=0x006e, t01=0x014a}
0xad36…ad54 Head {h00=0x001a, h01=0x0050, text=»* A6= ATTRIBUTE CHAR. «, t00=0x006e, t01=0x016c}
0xad54…ad6a Head {h00=0x0012, h01=0x0050, text=»* A8= RESERVED«, t00=0x006e, t01=0x018a}
0xad6a…ad80 Head {h00=0x0012, h01=0x0050, text=»* A9= RESERVED«, t00=0x006f, t01=0x0010}
0xad80…ad98 Head {h00=0x0014, h01=0x0050, text=»* A10= RESERVED «, t00=0x006f, t01=0x0026}
0xad98…adb8 Head {h00=0x001c, h01=0x0050, text=»* A11= CREDIT WORK AREA «, t00=0x006f, t01=0x003e}
0xadb8…add0 Head {h00=0x0014, h01=0x0050, text=»* A13= RESERVED «, t00=0x006f, t01=0x005e}
0xadd0…adda Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006f, t01=0x0076}
0xadda…ae2a Head {h00=0x004c, h01=0x0050, text=»************************************************************************«, t00=0x006f, t01=0x0080}
0xae2a…ae3e Head {h00=0x0010, h01=0x0050, text=»ATMASB EQU *«, t00=0x006f, t01=0x00d0}
0xae3e…ae56 Head {h00=0x0014, h01=0x0050, text=» ST A1,REGI,A11 «, t00=0x006f, t01=0x00e4}
0xae56…ae6a Head {h00=0x0010, h01=0x0050, text=»ASB100 EQU *«, t00=0x006f, t01=0x00fc}
0xae6a…ae98 Head {h00=0x002a, h01=0x0050, text=» CF A14,GETVDU GET CHAR. IN VDU BUFFER«, t00=0x006f, t01=0x0110}
0xae98…aeb8 Head {h00=0x001c, h01=0x0050, text=» CCK A7,/8000 ATTRIBUTE?«, t00=0x006f, t01=0x013e}
0xaeb8…aed2 Head {h00=0x0016, h01=0x0050, text=» RF(NL) ASB300 YES«, t00=0x006f, t01=0x015e}
0xaed2…aee4 Head {h00=0x000e, h01=0x0050, text=» SUK A1,1 «, t00=0x006f, t01=0x0178}
0xaee4…af0a Head {h00=0x0022, h01=0x0050, text=» RF(NN) ASB200 NOT WRAP AROUND«, t00=0x006f, t01=0x018a}
0xaf0a…af36 Head {h00=0x0028, h01=0x0050, text=» LDKL A1,LBVDU-1 LAST POS. ON SCREEN«, t00=0x0070, t01=0x0020}
0xaf36…af4a Head {h00=0x0010, h01=0x0050, text=»ASB200 EQU *«, t00=0x0070, t01=0x004c}
0xaf4a…af78 Head {h00=0x002a, h01=0x0050, text=» CW A1,REGI,A11 WHOLE SCREEN SEARCHED?«, t00=0x0070, t01=0x0060}
0xaf78…af92 Head {h00=0x0016, h01=0x0050, text=» RF(E) ASB900 YES «, t00=0x0070, t01=0x008e}
0xaf92…afa4 Head {h00=0x000e, h01=0x0050, text=» RB ASB100«, t00=0x0070, t01=0x00a8}
0xafa4…afb8 Head {h00=0x0010, h01=0x0050, text=»ASB300 EQU *«, t00=0x0070, t01=0x00ba}
0xafb8…afca Head {h00=0x000e, h01=0x0050, text=» LDR A6,A7«, t00=0x0070, t01=0x00ce}
0xafca…afdc Head {h00=0x000e, h01=0x0050, text=» LDR A5,A1«, t00=0x0070, t01=0x00e0}
0xafdc…b00a Head {h00=0x002a, h01=0x0050, text=» CF A14,STOINF SAVE SCREEN INFORMATION«, t00=0x0070, t01=0x00f2}
0xb00a…b01e Head {h00=0x0010, h01=0x0050, text=»ASB900 EQU *«, t00=0x0070, t01=0x0120}
0xb01e…b02e Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0070, t01=0x0134}
0xb02e…b03c Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0070, t01=0x0144}
0xb03c…b084 Head {h00=0x0044, h01=0x0050, text=»*************************************************************** «, t00=0x0070, t01=0x0152}
0xb084…b0cc Head {h00=0x0044, h01=0x0050, text=»* * «, t00=0x0071, t01=0x000a}
0xb0cc…b114 Head {h00=0x0044, h01=0x0050, text=»* SNULL SEARCH FIRST NULL CHAR. * «, t00=0x0071, t01=0x0052}
0xb114…b15c Head {h00=0x0044, h01=0x0050, text=»* * «, t00=0x0071, t01=0x009a}
0xb15c…b1a4 Head {h00=0x0044, h01=0x0050, text=»*************************************************************** «, t00=0x0071, t01=0x00e2}
0xb1a4…b1b8 Head {h00=0x0010, h01=0x0050, text=»* REGISTERS«, t00=0x0071, t01=0x012a}
0xb1b8…b1c2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0071, t01=0x013e}
0xb1c2…b1f8 Head {h00=0x0032, h01=0x0050, text=»* A1= AT RETURN 1=NULL FOUND, 2=NO NULL FOUND«, t00=0x0071, t01=0x0148}
0xb1f8…b20e Head {h00=0x0012, h01=0x0050, text=»* A2= RESERVED«, t00=0x0071, t01=0x017e}
0xb20e…b254 (114, 0, 400) Head {h00=0x0042, h01=0x0050, text=»* A3= AT ENTRY LAST SEARCH ADDR., AT RETURN NULL ADDR. IF ANY «, t00=0x0072, t01=0x0004}
0xb254…b272 Head {h00=0x001a, h01=0x0050, text=»* A4= REL. CURSOR POS.«, t00=0x0072, t01=0x004a}
0xb272…b288 Head {h00=0x0012, h01=0x0050, text=»* A5= RESERVED«, t00=0x0072, t01=0x0068}
0xb288…b29e Head {h00=0x0012, h01=0x0050, text=»* A6= RESERVED«, t00=0x0072, t01=0x007e}
0xb29e…b2be Head {h00=0x001c, h01=0x0050, text=»* A11= CREDIT WORK AREA «, t00=0x0072, t01=0x0094}
0xb2be…b2d6 Head {h00=0x0014, h01=0x0050, text=»* A13= RESERVED «, t00=0x0072, t01=0x00b4}
0xb2d6…b2e0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0072, t01=0x00cc}
0xb2e0…b328 Head {h00=0x0044, h01=0x0050, text=»****************************************************************«, t00=0x0072, t01=0x00d6}
0xb328…b33c Head {h00=0x0010, h01=0x0050, text=»SNULL EQU * «, t00=0x0072, t01=0x011e}
0xb33c…b34e Head {h00=0x000e, h01=0x0050, text=» LDR A1,A4«, t00=0x0072, t01=0x0132}
0xb34e…b362 Head {h00=0x0010, h01=0x0050, text=»SNU100 EQU *«, t00=0x0072, t01=0x0144}
0xb362…b374 Head {h00=0x000e, h01=0x0050, text=» ADK A1,1 «, t00=0x0072, t01=0x0158}
0xb374…b398 Head {h00=0x0020, h01=0x0050, text=» CWK A1,LBVDU-1 WRAP AROUND?«, t00=0x0072, t01=0x016a}
0xb398…b3b2 Head {h00=0x0016, h01=0x0050, text=» RF(NG) SNU200 NO «, t00=0x0072, t01=0x018e}
0xb3b2…b3d6 Head {h00=0x0020, h01=0x0050, text=» LDK A1,0 FIRST SCREEN POS. «, t00=0x0073, t01=0x0018}
0xb3d6…b3ea Head {h00=0x0010, h01=0x0050, text=»SNU200 EQU *«, t00=0x0073, t01=0x003c}
0xb3ea…b40a Head {h00=0x001c, h01=0x0050, text=» CWR A1,A3 ALL SEARCHED?«, t00=0x0073, t01=0x0050}
0xb40a…b424 Head {h00=0x0016, h01=0x0050, text=» RF(E) SNU300 YES «, t00=0x0073, t01=0x0070}
0xb424…b452 Head {h00=0x002a, h01=0x0050, text=» CF A14,GETVDU GET CHAR IN VDU BUFFER «, t00=0x0073, t01=0x008a}
0xb452…b472 Head {h00=0x001c, h01=0x0050, text=» CCK A7,NULL NULL CHAR? «, t00=0x0073, t01=0x00b8}
0xb472…b48c Head {h00=0x0016, h01=0x0050, text=» RB(NE) SNU100 NO «, t00=0x0073, t01=0x00d8}
0xb48c…b49e Head {h00=0x000e, h01=0x0050, text=» LDR A3,A1«, t00=0x0073, t01=0x00f2}
0xb49e…b4c4 Head {h00=0x0022, h01=0x0050, text=» LDK A1,1 INDICATE NULL FOUND «, t00=0x0073, t01=0x0104}
0xb4c4…b4d6 Head {h00=0x000e, h01=0x0050, text=» RF SNU900«, t00=0x0073, t01=0x012a}
0xb4d6…b4ea Head {h00=0x0010, h01=0x0050, text=»SNU300 EQU *«, t00=0x0073, t01=0x013c}
0xb4ea…b4fc Head {h00=0x000e, h01=0x0050, text=» LDK A1,2 «, t00=0x0073, t01=0x0150}
0xb4fc…b510 Head {h00=0x0010, h01=0x0050, text=»SNU900 EQU *«, t00=0x0073, t01=0x0162}
0xb510…b520 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0073, t01=0x0176}
0xb520…b52e Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0073, t01=0x0186}
0xb52e…b572 (116, 0, 400) Head {h00=0x0040, h01=0x0050, text=»************************************************************«, t00=0x0074, t01=0x0004}
0xb572…b5b6 Head {h00=0x0040, h01=0x0050, text=»* *«, t00=0x0074, t01=0x0048}
0xb5b6…b5fa Head {h00=0x0040, h01=0x0050, text=»* WCHAR DISPLAY CHAR. AND CURSOR *«, t00=0x0074, t01=0x008c}
0xb5fa…b63e Head {h00=0x0040, h01=0x0050, text=»* *«, t00=0x0074, t01=0x00d0}
0xb63e…b682 Head {h00=0x0040, h01=0x0050, text=»************************************************************«, t00=0x0074, t01=0x0114}
0xb682…b696 Head {h00=0x0010, h01=0x0050, text=»* REGISTERS«, t00=0x0074, t01=0x0158}
0xb696…b6a0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0074, t01=0x016c}
0xb6a0…b6b6 Head {h00=0x0012, h01=0x0050, text=»* A2= KEY-CHAR«, t00=0x0074, t01=0x0176}
0xb6b6…b6d4 Head {h00=0x001a, h01=0x0050, text=»* A4= REL. CURSOR POS.«, t00=0x0074, t01=0x018c}
0xb6d4…b6f6 Head {h00=0x001e, h01=0x0050, text=»* A5= REL. ATTRIBUTE POS. «, t00=0x0075, t01=0x001a}
0xb6f6…b714 Head {h00=0x001a, h01=0x0050, text=»* A6= ATTRIBUTE CHAR. «, t00=0x0075, t01=0x003c}
0xb714…b72a Head {h00=0x0012, h01=0x0050, text=»* A8= VDU-ECB «, t00=0x0075, t01=0x005a}
0xb72a…b74a Head {h00=0x001c, h01=0x0050, text=»* A11= CREDIT WORK AREA «, t00=0x0075, t01=0x0070}
0xb74a…b762 Head {h00=0x0014, h01=0x0050, text=»* A13= RESERVED «, t00=0x0075, t01=0x0090}
0xb762…b76c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0075, t01=0x00a8}
0xb76c…b7b2 Head {h00=0x0042, h01=0x0050, text=»************************************************************* «, t00=0x0075, t01=0x00b2}
0xb7b2…b7c6 Head {h00=0x0010, h01=0x0050, text=»WCHAR EQU * «, t00=0x0075, t01=0x00f8}
0xb7c6…b7e0 Head {h00=0x0016, h01=0x0050, text=» LD A8,ECBVDU,A11 «, t00=0x0075, t01=0x010c}
0xb7e0…b808 Head {h00=0x0024, h01=0x0050, text=» LDK A1,/1E LOW INTENSITY CHAR. «, t00=0x0075, t01=0x0126}
0xb808…b81a Head {h00=0x000e, h01=0x0050, text=» LDR A7,A6«, t00=0x0075, t01=0x014e}
0xb81a…b83e Head {h00=0x0020, h01=0x0050, text=» ANK A7,/8 STANDARD DISPLAY?«, t00=0x0075, t01=0x0160}
0xb83e…b858 Head {h00=0x0016, h01=0x0050, text=» RF(Z) WCH300 YES «, t00=0x0075, t01=0x0184}
0xb858…b86a Head {h00=0x000e, h01=0x0050, text=» LDR A7,A6«, t00=0x0076, t01=0x000e}
0xb86a…b892 Head {h00=0x0024, h01=0x0050, text=» ANK A7,/4 INTENSIFIED DISPLAY? «, t00=0x0076, t01=0x0020}
0xb892…b8ac Head {h00=0x0016, h01=0x0050, text=» RF(NZ) WCH200 NO «, t00=0x0076, t01=0x0048}
0xb8ac…b8d4 Head {h00=0x0024, h01=0x0050, text=» LDK A1,/1F HIGH INTENSITY CHAR.«, t00=0x0076, t01=0x0062}
0xb8d4…b8e6 Head {h00=0x000e, h01=0x0050, text=» RF WCH300«, t00=0x0076, t01=0x008a}
0xb8e6…b8fa Head {h00=0x0010, h01=0x0050, text=»WCH200 EQU *«, t00=0x0076, t01=0x009c}
0xb8fa…b918 Head {h00=0x001a, h01=0x0050, text=» LDK A2,/20 NONDISPLAY«, t00=0x0076, t01=0x00b0}
0xb918…b92c Head {h00=0x0010, h01=0x0050, text=»WCH300 EQU *«, t00=0x0076, t01=0x00ce}
0xb92c…b956 Head {h00=0x0026, h01=0x0050, text=» LD A7,ECBBA,A8 GET BUFFER ADDRESS«, t00=0x0076, t01=0x00e2}
0xb956…b97e Head {h00=0x0024, h01=0x0050, text=» SC A1,2,A7 SAVE INTENSITY CHAR.«, t00=0x0076, t01=0x010c}
0xb97e…b9ac Head {h00=0x002a, h01=0x0050, text=» CF A14,RFMDUP REPLACE FM OR DUP CHAR.«, t00=0x0076, t01=0x0134}
0xb9ac…b9c6 Head {h00=0x0016, h01=0x0050, text=» IFF TRANAT=0 . =2«, t00=0x0076, t01=0x0162}
0xb9c6…b9f4 Head {h00=0x002a, h01=0x0050, text=» LC A2,CONNAT,A2 TRANSFORM NAT.CHAR =2«, t00=0x0076, t01=0x017c}
0xb9f4…ba06 Head {h00=0x000e, h01=0x0050, text=» XIF . =2«, t00=0x0077, t01=0x001a}
0xba06…ba34 Head {h00=0x002a, h01=0x0050, text=» SC A2,3,A7 STORE CHAR. IN VDU BUFFER «, t00=0x0077, t01=0x002c}
0xba34…ba52 Head {h00=0x001a, h01=0x0050, text=» LDK A1,4 REQ. LENGTH «, t00=0x0077, t01=0x005a}
0xba52…ba70 Head {h00=0x001a, h01=0x0050, text=» CF A14,DISCHA DISPLAY«, t00=0x0077, t01=0x0078}
0xba70…ba82 Head {h00=0x000e, h01=0x0050, text=» ADK A4,1 «, t00=0x0077, t01=0x0096}
0xba82…ba98 Head {h00=0x0012, h01=0x0050, text=» IM PCURS,A11 «, t00=0x0077, t01=0x00a8}
0xba98…bac4 Head {h00=0x0028, h01=0x0050, text=» CWK A5,LBVDU+1 UNFORMATTED SCREEN? «, t00=0x0077, t01=0x00be}
0xbac4…bade Head {h00=0x0016, h01=0x0050, text=» RF(E) WCH900 YES «, t00=0x0077, t01=0x00ea}
0xbade…bb0a Head {h00=0x0028, h01=0x0050, text=» ORK A6,1 SET MDT-BITS IN ATTRIBUTE «, t00=0x0077, t01=0x0104}
0xbb0a…bb24 Head {h00=0x0016, h01=0x0050, text=» ST A6,ATTRIB,A11 «, t00=0x0077, t01=0x0130}
0xbb24…bb36 Head {h00=0x000e, h01=0x0050, text=» LDR A1,A5«, t00=0x0077, t01=0x014a}
0xbb36…bb48 Head {h00=0x000e, h01=0x0050, text=» LDR A7,A6«, t00=0x0077, t01=0x015c}
0xbb48…bb78 Head {h00=0x002c, h01=0x0050, text=» CF A14,STOVDU STORE CHAR. IN VDU BUFFER«, t00=0x0077, t01=0x016e}
0xbb78…bb8c Head {h00=0x0010, h01=0x0050, text=»WCH900 EQU *«, t00=0x0078, t01=0x000e}
0xbb8c…bb9c Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0078, t01=0x0022}
0xbb9c…bbaa Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0078, t01=0x0032}
0xbbaa…bbec Head {h00=0x003e, h01=0x0050, text=»********************************************************* «, t00=0x0078, t01=0x0040}
0xbbec…bc2e Head {h00=0x003e, h01=0x0050, text=»* * «, t00=0x0078, t01=0x0082}
0xbc2e…bc70 Head {h00=0x003e, h01=0x0050, text=»* RFMDUP REPLACE FM OR DUP CHAR IF PRESENT * «, t00=0x0078, t01=0x00c4}
0xbc70…bcb2 Head {h00=0x003e, h01=0x0050, text=»* * «, t00=0x0078, t01=0x0106}
0xbcb2…bcf4 Head {h00=0x003e, h01=0x0050, text=»********************************************************* «, t00=0x0078, t01=0x0148}
0xbcf4…bd08 Head {h00=0x0010, h01=0x0050, text=»* REGISTERS«, t00=0x0078, t01=0x018a}
0xbd08…bd1e Head {h00=0x0012, h01=0x0050, text=»* A2= KEY-CHAR«, t00=0x0079, t01=0x000e}
0xbd1e…bd34 Head {h00=0x0012, h01=0x0050, text=»* A4= RESERVED«, t00=0x0079, t01=0x0024}
0xbd34…bd4a Head {h00=0x0012, h01=0x0050, text=»* A5= RESERVED«, t00=0x0079, t01=0x003a}
0xbd4a…bd60 Head {h00=0x0012, h01=0x0050, text=»* A6= RESERVED«, t00=0x0079, t01=0x0050}
0xbd60…bd80 Head {h00=0x001c, h01=0x0050, text=»* A11= CREDIT WORK AREA «, t00=0x0079, t01=0x0066}
0xbd80…bd98 Head {h00=0x0014, h01=0x0050, text=»* A13= RESERVED «, t00=0x0079, t01=0x0086}
0xbd98…bda2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0079, t01=0x009e}
0xbda2…bdda Head {h00=0x0034, h01=0x0050, text=»*********************************************** «, t00=0x0079, t01=0x00a8}
0xbdda…bdee Head {h00=0x0010, h01=0x0050, text=»RFMDUP EQU *«, t00=0x0079, t01=0x00e0}
0xbdee…be0e Head {h00=0x001c, h01=0x0050, text=» CWK A2,DUPCH DUP CHAR? «, t00=0x0079, t01=0x00f4}
0xbe0e…be28 Head {h00=0x0016, h01=0x0050, text=» RF(NE) RFMD10 NO «, t00=0x0079, t01=0x0114}
0xbe28…be44 Head {h00=0x0018, h01=0x0050, text=» LDK A2,/2A REPLACE «, t00=0x0079, t01=0x012e}
0xbe44…be56 Head {h00=0x000e, h01=0x0050, text=» RF RFMD90«, t00=0x0079, t01=0x014a}
0xbe56…be6a Head {h00=0x0010, h01=0x0050, text=»RFMD10 EQU *«, t00=0x0079, t01=0x015c}
0xbe6a…be88 Head {h00=0x001a, h01=0x0050, text=» CWK A2,FMCH FM CHAR? «, t00=0x0079, t01=0x0170}
0xbe88…bea2 Head {h00=0x0016, h01=0x0050, text=» RF(NE) RFMD90 NO «, t00=0x0079, t01=0x018e}
0xbea2…bebe Head {h00=0x0018, h01=0x0050, text=» LDK A2,/3B REPLACE «, t00=0x007a, t01=0x0018}
0xbebe…bed2 Head {h00=0x0010, h01=0x0050, text=»RFMD90 EQU *«, t00=0x007a, t01=0x0034}
0xbed2…bee2 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x007a, t01=0x0048}
0xbee2…bef0 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x007a, t01=0x0058}
0xbef0…bf28 Head {h00=0x0034, h01=0x0050, text=»************************************************«, t00=0x007a, t01=0x0066}
0xbf28…bf60 Head {h00=0x0034, h01=0x0050, text=»* *«, t00=0x007a, t01=0x009e}
0xbf60…bf98 Head {h00=0x0034, h01=0x0050, text=»* DISCHA DISPLAY CHAR *«, t00=0x007a, t01=0x00d6}
0xbf98…bfd0 Head {h00=0x0034, h01=0x0050, text=»* *«, t00=0x007a, t01=0x010e}
0xbfd0…c008 Head {h00=0x0034, h01=0x0050, text=»************************************************«, t00=0x007a, t01=0x0146}
0xc008…c01c Head {h00=0x0010, h01=0x0050, text=»* REGISTERS«, t00=0x007a, t01=0x017e}
0xc01c…c026 (123, 0, 400) Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x007b, t01=0x0004}
0xc026…c040 Head {h00=0x0016, h01=0x0050, text=»* A1= REQ. LENGTH «, t00=0x007b, t01=0x000e}
0xc040…c056 Head {h00=0x0012, h01=0x0050, text=»* A2= RESERVED«, t00=0x007b, t01=0x0028}
0xc056…c06c Head {h00=0x0012, h01=0x0050, text=»* A4= RESERVED«, t00=0x007b, t01=0x003e}
0xc06c…c082 Head {h00=0x0012, h01=0x0050, text=»* A5= RESERVED«, t00=0x007b, t01=0x0054}
0xc082…c098 Head {h00=0x0012, h01=0x0050, text=»* A6= RESERVED«, t00=0x007b, t01=0x006a}
0xc098…c0ae Head {h00=0x0012, h01=0x0050, text=»* A8= VDU-ECB «, t00=0x007b, t01=0x0080}
0xc0ae…c0ce Head {h00=0x001c, h01=0x0050, text=»* A11= CREDIT WORK AREA «, t00=0x007b, t01=0x0096}
0xc0ce…c0e6 Head {h00=0x0014, h01=0x0050, text=»* A13= RESERVED «, t00=0x007b, t01=0x00b6}
0xc0e6…c0f0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x007b, t01=0x00ce}
0xc0f0…c12a Head {h00=0x0036, h01=0x0050, text=»************************************************* «, t00=0x007b, t01=0x00d8}
0xc12a…c13e Head {h00=0x0010, h01=0x0050, text=»DISCHA EQU *«, t00=0x007b, t01=0x0112}
0xc13e…c156 Head {h00=0x0014, h01=0x0050, text=» LC A2,TCT01,A11«, t00=0x007b, t01=0x0126}
0xc156…c17c Head {h00=0x0022, h01=0x0050, text=» CCK A2,VDUCOD PRINTER UNPACK?«, t00=0x007b, t01=0x013e}
0xc17c…c196 Head {h00=0x0016, h01=0x0050, text=» RF(NE) DISC95 YES«, t00=0x007b, t01=0x0164}
0xc196…c1b0 Head {h00=0x0016, h01=0x0050, text=» LD A8,ECBVDU,A11 «, t00=0x007b, t01=0x017e}
0xc1b0…c1c8 Head {h00=0x0014, h01=0x0050, text=» ST A1,ECBRL,A8 «, t00=0x007c, t01=0x0008}
0xc1c8…c1f4 Head {h00=0x0028, h01=0x0050, text=» LDKL A1,/101 START AT LINE 1 POS. 1«, t00=0x007c, t01=0x0020}
0xc1f4…c20c Head {h00=0x0014, h01=0x0050, text=» ST A1,ECBCW,A8 «, t00=0x007c, t01=0x004c}
0xc20c…c222 Head {h00=0x0012, h01=0x0050, text=» LDKL A1,/100 «, t00=0x007c, t01=0x0064}
0xc222…c240 Head {h00=0x001a, h01=0x0050, text=» LDR A7,A4 CURSOR POS.«, t00=0x007c, t01=0x007a}
0xc240…c254 Head {h00=0x0010, h01=0x0050, text=»DISC10 EQU *«, t00=0x007c, t01=0x0098}
0xc254…c274 Head {h00=0x001c, h01=0x0050, text=» CWK A7,LLINE NEXT LINE?«, t00=0x007c, t01=0x00ac}
0xc274…c28c Head {h00=0x0014, h01=0x0050, text=» RF(L) DISC90 NO«, t00=0x007c, t01=0x00cc}
0xc28c…c2b6 Head {h00=0x0026, h01=0x0050, text=» ADS A1,ECBCW,A8 MOVE TO NEXT LINE«, t00=0x007c, t01=0x00e4}
0xc2b6…c2cc Head {h00=0x0012, h01=0x0050, text=» SUKL A7,LLINE«, t00=0x007c, t01=0x010e}
0xc2cc…c2de Head {h00=0x000e, h01=0x0050, text=» RB DISC10«, t00=0x007c, t01=0x0124}
0xc2de…c2f2 Head {h00=0x0010, h01=0x0050, text=»DISC90 EQU *«, t00=0x007c, t01=0x0136}
0xc2f2…c30a Head {h00=0x0014, h01=0x0050, text=» ADS A7,ECBCW,A8«, t00=0x007c, t01=0x014a}
0xc30a…c332 Head {h00=0x0024, h01=0x0050, text=» LDK A7,/8B SET CURSOR AND WRITE«, t00=0x007c, t01=0x0162}
0xc332…c33e Head {h00=0x0008, h01=0x0050, text=» LKM«, t00=0x007c, t01=0x018a}
0xc33e…c34e Head {h00=0x000c, h01=0x0050, text=» DATA 1 «, t00=0x007d, t01=0x0008}
0xc34e…c362 Head {h00=0x0010, h01=0x0050, text=»DISC95 EQU *«, t00=0x007d, t01=0x0018}
0xc362…c372 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x007d, t01=0x002c}
0xc372…c37a Head {h00=0x0004, h01=0x0050, t00=0x007d, t01=0x003c}
0xc37a…c386 Head {h00=0x0008, h01=0x0050, text=» END«, t00=0x007d, t01=0x0044}
0xc386…c38a Head {h00=0x4004, h01=0x0000}
0xc38a…c38e 00 7d 00 50 ┆ } P┆
0xc38e…c396 (126, 1, 8) 20 04 00 00 00 7e 00 04 ┆ ~ ┆
0xc396…c3e6 (127, 0, 400) 20 42 41 53 45 20 00 6e 01 80 00 0e 00 50 42 4d 4d 5c 45 51 55 5c 2a 20 00 6f 00 0e 00 08 00 50 5c 49 4e 48 00 6f 00 20 00 28 00 50 5c 4c 44 5c 41 31 2c 44 57 54 41 54 50 2c 41 36 5c 41 43 54 2e 20 54 49 4d 45 52 20 52 55 4e 4e 49 4e 47 3f ┆ BASE n PBMM EQU * o P INH o ( P LD A1,DWTATP,A6 ACT. TIMER RUNNING?┆
0xc3e6…c436 00 6f 00 2c 00 22 00 50 5c 52 46 28 4e 5a 29 5c 42 4d 4d 32 30 5c 59 45 53 2c 20 52 45 53 54 41 52 54 20 49 54 20 00 6f 00 58 00 2a 00 50 5c 43 46 5c 41 35 2c 53 55 50 54 49 4d 5c 53 54 41 52 54 20 41 43 54 49 56 49 54 59 20 53 55 50 20 54 ┆ o , " P RF(NZ) BMM20 YES, RESTART IT o X * P CF A5,SUPTIM START ACTIVITY SUP T┆
0xc436…c486 49 4d 45 52 00 6f 00 7e 00 0e 00 50 5c 52 46 5c 42 4d 4d 33 30 20 00 6f 00 ac 00 10 00 50 42 4d 4d 32 30 5c 45 51 55 5c 2a 20 00 6f 00 be 00 14 00 50 5c 4c 44 4b 4c 5c 41 32 2c 2d 54 49 4d 41 43 54 00 6f 00 d2 00 22 00 50 5c 53 54 52 5c 41 ┆IMER o ~ P RF BMM30 o PBMM20 EQU * o P LDKL A2,-TIMACT o " P STR A┆
0xc486…c4d6 32 2c 41 31 5c 52 45 53 54 41 52 54 20 41 43 54 2e 20 54 49 4d 45 52 20 00 6f 00 ea 00 10 00 50 42 4d 4d 33 30 5c 45 51 55 5c 2a 20 00 6f 01 10 00 08 00 50 5c 45 4e 42 00 6f 01 24 00 26 00 50 5c 4c 44 5c 41 31 2c 44 57 54 53 54 2c 41 36 5c ┆2,A1 RESTART ACT. TIMER o PBMM30 EQU * o P ENB o $ & P LD A1,DWTST,A6 ┆
0xc4d6…c526 47 45 54 20 4f 55 54 50 55 54 20 53 54 41 54 55 53 20 00 6f 01 30 00 2c 00 50 5c 52 46 28 4e 4e 29 5c 4f 55 54 50 55 54 5c 4f 55 54 50 55 54 20 4f 52 20 43 4f 4e 54 52 4f 4c 20 52 45 51 55 45 53 54 00 6f 01 5a 00 24 00 50 5c 4c 44 5c 41 31 ┆GET OUTPUT STATUS o 0 , P RF(NN) OUTPUT OUTPUT OR CONTROL REQUEST o Z $ P LD A1┆
0xc526…c576 (128, 0, 400) 2c 44 57 54 53 54 2c 41 37 5c 47 45 54 20 49 4e 50 55 54 20 53 54 41 54 55 53 00 6f 01 8a 00 1e 00 50 5c 41 42 4c 28 4e 4e 29 5c 50 4f 4c 4c 5c 52 45 41 44 20 52 45 51 55 45 53 54 00 70 00 22 00 0e 00 50 5c 41 42 4c 5c 54 44 49 53 50 00 70 ┆,DWTST,A7 GET INPUT STATUS o P ABL(NN) POLL READ REQUEST p " P ABL TDISP p┆
0xc576…c5c6 00 44 00 0a 00 50 5c 45 4a 45 43 54 00 70 00 56 00 06 00 50 2a 20 00 70 00 64 00 30 00 50 2a 20 4f 55 54 50 55 54 3a 20 50 45 52 46 4f 52 4d 20 4f 55 54 50 55 54 20 4f 52 20 43 4f 4e 54 52 4f 4c 20 52 45 51 55 45 53 54 20 00 70 00 6e 00 06 ┆ D P EJECT p V P* p d 0 P* OUTPUT: PERFORM OUTPUT OR CONTROL REQUEST p n ┆
0xc5c6…c616 00 50 2a 20 00 70 00 a2 00 10 00 50 4f 55 54 50 55 54 5c 45 51 55 5c 2a 00 70 00 ac 00 24 00 50 5c 4c 44 5c 41 38 2c 44 57 54 45 43 42 2c 41 36 5c 47 45 54 20 45 43 42 20 41 44 44 52 45 53 53 00 70 00 c0 00 18 00 50 5c 53 54 5c 41 38 2c 44 ┆ P* p POUTPUT EQU * p $ P LD A8,DWTECB,A6 GET ECB ADDRESS p P ST A8,D┆
0xc616…c666 57 54 53 41 56 2b 31 30 2c 41 36 20 00 70 00 e8 00 32 00 50 5c 53 54 5c 41 38 2c 44 57 54 53 41 56 2b 31 30 2c 41 37 5c 4c 4f 41 44 20 41 38 2c 49 4e 54 45 52 52 55 50 54 20 52 45 47 49 53 54 45 52 00 70 01 04 00 1e 00 50 5c 4c 44 5c 41 31 ┆WTSAV+10,A6 p 2 P ST A8,DWTSAV+10,A7 LOAD A8,INTERRUPT REGISTER p P LD A1┆
0xc666…c6b6 2c 44 57 54 4f 52 2c 41 36 5c 47 45 54 20 4f 52 44 45 52 20 00 70 01 3a 00 10 00 50 5c 41 4e 4b 5c 41 31 2c 2f 46 46 20 00 70 01 5c 00 0e 00 50 5c 53 55 4b 5c 41 31 2c 36 20 00 70 01 70 00 20 00 50 5c 41 42 4c 28 5a 29 5c 57 52 49 54 45 5c ┆,DWTOR,A6 GET ORDER p : P ANK A1,/FF p P SUK A1,6 p p P ABL(Z) WRITE ┆
0xc6b6…c706 (129, 0, 400) 4f 52 44 45 52 20 30 36 3a 57 52 49 54 45 00 70 01 82 00 12 00 50 5c 53 55 4b 5c 41 31 2c 2f 32 34 2d 36 20 00 71 00 16 00 26 00 50 5c 41 42 4c 28 5a 29 5c 4f 55 54 34 30 30 5c 4f 52 44 45 52 20 32 34 3a 43 4c 4f 53 45 20 4c 49 4e 45 00 71 ┆ORDER 06:WRITE p P SUK A1,/24-6 q & P ABL(Z) OUT400 ORDER 24:CLOSE LINE q┆
0xc706…c756 00 2c 00 0e 00 50 5c 53 55 4b 5c 41 31 2c 32 20 00 71 00 56 00 28 00 50 5c 41 42 4c 28 5a 29 5c 4f 55 54 32 30 30 5c 4f 52 44 45 52 20 32 36 3a 48 41 4c 54 20 50 4f 4c 4c 49 4e 47 00 71 00 68 00 0e 00 50 5c 53 55 4b 5c 41 31 2c 31 20 00 71 ┆ , P SUK A1,2 q V ( P ABL(Z) OUT200 ORDER 26:HALT POLLING q h P SUK A1,1 q┆
0xc756…c7a6 00 94 00 2a 00 50 5c 41 42 4c 28 5a 29 5c 4f 55 54 33 35 30 5c 4f 52 44 45 52 20 32 37 3a 53 54 41 52 54 20 50 4f 4c 4c 49 4e 47 20 00 71 00 a6 00 10 00 50 5c 53 55 4b 5c 41 31 2c 2f 31 30 20 00 71 00 d4 00 22 00 50 5c 52 46 28 5a 29 5c 4f ┆ * P ABL(Z) OUT350 ORDER 27:START POLLING q P SUK A1,/10 q " P RF(Z) O┆
0xc7a6…c7f6 55 54 31 30 30 5c 4f 52 44 45 52 20 33 37 3a 4f 50 45 4e 20 54 43 00 71 00 e8 00 0a 00 50 5c 45 4a 45 43 54 00 71 01 0e 00 06 00 50 2a 20 00 71 01 1c 00 18 00 50 2a 20 20 4f 52 44 45 52 20 33 38 3a 43 4c 4f 53 45 20 54 43 00 71 01 26 00 06 ┆UT100 ORDER 37:OPEN TC q P EJECT q P* q P* ORDER 38:CLOSE TC q & ┆
0xc7f6…c846 00 50 2a 20 00 71 01 42 00 2a 00 50 5c 4c 43 5c 41 33 2c 44 57 54 4f 52 4f 2c 41 36 5c 47 45 54 20 49 4e 44 45 58 20 49 4e 20 50 4f 4c 4c 49 53 54 20 00 71 01 4c 00 10 00 50 5c 41 4e 4b 5c 41 33 2c 2f 46 46 20 00 71 01 7a 00 0e 00 50 5c 41 ┆ P* q B * P LC A3,DWTORO,A6 GET INDEX IN POLLIST q L P ANK A3,/FF q z P A┆
0xc846…c896 (130, 0, 400) 44 52 5c 41 33 2c 41 36 00 71 01 8e 00 2a 00 50 5c 4c 44 5c 41 32 2c 50 4c 49 53 54 2c 41 33 5c 52 45 4c 4f 41 44 20 50 2d 4c 49 53 54 20 50 4f 49 4e 54 45 52 20 00 72 00 10 00 10 00 50 5c 43 4d 5c 50 4c 49 53 54 2c 41 33 00 72 00 3e 00 0e ┆DR A3,A6 q * P LD A2,PLIST,A3 RELOAD P-LIST POINTER r P CM PLIST,A3 r > ┆
0xc896…c8e6 00 50 5c 4c 44 52 5c 41 31 2c 41 33 00 72 00 52 00 0e 00 50 5c 53 55 4b 5c 41 31 2c 32 20 00 72 00 64 00 10 00 50 5c 43 4d 5c 50 4c 49 53 54 2c 41 31 00 72 00 76 00 0e 00 50 5c 53 55 4b 5c 41 31 2c 32 5c 00 72 00 8a 00 34 00 50 5c 4c 44 5c ┆ P LDR A1,A3 r R P SUK A1,2 r d P CM PLIST,A1 r v P SUK A1,2 r 4 P LD ┆
0xc8e6…c936 41 34 2c 50 4c 49 53 54 2c 41 31 5c 43 48 45 43 4b 20 49 46 20 54 49 4d 45 52 20 50 4f 49 4e 54 45 52 20 49 53 20 5a 45 52 4f 5c 20 00 72 00 9c 00 12 00 50 5c 52 46 28 5a 29 5c 43 4c 54 43 32 30 20 00 72 00 d4 00 3e 00 50 5c 43 46 5c 41 35 ┆A4,PLIST,A1 CHECK IF TIMER POINTER IS ZERO r P RF(Z) CLTC20 r > P CF A5┆
0xc936…c986 2c 52 45 4c 42 4c 4b 5c 52 45 4c 45 41 53 45 20 41 4c 4c 4f 43 41 54 45 44 20 42 4c 4f 43 4b 20 49 4e 20 50 4f 4c 4c 2d 49 4e 41 43 54 2e 20 54 49 4d 45 52 00 72 00 ea 00 26 00 50 5c 43 4d 2a 5c 50 4c 49 53 54 2c 41 31 5c 20 43 4c 45 41 52 ┆,RELBLK RELEASE ALLOCATED BLOCK IN POLL-INACT. TIMER r & P CM* PLIST,A1 CLEAR┆
0xc986…c9d6 20 54 49 4d 45 52 20 56 41 4c 55 45 5c 20 00 72 01 2c 00 20 00 50 5c 43 4d 5c 50 4c 49 53 54 2c 41 31 5c 43 4c 45 41 52 20 50 4f 49 4e 54 45 52 5c 20 00 72 01 56 00 10 00 50 43 4c 54 43 32 30 5c 45 51 55 5c 2a 00 72 01 7a 00 30 00 50 5c 4c ┆ TIMER VALUE r , P CM PLIST,A1 CLEAR POINTER r V PCLTC20 EQU * r z 0 P L┆
0xc9d6…ca26 (131, 0, 400) 44 5c 41 31 2c 4e 42 52 54 43 41 2c 41 36 5c 47 45 54 20 4e 42 52 20 4f 46 20 54 43 27 53 20 49 4e 20 50 4f 4c 4c 49 53 54 20 00 72 01 8e 00 0e 00 50 5c 53 55 4b 5c 41 31 2c 31 20 00 73 00 32 00 34 00 50 5c 52 46 28 4e 5a 29 5c 43 4c 54 43 ┆D A1,NBRTCA,A6 GET NBR OF TC'S IN POLLIST r P SUK A1,1 s 2 4 P RF(NZ) CLTC┆
0xca26…ca76 31 30 5c 41 54 20 4c 45 41 53 54 20 4f 4e 45 20 54 43 20 53 54 49 4c 4c 20 49 4e 20 50 4f 4c 4c 49 53 54 20 00 73 00 44 00 2c 00 50 5c 43 4d 5c 50 41 43 54 2c 41 36 5c 49 4e 44 49 43 41 54 45 20 4e 4f 20 54 43 27 53 20 49 4e 20 50 4f 4c 4c ┆10 AT LEAST ONE TC STILL IN POLLIST s D , P CM PACT,A6 INDICATE NO TC'S IN POLL┆
0xca76…cac6 49 53 54 20 00 73 00 7c 00 12 00 50 5c 43 4d 5c 50 49 4e 41 43 54 2c 41 36 20 00 73 00 ac 00 10 00 50 43 4c 54 43 31 30 5c 45 51 55 5c 2a 00 73 00 c2 00 26 00 50 5c 53 54 5c 41 31 2c 4e 42 52 54 43 41 2c 41 36 5c 52 45 53 54 4f 52 45 20 4e ┆IST s | P CM PINACT,A6 s PCLTC10 EQU * s & P ST A1,NBRTCA,A6 RESTORE N┆
0xcac6…cb16 45 57 20 56 41 4c 55 45 00 73 00 d6 00 06 00 50 2a 20 00 73 01 00 00 2a 00 50 2a 20 44 49 53 43 4f 4e 4e 45 43 54 20 54 43 20 41 46 54 45 52 20 43 4f 4d 50 4c 45 54 45 20 52 45 51 55 45 53 54 00 73 01 0a 00 06 00 50 2a 20 00 73 01 38 00 0e ┆EW VALUE s P* s * P* DISCONNECT TC AFTER COMPLETE REQUEST s P* s 8 ┆
0xcb16…cb66 00 50 5c 4c 44 52 5c 41 31 2c 41 32 00 73 01 42 00 10 00 50 5c 41 4e 4b 5c 41 31 2c 2f 37 46 20 00 73 01 54 00 0e 00 50 5c 45 43 52 5c 41 31 2c 41 31 00 73 01 68 00 12 00 50 5c 4f 52 4b 5c 41 31 2c 54 44 49 53 43 20 00 73 01 7a 00 10 00 50 ┆ P LDR A1,A2 s B P ANK A1,/7F s T P ECR A1,A1 s h P ORK A1,TDISC s z P┆
0xcb66…cbb6 (132, 0, 400) 5c 43 46 5c 41 35 2c 54 52 55 46 20 00 73 01 90 00 12 00 50 5c 43 46 5c 41 35 2c 52 44 55 53 54 49 20 00 74 00 14 00 12 00 50 5c 43 46 5c 41 35 2c 48 41 4c 54 49 4e 20 00 74 00 2a 00 0e 00 50 5c 4c 44 4b 5c 41 31 2c 30 20 00 74 00 40 00 12 ┆ CF A5,TRUF s P CF A5,RDUSTI t P CF A5,HALTIN t * P LDK A1,0 t @ ┆
0xcbb6…cc06 00 50 5c 43 46 5c 41 31 35 2c 54 45 4e 44 49 4f 00 74 00 52 00 0e 00 50 5c 41 42 4c 5c 42 4d 4d 30 30 00 74 00 68 00 0a 00 50 5c 45 4a 45 43 54 00 74 00 7a 00 06 00 50 2a 20 00 74 00 88 00 18 00 50 2a 20 20 4f 52 44 45 52 20 33 37 3a 4f 50 ┆ P CF A15,TENDIO t R P ABL BMM00 t h P EJECT t z P* t P* ORDER 37:OP┆
0xcc06…cc56 45 4e 20 54 43 20 00 74 00 92 00 06 00 50 2a 20 00 74 00 ae 00 10 00 50 4f 55 54 31 30 30 5c 45 51 55 5c 2a 00 74 00 b8 00 1c 00 50 5c 4c 44 5c 41 32 2c 45 43 42 43 57 2c 41 38 5c 47 45 54 20 54 43 41 20 00 74 00 cc 00 08 00 50 5c 49 4e 48 ┆EN TC t P* t POUT100 EQU * t P LD A2,ECBCW,A8 GET TCA t P INH┆
0xcc56…cca6 00 74 00 ec 00 22 00 50 5c 43 46 5c 41 31 35 2c 46 49 4e 44 54 43 5c 41 4c 52 45 41 44 59 20 50 52 45 53 45 4e 54 00 74 00 f8 00 26 00 50 5c 52 46 28 4e 50 29 5c 4f 55 54 33 30 30 5c 54 43 20 41 4c 52 45 41 44 59 20 49 4e 20 4c 49 53 54 5c ┆ t " P CF A15,FINDTC ALREADY PRESENT t & P RF(NP) OUT300 TC ALREADY IN LIST ┆
0xcca6…ccf6 00 74 01 1e 00 0e 00 50 5c 4c 44 4b 5c 41 32 2c 30 20 00 74 01 48 00 26 00 50 5c 43 46 5c 41 31 35 2c 46 49 4e 44 54 43 5c 53 45 41 52 43 48 20 45 4d 50 54 59 20 50 4c 41 43 45 20 00 74 01 5a 00 08 00 50 5c 45 4e 42 00 74 01 84 00 12 00 50 ┆ t P LDK A2,0 t H & P CF A15,FINDTC SEARCH EMPTY PLACE t Z P ENB t P┆