Directory of image this file is from
This file as a plain text file

[ 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