home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / genie-commodore-file-library / C64-128Toolkit / ACE-R11-SCR2.ARC / TR.S < prev    next >
Encoding:
Text File  |  2019-04-13  |  10.2 KB  |  477 lines
  1. ;*** TRANSLATION PROGRAM - BY ├RAIG ┬RUCE, STARTED 10-╩UL-93
  2.  
  3. .SEQ ACEHEAD.S
  4. .ORG ACE┴PP┴DDRESS
  5. .OBJ "@0:TR"
  6.  
  7. JMP MAIN
  8. .BYTE ACE╔─1,ACE╔─2,ACE╔─3
  9. .BYTE 64,0  ;** STACK,RESERVED
  10.  
  11. ;*** GLOBAL DECLARATIONS
  12.  
  13. LIBWORK = $40
  14.  
  15. CHR├╥ = $0D
  16. CHR╤UOTE = $22
  17. MAX╠INE╠EN = 2049
  18. TRUE = $FF
  19. FALSE = $00
  20.  
  21. TR╨ETSCII     = 0
  22. TR┴SCII├R╠F   = 1
  23. TR┴SCII╠F     = 2
  24. TR┴SCII├R     = 3
  25. TR╙PEEDSCRIPT = 4
  26.  
  27. TR╞ROM  .BUF 1
  28. TR╘O    .BUF 1
  29.  
  30. ;******** STANDARD LIBRARY ********
  31. PUTS = *
  32.    LDX #STDOUT
  33. FPUTS = *
  34.    STA ZP
  35.    STY ZP+1
  36.    LDY #$FF
  37. -  INY
  38.    LDA (ZP),Y
  39.    BNE -
  40.    TYA
  41.    LDY #0
  42.    JMP WRITE
  43. EPUTS = *
  44.    LDX #STDERR
  45.    JMP FPUTS
  46.  
  47. PUTCHAR = *
  48.    LDX #STDOUT
  49. PUTC = *
  50.    STA PUTC┬UFFER
  51.    LDA #<PUTC┬UFFER
  52.    LDY #>PUTC┬UFFER
  53.    STA ZP
  54.    STY ZP+1
  55.    LDA #1
  56.    LDY #0
  57.    JMP WRITE
  58.    PUTC┬UFFER .BUF 1
  59.  
  60. GETARG = *
  61.    STY ZP+1
  62.    ASL
  63.    STA ZP
  64.    ROL ZP+1
  65.    CLC
  66.    LDA ACE┴RGV
  67.    ADC ZP
  68.    STA ZP
  69.    LDA ACE┴RGV+1
  70.    ADC ZP+1
  71.    STA ZP+1
  72.    LDY #0
  73.    LDA (ZP),Y
  74.    TAX
  75.    INY
  76.    LDA (ZP),Y
  77.    STX ZP
  78.    STA ZP+1
  79.    RTS
  80.  
  81. ;===MAIN===
  82. ARG = 2
  83. NAME = 4
  84. STRING = 8
  85.  
  86. MAIN = *
  87.    LDA #TR┴SCII├R╠F
  88.    STA TR╞ROM
  89.    LDA #TR╨ETSCII
  90.    STA TR╘O
  91.    ;** CHECK ARGUMENT COUNT
  92.    LDA ACE┴RGC+1
  93.    BNE ENOUGH┴RGS
  94.    LDA ACE┴RGC+0
  95.    CMP #2
  96.    BCS ENOUGH┴RGS
  97.    JMP USAGE
  98.  
  99. ENOUGH┴RGS = *
  100.    LDA #1
  101.    LDY #0
  102.    STA ARG+0
  103.    STY ARG+1
  104.    JSR GETARG
  105.    LDY #0
  106.    LDA (ZP),Y
  107.    CMP #"-"
  108.    BNE FILE┴RG
  109.    INC ARG
  110.    INY
  111.    JSR GET╘R╘YPE
  112.    STX TR╞ROM
  113.    INY
  114.    JSR GET╘R╘YPE
  115.    STX TR╘O
  116.  
  117.    FILE┴RG = *
  118.    JSR INIT╧UT┬UF
  119. -  JSR STOPKEY
  120.    BCC +
  121.    JMP STOPPED
  122. +  LDA ARG+0
  123.    LDY ARG+1
  124.    JSR GETARG
  125.    LDA ZP+0
  126.    LDY ZP+1
  127.    STA NAME+0
  128.    STY NAME+1
  129.    ORA ZP+1
  130.    BEQ MAIN┼XIT
  131.    JSR TR╞ILE
  132.    BCC +
  133.    JSR ERROR
  134. +  INC ARG+0
  135.    BNE +
  136.    INC ARG+1
  137. +  JMP -
  138.  
  139. MAIN┼XIT = *
  140.    JSR FLUSH╧UT┬UF
  141.    RTS
  142.  
  143. GET╘R╘YPE = *  ;( (ZP)+.Y=STR ) : .╪=TYPE
  144.    LDA (ZP),Y
  145.    INY
  146.    LDX #TR╨ETSCII
  147.    CMP #"P"
  148.    BEQ GET╘R╥ET
  149.    LDX #TR╙PEEDSCRIPT
  150.    CMP #"S"
  151.    BEQ GET╘R╥ET
  152.    LDX #TR┴SCII╠F
  153.    CMP #"U"
  154.    BEQ GET╘R╥ET
  155.    LDX #TR┴SCII├R╠F
  156.    CMP #"M"
  157.    BEQ GET╘R╥ET
  158.    LDX #TR╨ETSCII
  159.    CMP #"C"
  160.    BEQ GET╘R╥ET
  161.    CMP #"A"
  162.    BNE USAGE
  163.    LDA (ZP),Y
  164.    INY
  165.    LDX #TR┴SCII╠F
  166.    CMP #"L"
  167.    BEQ GET╘R╥ET
  168.    LDX #TR┴SCII├R
  169.    CMP #"C"
  170.    BEQ GET╘R╥ET
  171.    CMP #"R"
  172.    BEQ GET╘R╥ET
  173.    DEY
  174.    LDX #TR┴SCII├R╠F
  175.    GET╘R╥ET = *
  176.    CLC
  177.    RTS
  178.  
  179. USAGE = *
  180.    LDA #<USAGE═SG
  181.    LDY #>USAGE═SG
  182.    JSR EPUTS
  183.    LDA #1
  184.    JMP EXIT
  185.  
  186. USAGE═SG = *
  187.    .ASC "USAGE: TR [-FROMSET2TOSET] FILE ..."
  188.    .BYTE CHR├╥
  189.    .ASC "WHERE FROMSET/TOSET=P,A,AL,AC,S,C,U,M"
  190.    .BYTE CHR├╥
  191.    .ASC "(PETSCII,ASC-CRLF,ASC-LF,ASC-CR,"
  192.    .BYTE CHR├╥
  193.    .ASC " SPEEDSCRIPT,COMMODORE,UNIX,MS-DOS)"
  194.    .BYTE CHR├╥,0
  195.  
  196. STOPPED = *
  197.    LDA #<STOPPED═SG
  198.    LDY #>STOPPED═SG
  199.    JSR EPUTS
  200.    LDA #1
  201.    JMP EXIT
  202.    STOPPED═SG = *
  203.    .ASC "<╙TOPPED>"
  204.    .BYTE CHR├╥,0
  205.  
  206. ERROR = *
  207.    LDA #<ERROR═SG1
  208.    LDY #>ERROR═SG1
  209.    JSR EPUTS
  210.    LDA NAME+0
  211.    LDY NAME+1
  212.    JSR EPUTS
  213.    LDA #<ERROR═SG2
  214.    LDY #>ERROR═SG2
  215.    JMP EPUTS
  216.    ERROR═SG1 = *
  217.    .ASC "┼RROR READING FILE "
  218.    .BYTE CHR╤UOTE,0
  219.    ERROR═SG2 = *
  220.    .BYTE CHR╤UOTE,CHR├╥,0
  221.  
  222. BUF╨TR     = 10 ;(2)
  223. BUF├OUNT   = 12 ;(2)
  224. INFILE     = 14 ;(1)
  225. IN┬UF╠EN   = 16 ;(2)
  226. READ╘R╘AB  = 18 ;(2)
  227. WRITE╘R╘AB = 20 ;(2)
  228. OUT┬UF├OUNT = 22 ;(1)
  229.  
  230. TR╞ILE = *
  231.    JSR INIT╘R
  232.    JSR INIT╔N┬UF
  233.    LDA NAME+0
  234.    LDY NAME+1
  235.    STA ZP+0
  236.    STY ZP+1
  237.    LDA #"R"
  238.    JSR OPEN
  239.    BCC +
  240.    RTS
  241. +  STA INFILE
  242.    JSR TR┬ODY
  243.    LDA INFILE
  244.    JSR CLOSE
  245.    RTS
  246.  
  247. TR┬ODY = *
  248.    JSR GET┬YTE
  249.    BCS BODY┼XIT
  250.    LDX TR╞ROM
  251.    BEQ BODY╫RITE
  252.    CMP #13
  253.    BNE +
  254.    CPX #TR┴SCII├R╠F
  255.    BEQ TR┬ODY
  256.    CPX #TR┴SCII├R
  257.    BEQ BODY╫RITE
  258. +  TAY
  259.    LDA (READ╘R╘AB),Y
  260.  
  261.    BODY╫RITE = *
  262.    LDX TR╘O
  263.    BEQ BODY╥EP
  264.    CMP #13
  265.    BNE +
  266.    CPX #TR╙PEEDSCRIPT
  267.    BEQ +
  268.    CPX #TR┴SCII├R
  269.    BEQ BODY╥EP
  270.    CPX #TR┴SCII╠F
  271.    BEQ +
  272.    JSR PUT┬YTE
  273.    LDA #13
  274. +  TAY
  275.    LDA (WRITE╘R╘AB),Y
  276.  
  277.    BODY╥EP = *
  278.    JSR PUT┬YTE
  279.    JMP TR┬ODY
  280.  
  281.    BODY┼XIT = *
  282.    RTS
  283.  
  284. GET┬YTE = *
  285.    LDA BUF├OUNT+0
  286.    ORA BUF├OUNT+1
  287.    BEQ GET┬YTE╞ILL┬UF
  288.    LDY #0
  289.    LDA (BUF╨TR),Y
  290.    INC BUF╨TR+0
  291.    BNE +
  292.    INC BUF╨TR+1
  293. +  LDX BUF├OUNT+0
  294.    BNE +
  295.    DEC BUF├OUNT+1
  296. +  DEC BUF├OUNT+0
  297.    CLC
  298.    RTS
  299.  
  300. GET┬YTE╞ILL┬UF = *
  301.    JSR STOPKEY
  302.    BCC +
  303.    JSR STOPPED
  304. +  LDA #<IN┬UF
  305.    LDY #>IN┬UF
  306.    STA ZP+0
  307.    STY ZP+1
  308.    STA BUF╨TR+0
  309.    STY BUF╨TR+1
  310.    LDA IN┬UF╠EN+0
  311.    LDY IN┬UF╠EN+1
  312.    LDX INFILE
  313.    JSR READ
  314.    BEQ +
  315.    BCS +
  316.    STA BUF├OUNT+0
  317.    STY BUF├OUNT+1
  318.    JMP GET┬YTE
  319. +  SEC
  320.    RTS
  321.  
  322. INIT╔N┬UF = *
  323.    SEC
  324.    LDA ACE═EM╘OP+0
  325.    SBC #<IN┬UF
  326.    STA IN┬UF╠EN+0
  327.    LDA ACE═EM╘OP+1
  328.    SBC #>IN┬UF
  329.    STA IN┬UF╠EN+1
  330.    LDA #0
  331.    STA BUF├OUNT+0
  332.    STA BUF├OUNT+1
  333.    LDX #STDOUT
  334.    JSR DEVINFO
  335.    CMP #0
  336.    BNE +
  337.    LDA #<254
  338.    LDY #>254
  339.    STA IN┬UF╠EN+0
  340.    STY IN┬UF╠EN+1
  341. +  RTS
  342.  
  343. PUT┬YTE = *
  344.    LDX OUT┬UF├OUNT
  345.    CPX #254
  346.    BCC +
  347.    PHA
  348.    JSR FLUSH╧UT┬UF
  349.    PLA
  350.    LDX OUT┬UF├OUNT
  351. +  STA OUT┬UF,X
  352.    INC OUT┬UF├OUNT
  353.    RTS
  354.  
  355. FLUSH╧UT┬UF = *
  356.    JSR STOPKEY
  357.    BCC +
  358.    JMP STOPPED
  359. +  LDA #<OUT┬UF
  360.    LDY #>OUT┬UF
  361.    STA ZP+0
  362.    STY ZP+1
  363.    LDA OUT┬UF├OUNT
  364.    LDY #0
  365.    LDX #STDOUT
  366.    JSR WRITE
  367.    LDA #0
  368.    STA OUT┬UF├OUNT
  369.    RTS
  370.  
  371. INIT╧UT┬UF = *
  372.    LDA #0
  373.    STA OUT┬UF├OUNT
  374.    RTS
  375.  
  376. INIT╘R = *
  377.    LDA TR╞ROM
  378.    ASL
  379.    TAX
  380.    LDA READ╘R,X
  381.    STA READ╘R╘AB+0
  382.    LDA READ╘R+1,X
  383.    STA READ╘R╘AB+1
  384.    LDA TR╘O
  385.    ASL
  386.    TAX
  387.    LDA WRITE╘R,X
  388.    STA WRITE╘R╘AB+0
  389.    LDA WRITE╘R+1,X
  390.    STA WRITE╘R╘AB+1
  391.    RTS
  392.  
  393. READ╘R  .WORD 0,ASC╘O╨ET,ASC╘O╨ET,ASC╘O╨ET,SPD╘O╨ET
  394. WRITE╘R .WORD 0,PET╘O┴SC,PET╘O┴SC,PET╘O┴SC,PET╘O╙PD
  395.  
  396. ASC╘O╨ET = *
  397.        ;0   1   2   3   4   5   6   7   8   9   A   B   C   D   E   F
  398. .BYTE $00,$01,$02,$03,$04,$05,$06,$07,$9D,$09,$0D,$0B,$93,$0A,$0E,$0F ;0
  399. .BYTE $10,$11,$12,$13,$14,$15,$16,$17,$18,$19,$1A,$1B,$1C,$1D,$1E,$1F ;1
  400. .BYTE $20,$21,$22,$23,$24,$25,$26,$27,$28,$29,$2A,$2B,$2C,$2D,$2E,$2F ;2
  401. .BYTE $30,$31,$32,$33,$34,$35,$36,$37,$38,$39,$3A,$3B,$3C,$3D,$3E,$3F ;3
  402. .BYTE $40,$C1,$C2,$C3,$C4,$C5,$C6,$C7,$C8,$C9,$CA,$CB,$CC,$CD,$CE,$CF ;4
  403. .BYTE $D0,$D1,$D2,$D3,$D4,$D5,$D6,$D7,$D8,$D9,$DA,$5B,$5C,$5D,$5E,$5F ;5
  404. .BYTE $C0,$41,$42,$43,$44,$45,$46,$47,$48,$49,$4A,$4B,$4C,$4D,$4E,$4F ;6
  405. .BYTE $50,$51,$52,$53,$54,$55,$56,$57,$58,$59,$5A,$DB,$DC,$DD,$DE,$DF ;7
  406. .BYTE $80,$81,$82,$83,$84,$85,$86,$87,$88,$89,$8A,$8B,$8C,$8D,$8E,$8F ;8
  407. .BYTE $90,$91,$92,$0C,$94,$95,$96,$97,$98,$99,$9A,$9B,$9C,$08,$9E,$9F ;9
  408. .BYTE $A0,$A1,$A2,$A3,$A4,$A5,$A6,$A7,$A8,$A9,$AA,$AB,$AC,$AD,$AE,$AF ;A
  409. .BYTE $B0,$B1,$B2,$B3,$B4,$B5,$B6,$B7,$B8,$B9,$BA,$BB,$BC,$BD,$BE,$BF ;B
  410. .BYTE $60,$61,$62,$63,$64,$65,$66,$67,$68,$69,$6A,$6B,$6C,$6D,$6E,$6F ;C
  411. .BYTE $70,$71,$72,$73,$74,$75,$76,$77,$78,$79,$7A,$7B,$7C,$7D,$7E,$7F ;D
  412. .BYTE $E0,$E1,$E2,$E3,$E4,$E5,$E6,$E7,$E8,$E9,$EA,$EB,$EC,$ED,$EE,$EF ;E
  413. .BYTE $F0,$F1,$F2,$F3,$F4,$F5,$F6,$F7,$F8,$F9,$FA,$FB,$FC,$FD,$FE,$FF ;F
  414.  
  415. SPD╘O╨ET = *
  416.        ;0   1   2   3   4   5   6   7   8   9   A   B   C   D   E   F
  417. .BYTE $40,$41,$42,$43,$44,$45,$46,$47,$48,$49,$4A,$4B,$4C,$4D,$4E,$4F ;0
  418. .BYTE $50,$51,$52,$53,$54,$55,$56,$57,$58,$59,$5A,$5B,$5C,$5D,$5E,$0D ;1
  419. .BYTE $20,$21,$22,$23,$24,$25,$26,$27,$28,$29,$2A,$2B,$2C,$2D,$2E,$2F ;2
  420. .BYTE $30,$31,$32,$33,$34,$35,$36,$37,$38,$39,$3A,$3B,$3C,$3D,$3E,$3F ;3
  421. .BYTE $C0,$C1,$C2,$C3,$C4,$C5,$C6,$C7,$C8,$C9,$CA,$CB,$CC,$CD,$CE,$CF ;4
  422. .BYTE $D0,$D1,$D2,$D3,$D4,$D5,$D6,$D7,$D8,$D9,$DA,$DB,$DC,$DD,$DE,$DF ;5
  423. .BYTE $A0,$A1,$A2,$A3,$A4,$A5,$A6,$A7,$A8,$A9,$AA,$AB,$AC,$AD,$AE,$AF ;6
  424. .BYTE $B0,$B1,$B2,$B3,$B4,$B5,$B6,$B7,$B8,$B9,$BA,$BB,$BC,$BD,$BE,$BF ;7
  425. .BYTE $00,$01,$02,$03,$04,$05,$06,$07,$08,$09,$0A,$0B,$0C,$5F,$0E,$0F ;8
  426. .BYTE $10,$11,$12,$13,$14,$15,$16,$17,$18,$19,$1A,$1B,$1C,$1D,$1E,$1F ;9
  427. .BYTE $E0,$E1,$E2,$E3,$E4,$E5,$E6,$E7,$E8,$E9,$EA,$EB,$EC,$ED,$EE,$EF ;A
  428. .BYTE $F0,$F1,$F2,$F3,$F4,$F5,$F6,$F7,$F8,$F9,$FA,$FB,$FC,$FD,$FE,$FF ;B
  429. .BYTE $80,$81,$82,$83,$84,$85,$86,$87,$88,$89,$8A,$8B,$8C,$8D,$8E,$8F ;C
  430. .BYTE $90,$91,$92,$93,$94,$95,$96,$97,$98,$99,$9A,$9B,$9C,$9D,$9E,$9F ;D
  431. .BYTE $60,$61,$62,$63,$64,$65,$66,$67,$68,$69,$6A,$6B,$6C,$6D,$6E,$6F ;E
  432. .BYTE $70,$71,$72,$73,$74,$75,$76,$77,$78,$79,$7A,$7B,$7C,$7D,$7E,$7F ;F
  433.  
  434. PET╘O┴SC = *
  435.        ;0   1   2   3   4   5   6   7   8   9   A   B   C   D   E   F
  436. .BYTE $00,$01,$02,$03,$04,$05,$06,$07,$08,$09,$0D,$0B,$93,$0A,$0E,$0F ;0
  437. .BYTE $10,$11,$12,$13,$14,$15,$16,$17,$18,$19,$1A,$1B,$1C,$1D,$1E,$1F ;1
  438. .BYTE $20,$21,$22,$23,$24,$25,$26,$27,$28,$29,$2A,$2B,$2C,$2D,$2E,$2F ;2
  439. .BYTE $30,$31,$32,$33,$34,$35,$36,$37,$38,$39,$3A,$3B,$3C,$3D,$3E,$3F ;3
  440. .BYTE $40,$61,$62,$63,$64,$65,$66,$67,$68,$69,$6A,$6B,$6C,$6D,$6E,$6F ;4
  441. .BYTE $70,$71,$72,$73,$74,$75,$76,$77,$78,$79,$7A,$5B,$5C,$5D,$5E,$5F ;5
  442. .BYTE $C0,$C1,$C2,$C3,$C4,$C5,$C6,$C7,$C8,$C9,$CA,$CB,$CC,$CD,$CE,$CF ;6
  443. .BYTE $D0,$D1,$D2,$D3,$D4,$D5,$D6,$D7,$D8,$D9,$DA,$DB,$DC,$DD,$DE,$DF ;7
  444. .BYTE $80,$81,$82,$83,$84,$85,$86,$87,$88,$89,$8A,$8B,$8C,$8D,$8E,$8F ;8
  445. .BYTE $90,$91,$92,$93,$94,$95,$96,$97,$98,$99,$9A,$9B,$9C,$9D,$9E,$9F ;9
  446. .BYTE $A0,$A1,$A2,$A3,$A4,$A5,$A6,$A7,$A8,$A9,$AA,$AB,$AC,$AD,$AE,$AF ;A
  447. .BYTE $B0,$B1,$B2,$B3,$B4,$B5,$B6,$B7,$B8,$B9,$BA,$BB,$BC,$BD,$BE,$BF ;B
  448. .BYTE $60,$41,$42,$43,$44,$45,$46,$47,$48,$49,$4A,$4B,$4C,$4D,$4E,$4F ;C
  449. .BYTE $50,$51,$52,$53,$54,$55,$56,$57,$58,$59,$5A,$7B,$7C,$7D,$7E,$7F ;D
  450. .BYTE $E0,$E1,$E2,$E3,$E4,$E5,$E6,$E7,$E8,$E9,$EA,$EB,$EC,$ED,$EE,$EF ;E
  451. .BYTE $F0,$F1,$F2,$F3,$F4,$F5,$F6,$F7,$F8,$F9,$FA,$FB,$FC,$FD,$FE,$FF ;F
  452.  
  453. PET╘O╙PD = *
  454.        ;0   1   2   3   4   5   6   7   8   9   A   B   C   D   E   F
  455. .BYTE $80,$81,$82,$83,$84,$85,$86,$87,$88,$89,$8A,$8B,$8C,$1F,$8E,$8F ;0
  456. .BYTE $90,$91,$92,$93,$94,$95,$96,$97,$98,$99,$9A,$9B,$9C,$9D,$9E,$9F ;1
  457. .BYTE $20,$21,$22,$23,$24,$25,$26,$27,$28,$29,$2A,$2B,$2C,$2D,$2E,$2F ;2
  458. .BYTE $30,$31,$32,$33,$34,$35,$36,$37,$38,$39,$3A,$3B,$3C,$3D,$3E,$3F ;3
  459. .BYTE $00,$01,$02,$03,$04,$05,$06,$07,$08,$09,$0A,$0B,$0C,$0D,$0E,$0F ;4
  460. .BYTE $10,$11,$12,$13,$14,$15,$16,$17,$18,$19,$1A,$1B,$1C,$1D,$1E,$8D ;5
  461. .BYTE $E0,$E1,$E2,$E3,$E4,$E5,$E6,$E7,$E8,$E9,$EA,$EB,$EC,$ED,$EE,$EF ;6
  462. .BYTE $F0,$F1,$F2,$F3,$F4,$F5,$F6,$F7,$F8,$F9,$FA,$FB,$FC,$FD,$FE,$FF ;7
  463. .BYTE $C0,$C1,$C2,$C3,$C4,$C5,$C6,$C7,$C8,$C9,$CA,$CB,$CC,$CD,$CE,$CF ;8
  464. .BYTE $D0,$D1,$D2,$D3,$D4,$D5,$D6,$D7,$D8,$D9,$DA,$DB,$DC,$DD,$DE,$DF ;9
  465. .BYTE $60,$61,$62,$63,$64,$65,$66,$67,$68,$69,$6A,$6B,$6C,$6D,$6E,$6F ;A
  466. .BYTE $70,$71,$72,$73,$74,$75,$76,$77,$78,$79,$7A,$7B,$7C,$7D,$7E,$7F ;B
  467. .BYTE $40,$41,$42,$43,$44,$45,$46,$47,$48,$49,$4A,$4B,$4C,$4D,$4E,$4F ;C
  468. .BYTE $50,$51,$52,$53,$54,$55,$56,$57,$58,$59,$5A,$5B,$5C,$5D,$5E,$5F ;D
  469. .BYTE $A0,$A1,$A2,$A3,$A4,$A5,$A6,$A7,$A8,$A9,$AA,$AB,$AC,$AD,$AE,$AF ;E
  470. .BYTE $B0,$B1,$B2,$B3,$B4,$B5,$B6,$B7,$B8,$B9,$BA,$BB,$BC,$BD,$BE,$BF ;F
  471.  
  472. ;===BSS===
  473.  
  474. BSS     = *
  475. OUT┬UF  = BSS
  476. IN┬UF   = OUT┬UF+256
  477.