diff --git a/.DS_Store b/.DS_Store
index f8a4d98..e7c2e0a 100644
Binary files a/.DS_Store and b/.DS_Store differ
diff --git a/DSK/ANN0TEST.DSK b/DSK/ANN0TEST.DSK
index f1c071e..979ef5a 100644
Binary files a/DSK/ANN0TEST.DSK and b/DSK/ANN0TEST.DSK differ
diff --git a/DSK/README.md b/DSK/README.md
index b52f890..a628674 100644
--- a/DSK/README.md
+++ b/DSK/README.md
@@ -11,4 +11,118 @@ Each MIDI file should have a type of $D7 and a suffix of .MID
 
 The program "CHANGETYPE" can be used to change the type of a file.
 
-2018-JUL-26: Tested MIDIDRVR.OBJ on real hardware - the code to change the Annunciator works.  The Negative Logic does not work yet.
+
+TEST PLAN:
+
+
+GIVEN wiring has 2 inverters (positive logic), and MIDI OUT circuit is hooked up to AN0
+
+WHEN you boot the DSK and select option 1 (Test MIDI OUT)  
+
+THEN chord plays on a connected MIDI instrument
+
+
+GIVEN 9018:02
+
+WHEN 9000G
+
+THEN BRK is hit, displays address 9026
+
+WHEN 9003G
+
+THEN BRK is hit, displays address 90A2
+
+
+GIVEN 9018:01, and wiring has 1 inverter (negative logic) and MIDI OUT circuit is hooked up to AN0
+
+WHEN 900EG
+
+THEN plays a chord on the connected MIDI Instrument
+
+
+GIVEN negative logic MIDI OUT circuit
+
+WHEN 
+
+LOAD TESTCHORD
+
+15 POKE 9*4096+16+8,1 : CALL 9*4096
+
+RUN
+
+THEN chord plays on connected MIDI instrument
+
+
+GIVEN midi out circuit is connected to AN1
+
+WHEN
+
+9017:01
+
+9014G
+
+900EG N 9011G
+
+THEN short duration chord plays on connected MIDI instrument
+
+
+GIVEN midi out circuit is connected to AN2
+
+WHEN
+
+9017:02
+
+9014G
+
+900EG N 9011G
+
+THEN short duration chord plays on connected MIDI instrument
+
+
+GIVEN midi out circuit is connected to AN3
+
+WHEN
+
+9017:03
+
+9014G
+
+900EG N 9011G
+
+THEN short duration chord plays on connected MIDI instrument
+
+
+GIVEN midi out circuit can play a chord
+
+WHEN 
+
+900EG N 900BG
+
+THEN very short duration chord plays on connected MIDI instrument (due to all sounds off message)
+
+
+GIVEN midi out circuit can play a chord, and driver is loaded at $9000
+
+WHEN you enter the following Applesoft BASIC program and run it
+
+10 P=36868: M=36867 : REM P=ADDRESS TO POKE MIDI BYTE, M=CALL TO MIDI OUT DRIVER
+
+20 FOR N = 60 TO 72 : REM NOTE NUMBERS FOR MIDDLE C THRU ONE OCTAVE ABOVE MIDDLE C
+
+30 POKE P,144: CALL M: REM 144 (0X90) IS THE MIDI MESSAGE FOR NOTE ON
+
+40 POKE P,N: CALL M: REM FIRST DATABYTE OF NOTE ON MESSAGE IS NOTE NUMBER
+
+50 POKE P,64: CALL M: REM SECOND DATABYTE IS VELOCITY OF KEYPRESS (0=127)
+
+60 FOR DE=1 TO 250: NEXT : REM DELAY LOOP
+
+70 POKE P,N : CALL M : REM USING RUNNING STATUS - MESSAGE IS STILL NOTE ON, BUT NEW DATABYTES
+
+80 POKE P,0: CALL M : REM VELOCITY OF 0 TURNS A NOTE OFF
+
+90 NEXT N: REM REPEAT FOR EACH NOTE IN CHROMATIC SCALE
+
+
+THEN you hear a chromatic scale played on your MIDI instrument.
+
diff --git a/SRC/.DS_Store b/SRC/.DS_Store
index 60d726d..faea55d 100644
Binary files a/SRC/.DS_Store and b/SRC/.DS_Store differ
diff --git a/SRC/A2NoSlotMidi.xcodeproj/project.xcworkspace/xcuserdata/ericrangell.xcuserdatad/UserInterfaceState.xcuserstate b/SRC/A2NoSlotMidi.xcodeproj/project.xcworkspace/xcuserdata/ericrangell.xcuserdatad/UserInterfaceState.xcuserstate
index 97d0fb8..e29c4e9 100644
Binary files a/SRC/A2NoSlotMidi.xcodeproj/project.xcworkspace/xcuserdata/ericrangell.xcuserdatad/UserInterfaceState.xcuserstate and b/SRC/A2NoSlotMidi.xcodeproj/project.xcworkspace/xcuserdata/ericrangell.xcuserdatad/UserInterfaceState.xcuserstate differ
diff --git a/SRC/A2NoSlotMidi/MIDIDRVR.OBJ b/SRC/A2NoSlotMidi/MIDIDRVR.OBJ
index ac62e91..eb087e7 100644
Binary files a/SRC/A2NoSlotMidi/MIDIDRVR.OBJ and b/SRC/A2NoSlotMidi/MIDIDRVR.OBJ differ
diff --git a/SRC/A2NoSlotMidi/MIDIDRVR.OBJ.dsk b/SRC/A2NoSlotMidi/MIDIDRVR.OBJ.dsk
index 8bc3f7b..3f22f1e 100644
Binary files a/SRC/A2NoSlotMidi/MIDIDRVR.OBJ.dsk and b/SRC/A2NoSlotMidi/MIDIDRVR.OBJ.dsk differ
diff --git a/SRC/A2NoSlotMidi/MIDIDRVR.OBJ.map b/SRC/A2NoSlotMidi/MIDIDRVR.OBJ.map
index 430b9c1..98720b1 100644
--- a/SRC/A2NoSlotMidi/MIDIDRVR.OBJ.map
+++ b/SRC/A2NoSlotMidi/MIDIDRVR.OBJ.map
@@ -1,14 +1,14 @@
 Modules list:
 -------------
 main.o:
-    CODE              Offs = 000000   Size = 0002E8
+    CODE              Offs = 000000   Size = 000259
 
 
 Segment list:
 -------------
 Name                  Start   End     Size
 --------------------------------------------
-CODE                  009000  0092E7  0002E8
+CODE                  009000  009258  000259
 
 
 Exports list:
diff --git a/SRC/A2NoSlotMidi/Makefile b/SRC/A2NoSlotMidi/Makefile
index 43b2afa..66058ca 100644
--- a/SRC/A2NoSlotMidi/Makefile
+++ b/SRC/A2NoSlotMidi/Makefile
@@ -24,7 +24,7 @@ PGM=MIDIDRVR.OBJ
 #   http://cc65.github.io/cc65/doc/apple2enh.html#s4
 #
 # Uncomment the one you want below (the first one is the default):
-#    MACHINE = apple2
+     MACHINE = apple2
 #    MACHINE = apple2-dos33
 #    MACHINE = apple2-system
 #    MACHINE = apple2-loader
@@ -39,6 +39,7 @@ PGM=MIDIDRVR.OBJ
 # Uncomment and set this to your starting address in Apple II memory
 # if necessary:
     START_ADDR = 9000
+#   ASMPARMS = "INTERRUPTS=0 \n ANNUNCIATOR=2 \n"
 
 # Set the default CPU to assemble for.  You can change this in the
 # body of a .s file using control commands like ".PC02".  Uncomment
@@ -228,6 +229,8 @@ COPYDIRS=
 # might need.
 gen:
 
+# echo "$(ASMPARMS) > $(SRCDIRS)/ASMPARMS.txt"
+
 # For any files you generated in the gen target above, you should
 # add rules in genclean to remove those generated files when you
 # clean your build.
diff --git a/SRC/A2NoSlotMidi/main.lst b/SRC/A2NoSlotMidi/main.lst
index 5fe7b9b..b239bb6 100644
--- a/SRC/A2NoSlotMidi/main.lst
+++ b/SRC/A2NoSlotMidi/main.lst
@@ -3,20 +3,20 @@ Main file   : main.s
 Current file: main.s
 
 000000r 1               ;-------------------------------------------------------------------------
-000000r 1               ;
+000000r 1               ; APPLE ][ SERIES ANNUNCIATOR MIDI DRIVER
+000000r 1               ; Copyright © 1998-2018 Eric Rangell. MIT License.
+000000r 1               ;-------------------------------------------------------------------------;
 000000r 1               ;  main.s
 000000r 1               ;  A2NoSlotMidi
-000000r 1               ;
-000000r 1               ;  Created by Eric Rangell on 7/17/18.
-000000r 1               ;-------------------------------------------------------------------------
-000000r 1               ; APPLE MIDI DRIVER THROUGH ANNUNCIATOR 0
-000000r 1               ; Copyright © 1998-2018 Eric Rangell. MIT License.
+000000r 1               ;  Created by Eric Rangell on 17 JULY 2018.
+000000r 1               ;  VERSION 1.0.1 released 26 JULY 2018
+000000r 1               ;  VERSION 1.0.2 released 29 JULY 2018
 000000r 1               ;-------------------------------------------------------------------------
 000000r 1               ; THIS DRIVER IMPLEMENTS ASYNCHRONOUS SERIAL DATA TRANSMISSION
-000000r 1               ; THROUGH THE APPLE ANNUNCIATOR 0 OUTPUT PORT OF THE GAME CONNECTOR
+000000r 1               ; THROUGH AN APPLE ][ ANNUNCIATOR OUTPUT PORT OF THE GAME CONNECTOR
 000000r 1               ; USING 32 CYCLES PER BIT TO ACHIEVE A 31.25K MIDI BAUD RATE.
 000000r 1               ;
-000000r 1               ; //GS USERS NEED TO RUN THIS PROGRAM IN NORMAL SPEED MODE
+000000r 1               ; APPLE //GS USERS NEED TO RUN THIS PROGRAM IN NORMAL SPEED MODE (1MHZ)
 000000r 1               ;
 000000r 1               ; THE OUTPUT IS INITIALIZED TO A HIGH LOGIC VOLTAGE.  WHEN IT GOES
 000000r 1               ; LOW FOR 32 MICROSECONDS, THAT INDICATES THE START BIT OF A MIDI BYTE.
@@ -38,15 +38,13 @@ Current file: main.s
 000000r 1               ; $900E = SEND A TEST MESSAGE - C MAJOR CHORD NOTE ONS
 000000r 1               ; $9011 = SEND A TEST MESSAGE - C MAJOR CHORD NOTE OFFS
 000000r 1               ;
-000000r 1               ; IF THE FOLLOWING ROUTINES ARE USED, THEY SHOULD BE CALLED IMMEDIATELY AFTER BLOADING
-000000r 1               ; THE BINARY, THEN THE INITIALIZE ROUTINE SHOULD BE CALLED AT $9000.
+000000r 1               ; IF THE FOLLOWING ROUTINE IS USED, IT SHOULD BE CALLED IMMEDIATELY AFTER BLOADING
+000000r 1               ; THE BINARY.  AT THE END, IT WILL CALL THE INIT ROUTINE FOR THE SELECTED ANNUNCIATOR.
 000000r 1               ;
 000000r 1               ; $9014 = CHANGE ANNUNCIATOR - MODIFIES CODE TO USE DIFFERENT ANNUNCIATOR
 000000r 1               ; $9017 = ANNUNCIATOR TO USE: 0-3 - only looks at least significant 2 bits
-000000r 1               ; DO NOT RUN MORE THAN ONCE - BLOAD THE PROGRAM IF NEED TO CHANGE AGAIN.
 000000r 1               ;
-000000r 1               ; $9018 = CHANGE LOGIC (POSITIVE OR NEGATIVE LOGIC FOR WIRING)
-000000r 1               ; $901B = SET BIT 7 TO USE NEGATIVE LOGIC (ONLY ONE INVERTER IN THE MIDI CIRCUIT)
+000000r 1               ; $9018 = SET TO 1 TO USE NEGATIVE LOGIC (ONLY ONE INVERTER IN THE MIDI CIRCUIT)
 000000r 1               ;-------------------------------------------------------------------------
 000000r 1               ; Enhancements for 2018:
 000000r 1               ; 1. Disable interrupts during critical timing sections, preserve interrupt status
@@ -83,391 +81,343 @@ Current file: main.s
 00000Er 1  4C rr rr             JMP TESTMSG1        ;SEND TEST MESSAGE 1 - C MAJOR CHORD ON
 000011r 1               TEST2:
 000011r 1  4C rr rr             JMP TESTMSG2        ;SEND TEST MESSAGE 2 - C MAJOR CHORD OFF
-000014r 1                       ;
 000014r 1               CHNGANNC:
 000014r 1  4C rr rr             JMP CHGANNC         ;RECONFIGURE PROGRAM TO USE ANNUNCIATOR NUMBER IN NEXT BYTE
 000017r 1               ANNC2USE:
 000017r 1  00                   .byte $00           ;ONLY LEAST SIGNIFICANT 2 BITS ARE USED
-000018r 1               CHNGLOGC:
-000018r 1  4C rr rr             JMP CHGLOGIC        ;RECONFIGURE PROGRAM TO USE POSITIVE OR NEGATIVE LOGIC
-00001Br 1               LOGICBYT:
-00001Br 1  00                   .byte $00           ;SET HIGH BIT TO 1 TO USE NEGATIVE LOGIC, ELSE POSITIVE LOGIC (DEFAULT)
-00001Cr 1               ;---------------------------------------------------------------------------
-00001Cr 1  00           SAVENBYT: .byte $00             ;SAVE AREA FOR NUMBYTES
-00001Dr 1  00           TEMPA:    .byte $00
-00001Er 1  00           TEMPX:    .byte $00
-00001Fr 1               ;ANNPAIR:  .byte  $00            ; ANNUNCIATOR NUMBER TIMES 2 (1=C05A, 2=C05C, 3=C05E)
-00001Fr 1               ;---------------------------------------------------------------------------
-00001Fr 1  2C 59 C0     INIT:   BIT AN0ON
-000022r 1  60                   RTS
-000023r 1               ;---------------------------------------------------------------------------
-000023r 1               ; CRITICAL TIMING SECTION BELOW MUST NOT CROSS A PAGE BOUNDARY
-000023r 1               ;---------------------------------------------------------------------------
-000023r 1               XMITBITS:
-000023r 1  08                   PHP                 ;SAVE CURRENT INTERRUPT STATUS
-000024r 1  78                   SEI                 ;MASK INTERRUPTS DURING CRITICAL TIMING SECTION
-000025r 1  2C 58 C0     MOD9:   BIT AN0OFF          ;4 CYCLES - TRANSMIT START BIT - ALWAYS LOW
-000028r 1  20 rr rr             JSR DELAY22         ;6+22
-00002Br 1               BIT0:
-00002Br 1  2C 58 C0             BIT AN0OFF          ;4
-00002Er 1  20 rr rr             JSR DELAY22         ;6+22
-000031r 1               BIT1:
-000031r 1  2C 58 C0             BIT AN0OFF          ;4
-000034r 1  20 rr rr             JSR DELAY22         ;6+22
-000037r 1               BIT2:
-000037r 1  2C 58 C0             BIT AN0OFF          ;4
-00003Ar 1  20 rr rr             JSR DELAY22         ;6+22
-00003Dr 1               BIT3:
-00003Dr 1  2C 58 C0             BIT AN0OFF          ;4
-000040r 1  20 rr rr             JSR DELAY22         ;6+22
-000043r 1               BIT4:
-000043r 1  2C 58 C0             BIT AN0OFF          ;4
-000046r 1  20 rr rr             JSR DELAY22         ;6+22
-000049r 1               BIT5:
-000049r 1  2C 58 C0             BIT AN0OFF          ;4
-00004Cr 1  20 rr rr             JSR DELAY22         ;6+22
-00004Fr 1               BIT6:
-00004Fr 1  2C 58 C0             BIT AN0OFF          ;4
-000052r 1  20 rr rr             JSR DELAY22         ;6+22
-000055r 1               BIT7:
-000055r 1  2C 58 C0             BIT AN0OFF          ;4
-000058r 1  20 rr rr             JSR DELAY22         ;6+22
-00005Br 1  2C 59 C0     MOD10:  BIT AN0ON           ;4        ;TRANSMIT STOP BIT - ALWAYS HIGH
-00005Er 1  20 rr rr             JSR DELAY22         ;6+22
-000061r 1  28                   PLP                 ;4        ;RESTORE SAVED INTERRUPT STATUS
-000062r 1  60                   RTS                 ;TOTAL TIME INTERRUPTS DISABLED: 324 MICROSECONDS
-000063r 1               ;-----------------------------------------------------------------------
-000063r 1               DELAY22:
-000063r 1  EA                   NOP       ;WAIT 22 CYCLES
-000064r 1  EA                   NOP
-000065r 1  EA                   NOP
-000066r 1  EA                   NOP
-000067r 1  EA                   NOP
-000068r 1  EA                   NOP
-000069r 1  EA                   NOP
-00006Ar 1  EA                   NOP
-00006Br 1  60                   RTS
-00006Cr 1               ;---------------------------------------------------------------------------
-00006Cr 1               XMITMSG:
-00006Cr 1  A5 D7                LDA NUMBYTES        ;SAVE NUMBER OF BYTES
-00006Er 1  8D rr rr             STA SAVENBYT        ;BECAUSE WE WILL CLOBBER IT
-000071r 1  A0 00                LDY #$00            ;Y WILL BE AN INDEX INTO THE DATA AREA
-000073r 1               XMITLOOP:
-000073r 1  B1 CE                LDA (DATAPTR),Y     ;GET A DATA BYTE
-000075r 1  20 rr rr             JSR XMITONE
-000078r 1  C8                   INY                 ;POINT TO NEXT BYTE
-000079r 1  C6 D7                DEC NUMBYTES        ;DECREMENT COUNTER
-00007Br 1  A5 D7                LDA NUMBYTES        ;CHECK IF ZERO
-00007Dr 1  D0 F4                BNE XMITLOOP        ;LOOP UNTIL DONE SENDING ALL BYTES
-00007Fr 1  AD rr rr             LDA SAVENBYT
-000082r 1  85 D7                STA NUMBYTES        ;RESTORE ORIGINAL VALUE OF NUMBYTES
-000084r 1  60                   RTS
-000085r 1               ;---------------------------------------------------------------------------
-000085r 1               XMITONE:
-000085r 1  8D rr rr             STA TEMPA           ;SAVE A AND X REGISTERS
-000088r 1  8E rr rr             STX TEMPX
-00008Br 1               ;
-00008Br 1  0A                   ASL A               ;SHIFT BIT INTO CARRY
-00008Cr 1  AA                   TAX                 ;SAVE CURRENT IMAGE OF DATA BYTE
-00008Dr 1  A9 00                LDA #$00            ;ZERO OUT ACCUMULATOR FOR ADD
-00008Fr 1  69 58        MOD1:   ADC #<AN0OFF        ;ADD CARRY TO ANNUNCIATOR ADDRESS
-000091r 1  8D rr rr             STA BIT7+1          ;MODIFY THE XMITBITS SUBROUTINE
-000094r 1  8A                   TXA                 ;RESTORE ACCUMULATOR
-000095r 1               ;
-000095r 1  0A                   ASL A               ;SHIFT BIT INTO CARRY
-000096r 1  AA                   TAX                 ;SAVE CURRENT IMAGE OF DATA BYTE
-000097r 1  A9 00                LDA #$00            ;ZERO OUT ACCUMULATOR FOR ADD
-000099r 1  69 58        MOD2:   ADC #<AN0OFF        ;ADD CARRY TO ANNUNCIATOR ADDRESS
-00009Br 1  8D rr rr             STA BIT6+1          ;MODIFY THE XMITBITS SUBROUTINE
-00009Er 1  8A                   TXA                 ;RESTORE ACCUMULATOR
-00009Fr 1               ;
-00009Fr 1  0A                   ASL A               ;SHIFT BIT INTO CARRY
-0000A0r 1  AA                   TAX                 ;SAVE CURRENT IMAGE OF DATA BYTE
-0000A1r 1  A9 00                LDA #$00            ;ZERO OUT ACCUMULATOR FOR ADD
-0000A3r 1  69 58        MOD3:   ADC #<AN0OFF        ;ADD CARRY TO ANNUNCIATOR ADDRESS
-0000A5r 1  8D rr rr             STA BIT5+1          ;MODIFY THE XMITBITS SUBROUTINE
-0000A8r 1  8A                   TXA                 ;RESTORE ACCUMULATOR
-0000A9r 1               ;
-0000A9r 1  0A                   ASL A               ;SHIFT BIT INTO CARRY
-0000AAr 1  AA                   TAX                 ;SAVE CURRENT IMAGE OF DATA BYTE
-0000ABr 1  A9 00                LDA #$00            ;ZERO OUT ACCUMULATOR FOR ADD
-0000ADr 1  69 58        MOD4:   ADC #<AN0OFF        ;ADD CARRY TO ANNUNCIATOR ADDRESS
-0000AFr 1  8D rr rr             STA BIT4+1          ;MODIFY THE XMITBITS SUBROUTINE
-0000B2r 1  8A                   TXA                 ;RESTORE ACCUMULATOR
-0000B3r 1               ;
-0000B3r 1  0A                   ASL A               ;SHIFT BIT INTO CARRY
-0000B4r 1  AA                   TAX                 ;SAVE CURRENT IMAGE OF DATA BYTE
-0000B5r 1  A9 00                LDA #$00            ;ZERO OUT ACCUMULATOR FOR ADD
-0000B7r 1  69 58        MOD5:   ADC #<AN0OFF        ;ADD CARRY TO ANNUNCIATOR ADDRESS
-0000B9r 1  8D rr rr             STA BIT3+1          ;MODIFY THE XMITBITS SUBROUTINE
-0000BCr 1  8A                   TXA                 ;RESTORE ACCUMULATOR
-0000BDr 1               ;
-0000BDr 1  0A                   ASL A               ;SHIFT BIT INTO CARRY
-0000BEr 1  AA                   TAX                 ;SAVE CURRENT IMAGE OF DATA BYTE
-0000BFr 1  A9 00                LDA #$00            ;ZERO OUT ACCUMULATOR FOR ADD
-0000C1r 1  69 58        MOD6:   ADC #<AN0OFF        ;ADD CARRY TO ANNUNCIATOR ADDRESS
-0000C3r 1  8D rr rr             STA BIT2+1          ;MODIFY THE XMITBITS SUBROUTINE
-0000C6r 1  8A                   TXA                 ;RESTORE ACCUMULATOR
-0000C7r 1               ;
-0000C7r 1  0A                   ASL A               ;SHIFT BIT INTO CARRY
-0000C8r 1  AA                   TAX                 ;SAVE CURRENT IMAGE OF DATA BYTE
-0000C9r 1  A9 00                LDA #$00            ;ZERO OUT ACCUMULATOR FOR ADD
-0000CBr 1  69 58        MOD7:   ADC #<AN0OFF        ;ADD CARRY TO ANNUNCIATOR ADDRESS
-0000CDr 1  8D rr rr             STA BIT1+1          ;MODIFY THE XMITBITS SUBROUTINE
-0000D0r 1  8A                   TXA                 ;RESTORE ACCUMULATOR
-0000D1r 1               ;
-0000D1r 1  0A                   ASL A               ;SHIFT BIT INTO CARRY
-0000D2r 1  AA                   TAX                 ;SAVE CURRENT IMAGE OF DATA BYTE
-0000D3r 1  A9 00                LDA #$00             ;ZERO OUT ACCUMULATOR FOR ADD
-0000D5r 1  69 58        MOD8:   ADC #<AN0OFF        ;ADD CARRY TO ANNUNCIATOR ADDRESS
-0000D7r 1  8D rr rr             STA BIT0+1          ;MODIFY THE XMITBITS SUBROUTINE
+000018r 1               NEGLOGIC:
+000018r 1  00                   .byte $00           ;SET TO 1 TO USE NEGATIVE LOGIC, OTHERWISE LEAVE 0 FOR POSITIVE LOGIC (DEFAULT). DO NOT USE ANY OTHER VALUES!
+000019r 1               ;---------------------------------------------------------------------------
+000019r 1  01           MAJVER:     .byte $01       ;BYTES USED TO TRACK VERSION OF RELEASED EXECUTABLES
+00001Ar 1  02           MINVER:     .byte $02       ;NIBBLES ARE USED FOR THE VERSION NUMBER ($0102 = VERSION 1.0.2)
+00001Br 1  00           ASAVE:      .byte $00       ;SAVE AREA FOR ACCUMULATOR
+00001Cr 1  00           SAVENBYT:   .byte $00       ;SAVE AREA FOR NUMBYTES
+00001Dr 1               ;---------------------------------------------------------------------------
+00001Dr 1  AD rr rr     INIT:   LDA NEGLOGIC
+000020r 1  29 FE                AND #$FE
+000022r 1  F0 01                BEQ OK2INIT
+000024r 1  00                   BRK                 ;ABEND IF NEGLOGIC NOT 0 OR 1
+000025r 1               OK2INIT:
+000025r 1  A9 59                LDA #<AN0ON         ;MODIFY BIT INSTRUCTION BELOW - FLIP LEAST SIGNIFICANT BIT IF NEGATIVE LOGIC
+000027r 1  4D rr rr             EOR NEGLOGIC
+00002Ar 1  8D rr rr             STA INITANNC+1
+00002Dr 1               INITANNC:
+00002Dr 1  2C 59 C0             BIT AN0ON
+000030r 1  60                   RTS
+000031r 1               ;---------------------------------------------------------------------------
+000031r 1               ; CRITICAL TIMING SECTION BELOW MUST NOT CROSS A PAGE BOUNDARY
+000031r 1               ;---------------------------------------------------------------------------
+000031r 1               XMITBITS:
+000031r 1  08                   PHP                 ;SAVE CURRENT INTERRUPT STATUS
+000032r 1  78                   SEI                 ;MASK INTERRUPTS DURING CRITICAL TIMING SECTION
+000033r 1               STRTBIT:
+000033r 1  2C 58 C0             BIT AN0OFF          ;4 CYCLES - TRANSMIT START BIT - ALWAYS LOW
+000036r 1  20 rr rr             JSR DELAY22         ;6+22
+000039r 1               BIT0:
+000039r 1  2C 58 C0             BIT AN0OFF          ;4
+00003Cr 1  20 rr rr             JSR DELAY22         ;6+22
+00003Fr 1               BIT1:
+00003Fr 1  2C 58 C0             BIT AN0OFF          ;4
+000042r 1  20 rr rr             JSR DELAY22         ;6+22
+000045r 1               BIT2:
+000045r 1  2C 58 C0             BIT AN0OFF          ;4
+000048r 1  20 rr rr             JSR DELAY22         ;6+22
+00004Br 1               BIT3:
+00004Br 1  2C 58 C0             BIT AN0OFF          ;4
+00004Er 1  20 rr rr             JSR DELAY22         ;6+22
+000051r 1               BIT4:
+000051r 1  2C 58 C0             BIT AN0OFF          ;4
+000054r 1  20 rr rr             JSR DELAY22         ;6+22
+000057r 1               BIT5:
+000057r 1  2C 58 C0             BIT AN0OFF          ;4
+00005Ar 1  20 rr rr             JSR DELAY22         ;6+22
+00005Dr 1               BIT6:
+00005Dr 1  2C 58 C0             BIT AN0OFF          ;4
+000060r 1  20 rr rr             JSR DELAY22         ;6+22
+000063r 1               BIT7:
+000063r 1  2C 58 C0             BIT AN0OFF          ;4
+000066r 1  20 rr rr             JSR DELAY22         ;6+22
+000069r 1               STOPBIT:
+000069r 1  2C 59 C0             BIT AN0ON           ;4        ;TRANSMIT STOP BIT - ALWAYS HIGH
+00006Cr 1  20 rr rr             JSR DELAY22         ;6+22
+00006Fr 1  28                   PLP                 ;4        ;RESTORE SAVED INTERRUPT STATUS
+000070r 1  60                   RTS                 ;TOTAL TIME INTERRUPTS DISABLED: 324 MICROSECONDS
+000071r 1               ;-----------------------------------------------------------------------
+000071r 1               DELAY22:
+000071r 1  EA                   NOP       ;WAIT 22 CYCLES
+000072r 1  EA                   NOP
+000073r 1  EA                   NOP
+000074r 1  EA                   NOP
+000075r 1  EA                   NOP
+000076r 1  EA                   NOP
+000077r 1  EA                   NOP
+000078r 1  EA                   NOP
+000079r 1  60                   RTS
+00007Ar 1               ;---------------------------------------------------------------------------
+00007Ar 1               XMITMSG:
+00007Ar 1  A5 D7                LDA NUMBYTES        ;SAVE NUMBER OF BYTES
+00007Cr 1  8D rr rr             STA SAVENBYT        ;BECAUSE WE WILL CLOBBER IT
+00007Fr 1  A0 00                LDY #$00            ;Y WILL BE AN INDEX INTO THE DATA AREA
+000081r 1               XMITLOOP:
+000081r 1  B1 CE                LDA (DATAPTR),Y     ;GET A DATA BYTE
+000083r 1  20 rr rr             JSR XMITONE
+000086r 1  C8                   INY                 ;POINT TO NEXT BYTE
+000087r 1  C6 D7                DEC NUMBYTES        ;DECREMENT COUNTER
+000089r 1  A5 D7                LDA NUMBYTES        ;CHECK IF ZERO
+00008Br 1  D0 F4                BNE XMITLOOP        ;LOOP UNTIL DONE SENDING ALL BYTES
+00008Dr 1  AD rr rr             LDA SAVENBYT
+000090r 1  85 D7                STA NUMBYTES        ;RESTORE ORIGINAL VALUE OF NUMBYTES
+000092r 1  60                   RTS
+000093r 1               ;---------------------------------------------------------------------------
+000093r 1               XMITONE:
+000093r 1  8D rr rr             STA ASAVE           ;ABEND IF NEGLOGIC NOT 0 OR 1
+000096r 1  AD rr rr             LDA NEGLOGIC
+000099r 1  29 FE                AND #$FE
+00009Br 1  F0 04                BEQ OK2XMIT
+00009Dr 1  AD rr rr             LDA ASAVE
+0000A0r 1  00                   BRK
+0000A1r 1               OK2XMIT:
+0000A1r 1  8A                   TXA                 ;SAVE X AND A ON STACK IN CASE THIS CODE GETS INTERRUPTED
+0000A2r 1  48                   PHA
+0000A3r 1  AD rr rr             LDA ASAVE
+0000A6r 1  48                   PHA
+0000A7r 1               ;
+0000A7r 1  0A                   ASL A               ;SHIFT BIT INTO CARRY
+0000A8r 1  AA                   TAX                 ;SAVE CURRENT IMAGE OF DATA BYTE
+0000A9r 1  A9 00                LDA #$00            ;ZERO OUT ACCUMULATOR FOR ADD
+0000ABr 1  69 58        MOD1:   ADC #<AN0OFF        ;ADD CARRY TO ANNUNCIATOR ADDRESS
+0000ADr 1  4D rr rr             EOR NEGLOGIC        ;FLIP ADDRESSES IF USING NEGATIVE LOGIC
+0000B0r 1  8D rr rr             STA BIT7+1          ;MODIFY THE XMITBITS SUBROUTINE
+0000B3r 1  8A                   TXA                 ;RESTORE ACCUMULATOR
+0000B4r 1               ;
+0000B4r 1  0A                   ASL A               ;SHIFT BIT INTO CARRY
+0000B5r 1  AA                   TAX                 ;SAVE CURRENT IMAGE OF DATA BYTE
+0000B6r 1  A9 00                LDA #$00            ;ZERO OUT ACCUMULATOR FOR ADD
+0000B8r 1  69 58        MOD2:   ADC #<AN0OFF        ;ADD CARRY TO ANNUNCIATOR ADDRESS
+0000BAr 1  4D rr rr             EOR NEGLOGIC        ;FLIP ADDRESSES IF USING NEGATIVE LOGIC
+0000BDr 1  8D rr rr             STA BIT6+1          ;MODIFY THE XMITBITS SUBROUTINE
+0000C0r 1  8A                   TXA                 ;RESTORE ACCUMULATOR
+0000C1r 1               ;
+0000C1r 1  0A                   ASL A               ;SHIFT BIT INTO CARRY
+0000C2r 1  AA                   TAX                 ;SAVE CURRENT IMAGE OF DATA BYTE
+0000C3r 1  A9 00                LDA #$00            ;ZERO OUT ACCUMULATOR FOR ADD
+0000C5r 1  69 58        MOD3:   ADC #<AN0OFF        ;ADD CARRY TO ANNUNCIATOR ADDRESS
+0000C7r 1  4D rr rr             EOR NEGLOGIC        ;FLIP ADDRESSES IF USING NEGATIVE LOGIC
+0000CAr 1  8D rr rr             STA BIT5+1          ;MODIFY THE XMITBITS SUBROUTINE
+0000CDr 1  8A                   TXA                 ;RESTORE ACCUMULATOR
+0000CEr 1               ;
+0000CEr 1  0A                   ASL A               ;SHIFT BIT INTO CARRY
+0000CFr 1  AA                   TAX                 ;SAVE CURRENT IMAGE OF DATA BYTE
+0000D0r 1  A9 00                LDA #$00            ;ZERO OUT ACCUMULATOR FOR ADD
+0000D2r 1  69 58        MOD4:   ADC #<AN0OFF        ;ADD CARRY TO ANNUNCIATOR ADDRESS
+0000D4r 1  4D rr rr             EOR NEGLOGIC        ;FLIP ADDRESSES IF USING NEGATIVE LOGIC
+0000D7r 1  8D rr rr             STA BIT4+1          ;MODIFY THE XMITBITS SUBROUTINE
 0000DAr 1  8A                   TXA                 ;RESTORE ACCUMULATOR
 0000DBr 1               ;
-0000DBr 1  20 rr rr             JSR XMITBITS        ;SEND THE BYTE OUT
-0000DEr 1  AE rr rr             LDX TEMPX
-0000E1r 1  AD rr rr             LDA TEMPA           ;RESTORE X AND A
-0000E4r 1  60                   RTS
-0000E5r 1               ;-----------------------------------------------------------------------
-0000E5r 1               TESTMSG1:
-0000E5r 1  A9 07                LDA #7
-0000E7r 1  85 D7                STA NUMBYTES
-0000E9r 1  A9 rr                LDA #<TESTDAT1
-0000EBr 1  85 CE                STA DATAPTR
-0000EDr 1  A9 rr                LDA #>TESTDAT1
-0000EFr 1  85 CF                STA DATAPTR+1
-0000F1r 1  20 rr rr             JSR SENDMSG
-0000F4r 1  60                   RTS
-0000F5r 1               ;-----------------------------------------------------------------------
-0000F5r 1               TESTMSG2:
-0000F5r 1  A9 07                LDA #7
-0000F7r 1  85 D7                STA NUMBYTES
-0000F9r 1  A9 rr                LDA #<TESTDAT2
-0000FBr 1  85 CE                STA DATAPTR
-0000FDr 1  A9 rr                LDA #>TESTDAT2
-0000FFr 1  85 CF                STA DATAPTR+1
-000101r 1  20 rr rr             JSR SENDMSG
-000104r 1  60                   RTS
-000105r 1               ;-----------------------------------------------------------------------
-000105r 1               QUIET:
-000105r 1  A9 90                LDA #$90
-000107r 1  85 D7                STA NUMBYTES
-000109r 1  A9 rr                LDA #<QUIETMSG
-00010Br 1  85 CE                STA DATAPTR
-00010Dr 1  A9 rr                LDA #>QUIETMSG
-00010Fr 1  85 CF                STA DATAPTR+1
-000111r 1  20 rr rr             JSR SENDMSG
-000114r 1  60                   RTS
-000115r 1               ;-----------------------------------------------------------------------
-000115r 1               CHGANNC:
-000115r 1  AD rr rr             LDA ANNC2USE
-000118r 1  29 03                AND #$03        ;KEEP ONLY 2 LEAST SIGNIFICANT BITS
-00011Ar 1  0A                   ASL             ;MULTIPLY BY 2
-00011Br 1  48                   PHA             ;SAVE THIS VALUE FOR EACH MOD BEING DONE BELOW
-00011Cr 1  18                   CLC
-00011Dr 1  6D rr rr             ADC MOD1+1      ;MODIFY LOW BYTE OF EACH ANNUNCIATOR ADDRESS IN CODE ABOVE
-000120r 1  8D rr rr             STA MOD1+1
-000123r 1               ;
-000123r 1  68                   PLA             ;GET VALUE TO ADD
-000124r 1  48                   PHA             ;SAVE IT AGAIN
-000125r 1  18                   CLC
-000126r 1  6D rr rr             ADC MOD2+1
-000129r 1  8D rr rr             STA MOD2+1
-00012Cr 1               ;
-00012Cr 1  68                   PLA             ;GET VALUE TO ADD
-00012Dr 1  48                   PHA             ;SAVE IT AGAIN
-00012Er 1  18                   CLC
-00012Fr 1  6D rr rr             ADC MOD3+1
-000132r 1  8D rr rr             STA MOD3+1
-000135r 1                       ;
-000135r 1  68                   PLA             ;GET VALUE TO ADD
-000136r 1  48                   PHA             ;SAVE IT AGAIN
-000137r 1  18                   CLC
-000138r 1  6D rr rr             ADC MOD4+1
-00013Br 1  8D rr rr             STA MOD4+1
-00013Er 1                       ;
-00013Er 1  68                   PLA             ;GET VALUE TO ADD
-00013Fr 1  48                   PHA             ;SAVE IT AGAIN
-000140r 1  18                   CLC
-000141r 1  6D rr rr             ADC MOD5+1
-000144r 1  8D rr rr             STA MOD5+1
-000147r 1                       ;
-000147r 1  68                   PLA             ;GET VALUE TO ADD
-000148r 1  48                   PHA             ;SAVE IT AGAIN
-000149r 1  18                   CLC
-00014Ar 1  6D rr rr             ADC MOD6+1
-00014Dr 1  8D rr rr             STA MOD6+1
-000150r 1                       ;
-000150r 1  68                   PLA             ;GET VALUE TO ADD
-000151r 1  48                   PHA             ;SAVE IT AGAIN
-000152r 1  18                   CLC
-000153r 1  6D rr rr             ADC MOD7+1
-000156r 1  8D rr rr             STA MOD7+1
-000159r 1                       ;
-000159r 1  68                   PLA             ;GET VALUE TO ADD
-00015Ar 1  48                   PHA             ;SAVE IT AGAIN
-00015Br 1  18                   CLC
-00015Cr 1  6D rr rr             ADC MOD8+1
-00015Fr 1  8D rr rr             STA MOD8+1
-000162r 1                       ;
-000162r 1  68                   PLA             ;GET VALUE TO ADD
-000163r 1  48                   PHA             ;SAVE IT AGAIN
-000164r 1  18                   CLC
-000165r 1  6D rr rr             ADC MOD9+1
-000168r 1  8D rr rr             STA MOD9+1
-00016Br 1                       ;
-00016Br 1  68                   PLA             ;GET VALUE TO ADD
-00016Cr 1  48                   PHA             ;SAVE IT AGAIN
-00016Dr 1  18                   CLC             ;ADD AN EXTRA 1 TO GET ANNUNCIATOR ON ADDRESS
-00016Er 1  6D rr rr             ADC MOD10+1
-000171r 1  8D rr rr             STA MOD10+1
-000174r 1               ;
-000174r 1  68                   PLA             ;GET VALUE TO ADD
-000175r 1  18                   CLC             ;ADD AN EXTRA 1 TO GET ANNUNCIATOR ON ADDRESS
-000176r 1  6D rr rr             ADC INIT+1
-000179r 1  8D rr rr             STA INIT+1
-00017Cr 1  60                   RTS
-00017Dr 1               ;-----------------------------------------------------------------------
-00017Dr 1               CHGLOGIC:
-00017Dr 1  AD rr rr             LDA LOGICBYT
-000180r 1  10 6B                BPL POSITIVE    ; HIGH BIT DETERMINES POSITIVE OR NEGATIVE LOGIC
-000182r 1  AD rr rr             LDA MOD1+1
-000185r 1  29 FE                AND #$FE        ;SET THE LEAST SIGNIFICANT BIT TO 1 TO GET C059, C05B, C05D, C05F
-000187r 1  09 01                ORA #$01
-000189r 1  8D rr rr             STA MOD1+1
-00018Cr 1  AD rr rr             LDA MOD2+1
-00018Fr 1  29 FE                AND #$FE
-000191r 1  09 01                ORA #$01
-000193r 1  8D rr rr             STA MOD2+1
-000196r 1  AD rr rr             LDA MOD3+1
-000199r 1  29 FE                AND #$FE
-00019Br 1  09 01                ORA #$01
-00019Dr 1  8D rr rr             STA MOD3+1
-0001A0r 1  AD rr rr             LDA MOD4+1
-0001A3r 1  29 FE                AND #$FE
-0001A5r 1  09 01                ORA #$01
-0001A7r 1  8D rr rr             STA MOD4+1
-0001AAr 1  AD rr rr             LDA MOD5+1
-0001ADr 1  29 FE                AND #$FE
-0001AFr 1  09 01                ORA #$01
-0001B1r 1  8D rr rr             STA MOD5+1
-0001B4r 1  AD rr rr             LDA MOD6+1
-0001B7r 1  29 FE                AND #$FE
-0001B9r 1  09 01                ORA #$01
-0001BBr 1  8D rr rr             STA MOD6+1
-0001BEr 1  AD rr rr             LDA MOD7+1
-0001C1r 1  29 FE                AND #$FE
-0001C3r 1  09 01                ORA #$01
-0001C5r 1  8D rr rr             STA MOD7+1
-0001C8r 1  AD rr rr             LDA MOD8+1
-0001CBr 1  29 FE                AND #$FE
-0001CDr 1  09 01                ORA #$01
-0001CFr 1  8D rr rr             STA MOD8+1
-0001D2r 1  AD rr rr             LDA MOD9+1
-0001D5r 1  29 FE                AND #$FE
-0001D7r 1  09 01                ORA #$01
-0001D9r 1  8D rr rr             STA MOD9+1
-0001DCr 1  AD rr rr             LDA MOD10+1
-0001DFr 1  29 FE                AND #$FE    ;ZERO THE LEAST SIGNIFICANT BIT TO GET C058, C05A, C05C, C05E
-0001E1r 1  8D rr rr             STA MOD10+1
-0001E4r 1  AD rr rr             LDA INIT+1
-0001E7r 1  29 FE                AND #$FE
-0001E9r 1  8D rr rr             STA INIT+1
-0001ECr 1  60                   RTS
-0001EDr 1               POSITIVE:
-0001EDr 1  AD rr rr             LDA MOD1+1
-0001F0r 1  29 FE                AND #$FE        ;ZERO THE LEAST SIGNIFICANT BIT TO GET C058, C05A, C05C, C05E
-0001F2r 1  8D rr rr             STA MOD1+1
-0001F5r 1  AD rr rr             LDA MOD2+1
-0001F8r 1  29 FE                AND #$FE
-0001FAr 1  8D rr rr             STA MOD2+1
-0001FDr 1  AD rr rr             LDA MOD3+1
-000200r 1  29 FE                AND #$FE
-000202r 1  8D rr rr             STA MOD3+1
-000205r 1  AD rr rr             LDA MOD4+1
-000208r 1  29 FE                AND #$FE
-00020Ar 1  8D rr rr             STA MOD4+1
-00020Dr 1  AD rr rr             LDA MOD5+1
-000210r 1  29 FE                AND #$FE
-000212r 1  8D rr rr             STA MOD5+1
-000215r 1  AD rr rr             LDA MOD6+1
-000218r 1  29 FE                AND #$FE
-00021Ar 1  8D rr rr             STA MOD6+1
-00021Dr 1  AD rr rr             LDA MOD7+1
-000220r 1  29 FE                AND #$FE
-000222r 1  8D rr rr             STA MOD7+1
-000225r 1  AD rr rr             LDA MOD8+1
-000228r 1  29 FE                AND #$FE
-00022Ar 1  8D rr rr             STA MOD8+1
-00022Dr 1  AD rr rr             LDA MOD9+1
-000230r 1  29 FE                AND #$FE
-000232r 1  8D rr rr             STA MOD9+1
-000235r 1  AD rr rr             LDA MOD10+1
-000238r 1  29 FE                AND #$FE
-00023Ar 1  09 01                ORA #$01    ;SET THE LEAST SIGNIFICANT BIT TO 1 TO GET C059, C05B, C05D, C05F
-00023Cr 1  8D rr rr             STA MOD10+1
-00023Fr 1  AD rr rr             LDA INIT+1
-000242r 1  29 FE                AND #$FE
-000244r 1  09 01                ORA #$01
-000246r 1  8D rr rr             STA INIT+1
-000249r 1  60                   RTS
-00024Ar 1               ;-----------------------------------------------------------------------
-00024Ar 1               TESTDAT1:
-00024Ar 1  90 3C 40 40      .byte $90,$3C,$40,$40,$40,$43,$40
-00024Er 1  40 43 40     
-000251r 1               TESTDAT2:
-000251r 1  90 3C 00 40      .byte $90,$3C,$00,$40,$00,$43,$00
-000255r 1  00 43 00     
-000258r 1               QUIETMSG:
-000258r 1  B0 78 00 B0      .byte $B0,$78,$00,$B0,$79,$00,$B0,$7B,$00
-00025Cr 1  79 00 B0 7B  
-000260r 1  00           
-000261r 1  B1 78 00 B1      .byte $B1,$78,$00,$B1,$79,$00,$B1,$7B,$00
-000265r 1  79 00 B1 7B  
-000269r 1  00           
-00026Ar 1  B2 78 00 B2      .byte $B2,$78,$00,$B2,$79,$00,$B2,$7B,$00
-00026Er 1  79 00 B2 7B  
-000272r 1  00           
-000273r 1  B3 78 00 B3      .byte $B3,$78,$00,$B3,$79,$00,$B3,$7B,$00
-000277r 1  79 00 B3 7B  
-00027Br 1  00           
-00027Cr 1  B4 78 00 B4      .byte $B4,$78,$00,$B4,$79,$00,$B4,$7B,$00
-000280r 1  79 00 B4 7B  
-000284r 1  00           
-000285r 1  B5 78 00 B5      .byte $B5,$78,$00,$B5,$79,$00,$B5,$7B,$00
-000289r 1  79 00 B5 7B  
-00028Dr 1  00           
-00028Er 1  B6 78 00 B6      .byte $B6,$78,$00,$B6,$79,$00,$B6,$7B,$00
-000292r 1  79 00 B6 7B  
-000296r 1  00           
-000297r 1  B7 78 00 B7      .byte $B7,$78,$00,$B7,$79,$00,$B7,$7B,$00
-00029Br 1  79 00 B7 7B  
-00029Fr 1  00           
-0002A0r 1  B8 78 00 B8      .byte $B8,$78,$00,$B8,$79,$00,$B8,$7B,$00
-0002A4r 1  79 00 B8 7B  
-0002A8r 1  00           
-0002A9r 1  B9 78 00 B9      .byte $B9,$78,$00,$B9,$79,$00,$B9,$7B,$00
-0002ADr 1  79 00 B9 7B  
-0002B1r 1  00           
-0002B2r 1  BA 78 00 BA      .byte $BA,$78,$00,$BA,$79,$00,$BA,$7B,$00
-0002B6r 1  79 00 BA 7B  
-0002BAr 1  00           
-0002BBr 1  BB 78 00 BB      .byte $BB,$78,$00,$BB,$79,$00,$BB,$7B,$00
-0002BFr 1  79 00 BB 7B  
-0002C3r 1  00           
-0002C4r 1  BC 78 00 BC      .byte $BC,$78,$00,$BC,$79,$00,$BC,$7B,$00
-0002C8r 1  79 00 BC 7B  
-0002CCr 1  00           
-0002CDr 1  BD 78 00 BD      .byte $BD,$78,$00,$BD,$79,$00,$BD,$7B,$00
-0002D1r 1  79 00 BD 7B  
-0002D5r 1  00           
-0002D6r 1  BE 78 00 BE      .byte $BE,$78,$00,$BE,$79,$00,$BE,$7B,$00
-0002DAr 1  79 00 BE 7B  
-0002DEr 1  00           
-0002DFr 1  BF 78 00 BF      .byte $BF,$78,$00,$BF,$79,$00,$BF,$7B,$00
-0002E3r 1  79 00 BF 7B  
-0002E7r 1  00           
-0002E8r 1               ;----------------
-0002E8r 1               ; END OF PROGRAM
-0002E8r 1               ;----------------
-0002E8r 1               .endproc
-0002E8r 1               
+0000DBr 1  0A                   ASL A               ;SHIFT BIT INTO CARRY
+0000DCr 1  AA                   TAX                 ;SAVE CURRENT IMAGE OF DATA BYTE
+0000DDr 1  A9 00                LDA #$00            ;ZERO OUT ACCUMULATOR FOR ADD
+0000DFr 1  69 58        MOD5:   ADC #<AN0OFF        ;ADD CARRY TO ANNUNCIATOR ADDRESS
+0000E1r 1  4D rr rr             EOR NEGLOGIC        ;FLIP ADDRESSES IF USING NEGATIVE LOGIC
+0000E4r 1  8D rr rr             STA BIT3+1          ;MODIFY THE XMITBITS SUBROUTINE
+0000E7r 1  8A                   TXA                 ;RESTORE ACCUMULATOR
+0000E8r 1               ;
+0000E8r 1  0A                   ASL A               ;SHIFT BIT INTO CARRY
+0000E9r 1  AA                   TAX                 ;SAVE CURRENT IMAGE OF DATA BYTE
+0000EAr 1  A9 00                LDA #$00            ;ZERO OUT ACCUMULATOR FOR ADD
+0000ECr 1  69 58        MOD6:   ADC #<AN0OFF        ;ADD CARRY TO ANNUNCIATOR ADDRESS
+0000EEr 1  4D rr rr             EOR NEGLOGIC        ;FLIP ADDRESSES IF USING NEGATIVE LOGIC
+0000F1r 1  8D rr rr             STA BIT2+1          ;MODIFY THE XMITBITS SUBROUTINE
+0000F4r 1  8A                   TXA                 ;RESTORE ACCUMULATOR
+0000F5r 1               ;
+0000F5r 1  0A                   ASL A               ;SHIFT BIT INTO CARRY
+0000F6r 1  AA                   TAX                 ;SAVE CURRENT IMAGE OF DATA BYTE
+0000F7r 1  A9 00                LDA #$00            ;ZERO OUT ACCUMULATOR FOR ADD
+0000F9r 1  69 58        MOD7:   ADC #<AN0OFF        ;ADD CARRY TO ANNUNCIATOR ADDRESS
+0000FBr 1  4D rr rr             EOR NEGLOGIC        ;FLIP ADDRESSES IF USING NEGATIVE LOGIC
+0000FEr 1  8D rr rr             STA BIT1+1          ;MODIFY THE XMITBITS SUBROUTINE
+000101r 1  8A                   TXA                 ;RESTORE ACCUMULATOR
+000102r 1               ;
+000102r 1  0A                   ASL A               ;SHIFT BIT INTO CARRY
+000103r 1  AA                   TAX                 ;SAVE CURRENT IMAGE OF DATA BYTE
+000104r 1  A9 00                LDA #$00             ;ZERO OUT ACCUMULATOR FOR ADD
+000106r 1  69 58        MOD8:   ADC #<AN0OFF        ;ADD CARRY TO ANNUNCIATOR ADDRESS
+000108r 1  4D rr rr             EOR NEGLOGIC        ;FLIP ADDRESSES IF USING NEGATIVE LOGIC
+00010Br 1  8D rr rr             STA BIT0+1          ;MODIFY THE XMITBITS SUBROUTINE
+00010Er 1  8A                   TXA                 ;RESTORE ACCUMULATOR
+00010Fr 1               ;
+00010Fr 1  A9 58        MOD9:   LDA #<AN0OFF       ;FLIP ANNUNCIATOR ADDRESSES OF START AND STOP BITS IF USING NEGATIVE LOGIC
+000111r 1  4D rr rr             EOR NEGLOGIC
+000114r 1  8D rr rr             STA STRTBIT+1
+000117r 1               ;
+000117r 1  A9 59        MOD10:  LDA #<AN0ON
+000119r 1  4D rr rr             EOR NEGLOGIC
+00011Cr 1  8D rr rr             STA STOPBIT+1
+00011Fr 1               ;
+00011Fr 1  20 rr rr             JSR XMITBITS        ;SEND THE BYTE OUT
+000122r 1  68                   PLA                 ;RESTORE A AND X
+000123r 1  8D rr rr             STA ASAVE
+000126r 1  68                   PLA
+000127r 1  AA                   TAX
+000128r 1  AD rr rr             LDA ASAVE
+00012Br 1  60                   RTS
+00012Cr 1               ;-----------------------------------------------------------------------
+00012Cr 1               TESTMSG1:
+00012Cr 1  A9 07                LDA #7
+00012Er 1  85 D7                STA NUMBYTES
+000130r 1  A9 rr                LDA #<TESTDAT1
+000132r 1  85 CE                STA DATAPTR
+000134r 1  A9 rr                LDA #>TESTDAT1
+000136r 1  85 CF                STA DATAPTR+1
+000138r 1  20 rr rr             JSR SENDMSG
+00013Br 1  60                   RTS
+00013Cr 1               ;-----------------------------------------------------------------------
+00013Cr 1               TESTMSG2:
+00013Cr 1  A9 07                LDA #7
+00013Er 1  85 D7                STA NUMBYTES
+000140r 1  A9 rr                LDA #<TESTDAT2
+000142r 1  85 CE                STA DATAPTR
+000144r 1  A9 rr                LDA #>TESTDAT2
+000146r 1  85 CF                STA DATAPTR+1
+000148r 1  20 rr rr             JSR SENDMSG
+00014Br 1  60                   RTS
+00014Cr 1               ;-----------------------------------------------------------------------
+00014Cr 1               QUIET:
+00014Cr 1  A9 90                LDA #$90
+00014Er 1  85 D7                STA NUMBYTES
+000150r 1  A9 rr                LDA #<QUIETMSG
+000152r 1  85 CE                STA DATAPTR
+000154r 1  A9 rr                LDA #>QUIETMSG
+000156r 1  85 CF                STA DATAPTR+1
+000158r 1  20 rr rr             JSR SENDMSG
+00015Br 1  60                   RTS
+00015Cr 1               ;-----------------------------------------------------------------------
+00015Cr 1               CHGANNC:
+00015Cr 1  AD rr rr             LDA ANNC2USE
+00015Fr 1  29 03                AND #$03        ;KEEP ONLY 2 LEAST SIGNIFICANT BITS
+000161r 1  0A                   ASL             ;MULTIPLY BY 2
+000162r 1  48                   PHA             ;SAVE THIS VALUE FOR EACH MOD BEING DONE BELOW
+000163r 1  18                   CLC
+000164r 1  69 58                ADC #<AN0OFF    ;MODIFY LOW BYTE OF EACH ANNUNCIATOR ADDRESS IN CODE ABOVE
+000166r 1  8D rr rr             STA MOD1+1
+000169r 1               ;
+000169r 1  68                   PLA             ;GET VALUE TO ADD
+00016Ar 1  48                   PHA             ;SAVE IT AGAIN
+00016Br 1  18                   CLC
+00016Cr 1  69 58                ADC #<AN0OFF
+00016Er 1  8D rr rr             STA MOD2+1
+000171r 1               ;
+000171r 1  68                   PLA             ;GET VALUE TO ADD
+000172r 1  48                   PHA             ;SAVE IT AGAIN
+000173r 1  18                   CLC
+000174r 1  69 58                ADC #<AN0OFF
+000176r 1  8D rr rr             STA MOD3+1
+000179r 1                       ;
+000179r 1  68                   PLA             ;GET VALUE TO ADD
+00017Ar 1  48                   PHA             ;SAVE IT AGAIN
+00017Br 1  18                   CLC
+00017Cr 1  69 58                ADC #<AN0OFF
+00017Er 1  8D rr rr             STA MOD4+1
+000181r 1                       ;
+000181r 1  68                   PLA             ;GET VALUE TO ADD
+000182r 1  48                   PHA             ;SAVE IT AGAIN
+000183r 1  18                   CLC
+000184r 1  69 58                ADC #<AN0OFF
+000186r 1  8D rr rr             STA MOD5+1
+000189r 1                       ;
+000189r 1  68                   PLA             ;GET VALUE TO ADD
+00018Ar 1  48                   PHA             ;SAVE IT AGAIN
+00018Br 1  18                   CLC
+00018Cr 1  69 58                ADC #<AN0OFF
+00018Er 1  8D rr rr             STA MOD6+1
+000191r 1                       ;
+000191r 1  68                   PLA             ;GET VALUE TO ADD
+000192r 1  48                   PHA             ;SAVE IT AGAIN
+000193r 1  18                   CLC
+000194r 1  69 58                ADC #<AN0OFF
+000196r 1  8D rr rr             STA MOD7+1
+000199r 1                       ;
+000199r 1  68                   PLA             ;GET VALUE TO ADD
+00019Ar 1  48                   PHA             ;SAVE IT AGAIN
+00019Br 1  18                   CLC
+00019Cr 1  69 58                ADC #<AN0OFF
+00019Er 1  8D rr rr             STA MOD8+1
+0001A1r 1                       ;
+0001A1r 1  68                   PLA             ;GET VALUE TO ADD
+0001A2r 1  48                   PHA             ;SAVE IT AGAIN
+0001A3r 1  18                   CLC
+0001A4r 1  69 58                ADC #<AN0OFF    ;START BIT IS ALWAYS LOW
+0001A6r 1  8D rr rr             STA MOD9+1
+0001A9r 1                       ;
+0001A9r 1  68                   PLA             ;GET VALUE TO ADD
+0001AAr 1  48                   PHA             ;SAVE IT AGAIN
+0001ABr 1  18                   CLC
+0001ACr 1  69 59                ADC #<AN0ON     ;STOP BIT IS ALWAYS HIGH
+0001AEr 1  8D rr rr             STA MOD10+1
+0001B1r 1               ;
+0001B1r 1  68                   PLA             ;GET VALUE TO ADD
+0001B2r 1  18                   CLC
+0001B3r 1  69 59                ADC #<AN0ON     ;INITIALIZE MIDI BY SENDING HIGH "CARRIER" BIT
+0001B5r 1  8D rr rr             STA OK2INIT+1
+0001B8r 1  4C rr rr             JMP INIT        ;TURN ON THE NEWLY SELECTED ANNUNCIATOR
+0001BBr 1               ;-----------------------------------------------------------------------
+0001BBr 1               TESTDAT1:
+0001BBr 1  90 3C 40 40      .byte $90,$3C,$40,$40,$40,$43,$40
+0001BFr 1  40 43 40     
+0001C2r 1               TESTDAT2:
+0001C2r 1  90 3C 00 40      .byte $90,$3C,$00,$40,$00,$43,$00
+0001C6r 1  00 43 00     
+0001C9r 1               QUIETMSG:
+0001C9r 1  B0 78 00 B0      .byte $B0,$78,$00,$B0,$79,$00,$B0,$7B,$00
+0001CDr 1  79 00 B0 7B  
+0001D1r 1  00           
+0001D2r 1  B1 78 00 B1      .byte $B1,$78,$00,$B1,$79,$00,$B1,$7B,$00
+0001D6r 1  79 00 B1 7B  
+0001DAr 1  00           
+0001DBr 1  B2 78 00 B2      .byte $B2,$78,$00,$B2,$79,$00,$B2,$7B,$00
+0001DFr 1  79 00 B2 7B  
+0001E3r 1  00           
+0001E4r 1  B3 78 00 B3      .byte $B3,$78,$00,$B3,$79,$00,$B3,$7B,$00
+0001E8r 1  79 00 B3 7B  
+0001ECr 1  00           
+0001EDr 1  B4 78 00 B4      .byte $B4,$78,$00,$B4,$79,$00,$B4,$7B,$00
+0001F1r 1  79 00 B4 7B  
+0001F5r 1  00           
+0001F6r 1  B5 78 00 B5      .byte $B5,$78,$00,$B5,$79,$00,$B5,$7B,$00
+0001FAr 1  79 00 B5 7B  
+0001FEr 1  00           
+0001FFr 1  B6 78 00 B6      .byte $B6,$78,$00,$B6,$79,$00,$B6,$7B,$00
+000203r 1  79 00 B6 7B  
+000207r 1  00           
+000208r 1  B7 78 00 B7      .byte $B7,$78,$00,$B7,$79,$00,$B7,$7B,$00
+00020Cr 1  79 00 B7 7B  
+000210r 1  00           
+000211r 1  B8 78 00 B8      .byte $B8,$78,$00,$B8,$79,$00,$B8,$7B,$00
+000215r 1  79 00 B8 7B  
+000219r 1  00           
+00021Ar 1  B9 78 00 B9      .byte $B9,$78,$00,$B9,$79,$00,$B9,$7B,$00
+00021Er 1  79 00 B9 7B  
+000222r 1  00           
+000223r 1  BA 78 00 BA      .byte $BA,$78,$00,$BA,$79,$00,$BA,$7B,$00
+000227r 1  79 00 BA 7B  
+00022Br 1  00           
+00022Cr 1  BB 78 00 BB      .byte $BB,$78,$00,$BB,$79,$00,$BB,$7B,$00
+000230r 1  79 00 BB 7B  
+000234r 1  00           
+000235r 1  BC 78 00 BC      .byte $BC,$78,$00,$BC,$79,$00,$BC,$7B,$00
+000239r 1  79 00 BC 7B  
+00023Dr 1  00           
+00023Er 1  BD 78 00 BD      .byte $BD,$78,$00,$BD,$79,$00,$BD,$7B,$00
+000242r 1  79 00 BD 7B  
+000246r 1  00           
+000247r 1  BE 78 00 BE      .byte $BE,$78,$00,$BE,$79,$00,$BE,$7B,$00
+00024Br 1  79 00 BE 7B  
+00024Fr 1  00           
+000250r 1  BF 78 00 BF      .byte $BF,$78,$00,$BF,$79,$00,$BF,$7B,$00
+000254r 1  79 00 BF 7B  
+000258r 1  00           
+000259r 1               ;----------------
+000259r 1               ; END OF PROGRAM
+000259r 1               ;----------------
+000259r 1               .endproc
+000259r 1               
diff --git a/SRC/A2NoSlotMidi/main.o b/SRC/A2NoSlotMidi/main.o
index f79eeed..e7328f0 100644
Binary files a/SRC/A2NoSlotMidi/main.o and b/SRC/A2NoSlotMidi/main.o differ
diff --git a/SRC/A2NoSlotMidi/main.s b/SRC/A2NoSlotMidi/main.s
index df7d44e..2c4ffcd 100644
--- a/SRC/A2NoSlotMidi/main.s
+++ b/SRC/A2NoSlotMidi/main.s
@@ -1,18 +1,18 @@
 ;-------------------------------------------------------------------------
-;
+; APPLE ][ SERIES ANNUNCIATOR MIDI DRIVER
+; Copyright © 1998-2018 Eric Rangell. MIT License.
+;-------------------------------------------------------------------------;
 ;  main.s
 ;  A2NoSlotMidi
-;
-;  Created by Eric Rangell on 7/17/18.
-;-------------------------------------------------------------------------
-; APPLE MIDI DRIVER THROUGH ANNUNCIATOR 0
-; Copyright © 1998-2018 Eric Rangell. MIT License.
+;  Created by Eric Rangell on 17 JULY 2018.
+;  VERSION 1.0.1 released 26 JULY 2018
+;  VERSION 1.0.2 released 29 JULY 2018
 ;-------------------------------------------------------------------------
 ; THIS DRIVER IMPLEMENTS ASYNCHRONOUS SERIAL DATA TRANSMISSION
-; THROUGH THE APPLE ANNUNCIATOR 0 OUTPUT PORT OF THE GAME CONNECTOR
+; THROUGH AN APPLE ][ ANNUNCIATOR OUTPUT PORT OF THE GAME CONNECTOR
 ; USING 32 CYCLES PER BIT TO ACHIEVE A 31.25K MIDI BAUD RATE.
 ;
-; //GS USERS NEED TO RUN THIS PROGRAM IN NORMAL SPEED MODE
+; APPLE //GS USERS NEED TO RUN THIS PROGRAM IN NORMAL SPEED MODE (1MHZ)
 ;
 ; THE OUTPUT IS INITIALIZED TO A HIGH LOGIC VOLTAGE.  WHEN IT GOES
 ; LOW FOR 32 MICROSECONDS, THAT INDICATES THE START BIT OF A MIDI BYTE.
@@ -34,15 +34,13 @@
 ; $900E = SEND A TEST MESSAGE - C MAJOR CHORD NOTE ONS
 ; $9011 = SEND A TEST MESSAGE - C MAJOR CHORD NOTE OFFS
 ;
-; IF THE FOLLOWING ROUTINES ARE USED, THEY SHOULD BE CALLED IMMEDIATELY AFTER BLOADING
-; THE BINARY, THEN THE INITIALIZE ROUTINE SHOULD BE CALLED AT $9000.
+; IF THE FOLLOWING ROUTINE IS USED, IT SHOULD BE CALLED IMMEDIATELY AFTER BLOADING
+; THE BINARY.  AT THE END, IT WILL CALL THE INIT ROUTINE FOR THE SELECTED ANNUNCIATOR.
 ;
 ; $9014 = CHANGE ANNUNCIATOR - MODIFIES CODE TO USE DIFFERENT ANNUNCIATOR
 ; $9017 = ANNUNCIATOR TO USE: 0-3 - only looks at least significant 2 bits
-; DO NOT RUN MORE THAN ONCE - BLOAD THE PROGRAM IF NEED TO CHANGE AGAIN.
 ;
-; $9018 = CHANGE LOGIC (POSITIVE OR NEGATIVE LOGIC FOR WIRING)
-; $901B = SET BIT 7 TO USE NEGATIVE LOGIC (ONLY ONE INVERTER IN THE MIDI CIRCUIT)
+; $9018 = SET TO 1 TO USE NEGATIVE LOGIC (ONLY ONE INVERTER IN THE MIDI CIRCUIT)
 ;-------------------------------------------------------------------------
 ; Enhancements for 2018:
 ; 1. Disable interrupts during critical timing sections, preserve interrupt status
@@ -79,22 +77,28 @@ TEST1:
         JMP TESTMSG1        ;SEND TEST MESSAGE 1 - C MAJOR CHORD ON
 TEST2:
         JMP TESTMSG2        ;SEND TEST MESSAGE 2 - C MAJOR CHORD OFF
-        ;
 CHNGANNC:
         JMP CHGANNC         ;RECONFIGURE PROGRAM TO USE ANNUNCIATOR NUMBER IN NEXT BYTE
 ANNC2USE:
         .byte $00           ;ONLY LEAST SIGNIFICANT 2 BITS ARE USED
-CHNGLOGC:
-        JMP CHGLOGIC        ;RECONFIGURE PROGRAM TO USE POSITIVE OR NEGATIVE LOGIC
-LOGICBYT:
-        .byte $00           ;SET HIGH BIT TO 1 TO USE NEGATIVE LOGIC, ELSE POSITIVE LOGIC (DEFAULT)
+NEGLOGIC:
+        .byte $00           ;SET TO 1 TO USE NEGATIVE LOGIC, OTHERWISE LEAVE 0 FOR POSITIVE LOGIC (DEFAULT). DO NOT USE ANY OTHER VALUES!
 ;---------------------------------------------------------------------------
-SAVENBYT: .byte $00             ;SAVE AREA FOR NUMBYTES
-TEMPA:    .byte $00
-TEMPX:    .byte $00
-;ANNPAIR:  .byte  $00            ; ANNUNCIATOR NUMBER TIMES 2 (1=C05A, 2=C05C, 3=C05E)
+MAJVER:     .byte $01       ;BYTES USED TO TRACK VERSION OF RELEASED EXECUTABLES
+MINVER:     .byte $02       ;NIBBLES ARE USED FOR THE VERSION NUMBER ($0102 = VERSION 1.0.2)
+ASAVE:      .byte $00       ;SAVE AREA FOR ACCUMULATOR
+SAVENBYT:   .byte $00       ;SAVE AREA FOR NUMBYTES
 ;---------------------------------------------------------------------------
-INIT:   BIT AN0ON
+INIT:   LDA NEGLOGIC
+        AND #$FE
+        BEQ OK2INIT
+        BRK                 ;ABEND IF NEGLOGIC NOT 0 OR 1
+OK2INIT:
+        LDA #<AN0ON         ;MODIFY BIT INSTRUCTION BELOW - FLIP LEAST SIGNIFICANT BIT IF NEGATIVE LOGIC
+        EOR NEGLOGIC
+        STA INITANNC+1
+INITANNC:
+        BIT AN0ON
         RTS
 ;---------------------------------------------------------------------------
 ; CRITICAL TIMING SECTION BELOW MUST NOT CROSS A PAGE BOUNDARY
@@ -102,7 +106,8 @@ INIT:   BIT AN0ON
 XMITBITS:
         PHP                 ;SAVE CURRENT INTERRUPT STATUS
         SEI                 ;MASK INTERRUPTS DURING CRITICAL TIMING SECTION
-MOD9:   BIT AN0OFF          ;4 CYCLES - TRANSMIT START BIT - ALWAYS LOW
+STRTBIT:
+        BIT AN0OFF          ;4 CYCLES - TRANSMIT START BIT - ALWAYS LOW
         JSR DELAY22         ;6+22
 BIT0:
         BIT AN0OFF          ;4
@@ -128,7 +133,8 @@ BIT6:
 BIT7:
         BIT AN0OFF          ;4
         JSR DELAY22         ;6+22
-MOD10:  BIT AN0ON           ;4        ;TRANSMIT STOP BIT - ALWAYS HIGH
+STOPBIT:
+        BIT AN0ON           ;4        ;TRANSMIT STOP BIT - ALWAYS HIGH
         JSR DELAY22         ;6+22
         PLP                 ;4        ;RESTORE SAVED INTERRUPT STATUS
         RTS                 ;TOTAL TIME INTERRUPTS DISABLED: 324 MICROSECONDS
@@ -160,13 +166,23 @@ XMITLOOP:
         RTS
 ;---------------------------------------------------------------------------
 XMITONE:
-        STA TEMPA           ;SAVE A AND X REGISTERS
-        STX TEMPX
+        STA ASAVE           ;ABEND IF NEGLOGIC NOT 0 OR 1
+        LDA NEGLOGIC
+        AND #$FE
+        BEQ OK2XMIT
+        LDA ASAVE
+        BRK
+OK2XMIT:
+        TXA                 ;SAVE X AND A ON STACK IN CASE THIS CODE GETS INTERRUPTED
+        PHA
+        LDA ASAVE
+        PHA
 ;
         ASL A               ;SHIFT BIT INTO CARRY
         TAX                 ;SAVE CURRENT IMAGE OF DATA BYTE
         LDA #$00            ;ZERO OUT ACCUMULATOR FOR ADD
 MOD1:   ADC #<AN0OFF        ;ADD CARRY TO ANNUNCIATOR ADDRESS
+        EOR NEGLOGIC        ;FLIP ADDRESSES IF USING NEGATIVE LOGIC
         STA BIT7+1          ;MODIFY THE XMITBITS SUBROUTINE
         TXA                 ;RESTORE ACCUMULATOR
 ;
@@ -174,6 +190,7 @@ MOD1:   ADC #<AN0OFF        ;ADD CARRY TO ANNUNCIATOR ADDRESS
         TAX                 ;SAVE CURRENT IMAGE OF DATA BYTE
         LDA #$00            ;ZERO OUT ACCUMULATOR FOR ADD
 MOD2:   ADC #<AN0OFF        ;ADD CARRY TO ANNUNCIATOR ADDRESS
+        EOR NEGLOGIC        ;FLIP ADDRESSES IF USING NEGATIVE LOGIC
         STA BIT6+1          ;MODIFY THE XMITBITS SUBROUTINE
         TXA                 ;RESTORE ACCUMULATOR
 ;
@@ -181,6 +198,7 @@ MOD2:   ADC #<AN0OFF        ;ADD CARRY TO ANNUNCIATOR ADDRESS
         TAX                 ;SAVE CURRENT IMAGE OF DATA BYTE
         LDA #$00            ;ZERO OUT ACCUMULATOR FOR ADD
 MOD3:   ADC #<AN0OFF        ;ADD CARRY TO ANNUNCIATOR ADDRESS
+        EOR NEGLOGIC        ;FLIP ADDRESSES IF USING NEGATIVE LOGIC
         STA BIT5+1          ;MODIFY THE XMITBITS SUBROUTINE
         TXA                 ;RESTORE ACCUMULATOR
 ;
@@ -188,6 +206,7 @@ MOD3:   ADC #<AN0OFF        ;ADD CARRY TO ANNUNCIATOR ADDRESS
         TAX                 ;SAVE CURRENT IMAGE OF DATA BYTE
         LDA #$00            ;ZERO OUT ACCUMULATOR FOR ADD
 MOD4:   ADC #<AN0OFF        ;ADD CARRY TO ANNUNCIATOR ADDRESS
+        EOR NEGLOGIC        ;FLIP ADDRESSES IF USING NEGATIVE LOGIC
         STA BIT4+1          ;MODIFY THE XMITBITS SUBROUTINE
         TXA                 ;RESTORE ACCUMULATOR
 ;
@@ -195,6 +214,7 @@ MOD4:   ADC #<AN0OFF        ;ADD CARRY TO ANNUNCIATOR ADDRESS
         TAX                 ;SAVE CURRENT IMAGE OF DATA BYTE
         LDA #$00            ;ZERO OUT ACCUMULATOR FOR ADD
 MOD5:   ADC #<AN0OFF        ;ADD CARRY TO ANNUNCIATOR ADDRESS
+        EOR NEGLOGIC        ;FLIP ADDRESSES IF USING NEGATIVE LOGIC
         STA BIT3+1          ;MODIFY THE XMITBITS SUBROUTINE
         TXA                 ;RESTORE ACCUMULATOR
 ;
@@ -202,6 +222,7 @@ MOD5:   ADC #<AN0OFF        ;ADD CARRY TO ANNUNCIATOR ADDRESS
         TAX                 ;SAVE CURRENT IMAGE OF DATA BYTE
         LDA #$00            ;ZERO OUT ACCUMULATOR FOR ADD
 MOD6:   ADC #<AN0OFF        ;ADD CARRY TO ANNUNCIATOR ADDRESS
+        EOR NEGLOGIC        ;FLIP ADDRESSES IF USING NEGATIVE LOGIC
         STA BIT2+1          ;MODIFY THE XMITBITS SUBROUTINE
         TXA                 ;RESTORE ACCUMULATOR
 ;
@@ -209,6 +230,7 @@ MOD6:   ADC #<AN0OFF        ;ADD CARRY TO ANNUNCIATOR ADDRESS
         TAX                 ;SAVE CURRENT IMAGE OF DATA BYTE
         LDA #$00            ;ZERO OUT ACCUMULATOR FOR ADD
 MOD7:   ADC #<AN0OFF        ;ADD CARRY TO ANNUNCIATOR ADDRESS
+        EOR NEGLOGIC        ;FLIP ADDRESSES IF USING NEGATIVE LOGIC
         STA BIT1+1          ;MODIFY THE XMITBITS SUBROUTINE
         TXA                 ;RESTORE ACCUMULATOR
 ;
@@ -216,12 +238,24 @@ MOD7:   ADC #<AN0OFF        ;ADD CARRY TO ANNUNCIATOR ADDRESS
         TAX                 ;SAVE CURRENT IMAGE OF DATA BYTE
         LDA #$00             ;ZERO OUT ACCUMULATOR FOR ADD
 MOD8:   ADC #<AN0OFF        ;ADD CARRY TO ANNUNCIATOR ADDRESS
+        EOR NEGLOGIC        ;FLIP ADDRESSES IF USING NEGATIVE LOGIC
         STA BIT0+1          ;MODIFY THE XMITBITS SUBROUTINE
         TXA                 ;RESTORE ACCUMULATOR
+;
+MOD9:   LDA #<AN0OFF       ;FLIP ANNUNCIATOR ADDRESSES OF START AND STOP BITS IF USING NEGATIVE LOGIC
+        EOR NEGLOGIC
+        STA STRTBIT+1
+;
+MOD10:  LDA #<AN0ON
+        EOR NEGLOGIC
+        STA STOPBIT+1
 ;
         JSR XMITBITS        ;SEND THE BYTE OUT
-        LDX TEMPX
-        LDA TEMPA           ;RESTORE X AND A
+        PLA                 ;RESTORE A AND X
+        STA ASAVE
+        PLA
+        TAX
+        LDA ASAVE
         RTS
 ;-----------------------------------------------------------------------
 TESTMSG1:
@@ -260,152 +294,68 @@ CHGANNC:
         ASL             ;MULTIPLY BY 2
         PHA             ;SAVE THIS VALUE FOR EACH MOD BEING DONE BELOW
         CLC
-        ADC MOD1+1      ;MODIFY LOW BYTE OF EACH ANNUNCIATOR ADDRESS IN CODE ABOVE
+        ADC #<AN0OFF    ;MODIFY LOW BYTE OF EACH ANNUNCIATOR ADDRESS IN CODE ABOVE
         STA MOD1+1
 ;
         PLA             ;GET VALUE TO ADD
         PHA             ;SAVE IT AGAIN
         CLC
-        ADC MOD2+1
+        ADC #<AN0OFF
         STA MOD2+1
 ;
         PLA             ;GET VALUE TO ADD
         PHA             ;SAVE IT AGAIN
         CLC
-        ADC MOD3+1
+        ADC #<AN0OFF
         STA MOD3+1
         ;
         PLA             ;GET VALUE TO ADD
         PHA             ;SAVE IT AGAIN
         CLC
-        ADC MOD4+1
+        ADC #<AN0OFF
         STA MOD4+1
         ;
         PLA             ;GET VALUE TO ADD
         PHA             ;SAVE IT AGAIN
         CLC
-        ADC MOD5+1
+        ADC #<AN0OFF
         STA MOD5+1
         ;
         PLA             ;GET VALUE TO ADD
         PHA             ;SAVE IT AGAIN
         CLC
-        ADC MOD6+1
+        ADC #<AN0OFF
         STA MOD6+1
         ;
         PLA             ;GET VALUE TO ADD
         PHA             ;SAVE IT AGAIN
         CLC
-        ADC MOD7+1
+        ADC #<AN0OFF
         STA MOD7+1
         ;
         PLA             ;GET VALUE TO ADD
         PHA             ;SAVE IT AGAIN
         CLC
-        ADC MOD8+1
+        ADC #<AN0OFF
         STA MOD8+1
         ;
         PLA             ;GET VALUE TO ADD
         PHA             ;SAVE IT AGAIN
         CLC
-        ADC MOD9+1
+        ADC #<AN0OFF    ;START BIT IS ALWAYS LOW
         STA MOD9+1
         ;
         PLA             ;GET VALUE TO ADD
         PHA             ;SAVE IT AGAIN
-        CLC             ;ADD AN EXTRA 1 TO GET ANNUNCIATOR ON ADDRESS
-        ADC MOD10+1
+        CLC
+        ADC #<AN0ON     ;STOP BIT IS ALWAYS HIGH
         STA MOD10+1
 ;
         PLA             ;GET VALUE TO ADD
-        CLC             ;ADD AN EXTRA 1 TO GET ANNUNCIATOR ON ADDRESS
-        ADC INIT+1
-        STA INIT+1
-        RTS
-;-----------------------------------------------------------------------
-CHGLOGIC:
-        LDA LOGICBYT
-        BPL POSITIVE    ; HIGH BIT DETERMINES POSITIVE OR NEGATIVE LOGIC
-        LDA MOD1+1
-        AND #$FE        ;SET THE LEAST SIGNIFICANT BIT TO 1 TO GET C059, C05B, C05D, C05F
-        ORA #$01
-        STA MOD1+1
-        LDA MOD2+1
-        AND #$FE
-        ORA #$01
-        STA MOD2+1
-        LDA MOD3+1
-        AND #$FE
-        ORA #$01
-        STA MOD3+1
-        LDA MOD4+1
-        AND #$FE
-        ORA #$01
-        STA MOD4+1
-        LDA MOD5+1
-        AND #$FE
-        ORA #$01
-        STA MOD5+1
-        LDA MOD6+1
-        AND #$FE
-        ORA #$01
-        STA MOD6+1
-        LDA MOD7+1
-        AND #$FE
-        ORA #$01
-        STA MOD7+1
-        LDA MOD8+1
-        AND #$FE
-        ORA #$01
-        STA MOD8+1
-        LDA MOD9+1
-        AND #$FE
-        ORA #$01
-        STA MOD9+1
-        LDA MOD10+1
-        AND #$FE    ;ZERO THE LEAST SIGNIFICANT BIT TO GET C058, C05A, C05C, C05E
-        STA MOD10+1
-        LDA INIT+1
-        AND #$FE
-        STA INIT+1
-        RTS
-POSITIVE:
-        LDA MOD1+1
-        AND #$FE        ;ZERO THE LEAST SIGNIFICANT BIT TO GET C058, C05A, C05C, C05E
-        STA MOD1+1
-        LDA MOD2+1
-        AND #$FE
-        STA MOD2+1
-        LDA MOD3+1
-        AND #$FE
-        STA MOD3+1
-        LDA MOD4+1
-        AND #$FE
-        STA MOD4+1
-        LDA MOD5+1
-        AND #$FE
-        STA MOD5+1
-        LDA MOD6+1
-        AND #$FE
-        STA MOD6+1
-        LDA MOD7+1
-        AND #$FE
-        STA MOD7+1
-        LDA MOD8+1
-        AND #$FE
-        STA MOD8+1
-        LDA MOD9+1
-        AND #$FE
-        STA MOD9+1
-        LDA MOD10+1
-        AND #$FE
-        ORA #$01    ;SET THE LEAST SIGNIFICANT BIT TO 1 TO GET C059, C05B, C05D, C05F
-        STA MOD10+1
-        LDA INIT+1
-        AND #$FE
-        ORA #$01
-        STA INIT+1
-        RTS
+        CLC
+        ADC #<AN0ON     ;INITIALIZE MIDI BY SENDING HIGH "CARRIER" BIT
+        STA OK2INIT+1
+        JMP INIT        ;TURN ON THE NEWLY SELECTED ANNUNCIATOR
 ;-----------------------------------------------------------------------
 TESTDAT1:
     .byte $90,$3C,$40,$40,$40,$43,$40
diff --git a/SRC/A2NoSlotMidi/make/V2Make.scpt b/SRC/A2NoSlotMidi/make/V2Make.scpt
index 37d716d..f10fc73 100644
Binary files a/SRC/A2NoSlotMidi/make/V2Make.scpt and b/SRC/A2NoSlotMidi/make/V2Make.scpt differ