Trailing-Edge
-
PDP-10 Archives
-
decuslib10-10
-
43,50517/test4.rpg
There is 1 other file named test4.rpg in the archive. Click here to see a list.
H 10 TEST4
01020F* TESTING GOTO SUBROUTINE. SPR 11-1420
01030FTEST41 IPE F 20 DISK TEST41
F KASCII
01040FTEST42 O F 50 OF PRINTR LPT
01050ITEST41 AA 01
01060I 1 30N1
01070I 4 20 A1
01080C 01 100 COMP N1 11
01090C 11 EXSR S101
01100C N11 EXSR S102
01110CSR S102 BEGSR
01120CSR MOVE 'SUB2' SUB2 10
01130CSR ENDSR
01140C** SUBROUTINE 1
01150CSR S101 BEGSR
01160CSR MOVE 'SUB1' SUB1 10
01170CSR ENDSR
01200OTEST42 H 11 1P
01201O OR OF
01202O 24 'NUM FIELD<100-->ALP FIE'
01204O 47 'LD=SUB1, OTHERWISE SUB2'
01206O D 1 01
01210O N1 Z 10
01220O 11 SUB1 B 20
01230O N11 SUB2 B 20