[ SAVED AS :LINC1: [ [ DEMO OF THE BECKMAN [ ROUTINES [ USES B-2 FOR READ [ USES B-3 FOR PRINT [ MUST BE LOADED AS: [ LMB=1 [ UMB=2, NORMAL SET-UP [ [ [ #TOP JMP A1 [ INITALIZE THE ROUTINE JMP B1 [ READ BECKMAN SNSi0 [ IF SW 0 UP, PRINT JMP C1 [ PRINT SNS 1 [ IF SW 1 UP, STOP READING JMP TOP+1 JMP D1 [ DESELECT COUNTER HLT [ RESUME SW TO CONTINUE JMP TOP TOP [ THE FOLLOWING INITALIZES THE PROGRAM #A1 UMB 3 RCGu [ READ IN PDP-8 ROUTINES 1504 UMB 2 SETi2 LST-1 [ BETA 2 POINTS TO LIST LDAi 6000 [ INITALIZE BECKMAN OPR 13 JMP 0 [ [ [ [READ BECKMAN COUNTER #B1 SET 1 0 LDAi 6004 [ TO READ COUNTER OPR 13 AZEi JMP B1+2 [ AC=0 MEANS READ NOT READY JMP 1 [ [ [ [ PRINT VALUES AT BETA 2 #C1 SET 3 2 SET 1 0 LDAi3 TYP AZE JMP p-3 [ NOT END OF LIST JMP 1 [ [ DISABLE BECKMAN #D1 LDAi 6010 OPR 13 JMP 0 TOP [ [ LIST TO STORE VALUES [ MUST PROVIDE 8 LOCATIONS [ FOR SIGN AND 7 DIGITS [ CR AND LF ADDED FOR CONVENIENCE [ ZERO TERMINATES LIST, [ FOR THIS PGM ONLY #LST 0 0 0 0 0 0 0 0 215 212 0