;*; Updated on 13-Jan-92 at 1:00 PM by Michele Tonti; edit time: 0:00:07
;************************************
; SETUP - SetUp some JOB attributes
;
; by Dave Heyliger - AMUS Staff
;    for AAA December '86
;************************************

        SEARCH  SYS                     ;search AM universals
        SEARCH  SYSSYM
        SEARCH  TRM

        SEARCH  STSWRD                  ;and our own universal

;Define a PRINT TAB(#,#) MACRO - we've seen this before...
DEFINE  PRTTAB  AA,BB                   ;PRINT TAB(#,#)
        MOVB    #'AA,D1                 ;get first #
        LSLW    D1,#10                  ;shift left 8. bits
        MOVB    #'BB,D1                 ;get second #
        TCRT                            ;PRINT TAB(#,#)
ENDM

;MAIN LOOP - rest of program contains Subroutines
;------------------------------------------------
TOP:    CALL    MENU                    ;type out the menu, wait for input
        CALL    ANALIZ                  ;analyse user input
        CRLF                            ;simulate a return
        EXIT                            ;then quit

;MENU Subroutine - types out user interface
;------------------------------------------
MENU:   PRTTAB  -1,0                    ;clear the screen
        PRTTAB  4,20.                   ;tab to row 4, column 20 (20 decimal!)
        TYPE    <SETUP - Set up your terminal without using SET!>

        PRTTAB  6,12.                   ;tab to row 6, column 12 (decimal)
        TYPE    <Choose: 1) set hex  2) set octal  3) no ^C  4) ^C  5) Exit>

        PRTTAB  8.,30.                  ;tab to row 8, column 30 (decimal)
        TYPE    <User's Choice: >       ;prompt for responce

        ONEKEY                          ;expect only 1 keystroke, no return
        KBD                             ;get the key into D1
        RTN                             ;return from subroutine

;ANALYSE Subroutine - gets user input, acts accordingly
;------------------------------------------------------
ANALIZ: CTRLC   FOOLEM                  ;fool'em on control C

        SUBB    #60,D1                  ;adjust ASCII to "decimal 1...5"

        CMPB    D1,#1                   ;set hex?
        BNE     MO                      ;nope, maybe OCTAL
        HEX                             ;yup, set hex
        RTN                             ;and return

MO:     CMPB    D1,#2                   ;set octal?
        BNE     MNC                     ;nope, maybe NO ^C
        OCTAL                           ;yup, set octal
        RTN                             ;and return

MNC:    CMPB    D1,#3                   ;set NO ^C?
        BNE     MSC                     ;nope, maybe SET ^C
        NOCTC                           ;no ^C
        RTN                             ;and return

MSC:    CMPB    D1,#4                   ;set ^C?
        BNE     MQ                      ;nope, maybe Quit
        CTC                             ;set ^C
        RTN                             ;and return

MQ:     CMPB    D1,#5                   ;quit?
        BNE     ERROR                   ;nope, error!
        RTN                             ;return (program then quits)

ERROR:  MOV     #7,D1                   ;ASCII for a bell
        TTY                             ;BEEP!
        CRLF                            ;blank line
        TYPECR  <?not a valid number>   ;error message
        RTN                             ;and return (only to quit)

;FOOL'EM routine - makes user think they are at the dot, but they aren't
;-----------------------------------------------------------------------
FOOLEM: CLRCTC                          ;clear out the ^C
        MLTKEY                          ;just wait for input.....
        TYPE    <.>                     ;give em a "."
        KBD                             ;like so (expects a [CR])
        TYPECR  <HA-HA   - fooled you! ^C will not set you free!>
        ONEKEY                          ;adjust keyboard input
        TYPE    <Any key to continue.....>      ;prompt
        KBD                             ;get key (don't care what it is
        CLRCTC                          ;clear out ^C
        JMP     TOP                     ;upon keystroke, re-run program

END


.