home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1994 June / 64er_Magazin_94-06_1994_Markt__Technik_de_Side_A.d64 / term.lst < prev    next >
File List  |  2022-10-26  |  5KB  |  123 lines
  1.  1000  *         = $c600
  2.  1010  .out10"@:term"
  3.  1020  rsinit    =   $c000
  4.  1030  rsopen    =   $c003
  5.  1040  rsclose   =   $c006
  6.  1050  rscheck   =   $c009
  7.  1060  rsget     =   $c00c
  8.  1070  rsput     =   $c00f
  9.  1080  rswrite   =   $c012
  10.  1090  chrget    =   $ffe4
  11.  1100  chrput    =   $ffd2
  12.  1110  nochar    =   $c6
  13.  1120  curseron  =   $cc
  14.  1125  curserbl  =   $cf
  15.  1130  curserpt  =   $d1
  16.  1140  curseroff =   $d3
  17.  1150  ; start terminal program
  18.  1160            jmp start
  19.  1170  baudfakt  .byt 5 ; 9600 baud
  20.  1180  control   .byt 8 ; 8 bit/no parity/re activated
  21.  1190  hotkey    .byt 2 ; code for hotkey
  22.  1200  ; table 1 cbm->ibm
  23.  1210  tab1
  24.  1220       .byt $00 $01 $02 $03 $04 $05 $06 $07 $08 $09 $0a $0b $0c $0d $0e $0f
  25.  1230        .byt $10 $11 $12 $13 $08 $15 $16 $17 $18 $19 $1a $1b $1c $1d $1e $1f
  26.  1240        .byt $20 $21 $22 $23 $24 $25 $26 $27 $28 $29 $2a $2b $2c $2d $2e $2f
  27.  1250        .byt $30 $31 $32 $33 $34 $35 $36 $37 $38 $39 $3a $3b $3c $3d $3e $3f
  28.  1260        .byt $40 $61 $62 $63 $64 $65 $66 $67 $68 $69 $6a $6b $6c $6d $6e $6f
  29.  1270        .byt $70 $71 $72 $73 $74 $75 $76 $77 $78 $79 $7a $5b $5c $5d $5e $5f
  30.  1280        .byt $60 $61 $62 $63 $64 $65 $66 $67 $68 $69 $6a $6b $6c $6d $6e $6f
  31.  1290        .byt $70 $71 $72 $73 $74 $75 $76 $77 $78 $79 $7a $7b $7c $7d $7e $7f
  32.  1300        .byt $80 $81 $82 $83 $84 $85 $86 $87 $88 $89 $8a $8b $8c $8d $8e $8f
  33.  1310        .byt $90 $91 $92 $93 $94 $95 $96 $97 $98 $99 $9a $9b $9c $9d $9e $9f
  34.  1320        .byt $a0 $a1 $a2 $a3 $a4 $a5 $a6 $a7 $a8 $a9 $aa $ab $ac $ad $ae $af
  35.  1330        .byt $b0 $b1 $b2 $b3 $b4 $b5 $b6 $b7 $b8 $b9 $ba $bb $bc $bd $be $bf
  36.  1340        .byt $60 $41 $42 $43 $44 $45 $46 $47 $48 $49 $4a $4b $4c $4d $4e $4f
  37.  1350        .byt $50 $51 $52 $53 $54 $55 $56 $57 $58 $59 $5a $7b $7c $7d $7e $7f
  38.  1360        .byt $e0 $e1 $e2 $e3 $e4 $e5 $e6 $e7 $e8 $e9 $ea $eb $ec $ed $ee $ef
  39.  1370        .byt $f0 $f1 $f2 $f3 $f4 $f5 $f6 $f7 $f8 $f9 $fa $fb $fc $fd $fe $ff
  40.  1380  ; table 2 ibm -> cbm
  41.  1390  tab2
  42.  1400       .byt $00 $01 $02 $03 $04 $05 $06 $07 $14 $09 $0a $0b $0c $0d $0e $0f
  43.  1410        .byt $10 $11 $12 $13 $14 $15 $16 $17 $18 $19 $1a $1b $1c $1d $1e $1f
  44.  1420        .byt $20 $21 $22 $23 $24 $25 $26 $27 $28 $29 $2a $2b $2c $2d $2e $2f
  45.  1430        .byt $30 $31 $32 $33 $34 $35 $36 $37 $38 $39 $3a $3b $3c $3d $3e $3f
  46.  1440        .byt $40 $61 $62 $63 $64 $65 $66 $67 $68 $69 $6a $6b $6c $6d $6e $6f
  47.  1450        .byt $70 $71 $72 $73 $74 $75 $76 $77 $78 $79 $7a $5b $5c $5d $5e $5f
  48.  1460        .byt $60 $41 $42 $43 $44 $45 $46 $47 $48 $49 $4a $4b $4c $4d $4e $4f
  49.  1470        .byt $50 $51 $52 $53 $54 $55 $56 $57 $58 $59 $5a $7b $7c $7d $7e $7f
  50.  1480        .byt $80 $81 $82 $83 $84 $85 $86 $87 $88 $89 $8a $8b $8c $8d $8e $8f
  51.  1490        .byt $90 $91 $92 $93 $94 $95 $96 $97 $98 $99 $9a $9b $9c $9d $9e $9f
  52.  1500        .byt $a0 $a1 $a2 $a3 $a4 $a5 $a6 $a7 $a8 $a9 $aa $ab $ac $ad $ae $af
  53.  1510        .byt $b0 $b1 $b2 $b3 $b4 $b5 $b6 $b7 $b8 $b9 $ba $bb $bc $bd $be $bf
  54.  1520        .byt $c0 $c1 $c2 $c3 $c4 $c5 $c6 $c7 $c8 $c9 $ca $cb $cc $cd $ce $cf
  55.  1530        .byt $d0 $d1 $d2 $d3 $d4 $d5 $d6 $d7 $d8 $d9 $da $db $dc $dd $de $df
  56.  1540        .byt $e0 $e1 $e2 $e3 $e4 $e5 $e6 $e7 $e8 $e9 $ea $eb $ec $ed $ee $ef
  57.  1550        .byt $f0 $f1 $f2 $f3 $f4 $f5 $f6 $f7 $f8 $f9 $fa $fb $fc $fd $fe $ff
  58.  1560  start      jsr rsinit
  59.  1570             ldx control
  60.  1580             ldy baudfakt
  61.  1590             jsr rsopen
  62.  1600             jsr cpright
  63.  1610             lda #0
  64.  1620             sta curseron
  65.  1630  ; main loop
  66.  1640  loop       lda nochar
  67.  1650             bne keyipt
  68.  1660             jsr rscheck
  69.  1670             bcc rsipt
  70.  1680             bcs loop
  71.  1690  ; keyboard input
  72.  1700  hotcount   .byt 0
  73.  1710  keyipt     jsr chrget
  74.  1720             bit hotcount
  75.  1730             bmi keychk
  76.  1740             cmp hotkey
  77.  1750             bne keyipt1
  78.  1760             dec hotcount
  79.  1770             jmp loop
  80.  1780  keyipt1    tay
  81.  1790             lda tab1,y
  82.  1800             jsr rswrite
  83.  1810             jmp loop
  84.  1820  keychk     inc hotcount
  85.  1830             cmp hotkey
  86.  1840             beq keyipt1
  87.  1850             cmp #'c
  88.  1860             bne keyipt1
  89.  1870             lda #1
  90.  1871  endloop    sei
  91.  1872             cmp curserbl
  92.  1874             bne endloope
  93.  1875             cli
  94.  1876             beq endloop
  95.  1877  endloope   sta curseron
  96.  1878             cli
  97.  1879             rts
  98.  1880  ; rs232 input
  99.  1890  rsipt      jsr rsget
  100.  1900             ldx tab2,y
  101.  1910             lda #1
  102.  1920             sta curseron
  103.  1921             lda curserbl
  104.  1922             beq rsipt1
  105.  1930             ldy curseroff
  106.  1940             lda (curserpt),y
  107.  1950             eor #$80
  108.  1960             sta (curserpt),y
  109.  1970  rsipt1     txa
  110.  1980             jsr chrput
  111.  1990             lda #0
  112.  1995             sta curserbl
  113.  2000             sta curseron
  114.  2010             jmp loop
  115.  2020  right .byt 14 8 /    fastterm (c) by m. conrad, 1993/ 13 13 0
  116.  2030  cpright    ldy #0
  117.  2040  cploop     lda right,y
  118.  2050             beq cpend
  119.  2060             jsr chrput
  120.  2070             iny
  121.  2080             bne cploop
  122.  2090  cpend      rts
  123.