# HG changeset patch
# User pwz
# Date 1048478163 0
# Node ID 537443a2e0d9d19a19dd85359b8341c5924d7b0c
# Parent  a3faad87fa9ff0bbba06b52f503ccd281d9423a9
continued commenting adding subroutine entry point labels
based on program position for those that get called from the dispatch table

diff -r a3faad87fa9f -r 537443a2e0d9 3rdparty/packages/sierra/objs/mnln.asm
--- a/3rdparty/packages/sierra/objs/mnln.asm	Mon Mar 24 03:36:16 2003 +0000
+++ b/3rdparty/packages/sierra/objs/mnln.asm	Mon Mar 24 03:56:03 2003 +0000
@@ -1658,7 +1658,7 @@
          lbra  L0F4B          load a with #$01 and return
 
 * cmd_controller
-         lda   ,y+
+L0E5C    lda   ,y+
          ldx   #$05BA
          lda   a,x
          rts
@@ -1851,7 +1851,7 @@
 L0FD2    leas  $03,s
          rts
 
-         lda   ,y+
+L0FD5    lda   ,y+
          pshs  y
          bsr   L0FDE
          puls  y
@@ -2601,7 +2601,7 @@
 *       CC -> Carry set on error
 *       b  -> error code if any
 
-         clr   >$015B      clear error code holder
+L141F    clr   >$015B      clear error code holder
          os9   I$Dup
          bcc   L142A       good dup ? leave
          lbsr  L15E6       error go to error handler
@@ -2771,7 +2771,7 @@
          lbsr  L15E6       error go to error handler
 L1589    rts
 
-         lda   $05,s
+L158A    lda   $05,s
          ldy   $02,s
          lbsr  L139A       Open path routine
          bcs   L1598        leave
@@ -4170,11 +4170,11 @@
          bne   L2546          not zero leave
 L2550    rts
 
-         ldb   ,y+
+L2551    ldb   ,y+
          bsr   L2561
          rts
 
-         ldb   ,y+
+L2556    ldb   ,y+
          ldx   #$0432
          abx
          ldb   ,x
@@ -4245,7 +4245,7 @@
 L25E3    leas  $07,s     clean up stack and leave
          rts
 
-         leas  -$02,s
+L25E6    leas  -$02,s
          ldb   ,y+
          sty   ,s
          bsr   L2612
@@ -4255,7 +4255,7 @@
 L25F6    leas  $02,s
          rts
 
-         leas  -$02,s
+L25F9    leas  -$02,s
          ldb   ,y+
          ldx   #$0432
          abx
@@ -4321,11 +4321,13 @@
          lbsr  L27AF
 L2681    leas  $0A,s
          rts
-         ldx   <u0062
+         
+         
+L2684    ldx   <u0062
          sty   $08,x
          rts
 
-         ldx   <u0062
+L268A    ldx   <u0062
          ldd   $06,x
          std   $08,x
          rts
@@ -4490,7 +4492,7 @@
 L27D7    fcb  $00
 
 
-         leas  -$04,s
+L27D8    leas  -$04,s
          ldb   ,y+
          lbsr  L3B58
          stu   ,s
@@ -4541,7 +4543,7 @@
          rts
 
 *  no one seems to call here ?
-         leas  -$05,s
+L2856    leas  -$05,s
          ldb   ,y+
          lbsr  L3B58
          stu   ,s
@@ -4596,7 +4598,7 @@
          rts
 
 *  no one seems to call here ?
-         ldu   >L27CC,pcr       data word
+L28D8    ldu   >L27CC,pcr       data word
          ldd   $0B,u
          bne   L28E2
          sta   $0A,u
@@ -4609,7 +4611,9 @@
          lda   #$01
          sta   >L27D7,pcr       data byte
          rts
-         lda   ,y+
+
+
+L28FB    lda   ,y+
          ldb   #$01
          bsr   L2929
          rts
@@ -4629,7 +4633,7 @@
          bne   L2908
 L2921    rts
 
-         lda   ,y+
+L2922    lda   ,y+
          ldb   #$00
          bsr   L2929
          rts
@@ -4653,7 +4657,7 @@
          leas  $02,s
          rts
 
-         lda   >$01B0 
+L2951    lda   >$01B0 
          anda  #$02
          beq   L295D
          lda   #$01
@@ -5051,7 +5055,7 @@
          leas  $04,s
          rts
 
-         lda   ,y+
+L2C25    lda   ,y+
          ldb   #$2B
          mul
          addd  <u0030
@@ -5079,7 +5083,7 @@
 L2C62    lbsr  L2F0A
          rts
 
-         lda   ,y+
+L2C66    lda   ,y+
          ldb   #$2B
          mul
          addd  <u0030
@@ -5116,7 +5120,7 @@
 L2CB5    lbsr  L2F0A
          rts
 
-         lda   ,y+
+L2CB9    lda   ,y+
          ldb   #$2B
          mul
          addd  <u0030
@@ -5139,7 +5143,7 @@
          sta   <$26,u
          rts
 
-         lda   ,y+
+L2CED    lda   ,y+
          ldb   #$2B
          mul
          addd  <u0030
@@ -5154,7 +5158,7 @@
          clr   >$0251
 L2D0B    rts
 
-         lda   ,y+
+L20DC    lda   ,y+
          ldb   #$2B
          mul
          addd  <u0030
@@ -5163,7 +5167,7 @@
          sta   <$22,u
          rts
 
-         lda   ,y+
+L2D1B    lda   ,y+
          ldb   #$2B
          mul
          addd  <u0030
@@ -5178,7 +5182,7 @@
          sta   >$0251
 L2D38    rts
 
-         lda   ,y+
+L2D39    lda   ,y+
          ldb   #$2B
          mul
          addd  <u0030
@@ -5192,7 +5196,7 @@
          sta   >$0251
 L2D54    rts
 
-         lda   ,y+
+L2D55    lda   ,y+
          ldb   #$2B
          mul
          addd  <u0030
@@ -5204,7 +5208,7 @@
          sta   <$1E,u
          rts
 
-         lda   ,y+
+L2D6A    lda   ,y+
          ldb   #$2B
          mul
          addd  <u0030
@@ -5217,7 +5221,7 @@
          sta   $01,u
          rts
 
-         lda   ,y+
+L2D80    lda   ,y+
          ldb   #$2B
          mul
          addd  <u0030
@@ -5229,7 +5233,7 @@
          sta   <$21,u
          rts
 
-         lda   ,y+
+L2D95    lda   ,y+
          ldb   #$2B
          mul
          addd  <u0030
@@ -5241,10 +5245,10 @@
          sta   ,x
          rts
 
-         clr   >$0251
-         rts
-
-         lda   #$01
+L2DAA    clr   >$0251
+         rts
+
+L2DAE    lda   #$01
          sta   >$0251
          ldu   <u0030
          lda   #$00
@@ -5482,7 +5486,7 @@
 L2F9E    lda   #$01
 L2FA0    rts
 
-         lda   ,y
+L2FA1    lda   ,y
          bsr   L2FB1
          rts
          ldb   ,y
@@ -5572,17 +5576,17 @@
          leas  $01,s
          rts
 
-         bsr   L3085
+L3070    bsr   L3085
          lda   #$FF
          sta   $02,u
          rts
 
-         bsr   L309B
+L3077    bsr   L309B
          lda   #$FF
          sta   $02,u
          rts
 
-         bsr   L3085
+L307E    bsr   L3085
          lda   #$00
          sta   $02,u
          rts
@@ -5616,7 +5620,7 @@
          lbsr  L10CE
 L30B6    rts
 
-         bsr   L3085
+L30B7    bsr   L3085
          ldb   ,y+
          ldx   #$0432
          abx
@@ -5845,7 +5849,7 @@
          leas  $07,s
          rts
 
-         lda   >$01AF
+L328C    lda   >$01AF
          anda  #$DF
          sta   >$01AF
          lda   >$01AF
@@ -6001,7 +6005,7 @@
          clr   -$01,x
 L33D6    rts
 
-         ldu   #$05B2
+L33D7    ldu   #$05B2
          lda   ,y+
          sta   ,u
          lda   ,y+
@@ -6020,7 +6024,7 @@
          bsr   L3431
          rts
 
-         ldu   #$05B2
+L33F7    ldu   #$05B2
          ldx   #$0432
          clra
          ldb   ,y+
@@ -6134,7 +6138,7 @@
          bne   L34D8
 L34E4    rts
 
-         ldx   #$0432
+L34E5    ldx   #$0432
          ldb   ,y+
          abx
          ldb   ,x
@@ -6177,7 +6181,7 @@
 L3542    leas  $05,s
          rts
 
-         ldx   #$0432
+L3545    ldx   #$0432
          ldb   ,y+
          abx
          ldb   ,x
@@ -6210,7 +6214,7 @@
          leas  $01,s
          rts
 
-         ldx   #$0432
+L358C    ldx   #$0432
          ldb   ,y+
          abx
          ldb   ,x
@@ -6244,7 +6248,7 @@
          leas  $01,s
          rts
 
-         lda   >$01B0    
+L35D6    lda   >$01B0    
          anda  #$FE
          sta   >$01B0   
          lbsr  L3997
@@ -6253,7 +6257,7 @@
          sta   >$0100
          rts
 
-         ldx   #$0432
+L35EA    ldx   #$0432
          ldb   ,y+
          abx
          ldb   ,x
@@ -6287,7 +6291,7 @@
          leas  $03,s
          rts
 
-         lda   ,y+
+L3634    lda   ,y+
          ldb   #$2B
          mul
          addd  <u0030
@@ -6298,7 +6302,7 @@
          rts
 
 
-         lda   ,y+
+L3645    lda   ,y+
          ldb   #$2B
          mul
          addd  <u0030
@@ -6316,7 +6320,7 @@
          rts
 
 
-         lda   ,y+
+L3664    lda   ,y+
          ldb   #$2B
          mul
          addd  <u0030
@@ -6334,7 +6338,7 @@
          rts
 
 
-         leas  -$02,s
+L3682    leas  -$02,s
          lda   ,y+
          ldb   #$2B
          mul
@@ -6372,7 +6376,7 @@
          rts
 
 
-         lda   ,y+
+L36C5    lda   ,y+
          ldb   #$2B
          mul
          addd  <u0030
@@ -6386,7 +6390,7 @@
          rts
 
 
-         lda   ,y+
+L36DE    lda   ,y+
          ldb   #$2B
          mul
          addd  <u0030
@@ -6407,7 +6411,7 @@
          rts
 
 
-         lda   ,y+
+L3705    lda   ,y+
          ldb   #$2B
          mul
          addd  <u0030
@@ -6417,8 +6421,7 @@
          sta   <$25,u
          rts
 
-
-         lda   ,y+
+L3717    lda   ,y+
          ldb   #$2B
          mul
          addd  <u0030
@@ -6429,7 +6432,7 @@
          rts
 
 
-         lda   ,y+
+L3729    lda   ,y+
          ldb   #$2B
          mul
          addd  <u0030
@@ -6439,12 +6442,12 @@
          sta   <$25,u
          rts
 
-         lda   ,y+
+L373B    lda   ,y+
          sta   >$01D7
          rts
 
 
-         lda   ,y+
+L3741    lda   ,y+
          ldb   #$2B
          mul
          addd  <u0030
@@ -6455,7 +6458,7 @@
          rts
 
 
-         lda   ,y+
+L3753    lda   ,y+
          ldb   #$2B
          mul
          addd  <u0030
@@ -6478,12 +6481,12 @@
 L37A3    fcb   $FF
 L37A4    fcb   $FF
 
-         ldb   ,y+
+L37A5    ldb   ,y+
          lbsr  L3B58
          bsr   L37F2
          rts
 
-         ldx   #$0432
+L37AD    ldx   #$0432
          ldb   ,y+
          abx
          ldb   ,x
@@ -6491,11 +6494,11 @@
          bsr   L37F2
          rts
 
-         ldb   ,y+
+L37BB    ldb   ,y+
          bsr   L37CB
          rts
 
-         ldx   #$0432
+L37C0    ldx   #$0432
          ldb   ,y+
          abx
          ldb   ,x
@@ -6908,7 +6911,7 @@
          leas  $01,s
          rts
 
-         leas  >-$03E8,s
+L3B80    leas  >-$03E8,s
          lbsr  L47AA
          ldd   ,y++
          std   <u0040
@@ -6929,7 +6932,7 @@
          leas  >$03E8,s
          rts
 
-         leas  >-$03E8,s
+L3BB0    leas  >-$03E8,s
          lbsr  L47AA
          ldx   #$0432
          ldb   ,y+
@@ -7099,7 +7102,7 @@
 L3D1F    puls  u,x
          rts
 
-         lda   ,y+
+L3D22    lda   ,y+
          ldb   #$2B
          mul
          addd  <u0030
@@ -7111,7 +7114,7 @@
          sta   <$24,u
          rts
 
-         lda   ,y+
+L3D39    lda   ,y+
          ldb   #$2B
          mul
          addd  <u0030
@@ -7121,7 +7124,7 @@
          sta   <$26,u
          rts
 
-         lda   ,y+
+L394B    lda   ,y+
          ldb   #$2B
          mul
          addd  <u0030
@@ -7133,7 +7136,7 @@
          sta   ,x
          rts
 
-         lda   ,y+
+L3D60    lda   ,y+
          ldb   #$2B
          mul
          addd  <u0030
@@ -7604,13 +7607,13 @@
          mul
          ldx   #$0252
          leax  d,x          from address
-L42A7    leau  >L41E5,pcr   to address block of 31 data bytes
+         leau  >L41E5,pcr   to address block of 31 data bytes
 *                           FILE struct data block ???
          ldd   #$001F       load d with 31
          lbsr  L115D        copy routine
          rts                return 
 
-         leas  >-$00FE,s
+L42B2    leas  >-$00FE,s
          sty   ,s
          clr   $02,s
          lda   #$01
@@ -7928,11 +7931,11 @@
          jsr   >$0659
          rts
 
-         lbsr  L5B7A
+L457E    lbsr  L5B7A
          lbsr  L45D9
          rts
 
-         ldb   $02,y
+L4585    ldb   $02,y
          pshs  b,a
          ldb   $01,y
          pshs  b,a
@@ -7943,7 +7946,7 @@
          leay  $03,y
          rts
 
-         ldb   $04,y
+L4599    ldb   $04,y
          pshs  b,a
          ldb   $03,y
          pshs  b,a
@@ -7958,7 +7961,7 @@
          leay  $05,y
          rts
 
-         ldd   ,y++
+L45B7    ldd   ,y++
          bsr   L45BA
          rts
 
@@ -7990,7 +7993,7 @@
          lbsr  L5BAD
          rts
 
-         lda   ,y
+L45EE    lda   ,y
          sta   >$0242
          adda  #$15
          sta   >$0240
@@ -8006,7 +8009,7 @@
          sta   >$0248
          rts
 
-         leas  -$04,s
+L460D    leas  -$04,s
          pshs  y
          leax  >L454C,pcr  data table
          ldb   >$0553
@@ -8124,18 +8127,18 @@
          std   >L4678,pcr   data word
 L470C    rts
 
-         lda   ,y+
+L470D    lda   ,y+
          sta   >$0246
          lbsr  L057D
          lbsr  L467A
          lbsr  L058A
          rts
 
-         lda   >$0245
+L471C    lda   >$0245
          sta   >$0244
          rts
 
-         clra
+L4723    clra
          ldb   >$0244
          stb   >$0245
          lslb
@@ -8651,6 +8654,7 @@
 L4BD8    leas  $01,s       clean up stack and were 
          rts               back at ya
 
+* file_load(u8 *name u8 *buff)  res_vol.c
 L4BDB    leas  <-$65,s
          pshs  y
 L4BE0    lda   #$01
@@ -9195,7 +9199,7 @@
          bne   L507A
 L5086    rts
 
-         ldb   ,y+
+L5087    ldb   ,y+
          bsr   L508C
          rts
 
@@ -9236,7 +9240,7 @@
 L50E0    leas  $05,s
          rts
 
-         leas  -$0B,s
+L50E3    leas  -$0B,s
          ldb   ,y+
          stb   ,s
          lbsr  L5076
@@ -9734,7 +9738,7 @@
          lbsr  L47BE
 L5558    rts
 
-         lda   #$01
+L5559    lda   #$01
          sta   >$0247
          bsr   L54F7
          rts
@@ -9797,7 +9801,7 @@
 L55DD    leas  >$0197,s
          rts
 
-         lda   ,y+
+L55E2         lda   ,y+
          ldb   #$28
          mul
          ldx   #$0252
@@ -9809,7 +9813,7 @@
          lbsr  L115D     copy routine
          rts
 
-         lda   ,y+
+L55FA    lda   ,y+
          ldb   #$28
          mul
          ldu   #$0252
@@ -10025,7 +10029,7 @@
          leas  $06,s
 L57CE    rts
 
-         lda   ,y+
+L57CF    lda   ,y+
          lda   ,y+
          sta   >L5746,pcr     data byte
          lda   ,y+
@@ -10423,7 +10427,7 @@
          bra   L5B26
 L5B33    rts
 
-         lda   >$01D6
+L5B34    lda   >$01D6
          beq   L5B3B
          bsr   L5B3C
 L5B3B    rts
@@ -10464,17 +10468,19 @@
          lbsr  L4734     and go for it
 L5B8C    rts
 
-         bsr   L5B7A    input_edit_on
+L5B8D    bsr   L5B7A    input_edit_on
          lda   >$01D8
          clrb
          stb   >$01D6
          lbsr  L47D0
          rts
-         lda   #$01
+
+L5B9A    lda   #$01
          sta   >$01D6
          bsr   L5BAD
          rts
-         ldb   ,y+
+
+L5BA2    ldb   ,y+
          lbsr  L3B58
          lda   ,u
          sta   >$01AE
@@ -10510,7 +10516,7 @@
          rts
 
 *                       1B0 jump table 2nd entry calls here
-L5bf1    ldb   ,y+     
+L5BF1    ldb   ,y+     
          ldx   #$0432
          abx
          lda   ,x
@@ -10519,7 +10525,7 @@
          sta   ,x
 L5BFE    rts
 
-L5bff    ldb   ,y+
+L5BFF    ldb   ,y+
          ldx   #$0432
          abx
          lda   ,x
@@ -10528,14 +10534,14 @@
          sta   ,x
 L5C0C    rts
 
-         ldb   ,y+
+L5C0D    ldb   ,y+
          ldx   #$0432
          lda   ,y+
          abx
          sta   ,x
          rts
 
-         ldb   $01,y
+L5C18    ldb   $01,y
          ldx   #$0432
          abx
          lda   ,x
@@ -10545,7 +10551,7 @@
          sta   ,x
          rts
 
-         ldb   ,y+
+L5C29    ldb   ,y+
          ldx   #$0432
          abx
          lda   ,x
@@ -10553,7 +10559,7 @@
          sta   ,x
          rts
 
-         ldb   $01,y
+L5C36    ldb   $01,y
          ldx   #$0432
          abx
          lda   ,x
@@ -10564,7 +10570,7 @@
          sta   ,x
          rts
 
-         ldb   ,y+
+L5C49    ldb   ,y+
          ldx   #$0432
          abx
          lda   ,x
@@ -10572,7 +10578,7 @@
          sta   ,x
          rts
 
-         ldb   $01,y
+L5C56    ldb   $01,y
          ldx   #$0432
          abx
          lda   ,x
@@ -10584,7 +10590,7 @@
          sta   ,x
          rts
 
-         ldb   $01,y
+L5C6A    ldb   $01,y
          ldx   #$0432
          abx
          lda   ,x
@@ -10597,7 +10603,7 @@
          sta   ,x
          rts
 
-         lda   $01,y
+L5C81    lda   $01,y
          ldb   ,y++
          ldx   #$0432
          abx
@@ -10607,7 +10613,7 @@
          sta   ,x
          rts
 
-         ldb   $01,y
+L5C92    ldb   $01,y
          ldx   #$0432
          abx
          ldb   ,x
@@ -10620,7 +10626,7 @@
          sta   ,x
          rts
 
-         ldx   #$0432
+L5CA9    ldx   #$0432
          ldb   ,y+
          abx
          lda   ,x
@@ -10629,7 +10635,7 @@
          stb   ,x
          rts
 
-         ldb   $01,y
+L5CB7    ldb   $01,y
          ldx   #$0432
          abx
          lda   ,x
@@ -10641,7 +10647,7 @@
          stb   ,x
          rts
 
-         ldx   #$0432
+L5CCB    ldx   #$0432
          ldb   ,y+
          abx
          ldb   ,x
@@ -10650,7 +10656,7 @@
          stb   ,x
          rts
 
-         ldb   $01,y
+L5CDC    ldb   $01,y
          ldx   #$0432
          abx
          lda   ,x
@@ -10695,12 +10701,12 @@
          bne   L5D1B
 L5D27    rts
 
-         lda   #$00
+L5D28    lda   #$00
          ldb   ,y+
          bsr   L5D3C
          rts
 
-         lda   #$00
+L5D2F    lda   #$00
          ldb   ,y+
          ldx   #$0432
          abx
@@ -10752,7 +10758,7 @@
 L5D99    leas  $06,s
          rts
 
-         leas  -$02,s
+L5D9C    leas  -$02,s
          ldd   <u000A
          std   ,s
          lda   ,y+
@@ -10766,7 +10772,8 @@
          lbsr  L27AF
          leas  $02,s
          rts
-         leas  -$02,s
+         
+L5DB7    leas  -$02,s
          ldd   <u000A
          std   ,s
          lda   ,y+
@@ -10805,7 +10812,7 @@
 L5DFE    bsr   L5E3D
          rts
 
-         leas  -$02,s
+L5E01    leas  -$02,s
          ldd   <u000A
          std   ,s
          lda   ,y+
@@ -10820,7 +10827,7 @@
          leas  $02,s
          rts
 
-         leas  -$02,s
+L5E1C    leas  -$02,s
          ldd   <u000A
          std   ,s
          lda   ,y+
@@ -10873,7 +10880,7 @@
          leas  $01,s
          rts
 
-         leas  -$02,s
+L5E7F    leas  -$02,s
          ldd   <u000A
          std   ,s
          lda   ,y+
@@ -10888,7 +10895,7 @@
          leas  $02,s
          rts
 
-         leas  -$02,s
+L5E9A    leas  -$02,s
          ldd   <u000A
          std   ,s
          lda   ,y+
@@ -10960,7 +10967,7 @@
 L5F29    leas  $01,s
          rts
 
-         lda   ,y+
+L5F2C    lda   ,y+
          ldb   #$2B
          mul
          addd  <u0030
@@ -10973,7 +10980,7 @@
          sta   ,x
          rts
 
-         lda   ,y+
+L5F41    lda   ,y+
          ldb   #$2B
          mul
          addd  <u0030
@@ -10985,7 +10992,7 @@
          sta   ,x
          rts
 
-         lda   ,y+
+L5F55    lda   ,y+
          ldb   #$2B
          mul
          addd  <u0030
@@ -10997,7 +11004,7 @@
          sta   ,x
          rts
 
-         lda   ,y+
+L5F69    lda   ,y+
          ldb   #$2B
          mul
          addd  <u0030
@@ -11009,7 +11016,7 @@
          sta   ,x
          rts
 
-         lda   ,y+
+L5F7C    lda   ,y+
          ldb   #$2B
          mul
          addd  <u0030
@@ -11021,7 +11028,7 @@
          sta   ,x
          rts
 
-         ldb   ,y+
+L5F91    ldb   ,y+
          bsr   L5FA1
          rts
          ldb   ,y+