mirror of
https://github.com/fadden/6502bench.git
synced 2024-12-05 03:49:53 +00:00
5a560aa9eb
Added a "format help" button to the long comment edit window. This brings up a quick summary of the format tags in a modal dialog. Updated documentation and tutorial.
219 lines
7.9 KiB
ArmAsm
219 lines
7.9 KiB
ArmAsm
;***************************************
|
||
;* Old school boxed output header. *
|
||
;* Brk *
|
||
;* multiple lines yay. How about a *
|
||
;* hy-phenated word? *
|
||
;* Looonglonglonglonglonglonglonglongl *
|
||
;* onglonglongword. *
|
||
;***************************************
|
||
;* Throw in a line divider. These *
|
||
;* aren't: *
|
||
;* *! *
|
||
;* * *
|
||
;* &XYZ *
|
||
;* *
|
||
;***************************************
|
||
.setcpu "6502"
|
||
plataddr = $3000 ;address only in platform file
|
||
|
||
;Short, unboxed comment here!!
|
||
;Two spaces after. More hyp-
|
||
;hens?
|
||
.org $1000
|
||
lda #$01 ;Comment!
|
||
;Comment rulers can be helpful in findin the edges of notes. Comments are hyph-
|
||
;enatingly fun. Like the note, this goes out to 80 columns.
|
||
lda #$02 ;&another comment with &&s!
|
||
;Down to 64 columns this time. Why 64? Why not 64. A rose, by
|
||
;any other name, would break the line at the same place. Or hy-
|
||
;phen split.
|
||
lda #$03
|
||
;Ah, the classic 40-column limitation...
|
||
;brings back memories. Of, you know, h-
|
||
;yphenated things.
|
||
lda #$04
|
||
;Thirty columns. 'cause forty
|
||
;felt like too many. Oh, hyp-
|
||
;henation!
|
||
lda #$05 ;comment ending in backslash\
|
||
;*******************************************************************************
|
||
;* Short box comment, 80 cols. *
|
||
;*******************************************************************************
|
||
lda #$06 ;comment, with, commas \\ \" \/ \\\
|
||
;***************************************************************
|
||
;* *
|
||
;* Choppy *
|
||
;* *
|
||
;* box *
|
||
;* *
|
||
;* comment *
|
||
;* *
|
||
;* 64 cols *
|
||
;* *
|
||
;***************************************************************
|
||
lda #$07
|
||
;***************************************************************
|
||
;* Some non-ASCII stuff: *
|
||
;* †•<E280A0>␇ *
|
||
;* (right side of box looks pushed over on-screen because font *
|
||
;* isn't fully mono) *
|
||
;***************************************************************
|
||
lda #$08
|
||
;***************************************
|
||
;* Specific line break case at end *
|
||
;* of. Sentence. *
|
||
;* Alternate version for semicolon zz. *
|
||
;* Output. *
|
||
;* *
|
||
;* Same thing but with three spaces *
|
||
;* zz. Three! *
|
||
;* Again with the three spces between. *
|
||
;* Things. *
|
||
;* *
|
||
;* Try to make it the very last *
|
||
;* thing.. *
|
||
;***************************************
|
||
lda #$09
|
||
lda #$0a
|
||
lda #$0b
|
||
lda #$0c
|
||
lda #$0d
|
||
lda #$0e
|
||
lda #$0f
|
||
jmp L1062
|
||
|
||
.byte $ea
|
||
bytes: .byte $00,$01,$02,$03,$04,$05,$06,$07,$08,$09,$0a,$0b,$0c,$0d,$0e,$0f ;Comment at the end of a lengthy bulk hex item might overflow various things, but could be wrapped.
|
||
.byte $00,$01,$02,$03,$04,$05,$06,$07,$08,$09,$0a,$0b,$0c,$0d,$0e,$0f
|
||
.byte $00,$01,$02,$03,$04,$05,$06,$07,$08,$09,$0a,$0b,$0c,$0d,$0e,$0f
|
||
.byte $00,$01,$02,$03,$04,$05,$06,$07,$08,$09,$0a,$0b,$0c,$0d,$0e,$0f
|
||
|
||
L1062: bit plataddr ;Pull in plataddr to see the comment on the platform file entry.
|
||
;
|
||
;A trivial fancy comment. Nothing special about it at all. Go on about your
|
||
;business.
|
||
;
|
||
lda #$10
|
||
;Check for surrogate pair splitting. 1/2 should be split:
|
||
;zzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzxxxxxxxxxxxxxxxxxxx1
|
||
;2x
|
||
;zzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzUnicode_Character_“
|
||
;😊”_(U+1F60A)
|
||
lda #$11
|
||
;Test [width]. This line has the default width of 80, so things break way out
|
||
;here.
|
||
;Lines with width=8, width=10, and width=*:
|
||
;0123456
|
||
;7890123
|
||
;4567890
|
||
;1234567
|
||
;89
|
||
;012345678
|
||
;901234567
|
||
;890123456
|
||
;789
|
||
;012345678901234567890123456789
|
||
lda #$12
|
||
;Test [hr] and [hr char='#'].
|
||
;-------------------------------------------------------------------------------
|
||
;-------------------------------------------------------------------------------
|
||
;x
|
||
;###############################################################################
|
||
;y
|
||
lda #$13
|
||
|
||
;Testing [br] blank lines.
|
||
|
||
|
||
|
||
;three above, one below
|
||
|
||
lda #$14
|
||
;-------------------------------------------------------------------------------
|
||
;Full width box, with default char.
|
||
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
||
; stuff in the box zzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzz aaaa bbb ;
|
||
; cccc ;
|
||
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
||
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
||
; Explicit char=';'. ;
|
||
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
||
;Now with reduced width and char='#'.
|
||
;#########
|
||
;# A #
|
||
;# much #
|
||
;# small #
|
||
;# er #
|
||
;# box. #
|
||
;#########
|
||
;*******************************************************************************
|
||
;* Width changes are illegal inside[width=20]a box (with char='*'). Word wrap *
|
||
;* at the end. *
|
||
;*******************************************************************************
|
||
lda #$15
|
||
;Simple URL https://example.com/, fancier URL link text (https://example.com/).
|
||
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
||
; In a box https://example.com/. ;
|
||
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
||
;
|
||
;A URL may not have a [box]...[/box] tag inside.
|
||
;Nor may it have an [hr], [br], or [width=2] tag.
|
||
;Line wrapping the contents of a URL link area should work +this is the area
|
||
;inside+ (https://example.com).
|
||
lda #$16
|
||
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
||
; ALL CAPS FOR EVERYTHING (HTTPS://EXAMPLE.COM/) ;
|
||
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
||
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
||
|
||
;SHORT
|
||
;LINES
|
||
;XXXXXXXXX
|
||
;X BOXED X
|
||
;X-------X
|
||
;X STUFF X
|
||
;XXXXXXXXX
|
||
lda #$17
|
||
;Test some folding
|
||
;with [width=20].
|
||
;0123456789012345678
|
||
;9
|
||
;012345678901234567-
|
||
;89
|
||
;0123456789012345678
|
||
;9
|
||
; 123456789012345678
|
||
;9
|
||
;-123456789012345678
|
||
;9
|
||
; -
|
||
;234567890123456789
|
||
lda #$18
|
||
lda #$19
|
||
lda #$1a
|
||
lda #$1b
|
||
lda #$1c
|
||
lda #$1d
|
||
lda #$1e
|
||
lda #$1f
|
||
lda #$20
|
||
lda #$21
|
||
lda #$22
|
||
lda #$23
|
||
lda #$24
|
||
lda #$25
|
||
lda #$26
|
||
lda #$27
|
||
lda #$28
|
||
lda #$29
|
||
lda #$2a
|
||
lda #$2b
|
||
lda #$2c
|
||
lda #$2d
|
||
lda #$2e
|
||
lda #$2f
|
||
jmp @L10A8
|
||
|
||
@L10A8: rts
|
||
|