Refactor pathing
This commit is contained in:
parent
46fb8226bf
commit
7fc533f69d
114
1802mc/til_wrm.asm
Normal file
114
1802mc/til_wrm.asm
Normal file
@ -0,0 +1,114 @@
|
|||||||
|
; til_wrm.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/>.
|
||||||
|
|
||||||
|
|
||||||
|
;******************************************************************
|
||||||
|
; Threaded Interpretive Language (TIL) for COSMAC 1802 CPU.
|
||||||
|
; Core of Threaded Interpretive Language I/O
|
||||||
|
;
|
||||||
|
; From the book "Threaded Interpretive Languages: Their Design and Implementation"
|
||||||
|
;
|
||||||
|
;******************************************************************
|
||||||
|
|
||||||
|
|
||||||
|
; Register definitions (1802 has R0-RF 16 x 16 bit registers)
|
||||||
|
STACK EQU 2 ; stack pointer
|
||||||
|
PC EQU 3 ; program counter
|
||||||
|
CALLR EQU 4 ; call register
|
||||||
|
RETR EQU 5 ; return register
|
||||||
|
TXTPTR EQU 7 ; text pointer
|
||||||
|
INBUF EQU 8 ; Input line buffer pointer register.
|
||||||
|
; TIL registers
|
||||||
|
I EQU 10 ; Instruction Pointer
|
||||||
|
WA EQU 11 ; Word Address
|
||||||
|
TPC EQU 12 ; TIL Program Counter
|
||||||
|
|
||||||
|
|
||||||
|
; Stack for ram High - top of ram, minus monitor scratch pad area.
|
||||||
|
USTACK EQU 0FFBFH
|
||||||
|
; SCRT routine locations Standard ROM org'd at 0
|
||||||
|
CALLSC EQU 0ADBH
|
||||||
|
RETURN EQU 0AEDH
|
||||||
|
; I/O ROUTINES
|
||||||
|
OUTSTR EQU 0526H
|
||||||
|
; The Monitor "INPUT" routine is at 8005hex in the ORG'ed 8000hex Monitor
|
||||||
|
; The inputted character is returned in RB.0
|
||||||
|
INDATA EQU 11
|
||||||
|
INCHR EQU 0005H
|
||||||
|
; The Monitor "OUTPUT" routine is at 821Dhex in the ORG'ed 8000hex Monitor
|
||||||
|
; The character to be outputted is stored in RB.0
|
||||||
|
OUTCHR EQU 021DH
|
||||||
|
|
||||||
|
; Start at 8000h for ROM @ 0000h
|
||||||
|
ORG 8000H
|
||||||
|
; Setup for SCRT routines.
|
||||||
|
; Set R3 as program counter
|
||||||
|
LOAD PC, MAIN
|
||||||
|
SEP PC
|
||||||
|
; *** Main program entry.
|
||||||
|
MAIN LOAD STACK, USTACK ; Setup stack pointer
|
||||||
|
SEX STACK
|
||||||
|
; Setup 4 to CALLSC routine 8ADB
|
||||||
|
LOAD CALLR, CALLSC
|
||||||
|
; Setup R5 to RETURN (8AED)
|
||||||
|
LOAD RETR, RETURN
|
||||||
|
; R7 points to string.
|
||||||
|
; Use SCRT
|
||||||
|
; R3 is the PC
|
||||||
|
; R4 is the call register - points to the call routine in rom
|
||||||
|
; R5 is the return register - points to return routine in rom
|
||||||
|
; CALL pseudo-op of the A18 assembler
|
||||||
|
; Set program counter to R4 and follow with word address of the routine to be called.
|
||||||
|
LOAD TXTPTR, GREET
|
||||||
|
CALL OUTSTR
|
||||||
|
|
||||||
|
INLINE LOAD TXTPTR, PROMPT
|
||||||
|
CALL OUTSTR
|
||||||
|
|
||||||
|
; Read a char, echo a char
|
||||||
|
; if ctrl-c stop
|
||||||
|
IOLOOP CALL INCHR
|
||||||
|
GLO INDATA ; io leaves in RB.0
|
||||||
|
SDI 3 ; subtract ctrl-c
|
||||||
|
BZ EXIT
|
||||||
|
;; simplistic now, must add typed chars to a buffer.
|
||||||
|
;;
|
||||||
|
;; CHECK FOR <CR>
|
||||||
|
GLO INDATA
|
||||||
|
SDI 13 ; CR?
|
||||||
|
BZ EXECBUF ; YES - GOTO EXECUTE BUFFER
|
||||||
|
CALL OUTCHR ; ECHO CHARACTER
|
||||||
|
BR IOLOOP
|
||||||
|
|
||||||
|
EXECBUF LOAD TXTPTR, OKMSG
|
||||||
|
CALL OUTSTR
|
||||||
|
BR INLINE
|
||||||
|
|
||||||
|
; Exit to Membership Card monitor.
|
||||||
|
EXIT SEP 1
|
||||||
|
|
||||||
|
; Cold start
|
||||||
|
GREET TEXT "Welcome to William's TIL."
|
||||||
|
BYTE 0
|
||||||
|
|
||||||
|
OKMSG TEXT " OK"
|
||||||
|
BYTE 0
|
||||||
|
|
||||||
|
PROMPT BYTE 0DH, 0AH, 24H, 00
|
||||||
|
|
||||||
|
|
||||||
|
END
|
||||||
|
|
||||||
154
altair8800/SCC.asm
Normal file
154
altair8800/SCC.asm
Normal file
@ -0,0 +1,154 @@
|
|||||||
|
; SCC.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/>.
|
||||||
|
|
||||||
|
; 8080 Assembly implementation of "Ship, Captain, Crew" for the
|
||||||
|
; Altair 8800 using CP/M
|
||||||
|
|
||||||
|
title 'Ship, Captain, Crew'
|
||||||
|
|
||||||
|
BDOS equ 0005h
|
||||||
|
WRITESTR equ 09h
|
||||||
|
WRITECHR equ 02h
|
||||||
|
CONSTAT equ 0bh
|
||||||
|
EOS equ 24h
|
||||||
|
CR equ 0dh
|
||||||
|
LF equ 0ah
|
||||||
|
|
||||||
|
org 0100h
|
||||||
|
lxi h, 0
|
||||||
|
mvi d, 080h
|
||||||
|
|
||||||
|
; Clears the screen
|
||||||
|
push h
|
||||||
|
push b
|
||||||
|
mvi c, WRITESTR
|
||||||
|
lxi d, cls
|
||||||
|
call BDOS
|
||||||
|
pop b
|
||||||
|
pop h
|
||||||
|
|
||||||
|
run:
|
||||||
|
in 0ffh
|
||||||
|
mov d, a
|
||||||
|
cpi 0
|
||||||
|
jz exit
|
||||||
|
jmp rand_
|
||||||
|
|
||||||
|
continuerun:
|
||||||
|
push h
|
||||||
|
push b
|
||||||
|
mvi c, WRITESTR
|
||||||
|
add d, '0'
|
||||||
|
|
||||||
|
lxi h, d
|
||||||
|
lxi d, '$'
|
||||||
|
call concatenate
|
||||||
|
|
||||||
|
lxi d, m
|
||||||
|
call BDOS
|
||||||
|
pop b
|
||||||
|
pop h
|
||||||
|
|
||||||
|
jmp run
|
||||||
|
|
||||||
|
concatenate:
|
||||||
|
CONCATENATE_LOOP:
|
||||||
|
; Load a character from the source string
|
||||||
|
MOV A, M
|
||||||
|
CPI 0 ; Check for end of source string (null terminator)
|
||||||
|
JZ CONCATENATE_DONE
|
||||||
|
|
||||||
|
; Copy the character to the destination string
|
||||||
|
MOV M, A
|
||||||
|
|
||||||
|
; Move to the next character in both strings
|
||||||
|
INX H ; Increment source string pointer
|
||||||
|
INX D ; Increment destination string pointer
|
||||||
|
|
||||||
|
JMP CONCATENATE_LOOP ; Repeat the loop
|
||||||
|
|
||||||
|
CONCATENATE_DONE:
|
||||||
|
; Null-terminate the concatenated string
|
||||||
|
MVI M, 0 ; Store null terminator at the end of the destination string
|
||||||
|
ret
|
||||||
|
|
||||||
|
print:
|
||||||
|
; push h
|
||||||
|
; push b
|
||||||
|
; lxi d, textstr
|
||||||
|
; mvi c, WRITESTR
|
||||||
|
; call BDOS
|
||||||
|
; pop b
|
||||||
|
; pop h
|
||||||
|
; jmp exit
|
||||||
|
|
||||||
|
;------------------------------------------------------------------------
|
||||||
|
; rand_
|
||||||
|
; This is an implementation of George Marsaglia's three-stage
|
||||||
|
; XOR-shift algorithrm
|
||||||
|
;------------------------------------------------------------------------
|
||||||
|
rand_:
|
||||||
|
; Initialize random seed (optional)
|
||||||
|
mvi c, 42H ; Seed value (you can change this)
|
||||||
|
lxi h, 5678H ; Address to store seed (change this)
|
||||||
|
shld random_seed
|
||||||
|
|
||||||
|
; Roll the die
|
||||||
|
call roll_die
|
||||||
|
jmp continuerun
|
||||||
|
|
||||||
|
; roll a die
|
||||||
|
roll_die:
|
||||||
|
lxi h, random_seed ; Load the seed address
|
||||||
|
mov a, m ; Load the seed value
|
||||||
|
xra a ; Clear the accumulator
|
||||||
|
rrc ; Rotate right through carry
|
||||||
|
rlc ; Rotate left through carry
|
||||||
|
rrc ; Rotate right through carry
|
||||||
|
rlc ; Rotate left through carry
|
||||||
|
rrc ; Rotate right through carry
|
||||||
|
rlc ; Rotate left through carry
|
||||||
|
mvi b, 06H
|
||||||
|
call MODULO
|
||||||
|
ret
|
||||||
|
|
||||||
|
; Perform modulo operation
|
||||||
|
MODULO:
|
||||||
|
xchg ; Exchange A and D registers, D = dividend, A = divisor
|
||||||
|
lxi d, 0 ; Initialize remainder (D) to 0
|
||||||
|
MODULO_LOOP:
|
||||||
|
cmp b ; Compare A (divisor) with B (counter)
|
||||||
|
jc MODULO_DONE ; If A < B, exit loop
|
||||||
|
|
||||||
|
sub b ; Subtract B (counter) from A (divisor)
|
||||||
|
inr d ; Increment D (remainder)
|
||||||
|
|
||||||
|
jmp MODULO_LOOP ; Repeat the loop
|
||||||
|
|
||||||
|
MODULO_DONE:
|
||||||
|
xchg ; Restore original values (A = divisor, D = remainder)
|
||||||
|
ret
|
||||||
|
|
||||||
|
exit: hlt
|
||||||
|
|
||||||
|
random_seed: ; Placeholder for the random seed value
|
||||||
|
dw 0 ; You can initialize it with any value
|
||||||
|
ship: db 'You have a ship', CR, LF, EOS
|
||||||
|
captain: db 'You have a captain!', CR, LF, EOS
|
||||||
|
crew: db 'You have a crew!', CR, LF, EOS
|
||||||
|
cls: db 1bh, '[2J$' ; ANSI clear screen: ESC [ 2 J
|
||||||
|
end
|
||||||
|
|
||||||
113
altair8800/SillyDieRoller.asm
Normal file
113
altair8800/SillyDieRoller.asm
Normal file
@ -0,0 +1,113 @@
|
|||||||
|
; SillyDieRoller.asm - "rolls" a die and makes the LEDs blink while it happens
|
||||||
|
; 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/>.
|
||||||
|
|
||||||
|
CR EQU 0DH
|
||||||
|
LF EQU 0AH
|
||||||
|
|
||||||
|
; CP/M calls
|
||||||
|
WRITESTR EQU 9H
|
||||||
|
PRTCHR EQU 02H
|
||||||
|
CHRIN EQU 01H
|
||||||
|
BDOS EQU 05H
|
||||||
|
CONSOLEOUT EQU 06H
|
||||||
|
CONSOLEIN EQU 0AH
|
||||||
|
NONBLOCKIN EQU 0FFH
|
||||||
|
|
||||||
|
ORG 100H
|
||||||
|
INIT LXI H,DATA ; HL points to blinken data
|
||||||
|
SHLD SAVE_HL
|
||||||
|
|
||||||
|
GETD LHLD SAVE_HL ; restore HL
|
||||||
|
MOV A,M ; get data @ HL
|
||||||
|
CPI EOF ; End of the data list?
|
||||||
|
JZ INIT ; Yes, reset HL pointer.
|
||||||
|
MOV D,A ; No, put in D register for the display pattern.
|
||||||
|
INR L ; HL++
|
||||||
|
SHLD SAVE_HL ; Save data
|
||||||
|
|
||||||
|
INPDEL
|
||||||
|
MVI C, CONSOLEIN
|
||||||
|
MVI D, NONBLOCKIN
|
||||||
|
CALL BDOS
|
||||||
|
CPI 0H
|
||||||
|
JZ NO_INPUT
|
||||||
|
|
||||||
|
MVI C, WRITESTR
|
||||||
|
LXI D, WELCOME
|
||||||
|
CALL BDOS
|
||||||
|
|
||||||
|
MVI C, CHRIN
|
||||||
|
MVI D, -1
|
||||||
|
MVI E, NONBLOCKIN
|
||||||
|
CALL BDOS
|
||||||
|
CPI 0H
|
||||||
|
JZ NO_INPUT
|
||||||
|
CPI 03H
|
||||||
|
JZ DONE
|
||||||
|
|
||||||
|
; LXI H,0 ; Init HL to zero before starting the delay loop
|
||||||
|
; IN 0FFH
|
||||||
|
; CPI 00H ; All Sense switches off finishes the program.
|
||||||
|
; JZ DONE
|
||||||
|
|
||||||
|
NO_INPUT
|
||||||
|
LXI B,4H ; Hardcoded timer
|
||||||
|
|
||||||
|
BLINK
|
||||||
|
LDAX D
|
||||||
|
LDAX D
|
||||||
|
LDAX D
|
||||||
|
LDAX D
|
||||||
|
DAD B
|
||||||
|
JNC BLINK
|
||||||
|
JMP GETD
|
||||||
|
; Done with this loop go get the next D
|
||||||
|
|
||||||
|
; Return to CP/M if 00 on sense switches. Some way to drop out.
|
||||||
|
DONE JMP 0H
|
||||||
|
; Somewhere to save HL, since it will get clobbered by the delay routine.
|
||||||
|
SAVE_HL DW 0
|
||||||
|
; Put your pattern list here... this is just jiggy wiggy back forth here.
|
||||||
|
|
||||||
|
DATA
|
||||||
|
DB 10111010b
|
||||||
|
DB 11000011b
|
||||||
|
DB 11011111b
|
||||||
|
DB 10001000b
|
||||||
|
DB 01001000b
|
||||||
|
DB 00110000b
|
||||||
|
DB 01000110b
|
||||||
|
DB 10000010b
|
||||||
|
DB 01101010b
|
||||||
|
DB 01000000b
|
||||||
|
DB 00100111b
|
||||||
|
DB 01010111b
|
||||||
|
DB 00100000b
|
||||||
|
DB 11110010b
|
||||||
|
DB 01101111b
|
||||||
|
DB 10000011b
|
||||||
|
DB 00110011b
|
||||||
|
DB 00010101b
|
||||||
|
DB 10001100b
|
||||||
|
DB 10111011b
|
||||||
|
DB 00000000b
|
||||||
|
|
||||||
|
DB EOF
|
||||||
|
|
||||||
|
|
||||||
|
EOF EQU 042 ; end of data
|
||||||
|
WELCOME DB "Welcome to the Silly Dice Roller!", CR, LF, "$"
|
||||||
|
END
|
||||||
@ -1,32 +1,32 @@
|
|||||||
; DixMille.asm - a Z80 assembly implementation of the dice game Dix Mille.
|
; DixMille.asm - a Z80 assembly implementation of the dice game Dix Mille.
|
||||||
; Copyright (C) 2023 William R. Moore
|
; Copyright (C) 2023 William R. Moore
|
||||||
;
|
;
|
||||||
; This program is free software: you can redistribute it and/or modify
|
; 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
|
; it under the terms of the GNU General Public License as published by
|
||||||
; the Free Software Foundation, either version 3 of the License, or
|
; the Free Software Foundation, either version 3 of the License, or
|
||||||
; (at your option) any later version.
|
; (at your option) any later version.
|
||||||
;
|
;
|
||||||
; This program is distributed in the hope that it will be useful,
|
; This program is distributed in the hope that it will be useful,
|
||||||
; but WITHOUT ANY WARRANTY; without even the implied warranty of
|
; but WITHOUT ANY WARRANTY; without even the implied warranty of
|
||||||
; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
||||||
; GNU General Public License for more details.
|
; GNU General Public License for more details.
|
||||||
;
|
;
|
||||||
; You should have received a copy of the GNU General Public License
|
; You should have received a copy of the GNU General Public License
|
||||||
; along with this program. If not, see <http://www.gnu.org/licenses/>.
|
; along with this program. If not, see <http://www.gnu.org/licenses/>.
|
||||||
|
|
||||||
ORG 100H
|
ORG 100H
|
||||||
|
|
||||||
; Driver logic
|
; Driver logic
|
||||||
START
|
START
|
||||||
LD DE, CLS
|
LD DE, CLS
|
||||||
CALL PRINTS
|
CALL PRINTS
|
||||||
LD DE, HOME
|
LD DE, HOME
|
||||||
CALL PRINTS
|
CALL PRINTS
|
||||||
|
|
||||||
LD DE, WELCOME
|
LD DE, WELCOME
|
||||||
CALL PRINTS
|
CALL PRINTS
|
||||||
LD DE, NEWLINE
|
LD DE, NEWLINE
|
||||||
CALL PRINTS
|
CALL PRINTS
|
||||||
|
|
||||||
ROLLUNHELD
|
ROLLUNHELD
|
||||||
LD DE, STOPROLL
|
LD DE, STOPROLL
|
||||||
@ -45,7 +45,7 @@ ROLLUNHELD
|
|||||||
JP ROLLUNHELD
|
JP ROLLUNHELD
|
||||||
|
|
||||||
DONE
|
DONE
|
||||||
JP 00H
|
JP 00H
|
||||||
|
|
||||||
COUNTHELD
|
COUNTHELD
|
||||||
LD HL, HELD_DICE
|
LD HL, HELD_DICE
|
||||||
@ -64,8 +64,8 @@ COUNTHELD
|
|||||||
LD L, 0
|
LD L, 0
|
||||||
|
|
||||||
RET
|
RET
|
||||||
|
|
||||||
ROLLTHEMBONES
|
ROLLTHEMBONES
|
||||||
LD HL, DICE
|
LD HL, DICE
|
||||||
|
|
||||||
PUSH HL
|
PUSH HL
|
||||||
@ -179,12 +179,12 @@ ROLL6
|
|||||||
|
|
||||||
; Return back to original position
|
; Return back to original position
|
||||||
ROLLEND
|
ROLLEND
|
||||||
DEC L
|
DEC L
|
||||||
DEC L
|
DEC L
|
||||||
DEC L
|
DEC L
|
||||||
DEC L
|
DEC L
|
||||||
DEC L
|
DEC L
|
||||||
RET
|
RET
|
||||||
|
|
||||||
HOLDDIE
|
HOLDDIE
|
||||||
CALL INPUTC
|
CALL INPUTC
|
||||||
@ -288,25 +288,25 @@ HD_DONE
|
|||||||
; Return back to original position
|
; Return back to original position
|
||||||
LD L, 0
|
LD L, 0
|
||||||
RET
|
RET
|
||||||
|
|
||||||
; Roll the different dice
|
; Roll the different dice
|
||||||
ROLL
|
ROLL
|
||||||
PUSH BC
|
PUSH BC
|
||||||
ROLL_START
|
ROLL_START
|
||||||
LD C, 0
|
LD C, 0
|
||||||
ROLL_DIE
|
ROLL_DIE
|
||||||
INC C
|
INC C
|
||||||
LD A, C
|
LD A, C
|
||||||
CP 7H
|
CP 7H
|
||||||
JP Z, ROLL_START
|
JP Z, ROLL_START
|
||||||
CALL INPUTC
|
CALL INPUTC
|
||||||
CP 00H
|
CP 00H
|
||||||
JP NZ, ROLL_END
|
JP NZ, ROLL_END
|
||||||
JP ROLL_DIE
|
JP ROLL_DIE
|
||||||
ROLL_END
|
ROLL_END
|
||||||
LD (HL), C
|
LD (HL), C
|
||||||
POP BC
|
POP BC
|
||||||
RET
|
RET
|
||||||
|
|
||||||
; Output the dice results
|
; Output the dice results
|
||||||
OUTPUT
|
OUTPUT
|
||||||
@ -502,74 +502,74 @@ INPUTCEND
|
|||||||
; POP BC
|
; POP BC
|
||||||
; POP HL
|
; POP HL
|
||||||
RET
|
RET
|
||||||
|
|
||||||
; Print a string
|
; Print a string
|
||||||
PRINTS
|
PRINTS
|
||||||
; preserve BC register.
|
; preserve BC register.
|
||||||
; preserve HL register.
|
; preserve HL register.
|
||||||
PUSH HL
|
PUSH HL
|
||||||
PUSH BC
|
PUSH BC
|
||||||
LD C, WRITESTR
|
LD C, WRITESTR
|
||||||
CALL BDOS
|
CALL BDOS
|
||||||
POP BC
|
POP BC
|
||||||
POP HL
|
POP HL
|
||||||
RET
|
RET
|
||||||
|
|
||||||
PRINTFACE
|
PRINTFACE
|
||||||
CP 1
|
CP 1
|
||||||
JP NZ, CHECKTWO
|
JP NZ, CHECKTWO
|
||||||
LD DE, ONE
|
LD DE, ONE
|
||||||
CALL PRINTS
|
CALL PRINTS
|
||||||
JP PRINTFACE_END
|
JP PRINTFACE_END
|
||||||
|
|
||||||
CHECKTWO
|
CHECKTWO
|
||||||
CP 2
|
CP 2
|
||||||
JP NZ, CHECKTHREE
|
JP NZ, CHECKTHREE
|
||||||
LD DE, TWO
|
LD DE, TWO
|
||||||
CALL PRINTS
|
|
||||||
JP PRINTFACE_END
|
|
||||||
|
|
||||||
CHECKTHREE
|
|
||||||
CP 3
|
|
||||||
JP NZ, CHECKFOUR
|
|
||||||
LD DE, THREE
|
|
||||||
CALL PRINTS
|
|
||||||
JP PRINTFACE_END
|
|
||||||
|
|
||||||
CHECKFOUR
|
|
||||||
CP 4
|
|
||||||
JP NZ, CHECKFIVE
|
|
||||||
LD DE, FOUR
|
|
||||||
CALL PRINTS
|
|
||||||
JP PRINTFACE_END
|
|
||||||
|
|
||||||
CHECKFIVE
|
|
||||||
CP 5
|
|
||||||
JP NZ, CHECKSIX
|
|
||||||
LD DE, FIVE
|
|
||||||
CALL PRINTS
|
|
||||||
JP PRINTFACE_END
|
|
||||||
|
|
||||||
CHECKSIX
|
|
||||||
CP 6
|
|
||||||
JP NZ, CHECKBADVALUE
|
|
||||||
LD DE, SIX
|
|
||||||
CALL PRINTS
|
CALL PRINTS
|
||||||
JP PRINTFACE_END
|
JP PRINTFACE_END
|
||||||
|
|
||||||
CHECKBADVALUE
|
CHECKTHREE
|
||||||
LD DE, BADVALUE
|
CP 3
|
||||||
CALL PRINTS
|
JP NZ, CHECKFOUR
|
||||||
|
LD DE, THREE
|
||||||
|
CALL PRINTS
|
||||||
|
JP PRINTFACE_END
|
||||||
|
|
||||||
|
CHECKFOUR
|
||||||
|
CP 4
|
||||||
|
JP NZ, CHECKFIVE
|
||||||
|
LD DE, FOUR
|
||||||
|
CALL PRINTS
|
||||||
|
JP PRINTFACE_END
|
||||||
|
|
||||||
|
CHECKFIVE
|
||||||
|
CP 5
|
||||||
|
JP NZ, CHECKSIX
|
||||||
|
LD DE, FIVE
|
||||||
|
CALL PRINTS
|
||||||
|
JP PRINTFACE_END
|
||||||
|
|
||||||
|
CHECKSIX
|
||||||
|
CP 6
|
||||||
|
JP NZ, CHECKBADVALUE
|
||||||
|
LD DE, SIX
|
||||||
|
CALL PRINTS
|
||||||
|
JP PRINTFACE_END
|
||||||
|
|
||||||
|
CHECKBADVALUE
|
||||||
|
LD DE, BADVALUE
|
||||||
|
CALL PRINTS
|
||||||
|
|
||||||
PRINTFACE_END
|
PRINTFACE_END
|
||||||
RET
|
RET
|
||||||
|
|
||||||
EOS DB "$"
|
EOS DB "$"
|
||||||
WELCOME DB "WELCOME TO DIX MILLE FOR CP/M!$"
|
WELCOME DB "WELCOME TO DIX MILLE FOR CP/M!$"
|
||||||
STOPROLL DB "PRESS ANY KEY AT ANY TIME TO STOP ROLLING A DIE!$"
|
STOPROLL DB "PRESS ANY KEY AT ANY TIME TO STOP ROLLING A DIE!$"
|
||||||
DYWTH DB "DO YOU WANT TO HOLD (Y/N) $"
|
DYWTH DB "DO YOU WANT TO HOLD (Y/N) $"
|
||||||
OPTIMAL DB "NOW, DETERMINING OPTIMAL SCORE: $"
|
OPTIMAL DB "NOW, DETERMINING OPTIMAL SCORE: $"
|
||||||
YOUROLLED DB "RESULTS:$"
|
YOUROLLED DB "RESULTS:$"
|
||||||
NEWLINE DB CR, LF, "$"
|
NEWLINE DB CR, LF, "$"
|
||||||
DIE1 DB "DIE 1: $"
|
DIE1 DB "DIE 1: $"
|
||||||
DIE2 DB "DIE 2: $"
|
DIE2 DB "DIE 2: $"
|
||||||
@ -577,27 +577,27 @@ DIE3 DB "DIE 3: $"
|
|||||||
DIE4 DB "DIE 4: $"
|
DIE4 DB "DIE 4: $"
|
||||||
DIE5 DB "DIE 5: $"
|
DIE5 DB "DIE 5: $"
|
||||||
DIE6 DB "DIE 6: $"
|
DIE6 DB "DIE 6: $"
|
||||||
ONE DB "ONE$"
|
ONE DB "ONE$"
|
||||||
TWO DB "TWO$"
|
TWO DB "TWO$"
|
||||||
THREE DB "THREE$"
|
THREE DB "THREE$"
|
||||||
FOUR DB "FOUR$"
|
FOUR DB "FOUR$"
|
||||||
FIVE DB "FIVE$"
|
FIVE DB "FIVE$"
|
||||||
SIX DB "SIX$"
|
SIX DB "SIX$"
|
||||||
MARKED DB " *$"
|
MARKED DB " *$"
|
||||||
CLS DB 1bh, '[2J$' ; ANSI clear screen: ESC [ 2 J
|
CLS DB 1bh, '[2J$' ; ANSI clear screen: ESC [ 2 J
|
||||||
HOME DB 1bh, '[H$' ; ANSI go to screen home: ESC [ H
|
HOME DB 1bh, '[H$' ; ANSI go to screen home: ESC [ H
|
||||||
BADVALUE DB "BAD VALUE$"
|
BADVALUE DB "BAD VALUE$"
|
||||||
|
|
||||||
TOTALHELD DB 0
|
TOTALHELD DB 0
|
||||||
DICE DB 0, 0, 0, 0, 0, 0
|
DICE DB 0, 0, 0, 0, 0, 0
|
||||||
HELD_DICE DB 0, 0, 0, 0, 0, 0
|
HELD_DICE DB 0, 0, 0, 0, 0, 0
|
||||||
CR equ 0DH
|
CR equ 0DH
|
||||||
LF equ 0AH
|
LF equ 0AH
|
||||||
|
|
||||||
CONST EQU 0BH
|
CONST EQU 0BH
|
||||||
CONIN EQU 01H
|
CONIN EQU 01H
|
||||||
BDOS EQU 05H
|
BDOS EQU 05H
|
||||||
PRTCHR EQU 02H
|
PRTCHR EQU 02H
|
||||||
WRITESTR EQU 09H
|
WRITESTR EQU 09H
|
||||||
|
|
||||||
END
|
END
|
||||||
446
altair8800/cpm/til.z80
Normal file
446
altair8800/cpm/til.z80
Normal file
@ -0,0 +1,446 @@
|
|||||||
|
; ***** TIL
|
||||||
|
; Outer Interpreter
|
||||||
|
; Author Kelly Loyd
|
||||||
|
; Target System
|
||||||
|
; Z80 CP/M 64K RAM
|
||||||
|
; ***
|
||||||
|
|
||||||
|
; Non Standard Z80 MC
|
||||||
|
STD_CPM EQU 1
|
||||||
|
|
||||||
|
;---------- Put in CP/M Transient Memory space.
|
||||||
|
ORG 100h
|
||||||
|
|
||||||
|
;---------- START/RESTART
|
||||||
|
START LD DE,RSTMSG
|
||||||
|
LD A,(BASE)
|
||||||
|
AND A
|
||||||
|
JR NZ, ABORT
|
||||||
|
LD A,10
|
||||||
|
LD (BASE),A
|
||||||
|
LD DE,SRTMSG
|
||||||
|
ABORT LD SP,STACK
|
||||||
|
PUSH DE
|
||||||
|
LD HL,0
|
||||||
|
LD (MODE),HL
|
||||||
|
LD IY,NEXT
|
||||||
|
LD IX,RETURN
|
||||||
|
LD HL,8080h
|
||||||
|
LD (LBEND),HL
|
||||||
|
LD BC,OUTER ; Effectively, Set OUTER as the next routine
|
||||||
|
JP NEXT ; Call NEXT in the Inner Interpreter, which will load address of OUTER and Jump to it.
|
||||||
|
|
||||||
|
; Entry point of OUTER interpreter.
|
||||||
|
OUTER DW TYPE
|
||||||
|
DW INLINE
|
||||||
|
DW ASPACE
|
||||||
|
DW TOKEN
|
||||||
|
DW TILHALT
|
||||||
|
DW QSEARCH ; Leaves something on the stack if found or not found?
|
||||||
|
DW @IF
|
||||||
|
|
||||||
|
; --------- Inner Interpreter
|
||||||
|
SEMI DW $ + 2
|
||||||
|
LD C,(IX+0)
|
||||||
|
INC IX
|
||||||
|
LD B,(IX+0)
|
||||||
|
INC IX
|
||||||
|
NEXT LD A,(BC) ; BC = Instruction Register
|
||||||
|
LD L,A ; @I -> WA (HL = word address)
|
||||||
|
INC BC
|
||||||
|
LD A,(BC)
|
||||||
|
LD H,A
|
||||||
|
INC BC ; I = I + 2
|
||||||
|
RUN LD E,(HL) ; @WA -> CA (Code Address)
|
||||||
|
INC HL ; WA = WA + 2
|
||||||
|
LD D,(HL)
|
||||||
|
INC HL
|
||||||
|
EX DE,HL ; CA -> PC
|
||||||
|
JP (HL)
|
||||||
|
|
||||||
|
COLON DEC IX
|
||||||
|
LD (IX+0),B
|
||||||
|
DEC IX
|
||||||
|
LD (IX+0),C
|
||||||
|
LD C,E
|
||||||
|
LD B,D
|
||||||
|
JP (IY)
|
||||||
|
;----------- End of Inner -----
|
||||||
|
|
||||||
|
;---------- IMPORTANT - Start of Vocabulary, Dictionary Entries
|
||||||
|
; Any code that is INTERNAL only, should come after the last Dictionary Entry.
|
||||||
|
DICT_BEG
|
||||||
|
DB 5,'TOK' ; TOKEN ID
|
||||||
|
DW SEARCH - 6 ; should point to the Entry start.
|
||||||
|
TOKEN DW $ + 2
|
||||||
|
EXX ; Save IR (EXX exchanges BC, DE, and HL with shadow registers with BC', DE', and HL'.)
|
||||||
|
LD HL,(LBP) ; pointer to token
|
||||||
|
LD DE,(DP) ; pointer to Dictionary
|
||||||
|
POP BC ; space left by ASPACE
|
||||||
|
LD A,20H ; space code
|
||||||
|
CP C ; space?
|
||||||
|
JR NZ, TOK
|
||||||
|
IGNLB CP (HL)
|
||||||
|
JR NZ,TOK
|
||||||
|
INC L
|
||||||
|
JR IGNLB
|
||||||
|
TOK PUSH HL
|
||||||
|
COUNT INC B
|
||||||
|
INC L
|
||||||
|
LD A,(HL)
|
||||||
|
CP C
|
||||||
|
JR Z,ENDTOK
|
||||||
|
RLA
|
||||||
|
JR NC,COUNT
|
||||||
|
DEC L
|
||||||
|
ENDTOK INC L
|
||||||
|
LD (LBP), HL
|
||||||
|
LD A,B
|
||||||
|
LD (DE), A
|
||||||
|
INC DE
|
||||||
|
POP HL
|
||||||
|
LD C,B
|
||||||
|
LD B,0
|
||||||
|
LDIR ; Move token to dictionary
|
||||||
|
EXX
|
||||||
|
JP (IY)
|
||||||
|
|
||||||
|
|
||||||
|
; SEARCH Primitive
|
||||||
|
DB 6,'SEA'
|
||||||
|
DW AT - 6 ; Point to the Entry proper.
|
||||||
|
SEARCH DW $ + 2
|
||||||
|
EXX ; save registers
|
||||||
|
POP HL ; start of header
|
||||||
|
TESTIT PUSH HL ; save start of header
|
||||||
|
LD DE,(DP) ;dictionary pointer.
|
||||||
|
LD C, 0 ; used with B as false flag
|
||||||
|
LD A,(DE) ;get dictionary token length
|
||||||
|
CP (HL) ; same as keyword length?
|
||||||
|
JP NZ, NXTHDR ; go to next entry in linked list.
|
||||||
|
CP 4 ; Is length over 3?
|
||||||
|
JR C, BEL04 ; skip set 3
|
||||||
|
LD A, 3 ; length = 3
|
||||||
|
BEL04 LD B, A
|
||||||
|
NEXTCH INC HL ; Bump header
|
||||||
|
INC DE ; bump dictionary pointer.
|
||||||
|
LD A, (DE) ; next character
|
||||||
|
CP (HL)
|
||||||
|
JR NZ, NXTHDR ; Go to next header entry.
|
||||||
|
DJNZ NEXTCH ; next character
|
||||||
|
POP HL ; start of found header
|
||||||
|
LD DE,6 ; start plus 6
|
||||||
|
ADD HL,DE ; == Word Address
|
||||||
|
PUSH HL ; push WA; BC = 0 for Flag.
|
||||||
|
JR FLAG
|
||||||
|
NXTHDR POP HL ; start of current header
|
||||||
|
LD DE,4 ; plus 4 == Link Address (pointer to next entry)
|
||||||
|
ADD HL, DE ; To Next keyword
|
||||||
|
LD E, (HL) ; get link address
|
||||||
|
INC HL
|
||||||
|
LD D, (HL)
|
||||||
|
EX DE, HL
|
||||||
|
LD A, H
|
||||||
|
OR L
|
||||||
|
JR NZ, TESTIT ; not 0, test next header.
|
||||||
|
LD C, 1 ; false
|
||||||
|
FLAG PUSH BC ; push flag
|
||||||
|
EXX ;Restore registers
|
||||||
|
JP (IY) ; back to NEXT
|
||||||
|
|
||||||
|
; @ - AT (Assembler won't allow @ for a label.)
|
||||||
|
DB 1,'@',0,0 ; Search will find length of 1 and only look at first char. others are spaces to fill 3 bytes.
|
||||||
|
DW CONTEXT - 6
|
||||||
|
AT DW $ + 2
|
||||||
|
POP HL
|
||||||
|
LD E, (HL) ; low byte at address
|
||||||
|
INC HL
|
||||||
|
LD D, (HL) ; high byte
|
||||||
|
PUSH DE
|
||||||
|
JP (IY)
|
||||||
|
|
||||||
|
; CONTEXT, push address of Vocabulary to stack.
|
||||||
|
DB 7,'CON'
|
||||||
|
DW EXECUTE - 6
|
||||||
|
CONTEXT DW $ + 2
|
||||||
|
|
||||||
|
|
||||||
|
; EXECUTE primitive needs a dictionary entry for defining words.
|
||||||
|
; This is a model for all other Primitive words that will be added to the dictionary
|
||||||
|
;
|
||||||
|
DB 7,'EXE' ; Header for dictionary search
|
||||||
|
DW 0 ; Link address 0000 == End of Linked List.
|
||||||
|
EXECUTE DW $ + 2 ; Address of EXECUTE.
|
||||||
|
POP HL ; primitive code.
|
||||||
|
JP RUN
|
||||||
|
|
||||||
|
;---------- End of Dictonary Entries
|
||||||
|
|
||||||
|
;
|
||||||
|
; ?SEARCH - Secondary to search dictionary.
|
||||||
|
QSEARCH DW $ + 2
|
||||||
|
DW COLON
|
||||||
|
DW CONTEXT
|
||||||
|
DW AT
|
||||||
|
DW AT
|
||||||
|
DW SEARCH
|
||||||
|
DW DUP
|
||||||
|
DW @IF
|
||||||
|
|
||||||
|
|
||||||
|
; TYPE - String with length byte (0a1234567890) printed to console.
|
||||||
|
TYPE DW $ + 2
|
||||||
|
TYPEIT POP DE ; get address of string
|
||||||
|
PUSH HL ; save WA
|
||||||
|
PUSH BC ; Save IR.
|
||||||
|
EX DE,HL
|
||||||
|
LD B,(HL)
|
||||||
|
INC HL
|
||||||
|
ONECHAR LD A,(HL)
|
||||||
|
CALL _ECHO
|
||||||
|
INC HL
|
||||||
|
DJNZ ONECHAR
|
||||||
|
POP BC ; Restore IR
|
||||||
|
POP HL ; Restore WA
|
||||||
|
JP NEXT
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
; INLINE
|
||||||
|
INLINE DW $ + 2 ;header address
|
||||||
|
PUSH BC ; Save IR
|
||||||
|
ISTART CALL _CRLF ; Issue CR / LF on terminal for new input
|
||||||
|
LD HL, LBADD ; Buffer
|
||||||
|
LD (LBP), HL
|
||||||
|
LD B, LENGTH
|
||||||
|
CLEAR LD (HL), SPACE
|
||||||
|
INC HL
|
||||||
|
DJNZ CLEAR
|
||||||
|
ZERO LD L,0
|
||||||
|
INKEY CALL _KEY
|
||||||
|
CP LINEDEL ; CTRL-X is Line Delete
|
||||||
|
JR NZ,TSTBS
|
||||||
|
CALL _ECHO
|
||||||
|
JR ISTART
|
||||||
|
TSTBS CP BKSP ; backspace CTRL-H
|
||||||
|
JR NZ, TSTCR
|
||||||
|
DEC HL
|
||||||
|
JP M,ZERO
|
||||||
|
LD (HL), SPACE
|
||||||
|
ISSUE CALL _ECHO
|
||||||
|
JR INKEY
|
||||||
|
TSTCR CP CR
|
||||||
|
JR Z,LAST1
|
||||||
|
BIT 7,L
|
||||||
|
JR NZ,IEND
|
||||||
|
SAVEIT LD (HL),A
|
||||||
|
CP 61H ; Less than LC A ?
|
||||||
|
JR C,NOTLC
|
||||||
|
CP 7BH ; MORE THAN LC Z?
|
||||||
|
JR NC,NOTLC
|
||||||
|
RES 5,(HL)
|
||||||
|
NOTLC INC L
|
||||||
|
JR ISSUE
|
||||||
|
IEND DEC L
|
||||||
|
LD C,A
|
||||||
|
LD A,BKSP
|
||||||
|
CALL _ECHO
|
||||||
|
LD A,C
|
||||||
|
JR SAVEIT
|
||||||
|
LAST1 LD A, SPACE
|
||||||
|
CALL _ECHO
|
||||||
|
POP BC
|
||||||
|
JP (IY) ; Return to NEXT inner interpreter.
|
||||||
|
|
||||||
|
; Push 20h to stack, will pop into BC in TOKEN, and BC will be 0020h
|
||||||
|
ASPACE DW $ + 2
|
||||||
|
LD DE, 20h
|
||||||
|
PUSH DE
|
||||||
|
JP (IY)
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
; ABSENT?
|
||||||
|
; - NO -> ?EXECUTE -> ASPACE
|
||||||
|
; - YES -> NUMBER
|
||||||
|
|
||||||
|
; ?EXECUTE - Execute Secondary.
|
||||||
|
QEXECUTE DW $ + 2
|
||||||
|
NOP
|
||||||
|
JP (IY)
|
||||||
|
|
||||||
|
QNUMBER DW $ + 2
|
||||||
|
NOP
|
||||||
|
JP (IY)
|
||||||
|
|
||||||
|
@IF DW $ + 2
|
||||||
|
POP HL
|
||||||
|
LD A,L
|
||||||
|
OR H
|
||||||
|
JP Z,_ELSE
|
||||||
|
INC BC
|
||||||
|
JP (IY)
|
||||||
|
|
||||||
|
_ELSE LD A,(BC) ; get jump byte
|
||||||
|
ADD A, C ; add to IR
|
||||||
|
LD C, A ; Reset IR
|
||||||
|
JR NC, OUT ; Past Page?
|
||||||
|
INC B ; Yes
|
||||||
|
OUT JP (IY)
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
DUP DW $ + 2
|
||||||
|
POP HL
|
||||||
|
PUSH HL
|
||||||
|
PUSH HL
|
||||||
|
JP (IY)
|
||||||
|
|
||||||
|
; For Z80 MC - DDT was changed to use RST 6 since the hardware uses RST 7.
|
||||||
|
; For Standard CP/M
|
||||||
|
TILHALT DW $ + 2
|
||||||
|
IF STD_CPM = 1
|
||||||
|
RST 7
|
||||||
|
ELSE
|
||||||
|
RST 6
|
||||||
|
ENDIF
|
||||||
|
|
||||||
|
|
||||||
|
; INVALID NUMBER?
|
||||||
|
; NO -> ASPACE
|
||||||
|
; YES -> QUESTION
|
||||||
|
|
||||||
|
; QUESTION
|
||||||
|
QUESTION DW $ + 2
|
||||||
|
LD HL,(DP)
|
||||||
|
INC HL
|
||||||
|
BIT 7,(HL) ; IF BIT SET, A TERMINATOR
|
||||||
|
JR Z,ERROR ;NOT SET ERROR
|
||||||
|
LD DE,OK
|
||||||
|
PUSH DE
|
||||||
|
JP (IY)
|
||||||
|
ERROR CALL _CRLF
|
||||||
|
LD IY,RETURN
|
||||||
|
JP TYPE
|
||||||
|
RETURN LD DE, QMSG
|
||||||
|
JP _PATCH
|
||||||
|
|
||||||
|
; GOTO TYPE
|
||||||
|
|
||||||
|
|
||||||
|
; Internals
|
||||||
|
|
||||||
|
QMSG DB '?', 0
|
||||||
|
OK DB 'OK',0
|
||||||
|
|
||||||
|
; PATCH internal routine.
|
||||||
|
_PATCH DB 0
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
;----------------------------------------
|
||||||
|
; CP/M Machine Specific routines
|
||||||
|
;
|
||||||
|
; * Internal Routines interfacing with Operating System.
|
||||||
|
; * _ECHO - Echo a character to terminal
|
||||||
|
; * _KEY - Read a key from terminal
|
||||||
|
; * _CRLF - Output CR/LF to terminal
|
||||||
|
;----------------------------------------
|
||||||
|
;; Handy Constants
|
||||||
|
CR EQU 0DH
|
||||||
|
LF EQU 0AH
|
||||||
|
DOLLAR EQU 24H
|
||||||
|
ESC EQU 1BH
|
||||||
|
CTRLC EQU 03H
|
||||||
|
|
||||||
|
; Screen print calls
|
||||||
|
CHAR_IN EQU 03H
|
||||||
|
C_STAT EQU 0BH
|
||||||
|
C_RAWIO EQU 06H
|
||||||
|
|
||||||
|
; til has own write str using _ECHO
|
||||||
|
;WRITESTR EQU 9H
|
||||||
|
PRTCHR EQU 02H
|
||||||
|
BDOS EQU 05H
|
||||||
|
|
||||||
|
; Output one character.
|
||||||
|
; A = Input Char.
|
||||||
|
; preserve BC register.
|
||||||
|
; preserve HL register.
|
||||||
|
_ECHO
|
||||||
|
PUSH HL
|
||||||
|
PUSH BC
|
||||||
|
PUSH DE
|
||||||
|
LD D,A
|
||||||
|
LD E,A
|
||||||
|
LD C, PRTCHR
|
||||||
|
CALL BDOS
|
||||||
|
POP DE
|
||||||
|
POP BC
|
||||||
|
POP HL
|
||||||
|
RET
|
||||||
|
|
||||||
|
; Get a key
|
||||||
|
_KEY
|
||||||
|
; Preserve BC, DE, and HL.
|
||||||
|
PUSH BC
|
||||||
|
PUSH DE
|
||||||
|
PUSH HL
|
||||||
|
WAITKEY LD C, C_RAWIO
|
||||||
|
LD DE,FFFFh
|
||||||
|
CALL BDOS
|
||||||
|
OR A
|
||||||
|
JR Z,WAITKEY
|
||||||
|
POP HL
|
||||||
|
POP DE
|
||||||
|
POP BC
|
||||||
|
; Character returned in A register.
|
||||||
|
RET
|
||||||
|
|
||||||
|
; Output CR LF to console.
|
||||||
|
_CRLF
|
||||||
|
PUSH AF
|
||||||
|
LD A, CR
|
||||||
|
CALL _ECHO
|
||||||
|
LD A, LF
|
||||||
|
CALL _ECHO
|
||||||
|
POP AF
|
||||||
|
RET
|
||||||
|
|
||||||
|
; Constants
|
||||||
|
;
|
||||||
|
LINEDEL EQU 18H ; ctrl-x line delete
|
||||||
|
SPACE EQU 20h ; space
|
||||||
|
BKSP EQU 08h ; ctrl-H backspace
|
||||||
|
|
||||||
|
; Variables
|
||||||
|
BASE DB 0 ; BASE for restart/warm start
|
||||||
|
MODE DB 0 ; MODE
|
||||||
|
LBP DW 0 ; line buffer pointer
|
||||||
|
LENGTH EQU 128 ; buffer length
|
||||||
|
ORG 400h ; put on page boundary
|
||||||
|
LBADD DS 128 ; text input buffer
|
||||||
|
LBEND DW 0
|
||||||
|
|
||||||
|
; CORE points to Core Vocab (first entry in dictionary)
|
||||||
|
CORE DW DICT_BEG
|
||||||
|
|
||||||
|
;---- CONTEXT... points to Vocabulary?
|
||||||
|
CTXTPTR DW DP
|
||||||
|
; Dictonary pointer
|
||||||
|
DP DW DICT
|
||||||
|
STACK EQU 8000h
|
||||||
|
|
||||||
|
; Strings
|
||||||
|
RSTMSG DB ' TIL RESTART'
|
||||||
|
SRTMSG DB ' WELCOME TO RETRO TIL'
|
||||||
|
|
||||||
|
|
||||||
|
DICT DS 4000
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
END 0000
|
||||||
37
altair8800/rand.asm
Normal file
37
altair8800/rand.asm
Normal file
@ -0,0 +1,37 @@
|
|||||||
|
; Altair 8080 LCG Random Number Generator
|
||||||
|
|
||||||
|
ORG 100h ; Start of program
|
||||||
|
|
||||||
|
MAIN:
|
||||||
|
LXI B, 0Ah ; Initialize loop counter (10 iterations)
|
||||||
|
MVI C, 0 ; Initialize seed value (you can change this)
|
||||||
|
MVI D, 13h ; Multiplier (you can change this)
|
||||||
|
MVI E, 07h ; Increment (you can change this)
|
||||||
|
|
||||||
|
RANDOM_LOOP:
|
||||||
|
; Compute the next random number using LCG formula
|
||||||
|
MOV A, C
|
||||||
|
MVI H, 0
|
||||||
|
MOV L, D
|
||||||
|
DAD H
|
||||||
|
XTHL
|
||||||
|
MOV A, L
|
||||||
|
ADD E
|
||||||
|
MOV L, A
|
||||||
|
JNC SKIP_CARRY
|
||||||
|
INR H
|
||||||
|
|
||||||
|
SKIP_CARRY:
|
||||||
|
XTHL
|
||||||
|
MOV C, A
|
||||||
|
|
||||||
|
; Output the random number
|
||||||
|
; You can replace this with any code to use the random number
|
||||||
|
; For simplicity, we'll just output it to the console
|
||||||
|
OUT 01h
|
||||||
|
|
||||||
|
; Decrement loop counter
|
||||||
|
DCR B
|
||||||
|
JNZ RANDOM_LOOP
|
||||||
|
|
||||||
|
END
|
||||||
10
src/BLINKEN.BAS
Normal file
10
src/BLINKEN.BAS
Normal file
@ -0,0 +1,10 @@
|
|||||||
|
1 PINM 13,1
|
||||||
|
10 E=DREAD(2)
|
||||||
|
20 IF E=1 THEN GOTO 100
|
||||||
|
30 DWRITE 13,0
|
||||||
|
40 DELAY 500
|
||||||
|
50 DWRITE 13,1
|
||||||
|
60 DELAY 500
|
||||||
|
70 GOTO 10
|
||||||
|
100 DWRITE 13,0
|
||||||
|
110 END
|
||||||
@ -33,10 +33,13 @@ LF EQU 0AH
|
|||||||
DOLLAR EQU 24H
|
DOLLAR EQU 24H
|
||||||
ESC EQU 27
|
ESC EQU 27
|
||||||
|
|
||||||
; Screen print calls
|
; CP/M calls
|
||||||
WRITESTR EQU 9H
|
WRITESTR EQU 9H
|
||||||
PRTCHR EQU 02H
|
PRTCHR EQU 02H
|
||||||
BDOS EQU 5H
|
CHRIN EQU 01H
|
||||||
|
BDOS EQU 05H
|
||||||
|
CONSOLEOUT EQU 06H
|
||||||
|
CONSOLEIN EQU 0AH
|
||||||
|
|
||||||
ORG 100h
|
ORG 100h
|
||||||
|
|
||||||
@ -45,31 +48,67 @@ MAIN:
|
|||||||
CALL PUTS
|
CALL PUTS
|
||||||
|
|
||||||
READING:
|
READING:
|
||||||
CALL INPUT
|
LD DE, PROMPT
|
||||||
|
CALL PUTS
|
||||||
|
; PUSH HL
|
||||||
|
; CALL INPUT
|
||||||
|
LD C, CONSOLEIN
|
||||||
|
CALL BDOS
|
||||||
|
|
||||||
|
call PUTS
|
||||||
|
; POP HL
|
||||||
|
LD DE, NEWLINE
|
||||||
|
CALL PUTS
|
||||||
JP READING
|
JP READING
|
||||||
|
|
||||||
INPUT:
|
INPUT:
|
||||||
LD C,11 ; C_STAT
|
; LD HL, BUFFER
|
||||||
LD DE,0
|
; LD B, BUFFER_SIZE
|
||||||
|
|
||||||
|
; ; Read first character in, process it, and output
|
||||||
|
; ; it to the console
|
||||||
|
; LD C, CHRIN
|
||||||
|
; LD DE, -1
|
||||||
|
; CALL BDOS
|
||||||
|
|
||||||
|
; CP 03H
|
||||||
|
; JP Z, EXIT
|
||||||
|
|
||||||
|
; CP 0DH
|
||||||
|
; JP Z, INPUTEX
|
||||||
|
|
||||||
|
; LD (HL), A
|
||||||
|
; INC HL
|
||||||
|
; ; ADD HL, HL
|
||||||
|
; DEC B
|
||||||
|
|
||||||
|
INPUTLP:
|
||||||
|
LD C, CHRIN
|
||||||
|
LD DE, -1
|
||||||
CALL BDOS
|
CALL BDOS
|
||||||
OR A
|
|
||||||
JR Z,INPUT
|
|
||||||
|
|
||||||
LD C,6
|
|
||||||
LD DE,-1
|
|
||||||
CALL BDOS
|
|
||||||
OR A
|
|
||||||
JP Z,INPUT
|
|
||||||
|
|
||||||
CP 03H
|
CP 03H
|
||||||
JP Z, EXIT
|
JP Z, EXIT
|
||||||
|
|
||||||
CP 0DH
|
CP 0DH
|
||||||
JP Z, EXIT
|
JP Z, INPUTEX
|
||||||
|
|
||||||
LD D, A
|
; LD (HL), A
|
||||||
LD E, A
|
; INC HL
|
||||||
CALL PUTC
|
; ; ADD HL, HL
|
||||||
|
; DEC B
|
||||||
|
; DJNZ INPUTLP
|
||||||
|
JP INPUTLP
|
||||||
|
|
||||||
|
INPUTEX:
|
||||||
|
; LD (HL), DOLLAR
|
||||||
|
; INC HL
|
||||||
|
; LD A, 0H
|
||||||
|
; LD (HL), A
|
||||||
|
; ADD HL, HL
|
||||||
|
; LD A, DOLLAR
|
||||||
|
; LD (HL), A
|
||||||
|
; LD HL, BUFFER
|
||||||
RET
|
RET
|
||||||
|
|
||||||
; Print a string
|
; Print a string
|
||||||
@ -78,18 +117,20 @@ PUTS:
|
|||||||
CALL BDOS
|
CALL BDOS
|
||||||
RET
|
RET
|
||||||
|
|
||||||
; Print a character
|
|
||||||
PUTC:
|
PUTC:
|
||||||
LD C, PRTCHR
|
LD C, PRTCHR
|
||||||
CALL BDOS
|
CALL BDOS
|
||||||
RET
|
RET
|
||||||
|
|
||||||
CL: DB ESC,"[H",ESC,"[2J$"
|
BUFFER DS 255
|
||||||
BUFFER: DS BUFFER_SIZE
|
EOS DB "$"
|
||||||
GREET: DB "William Moore's FORTH TIL!", CR, LF, 0H
|
GREET DB "William Moore's FORTH TIL!", CR, LF, "$"
|
||||||
PROMPT: DB ESC, ESC, "$ ", 0H
|
PROMPT DB "> $"
|
||||||
|
NEWLINE DB CR, LF, "$"
|
||||||
|
|
||||||
|
|
||||||
EXIT:
|
EXIT:
|
||||||
JP 0h
|
; JP 0h
|
||||||
|
HALT
|
||||||
|
|
||||||
END
|
END
|
||||||
Loading…
Reference in New Issue
Block a user