100 110 IFNDEF VT8LPT /NO SHARED INTERRUPT HANDLING 120 130 > 140 150 IFNDEF VT8LPT /HANDLE SHARED INTERRUPTS 160 EJECT 170 180 // P?S/8 DEFINITIONS. 190 200 ADRLST= 7603 /ZAP ADDRESS LIST 210 CALADR= 0020 /CALLING ADDRESS 220 CALFLD= 0021 /CALLING FIELD 230 CCHECK= 2343 /<^C> CHECK ROUTINE 240 CHKCNT= 0043 /CHECKSUM COUNT 250 CHKPTR= 0044 /CHECKSUM POINTER 260 CNTLST= 7615 /ZAP CONTENTS LIST 270 CONINT= 0000 /CONSOLE INTERRUPT LOCATION 280 CONOFF= 0100 /CONSOLE OFF 290 DEVWRD= 0104 /DEVICE WORD 300 DSPBLB= 0024 /BLURB DISPLAY 310 ERRTRP= 0046 /ERROR TRAP 320 ESTATUS=0077 /ERROR STATUS 330 FILBLB= 0023 /BLURB FILL 340 FUDWRD= 0105 /FUDGE WORD 350 INCON= 0031 /CONSOLE INPUT 360 INFLAG= 0025 /CONSOLE INPUT EVENT FLAG 370 INTFLGS=0002 /INTERRUPT FLAGS 380 INTLST= 0003 /INTERRUPT LIST POINTER 390 IOTRAP= 0045 /I/O TRAP 400 IOWAIT= 0047 /I/O WAIT 410 LCMODE= 0006 /LPT: CASE 420 LINFLAG=0030 /LPT: INPUT EVENT FLAG 430 LPMODE= 0004 /LPT: BUFFERING MODE 440 LPTFLAG=0027 /LPT: OUTPUT EVENT FLAG 450 MOVBLB= 0022 /MOVE BLURB POINTER 460 OUTCON= 0033 /CONSOLE OUTPUT 470 OUTFLAG=0026 /CONSOLE OUTPUT EVENT FLAG 480 OUTLPT= 0035 /LOGICAL LPT: 490 OVID= 0106 /OVERLAY ID AREA 500 OVRCOMM=2511 /MONITOR ONCE-ONLY REJOIN ADDRESS 510 OVRWRD= 0111 /OVERLAY TYPE WORD 520 P7JMP= 2337 /OUTPUT JUMP INSTRUCTION 530 P7OUT= 2335 /OUTPUT WAITING ADDRESS 540 P7TLS= 2340 /OUTPUT INSTRUCTION HERE 550 P7TSF= 2336 /OUTPUT SKIP INSTRUCTION HERE 560 SBOOT= 7600 /MONITOR RESTARTS HERE 570 SBTFUN= 7602 /BOOTSTRAP FUNCTION WORD 580 SCRSIZE=7611 /SYSTEM CORE SIZE WORD 590 SYSIO= 7640 /SYSTEM I/O ADDRESS 600 TRAPIO= 1041 /I/O TRAP 610 TRPBLK= 0113 /TRAP BLOCKS ARE HERE 620 TRPERR= 1200 /ERROR TRAP 630 TTY= 0003 /TTY: BASE DEVICE CODE 640 TTYTST= 2506 /TTY: TIME-OUT ROUTINE IN KEYBOARD MONITOR 650 VTMODE= 0005 /VT-8/E MODE WORD 660 WAITIO= 1110 /I/O WAIT TRAP 670 XIOMON= 0102 /MONITOR STARTUP ADDRESS WITHIN OVERLAY 680 ZAPLST= 7627 /I/O ZAP CONTENTS LIST 690 700 // END OF P?S/8 DEFINITIONS. 710 EJECT 720 / OTHER DEFINITIONS. 730 740 BLINK= 200-200 /BLINK MODE BITS 750 BOLD= 400-200 /BOLD MODE BITS 760 BUFSIZE=0400 /SIZE OF LPT: BUFFER 770 CIF10= CIF 10 /CIF CONSTANT 780 CURSOR= 600-200 /CURSOR MODE BITS 790 EOS= 3000 /END OF SCREEN CODE 800 JMPIC= JMP I . /CURRENT PAGE JMP INDIRECT INSTRUCTION 810 JMSC= JMS . /CURRENT PAGE JMS INSTRUCTION 820 NL0001= CLA IAC /LOAD AC WITH 0001 830 NL0002= CLA CLL CML RTL /LOAD AC WITH 0002 840 NL0004= CLA CLL IAC RTL /LOAC AC WITH 0004 850 NL0006= CLA STL IAC RTL /LOAD AC WITH 0006 860 NL0100= CLA IAC BSW /LOAD AC WITH 0100 870 NL2000= CLA CLL CML RTR /LOAD AC WITH 2000 880 NL3777= CLA CLL CMA RAR /LOAD AC WITH 3777 890 NL4000= CLA CLL CML RAR /LOAD AC WITH 4000 900 NL7775= CLA CLL CMA RTL /LOAD AC WITH 7775 910 NL7776= CLA CLL CMA RAL /LOAD AC WITH 7776 920 NL7777= CLA CMA /LOAD AC WITH 7777 930 NORMAL= 000-200 /NORMAL MODE BITS 940 SYSINST=SYSIO&177+JMSC /I/O CALL INSTRUCTION DEFINITION 950 VTOFFSE=0200 /BUFFER OFFSET 960 EJECT