;======================================
; MAINROUTINE
;======================================
EX1_2_1 START
LD GR1,KOSUU ;1
LAD GR2,DATA ;2
LAD GR3,MIN ;3
LAD GR4,MAX ;4
CALL MINMAX ;5
RET ;6
;
;======================================
; DATA REGION
;======================================
DATA DC 54,34,82,49,99,37
KOSUU DC 6
MIN DS 1
MAX DS 1
;
;======================================
; SUBROUTINE SAISHOU SAIDAI
;======================================
MINMAX PUSH 0,GR1
PUSH 0,GR2
PUSH 0,GR3
PUSH 0,GR4
PUSH 0,GR5
PUSH 0,GR6
LAD GR5,0
LAD GR1,-1,GR1
LD GR6,0,GR2
ST GR6,0,GR3
ST GR6,0,GR4
LOOP LAD GR2,1,GR2
LAD GR5,1,GR5
LD GR6,0,GR2
CPA GR6,0,GR3
JPL FMAX
ST GR6,0,GR3
FMAX CPA GR6,0,GR4
JMI SKIP
ST GR6,0,GR4
SKIP CPA GR1,GR5
JPL LOOP
POP GR6
POP GR5
POP GR4
POP GR3
POP GR2
POP GR1
RET
END
|