Category : Forth Source Code
Archive   : ZEN15A.ZIP
Filename : ZEN.ASM

 
Output of file : ZEN.ASM contained in archive : ZEN15A.ZIP
%TITLE 'ZEN 1.15 by Martin J. Tracy'
;
; ZEN 1.15
; Main program
;
; Martin J. Tracy
; Copyright 1991 All rights reserved
;
; ANS X3J14 Standard Documentation
; See ANSFORTH.DOC
;
; IBM MS-DOS small-model ROM-able Forth
;
; BX register is top-of-stack.
; Direct-Threaded Code (DTC) with JMP in code field.
;
; Listing Attributes
;
%MACS
%PAGESIZE 58,70
%BIN 10
%TEXT 50
;
; Parameters
;
Dictionary_Size EQU 0FFFEh ; Dictionary size in bytes
Table_Area_Size EQU 0h ; Table size in bytes
Array_Area_Size EQU 0F400h ; Variable size in bytes
Data_Stack_Size EQU 300h ; Data stack size in words
Return_Stack_Size EQU 300h ; Return stack size in words
;
; Groups
;
.SEQ
DGROUP GROUP CONST, _BSS, STACK
ASSUME CS:_TEXT, SS:DGROUP, DS:DGROUP

_TEXT SEGMENT WORD PUBLIC 'CODE'
DORG:
_TEXT ENDS
CONST SEGMENT PARA PUBLIC 'CONST'
TORG:
CONST ENDS
_BSS SEGMENT WORD PUBLIC 'DATA'
VORG:
_BSS ENDS
STACK SEGMENT PARA STACK 'STACK'
STACK ENDS

;
; Code segment
;
_TEXT SEGMENT WORD PUBLIC 'CODE'
; Code goes here
INCLUDE RUNTIME.INC ; minimal run-time kernel
INCLUDE USER.ASM ; user CODE definitions
INCLUDE INPUTOUT.INC ; I/O
INCLUDE DEVICE.INC ; device drivers
INCLUDE XPRETER.INC ; Interpreter
INCLUDE COMPILER.INC ; Compiler
INCLUDE FILES.INC ; File system
INCLUDE CLOSURE.INC ; Initialization

DP0 db (Dictionary_Size-($-DORG)) DUP (?)
_TEXT ENDS
;
; Data segments
;
; Constant variables and tables go here
CONST SEGMENT PARA PUBLIC 'CONST'
INCLUDE CONSTANT.INC
ALIGN 16
TP0:
CONST ENDS

; Uninitialized variables go here
_BSS SEGMENT WORD PUBLIC 'DATA'
INCLUDE VARIABLE.INC
VP0 db (Array_Area_Size-($-VORG+(TP0-TORG))) DUP (?)
_BSS ENDS

; Stacks go here
STACK SEGMENT PARA STACK 'STACK'
dw (Data_Stack_Size) DUP (?)
SP0 dw (Return_Stack_Size-2) DUP (?)
RP0 dw ?
STACK ENDS

END ColdStart


  3 Responses to “Category : Forth Source Code
Archive   : ZEN15A.ZIP
Filename : ZEN.ASM

  1. Very nice! Thank you for this wonderful archive. I wonder why I found it only now. Long live the BBS file archives!

  2. This is so awesome! 😀 I’d be cool if you could download an entire archive of this at once, though.

  3. But one thing that puzzles me is the “mtswslnkmcjklsdlsbdmMICROSOFT” string. There is an article about it here. It is definitely worth a read: http://www.os2museum.com/wp/mtswslnk/