perm filename PREAD[1,VDS] blob
sn#010347 filedate 1970-06-22 generic text, type T, neo UTF8
00010 TITLE PREAD
00020 SUBTTL POTREAD VIA SPCWAR
00030 ENTRY PREAD
00040 OPDEF SPCWAR [ XWD 043000,0 ]
00050 PREAD: JUMP 0
00060 MOVEI 0,A
00070 BLT 0,A+16
00080 HRLI 16,0
00090 MOVE 0,@16
00100 HRRM 0,ADR#
00110 MAIN: SETOM DTST#
00120 SETOM ERR#
00130 SPCWAR 1,DRD
00140 SKIPE DTST
00150 JRST .-1
00160 SPCWAR 0,636367
00170 SKIPN ERR
00180 CALL [ SIXBIT/EXIT/ ]
00190 MOVSI 16,A
00200 BLT 16,16
00210 EX: JRA 16,1(16)
00220 DRD: SKIPN DTST
00230 HALT
00240 MOVE 17,ADR
00250 JSP 2,POTRD
00260 SETZM ERR
00270 SETZM DTST
00280 HALT
00290 POTRD: MOVEI 15,100
00300 MOVEM 15,MCH#
00310 MOVEM 15,MCH1#
00320 CONO 424,4000
00330 CONO PI,400
00340 CONI 204,SAVE1#
00350 LDB 10,[ POINT 3,SAVE1,35]
00360 MOVEI 11,100
00370 MOVNS 10
00380 LSH 11,1(10)
00390 ANDI 11,177
00400 MOVEM 11,SAVE2#
00410 CONO PI,1000(11)
00420 CONO PI,200
00430 MOVEI 11,↑D15
00440 L1: CONI 204,10
00450 XORI 10,3000
00460 TRNE 10,3000
00470 SOJG 11,L1
00480 CONI 204,SAVE1
00490 TA: SETZM 16
00500 MOVE 13,IWD
00510 CONO 204,004250
00520 RPT: CONI 204,0
00530 CAIE 0,4250
00540 JRST COUNT3
00550 CONO 424,002000
00560 RDY: MOVEI 14,100
00570 WT: CONSO 204,1000
00580 JRST COUNT1
00590 BLKI 204,13
00600 AOJ 16,.+1
00610 CONSZ 204,10000
00620 JRST COUNT2
00630 JUMPE 16,RDY
00640 CONO 424,4000
00650 MOVEI 4,10
00660 MOVE 12,BP
00670 NB: ILDB 3,12
00680 LSH 3,30
00690 ASH 3,-30
00700 ADDI 3,4000
00710 MOVEM 3,0(17)
00720 ADDI 17,1
00730 SOJN 4,NB
00740 AOS 2
00750 RET: MOVE 10,SAVE1
00760 CONO 204,203000(10)
00770 MOVE 11,SAVE2
00780 CONO PI,2000(11)
00790 JRST 0(2)
00800 COUNT1: SOSE 14
00810 JRST WT
00820 AOS ET1#
00830 JRST RET
00840 COUNT2: SOSE 15
00850 JRST TA
00860 AOS ET2#
00870 JRST RET
00880 COUNT3: SOSE MCH
00890 JRST RPT-1
00900 AOS ET3#
00910 JRST RET
00920 BP: POINT 12,BUFF,
00930 A: BLOCK 17
00940 IWD: IOWD 3,BUFF
00950 BUFF: BLOCK 3
00960 INTERNAL POTRD
00970 END