ƒ8 natesMac 8 \' SEQ formatted GEOS file V1.01E àƒComm. Compat. ض‡چض‡بکe…گو`GER 2X¤ƒ6geosSym 6\<BLASTER'S CONVERTER V2.5Uƒ8Preferences 8[0ƒ8Pad Color Pref 8[؟ےےے€ڈےˆ‹ےءٹAٹےٌٹ€ٹژٹ€ٹ؟‘ٹ€ٹںٹ€ٹ؟‘ژ€‚؟‘ƒ€€€€ےٌےےےƒےےWrite Image V2.1geoWrite V1.1ًgeosMac with bit macros removed and some more essential ones added.ب›~ےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےP000000000P .macro LoadB dest,value lda #value sta dest .endm .macro LoadW dest,value lda #](value) sta dest+1 lda #[(value) sta dest+0 .endm .macro MoveB source,dest lda source sta dest .endm .macro MoveW source,dest lda source+1 sta dest+1 lda source+0 sta dest+0 .endm .macro add source clc adc source .endm .macro AddB source,dest clc lda source adc dest sta dest .endm .macro AddW source,dest lda source clc adc dest+0 sta dest+0 lda source+1 adc dest+1 sta dest+1 .endm .macro AddVB value,dest lda dest clc adc #value sta dest .endm .macro AddVW value,dest clc lda #[(value) adc dest+0 sta dest+0 .if (value >= 0) && (value <= 255) bcc noInc inc dest+1 noInc: .else lda #](value) adc dest+1 sta dest+1 .endif .endmآ×lP000000000P .macro sub source sec sbc source .endm .macro SubB source,dest sec lda dest sbc source sta dest .endm .macro SubW source,dest lda dest+0 sec sbc source+0 sta dest+0 lda dest+1 sbc source+1 sP000000000P .macro sub source sec sbc source .endm .macro SubB source,dest sec lda dest sbc source sta dest .endm .macro SubW source,dest lda dest+0 sec sbc source+0 sta dest+0 lda dest+1 sbc source+1 sta dest+1 .endm .macro CmpB source,dest lda source cmp dest .endm .macro CmpBI source,immed lda source cmp #immed .endm .macro CmpW source,dest lda source+1 cmp dest+1 bne done lda source+0 cmp dest+0 done: .endm .macro CmpWI source,immed lda source+1 cmp #](immed) bne done lda source+0 cmp #[(immed) done: .endm .macro PushB source lda source pha .endm .macro PushW source lda source+1 pha lda source+0 pha .endm .macro PopB dest pla sta dest .endmٍںoP000000000P .macro PopW dest plP000000000P .macro PopW dest pla sta dest+0 pla sta dest+1 .endm .macro bra addr clv bvc addr .endm .macro IncW addr inc addr bne done inc addr+1 done: .endm .macro SubVB value,dest lda dest sec sbc #value sta dest .endm .macro SubVW value,dest sec lda dest+0 sbc #[(value) sta dest+0 .if (value >= 0) && (value <= 255) bcs noInc dec dest+1 noInc: .else lda dest+1 sbc #](value) sta dest+1 .endif .endm .macro DecW zpaddr ldx #zpaddr jsr Ddec .endm .macro DecW2 addr lda addr bne noover dec addr+1 noover: dec addr .endm .macro SubBW source,dest sec lda dest+0 sbc source sta dest+0 bcs done dec dest+1 done: .endmndmsta dest+0 bcc done inc dest+1 done: .endm+1 noInc: .else lda #](value) adc dest+1 sta destP000000000P0 .macro AddBW source,dest lda source clc adc dest+0 sta dest+0 bcc done inc dest+1 done: .endm