Retro/pcjs
Watch
1
0
Fork
You've already forked pcjs
 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Updated README

Browse source
This commit is contained in:
Jeff Parsons 2016-08-14 13:33:01 -07:00
commit e9fe6515ab
3 changed files with 4655 additions and 4650 deletions
Download patch file Download diff file Expand all files Collapse all files

2
README.md
View file

@ -6,7 +6,7 @@ one of several JavaScript Machines in the [PCjs Project](https://github.com/jeff
includes: includes:
* [PCx86](/docs/pcx86/), an x86-based IBM PC and PC-compatible emulator * [PCx86](/docs/pcx86/), an x86-based IBM PC and PC-compatible emulator
* [PC8080](/modules/pc8080/), a 8080-based machine emulator (e.g., [Space Invaders](/devices/pc8080/machine/invaders/)) * [PC8080](/modules/pc8080/), a 8080-based machine emulator (e.g., [Space Invaders](/devices/pc8080/machine/invaders/), [VT100](pc8080/machine/vt100/))
* [C1Pjs](/docs/c1pjs/), a 6502-based emulation of the Ohio Scientific [Challenger 1P](/devices/c1p/) * [C1Pjs](/docs/c1pjs/), a 6502-based emulation of the Ohio Scientific [Challenger 1P](/devices/c1p/)
All PCjs computer simulations are written entirely in [JavaScript](/modules/). No Flash, Java or other plugins are All PCjs computer simulations are written entirely in [JavaScript](/modules/). No Flash, Java or other plugins are

81
devices/pc8080/rom/vt100/VT100.asm
View file

@ -13,6 +13,21 @@
; ;
stack_top equ 204eh stack_top equ 204eh
scratch_start equ 204eh scratch_start equ 204eh
;
; The "Keys Flag Byte/Buffer" at 0x2068 contains the following bits:
;
; 0-1 Key counter
; 2 Key counter overflow bit
; 3 Setup
; 4 Control
; 5 Shift
; 6 Caps Lock
; 7 Last Key
;
key_flags equ 2068h ; "Keys Flag Buffer"
key_buffer equ 206ah ; start of the "three place New Key Address Buffer"
cursor_countdn equ 212dh cursor_countdn equ 212dh
cursor_visible equ 21bah cursor_visible equ 21bah
@ -21,7 +36,7 @@ cursor_visible equ 21bah
; ;
org 0 org 0
di di
lxi sp,stack_top ; SP = 0x204e lxi sp,stack_top ; SP = 0x204e
jmp reset jmp reset
; ;
; Interrupt vector 0x1 for Keyboard ; Interrupt vector 0x1 for Keyboard
@ -196,7 +211,7 @@ X00e0: out 82h
; Done "beeping" now ; Done "beeping" now
; ;
X00e8: out 82h ; A = 0, so all LEDs off now X00e8: out 82h ; A = 0, so all LEDs off now
lda X2068 lda key_flags
ora a ora a
jm X00f5 jm X00f5
mov a,d mov a,d
@ -207,18 +222,18 @@ X00f5: push d
; ;
; The next call issues the following: ; The next call issues the following:
; ;
; 03A2 CD8103 CALL 0381 ;stack=204A ; 03A2 CD8103 CALL 0381 ;stack=204A
; 0B67 CDAD10 CALL 10AD ;stack=2048 ; 0B67 CDAD10 CALL 10AD ;stack=2048
; chipset.outPort(0x00A2,DC012,0x00) at 10BD ; chipset.outPort(0x00A2,DC012,0x00) at 10BD
; chipset.outPort(0x00A2,DC012,0x04) at 10C1 ; chipset.outPort(0x00A2,DC012,0x04) at 10C1
; ;
; and then: ; and then:
; ;
; 03A2 CD8103 CALL 0381 ;stack=204A ; 03A2 CD8103 CALL 0381 ;stack=204A
; 0B67 CDAD10 CALL 10AD ;stack=2048 ; 0B67 CDAD10 CALL 10AD ;stack=2048
; 10C9 CDAA0F CALL 0FAA ;stack=2046 ; 10C9 CDAA0F CALL 0FAA ;stack=2046
; 0FB6 CC8814 CALLZ 1488 ;stack=2040 ; 0FB6 CC8814 CALLZ 1488 ;stack=2040
; 1488 CD9314 CALL 1493 ;stack=203E ; 1488 CD9314 CALL 1493 ;stack=203E
; chipset.inPort(0x0042,FLAGS.BUFFER): 0x60 at 1493 ; chipset.inPort(0x0042,FLAGS.BUFFER): 0x60 at 1493
; ;
; Note that once we're inside 0FAA, that appears to be where we stay. ; Note that once we're inside 0FAA, that appears to be where we stay.
@ -230,16 +245,6 @@ X00f5: push d
; ;
; Keyboard interrupt handler ; Keyboard interrupt handler
; ;
; The "Keys Flag Byte/Buffer" at 0x2068 contains the following bits:
;
; 0-1 Key counter
; 2 Key counter overflow bit
; 3 Setup
; 4 Control
; 5 Shift
; 6 Caps Lock
; 7 Last Key
;
X00fd: push psw X00fd: push psw
in 82h ;; Read from keyboard port in 82h ;; Read from keyboard port
push h push h
@ -254,18 +259,18 @@ X00fd: push psw
X010d: rlc X010d: rlc
dcr h dcr h
jnz X010d jnz X010d
lxi h,X2068 ;; load keys flag addresss lxi h,key_flags ;; load keys flag addresss
ora m ;; or in control bit ora m ;; or in control bit
mov m,a ;; store again mov m,a ;; store again
jmp X012d ;; jump to end to interrupt jmp X012d ;; jump to end to interrupt
X011a: lxi h,X2068 ;; load keys flag address X011a: lxi h,key_flags ;; load keys flag address
mvi a,7 mvi a,7
ana m ;; load key counter ana m ;; load key counter
cpi 4 ;; if overflow.. (>3 keys) cpi 4 ;; if overflow.. (>3 keys)
jp X012d ;; discard keypress and end interrupt jp X012d ;; discard keypress and end interrupt
inr m ;; otherwise increment key counter inr m ;; otherwise increment key counter
lxi h,X206a ;; load key address buffer? lxi h,key_buffer ;; load key address buffer
call X13de ;; add key counter to address buffer call X13de ;; add key counter to address buffer
mov m,b ;; save key to address buffer mov m,b ;; save key to address buffer
X012d: pop b X012d: pop b
@ -352,7 +357,7 @@ X01c3: lxi h,X0815
rnz rnz
call X0853 call X0853
lxi b,X020e lxi b,X020e
lxi h,X2068 lxi h,key_flags
mov a,m mov a,m
ani 10h ani 10h
jnz X0900 jnz X0900
@ -480,7 +485,7 @@ X02c0: call X0a15 ;; 0x2140 = 0xe605
lxi h,2000h ;; HL = 0x2000 lxi h,2000h ;; HL = 0x2000
lxi d,X02d9 ;; DE = 0x02d9 lxi d,X02d9 ;; DE = 0x02d9
mvi b,12h ;; B = 18 mvi b,12h ;; B = 18
call memmov ;; copy 18 bytes from 0x02d9 to 0x2000 call memmove ;; copy 18 bytes from 0x02d9 to 0x2000
lxi h,X3000 ;; HL = 0x3000 lxi h,X3000 ;; HL = 0x3000
lxi d,X1000 ;; DE = 0x1000 lxi d,X1000 ;; DE = 0x1000
mvi b,0ffh ;; B = 0xFF mvi b,0ffh ;; B = 0xFF
@ -573,15 +578,15 @@ X0381: lda X21a2
jz X0b63 jz X0b63
jmp X0b77 jmp X0b77
;; ;;
;; Performs a memmove(HL,DE,B) ;; memmove(0x038b): Move B bytes at DE to HL
;; ;;
memmov: memmove:
X038b: ldax d ;; Load memory at DE into accumulator ldax d ;; Load memory at DE into accumulator
mov m,a ;; Store it at HL mov m,a ;; Store it at HL
inx h ;; HL++ inx h ;; HL++
inx d ;; DE++ inx d ;; DE++
dcr b ;; B-- dcr b ;; B--
jnz X038b ;; until B is zero jnz memmove ;; until B is zero
ret ret
X0394: lda X21a5 X0394: lda X21a5
@ -988,7 +993,7 @@ X06a7: mov a,d
ora a ora a
ret ret
X06aa: lda X2068 ; A <- [Keys flag buffer] X06aa: lda key_flags ; A <- [Keys flag buffer]
mov e,a mov e,a
ani 80h ; bit 7 set? ani 80h ; bit 7 set?
rz ; return if not rz ; return if not
@ -1012,7 +1017,7 @@ X06ca: mov a,m
push h push h
push b push b
mvi b,3 mvi b,3
lxi h,X206a lxi h,key_buffer
X06d6: cmp m X06d6: cmp m
jz X06df jz X06df
inx h inx h
@ -1082,7 +1087,7 @@ X0743: pop h
X0747: mov a,c X0747: mov a,c
cpi 4 cpi 4
rp rp
lxi b,X206a lxi b,key_buffer
X074e: lxi h,X206e X074e: lxi h,X206e
X0751: mov a,m X0751: mov a,m
ora a ora a
@ -1216,7 +1221,7 @@ X0838: lda X2150
mvi a,0e1h mvi a,0e1h
sta X2072 sta X2072
X0841: xra a X0841: xra a
lxi h,X2068 lxi h,key_flags
mov d,m mov d,m
mov m,a mov m,a
inx h inx h
@ -1889,7 +1894,7 @@ X0c62: lxi h,X05ad
lxi h,X20f8 lxi h,X20f8
lxi d,X2102 lxi d,X2102
X0c77: mvi b,0bh X0c77: mvi b,0bh
call memmov call memmove
jmp X1636 jmp X1636
lxi h,X0c8a lxi h,X0c8a
@ -3634,7 +3639,7 @@ X17ac: mov a,c
X17be: lxi d,X17ec ;; DE = 0x17ec X17be: lxi d,X17ec ;; DE = 0x17ec
mvi b,7 ;; B = 7 mvi b,7 ;; B = 7
lxi h,X21cc ;; HL = 0x21cc lxi h,X21cc ;; HL = 0x21cc
call memmov ;; Initialize 0x21cc to Wait message call memmove ;; Initialize 0x21cc to Wait message
lxi h,Xcc71 ;; HL = 0xcc71 lxi h,Xcc71 ;; HL = 0xcc71
shld X2004 ;; retarget screen ram to display wait message shld X2004 ;; retarget screen ram to display wait message
ret ret
@ -3647,7 +3652,7 @@ X17d5: mvi m,80h
jnz X17d5 jnz X17d5
lxi d,X17f3 ;; DE = 0x17f3 lxi d,X17f3 ;; DE = 0x17f3
mvi b,0bh ;; B = 11 mvi b,0bh ;; B = 11
call memmov ;; store call memmove ;; store
mvi c,1 mvi c,1
mvi a,30h mvi a,30h
sta X2078 sta X2078
@ -4431,7 +4436,7 @@ X1d56: db 20h
db 20h db 20h
X1d61: mov c,a X1d61: mov c,a
mvi b,0bh mvi b,0bh
call memmov call memmove
mov a,c mov a,c
rrc rrc
rrc rrc
@ -4446,7 +4451,7 @@ X1d61: mov c,a
dad b dad b
xchg xchg
mvi b,5 mvi b,5
jmp memmov jmp memmove
X1d7c: db 20h X1d7c: db 20h
db 20h db 20h
@ -4833,9 +4838,7 @@ X205b equ 205bh
X205c equ 205ch X205c equ 205ch
X2065 equ 2065h X2065 equ 2065h
X2067 equ 2067h X2067 equ 2067h
X2068 equ 2068h ; Keys flag buffer
X2069 equ 2069h X2069 equ 2069h
X206a equ 206ah ; Start of the "three place New Key Address Buffer"
X206e equ 206eh X206e equ 206eh
X2072 equ 2072h X2072 equ 2072h
X2073 equ 2073h X2073 equ 2073h

8890
devices/pc8080/rom/vt100/VT100.lst
View file

File diff suppressed because it is too large Load diff