Trailing-Edge
-
PDP-10 Archives
-
decuslib20-04
-
decus/20-0133/biorth.scm
There is 1 other file named biorth.scm in the archive. Click here to see a list.
File 1) DSK:BIORTH.OLD[4,631] created: 0819 03-Feb-1977
File 2) DSK:BIORTH.MAC[4,631] created: 1659 26-Jul-1980
1)1 BIOEDT==6 ;EDIT LEVEL
1) BIOMIN==0 ;MINOR VERSION
****
2)1 BIOEDT==7 ;EDIT LEVEL
2) BIOMIN==0 ;MINOR VERSION
**************
1)27 .GTNOW: MOVX T1,%CNDTM ;ASK MONITOR [310]
1) GETTAB T1, ; FOR ANSWER [310]
1) ERROR. EF$FTL,CGN,<CAN'T GET 'NOW' FROM MONITOR>
****
2)27 ;GETTAB CONVERTED TO JSYS SINCE THE GETTAB WAS FAILING
2) ;BY PAUL ROBINSON, WESLEYAN UNIV. DECUS CONVERSION PROGRAMMER JULY'80
2) OPDEF GTAD [JSYS ^O227]
2) .GTNOW: ;MOVX T1,%CNDTM ;ASK MONITOR [310]
2) ;GETTAB T1, ; FOR ANSWE R [310]
2) IFE T1-1,<GTAD> ;JSYS USES AC 1
2) IFN T1-1,<PUSH P,1 ;SAVE AC 1
2) GTAD ;GET DATE/TIME
2) MOVE T1,1 ;PUT IT WHERE IT'S WANTED
2) POP P,1 ;RESTORE AC 1
2) >; END IFN
2) CAMN T1,[EXP -1] ;JSYS RETURNS -1 IF DOESN'T KNOW TIME
2) ERROR. EF$FTL,CGN,<CAN'T GET 'NOW' FROM MONITOR>
**************