.NLIST TTM .TITLE HSTAT .IDENT /RICE01/ ; ; CALL HSTAT(IHIS,IX,IY,IXSTEP,IX0,IYSTEP,IY0,ITYPE) ; IHIS = HISTOGRAM NUMBER DESIRED ; SUB RETURNS IX,IY (SIZES) STEP, AND OROGIN FOR X,Y ; ; R5 Points to the param list ; R4 Points to current param ; HSTAT:: MOV (R5)+,PCOUNT ; NUMBER OF INPUT PARAM CALL PTEST ; TEST NEXT PARAM BCS 10$ MOV (R4),R0 JSR PC,SWC ; GET HIST PARAM MOVB (R0)+,R1 ; GET Y SIZE MOVB (R0)+,R2 ; GET STATUS TST (R0)+ ; SKIP ARRAY ADDRESS MOV #4,R3 CALL PTEST BCS 1$ MOV (R0)+,(R4) ; X SIZE 1$: CALL PTEST BCS 2$ BIC #177400,R1 ; Strip extra bits MOV R1,(R4) ; NOW Y SIZE TO USER BNE 2$ ; Ok MOV #1,(R4) 2$: CALL PTEST BCS 3$ MOV (R0)+,(R4) ; MOVE XSTEP,X0,YSTEP,Y0 3$: SOB R3,2$ CALL PTEST BCS 10$ MOV R2,(R4) 10$: RETURN ; RETURN PTEST: DECB PCOUNT ; NO MORE PARAM BGE 1$ ; YES MORE TST (SP)+ ;DO NOT RETURN RETURN 1$: MOV (R5)+,R4 ;IS IT OK? CMP R4,#-1 ;O? BNE 2$ ;YES SEC RETURN 2$: CLC RETURN PCOUNT: .WORD 0 .END