Commit: 31e900017e6056bf05c9d2ff630455ea211b42b2 - jmr6809bos (git)

学生時代に書いた OS になったはずの起点のソースコードです。(その授業は一応合格できました。)

Commit MetaInfo

• Revision: 31e900017e6056bf05c9d2ff630455ea211b42b2 (tree)
• Zeit: 2013-07-08 13:41:26
• Autor: Joel Matthew Rees <reiisi@user...>
• Commiter: Joel Matthew Rees

Log Message

I think this was getting keyboard translation sort of running.

Ändern Zusammenfassung

• delete: OSCLOCK5.AS9 => OSKEYT2.AS9

Diff

--- a/OSCLOCK5.AS9
+++ b/OSKEYT2.AS9
@@ -3,7 +3,6 @@
 00100 * SYSGLO MUST BE ON EVEN PAGE (256 BYTE) BOUNDARY
 00105 IVSAVE	RMB 2	IRQ VECTOR FOR RETURN TO EDTASM
 00106 SVSAVE	RMB 2	SWI VECTOR FOR RETURN TO EDTASM
-00107 S3SAVE RMB 2	SWI3 VECTOR FOR RETURN TO EDTASM
 00110 HASTY	RMB 1	ABBREVIATE IRQ (TIMER) SERVICE?
 00120 SLICEL	FCB 10	LIMIT OF TICKS/SLICE
 00130 SLICE	RMB 1	COUNT OF TICKS REMAINING IN THIS SLICE
@@ -11,6 +10,14 @@
 00150 SYSERR	FDB 0
 00160 CURPRO	FCB 0
 00170 PROCIX	FDB 0	ADDRESS OF ENTRY IN PROTBL
+00180 SPEED	FCB 0	COPY OF CURRENT PROCESS' PROCRT
+00190 WINDIX	FCB 0	POINTER TO CURRENT WINDOW
+00200 SYSATT	FCB 0	OPERATOR REQUEST FOR SYSTEM ATTENTION
+00500 KEYOLD	RMB 8	KEYBOARD SCAN TABLES
+00510 KEYSCN	RMB 8	OLD AND SCAN ARE NEGATIVE LOGIC
+00520 KEYCHG	RMB 8	POSITIVE LOGIC FOR CHANGES IN LAST SLICE
+00550 KEYIN	FDB KEYBUF
+00560 KEYOUT	FDB KEYBUF
 00600 YRBASE	FDB 1900
 00610 YEAR	FCB 87
 00620 MONTH	FCB 4
@@ -46,7 +53,73 @@
 01040 	FCB 0	NO DAYS
 01050 	FCB 0	IN MO.
 01060 	FCB 0	13-15 (FOR AUTO-RESTORING)
-01500 PROTBL	EQU *	P0 IS IDLE PROCESS
+01070 *
+01080 * KEYBOARD SCAN CODES
+01090 KEYTBL	FCB $60
+01100 	FCC 'abcdefghijklmnopqrstuvwxyz'
+01110 	FCB $13
+01120 	FCB $0A
+01130 	FCB 8
+01140 	FCB 9
+01150 	FCC ' 0123456789:;,-./'
+01160 	FCB $0D
+01170 	FCB KMT
+01180 	FCB 3
+01190 	FCB KMT
+01200 	FCB KMT
+01205 	FCB KMT
+01210 	FCB KMT
+01215 	FCB KMT
+01220 KEYSHF	FCC /@ABCDEFGHIJKLMNOPQRSTUVWXYZ/
+01230 	FCB $5E
+01240 	FCB '[
+01250 	FCB $5F
+01260 	FCC /] \!"#$%&'()*+<=>?/
+01270 	FCB $0C
+01280 	FCB 1
+01290 	FCB $7F
+01291 	FCB KMT
+01292 	FCB KMT
+01293 	FCB KMT
+01294 	FCB KMT
+01295 	FCB KMT
+01300 KEYCTL	FDB 1
+01304 	FDB $203
+01308 	FDB $405
+01312 	FDB $607
+01316 	FDB $809
+01320 	FDB $0A0B
+01324 	FDB $0C0D
+01328 	FDB $0E0F
+01332 	FDB $1011
+01336 	FDB $1213
+01340 	FDB $1415
+01344 	FDB $1617
+01348 	FDB $1819
+01352 	FDB $1A1B
+01356 	FDB $1C1D
+01360 	FDB $1E1F
+01364 	FDB $8081
+01368 	FDB $8283
+01372 	FDB $8485
+01376 	FDB $8687
+01380 	FDB $8889
+01384 	FDB $7C8B
+01388 	FDB $7B7E
+01392 	FDB $7D8F
+01396 	FCB $8A
+01400 	FCB KMT
+01404 	FCB KBREAK
+01408 	FCB KMT
+01412 	FCB KMT
+01416 	FCB KMT
+01420 	FCB KMT
+01424 	FCB 1
+01428 *
+01450 KEYBUF	RMB 129
+01460 KEYEND	FDB 0	SAFETY
+01500 NUMPRO	EQU 16
+01505 PROTBL	EQU *	P0 IS IDLE PROCESS
 01510 PROCSP	EQU *-PROTBL	SYSTEM STACK POINTER IN SUSPENSE
 01520 	FDB IDLESP
 01530 PROCSB	EQU *-PROTBL	SYSTEM STACK BASE
@@ -66,7 +139,7 @@
 01960 PROCRT	EQU *-PROTBL	OVERDRIVE (2X) CLOCK RATE FLAG
 01970 	FCB 0
 01980 PROSIZ	EQU *-PROTBL	SIZE OF PROCESS TABLE
-01990 	RMB 19*PROSIZ
+01990 	RMB (NUMPRO-1)*PROSIZ
 02000 *
 02010 CARRY	EQU 1	FLAG BIT
 02020 TIMOVR	EQU $8000
@@ -75,10 +148,31 @@
 02050 KEYCOL	EQU $FF02
 02060 IRQVEC	EQU $10D
 02065 SWIVEC	EQU $107
-02068 SW3VEC	EQU $101
 02070 VIDMOD	EQU $FF22
 02080 BSOUND	EQU 2
 02090 OVRDRV	EQU $FFD9
+02100 KBREAK	EQU $E0
+02110 KMT	EQU $F0
+02120 SCRWID	EQU 32
+02130 VSPACE	EQU $60	MC6847
+02500 NUMWIN	EQU 8
+02502 WINTBL	EQU *
+02504 WSCR	EQU *-WINTBL
+02506 	FCB 2
+02510 WLCOL	EQU *-WINTBL
+02520 	FCB 13
+02530 WRCOL	EQU *-WINTBL
+02540 	FCB 31
+02550 WTROW	EQU *-WINTBL
+02560 	FCB 0
+02570 WBROW	EQU *-WINTBL
+02580 	FCB 0
+02590 WCURCL	EQU *-WINTBL
+02600 	FCB 0
+02610 WCURRW	EQU *-WINTBL
+02620 	FCB 0
+02700 WINSIZ	EQU *-WINTBL
+02710 	RMB (NUMWIN-1)*WINSIZ
 02900 KSTACO	FDB 0
 02910 	RMB $100	KERNEL'S STACK
 02920 KSTACK	EQU *
@@ -185,7 +279,127 @@
 03880 	LDD #TIMOVR
 03890 	STD SYSERR
 03900 *
-03910 KEYRD	TST KEYCOL
+03910 KEYRD	LDA KEYROW+1	CONTROL/STATUS REGISTER
+03920 	ANDA #.NOT.4	SELECT DATA DIRECTION REGISTER
+03930 	STA KEYROW+1
+03940 	CLRB	0-7 INPUT
+03950 	STB KEYROW
+03960 	ORA #4	SELECT DATA REGISTER
+03970 	STA KEYROW+1
+03980 	LDA KEYCOL+1
+03990 	ANDA #.NOT.4
+04000 	STA KEYCOL+1
+04010 	COMB	ALL OUT
+04020 	STB KEYCOL
+04030 	ORA #4
+04040 	STA KEYCOL+1
+04050 	STB KEYCOL
+04060 	LEAY KEYSCN,PCR
+04070 	LDX #8	LIMIT SCAN LOOP
+04080 	ANDCC #.NOT.CARRY
+04090 KYSCAN	ROL KEYCOL	TO LS BIT
+04100 	LDA KEYROW
+04110 	ORA #$80	MASK JOYSTICK COMP BIT
+04120 	TFR A,B
+04130 	COMA	POSITIVE LOGIC
+04140 	ANDA ,Y	NEW BIT AND NOT OLD BIT?
+04150 	STA KEYCHG-KEYSCN,Y	SAVE NEWLY SET BITS
+04160 	STB ,Y+	SAVE NEW STATE
+04170 	LEAX -1,X
+04180 	ORCC #CARRY	FOR SCAN
+04190 	BNE KYSCAN	COUNTED OUT?
+04200 *
+04210 * SCAN FOR PHANTOMS
+04220 	LEAY KEYOLD,PCR
+04230 	LDB #7	COLUMN COUNT TO SCAN
+04240 KYSCNS	LDA KEYSCN-KEYOLD,Y	GET SCANNED KEYS
+04250 	COMA	+ LOGIC
+04260 	BEQ KYNSCN
+04270 	LSRA
+04280 	BCC *-1	FIND A KEY
+04290 	BEQ KYNSCN	MORE THAN ONE KEY?
+04300 	LEAX KEYSCN-KEYOLD,Y	SCAN FOR DUPLICATED BITS
+04310 	PSHS B
+04320 	LDA ,X+	SCAN CODE (AGAIN)
+04330 KYPHML	CMPA ,X+	DUPLICATED?
+04340 	BNE KYNPHM
+04350 	CLR KEYCHG-KEYSCN-1,X	NO CHANGES SEEN
+04360 	LDA KEYOLD-KEYSCN-1,X	HOLDOVER SCAN
+04370 	STA -1,X
+04380 	CLR KEYCHG-KEYOLD,Y	UNDO BOTH
+04390 KYNPHM	DECB
+04400 	BNE KYPHML
+04410 	PULS B	RESTORE COUNT
+04420 	TST KEYCHG-KEYOLD,Y	BITS CLEARED?
+04430 	BNE KYNSCN
+04440 	LDA ,Y+	CLEAR MATCHED BITS, ALSO
+04450 	STA KEYSCN-KEYOLD-1,Y
+04460 	BRA KYYSCN
+04470 KYNSCN	LDA KEYSCN-KEYOLD,Y	UPDATE OLD STATE
+04480 	STA ,Y+
+04490 KYYSCN	DECB	NEXT COL
+04500 	BNE KYSCNS
+04510 *
+04520 * TRANSLATE KEYS
+04530 	LEAY KEYSCN,PCR
+04540 	LDA #$40	ROW 6
+04550 	BITA 1,Y
+04560 	BEQ KYCTRL	NEGATIVE LOGIC
+04570 	BITA 7,Y
+04580 	BEQ KYSHFT
+04590 	LEAX KEYTBL,PCR	UNSHIFTED KEYS
+04600 	BRA KYTRAN
+04610 KYCTRL	LEAX KEYCTL,PCR
+04620 	BRA KYTRAN
+04630 KYSHFT	LEAX KEYSHF,PCR
+04640 KYTRAN	LDB #7	MAX COL
+04650 	LEAY KEYCHG,PCR
+04660 KYTRLP	LDA B,Y	COL BITS
+04670 	BEQ KYTRAL
+04680 	PSHS B
+04690 	LDB #-1	ROW COUNT
+04700 KYTBIT	INCB	COUNT BIT
+04710 	LSRA
+04720 	BCC KYTBIT
+04730 	PSHS A,B
+04740 	ASLB
+04750 	ASLB
+04760 	ASLB	B*8
+04770 	ADDB 2,S	B+COLUMNS
+04780 	LDA B,X
+04790 	BPL KYTRKY	STRAIGHT CODE
+04800 	CMPA #KMT	NO KEY DEFINED?
+04810 	BEQ KYTRNK
+04820 	CMPA #KBREAK	SYS REQ?
+04830 	BNE KYTRKY
+04840 	STA SYSATT
+04850 	BRA KYTRNK
+04860 KYTRKY	PSHS X
+04870 *BUFFER READ MUST ALSO BE UNINTERRUPTIBLE (SINGLE MPU)
+04880 	LDX KEYOUT
+04890 	PSHS X	FULL TEST
+04900 	LEAX KEYEND,PCR
+04910 	PSHS X	WRAP TEST
+04920 	LDX KEYIN
+04930 	STA ,X+
+04940 	CMPX ,S++
+04950 	BLO KYTRKN
+04960 	LEAX KEYBUF,PCR
+04970 KYTRKN	CMPX ,S++
+04980 	BNE KYTRKK
+04990 	LDA #12
+05000 	ADDA BEEP
+05010 	STA BEEP
+05020 	BRA KYTRKF	DROP KEY
+05030 KYTRKK	STX KEYIN
+05040 KYTRKF	PULS X
+05050 KYTRNK	PULS A,B	ROW PATTERN, COUNT
+05060 	TSTA	MORE ROWS?
+05070 	BNE KYTBIT
+05080 	PULS B
+05090 KYTRAL	DECB	NEXT COL
+05100 	BPL KYTRLP
+05110 *
 10000 *
 10003 * OTHER HALF OF 60 HZ BEL
 10005 	LDA BEEP
@@ -339,143 +553,6 @@
 16920 	JSR [A,Y]
 16930 	RTI
 16940 *
-17000 * Z IS UNDEFINED HANDLER
-17010 CA3TBL	FDB Z
-17020 	FDB Z
-17030 	FDB Z
-17040 	FDB Z
-17050 	FDB Z
-17060 	FDB Z
-17070 	FDB Z
-17080 	FDB Z
-17090 	FDB Z
-17100 	FDB Z
-17110 	FDB Z
-17120 	FDB Z
-17130 	FDB Z
-17140 	FDB Z
-17150 	FDB Z
-17160 	FDB Z
-17170 	FDB Z
-17180 	FDB Z
-17190 	FDB Z
-17200 	FDB Z
-17210 	FDB Z
-17220 	FDB Z
-17230 	FDB Z
-17240 	FDB Z
-17250 	FDB Z
-17260 	FDB Z
-17270 	FDB Z
-17280 	FDB Z
-17290 	FDB Z
-17300 	FDB Z
-17310 	FDB Z
-17320 	FDB Z
-17330 	FDB Z
-17340 	FDB Z
-17350 	FDB Z
-17360 	FDB Z
-17370 	FDB Z
-17380 	FDB Z
-17390 	FDB Z
-17400 	FDB Z
-17410 	FDB Z
-17420 	FDB Z
-17430 	FDB Z
-17440 	FDB Z
-17450 	FDB Z
-17460 	FDB Z
-17470 	FDB Z
-17480 	FDB Z
-17490 	FDB Z
-17500 	FDB Z
-17510 	FDB Z
-17520 	FDB Z
-17530 	FDB Z
-17540 	FDB Z
-17550 	FDB Z
-17560 	FDB Z
-17570 	FDB Z
-17580 	FDB Z
-17590 	FDB Z
-17600 	FDB Z
-17610 	FDB Z
-17620 	FDB Z
-17630 	FDB Z
-17640 	FDB Z
-17650 	FDB Z
-17660 	FDB Z
-17670 	FDB Z
-17680 	FDB Z
-17690 	FDB Z
-17700 	FDB Z
-17710 	FDB Z
-17720 	FDB Z
-17730 	FDB Z
-17740 	FDB Z
-17750 	FDB Z
-17760 	FDB Z
-17770 	FDB Z
-17780 	FDB Z
-17790 	FDB Z
-17800 	FDB Z
-17810 	FDB Z
-17820 	FDB Z
-17830 	FDB Z
-17840 	FDB Z
-17850 	FDB Z
-17860 	FDB Z
-17870 	FDB Z
-17880 	FDB Z
-17890 	FDB Z
-17900 	FDB Z
-17910 	FDB Z
-17920 	FDB Z
-17930 	FDB Z
-17940 	FDB Z
-17950 	FDB Z
-17960 	FDB Z
-17970 	FDB Z
-17980 	FDB Z
-17990 	FDB Z
-18000 	FDB Z
-18010 	FDB Z
-18020 	FDB Z
-18030 	FDB Z
-18040 	FDB Z
-18050 	FDB Z
-18060 	FDB Z
-18070 	FDB Z
-18080 	FDB Z
-18090 	FDB Z
-18100 	FDB Z
-18110 	FDB Z
-18120 	FDB Z
-18130 	FDB Z
-18140 	FDB Z
-18150 	FDB Z
-18160 	FDB Z
-18170 	FDB Z
-18180 	FDB Z
-18190 	FDB Z
-18200 	FDB Z
-18210 	FDB Z
-18220 	FDB Z
-18230 	FDB Z
-18240 	FDB Z
-18250 	FDB Z
-18260 	FDB Z
-18270 	FDB Z
-18280 	FDB Z
-18290 * 128 ENTRIES -> NO BOUNDS CHECK ON CALL NUMBER
-18300 * SWI3 DOES NOT DISABLE IRQ
-18310 SW3SRV	LEAY CA3TBL,PCR
-18320 	PULU A	CALL #
-18330 	ASLA	WORD ADR
-18340 	JSR [A,Y]
-18350 	RTI
-18360 * USING SUBROUTINE LINKAGE ALLOWS CALL BY JSR [CA3TBL+N*2,PCR]
 20000 *
 20010 CLICK	PSHS A
 20020 	LDA VIDMOD
@@ -514,12 +591,26 @@
 50260 	STD SVSAVE,PCR
 50270 	LDD #SWISRV
 50280 	STD SWIVEC
-50290 	LDD SW3VEC	SET UP SYSTEM CALLS - SWI3
-50300 	STD S3SAVE,PCR
-50310 	LDD #SW3SRV
-50320 	STD SW3VEC
 50330 *
-54900 WAITIQ	CWAI #.NOT.IRQMSK
+50340 	LEAY SYSGLO,PCR
+50350 	TFR Y,D
+50360 	TFR A,DP
+50370 	SETDP SYSGLO/256
+50380 	LEAY KEYEND,PCR
+50390 	PSHS Y
+50400 	ANDCC #.NOT.IRQMSK
+50410 WAITIQ	LDX KEYOUT
+50420 	CMPX KEYIN
+50430 	BEQ WAITIQ
+50440 	ORCC #IRQMSK
+50450 	LDX KEYOUT
+50460 	LDA ,X+
+50470 	CMPX ,S
+50480 	BLO WAITBF
+50490 	LEAX KEYBUF,PCR
+50500 WAITBF	STX KEYOUT
+50510 	ANDCC #.NOT.IRQMSK
+50520 	STA $400
 54910 	BRA WAITIQ
 55990 *
 56000 	FDB 0