More cleanup of ASM

rom/init.s

@@ -2,9 +2,9 @@
 
 ; ----------------------------------------------------------------------------
 PR_WRITTEN_BY:
-lda     #<QT_WRITTEN_BY
-ldy     #>QT_WRITTEN_BY
-jsr     STROUT
+      lda     #<QT_WRITTEN_BY
+      ldy     #>QT_WRITTEN_BY
+      jsr     STROUT
 
 COLD_START:
       ldx     #$FF
@@ -29,12 +29,12 @@ COLD_START:
       sta     GORESTART
       sta     GOSTROUT
       sta     JMPADRS
-      sta     USR
+      sta     GORESTART
 
       lda     #<IQERR
       ldy     #>IQERR
-      sta     USR+1
-      sty     USR+2
+      sta     GORESTART+1
+      sty     GORESTART+2
       lda     #WIDTH
       sta     Z17
       lda     #WIDTH2
@@ -81,49 +81,6 @@ L4098:
       sta     MEMSIZ
       lda     #>$BC00
       sta     MEMSIZ+1
-      jmp     L4106
-      jsr     NXIN
-      stx     TXTPTR
-      sty     TXTPTR+1
-      jsr     CHRGET
-      cmp     #$41
-      bne     SKIPPED
-      jmp     PR_WRITTEN_BY
-SKIPPED:
-      tay
-      bne     L40EE
-      lda     #<RAMSTART2
-      ldy     #>RAMSTART2
-      sta     TXTTAB
-      sty     TXTTAB+1
-      sta     LINNUM
-      sty     LINNUM+1
-      ldy     #$00
-L40D7:
-      inc     LINNUM
-      bne     L40DD
-      inc     LINNUM+1
-L40DD:
-      lda     #$55 ; 01010101 / 10101010
-      sta     (LINNUM),y
-      cmp     (LINNUM),y
-      bne     L40FA
-      asl     a
-      sta     (LINNUM),y
-      cmp     (LINNUM),y
-      bne     L40FA; new: slower
-      beq     L40D7
-L40EE:
-      jsr     CHRGOT
-      jsr     LINGET
-      tay
-      beq     L40FA
-      jmp     SYNERR
-L40FA:
-      lda     LINNUM
-      ldy     LINNUM+1
-      sta     MEMSIZ
-      sty     MEMSIZ+1
       sta     FRETOP
       sty     FRETOP+1
 L4106:
@@ -134,6 +91,10 @@ L4106:
       stx     TXTPTR
       sty     TXTPTR+1
       jsr     CHRGET
+      cmp     #'A'
+      bne     :+
+      jmp     PR_WRITTEN_BY
+:
       tay
       beq     L4136
       jsr     LINGET
@@ -178,6 +139,9 @@ L4192:
       lda     #<QT_BYTES_FREE
       ldy     #>QT_BYTES_FREE
       jsr     STROUT
+      lda     #<QT_BASIC
+      ldy     #>QT_BASIC
+      jsr     STROUT
       jsr     SCRTCH
       lda     #<STROUT
       ldy     #>STROUT
@@ -190,20 +154,18 @@ L4192:
       jmp     (GORESTART+1)
 
 QT_WRITTEN_BY:
-      .byte   CR,LF,$0C ; FORM FEED
+      .byte   CR,LF
       .byte   "WRITTEN BY WEILAND & GATES"
+      .byte   CR,LF
+      .byte   "PORTED BY KILIAN KURT HOFMANN"
       .byte   CR,LF,0
-QT_MEMORY_SIZE:
-      .byte   "MEMORY SIZE"
-      .byte   0
 QT_TERMINAL_WIDTH:
       .byte   "TERMINAL "
       .byte   "WIDTH"
       .byte   0
 QT_BYTES_FREE:
       .byte   " BYTES FREE"
-      .byte   CR,LF,CR,LF
+      .byte   CR,LF,0
 QT_BASIC:
-      .byte   CR,LF
       .byte   "COPYRIGHT 1977 BY MICROSOFT CO."
-      .byte   CR,LF
+      .byte   CR,LF,CR,LF,0