
 1000  *---------------------------------
 1010  *      PATCH FOR .DA WITH COMMA LIST
 1020  *---------------------------------
 1030  *
 1040  *      TO INSTALL THIS PATCH:
 1050  *
 1060  *      1.  BRUN ASMDISK 4.0
 1070  *      2.  BLOAD PATCH.DA.1
 1080  *      3.  BLOAD PATCH.DA.2
 1090  *      4.  BSAVE ASMDISK 4.1,A$1000,L$14FB
 1100  *
 1110  *---------------------------------
 1120  EXP.VALUE .EQ $DB
 1130  *---------------------------------
 1140  GNC    .EQ $128B
 1150  EMIT   .EQ $19FA
 1160  CMNT   .EQ $188E
 1170  PSDA   .EQ $20B5
 1180  *---------------------------------
 1190         .OR $20D4         REPLACES:
 1200         .TF PATCH.DA.1
 1210         JMP BOTH.BYTES    (JMP $19B2)
 1220         JMP LOW.BYTE      (JMP $194D)
 1230         JMP HIGH.BYTE     (JMP $19D7)
 1240  *---------------------------------
 1250         .OR $24B0    PATCH AREA
 1260         .TF PATCH.DA.2
 1270  BOTH.BYTES
 1280         LDA EXP.VALUE
 1290         JSR EMIT
 1300  HIGH.BYTE
 1310         LDA EXP.VALUE+1
 1320  ALL    JSR EMIT
 1330         JSR GNC
 1340         CMP #',      COMMA?
 1350         BEQ MORE
 1360         JMP CMNT     FINISHED
 1370  MORE   JMP PSDA
 1380  LOW.BYTE
 1390         LDA EXP.VALUE
 1400         CLC
 1410         BCC ALL      ...ALWAYS

