100 /VT-8/E DATA DISPLAY PROGRAM 110 120 XLIST ON; IFZERO 1 < 130 LAST EDIT: 14-JUL-1980 05:00:00 CJL 140 150 MAY BE ASSEMBLED WITH '/J' SWITCH SET. 160 170 PARAMETERS: 180 190 200 > XLIST ON 210 XLIST OFF 220 IFNDEF OFF 230 ON= 0 240 XLIST ON 250 CHAN= 0 /USE 4-WORD DATA FORMAT 260 / CHAN= 2 /USE 2-WORD DATA FORMAT 270 EJECT 280 XLIST ON; IFZERO 1 < 290 EQUATED SYMBOLS 300 310 VT8E DISPLAY INSTRUCTION DEFINITIONS 320 > XLIST ON 330 340 DPLA= 6450 /TRANSFER AC TO STARTING ADDRESS REGISTER 350 DPGO= 6451 /AC[10-11] TO MODE, AC[6-8] TO EXTENDED 360 /ADDRESS REGISTER AND START DISPLAY 370 DPSM= 6452 /STOP THE VIDEO DISPLAY, ALSO MAINTENACE USAGE 380 DPMB= 6453 /DO MAINTENANCE BREAK 390 DPMD= 6454 /MAINTENANCE DATA BUFFER TO AC 400 DPMS= 6455 /MAINTENANCE ADDRESS TO AC, 410 /SENSE SWITCH TO AC[0] 420 DPCL= 6456 /SKIP ON VIDEO RETRACE FLAG 430 DPBL= 6457 /GENERATE HALF SECOND BELL TONE 440 450 XLIST ON; IFZERO 1 < 460 VT8E KEYBOARD INSTRUCTION DEFINITIONS 470 > XLIST ON 480 490 DKCF= 6430 /CLEAR KEYBOARD FLAG 500 DKSF= 6431 /SKIP ON KEYBOARD FLAG 510 DKCC= 6432 /CLEAR KEYBOARD FLAG AND AC 520 DKRS= 6434 /LOGICAL OR KEYBOARD BUFFER AND AC 530 DKIE= 6435 /ENABLE/DISABLE KEYBOARD AND 540 /LPT: INTERRUPTS PER AC[11] 550 DKRB= 6436 /READ KEYBOARD BUFFER INTO AC 560 570 XLIST ON; IFZERO 1 < 580 LINE PRINTER DEFINITIONS 590 > XLIST ON 600 610 LFL= 6660 /SET LPT: FLAG 620 LSF= 6661 /SKIP ON LPT: FLAG 630 LCF= 6662 /CLEAR LPT: FLAG 640 LSE= 6663 /SKIP ON LPT: ERROR 650 /**** NOT VALID ON VT-8/E HARDWARE **** 660 LPC= 6664 /LOAD LPT: CHARACTER AND PRINT 670 LIE= 6665 /LOAD INTERRUPT ENABLE PER AC[11] 680 /**** NOT VALID ON VT-8/E HARDWARE **** 690 LSK= 6665 /SKIP ON VT-8/E INTERRUPT ENABLE AND VT-8/E 700 /KEYBOARD OR LPT: FLAG 710 /**** ONLY VALID ON VT-8/E **** 720 LLS= 6666 /CLEAR LPT: FLAG, LOAD CHARACTER AND PRINT 730 LRS= 6667 /READ LPT: STATUS 740 /**** NOT VALID ON VT-8/E HARDWARE **** 750 EJECT 760 XLIST ON; IFZERO 1 < 770 AD-8/E-A ANALOG TO DIGITAL CONVERTER DEFINITIONS 780 > XLIST ON 790 800 ADCL= 6530 /CLEAR A-D LOGIC 810 ADLM= 6531 /LOAD MULTIPLEXOR REGISTER 820 ADST= 6532 /CLEAR A-D DONE FLAG AND START 830 ADRB= 6533 /READ A-D BUFFER, CLEAR A-D DONE FLAG 840 ADSK= 6534 /SKIP ON A-D DONE 850 ADSE= 6535 /SKIP ON TIMING ERROR FLAG 860 ADLE= 6536 /LOAD ENABLE REGISTER PER AC 870 ADRS= 6537 /STATUS TO AC 880 890 XLIST ON; IFZERO 1 < 900 EAE DEFINITIONS 910 > XLIST ON 920 930 ASR= 7415 /ARITHMETIC SHIFT RIGHT 940 CAM= 7621 /CLEAR AC, MQ 950 DVI= 7407 /DIVIDE 960 LSR= 7417 /LOGICAL SHIFT RIGHT 970 MUY= 7405 /MULTIPLY 980 SHL= 7413 /SHIFT LEFT 990 SWAB= 7431 /FORCE MODE "B" 1000 1010 XLIST ON; IFZERO 1 < 1020 MODE B ONLY DEFINITIONS 1030 > XLIST ON 1040 1050 DAD= 7443 /DOUBLE-PRECISION ADD 1060 DCM= 7575 /DOUBLE-PRECISION COMPLEMENT 1070 DDZ= CAM DST /DOUBLE-PRECISION DEPOSIT ZERO 1080 DLD= CAM DAD /DOUBLE-PRECISION LOAD 1090 DPIC= 7573 /DOUBLE-PRECISION INCREMENT 1100 DPSZ= 7451 /DOUBLE-PRECISION SKIP IF ZERO 1110 DST= 7445 /DOUBLE-PRECISION STORE 1120 SWBA= 7447 /FORCE MODE "A" 1130 EJECT