Custom Rom

ZX evolution software and hardware

Postby savelij » 04 Jan 2012, 20:33

Вот тут весь мой компилятор находится http://code.google.com/p/pentevo/source ... Fasw%2Fbin
savelij
 
Posts: 568
Joined: 10 Jun 2008, 17:35
Group: Registered users

Postby justine » 04 Jan 2012, 20:47

If i compile with asw i get these error ?

Code: Select all
AS V1.42 Beta [Bld 78] - source file justine.a80 - page 1 - 1/4/2012 18:44:55


       1/       0 :                     
       2/       0 :                           ORG 0
       3/       0 : F3                  START           DI
> > >justine.a80(4): error: invalid symbol name
       4/       1 :                           LD SP,$6000
> > >justine.a80(5): error: invalid symbol name
       5/       1 :                                     LD BC,$FF77
> > >justine.a80(6): error: invalid symbol name
       6/       1 :                                     LD A,$A3      ;SPECTRUM SCREEN
       7/       1 : ED 79                               OUT (C),A
       8/       3 : AF                                  XOR A
       9/       4 : CD 04 00                            CALL SET_7FFD
> > >justine.a80(10): error: invalid symbol name
      10/       7 :                                     LD HL,$4000
> > >justine.a80(11): error: invalid symbol name
      11/       7 :                                     LD DE,$4001
> > >justine.a80(12): error: invalid symbol name
      12/       7 :                                     LD BC,$1800
      13/       7 : 75                                  LD (HL),L
      14/       8 : ED B0                               LDIR
      15/       A : 54                                  LD D,H
      16/       B : 5D                                  LD E,L
      17/       C : 13                                  INC DE
> > >justine.a80(18): error: invalid symbol name
      18/       D :                                     LD BC,$300
> > >justine.a80(19): error: invalid symbol name
      19/       D :                                     LD (HL),$39
      20/       D : ED B0                               LDIR
      21/       F : 3E 01                               LD A,1
> > >justine.a80(22): error: invalid symbol name
      22/      11 :                                     OUT ($FE),A
> > >justine.a80(23): error: invalid symbol name
      23/      11 :                                     LD DE,$4808      ;€„…‘ …—€’ˆ € Š€…
      24/      11 : 21 11 00                            LD HL,TEXT_SPMODE
      25/      14 : CD 14 00                            CALL PRINT
> > >justine.a80(26): error: invalid symbol name
      26/      17 :                                     LD DE,$48E2
      27/      17 : 21 17 00                            LD HL,PRESS_SPACE
      28/      1A : CD 1A 00                            CALL PRINT
      29/      1D : CD 1D 00                            CALL WAIT_KEYS
> > >justine.a80(30): error: invalid symbol name
      30/      20 :                           LD BC,$FF77
> > >justine.a80(31): error: invalid symbol name
      31/      20 :                           LD A,$A6      ;TEXTMODE SCREEN
      32/      20 : ED 79                     OUT (C),A
      33/      22 : 3E 05                     LD A,5
> > >justine.a80(34): error: invalid symbol name
      34/      24 :                           OUT ($FE),A
> > >justine.a80(35): error: invalid symbol name
      35/      24 :                           LD A,$27
      36/      24 : CD 24 00                  CALL CLEAR_TXTSCR
> > >justine.a80(37): error: invalid symbol name
      37/      27 :                           LD DE,$1006
      38/      27 : 21 27 00                  LD HL,TEXT_TXTMODE
      39/      2A : CD 2A 00                  CALL PRTT_MSG
> > >justine.a80(40): error: invalid symbol name
      40/      2D :                           LD DE,$2010
      41/      2D : 21 2D 00                  LD HL,PRESS_SPACE
      42/      30 : CD 30 00                  CALL PRTT_MSG
      43/      33 : CD 33 00                  CALL WAIT_KEYS
AS V1.42 Beta [Bld 78] - source file justine.a80 - page 2 - 1/4/2012 18:44:55


      44/      36 : C3 00 00                  JP START
      45/      39 :                     
      46/      39 : 7E                  PRTT_MSG   LD A,(HL)
      47/      3A : 23                        INC HL
      48/      3B : A7                        AND A
      49/      3C : C8                        RET Z
      50/      3D :                     ;D-X E-Y
      51/      3D : D5                        PUSH DE
      52/      3E : E5                        PUSH HL
      53/      3F : F5                        PUSH AF
      54/      40 : 6B                        LD L,E
      55/      41 : 7A                        LD A,D
      56/      42 : 26 00                     LD H,0
      57/      44 : 54                        LD D,H
      58/      45 : 29                        ADD HL,HL
      59/      46 : 29                        ADD HL,HL
      60/      47 : 29                        ADD HL,HL
      61/      48 : 29                        ADD HL,HL
      62/      49 : 29                        ADD HL,HL
      63/      4A : 29                        ADD HL,HL
      64/      4B : 5F                        LD E,A
      65/      4C : CB 3B                     SRL E
      66/      4E : 19                        ADD HL,DE
      67/      4F : E6 01                     AND 1
      68/      51 : 0F                        RRCA
      69/      52 : 0F                        RRCA
      70/      53 : 0F                        RRCA
> > >justine.a80(71): error: invalid operand type
      71/      54 :                           OR 0XC1
      72/      54 : 57                        LD D,A
> > >justine.a80(73): error: invalid operand type
      73/      55 :                           LD E,0XC0
      74/      55 : 19                        ADD HL,DE
      75/      56 : F1                        POP AF
      76/      57 : 77                        LD (HL),A
      77/      58 : E1                        POP HL
      78/      59 : D1                        POP DE
      79/      5A : 14                        INC D
      80/      5B : 18 DC                     JR PRTT_MSG
      81/      5D :                     
> > >justine.a80(82): error: invalid symbol name
      82/      5D :                     WAIT_KEYS   LD A,$7F
> > >justine.a80(83): error: invalid symbol name
      83/      5D :                                     IN A,($FE)
      84/      5D : 1F                                  RRA
      85/      5E : 38 FD                               JR C,WAIT_KEYS
      86/      60 : AF                  WAIT_KEY1   XOR A
> > >justine.a80(87): error: invalid symbol name
      87/      61 :                           IN A,($FE)
      88/      61 : 2F                        CPL
> > >justine.a80(89): error: invalid operand type
      89/      62 :                           AND 0X1F
      90/      62 : 20 FC                     JR NZ,WAIT_KEY1
      91/      64 : C9                        RET
      92/      65 :                                     
      93/      65 : 7E                  PRINT      LD A,(HL)
      94/      66 : 23                        INC HL
      95/      67 : A7                        AND A
      96/      68 : C8                        RET Z
      97/      69 : E5                        PUSH HL
AS V1.42 Beta [Bld 78] - source file justine.a80 - page 3 - 1/4/2012 18:44:55


      98/      6A : D5                        PUSH DE
      99/      6B : D5                        PUSH DE
     100/      6C : 6F                        LD L,A
     101/      6D : 26 00                     LD H,0
> > >justine.a80(102): error: invalid symbol name
     102/      6F :                           LD DE,CHARS-$100
     103/      6F : 29                        ADD HL,HL
     104/      70 : 29                        ADD HL,HL
     105/      71 : 29                        ADD HL,HL
     106/      72 : 19                        ADD HL,DE
     107/      73 : D1                        POP DE
     108/      74 :                           REPT 8
     109/      74 :                           LD A,(HL)
     110/      74 :                           LD (DE),A
     111/      74 :                           INC HL
     112/      74 :                           INC D
     113/      74 :                           ENDM
     109/      74 : 7E                        LD A,(HL)
     110/      75 : 12                        LD (DE),A
     111/      76 : 23                        INC HL
     112/      77 : 14                        INC D
     109/      78 : 7E                        LD A,(HL)
     110/      79 : 12                        LD (DE),A
     111/      7A : 23                        INC HL
     112/      7B : 14                        INC D
     109/      7C : 7E                        LD A,(HL)
     110/      7D : 12                        LD (DE),A
     111/      7E : 23                        INC HL
     112/      7F : 14                        INC D
     109/      80 : 7E                        LD A,(HL)
     110/      81 : 12                        LD (DE),A
     111/      82 : 23                        INC HL
     112/      83 : 14                        INC D
     109/      84 : 7E                        LD A,(HL)
     110/      85 : 12                        LD (DE),A
     111/      86 : 23                        INC HL
     112/      87 : 14                        INC D
     109/      88 : 7E                        LD A,(HL)
     110/      89 : 12                        LD (DE),A
     111/      8A : 23                        INC HL
     112/      8B : 14                        INC D
     109/      8C : 7E                        LD A,(HL)
     110/      8D : 12                        LD (DE),A
     111/      8E : 23                        INC HL
     112/      8F : 14                        INC D
     109/      90 : 7E                        LD A,(HL)
     110/      91 : 12                        LD (DE),A
     111/      92 : 23                        INC HL
     112/      93 : 14                        INC D
     114/      94 : D1                        POP DE
     115/      95 : E1                        POP HL
     116/      96 : 1C                        INC E
     117/      97 : 18 CC                     JR PRINT
     118/      99 :                     
     119/      99 : F5                  CLEAR_TXTSCR   PUSH AF
> > >justine.a80(120): error: invalid symbol name
     120/      9A :                           LD A,$0F
     121/      9A : CD 9A 00                  CALL SET_7FFD
> > >justine.a80(122): error: invalid operand type
     122/      9D :                           LD HL,0XC1C0
AS V1.42 Beta [Bld 78] - source file justine.a80 - page 4 - 1/4/2012 18:44:55


     123/      9D : 3E 20                     LD A," "
     124/      9F : CD 9F 00                  CALL CLS_TXTSCR
> > >justine.a80(125): error: invalid operand type
     125/      A2 :                           LD HL,0XE1C0
     126/      A2 : CD A2 00                  CALL CLS_TXTSCR
> > >justine.a80(127): error: invalid symbol name
     127/      A5 :                           LD A,$0B
     128/      A5 : CD A5 00                  CALL SET_7FFD
> > >justine.a80(129): error: invalid operand type
     129/      A8 :                           LD HL,0XC1C0
     130/      A8 : F1                        POP AF
     131/      A9 : CD A9 00                  CALL CLS_TXTSCR
> > >justine.a80(132): error: invalid operand type
     132/      AC :                           LD HL,0XE1C0
     133/      AC : CD AC 00                  CALL CLS_TXTSCR
> > >justine.a80(134): error: invalid symbol name
     134/      AF :                           LD A,$0F
     135/      AF : C5                  SET_7FFD   PUSH BC
> > >justine.a80(136): error: invalid symbol name
     136/      B0 :                           LD BC,$7FFD
     137/      B0 : ED 79                     OUT (C),A
     138/      B2 : C1                        POP BC
     139/      B3 : C9                        RET
     140/      B4 :                     
     141/      B4 : 54                  CLS_TXTSCR   LD D,H
     142/      B5 : 5D                        LD E,L
> > >justine.a80(143): error: invalid operand type
     143/      B6 :                           LD BC,0X63F
     144/      B6 : 77                        LD (HL),A
     145/      B7 : 13                        INC DE
     146/      B8 : ED B0                     LDIR
     147/      BA : C9                        RET
     148/      BB :                     
     149/      BB : 53 50 45 43 54 52   TEXT_SPMODE   DB "SPECTRUM SCREEN MODE",0
                    55 4D 20 53 43 52
                    45 45 4E 20 4D 4F
                    44 45 00
     150/      D0 : 54 45 58 54 20 53   TEXT_TXTMODE   DB "TEXT SCREEN MODE",0
                    43 52 45 45 4E 20
                    4D 4F 44 45 00
     151/      E1 : 50 52 45 53 53 20   PRESS_SPACE   DB "PRESS SPACE FOR CONTINUE",0
                    53 50 41 43 45 20
                    46 4F 52 20 43 4F
                    4E 54 49 4E 55 45
                    00
     152/      FA :                     
     153/      FA :                     CHARS      binclude shr_3d00.bin
     154/     3FA :                     
     155/     3FA :                        ; Fill rest of rom with $FF
> > >justine.a80(156): error: unknown opcode
     156/     3FA :                           DUPL $3D2F-$,$FF
> > >justine.a80(157): error: invalid symbol name
     157/     3FA :                           DB $00,$C9
     158/     3FA :                       
     159/     3FA :                        ; Fill rest of rom with $FF
> > >justine.a80(160): error: unknown opcode
     160/     3FA :                           DUPL $4000-$,$FF
AS V1.42 Beta [Bld 78] - source file justine.a80 - page 5 - 1/4/2012 18:44:56


  symbol table (* = unused):
  ------------------------

*ARCHITECTURE :  i386-unknown-win32 - | *BIGENDIAN :                      0 - |
*BRANCHEXT :                      0 - | *CASESENSITIVE :                  1 - |
*CHARS :                         FA C | *CLEAR_TXTSCR :                  99 C |
*CLS_TXTSCR :                    B4 C | *CONSTPI :        3.141592653589793 - |
*DATE :                    1/4/2012 - | *FALSE :                          0 - |
*FULLPMMU :                       1 - | *HAS64 :                          1 - |
*HASDSP :                         0 - | *HASFPU :                         0 - |
*HASPMMU :                        0 - | *INEXTMODE :                      0 - |
*INLWORDMODE :                    0 - | *INMAXMODE :                      0 - |
*INSRCMODE :                      0 - | *INSUPMODE :                      0 - |
*LISTON :                         1 - | *MACEXP :                         1 - |
*MOMCPU :                      80DC - | *MOMCPUNAME :              Z80UNDOC - |
*NESTMAX :                      100 - | *PACKING :                        0 - |
*PADDING :                        1 - | *PRESS_SPACE :                   E1 C |
PRINT :                         65 C |  PRTT_MSG :                      39 C |
*RELAXED :                        0 - | *SET_7FFD :                      AF C |
START :                          0 C | *TEXT_SPMODE :                   BB C |
*TEXT_TXTMODE :                  D0 C | *TIME :                    18:44:55 - |
*TRUE :                           1 - | *VERSION :                     142F - |
WAIT_KEY1 :                     60 C |  WAIT_KEYS :                     5D C |

     40 symbols
     35 unused symbols

AS V1.42 Beta [Bld 78] - source file justine.a80 - page 6 - 1/4/2012 18:44:56


  codepages:
  ----------

STANDARD (0 changed characters)


0.09 seconds assembly time

    160 lines source file
    192 lines incl. macro expansions
      1 pass
        additional necessary passes not started due to
        errors, listing possibly incorrect
     36 errors
      0 warnings
User avatar
justine
 
Posts: 101
Joined: 06 Jul 2011, 00:50
Location: Scotland
Group: Registered users

Postby savelij » 04 Jan 2012, 21:32

Для этого компилятора надо самой первой строкой вставиит такую команду

include macros.a80

в том файле все уже прописано. Брать здесь: http://code.google.com/p/pentevo/source ... macros.a80
savelij
 
Posts: 568
Joined: 10 Jun 2008, 17:35
Group: Registered users

Postby justine » 04 Jan 2012, 21:36

Thanx savelij i think i owe you big time for all your help :vodka:
User avatar
justine
 
Posts: 101
Joined: 06 Jul 2011, 00:50
Location: Scotland
Group: Registered users

Postby justine » 05 Jan 2012, 22:26

savelij using the code you gave me is there anyway you could modify the PRTT_MSG code so i can select colour attributes for the text printed until i change the colour again ?
Maybe use LD A,colour for PRTT_MSG ??

Many thanx in advance.
User avatar
justine
 
Posts: 101
Joined: 06 Jul 2011, 00:50
Location: Scotland
Group: Registered users

Postby savelij » 06 Jan 2012, 10:29

Вот немного модифицировал подпрограмму PRTT_MSG. При вызове нужно в регистр C занести код цвета.
Code: Select all
PRTT_MSG   LD A,(HL)
      INC HL
      AND A
      RET Z
;D-X E-Y C-COLOR
      PUSH DE
      PUSH HL
      PUSH AF
      LD L,E
      LD A,D
      LD H,0
      LD D,H
      ADD HL,HL
      ADD HL,HL
      ADD HL,HL
      ADD HL,HL
      ADD HL,HL
      ADD HL,HL
      LD E,A
      SRL E
      ADD HL,DE
      AND 1
      RRCA
      RRCA
      RRCA
      OR 0XC1
      LD D,A
      LD E,0XC0
      ADD HL,DE
      POP AF
      LD (HL),A
      LD A,0X0B
      CALL SET_7FFD
      LD A,H
      XOR 0X20
      LD H,A
      LD A,D
      AND 0X20
      RLCA
      RLCA
      RLCA
      ADD A,L
      LD L,A
      LD (HL),C
      LD A,0X0F
      CALL SET_7FFD
      POP HL
      POP DE
      INC D
      JR PRTT_MSG
savelij
 
Posts: 568
Joined: 10 Jun 2008, 17:35
Group: Registered users

Previous

Return to Пентева - софт и железо

Who is online

Users browsing this forum: No registered users and 2 guests

cron