Mercurial > hg > Members > kono > nitros9-code
changeset 205:097a249c9665
Slight change to oscode
| author | boisy |
|---|---|
| date | Mon, 15 Jul 2002 04:48:17 +0000 |
| parents | 338195952a01 |
| children | a4bb7f96b6b7 |
| files | level1/modules/oscode.asm level1/modules/rs232.asm |
| diffstat | 2 files changed, 17 insertions(+), 23 deletions(-) [+] |
line wrap: on
line diff
--- a/level1/modules/oscode.asm Mon Jul 15 04:21:09 2002 +0000 +++ b/level1/modules/oscode.asm Mon Jul 15 04:48:17 2002 +0000 @@ -21,6 +21,7 @@ BootMsg fcc /OSy/ fcb $60 fcc /BOOT/ +BootMLen equ *-BootMsg L2620 clr PIA.U4+3 sta $FFDF turn off ROM @@ -43,7 +44,7 @@ * Copy "OS9 BOOT" to screen area ldx #$810C leay <BootMsg,pcr - ldb #$08 + ldb #BootMLen L2649 lda ,y+ sta ,x+ decb
--- a/level1/modules/rs232.asm Mon Jul 15 04:21:09 2002 +0000 +++ b/level1/modules/rs232.asm Mon Jul 15 04:48:17 2002 +0000 @@ -28,7 +28,7 @@ u001D rmb 1 u001E rmb 1 u001F rmb 1 -u0020 rmb 2 +BaudCnt rmb 2 baud rate counter u0022 rmb 2 u0024 rmb 1 u0025 rmb 1 @@ -38,20 +38,13 @@ name fcs /RS232/ fcb edition -L0014 fcb $04 - fcb $82 - fcb $01 - fcb $A2 " - fcb $00 - fcb $CD M - fcb $00 - fcb $63 c - fcb $00 - fcb $2D - - fcb $00 - fcb $13 - fcb $00 - fcb $05 +BaudTbl fdb $0482 110 baud + fdb $01A2 300 baud + fdb $00CD 600 baud + fdb $0063 1200 baud + fdb $002D 2400 baud + fdb $0013 4800 baud + fdb $0005 9600 baud start lbra Init lbra Read @@ -153,25 +146,25 @@ rts L00B1 pshs a lda <PD.BAU,y - anda #$0F - cmpa #$07 + anda #$0F mask out baud rate + cmpa #B19200 bcc L00C9 lsla - leax >L0014,pcr + leax >BaudTbl,pcr ldd a,x - std <u0020,u + std <BaudCnt,u clrb puls pc,a -L00C9 ldb #$CB +L00C9 ldb #E$BMode puls a L00CD orcc #Carry rts L00D0 stb >PIA.U8 L00D3 pshs b,a - ldd <u0020,u + ldd <BaudCnt,u bra L00E1 L00DA pshs b,a - ldd <u0020,u + ldd <BaudCnt,u lsra rorb L00E1 subd #$0001