Trailing-Edge
-
PDP-10 Archives
-
decuslib20-02
-
decus/20-0038/readpl.scm
There is 1 other file named readpl.scm in the archive. Click here to see a list.
File 1) DSK:READPL.OLD[4,371] created: 1900 06-Jun-1971
File 2) DSK:READPL.MAC[4,371] created: 1645 24-Jun-1980
1)1 READPL: 0
1) MOVEM PASS,SPARE
****
2)1 READPL:
2) MOVEM PASS,SPARE
**************
1)1 JRA 16,3(16)
1) FAIL: MOVE PASS,THREE ;SET ARG =3 IF ERROR
1) MOVEM PASS,@2(16)
1) JRA 16,3(16) ;RETURN
1) INNAME: 0
****
2)1 ; JRA 16,3(16)
2) POPJ 17,
2) FAIL: MOVE PASS,THREE ;SET ARG =3 IF ERROR
2) MOVEM PASS,@2(16)
2) ; JRA 16,3(16) ;RETURN
2) POPJ 17,
2) INNAME: 0
**************
1)1 CONVER: 0
1) MOVEM 17,REG ;SAVE REG 17
****
2)1 CONVER:
2) MOVEM 17,REG ;SA VE REG 17
**************
1)1 JRA 16,1(16)
1) ONE: MOVEI 3,1
****
2)1 ; JRA 16,1(16)
2) POPJ 17,
2) ONE: MOVEI 3,1
**************