Mercurial > hg > Members > kono > nitros9-code

changeset 48:cdfe69117a2f

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Cleaned up source
author boisy
date Sat, 20 Apr 2002 13:39:53 +0000
parents c1c7f1cb1560
children 4fd75b62ccb1
files level1/modules/boot_1773.asm
diffstat 1 files changed, 11 insertions(+), 9 deletions(-) [+]
line wrap: on
line diff
--- a/level1/modules/boot_1773.asm	Sat Apr 20 13:38:17 2002 +0000
+++ b/level1/modules/boot_1773.asm	Sat Apr 20 13:39:53 2002 +0000
@@ -30,9 +30,9 @@
 name     fcs   /Boot/
          fcb   edition
 
-* First, we make a stack... (5 bytes deep)
+* First, we make a stack...
 start    clra
-         ldb   #$05
+         ldb   #size
 MakeStak pshs  a
          decb
          bne   MakeStak
@@ -42,7 +42,7 @@
          leax  $08,x
          lda   #$D0
          sta   ,x
-         lbsr  L0174
+         lbsr  Delay
          lda   ,x
          lda   #$FF
          sta   u0004,u
@@ -68,7 +68,7 @@
          os9   F$SchBit
          bcs   L009B
          exg   a,b
-         ldu   $04,s
+         ldu   $04,s                   get statics pointer
          std   u0002,u
          clrb
 
@@ -147,7 +147,7 @@
          stb   >DPort+8
          ldb   #$39
          stb   >DPort
-         lbsr  L0174
+         lbsr  Delay
          ldb   #$B9
          lda   #$02
 L00F2    bita  >DPort+8
@@ -219,10 +219,12 @@
 
 L0172    bsr   L0169
 
-* Some type of delay??
-L0174    lbsr  L0177
-L0177    lbsr  L017A
-L017A    rts
+* Delay routine
+Delay    lbsr  Delay2
+Delay2   lbsr  Delay3
+Delay3   rts
 
          emod
 eom      equ   *
+         end
+