txt.pas

dos下经典游戏超级马力的完整源代码

  @LBracket2:
    db 10,24
    db $00,$C0,$07,$1F,$0C,$30,$C0,$00,$03,$0C,$30,$C0,$00,$03,$0C,$30
    db $C0,$00,$03,$0C,$30,$C0,$00,$03,$0C,$30,$C0,$00,$1F,$7C
  @BackSlash:
    db 10,24
    db $00,$18,$60,$00,$01,$0C,$30,$80,$00,$06,$18,$40,$00,$03,$0C,$20
    db $80,$01,$06,$10,$C0,$00,$03,$08,$60,$80,$01,$00,$00,$00
  @RBracket2:
    db 10,24
    db $00,$F8,$E0,$03,$0C,$30,$C0,$00,$03,$0C,$30,$C0,$00,$03,$0C,$30
    db $C0,$00,$03,$0C,$30,$C0,$00,$03,$0C,$30,$C0,$E0,$83,$0F
  @AccCir:
    db 21,24
    db $00,$00,$00,$C0,$01,$00,$7C,$00,$C0,$1D,$00,$1C,$07,$C0,$C1,$01
    db $1C,$70,$C0,$01,$1C,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00
    db $00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00
    db $00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00
  @UnderLine:
    db 14,24
    db $00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00
    db $00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00
    db $00,$00,$00,$00,$00,$00,$00,$00,$F8,$7F
  @BSQuot:
    db 6,24
    db $00,$42,$10,$0C,$C3,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00
    db $00,$00
  @a2:
    db 14,24
    db $00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$3F,$F0,$1F,$0C,$0E
    db $03,$03,$C0,$C0,$3F,$FC,$8D,$03,$63,$C0,$18,$30,$0E,$0F,$7F,$8F
    db $8F,$03,$00,$00,$00,$00,$00,$00,$00,$00
  @b2:
    db 15,24
    db $00,$00,$06,$00,$03,$80,$01,$C0,$00,$60,$00,$30,$1F,$D8,$1F,$3C
    db $1C,$0E,$0C,$03,$8C,$01,$C6,$00,$63,$80,$31,$C0,$38,$30,$3C,$1C
    db $F6,$07,$F3,$01,$00,$00,$00,$00,$00,$00,$00,$00,$00
  @c2:
    db 13,24
    db $00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$7C,$C0,$3F,$1C,$C6,$81
    db $19,$00,$03,$60,$00,$0C,$80,$01,$63,$70,$1C,$07,$FF,$C0,$07,$00
    db $00,$00,$00,$00,$00,$00,$00
  @d2:
    db 15,24
    db $00,$00,$00,$0C,$00,$06,$00,$03,$80,$01,$C0,$C0,$67,$F0,$37,$1C
    db $1E,$06,$8E,$01,$C6,$00,$63,$80,$31,$C0,$18,$60,$1C,$38,$1C,$1E
    db $FC,$0D,$7C,$06,$00,$00,$00,$00,$00,$00,$00,$00,$00
  @e2:
    db 14,24
    db $00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$3F,$E0,$1F,$1C,$8E
    db $03,$66,$80,$F9,$7F,$FE,$9F,$01,$60,$00,$38,$60,$1C,$0E,$FE,$01
    db $3F,$00,$00,$00,$00,$00,$00,$00,$00,$00
  @f2:
    db 7,24
    db $00,$3C,$9F,$C1,$60,$FC,$FF,$0C,$06,$83,$C1,$60,$30,$18,$0C,$06
    db $03,$00,$00,$00,$00
  @g2:
    db 15,24
    db $00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$C0,$6F,$F0,$37,$1C
    db $1E,$06,$8E,$01,$C6,$00,$63,$80,$31,$C0,$18,$60,$18,$38,$1C,$1E
    db $FC,$0D,$7C,$06,$00,$63,$80,$61,$60,$F0,$3F,$E0,$07
  @h2:
    db 14,24
    db $00,$00,$03,$C0,$00,$30,$00,$0C,$00,$03,$C0,$3C,$B0,$1F,$3C,$0E
    db $07,$C3,$C0,$30,$30,$0C,$0C,$03,$C3,$C0,$30,$30,$0C,$0C,$03,$C3
    db $C0,$00,$00,$00,$00,$00,$00,$00,$00,$00
  @i2:
    db 6,24
    db $00,$C3,$30,$00,$C0,$30,$0C,$C3,$30,$0C,$C3,$30,$0C,$C3,$00,$00
    db $00,$00
  @j2:
    db 6,24
    db $00,$C3,$30,$00,$C0,$30,$0C,$C3,$30,$0C,$C3,$30,$0C,$C3,$30,$0C
    db $F3,$1C
  @k2:
    db 13,24
    db $00,$80,$01,$30,$00,$06,$C0,$00,$18,$00,$03,$67,$30,$0C,$83,$39
    db $B0,$03,$7E,$C0,$1B,$38,$07,$C3,$60,$38,$0C,$86,$81,$31,$70,$00
    db $00,$00,$00,$00,$00,$00,$00
  @l2:
    db 6,24
    db $00,$C3,$30,$0C,$C3,$30,$0C,$C3,$30,$0C,$C3,$30,$0C,$C3,$00,$00
    db $00,$00
  @m2:
    db 20,24
    db $00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$EC
    db $F3,$C1,$BF,$1F,$1C,$8F,$C3,$60,$30,$0C,$06,$C3,$60,$30,$0C,$06
    db $C3,$60,$30,$0C,$06,$C3,$60,$30,$0C,$06,$C3,$60,$30,$0C,$06,$03
    db $00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00
  @n2:
    db 14,24
    db $00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$C0,$7E,$F0,$1F,$3C,$0E
    db $07,$C3,$C0,$30,$30,$0C,$0C,$03,$C3,$C0,$30,$30,$0C,$0C,$03,$C3
    db $C0,$00,$00,$00,$00,$00,$00,$00,$00,$00
  @o2:
    db 14,24
    db $00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$1F,$E0,$1F,$1C,$0E
    db $03,$67,$80,$19,$60,$06,$98,$01,$66,$80,$31,$70,$1C,$0E,$FE,$01
    db $1F,$00,$00,$00,$00,$00,$00,$00,$00,$00
  @p2:
    db 15,24
    db $00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$30,$1F,$D8,$1F,$3C
    db $1C,$0E,$0C,$03,$8C,$01,$C6,$00,$63,$80,$31,$C0,$38,$30,$3C,$1C
    db $F6,$07,$F3,$81,$01,$C0,$00,$60,$00,$30,$00,$18,$00
  @q2:
    db 15,24
    db $00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$C0,$6F,$F0,$37,$1C
    db $1E,$07,$8E,$01,$C6,$00,$63,$80,$31,$C0,$18,$60,$18,$38,$1C,$1E
    db $FC,$0D,$7C,$06,$00,$03,$80,$01,$C0,$00,$60,$00,$30
  @r2:
    db 8,24
    db $00,$00,$00,$00,$00,$00,$EC,$FC,$3C,$1C,$0C,$0C,$0C,$0C,$0C,$0C
    db $0C,$0C,$0C,$00,$00,$00,$00,$00
  @s2:
    db 12,24
    db $00,$00,$00,$00,$00,$00,$00,$00,$00,$F8,$C0,$3F,$0E,$63,$60,$06
    db $E0,$03,$F8,$03,$7C,$00,$66,$60,$0E,$C7,$3F,$F8,$00,$00,$00,$00
    db $00,$00,$00,$00
  @t2:
    db 7,24
    db $00,$00,$83,$C1,$60,$FC,$FF,$0C,$06,$83,$C1,$60,$30,$18,$0C,$3E
    db $1E,$00,$00,$00,$00
  @u2:
    db 14,24
    db $00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$C0,$C0,$30,$30,$0C,$0C
    db $03,$C3,$C0,$30,$30,$0C,$0C,$03,$C3,$C0,$30,$38,$1C,$0F,$FE,$03
    db $CF,$00,$00,$00,$00,$00,$00,$00,$00,$00
  @v2:
    db 12,24
    db $00,$00,$00,$00,$00,$00,$00,$00,$00,$07,$6E,$60,$06,$E6,$70,$0C
    db $C3,$30,$98,$81,$19,$98,$01,$0F,$F0,$00,$0F,$60,$00,$00,$00,$00
    db $00,$00,$00,$00
  @w2:
    db 18,24
    db $00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$70,$70,$B0
    db $C1,$61,$86,$8F,$19,$36,$E6,$D8,$1C,$73,$33,$CC,$CC,$30,$63,$83
    db $8F,$07,$1E,$1E,$78,$78,$C0,$C1,$00,$03,$03,$00,$00,$00,$00,$00
    db $00,$00,$00,$00,$00,$00
  @x2:
    db 12,24
    db $00,$00,$00,$00,$00,$00,$00,$00,$00,$07,$EE,$70,$9C,$83,$19,$F8
    db $01,$0F,$70,$00,$0F,$F8,$C1,$39,$0C,$E3,$70,$07,$0E,$00,$00,$00
    db $00,$00,$00,$00
  @y2:
    db 12,24
    db $00,$00,$00,$00,$00,$00,$00,$00,$00,$07,$6E,$60,$06,$E6,$70,$0C
    db $C3,$30,$9C,$83,$19,$98,$81,$0F,$F0,$00,$0F,$60,$00,$06,$60,$00
    db $03,$3E,$E0,$01
  @z2:
    db 14,24
    db $00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$C0,$FF,$F1,$7F,$00,$0E
    db $80,$01,$30,$00,$0E,$C0,$01,$38,$00,$07,$E0,$00,$18,$00,$FF,$C7
    db $FF,$01,$00,$00,$00,$00,$00,$00,$00,$00
  @LBracket3:
    db 10,24
    db $00,$00,$0E,$3E,$38,$60,$80,$01,$06,$18,$60,$80,$01,$07,$0F,$3C
    db $C0,$01,$06,$18,$60,$80,$01,$06,$18,$60,$80,$03,$3E,$F0
  @VertLine:
    db 8,24
    db $18,$18,$18,$18,$18,$18,$18,$18,$18,$18,$18,$18,$18,$18,$18,$18
    db $18,$18,$18,$18,$18,$18,$18,$18
  @RBracket3:
    db 10,24
    db $00,$3C,$F0,$01,$07,$18,$60,$80,$01,$06,$18,$60,$80,$03,$3C,$F0
    db $E0,$80,$01,$06,$18,$60,$80,$01,$06,$18,$70,$F0,$C1,$01
  @Tilde:
    db 19,24
    db $00,$00,$00,$00,$00,$3C,$60,$F0,$03,$83,$31,$18,$06,$63,$30,$F8
    db $83,$01,$0F,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00
    db $00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00
    db $00,$00,$00,$00,$00,$00,$00,$00,$00
  @Copyright:
    db 22,24
    db $00,$00,$00,$00,$00,$00,$F0,$03,$00,$83,$03,$60,$80,$01,$0C,$C0
    db $80,$F1,$61,$20,$C6,$10,$8C,$60,$0C,$31,$00,$42,$0C,$80,$10,$03
    db $20,$C4,$00,$08,$71,$18,$83,$18,$43,$60,$7C,$18,$30,$00,$03,$18
    db $60,$00,$0C,$0E,$00,$7C,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00
    db $00,$00
  @Registered:
    db 22,24
    db $00,$00,$00,$00,$00,$00,$F0,$03,$00,$83,$03,$20,$80,$01,$04,$C0
    db $80,$F9,$63,$20,$C6,$11,$84,$61,$08,$61,$18,$42,$F8,$83,$10,$66
    db $20,$84,$19,$08,$63,$0C,$83,$18,$43,$20,$86,$19,$10,$00,$03,$0C
    db $60,$00,$0C,$0E,$00,$7C,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00
    db $00,$00
  @TradeMark:
    db 20,24
    db $00,$00,$00,$00,$00,$7C,$C6,$00,$61,$0C,$10,$EE,$00,$A1,$0A,$10
    db $AA,$00,$A1,$0B,$10,$92,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00
    db $00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00
    db $00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00
  end;

  procedure Font8x8; assembler;
  asm
    dw @0d128, @0d129, @0d130, @0d131, @0d132, @0d133, @0d134, @0d135, @0d136
    dw @0d137, @0d138, @0d139, @0d140, @0d141, @0d142, @0d143, @0d144, @0d145
    dw @0d146, @0d147, @0d148, @0d149, @0d150, @0d151, @0d152, @0d153, @0d154
    dw @0d155, @0d156, @0d157, @0d158, @0d159, @0d160, @0d161, @0d162, @0d163
    dw @0d164, @0d165, @0d166, @0d167, @0d168, @0d169, @0d170, @0d171, @0d172
    dw @0d173, @0d174, @0d175, @0d176, @0d177, @0d178, @0d179, @0d180, @0d181
    dw @0d182, @0d183, @0d184, @0d185, @0d186, @0d187, @0d188, @0d189, @0d190
    dw @0d191, @0d192, @0d193, @0d194, @0d195, @0d196, @0d197, @0d198, @0d199
    dw @0d200, @0d201, @0d202, @0d203, @0d204, @0d205, @0d206, @0d207, @0d208
    dw @0d209, @0d210, @0d211, @0d212, @0d213, @0d214, @0d215, @0d216, @0d217
    dw @0d218, @0d219, @0d220, @0d221, @0d222, @0d223, @0d224, @0d225, @0d226
    dw @0d227, @0d228, @0d229, @0d230, @0d231, @0d232, @0d233, @0d234, @0d235
    dw @0d236, @0d237, @0d238, @0d239, @0d240, @0d241, @0d242, @0d243, @0d244
    dw @0d245, @0d246, @0d247, @0d248, @0d249, @0d250, @0d251, @0d252, @0d253
    dw @0d254, @0d255
  @0d128:
    db 8,8
    db $00,$00,$00,$00,$00,$00,$00,$00
  @0d129:
    db 8,8
    db $7E,$81,$A5,$81,$BD,$99,$81,$7E
  @0d130:
    db 8,8
    db $7E,$FF,$DB,$FF,$C3,$E7,$FF,$7E
  @0d131:
    db 8,8
    db $36,$7F,$7F,$7F,$3E,$1C,$08,$00
  @0d132:
    db 8,8
    db $08,$1C,$3E,$7F,$3E,$1C,$08,$00
  @0d133:
    db 8,8
    db $1C,$3E,$1C,$7F,$7F,$3E,$1C,$3E
  @0d134:
    db 8,8
    db $08,$08,$1C,$3E,$7F,$3E,$1C,$3E
  @0d135:
    db 8,8
    db $00,$00,$18,$3C,$3C,$18,$00,$00
  @0d136:
    db 8,8
    db $FF,$FF,$E7,$C3,$C3,$E7,$FF,$FF
  @0d137:
    db 8,8
    db $00,$3C,$66,$42,$42,$66,$3C,$00
  @0d138:
    db 8,8
    db $FF,$C3,$99,$BD,$BD,$99,$C3,$FF
  @0d139:
    db 8,8
    db $F0,$E0,$F0,$BE,$33,$33,$33,$1E
  @0d140:
    db 8,8
    db $3C,$66,$66,$66,$3C,$18,$7E,$18
  @0d141:
    db 8,8
    db $FC,$CC,$FC,$0C,$0C,$0E,$0F,$07
  @0d142:
    db 8,8
    db $FE,$C6,$FE,$C6,$C6,$E6,$67,$03
  @0d143:
    db 8,8
    db $99,$5A,$3C,$E7,$E7,$3C,$5A,$99
  @0d144:
    db 8,8
    db $01,$07,$1F,$7F,$1F,$07,$01,$00
  @0d145:
    db 8,8
    db $40,$70,$7C,$7F,$7C,$70,$40,$00
  @0d146:
    db 8,8
    db $18,$3C,$7E,$18,$18,$7E,$3C,$18
  @0d147:
    db 8,8
    db $66,$66,$66,$66,$66,$00,$66,$00
  @0d148:
    db 8,8
    db $FE,$DB,$DB,$DE,$D8,$D8,$D8,$00
  @0d149:
    db 8,8
    db $7C,$C6,$1C,$36,$36,$1C,$33,$1E
  @0d150:
    db 8,8
    db $00,$00,$00,$00,$7E,$7E,$7E,$00
  @0d151:
    db 8,8
    db $18,$3C,$7E,$18,$7E,$3C,$18,$FF
  @0d152:
    db 8,8
    db $18,$3C,$7E,$18,$18,$18,$18,$00
  @0d153:
    db 8,8
    db $18,$18,$18,$18,$7E,$3C,$18,$00
  @0d154:
    db 8,8
    db $00,$18,$30,$7F,$30,$18,$00,$00
  @0d155:
    db 8,8
    db $00,$0C,$06,$7F,$06,$0C,$00,$00
  @0d156:
    db 8,8
    db $00,$00,$03,$03,$03,$7F,$00,$00
  @0d157:
    db 8,8
    db $00,$24,$66,$FF,$66,$24,$00,$00
  @0d158:
    db 8,8
    db $00,$18,$3C,$7E,$FF,$FF,$00,$00
  @0d159:
    db 8,8
    db $00,$FF,$FF,$7E,$3C,$18,$00,$00
  @0d160:
    db 6,8
    db $00,$00,$00,$00,$00,$00
  @0d161:
    db 3,8
    db $92,$24,$08
  @0d162:
    db 4,8
    db $55,$00,$00,$00
  @0d163:
    db 6,8
    db $8A,$F2,$29,$9F,$A2,$00
  @0d164:
    db 6,8
    db $84,$37,$38,$D8,$43,$00
  @0d165:
    db 8,8
    db $46,$29,$16,$08,$34,$4A,$31,$00
  @0d166:
    db 7,8
    db $0C,$09,$C3,$94,$49,$D8,$00
  @0d167:
    db 3,8
    db $0A,$00,$00
  @0d168:
    db 4,8
    db $24,$11,$21,$04
  @0d169:
    db 4,8
    db $21,$44,$24,$01
  @0d170:
    db 7,8
    db $00,$09,$E3,$C7,$90,$00,$00
  @0d171:
    db 6,8
    db $00,$41,$7C,$04,$01,$00
  @0d172:
    db 3,8
    db $00,$00,$28
  @0d173:
    db 6,8
    db $00,$00,$7C,$00,$00,$00
  @0d174:
    db 2,8
    db $00,$10