;***************************************************************************** ; ; Auto Powerdown Time changer 2.0 for Fargo 0.2.6 ; By Noah Stein ; Released February 10, 1998 ; ;***************************************************************************** include "tios.h" xdef _main xdef _tibasic _main: pea var_name(PC) move.w tios::DefTempHandle,-(a7) jsr tios::FindSymEntry lea 6(a7),a7 move.w 10(a0),d0 bne no_error tios::ER_throw 1020 no_error: tios::DEREF d0,a0 clr.l d0 move.w (a0),d1 lea 1(a0,d1.w),a0 cmp.b #$1F,(a0) bne toobig cmp.b #2,-(a0) bhi toobig cmp.b #1,(a0) beq onedigit move.b -(a0),d0 lsl.w #8,d0 onedigit: move.b -(a0),d0 mulu #18,d0 move.l d0,APD_INIT rts toobig: tios::ER_throw 40 var_name dc.b "x",0 bss section _tibasic dc.b $E9 dc.b $12,$E4 ; EndPrgm dc.b $00,$E8 ; : dc.b $19,$E4 ; Prgm dc.b $E5,$08 ; (x) dc.b $00,$00,$40,$DC _tibasic end