/ CP/M / CPM_CDROM.iso / enterprs / c128 / util / mer128.arc / PETSCII.S

< prev

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 00 70 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |.p******|********|
|00000010| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000020| 2a 2a 0d 2a a0 a0 a0 a0 | a0 a0 a0 a0 a0 a0 a0 a0 |**.*....|........|
|00000030| a0 a0 a0 a0 a0 a0 a0 a0 | a0 a0 a0 a0 a0 a0 a0 a0 |........|........|
|00000040| a0 a0 2a 0d 2a a0 a0 a0 | a0 a0 a0 a0 a0 a0 a0 a0 |..*.*...|........|
|00000050| 70 65 74 73 63 69 69 a0 | a0 a0 a0 a0 a0 a0 a0 a0 |petscii.|........|
|00000060| a0 a0 a0 2a 0d 2a a0 a0 | a0 a0 a0 a0 a0 a0 a0 a0 |...*.*..|........|
|00000070| a0 a0 a0 a0 a0 a0 a0 a0 | a0 a0 a0 a0 a0 a0 a0 a0 |........|........|
|00000080| a0 a0 a0 a0 2a 0d 2a a0 | a0 75 73 72 a0 52 4f 55 |....*.*.|.usr.ROU|
|00000090| 54 49 4e 45 a0 46 4f 52 | a0 6d 45 52 4c 49 4e 2d |TINE.FOR|.mERLIN-|
|000000a0| 31 32 38 a0 a0 2a 0d 2a | a0 a0 54 4f a0 50 52 4f |128..*.*|..TO.PRO|
|000000b0| 44 55 43 45 a0 70 45 54 | 53 43 49 49 a0 43 4f 44 |DUCE.pET|SCII.COD|
|000000c0| 45 53 2e a0 a0 a0 2a 0d | 2a a0 a0 a0 a0 a0 a0 a0 |ES....*.|*.......|
|000000d0| a0 a0 a0 a0 a0 a0 a0 a0 | a0 a0 a0 a0 a0 a0 a0 a0 |........|........|
|000000e0| a0 a0 a0 a0 a0 a0 a0 2a | 0d 2a 2a 2a 2a 2a 2a 2a |.......*|.*******|
|000000f0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000100| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 0d 2a 0d 2a a0 a0 69 |********|*.*.*..i|
|00000110| 54 a0 49 53 a0 53 54 52 | 4f 4e 47 4c 59 a0 53 55 |T.IS.STR|ONGLY.SU|
|00000120| 47 47 45 53 54 45 44 a0 | 54 48 41 54 a0 59 4f 55 |GGESTED.|THAT.YOU|
|00000130| a0 50 55 54 a0 54 48 45 | 53 45 a0 43 48 45 43 4b |.PUT.THE|SE.CHECK|
|00000140| 53 0d 2a a0 a0 49 4e 54 | 4f a0 41 4e 59 a0 53 4f |S.*..INT|O.ANY.SO|
|00000150| 55 52 43 45 a0 55 53 49 | 4e 47 a0 54 48 49 53 a0 |URCE.USI|NG.THIS.|
|00000160| 75 73 72 a0 4f 50 43 4f | 44 45 2c a0 53 4f a0 54 |usr.OPCO|DE,.SO.T|
|00000170| 48 41 54 a0 54 48 45 0d | 2a a0 a0 43 4f 44 45 a0 |HAT.THE.|*..CODE.|
|00000180| 49 53 a0 54 48 45 52 45 | a0 57 48 45 4e a0 54 48 |IS.THERE|.WHEN.TH|
|00000190| 45 a0 41 53 53 45 4d 42 | 4c 45 52 a0 43 41 4c 4c |E.ASSEMB|LER.CALL|
|000001a0| 53 a0 4f 4e a0 49 54 3a | 0d 2a 0d 2a a0 a0 a0 a0 |S.ON.IT:|.*.*....|
|000001b0| a0 a0 a0 a0 65 72 72 a0 | a0 a0 28 24 64 66 66 29 |....err.|..($dff)|
|000001c0| 2d 24 36 30 0d 2a a0 a0 | a0 a0 a0 a0 a0 a0 65 72 |-$60.*..|......er|
|000001d0| 72 a0 a0 a0 28 24 65 30 | 31 29 2d 24 61 30 0d 2a |r...($e0|1)-$a0.*|
|000001e0| a0 a0 a0 a0 a0 a0 a0 a0 | 65 72 72 a0 a0 a0 28 24 |........|err...($|
|000001f0| 65 30 33 29 2d 24 65 38 | 0d 0d 77 6f 72 6b 73 70 |e03)-$e8|..worksp|
|00000200| 20 3d 20 24 39 38 30 20 | 3b 68 4f 4c 44 53 a0 4f | = $980 |;hOLDS.O|
|00000210| 50 45 52 41 4e 44 a0 41 | 4e 44 a0 43 4f 4d 4d 45 |PERAND.A|ND.COMME|
|00000220| 4e 54 0d 70 75 74 63 6f | 64 65 20 3d 20 24 34 63 |NT.putco|de = $4c|
|00000230| 30 36 20 3b 73 54 41 42 | 4c 45 a0 45 4e 54 52 59 |06 ;sTAB|LE.ENTRY|
|00000240| a0 54 4f a0 41 53 4d a0 | 43 4f 44 45 a0 28 49 4e |.TO.ASM.|CODE.(IN|
|00000250| a0 61 29 0d 3b a0 28 50 | 52 45 53 45 52 56 45 53 |.a).;.(P|RESERVES|
|00000260| a0 79 2c a0 42 55 54 a0 | 4e 4f 54 a0 61 a0 4f 52 |.y,.BUT.|NOT.a.OR|
|00000270| a0 78 29 0d 65 76 61 6c | 20 3d 20 24 34 63 30 39 |.x).eval| = $4c09|
|00000280| 20 3b 6f 50 45 52 41 4e | 44 a0 45 56 41 4c 55 41 | ;oPERAN|D.EVALUA|
|00000290| 54 49 4f 4e 2c a0 4a 55 | 53 54 a0 55 53 45 44 0d |TION,.JU|ST.USED.|
|000002a0| 3b a0 48 45 52 45 a0 54 | 4f a0 47 45 4e 45 52 41 |;.HERE.T|O.GENERA|
|000002b0| 54 45 a0 45 52 52 4f 52 | 0d 0d 20 6f 72 67 20 24 |TE.ERROR|.. org $|
|000002c0| 64 66 66 20 3b 61 4c 4c | a0 75 73 72 a0 52 4f 55 |dff ;aLL|.usr.ROU|
|000002d0| 54 49 4e 45 53 a0 53 54 | 41 52 54 a0 48 45 52 45 |TINES.ST|ART.HERE|
|000002e0| 0d 0d 20 72 74 73 20 3b | 73 4f a0 54 48 45 a0 72 |.. rts ;|sO.THE.r|
|000002f0| 55 4e a0 43 4f 4d 4d 41 | 4e 44 a0 4a 55 53 54 a0 |UN.COMMA|ND.JUST.|
|00000300| 4c 4f 41 44 53 2e 0d 0d | 20 63 6c 64 20 3b 69 64 |LOADS...| cld ;id|
|00000310| a0 43 48 45 43 4b 45 44 | a0 42 59 a0 75 73 72 a0 |.CHECKED|.BY.usr.|
|00000320| 52 4f 55 54 49 4e 45 0d | 20 6c 64 79 20 23 30 0d |ROUTINE.| ldy #0.|
|00000330| 3a 6c 6f 6f 70 20 69 6e | 79 0d 20 63 70 79 20 23 |:loop in|y. cpy #|
|00000340| 24 34 30 0d 20 62 67 65 | 20 3a 65 72 72 20 3b 65 |$40. bge| :err ;e|
|00000350| 52 52 4f 52 a0 49 46 a0 | 32 4e 44 a0 44 45 4c 49 |RROR.IF.|2ND.DELI|
|00000360| 4d 49 54 45 52 a0 4d 49 | 53 53 49 4e 47 0d 20 6c |MITER.MI|SSING. l|
|00000370| 64 61 20 77 6f 72 6b 73 | 70 2c 79 0d 20 63 6d 70 |da works|p,y. cmp|
|00000380| 20 77 6f 72 6b 73 70 0d | 20 62 65 71 20 3a 64 6f | worksp.| beq :do|
|00000390| 6e 65 20 3b 66 49 4e 49 | 53 48 45 44 a0 49 46 a0 |ne ;fINI|SHED.IF.|
|000003a0| 44 45 4c 49 4d 49 54 45 | 52 a0 52 45 50 45 41 54 |DELIMITE|R.REPEAT|
|000003b0| 53 0d 20 63 6d 70 20 23 | 27 7a 27 2b 31 0d 20 62 |S. cmp #|'z'+1. b|
|000003c0| 67 65 20 3a 73 65 6e 64 | 20 3b 6e 4f a0 41 43 54 |ge :send| ;nO.ACT|
|000003d0| 49 4f 4e a0 49 46 a0 4e | 4f 54 a0 61 2d 7a 0d 20 |ION.IF.N|OT.a-z. |
|000003e0| 63 6d 70 20 23 27 61 27 | 0d 20 62 6c 74 20 3a 73 |cmp #'a'|. blt :s|
|000003f0| 65 6e 64 0d 20 65 6f 72 | 20 23 25 31 30 31 30 30 |end. eor| #%10100|
|00000400| 30 30 30 20 3b 63 4f 4e | 56 45 52 54 a0 55 43 a0 |000 ;cON|VERT.UC.|
|00000410| 54 4f a0 70 45 54 53 43 | 49 49 a0 43 4f 44 45 0d |TO.pETSC|II.CODE.|
|00000420| 3a 73 65 6e 64 20 6a 73 | 72 20 70 75 74 63 6f 64 |:send js|r putcod|
|00000430| 65 20 3b 61 53 53 45 4d | 42 4c 45 a0 49 54 0d 20 |e ;aSSEM|BLE.IT. |
|00000440| 62 6e 65 20 3a 6c 6f 6f | 70 20 3b 62 52 41 4e 43 |bne :loo|p ;bRANC|
|00000450| 48 a0 41 4c 57 41 59 53 | 0d 3a 64 6f 6e 65 20 72 |H.ALWAYS|.:done r|
|00000460| 74 73 0d 0d 3a 65 72 72 | 20 6c 64 61 20 23 27 2d |ts..:err| lda #'-|
|00000470| 27 0d 20 73 74 61 20 77 | 6f 72 6b 73 70 20 3b 70 |'. sta w|orksp ;p|
|00000480| 55 54 a0 49 4e a0 41 a0 | 44 4f 55 42 4c 45 a0 4e |UT.IN.A.|DOUBLE.N|
|00000490| 45 47 41 54 49 56 45 0d | 20 73 74 61 20 77 6f 72 |EGATIVE.| sta wor|
|000004a0| 6b 73 70 2b 31 20 3b a0 | 54 4f a0 47 45 4e 45 52 |ksp+1 ;.|TO.GENER|
|000004b0| 41 54 45 a0 41 4e a0 45 | 52 52 4f 52 a0 4d 53 47 |ATE.AN.E|RROR.MSG|
|000004c0| 0d 20 6c 64 78 20 23 30 | 20 3b 70 4f 49 4e 54 a0 |. ldx #0| ;pOINT.|
|000004d0| 54 4f a0 53 54 41 52 54 | a0 4f 46 a0 4f 50 45 52 |TO.START|.OF.OPER|
|000004e0| 41 4e 44 2e 0d 20 6a 6d | 70 20 65 76 61 6c 20 3b |AND.. jm|p eval ;|
|000004f0| 65 56 41 4c 55 41 54 45 | a0 49 4c 4c 45 47 41 4c |eVALUATE|.ILLEGAL|
|00000500| a0 45 58 50 52 45 53 53 | 49 4f 4e 0d 3b a0 54 4f |.EXPRESS|ION.;.TO|
|00000510| a0 47 45 4e 45 52 41 54 | 45 a0 22 49 4c 4c a0 43 |.GENERAT|E."ILL.C|
|00000520| 48 41 52 a0 45 52 52 4f | 52 22 0d 0d 20 65 72 72 |HAR.ERRO|R".. err|
|00000530| 20 2a 2d 31 2f 24 66 30 | 30 20 3b 75 73 72 a0 4d | *-1/$f0|0 ;usr.M|
|00000540| 55 53 54 a0 4e 4f 54 a0 | 47 4f a0 50 41 53 54 a0 |UST.NOT.|GO.PAST.|
|00000550| 54 48 49 53 2e 0d       |                         |THIS..  |        |
+--------+-------------------------+-------------------------+--------+--------+