mirror of https://github.com/option8/OUP-M.git
Add files via upload
This commit is contained in:
parent
d931773241
commit
391b5eef06
|
@ -0,0 +1,78 @@
|
||||||
|
10 ;OUP/M COLDLD WRITTEN BY SHAO,JIAN-XIONG
|
||||||
|
20 ;ON JULY 1982.
|
||||||
|
30 *=$2200
|
||||||
|
40 JMP CDBTLD
|
||||||
|
50 BIOSA1 .WORD $2280
|
||||||
|
60 BIOSA2 .WORD $DE00
|
||||||
|
70 BIOSPG .BYTE $0C
|
||||||
|
80 MVREG1=$53
|
||||||
|
90 MVREG2=$55
|
||||||
|
100 IOBFFG=$39
|
||||||
|
110 TKNDER=$44
|
||||||
|
120 TRKCRN=$48
|
||||||
|
130 DVACIA=$C010
|
||||||
|
140 FRYCST=$E41B
|
||||||
|
150 WBOOT=$E477
|
||||||
|
160 BOOT=$E42F
|
||||||
|
170 SFTSWT=$F701
|
||||||
|
180 FRYCCT .BYTE $31,$31,$31,$31,$31
|
||||||
|
190 .BYTE $62,$62,$62,$62
|
||||||
|
200 .BYTE $A0,$A0,$A0,$A0
|
||||||
|
210 .BYTE $A0,$A0,$A0,$A0
|
||||||
|
220 ;
|
||||||
|
230 CDBTLD=* ;COLD BOOT LOADER
|
||||||
|
240 ;
|
||||||
|
250 CLD ;MOVE BIOS AND PART OF
|
||||||
|
260 LDA BIOSA1 ;BDOS TO ITS REGULAR POSITION
|
||||||
|
270 STA MVREG1
|
||||||
|
280 LDA BIOSA1+1
|
||||||
|
290 STA MVREG1+1
|
||||||
|
300 LDA BIOSA2
|
||||||
|
310 STA MVREG2
|
||||||
|
320 LDA BIOSA2+1
|
||||||
|
330 STA MVREG2+1
|
||||||
|
340 LDX BIOSPG
|
||||||
|
350 LDY #$00
|
||||||
|
360 C$BTLD=*
|
||||||
|
370 LDA (MVREGl),Y
|
||||||
|
380 STA (MVREG2),Y
|
||||||
|
390 INY
|
||||||
|
400 BNE C$BTLD
|
||||||
|
410 INC MVREG1+1
|
||||||
|
420 INC MVREG2+1
|
||||||
|
430 DEX
|
||||||
|
440 BNE C$BTLD
|
||||||
|
450 LDA #$34 ;ADJUST FREQUENCY
|
||||||
|
460 STA SFTSWT
|
||||||
|
470 LDY #$00
|
||||||
|
480 LDA #$03
|
||||||
|
490 STA DVACIA
|
||||||
|
500 LDA #$38
|
||||||
|
510 STA DVACIA
|
||||||
|
520 STA DVACIA+1
|
||||||
|
530 PHA
|
||||||
|
540 PLA
|
||||||
|
550 PHA
|
||||||
|
560 PLA
|
||||||
|
570 PHA
|
||||||
|
580 PLA
|
||||||
|
590 STX DVACIA+1
|
||||||
|
600 AD$TFY=*
|
||||||
|
610 LDA DVACIA
|
||||||
|
620 BMI A$JTFY
|
||||||
|
630 INY
|
||||||
|
640 BNE AD$TFY
|
||||||
|
650 A$JTFY=*
|
||||||
|
660 LDA FRYCCT,Y
|
||||||
|
670 STA FRYCST
|
||||||
|
680 JSR BOOT ;INITIALIZE ALL INTERFACE
|
||||||
|
690 LDA #$00
|
||||||
|
700 STA IOBFFG
|
||||||
|
710 STA TKNDER ;MARK HEAD POSITION TO 0
|
||||||
|
720 STA TRKCRN
|
||||||
|
730 LDA #$FF ;SET COLD BOOT FLAG
|
||||||
|
740 TAX
|
||||||
|
750 TXS
|
||||||
|
760 PHA
|
||||||
|
770 JMP WBOOT ;WBOOT CCP AND REST OF BDOS
|
||||||
|
|
Loading…
Reference in New Issue