
 Т > BIOS/src Т Source for ZNOS BIOS :∙( A%=0:X%=1:os%=(╨&FFF4 ─ &FF00)│256:Гos%=6 ─ ░>&8000:Я"Running Z80...":	 "OS_GetEnv" ╦ A$:Ъ"TextToBas "+аA$,їA$," ",1+їA$," ")))+" -crunch *Z80":Ю2 :< load%=&F200:ч mcode% &400F :P Ц P=0 ╦ 1Z P%=load%:O%=mcode%d [OPT P*3+4n ; ZNOS BIOS Source Codex ; =====================┌ )▄ ; Commentary Copyright (C) J.ЕHarston$√ ; See mdfs.net/Software/CPM/ZNOS═ ;╙ .BIOS_CBOOT  :JP   ColdBootЄ .BIOS_WBOOT  :JP   WarmBoot$Ў .BIOS_CONST  :JP   ConsoleStatus х .BIOS_CONIN  :JP   ConsoleIn!р .BIOS_CONOUT :JP   ConsoleOutэ .BIOS_LIST   :JP   ListФ .BIOS_PUNCH  :JP   PunchOutП .BIOS_READER :JP   ReaderInЗ .BIOS_HOME   :JP   DiskNull.BIOS_SELDSK :JP   DiskNull.BIOS_SETTRK :JP   DiskNull.BIOS_SETSEC :JP   DiskNull".BIOS_SETDMA :JP   DiskNull,.BIOS_READ   :JP   DiskNull6.BIOS_WRITE  :JP   DiskNull!@.BIOS_LISTST :JP   ListStatusJ.BIOS_SECTRAN:JP   DiskNullT:^\ Used by SJCCP:h.BATCH :щB &00                    :\ Batch file active;r.SUBFCB:щB &01:щM "$$$     SUB" :\ "A $$$.SUB" filename+|\ F240 :щB &00                    :\ EX+├\ F241 :щB &00                    :\ S1+░\ F242 :щB &00                    :\ S2+ \ F243 :щB &00                    :\ RC/єщW 0:щW 0:щW 0:щW 0         :\ Alloc VectorўщW 0:щW 0:щW 0:щW 0+╦\ F254 :щB &00                    :\ CR,б\ F255 :щW &0000:щB &00         :\ R0-R2л:
ж.LF25B(ЮEQUB &2B         ; ConStatus Counter
Й.LF25C)ТщB &21         ; Pending input buffer
Ч.LF25D:щB &58         ; 0=no input pending, <>0=input pending).LF25E           ; Reset input stream>&LD   A,&83       ; Specify CON=UC1 RDR=TTY PUN=TTY LST=LPT#0LD   (&0003),A   ; Reset IOBYTE
:XOR  A#DLD   (LF25D),A   ; Clear a flagNLD   L,&40XLD   A,&03.bж OSBYTE      ; Output stream=prn disabledlLD   L,&02vLD   A,&027─JP   OSBYTE      ; Input stream=kbd, serial enabled┼:■.ConsoleStatus·ж LF2D5:щB &81'╗щW LF373:щW LF330:щW LF2C9:щW LF2F7╡:╪.ConsoleInфж LF2D5:щB &01&пщW LF381:щW LF33D:щW LF2BD:щ LF31Dз:Д.ConsoleOutНж LF2D5:щB &81'ЬщW LF385:щW LF355:щW LF299:щW LF32C:	.Listж LF2D5:щB &03' щW LF385:щW LF355:щW LF38F:щW LF38F*:4.ListStatus>ж LF2D5:щB &03'HщW LF38A:щW LF37C:щW LF3A6:щW LF3A6R:\.PunchOutfж LF2D5:щB &05'pщW LF385:щW LF355:щW LF2F6:щW LF2F6z:└.ReaderIn▌ж LF2D5:щB &07'≤щW LF381:щW LF33D:щW LF2F4:щW LF2F4╒:
╛.LF2C9Іж LF2D5:щB &07'ющW LF373:щW LF330:щW LF37E:щW LF37Eй:т; I/O dispatchч; ------------
Х.LF2D5.РPOP  HL:LD A,(HL)   ; Get IOBYTE flag byte0ЭINC  HL             ; Point to address blockBIT  7,A:LD B,A/RES  7,B            ; B=IOBYTE shift amount0JR   NZ,LF2E3       ; b7=1, don't clear flag&$XOR  A:LD (LF25B),A ; Clear a flag
..LF2E3$8LD   A,(&0003)      ; Get IOBYTE
B.LF2E61LRLCA:DJNZ LF2E6     ; Rotate IOBYTE by factor/V─  &06            ; Keep resultant two bits`LD   D,&00:LD E,A2jADD  HL,DE          ; Index into address blocktLD   E,(HL):INC HL-~LD   D,(HL)         ; DE=selected address)┬EX   DE,HL:JP (HL)  ; Jump to routine▓°; ReaderIn 2,3і; ------------
╟.LF2F4"╨LD A,&1A:RET        ; Return едн; ConStatus 3ь; -----------Б; Checks pending buffer%Л; Every 12 calls also checks hostЖ;
 .LF2F71
LD   A,(LF25D)      ; Is pending buffer full?3└   A:RET  NZ      ; Return NZ if input pending*LD   HL,LF25B       ; Point to counter
(XOR  A2└   (HL)3<JR   Z,LF306        ; If zero, check host input+FDEC  (HL)           ; Decrement counter4PXOR  A:RET          ; Return Z - nothing pending
Z.LF306-dLD   (HL),&0C       ; Reset counter to 12HnLD   HL,&0000       ; Only call host every 12 times ConStatus calledxLD   A,&814┌ж OSBYTE         ; і(0), fetch any pending input▄LD   A,H
√INC  A:═RET  Z                  ; Return Z if no input pending<╙LD   A,L:LD (LF25C),A   ; Save character in input buffer4ЄLD   A,&FF:LD (LF25D),A ; Flag input buffer full6ЎRET                     ; Return NZ, input pendingхрэ; ConIn 3Ф; -------
П.LF31D1ЗLD   A,(LF25D):└ A     ; Check pending buffer3JP   Z,OSRDCH           ; Empty, jump to OSRDCH2XOR  A:LD (LF25D),A     ; Clear pending buffer?LD   A,(LF25C):RET      ; Get character from pending buffer",6; ConOut 3@; --------
J.LF32C-TLD   A,C:JP &FF9E       ; Jump to TERMOUT^hr; ConStat 1|; ---------
├.LF330░LD   L,&00 LD   A,&80єж OSBYTE             ; √(0)ўLD   A,L	╦└   A
бRET  ZлLD   A,&FFжRETЮ
Й.LF33DТLD   L,&02
Ч.LF33FLD   A,&02ж OSBYTEж OSRDCH&PUSH AF0LD   A,L:─  ADJR   NZ,LF34ENLD   L,&02
X.LF34EbLD   A,&02lж OSBYTEvPOP  AF─RET┼
■.LF356·LD   HL,&00F4
╗.LF358╡LD   A,&03╪ж OSBYTEфPUSH HL
пXOR  Aзж &FFC8ДPUSH AFНLD   A,CЬж OSWRCHPOP  AFж &FFC8POP  HL LD   H,&00*LD   A,&034JP   OSBYTE>
H.LF373RLD   L,&01\LD   A,&98fж OSBYTEpJR   NC,LF37E
zXOR  A└RET▌
≤.LF37E
╒XOR  A
╛DEC  AІRETю
й.LF381тLD   L,&01чJR   LF33F
Х.LF385РLD   HL,&00F7ЭJR   LF358
	.LF38A	LD   HL,&FFFD	JR   LF3A9
$	.LF38F.	LD   A,&758	ж OSBYTEB	BIT  0,LL	JR   NZ,LF39DV	LD   A,&02`	ж OSWRCH
j	.LF39Dt	LD   A,&01~	ж OSWRCH┬	LD   A,C▓	JP   OSWRCH°	LD   HL,&FFFC
і	.LF3A9╟	LD   A,&80╨	ж OSBYTEд	LD   A,Lн	─  A
ь	RET  Z
Б	XOR  A
Л	DEC  AЖ	RET 


;; COLD BOOT
;; =========
;;.(
.ColdBoot             ; Entered on startup>2
LD   SP,&0080         ; Put initial stack in CPM workspace<
EI4F
XOR  A:LD (&0004),A   ; Clear Current Drive+User?P
LD   HL,&F730         ; Point to "1.20" in v1.20 client MOS2Z
LD   DE,LF3E4         ; Point to "1.20" string1d
LD   B,&04            ; Match four characters
n
.LF3C4+x
LD   A,(DE):CP (HL)   ; Compare strings┌
INC  HL:INC DE8▄
JR   C,LF3D1          ; Version string doesn't match4√
DJNZ LF3C4            ; Loop for four characters2═
LD   HL,&FCA3         ; v1.20 MOS command flag╙
JR   LF3D44Є
.LF3D1                ; Not version 1.20 Z80 MOS2Ў
LD   HL,&FF8A         ; v2.00 MOS command flag
х
.LF3D44р
LD   (HL),&FF         ; Set to 'no MOS commands'Eэ
ж LF401            ; Initialise things, error handler, esc state,Ф
; zero page jumps<П
ж LF25E            ; Initialise input and output streamsGЗ
ж &E00C            ; Call BDOS Cold Start, returns A=station numberJLD   C,&00:JP &D800   ; Enter CCP ColdBoot entry with C=drive 0/user 0; CCP entered with:*;  A=station number or &00 if no NetFS";  C=drive/user
,;  B=?;6;  HL=>OSWORD control block from reading station number@;  DE=?J; Acorn BIOS enters with"T;  A=drive &00-&0F or user &x0^;  C=drive/userh
r.LF3E41|щM "1.20"           ; Version string to match├░ ;; WARM BOOTє;; =========ў;;╦.WarmBoot>бLD   SP,&0080         ; Put initial stack in CPM workspaceлEI*жLD A,&03:ж OSWRCH  ; End any print job-Юж &E00F            ; Call BDOS Warm Start4Йж LF3FC            ; Fetch CCP and reset vectorsJТLD   C,&00:JP &D803   ; Enter CCP WarmBoot entry with C=drive 0/user 0Ч&; Fetch CCP and initialise vectors&; --------------------------------
.LF3FC &LD   A,&3F       ; Fetch CCP0ж OSBYTE:D; Initialise vectorsN; ------------------
X.LF4014bж &FFBF       ; Ensure RSTERR at &0038 is set up0lLD   HL,(&FF84)  ; Get default error handler.vLD   (&FFFA),HL  ; Set error handler to it─LD   A,&E5*┼LD   HL,&0001    ; ESC key returns ≈II■ж OSBYTE·LD   A,&C3)╗LD   (&0000),A   ; Put JP opcode into%╡LD   (&0005),A   ; RESET and BDOS
╪.LF41A.фLD   HL,BIOS_WBOOT ; Put RESET destination)пLD   (&0001),HL    ; in address field-зLD   HL,&E006      ; Put BDOS destination)ДLD   (&0006),HL    ; in address fieldН.DiskNullЬRET
 .LF427*EX   (SP),HL4PUSH DE>PUSH BCHPUSH AF
R.LF42B\LD   A,(HL)fINC  HLp─  AzJR   Z,LF437└PUSH HL▌ж LF43C≤POP  HL╒JR   LF42B
╛.LF437ІPOP  AFюPOP  BCйPOP  DEтEX   (SP),HLчRETХ
Р.LF43CЭCP   &0DJR   NZ,LF445ж LF445LD   A,&0A
$.LF445.LD   C,A8JP   ConsoleOutBAL; left-over code, a copy of the startup code and bits of BDOS
V.LF449`RLCAjDJNZ LF444tLD   HL,&FCA3~JR   LF454┬
▓.LF451°LD   HL,&FF8A
і.LF454╟LD   (HL),&FF╨ж LF401дж LF25Eнж &E00CьLD   C,&00БJP   &D800ЛLD   SP,&322EЖJR   NC,LF49A ADD  A,B
NOPEILD   A,&03(ж OSWRCH2ж &E00F<ж LF3FCFLD   C,&00PJP   &D803ZLD   A,&3Fdж &28F4
n.LF481xJR   LF481┌INC  BC▄JR   NZ,LF48D√LD   A,&8D═ж OSBYTE╙JR   LF49A
Є.LF48DЎLD   L,&03хCP   &02рJR   Z,LF495эLD   L,&00
Ф.LF495ПLD   A,&8CЗж OSBYTE
.LF49APOP  HLRET"LD   (&1364),SP,PUSH HL6LD   HL,(&FFFA)@LD   (&1362),HLJLD   HL,&06DBTLD   (&FFFA),HL^POP  HLhRETrLD   SP,(&1364)|POP  HL├LD   HL,(&FF82)░PUSH HL INC  HLєSUB  A,AўLD   BC,&FFFF╦CPIRбDEC  HLлLD   (HL),&0DжPOP  HLЮLD   A,(HL)ЙINC  HL	Т└   AЧJR   LF4C9
XOR  A
.LF4C9PUSH HL&LD   HL,(&1362)0LD   (&FFFA),HL:POP  HLDRETNPUSH DE
XXOR  AbLD   E,Alж OSARGSvPOP  DE─RET┼LD   A,&03■RET·.LF4DD:щB &4A╗.LF4DE:щB &03$╡.LF4DF:щM "SJ Econet ver 3.4Az$"╪.LF4F3:щB &FE:щB &1Eф.LF4F5:щB &CA:щB &B9:щB &0Dп.LF4F8:щB &FE:щB &21з.LF4FA:щB &38:щB &02Д.LF4FC:щB &D6:щB &09Н.LF4FE:щB &D6:щB &0FЬ]М>Ъ"Save ZNOS_BI "+ц~mcode%+" "+ц~O%+" "+ц~load%+" "+ц~load%	*Quit ЪЪ