Some formatting and style fixes.

asminc/atari.inc

@@ -1002,7 +1002,7 @@ CASETV  = $E440         ;cassette handler vector table
 
 DISKIV  = $E450         ;vector to initialize DIO
 DSKINV  = $E453         ;vector to DIO
-.if .defined(__ATARIXL__)
+.ifdef __ATARIXL__
 .ifndef SHRAM_HANDLERS
 .import CIO_handler, SIO_handler, SETVBV_handler
 .endif

libsrc/atari/crt0.s

@@ -100,23 +100,6 @@ start:
 
         jsr     initlib
 
-.if 0
-.ifdef __ATARIXL__
-        .import __heapadd
-        .import pushax
-        .import __RAM_BELOW_ROM_START__
-        .import __RAM_BELOW_ROM_SIZE__
-        .import __RAM_BELOW_ROM_LAST__
-
-        lda     #<__RAM_BELOW_ROM_LAST__
-        ldx     #>__RAM_BELOW_ROM_LAST__
-        jsr     pushax
-        lda     #<(__RAM_BELOW_ROM_SIZE__ - (__RAM_BELOW_ROM_LAST__ - __RAM_BELOW_ROM_START__))
-        ldx     #>(__RAM_BELOW_ROM_SIZE__ - (__RAM_BELOW_ROM_LAST__ - __RAM_BELOW_ROM_START__))
-        jsr     __heapadd
-.endif
-.endif
-
 ; Set left margin to 0
 
         lda     LMARGN
@@ -179,7 +162,9 @@ _exit:  jsr     donelib         ; Run module destructors
         sta     MEMTOP+1
 
 
-; ... issue a GRAPHICS 0 call (copied'n'pasted from TGI drivers)
+; Issue a GRAPHICS 0 call (copied'n'pasted from TGI drivers) in
+; order to restore screen memory to its defailt location just
+; before the ROM.
 
         jsr     findfreeiocb
 
@@ -199,7 +184,9 @@ _exit:  jsr     donelib         ; Run module destructors
         lda     #0
         sta     ICBLH,x
         jsr     CIOV_org
-; add error checking here...
+; No error checking here, shouldn't happen(tm), and no way to
+; recover anyway.
+
         lda     #CLOSE
         sta     ICCOM,x
         jsr     CIOV_org

libsrc/atari/irq.s

@@ -51,7 +51,7 @@ IRQStub:
 .endif
         lda     PORTB
         pha
-        and     #$fe
+        and     #$FE
         sta     PORTB                   ; disable ROM
         set_chbase >__CHARGEN_START__
 .endif

libsrc/atari/shadow_ram_handlers.s

@@ -9,7 +9,7 @@ CHKBUF  =       1       ; check if bounce buffering is needed (bounce buffering
 
 .ifdef __ATARIXL__
 
-        SHRAM_HANDLERS  = 1
+SHRAM_HANDLERS  =       1
         .include        "atari.inc"
         .include        "save_area.inc"
         .include        "zeropage.inc"

libsrc/atari/tgi/atari_tgi_common.inc

@@ -4,7 +4,7 @@
 
 .macpack longbranch
 
-.if .defined(__ATARIXL__)
+.ifdef __ATARIXL__
         CIO_vec := my_CIOV
 .else
         CIO_vec := CIOV
@@ -117,7 +117,7 @@ libref: .addr   $0000                   ; Library reference
         text_dir:
                 .byte   0       ; Text direction,
 
-.if .defined(__ATARIXL__)
+.ifdef __ATARIXL__
         my_CIOV:
                 .byte   $4C, 0, 0
 .endif
@@ -171,7 +171,7 @@ screen_device_length := * - screen_device
 
         stx     mask
 
-.if .defined(__ATARIXL__)
+.ifdef __ATARIXL__
 
         ; setup pointer to CIO