MirrorRepos
/
RomWBW
mirror of https://github.com/wwarthen/RomWBW.git
1
0
Fork 1
Code Issues Projects Releases Wiki Activity
Browse Source

Merge pull request #9 from wwarthen/dev 

Miscellaneous Cleanup
pull/290/head
b1ackmai1er 4 years ago
committed by GitHub
parent
4d3640caaa e0a0036aa0
commit
59c523c575
No known key found for this signature in database GPG Key ID: 4AEE18F83AFDEB23
23 changed files with 938 additions and 14 deletions
Whitespace
Show all changes Ignore whitespace when comparing lines Ignore changes in amount of whitespace Ignore changes in whitespace at EOL
Split View
Diff Options
Show Stats Download Patch File Download Diff File
  1. 896
      Source/Apps/Test/kbdinfo/mseinfo.asm
  2. 21
      Source/Apps/Test/kbdtest/kbdtest.asm
  3. 2
      Source/Apps/VGM/Build.cmd
  4. 8
      Source/Apps/VGM/Makefile
  5. 0
      Source/Apps/VGM/Tunes/itsgamov.vgm
  6. 0
      Source/Apps/VGM/Tunes/lemmin01.vgm
  7. 0
      Source/Apps/VGM/Tunes/pengui03.vgm
  8. 0
      Source/Apps/VGM/Tunes/pitfal02.vgm
  9. 0
      Source/Apps/VGM/Tunes/tiger02.vgm
  10. 0
      Source/Apps/VGM/Tunes/wonder01.vgm
  11. 0
      Source/Apps/VGM/vgmplay.asm
  12. 0
      Source/Apps/VGM/vgmplay.txt
  13. 4
      Source/HBIOS/game.asm
  14. 4
      Source/Images/fd_bp.txt
  15. 2
      Source/Images/fd_cpm22.txt
  16. 1
      Source/Images/fd_cpm3.txt
  17. 2
      Source/Images/fd_zsdos.txt
  18. 2
      Source/Images/hd_bp.txt
  19. 2
      Source/Images/hd_cpm22.txt
  20. 2
      Source/Images/hd_cpm3.txt
  21. 2
      Source/Images/hd_nzcom.txt
  22. 2
      Source/Images/hd_zpm3.txt
  23. 2
      Source/Images/hd_zsdos.txt

896
Source/Apps/Test/kbdinfo/mseinfo.asm
View File

@ -0,0 +1,896 @@
;
;=======================================================================
; Mouse Information Utility (MSEINFO)
;=======================================================================
;
; Simple utility that attempts to determine the status of the mouse you
; have attached to an 8242 keyboard controller.
;
; Based on Wayne Warthen's KBDINFO program, Thanks to his great work
; on RomWBW and support to the Retrobrewcomputers community at large
;
; Additional help from these websites
; https://isdaman.com/alsos/hardware/mouse/ps2interface.htm
;
; Second PS/2 write data port info from
; https://wiki.osdev.org/%228042%22_PS/2_Controller#Second_PS.2F2_Port
;
; PS/2 Mouse initialization code in C
; http://bos.asmhackers.net/docs/mouse/snippet_2/mouse.inc
;
;=======================================================================
;
; Mouse controller port addresses (adjust as needed)
;
iocmd .equ $E3 ; keyboard controller command port address
iodat .equ $E2 ; keyboard controller data port address
;
; General operational equates (should not requre adjustment)
;
stksiz .equ $40 ; Working stack size
;
timeout .equ $00 ; Controller timeout constant
;
restart .equ $0000 ; CP/M restart vector
bdos .equ $0005 ; BDOS invocation vector
;
;=======================================================================
;
.org $100 ; standard CP/M executable
;
;
; setup stack (save old value)
ld (stksav),sp ; save stack
ld sp,stack ; set new stack
;
call crlf
ld de,str_banner ; banner
call prtstr
;
call main ; do the real work
;
exit:
call crlf2
ld de,str_exit
call prtstr
;call crlf
; clean up and return to command processor
call crlf ; formatting
ld sp,(stksav) ; restore stack
jp restart ; return to CP/M via restart
;
;
;=======================================================================
; Main Program
;=======================================================================
;
main:
;
; Display active mouse controller port addresses
;
call crlf2
ld de,str_cmdport
call prtstr
ld a,iocmd
call prthex
call crlf
ld de,str_dataport
call prtstr
ld a,iodat
call prthex
;
; Attempt self-test command on mouse controller
;
; Mouse controller should respond with an 0x55 on data port
; after being sent a 0xAA on the command port.
;
call crlf2
ld de,str_ctrl_test
call prtstr
ld a,$aa ; self-test command
call put_cmd_dbg
jp c,err_ctlr_io ; handle controller error
call get_data_dbg
jp c,err_ctlr_io ; handle controller error
cp $55 ; expected value?
jp nz,err_ctlr_test ; handle self-test error
call crlf
ld de,str_ctrl_test_ok
call prtstr
;
; Send 0xA8 Mouse Enable command to 8242 controller
;
call crlf2
ld de,str_enable_mouse
call prtstr
ld a,$a8 ; Send Mouse Enable command to 8242
call put_cmd_dbg
jp c,err_ctlr_io ; handle controller error
call get_data_dbg ; Read Mouse for self-test status
jp c,err_ctlr_io ; handle controller error
cp $AA ; expected value?
jp nz,err_ctlr_test ; handle self-test error
call crlf
call get_data_dbg ; Read Mouse for Mouse ID
jp c,err_ctlr_io ; handle controller error
cp $00 ; expected value?
jp nz,err_ctlr_test ; handle self-test error
call crlf
;
; Disable translation on keyboard controller to get raw scan codes! Enable Mouse
;
; call crlf2
; ld de,str_trans_off
; call prtstr
; ld a,$60 ; write to command register 0
; call put_cmd_dbg
; jp c,err_ctlr_io ; handle controller error
; ld a,$00 ; xlat disabled, mouse enabled, no ints
; call put_cmd_dbg
; jp c,err_ctlr_io ; handle controller error
; Attempt four reset commands on mouse controller
;
call crlf2
ld de,str_mse_init
call prtstr
; Reset Pass #1
ld a,$ff ; Send Mouse Reset command
call put_data_dbg
jp c,err_ctlr_io ; handle controller error
call get_data_dbg ; Read Mouse for Acknowledge
jp c,err_ctlr_io ; handle controller error
cp $fa ; expected value?
jp nz,err_ctlr_test ; handle self-test error
call crlf
ld de,str_ctrl_test_ok
call prtstr
call get_data_dbg ; Read Mouse for self-test status
jp c,err_ctlr_io ; handle controller error
cp $AA ; expected value?
jp nz,err_ctlr_test ; handle self-test error
call crlf
call get_data_dbg ; Read Mouse for Mouse ID
jp c,err_ctlr_io ; handle controller error
cp $00 ; expected value?
jp nz,err_ctlr_test ; handle self-test error
call crlf
; Reset Pass #2
ld a,$ff ; Send Mouse Reset command
call put_data_dbg
jp c,err_ctlr_io ; handle controller error
call get_data_dbg ; Read Mouse for Acknowledge
jp c,err_ctlr_io ; handle controller error
cp $fa ; expected value?
jp nz,err_ctlr_test ; handle self-test error
call crlf
ld de,str_ctrl_test_ok
call prtstr
call get_data_dbg ; Read Mouse for self-test status
jp c,err_ctlr_io ; handle controller error
cp $AA ; expected value?
jp nz,err_ctlr_test ; handle self-test error
call crlf
call get_data_dbg ; Read Mouse for Mouse ID
jp c,err_ctlr_io ; handle controller error
cp $00 ; expected value?
jp nz,err_ctlr_test ; handle self-test error
call crlf
; Reset Pass #3
ld a,$ff ; Send Mouse Reset command
call put_data_dbg
jp c,err_ctlr_io ; handle controller error
call get_data_dbg ; Read Mouse for Acknowledge
jp c,err_ctlr_io ; handle controller error
cp $fa ; expected value?
jp nz,err_ctlr_test ; handle self-test error
call crlf
ld de,str_ctrl_test_ok
call prtstr
call get_data_dbg ; Read Mouse for self-test status
jp c,err_ctlr_io ; handle controller error
cp $AA ; expected value?
jp nz,err_ctlr_test ; handle self-test error
call crlf
call get_data_dbg ; Read Mouse for Mouse ID
jp c,err_ctlr_io ; handle controller error
cp $00 ; expected value?
jp nz,err_ctlr_test ; handle self-test error
call crlf
; Reset Pass #4
ld a,$ff ; Send Mouse Reset command
call put_data_dbg
jp c,err_ctlr_io ; handle controller error
call get_data_dbg ; Read Mouse for Acknowledge
jp c,err_ctlr_io ; handle controller error
cp $fa ; expected value?
jp nz,err_ctlr_test ; handle self-test error
call crlf
ld de,str_ctrl_test_ok
call prtstr
call get_data_dbg ; Read Mouse for self-test status
jp c,err_ctlr_io ; handle controller error
cp $AA ; expected value?
jp nz,err_ctlr_test ; handle self-test error
call crlf
call get_data_dbg ; Read Mouse for Mouse ID
jp c,err_ctlr_io ; handle controller error
cp $00 ; expected value?
jp nz,err_ctlr_test ; handle self-test error
call crlf
; Begin setting mouse parameters, Request Microsoft Scrolling Mouse Mode
ld a,$f3 ; Send Set Sample Rate command
call put_data_dbg
jp c,err_ctlr_io ; handle controller error
call get_data_dbg ; Read Mouse for Acknowledge
jp c,err_ctlr_io ; handle controller error
cp $fa ; expected value?
jp nz,err_ctlr_test ; handle self-test error
call crlf
ld de,str_ctrl_test_ok
call prtstr
ld a,$c8 ; Send Decimal 200 command
call put_data_dbg
jp c,err_ctlr_io ; handle controller error
call get_data_dbg ; Read Mouse for Acknowledge
jp c,err_ctlr_io ; handle controller error
cp $fa ; expected value?
jp nz,err_ctlr_test ; handle self-test error
call crlf
ld de,str_ctrl_test_ok
call prtstr
ld a,$f3 ; Send Set Sample Rate command
call put_data_dbg
jp c,err_ctlr_io ; handle controller error
call get_data_dbg ; Read Mouse for Acknowledge
jp c,err_ctlr_io ; handle controller error
cp $fa ; expected value?
jp nz,err_ctlr_test ; handle self-test error
call crlf
ld de,str_ctrl_test_ok
call prtstr
ld a,$64 ; Send Decimal 100 command
call put_data_dbg
jp c,err_ctlr_io ; handle controller error
call get_data_dbg ; Read Mouse for Acknowledge
jp c,err_ctlr_io ; handle controller error
cp $fa ; expected value?
jp nz,err_ctlr_test ; handle self-test error
call crlf
ld de,str_ctrl_test_ok
call prtstr
ld a,$f3 ; Send Set Sample Rate command
call put_data_dbg
jp c,err_ctlr_io ; handle controller error
call get_data_dbg ; Read Mouse for Acknowledge
jp c,err_ctlr_io ; handle controller error
cp $fa ; expected value?
jp nz,err_ctlr_test ; handle self-test error
call crlf
ld de,str_ctrl_test_ok
call prtstr
ld a,$50 ; Send Decimal 80 command
call put_data_dbg
jp c,err_ctlr_io ; handle controller error
call get_data_dbg ; Read Mouse for Acknowledge
jp c,err_ctlr_io ; handle controller error
cp $fa ; expected value?
jp nz,err_ctlr_test ; handle self-test error
call crlf
ld de,str_ctrl_test_ok
call prtstr
ld a,$f2 ; Send Read Device Type command
call put_data_dbg
jp c,err_ctlr_io ; handle controller error
call get_data_dbg ; Read Mouse for Acknowledge
jp c,err_ctlr_io ; handle controller error
cp $fa ; expected value?
jp nz,err_ctlr_test ; handle self-test error
call crlf
ld de,str_ctrl_test_ok
call prtstr
call get_data_dbg ; Read Mouse for Mouse ID
jp c,err_ctlr_io ; handle controller error
cp $03 ; detect MS Intellimouse/Microsoft Scrolling Mouse
jp z,Intellimouse
cp $00 ; expected value? ($00 if Regular PS/2 Mouse)
jp z,ReadMouseID
Intellimouse:
call crlf
ld de,str_intellimouse_ok
call prtstr
ReadMouseID:
jp nz,err_ctlr_test ; handle self-test error
call crlf
ld a,$f3 ; Send Set Sample Rate command
call put_data_dbg
jp c,err_ctlr_io ; handle controller error
call get_data_dbg ; Read Mouse for Acknowledge
jp c,err_ctlr_io ; handle controller error
cp $fa ; expected value?
jp nz,err_ctlr_test ; handle self-test error
call crlf
ld de,str_ctrl_test_ok
call prtstr
ld a,$0a ; Send Decimal 10 command
call put_data_dbg
jp c,err_ctlr_io ; handle controller error
call get_data_dbg ; Read Mouse for Acknowledge
jp c,err_ctlr_io ; handle controller error
cp $fa ; expected value?
jp nz,err_ctlr_test ; handle self-test error
call crlf
ld de,str_ctrl_test_ok
call prtstr
ld a,$f2 ; Send Read Device Type command
call put_data_dbg
jp c,err_ctlr_io ; handle controller error
call get_data_dbg ; Read Mouse for Acknowledge
jp c,err_ctlr_io ; handle controller error
cp $fa ; expected value?
jp nz,err_ctlr_test ; handle self-test error
call crlf
ld de,str_ctrl_test_ok
call prtstr
call get_data_dbg ; Read Mouse for Mouse ID
jp c,err_ctlr_io ; handle controller error
cp $03 ; detect MS Intellimouse/Microsoft Scrolling Mouse
jp z,Intellimouse2
cp $00 ; expected value? ($00 if Regular PS/2 Mouse)
jp z,ReadMouseID2
Intellimouse2:
call crlf
ld de,str_intellimouse_ok
call prtstr
ReadMouseID2:
jp nz,err_ctlr_test ; handle self-test error
call crlf
ld a,$e8 ; Send Set Resolution command
call put_data_dbg
jp c,err_ctlr_io ; handle controller error
call get_data_dbg ; Read Mouse for Acknowledge
jp c,err_ctlr_io ; handle controller error
cp $fa ; expected value?
jp nz,err_ctlr_test ; handle self-test error
call crlf
ld de,str_ctrl_test_ok
call prtstr
ld a,$03 ; Send 8 Counts/mm command
call put_data_dbg
jp c,err_ctlr_io ; handle controller error
call get_data_dbg ; Read Mouse for Acknowledge
jp c,err_ctlr_io ; handle controller error
cp $fa ; expected value?
jp nz,err_ctlr_test ; handle self-test error
call crlf
ld de,str_ctrl_test_ok
call prtstr
ld a,$e6 ; Send Set Scaling 1:1 command
call put_data_dbg
jp c,err_ctlr_io ; handle controller error
call get_data_dbg ; Read Mouse for Acknowledge
jp c,err_ctlr_io ; handle controller error
cp $fa ; expected value?
jp nz,err_ctlr_test ; handle self-test error
call crlf
ld de,str_ctrl_test_ok
call prtstr
ld a,$f3 ; Send Set Sample Rate command
call put_data_dbg
jp c,err_ctlr_io ; handle controller error
call get_data_dbg ; Read Mouse for Acknowledge
jp c,err_ctlr_io ; handle controller error
cp $fa ; expected value?
jp nz,err_ctlr_test ; handle self-test error
call crlf
ld de,str_ctrl_test_ok
call prtstr
ld a,$28 ; Send Decimal 40 command
call put_data_dbg
jp c,err_ctlr_io ; handle controller error
call get_data_dbg ; Read Mouse for Acknowledge
jp c,err_ctlr_io ; handle controller error
cp $fa ; expected value?
jp nz,err_ctlr_test ; handle self-test error
call crlf
ld de,str_ctrl_test_ok
call prtstr
ld a,$f4 ; Send Enable command
call put_data_dbg
jp c,err_ctlr_io ; handle controller error
call get_data_dbg ; Read Mouse for Acknowledge
jp c,err_ctlr_io ; handle controller error
cp $fa ; expected value?
jp nz,err_ctlr_test ; handle self-test error
call crlf
ld de,str_ctrl_test_ok
call prtstr
; Initialization Complete
ReadMousePackets:
; call check_read
; jp nz, ReadMousePackets
call get_data_dbg ; Read Mouse for self-test status
jp c,err_ctlr_io ; handle controller error
call crlf
call get_data_dbg ; Read Mouse for Mouse ID
jp c,err_ctlr_io ; handle controller error
call crlf
call get_data_dbg ; Read Mouse for Mouse ID
jp c,err_ctlr_io ; handle controller error
call crlf
call crlf
jp ReadMousePackets
;
done:
ret
;
;=======================================================================
; Mouse Controller I/O Routines
;=======================================================================
;
wait_write:
;
; Wait for mouse controller to be ready for a write
; A=0 indicates success (ZF set)
;
ld b,timeout ; setup timeout constant
wait_write1:
in a,(iocmd) ; get status
ld c,a ; save status
and $02 ; isolate input buf status bit
ret z ; 0 means ready, all done
call delay ; wait a bit
djnz wait_write1 ; loop until counter exhausted
ld de,str_timeout_write ; write timeout message
call crlf
call prtstr
ld a,c ; recover last status value
call prthex
or $ff ; signal error
ret
;
wait_read:
;
; Wait for mouse controller to be ready to read a byte
; A=0 indicates success (ZF set)
;
ld b,timeout ; setup timeout constant
wait_read1:
in a,(iocmd) ; get status
ld c,a ; save status
and $01 ; isolate input buf status bit
xor $01 ; invert so 0 means ready
ret z ; if 0, all done
call delay ; wait a bit
djnz wait_read1 ; loop until counter exhausted
ld de,str_timeout_read ; write timeout message
call crlf
call prtstr
ld a,c ; recover last status value
call prthex
or $ff ; signal error
ret
;
check_read:
;
; Check for data ready to read
; A=0 indicates data available (ZF set)
;
in a,(iocmd) ; get status
and $01 ; isolate input buf status bit
xor $01 ; invert so 0 means ready
ret
;
put_cmd:
;
; Put a cmd byte from A to the mouse interface with timeout
; CF set indicates timeout error
;
ld e,a ; save incoming value
call wait_write ; wait for controller ready
jr z,put_cmd1 ; if ready, move on
scf ; else, signal timeout error
ret ; and bail out
put_cmd1:
ld a,e ; recover value to write
out (iocmd),a ; write it
or a ; clear CF for success
ret
;
put_cmd_dbg:
call put_cmd
ret c
push af
call crlf
ld de,str_put_cmd
call prtstr
call prthex
pop af
ret
;
put_data:
;
; Put a data byte from A to the mouse interface with timeout
; CF set indicates timeout error
;
; note: direct data to second PS/2 port, send $d4 to 8242 command register
; different than keyboard which uses first PS/2 port
push af ; save contents of a
ld e,a ; save incoming value
call wait_write ; wait for controller ready
jr z,put_data0 ; if ready, move on
scf ; else, signal timeout error
ret ; and bail out
put_data0:
ld a,$d4 ; direct to second PS/2 port for mouse
out (iocmd),a ; send second port command to 8242
pop af
; rest of put_data is the same as for PS/2 keyboard
ld e,a ; save incoming value
call wait_write ; wait for controller ready
jr z,put_data1 ; if ready, move on
scf ; else, signal timeout error
ret ; and bail out
put_data1:
ld a,e ; recover value to write
out (iodat),a ; write it
or a ; clear CF for success
ret
;
put_data_dbg:
call put_data
ret c
push af
call crlf
ld de,str_put_data
call prtstr
call prthex
pop af
ret
;
; Get a data byte from the mouse interface to A with timeout
; CF set indicates timeout error
;
get_data:
;
call wait_read ; wait for byte to be ready
jr z,get_data1 ; if ready, move on
scf ; else signal timeout error
ret ; and bail out
get_data1:
in a,(iodat) ; get data byte
or a ; clear CF for success
ret
;
get_data_dbg:
call get_data
ret c
push af
call crlf
ld de,str_get_data
call prtstr
call prthex
pop af
ret
;
; Error Handlers
;
err_ctlr_io:
ld de,str_err_ctrl_io
jr err_ret
;
err_ctlr_test:
ld de,str_err_ctrl_test
jr err_ret
;
err_mse_reset:
ld de,str_err_mse_reset
jr err_ret
;
err_ret:
call crlf2
call prtstr
or $ff ; signal error
ret
;
;=======================================================================
; Utility Routines
;=======================================================================
;
;
; Print character in A without destroying any registers
;
prtchr:
push bc ; save registers
push de
push hl
ld e,a ; character to print in E
ld c,$02 ; BDOS function to output a character
call bdos ; do it
pop hl ; restore registers
pop de
pop bc
ret
;
prtdot:
;
; shortcut to print a dot preserving all regs
push af ; save af
ld a,'.' ; load dot char
call prtchr ; print it
pop af ; restore af
ret ; done
;
; Print a zero terminated string at (de) without destroying any registers
;
prtstr:
push af
push de
;
prtstr1:
ld a,(de) ; get next char
or a
jr z,prtstr2
call prtchr
inc de
jr prtstr1
;
prtstr2:
pop de ; restore registers
pop af
ret
;
; Print the value in A in hex without destroying any registers
;
prthex:
push af ; save AF
push de ; save DE
call hexascii ; convert value in A to hex chars in DE
ld a,d ; get the high order hex char
call prtchr ; print it
ld a,e ; get the low order hex char
call prtchr ; print it
pop de ; restore DE
pop af ; restore AF
ret ; done
;
; print the hex word value in hl
;
prthexword:
push af
ld a,h
call prthex
ld a,l
call prthex
pop af
ret
;
; print the hex dword value in de:hl
;
prthex32:
push bc
push de
pop bc
call prthexword
push hl
pop bc
call prthexword
pop bc
ret
;
; Convert binary value in A to ascii hex characters in DE
;
hexascii:
ld d,a ; save A in D
call hexconv ; convert low nibble of A to hex
ld e,a ; save it in E
ld a,d ; get original value back
rlca ; rotate high order nibble to low bits
rlca
rlca
rlca
call hexconv ; convert nibble
ld d,a ; save it in D
ret ; done
;
; Convert low nibble of A to ascii hex
;
hexconv:
and $0F ; low nibble only
add a,$90
daa
adc a,$40
daa
ret
;
; Print value of A or HL in decimal with leading zero suppression
; Use prtdecb for A or prtdecw for HL
;
prtdecb:
push hl
ld h,0
ld l,a
call prtdecw ; print it
pop hl
ret
;
prtdecw:
push af
push bc
push de
push hl
call prtdec0
pop hl
pop de
pop bc
pop af
ret
;
prtdec0:
ld e,'0'
ld bc,-10000
call prtdec1
ld bc,-1000
call prtdec1
ld bc,-100
call prtdec1
ld c,-10
call prtdec1
ld e,0
ld c,-1
prtdec1:
ld a,'0' - 1
prtdec2:
inc a
add hl,bc
jr c,prtdec2
sbc hl,bc
cp e
ret z
ld e,0
call prtchr
ret
;
; Start a new line
;
crlf2:
call crlf ; two of them
crlf:
push af ; preserve AF
ld a,13 ; <CR>
call prtchr ; print it
ld a,10 ; <LF>
call prtchr ; print it
pop af ; restore AF
ret
;
; Brief delay
;
delay:
push bc
ld b,0
delay1:
ex (sp),hl
ex (sp),hl
ex (sp),hl
ex (sp),hl
ex (sp),hl
ex (sp),hl
ex (sp),hl
ex (sp),hl
djnz delay1
pop bc
ret
;
;=======================================================================
; Constants
;=======================================================================
;
str_banner .db "Mouse Information, v0.1",0
str_exit .db "Done, Thank you for using MSEINFO!",0
str_cmdport .db "Mouse Controller Command Port: 0x",0
str_dataport .db "Mouse Controller Data Port: 0x",0
str_timeout_write .db "Mouse Controller Write Timeout, Status: 0x",0
str_timeout_read .db "Mouse Controller Read Timeout, Status: 0x",0
str_err_ctrl_io .db "Mouse Controller I/O Failure",0
str_err_ctrl_test .db "Mouse Controller Self-Test Failed",0
str_put_cmd .db "Sent Command 0x",0
str_put_data .db "Sent Data 0x",0
str_get_data .db "Got Data 0x",0
str_ctrl_test .db "Attempting Controller Self-Test",0
str_mse_init .db "Attempting Mouse Initialization",0
str_enable_mouse .db "Enabling Mouse in 8242 Controller",0
str_ctrl_test_ok .db "Controller Self-Test OK",0
str_intellimouse_ok .db "MS Intellimouse OK",0
str_trans_off .db "Disabling Controller Translation",0
str_mse_reset .db "Attempting Mouse Reset",0
str_mse_reset_ok .db "Mouse Reset OK",0
str_err_mse_reset .db "Mouse Reset Failed",0
;
;=======================================================================
; Working data
;=======================================================================
;
stksav .dw 0 ; stack pointer saved at start
.fill stksiz,0 ; stack
stack .equ $ ; stack top
;
workbuf .fill 8
workbuf_len .db 0
;
;=======================================================================
;
.end

21
Source/Apps/Test/kbdtest/kbdtest.asm
View File

@ -253,22 +253,31 @@ print2:
ret
;---------------------------------------------------------------------------------------------------
; Black: ESC,[30m
; Red: ESC,[31m
; Green: ESC,[32m
; Yellow: ESC,[33m
; Blue: ESC,[34m
; Magenta: ESC,[35m
; Cyan: ESC,[36m
; White: ESC,[37m
; Reset: ESC,[0m
SIGNON:
.DB CR,LF,LF
.DB "Test VT82C42 PC Keyboard & Mouse controller chip on Z80 KBDMSE Board."
.DB ESC,"[33m","Test VT82C42 PC Keyboard & Mouse controller chip on Z80 KBDMSE Board." ; Yellow
.DB CR,LF,"$"
INIT_ERR_STR:
.DB CR,LF,BELL
.DB "Error: The 0xAA Test of Controller did nor return 0x55. Program Halted."
.DB ESC,"[31m","Error: The 0xAA Test of Controller did nor return 0x55. Program Halted." ; Red
.DB CR,LF,"$"
INIT_OK:
.DB CR,LF
.DB "The 0xAA Test of Controller returned 0x55. Now enter keyboard keys."
.DB ESC,"[32m","The 0xAA Test of Controller returned 0x55. Now enter keyboard keys." ; Green
.DB CR,LF,LF,"$"
SCAN_MSG:
.DB "Scancode = $"
.DB ESC,"[34m","Scancode = $" ; Blue
UPKEY_MSG:
.DB "(Up Keystroke)$"
CAPS_MSG:
@ -280,9 +289,9 @@ CTRL_MSG:
NUM_MSG:
.DB "(NUM Key)$"
IBM1_MSG:
.DB "Table 1 lookup -> $"
.DB ESC,"[36m","Table 1 lookup -> $" ; Cyan
IBM2_MSG:
.DB " Table 2 lookup -> $"
.DB ESC,"[37m"," Table 2 lookup -> $" ; White
IBM1TBL: ;The "Normal" table

2
Source/Apps/VGM/Build.cmd
View File

@ -7,5 +7,5 @@ set TASMTABS=%TOOLS%\tasm32
tasm -t180 -g3 -fFF -dWBW vgmplay.asm vgmplay.com vgmplay.lst || exit /b
copy /Y VGMPLAY.COM ..\..\..\Binary\Apps\ || exit /b
copy /Y vgmplay.com ..\..\..\Binary\Apps\ || exit /b
copy /Y Tunes\*.* ..\..\..\Binary\Apps\Tunes\ || exit /b

8
Source/Apps/VGM/Makefile
View File

@ -1,14 +1,14 @@
OBJECTS = VGMPLAY.COM
OBJECTS = vgmplay.com
DEST = ../../../Binary/Apps
TOOLS = ../../../Tools
OTHERS = *.LST
include $(TOOLS)/Makefile.inc
DEPS := VGMPLAY.ASM $(shell find . -name '*.inc')
DEPS := vgmplay.asm $(shell find . -name '*.inc')
VGMPLAY.COM: $(DEPS)
$(TASM) -dWBW VGMPLAY.ASM VGMPLAY.COM VGMPLAY.LST
vgmplay.com: $(DEPS)
$(TASM) -dWBW vgmplay.asm vgmplay.com vgmplay.lst
all::
mkdir -p $(DEST)/Tunes

0
Source/Apps/VGM/Tunes/ITSGAMOV.VGM → Source/Apps/VGM/Tunes/itsgamov.vgm
View File

0
Source/Apps/VGM/Tunes/LEMMIN01.VGM → Source/Apps/VGM/Tunes/lemmin01.vgm
View File

0
Source/Apps/VGM/Tunes/PENGUI03.VGM → Source/Apps/VGM/Tunes/pengui03.vgm
View File

0
Source/Apps/VGM/Tunes/PITFAL02.VGM → Source/Apps/VGM/Tunes/pitfal02.vgm
View File

0
Source/Apps/VGM/Tunes/TIGER02.VGM → Source/Apps/VGM/Tunes/tiger02.vgm
View File

0
Source/Apps/VGM/Tunes/WONDER01.VGM → Source/Apps/VGM/Tunes/wonder01.vgm
View File

0
Source/Apps/VGM/VGMPLAY.ASM → Source/Apps/VGM/vgmplay.asm
View File

0
Source/Apps/VGM/VGMPLAY.TXT → Source/Apps/VGM/vgmplay.txt
View File

4
Source/HBIOS/game.asm
View File

@ -1184,7 +1184,7 @@ COUT: PUSH AF
PUSH DE
PUSH HL
LD B,01H
LD C,0
LD C,80H
LD E,A
RST 08
POP HL
@ -1207,7 +1207,7 @@ CIN: PUSH BC
PUSH DE
PUSH HL
LD B,00H
LD C,00H
LD C,80H
RST 08
LD A,E
POP HL

4
Source/Images/fd_bp.txt
View File

@ -33,11 +33,13 @@
../../Binary/Apps/zminit.ovr 15:
../../Binary/Apps/zmconfig.ovr 15:
../../Binary/Apps/zmd.com 15:
#
../../Binary/Apps/vgmplay.com 15:
# Add Tune sample files
#
../../Binary/Apps/Tunes/*.pt? 3:
../../Binary/Apps/Tunes/*.mym 3:
../../Binary/Apps/Tunes/*.vgm 3:
#
# Add Common Applications
#

2
Source/Images/fd_cpm22.txt
View File

@ -29,11 +29,13 @@ d_cpm22/ReadMe.txt 0:
../../Binary/Apps/zminit.ovr 0:
../../Binary/Apps/zmconfig.ovr 0:
../../Binary/Apps/zmd.com 0:
../../Binary/Apps/vgmplay.com 0:
#
# Add Tune sample files
#
../../Binary/Apps/Tunes/*.pt? 3:
../../Binary/Apps/Tunes/*.mym 3:
../../Binary/Apps/Tunes/*.vgm 3:
#
# Add OS image
#

1
Source/Images/fd_cpm3.txt
View File

@ -45,6 +45,7 @@
../../Binary/Apps/zminit.ovr 0:
../../Binary/Apps/zmconfig.ovr 0:
../../Binary/Apps/zmd.com 0:
../../Binary/Apps/vgmplay.com 0:
#
# Add Common Applications
#

2
Source/Images/fd_zsdos.txt
View File

@ -42,11 +42,13 @@ d_cpm22/u0/XSUB.COM 0:
../../Binary/Apps/zminit.ovr 0:
../../Binary/Apps/zmconfig.ovr 0:
../../Binary/Apps/zmd.com 0:
../../Binary/Apps/vgmplay.com 0:
#
# Add Tune sample files
#
../../Binary/Apps/Tunes/*.pt? 3:
../../Binary/Apps/Tunes/*.mym 3:
../../Binary/Apps/Tunes/*.vgm 3:
#
# Add OS image
#

2
Source/Images/hd_bp.txt
View File

@ -33,6 +33,7 @@
../../Binary/Apps/zminit.ovr 15:
../../Binary/Apps/zmconfig.ovr 15:
../../Binary/Apps/zmd.com 15:
../../Binary/Apps/vgmplay.com 15:
#
../../Binary/Apps/Test/*.com 2:
Test/*.* 2:
@ -41,6 +42,7 @@ Test/*.* 2:
#
../../Binary/Apps/Tunes/*.pt? 3:
../../Binary/Apps/Tunes/*.mym 3:
../../Binary/Apps/Tunes/*.vgm 3:
#
# Add CPNET client files
#

2
Source/Images/hd_cpm22.txt
View File

@ -29,6 +29,7 @@ d_cpm22/ReadMe.txt 0:
../../Binary/Apps/zminit.ovr 0:
../../Binary/Apps/zmconfig.ovr 0:
../../Binary/Apps/zmd.com 0:
../../Binary/Apps/vgmplay.com 0:
#
../../Binary/Apps/Test/*.com 2:
Test/*.* 2:
@ -37,6 +38,7 @@ Test/*.* 2:
#
../../Binary/Apps/Tunes/*.pt? 3:
../../Binary/Apps/Tunes/*.mym 3:
../../Binary/Apps/Tunes/*.vgm 3:
#
# Add CPNET client files
#

2
Source/Images/hd_cpm3.txt
View File

@ -45,6 +45,7 @@
../../Binary/Apps/zminit.ovr 0:
../../Binary/Apps/zmconfig.ovr 0:
../../Binary/Apps/zmd.com 0:
../../Binary/Apps/vgmplay.com 0:
#
../../Binary/Apps/Test/*.com 2:
Test/*.* 2:
@ -53,6 +54,7 @@ Test/*.* 2:
#
../../Binary/Apps/Tunes/*.pt? 3:
../../Binary/Apps/Tunes/*.mym 3:
../../Binary/Apps/Tunes/*.vgm 3:
#
# Add CPNET client files
#

2
Source/Images/hd_nzcom.txt
View File

@ -46,6 +46,7 @@ d_zsdos/u0/*.* 0:
../../Binary/Apps/zminit.ovr 0:
../../Binary/Apps/zmconfig.ovr 0:
../../Binary/Apps/zmd.com 0:
../../Binary/Apps/vgmplay.com 0:
#
../../Binary/Apps/Test/*.com 2:
Test/*.* 2:
@ -54,6 +55,7 @@ Test/*.* 2:
#
../../Binary/Apps/Tunes/*.pt? 3:
../../Binary/Apps/Tunes/*.mym 3:
../../Binary/Apps/Tunes/*.vgm 3:
#
# Add CPNET client files
#

2
Source/Images/hd_zpm3.txt
View File

@ -44,6 +44,7 @@
../../Binary/Apps/zminit.ovr 15:
../../Binary/Apps/zmconfig.ovr 15:
../../Binary/Apps/zmd.com 15:
../../Binary/Apps/vgmplay.com 15:
#
../../Binary/Apps/Test/*.com 2:
Test/*.* 2:
@ -52,6 +53,7 @@ Test/*.* 2:
#
../../Binary/Apps/Tunes/*.pt? 3:
../../Binary/Apps/Tunes/*.mym 3:
../../Binary/Apps/Tunes/*.vgm 3:
#
# Add CPNET client files
#

2
Source/Images/hd_zsdos.txt
View File

@ -42,6 +42,7 @@ d_cpm22/u0/XSUB.COM 0:
../../Binary/Apps/zminit.ovr 0:
../../Binary/Apps/zmconfig.ovr 0:
../../Binary/Apps/zmd.com 0:
../../Binary/Apps/vgmplay.com 0:
#
../../Binary/Apps/Test/*.com 2:
Test/*.* 2:
@ -50,6 +51,7 @@ Test/*.* 2:
#
../../Binary/Apps/Tunes/*.pt? 3:
../../Binary/Apps/Tunes/*.mym 3:
../../Binary/Apps/Tunes/*.vgm 3:
#
# Add CPNET client files
#

Write Preview
Loading…
Cancel
Save