; ************************* 
; Math/Utilities Library 02
; *************************
; Prompter 
; (Original TI-59)


#EMULATOR c:\ti-59\mu\02\MU-02.t59

#LISTING c:\ti-59\mu\02\MU-02.LST

#AZEMULATOR c:\ti-59\mu\02\MU-02.TI

lbl sbr                              ;000
fix 9 1 7 3 1 3 7 1 7 3 5 op 01
1 5 1 3 3 5 1 6 op 02 rtn

lbl a                                ;027
op 00 sbr sbr 1 sto 0 gto a54

a39:
( pgm 0 sbr = - x%t sto 0 ) cp       ;039
inv ge a87 

a54:
op 20                                ;054:

a56:
( rcl 0 fix 6 op 03 fix 9 op 05 
- x%t 1 ) inv write inv stf 7 
op 18 iff 7 a39 ce adv gto a56

a87:                                 ;087
3 3 3 5 1 7 3 6 3 6 op 01 3 5   
3 6 3 7 0 0 op 02 3 5 6 3 3 6
fix 4 gto a321  

lbl a'                               ;120
( op 0 + sto 0 1 ) fix 6 op 03
sbr sbr op 05 rcl 00 nop write
rtn

lbl b                                ;143
ce 1 3 1 6 4 5 fix 4 
gto a184

lbl b'                               ;157
ce 3 3 1 7 1 3 3 7 
gto a182

lbl c                                ;171
ce 3 6 4 1 2 7 3 7 

a182:                                ;182
fix 2 

a184:                                ;184
op 00 op 03 3 5 1 7 fix 9 gto a274

lbl c'                               ;197
ce 3 2 3 3 op 00 fix 9 op 2 
3 7 2 4 3 2 3 1 fix 2 gto a321

lbl d                                ;223
ce 3 1 1 6 fix 6 op 00 op 04 
1 5 3 2 3 0 3 0 1 3 fix 9 gto a264

lbl d'                               ;249
ce 1 6 1 3 3 7 1 3 op 00 

a262:                                 ;262
fix 2 

a264:
op 03 1 4 1 3 1 6 fix 2 

a274:                                 ;274
op 02 fix 9 op 05 0 rtn

lbl e                                ;282
ce 4 1 3 1 1 6 1 7 gto a305 

lbl e'                               ;296
ce 3 2 4 2 1 7 


a305:                                ;305
fix 9 op 00 op 02
3 5 2 1 2 7 3 2 4 3 


a321:                                ;321
op 03 fix 9 op 05 0 rtn


#end