.TITLE PIGET -- READ IN INTEGER VALUE .IDENT /790717/ .GLOBL $$$021 ; ; $$IGET: READ IN INTEGER VALUE ; REGISTER USAGE ; R0: SCRATCH ; R1: POINTER TO FILE BLOCK ; R3: ACCUMULATED VALUE ; $$IGET:: MOVB @(R1),R0 ;EXAMINE NEXT CHARACTER SUB #'0,R0 BLT 1$ ;SMALLER THAN '0' CMP #9.,R0 BLT 1$ ;LARGER THAN '9' MUL #10.,R3 ;R3 = R3*10. ADD R0,R3 MOV R1,-(SP) MOV #1,-(SP) JSR PC,$$$021 ;GET NEXT CHARACTER BR $$IGET 1$: RTS PC .END