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