Mercurial > hg > Members > kono > nitros9-code
changeset 262:dd9e2f44b5f0
Incorporated bug fix from January 1987 Rainbow, pg 203
| author | boisy |
|---|---|
| date | Sat, 20 Jul 2002 23:21:27 +0000 |
| parents | 51e03621e721 |
| children | 7d918106054d |
| files | level1/cmds/os9gen.asm |
| diffstat | 1 files changed, 10 insertions(+), 8 deletions(-) [+] |
line wrap: on
line diff
--- a/level1/cmds/os9gen.asm Sat Jul 20 21:21:34 2002 +0000 +++ b/level1/cmds/os9gen.asm Sat Jul 20 23:21:27 2002 +0000 @@ -6,6 +6,8 @@ * Ed. Comments Who YY/MM/DD * ------------------------------------------------------------------ * 7 From Tandy OS-9 Level One VR 02.00.00 +* 8 Incorporated fix from Rainbow Magazine in the BGP 02/07/20 +* January 1987 issue, page 203 * * OS9gen is hardware dependent. On COCO the track to write is 34 @@ -21,7 +23,8 @@ tylg set Prgrm+Objct atrv set ReEnt+rev rev set $01 -edition set 7 +edition set 8 + os9start equ $EF00 os9size equ $0F80 @@ -363,12 +366,11 @@ os9 I$Read lbcs L058D leax <u0013,u - ldd ,x - cmpa #$4F - lbne L058D - cmpb #$53 + ldd #$4F53 "OS" + cmpd ,x lbne L058D lda $04,x + leax >u0200,u cmpa #$12 beq L049C lda <$4E,x @@ -379,8 +381,8 @@ sta <$4C,x lda #$FF sta <$4D,x - sta <$4E,x - bra L04CB + lda <$4E,x + bra L04C6 L04AE ora #$0F sta <$4C,x tst <$4D,x @@ -389,7 +391,7 @@ lda <$4E,x bita #$FC lbne L058D - ora #$FC +L04C6 ora #$FC sta <$4E,x L04CB lbsr L057E leax >u0200,u