;*************************** AMUS Program Label ******************************
; Filename: SETJMP.M68 Date: 01/04/89
; Category: UTIL Hash Code: 777-603-766-025 Version: 1.0
; Initials: GR/AM Name: JAMES A. JARBOE IV
; Company: Telephone #: 4092955767
; Related Files:
; Min. Op. Sys.: 1.3B Expertise Level: BEG
; Special:
; Description: Graphically displays jumper settings for 8 pin dip switches/
; connectors by number base or by physical switch setting.
;
;*****************************************************************************
; Updated on 08-Dec-88 at 8:30 PM by JARBOE
; 1401 19th Street
; Huntsville, TX 77340
; 409-295-5767
;
; Tested on AMOS : 1.3B(151)-7
; Risk : None
; Options: None
SEARCH SYS
SEARCH SYSSYM
SEARCH TRM
ASMMSG " "
ASMMSG "( SETJMP )"
ASMMSG "( By James A. Jarboe IV )"
ASMMSG " "
; Correct SETJMP.LIT hash = 777-603-766-025
; AMUS MACROS
;
DEFINE PRTTAB AA,BB
PUSH D1
MOVB #AA,D1
LSLW D1,#10
MOVB #BB,D1
TCRT
POP D1
ENDM
DEFINE ONEKEY ;makes KBD only accept one key (D1 holds it)
PUSH A6 ;"black box"
JOBIDX A6 ;get JCB pointer
MOV JOBTRM(A6),A6 ;A6 holds pointer to TSW
ORW #3,@A6
POP A6 ;restore original
ENDM
DEFINE MLTKEY ;multiple keystrokes on KBD call (A2 pointer)
PUSH A6 ;"black box"
PUSH D4
JOBIDX A6
MOV JOBTRM(A6),A6 ;A6 holds pointer to TSW
MOVW #3,D4
COMW D4 ;to set up the AND so as to
ANDW D4,@A6 ;turn off the T$IMI bit (back to normal mode)
POP D4 ;restore originals
POP A6
ENDM
DEFINE HEX ;set binary output to HEX
PUSH A6 ;"black box"
JOBIDX A6 ;point to JOBIDX (JOBSTS)
LEA A6,JOBTYP(A6) ;A6 points to JOBTYP word
ORW #J.HEX,@A6 ;HEX set
POP A6 ;restore original
ENDM
DEFINE OCTAL ;set OCTAL
PUSH A6 ;"black box"
PUSH D7
JOBIDX A6 ;point to JOBIDX (JOBSTS)
LEA A6,JOBTYP(A6) ;A6 points to JOBTYP word
MOVW #J.HEX,D7 ;get the flag number
COMW D7 ;flip the bits
ANDW D7,@A6 ;OCTAL set
POP D7 ;restore original
POP A6
ENDM
; Program macros
;
DEFINE SHOWIT AA,BB
PUSH D1
MOVB #AA,D1
LSLW D1,#10
MOVB D3,D1
TCRT
TYPE <BB>
POP D1
ENDM
VMAJOR=1 ; Author James A. Jarboe
VMINOR=0
.OFINI
.OFDEF SETTYP,4.
.OFSIZ MEMSIZ
;START OF CODE
START: PHDR -1,0,PH$REE!PH$REU ;program header
GETIMP MEMSIZ,A5 ;allocate impure area
CALL HEADER
10$:
CALL SCREEN
CLR D3 ;
CLR D5 ;
MOV #62.,D3 ;
CALL SELECT ; get selection
CALL SETBAS ; set the base
CALL RESULT ; show the results
CALL AGAIN ; ask to do it again
BEQ 10$
EXIT:
PRTTAB -1,12.
PRTTAB 21.,1
EXIT
SETBAS:
CTRLC EXIT ; ^C out
PRTTAB 15.,1. ;
PRTTAB -1,10. ;
CLR D1 ;
GTDEC ; get decimal into d1
CMPB D1,#4 ;
JEQ THESWT
CMPB D1,#3
BNE 10$
OCTAL
CALL ENT
TYPE <OCTAL>
CALL GETIT
GTOCT
JMP SCAN
10$:
CMPB D1,#2
BNE 20$
HEX
CALL ENT
TYPE <HEX>
CALL GETIT
GTOCT
JMP SCAN
20$:
CALL ENT
TYPE <DECIMAL>
CALL GETIT
CLR D1
GTDEC
SCAN:
CTRLC EXIT
CLR D0
MOV #7.,D0 ;set bit mask
10$: BTST D0,D1 ;test bit
BEQ 30$ ; branch if zero
TSTW SETTYP(A5)
BNE 35$
20$:
SHOWIT 10.,X
SUB #5,D3
BR 40$
30$:
TSTW SETTYP(A5)
BNE 20$
35$:
SHOWIT 8.,X
SUB #5,D3
BR 40$
40$: DEC D0 ;decrement count
BLT 50$ ;branch if done
BR 10$ ;processs new word
50$:
RTN
GETIT:
PRTTAB -1,11.
TYPE < Number >
PRTTAB -1,12.
KBD
RTN
ENT:
PRTTAB 15.,15.
PRTTAB -1,11.
TYPE < Enter >
PRTTAB -1,12.
RTN
SELECT:
PRTTAB 15.,1
TYPECR < 1. Decimal (default)>
TYPECR < 2. Hexadecimal >
TYPECR < 3. Octal >
TSTW SETTYP(A5)
BNE 10$
TYPECR < 4. By Switch>
BR 20$
10$:
TYPECR < 4. By Jumper>
20$:
PRTTAB 20.,15.
TYPE < Enter Desired Base >
KBD
RTN
THESWT:
CALL SWTHLP
ONEKEY
CLR D3
CLR D2
CLR D4
MOVB #1,D4
MOV #27.,D3
10$:
CTRLC EXIT
SHOWIT 9.,
KBD
CMPB D1,#10.
BEQ 20$
CMPB D1,#12.
BEQ 99$
CMPB D1,#11.
BNE 10$
SHOWIT 8.,X
TSTW SETTYP(A5)
BNE 30$
BR 99$
20$:
SHOWIT 10.,X
TSTW SETTYP(A5)
BNE 99$
30$:
ADD D4,D2
99$:
ADD D4,D4
ADD #5.,D3
CMPB D3,#67.
BNE 10$
MOV D2,D1
PRTTAB 17.,1
PRTTAB -1,10.
RTN
SWTHLP:
PRTTAB 17.,15.
PRTTAB -1,10.
PRTTAB -1,11.
TYPE <Press the >
PRTTAB -1,12.
TYPE <UP >
PRTTAB -1,11.
TYPE <arrow (^K) to >
TSTW SETTYP(A5)
BNE 10$
TYPE <toggle switch >
BR 15$
10$:
TYPE <jumper bit >
15$:
PRTTAB -1,12.
TYPE <ON>
PRTTAB -1,11.
TYPE <.>
20$:
PRTTAB 18.,15.
TYPE <Press the >
PRTTAB -1,12.
TYPE <DOWN >
PRTTAB -1,11.
TYPE <arrow (^J) to >
TSTW SETTYP(A5)
BNE 25$
TYPE <toggle switch >
BR 30$
25$:
TYPE <jumper bit >
30$:
PRTTAB -1,12.
TYPE <OFF>
PRTTAB -1,11.
TYPE <.>
PRTTAB 19.,15.
TYPE <Press the >
PRTTAB -1,12.
TYPE <RIGHT >
PRTTAB -1,11.
TYPE <arrow to >
PRTTAB -1,12.
TYPE <BYPASS >
PRTTAB -1,11.
TSTW SETTYP(A5)
BNE 40$
TYPE <a switch.>
BR 45$
40$:
TYPE <a jumper.>
45$:
PRTTAB 21.,14.
PRTTAB -1,12.
TSTW SETTYP(A5)
JNE 99$
TYPE <Remember>
PRTTAB -1,11.
TYPE <, turning the switch >
PRTTAB -1,12.
TYPE <ON >
PRTTAB -1,11.
TYPE <sets the bit >
PRTTAB -1,12.
TYPE <OFF>
PRTTAB -1,11.
TYPE <.>
99$:
PRTTAB -1,12.
RTN
RESULT:
PRTTAB 17.,20.
TYPE <DECIMAL = >
DCVT 0,OT$TRM
HEX
PRTTAB 18.,20.
TYPE <HEX = >
OCVT 0,OT$TRM
OCTAL
PRTTAB 19.,20.
TYPE <OCTAL = >
OCVT 0,OT$TRM
RTN
AGAIN:
PRTTAB 23.,2.
PRTTAB -1,11.
TYPE <Want to do >
PRTTAB -1,12.
TYPE <Another ? >
PRTTAB -1,11.
TYPE <(Y>
MOVB #'/,D1
TTY
TYPE <N) >
PRTTAB -1,12.
ONEKEY
KBD
MLTKEY
UCS
CMPB D1,#'Y
BEQ 20$
LCC #0
RTN
20$:
LCC #4
RTN
HEADER:
PRTTAB -1,0.
PRTTAB 1,79.
PRTTAB -1,33.
PRTTAB 1,1
PRTTAB -1,32.
PRTTAB 1,25.
TYPE <DIP SWITCH-JUMPER SETTER UTILITY>
PRTTAB 8.,25.
TYPE <1. 8 Position Dip Switch>
PRTTAB 9.,25.
TYPE <2. Multi Position Jumper>
PRTTAB 6.,25.
TYPE <Enter Selection >
MLTKEY
KBD
CMPB @A2,#'2
BNE 10$
MOVW #-1,SETTYP(A5)
RTN
10$:
MOVW #0,SETTYP(A5)
RTN
RADIX 10
SCREEN:
TSTW SETTYP(A5)
BNE JUMPER
LEA A0,TABLE1
BR DISPLA
JUMPER:
LEA A0,TABLE2
DISPLA:
10$: MOVB (A0)+,D1
JEQ DONE
CMPB D1,#-2
BEQ 20$
ROLW D1,#8.
MOVB (A0)+,D1
TCRT
BR 10$
20$: MOVB (A0)+,D1
BEQ 10$
TTY
BR 20$
TABLE1:
BYTE -1,29,-1,24,-1,12,-1,0,1,79,-1,11,-1,33,-1,12,1,1,-1,11,-1,32
BYTE 1,33,-1,12,-2
ASCIZ ~SWITCH SETTER ~
BYTE -1,11,-1,6,-1,12,4,12,-1,23,-1,38,-1,46,-1,46,-1,46,-1,46,-1
BYTE 46,-1,46,-1,46,-1,46,-1,46,-1,46,-1,11,-1,42,-1,12,-1,46,-1,46
BYTE -1,46,-1,46,-1,46,-1,46,-1,46,-1,46,-1,46,-1,46,-1,46,-1,46,-1
BYTE 46,-1,46,-1,46,-1,46,-1,46,-1,46,-1,46,-1,46,-1,46,-1,46,-1,46
BYTE -1,46,-1,46,-1,46,-1,46,-1,46,-1,46,-1,46,-1,46,-1,46,-1,46,-1
BYTE 46,-1,46,-1,46,-1,46,-1,46,-1,46,-1,46,-1,46,-1,46,-1,11,-1,46
BYTE -1,39,-1,12,5,21,-1,11,-1,24,-2
ASCIZ ~#~
BYTE -1,12,5,1,-2
ASCIZ ~ ~
BYTE 5,12,-1,23,-1,47,5,14,-1,11,-1,24,-2
ASCIZ ~Switch ~
BYTE -1,6,-2
ASCIZ ~ ~
BYTE -1,23,-1,47,-1,24,-2
ASCIZ ~ 1 2 3 4 5 6 7 8~
BYTE 5,66,-2
ASCIZ ~ ~
BYTE -1,23,-1,47,-1,12,6,1,-1,24,-2
ASCIZ ~ ~
BYTE -1,11,-2
ASCIZ ~ ~
BYTE -1,12,-1,23,-1,47,-1,11,-1,24,-2
ASCIZ ~ Address ~
BYTE -1,23,-1,47,-1,24,-2
ASCIZ ~ A0 A1 A2 A3 A4 A5 A6 A7~
BYTE 6,66,-2
ASCIZ ~ ~
BYTE -1,23,-1,47,-1,12,7,1,-1,11,-1,24,-2
ASCIZ ~ ~
BYTE -1,23,-1,44,-1,46,-1,46,-1,46,-1,46,-1,46,-1,46,-1,46,-1,46,-1
BYTE 46,-1,46,-1,48,-1,46,-1,46,-1,46,-1,46,-1,46,-1,46,-1,46,-1,46
BYTE -1,46,-1,46,-1,46,-1,46,-1,46,-1,46,-1,46,-1,46,-1,46,-1,46,-1
BYTE 46,-1,46,-1,46,-1,46,-1,46,-1,46,-1,46,-1,46,-1,46,-1,46,-1,46
BYTE -1,46,-1,46,-1,46,-1,46,-1,46,-1,46,-1,46,-1,46,-1,46,-1,46,-1
BYTE 46,-1,46,-1,46,-1,46,-1,43,-1,12,8,1,-1,24,-2
ASCIZ ~ ~
BYTE 8,12,-1,23,-1,47,8,14,-1,11,-1,24,-2
ASCIZ ~ON = 0 ~
BYTE 8,23,-1,23,-1,47,8,26,-1,24,-2
ASCIZ ~ ~
BYTE 8,66,-2
ASCIZ ~ ~
BYTE -1,23,-1,47,-1,12,9,12,-1,47,9,23,-1,47,9,25,-1,11,-1,24,-2
ASCIZ ~ --- --- --- --- --- --- --- --- ~
BYTE 9,67,-1,12,-1,23,-1,47,10,1,-1,24,-2
ASCIZ ~ ~
BYTE 10,12,-1,23,-1,47,10,14,-1,11,-1,24,-2
ASCIZ ~OFF = 1 ~
BYTE -1,23,-1,47,-1,24,-2
ASCIZ ~ ~
BYTE -1,12,-2
ASCIZ ~ ~
BYTE -1,11,-2
ASCIZ ~ ~
BYTE -1,12,-2
ASCIZ ~ ~
BYTE -1,11,-2
ASCIZ ~ ~
BYTE -1,12,-2
ASCIZ ~ ~
BYTE -1,11,-2
ASCIZ ~ ~
BYTE -1,12,-2
ASCIZ ~ ~
BYTE -1,11,-2
ASCIZ ~ ~
BYTE 10,66,-2
ASCIZ ~ ~
BYTE -1,23,-1,47,-1,12,11,12,-1,11,-1,44,-1,46,-1,46,-1,46,-1,46,-1
BYTE 46,-1,46,-1,46,-1,46,-1,46,-1,46,-1,48,-1,46,-1,46,-1,46,-1,46
BYTE -1,46,-1,46,-1,46,-1,46,-1,46,-1,46,-1,46,-1,46,-1,46,-1,46,-1
BYTE 46,-1,46,-1,46,-1,46,-1,46,-1,46,-1,46,-1,46,-1,46,-1,46,-1,46
BYTE -1,46,-1,46,-1,46,-1,46,-1,46,-1,46,-1,46,-1,46,-1,46,-1,46,-1
BYTE 46,-1,46,-1,46,-1,46,-1,46,-1,46,-1,46,-1,46,-1,43,-1,12,12,1
BYTE -1,24,-2
ASCIZ ~ ~
BYTE 12,12,-1,23,-1,47,12,14,-1,11,-1,24,-2
ASCIZ ~ ~
BYTE -1,23,-1,47,-1,24,-2
ASCIZ ~ (1) (2) (4) ~
BYTE -1,12,-2
ASCIZ ~ ~
BYTE -1,11,-2
ASCIZ ~(8) (16) (32) (64) (128) ~
BYTE -1,23,-1,47,-1,12,13,12,-1,40,-1,46,-1,46,-1,46,-1,46,-1,46,-1
BYTE 46,-1,46,-1,46,-1,46,-1,46,-1,11,-1,45,-1,12,-1,46,-1,46,-1,46
BYTE -1,46,-1,46,-1,46,-1,46,-1,46,-1,46,-1,46,-1,46,-1,46,-1,46,-1
BYTE 46,-1,46,-1,46,-1,46,-1,46,-1,46,-1,46,-1,46,-1,46,-1,46,-1,46
BYTE -1,46,-1,46,-1,46,-1,46,-1,46,-1,46,-1,46,-1,46,-1,46,-1,46,-1
BYTE 46,-1,46,-1,46,-1,46,-1,46,-1,46,-1,46,-1,46,-1,11,-1,46,-1,41
BYTE -1,12,-1,28,-1,24
BYTE 0
EVEN
TABLE2:
BYTE -1,29,-1,24,-1,12,-1,0,1,79,-1,11,-1,33,-1,12,1,1,-1,11,-1,32
BYTE 1,32,-1,12,-2
ASCIZ ~JUMPER SETTINGS ~
BYTE -1,11,-1,6,-1,12,3,12,-1,23,-1,38,-1,46,-1,46,-1,46,-1,46,-1
BYTE 46,-1,46,-1,46,-1,46,-1,46,-1,46,-1,42,-1,46,-1,46,-1,46,-1,46
BYTE -1,46,-1,46,-1,46,-1,46,-1,46,-1,46,-1,46,-1,46,-1,46,-1,46,-1
BYTE 46,-1,46,-1,46,-1,46,-1,46,-1,46,-1,46,-1,46,-1,46,-1,46,-1,46
BYTE -1,46,-1,46,-1,46,-1,46,-1,46,-1,46,-1,46,-1,46,-1,46,-1,46,-1
BYTE 46,-1,46,-1,46,-1,46,-1,46,-1,46,-1,46,-1,46,-1,39,4,12,-1,47
BYTE -1,24,-2
ASCIZ ~ ~
BYTE -1,11,-2
ASCIZ ~Address ~
BYTE 4,23,-1,12,-1,23,-1,47,-1,24,-2
ASCIZ ~ ~
BYTE -1,11,-2
ASCIZ ~ A0 A1 A2 A3 A4 A5 A6 A7~
BYTE 4,67,-1,12,-1,23,-1,47,5,12,-1,47,-1,24,-2
ASCIZ ~ ~
BYTE 5,23,-1,23,-1,47,-1,24,-2
ASCIZ ~ ~
BYTE -1,11,-2
ASCIZ ~ (1) (2) (4) (8) (16) (32) (64) (128)~
BYTE 5,67,-1,12,-1,23,-1,47,6,12,-1,44,-1,46,-1,46,-1,46,-1,46,-1
BYTE 46,-1,46,-1,46,-1,46,-1,46,-1,46,-1,48,-1,46,-1,46,-1,46,-1,46
BYTE -1,46,-1,46,-1,46,-1,46,-1,46,-1,46,-1,46,-1,46,-1,46,-1,46,-1
BYTE 46,-1,46,-1,46,-1,46,-1,46,-1,46,-1,46,-1,46,-1,46,-1,46,-1,46
BYTE -1,46,-1,46,-1,46,-1,46,-1,46,-1,46,-1,46,-1,46,-1,46,-1,46,-1
BYTE 46,-1,46,-1,46,-1,46,-1,46,-1,46,-1,46,-1,46,-1,43,7,12,-1,47
BYTE 7,14,-1,24,-2
ASCIZ ~ ~
BYTE 7,23,-1,23,-1,47,-1,24,-2
ASCIZ ~ ~
BYTE -1,11,-2
ASCIZ ~ *~
BYTE 7,32,-2
ASCIZ ~*~
BYTE 7,37,-2
ASCIZ ~*~
BYTE 7,42,-2
ASCIZ ~*~
BYTE 7,47,-2
ASCIZ ~*~
BYTE 7,52,-2
ASCIZ ~*~
BYTE 7,57,-2
ASCIZ ~*~
BYTE 7,62,-2
ASCIZ ~*~
BYTE 7,67,-1,12,-1,23,-1,47,8,12,-1,47,8,18,-1,11,-1,24,-2
ASCIZ ~1~
BYTE 8,23,-1,12,-1,23,-1,47,-1,24,-2
ASCIZ ~ ~
BYTE 8,67,-1,23,-1,47,9,12,-1,47,9,23,-1,47,-1,24,-2
ASCIZ ~ ~
BYTE -1,11,-2
ASCIZ ~ *~
BYTE 9,32,-2
ASCIZ ~*~
BYTE 9,37,-2
ASCIZ ~*~
BYTE 9,42,-2
ASCIZ ~*~
BYTE 9,47,-2
ASCIZ ~*~
BYTE 9,52,-2
ASCIZ ~*~
BYTE 9,57,-2
ASCIZ ~*~
BYTE 9,62,-2
ASCIZ ~*~
BYTE 9,67,-1,12,-1,23,-1,47,10,12,-1,47,-1,24,-2
ASCIZ ~ ~
BYTE 10,18,-1,11,-2
ASCIZ ~0~
BYTE 10,23,-1,12,-1,23,-1,47,-1,24,-2
ASCIZ ~ ~
BYTE 10,67,-1,23,-1,47,11,12,-1,47,11,23,-1,47,-1,24,-2
ASCIZ ~ ~
BYTE -1,11,-2
ASCIZ ~ *~
BYTE 11,32,-2
ASCIZ ~*~
BYTE 11,37,-2
ASCIZ ~*~
BYTE 11,42,-2
ASCIZ ~*~
BYTE 11,47,-2
ASCIZ ~*~
BYTE 11,52,-2
ASCIZ ~*~
BYTE 11,57,-2
ASCIZ ~*~
BYTE 11,62,-2
ASCIZ ~*~
BYTE 11,67,-1,12,-1,23,-1,47,12,12,-1,44,-1,46,-1,46,-1,46,-1,46,-1
BYTE 46,-1,46,-1,46,-1,46,-1,46,-1,46,-1,48,-1,46,-1,46,-1,46,-1,46
BYTE -1,46,-1,46,-1,46,-1,46,-1,46,-1,46,-1,46,-1,46,-1,46,-1,46,-1
BYTE 46,-1,46,-1,46,-1,46,-1,46,-1,46,-1,46,-1,46,-1,46,-1,46,-1,46
BYTE -1,46,-1,46,-1,46,-1,46,-1,46,-1,46,-1,46,-1,46,-1,46,-1,46,-1
BYTE 46,-1,46,-1,46,-1,46,-1,46,-1,46,-1,46,-1,46,-1,43,13,21,-1,11
BYTE -1,24,-2
ASCIZ ~#~
BYTE -1,12,13,12,-1,23,-1,47,-1,24,-2
ASCIZ ~ ~
BYTE -1,11,-2
ASCIZ ~Jumper ~
BYTE -1,6,13,23,-1,12,-1,23,-1,47,-1,24,-2
ASCIZ ~ ~
BYTE -1,11,-2
ASCIZ ~ 1 2 3 4 5 6 7 8 ~
BYTE 13,67,-1,12,-1,23,-1,47,14,12,-1,40,-1,46,-1,46,-1,46,-1,46,-1
BYTE 46,-1,46,-1,46,-1,46,-1,46,-1,46,-1,45,-1,46,-1,46,-1,46,-1,46
BYTE -1,46,-1,46,-1,46,-1,46,-1,46,-1,46,-1,46,-1,46,-1,46,-1,46,-1
BYTE 46,-1,46,-1,46,-1,46,-1,46,-1,46,-1,46,-1,46,-1,46,-1,46,-1,46
BYTE -1,46,-1,46,-1,46,-1,46,-1,46,-1,46,-1,46,-1,46,-1,46,-1,46,-1
BYTE 46,-1,46,-1,46,-1,46,-1,46,-1,46,-1,46,-1,46,-1,41,-1,28,-1,24
BYTE 0
EVEN
DONE:
RTN
END
END
