Refactor pathing

1802mc/til_wrm.asm

@@ -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
+	

altair8800/SCC.asm

@@ -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
+

altair8800/SillyDieRoller.asm

@@ -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

altair8800/cpm/til.z80

@@ -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

altair8800/rand.asm

@@ -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

src/BLINKEN.BAS

@@ -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

z80/forth.asm

@@ -33,10 +33,13 @@ LF	EQU 0AH
 DOLLAR EQU 24H
 ESC EQU 27
 
-; Screen print calls
+; CP/M calls
 WRITESTR EQU 9H
 PRTCHR EQU 02H
-BDOS EQU 5H 
+CHRIN EQU 01H
+BDOS EQU 05H
+CONSOLEOUT EQU 06H
+CONSOLEIN EQU 0AH
 
   ORG 100h 
 
@@ -45,31 +48,67 @@ MAIN:
   CALL PUTS
 
 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
 
 INPUT:
-  LD C,11 ; C_STAT
+  ; LD HL, BUFFER
-  LD DE,0
+  ; LD B, BUFFER_SIZE
-  CALL BDOS
-  OR A
-  JR Z,INPUT
 
-  LD C,6
+  ; ; 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
-  OR A
-  JP Z,INPUT
 
   CP 03H
   JP Z, EXIT
 
   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
 
 ; Print a string
@@ -78,18 +117,20 @@ PUTS:
   CALL BDOS
   RET
 
-; Print a character
 PUTC:
   LD C, PRTCHR
   CALL BDOS
   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:
-  JP 0h
+  ; JP 0h
+  HALT
 
   END