Remove leftovers from previous experiments
This commit is contained in:
parent
c58f367330
commit
c0b8c107c4
@ -1,32 +0,0 @@
|
|||||||
org 0x100
|
|
||||||
|
|
||||||
jmp init
|
|
||||||
|
|
||||||
%defstr V VERSION
|
|
||||||
banner: db "RDOS KERNEL ", V, 0x0A, 0x0D, '$', 0x1A
|
|
||||||
|
|
||||||
%include "kernel/far.asm"
|
|
||||||
%include "kernel/char.asm"
|
|
||||||
%include "kernel/drive.asm"
|
|
||||||
%include "kernel/fat.asm"
|
|
||||||
|
|
||||||
section .text
|
|
||||||
|
|
||||||
init: call rstseg
|
|
||||||
call dinit
|
|
||||||
|
|
||||||
mov dx, banner
|
|
||||||
call puts
|
|
||||||
|
|
||||||
mov dl, 0
|
|
||||||
call select
|
|
||||||
|
|
||||||
mov dx, 3
|
|
||||||
call setclus
|
|
||||||
call rdfat
|
|
||||||
mov dx, bx
|
|
||||||
inc dx
|
|
||||||
call wdfat
|
|
||||||
|
|
||||||
hlt: hlt
|
|
||||||
jmp hlt
|
|
||||||
144
com/a86.asm
144
com/a86.asm
@ -1,144 +0,0 @@
|
|||||||
org 0x100
|
|
||||||
|
|
||||||
jmp init
|
|
||||||
|
|
||||||
fcb1 equ 0x5C
|
|
||||||
eof equ 0x1A
|
|
||||||
stack equ 0x10 ; stack size
|
|
||||||
|
|
||||||
dumpax push ax
|
|
||||||
push cx
|
|
||||||
push dx
|
|
||||||
mov dx, ax
|
|
||||||
call dmpdx0
|
|
||||||
mov al, 0x0A
|
|
||||||
call dmpdx3
|
|
||||||
mov al, 0x0D
|
|
||||||
call dmpdx3
|
|
||||||
pop dx
|
|
||||||
pop cx
|
|
||||||
pop ax
|
|
||||||
ret
|
|
||||||
dmpdx0 mov ah, 0xe
|
|
||||||
mov cl, 4
|
|
||||||
; this double-call is essentially a 4 times repeating loop
|
|
||||||
call dmpdx1
|
|
||||||
dmpdx1: call dmpdx2
|
|
||||||
dmpdx2: ; grab highest nibble from dx
|
|
||||||
mov al, dh
|
|
||||||
; remove highest nibble from dx
|
|
||||||
shl dx, cl
|
|
||||||
; shift away second-highest nibble that we accidentally copied
|
|
||||||
shr al, cl
|
|
||||||
; map 0-9 to ascii codes for '0' to '9'
|
|
||||||
add al, 0x30
|
|
||||||
; if result is larger than '9', ...
|
|
||||||
cmp al, 0x3a
|
|
||||||
jl dmpdx3
|
|
||||||
; ... add 7 so we continue at 'A'
|
|
||||||
add al, 7
|
|
||||||
dmpdx3: int 0x10
|
|
||||||
ret
|
|
||||||
|
|
||||||
free dw 0 ; free ram size
|
|
||||||
lncnt dw 0 ; line count
|
|
||||||
rdptr dw 0xFFFF ; infile blk ptr
|
|
||||||
|
|
||||||
getc mov bx, [rdptr]
|
|
||||||
cmp bx, 0x80
|
|
||||||
jc l01
|
|
||||||
mov ah, 0x14
|
|
||||||
mov dx, fcb1
|
|
||||||
int 0x21
|
|
||||||
cmp al, 1
|
|
||||||
je l02
|
|
||||||
mov bx, 0
|
|
||||||
l01 mov al, [0x80+bx]
|
|
||||||
cmp al, eof
|
|
||||||
je l02
|
|
||||||
cmp al, 0
|
|
||||||
je l02
|
|
||||||
cmp al, 0x0A
|
|
||||||
jne l01b
|
|
||||||
inc word [lncnt]
|
|
||||||
l01b inc bx
|
|
||||||
mov [rdptr], bx
|
|
||||||
jmp l03
|
|
||||||
l02 mov al, 0x1A
|
|
||||||
l03 cmp al, eof
|
|
||||||
ret
|
|
||||||
|
|
||||||
newlin mov dl, 0x0A
|
|
||||||
mov ah, 2
|
|
||||||
int 0x21
|
|
||||||
mov dl, 0x0D
|
|
||||||
int 0x21
|
|
||||||
ret
|
|
||||||
|
|
||||||
error mov dl, [bx]
|
|
||||||
mov ah, 2
|
|
||||||
int 0x21
|
|
||||||
inc bx
|
|
||||||
cmp dl, 0x20
|
|
||||||
jne error
|
|
||||||
mov ax, [lncnt]
|
|
||||||
call dumpax
|
|
||||||
call newlin
|
|
||||||
int 0x20
|
|
||||||
|
|
||||||
e_eof db "EOF "
|
|
||||||
e_dup db "DUPSYM "
|
|
||||||
|
|
||||||
tok1:
|
|
||||||
s_ws db " " ; also used for tabs
|
|
||||||
s_com db ","
|
|
||||||
s_obr db "["
|
|
||||||
s_cbr db "]"
|
|
||||||
s_plu db "+"
|
|
||||||
s_min db "-"
|
|
||||||
|
|
||||||
align 2
|
|
||||||
tok2:
|
|
||||||
reg8 db "AL","CL","DL","BL","AH","CH","DH","BH"
|
|
||||||
reg16 db "AX","CX","DX","BX","SP","BP","SI","DI"
|
|
||||||
sreg db "ES","CS","SS","DS"
|
|
||||||
s_db db "DB"
|
|
||||||
s_dw db "DW"
|
|
||||||
|
|
||||||
tok3:
|
|
||||||
s_org db "ORG"
|
|
||||||
s_equ db "EQU"
|
|
||||||
|
|
||||||
; TODO: parse a line into wordlist of tokens and ptrs to strings
|
|
||||||
rline: ret
|
|
||||||
|
|
||||||
; clear symbol table
|
|
||||||
main mov byte [init], 0
|
|
||||||
call rline
|
|
||||||
int 0x20
|
|
||||||
|
|
||||||
align 16
|
|
||||||
|
|
||||||
; stuff behind here gets overwritten
|
|
||||||
; by symbol table and program data
|
|
||||||
|
|
||||||
init mov ax, [6]
|
|
||||||
mov dx, sp
|
|
||||||
sub dx, stack
|
|
||||||
cmp ax, dx
|
|
||||||
jc il01
|
|
||||||
mov ax, dx
|
|
||||||
il01 sub ax, init
|
|
||||||
shr ax, 1
|
|
||||||
and ax, 0xFFF0
|
|
||||||
mov [free], ax
|
|
||||||
; open input file
|
|
||||||
mov ah, 0x0F
|
|
||||||
mov dx, fcb1
|
|
||||||
int 0x21
|
|
||||||
mov bx, e_op
|
|
||||||
test al, al
|
|
||||||
jnz error
|
|
||||||
jmp main
|
|
||||||
|
|
||||||
e_op db "NOFILE "
|
|
||||||
@ -1,28 +0,0 @@
|
|||||||
errcll: ; put return address into dx
|
|
||||||
pop dx
|
|
||||||
errjmp: call dmpdx
|
|
||||||
xor ax, ax
|
|
||||||
int 0x16
|
|
||||||
int 0x19
|
|
||||||
dmpdx: ; setup bx and ah for int 10h call
|
|
||||||
xor bx, bx
|
|
||||||
mov ah, 0x0e
|
|
||||||
mov cl, 4
|
|
||||||
; this double-call is essentially a 4 times repeating loop
|
|
||||||
call dmpdx1
|
|
||||||
dmpdx1: call dmpdx2
|
|
||||||
dmpdx2: ; grab highest nibble from dx
|
|
||||||
mov al, dh
|
|
||||||
; remove highest nibble from dx
|
|
||||||
shl dx, cl
|
|
||||||
; shift away second-highest nibble that we accidentally copied
|
|
||||||
shr al, cl
|
|
||||||
; map 0-9 to ascii codes for '0' to '9'
|
|
||||||
add al, 0x30
|
|
||||||
; if result is larger than '9', ...
|
|
||||||
cmp al, 0x3a
|
|
||||||
jl dmpdx3
|
|
||||||
; ... add 7 so we continue at 'A'
|
|
||||||
add al, 7
|
|
||||||
dmpdx3: int 0x10
|
|
||||||
ret
|
|
||||||
26
inc/bpb.asm
26
inc/bpb.asm
@ -1,26 +0,0 @@
|
|||||||
BPBOFF equ 0xB
|
|
||||||
|
|
||||||
; DOS 2.0 BPB
|
|
||||||
BPBSS equ 0 ; word
|
|
||||||
BPBSC equ 2 ; byte
|
|
||||||
BPBRSC equ 3 ; word
|
|
||||||
BPBFN equ 5 ; byte
|
|
||||||
BPBRDE equ 6 ; word
|
|
||||||
BPBTS equ 8 ; word
|
|
||||||
BPBMD equ 10 ; byte
|
|
||||||
BPBFS equ 11 ; word
|
|
||||||
BPBSIZ2 equ 13 ; size constant
|
|
||||||
|
|
||||||
; DOS 3.31 BPB
|
|
||||||
BPBSPT equ 0x0D ; word
|
|
||||||
BPBNOS equ 0x0F ; word
|
|
||||||
BPBHS equ 0x11 ; dword
|
|
||||||
BPBLTS equ 0x15 ; dword
|
|
||||||
BPBSIZ3 equ 25 ; size constant
|
|
||||||
|
|
||||||
; DOS 3.4 EBPB
|
|
||||||
BPBDN equ 0x19 ; byte
|
|
||||||
BPBFALG equ 0x1A ; byte
|
|
||||||
BPBSIG equ 0x1B ; byte
|
|
||||||
BPBSER equ 0x1C ; dword serial number
|
|
||||||
BPBSIZ4 equ 32 ; size constant
|
|
||||||
11
inc/mbr.asm
11
inc/mbr.asm
@ -1,11 +0,0 @@
|
|||||||
mbrtab: equ 0x1BE ; start of partition table
|
|
||||||
mbrsig: equ 0x1FE ; start of signature
|
|
||||||
mbrmn: equ 0x55AA ; signature value
|
|
||||||
|
|
||||||
pardn: equ 0x00 ; byte: partition active flag
|
|
||||||
parchs: equ 0x01 ; 3 bytes: CHS for first sector
|
|
||||||
partyp: equ 0x04 ; byte: partition type
|
|
||||||
parend: equ 0x05 ; 3 bytes: CHS for last sector
|
|
||||||
paroff: equ 0x08 ; dword: partition offset in sectors
|
|
||||||
parlen: equ 0x0C ; dword: partition length in sectors
|
|
||||||
parsiz: equ 0x10
|
|
||||||
53
lib/dump.asm
53
lib/dump.asm
@ -1,53 +0,0 @@
|
|||||||
dump:
|
|
||||||
push ax
|
|
||||||
push cx
|
|
||||||
push dx
|
|
||||||
push bx
|
|
||||||
mov al, 0x0A
|
|
||||||
call putc
|
|
||||||
mov al, 0x0D
|
|
||||||
call putc
|
|
||||||
mov cx, 4
|
|
||||||
.loop_line:
|
|
||||||
push cx
|
|
||||||
push bx
|
|
||||||
mov ax, bx
|
|
||||||
call print16
|
|
||||||
mov al, ':'
|
|
||||||
call putc
|
|
||||||
mov al, ' '
|
|
||||||
call putc
|
|
||||||
mov cx, 0x8
|
|
||||||
.loop_bin:
|
|
||||||
mov ax, [bx]
|
|
||||||
xchg al, ah
|
|
||||||
inc bx
|
|
||||||
inc bx
|
|
||||||
call print16
|
|
||||||
mov dl, ' '
|
|
||||||
call CONOUT
|
|
||||||
loop .loop_bin
|
|
||||||
pop bx
|
|
||||||
mov cx, 0x10
|
|
||||||
.loop_ascii:
|
|
||||||
mov dl, '.'
|
|
||||||
cmp byte [bx], 0x20
|
|
||||||
jc .print
|
|
||||||
cmp byte [bx], 0x80
|
|
||||||
jnc .print
|
|
||||||
mov dl, [bx]
|
|
||||||
.print:
|
|
||||||
inc bx
|
|
||||||
call CONOUT
|
|
||||||
loop .loop_ascii
|
|
||||||
pop cx
|
|
||||||
mov dl, 0x0A
|
|
||||||
call CONOUT
|
|
||||||
mov dl, 0x0D
|
|
||||||
call CONOUT
|
|
||||||
loop .loop_line
|
|
||||||
pop bx
|
|
||||||
pop dx
|
|
||||||
pop cx
|
|
||||||
pop ax
|
|
||||||
ret
|
|
||||||
@ -1,65 +0,0 @@
|
|||||||
%define mcb_first 0x5F
|
|
||||||
|
|
||||||
; This alloc uses an MCB-like list always starting at a fixed offset.
|
|
||||||
; Boot components may use it to allocate space during early boot.
|
|
||||||
; The list ends with the most recently allocated arena at its end,
|
|
||||||
; contrary to how the MCBs work on DOS.
|
|
||||||
|
|
||||||
; Memory Layout:
|
|
||||||
; 0000 Interrupt table
|
|
||||||
; 0400 BIOS data area
|
|
||||||
; 05F0 16 bytes Arena header 1
|
|
||||||
; 0600 BX paragraphs Arena 1
|
|
||||||
; .... 16 bytes Arena header 2
|
|
||||||
; .... BX paragraphs Arena 2
|
|
||||||
; ...
|
|
||||||
; .... 16 bytes Arena header n
|
|
||||||
; .... BX paragraphs Arena n
|
|
||||||
; Unmanaged memory
|
|
||||||
|
|
||||||
; Take note that this mechanism works differently than under DOS -
|
|
||||||
; but this one is optimized for fast and small alloc.
|
|
||||||
|
|
||||||
; Typical usecases:
|
|
||||||
; - Diskette Parameter Table (See interrupt 1Eh)
|
|
||||||
; - Partition table
|
|
||||||
; - Boot sector relocations
|
|
||||||
; - Boot sector data (FAT table, rootdir)
|
|
||||||
|
|
||||||
; Allocate paragraphs in unmanaged memory
|
|
||||||
; IN BX requested memory in paragraphs
|
|
||||||
; OUT AX output segment
|
|
||||||
early_alloc:
|
|
||||||
push ds
|
|
||||||
push bx
|
|
||||||
push si
|
|
||||||
; si is used as zero register
|
|
||||||
; this allows the opcodes to use a byte as disp instead of word
|
|
||||||
xor si, si
|
|
||||||
mov ax, mcb_first
|
|
||||||
.next:
|
|
||||||
mov ds, ax
|
|
||||||
inc ax
|
|
||||||
; DS is seg of arena header
|
|
||||||
; AX is seg of arena
|
|
||||||
cmp BYTE [si], 0x4D
|
|
||||||
jne .here
|
|
||||||
add ax, WORD [si+3]
|
|
||||||
jmp .next
|
|
||||||
.here:
|
|
||||||
; mark as item
|
|
||||||
mov BYTE [si], 0x4D
|
|
||||||
; write segment length in paragraphs
|
|
||||||
mov WORD [si+3], bx
|
|
||||||
; if allocation is higher than CS, then we are in managed memory
|
|
||||||
; set ourself as owner then, otherwise use dummy value 8
|
|
||||||
mov bx, cs
|
|
||||||
cmp ax, bx ; CF = CS in unmanaged memory
|
|
||||||
jnc .setup_owner
|
|
||||||
mov bx, 8
|
|
||||||
.setup_owner:
|
|
||||||
mov WORD [si+1], bx
|
|
||||||
pop si
|
|
||||||
pop bx
|
|
||||||
pop ds
|
|
||||||
ret
|
|
||||||
@ -1,46 +0,0 @@
|
|||||||
; Parse ASCIIZ string into FCB
|
|
||||||
; IN SI ptr to filename
|
|
||||||
; BX ptr to FCB
|
|
||||||
fcb_parse:
|
|
||||||
push di
|
|
||||||
push ax
|
|
||||||
mov di, bx
|
|
||||||
xor ax, ax
|
|
||||||
stosb
|
|
||||||
.cleanout:
|
|
||||||
push di
|
|
||||||
mov cx, 0x0A
|
|
||||||
mov al, 0x20
|
|
||||||
rep stosb
|
|
||||||
pop di
|
|
||||||
.base_loop:
|
|
||||||
call .read
|
|
||||||
cmp al, 0x2E
|
|
||||||
je .ext_start
|
|
||||||
cmp al, 0x20
|
|
||||||
je .ret
|
|
||||||
stosb
|
|
||||||
jmp .base_loop
|
|
||||||
.ext_start:
|
|
||||||
mov di, bx
|
|
||||||
add di, 9
|
|
||||||
.ext_loop:
|
|
||||||
call .read
|
|
||||||
cmp al, 0x20
|
|
||||||
je .ret
|
|
||||||
stosb
|
|
||||||
jmp .ext_loop
|
|
||||||
.read:
|
|
||||||
lodsb
|
|
||||||
test al, al
|
|
||||||
jz .eret
|
|
||||||
cmp al, 0x0D
|
|
||||||
je .eret
|
|
||||||
ret
|
|
||||||
.eret:
|
|
||||||
dec si
|
|
||||||
pop ax
|
|
||||||
.ret:
|
|
||||||
pop ax
|
|
||||||
pop di
|
|
||||||
ret
|
|
||||||
14
lib/fdc.asm
14
lib/fdc.asm
@ -1,14 +0,0 @@
|
|||||||
; FDC Descriptor / BIOS parameter block
|
|
||||||
fdc_ss: equ 0x0B ; WORD sector size
|
|
||||||
fdc_sc: equ 0x0D ; BYTE sectors per cluster
|
|
||||||
fdc_rsc: equ 0x0E ; WORD reserved sectors
|
|
||||||
fdc_fn: equ 0x10 ; BYTE FAT tables
|
|
||||||
fdc_rde: equ 0x11 ; WORD root directory entries
|
|
||||||
fdc_ts: equ 0x13 ; WORD total sector count
|
|
||||||
; 0 if >65535, use lrgts then
|
|
||||||
fdc_mi: equ 0x15 ; BYTE media descriptor byte
|
|
||||||
fdc_sf: equ 0x16 ; WORD sectors per FAT
|
|
||||||
fdc_spt: equ 0x18 ; WORD sectors per track
|
|
||||||
fdc_nos: equ 0x1A ; WORD sides/heads
|
|
||||||
fdc_po: equ 0x1C ; DWORD partition offset
|
|
||||||
fdc_lrgts: equ 0x20 ; DWORD large sector count
|
|
||||||
15
lib/log2.asm
15
lib/log2.asm
@ -1,15 +0,0 @@
|
|||||||
; Calculate dual logarithm (int)
|
|
||||||
; IN AX number
|
|
||||||
; OUT AX dual logarithm
|
|
||||||
log2:
|
|
||||||
push cx
|
|
||||||
mov cx, 15
|
|
||||||
.loop:
|
|
||||||
rcl ax, 1
|
|
||||||
jc .ret
|
|
||||||
loop .loop
|
|
||||||
.ret:
|
|
||||||
cmc
|
|
||||||
mov ax, cx
|
|
||||||
pop cx
|
|
||||||
ret
|
|
||||||
124
lib/nasmcomp.asm
124
lib/nasmcomp.asm
@ -1,124 +0,0 @@
|
|||||||
; Pseudo-Instruction: fill bytes until offset
|
|
||||||
%macro pad 1.nolist
|
|
||||||
times (%1 - ($-$$)) nop
|
|
||||||
%endmacro
|
|
||||||
|
|
||||||
; REGISTERS
|
|
||||||
%define a al
|
|
||||||
%define b ch
|
|
||||||
%define c cl
|
|
||||||
%define d dh
|
|
||||||
%define e dl
|
|
||||||
%define h bh
|
|
||||||
%define l bl
|
|
||||||
%define m byte [bx]
|
|
||||||
|
|
||||||
; REGISTER PAIRS
|
|
||||||
%define bc cx
|
|
||||||
%define de dx
|
|
||||||
%define hl bx
|
|
||||||
|
|
||||||
; INSTRUCTIONS
|
|
||||||
; data movement
|
|
||||||
; 'mov' can stay literal
|
|
||||||
%define mvi mov
|
|
||||||
%define lxi mov
|
|
||||||
%macro lda 1
|
|
||||||
mov al, byte [%1]
|
|
||||||
%endmacro
|
|
||||||
%macro sta 1
|
|
||||||
mov byte [%1], al
|
|
||||||
%endmacro
|
|
||||||
%macro lhld 1
|
|
||||||
mov bx, word [%1]
|
|
||||||
%endmacro
|
|
||||||
%macro shld 1
|
|
||||||
mov word [%1], bx
|
|
||||||
%endmacro
|
|
||||||
%macro ldax 1
|
|
||||||
mov al, byte [%1]
|
|
||||||
%endmacro
|
|
||||||
%macro stax 1
|
|
||||||
mov byte [%1], al
|
|
||||||
%endmacro
|
|
||||||
%macro xchg 1
|
|
||||||
xchg dx, bx
|
|
||||||
%endmacro
|
|
||||||
; addition
|
|
||||||
%macro add 1
|
|
||||||
add al, %1
|
|
||||||
%endmacro
|
|
||||||
%macro adi 1
|
|
||||||
add al, %1
|
|
||||||
%endmacro
|
|
||||||
%macro adc 1
|
|
||||||
adc al, %1
|
|
||||||
%endmacro
|
|
||||||
%macro aci 1
|
|
||||||
adc al, %1
|
|
||||||
%endmacro
|
|
||||||
; subtraction
|
|
||||||
%macro sub 1
|
|
||||||
sub al, %1
|
|
||||||
%endmacro
|
|
||||||
%macro sui 1
|
|
||||||
sub al, %1
|
|
||||||
%endmacro
|
|
||||||
%macro sbb 1
|
|
||||||
sub al, %1
|
|
||||||
%endmacro
|
|
||||||
%macro sbi 1
|
|
||||||
sub al, %1
|
|
||||||
%endmacro
|
|
||||||
; increment / decrement
|
|
||||||
%define inr inc
|
|
||||||
%define dcr dec
|
|
||||||
%define inx inc
|
|
||||||
%define dcx dec
|
|
||||||
; pointer arithmetic
|
|
||||||
%macro dad 1
|
|
||||||
add bx, %1
|
|
||||||
%endmacro
|
|
||||||
; 'daa' stays literal
|
|
||||||
|
|
||||||
;ANA S 10100SSS ZSCPA AND register with A
|
|
||||||
;ANI # 11100110 db ZSPCA AND immediate with A
|
|
||||||
;ORA S 10110SSS ZSPCA OR register with A
|
|
||||||
;ORI # 11110110 ZSPCA OR immediate with A
|
|
||||||
;XRA S 10101SSS ZSPCA ExclusiveOR register with A
|
|
||||||
;XRI # 11101110 db ZSPCA ExclusiveOR immediate with A
|
|
||||||
|
|
||||||
;CMP S 10111SSS ZSPCA Compare register with A
|
|
||||||
;CPI # 11111110 ZSPCA Compare immediate with A
|
|
||||||
|
|
||||||
;RLC 00000111 C Rotate A left
|
|
||||||
;RRC 00001111 C Rotate A right
|
|
||||||
;RAL 00010111 C Rotate A left through carry
|
|
||||||
;RAR 00011111 C Rotate A right through carry
|
|
||||||
;CMA 00101111 - Compliment A
|
|
||||||
;CMC 00111111 C Compliment Carry flag
|
|
||||||
;STC 00110111 C Set Carry flag
|
|
||||||
;JMP a 11000011 lb hb - Unconditional jump
|
|
||||||
;Jccc a 11CCC010 lb hb - Conditional jump
|
|
||||||
;CALL a 11001101 lb hb - Unconditional subroutine call
|
|
||||||
;Cccc a 11CCC100 lb hb - Conditional subroutine call
|
|
||||||
;RET 11001001 - Unconditional return from subroutine
|
|
||||||
;Rccc 11CCC000 - Conditional return from subroutine
|
|
||||||
;RST n 11NNN111 - Restart (Call n*8)
|
|
||||||
;PCHL 11101001 - Jump to address in H:L
|
|
||||||
;PUSH RP 11RP0101 *2 - Push register pair on the stack
|
|
||||||
;POP RP 11RP0001 *2 *2 Pop register pair from the stack
|
|
||||||
;XTHL 11100011 - Swap H:L with top word on stack
|
|
||||||
;SPHL 11111001 - Set SP to content of H:L
|
|
||||||
;IN p 11011011 pa - Read input port into A
|
|
||||||
;OUT p 11010011 pa - Write A to output port
|
|
||||||
;EI 11111011 - Enable interrupts
|
|
||||||
;DI 11110011 - Disable interrupts
|
|
||||||
;HLT 01110110 - Halt processor
|
|
||||||
;NOP 00000000 - No operation
|
|
||||||
|
|
||||||
%macro cnz 1
|
|
||||||
jz %%skip
|
|
||||||
call near %1
|
|
||||||
%%skip:
|
|
||||||
%endmacro
|
|
||||||
142
lib/opcode80.asm
142
lib/opcode80.asm
@ -1,142 +0,0 @@
|
|||||||
; BYTE name length
|
|
||||||
; n BYTES name
|
|
||||||
; BYTE opcode template (variable parts zero)
|
|
||||||
;
|
|
||||||
; BYTE operand 1
|
|
||||||
; BYTE operand 2
|
|
||||||
|
|
||||||
; operand types:
|
|
||||||
; 0x00 none
|
|
||||||
; 0x1n reg8, opcode |= (reg8 << n)
|
|
||||||
; 0x2n reg16, opcode |= (reg8 << n)
|
|
||||||
; 0x3n reg16b, opcode |= (reg8 << n)
|
|
||||||
; 0x7n 3-bit number, opcode |= (num << n)
|
|
||||||
; 0x80 imm8, encoded as extra byte
|
|
||||||
; 0x81 imm16, encoded as extra word
|
|
||||||
|
|
||||||
registers:
|
|
||||||
.reg8:
|
|
||||||
db "B", 0
|
|
||||||
db "C", 0
|
|
||||||
db "D", 0
|
|
||||||
db "E", 0
|
|
||||||
db "H", 0
|
|
||||||
db "L", 0
|
|
||||||
db "M", 0
|
|
||||||
db 0
|
|
||||||
.reg16:
|
|
||||||
db "BC", 0
|
|
||||||
db "DE", 0
|
|
||||||
db "HL", 0
|
|
||||||
db "SP", 0
|
|
||||||
db 0
|
|
||||||
.reg16b:
|
|
||||||
db "BC", 0
|
|
||||||
db "DE", 0
|
|
||||||
db "HL", 0
|
|
||||||
db "AF", 0
|
|
||||||
db 0
|
|
||||||
.end:
|
|
||||||
db 0
|
|
||||||
|
|
||||||
opcodes:
|
|
||||||
; Data movement
|
|
||||||
db 3, "MOV", 0b01000000, 0x13, 0x10
|
|
||||||
db 3, "MVI", 0b00000110, 0x13, 0x80
|
|
||||||
db 3, "LXI", 0b00000001, 0x24, 0x81
|
|
||||||
db 3, "LDA", 0b00111010, 0x81, 0x00
|
|
||||||
db 3, "STA", 0b00110010, 0x81, 0x00
|
|
||||||
db 4, "LHLD", 0b00101010, 0x81, 0x00
|
|
||||||
db 4, "SHLD", 0b00100010, 0x81, 0x00
|
|
||||||
db 4, "LDAX", 0b00001010, 0x24, 0x00
|
|
||||||
db 4, "STAX", 0b00000010, 0x24, 0x00
|
|
||||||
db 4, "XCHG", 0b11101011, 0x00, 0x00
|
|
||||||
|
|
||||||
; Addition / Subtraction
|
|
||||||
db 3, "ADD", 0b10000000, 0x10, 0x00
|
|
||||||
db 3, "ADI", 0b11000110, 0x80, 0x00
|
|
||||||
db 3, "ADC", 0b10001000, 0x10, 0x00
|
|
||||||
db 3, "ACI", 0b11001110, 0x80, 0x00
|
|
||||||
db 3, "SUB", 0b10010000, 0x10, 0x00
|
|
||||||
db 3, "SUI", 0b11010110, 0x80, 0x00
|
|
||||||
db 3, "SBB", 0b10011000, 0x10, 0x00
|
|
||||||
db 3, "SBI", 0b11011110, 0x80, 0x00
|
|
||||||
db 3, "INR", 0b00000100, 0x13, 0x00
|
|
||||||
db 3, "DCR", 0b00000101, 0x13, 0x00
|
|
||||||
db 3, "INX", 0b00000011, 0x24, 0x00
|
|
||||||
db 3, "DCX", 0b00001011, 0x24, 0x00
|
|
||||||
db 3, "DAD", 0b00001001, 0x24, 0x00
|
|
||||||
|
|
||||||
; BCD
|
|
||||||
db 3, "DAA", 0b00100111, 0x00, 0x00
|
|
||||||
|
|
||||||
; Bitwise operations
|
|
||||||
db 3, "ANA", 0b10100000, 0x10, 0x00
|
|
||||||
db 3, "ANI", 0b11100110, 0x80, 0x00
|
|
||||||
db 3, "ORA", 0b10110000, 0x10, 0x00
|
|
||||||
db 3, "ORI", 0b11110110, 0x80, 0x00
|
|
||||||
db 3, "XRA", 0b10101000, 0x10, 0x00
|
|
||||||
db 3, "XRI", 0b11101110, 0x80, 0x00
|
|
||||||
db 3, "CMP", 0b10111000, 0x10, 0x00
|
|
||||||
db 3, "CPI", 0b11111110, 0x80, 0x00
|
|
||||||
|
|
||||||
; Rotate
|
|
||||||
db 3, "RLC", 0b00000111, 0x00, 0x00
|
|
||||||
db 3, "RRC", 0b00001111, 0x00, 0x00
|
|
||||||
db 3, "RAL", 0b00010111, 0x00, 0x00
|
|
||||||
db 3, "RAR", 0b00011111, 0x00, 0x00
|
|
||||||
|
|
||||||
; Complement
|
|
||||||
db 3, "CMA", 0b00101111, 0x00, 0x00
|
|
||||||
db 3, "CMC", 0b00111111, 0x00, 0x00
|
|
||||||
db 3, "STC", 0b00110111, 0x00, 0x00
|
|
||||||
|
|
||||||
; Jump
|
|
||||||
db 3, "JMP", 0b11000011, 0x81, 0x00
|
|
||||||
db 3, "JNZ", 0b11000010, 0x81, 0x00
|
|
||||||
db 2, "JZ", 0b11001010, 0x81, 0x00
|
|
||||||
db 3, "JNC", 0b11010010, 0x81, 0x00
|
|
||||||
db 2, "JC", 0b11011010, 0x81, 0x00
|
|
||||||
db 3, "JPO", 0b11100010, 0x81, 0x00
|
|
||||||
db 3, "JPE", 0b11101010, 0x81, 0x00
|
|
||||||
db 2, "JP", 0b11110010, 0x81, 0x00
|
|
||||||
db 2, "JM", 0b11111010, 0x81, 0x00
|
|
||||||
|
|
||||||
; Call
|
|
||||||
db 4, "CALL", 0b11001101, 0x81, 0x00
|
|
||||||
db 3, "CNZ", 0b11000100, 0x81, 0x00
|
|
||||||
db 2, "CZ", 0b11001100, 0x81, 0x00
|
|
||||||
db 3, "CNC", 0b11010100, 0x81, 0x00
|
|
||||||
db 2, "CC", 0b11011100, 0x81, 0x00
|
|
||||||
db 3, "CPO", 0b11100100, 0x81, 0x00
|
|
||||||
db 3, "CPE", 0b11101100, 0x81, 0x00
|
|
||||||
db 2, "CP", 0b11110100, 0x81, 0x00
|
|
||||||
db 2, "CM", 0b11111100, 0x81, 0x00
|
|
||||||
|
|
||||||
; Return
|
|
||||||
db 3, "RET", 0b11001001, 0x00, 0x00
|
|
||||||
db 3, "RNZ", 0b11000000, 0x00, 0x00
|
|
||||||
db 2, "RZ", 0b11001000, 0x00, 0x00
|
|
||||||
db 3, "RNC", 0b11010000, 0x00, 0x00
|
|
||||||
db 2, "RC", 0b11011000, 0x00, 0x00
|
|
||||||
db 3, "RPO", 0b11100000, 0x00, 0x00
|
|
||||||
db 3, "RPE", 0b11101000, 0x00, 0x00
|
|
||||||
db 2, "RP", 0b11110000, 0x00, 0x00
|
|
||||||
db 2, "RM", 0b11111000, 0x00, 0x00
|
|
||||||
|
|
||||||
db 3, "RST", 0b11000111, 0x73, 0x00
|
|
||||||
db 4, "PCHL", 0b11101001, 0x00, 0x00
|
|
||||||
db 4, "PUSH", 0b11000101, 0x34, 0x00
|
|
||||||
db 3, "POP", 0b11000001, 0x34, 0x00
|
|
||||||
db 4, "XTHL", 0b11100011, 0x00, 0x00
|
|
||||||
db 4, "SPHL", 0b11111001, 0x00, 0x00
|
|
||||||
|
|
||||||
db 2, "IN", 0b11011011, 0x80, 0x00
|
|
||||||
db 3, "OUT", 0b11010011, 0x80, 0x00
|
|
||||||
|
|
||||||
db 2, "EI", 0b11111011, 0x00, 0x00
|
|
||||||
db 2, "DI", 0b11110011, 0x00, 0x00
|
|
||||||
db 3, "HLT", 0b01110110, 0x00, 0x00
|
|
||||||
db 3, "NOP", 0b00000000, 0x00, 0x00
|
|
||||||
|
|
||||||
db 0
|
|
||||||
@ -1,30 +0,0 @@
|
|||||||
popcnt:
|
|
||||||
push bx
|
|
||||||
push cx
|
|
||||||
|
|
||||||
mov bx, ax
|
|
||||||
and ax, 0x5555 ; 8x 01
|
|
||||||
and bx, 0xaaaa ; 8x 10
|
|
||||||
shr bx, 1
|
|
||||||
add ax, bx
|
|
||||||
|
|
||||||
mov bx, ax
|
|
||||||
and ax, 0x3333 ; 4x 0011
|
|
||||||
and bx, 0xcccc ; 4x 1100
|
|
||||||
mov cl, 2
|
|
||||||
shr bx, cl
|
|
||||||
add ax, bx
|
|
||||||
|
|
||||||
mov bx, ax
|
|
||||||
and ax, 0x0f0f ; 2x 00001111
|
|
||||||
and bx, 0xf0f0 ; 2x 11110000
|
|
||||||
mov cl, 4
|
|
||||||
shr bx, cl
|
|
||||||
add ax, bx
|
|
||||||
|
|
||||||
add al, ah
|
|
||||||
xor ah, ah
|
|
||||||
|
|
||||||
pop cx
|
|
||||||
pop bx
|
|
||||||
ret
|
|
||||||
@ -1,32 +0,0 @@
|
|||||||
; important functions in this file: kprintf
|
|
||||||
|
|
||||||
; print a word
|
|
||||||
; in: ax
|
|
||||||
print16:
|
|
||||||
xchg ah,al
|
|
||||||
call print8
|
|
||||||
xchg ah,al
|
|
||||||
|
|
||||||
; print a byte
|
|
||||||
; in: al
|
|
||||||
print8:
|
|
||||||
push ax ; avoid destroying ah
|
|
||||||
push bx
|
|
||||||
xor bx, bx
|
|
||||||
aam 16 ; high nibble moved into ah, low nibble into al
|
|
||||||
add ax, 0x3030
|
|
||||||
push ax
|
|
||||||
xchg al, ah
|
|
||||||
call .nib
|
|
||||||
pop ax
|
|
||||||
call .nib
|
|
||||||
pop bx
|
|
||||||
pop ax
|
|
||||||
ret
|
|
||||||
.nib:
|
|
||||||
cmp al, 0x3a
|
|
||||||
jl .out
|
|
||||||
add al, 0x07
|
|
||||||
.out:
|
|
||||||
call putc
|
|
||||||
ret
|
|
||||||
105
lib/printf.asm
105
lib/printf.asm
@ -1,105 +0,0 @@
|
|||||||
printf:
|
|
||||||
cld
|
|
||||||
pop si
|
|
||||||
push bp
|
|
||||||
mov bp, sp
|
|
||||||
.loop:
|
|
||||||
mov al, [cs:si]
|
|
||||||
inc si
|
|
||||||
cmp al, 0x00
|
|
||||||
je .end
|
|
||||||
cmp al, 0x25
|
|
||||||
je .handle_25h
|
|
||||||
.literal:
|
|
||||||
call putc
|
|
||||||
jmp .loop
|
|
||||||
.end:
|
|
||||||
pop bp
|
|
||||||
push si
|
|
||||||
ret
|
|
||||||
.handle_25h:
|
|
||||||
mov al, [cs:si]
|
|
||||||
inc si
|
|
||||||
cmp al, 0x25
|
|
||||||
je .literal
|
|
||||||
cmp al, 0x58 ; 'X'
|
|
||||||
je .printhex
|
|
||||||
cmp al, 0x55 ; 'U'
|
|
||||||
je .printdec
|
|
||||||
cmp al, 0x53 ; 'S'
|
|
||||||
je .printstr
|
|
||||||
mov al, 0x3F
|
|
||||||
jmp .literal
|
|
||||||
.printhex:
|
|
||||||
add bp, 2
|
|
||||||
mov ax, [bp]
|
|
||||||
mov bx, 0x0010
|
|
||||||
call print_number
|
|
||||||
jmp .loop
|
|
||||||
.printdec:
|
|
||||||
add bp, 2
|
|
||||||
mov ax, [bp]
|
|
||||||
mov bx, 0x000A
|
|
||||||
call print_number
|
|
||||||
jmp .loop
|
|
||||||
.printstr:
|
|
||||||
add bp, 2
|
|
||||||
mov ax, [bp]
|
|
||||||
call print_string
|
|
||||||
jmp .loop
|
|
||||||
|
|
||||||
; converts a integer to ascii
|
|
||||||
; in ax input integer
|
|
||||||
; bx base
|
|
||||||
; cx minimum number of digits
|
|
||||||
; out bx garbled
|
|
||||||
; dx garbled
|
|
||||||
print_number_padded:
|
|
||||||
xor dx, dx
|
|
||||||
div bx
|
|
||||||
push dx
|
|
||||||
dec cx
|
|
||||||
jz .nopad
|
|
||||||
call print_number_padded
|
|
||||||
jmp print_number.end
|
|
||||||
.nopad:
|
|
||||||
call print_number
|
|
||||||
jmp print_number.end
|
|
||||||
|
|
||||||
; converts a integer to ascii
|
|
||||||
; in ax input integer
|
|
||||||
; bx base
|
|
||||||
; out bx garbled
|
|
||||||
; dx garbled
|
|
||||||
print_number:
|
|
||||||
xor dx, dx
|
|
||||||
div bx ; ax = dx:ax / 10, dx = dx:ax % 10
|
|
||||||
push dx
|
|
||||||
and ax, ax
|
|
||||||
jz .end
|
|
||||||
call print_number
|
|
||||||
.end:
|
|
||||||
pop bx
|
|
||||||
xor bh, bh
|
|
||||||
add bx, print_chars
|
|
||||||
mov al, [cs:bx]
|
|
||||||
call putc
|
|
||||||
ret
|
|
||||||
|
|
||||||
; putc's a string
|
|
||||||
; in DS:AX null-terminated string
|
|
||||||
print_string:
|
|
||||||
push si
|
|
||||||
mov si, ax
|
|
||||||
.loop:
|
|
||||||
lodsb
|
|
||||||
cmp al, 0x00
|
|
||||||
je .end
|
|
||||||
call putc
|
|
||||||
jmp .loop
|
|
||||||
.end:
|
|
||||||
pop si
|
|
||||||
ret
|
|
||||||
|
|
||||||
print_chars:
|
|
||||||
db "0123456789ABCDEF"
|
|
||||||
Loading…
Reference in New Issue
Block a user