提交: 9518b6d6db9c37367ef560505d64f3b1d1396057 - jmr6809bos (git)

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

Commit MetaInfo

• 修訂: 9518b6d6db9c37367ef560505d64f3b1d1396057 (tree)
• 時間: 2013-07-08 13:37:33
• 作者: Joel Matthew Rees <reiisi@user...>
• Commiter: Joel Matthew Rees

Log Message

I think this was where I got basic clock/calendar functionality sort of working.

Change Summary

• add: OSCLOCK5.AS9
• delete: TIMKEY.AS9

差異

--- /dev/null
+++ b/OSCLOCK5.AS9
@@ -0,0 +1,535 @@
+00080 	ORG $4000
+00090 SYSGLO	EQU *
+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
+00140 BEEP	FCB 255 RMB 1	COUNT OF TICKS LEFT TO BEEP
+00150 SYSERR	FDB 0
+00160 CURPRO	FCB 0
+00170 PROCIX	FDB 0	ADDRESS OF ENTRY IN PROTBL
+00600 YRBASE	FDB 1900
+00610 YEAR	FCB 87
+00620 MONTH	FCB 4
+00630 DAY	FCB 1
+00640 HOUR	FCB 0
+00650 MINUTE	FCB 0
+00660 SECOND	FCB 0
+00670 TICK	FCB 0
+00800 * 64 POTENTIAL LEAP YEARS IN BIT MAP (FASTER THAN DIVIDE)
+00810 LYRTBL	FCB $FE	YEAR 1900
+00820 	FCB $FF
+00830 	FCB $FF
+00840 	FCB $FF	YEAR 2000
+00850 	FCB $FF
+00860 	FCB $FF
+00870 	FCB $FB	YEAR 2100
+00880 	FCB $FF
+00890 *
+00900 * TABLE OF DAYS IN MONTHS
+00910 MONTBL	FCB 0	NO DAYS IN MONTH ZERO
+00920 	FCB 31
+00930 	FCB 28
+00940 	FCB 31
+00950 	FCB 30
+00960 	FCB 31
+00970 	FCB 30
+00980 	FCB 31	JULY
+00990 	FCB 31	AUGUST
+01000 	FCB 30
+01010 	FCB 31
+01020 	FCB 30
+01030 	FCB 31
+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
+01510 PROCSP	EQU *-PROTBL	SYSTEM STACK POINTER IN SUSPENSE
+01520 	FDB IDLESP
+01530 PROCSB	EQU *-PROTBL	SYSTEM STACK BASE
+01540 	FDB IDLESP
+01542 PROCSL	EQU *-PROTBL	SYSTEM STACK LIMIT
+01544 	FDB IDLESL
+01550 PROCUB	EQU *-PROTBL	USER STACK BASE
+01560 	FDB IDLEUB
+01562 PROCUL	EQU *-PROTBL	USER (PARAMETER) STACK LIMIT
+01564 	FDB IDLEUL
+01570 PROCBA	EQU *-PROTBL	BOTTOM OF PROCESS IMAGE
+01580 	FDB O	START UP
+01590 PROCLI	EQU *-PROTBL	TOP OF PROCESS IMAGE
+01600 	FDB IDLLIM
+01940 PROCST	EQU *-PROTBL	PROCESS STATE
+01950 	FCB 0
+01960 PROCRT	EQU *-PROTBL	OVERDRIVE (2X) CLOCK RATE FLAG
+01970 	FCB 0
+01980 PROSIZ	EQU *-PROTBL	SIZE OF PROCESS TABLE
+01990 	RMB 19*PROSIZ
+02000 *
+02010 CARRY	EQU 1	FLAG BIT
+02020 TIMOVR	EQU $8000
+02030 IRQMSK	EQU $10
+02040 KEYROW	EQU $FF00
+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
+02900 KSTACO	FDB 0
+02910 	RMB $100	KERNEL'S STACK
+02920 KSTACK	EQU *
+02930 KUSTKO	FDB 0
+02940 	RMB $100	KERNEL'S PARAMETER STACK
+02950 KUSTAK	EQU *
+02960 	FDB 0
+03000 *
+03010 * SYSGLO CONTAINS SYSTEM GLOBALS
+03020 IRQSRV	INC TICK,PCR
+03030 	TST HASTY,PCR
+03040 	BEQ *+3
+03050 	RTI
+03060 *
+03065 	CLR OVRDRV	SWITCH TO WARP SPEED
+03070 * INDEX PROCESS TABLE ENTRY
+03072 	LEAX PROTBL,PCR
+03074 	LDA #PROSIZ
+03076 	LDB CURPRO
+03078 	MUL
+03080 	LEAX D,X
+03082 	STX PROCIX
+03084 	STS PROCSP,X
+03090 * SWITCH TO KERNEL STACK
+03095 	LDU #KUSTAK
+03100 	LDS #KSTACK
+03110 * DEFINITELY NOT RE-ENTRANT
+03120 	LEAY SYSGLO,PCR
+03130 	TFR Y,D
+03140 	TFR A,DP
+03150 	SETDP  SYSGLO/$100
+03155 * HALF OF 60 HZ BEL
+03160 	TST BEEP
+03170 	BEQ *+5
+03200 	LBSR CLICK
+03205 *
+03210 	LDA TICK
+03220 	SUBA #60
+03230 	LBLO KEYRD
+03240 	INC MINUTE
+03250 	STA SECOND	ALLOW TICKS TO OVERFLOW SECONDS
+03260 	LDA MINUTE
+03270 	SUBA #60
+03280 	LBLO KEYRD
+03290 	INC HOUR
+03300 	CLR MINUTE
+03310 	LDA HOUR
+03320 	SUBA #24
+03330 	BLO KEYRD
+03340 	INC DAY
+03350 	CLR HOUR
+03360 *
+03370 	LDA MONTH
+03380 	ANDA #$F	CRUDE AUTO-RESTORE
+03390 * CHECK LEAP YEAR
+03400 	CMPA #2
+03410 	BNE NOLEAP
+03420 	LDB YEAR
+03430 	TSTB #3 	MODULO 4
+03440 	BNE NOLEAP
+03450 	LSRB	YEAR/4
+03460 	LSRB
+03470 	PSHS B
+03480 	LSRB	YEAR/32
+03490 	LSRB
+03500 	LSRB
+03510 	LEAX LYRTBL,PCR
+03520 	LEAX B,X
+03530 	PULS A	BIT #
+03540 	ANDA #7
+03550 	CLRB
+03560 	ORCC #CARRY
+03570 LYRBLP	ROLB
+03580 	DECA
+03590 	BPL LYRBLP
+03600 *
+03610 	ANDB ,X	LEAP?
+03620 	BEQ NOLEAP
+03630 	LEAX MONTBL,PCR
+03640 	LDB 2,X
+03650 	INCB	ONE MORE DAY
+03660 	CMPB DAY
+03670 	BHS KEYRD
+03680 	INC MONTH
+03690 	LDB #1
+03700 	STB DAY
+03710 	BRA KEYRD	NOW MARCH, SAME YEAR
+03720 *
+03730 NOLEAP	LDD MONTH
+03740 	ANDA #$F
+03750 	LEAX MONTBL,PCR
+03760 	CMPB A,X	CHECK DAYS FOR THIS MONTH
+03770 	BLS KEYRD
+03780 	LDB #1
+03790 	STB DAY
+03800 	INCA
+03810 	CMPA #12
+03820 	BHI *+6
+03830 	STA MONTH
+03840 	BRA KEYRD
+03850 	STB MONTH
+03860 	INC YEAR
+03870 	BNE KEYRD
+03880 	LDD #TIMOVR
+03890 	STD SYSERR
+03900 *
+03910 KEYRD	TST KEYCOL
+10000 *
+10003 * OTHER HALF OF 60 HZ BEL
+10005 	LDA BEEP
+10007 	BEQ NOBEEP
+10009 	DECA
+10011 	STA BEEP
+10013 	LBSR CLICK
+10015 NOBEEP	LDX PROCIX
+10025 	TST PROCRT,X
+10027 	BNE *+5
+10040 	CLR OVRDRV-1	BACK TO VISIBLE SPEED
+10050 	LDS PROCSP,X
+10060 	RTI
+10062 	SETDP 0
+10070 *
+15000 * Z IS UNDEFINED HANDLER
+15005 CALTBL	FDB Z
+15010 	FDB Z
+15015 	FDB Z
+15020 	FDB Z
+15025 	FDB Z
+15030 	FDB Z
+15035 	FDB Z
+15040 	FDB Z
+15045 	FDB Z
+15050 	FDB Z
+15055 	FDB Z
+15060 	FDB Z
+15065 	FDB Z
+15070 	FDB Z
+15075 	FDB Z
+15080 	FDB Z
+15085 	FDB Z
+15090 	FDB Z
+15095 	FDB Z
+15100 	FDB Z
+15105 	FDB Z
+15110 	FDB Z
+15115 	FDB Z
+15120 	FDB Z
+15125 	FDB Z
+15130 	FDB Z
+15135 	FDB Z
+15140 	FDB Z
+15145 	FDB Z
+15150 	FDB Z
+15155 	FDB Z
+15160 	FDB Z
+15165 	FDB Z
+15170 	FDB Z
+15175 	FDB Z
+15180 	FDB Z
+15185 	FDB Z
+15190 	FDB Z
+15195 	FDB Z
+15200 	FDB Z
+15205 	FDB Z
+15210 	FDB Z
+15215 	FDB Z
+15220 	FDB Z
+15225 	FDB Z
+15230 	FDB Z
+15235 	FDB Z
+15240 	FDB Z
+15245 	FDB Z
+15250 	FDB Z
+15255 	FDB Z
+15260 	FDB Z
+15265 	FDB Z
+15270 	FDB Z
+15275 	FDB Z
+15280 	FDB Z
+15285 	FDB Z
+15290 	FDB Z
+15295 	FDB Z
+15300 	FDB Z
+15305 	FDB Z
+15310 	FDB Z
+15315 	FDB Z
+15320 	FDB Z
+15325 	FDB Z
+15330 	FDB Z
+15335 	FDB Z
+15340 	FDB Z
+15345 	FDB Z
+15350 	FDB Z
+15355 	FDB Z
+15360 	FDB Z
+15365 	FDB Z
+15370 	FDB Z
+15375 	FDB Z
+15380 	FDB Z
+15385 	FDB Z
+15390 	FDB Z
+15395 	FDB Z
+15400 	FDB Z
+15405 	FDB Z
+15410 	FDB Z
+15415 	FDB Z
+15420 	FDB Z
+15425 	FDB Z
+15430 	FDB Z
+15435 	FDB Z
+15440 	FDB Z
+15445 	FDB Z
+15450 	FDB Z
+15455 	FDB Z
+15460 	FDB Z
+15465 	FDB Z
+15470 	FDB Z
+15475 	FDB Z
+15480 	FDB Z
+15485 	FDB Z
+15490 	FDB Z
+15495 	FDB Z
+15500 	FDB Z
+15505 	FDB Z
+15510 	FDB Z
+15515 	FDB Z
+15520 	FDB Z
+15525 	FDB Z
+15530 	FDB Z
+15535 	FDB Z
+15540 	FDB Z
+15545 	FDB Z
+15550 	FDB Z
+15555 	FDB Z
+15560 	FDB Z
+15565 	FDB Z
+15570 	FDB Z
+15575 	FDB Z
+15580 	FDB Z
+15585 	FDB Z
+15590 	FDB Z
+15595 	FDB Z
+15600 	FDB Z
+15605 	FDB Z
+15610 	FDB Z
+15615 	FDB Z
+15620 	FDB Z
+15625 	FDB Z
+15630 	FDB Z
+15635 	FDB Z
+15640 	FDB Z
+15645 * 128 ENTRIES -> NO BOUNDS CHECK ON CALL NUMBER
+15650 Z	EQU *
+16000 * SWI DISABLES IRQ
+16010 SWISRV	LEAY CALTBL,PCR
+16900 	PULU A	CALL #
+16910 	ASLA	WORD ADR
+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
+20030 	EORA #BSOUND
+20040 	STA VIDMOD
+20050 	PULS A,PC
+50000 O	EQU *
+50010 * STARTUP CODE
+50020 * INTIALIZE PORTS
+50030 * 1 BIT SOUND OUTPUT
+50032 	LDS #IDLESP
+50034 	LDU #IDLEUB
+50040 	LDA VIDMOD+1
+50050 	ANDA #.NOT.4
+50060 	STA VIDMOD+1	DATA DIRECTION REGISTER
+50070 	LDB VIDMOD
+50080 	ORB #BSOUND
+50090 	STB VIDMOD
+50100 	ORA #4	DATA REGISTER
+50110 	STA VIDMOD+1
+50120 * ENABLE IRQ ON FIELD SYNC
+50130 * (INTERRUPTS 60 TIMES A SECOND
+50140 * MASK IRQ FIRST
+50150 	ORCC #IRQMSK
+50160 * SET UP IRQ VECTOR
+50170 	LDD IRQVEC
+50180 	STD IVSAVE,PCR
+50190 	LDD #IRQSRV
+50200 	STD IRQVEC
+50205 * ENABLE PORT
+50210 	LDA KEYCOL+1
+50220 	ORA #1
+50230 	STA KEYCOL+1
+50240 * HANDSHAKE BY READING KEYCOL (IMPLICIT IN KEY DECODE)
+50250 	LDD SWIVEC	SET UP SYSTEM CALLS - SWI
+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
+54910 	BRA WAITIQ
+55990 *
+56000 	FDB 0
+56010 IDLESL	RMB 32
+56020 IDLESP	EQU *
+56030 	FDB 0
+56032 IDLEUL	RMB 32
+56034 IDLEUB	EQU *
+56036 	FDB 0
+56040 IDLLIM	EQU *
+56050 *
+62000 	END
+
\ No newline at end of file

--- a/TIMKEY.AS9
+++ /dev/null
@@ -1,97 +0,0 @@
-00100 KR	EQU $FF00
-00110 KC	EQU $FF02
-00120 VSAVE	RMB 2
-00130 IRQV	EQU $10C
-00140 COUNT	FCB 0
-00150 OLDKEY	FCB 0
-00160 FLAG	FCB $80
-00200 O	LDU #$8000
-00210 	LDS #$7800
-00220 	LDA KC+1
-00230 	ANDA #.NOT.4
-00240 	STA KC+1
-00250 	LDB #$FF
-00260 	STB KC
-00270 	ORA #4
-00280 	STA KC+1
-00290 	LDB #$BF
-00295 	STB KC
-00300 	LDD IRQV+1
-00310 	STD VSAVE
-00315 	ORCC #$10
-00320 	LDD #CKEY
-00330 	STD IRQV+1
-00340 	LDB KC+1
-00350 	ANDB #$FD
-00360 	ORB #1
-00370 	TST KC
-00380 	STB KC+1
-00390 KTIME	CWAI #$EF
-00400 	LDB COUNT
-00410 	BEQ KTIME
-00420 	LBSR HOME
-00430 	PSHU B
-00440 	LBSR HXOUT
-00442 	LDA FLAG
-00444 	JSR [$A002]
-00446 	INCA 
-00448 	STA FLAG
-00450 	BRA KTIME
-00460 *
-00470 CKEY	LDA KR
-00475 	CMPA #$FF
-00480 	BEQ CKEY0
-00490 	CMPA OLDKEY
-00495 	BEQ CKEYLD
-00500 	STA OLDKEY
-00505 	BRA CKEY0
-00510 CKEYLD	INC COUNT
-00515 	BRA CKEYBK
-00520 CKEY0	CLR COUNT
-00525 CKEYBK	TST KC
-00530 	RTI
-00535 *
-01110 KLOOP	LDA #7
-01120 	BSR HOME
-01130 	LDB #$FF
-01140 	STB KC
-01150 	ANDCC #.NOT.1
-01160 KILOOP	ROL KC
-01170 	LDB KR
-01180 	PSHU B
-01190 	BSR HXOUT
-01200 	LDB KC
-01210 	PSHU B
-01220 	BSR HXOUT
-01230 	DECA
-01240 	ORCC #1
-01250 	BPL KILOOP
-01260 	BRA KLOOP
-01270 *
-01280 HOME	PSHS A,B
-01290 	LDD #$400
-01300 	STD $88
-01310 	PULS A,B,PC
-01320 *
-01330 HXOUT	PSHS A
-01340 	LDA ,U
-01350 	LSRA
-01360 	ASRA
-01370 	ASRA
-01380 	ASRA
-01390 	BSR DIGOUT
-01400 	LDA ,U+
-01410 	ANDA #$F
-01420 	BSR DIGOUT
-01430 	LDA #' 
-01440 	JSR [$A002]
-01450 	PULS A,PC
-01460 *
-01470 DIGOUT	CMPA #9
-01480 	BLS HXODEC
-01490 	ADDA #'A-'9-1
-01500 HXODEC	ADDA #'0
-01510 	JSR [$A002]
-01520 	RTS
-01530 	END
-
\ No newline at end of file