forked from MirrorRepos/RomWBW
115 changed files with 312 additions and 741 deletions
@ -1,221 +0,0 @@ |
|||
;=============================================================================== |
|||
; PREFIX.ASM |
|||
; |
|||
; CP/M DISK FORMATS ALLOW FOR RESERVED TRACKS THAT CONTAIN AN IMAGE OF THE |
|||
; OPERATING SYSTEM TO BE LOADED WHEN THE DISK IS BOOTED. THE OPERATING SYSTEM |
|||
; IMAGE ITSELF IS NORMALLY PREFIXED BY A 1-N SECTORS CONTAINING OS BOOTSTRAP |
|||
; CODE AND DISK METADATA. |
|||
; |
|||
; THE RETROBREW COMPUTING GROUP HAS BEEN USING A CONVENTION OF PREFIXING THE |
|||
; OS IMAGE WITH 3 SECTORS (512 BYTES X 3 FOR A TOTAL OF 1536 BYTES): |
|||
; |
|||
; SECTOR 1: IBM-PC STYLE BOOT BLOCK CONTAINING BOOTSTRAP, |
|||
; PARTITION TABLE, AND BOOT SIGNATURE |
|||
; SECTOR 2: RESERVED |
|||
; SECTOR 3: METADATA |
|||
; |
|||
; THE HARDWARE BIOS IS EXPECTED TO READ AND LOAD THE FIRST TWO SECTORS FROM THE |
|||
; DISK TO MEMORY ADDRESS $8000 AND JUMP TO THAT LOCATION TO BEGIN THE BOOT |
|||
; PROCESS. THE BIOS IS EXPECTED TO VERIFY THAT A STANDARD BOOT SIGNATURE |
|||
; OF $55, $AA IS PRESENT AT OFFSET $1FE-$1FF. IF THE SIGNATURE IS NOT FOUND, |
|||
; THE BIOS SHOULD ASSUME THE DISK HAS NOT BEEN PROPERLY INITIALIZED AND SHOULD |
|||
; NOT JUMP TO THE LOAD ADDRESS. |
|||
; |
|||
;=============================================================================== |
|||
; |
|||
#INCLUDE "std.asm" |
|||
BYT .EQU 1 ; used to describe METADATA_SIZE below |
|||
WRD .EQU 2 |
|||
; |
|||
SECTOR_SIZE .EQU 512 |
|||
BLOCK_SIZE .EQU 128 |
|||
PREFIX_SIZE .EQU (3 * SECTOR_SIZE) ; 3 SECTORS |
|||
METADATA_SIZE .EQU BYT+WRD+(4*BYT)+16+BYT+WRD+WRD+WRD+WRD ; (as defined below) |
|||
; |
|||
PARTTBL_LOC .EQU $1BE |
|||
PARTTBL_SIZ .EQU $40 |
|||
BOOTSIG_LOC .EQU $1FE |
|||
; |
|||
;------------------------------------------------------------------------------- |
|||
; SECTOR 1 |
|||
; |
|||
; THIS SECTOR FOLLOWS THE CONVENTIONS OF AN IBM-PC MBR CONTAINING THE OS |
|||
; BOOTSTRAP CODE, PARTITION TABLE, AND BOOT SIGNATURE |
|||
; |
|||
;---------------------------------------------------------------------------- |
|||
; |
|||
; THE FOLLOWING BOOTSTRAP CODE IS BUILT TO ASSUME IT WILL BE EXECUTED AT A STARTING |
|||
; ADDRESS OF $8000. |
|||
; |
|||
.ORG $8000 |
|||
JR BOOT |
|||
; |
|||
BOOT: |
|||
LD DE,STR_LOAD ; LOADING STRING |
|||
CALL PRTSTR ; PRINT |
|||
CALL PRTDOT ; PROGRESS |
|||
; |
|||
LD BC,$00FC ; UNA FUNC: GET BOOTSTRAP HISTORY |
|||
CALL $FFFD ; CALL UNA |
|||
JR NZ,ERROR ; HANDLE ERROR |
|||
CALL PRTDOT ; PROGRESS |
|||
LD B,L ; MOVE BOOT UNIT ID TO B |
|||
; |
|||
LD C,$41 ; UNA FUNC: SET LBA |
|||
LD DE,0 ; HI WORD ALWAYS ZERO |
|||
LD HL,3 ; IMAGE STARTS AT FOURTH SECTOR |
|||
CALL $FFFD ; SET LBA |
|||
JR NZ,ERROR ; HANDLE ERROR |
|||
CALL PRTDOT ; PROGRESS |
|||
; |
|||
LD C,$42 ; UNA FUNC: READ SECTORS |
|||
LD DE,$D000 ; STARTING ADDRESS FOR IMAGE |
|||
LD L,22 ; READ 22 SECTORS |
|||
CALL $FFFD ; DO READ |
|||
JR NZ,ERROR ; HANDLE ERROR |
|||
CALL PRTDOT ; PROGRESS |
|||
; |
|||
LD DE,STR_DONE ; DONE MESSAGE |
|||
CALL PRTSTR ; PRINT IT |
|||
; |
|||
LD D,B ; PASS BOOT UNIT TO OS |
|||
LD E,0 ; ASSUME LU IS ZERO |
|||
JP CPM_ENT ; GO TO CPM |
|||
; |
|||
PRTCHR: |
|||
PUSH BC |
|||
PUSH DE |
|||
LD BC,$0012 ; UNIT 0, WRITE CHAR |
|||
LD E,A ; CHAR TO PRINT |
|||
CALL $FFFD ; PRINT |
|||
POP DE |
|||
POP BC |
|||
RET |
|||
; |
|||
PRTSTR: |
|||
PUSH BC |
|||
PUSH HL |
|||
LD BC,$0015 ; UNIT 0, WRITE CHARS UNTIL TERMINATOR |
|||
LD L,0 ; TERMINATOR IS NULL |
|||
CALL $FFFD ; PRINT |
|||
POP HL |
|||
POP BC |
|||
RET |
|||
; |
|||
PRTDOT: |
|||
LD A,'.' ; DOT CHARACTER |
|||
JR PRTCHR ; PRINT AND RETURN |
|||
; |
|||
; PRINT THE HEX BYTE VALUE IN A |
|||
; |
|||
PRTHEXBYTE: |
|||
PUSH AF |
|||
PUSH DE |
|||
CALL HEXASCII |
|||
LD A,D |
|||
CALL PRTCHR |
|||
LD A,E |
|||
CALL PRTCHR |
|||
POP DE |
|||
POP AF |
|||
RET |
|||
; |
|||
; CONVERT BINARY VALUE IN A TO ASCII HEX CHARACTERS IN DE |
|||
; |
|||
HEXASCII: |
|||
LD D,A |
|||
CALL HEXCONV |
|||
LD E,A |
|||
LD A,D |
|||
RLCA |
|||
RLCA |
|||
RLCA |
|||
RLCA |
|||
CALL HEXCONV |
|||
LD D,A |
|||
RET |
|||
; |
|||
; CONVERT LOW NIBBLE OF A TO ASCII HEX |
|||
; |
|||
HEXCONV: |
|||
AND 0FH ;LOW NIBBLE ONLY |
|||
ADD A,90H |
|||
DAA |
|||
ADC A,40H |
|||
DAA |
|||
RET |
|||
; |
|||
ERROR: |
|||
LD DE,STR_ERR ; POINT TO ERROR STRING |
|||
CALL PRTSTR ; PRINT IT |
|||
HALT ; HALT |
|||
; |
|||
; DATA |
|||
; |
|||
STR_LOAD .DB "\r\nLoading",0 |
|||
STR_DONE .DB "\r\n",0 |
|||
STR_ERR .DB " Read Error!",0 |
|||
; |
|||
.ORG $ - $8000 ; RESTORE ORG |
|||
.FILL PARTTBL_LOC - $ ; FILL TO START OF PARTITION TABLE |
|||
; |
|||
; RESERVE SPACE FOR STANDARD IBM-PC PARTITION TABLE. ALTHOUGH A |
|||
; PARTITION TABLE IS NOT RELEVANT FOR A FLOPPY DISK, IT DOES NO HARM. |
|||
; THE CONTENTS OF THE PARTITION TABLE MUST BE MANAGED BY FDISK80. |
|||
; |
|||
PARTTBL .FILL PARTTBL_SIZ,$00 ; PARTITION TABLE, FILL WITH ZEROES |
|||
; |
|||
; THE END OF THE FIRST SECTOR MUST CONTAIN THE TWO BYTE BOOT |
|||
; SIGNATURE. |
|||
; |
|||
BOOTSIG .DB $55,$AA ; STANDARD BOOT SIGNATURE |
|||
; |
|||
;------------------------------------------------------------------------------- |
|||
; SECTOR 2 |
|||
; |
|||
; THIS SECTOR HAS NOT BEEN DEFINED AND IS RESERVED. |
|||
; |
|||
;---------------------------------------------------------------------------- |
|||
; |
|||
.FILL 512,0 ; JUST FILL SECTOR WITH ZEROES |
|||
; |
|||
;------------------------------------------------------------------------------- |
|||
; SECTOR 3 |
|||
; |
|||
; OS AND DISK METADATA |
|||
; |
|||
;---------------------------------------------------------------------------- |
|||
; |
|||
.FILL 128 * 3,0 ; FIRST 384 BYTES ARE NOT YET DEFINED |
|||
; |
|||
; THE FOLLOWING TWO BYTES ARE AN ADDITIONAL SIGNATURE THAT IS VERIFIED BY |
|||
; SOME HARDWARE BIOSES. |
|||
; |
|||
PR_SIG .DB $5A,$A5 ; SIGNATURE GOES HERE |
|||
; |
|||
; FIRST CHUNK OF METADATA IMMEDIATELY FOLLOWS THE SIGNATURE BYTES |
|||
; |
|||
PR_PLATFORM .DB PLATFORM ; PLATFORM ID (SEE STD.ASM) |
|||
PR_DEVICE .DB 0 ; ? (PROBABLY UNUSED) |
|||
PR_FORMATTER .DB 0,0,0,0,0,0,0,0 ; ? (PROBABLY UNUSED) |
|||
PR_DRIVE .DB 0 ; ? (PROBABLY UNUSED) |
|||
PR_LOG_UNIT .DW 0 ; ? (PROBABLY UNUSED) |
|||
; |
|||
; FILLER TO PLACE SECOND CHUNK OF METADATA AT THE END OF THE SECTOR |
|||
; |
|||
.FILL ((PREFIX_SIZE - METADATA_SIZE) - $),00H |
|||
; |
|||
; SECOND CHUNK OF METADATA |
|||
; |
|||
PR_WP .DB 0 ; WRITE PROTECT BOOLEAN |
|||
PR_UPDSEQ .DW 0 ; PREFIX UPDATE SEQUENCE NUMBER (DEPRECATED?) |
|||
PR_VER .DB RMJ,RMN,RUP,RTP ; OS BUILD VERSION |
|||
PR_LABEL .DB "Unlabeled Drive ","$" ; DISK LABEL (EXACTLY 16 BYTES!!!) |
|||
.DW 0 ; DEPRECATED |
|||
PR_LDLOC .DW CPM_LOC ; ADDRESS TO START LOADING OS |
|||
PR_LDEND .DW CPM_END ; ADDRESS TO STOP LOADING OS |
|||
PR_ENTRY .DW CPM_ENT ; ADDRESS TO ENTER OS |
|||
; |
|||
; |
|||
; |
|||
.END |
|||
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
@ -1,66 +0,0 @@ |
|||
Ne÷ Display/Definå Filå Attributeó Program |
|||
bù Joå Wright |
|||
|
|||
Filå attributeó arå maintaineä bù thå BDOÓ iî thå filespeã portioî oæ � |
|||
directorù entrieó foò eacè filå oî thå disk® Eacè filespeã containó eleveî � |
|||
ascié characteró comprisinç thå eighô characteò filenamå anä threå characteò � |
|||
type® Ascié characteró requirå onlù seveî oæ thå eighô bitó iî eacè oæ theså � |
|||
bytes¬ thå eightè biô ió thereforå availablå foò assigninç aî attribute® � |
|||
Theså eleveî 'high§ bitó arå referreä tï aó follows: |
|||
|
|||
f± f² f³ f´ fµ f¶ f· f¸ . t± t² t3 |
|||
|
|||
CP/Í assignó t± aó thå Reaä Onlù attributå anä t² aó thå Systeí attribute® � |
|||
MP/Í furtheò assigneä t³ aó thå Archiveä attribute® ZRDOÓ furtheò assignó f¸ � |
|||
aó thå Wheeì Protecô attribute® ZSDOÓ assignó f² aó thå Publiã attribute® � |
|||
BackGroundeò ié useó f± tï inhibiô itó keù-bindinç functioî anä DateStampeò � |
|||
useó f³ tï inhibiô stampinç oæ certaiî files® Thå resô arå unassigneä aó faò � |
|||
aó É kno÷ anä maù bå useä aó yoõ wish. |
|||
|
|||
|
|||
Displaù syntaxº DFÁ [dir:][filespec] |
|||
|
|||
Displaù modå takeó á singlå tokeî oò nï tokens® Botè dirº anä filespeã arå � |
|||
optional® Defaulô dirº ió thå currenô directorù anä defaulô filespeã ió wilä � |
|||
(*.*)® Useò ió giveî á sorteä filå lisô showinç thå attributeó associateä � |
|||
witè each¬ sixteeî aô á time® |
|||
|
|||
DFÁ Displaù attributeó oæ alì fileó iî thå currenô directory. |
|||
DFÁ B2º Displaù foò alì fileó iî directorù B2: |
|||
DFÁ *.REÌ Displaù foò alì .REÌ fileó iî thå currenô directory. |
|||
DFÁ B2:*.REÌ Displaù foò alì .REÌ fileó iî B2: |
|||
|
|||
|
|||
Definå syntaxº DFÁ [dir:][filspecÝ <attr1[¬ attrn,...]> |
|||
|
|||
Definitioî modå ió defineä bù á seconä anä perhapó subsequenô tokenó � |
|||
representinç thå variouó attributes® Thå tokeî 'f1§ wilì seô thå f± � |
|||
attributå foò alì filespeã files¬ §-f1§ wilì reseô it® Nameó associateä witè � |
|||
thå variouó attributeó arå alsï accepteä aó tokens: |
|||
|
|||
f± oò nkâ Nï Keù Bindinç (BGii) |
|||
f² oò puâ Publiã File |
|||
f³ oò dsï DateStampeò Off |
|||
f´ |
|||
fµ |
|||
f¶ |
|||
f· |
|||
f¸ oò whì Wheeì Protected |
|||
. |
|||
t± or r/ï Reaä Only |
|||
t² or syó System |
|||
t³ or arã Archived |
|||
|
|||
Iæ thå firsô letteò oæ á tokeî ió noô 'f§ oò 't'¬ thaô letteò ió sufficienô � |
|||
tï identifù thå token® 'S'¬ 'sys§ oò 'system§ alì identifù t2® Anù oò alì �Šoæ thå eleveî attributeó maù bå defineä witè á singlå command. |
|||
|
|||
DFÁ *.TYÐ F± Seô f± oæ alì fileó .TYÐ iî thå currenô directory. |
|||
DFÁ A1:*.REÌ F² Ò Seô f² anä t1 oæ alì .REÌ fileó iî A1: |
|||
DFÁ *.Z8° -Ò Reseô t± oæ alì .Z8° fileó iî thå currenô directory. |
|||
DFÁ Aº -SYÓ Reseô t² oæ alì fileó iî A:¬ currenô user. |
|||
DFÁ ROOT:*.COÍ × Seô thå Wheeì attributå (f8© oæ alì .COÍ files |
|||
iî thå directorù nameä ROOT: |
|||
|
|||
|
|||
-end- |
|||
|
|||
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
@ -1,67 +0,0 @@ |
|||
|
|||
; Batch File: NZSUB.SUB |
|||
; Author: Joe Wright |
|||
; Date: 8 November 1988 |
|||
|
|||
; This file demonstrates NZSUB's ability to handle 'formatted' |
|||
; input files. The programmer will note the similarity to |
|||
; annotated assembly source files. |
|||
|
|||
; This file will also serve as the documentation of NZSUB's |
|||
; features and function. |
|||
|
|||
; As these lines suggest, any line that begins with a ; is considered |
|||
; a full-line comment and is ignored. |
|||
|
|||
û Thå lefô squigglù brackeô '{§ aó thå firsô � |
|||
characteò oæ á linå wilì puô NZSUÂ iî � |
|||
'comment§ mode® Alì subsequenô characteró � |
|||
untiì á righô squigglù brackeô wilì bå � |
|||
ignored® Checë thió out® } |
|||
|
|||
; The ; character is usually the command separator for a Z3 |
|||
; multiple command line. It is therefore a 'normal' character |
|||
; unless it is the first one and may appear freely in the command |
|||
; line preceded by anything except a space. |
|||
|
|||
; Blank lines are ignored in any case. |
|||
|
|||
{ |
|||
Alì oæ thå abovå lineó anä theså lineó arå someho÷ commenteä ouô � |
|||
oò arå blanë anä thereforå wilì noô appeaò iî thå $$$.SUÂ filå � |
|||
whicè wilì bå thå resulô oæ alì this® |
|||
|
|||
NZSUÂ ió completelù CP/Í compatible® Nonetheless¬ iæ runninç � |
|||
undeò Ú-System¬ DUº anä DIRº formó maù bå useä tï declarå thå � |
|||
sourcå file® Thå sourcå filå ió assumeä tï havå typå .SUÂ unlesó � |
|||
otherwiså declared® Iî anù case¬ $$$.SUÂ wilì bå writteî tï thå � |
|||
currenô directory® |
|||
} |
|||
|
|||
» Ok¬ dowî tï business. The main point of all this is to relax |
|||
; some of the constraints on command line formatting so that |
|||
; a batch file becomes more legible and therefore maintainable. |
|||
|
|||
; Command lines may be indented with any combination of spaces |
|||
; and tabs. A tab within a command line will be converted to |
|||
; a space. Spaces between the last command character and the |
|||
; in-line comment ';' or ';;' will be removed and the comment |
|||
; ignored. The ';;' ZEX form may be used but is unnecessary |
|||
; if the ';' is preceded by at least one space (or tab). |
|||
|
|||
;; |
|||
;; NZSUB Demo Program |
|||
;; |
|||
$; nzsub demonstration ;; Use $; for literal ; |
|||
DIR *.COM ;; Let's see what we've got |
|||
|
|||
echo display source files? (yes or no) |
|||
|
|||
IF INPUT ; Ask the user (indented) |
|||
DIR *.Z80 |
|||
FI ; endif |
|||
;; |
|||
;; End of NZSUB Demo Program |
|||
; |
|||
; End of NZSUB.SUB |
|||
|
|||
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
@ -0,0 +1,31 @@ |
|||
|
|||
Information About Subscriptions to |
|||
|
|||
The Computer Journal |
|||
|
|||
|
|||
The subscription rates for TCJ as of September 1, 1991, are as follows: |
|||
|
|||
1 year 2 years |
|||
------ ------- |
|||
U.S. $18 $32 |
|||
Foreign (surface mail) $24 $44 |
|||
Foreign (air mail) $38 $72 |
|||
|
|||
There are six issues per year. To place a subscription, contact the |
|||
new publisher (as of July 1992): |
|||
|
|||
The Computer Journal |
|||
P.O. Box 535 |
|||
Lincoln, CA 95658 |
|||
916-645-1670 (answering machine and FAX) |
|||
|
|||
You may order a trial subscription. Just place an order. If you decide |
|||
that TCJ is not for you, then just mark the invoice "cancel" and send it |
|||
back. |
|||
|
|||
Payments for TCJ must normally be in the form of a money order or a check |
|||
drawn on a U.S. bank in U.S. funds or a postal money order in U.S. funds. |
|||
It is expected that MasterCard and VISA will again be acceptable in the |
|||
future. |
|||
|
|||
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Some files were not shown because too many files changed in this diff
Loading…
Reference in new issue