Directory of image this file is from
This file as a plain text file
*20 /// SAGE /SUBROUTINE SAGE DOES SKIP IF VALUE /IN AC IS GREATER OR EQUAL TO CONTENTS OF P+1. /DOES NOT DESTROY AC, DF, OR BETA REGISTERS. SAGE=JMP . STC SAGEX+1 /SAVE AC ADD 1 STC SAGEX+3 /SAVE BETA 1 SET 1 0 ADD 1 STA SAGEX+2 /ORIG RTRN JUMP BCL I 6000 STC 1 /NOW COMPARE VALUES. LDA 1 COM ADD SAGEX+1 AZE I JMP .+7 /EQUAL APO I /NOT EQUAL JMP .+5 /GRTR CLR /LESS /NOW SET UP RETURN JUMPS. ADD SAGEX+2 ADD KP1 JMP .+4 CLR ADD SAGEX+2 ADD KP2 STC SAGEX SET 1 /RESTORE BETA 1 SAGEX+3 ADD SAGEX+1 /RESTORE AC SAGEX, 0 /LEAVE, RTRN JUMP 0 /AC 0 /ORIG RTRN JMP 0 /BETA 1 /SAGEX IS OFTEN USED AS A FP REGISTER AS WELL. /END SAGE.