Mercurial > hg > Members > kono > os9 > sbc09
view os9/level2/boot.asm @ 29:3c14d647bb51
assembler and emulator fix
author | Shinji KONO <kono@ie.u-ryukyu.ac.jp> |
---|---|
date | Wed, 11 Jul 2018 21:16:06 +0900 |
parents | 2d6772a5c076 |
children | 7b1b25ff010a |
line wrap: on
line source
******************************************************************** * Boot - V09 Boot module * * $Id: boot_1773.asm,v 1.1.1.1 2001/02/21 23:30:54 boisy Exp $ * * Ed. Comments Who YY/MM/DD * ------------------------------------------------------------------ nam Boot ttl v09 Boot module ifp1 use defsfile endc * * map extended rom on page 0x40- * first two bytes are extra rom module size tylg set Systm+Objct atrv set ReEnt+rev rev set $01 edition set 1 mod eom,name,tylg,atrv,start,size size equ . name fcs /Boot/ fcb edition start ldy #$40 extended rom page no. clra clrb pshs d,x,y,u tfr d,x leay 4,s pointer to page no ** read boot rom file size os9 F$LDDDXY bcs last addb #$ff adca #0 clrb std ,s size return as d os9 F$BtMem bcs last ** u points the memory stu 2,s return as x ldd ,s ldx #0 ** copy to Bt BtRAM pagel tfr d,y lda 5,s sta $ffa0 tfr y,d loop ldy ,x++ sty ,u++ subb #2 sbca #0 cmpb #0 $100 transfered? bne loop bita #$1f bne loop tsta beq last all transfered clr $ffa0 back to system map ** 2k boundary inc 5,s ldx #0 bra pagel last clr $ffa0 puls d,x,y,u,pc emod eom equ * end