;Project was edited to add a label in the middle of a dense hex region, and add ;a duplicate label. .setcpu "65816" BMI1 = $30 ;opcode mnemonic zip = $cd absl = $1029 absh = $feed biggie = $123456 thirty2 = $12345678 ;32-bit constant test plataddr = $3000 ;address only in platform file projalsa = $3200 ;same val as projalso ; .segment "SEG000" .org $012345 .a8 .i8 start: clc xce sep #$30 lda #zip lda #zip+16 lda #zip-192 lda #absh lda #absh+1 lda #absl lda #absl-1 lda #start lda #^start pea $feed pea start & $ffff pea $0001 pea $3456 pea $0012 pea absh pea start & $ffff pea start >> 16 pea biggie & $ffff pea biggie >> 16 lda zip+1 lda a:zip+1 lda f:zip+1 lda absh-1 lda f:absh-1 lda absh+1 lda f:absh+1 lda start & $ffff +1 lda start+1 lda start & $ffff -1 lda start-1 lda biggie & $ffff +1 lda biggie+1 lda biggie & $ffff -1 lda biggie-1 rep #$30 .a16 .i16 lda #zip lda #zip+16 lda #zip+64 lda #absl lda #absl >> 8 lda #absl-$1000 lda #absl >> 8 -16 lda #absl >> 16 lda #absh lda #absh >> 8 lda #absh-$f000 lda #absh >> 8 +16 lda #absh >> 16 +1 lda #start & $ffff lda #start >> 8 lda #start >> 16 lda #biggie & $ffff lda #biggie >> 8 lda #biggie >> 16 bra @skipdata .byte zip .byte absh .byte start .byte ^start .word zip .word absl .word absl >> 8 .word absl-$1000 .word absl >> 8 -16 .word absh .word absh >> 8 .word absh-$f000 .word absh >> 8 +16 .word start & $ffff .word start >> 8 .word start >> 16 .word start & $ffff +1 .word start >> 8 .word start >> 16 .dbyt absh .faraddr zip .faraddr absh .faraddr absh >> 8 .faraddr start .faraddr start >> 8 .faraddr start >> 16 .dword zip .dword absh .dword absh >> 8 .dword start-1 .dword start >> 8 .dword start >> 16 @skipdata: lda #biggie >> 16 -1 mvn #^biggie,#^biggie-17 mvp #^start,#^start+17 mvn #18,#1 mvp #%00000001,#%00010010 per @skipdata brl @nextchunk @nextchunk: jml @L1000_1 ; .segment "SEG001" .org $1000 @L1000_1: nop @L1000: nop @L1000_0: nop @l1000: sep #$30 .a8 .i8 lda plataddr lda $3100 lda projalsa lda $3300 bra @calls nop @targ: nop nop @L1016: per @targ-1 per @targ per @targ+1 jsr @targ-1 jsr @targ jsr @targ+1 @L1028: bra @targ-1 @L102A: bra @targ @L102C: bra @targ+1 @L102E: brl @targ-1 @L1031: brl @targ @L1034: brl @targ+1 @L1037: jmp @targ-1 @L103A: jmp @targ @L103D: jmp @targ+1 @L1040: jml @targ-1 jml @targ jml @targ+1 @calls: jsr @L1016 jsr @L1028 jsr @L102A jsr @L102C jsr @L102E jsr @L1031 jsr @L1034 jsr @L1037 jsr @L103A jsr @L103D jsr @L1040 jsr $1044 jsr $1048 brl @L118E @bulk: .byte $80,$81,$82,$83,$84,$85,$86,$87,$88,$89,$8a,$8b,$8c,$8d,$8e,$8f ;bulky .byte $80,$81,$82,$83,$84,$85,$86,$87,$88,$89,$8a,$8b,$8c,$8d,$8e,$8f .byte $80,$81,$82,$83,$84,$85,$86,$87,$88,$89,$8a,$8b,$8c,$8d,$8e,$8f .byte $80,$81,$82,$83,$84,$85,$86,$87,$88,$89,$8a,$8b,$8c,$8d,$8e,$8f .byte $80,$81,$82,$83,$84,$85,$86,$87,$88,$89,$8a,$8b,$8c,$8d,$8e,$8f .byte $80,$81,$82,$83,$84,$85,$86,$87,$88,$89,$8a,$8b,$8c,$8d,$8e,$8f .byte $80,$81,$82,$83,$84,$85,$86,$87,$88,$89,$8a,$8b,$8c,$8d,$8e,$8f @string: .byte "This is a long string. Put a label and comment on it to confir" ;stringy .byte "m that the label and comment only appear on the first line. T" .byte "he quick brown fox jumps over the lazy dogs." @L118E: lda #thirty2+3 lda #^thirty2 rep #BMI1 .a16 .i16 lda #thirty2 & $ffff +3 lda #thirty2 >> 8 & $ffff +4 lda #thirty2 >> 16 rts