Trailing-Edge
-
PDP-10 Archives
-
BB-T573C-DD_1986
-
35,1414/test.mac
There are 8 other files named test.mac in the archive. Click here to see a list.
00100 TITLE TEST
00200 SEARCH UUOSYM
00300 SUBTTL DEFINITIONS
00400
00500 WHOTST==0 ;LAST EDITED BY BOB
00600 VERTST==1
00700 PATTST==0 ;PATCH LEVEL
00800 MODTST==1 ;EDIT LEVEL
00900 INTERN .JBVER
01000 .JBVER==137
01100 LOC .JBVER
01200 BYTE (3)WHOTST (9)VERTST (6)PATTST (18)MODTST
01300 RELOC
01400 P=17
01500 T1=1
01600 START: OUTSTR [ASCIZ/
01700 ANSWER YES OR NO>>>>>> /]
01800 MOVE P,[POINT 7,BUF]
01900 PUSHJ P,LOOP
02000 JRST NO
02100 YES: INCHRW T1
02102 CAIN T1,177
02122 JRST FIX
02200 CAIE T1,12
02500 JRST YES
02600
02700 OUTSTR [ASCIZ/
02800 % YES
02900 /]
03000 JRST END
03100 NO: INCHRW T1
03200 CAIN T1,177
03300 JRST FIX
03400 CAIE T1,12
03500 JRST NO
03600
03700 OUTSTR [ASCIZ/
03800 # NO/]
03900 EXIT
04000 LOOP: INCHRW T1
04100 CAIN T1,15
04200 ; CAIN T1,12
04300 JRST FIX
04400 CAIN T1,177
04500 JRST FIX
04600 CAIN T1,"N"
04700 POPJ P,
04800 CAIE T1,"Y"
04900 JRST LOOP
05000 AOS (P)
05100 POPJ P,
05200 EXIT
05300 FIX: OUTSTR [ASCIZ/
05400 /]
05500 JRST START
05600 END: EXIT
05700 BUF: BLOCK 100
05800 END START