Routines
Prev: 61330 Up: Map Next: 61435
61348: Sub-Message Select
Used by the routine at CallSubMessage.
Picks one of the small graphic scripts at LocationGraphicScripts and jumps into PrintMessage. Ids 0-5 cover the fragments used while drawing location art.
SubMessageSelect 61348 CP 1 Jump to SubMessageSelect_DigitPunctuation if the id is 0.
61350 JR C,SubMessageSelect_DigitPunctuation
61352 JR Z,SubMessageSelect_Punctuation Jump to SubMessageSelect_Punctuation if the id is 1.
61354 CP 2 Jump to SubMessageSelect_AlternateCharset if the id is 2.
61356 JR Z,SubMessageSelect_AlternateCharset
61358 CP 4 Jump to SubMessageSelect_DualGlyph if the id is 3.
61360 JR C,SubMessageSelect_DualGlyph
61362 JR Z,SubMessageSelect_TripleGlyph Jump to SubMessageSelect_TripleGlyph if the id is 4.
61364 CP 6 Jump to SubMessageSelect_GlyphStrip if the id is 5.
61366 JR C,SubMessageSelect_GlyphStrip
61368 RET Return.
Select sub-script LocationGraphicScripts (digit/punct rows at attr 12).
SubMessageSelect_DigitPunctuation 61369 LD A,1 Set row 1 and point at sub-script LocationGraphicScripts.
61371 LD (23544),A
61374 LD HL,65000
61377 JP PrintMessage Jump to PrintMessage.
Select sub-script LocationGraphicScript_Punctuation (punct/symbol rows at attr 12).
SubMessageSelect_Punctuation 61380 LD A,2 Set row 2 and point at sub-script LocationGraphicScript_Punctuation.
61382 LD (23544),A
61385 LD HL,65042
61388 JP PrintMessage Jump to PrintMessage.
Select the alternate font at AlternateLocationFont and sub-script 1.
SubMessageSelect_AlternateCharset 61391 LD HL,61816 Write 61816 to *CHARS and run sub-script 1.
61394 LD (23606),HL
61397 CALL SubMessageSelect_Punctuation
61400 LD HL,61736 Write 61736 to *CHARS.
61403 LD (23606),HL
61406 RET Return.
Select sub-script LocationGraphicScript_DualGlyph (two glyphs at attr 39).
SubMessageSelect_DualGlyph 61407 LD A,6 Set row 6 and point at sub-script LocationGraphicScript_DualGlyph.
61409 LD (23544),A
61412 LD HL,65069
61415 JP PrintMessage Jump to PrintMessage.
Select sub-script LocationGraphicScript_TripleGlyph (three glyphs at attr 39).
SubMessageSelect_TripleGlyph 61418 LD A,5 Set row 5 and point at sub-script LocationGraphicScript_TripleGlyph.
61420 LD (23544),A
61423 LD HL,65079
61426 JP PrintMessage Jump to PrintMessage.
Select sub-script LocationGraphicScript_GlyphStrip (glyph band at attr 40/56).
SubMessageSelect_GlyphStrip 61429 LD HL,65089 HL=LocationGraphicScript_GlyphStrip.
61432 JP PrintMessage Jump to PrintMessage.
Prev: 61330 Up: Map Next: 61435