From 391b5eef066cc9182513598b645085c3fbd210ae Mon Sep 17 00:00:00 2001 From: Charles Mangin Date: Wed, 12 Sep 2018 12:09:00 -0400 Subject: [PATCH] Add files via upload --- COLDLD.s | 78 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++ 1 file changed, 78 insertions(+) create mode 100644 COLDLD.s diff --git a/COLDLD.s b/COLDLD.s new file mode 100644 index 0000000..1f07480 --- /dev/null +++ b/COLDLD.s @@ -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 +