Previous File Previous Page Single Page Next Page Next File

* 0520-001-H002 (O16-DPT9) DRAWING NO. 41285751-001-01 PAGE 7

0301 * SIX ROWS ARE DRAWN WITHOUT INTERRUPT CONTROL AND WITH 0302 * NO INTERVENING SPACES, I.E. THE RESULTANT PATTERN IS 0303 * CONTINUOUS. 0304 * 0305 * 0306 * ABBREVIATIONS 0307 * 0308 * REGA - REGISTER A 0309 * REGB - REGISTER B 0310 * REGAB - REGISTERS A AND B 0311 * CR - CARRIAGE RETURN 0312 * LF - LINE FEED 0313 * 0314 * 0315 ************************************************************************ 0316 * 0317 * 0318 CF5 H316, DDP-516 0319 ABS ABSOLUTE 0320 ORG '1000 ORIGIN 0321 * 0322 * 0323 * ASR 33/35 DEVICE CODES 0324 * 0325 * OCP 0326 000004 ASRN EQU 4 ENABLE ASR IN INPUT MODE 0327 000104 ASRT EQU ASRN+'100 ENABLE ASR IN OUTPUT MODE 0328 * 0329 * SKS 0330 000104 ASRB EQU ASRN+'100 SKIP IF ASR NOT BUSY 0331 * 0332 * INA 0333 000004 ASRI EQU ASRN INPUT A CHARACTER FROM ASR IF READY 0334 * 0335 * OTA 0336 000004 ASRO EQU ASRN OUTPUT A CHARACTER FROM ASR IF READY 0337 * 0338 * 0339 * DIGITAL INCREMENTAL PLOTTER DEVICE CODES 0340 * 0341 000027 ADIP EQU '27 DEVICE ADDR OF DIGITAL INCREMENTAL PLOTTER 0342 * 0343 * OCP 0344 000127 PLET EQU ADIP+'0100 EAST - PEN RIGHT 0345 000227 PLWT EQU ADIP+'0200 WEST - PEN LEFT 0346 000427 PLNT EQU ADIP+'0400 NORTH - PAPER UP 0347 000527 PLNE EQU ADIP+'0500 NORTHEAST - PAPER UP. PEN RIGHT 0348 000627 PLNW EQU ADIP+'0600 NORTHWEST - PAPER UP. PEN LEFT 0349 001027 PLST EQU ADIP+'1000 SOUTH - PAPER DOWN 0350 001127 PLSE EQU ADIP+'1100 SOUTHEAST - PAPER DOWN, PEN RIGHT
Previous File Previous Page Single Page Next Page Next File