MirrorRepos/RomWBW
1
0
Fork 1
mirror of https://github.com/wwarthen/RomWBW.git synced 2026-02-06 22:13:13 -06:00
Code Issues Projects Releases Wiki Activity

Bringing trunk up to status of old "current"

Browse Source
This commit is contained in:
wayne
2012-10-23 08:19:24 +00:00
parent 01564959ad
commit 79ad7201cb
117 changed files with 31984 additions and 530 deletions
Download Patch File Download Diff File Expand all files Collapse all files

43
trunk/Source/loader.asm
View File

@@ -45,8 +45,8 @@ INIT2:
;
DOBOOTMENU:
LD DE,STR_BANNER
CALL WRITESTR
; LD DE,STR_BANNER
; CALL WRITESTR
CALL LISTDRIVES
LD DE,STR_BOOTMENU
@@ -474,12 +474,6 @@ DB_DONE:
CALL PATBI
CALL RAMPGZ
; ; IF BILOC IS SET, THEN ALSO PATCH BOOT INFO INTO OS IMAGE
; LD HL,(BL_BILOC)
; LD A,H
; OR L
; CALL NZ,PATBI ; PATCH IF BL_BILOC <> 0
; JUMP TO COLD BOOT ENTRY
LD HL,(BL_CPMENT)
JP (HL)
@@ -625,27 +619,27 @@ SEGDISPLAY:
LD BC,0007H
ADD HL,BC
LD B,08H ; SET DIGIT COUNT
LD A,40H+30H ; SET CONTROL PORT 7218 TO OFF
OUT (PIOC),A ; OUTPUT
LD A,40H | 30H ; SET CONTROL PORT 7218 TO OFF
OUT (PPIC),A ; OUTPUT
CALL DELAY ; WAIT
LD A,0F0H ; SET CONTROL TO 1111 (DATA COMING, HEX DECODE,NO DECODE, NORMAL)
SEGDISPLAY1: ;
OUT (PIOA),A ; OUTPUT TO PORT
LD A,80H+30H ; STROBE WRITE PULSE WITH CONTROL=1
OUT (PIOC),A ; OUTPUT TO PORT
OUT (PPIA),A ; OUTPUT TO PORT
LD A,80H | 30H ; STROBE WRITE PULSE WITH CONTROL=1
OUT (PPIC),A ; OUTPUT TO PORT
CALL DELAY ; WAIT
LD A,40H+30H ; SET CONTROL PORT 7218 TO OFF
OUT (PIOC),A ; OUTPUT
LD A,40H | 30H ; SET CONTROL PORT 7218 TO OFF
OUT (PPIC),A ; OUTPUT
SEGDISPLAY_LP:
LD A,(HL) ; GET DISPLAY DIGIT
OUT (PIOA),A ; OUT TO PIOA
LD A,00H+30H ; SET WRITE STROBE
OUT (PIOC),A ; OUT TO PIOC
OUT (PPIA),A ; OUT TO PPIA
LD A,00H | 30H ; SET WRITE STROBE
OUT (PPIC),A ; OUT TO PPIC
CALL DELAY ; DELAY
LD A,40H+30H ; SET CONTROL PORT OFF
OUT (PIOC),A ; OUT TO PIOC
LD A,40H | 30H ; SET CONTROL PORT OFF
OUT (PPIC),A ; OUT TO PPIC
CALL DELAY ; WAIT
DEC HL ; INC POINTER
DJNZ SEGDISPLAY_LP ; LOOP FOR NEXT DIGIT
@@ -676,11 +670,8 @@ STR_NODISK .DB "\r\nNo disk!$"
STR_NOBOOT .DB "\r\nDisk not bootable!$"
STR_BOOTERR .DB "\r\nBoot failure!$"
;
STR_BANNER:
.DB "\r\n\r\n", PLATFORM_NAME, " Boot Loader v", BIOSVER
.DB " (", VARIANT, "-", TIMESTAMP, ")\r\n$"
STR_BOOTMENU:
.DB "\r\nBoot: (M)onitor, (R)OM, or Drive Letter ===> $"
STR_BANNER .DB "\r\n", PLATFORM_NAME, " Boot Loader$"
STR_BOOTMENU .DB "\r\nBoot: (M)onitor, (R)OM, or Drive Letter ===> $"
;
STR_SETUPMENU:
.DB "\r\n\r\n", PLATFORM_NAME, " Setup & Configuration v", BIOSVER
@@ -724,7 +715,6 @@ CINUC:
;
;__________________________________________________________________________________________________
;
;BL_METABUF .ORG 8000H ; START OF RAM
BL_METABUF .EQU $
BL_SIG .DW 0 ; SIGNATURE (WILL BE 0A55AH IF SET)
BL_PLATFORM .DB 0 ; Formatting Platform
@@ -733,7 +723,6 @@ BL_FORMATTER .FILL 8,0 ; Formatting Program
BL_DRIVE .DB 0 ; Physical Disk Drive #
BL_LU .DW 0 ; Logical Unit (slice)
;
; .ORG (BL_METABUF + 128 - 32)
.FILL (BL_METABUF + 128) - $ - 32
BL_PROTECT .DB 0 ; write protect boolean
BL_UPDATES .DW 0 ; update counter