Update for early Mooreheim for Altair 8800
This commit is contained in:
parent
a1ec1bb9e8
commit
baae594261
302
src/altair8800/Mooreheim.asm
Normal file
302
src/altair8800/Mooreheim.asm
Normal file
@ -0,0 +1,302 @@
|
|||||||
|
; Mooreheim.asm
|
||||||
|
; Copyright (C) 2023 William R. Moore
|
||||||
|
;
|
||||||
|
; This program is free software: you can redistribute it and/or modify
|
||||||
|
; it under the terms of the GNU General Public License as published by
|
||||||
|
; the Free Software Foundation, either version 3 of the License, or
|
||||||
|
; (at your option) any later version.
|
||||||
|
;
|
||||||
|
; This program is distributed in the hope that it will be useful,
|
||||||
|
; but WITHOUT ANY WARRANTY; without even the implied warranty of
|
||||||
|
; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
||||||
|
; GNU General Public License for more details.
|
||||||
|
;
|
||||||
|
; You should have received a copy of the GNU General Public License
|
||||||
|
; along with this program. If not, see <http://www.gnu.org/licenses/>.
|
||||||
|
|
||||||
|
; Mooreheim the Dice Game
|
||||||
|
;
|
||||||
|
; Toggle the first five sense switches to roll the different dice.
|
||||||
|
; Position 0 = roll
|
||||||
|
; Position 1 = hold
|
||||||
|
;
|
||||||
|
; Toggle switches 6 and 7 when you want to move on to the next roll
|
||||||
|
; or continue holding the dice.
|
||||||
|
; Once switches 6 and 7 are togged to position 1, the game ends and
|
||||||
|
; your score is calculated and the kind of "hand" is displayed.
|
||||||
|
|
||||||
|
ORG 100H
|
||||||
|
|
||||||
|
; Driver logic
|
||||||
|
PUSH D
|
||||||
|
LXI D, WELCOME
|
||||||
|
CALL PRINTS
|
||||||
|
POP D
|
||||||
|
|
||||||
|
PUSH D
|
||||||
|
LXI D, NEWLINE
|
||||||
|
CALL PRINTS
|
||||||
|
POP D
|
||||||
|
|
||||||
|
LXI H, DICE
|
||||||
|
|
||||||
|
CALL ROLLTHEMBONES
|
||||||
|
CALL OUTPUT
|
||||||
|
|
||||||
|
CHECKSWITCH6
|
||||||
|
IN 0FFH
|
||||||
|
ANI 32
|
||||||
|
CNZ ROLLTHEMBONES
|
||||||
|
JMP CHECKSWITCH6
|
||||||
|
CALL OUTPUT
|
||||||
|
|
||||||
|
CHECKSWITCH7
|
||||||
|
IN OFFH
|
||||||
|
ANI 64
|
||||||
|
CNZ ROLLTHEMBONES
|
||||||
|
JMP CHECKSWITCH7
|
||||||
|
CALL OUTPUT
|
||||||
|
|
||||||
|
JMP 0h
|
||||||
|
|
||||||
|
ROLLTHEMBONES
|
||||||
|
CALL ROLL1
|
||||||
|
MOV M, C
|
||||||
|
INR L
|
||||||
|
|
||||||
|
CALL ROLL2
|
||||||
|
MOV M, C
|
||||||
|
INR L
|
||||||
|
|
||||||
|
CALL ROLL3
|
||||||
|
MOV M, C
|
||||||
|
INR L
|
||||||
|
|
||||||
|
CALL ROLL4
|
||||||
|
MOV M, C
|
||||||
|
INR L
|
||||||
|
|
||||||
|
CALL ROLL5
|
||||||
|
MOV M, C
|
||||||
|
|
||||||
|
DCR L
|
||||||
|
DCR L
|
||||||
|
DCR L
|
||||||
|
DCR L
|
||||||
|
RET
|
||||||
|
|
||||||
|
; Output the dice results
|
||||||
|
OUTPUT
|
||||||
|
|
||||||
|
PUSH D
|
||||||
|
LXI D, YOUROLLED
|
||||||
|
CALL PRINTS
|
||||||
|
POP D
|
||||||
|
|
||||||
|
PUSH D
|
||||||
|
MOV A, M
|
||||||
|
ADI 48
|
||||||
|
STAX D
|
||||||
|
CALL PRINTC
|
||||||
|
INR L
|
||||||
|
POP D
|
||||||
|
|
||||||
|
PUSH D
|
||||||
|
LXI D, NEWLINE
|
||||||
|
CALL PRINTS
|
||||||
|
POP D
|
||||||
|
|
||||||
|
PUSH D
|
||||||
|
MOV A, M
|
||||||
|
ADI 48
|
||||||
|
STAX D
|
||||||
|
CALL PRINTC
|
||||||
|
INR L
|
||||||
|
POP D
|
||||||
|
|
||||||
|
PUSH D
|
||||||
|
LXI D, NEWLINE
|
||||||
|
CALL PRINTS
|
||||||
|
POP D
|
||||||
|
|
||||||
|
PUSH D
|
||||||
|
MOV A, M
|
||||||
|
ADI 48
|
||||||
|
STAX D
|
||||||
|
CALL PRINTC
|
||||||
|
INR L
|
||||||
|
POP D
|
||||||
|
|
||||||
|
PUSH D
|
||||||
|
LXI D, NEWLINE
|
||||||
|
CALL PRINTS
|
||||||
|
POP D
|
||||||
|
|
||||||
|
PUSH D
|
||||||
|
MOV A, M
|
||||||
|
ADI 48
|
||||||
|
STAX D
|
||||||
|
CALL PRINTC
|
||||||
|
INR L
|
||||||
|
POP D
|
||||||
|
|
||||||
|
PUSH D
|
||||||
|
LXI D, NEWLINE
|
||||||
|
CALL PRINTS
|
||||||
|
POP D
|
||||||
|
|
||||||
|
PUSH D
|
||||||
|
MOV A, M
|
||||||
|
ADI 48
|
||||||
|
STAX D
|
||||||
|
CALL PRINTC
|
||||||
|
POP D
|
||||||
|
|
||||||
|
PUSH D
|
||||||
|
LXI D, NEWLINE
|
||||||
|
CALL PRINTS
|
||||||
|
POP D
|
||||||
|
|
||||||
|
RET
|
||||||
|
|
||||||
|
; Roll the different dice
|
||||||
|
ROLL1
|
||||||
|
IN 0FFH
|
||||||
|
ANI 1
|
||||||
|
JNZ ROLL1_TEST
|
||||||
|
ROLL1_START
|
||||||
|
MVI C, 0
|
||||||
|
ROLL1_DIE
|
||||||
|
INR C
|
||||||
|
MOV A, C
|
||||||
|
CPI 7H
|
||||||
|
JZ ROLL1_START
|
||||||
|
IN 0FFH
|
||||||
|
ANI 1
|
||||||
|
JNZ ROLL1_END
|
||||||
|
JMP ROLL1_DIE
|
||||||
|
ROLL1_TEST
|
||||||
|
MOV A, M
|
||||||
|
CPI 0h
|
||||||
|
JZ ROLL1_START
|
||||||
|
ROLL1_END
|
||||||
|
RET
|
||||||
|
|
||||||
|
ROLL2
|
||||||
|
IN 0FFh
|
||||||
|
ANI 2
|
||||||
|
JNZ ROLL2_TEST
|
||||||
|
ROLL2_START
|
||||||
|
MVI C, 0
|
||||||
|
ROLL2_DIE
|
||||||
|
INR C
|
||||||
|
MOV A, C
|
||||||
|
CPI 7H
|
||||||
|
JZ ROLL2_START
|
||||||
|
IN 0FFH
|
||||||
|
ANI 2
|
||||||
|
JNZ ROLL2_END
|
||||||
|
JMP ROLL2_DIE
|
||||||
|
ROLL2_TEST
|
||||||
|
MOV A, M
|
||||||
|
CPI 0
|
||||||
|
JZ ROLL2_START
|
||||||
|
ROLL2_END
|
||||||
|
RET
|
||||||
|
|
||||||
|
ROLL3
|
||||||
|
IN 0FFh
|
||||||
|
ANI 4
|
||||||
|
JNZ ROLL3_TEST
|
||||||
|
ROLL3_START
|
||||||
|
MVI C, 0
|
||||||
|
ROLL3_DIE
|
||||||
|
INR C
|
||||||
|
MOV A, C
|
||||||
|
CPI 7H
|
||||||
|
JZ ROLL3_START
|
||||||
|
IN 0FFH
|
||||||
|
ANI 4
|
||||||
|
JNZ ROLL3_END
|
||||||
|
JMP ROLL3_DIE
|
||||||
|
ROLL3_TEST
|
||||||
|
MOV A, M
|
||||||
|
CPI 0
|
||||||
|
JZ ROLL3_START
|
||||||
|
ROLL3_END
|
||||||
|
RET
|
||||||
|
|
||||||
|
ROLL4
|
||||||
|
IN 0FFH
|
||||||
|
ANI 8
|
||||||
|
JNZ ROLL4_TEST
|
||||||
|
ROLL4_START
|
||||||
|
MVI C, 0
|
||||||
|
ROLL4_DIE
|
||||||
|
INR C
|
||||||
|
MOV A, C
|
||||||
|
CPI 7H
|
||||||
|
JZ ROLL4_START
|
||||||
|
IN 0FFH
|
||||||
|
ANI 8
|
||||||
|
JNZ ROLL4_END
|
||||||
|
JMP ROLL4_DIE
|
||||||
|
ROLL4_TEST
|
||||||
|
MOV A, M
|
||||||
|
CPI 0
|
||||||
|
JZ ROLL4_START
|
||||||
|
ROLL4_END
|
||||||
|
RET
|
||||||
|
|
||||||
|
ROLL5
|
||||||
|
IN 0FFh
|
||||||
|
ANI 16
|
||||||
|
JNZ ROLL5_TEST
|
||||||
|
ROLL5_START
|
||||||
|
MVI C, 0
|
||||||
|
ROLL5_DIE
|
||||||
|
INR C
|
||||||
|
MOV A, C
|
||||||
|
CPI 7H
|
||||||
|
JZ ROLL5_START
|
||||||
|
IN 0FFH
|
||||||
|
ANI 16
|
||||||
|
JNZ ROLL5_END
|
||||||
|
JMP ROLL5_DIE
|
||||||
|
ROLL5_TEST
|
||||||
|
MOV A, M
|
||||||
|
CPI 0
|
||||||
|
JZ ROLL5_START
|
||||||
|
ROLL5_END
|
||||||
|
RET
|
||||||
|
|
||||||
|
; Print a null-terminated string
|
||||||
|
PRINTS
|
||||||
|
; PUSH PSW
|
||||||
|
OUT1CH
|
||||||
|
LDAX D ; LET A = (DE)
|
||||||
|
CPI 0H ; Done when null terminated.
|
||||||
|
JZ PRINTS_DONE
|
||||||
|
OUT 1H ; Output the character at the current address to the console
|
||||||
|
INR E ; Increment the address of the current character
|
||||||
|
JMP OUT1CH
|
||||||
|
PRINTS_DONE
|
||||||
|
; POP PSW
|
||||||
|
RET
|
||||||
|
PRINTC
|
||||||
|
; PUSH PSW
|
||||||
|
LDAX D ; LET A = (DE)
|
||||||
|
OUT 1H ; Output the character at the current address to the console
|
||||||
|
; POP PSW
|
||||||
|
RET
|
||||||
|
|
||||||
|
SAVE_HL DW 0
|
||||||
|
WELCOME DB "Welcome to the gambling halls of Mooreheim!", 0H
|
||||||
|
DICE DB 0, 0, 0, 0, 0
|
||||||
|
HELD_DICE DB 0, 0, 0, 0, 0
|
||||||
|
NEWLINE DB CR, LF, 0H
|
||||||
|
YOUROLLED DB "You rolled:", CR, LF, 0H
|
||||||
|
CR equ 0DH
|
||||||
|
LF equ 0AH
|
||||||
|
|
||||||
|
END
|
||||||
Loading…
Reference in New Issue
Block a user