/[projet1]/users/chema/skooldaze/init.s
Defence Force logotype

Diff of /users/chema/skooldaze/init.s

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 600 by Chema, Fri Sep 2 12:48:33 2011 UTC revision 601 by Chema, Fri Sep 2 17:19:46 2011 UTC
# Line 1051  isok Line 1051  isok
1051          jsr print_name          jsr print_name
1052    
1053          ; Ask the user to change the name          ; Ask the user to change the name
1054          ;jsr print_pressC          jsr change_name
1055          jsr clear_name          jsr clear_name
1056    
1057          ; Walk the character out          ; Walk the character out
# Line 1171  bottomline Line 1171  bottomline
1171          sty tmp0          sty tmp0
1172          stx tmp0+1          stx tmp0+1
1173          jsr search_string          jsr search_string
1174            ; Save pointer with SMC in case we want to edit it
1175            lda tmp0
1176            sta pchar_name+1
1177            lda tmp0+1
1178            sta pchar_name+3
1179    
1180          jsr write_text_up          jsr write_text_up
1181    
1182          lda #<st_space          lda #<st_space
# Line 1198  clear_name Line 1204  clear_name
1204          jsr write_text_down          jsr write_text_down
1205          jsr dump_title          jsr dump_title
1206          jmp dump_title2          jmp dump_title2
 .)  
1207    .)
1208    
1209    
1210    #define ADDR_LINE $a000+40*110
1211    
1212    change_name
1213    .(
1214            ; Print Print 'C' to change name
1215            lda #<ADDR_LINE+11
1216            sta tmp0
1217            lda #>ADDR_LINE+11
1218            sta tmp0+1
1219            lda #<st_pressc
1220            ldy #>st_pressc
1221            jsr print_string
1222    
1223            jsr read_key_block
1224            cmp #"C"
1225            bne end
1226    
1227            jsr clear_msg_line
1228            ; Print ENTER NEW NAME
1229            lda #<ADDR_LINE+14
1230            sta tmp0
1231            lda #>ADDR_LINE+14
1232            sta tmp0+1
1233            lda #<st_entername
1234            ldy #>st_entername
1235            jsr print_string
1236    
1237            jsr read_new_name
1238    end
1239            jmp clear_msg_line
1240    .)
1241    
1242    read_key_block
1243    .(
1244    loop
1245            jsr ReadKeyNoBounce
1246            beq loop
1247            rts
1248    .)
1249    
1250    read_new_name
1251    .(
1252            jsr clear_name
1253    
1254    +pchar_name
1255            ldy #$34
1256            ldx #$12
1257            sty tmp0
1258            stx tmp0+1
1259    
1260            ; Empty name
1261            lda #0
1262            ldy #13
1263    loop
1264            sta (tmp0),y
1265            dey
1266            bpl loop
1267            iny
1268            sty tmp6
1269    loop_read
1270            jsr read_key_block
1271            ldy tmp6
1272            cmp #13
1273            beq end
1274            cmp #$08        ; delete?
1275            bne nodel
1276            cpy #0
1277            beq loop_read
1278            dey
1279            sty tmp6
1280            lda #0
1281            sta (tmp0),y
1282            beq skip        
1283    nodel
1284            sta (tmp0),y
1285            cpy #14
1286            beq skip
1287            inc tmp6
1288    skip
1289            lda tmp0
1290            pha
1291            lda tmp0+1
1292            pha
1293            jsr write_text_up
1294            jsr dump_title2
1295            pla
1296            sta tmp0+1
1297            pla
1298            sta tmp0
1299            jmp loop_read
1300    end
1301            rts
1302            
1303    .)
1304    
1305    clear_msg_line
1306    .(
1307            lda #$40
1308            ldy #35
1309    loop
1310            sta ADDR_LINE+2,y
1311            sta ADDR_LINE+2+40,y
1312            sta ADDR_LINE+2+40*2,y
1313            sta ADDR_LINE+2+40*3,y
1314            sta ADDR_LINE+2+40*4,y
1315            sta ADDR_LINE+2+40*5,y
1316            sta ADDR_LINE+2+40*6,y
1317            sta ADDR_LINE+2+40*7,y
1318            dey
1319            bpl loop
1320            rts
1321    .)

Legend:
Removed from v.600  
changed lines
  Added in v.601

  ViewVC Help
Powered by ViewVC 1.1.26